- VERSION 5.11.26

- Se corrigió que cuando se descargue el dato de clientes nuevos no se dulplique el registro.

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