v5.05.07

2026-04-20 06:09:19 +00:00 · 2025-05-20 12:01:06 -06:00
parent 5df4ebc5b7
commit af59ec7cd9
12 changed files with 476 additions and 70 deletions
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -99,6 +99,11 @@ Sub Class_Globals
 	Private P_PAGARES As Panel
 	
 	Private l_montopagares As Label
+	Private l_numpagares As Label
+	Private l_pagarescobrados As Label
+	Private l_pagaresnuevos As Label
+	Private l_montoaliquidar As Label
+	Private Label16 As Label
 End Sub

 'You can add more parameters here.
@@ -122,10 +127,10 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	b=Starter.skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente")
 	b.Position=0
 	Cuantos = b.GetString("CUANTOS")
-	d=Starter.skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0 AND  CAT_CL_RUTA <> 1000")
+	d=Starter.skmt.ExecQuery("select count(distinct(CAT_CL_NOMBRE)) as TOTAL_VISITAR from kmt_info where gestion = 0 AND  CAT_CL_RUTA <> 1000")
 	D.Position=0
 	b.Close
-	e=Starter.skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info WHERE CAT_CL_RUTA <> 1000")
+	e=Starter.skmt.ExecQuery("select COUNT(distinct(CAT_CL_NOMBRE)) as POR_VISITAR from kmt_info WHERE CAT_CL_RUTA <> 1000")
 	e.Position=0
 	If Cuantos = 0 Then
 		l_aLiquidar.Text = 0
@@ -653,6 +658,18 @@ Sub B4XPage_Appear
 	g8.Position = 0
 	
 	
+	Dim pagarescobrados As Cursor = Starter.skmt.ExecQuery("SELECT IfNULL(SUM(a_abono),0) as a_abono FROM ABONOS")
+	pagarescobrados.Position = 0
+	l_pagarescobrados.Text = NumberFormat2(pagarescobrados.GetDouble("a_abono"),0,2,2,False)
+	pagarescobrados.Close
+	
+	Dim pagaresnuevos As Cursor = Starter.skmt.ExecQuery("SELECT IfNULL(SUM(distinct(PA_MONTO)),0) as PA_MONTO FROM PAGARES")
+	pagaresnuevos.Position = 0
+	l_pagaresnuevos.Text = NumberFormat2(pagaresnuevos.GetDouble("PA_MONTO"),0,2,2,False)
+	pagaresnuevos.Close
+	
+	l_montoaliquidar.Text = NumberFormat2((l_pagarescobrados.Text+ L_MONTOE.Text - l_pagaresnuevos.Text),0,2,2,False)
+	
 	B4XPages.MainPage.clientesVisitados = L_MONTOE.Text
 	B4XPages.MainPage.clientesVenta = l_cuantosc.Text
 	B4XPages.MainPage.clientesRechazo = l_cuantosn.Text
@@ -671,6 +688,8 @@ Sub B4XPage_Appear
 	If l_ctast.Text = 0 And l_porvisitar.Text <> 0 Then
 		Label9.Visible = True
 		L_MONTOE.Visible = True
+		l_montoaliquidar.Visible = True
+		Label16.Visible = True
 		'' hacer validacion su hay rechazo
 '		c=Starter.skmt.ExecQuery("select * from HIST_VENTAS WHERE hvd_rechazo <> 2 and HVD_RECHAZOCANT > 0 order by HVD_CODPROMO desc, HVD_PRONOMBRE asc")
 '		If c.RowCount > 0 Then
@@ -680,6 +699,8 @@ Sub B4XPage_Appear
 '		End If
 		b_venta_emp.Visible = False
 	Else
+		Label16.Visible = False
+		l_montoaliquidar.Visible = False
 		Label9.Visible = False
 		L_MONTOE.Visible = False
 		b_venta_emp.Visible = False
@@ -760,6 +781,26 @@ Sub Subir_Click
 '	reqManager.ExecuteQuery(cmd , 0, "estatus")
 End Sub

