Libreria

Clase

Metodo

AhoraAsistentes

Asistentes

DamefrmDlg_Fecha


Implementación:


 Public Function DamefrmDlg_Fecha() As Object
   Set DamefrmDlg_Fecha = New frmDlg_Fecha
 End Function


Descripción:


Abre un formulario que permite introducir una fecha, se recupera mediante la función Ver:


 Public Function Ver(
      Optional aFecha As Variant,
      Optional aMsg As String,
      Optional aTop As Boolean = True)
  As Variant


Ejemplo de uso:


 Set lForm = gCn.AhoraProceso("DamefrmDlg_Fecha", False)
 lFecha = lForm.Ver(Date, "Introduzca la fecha del Pedido:")
 Set lForm = Nothing
 If lFecha = "" Or Not IsDate(lFecha) Then
   MsgBox   "ERROR. Debe introducir una fecha válida." , vbExclamation
   Exit Sub
 Else
   gCn.EjecutaStoreCol "pPers_ActualizarPedido", lFecha
 End If