Version final reparto

2026-04-20 14:19:27 +00:00 · 2024-08-17 14:47:02 -06:00
parent 8f4a77bbf1
commit 5f6d16fba0
19 changed files with 2810 additions and 1330 deletions
--- a/B4A/B4XMainPage.bas
+++ b/B4A/B4XMainPage.bas
@@ -84,6 +84,11 @@ Sub Class_Globals
 	Private lv_server As ListView
 	Public Provider As FileProvider
 	Public rutaBDBackup As String = ""
+	Private B_Can_Monto As Button
+	Private B_Aceptar_Monto As Button
+	Private ET_Add_Monto As EditText
+	Private p_add_monto As Panel
+	Dim sDate, sTime As String
 End Sub

 Public Sub Initialize
@@ -132,6 +137,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	B4XPages.AddPage("tabulador", tabulador)
 	checklist.Initialize
 	B4XPages.AddPage("checklist",checklist)
+	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENV_MONTO_LIQ (EML_MONTO TEXT, EML_ALMACEN TEXT, EML_RUTA TEXT, EML_USUARIO TEXT, EML_FECHA_PED TEXT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TABULADOR_MONEDAS(VEINTE TEXT, DIEZ TEXT, CINCO TEXT, DOS TEXT, PESO TEXT, CENTAVO TEXT, TOTAL TEXT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TABULADOR_BILLETES(MIL TEXT, QUINIENTOS TEXT, DOCIENTOS TEXT, CIEN TEXT, CINCUENTA TEXT, VEINTE TEXT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_VENTAS2 (HVD_PARCIAL TEXT, HVD_RECHAZO TEXT, HVD_NUM_REGISTRO TEXT, HVD_NUM_TICKET TEXT, HVD_PROID TEXT, HVD_CODPROMO TEXT, HVD_FECHA TEXT, HVD_ESTATUS TEXT, HVD_CLIENTE TEXT, HVD_PRONOMBRE TEXT, HVD_CANT TEXT, HVD_COSTO_TOT TEXT)")
@@ -145,18 +151,28 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	Subs.agregaColumna("REPARTO", "REP_PRODREGISTRO", "TEXT")
 	Subs.agregaColumna("kmt_info", "SECUENCIA", "INT")
 	Subs.agregaColumna("REPARTO", "REP_PRODID", "TEXT")
+	Subs.agregaColumna("PEDIDO", "PE_CLIENTEOR", "TEXT")
+	Subs.agregaColumna("PEDIDO", "PE_CAJAS", "TEXT")
+	Subs.agregaColumna("PEDIDO", "PE_BCAJAS", "TEXT")
 	Subs.agregaColumna("REPARTO", "REP_CLI_ORIG", "TEXT")
 	Subs.agregaColumna("REPARTO", "REP_PRECIO", "TEXT")
 	Subs.agregaColumna("REPARTO", "REP_RECHAZO", "INTEGER")
 	Subs.agregaColumna("RECHAZOS", "R_PRECIO", "TEXT")
 	Subs.agregaColumna("VENTAS", "V_PRECIO", "TEXT")
 	Subs.agregaColumna("HIST_VENTAS","PLACA","TEXT")
+	Subs.agregaColumna("HIST_VENTAS","HVD_RECHAZOCANT","TEXT")
+	Subs.agregaColumna("HIST_VENTAS","HVD_RECHAZOCANTC","TEXT")
+	Subs.agregaColumna("HIST_VENTAS","BCAJAS","TEXT")
+	Subs.agregaColumna("HIST_VENTAS","CANTC","TEXT")
+	Subs.agregaColumna("CAT_GUNAPROD","CONVERSION","TEXT")
+	Subs.agregaColumna("CAT_GUNAPROD","PRECIOCONVER","TEXT")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTAA (RUTAA TEXT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS wayPoints (codigo TEXT, indice INT)")
 '	Dim server As String = "http://187.189.244.154:1781"
-'	Dim server As String = "http://11.0.0.168:1781"
-	Dim server As String = "http://keymon.lat:9000"
+	Dim server As String = "http://192.168.100.10:1781"
+'	Dim server As String = "http://keymon.lat:9000"
 '	server = "http://10.0.0.205:1782"
+'	Dim server As String = "http://192.168.100.10:1781"
 '	server = "http://11.0.0.44:1782"
 	reqManager.Initialize(Me, B4XPages.MainPage.server)
 	LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red)
@@ -300,6 +316,66 @@ Sub JobDone(Job As HttpJob)
 				paso1 = 1
 			End If
 		End If
+		
+		If Job.JobName = "DBRequest" Then
+			Dim result As DBResult = reqManager.HandleJob(Job)
+			If result.Tag = "SelectMontoLiq" Then
+				For Each records() As Object In result.Rows
+					Dim CUENTA As String = records(result.Columns.Get("CUENTA"))
+					
+					DateTime.DateFormat = "MM/dd/yyyy"
+					sDate=DateTime.Date(DateTime.Now)
+					sTime=DateTime.Time(DateTime.Now)
+					Private f As Cursor=Starter.skmt.ExecQuery("select RUTAA from RUTAA")
+					f.Position=0
+					Private a As Cursor =Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
+					a.Position = 0
+					
+					Private c2 As Cursor
+					c2=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
+					c2.Position=0
+					If c2.RowCount > 0 Then c2.GetString("USUARIO")
+					
+					Log(CUENTA & "----------------------!!")
+					If CUENTA = "0" Then
+						
+						c = Starter.skmt.ExecQuery2("SELECT * FROM ENV_MONTO_LIQ WHERE EML_USUARIO = ? AND EML_ALMACEN = ? AND EML_RUTA = ?", Array As String (c2.GetString("USUARIO"), a.GetString("ID_ALMACEN"), f.GetString("RUTAA")))
+						If c.RowCount > 0 Then
+'							For i=0 To c.RowCount -1
+							c.Position=0
+							Dim cmd As DBCommand
+							cmd.Initialize
+							cmd.Name = "insert_Monto_Liq_MARQUEZrep"
+							cmd.Parameters = Array As Object(c.GetString("EML_MONTO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"), c.GetString("EML_USUARIO"), "PREVENTA", c.GetString("EML_FECHA_PED"))
+							reqManager.ExecuteCommand(cmd , "ins_Mon_Liq")
+							MsgboxAsync("Monto Enviado", "Atención")
+'							Next
+						End If
+						c.Close
+					Else if CUENTA > "0" Then
+						
+						c = Starter.skmt.ExecQuery2("SELECT * FROM ENV_MONTO_LIQ WHERE EML_USUARIO = ? AND EML_ALMACEN = ? AND EML_RUTA = ?", Array As String (c2.GetString("USUARIO"), a.GetString("ID_ALMACEN"), f.GetString("RUTAA")))
+						If c.RowCount > 0 Then
+'							For i=0 To c.RowCount -1
+							c.Position = 0
+							cmd.Initialize
+							cmd.Name = "update_MontoCuenta_MARQUEZrep"
+							cmd.Parameters = Array As Object(c.GetString("EML_MONTO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"), c.GetString("EML_USUARIO"),c.GetString("EML_FECHA_PED"),"PREVENTA")
+							
+							Log(c.GetString("EML_MONTO")& " " & c.GetString("EML_ALMACEN")& " " & c.GetString("EML_RUTA")& " " & c.GetString("EML_USUARIO"))
+							reqManager.ExecuteCommand(cmd, "update_MC")
+							MsgboxAsync("Se sobre escribio el Monto", "Atención")
+'							Next
+						End If
+						c2.Close
+						c.Close
+					End If
+					f.Close
+					a.Close
+				Next
+			End If
+		End If
+		
 		Job.Release
 	End If
 	
@@ -414,4 +490,92 @@ End Sub
 'appUpdater - Ocultamos el anuncio de que se esta descargando el nuevo apk
 Sub ocultaProgreso
 	ProgressDialogHide
+End Sub
+
+Private Sub b_CargarMonto_Click
+	
+	c = Starter.skmt.ExecQuery("SELECT *  FROM kmt_info")
+	c.Position = 0
+	If c.RowCount < 0 Or c.RowCount = 0 Then
+		MsgboxAsync("No hay ruta cargada, favor de cargar día","Atención")
+	Else 
+		Subs.panelVisible(p_add_monto,0,0)
+	End If
+	c.Close
+
+End Sub
+
+Private Sub p_add_monto_Click
+	
+End Sub
+
+Private Sub B_Aceptar_Monto_Click
+	DateTime.DateFormat = "MM/dd/yyyy"
+	sDate=DateTime.Date(DateTime.Now)
+	sTime=DateTime.Time(DateTime.Now)
+	
+	Private f As Cursor=Starter.skmt.ExecQuery("select RUTAA from RUTAA")
+	f.Position=0
+
+	Private a As Cursor=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
+	If a.RowCount>0 Then
+		a.Position=0
+	End If
+	
+	Private a2 As Cursor = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS")
+	If a2.RowCount>0 Then
+		a2.Position=0
+		Dim fecha() As String = Regex.Split(" ", a2.GetString("HVD_FECHA"))
+		Dim fecha2() As String = Regex.Split("-", fecha(0))
+		Dim fecha3 As String = fecha2(2)&"/"&fecha2(1)&"/"&fecha2(0)
+		Log(fecha3)
+		Dim hora() As String = Regex.Split("\.", fecha(1))
+		Log(hora(0))
+	End If
+	
+	
+	
+	Private cI As Cursor
+	Private u As String = "SinUsuario"
+	cI=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
+	cI.Position=0
+	If cI.RowCount > 0 Then u = cI.GetString("USUARIO")
+	Private g As Cursor = Starter.skmt.ExecQuery("select * from ENV_MONTO_LIQ")
+	If g.RowCount = 0 Then
+		Starter.skmt.ExecNonQuery2("INSERT INTO ENV_MONTO_LIQ VALUES (?,?,?,?,?)", Array As Object(ET_Add_Monto.Text, a.GetString("ID_ALMACEN"), f.GetString("RUTAA"), u, fecha3 & " " & hora(0)))
+		f.Close
+		a.Close
+	
+		c = Starter.skmt.ExecQuery("SELECT * FROM ENV_MONTO_LIQ")
+		If c.RowCount > 0 Then
+			c.Position = 0
+			Dim cmd As DBCommand
+			cmd.Initialize
+			cmd.Name = "select_MontoCuenta_MARQUEZrep"
+			cmd.Parameters = Array As Object(c.GetString("EML_USUARIO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"),c.GetString("EML_FECHA_PED"))
+			reqManager.ExecuteQuery(cmd , 0, "SelectMontoLiq")
+		End If
+		c.Close
+	Else
+		Starter.skmt.ExecNonQuery2("UPDATE ENV_MONTO_LIQ SET EML_MONTO = ? WHERE EML_ALMACEN = ? AND EML_RUTA = ? AND EML_USUARIO = ?", Array As String (ET_Add_Monto.Text ,a.GetString("ID_ALMACEN"), f.GetString("RUTAA"), cI.GetString("USUARIO")))
+		f.Close
+		a.Close
+	
+		c = Starter.skmt.ExecQuery("SELECT * FROM ENV_MONTO_LIQ")
+		If c.RowCount > 0 Then
+			c.Position = 0
+			Dim cmd As DBCommand
+			cmd.Initialize
+			cmd.Name = "select_MontoCuenta_MARQUEZrep"
+			cmd.Parameters = Array As Object(c.GetString("EML_USUARIO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"),c.GetString("EML_FECHA_PED"))
+			reqManager.ExecuteQuery(cmd , 0, "SelectMontoLiq")
+		End If
+		c.Close
+	End If
+
+	p_add_monto.Visible = False
+End Sub
+
+Private Sub B_Can_Monto_Click
+	p_add_monto.Visible = False
 End Sub