- VERSION 4.11.18

- Se agregó Marquez para el envío y validación de infromación.

B4A/B4XMainPage.bas

@@ -85,6 +85,7 @@ Sub Class_Globals
 	Dim intentUsado As Boolean = False
 	Dim Intmex As C_Intmex
 	Dim Durakelo As C_Durakelo
+	Dim Marquez As C_Marquez
 	Private l_version0 As Label
 End Sub
 
@@ -124,9 +125,11 @@ Sub B4XPage_Created (Root1 As B4XView)
 	sp_empresa.Add("Guna")
 	sp_empresa.Add("Intmex")
 	sp_empresa.Add("Mariana")
+	sp_empresa.Add("Marquez")
 	i_engrane.Left = Root.Width - i_engrane.Width - 5dip
 	Intmex.Initialize
 	Durakelo.Initialize
+	Marquez.Initialize
 End Sub
 
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
@@ -269,6 +272,11 @@ Sub B4XPage_Appear
 		b_valida.Text = "Validar Durakelo"
 		b_enviar.Enabled = True
 		Log("Cargamos DURAKELO")
+	else if empresa.ToUpperCase.Contains("MARQUEZ") Then
+		b_enviar.Text = "Enviar Marquez"
+		b_valida.Text = "Validar Marquez"
+		b_enviar.Enabled = True
+		Log("Cargamos MARQUEZ")
 	Else
 		p_empresa.Visible = True
 		b_enviar.Enabled = False
@@ -291,6 +299,8 @@ Sub b_enviar_Click
 			envioIntmex
 		else if empresa.ToUpperCase.Contains("DURAKELO") Then
 			envioDurakelo
+		else if empresa.ToUpperCase.Contains("MARQUEZ") Then
+			envioMarquez
 		End If
 '		Sleep(5000)
 	End If
@@ -682,6 +692,10 @@ Sub envioDurakelo 'ignore
 	Durakelo.envia
 End Sub
 
+Sub envioMarquez 'ignore
+	Marquez.envia
+End Sub
+
 Sub envioGuna 'ignore
 	Private PASO As Int = 1
 	reqManager.reqsList.Initialize 'inicializamos lista de requests.
@@ -964,6 +978,8 @@ Private Sub b_valida_Click
 		Intmex.valida
 	else if empresa.ToUpperCase.Contains("DURAKELO") Then
 		Durakelo.valida
+	else if empresa.ToUpperCase.Contains("MARQUEZ") Then
+		Marquez.valida
 	End If
 End Sub
 

B4A/C_Durakelo.bas

@@ -196,7 +196,6 @@ Sub envia
 			Log(LastException)
 		End Try
 
-
 '		' PEDIDO
 		B4XPages.MainPage.skmt.ExecNonQuery("update PEDIDO set PE_FOLIO = rowid ")
 		If perfil = "V-ESPECIAL" Then

B4A/DBCheck.b4a

@@ -28,19 +28,20 @@ Module1=B4XMainPage
 Module2=C_Durakelo
 Module3=C_Envios
 Module4=C_Intmex
-Module5=DBRequestManager
-Module6=FileHandler
-Module7=Starter
-Module8=Subs
+Module5=|relative|..\C_Marquez
+Module6=DBRequestManager
+Module7=FileHandler
+Module8=Starter
+Module9=Subs
 NumberOfFiles=6
 NumberOfLibraries=11
-NumberOfModules=8
+NumberOfModules=9
 Version=12.8
 @EndOfDesignText@
 #Region  Project Attributes 
 	#ApplicationLabel: DBCheck
 	#VersionCode: 1
-	#VersionName: 4.11.01
+	#VersionName: 4.11.18
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False

B4A/DBCheck.b4a.meta

@@ -7,6 +7,7 @@ ModuleBookmarks5=
 ModuleBookmarks6=
 ModuleBookmarks7=
 ModuleBookmarks8=
+ModuleBookmarks9=
 ModuleBreakpoints0=
 ModuleBreakpoints1=
 ModuleBreakpoints2=
@@ -16,15 +17,17 @@ ModuleBreakpoints5=
 ModuleBreakpoints6=
 ModuleBreakpoints7=
 ModuleBreakpoints8=
+ModuleBreakpoints9=
 ModuleClosedNodes0=2,6
 ModuleClosedNodes1=7,8,9,11,12,13,15,16,17,18,19,20,21
-ModuleClosedNodes2=6
+ModuleClosedNodes2=
 ModuleClosedNodes3=4,5
 ModuleClosedNodes4=
 ModuleClosedNodes5=
 ModuleClosedNodes6=
-ModuleClosedNodes7=1
-ModuleClosedNodes8=12,13,14
-NavigationStack=B4XMainPage,l_usuario2_LongClick,429,0,C_Durakelo,Class_Globals,10,2,C_Intmex,Class_Globals,10,0,C_Intmex,envia,22,0,C_Durakelo,JobDone,412,6,C_Intmex,JobDone,321,0,C_Durakelo,envia,214,6,C_Durakelo,T4_Tick,457,1,C_Durakelo,valida,443,0,B4XMainPage,b_guardaRuta_Click,452,6,Visual Designer,MainPage.bal,-100,1
+ModuleClosedNodes7=
+ModuleClosedNodes8=1
+ModuleClosedNodes9=12,13,14
+NavigationStack=B4XMainPage,envioMarquez,688,0,B4XMainPage,envioDurakelo,685,0,B4XMainPage,b_valida_Click,973,1,B4XMainPage,Class_Globals,81,1,C_Marquez,valida,446,0,C_Durakelo,envia,191,0,C_Marquez,Initialize,21,1,C_Durakelo,JobDone,344,0,C_Marquez,envia,254,0,C_Marquez,JobDone,473,1
 SelectedBuild=0
-VisibleModules=1,8,5,4,2
+VisibleModules=1,9,4,2,5,6

B4A/DBRequestManager.bas

@@ -9,7 +9,7 @@ Sub Class_Globals
 	Private mTarget As Object
 	Type DBResult (Tag As Object, Columns As Map, Rows As List)
 	Type DBCommand (Name As String, Parameters() As Object)
-	dim link As String
+	Dim link As String
 	Private bc As ByteConverter
 	Private T_NULL = 0, T_STRING = 1, T_SHORT = 2, T_INT = 3, T_LONG = 4, T_FLOAT = 5 _
 		,T_DOUBLE = 6, T_BOOLEAN = 7, T_BLOB = 8 As Byte

B4A/Subs.bas

@@ -172,6 +172,20 @@ Sub traeRuta As String 'ignore
 	Return r
 End Sub
 
+'Regresa la ruta actual de la base de datos.
+Sub traeRuta2 (cliente As String) As String 'ignore
+	Private c As Cursor
+	Private r As String
+	c=B4XPages.MainPage.skmt.ExecQuery($"select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO = '${cliente}' UNION ALL select CAT_CL_RUTA from kmt_info2 where CAT_CL_CODIGO = '${cliente}'"$)
+	r = "0"
+	If c.RowCount > 0 Then
+		c.Position=0
+		r = c.GetString("CAT_CL_RUTA")
+	End If
+	c.Close
+	Return r
+End Sub
+
 'Regresa la ruta del cliente dado de la tabla pedido.
 Sub traeRutaPedidoCliente(idcliente As String) As String 'ignore
 	Private r As String