Tengo un problema con el siguiente codigo resulta que guardo lo que quiero en mi tabla de facturas al procesar, pero en dada ocaciones me dice el siguiente error '..... raised exception class EConvertError with message "" is not a valid integer value'...
Código Delphi
[-]procedure TUniFactura.BitBtn4Click(Sender: TObject);
var numfact, i : integer;
usuar, condic, tipfact, FechaVence, iv: String;
FPagoOK : Boolean;
begin
FPagoOK:= true;
If FPagoOk then
begin
usuar:=FormPrincipal.Label3.Caption;
tipfact:= UniFactura.ComboBox1.Text;
condic:= Label24.Caption;
ShortDateFormat := 'dd/mm/yyyy';
FechaVence := DateToStr(IncDay(now,(StrToInt(Label24.Caption))));
Label15.Caption:= FechaVence;
querFactura.Close;
querFactura.SQL.Text := 'select top 1 numfac, codcli, fecfac, codusu, tipfac, condicion, codart, fecvenc from factura order by numfac desc';
querFactura.Open;
If querFactura.RecordCount = 0 then NumFact:=1
else NumFact := querFactura.Fields[0].AsInteger+1;
querFactura.Close;
ADOConnection1.BeginTrans;
try
querFactura.SQL.Text := 'Insert Into Factura (numfac, codcli, fecfac, codusu, tipfac, condicion, codart, fecvenc) Values( '+IntToStr(NumFact)+','+Edit1.Text+','+QuotedStr(Fecha)
+','+QuotedStr(usuar)+','+QuotedStr(tipfact)+','+QuotedStr(condic)+','+IntToStr(codigoArtic)+','+Quo tedStr(FechaVence)+')';
For i := 1 to SgFact.RowCount-1 do
begin
querArticulo.SQL.Text := 'Update Articulo Set cexart = cexart - '+SGFact.Cells[2,i]+' Where '+
'Codart = '+QuotedStr(SGFact.Cells[0,i]);
querArticulo.ExecSQL;
end;
ADOConnection1.CommitTrans;
finally
close;
end;
end;
end;