15. August 2019 10:33
Filter - OnValidate()
IF Filter=0 THEN BEGIN
Item.RESET;
"Stockkeeping Unit".RESET;
UseStockkeepingUnit:= TRUE;
VariantInfo:=TRUE;
WithoutRealWood:=TRUE;
WithoutGrossReq:=FALSE;
Excel:=TRUE;
RequestOptionsPage.UPDATE;
END;
IF Filter=1 THEN BEGIN
Item.RESET;
"Stockkeeping Unit".RESET;
UseStockkeepingUnit:= TRUE;
VariantInfo:=TRUE;
WithoutRealWood:=TRUE;
WithoutGrossReq:=FALSE;
Excel:=FALSE;
Item.SETRANGE("No.",'190.7*');
Item.SETRANGE("Description 2",'@*Lüft*');
"Stockkeeping Unit".SETRANGE("JIT Item",FALSE);
"Stockkeeping Unit".SETRANGE("Replenishment System","Stockkeeping Unit"."Replenishment System"::Purchase);
RequestOptionsPage.UPDATE;
END;
IF Filter=2 THEN BEGIN
Item.RESET;
"Stockkeeping Unit".RESET;
UseStockkeepingUnit:= FALSE;
VariantInfo:=TRUE;
WithoutRealWood:=TRUE;
WithoutGrossReq:=FALSE;
Excel:=FALSE;
Item.SETRANGE("Vendor No.",'80564');
Item.SETRANGE("Planning Group Filter",'213000|213010|214050|218050|219010');
RequestOptionsPage.UPDATE;
END;
15. August 2019 10:47
Item.SETRANGE("No.");
15. August 2019 13:11
SETRANGE("No.",'*');