cheveguerra/Guna_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa.git synced 2026-04-20 06:09:16 +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) ' ToastMessageShow("aaa", False)
End If 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 End Sub

2
B4A/C_Principal.bas
View File

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

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

@@ -70,6 +70,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= 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 SelectedBuild=0
VisibleModules=21,2,22,12,13,4,8,11,5,10 VisibleModules=21,2,22,12,13,4,8,11,5,10