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

27/10/23 - Se agregó el respaldo diario a Principal

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-10-27 11:25:33 -06:00
parent 88827d0e73
commit d334471e9a
6 changed files with 716 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
B4A/C_Cliente.bas
View File

@@ -349,6 +349,7 @@ Sub Class_Globals
Private CH_FACTURA As CheckBox
Private que_modulo As String
Private CUENTA_MODULO As String
Private l_version As Label
End Sub
'You can add more parameters here.
@@ -362,6 +363,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
'load the layout to Root
' Activity.RemoveAllViews
Root.LoadLayout("cliente")
l_version.Text = Application.VersionName
ruta = File.DirInternal
If File.Exists(ruta, "kmt.db") = False Then
File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
@@ -401,10 +403,8 @@ End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Sub B4XPage_Appear
If Subs.traeUsuarioDeBD = "KMTS1" Then gest.Visible = True
que_modulo = 1
B4XPages.MainPage.tipo_venta = tipo_venta
encuentasmapa.Initialize
@@ -554,6 +554,7 @@ Sub B4XPage_Appear
Else
b_like.Visible = False
End If
Log(usuario)
End Sub
Sub GPS_LocationChanged (Location1 As Location)
@@ -577,7 +578,7 @@ Sub GPS_LocationChanged (Location1 As Location)
Dim distance As Long
distance = l1.DistanceTo(l2) 'the result is in meter
gest.Visible = True
If distance < 100 Then
If distance < 100 Or usuario = "KMTS1" Then
LA_GEO.TextColor = Colors.Blue
Tels.Visible = True
gest.Visible = True
@@ -730,33 +731,27 @@ End Sub
Private Sub b_preguntag_Click
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE kmt_info SET CAT_CL_GIRO = ? WHERE CAT_CL_CODIGO = ? And CAT_CL_NOMBRE = ?", Array As Object (girotienda, la_cuenta.text,La_nombre.Text))
If girotienda = "Tienda de Abarrotes (Abarrotes, Misceláneas, Minisupers, Particulares con Venta y Cremerías)" Then
If girotienda = "Tienda de Abarrotes (Abarrotes, Misceláneas, Minisupers, Particulares con Venta y Cremerías)" Then
If ALMACEN = "35" Or ALMACEN = "43" Or ALMACEN = "54" Or ALMACEN = "73" Or ALMACEN = "56" Then 'ALMACEN = "7" Then '
''Or ALMACEN = "56" ATIZAPAN PEDIGRI
p_pregunta1.Visible = False
SV_ENCUESTA.Visible = True
SV_ENCUESTA.Panel.LoadLayout("ENCUESTA_PED")
SV_ENCUESTA.Panel.Height = Panel4.Height
Panel4.Visible = True
b_like.Visible = False
BT_QR.Visible = False
B_GALLINA.Visible = False
Tar.Visible = False
Tels.Visible = False
gest.Visible = False
b_venta.Visible = False
Guardar.Visible = False
HIST.Visible = False
Else
If que_modulo = Null Or que_modulo = " " Then que_modulo = "1"
' Msgbox(que_modulo,"ALO")
If que_modulo = "1" Then
p_pregunta1.Visible = False
SV_ENCUESTA.Visible = True
SV_ENCUESTA.Panel.LoadLayout("ENCUESTA_PED")
SV_ENCUESTA.Panel.Height = Panel4.Height
Panel4.Visible = True
b_like.Visible = False
BT_QR.Visible = False
B_GALLINA.Visible = False
Tar.Visible = False
Tels.Visible = False
gest.Visible = False
b_venta.Visible = False
Guardar.Visible = False
HIST.Visible = False
Else
If que_modulo = Null Or que_modulo = " " Then que_modulo = "1"
' Msgbox(que_modulo,"ALO")
If que_modulo = "1" Then
' esto para la primera encuesta m1
p_pregunta1.Visible = False
p_cliente.Visible = False
@@ -765,10 +760,7 @@ If que_modulo = "1" Then
Panel5.Width = Root.Width * 0.94
SV_ENCUESTA.Panel.Height = Panel5.Height + 60
Panel7.Visible = False
else if que_modulo = "2" Then
'' para la m2
p_pregunta1.Visible = False
p_cliente.Visible = False
@@ -786,7 +778,6 @@ If que_modulo = "1" Then
Panel5.Width = Root.Width * 0.94
SV_ENCUESTA.Panel.Height = Panel5.Height + 60
else if que_modulo = "4" Then
'' para la m4
p_pregunta1.Visible = False
p_cliente.Visible = False