From ed1e2b5a34c85638b8530efd8e3b5acdf2c90795 Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Wed, 8 Nov 2023 13:48:38 -0600 Subject: [PATCH] Cambios req y centavos --- B4A/C_Cliente.bas | 19 ++++++++++++++----- B4A/Files/cliente.bal | Bin 103396 -> 103396 bytes B4A/KelloggsV3.b4a | 2 +- B4A/KelloggsV3.b4a.meta | 4 ++-- 4 files changed, 17 insertions(+), 8 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index f02eab8..c32b813 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -295,6 +295,7 @@ Sub Class_Globals Private e_comm As EditText Private motivo As String Dim cursorprueba As Cursor + Dim sumatotal As Double = 0 End Sub '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. 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 Not(muestraBoleta) Then P_INF_GENERAL.Visible = True @@ -431,7 +433,7 @@ Sub B4XPage_Appear S1=Starter.skmt.ExecQuery("select count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") S1.Position=0 ' Log("hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh "&c.RowCount) - cursorprueba = Starter.skmt.ExecQuery2("select PE_COSTO_TOT from pedido where PE_CEDIS <> PE_PROID and pe_cliente in (Select CUENTA from cuentaa) AND PE_CEDIS <> ?", Array As String("DOE")) + cursorprueba = Starter.skmt.ExecQuery2("select PE_COSTO_TOT from pedido where PE_CEDIS <> PE_PROID and pe_cliente in (Select CUENTA from cuentaa) AND PE_CEDIS <> ?", Array As String("DOE")) For i= 0 To cursorprueba.RowCount -1 cursorprueba.Position = i LogColor(cursorprueba.GetString("PE_COSTO_TOT"),Colors.Red) @@ -481,9 +483,12 @@ Sub B4XPage_Appear LogColor($"${c.GetString("CAT_CL_LAT")}, ${c.GetString("CAT_CL_LONG")}"$, Colors.red) If logger Then Log($"Lat: ${LATITUD}, Lon: ${LONGITUD}"$) NOMBRE = c.GetString("CAT_CL_NOMBRE") - If l_total.Text = Null Then + Log(sumatotal) + If sumatotal = 0 Then Tels.Visible = True + Log("aqui") Else + Log("aca") Tels.Visible = False pgs_boton_noventa = "0" If la_cuenta.Text = "0" Then @@ -664,7 +669,10 @@ Sub B4XPage_Appear gps_boton_doe = "0" muestraBoleta = 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 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 B_VENTA.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 & "|") Tels.Visible = False End If @@ -3053,6 +3061,7 @@ Private Sub b_geopass_Click et_geopass.Text = "" p_pideGeoPass.Visible = False Else + Log(Starter.server) Dim cmd As DBCommand cmd.Initialize cmd.Name = "select_geoPass" diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal index 43dd58364410d38be9fffa5d253098b8b14a928a..a7146f3154d029c6fbc36ff015856c0c3618ed8f 100644 GIT binary patch delta 43 wcmaE|obAbSwhgb(3NtY?Fvu}5FfjH233(91ZTf-s0018V0003-m!OaVD3f063bQcIw8b_B4>$k- diff --git a/B4A/KelloggsV3.b4a b/B4A/KelloggsV3.b4a index 36fe7d3..ad91140 100644 --- a/B4A/KelloggsV3.b4a +++ b/B4A/KelloggsV3.b4a @@ -176,7 +176,7 @@ Version=12.5 #Region Project Attributes #ApplicationLabel: Kelloggs Venta #VersionCode: 3000 - #VersionName: 3.11.02 RMI + #VersionName: 3.11.08 RMI #SupportedOrientations: portrait #CanInstallToExternalStorage: False #BridgeLogger:true diff --git a/B4A/KelloggsV3.b4a.meta b/B4A/KelloggsV3.b4a.meta index 82381ab..8d0e041 100644 --- a/B4A/KelloggsV3.b4a.meta +++ b/B4A/KelloggsV3.b4a.meta @@ -82,6 +82,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= 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 -VisibleModules=1,2,3,4,5,6,7,8,9,10 +VisibleModules=1,2,3,4,5,6,7,8,9,10,25,17