with SqlGrabar do
begin
active:=false;
SQL.text:= 'INSERT INTO creditos ( idcredito, idcliente, fechacred, tipoventa, montoprestado, interes, cantcuotas, tipopago, idemp, '+
' fechafin, interesmora, diacobro, estado, montocuota, montototal ) '+
'values ( :idcred, :idcliente, :feccred, :tventa, :montoprest, :inte, :cantc, :tpago, :idemp, '+
' :fecfin, :intemora, :diacobro, :estado, :montoc, :montot )' ;
ParamByName('idcred').asinteger:=strtoint(label3.caption);
ParamByName('idcliente').asinteger:=strtoint(edit3.text);
ParamByName('feccred').AsDateTime:=strtodate(maskedit1.text);
ParamByName('tventa').asstring:=combobox3.text;
ParamByName('montoprest').AsFloat:=strtofloat(abfedit1.text);
ParamByName('inte').asinteger:=strtoint(abfedit2.text);
ParamByName('cantc').asinteger:=strtoint(abfedit3.text);
ParamByName('tpago').asstring:=combobox5.text;
ParamByName('idemp').asstring:=label33.caption;
ParamByName('fecfin').asDateTime:=strtodate(listacuota.Cells[0,2]);
ParamByName('intemora').asinteger:=0;
ParamByName('diacobro').asstring:=combobox4.text;
ParamByName('estado').asstring:='DEBE';
ParamByName('montoc').asfloat:=strtofloat(abfedit4.text);
ParamByName('montot').asfloat:=strtofloat(abfedit13.text);
ExecSQL;
end;