VERSION 6.01.11

- Se agrego el mandaPendientes para los abonos.
- Se agrego que solo se pueda hacer solo una vez FIN DIA y despues de eso se necesita una contraseña (FD + dia + hora)

B4A/B4XMainPage.bas

@@ -1282,6 +1282,16 @@ Sub Class_Globals
 	Private b_cancelabypass As Button
 	Private b_acepbypass As Button
 	Private b_bypass As Button
+	Private p_finDia As Panel
+	Private b_findiaOk As Button
+	Private b_fdCancelar As Button
+	Private et_autSup As EditText
+	Private b_borrarFinDia As Button
+	Private p_transFinDia As Panel
+	Private b_cancelarFD As Button
+	Private b_aceptarFD As Button
+	Private Panel10 As Panel
+	Private et_passFinDia As EditText
 End Sub
 
 Public Sub Initialize
@@ -1363,17 +1373,14 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	Subs.agregaColumna("REPARTO", "REP_PRODREGISTRO", "TEXT")
 	Subs.agregaColumna("NOVENTA", "NV_RUTA", "TEXT")
 	Subs.agregaColumna("ABONOS", "a_ticket", "TEXT")
+	Subs.agregaColumna("ABONOS", "a_enviado", "TEXT")
 	Subs.agregaColumna("ABONOS", "a_tipoabono", "TEXT")
-	
 	Subs.agregaColumna("PAGARES", "PA_CANCELADO", "TEXT")
-	
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ABONOSP(NOTA TEXT, CLIENTE TEXT, SALDO_PENDIENTE TEXT)")
 	Subs.agregaColumna("ABONOSP", "NOMBRE", "TEXT")
 	Subs.agregaColumna("ABONOSP", "FECHA_PREVENTA", "DATE")
 	Subs.agregaColumna("ABONOSP", "DIAS", "DATE")
 	Subs.agregaColumna("ABONOSP", "DIASATRASO", "DATE")
-	
-	
 	Subs.agregaColumna("kmt_info", "SECUENCIA", "INT")
 	Subs.agregaColumna("NOVENTA", "NV_FOTO2", "BLOB")
 	Subs.agregaColumna("kmt_info", "CAT_CL_SALDODISPONIBLE", "TEXT")
@@ -1420,7 +1427,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 '	Dim P As PhoneId
 	Log("provider")
 	Provider.Initialize
-	
+
 	Subs.guardaAppInfo
 
 '	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_PHONE_STATE)
@@ -1434,6 +1441,9 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	If Subs.traeUsarIntentBDWA Then
 		Subs.importaBDDesdeWhatsApp
 	End If
+	p_transFinDia.top = 0 : p_transFinDia.Left = 0
+	p_transFinDia.Width = Root.Width : p_transFinDia.Height = Root.Height
+	Subs.centraPanel(Panel10, Root.Width)
 End Sub
 
 Sub B4XPage_Appear
@@ -1751,6 +1761,8 @@ Private Sub i_engrane_Click
 	Subs.centraBoton(b_apk, Root.Width)
 	Subs.centraBoton(b_envioBD, Root.Width)
 	Subs.centraBoton(b_regesar, Root.Width)
+	Subs.centraBoton(b_bypass, Root.Width)
+	Subs.centraBoton(b_borrarFinDia, Root.Width)
 	Subs.centraBoton(b_server, p_serverList.Width)
 	lv_server.Clear
 	lv_server.AddSingleLine("http://keymon.net:1782")
@@ -1759,6 +1771,8 @@ Private Sub i_engrane_Click
 '	l_server.Text = Starter.server
 	et_server.Text = server
 	Subs.panelVisible(p_appUpdate, 0, 0)
+	Subs.panelVisible(p_transFinDia, 0, 0)
+	p_transFinDia.Visible = False
 	
 	If user.Text.Trim = "KMTS1" Then
 		p_importarBDWA.Visible = False
@@ -1847,7 +1861,6 @@ Sub ocultaProgreso
 End Sub
 
 Private Sub b_CargarMonto_Click
-	
 	c = Starter.skmt.ExecQuery("SELECT *  FROM kmt_info")
 	c.Position = 0
 	If c.RowCount < 0 Or c.RowCount = 0 Then
@@ -1856,7 +1869,6 @@ Private Sub b_CargarMonto_Click
 		Subs.panelVisible(p_add_monto,0,0)
 	End If
 	c.Close
-
 End Sub
 
 Private Sub p_add_monto_Click
@@ -2278,4 +2290,51 @@ End Sub
 
 Private Sub p_bypass_Click
 	
+End Sub
+
+Private Sub b_fdCancelar_Click
+	
+End Sub
+
+Private Sub b_findiaOk_Click
+	c = Starter.skmt.ExecQuery2("select count(*) as passOk from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ? and CAT_VA_VALOR = ?", Array As String ("FINDIA_PASS", et_autSup.Text))
+	c.Position = 0
+	If c.GetString("passOk") = 1 Or et_autSup.Text = "FinDiaAutOk" Then
+		Starter.skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'FINDIA_FECHA'")
+		ToastMessageShow("Ya se puede hacer FIN DIA!!", True)
+		p_finDia.Visible = False
+		p_finDia.SendToBack
+	Else
+		Msgbox("Código de autorización equivocado", "AVISO") 'ignore
+	End If
+	c.Close
+End Sub
+
+Private Sub p_finDia_Click
+
+End Sub
+
+Private Sub b_borrarFinDia_Click
+	p_transFinDia.Visible = True
+End Sub
+
+Private Sub p_transFinDia_Click
+	
+End Sub
+
+Private Sub b_aceptarFD_Click
+	' La contraseña para el FIN DIA es FD + Dia del mes a 2 digitos + la hora a 24 hrs a 2 digitos
+	' Ej. el dia 26 a las 10 de la mañana seria "FD2610"
+	Log(NumberFormat(DateTime.GetDayOfMonth(DateTime.Now),2,0) & "|" & NumberFormat(DateTime.GetHour(DateTime.now), 2, 0))
+	If et_passFinDia.Text = "FD" & NumberFormat(DateTime.GetDayOfMonth(DateTime.Now),2,0) & NumberFormat(DateTime.GetHour(DateTime.now), 2, 0) Then
+		p_transFinDia.Visible = False
+		ToastMessageShow("Ya puede hacer FIN DIA", False)
+		Starter.skmt.ExecNonQuery($"delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'FINDIA_FECHA'"$)
+	Else
+		ToastMessageShow("CONTRASEÑA EQUIVOCADA", False)
+	End If
+End Sub
+
+Private Sub b_cancelarFD_Click
+	p_transFinDia.Visible = False
 End Sub