pues seras novato como dices pero me has echado mucho la mano amigo, ya pude hacer que no me marcara error el problema me sale por la parte de max(folio), lo cmabie por el siguiente codigo no me marca error pero en folio siempre me pone uno aunque tenga 10 siempre es 1
Código Delphi
[-]If combobox1.text = 'Entrada' then
begin
A:= 'E';
end
else begin
A:= 'S';
end;
query.Close;
query.SQL.Text:='SELECT folio FROM entradas where tipo = '''+ A + '*'' ';
query.Open;
folio.text := IntToStr(query.FieldByName('folio').asInteger +1) ;