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

..

Browse Source
This commit is contained in:
cvaldes1201
2024-04-18 10:20:45 -06:00
parent d2074716f0
commit 47a9186140
3 changed files with 32 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
B4A/C_Cliente.bas
View File

@@ -646,6 +646,36 @@ Sub B4XPage_Appear
' ToastMessageShow("aaa", False)
End If
c = skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE WHERE PC_CLIENTE IN (Select CUENTA from cuentaa)")
If c.RowCount > 0 Then
Tels.Visible = True
gest.Visible = True
Else If c.RowCount = 0 Then
Tels.Visible = False
gest.Visible = False
c = skmt.ExecQuery("SELECT NV_CLIENTE FROM NOVENTA CLIENTE WHERE NV_CLIENTE IN (Select CUENTA from cuentaa)")
If c.RowCount > 0 Then
Tels.Visible = True
gest.Visible = True
Else If c.RowCount = 0 Then
Tels.Visible = False
gest.Visible = False
LA_GEO.TextColor = Colors.Red
If ALMACEN = "1" Then
Tels.Visible = False
gest.Visible = True
End If
End If
LA_GEO.TextColor = Colors.Red
If ALMACEN = "1" Then
Tels.Visible = False
gest.Visible = True
End If
End If
End Sub

2
B4A/C_Principal.bas
View File

@@ -996,7 +996,7 @@ Sub JobDone(Job As HttpJob)
If n = "OKActivo" Then
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_GV2_70_2"
cmd.Name = "select_ruta_GV2_70_3"
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta")
'Log("Usuario guardado en BD es 'Valido'")

2
B4A/Guna Vistas V3.1.b4a.meta
View File

@@ -70,6 +70,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=Diseñador Visual,principal.bal,-100,1,C_Cliente,Class_Globals,0,0,B4XMainPage,B4XPage_Appear,323,1,C_Principal,Subir_Click,717,0,B4XMainPage,b_aceptar_Click,798,6,C_Principal,JobDone,1199,6,C_Principal,e_ruta_EnterPressed,1809,6,C_Principal,cargar_Click,734,3,C_Cliente,B4XPage_Appear,638,0,C_Cliente,GPS_LocationChanged,734,6
NavigationStack=B4XMainPage,B4XPage_Appear,323,1,C_Principal,Subir_Click,717,0,B4XMainPage,b_aceptar_Click,798,6,C_Principal,e_ruta_EnterPressed,1809,6,C_Principal,cargar_Click,734,3,C_Cliente,GPS_LocationChanged,743,6,C_Cliente,B4XPage_Appear,671,1,C_Principal,Class_Globals,0,0,C_Principal,connecta_Click,1707,0,C_Principal,JobDone,992,6
SelectedBuild=0
VisibleModules=21,2,22,12,13,4,8,11,5,10