07/09/23

Fin día forzado

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)