VERSION 6.01.20

- Se agrego un "mandaPendientes" en bitacora para cuando por problemas de red no se puede enviar el evento.

B4A/C_NoVenta.bas

@@ -18,6 +18,10 @@ Sub Class_Globals
 	Dim r_1 As RadioButton
 	Dim r_2 As RadioButton
 	Dim r_3 As RadioButton
+	Dim r_4 As RadioButton
+	Dim r_5 As RadioButton
+	Dim r_6 As RadioButton
+	Dim r_7 As RadioButton
 	Dim e_comm As EditText
 	Dim motivo As String
 	Dim cuenta As String
@@ -25,15 +29,11 @@ Sub Class_Globals
 	Dim sDate,sTime As String
 '	Dim lat_gps, lon_gps As String
 	Dim tgl As Toggle
-	Dim r_4 As RadioButton
 	Dim reqManager As DBRequestManager
 	Private stay_hh As String
 	Private stay_mi As String
 	Private stay_ss As String
 	Dim bitacora As C_BItacora
-	Private r_5 As RadioButton
-	Private r_6 As RadioButton
-	Private r_7 As RadioButton
 End Sub
 
 'You can add more parameters here.
@@ -64,7 +64,7 @@ Sub B4XPage_Appear
 		ToastMessageShow("Es necesario tener el GPS encendido", True)
 		StartActivity(Starter.gps.LocationSettingsIntent)
 	End If
-	bitacora.Initialize("bitacora", "bitacora", Root, Starter.skmt, reqManager)
+	bitacora.Initialize("bitacora", "bitacora", Root, Starter.skmt, Starter.DBReqServer)
 	r_1.Checked = False
 	r_2.Checked = False
 	r_3.Checked = False
@@ -83,6 +83,7 @@ End Sub
 Sub CANCELA_Click
 	B4XPages.ShowPage("Cliente")
 End Sub
+
 Sub GUARDA_Click
 	If r_1.Checked Then
 		motivo = r_1.Text.ToUpperCase
@@ -145,7 +146,7 @@ Sub GUARDA_Click
 	
 	B4XPages.MainPage.skmt.ExecNonQuery2("update PEDIDO_INICIO_FINAL set PIF_HORA_FINAL = ? where PIF_CLIENTE = ? and PIF_HORA_FINAL = 0", Array As Object (DateTime.Now, cuenta))
 	LogColor($"actualizamos "${cuenta},  hora_final=${DateTime.now}"$,Colors.Red)
-	
+
 	mandaPendientesnoventa
 	B4XPages.ShowPage("Principal")
 End Sub