VERSION 6.03.19

- Correcion en envio de datos de venta y reparto
2026-04-19 12:19:17 +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_Marquez.bas
+++ b/B4A/C_Marquez.bas
@@ -22,12 +22,11 @@ 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("")
-	T4.Initialize("T4", 3000)
-	T4.Enabled = False
+'	T4.Initialize("T4", 3000)
+'	T4.Enabled = False
 End Sub

 'This event will be called once, before the page becomes visible.
@@ -40,6 +39,7 @@ End Sub
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.

 Sub envia
+	enviando = True
 	carga = "SUBIR"
 	almacen = Subs.traeAlmacen
 	l_ruta.TEXT = Subs.traeRuta
@@ -324,185 +324,115 @@ Sub envia
 			Next
 		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 MARQUEZ")
-	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)
+
+	If Not(Job.Success) Then
+		LogColor("Error en red: " & Job.tag & " : " & Subs.parseHTTPError(Job.ErrorMessage), Colors.Red)
 	Else
-'		Log(3)
-		LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.RGB(0,160,0))  'Mod por CHV - 211027
+		' 2. Procesamos validaciones
+		Dim RESULT As DBResult = reqManager.HandleJob(Job)
+		
 		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_pedidos" Then
-				For Each records() As Object In RESULT.Rows
-'					Log("==========================REGISTROS="&RESULT.Rows)
-					For Each k As String In RESULT.Columns.Keys
-						Log(RESULT.Tag & ": " & k & ": " & records(RESULT.Columns.Get(k)))
-					Next
-				Next
-			End If
-			Dim resultado As DBResult = reqManager.HandleJob(Job)
-			If resultado.Tag = "piezas" Then 'query tag
-'				B4XPages.MainPage.picking.cl_picking.Clear
-				Dim piezasexiste As Int
-				sDate=DateTime.Date(DateTime.Now)
-				sTime=DateTime.Time(DateTime.Now)
-				For Each records() As Object In resultado.Rows
-					piezasexiste = records(resultado.Columns.Get("COUNT(*)"))
-					Log(piezasexiste)
-					DateTime.DateFormat = "MM/dd/yyyy"
-					DateTime.TimeFormat = "HH:mm:ss"
-					sDate=DateTime.Date(DateTime.Now)
-					sTime=DateTime.Time(DateTime.Now)
-					If piezasexiste =  0 Then
-						Dim PCNoArts As String
-						Dim PCMonto As String
-						c = B4XPages.MainPage.skmt.ExecQuery2("SELECT * FROM PEDIDO_CLIENTE WHERE PC_CLIENTE = ? AND PC_CLIENTE <> 1", Array As String(userpiezas))
-						If c.RowCount > 0 Then
-							c.Position = 0
-							PCNoArts = c.GetString("PC_NOART")
-							PCMonto = c.GetString("PC_MONTO")
-						End If
-						Dim cmd As DBCommand
-						cmd.Initialize
-						cmd.Name = "insert_HVC_MARQUEZ"
-						cmd.Parameters = Array As Object((sDate & " " & sTime), userpiezas, PCNoArts, PCMonto, almacen, l_ruta.Text)
-						reqManager.ExecuteCommand(cmd , "insert_hvc")
-'						reqManager.ExecuteCommand(cmd , $"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
-					End If
-				Next
-			End If
-			
-			Dim RESULT As DBResult = reqManager.HandleJob(Job)
-'			If RESULT.Tag = "valida_pedido" Then 'query tag
-'				For Each records() As Object In RESULT.Rows
-'					Dim CUANTOSP As Int = records(RESULT.Columns.Get("CUANTOSP"))
-'					If cuantos_pedido <= CUANTOSP Then
-'						' ToastMessageShow("rojo val ok 1 cuantosp." , True)
-'						datos_iguales = "ok"
-'						ToastMessageShow("INFO OK", False)
-'					Else
-''						If Starter.marcaCel <> "Sony" Then ToastMessageShow("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido, True)
-'						ToastMessageShow("ENVIAR DATOS (K-2)", False)
-'					End If
-'				Next
-'			End If
-			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
-			
-			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
-
-			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
-
-			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
-'				S_CP.Text = "SUBIENDO"
-				Next
-'			PB2.Progress = 100
-'			S_CP.Text = "REVISANDO ..."
-'			Log("5")
-			End If
-
-			Dim RESULT As DBResult = reqManager.HandleJob(Job)
-			If RESULT.Tag = "ins_cuestionario" Then 'query tag
-				Subs.logJobDoneResultados(RESULT)
-			End If
 		End If
 	End If
-'	Log(reqManager.reqsList.size)
-	If reqManager.reqsList.size = 0 Then
-		T4.Enabled = True
-	Else
-		T4.Enabled = False
+	
+	If RESULT.Tag = "piezas" Then 'query tag
+		Dim piezasexiste As Int
+		For Each records() As Object In RESULT.Rows
+			piezasexiste = records(RESULT.Columns.Get("COUNT(*)"))
+			Log(piezasexiste)
+			DateTime.DateFormat = "MM/dd/yyyy"
+			DateTime.TimeFormat = "HH:mm:ss"
+			sDate=DateTime.Date(DateTime.Now)
+			sTime=DateTime.Time(DateTime.Now)
+			If piezasexiste =  0 Then
+				Dim PCNoArts As String
+				Dim PCMonto As String
+				c = B4XPages.MainPage.skmt.ExecQuery2("SELECT * FROM PEDIDO_CLIENTE WHERE PC_CLIENTE = ? AND PC_CLIENTE <> 1", Array As String(userpiezas))
+				If c.RowCount > 0 Then
+					c.Position = 0
+					PCNoArts = c.GetString("PC_NOART")
+					PCMonto = c.GetString("PC_MONTO")
+				End If
+				Dim cmd As DBCommand
+				cmd.Initialize
+				cmd.Name = "insert_HVC_MARQUEZ"
+				cmd.Parameters = Array As Object((sDate & " " & sTime), userpiezas, PCNoArts, PCMonto, almacen, l_ruta.Text)
+				reqManager.ExecuteCommand(cmd , "insert_hvc")
+			End If
+		Next
 	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_MARQUEZ"
@@ -518,7 +448,7 @@ Sub valida
 	cmd.Name = "select_cuantos_pedidoc_MARQUEZ"
 	cmd.Parameters = Array As Object(almacen,l_ruta.text)
 	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 = ""