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

Corrección de ticket para impresora zebra

Browse Source
This commit is contained in:
cvaldes1201
2025-01-20 19:03:32 -06:00
parent 56c80c69ed
commit ebf5ccd82d
6 changed files with 118 additions and 114 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
B4A/Subs.bas
View File

@@ -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}' 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_info where CAT_CL_CODIGO = '${cliente}'"$)
r = "0"
If c.RowCount > 0 Then
c.Position=0
@@ -1140,6 +1140,7 @@ Sub alcanzanLosVariablesParaPromo(promoMap As Map, inventarioSinFijos As Map) As
res2 = True 'Si el total de inventario de productos variables (totalProdsVariables) es mayor o igual a los productos requeridos entonces regresamos TRUE
End If
If promoMap.Get("prodsVariables2Requeridos").As(Int) = 0 Then res2 = True
Log(res1&" ________________________" & res2)
If res1 And res2 Then 'Solo si son verdadero los dos el resultado es verdadero.
res = True
Else
@@ -1487,7 +1488,7 @@ Sub pedidoGuardado As Boolean
Private g As Cursor = B4XPages.MainPage.skmt.ExecQuery("select gestion from kmt_info where CAT_CL_CODIGO in (Select CUENTA from cuentaa)")
If g.RowCount > 0 Then
g.Position=0
If g.GetString("gestion") = "2" Or g.GetString("gestion") = "3" Then guardado = True
If g.GetString("gestion") = "2" Then guardado = True ' Or g.GetString("gestion") = "3"
End If
' Log($"Guardado=${guardado}"$)
Return guardado