diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index a680ec5..6d251a1 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -1735,7 +1735,7 @@ Sub JobDone(Job As HttpJob) Next End If End If - + If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = reqManager.HandleJob(Job) If RESULT.Tag = "hist_avance" Then 'query tag @@ -1747,7 +1747,7 @@ Sub JobDone(Job As HttpJob) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_AVANCE(HA_MARCA, HA_AVANCE, HA_OBJETIVO, HA_PORCENTAJE) VALUES (?,?,?,?)", Array As Object (marca, avance, objetivo, porcentaje1)) Next End If - + Dim RESULT As DBResult = reqManager.HandleJob(Job) If RESULT.Tag = "promosXruta" Then 'query tag For Each records() As Object In RESULT.Rows diff --git a/B4A/Mariana.b4a.meta b/B4A/Mariana.b4a.meta index 1c1e848..d27d11e 100644 --- a/B4A/Mariana.b4a.meta +++ b/B4A/Mariana.b4a.meta @@ -82,6 +82,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Productos,et_pCant_FocusChanged,577,0,C_Productos,b_terminar1_Click,581,1,B4XMainPage,B4XPage_Created,173,5,C_Principal,Subir_Click,513,6,C_Principal,cargar_Click,950,1,C_Principal,JobDone,1368,2,Subs,revisaMaxPromosProdsFijosPorInventario2,1042,0,Subs,revisaMaxPromosProdsVariablesPorInventario,1129,0,Subs,alcanzanLosVariablesParaPromo,953,0,Subs,traeMaxPromos,978,6 +NavigationStack=C_Productos,b_terminar1_Click,581,1,B4XMainPage,B4XPage_Created,173,5,C_Principal,Subir_Click,513,6,Subs,revisaMaxPromosProdsFijosPorInventario2,1042,0,Subs,revisaMaxPromosProdsVariablesPorInventario,1129,0,Subs,alcanzanLosVariablesParaPromo,954,0,C_Principal,cargar_Click,950,1,C_Principal,JobDone,1731,2,Subs,traeMaxPromos,957,6,C_Productos,lv_catalogos_ItemClick,213,0 SelectedBuild=0 VisibleModules=2,12,4,5,6,7,8,9,10,26,13 diff --git a/B4A/Subs.bas b/B4A/Subs.bas index b74fec7..cf94c4d 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -961,7 +961,7 @@ End Sub 'Regresa el numero máximo de promociones permitidas, tomando en cuenta recurrentes, clientes y maxPromos. Sub traeMaxPromos(pm As Map) As Int - Private thisLog As Boolean = True 'Si es verdadero, muestra los logs de este sub. + Private thisLog As Boolean = False 'Si es verdadero, muestra los logs de este sub. Private maxPromos As List Private vendidas As Int = 0 maxPromos.Initialize @@ -991,7 +991,7 @@ Sub traeMaxPromos(pm As Map) As Int vendidas = c.GetInt("vendidas") ' Log(vendidas) End If - + ' If Starter.promosLog Then Log(maxPromos) ' If Starter.promosLog Then Log("Max Promos="&maxPromos.Get(0)) ' LogColor($"maxPromos=${maxPromos.Get(0)} - vendidas=${vendidas}"$, Colors.red)