22. November 2011 15:28
22. November 2011 15:37
22. November 2011 16:24
22. November 2011 18:37
JanGD hat geschrieben:Danke für die Info.
Ich wollte die Inventur nutzen um die Erstzählung über Inventur eingetragen werden. (Quasi überall 100% abweichung)
Scheinbar muss ich nun nen eigenen Report dafür basteln.
22. November 2011 18:58
Scheinbar muss ich nun nen eigenen Report dafür basteln.
22. November 2011 19:15
23. November 2011 10:45
29. November 2011 01:11
JanGD hat geschrieben:Hallo,
Leider funktioniert Deine Erweiterung in 6 nicht, da sich dort die Routine wieder geändert hat.
AddZeroQtySKU()
IF NOT ZeroQty THEN
EXIT;
SKU.SETCURRENTKEY("Item No.");
SKU.SETRANGE("Item No.",Item."No.");
Item.COPYFILTER("Variant Filter",SKU."Variant Code");
Item.COPYFILTER("Location Filter",SKU."Location Code");
IF SKU.FIND('-') THEN BEGIN
QuantityOnHandBuffer.RESET;
QuantityOnHandBuffer.SETRANGE("Item No.",Item."No.");
REPEAT
QuantityOnHandBuffer.SETRANGE("Variant Code",SKU."Variant Code");
QuantityOnHandBuffer.SETRANGE("Location Code",SKU."Location Code");
IF NOT QuantityOnHandBuffer.FIND('-') THEN BEGIN
CLEAR(QuantityOnHandBuffer);
QuantityOnHandBuffer."Item No." := SKU."Item No.";
QuantityOnHandBuffer."Variant Code" := SKU."Variant Code";
QuantityOnHandBuffer."Location Code" := SKU."Location Code";
QuantityOnHandBuffer.INSERT;
END;
UNTIL SKU.NEXT = 0;
//END;
END ELSE BEGIN // - START wenn keine Lagerhaltungsdaten vorhanden sind
ItemLedgEntry2.SETCURRENTKEY("Item No.");
ItemLedgEntry2.SETRANGE("Item No.",Item."No.");
IF NOT ItemLedgEntry2.FIND('-') THEN BEGIN
Location2.SETFILTER(Code,Item.GETFILTER("Location Filter"));
IF Location2.FIND('-') THEN REPEAT
QuantityOnHandBuffer.RESET;
QuantityOnHandBuffer.SETRANGE("Item No.",Item."No.");
QuantityOnHandBuffer.SETRANGE("Location Code",Location2.Code);
IF NOT QuantityOnHandBuffer.FIND('-') THEN BEGIN
CLEAR(QuantityOnHandBuffer);
QuantityOnHandBuffer."Item No." := Item."No.";
QuantityOnHandBuffer."Location Code" := Location2.Code;
QuantityOnHandBuffer.INSERT;
END;
UNTIL Location2.NEXT = 0;
END;
END;
// + ENDE