- VERSION 5.08.22

- Cambios para que desde clienets y mapa aparezcan losbotones de inicio y fin venta

B4A/B4XMainPage.bas

@@ -22,6 +22,17 @@ Version=9.85
 
 'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=github&Args=..\..\
 
+
+' ###################################################################
+' ##################           Pendientes          ##################
+' ###################################################################
+'
+' Bitacora de ubicacioes (como FLP2)
+' MotivoNoVisita (como kelloggs cuando tienen un accidente y ya no van a terimnar la ruta)
+' validar que no se meta el peso en blanco (truena la aplicacion)
+' si se queda la venta iniciada y se sale de la app, que al iniciar se vaya DIRECTAMENTE A CLIENTE con la venta ya iniciada.
+' Cuando guarden el peso, que se vaya directamente a mostrar el boton de terminar venta.
+
 Sub Class_Globals
 	Dim c2 As Cursor
 	Dim sDate,sTime As String
@@ -108,7 +119,7 @@ Sub Class_Globals
 	Private P_PICK_CIEGO As Panel
 	Dim ET_PICK_CIEGO As EditText
 	Private L_PICK_CIEGO As Label
-	Private P_CIEGO As Panel
+	Private p_ciego As Panel
 	Dim Panel4 As Panel
 	Dim q_buscar As String
 	Private et_buspc As EditText
@@ -209,6 +220,12 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS NOVENTA (NV_CLIENTE TEXT, NV_FECHA TEXT, NV_USER TEXT, NV_MOTIVO TEXT, NV_COMM TEXT, NV_LAT TEXT, NV_LON TEXT)")
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PICK_CIEGO (PC_ID_PROD TEXT, PC_NOM_PROD TEXT, PC_CANT TEXT, PC_ALMACEN TEXT, PC_RUTA TEXT, PC_FECHA TEXT)")
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENV_MONTO_LIQ (EML_MONTO TEXT, EML_ALMACEN TEXT, EML_RUTA TEXT, EML_USUARIO TEXT, EML_FECHA_PED TEXT)")
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS BITACORAGPS(id TEXT, fechab TEXT, usuariob TEXT, almacenb TEXT, rutab TEXT, eventob TEXT, clienteb TEXT, iniciob TEXT, finb TEXT, latitudb TEXT, longitudb TEXT, precision TEXT, motivonoventa TEXT, motivonovisita TEXT, otro TEXT, enviado TEXT DEFAULT 0)")
+	skmt.ExecNonQuery("CREATE TABLE If Not EXISTS PESOS(PE_TIPO TEXT, PE_IDALMACEN TEXT, PE_RUTA TEXT, PE_USUARIO TEXT, PE_CLIENTE TEXT, PE_PESO TEXT, PE_MOTIVO TEXT, PE_COMENTARIO TEXT, PE_FECHA TEXT, PE_FECHA_SINC TEXT)")
+	skmt.ExecNonQuery("CREATE TABLE If Not EXISTS HIST_UBICACIONES (HU_ID EXT, HU_IDALMACEN TEXT, HU_RUTA TEXT, HU_USUARIO TEXT, HU_LATITUD TEXT, HU_LONGITUD TEXT, HU_FECHA TEXT, HU_ENVIADO TEXT DEFAULT 0)")
+	
+	skmt.ExecNonQuery("CREATE TABLE If Not EXISTS kmt_info (CAT_CL_FOTO BLOB, CAT_CL_NUM_SERIEFISICO TEXT, CAT_CL_MTOCOMPRA TEXT, CAT_CL_CEDIS TEXT, CAT_CL_LAT TEXT, CAT_CL_LONG TEXT, CAT_CL_FBAJA TEXT, CAT_CL_FALTA TEXT, CAT_CL_CP TEXT, CAT_CL_EDO TEXT, CAT_CL_MUNI TEXT, CAT_CL_COLONIA TEXT, CAT_CL_CALLE2 TEXT, CAT_CL_CALLE1 TEXT, CAT_CL_NOINT TEXT, CAT_CL_NOEXT TEXT, CAT_CL_CALLE TEXT, CAT_CL_EMAIL TEXT, CAT_CL_TELEFONO TEXT, CAT_CL_ATIENTE2 TEXT, CAT_CL_ATIENDE1 TEXT, CAT_CL_NOMBRE TEXT, CAT_CL_GIRO TEXT, CAT_CL_DIAS_VISITA TEXT, CAT_CL_TIPO_RUTA TEXT, CAT_CL_RUTA TEXT, CAT_CL_CODIGO TEXT, gestion NUMERIC, CAT_CL_BCREDITO TEXT, CAT_CL_LIMITECREDITO TEXT)")
+	
 	Subs.agregaColumna("PEDIDO", "PE_ENVIO_OK", "INT")
 	Subs.agregaColumna("PEDIDO", "PE_CANTC", "TEXT")
 	Subs.agregaColumna("PEDIDO", "PE_BCAJAS", "TEXT")
