![]() |
![]() |
| 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 |
|
#5
|
||||
|
||||
|
Hola que tal, gracias por ayudarme, te paso parte del codigo del procedimiento para insertar el cliente:
procedure TfrmPrincipal.AgregaCliente(ClienteX : String); begin with dmDatos do begin qryCteAREELEC.close; qryCteAREELEC.ParamByName('xCliente').asString := ClienteX; qryCteAREELEC.open; if qryCteAREELEC.IsEmpty then begin qryCteAREELEC.Append; qryCteAREELEC['Cliente'] := TDatosImp.FieldbyName('Cve_imp').asString; qryCteAREELEC['Nombre'] := TDatosImp.FieldbyName('Nom_imp').asString; ...... ...... ...... qryCteAREELEC['HONOFRA100'] := 1; qryCteAREELEC['MONEDAI'] := 1; qryCteAREELEC['MONEDAE'] := 1; qryCteAREELEC['SHONO'] := 0; try begin qryCteAREELEC.post; Inc(vCtesNuevos); end except Inc(vErrores); end; end end; ******************* qryCteAREELEC = TQuery TDatosImp = IBTable ******************* El error me lo marca al ejecutar el POST. |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|