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

- 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

BIN
B4A/Files/intmex_logo_192x192.jpg
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 5.9 KiB

After

Width:  |  Height:  |  Size: 1.8 KiB

BIN
B4A/Files/intmex_logo_192x192.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.8 KiB

980
B4A/Mariana.b4a
View File

File diff suppressed because it is too large Load Diff

4
B4A/Mariana.b4a.meta
View File

@@ -82,6 +82,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=Subs,revisaMaxPromosProdsFijosPorInventario2,1042,0,Subs,revisaMaxPromosProdsVariablesPorInventario,1129,0,C_Principal,cargar_Click,950,1,C_Principal,JobDone,1731,2,Subs,alcanzanLosVariablesParaPromo,954,0,C_Productos,lv_catalogos_ItemClick,242,0,Subs,procesaPromocion,1032,1,Subs,restaFijosPromo,920,0,Subs,traeMaxPromosXruta,1009,6,Subs,traeMaxPromos,989,6
NavigationStack=C_Principal,e_ruta_TextChanged,2274,0,Subs,agregaColumna,1335,0,C_Principal,B_OK_PAS_Click,2023,0,C_Principal,B4XPage_Created,309,0,C_Principal,B4XPage_Appear,318,2,Subs,checaPedido,1339,5,C_Principal,e_ruta_EnterPressed,1902,0,C_Clientes,calc_ean_checksum,220,0,Visual Designer,login.bal,-100,1,C_Principal,JobDone,1737,0
SelectedBuild=0
VisibleModules=2,12,4,5,6,7,8,9,10,26,13
VisibleModules=2,12,4,5,6,26,10

16
B4A/Subs.bas
View File

@@ -993,10 +993,10 @@ Sub traeMaxPromos(pm As Map) As Int
Return maxPromos.Get(0) - vendidas 'Regresamos el numero mas pequeño de las opciones.
End Sub
'Regresa las promos disponibles por ruta o "" si no hay.
'Regresa las promos disponibles por ruta o "" si no hay. (SEGMENTADAS)
Sub traeMaxPromosXruta(idPromo As String) As String
'Traemos las promos por ruta, y si existe, la agregamos a la lista.
Private pxr As Cursor = Starter.skmt.ExecQuery($"select * from CAT_PROMOS_RUTA where CPR_PROMO = '${idPromo}'"$)
Private pxr As Cursor = Starter.skmt.ExecQuery($"select * from CAT_PROMOS_RUTA where CPR_PROMO = '${idPromo}' and CPR_RUTA = '${traeRuta}'"$)
Private maxXruta As String = ""
If pxr.RowCount > 0 Then
pxr.Position = 0
@@ -1342,6 +1342,18 @@ Sub agregaColumna(tabla As String, columna As String, tipo As String) 'ignore
End Try
End Sub
'Revisa si el cliente tiene venta o No venta y si es así modifica gestion en kmt_info
Sub checaPedido
Private c As Cursor = Starter.skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE")
If c.RowCount > 0 Then
Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 2 WHERE CAT_CL_CODIGO IN (SELECT PC_CLIENTE FROM PEDIDO_CLIENTE)")
End If
Private c As Cursor = Starter.skmt.ExecQuery("SELECT NV_CLIENTE FROM NOVENTA")
If c.RowCount > 0 Then
Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 2 WHERE CAT_CL_CODIGO IN (SELECT PC_CLIENTE FROM PEDIDO_CLIENTE)")
End If
End Sub
Sub capitalizar(str As String) As String 'ignore
Return str.Substring2(0,1).ToUppercase & str.SubString(1)
End Sub