|
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.
|