cheveguerra/Kelloggs_V3
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_V3.git synced 2026-04-20 22:29:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

Cambios req y centavos

Browse Source
This commit is contained in:
cvaldes1201
2023-11-08 13:48:38 -06:00
parent fe724ecba2
commit ed1e2b5a34
4 changed files with 17 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
B4A/C_Cliente.bas
View File

@@ -295,6 +295,7 @@ Sub Class_Globals
Private e_comm As EditText Private e_comm As EditText
Private motivo As String Private motivo As String
Dim cursorprueba As Cursor Dim cursorprueba As Cursor
Dim sumatotal As Double = 0
End Sub End Sub
'You can add more parameters here. 'You can add more parameters here.
@@ -378,7 +379,8 @@ End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Sub B4XPage_Appear Sub B4XPage_Appear
Dim sumatotal As Double = 0 reqManager.Initialize(Me, Starter.server)
sumatotal = 0
If Subs.traeUltimaActividadBD <> "Cliente" Then Subs.iniciaActividad(Subs.traeUltimaActividadBD) If Subs.traeUltimaActividadBD <> "Cliente" Then Subs.iniciaActividad(Subs.traeUltimaActividadBD)
If Not(muestraBoleta) Then P_INF_GENERAL.Visible = True If Not(muestraBoleta) Then P_INF_GENERAL.Visible = True
@@ -481,9 +483,12 @@ Sub B4XPage_Appear
LogColor($"${c.GetString("CAT_CL_LAT")}, ${c.GetString("CAT_CL_LONG")}"$, Colors.red) LogColor($"${c.GetString("CAT_CL_LAT")}, ${c.GetString("CAT_CL_LONG")}"$, Colors.red)
If logger Then Log($"Lat: ${LATITUD}, Lon: ${LONGITUD}"$) If logger Then Log($"Lat: ${LATITUD}, Lon: ${LONGITUD}"$)
NOMBRE = c.GetString("CAT_CL_NOMBRE") NOMBRE = c.GetString("CAT_CL_NOMBRE")
If l_total.Text = Null Then Log(sumatotal)
If sumatotal = 0 Then
Tels.Visible = True Tels.Visible = True
Log("aqui")
Else Else
Log("aca")
Tels.Visible = False Tels.Visible = False
pgs_boton_noventa = "0" pgs_boton_noventa = "0"
If la_cuenta.Text = "0" Then If la_cuenta.Text = "0" Then
@@ -664,7 +669,10 @@ Sub B4XPage_Appear
gps_boton_doe = "0" gps_boton_doe = "0"
muestraBoleta = False muestraBoleta = False
' b_whats.Visible =False ' b_whats.Visible =False
If l_total.Text <> Null Then Tels.Visible = False If sumatotal <> 0 Then 'l_total.Text <> Null Or
Log("entre aca")
Tels.Visible = False
End If
End Sub End Sub
Sub Printer1_Connected (Success As Boolean) Sub Printer1_Connected (Success As Boolean)
@@ -743,7 +751,7 @@ Sub GPS_LocationChanged (Location1 As Location)
If gps_boton_doe = "1" And clienteConPromo = "0" Then b_whats.Visible = True If gps_boton_doe = "1" And clienteConPromo = "0" Then b_whats.Visible = True
B_VENTA.Visible = True B_VENTA.Visible = True
Tels.Visible = True Tels.Visible = True
If l_total.Text <> Null And l_total.Text <> "null" Then If sumatotal <> 0 Then 'l_total.Text <> Null Or l_total.Text <> "null" Or
' Log("Hide NoVenta" & "|" & l_total.Text & "|") ' Log("Hide NoVenta" & "|" & l_total.Text & "|")
Tels.Visible = False Tels.Visible = False
End If End If
@@ -3053,6 +3061,7 @@ Private Sub b_geopass_Click
et_geopass.Text = "" et_geopass.Text = ""
p_pideGeoPass.Visible = False p_pideGeoPass.Visible = False
Else Else
Log(Starter.server)
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize cmd.Initialize
cmd.Name = "select_geoPass" cmd.Name = "select_geoPass"

BIN
B4A/Files/cliente.bal
View File

Binary file not shown.

2
B4A/KelloggsV3.b4a
View File

@@ -176,7 +176,7 @@ Version=12.5
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Kelloggs Venta #ApplicationLabel: Kelloggs Venta
#VersionCode: 3000 #VersionCode: 3000
#VersionName: 3.11.02 RMI #VersionName: 3.11.08 RMI
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False
#BridgeLogger:true #BridgeLogger:true

4
B4A/KelloggsV3.b4a.meta
View File

@@ -82,6 +82,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=B4XMainPage,B4XPage_Created,169,0,C_Principal,cargar_Click,765,0,C_Principal,JobDone,1811,2,B4XMainPage,B4XPage_Appear,318,0,C_Cliente,Mods,0,0,Visual Designer,cliente.bal,-100,1,C_Cliente,b_aceptarrpomo_Click,2928,0,C_Cliente,ListView1_ItemLongClick,748,0,C_Cliente,B4XPage_Appear,608,0,C_Cliente,GPS_LocationChanged,735,6 NavigationStack=DBRequestManager,HandleJob,193,0,DBRequestManager,ReadByte,179,0,B4XMainPage,ImageView4_Click,531,1,Starter,Service_Create,69,0,C_Cliente,B4XPage_Created,374,0,C_Cliente,GPS_LocationChanged,746,6,C_Cliente,Class_Globals,291,0,Diseñador Visual,cliente.bal,-100,5,C_Cliente,B4XPage_Appear,436,6
SelectedBuild=0 SelectedBuild=0
VisibleModules=1,2,3,4,5,6,7,8,9,10 VisibleModules=1,2,3,4,5,6,7,8,9,10,25,17