..

2026-04-17 21:06:12 +00:00 · 2024-04-04 16:53:52 -06:00
parent bbd456111f
commit ac0a633bd2
5 changed files with 150 additions and 19 deletions
--- a/B4A/C_Cliente.bas
+++ b/B4A/C_Cliente.bas
@@ -541,7 +541,7 @@ Sub Guardar_Click
 	DateTime.TimeFormat = "HH:mm:ss"

 	mandaPendientes 'LO COMENTAMOS PARA PRUEBAS, ACTIVAR AL FINAL!!!
-
+	mandapiezas
 	B4XPages.MainPage.productos.reiniciarlistaProds = True
 	B4XPages.MainPage.productos.prodsMap.Initialize
 	B4XPages.MainPage.promos.promosMap.Initialize
@@ -938,6 +938,24 @@ Sub mandaPendientes
 	End If
 End Sub

+Sub mandapiezas
+	If l_total.Text <>  Null Or l_total.Text <> "null" Then
+		Dim PCNoArts As String
+		Dim PCMonto As String
+		c = skmt.ExecQuery2("SELECT * FROM PEDIDO_CLIENTE WHERE PC_CLIENTE = ?", Array As String(la_cuenta.Text))
+		If c.RowCount > 0 Then
+			c.Position = 0 
+			Log(la_cuenta.Text&", "& ALMACEN&", "& LA_RUTA)
+			Dim cmd As DBCommand
+			cmd.Initialize
+			cmd.Name = "select_piezas_INTMEX"
+			cmd.Parameters = Array As Object(la_cuenta.Text, ALMACEN, LA_RUTA)
+			reqManager.ExecuteQuery(cmd , 0, "piezas")
+			
+		End If
+	End If
+End Sub
+
 Sub JobDone(Job As HttpJob)
 '	Log(Job.Success)
 	If Job.Success = False Then
@@ -964,6 +982,61 @@ Sub JobDone(Job As HttpJob)
 				Next
 			End If
 		End If
+		
+		If Job.JobName = "DBRequest" Then
+			Dim resultado As DBResult = reqManager.HandleJob(Job)
+			If resultado.Tag = "piezas" Then 'query tag
+'				B4XPages.MainPage.picking.cl_picking.Clear
+				Dim piezasexiste As Int
+				
+				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 = skmt.ExecQuery2("SELECT * FROM PEDIDO_CLIENTE WHERE PC_CLIENTE = ?", Array As String(la_cuenta.Text))
+						
+						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_INTMEX"
+						cmd.Parameters = Array As Object((sDate & " " & sTime), la_cuenta.Text, PCNoArts, PCMonto, ALMACEN, LA_RUTA)
+						reqManager.ExecuteCommand(cmd , "insert_hvc")
+'						reqManager.ExecuteCommand(cmd , $"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
+					
+					Else If piezasexiste = 1 Then
+						Dim PCNoArts As String
+						Dim PCMonto As String
+						c = skmt.ExecQuery2("SELECT * FROM PEDIDO_CLIENTE WHERE PC_CLIENTE = ?", Array As String(la_cuenta.Text))
+						
+						If c.RowCount > 0 Then
+							c.Position = 0
+							PCNoArts = c.GetString("PC_NOART")
+							PCMonto = c.GetString("PC_MONTO")
+						End If
+						cmd.Initialize
+						cmd.Name = "update_HVC_INTMEX"
+						cmd.Parameters = Array As Object((sDate & " " & sTime), la_cuenta.Text, PCNoArts, PCMonto, ALMACEN, LA_RUTA, la_cuenta.Text, ALMACEN, LA_RUTA)
+						reqManager.ExecuteCommand(cmd, "update_hvc")
+							
+					End If
+				Next
+				
+
+			End If
+		End If

 		If Job.JobName = "DBRequest" Then
 			Dim resultado As DBResult = reqManager.HandleJob(Job)
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -208,6 +208,7 @@ Sub Class_Globals
 	Dim s As Cursor
 	Private Label22 As Label
 	Private l_rutasuplencia As Label
+	Dim userpiezas As String
 End Sub

 'You can add more parameters here.
@@ -610,18 +611,18 @@ Sub Subir_Click
 		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
-			For i=0 To c.RowCount -1
-				c.Position=i
-				Dim cmd As DBCommand
-				cmd.Initialize
-				cmd.Name = "insert_encuesta_INTMEX"
-				cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"), c.GetString("HE_TIPO"))
-				reqManager.ExecuteCommand(cmd , "inst_noventa")
-			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
+'			For i=0 To c.RowCount -1
+'				c.Position=i
+'				Dim cmd As DBCommand
+'				cmd.Initialize
+'				cmd.Name = "insert_encuesta_INTMEX"
+'				cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"), c.GetString("HE_TIPO"))
+'				reqManager.ExecuteCommand(cmd , "inst_noventa")
+'			Next
+'		End If
+'		c.Close
 		
 		' PEDIDO_CLIENTE
 		Dim PCNoArts As String
