23. Dezember 2013 15:41
23. Dezember 2013 16:22
23. Dezember 2013 16:32
fiddi hat geschrieben:Hallo,
[…]Geht es nur um Summen, kannst du den Verkauf noch mal mit einer negativen Menge buchen.
23. Dezember 2013 18:14
fiddi hat geschrieben:Hallo,
das kommt auf die Information an, die du aus der Statistik ziehst.
Willst du das Datum des letzten Verkaufs aus den Posten ziehen, hast du ziemlich schlechte Karten. Geht es nur um Summen, kannst du den Verkauf noch mal mit einer negativen Menge buchen.
Gruß, Fiddi
ItemLedEntry.SETFILTER("Laufende Nummer",'Nr.1 bis Nr.N');
IF ItemLedEntry FINDSET THEN
REPEAT
IF ItemLedEntry.Postenart = "Verkauf" THEN BEGIN
ItemLedEntry.Postenart := Abgang;
ItemLedEntry.MODIFY; //alternativ stattdessen ItemLedEntry.COMMIT, damit die Änderung ja anschlägt
END;
UNTIL ItemLedEntry.NEXT = 0;
ItemLedEntry.SETRANGE("Item No.",'TEST');
ItemLedEntry.SETRANGE("Entry Type",ItemLedEntry."Entry Type"::Sale);
ItemLedEntry.SETRANGE("Posting Date",TODAY);
IF ItemLedEntry.FINDSET THEN
REPEAT
ItemLedEntry2.GET(ItemLedEntry."Entry No.");
ItemLedEntry2."Entry Type" := ItemLedEntry2."Entry Type"::"Negative Adjmt.";
ItemLedEntry2.MODIFY(TRUE);
COMMIT;
ValueEntry.SETRANGE("Item Ledger Entry No.",ItemLedEntry."Entry No.");
IF ValueEntry.FINDSET THEN
REPEAT
ValueEntry2.GET(ValueEntry."Entry No.");
ValueEntry2."Item Ledger Entry Type" := ValueEntry2."Item Ledger Entry Type"::"Negative Adjmt.";
ValueEntry2.MODIFY(TRUE);
COMMIT;
UNTIL ValueEntry.NEXT = 0;
UNTIL ItemLedEntry.NEXT = 0;
24. Dezember 2013 11:20
Freestyler hat geschrieben:Wieso?
Ist es nicht möglich sich die betroffenen Artikel- und Wertposten nach Excel zu ziehen, die IDs zu notieren und dann zu programmieren:
- Code:
(qnd programmierung gelöscht)