cheveguerra/Intmex_Multiventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Multiventa.git synced 2026-04-17 21:06:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.03.02

Browse Source 
- Se agregó la clase "C_Validador", que valida que el pedido se envie correctamente y actualiza la columna PE_VALIDADO en Web/Pedido.
- Se corrigio la funcion "Subs/TraeRuta" para que busque la ruta en kmt_info y kmt_info2.
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-03-04 16:33:14 -06:00
parent 5f33693fc5
commit 2c44d646c0
7 changed files with 44 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/Subs.bas
View File

@@ -711,7 +711,7 @@ End Sub
Sub traeRuta 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_info where CAT_CL_CODIGO In (Select cuenta from cuentaa) union select CAT_CL_RUTA from kmt_info2 where CAT_CL_CODIGO In (Select cuenta from cuentaa)") ' Agregamos la union con kmt_info2 porque si el cliente de la venta SOLO esta en kmt_info2, regresaría 0.
r = "0"
If c.RowCount > 0 Then
c.Position=0