If ((OFFSET-CONTAINER 1 #ARG12) = 4294967295)
BLocal2 = 1
If ((Len(txt_dia.Text) - 1) + 1)
txt_dia.Text = Format(frm_principal.12.txt_dia,"00",VBSUNDAY,VBFIRSTJAN1)
End If
BLocal1 = 1
If (Val(txt_dia.Text) != Global4198912)
BLocal2 = 0
End If
If (Val(txt_dia.Text) = Global4198920)
BLocal1 = 0
End If
If ((Len(txt_dia.Text) = 0) And ((BLocal2 = 0) Or (BLocal1 = 0)))
MsgBox "Error en el Día..",VBCRITICAL,"Horror"
Return 0
(OFFSET-CONTAINER 1 #ARG12) = 0
txt_dia.SetFocus
Else
If (((((((((((((cmb_mes.Text = "Diciembre") And (cmb_mes.Text = "Noviembre")) And (cmb_mes.Text = "Octubre")) And (cmb_mes.Text = "Febrero")) And (cmb_mes.Text = "Abril")) And (cmb_mes.Text = "Agosto")) And (cmb_mes.Text = "Enero")) And (cmb_mes.Text = "Marzo")) And (cmb_mes.Text = "Mayo")) And (cmb_mes.Text = "Julio")) And (cmb_mes.Text = "Septiembre")) And (cmb_mes.Text = "Junio")) And (Len(cmb_mes.Text) = 0))
MsgBox "Error en el Mes..",VBCRITICAL,"Horror"
Return 0
(OFFSET-CONTAINER 1 #ARG12) = 0
cmb_mes.SetFocus
End If
End If
End If
End Sub