diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas index e960baa..08a8b85 100644 --- a/B4A/C_Productos.bas +++ b/B4A/C_Productos.bas @@ -1454,14 +1454,16 @@ Private Sub clv_prods_ll_VisibleRangeChanged (FirstIndex As Int, LastIndex As In cs.Initialize l_prodX.Width = p_prods.Width - p_botMasMen.Width l_prodX.SetTextSizeAnimated(0, 13) - Private p1 As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_TIPOPROD2 from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_ID = '${clv_prods_ll.GetValue(i).As(Map).Get("id")}'"$) - Private prioridad As Int = 0 - If p1.RowCount > 0 Then - p1.Position = 0 - prioridad = p1.GetInt("CAT_GP_TIPOPROD2") -' Log(prioridad) - End If - p1.Close +' Private p1 As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_TIPOPROD2 from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_ID = '${clv_prods_ll.GetValue(i).As(Map).Get("id")}'"$) +' Private prioridad As Int = 0 +' If p1.RowCount > 0 Then +' p1.Position = 0 +' prioridad = p1.GetInt("CAT_GP_TIPOPROD2") +'' Log(prioridad) +' End If +' p1.Close + Private prioridad As Int = clv_prods_ll.GetValue(i).As(Map).Get("prioridad") + ' Log("NIVEL: " & lfila.Text) If lfila.Text = "RMI" Then ' Si es RMI, la cantidad solo se puede cambiar con los botones. et_pCant.Enabled = False @@ -1590,9 +1592,9 @@ Sub LlenaProdsLL(p As ResultSet, extra As String) Else ' Log("NO HAY RESULTSET") If clienteId = "0" Then - Dim p As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPO, CAT_GP_TIPOPROD from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' ORDER BY CAT_GP_TIPOPROD2 DESC, CAT_GP_NOMBRE"$) + Dim p As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPO, CAT_GP_TIPOPROD, CAT_GP_TIPOPROD2 from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' ORDER BY CAT_GP_TIPOPROD2 DESC, CAT_GP_NOMBRE"$) Else - Dim p As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPO, CAT_GP_TIPOPROD from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' and CAT_GP_PROMOCION <> '1' ORDER BY CAT_GP_TIPOPROD2 DESC, CAT_GP_NOMBRE"$) + Dim p As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPO, CAT_GP_TIPOPROD, CAT_GP_TIPOPROD2 from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' and CAT_GP_PROMOCION <> '1' ORDER BY CAT_GP_TIPOPROD2 DESC, CAT_GP_NOMBRE"$) End If ' If Starter.Logger Then Log($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPO, CAT_GP_TIPOPROD from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' and CAT_GP_PROMOCION <> '1' ORDER BY CAT_GP_TIPOPROD2 DESC, CAT_GP_NOMBRE"$) ' Log(p.RowCount & " - " & Subs.traeTablaProds(Starter.tipov)) @@ -1622,7 +1624,7 @@ Sub LlenaProdsLL(p As ResultSet, extra As String) Private descXSku As String = kh.traeDescXSku(clienteId, p.GetString("CAT_GP_ID")) If Starter.Logger And descXSku > 0 Then LogColor(">>> DESCXSKU CC - " & descXSku & " | " & p.GetString("CAT_GP_NOMBRE"), Colors.red) precio = NumberFormat2((precio-(precio*(descXSku/100))), 1, 2, 2, False) - Dim tempMap As Map = CreateMap("prod":p.GetString("CAT_GP_NOMBRE"), "precio":precio, "almacen":p.GetString("CAT_GP_ALMACEN"), "abordo":invAbordo, "id":p.GetString("CAT_GP_ID"), "cant":cant, "tipo":p.GetString("CAT_GP_TIPO")) + Dim tempMap As Map = CreateMap("prod":p.GetString("CAT_GP_NOMBRE"), "precio":precio, "almacen":p.GetString("CAT_GP_ALMACEN"), "abordo":invAbordo, "id":p.GetString("CAT_GP_ID"), "cant":cant, "tipo":p.GetString("CAT_GP_TIPO"), "prioridad": p.GetInt("CAT_GP_TIPOPROD2")) ' MOD by Cheve - 20260422 - Agregamos "Prioridad" listaProds.Add(tempMap) Loop p.Close diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal index 306347e..061fd7f 100644 Binary files a/B4A/Files/cliente.bal and b/B4A/Files/cliente.bal differ diff --git a/B4A/KelloggsV4.b4a b/B4A/KelloggsV4.b4a index cc1f045..f3e2323 100644 --- a/B4A/KelloggsV4.b4a +++ b/B4A/KelloggsV4.b4a @@ -918,7 +918,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Kelloggs Venta #VersionCode: 3000 - #VersionName: 6.03.30 + #VersionName: 6.04.20 #SupportedOrientations: portrait #CanInstallToExternalStorage: False #BridgeLogger:true diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta index 897b10b..95f5cb9 100644 --- a/B4A/KelloggsV4.b4a.meta +++ b/B4A/KelloggsV4.b4a.meta @@ -97,12 +97,12 @@ ModuleClosedNodes31= ModuleClosedNodes32= ModuleClosedNodes33= ModuleClosedNodes34= -ModuleClosedNodes4=1,3 +ModuleClosedNodes4=3 ModuleClosedNodes5= ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=Subs,parseHTTPError,2013,0,C_Principal,revisaHistNotificaciones,2355,6,C_Principal,enviaHistNotificaciones,2325,6,C_NuevoCliente,Class_Globals,2,0,B4XMainPage,i_engranes_LongClick,745,0,DBRequestManagerW,ExecuteQuery,50,0,DBRequestManagerW,Initialize,42,0,DBRequestManagerW,JobDone,135,6,DBRequestManagerW,Class_Globals,20,0,DBRequestManagerW,ExecuteCommand,105,0 +NavigationStack=DBRequestManagerW,ExecuteCommand,105,0,C_Principal,enviaHistNotificaciones,2325,6,B4XMainPage,i_engranes_LongClick,745,0,DBRequestManagerW,JobDone,123,6,C_Cliente,b_notificacion_Click,4474,0,Diseñador Visual,cliente.bal,-100,4,C_Cliente,Class_Globals,295,0,C_Productos,Class_Globals,0,0,C_Productos,LlenaProdsLL,1618,6,C_Productos,clv_prods_ll_VisibleRangeChanged,1447,0,DBRequestManager,Initialize,25,0 SelectedBuild=0 -VisibleModules=32,1,13,4,33,16,34,14,15,24,22 +VisibleModules=32,1,13,4,33,16,34,14,15,24,21 diff --git a/B4A/_juntaBas.ps1 b/B4A/_juntaBas.ps1 index 30e34be..28c5a6c 100644 --- a/B4A/_juntaBas.ps1 +++ b/B4A/_juntaBas.ps1 @@ -47,6 +47,7 @@ $Header = @" 5. **Formato:** Usa bloques 'vb'. 6. **Navegacion Estructural:** Usa los tags , y para localizar codigo. 7. **Inferencia de Datos:** Deduce la BD solo de los strings SQL presentes. +8. **Limpieza de Salida:** Los tags , y son metadatos de navegación. Al entregar código, ESTÁ ESTRICTAMENTE PROHIBIDO incluirlos en los bloques 'vb'. Entrega código B4A crudo (Sub...End Sub). "@ Set-Content -Path $OutFile -Value $Header -Encoding UTF8