diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 27a91a3..3733cfc 100644 --- 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) diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index a9e9b94..7587cd5 100644 --- 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 diff --git a/B4A/INTMEX.b4a b/B4A/INTMEX.b4a index ba130dc..8c5c32f 100644 --- 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 diff --git a/B4A/INTMEX.b4a.meta b/B4A/INTMEX.b4a.meta index f4d2773..a6ff8ea 100644 --- 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 diff --git a/B4A/Starter.bas b/B4A/Starter.bas index 6bc9943..47fa391 100644 --- 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