Version: 5.05.20

Esta version tiene el conteo de tickets y las letras de los productos ya son de color negro en lugar de grises.
2026-04-20 06:09:17 +00:00 · 2025-05-26 10:45:04 -06:00
parent b180ded7db
commit 174bb9e2a9
12 changed files with 304 additions and 92 deletions
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -618,7 +618,7 @@ Sub Subir_Click
 				Dim cmd As DBCommand
 				cmd.Initialize
 				cmd.Name = "UPDATE_mazapa_ACTUAL2_GPS"
-				cmd.Parameters = Array As Object(L_MONTOD.Text, L_CUANTOST.Text, l_cuantosc.Text,l_porvisitar.TEXT,c.GetString("hglat"),c.GetString("hglon"),batterystatus(0),LPT, STEYIN, STEYOUT,ALMACEN,l_ruta.Text )
+				cmd.Parameters = Array As String(L_MONTOD.Text, L_CUANTOST.Text, l_cuantosc.Text,l_porvisitar.TEXT,c.GetString("hglat"),c.GetString("hglon"),batterystatus(0),LPT, STEYIN, STEYOUT,ALMACEN,l_ruta.Text )
 				reqManager.ExecuteCommand(cmd , "update_gps")
 			Next
 		End If
@@ -663,7 +663,7 @@ Sub Subir_Click
 				Dim cmd As DBCommand
 				cmd.Initialize
 				cmd.Name = "insert_pagares_mazapa"
-				cmd.Parameters = Array As Object(C.GetString("PA_ALMACEN"),Subs.traeRuta2(c.GetString("PA_CLIENTE")),C.GetString("PA_FECHA"),C.GetString("PA_CAPTURA"),C.GetString("PA_MONTO"),C.GetString("PA_USUARIO"),C.GetString("PA_CLIENTE") )
+				cmd.Parameters = Array As String(C.GetString("PA_ALMACEN"),Subs.traeRuta2(c.GetString("PA_CLIENTE")),C.GetString("PA_FECHA"),C.GetString("PA_CAPTURA"),C.GetString("PA_MONTO"),C.GetString("PA_USUARIO"),C.GetString("PA_CLIENTE") )
 				reqManager.ExecuteCommand(cmd , "ins_pagares")
 			Next
 		End If
@@ -697,11 +697,36 @@ Sub Subir_Click
 				Dim cmd As DBCommand
 				cmd.Initialize
 				cmd.Name = "insert_clientesnuevos_mazapa3"
-				cmd.Parameters = Array As Object(c.GetString("CN_ID"), c.GetString("CN_FECHA"), c.GetString("CN_USER"), c.GetString("CN_LAT"), c.GetString("CN_LON"), c.GetString("CN_NOMBRE"), c.GetString("CN_DIRECCION"),ALMACEN, c.GetString("CN_RUTA"), "En espera",c.GetString("CN_GIRO"),dialetra, c.GetString("CN_SOLICITA"), c.GetString("CN_COLONIA"), c.GetString("CN_TELEFONO"), c.GetString("CN_REFERENCIA"), c.GetString("CN_HR_INICIO"), c.GetString("CN_HR_FIN"))
+				cmd.Parameters = Array As String(c.GetString("CN_ID"), c.GetString("CN_FECHA"), c.GetString("CN_USER"), c.GetString("CN_LAT"), c.GetString("CN_LON"), c.GetString("CN_NOMBRE"), c.GetString("CN_DIRECCION"),ALMACEN, c.GetString("CN_RUTA"), "En espera",c.GetString("CN_GIRO"),dialetra, c.GetString("CN_SOLICITA"), c.GetString("CN_COLONIA"), c.GetString("CN_TELEFONO"), c.GetString("CN_REFERENCIA"), c.GetString("CN_HR_INICIO"), c.GetString("CN_HR_FIN"))
 				reqManager.ExecuteCommand(cmd , "inst_clientesn")
 			Next
 		End If
 		c.Close
+		
+		c = Starter.skmt.ExecQuery("SELECT * FROM TICKET_TEL_CEDIS")
+		If c.RowCount > 0 Then
+			For i = 0 To c.RowCount - 1
+				c.Position = i
+				Dim cmd As DBCommand
+				cmd.Initialize
+				cmd.Name = "insert_TICKET_TEL_CEDIS_MAZAPA"
+				Log(c.GetString("TTC_FOLIO"))
+				cmd.Parameters = Array As String( _
+            c.GetString("TTC_TELEFONO"), _
+            c.GetString("TTC_ID_ALMACEN"), _
+            c.GetString("TTC_NUM_TICKET"), _
+            c.GetString("TTC_ID_CLIENTE"), _
+            c.GetString("TTC_RUTA"), _
+            c.GetString("TTC_FECHA"), _
+            c.GetString("TTC_MONTO"), _
+            c.GetString("TTC_FOLIO"), _
+            c.GetString("TTC_USUARIO"), _
+            c.GetString("TTC_FOLIO_UNICO") _
+        )
+				reqManager.ExecuteCommand(cmd , "insert_TICKET_TEL_CEDIS")
+			Next
+		End If
+		c.Close

 '		c=B4XPages.MainPage.skmt.ExecQuery("SELECT  HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA")
 '		If c.RowCount>0 Then
