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"
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)