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

- VERSION 5.01.18

Browse Source 
- Se agrego la opcion "Cerrado Permanente" a los motivos de "No Venta"
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-01-21 23:16:48 -06:00
parent 2201740446
commit 68623e79ea
8 changed files with 72 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
B4A/C_Principal.bas
View File

@@ -817,6 +817,7 @@ Sub cargar_Click
Starter.skmt.ExecNonQuery("DELETE FROM HIST_GEOCERCA")
Starter.skmt.ExecNonQuery("DELETE FROM HIST_MARCAS_CUOTAS")
Starter.skmt.ExecNonQuery("DELETE FROM HIST_AVANCE")
Starter.skmt.ExecNonQuery("DELETE FROM CAT_PEDIDOS_YALO")
c = Starter.skmt.ExecQuery2("select count(CAT_VA_DESCRIPCION) as HoraIngreso from cat_variables where CAT_VA_DESCRIPCION = ? ", Array As String("HoraIngreso"))
c.Position = 0
@@ -901,6 +902,12 @@ Sub cargar_Click
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "hist_cliente_promos")
cmd.Initialize
cmd.Name = "selectPedidosYalo_MARDS"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
Log($"Ruta: |${e_ruta.text}|, Almacen: |${ALMACEN}|"$)
reqManager.ExecuteQuery(cmd , 0, "pedidos_yalo")
' cmd.Initialize
' cmd.Name = "select_HIST_MARCAS_CUOTAS_INTMEX"
' cmd.Parameters = Array As Object( ALMACEN, e_ruta.text)
@@ -1015,7 +1022,7 @@ Sub JobDone(Job As HttpJob)
End If
End If
Else 'If Job Success then ...
LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211027
LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.red) 'Mod por CHV - 211027
'Verificamos que el usuario guardado en BD sea VALIDO.
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = reqManager.HandleJob(Job)
@@ -1051,8 +1058,9 @@ Sub JobDone(Job As HttpJob)
Msgbox("Usuario Cancelado llamar al administrador","") 'ignore
B4XPages.ShowPage("B4XMainPage")
Else
Starter.skmt.ExecNonQuery("Delete from usuarioa")
Msgbox("Usuario o password No validos","") 'ignore
B4XPages.ShowPage("B4XMainPage")
B4XPages.ShowPage("Login")
End If
Log("***************** "&n)
End If
@@ -1767,6 +1775,21 @@ Sub JobDone(Job As HttpJob)
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_PROMOS_RUTA(CPR_RUTA, CPR_PROMO, CPR_CANT, CPR_IDALMACEN) VALUES (?,?,?,?)", Array As Object (CPR_RUTA, CPR_PROMO, CPR_CANT, CPR_IDALMACEN))
Next
End If
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "pedidos_yalo" Then 'query tag
For Each records() As Object In RESULT.Rows
Dim PY_IDCLIENTE As String = records(RESULT.Columns.Get("HVD_CLIENTE"))
Dim PY_PRODID As String = records(RESULT.Columns.Get("HVD_PROID"))
Dim PY_PRODNOMBRE As String = records(RESULT.Columns.Get("HVD_PRONOMBRE"))
Dim PY_MARCANOMBRE As String = records(RESULT.Columns.Get("HVD_MARCANOMBRE"))
Dim PY_COSTO_TOT As String = records(RESULT.Columns.Get("HVD_COSTO_TOT"))
Dim PY_CANT As String = records(RESULT.Columns.Get("HVD_CANT"))
Dim PY_FECHA As String = records(RESULT.Columns.Get("HVD_FECHA"))
Dim PY_TICKET As String = records(RESULT.Columns.Get("HVD_NUM_TICKET"))
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_PEDIDOS_YALO(PY_IDCLIENTE, PY_PRODID, PY_PRODNOMBRE, PY_MARCANOMBRE, PY_COSTO_TOT, PY_CANT, PY_FECHA, PY_TICKET) VALUES (?,?,?,?,?,?,?,?)", Array As Object (PY_IDCLIENTE, PY_PRODID, PY_PRODNOMBRE, PY_MARCANOMBRE, PY_COSTO_TOT, PY_CANT, PY_FECHA, PY_TICKET))
Next
End If
End If
End If
Job.Release