magnu9
26-07-2007, 20:34:04
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'...
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;
//Iniciar la Transaccion
ADOConnection1.BeginTrans;
try
// Insertar en la tabla de Factura
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;
//Completa la Transaccion
ADOConnection1.CommitTrans;
finally
close;
end;
end;
end;
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;
//Iniciar la Transaccion
ADOConnection1.BeginTrans;
try
// Insertar en la tabla de Factura
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;
//Completa la Transaccion
ADOConnection1.CommitTrans;
finally
close;
end;
end;
end;