diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 10858aa..3a7ede6 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -1506,6 +1506,7 @@ Sub JobDone(Job As HttpJob) If RESULT.Tag = "cn" Then 'query tag For Each records() As Object In RESULT.Rows Dim CAT_RU_CN As String = records(RESULT.Columns.Get("CAT_RU_CN")) + B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM CN") B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CN(ACTIVO) VALUES (?)", Array As Object (CAT_RU_CN)) Next End If diff --git a/B4A/Files/nuevocliente.bal b/B4A/Files/nuevocliente.bal index 8b7d21b..7628627 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 af1f67b..7b7d8bb 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.11.25 + #VersionName: 5.11.26 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/INTMEX.b4a.meta b/B4A/INTMEX.b4a.meta index b1e49bf..9589331 100644 --- a/B4A/INTMEX.b4a.meta +++ b/B4A/INTMEX.b4a.meta @@ -91,6 +91,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -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 +NavigationStack=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,C_NuevoCliente,B4XPage_Created,168,0,C_NuevoCliente,Initialize,166,0,C_NuevoCliente,Class_Globals,115,4,C_NuevoCliente,B4XPage_Appear,234,6,Main,Process_Globals,18,0,DiseƱador Visual,nuevocliente.bal,-100,6,C_Principal,JobDone,1502,1 SelectedBuild=0 VisibleModules=28,2,13,20,14,29,15,9,4,11