+Sub envia_reparto
+	c = Starter.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO, NV_REPROGRAMAR FROM NOVENTA")
+	D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
+	If c.RowCount>0 Then
+		For i=0 To c.RowCount -1
+			c.Position=i
+			foto1 = c.GetBlob("NV_FOTO")
+			Dim cmd As DBCommand
+			cmd.Initialize
+			cmd.Name = "insert_reparto_REPG_GUNA_VN"
+			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, l_ruta.Text, C.GetString("NV_REPROGRAMAR"))
+			reqManager.ExecuteCommand(cmd ,  "inst_noventa_")
+		Next
+		c.Close
+	End If
+	d.Position=0
+	cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
+	d.Close
+End Sub
+
 Sub envioinfo
 	' NOVENTA
 	c = Starter.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO, NV_REPROGRAMAR FROM NOVENTA")
@@ -818,7 +859,31 @@ Sub envioinfo
 	If ab.RowCount > 0 Then
 		For i=0 To ab.RowCount -1
 			ab.Position = i
-			Dim ab1 As Cursor = Starter.skmt.ExecQuery($"SELECT SUM(a_abono) AS a_abono from ABONOS where a_cliente = '${ab.GetString("a_cliente")}'"$)
+			Dim ab1 As Cursor = Starter.skmt.ExecQuery($"SELECT SUM(a_abono) AS a_abono from ABONOS where a_cliente = '${ab.GetString("a_cliente")}' and a_tipoabono IS NULL"$)
+			ab1.Position = 0
+
+			Dim cmd As DBCommand
+			cmd.Initialize
+			cmd.Name = "insert_abono_REP_GUNA_VN"
+			cmd.Parameters = Array As Object( ab.GetString("a_usuario"), ab.GetString("a_ruta"), ab.GetString("a_cliente"), ab1.GetString("a_abono"), ab.GetString("a_fecha"),ALMACEN,"REPARTO",d.GetString("RUTAA") )
+			reqManager.ExecuteCommand(cmd , $"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
+			ab1.Close
+			Log($"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
+		Next
+	End If
+	ab.Close
+	d.Close
+	
+	
+	'ABONOS NUEVOS
+	d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
+	d.Position = 0
+	Dim ab As Cursor = Starter.skmt.ExecQuery($"SELECT * from ABONOS where a_enviado is null"$)
+	Log(ab.RowCount)
+	If ab.RowCount > 0 Then
+		For i=0 To ab.RowCount -1
+			ab.Position = i
+			Dim ab1 As Cursor = Starter.skmt.ExecQuery($"SELECT SUM(a_abono) AS a_abono from ABONOS where a_cliente = '${ab.GetString("a_cliente")}' and a_tipoabono IS NOT NULL"$)
 			ab1.Position = 0

 			Dim cmd As DBCommand
@@ -897,7 +962,7 @@ Sub envioinfo
 	End If
 	'FIN TABULADOR
 	
-	c = Starter.skmt.ExecQuery("SELECT IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_CLIENTE, HVD_PROID, HVD_FECHA, HVD_CODPROMO, HVD_NUM_TICKET, HVD_CANT, CONSECUTIVO, BCAJAS, CANTC FROM HIST_VENTAS")
+	c = Starter.skmt.ExecQuery("SELECT IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_CLIENTE, HVD_PROID, HVD_FECHA, HVD_CODPROMO, HVD_NUM_TICKET, HVD_CANT, CONSECUTIVO, BCAJAS, CANTC FROM HIST_VENTAS where HVD_PRONOMBRE  <> 'Cobranza Pendiente'")
 	If c.RowCount > 0 Then
 		For i=0 To c.RowCount -1
 			c.Position = i
@@ -925,14 +990,16 @@ Sub envioinfo
 			If c.GetString("HVD_RECHAZOCANT") <> "0" Then
 				Log((c.GetString("HVD_RECHAZOCANT")-restacant))
 				cmd.Initialize
-				cmd.Name = "update_HVD_GUNA_VN"
-				cmd.Parameters = Array As String(c.GetString("HVD_RECHAZOCANT"),sDate& " "& sTime,1, c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), d4.GetString("CAT_CL_RUTA"),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT"))
+				
+				cmd.Name = "update_HVD_GUNA_VN2"
+				cmd.Parameters = Array As String(c.GetString("HVD_RECHAZOCANT"),sDate& " "& sTime,1,Subs.traeUsuario, c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), d4.GetString("CAT_CL_RUTA"),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT"))
 				reqManager.ExecuteCommand(cmd, "update_hvd")
+				Log("ENVIE RECHAZO")
 			Else
 				cmd.Initialize
-				cmd.Name = "update_HVD_GUNA_VN"
+				cmd.Name = "update_HVD_GUNA_VN2"
 				Log( c.GetString("CANTC")& c.GetString("HVD_CLIENTE")& c.GetString("HVD_PROID")&fecha3&" "&hora(0)& d4.GetString("CAT_CL_RUTA")&ALMACEN&l_ruta.Text&c.GetString("HVD_CODPROMO")&c.GetString("HVD_NUM_TICKET")& c.GetString("HVD_CANT"))
-				cmd.Parameters = Array As String("","","", c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), d4.GetString("CAT_CL_RUTA"),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT"))
+				cmd.Parameters = Array As String("","","",Subs.traeUsuario, c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), d4.GetString("CAT_CL_RUTA"),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT"))
 				reqManager.ExecuteCommand(cmd, "update_hvd")
 			End If
 			d4.Close
@@ -1028,14 +1095,14 @@ Sub cargar_Click

 		cmd.Initialize
 		cmd.Name = "select_cliente_re_REPG_GUNA_VN"
-		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,e_ruta.text, ALMACEN,e_ruta.Text,ALMACEN)
+		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,e_ruta.text, ALMACEN,e_ruta.Text,ALMACEN,e_ruta.Text,ALMACEN,ALMACEN)',e_ruta.Text,ALMACEN
 		reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
 		Log($"Pedimos kmt_datos"$)
 		reqs.Add("kmt_datos")

 		cmd.Initialize
 		cmd.Name = "select_ventad2_re_REPG_GUNA_VN"
