![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#3
|
|||
|
|||
|
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 |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
Temas Similares
|
||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| MySql y Delphi Lento | nasedo | MySQL | 6 | 04-08-2007 05:35:06 |
| Prepare lento en Firebird.. y en MySQL?? | xander | MySQL | 11 | 01-11-2006 03:02:36 |
| Un Insert muy lento......... | sitrico | Conexión con bases de datos | 9 | 30-05-2005 15:52:21 |
| Mysql lento en Win Me y rapido en win 98 | miguelb | Windows | 0 | 03-02-2005 21:39:00 |
| Mysql lento en Win Me y rapido en win 98 | miguelb | MySQL | 0 | 30-12-2004 02:22:16 |
|