cheveguerra/Guna_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa.git synced 2026-04-20 14:19:25 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 4.12.02

Browse Source 
- Se modificó como se trae la ruta para suplencia, porque en elgunas ocasiones resgresaba la ruta como CERO.
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-12-06 12:49:12 -06:00
parent ff1d910052
commit 3a9e0d373a
8 changed files with 56 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
B4A/Subs.bas
View File

@@ -661,23 +661,30 @@ Sub traeProdNombre(id As String) As String
Return n
End Sub
'Regresa la ruta actual de la base de datos.
'Si hay cliente definido (en la pantalla de cliente), trae la ruta de ese cliente, si no, trae la primera ruta de kmt_info2. (esto es por las suplencias)
''Regresa la ruta actual de la base de datos, de acuerdo al cliente actual en CUENTAA.
'Si hay cliente definido (en CUENTAA), trae la ruta de ese cliente, si no, trae la primera ruta de kmt_info2. (esto es por las suplencias)
Sub traeRuta As String 'ignore
Private c As Cursor
Private r As String = "0"
Private idCliente As String = ""
Try
If B4XPages.MainPage.cliente.IsInitialized And B4XPages.MainPage.cliente.la_cuenta.IsInitialized Then ' Si
idCliente = B4XPages.MainPage.cliente.la_cuenta.text
Private elCc As Cursor = Starter.skmt.ExecQuery($"select CUENTA from CUENTAA"$)
If elCc.RowCount > 0 Then
elCc.Position = 0
idCliente = elCc.GetString("CUENTA")
Log("|"&elCc.GetString("CUENTA")&"|")
End If
Log($"#########################${CRLF}HAY USUARIO EN CUENTAA: ${elCc.RowCount}${CRLF}#########################"$)
If idCliente <> "" Then
c = B4XPages.MainPage.skmt.ExecQuery($"select distinct CAT_CL_RUTA from kmt_info2 where CAT_CL_RUTA not in (select * from ruta_suplencia) and CAT_CL_CODIGO = '${idCliente}'"$)
Log(1)
c = B4XPages.MainPage.skmt.ExecQuery($"select distinct CAT_CL_RUTA from kmt_info2 where CAT_CL_CODIGO = '${idCliente}'"$)
Else
Log(2)
c = B4XPages.MainPage.skmt.ExecQuery("select distinct CAT_CL_RUTA from kmt_info2 where CAT_CL_RUTA not in (select * from ruta_suplencia)")
End If
' Log(c.RowCount)
Log($"#########################${CRLF}ENCONTRAMOS RUTA EN KMT_INFO2: ${c.RowCount}${CRLF}#########################"$)
If c.RowCount > 0 Then
Log(3)
c.Position=0
r = c.GetString("CAT_CL_RUTA")
End If
@@ -685,6 +692,7 @@ Sub traeRuta As String 'ignore
Catch
Log(LastException)
End Try
Log($"#########################${CRLF}RUTA ENCONTRADA: |${r}|${CRLF}#########################"$)
Return r
End Sub
@@ -1714,4 +1722,21 @@ Sub traeTipoVentaDeBD As String
End If
' Log(">>>>>>> " & tipoVenta)
Return tipoVenta
End Sub
'Guarda una variable en CAT_VARIABLES
Sub guardaVariable(nombre As String, valor As String)
B4XPages.MainPage.skmt.ExecNonQuery($"delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = '${nombre}'"$)
B4XPages.MainPage.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('${nombre}', '${valor}')"$)
End Sub
'Regresa el valor de la variable especificada desde CAT_VARIABLES
Sub traeVariable(nombre As String) As String
Private valor As String = ""
Private laVc As Cursor = Starter.skmt.ExecQuery($"select CAT_VA_VALOR from CAT_VARIABLES where CAT_VA_DESCRIPCION = '${nombre}'"$)
If laVc.RowCount > 0 Then
laVc.Position = 0
valor = laVc.GetString("CAT_VA_VALOR")
End If
Return valor
End Sub