cheveguerra/Durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo.git synced 2026-04-18 03:39:13 +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"