@@ -729,7 +754,7 @@ Sub Subir_Click
 				cmd.Name = "insert_pedido_CLIENTE_mazapa"
 				PCNoArts = c.GetString("PC_NOART")
 				PCMonto = c.GetString("PC_MONTO")
-				cmd.Parameters = Array As Object(c.GetString("PC_CLIENTE"), c.GetString("PC_FECHA"), c.GetString("PC_USER"), c.GetString("PC_NOART"), c.GetString("PC_MONTO"), c.GetString("PC_LON"), c.GetString("PC_LAT"), ALMACEN, Subs.traeRuta2(c.GetString("PC_CLIENTE")), c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA"), c.GetString("PC_IMPRESO"))
+				cmd.Parameters = Array As String(c.GetString("PC_CLIENTE"), c.GetString("PC_FECHA"), c.GetString("PC_USER"), c.GetString("PC_NOART"), c.GetString("PC_MONTO"), c.GetString("PC_LON"), c.GetString("PC_LAT"), ALMACEN, Subs.traeRuta2(c.GetString("PC_CLIENTE")), c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA"), c.GetString("PC_IMPRESO"))
 				reqManager.ExecuteCommand(cmd , "ins_pedidos")
 				Log(">>>>>>  INSERT PEDIDO_CLIENTE")
 			Next
@@ -749,7 +774,7 @@ Sub Subir_Click
 				cmd.Initialize
 				cmd.Name = "insert_pedido_PE_mazapa" 'CON TOTALES INCLUIDOS
 				Log(c.GetString("PE_CEDIS")&", "&ALMACEN&", "&c.GetString("PE_COSTO_TOT")&", "&c.GetString("PE_COSTOU")&", "&c.GetString("PE_CANT")&", "&c.GetString("PE_PRONOMBRE")&", "&c.GetString("PE_PROID")&", "&c.GetString("PE_CLIENTE")&", "&c.GetString("PE_FECHA")&", "&c.GetString("PE_USUARIO")&", "&Subs.traeRuta2(c.GetString("PE_CLIENTE"))&", "& c.GetString("PE_COSTO_SIN")&", "&c.GetString("PE_DESC")&", "&c.GetString("PE_FOLIO")&", "& ALMACEN)
-				cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),ALMACEN,c.GetString("PE_COSTO_TOT"),c.GetString("PE_COSTOU"),c.GetString("PE_CANT"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CLIENTE"),c.GetString("PE_FECHA"),c.GetString("PE_USUARIO"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),c.GetString("PE_FOLIO"),c.GetString("PE_CANTC"),c.GetString("PE_BCAJAS"), c.GetString("PE_IMPRESO"))
+				cmd.Parameters = Array As String(c.GetString("PE_CEDIS"),ALMACEN,c.GetString("PE_COSTO_TOT"),c.GetString("PE_COSTOU"),c.GetString("PE_CANT"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CLIENTE"),c.GetString("PE_FECHA"),c.GetString("PE_USUARIO"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),c.GetString("PE_FOLIO"),c.GetString("PE_CANTC"),c.GetString("PE_BCAJAS"), c.GetString("PE_IMPRESO"))
 				reqManager.ExecuteCommand(cmd , $"ins_pedidosPendientes_prods_${c.GetString("PE_CLIENTE")}_${c.GetString("PE_PROID")}"$)
 '				Log($">>>>  INS_PEDIDO= ${C.GetString("PE_CEDIS")},${ALMACEN},${C.GetString("PE_COSTO_TOT")},${C.GetString("PE_COSTOU")},${C.GetString("PE_CANT")}, ${C.GetString("PE_PRONOMBRE")}, ${C.GetString("PE_PROID")}, ${C.GetString("PE_CLIENTE")}, ${C.GetString("PE_FECHA")}, ${C.GetString("PE_USUARIO")}, ${C.GetString("PE_RUTA")}, ${C.GetString("PE_COSTO_SIN")}, ${C.GetString("PE_DESC")}, ${c.GetString("PE_FOLIO")}, ${PCNoArts}, ${PCMonto}"$)
 '				cmd.Name = "insert_pedido_INTMEX"  ' SIN TOTALES INCLUIDOS
@@ -771,7 +796,7 @@ Sub Subir_Click
 				Dim cmd As DBCommand
 				cmd.Initialize
 				cmd.Name = "insert_noventa_mazapa"
-				cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), ALMACEN, Subs.traeRuta2(c.GetString("NV_CLIENTE")))
+				cmd.Parameters = Array As String(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), ALMACEN, Subs.traeRuta2(c.GetString("NV_CLIENTE")))
 				reqManager.ExecuteCommand(cmd , "inst_noventa")
 			Next
 		End If
@@ -788,7 +813,7 @@ Sub Subir_Click
 				Dim cmd As DBCommand
 				cmd.Initialize
 				cmd.Name = "insert_geocerca_mazapa"
-				cmd.Parameters = Array As Object(C.GetString("HGCLIENTE"),C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON"))
+				cmd.Parameters = Array As String(C.GetString("HGCLIENTE"),C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON"))
 				reqManager.ExecuteCommand(cmd , "inst_noventa")
 			Next
 		End If
@@ -802,7 +827,7 @@ Sub Subir_Click
 				Dim cmd As DBCommand
 				cmd.Initialize
 				cmd.Name = "insert_face_like_mazapa"
-				cmd.Parameters = Array As Object(C.GetString("HFCLIENTE"),C.GetString("HFALIAS"),C.GetString("HFRUTA"),C.GetString("HFALMACEN"))
+				cmd.Parameters = Array As String(C.GetString("HFCLIENTE"),C.GetString("HFALIAS"),C.GetString("HFRUTA"),C.GetString("HFALMACEN"))
 				reqManager.ExecuteCommand(cmd , "inst_noventa")
 			Next
 		End If
@@ -818,7 +843,7 @@ Sub Subir_Click
 		Dim cmd As DBCommand
 		cmd.Initialize
 		cmd.Name ="insert_drop_mazapa"
-		cmd.Parameters = Array As Object(usuario,l_ruta.Text,sDate & sTime, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO",ALMACEN,Application.VersionName)
+		cmd.Parameters = Array As String(usuario,l_ruta.Text,sDate & sTime, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO",ALMACEN,Application.VersionName)
 		reqManager.ExecuteCommand(cmd , "inst_noventa")
 		img2.Visible =True
 		PORCENTAJE = Round(100/ (cuantos_noventa + cuantos_pedido + cuantos_pedidosc + 1))
@@ -847,7 +872,7 @@ Sub Subir_Click
 				Dim cmd As DBCommand
 				cmd.Initialize
 				cmd.Name = "select_piezas_mazapa"
-				cmd.Parameters = Array As Object(c.GetString("PC_CLIENTE"), ALMACEN,l_ruta.Text)
+				cmd.Parameters = Array As String(c.GetString("PC_CLIENTE"), ALMACEN,l_ruta.Text)
 				userpiezas = c.GetString("PC_CLIENTE")
 				reqManager.ExecuteQuery(cmd , 0, "piezas")
 			Next
@@ -873,7 +898,9 @@ Sub cargar_Click
 			pedidodiaanterior = True
 		End If
 	End If
+	
 	If Not (pedidodiaanterior) Then
+'		Dim rut As Cursor = Starter.skmt.ExecQuery("SELECT RUTA FRO")
 		CARGA = "CARGAR"
 		p_mandaInfo.Width = Root.Width
 		p_mandaInfo.Height = Root.Height
@@ -959,6 +986,17 @@ Sub cargar_Click
 		Dim P As PhoneId
 '	imei = P.GetDeviceId

+		Dim cmd As DBCommand
+		cmd.Initialize
+		cmd.Name = "select_telefono_cedis_MAZAPA"
+		cmd.Parameters = Array As Object(ALMACEN)
+		reqManager.ExecuteQuery(cmd, 0, "tel_cedis")
+		
+		cmd.Initialize
+		cmd.Name = "select_num_nom_user_MAZAPA"
+		cmd.Parameters = Array As Object(usuario)
+		reqManager.ExecuteQuery(cmd , 0, "nom_user")
+
 		cmd.Initialize
 		cmd.Name = "select_marcas_MAZ"
 		cmd.Parameters = Array As Object(usuario)
@@ -2064,6 +2102,22 @@ Sub JobDone(Job As HttpJob)
 				Dim idCliente As String = records(RESULT.Columns.Get("HC_CLIENTE"))
 				Starter.skmt.ExecNonQuery2("INSERT INTO HIST_CUESTIONARIO(HC_CLIENTE) VALUES (?)", Array As Object (idCliente))
 			Next
+		End If		
+
+		If resultado.Tag = "tel_cedis" Then
+			For Each records() As Object In resultado.Rows
+				Dim TTC_TELEFONO As String = records(resultado.Columns.Get("CAT_AL_TELEFONO"))
+				B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As Object ("TEL_CEDIS"))
+				B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("TEL_CEDIS", TTC_TELEFONO))
+			Next
+		End If
+
+		If resultado.Tag = "nom_user" Then
+			For Each records() As Object In resultado.Rows
+				Dim nombre_user As String = records(resultado.Columns.Get("CAT_LO_NOMBRE"))
+				B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As Object ("nom_usuario"))
+				B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("nom_usuario", nombre_user))
+			Next
 		End If
 	End If
 	Job.Release
@@ -2088,6 +2142,8 @@ Private Sub B4XPage_CloseRequest As ResumableSub
 	Else
 		B4XPages.ShowPage("login")
 	End If
+	
+	
 	Return False
 End Sub

@@ -2200,6 +2256,7 @@ Sub t2_tick
 	B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM RUTAA")
 	B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM CLIENTES_NUEVOS")
 	B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENV_MONTO_LIQ")
+	B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM TICKET_TEL_CEDIS")
 	bitacora.borraDatosBitacora
 	B4XPage_Appear
 	l_rutasuplencia.Visible = False