Cita:
|
Empezado por karlaoax
Puedes poner el mensaje de error que te manda, y tu codigo para analizar cual es el problema, para buscar la solucion.
Con la descripcion que pones se me pueden ocurrir muchas cosas  |
Este es mi codigo..
procedure
TdmYaqbar01DataModule.InsertMSF012_XXXXXX01(DistrictCode,ReceiveWH,WaybillNo,WbillItemNo,StockCode,B inLocation,ReceivedDate,
TransferWH,TransferBinCode,TransferDate: string);
begin
with sqlInsertMSF012_XXXXXX01 do begin
try
Close;
Params[0].AsString := FillCharRight(' ',DistrictCode,4);
Params[1].AsString := FillCharRight(' ',ReceiveWH,4);
Params[2].AsString := WaybillNo;
Params[3].AsString := WbillItemNo;
Params[4].AsString := StockCode;
Params[5].AsString := FillCharRight(' ',BinLocation,12);
Params[6].AsString := ReceivedDate;
Params[7].AsString := FillCharRight(' ',TransferWH,4);
Params[8].AsString := FillCharRight(' ',TransferBinCode,12);
Params[9].AsString := TransferDate;
ExecSQL;
except
on E: Exception do raise Exception.CreateFmt(QY_150, [WaybillNo]);
end;
end;
end;
Me mnuestra el Erro definido para QY_150, pero yo quiero saber el ERROR de fondo que me da el SQL de insercion.. cuando insertas puede que la clave este mal o que la tabla no existe o algun otro error....ese codigo es el que quiero capturar.
Saludos,