- 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