From 0a4483d93c5f0d29d011cd3d99c8c4a76881c14c Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Fri, 28 Nov 2025 17:36:45 -0600 Subject: [PATCH] =?UTF-8?q?-=20VERSION=205.11.26=20-=20Se=20corrigi=C3=B3?= =?UTF-8?q?=20que=20cuando=20se=20descargue=20el=20dato=20de=20clientes=20?= =?UTF-8?q?nuevos=20no=20se=20dulplique=20el=20registro.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/C_Principal.bas | 1 + B4A/Files/nuevocliente.bal | Bin 14556 -> 14557 bytes B4A/INTMEX.b4a | 2 +- B4A/INTMEX.b4a.meta | 2 +- 4 files changed, 3 insertions(+), 2 deletions(-) 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 8b7d21b111e39dfdc632da3b75b7a80a27ddc84c..7628627530c110a487ad2040aaf52f3d7c762ea8 100644 GIT binary patch delta 53 zcmcapc(-svDvyQ_0|SFkPHOt$%?gP*3OR?@=4O_pDx{<;B