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

- Se reactivo la encuensta de Unilever

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-07-01 10:59:43 -06:00
parent 6c6b183780
commit ae2e062f8a
4 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
B4A/C_Cliente.bas
View File

@@ -413,11 +413,11 @@ End Sub
Sub gest_Click
Log("GEST CLIC")
' Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
' If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
' cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder"))
' Return False
' End If
Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder"))
Return False
End If
' If la_cuenta.Text <> "0" Then
' Dim queenc As String
' ' 1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local
@@ -1247,11 +1247,11 @@ Sub B_INV_Click
End Sub
Sub B_VENTA_Click
' Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
' If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
' cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder"))
' Return False
' End If
Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder"))
Return False
End If
' If la_cuenta.Text <> "0" Then
' Dim queenc As String
' ' 1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local

2
B4A/C_Principal.bas
View File

@@ -2468,7 +2468,7 @@ Sub Resumen_Click
If E1.GetString("CUANTOS") > 0 Then
c=skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("VENTA"))
c.Position = 0
L_VENTA.Text = numberformat2(c.GetString("MONTO_DIA"), 1, 2, 2, true)
L_VENTA.Text = NumberFormat2(c.GetString("MONTO_DIA"), 1, 2, 2, True)
c.Close
Else
L_VENTA.Text = 0

2
B4A/Durakelo.b4a
View File

@@ -1402,7 +1402,7 @@ Version=12.8
#Region Project Attributes
#ApplicationLabel: Durakelo
#VersionCode: 1
#VersionName: 4.06.16
#VersionName: 4.06.16.EU
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

2
B4A/Durakelo.b4a.meta
View File

@@ -73,6 +73,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=C_Principal,connecta_Click,1991,3,Diseñador Visual,Cliente.bal,-100,1,Subs,traePromosVendidas,997,0,Subs,procesaPromocion,1010,0,Subs,traeMaxPromos,983,0,C_Principal,JobDone,1353,2,C_Principal,B4XPage_Created,228,0,C_Principal,B4XPage_Appear,395,0,Diseñador Visual,principal.bal,-100,6,C_Principal,Resumen_Click,2464,4
NavigationStack=C_Principal,Class_Globals,16,0,C_Cliente,gest_Click,408,0,C_Cliente,B_VENTA_Click,1245,0,C_Cliente,b_guadaenc_Click,1694,0,Subs,procesaPromocion,1010,0,Subs,traeMaxPromos,983,0,C_Principal,JobDone,1353,2,C_Principal,B4XPage_Created,228,0,C_Principal,B4XPage_Appear,395,0,C_Principal,Resumen_Click,2457,4,C_Cliente,cuest_preguntaContestada,1805,0
SelectedBuild=0
VisibleModules=2,10,4,19,5,6,8,9,11,24