diff --git a/B4A/C_NuevoCliente.bas b/B4A/C_NuevoCliente.bas index a83d114..411d80f 100644 --- a/B4A/C_NuevoCliente.bas +++ b/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 \ No newline at end of file diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 9c9aa07..10858aa 100644 --- a/B4A/C_Principal.bas +++ b/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") diff --git a/B4A/Files/nuevocliente.bal b/B4A/Files/nuevocliente.bal index 3080bc8..8b7d21b 100644 Binary files a/B4A/Files/nuevocliente.bal and b/B4A/Files/nuevocliente.bal differ diff --git a/B4A/INTMEX.b4a b/B4A/INTMEX.b4a index 4d4a86f..af1f67b 100644 --- a/B4A/INTMEX.b4a +++ b/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 diff --git a/B4A/INTMEX.b4a.meta b/B4A/INTMEX.b4a.meta index 1213c7d..b1e49bf 100644 --- a/B4A/INTMEX.b4a.meta +++ b/B4A/INTMEX.b4a.meta @@ -63,16 +63,16 @@ ModuleBreakpoints9= ModuleClosedNodes0= ModuleClosedNodes1= ModuleClosedNodes10= -ModuleClosedNodes11= +ModuleClosedNodes11=3 ModuleClosedNodes12= -ModuleClosedNodes13=4,5 -ModuleClosedNodes14=11 +ModuleClosedNodes13= +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