@@ -634,9 +635,9 @@ Sub Subir_Click
 				Dim cmd As DBCommand
 				cmd.Initialize
 				cmd.Name = "insert_pedidos_INTMEX"
-				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, l_ruta.text, c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA"))
 				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, l_ruta.text, c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA"))
 				reqManager.ExecuteCommand(cmd , "ins_pedidos")
 				Log(">>>>>>  INSERT PEDIDO_CLIENTE")
 			Next
@@ -744,7 +745,23 @@ Sub Subir_Click
 			Next
 		End If
 		c.Close
+		
+		
+		c = B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM PEDIDO_CLIENTE")
+		If c.RowCount > 0 Then
+			For i = 0 To c.RowCount - 1
+				c.Position = i
+				Dim cmd As DBCommand
+				cmd.Initialize
+				cmd.Name = "select_piezas_INTMEX"
+				cmd.Parameters = Array As Object(c.GetString("PC_CLIENTE"), ALMACEN,l_ruta.Text)
+				userpiezas = c.GetString("PC_CLIENTE")
+				reqManager.ExecuteQuery(cmd , 0, "piezas")
+			Next
+			
 		End If
+		
+	End If
 End Sub

 Sub cargar_Click
@@ -1103,6 +1120,47 @@ Sub JobDone(Job As HttpJob)
 			End If
 		End If
 		
+		If Job.JobName = "DBRequest" Then
+			Dim resultado As DBResult = reqManager.HandleJob(Job)
+			If resultado.Tag = "piezas" Then 'query tag
+'				B4XPages.MainPage.picking.cl_picking.Clear
+				Dim piezasexiste As Int
+				
+				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 = ?", 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_INTMEX"
+						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
+		End If
+		
 		If Job.JobName = "DBRequest" Then
 			Dim RESULT As DBResult = reqManager.HandleJob(Job)
 			If RESULT.Tag = "kmt_datos_todos" Then 'query tag
--- a/B4A/INTMEX.b4a
+++ b/B4A/INTMEX.b4a
@@ -157,12 +157,12 @@ Module9=C_Nota
 NumberOfFiles=46
 NumberOfLibraries=33
 NumberOfModules=28
-Version=12.8
+Version=12.5
@EndOfDesignText@
 #Region  Project Attributes 
 	#ApplicationLabel: Intmex
 	#VersionCode: 1
-	#VersionName: 4.03.02
+	#VersionName: 4.03.06
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
--- a/B4A/INTMEX.b4a.meta
+++ b/B4A/INTMEX.b4a.meta
@@ -85,6 +85,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=1
-NavigationStack=C_Cliente,JobDone,1015,0,B4XMainPage,i_engrane_Click,689,6,B4XMainPage,muestraProgreso,674,0,B4XMainPage,b_apk_Click,666,0,B4XMainPage,ocultaProgreso,676,0,C_NoVenta,GUARDA_Click,115,0,C_NoVenta,JobDone,149,6,B4XMainPage,B4XPage_Created,173,4,C_Cliente,mandaPendientes,925,2,C_NoVenta,mandaPendientesnoventa,130,6
+NavigationStack=C_Principal,Subir_Click,727,6,Starter,Service_Create,39,0,Starter,Process_Globals,16,0,C_Principal,Class_Globals,0,0,C_Principal,JobDone,1388,4,C_Principal,cargar_Click,863,0,C_Productos,B4XPage_Appear,192,0,C_Cliente,MODS,0,0,C_Cliente,B_GUARDA_C_Click,706,0,C_Cliente,Guardar_Click,537,0
 SelectedBuild=0
-VisibleModules=2,26,13,16,14,4,27,15,9,6,10
+VisibleModules=2,26,13,16,14,4,27,15,9,6
--- a/B4A/Starter.bas
+++ b/B4A/Starter.bas
@@ -23,7 +23,7 @@ Sub Process_Globals
 	Dim DBReqServer As String = "http://187.189.244.154:1781"
 '	Dim DBReqServer As String = "http://187.189.244.154:1783"
 '	Dim DBReqServer As String = "http://10.0.0.205:1783"
-'	Dim DBReqServer As String = "http://11.0.0.15:1782"
+'	Dim DBReqServer As String = "http://11.0.0.207:1781"
 	Dim Timer1 As Timer
 	Dim Interval As Int = 10
 	Dim ruta As String = File.DirInternal