cheveguerra/Mariana
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana.git synced 2026-04-19 21:59:15 +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

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