@@ -229,6 +246,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 		skmt.ExecNonQuery("INSERT INTO HIST_STAY_OUT(HSO_INI, HSO_FIN) VALUES (0,0)")
 	End If
 	C.Close
+	
+	p_ciego.Top = 0 : p_ciego.Left = 0
 '	server = "http://keymon.com.mx:1782"
 	'server = "http://201.99.139.28:1783"
 '	reqManager.Initialize(Me, DBReqServer)
@@ -300,12 +319,13 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 			Wait For MES_StorageAvailable
 		End If
 	End If
-	P_CIEGO.Height = Root.Height
-	P_CIEGO.Width = Root.Width
+	p_ciego.Height = Root.Height
+	p_ciego.Width = Root.Width
 	p_validacion.Height = Root.Height
 	p_validacion.Width = Root.Width
 	p_add_monto.Height = Root.Height
 	p_add_monto.Width = Root.Width
+	CallSubDelayed(Tracker, "StartFLP")
 End Sub
 
 Sub B4XPage_Appear
@@ -381,7 +401,21 @@ Sub B4XPage_Appear
 	If c12.RowCount > 0 Then
 		
 	End If
-
+	If Subs.nosQuedamosEnVenta Then
+		Dim enVentaPagina As String = ""
+		Private ev As Cursor = Starter.skmt.ExecQuery("select * from cat_variables where cat_va_descripcion = 'EN_VENTA_PAGINA'")
+		If ev.RowCount > 0 Then
+			ev.Position = 0
+			If ev.GetString("CAT_VA_VALOR") = "MAPA" Then
+				Log("VAMOS A MAPAS")
+				B4XPages.ShowPage("Mapas")
+				StartActivity("MAPA_RUTAS")
+			else if ev.GetString("CAT_VA_VALOR") = "CLIENTES" Then
+				Log("VAMOS A CLIENTES")
+				B4XPages.ShowPage("Clientes")
+			End If
+		End If
+	End If
 End Sub
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
 
@@ -478,10 +512,10 @@ Sub Entrar_Click
 				reqManager.ExecuteQuery(cmd , 0, "usuario_10") 'Antes usuario
 			End If
 		End If
-		Dim cmd As DBCommand
-		cmd.Initialize
-		cmd.Name = "select_version_ADM"
-		reqManager.ExecuteQuery(cmd , 0, "version")
+'		Dim cmd As DBCommand
+'		cmd.Initialize
+'		cmd.Name = "select_version_ADM"
+'		reqManager.ExecuteQuery(cmd , 0, "version")
 	Else
 		usuario = user.Text
 		B4XPages.ShowPage("Principal")
@@ -764,7 +798,7 @@ Private Sub B4XPage_CloseRequest As ResumableSub
 	Else If p_validacion.IsInitialized And p_validacion.Visible Then
 		p_validacion.Visible = False
 		Return False
-	Else If P_CIEGO.IsInitialized And P_CIEGO.Visible Then
+	Else If p_ciego.IsInitialized And p_ciego.Visible Then
 		MsgboxAsync("Debes de terminar el proceso para regresar a la pantalla principal","Atención")
 		Return False
 	Else If p_appUpdate.IsInitialized And p_appUpdate.Visible Then
@@ -1132,7 +1166,7 @@ Private Sub b_terpc_Click
 				Log("Processed item " & i)
 			Next
 			Log("Finished processing all items")
-			P_CIEGO.Visible = False
+			p_ciego.Visible = False
 			et_buspc.Text = ""
 			CLV_PICK_CIEGO.Clear
 			c = Starter.skmt.ExecQuery("SELECT PC_ID_PROD, PC_ALMACEN, PC_RUTA, PC_FECHA FROM PICK_CIEGO")