|
Va el código:
Por cada producto este código se ejecuta tres veces, una por cada renglón del asiento. Si la factura tiene 20 producto, el código se ejecuta unas 60 veces
MD.ZAsientos.SQL.Clear;
MD.ZAsientos.SQL.Text:='INSERT INTO asientos (fecha,cuenta,debe,haber,saldo,comentario,numero,comp,numcom,codprov)'+
'VALUES (:fecha,:cuenta,:debe,:haber,:saldo,:comentario,:numero,:comp,:numcom,:codprov)';
MD.ZAsientos.ParamByName('fecha').Value:=StrtoDate(fecha.text);
MD.ZAsientos.ParamByName('cuenta').Value:=MD.DetalleImputa.Value;
MD.ZAsientos.ParamByName('Debe').Value:=MD.DetalleNetograv.Value;
MD.ZAsientos.ParamByName('comentario').Value:=comentario;
MD.ZAsientos.ParamByName('Numero').value:=nasiento;
MD.zAsientos.ParamByName('Comp').value:=MD.DetalleTipo.Value;
MD.zAsientos.ParamByName('Numcom').Value:=MD.DetalleNumcom.Value;
MD.zAsientos.ParamByName('Codprov').Value:=MD.DetalleCod_prov.Value;
MD.ZAsientos.ExecSQL;
Desde ya muchas gracias
|