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-07-22 16:26:48 -06:00
parent ae2e062f8a
commit 9330be0a9d
4 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/C_Cliente.bas
View File

@@ -1247,7 +1247,7 @@ Sub B_INV_Click
End Sub End Sub
Sub B_VENTA_Click Sub B_VENTA_Click
Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$) ' Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then 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")) 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 Return False

4
B4A/C_Principal.bas
View File

@@ -1211,7 +1211,7 @@ Sub JobDone(Job As HttpJob)
If n = "OKActivo" Then If n = "OKActivo" Then
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize cmd.Initialize
cmd.Name = "select_ruta_DUR3" 'Se cambio de "select_ruta_DUR2_2" el 28/5/2024 para poder deshabilitar el query de las versiones anteriores. cmd.Name = "select_ruta_DUR4" 'Se cambio de "select_ruta_DUR2_2" el 28/5/2024 para poder deshabilitar el query de las versiones anteriores.
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei) cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei)
Log($"${ALMACEN},${e_ruta.text},${imei}"$) Log($"${ALMACEN},${e_ruta.text},${imei}"$)
reqManager.ExecuteQuery(cmd , 0, "ruta") reqManager.ExecuteQuery(cmd , 0, "ruta")
@@ -2468,7 +2468,7 @@ Sub Resumen_Click
If E1.GetString("CUANTOS") > 0 Then 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=skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("VENTA"))
c.Position = 0 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 c.Close
Else Else
L_VENTA.Text = 0 L_VENTA.Text = 0

2
B4A/Durakelo.b4a
View File

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

2
B4A/Durakelo.b4a.meta
View File

@@ -73,6 +73,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
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 NavigationStack=Subs,traeMaxPromos,983,0,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,C_Principal,JobDone,1188,2,C_Principal,connecta_Click,1967,3,C_Clientes,Class_Globals,0,0,C_Cliente,Class_Globals,0,0,C_Cliente,gest_Click,409,0,C_Cliente,B_VENTA_Click,1244,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=2,10,4,19,5,6,8,9,11,24 VisibleModules=2,10,4,19,5,6,8,9,11,24