7. Dezember 2011 12:06
IF ("Item Category Code" = 'KL') OR
("Item Category Code" = 'MH') OR
("Item Category Code" = 'NT') THEN
Item.SETFILTER("Product Group Code",'KL01|KL03|MH03..MH06|NT04|NT06');
7. Dezember 2011 12:50
PurchasePrice.SetRange("Item No.",DeineItemNo);
if PurchasePrice.findset then begin
LastVendorNo:=PurchasePrice."Vendor No.";
AnzahlLieferanten:=1;
repeat
if PurchasePrice."Vendor No."<>LastVendorNo then begin
AnzahlLieferanten+=1;
LastVendorNo:=PurchasePrice."Vendor No.";
end;
until PurchasePrice.next=0;
end;
7. Dezember 2011 12:51
McClane hat geschrieben:deine Oder-Abfrage machst du mit einem OR Also
- Code:
If "Item Category Code"='XY' OR "Item Category Code"='XYZ' then ...
IF "Item Category Code" IN ['KL','MH','NT'] THEN
7. Dezember 2011 13:42
IF ("Item Category Code" = 'KL') OR //oder IF "Item Category Code" IN ['KL','MH','NT'] THEN...
("Item Category Code" = 'MH') OR
("Item Category Code" = 'SB') OR
("Item Category Code" = 'NT') THEN
Item.SETFILTER("Product Group Code",'SB01..SB05|KL01|KL03|MH03..MH06|NT04|NT06');
CLEAR(LieferantenCode);
PurchasePrice.SETRANGE("Item No.",Item."No.");
IF PurchasePrice.FINDSET THEN BEGIN
LieferantenCode:=PurchasePrice."Vendor No.";
AnzahlLieferanten:=1;
REPEAT
IF PurchasePrice."Vendor No."<>LieferantenCode THEN BEGIN
AnzahlLieferanten+=1;
LieferantenCode:=PurchasePrice."Vendor No.";
END;
UNTIL PurchasePrice.NEXT=0;
END;
IF ItemCode <> Item."Item Category Code" THEN BEGIN
CLEAR(AnzahlArtikel);
CLEAR(AnzahlMultiLieferantenArtikel);
ItemCode := Item."Item Category Code";
END;
ItemLedgerEntry.SETRANGE("Entry Type",ItemLedgerEntry."Entry Type"::Purchase);
ItemLedgerEntry.SETRANGE("Item No.","No.");
IF ItemLedgerEntry.ISEMPTY THEN
CurrReport.SKIP;
{
CLEAR(LieferantenCode);
IF LieferantenCode <> PurchasePrice."Vendor No." THEN BEGIN
AnzahlLieferanten += 1;
LieferantenCode := PurchasePrice."Vendor No.";
END;
}
IF AnzahlLieferanten >= 2 THEN BEGIN
AnzahlMultiLieferantenArtikel +=1;
AnzahlMultiLieferantenArtikelG +=1;
END;
IF AnzahlLieferanten >= 1 THEN BEGIN
AnzahlArtikelmind1Lieferant +=1;
AnzahlLieferanten := 0;
END;
GesamtArtikel += 1;
AnzahlArtikel += 1;
7. Dezember 2011 13:52
7. Dezember 2011 14:15