VERSION 6.02.03

B4A/KelloggsV4.b4a

@@ -331,7 +331,7 @@ File395=productos2.bal
 File396=profina.jpg
 File397=profina.png
 File398=promociones.bal
-File399=qr.bal
+File399=qr.bal__
 File4=alerta_amarilla.png
 File40=info_gral.resp
 File400=QR_Kelloggs.png
@@ -882,24 +882,24 @@ Module11=C_NuevoCliente
 Module12=C_Pedidos
 Module13=C_Principal
 Module14=C_Productos
-Module15=C_Promos
-Module16=C_TicketsDia
-Module17=|relative|..\C_TrendSpending
-Module18=C_updateAvailable
-Module19=CameraExClass
-Module2=|relative|..\C_Auditoria
-Module20=DBRequestManager
-Module21=DBRequestManagerW
-Module22=DownloadService
-Module23=errorManager
-Module24=EscPosPrinter
-Module25=FileHandler
-Module26=foto
-Module27=kms_helperSubs
-Module28=ManageExternalStorage
-Module29=MAPA_RUTAS
+Module15=C_Promociones
+Module16=C_Promos
+Module17=C_TicketsDia
+Module18=C_TrendSpending
+Module19=C_updateAvailable
+Module2=C_Auditoria
+Module20=CameraExClass
+Module21=DBRequestManager
+Module22=DBRequestManagerW
+Module23=DownloadService
+Module24=errorManager
+Module25=EscPosPrinter
+Module26=FileHandler
+Module27=foto
+Module28=kms_helperSubs
+Module29=ManageExternalStorage
 Module3=C_CheckList
-Module30=Promociones
+Module30=MAPA_RUTAS
 Module31=SD_Spinner
 Module32=Starter
 Module33=Subs
@@ -918,7 +918,7 @@ Version=12.8
 #Region  Project Attributes	
 	#ApplicationLabel: Kelloggs Venta
 	#VersionCode: 3000
-	#VersionName: 6.01.31
+	#VersionName: 6.02.03
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
 	#BridgeLogger:true
@@ -947,7 +947,24 @@ Sub Process_Globals
 End Sub
 
 Sub Globals
-
+	' Esta estructura es IDÉNTICA al Mapa que usas en Subs.traePromo
+	Type TPromoLegacy ( Id As String, _
+        MaxXCliente As String, _
+        MaxRecurrente As String, _
+        MaxPromos As String, _
+        historico As String, _
+        productos As Map, _
+        Tipos As Map, _
+        ProdsFijos As List, _
+        ProdsVariables As List, _
+        ProdsFijosPiezas As List, _
+        ProdsFijosPrecios As List, _
+        ProdsVariablesPrecios As List, _
+        ProdsVariablesRequeridos As Int, _
+        Descripcion As String, _
+        Resultado As String, _
+        MensajeError As String _
+    )
 End Sub
 
 Sub Activity_Create(FirstTime As Boolean)