cheveguerra/Durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo.git synced 2026-04-17 19:36:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

..

Browse Source
This commit is contained in:
cvaldes1201
2024-04-04 12:21:23 -06:00
parent 13e7345e04
commit 577f80dc8c
4 changed files with 17 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
B4A/C_Cliente.bas
View File

@@ -208,7 +208,11 @@ Private Sub B4XPage_Created (Root1 As B4XView)
End Sub
Sub B4XPage_Appear
c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MARCAS"))
c.Position =0
Private MARCASQ As String = c.GetString("CAT_VA_VALOR")
c.Close
Starter.skmt.ExecNonQuery("delete from CAT_GUNAPROD WHERE CAT_GP_CLASIF NOT IN (" & MARCASQ &")" )
B_VENTA.Enabled = True
If Subs.traeCliente = 0 Then B_VENTA.Enabled = False
c = Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MACIMP"))
@@ -393,7 +397,7 @@ Sub gest_Click
Return False
End If
' If la_cuenta.Text <> "0" Then
' Dim queenc As String
' Dim queenc As String
' ' 1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local
' If B4XPages.MainPage.principal.ALMACEN = "6" Then queenc = "1"
' If B4XPages.MainPage.principal.ALMACEN = "1" Then queenc = "2"
@@ -696,6 +700,7 @@ Sub B_IMP_Click
TAMANO = 0
ESPACIO = 21
BLANCO = " "
End If
Next
End If
@@ -1199,7 +1204,7 @@ Sub B_VENTA_Click
Return False
End If
' If la_cuenta.Text <> "0" Then
' Dim queenc As String
' Dim queenc As String
' ' 1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local
' If B4XPages.MainPage.principal.ALMACEN = "6" Then queenc = "1"
' If B4XPages.MainPage.principal.ALMACEN = "1" Then queenc = "2"

5
B4A/C_Principal.bas
View File

@@ -1975,6 +1975,11 @@ Sub connecta_Click
End Sub
Sub BUSCA_Click
c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MARCAS"))
c.Position =0
MARCASQ = c.GetString("CAT_VA_VALOR")
c.Close
skmt.ExecNonQuery("delete from CAT_GUNAPROD WHERE CAT_GP_CLASIF NOT IN (" & MARCASQ &")" )
' StartActivity(BUSCAR)
B4XPages.ShowPage("TicketsDia")
End Sub

4
B4A/Durakelo.b4a
View File

@@ -1393,12 +1393,12 @@ Module9=C_NoVenta
NumberOfFiles=667
NumberOfLibraries=31
NumberOfModules=24
Version=12.8
Version=12.5
@EndOfDesignText@
#Region Project Attributes
#ApplicationLabel: Durakelo
#VersionCode: 1
#VersionName: 4.02.05.ENCU
#VersionName: 4.04.02ENCU
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

4
B4A/Durakelo.b4a.meta
View File

@@ -73,6 +73,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=C_Productos,b_terminar1_Click,872,0,C_Cuestionario,Initialize,19,0,C_Cuestionario,Class_Globals,0,0,C_Cliente,Class_Globals,0,0,C_Cuestionario,agregaColumna,171,0,C_Promos,muestraPromo,78,1,Main,Process_Globals,21,0,Main,Globals,25,0,C_Principal,JobDone,1914,2,C_Cliente,cuest_preguntaContestada,1730,0
NavigationStack=C_Cliente,B_IMP_Click,675,0,C_Cliente,Class_Globals,132,0,C_Principal,Class_Globals,0,0,C_Principal,trabajar_Click,436,0,C_Principal,connecta_Click,1958,0,C_Principal,BUSCA_Click,1973,0,Diseñador Visual,principal.bal,-100,6,C_Cliente,B4XPage_Appear,213,2,C_Cliente,B_VENTA_Click,1194,0,C_Cliente,gest_Click,387,0
SelectedBuild=0
VisibleModules=1,2,10,4,5,6,8,9,11,24,12
VisibleModules=1,2,10,4,5,6,8,9,11,24