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 ORAlso
- Code:
 If "Item Category Code"='XY' OR "Item Category Code"='XYZ' then ...
IF "Item Category Code" IN ['KL','MH','NT'] THEN7. 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