Código Delphi [-] query1.SQL.Clear; query1.sql.text:= 'Select max(ctrlconcepto) as maximo from cobranzas where alucurso = '+ IntToStr( x )+' and concepto = '+ IntToStr(dbedit9.text) ; query1.Active:=true; max:= Query1.FieldByName('maximo').Value;
query1.SQL.Clear; query1.sql.text:= 'Select max(ctrlconcepto) as maximo from cobranzas where alucurso = '+ IntToStr( x )+' and concepto = '+ IntToStr(dbedit9.text) ; query1.Active:=true; max:= Query1.FieldByName('maximo').Value;