VERSION 6.03.19

- Correcion en envio de datos de venta y reparto
2026-04-17 19:37:09 +00:00 · 2026-04-13 11:00:14 -06:00
parent dbf0c58c0b
commit 2b62580240
17 changed files with 980 additions and 585 deletions
--- a/B4A/C_Durakelo.bas
+++ b/B4A/C_Durakelo.bas
@@ -21,7 +21,6 @@ End Sub
 'You can add more parameters here.
 Public Sub Initialize As Object
 '	reqManager.Initialize(Me, "http://keymon.lat:1781")
-	reqManager.Initialize(Me, "http://keymon.net:1781")
 	l_ruta.Initialize("")
 	L_ABORDO.Initialize("")
 	l_porvisitar.Initialize("")
@@ -31,14 +30,13 @@ End Sub
 Private Sub B4XPage_Created (Root1 As B4XView)
 	Root = Root1
 	'load the layout to Root
-	
 End Sub

 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.

 Sub envia
-	carga = "SUBIR"
 	enviando = True
+	carga = "SUBIR"
 	almacen = Subs.traeAlmacen
 	l_ruta.TEXT = Subs.traeRuta
 	Dim fecha As String = DateTime.Date(DateTime.Now)
@@ -305,127 +303,88 @@ Sub envia
 '			S_CP.Text = "VALIDANDO"
 '		End If
 '	End If
-	T4.Initialize("T4", 3000)
-	T4.Enabled = True
+'	T4.Initialize("T4", 3000)
+'	T4.Enabled = True
 End Sub

 Sub JobDone(Job As HttpJob)
-	Log("JOBDONE DURAKELO")
-	If reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos.
-		LogColor($">>>>>>>>>>  Llega ${Job.tag}  <<<<<<<<<<"$, Colors.Blue)
-		If reqManager.reqsList.IndexOf(Job.tag) <> -1 Then
-			reqManager.reqsList.RemoveAt(reqManager.reqsList.IndexOf(Job.tag))
-'			LogColor($">>>>>> Quitamos ${Job.tag}"$, Colors.Blue)
-		End If
-		LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.Blue)
+	Log("JOBDONE - " & almacen)
+	
+	' 1. Tachamos el request de la lista
+	If reqManager.reqsList.IsInitialized Then
+		Dim index As Int = reqManager.reqsList.IndexOf(Job.tag)
+		If index <> -1 Then reqManager.reqsList.RemoveAt(index)
 	End If
-	If Job.Success = False Then
-		LogColor("############################################", Colors.red)
-		LogColor("####  Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red)
-		LogColor("############################################", Colors.red)
-	Else
-		LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green)  'Mod por CHV - 211027
-		If Job.JobName = "DBRequest" Then
-			Dim RESULT As DBResult = reqManager.HandleJob(Job)
-			If reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos.
-				If reqManager.reqsList.IndexOf(RESULT.tag) <> -1 Then
-					reqManager.reqsList.RemoveAt(reqManager.reqsList.IndexOf(RESULT.tag))
-					LogColor($"*** Quitamos ${RESULT.tag}"$, Colors.Magenta)
-					T4.Initialize("T4", 2000)
-				End If
-				LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.red)
-			End If
-		End If

-		If Job.JobName = "DBRequest" Then
-			Dim RESULT As DBResult = reqManager.HandleJob(Job)
-			If RESULT.Tag = "ins_pedido" Then 'query tag
-'				For Each records() As Object In RESULT.Rows
-'					PB2.Progress = PB2.Progress + 5
-'				Next
-'				PB2.Progress = 100
-'				S_CP.Text = "LISTO"
-			End If
-		End If
+	If Not(Job.Success) Then
+		LogColor("Error en red: " & Job.tag & " : " & Subs.parseHTTPError(Job.ErrorMessage), Colors.Red)
+	Else
+		' 2. Procesamos validaciones
+		Dim RESULT As DBResult = reqManager.HandleJob(Job)
 		
 		If Job.JobName = "DBRequest" Then
-			Dim RESULT As DBResult = reqManager.HandleJob(Job)
-			If RESULT.Tag = "valida_pedido" Then 'query tag
+			If RESULT.Tag = "valida_pedido" Then
 				Subs.logJobDoneResultados(RESULT)
 				For Each records() As Object In RESULT.Rows
 					Dim CUANTOSP As Int = records(RESULT.Columns.Get("CUANTOSP"))
-					Log(CUANTOSP)
 					B4XPages.MainPage.l_vProds2.Text = $"${CUANTOSP}/${cuantos_pedido}"$
+					' Mantenemos tu lógica permisiva
 					If cuantos_pedido <= CUANTOSP Then
-						' ToastMessageShow("rojo val ok 1 cuantosp." , True)
 						datos_iguales = "ok"
-'						S_CP.Text = "INFO OK"
-						ToastMessageShow("INFO OK", False)
 					Else