-		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,e_ruta.Text,ALMACEN)
+		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,e_ruta.Text,ALMACEN)',e_ruta.Text,ALMACEN
 		reqManager.ExecuteQuery(cmd , 0, "hist_datos")
 		Log($"Pedimos hist_datos"$)
 		reqs.Add("hist_datos")
@@ -1159,6 +1226,7 @@ Sub JobDone(Job As HttpJob)
 		If Job.JobName = "DBRequest" Then
 			Dim result As DBResult = reqManager.HandleJob(Job)
 			If result.Tag = "select_abonosp" Then 'query tag
+				Starter.skmt.ExecNonQuery("DELETE FROM ABONOSP")
 				For Each records() As Object In result.Rows
 					Dim NOTA As String = records(result.Columns.Get("NOTA"))
 					Dim CLIENTE As String = records(result.Columns.Get("CLIENTE"))
@@ -1686,6 +1754,7 @@ Sub e_ruta_EnterPressed
 		If RES = DialogResponse.POSITIVE Then
 			e_ruta.Text = ""
 			Starter.skmt.ExecNonQuery("delete from PICK_CIEGO")
+			Starter.skmt.ExecNonQuery("delete from HIST_REPARTO_GEO")
 			Starter.skmt.ExecNonQuery("delete from pedido_cliente")
 			Starter.skmt.ExecNonQuery("delete from PAGARES")
 			Starter.skmt.ExecNonQuery("delete from CHECADO_CHECK")
@@ -1754,7 +1823,7 @@ Sub B_CLIEPROD_Click
 		Panel1.Visible = True
 		Panel1.BringToFront
 		Btn_Ubicar_Ru.Visible=False
-		c=Starter.skmt.ExecQuery("select * from kmt_info WHERE gestion <> 0 order by HORAENT")
+		c=Starter.skmt.ExecQuery("select  distinct(CAT_CL_NOMBRE), CAT_CL_CODIGO, gestion from kmt_info WHERE gestion <> 0 order by HORAENT")
 		Subs.SetDivider(ListView1, Colors.LightGray, 2)
 		ListView1.Clear
 		ListView1.TwoLinesLayout.ItemHeight = 120dip
@@ -2082,14 +2151,9 @@ Private Sub B_PAGARES_Click
 '	Dim LABEL1 As Label
 '	LABEL1.TextSize = 20
 '	LABEL1.Typeface = Typeface.CreateNew(Typeface.DEFAULT_BOLD, Typeface.STYLE_BOLD)
-	Private label1 As Label
 	
