- VERSION 5.11.25

- Se agregó código para clientes de doble frecuencia y rutas espejo.
- Se agergó código para limite de clientes nuevos.

B4A/C_NuevoCliente.bas

@@ -117,11 +117,9 @@ Version=11.5
 Sub Class_Globals
 	Private Root As B4XView 'ignore
 	Private xui As XUI 'ignore
-	
 	Dim g As GPS
 	Dim ruta As String
 	Dim c As Cursor
-	
 	Dim CANCELA As Button
 	Dim GUARDA As Button
 	Dim cuenta As String
@@ -160,6 +158,10 @@ Sub Class_Globals
 	Private et_telefono As EditText
 	Private et_cp As EditText
 	Private Label6 As Label
+	Dim cuantosNuevos As Int
+	Private p_transparenteCN As Panel
+	Private p_clientesNuevos As Panel
+	Private b_clienteNuevo As Button
 End Sub
 
 'You can add more parameters here.
@@ -209,6 +211,8 @@ End Sub
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
 
 Sub B4XPage_Appear
+	p_transparenteCN.Top = 0 : p_transparenteCN.Left = 0
+	p_transparenteCN.Width = Root.Width : p_transparenteCN.Height = Root.Height
 	et_direccion.Text = ""
 	E_NOMBRE.Text =  ""
 	ET_Atiende.Text = ""
@@ -239,7 +243,32 @@ Sub B4XPage_Appear
 		GUARDA.Visible = True 'Si hay ubicaccion, mostramos el boton de guardar.
 		l_sinUbicacion.Visible = True
 	End If
-	
+	cuantosNuevos = 0
+	Subs.centraPanel(p_clientesNuevos, Root.Width)
+	c = Starter.skmt.ExecQuery("select count(cat_cl_codigo) as cuantos from kmt_info where cat_cl_codigo like 'N%'")
+	If c.RowCount > 0 Then
+		c.Position = 0
+		cuantosNuevos = c.GetInt("cuantos")
+	End If
+	c.Close
+	Dim permitidos As Int = 0
+	c = Starter.skmt.ExecQuery("select ACTIVO from cn")
+	If c.RowCount > 0 Then
+		c.Position = 0
+		permitidos = c.GetInt("ACTIVO")
+	End If
+	c.Close
+	Log($"Permitidos: ${permitidos}, Actuales: ${cuantosNuevos}"$)
+	Log((permitidos > 0) & "|" & (permitidos > cuantosNuevos))
+	If permitidos <> 0 Then ' Si permitidos es CERO entonces SIN LIMITE de clientes nuevos.
+		If permitidos > cuantosNuevos Then
+			p_transparenteCN.Visible = False
+		Else
+			p_transparenteCN.BringToFront
+			p_transparenteCN.Visible = True
+		End If
+	End If
+
 	CallSubDelayed(Tracker, "Track")
 	CallSubDelayed(Tracker, "StartFLPSmall")
 	If Tracker.FLP.IsInitialized And Tracker.FLP.GetLastKnownLocation.IsInitialized Then 'Si tenemos "UltimaUbicaccionConocida" la usamos.
@@ -574,4 +603,13 @@ Private Sub et_telefono_TextChanged (Old As String, New As String)
 		End If
 	End If
 	
+End Sub
+
+Private Sub b_clienteNuevo_Click
+	B4XPages.ShowPage("Principal")
+	p_transparenteCN.Visible = False
+End Sub
+
+Private Sub p_transparenteCN_Click
+	
 End Sub

B4A/C_Principal.bas

@@ -975,15 +975,15 @@ Sub cargar_Click
 		reqManager.ExecuteQuery(cmd , 0, "detallepaq")
 
 		cmd.Initialize
-		cmd.Name = "select_cat_clientes_INTMEX"
+		cmd.Name = "select_cat_clientes2_INTMEX"
 		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
 		reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
-		
+
 		cmd.Initialize
 		cmd.Name = "select_cn_INTMEX"
 		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
 		reqManager.ExecuteQuery(cmd , 0, "cn")
-		
+
 		'' cambiar
 		cmd.Initialize
 		cmd.Name = "select_cat_GIRO_INTMEX"
@@ -1041,7 +1041,7 @@ Sub cargar_Click
 			ImageView9.Visible = False
 			
 			cmd.Initialize
-			cmd.Name = "select_cat_clientes_INTMEX"
+			cmd.Name = "select_cat_clientes2_INTMEX"
 			cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
 			reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
 			

B4A/INTMEX.b4a

@@ -164,7 +164,7 @@ Version=12.8
 #Region  Project Attributes 
 	#ApplicationLabel: Intmex
 	#VersionCode: 1
-	#VersionName: 5.10.13
+	#VersionName: 5.11.25
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False

B4A/INTMEX.b4a.meta

@@ -63,16 +63,16 @@ ModuleBreakpoints9=
 ModuleClosedNodes0=
 ModuleClosedNodes1=
 ModuleClosedNodes10=
-ModuleClosedNodes11=
+ModuleClosedNodes11=3
 ModuleClosedNodes12=
-ModuleClosedNodes13=4,5
+ModuleClosedNodes13=
-ModuleClosedNodes14=11
+ModuleClosedNodes14=
 ModuleClosedNodes15=
 ModuleClosedNodes16=
 ModuleClosedNodes17=
 ModuleClosedNodes18=
 ModuleClosedNodes19=
-ModuleClosedNodes2=6
+ModuleClosedNodes2=
 ModuleClosedNodes20=
 ModuleClosedNodes21=
 ModuleClosedNodes22=
@@ -85,12 +85,12 @@ ModuleClosedNodes28=
 ModuleClosedNodes29=
 ModuleClosedNodes3=
 ModuleClosedNodes30=
-ModuleClosedNodes4=4
+ModuleClosedNodes4=
 ModuleClosedNodes5=3
 ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Principal,checaPedido,2806,2,C_Cliente,l_telefono_LongClick,1691,0,Diseñador Visual,cliente.bal,-100,4,C_Cliente,Label16_LongClick,1738,0,C_Cliente,b_aceptelefono_Click,1721,6,C_Cliente,mandaPendientes,1268,2,C_NuevoCliente,GUARDA_Click,385,0,B4XMainPage,B4XPage_Created,104,2,C_Principal,Class_Globals,0,0,C_Principal,cargar_Click,1039,1,C_Principal,JobDone,1483,3
+NavigationStack=C_Principal,JobDone,1499,0,C_Principal,cargar_Click,967,0,C_NuevoCliente,p_transparenteCN_Click,588,0,C_NuevoCliente,et_cp_TextChanged,569,0,C_NuevoCliente,b_clienteNuevo_Click,582,6,Diseñador Visual,nuevocliente.bal,-100,6,C_NuevoCliente,B4XPage_Created,168,0,C_NuevoCliente,Initialize,166,0,C_NuevoCliente,Class_Globals,115,4,C_NuevoCliente,B4XPage_Appear,234,6
 SelectedBuild=0
-VisibleModules=28,2,13,20,14,29,17,15,9,4
+VisibleModules=28,2,13,20,14,29,15,9,4,11