From ddf5cfe2aa890ccc8ad046e3ee33e72133489721 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Fri, 28 Nov 2025 13:56:45 -0600 Subject: [PATCH] =?UTF-8?q?-=20VERSION=205.11.25=20-=20Se=20agreg=C3=B3=20?= =?UTF-8?q?c=C3=B3digo=20para=20clientes=20de=20doble=20frecuencia=20y=20r?= =?UTF-8?q?utas=20espejo.=20-=20Se=20agerg=C3=B3=20c=C3=B3digo=20para=20li?= =?UTF-8?q?mite=20de=20clientes=20nuevos.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/C_NuevoCliente.bas | 44 ++++++++++++++++++++++++++++++++++--- B4A/C_Principal.bas | 8 +++---- B4A/Files/nuevocliente.bal | Bin 12367 -> 14556 bytes B4A/INTMEX.b4a | 2 +- B4A/INTMEX.b4a.meta | 14 ++++++------ 5 files changed, 53 insertions(+), 15 deletions(-) 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 3080bc8dbc13e297b8788cc468cc4d3eb343e9c4..8b7d21b111e39dfdc632da3b75b7a80a27ddc84c 100644 GIT binary patch delta 1142 zcmZuv%}-N75PwVguuuy032kX^a*$d8WX185;MUBc%iJSgEI2@li5h{NEqePJ)Qf7sr(luvuk(;9KKU-Zl~$%R>Z;_1{} zB0j$Zi6i~Jjw=hItJJV{C0%V``gEQ6nbd3 zi;mi2qkgawgT1h~;bsFcw-+8crd5V%x_Dyu>(Ht}? z_6>OK8ixV|KFBPpUACjuHW!Mlav zKQF0VMr%@H=QqFw(0Xl~4} delta 360 zcmcapcs_xbm4Sib5;Fq>7m!w&$g8Zz24pzJyZMLs^8s0UPNgL!`FY_*i3J6zMPNCw zz{U)2#>st*6~Z7z1@U>Msb%@jIhm<>C8?5=9htO6*@5C5K+FlmK;s!$fS7A?CzEtN zNC!U<3j#5WEri4tMq-N~u|*_^|&kbUz-p2I4W`wdw^7!+JU007mZC$<0p 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