cheveguerra/Intmex_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Preventa.git synced 2026-04-17 21:06:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

..

Browse Source
This commit is contained in:
cvaldes1201
2024-04-04 16:53:52 -06:00
parent bbd456111f
commit ac0a633bd2
5 changed files with 150 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

75
B4A/C_Cliente.bas
View File

@@ -541,7 +541,7 @@ Sub Guardar_Click
DateTime.TimeFormat = "HH:mm:ss" DateTime.TimeFormat = "HH:mm:ss"
mandaPendientes 'LO COMENTAMOS PARA PRUEBAS, ACTIVAR AL FINAL!!! mandaPendientes 'LO COMENTAMOS PARA PRUEBAS, ACTIVAR AL FINAL!!!
mandapiezas
B4XPages.MainPage.productos.reiniciarlistaProds = True B4XPages.MainPage.productos.reiniciarlistaProds = True
B4XPages.MainPage.productos.prodsMap.Initialize B4XPages.MainPage.productos.prodsMap.Initialize
B4XPages.MainPage.promos.promosMap.Initialize B4XPages.MainPage.promos.promosMap.Initialize
@@ -938,6 +938,24 @@ Sub mandaPendientes
End If End If
End Sub 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) Sub JobDone(Job As HttpJob)
' Log(Job.Success) ' Log(Job.Success)
If Job.Success = False Then If Job.Success = False Then
@@ -964,6 +982,61 @@ Sub JobDone(Job As HttpJob)
Next Next
End If End If
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 If Job.JobName = "DBRequest" Then
Dim resultado As DBResult = reqManager.HandleJob(Job) Dim resultado As DBResult = reqManager.HandleJob(Job)

84
B4A/C_Principal.bas
View File

@@ -208,6 +208,7 @@ Sub Class_Globals
Dim s As Cursor Dim s As Cursor
Private Label22 As Label Private Label22 As Label
Private l_rutasuplencia As Label Private l_rutasuplencia As Label
Dim userpiezas As String
End Sub End Sub
'You can add more parameters here. 'You can add more parameters here.
@@ -610,18 +611,18 @@ Sub Subir_Click
End If End If
c.Close c.Close
c=B4XPages.MainPage.skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA") ' c=B4XPages.MainPage.skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA")
If c.RowCount>0 Then ' If c.RowCount>0 Then
For i=0 To c.RowCount -1 ' For i=0 To c.RowCount -1
c.Position=i ' c.Position=i
Dim cmd As DBCommand ' Dim cmd As DBCommand
cmd.Initialize ' cmd.Initialize
cmd.Name = "insert_encuesta_INTMEX" ' 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")) ' 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") ' reqManager.ExecuteCommand(cmd , "inst_noventa")
Next ' Next
End If ' End If
c.Close ' c.Close
' PEDIDO_CLIENTE ' PEDIDO_CLIENTE
Dim PCNoArts As String Dim PCNoArts As String
@@ -634,9 +635,9 @@ Sub Subir_Click
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize cmd.Initialize
cmd.Name = "insert_pedidos_INTMEX" 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") PCNoArts = c.GetString("PC_NOART")
PCMonto = c.GetString("PC_MONTO") 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") reqManager.ExecuteCommand(cmd , "ins_pedidos")
Log(">>>>>> INSERT PEDIDO_CLIENTE") Log(">>>>>> INSERT PEDIDO_CLIENTE")
Next Next
@@ -744,7 +745,23 @@ Sub Subir_Click
Next Next
End If End If
c.Close 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 If
End Sub End Sub
Sub cargar_Click Sub cargar_Click
@@ -1103,6 +1120,47 @@ Sub JobDone(Job As HttpJob)
End If End If
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 If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = reqManager.HandleJob(Job) Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "kmt_datos_todos" Then 'query tag If RESULT.Tag = "kmt_datos_todos" Then 'query tag

4
B4A/INTMEX.b4a
View File

@@ -157,12 +157,12 @@ Module9=C_Nota
NumberOfFiles=46 NumberOfFiles=46
NumberOfLibraries=33 NumberOfLibraries=33
NumberOfModules=28 NumberOfModules=28
Version=12.8 Version=12.5
@EndOfDesignText@ @EndOfDesignText@
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Intmex #ApplicationLabel: Intmex
#VersionCode: 1 #VersionCode: 1
#VersionName: 4.03.02 #VersionName: 4.03.06
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

4
B4A/INTMEX.b4a.meta
View File

@@ -85,6 +85,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9=1 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 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

2
B4A/Starter.bas
View File

@@ -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:1781"
' Dim DBReqServer As String = "http://187.189.244.154:1783" ' 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://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 Timer1 As Timer
Dim Interval As Int = 10 Dim Interval As Int = 10
Dim ruta As String = File.DirInternal Dim ruta As String = File.DirInternal