-	label1 = ListView2.TwoLinesAndBitmap.Label
-	label1.TextSize = 20
-	label1.TextColor = Colors.White
-	label1.Typeface = Typeface.CreateNew(Typeface.DEFAULT_BOLD, Typeface.STYLE_BOLD)
 	
-	label1.Height = 120dip
+	
 	Button1.Left = (P_PAGARES.Width - Button1.Width) / 2
 	Button1.Top = P_PAGARES.Height - Button1.Height
 	Subs.centraListView(ListView2,Root.Width)
@@ -2097,27 +2161,64 @@ Private Sub B_PAGARES_Click
 	Private g5 As Cursor = Starter.skmt.ExecQuery("SELECT SUM(SALDO_PENDIENTE) as SALDO_PENDIENTE FROM ABONOSP")
 	If g5.RowCount > 0 Then
 		g5.Position = 0 
-		l_montopagares.Text = g5.GetString("SALDO_PENDIENTE")
+		Log(NumberFormat2( g5.GetDouble("SALDO_PENDIENTE"),0,2,2,False))
+		l_montopagares.Text = NumberFormat2( g5.GetDouble("SALDO_PENDIENTE"),0,2,2,False)
 	Else
 		l_montopagares.Text = 0
 	End If
 	g5.Close
 	
+	Private g7 As Cursor = Starter.skmt.ExecQuery("SELECT count(*) as SALDO_PENDIENTE FROM ABONOSP")
+	If g7.RowCount > 0 Then
+		g7.Position = 0
+		l_numpagares.Text = g7.GetString("SALDO_PENDIENTE")
+	Else
+		l_numpagares.Text = 0
+	End If
+	g7.Close
+	
 	Private g6 As Cursor = Starter.skmt.ExecQuery("select NOTA,NOMBRE,SALDO_PENDIENTE from ABONOSP")
 	
-	ListView2.SingleLineLayout.Label.TextColor = Colors.White
 	ListView2.Clear
+	ListView2.TwoLinesLayout.ItemHeight =80dip
+	Dim label1 As Label
+	label1 = ListView2.TwoLinesLayout.Label
+	label1.TextSize = 16
+	label1.Height = 45dip
+ '	label1.
+	label1.Typeface = Typeface.CreateNew(Typeface.DEFAULT_BOLD, Typeface.STYLE_BOLD)
+	label1.TextColor = Colors.White
+	Dim label2 As Label
+	label2 = ListView2.TwoLinesLayout.SecondLabel
+	label2.Top = 45dip
+	label2.TextSize = 16
+	label2.Typeface = Typeface.CreateNew(Typeface.DEFAULT_BOLD, Typeface.STYLE_BOLD)
+	label2.TextColor = Colors.White
 	If g6.RowCount > 0 Then
 		For i = 0 To g6.RowCount - 1
 			g6.Position = i
-			Dim itemText As String
-			itemText = $"NOMBRE.: ${g6.GetString("NOMBRE")} ${CRLF}FOLIO: ${(g6.GetString("NOTA"))}, MONTO: $ ${(NumberFormat2(g6.GetString("SALDO_PENDIENTE"),0,2,2,False))}"$
-			ListView2.AddSingleLine(itemText)
+'			Dim itemText As String
+'			itemText = $"NOMBRE.: ${g6.GetString("NOMBRE")} ${CRLF}FOLIO: ${(g6.GetString("NOTA"))}, MONTO: $ ${(NumberFormat2(g6.GetString("SALDO_PENDIENTE"),0,2,2,False))}"$
+			
+			ListView2.AddTwoLines("NOMBRE.: "& g6.GetString("NOMBRE"),"FOLIO: "& g6.GetString("NOTA")&", MONTO: "&(NumberFormat2(g6.GetString("SALDO_PENDIENTE"),0,2,2,False)))
+'			ListView2.AddSingleLine(itemText)
 		Next
-	Else
-		ListView2.AddSingleLine("No hay datos disponibles.")
+'	Else
+''		ListView2.AddSingleLine("No hay datos disponibles.")
+'		ListView2.AddTwoLines("No hay datos disponibles.","")
 	End If
 	g6.Close
+	
+	
+	
+			
+
+		
+
+	
+	
+	
+	
 End Sub

 Private Sub Button1_Click