Hola, buenas tardes.

Gracias por contestar y perdón por no poner el código, pero me pillo la mente saturada y lo primero que hay que hacer, no lo hice. Sorry.

Te paso el código y ya me dices, si es posible, donde me falta algo o que me sobra jejeje

En el  “OnInitReport”…

trigger OnInitReport()
begin
        …

        xVisible1 := true;
        xVisible2 := true;
        xVisible3 := true;
        xVisible4 := true;
        xVisible5 := true;
        xVisible6 := true;  

        …

end;

En el “procedure” global…

local procedure CambiarVisibleF(pOption: Option)
begin
xVisible1 := false;
xVisible2 := false;
xVisible3 := false;
xVisible4 := false;
xVisible5 := false;
xVisible6 := false;
case pOption of
0:
begin
xVisible1 := true;
xVisible2 := true;
xVisible3 := true;
xVisible4 := true;
xVisible5 := true;
xVisible6 := true;
TipoFiltro := ‘A’;
end;
1:
begin
xVisible1 := true;
TipoFiltro := ‘B’;
end;
2:
begin
xVisible2 := true;
TipoFiltro := ‘C’;
end;
3:
begin
xVisible3 := true;
TipoFiltro := ‘D’;
end;
4:
begin
xVisible4 := true;
TipoFiltro := ‘E’;
end;
5:
begin
xVisible5 := true;
TipoFiltro := ‘F’;
end;
6:
begin
xVisible6 := true;
TipoFiltro := ‘G’;
end;
end;
end;

En las “Var” globales…

var
…
xOption: Option A,B,C,D,E,F,G;
xVisible1: boolean;
xVisible2: boolean;
xVisible3: boolean;
xVisible4: boolean;
xVisible5: boolean;
xVisible6: boolean;
xReferencia: Code[20];
xCliente: Code[20];
xZona: Code[20];
xComercial: Code[20];
xGrupo_compras: Code[20];
xFamilia: Code[20];
TipoFiltro: Text;

…

En el requestpage…

requestpage
{
SaveValues = true;
layout
{
area(Content)
{

…
group(GroupName)
{
caption = ‘Filtros de busqueda’;
field(OptionGrupos; xOption)
{
ApplicationArea = all;
caption = ‘Elegir grupo para filtro’;
OptionCaption = ‘Todos,Referencia,Cliente,Zona,Comercial,Grupo de compras,Familia’;
trigger OnValidate()
begin
CambiarVisibleF(xOption);
Message(Format(xVisible1) + Format(xVisible2) + Format(xVisible3) + Format(xVisible4) + Format(xVisible5) +                                                          Format(xVisible6) + TipoFiltro);  //   <——- ESTE “MESSAGE” SACA LOS DATOS CORRECTOS
RequestOptionsPage.Update();
end;

}
group(Articulo)
{
Visible = xVisible1;
caption = ‘Referencia’;
field(Campo1; xReferencia)
{
ApplicationArea = all;
Caption = ‘Referencia de articulo’;
ToolTip = ‘Referencia de articulo’;
Lookup = true;
TableRelation = Item;
}
}
group(Cliente)
{
Visible = xVisible2;
caption = ‘Cliente’;
field(Campo2; xCliente)
{
ApplicationArea = all;
Caption = ‘Código de cliente’;
ToolTip = ‘Código de cliente’;
Lookup = true;
TableRelation = Customer;
}
}

…

//Y así con el resto de grupos a mostrar, donde esto lo hace perfectamente.

}
}
}
actions
{
area(processing)
{
action(ActionName)
{
ApplicationArea = All;
}
}
}

Y por último en el “OnPreReport” que es donde me falla…

trigger OnPreReport()
var
rlItem: record Item;
rlItemledgerEntry: record “Item Ledger Entry”;
xTotalActual: decimal;
xTotalAnterior: decimal;
begin

Message(Format(xVisible1) + Format(xVisible2) + Format(xVisible3) + Format(xVisible4) + Format(xVisible5) + Format(xVisible6) +

TipoFiltro); // <———- SIEMPRE PONE LOS VALORES DEL “OnInitReport” y  no los modificados en el “Resquetpage”.

Fecha := Format(StartDate) + ‘..’ + Format(EndDate);
Fecha1 := Format(StartDate1) + ‘..’ + Format(EndDate1);
if rlItem.FindSet(false) then begin
repeat
…
if TipoFiltro = ‘A’ then begin
rlItem.setfilter(“No.”, xReferencia);
rlitemledgerentry.setfilter(“Source No.”, xCliente);
rlitemledgerentry.setfilter(“Global Dimension 2 Code”, xZona);
rlitemledgerentry.setfilter(“Shortcut Dimension 5 Code”, xComercial);
rlitemledgerentry.setfilter(“Global Dimension 1 Code”, xGrupo_Compras);
rlitemledgerentry.setfilter(“Item Category Code”, xFamilia);
end;
if TipoFiltro = ‘B’ then begin
rlItem.setfilter(“No.”, xReferencia);
end;
if TipoFiltro = ‘C’ then begin
rlitemledgerentry.setfilter(“Source No.”, xCliente);
end;
if TipoFiltro = ‘D’ then begin
rlitemledgerentry.setfilter(“Global Dimension 2 Code”, xZona);
end;
if TipoFiltro = ‘E’ then begin
rlitemledgerentry.setfilter(“Shortcut Dimension 5 Code”, xComercial);
end;
if TipoFiltro = ‘F’ then begin
rlitemledgerentry.setfilter(“Global Dimension 1 Code”, xGrupo_Compras);
end;
if TipoFiltro = ‘G’ then begin
rlitemledgerentry.setfilter(“Item Category Code”, xFamilia);
end;

…
rTableAxuliarReport.Init();
xlinea += 1;
rTableAxuliarReport.CodProducto := rlitem.”No.”;
rTableAxuliarReport.descripcion := rlitem.Description;
rTableAxuliarReport.Cantidad1 := xTotalActual;
rTableAxuliarReport.Cantidad2 := xTotalAnterior;
rTableAxuliarReport.Insert(false);
until rlItem.Next() = 0;
end;
end;

Y hay se me acaban las ideas…

Gracias por tu colaboración, creo que no me he dejado nada de código que forme parte de lo que quiero hacer.

NOTA: El código no esta depurado, solo es para que funcione, luego ya vendré con las depuraciones para que sea mas legible y rápido, pero ahora solo es para que funcione, ya que AL no entiendo y tengo que hacerlo lo mas detallado posible para poder enterderlo.

Saludos y espero tus comentarios con agradecimiento!!!

Buenas tardes.

Muchas gracias por la información, que me ha servido para resolver el problema.

Es el “Savevalues”, lo que hace que no funcione correctamente, pero es un listado que va a ser impreso varias veces por eso puse que se quedarán los datos para seguir sacando informes sin poner los datos otra vez, solo cambiando un dato.

¿Es posible hacerlo de otra manera?

Muchas gracias y saludos!!!

Hola.

Muchas gracias por el interés.

A ver si está semana que viene, te lo paso por linkedin y lo vemos.

Gracias de verdad.

Saludos!!!