|
Try
If PsNombProc = 'ins_dat' Then
With ADOSP1.Parameters Do
Begin
Clear;
CreateParameter('fecha_apert',ftString,pdInput,10,'');
End;
Except
On Error: Exception Do
Result := 'Ocurrió un error al ejecutar al Crear parámetros. Error: ' +
Error.Message;
End;
|