cheveguerra/Mazapa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mazapa.git synced 2026-04-19 13:49:21 +00:00
Code Issues Packages Projects Releases Wiki Activity

5.07.25

Browse Source
This commit is contained in:
Javier
2025-09-01 14:00:46 -06:00
parent ac403583bb
commit ef238cdc75
18 changed files with 142 additions and 127 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
B4A/Subs.bas
View File

@@ -220,10 +220,10 @@ Sub revisaBD 'ignore
End Try
Try 'Si no existe la columna CAT_CL_DIAS_VISITA la agregamos.
kmt.ExecQuery("select count(CAT_CL_DIAS_VISITA) from kmt_info")
kmt.ExecQuery("select count(CAT_CL_DIAS_VISITA) from kmt_info2")
Catch
Try
kmt.ExecNonQuery("ALTER TABLE kmt_info ADD COLUMN CAT_CL_DIAS_VISITA TEXT")
kmt.ExecNonQuery("ALTER TABLE kmt_info2 ADD COLUMN CAT_CL_DIAS_VISITA TEXT")
Catch
LogColor("No pudimos agregar la columna CAT_CL_DIAS_VISITA.", Colors.Red)
LogColor(LastException, Colors.Red)
@@ -662,7 +662,7 @@ End Sub
'' c.Position=0
'' B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
'' B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT,PC_ALMACEN,PC_RUTA,PC_COSTO_SIN) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As Object(clienteId, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps, cedis, rutaV, c.GetString("TOTAL_CLIE_SIN")))
'' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
'' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info2 set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
'' c.Close
' ToastMessageShow("guardaProdSin", False)
'End Sub
@@ -716,7 +716,7 @@ End Sub
Sub traeRuta (cliente As String) As String 'ignore
Private c As Cursor
Private r As String
c=B4XPages.MainPage.skmt.ExecQuery($"select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO = '${cliente}'"$)
c=B4XPages.MainPage.skmt.ExecQuery($"select CAT_CL_RUTA from kmt_info2 where CAT_CL_CODIGO = '${cliente}'"$)
r = "0"
If c.RowCount > 0 Then
c.Position=0
@@ -730,7 +730,7 @@ End Sub
Sub traeRuta2 (cliente As String) As String 'ignore
Private c As Cursor
Private r As String
c=B4XPages.MainPage.skmt.ExecQuery($"select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO = '${cliente}' UNION ALL select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO = '${cliente}'"$)
c=B4XPages.MainPage.skmt.ExecQuery($"select CAT_CL_RUTA from kmt_info2 where CAT_CL_CODIGO = '${cliente}' UNION ALL select CAT_CL_RUTA from kmt_info2 where CAT_CL_CODIGO = '${cliente}'"$)
r = "0"
If c.RowCount > 0 Then
c.Position=0
@@ -770,7 +770,7 @@ Sub traeUsuarioDeBD As String 'ignore
End Sub
'Inserta un producto en la tabla "pedido" y "pedido_cliente".
'Actualiza "cat_gunaprod" y la columna "gestion" en la tabla "kmt_info".
'Actualiza "cat_gunaprod" y la columna "gestion" en la tabla "kmt_info2".
Sub guardaProducto(cedis As String, costoU As String, cant As String, nombre As String, prodId As String, clienteId As String, fecha As String, usuario As String, rutaV As String, precioSin As String, tipoVenta As String)
' LogColor("guardaProducto: "&prodId&", cant="&cant, Colors.Magenta)
Private c As Cursor
@@ -780,11 +780,11 @@ Sub guardaProducto(cedis As String, costoU As String, cant As String, nombre As
c.Position=0
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT,PC_ALMACEN,PC_RUTA,PC_COSTO_SIN) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As Object(clienteId, fecha, usuario, c.GetString("CANT_CLIE"), c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps, cedis, c.GetString("TOTAL_CLIE_SIN")))
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info2 set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
End Sub
'Inserta un producto en la tabla "pedido" y "pedido_cliente" y actualiza "cat_gunaprod".
'NO ACTUALIZA LA BANDERA DE GESTION EN LA TABLA "kmt_info".
'NO ACTUALIZA LA BANDERA DE GESTION EN LA TABLA "kmt_info2".
'Si "gestion=2" entonces el sistema considera que el pedido ya se guardó y ya no se debe modificar.
Sub guardaProductoSinGestion(cedis As String, costoU As String, cant As String, nombre As String, prodId As String, clienteId As String, fecha As String, usuario As String, rutaV As String, precioSin As String, tipoVenta As String, cantc As String, bcajas As String)
' LogColor("guardaProducto: "&prodId&", cant="&cant, Colors.Magenta)
@@ -1200,6 +1200,7 @@ Sub procesaPromocion(idPromo As String, cliente As String) As Map 'ignore
'Buscamos el máximo de promociones permitidas.
If thisLog Then LogColor($"Promociones permitidas=${traeMaxPromos(pm)}"$, Colors.Blue)
If thisLog Then Log("Promos vendidas: " & traePromosVendidas(idPromo, cliente))
Log(traeMaxPromos(pm))
If traePromosVendidas(idPromo, cliente) >= traeMaxPromos(pm) Then
If thisLog Then LogColor("Ya se vendieron las promos PERMITIDAS para el cliente", Colors.red)
Return CreateMap("status":"ko", "mp":pm)
@@ -1440,7 +1441,7 @@ End Sub
'Borra el pedido del cliente actual.
'Borra los registros de la tabla "pedido" y "pedido_cliente"
'Actualiza las tablas "cat_gunaprod" y "kmt_info".
'Actualiza las tablas "cat_gunaprod" y "kmt_info2".
Sub borraPedidoClienteActual As String
' Private thisC As Cursor
' thisC=B4XPages.MainPage.skmt.ExecQuery("select PE_PROID,PE_CANT FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) ")
@@ -1453,7 +1454,7 @@ Sub borraPedidoClienteActual As String
' End If
' B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
' B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)")
' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info2 set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
' Return 1
Private thisC As Cursor
' Private tablaProds As String = "cat_gunaprod2"
@@ -1470,7 +1471,7 @@ Sub borraPedidoClienteActual As String
End If
Starter.skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
Starter.skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)")
Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
Starter.skmt.ExecNonQuery("UPDATE kmt_info2 set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
Return 1
End Sub
@@ -1481,11 +1482,11 @@ Sub traeTablaProds(tipoventa As String) As String
Return tablaProds
End Sub
'Regresa verdadero si la columna gestion en la tabla "kmt_info" tene valor 2.
'Regresa verdadero si la columna gestion en la tabla "kmt_info2" tene valor 2.
'si no, entonces regresa falso.
Sub pedidoGuardado As Boolean
Private guardado As Boolean = False
Private g As Cursor = B4XPages.MainPage.skmt.ExecQuery("select gestion from kmt_info where CAT_CL_CODIGO in (Select CUENTA from cuentaa)")
Private g As Cursor = B4XPages.MainPage.skmt.ExecQuery("select gestion from kmt_info2 where CAT_CL_CODIGO in (Select CUENTA from cuentaa)")
If g.RowCount > 0 Then
g.Position=0
If g.GetString("gestion") = "2" Then guardado = True ' Or g.GetString("gestion") = "3"
@@ -1617,7 +1618,7 @@ End Sub
Sub traeRutaBitacora As String 'ignore
Private c As Cursor
Private r As String
c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info2 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
r = "0"
If c.RowCount > 0 Then
c.Position=0