Cambios req y centavos

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"

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

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