Private Sub ETFecha_FocusChanged (HasFocus As Boolean)
If HasFocus Then
dialog.Initialize(Activity)
dialog.Title = "Fecha del gasto"
dialog.PutAtTop = True
Dim input As B4XDateTemplate
input.Initialize
input.FirstDay = 1
Wait For (dialog.ShowTemplate(input, "OK", "", "CANCEL")) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
Dim res As String = input.Date
Log(DateTime.Date(res))
End If
End If
End Sub