From c04aee11e785a273528e37891ecf3535f758f656 Mon Sep 17 00:00:00 2001
From: cvaldes1201 <cj.valdes@keymonsoft.com>
Date: Thu, 7 Sep 2023 16:58:56 -0600
Subject: [PATCH] 07/09/23
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Fin día forzado
---
 B4A/C_Principal.bas | 22 ++++++++++++++++++++--
 1 file changed, 20 insertions(+), 2 deletions(-)

diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas
index 5c2d900..535369d 100644
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -716,6 +716,21 @@ Sub Subir_Click
 End Sub
 
 Sub cargar_Click
+	Dim pedidodiaanterior As Boolean = False
+	Dim cp As Cursor = B4XPages.MainPage.skmt.ExecQuery("select * from PEDIDO")
+	If cp.RowCount > 0 Then
+		cp.Position = 0
+		Private fecha As String = cp.GetString("PE_FECHA")
+		Dim fecha2() As String = Regex.Split("/",fecha)
+		Dim dia As String = fecha2(1)
+		Log(dia)
+		Dim dia2 As String = DateTime.GetDayOfMonth(DateTime.Now)
+		Log(dia & " , " & dia2)
+		If dia < dia2 Then
+			pedidodiaanterior = True
+		End If
+	End If
+	If Not (pedidodiaanterior) Then
 	CARGA = "CARGAR"
 	p_mandaInfo.Width = Root.Width
 	p_mandaInfo.Height = Root.Height
@@ -814,7 +829,6 @@ Sub cargar_Click
 	
 	cmd.Initialize
 	cmd.Name = "select_cat_GIRO_MARDS"
-	cmd.Parameters = Array As Object(ALMACEN)
 	B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "giro")
 	
 '	cmd.Initialize
@@ -933,7 +947,11 @@ Sub cargar_Click
 	cargar.Visible = False
 	Subir.Visible = False
 	inv.Visible = False
-	If Starter.marcaCel <> "Sony" Then ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias" , True)
+		If Starter.marcaCel <> "Sony" Then ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias" , True)
+	Else
+		Log("XXXX")
+		MsgboxAsync("Para poder cargar día no puedes tener venta del día anterior. Por favor haz FIN DIA e intenta nuevamente.","Atención")
+	End If
 End Sub
 
 Sub JobDone(Job As HttpJob)