-'						S_CP.Text = "ENVIAR DATOS (K-2)"
-						ToastMessageShow($"No se cargo bien la info de pedido.${CRLF}Envíe nuevamente: "$ & CUANTOSP & "/" & cuantos_pedido, True)
-						ToastMessageShow("ENVIAR DATOS (K-2)", True)
-						Log("No se cargo bien la info de pedido. Envíe nuevamente: " & CUANTOSP & "/" & cuantos_pedido)
+						LogColor("Faltan pedidos. Envíe nuevamente: " & CUANTOSP & "/" & cuantos_pedido, Colors.Red)
 					End If
 				Next
-			End If
-		End If
-    
-		If Job.JobName = "DBRequest" Then
-			Dim RESULT As DBResult = reqManager.HandleJob(Job)
-			If RESULT.Tag = "valida_pedidoc" Then 'query tag
+			Else If RESULT.Tag = "valida_pedidoc" Then
 				Subs.logJobDoneResultados(RESULT)
 				For Each records() As Object In RESULT.Rows
 					Dim CUANTOSC As Int = records(RESULT.Columns.Get("CUANTOSC"))
 					B4XPages.MainPage.l_vPedidos2.Text = $"${CUANTOSC}/${cuantos_pedidosc}"$
-					If cuantos_pedidosc = CUANTOSC Then
-						' ToastMessageShow("rojo val ok 1 cuantosp." , True)
-						datos_iguales = "ok"
-					Else
-						ToastMessageShow($"No se cargo bien la info de pedido_cliente.${CRLF}Envíe nuevamente: "$  & CUANTOSC & "/" & cuantos_pedidosc, True)
-						Log("No se cargo bien la info de pedido_cliente. Envíe nuevamente: "  & CUANTOSC & "/" & cuantos_pedidosc)
-					End If
 				Next
-			End If
-		End If
-
-		If Job.JobName = "DBRequest" Then
-			Dim RESULT As DBResult = reqManager.HandleJob(Job)
-			If RESULT.Tag = "valida_noventa" Then 'query tag
+			Else If RESULT.Tag = "valida_noventa" Then
 				Subs.logJobDoneResultados(RESULT)
 				For Each records() As Object In RESULT.Rows
 					Dim CUANTOSN As Int = records(RESULT.Columns.Get("CUANTOSN"))
 					B4XPages.MainPage.l_vNoVenta2.Text = $"${CUANTOSN}/${cuantos_noventa}"$
-					If cuantos_noventa = CUANTOSN Then
-						' ToastMessageShow("rojo val ok 1 cuantosp." , True)
-						datos_iguales = "ok"
-					Else
-						ToastMessageShow($"No se cargo bien la info de NoVenta.${CRLF}Envíe nuevamente: "$  & CUANTOSN & "/" & cuantos_noventa, True)
-						Log("No se cargo bien la info de NoVenta. Envíe nuevamente:"  & CUANTOSN & "/" & cuantos_noventa)
-					End If
 				Next
 			End If
 		End If
-		If reqManager.reqsList.size = 0 Then T4.Enabled = True Else T4.Enabled = False
-		Job.Release
+	End If
+	
+	Job.Release
+
+	' 3. Control de flujo seguro
+	If reqManager.reqsList.size = 0 Then
+		B4XPages.MainPage.p_progressDialog.Visible = False
+		If enviando Then
+			enviando = False
+			B4XPages.MainPage.l_progressDialog.Text = "Validando "
+			B4XPages.MainPage.p_progressDialog.Visible = True
+			Sleep(200)
+			valida
+		Else If validando Then
+			validando = False
+			Sleep(300)
+			B4XPages.MainPage.p_validacion.Visible = True
+		End If
 	End If
 End Sub

 Sub valida
 	validando = True
 	almacen = Subs.traeAlmacen
-	d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO")
-	d.Position = 0
-	cuantos_pedido = d.GetString("CUANTOS_PEDIDO")
-	
-	d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ")
-	d.Position = 0
-	cuantos_pedidosc = d.GetString("CUANTOS_PEDIDOSC")
-
-	d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
-	d.Position = 0
-	cuantos_noventa = d.GetString("CUANTOS_NOVENTA")
-	d.Close
+'	d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO")
+'	d.Position = 0
+'	cuantos_pedido = d.GetString("CUANTOS_PEDIDO")
+'	
+'	d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ")
+'	d.Position = 0
+'	cuantos_pedidosc = d.GetString("CUANTOS_PEDIDOSC")
+'
+'	d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
+'	d.Position = 0
+'	cuantos_noventa = d.GetString("CUANTOS_NOVENTA")
+'	d.Close
 	
 	cmd.Initialize
 	cmd.Name = "select_cuantos_pedido_DUR"
@@ -442,7 +401,7 @@ Sub valida
 	cmd.Name = "select_cuantos_pedidoc_DUR"
 	cmd.Parameters = Array As Object(almacen, Subs.traeRuta)
 	reqManager.ExecuteQuery(cmd , 0, "valida_pedidoc")
-	Log("http://keymon.net:1781")
+'	Log("http://keymon.net:1781")
 	
 	B4XPages.MainPage.l_vPedidos2.Text = ""
 	B4XPages.MainPage.l_vProds2.Text = ""