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

- Codigo de promos por ruta corregido para que use la nueva columna de Josue (promos disponibles)

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-03-19 15:41:24 -06:00
parent 4e4354145b
commit f84d3e87c9
6 changed files with 517 additions and 495 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
B4A/C_Principal.bas
View File

@@ -315,6 +315,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
End Sub
Sub B4XPage_Appear
Subs.checaPedido
' s.reqManagerReInit 'Reiniciamos el DBReqManager de C_Subs por si hay modificacion en el servidor.
reqManager.Initialize(Me, Starter.DBReqServer)
' B4XPages.MainPage.cliente.mandaPendientes 'Ejecutamos mandaPendientes.
@@ -888,7 +889,7 @@ Sub cargar_Click
cmd.Name = "select_hist_datos_MARDS_2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
cmd.Initialize
cmd.Name = "select_hist_promos_MARDS"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
@@ -924,6 +925,11 @@ Sub cargar_Click
cmd.Name = "select_hist_cliente_promos_MARDS"
cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "hist_cliente_promos")
cmd.Initialize
cmd.Name = "select_promosXruta_MARDS"
cmd.Parameters = Array As Object(ALMACEN, E_RUTA2.text)
reqManager.ExecuteQuery(cmd , 0, "promosXruta")
End If
cmd.Initialize
@@ -1754,7 +1760,7 @@ Sub JobDone(Job As HttpJob)
Dim CPR_IDALMACEN As String = records(RESULT.Columns.Get("CPR_IDALMACEN"))
Dim CPR_RUTA As String = records(RESULT.Columns.Get("CPR_RUTA"))
Dim CPR_PROMO As String = records(RESULT.Columns.Get("CPR_PROMO"))
Dim CPR_CANT As Int = records(RESULT.Columns.Get("CPR_CANT"))
Dim CPR_CANT As Int = records(RESULT.Columns.Get("CPR_CANT_REST"))
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
@@ -1900,6 +1906,7 @@ Sub e_ruta_EnterPressed
Starter.skmt.ExecNonQuery("DELETE FROM HIST_FOTO_CLIENTE")
Starter.skmt.ExecNonQuery("DELETE FROM CLIENTES_NUEVOS")
Starter.skmt.ExecNonQuery("DELETE FROM VENDIDOS")
Starter.skmt.ExecNonQuery("DELETE FROM CAT_PROMOS_RUTA")
B4XPage_Appear
End If
End If
@@ -2020,6 +2027,7 @@ Sub B_OK_PAS_Click
Resumen.Visible= True
img2.Visible=False
Subs.panelVisible(p_principal, 0, 0)
Subs.checaPedido
Else if CARGA = "CARGAR" And (S_CP.Text <> "LISTO" Or S_CC.Text <> "LISTO" Or S_CH.Text <> "LISTO") Then
RES = Msgbox2("Seguro que desea abortar el proceso","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
If RES = DialogResponse.POSITIVE Then