- VERSION 4.08.01

- Se cambio el formato de fecha a dd/mm/aa
- Se agrego una funcion para saber si ya se borro el efectivo o no.
- Si ya se borro el efectivo, cambiamos el texto del boton de "A + B" a "Z".
- Se agregó la variable "EFECTIVO BORRADO" a CAT_VARIABLES.

Subs.bas

@@ -702,7 +702,7 @@ Sub traeTicket(mesaId As String, tipoPago As String) As String 'ignore
 End Sub
 
 Sub traeFecha As String 'ignore
-	DateTime.DateFormat = "MM/dd/yyyy"
+	DateTime.DateFormat = "dd/MM/yyyy"
 	Private sDate As String = DateTime.Date(DateTime.Now)
 	Private sTime As String = DateTime.Time(DateTime.Now)
 	Return sDate & " " & sTime
@@ -1533,6 +1533,21 @@ Sub revisaCierreAdmin As Boolean
 	Return cierre
 End Sub
 
+'Regresa verdadero si EFECTIVO BORRADO esta en 1
+Sub revisaEfectivoBorrado As Boolean
+	Private c As Cursor = Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("EFECTIVO BORRADO"))
+	Private efeBorr As Boolean = False
+	If c.RowCount > 0 Then
+		c.Position = 0
+		If c.GetString("CAT_VA_VALOR") = 1 Then
+			efeBorr = True
+		Else
+'			B4XPages.MainPage.principal.p_transparenteCierreAdmin.Visible = False
+		End If
+	End If
+	Return efeBorr
+End Sub
+
 'Change CheckBox colors
 Sub SetButtonTintList(View As View, Disabled As Int, Enabled As Int)
 	Dim States(2,1) As Int