diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 94b0d20..43b5e57 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -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 diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 145b488..717b1cb 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -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 diff --git a/B4A/Durakelo.b4a b/B4A/Durakelo.b4a index 1f193f8..4a8a395 100644 --- a/B4A/Durakelo.b4a +++ b/B4A/Durakelo.b4a @@ -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 diff --git a/B4A/Durakelo.b4a.meta b/B4A/Durakelo.b4a.meta index 71f6c6b..9dc8b90 100644 --- a/B4A/Durakelo.b4a.meta +++ b/B4A/Durakelo.b4a.meta @@ -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