[[poliburro]]

Código Delphi [-]
Try
  If PsNombProc = 'ins_dat' Then
    With ADOSP1.Parameters Do 
       Begin
         Clear;
         CreateParameter('fecha_apert',ftDateTime,pdInput,0,Now);
       End;
 Except
     On Error: Exception Do
          Result := 'Ocurrió un error al ejecutar al Crear parámetros. Error: ' +
                       Error.Message;
  End;