Lagerwerte festlegen - abschreiben

Lagerwerte aufgrund letztem Einstandswert festlegen

Man kann auch mehrere Artikel markieren und mit einer Formel die Lagerwerte aufgrund des letzten Einkaufspreises bzw. dem dort hinterlegen Einstandswert setzen. Auch hier gelten die gleichen Hinweise wie vorangehend beschrieben (z.b. bereits abgeschriebene Artikel oder nicht lagergeführte Set-Artikel ausschliessen usw.).
// dieses skript auf markierte artikel anwenden
// -> ES DÜRFTEN EIGENTLICH NUR BESTANDESGEFUHRTE ARTIKEL MARKIERT SEIN!
//
// ‘$d_Date’ und ‘$h_Time’ ausfüllen (sonst macht das skript nix)
//
// ev. rundung anpassen!
C_DATE(d_Date)
C_TIME(h_Time)
d_Date:=!24.04.2018! // <— ausfüllen
h_Time:=?00:01:00? // <— ausfüllen
Case of
: (d_Date<=!00-00-00!)
: (h_Time<=?00:00:00?)
: (h_Time>?24:00:00?)
Else
C_LONGINT(l_Artikel_ID)
C_REAL(r_Einstandswert;r_ES_Wert_Menge)
l_Artikel_ID:=[s0_Artikel]i_ID
QUERY([s2_Einkaufspreis];[s2_Einkaufspreis]m_Artikel=l_Artikel_ID)
If (Records in selection([s2_Einkaufspreis])>0)
ORDER BY([s2_Einkaufspreis];[s2_Einkaufspreis]s_Gueltig__ab__Datum;<) //—descending
r_Einstandswert:=[s2_Einkaufspreis]s_Einstandswert //oder [s2_Einkaufspreis]s_Nettopreis?
r_ES_Wert_Menge:=[s2_Einkaufspreis]s_Menge__pro__Ansatz
If (r_ES_Wert_Menge<=0)
r_ES_Wert_Menge:=1
End if
r_Einstandswert:=Round(r_Einstandswert/r_ES_Wert_Menge;5) //—5 nachkommastellen
If (r_Einstandswert>0)     `hier kann man z.B. >0.01 berücksichtigen
[s0_Artikel]s_Lagerwert:=r_Einstandswert
[s0_Artikel]s_Lagerwert_Datum:=d_Date
[s0_Artikel]s_Lagerwert_Zeit:=h_Time
[s0_Artikel]s_Mit__Lagerbewertung:=true
End if
End if
UNLOAD RECORD([s2_Einkaufspreis])
End case

Lagerwerte setzen bzw. abschreiben

//Diese Formel legt den Lagerwert auf den gewünschten CHF 0.01 fest, d.h. schreibt ab.
//Dazu müssen die gewünschten lagergeführten Artikel vorher ausgewählt und markiert werden.
//Falls ein anderer Wert als 0.01 eingesetzt werden soll, dies machen.
//IMMER: DAS VALUTADATUM SETZEN !!!!!!!
//Falls es eine Checkbox “Abgeschrieben” in den Freien Feldern gibt, wird sie gesetzt.
UNLOAD RECORD([s0_Artikel])
REDUCE SELECTION([s0_Artikel];0)
READ WRITE([s0_Artikel])
QUERY([s0_Artikel];[s0_Artikel]m_Betrieb=<>l_Mandant_Betrieb_ID;*)
QUERY([s0_Artikel];&;[s0_Artikel]s_Ist__bestandesgefuehrt=true)
QUERY SELECTION([s0_Artikel];[s0_Artikel]s_Mit__Lagerbewertung=False;*)
QUERY SELECTION([s0_Artikel]; | ;[s0_Artikel]s_Lagerwert#0.01) //LAGERWERT SETZEN
FIRST RECORD([s0_Artikel])
ARRAY TEXT(at_1;9)
at_1{1}:=“kb”
at_1{2}:=“kl”
at_1{3}:=“db”
at_1{4}:=“dl”
at_1{5}:=“dr”
at_1{6}:=“lv”
at_1{7}:=“pr”
at_1{8}:=“pv”
at_1{9}:=“pe”
C_TEXT(t_1)
C_DATE(d_1)
C_TIME(h_1)
d_1:=Current date(*)
h_1:=Current time(*)
While (Not(End selection([s0_Artikel])))
QUERY([x4_Lagerjournal];[x4_Lagerjournal]r_Artikel=[s0_Artikel]i_ID)
QUERY SELECTION([x4_Lagerjournal];[x4_Lagerjournal]s_Valutadatum>=!2017-05-21!) //VALUTADATUM SETZEN !!!!
QUERY SELECTION WITH ARRAY([x4_Lagerjournal]s_Journaltyp;at_1)
If (Records in selection([x4_Lagerjournal])=0)
[s0_Artikel]s_Mit__Lagerbewertung:=True
[s0_Artikel]s_Lagerwert:=0.01
[s0_Artikel]s_Lagerwert_Datum:=d_1
[s0_Artikel]s_Lagerwert_Zeit:=h_1
[s0_Artikel]f_Boolsch__50:=true //CHECKBOX “Abgeschr.” setzen
SAVE RECORD([s0_Artikel])
End if
NEXT RECORD([s0_Artikel])
End while
UNLOAD RECORD([s0_Artikel])
REDUCE SELECTION([s0_Artikel];0)
READ ONLY([s0_Artikel])
UNLOAD RECORD([x4_Lagerjournal])
REDUCE SELECTION([x4_Lagerjournal];0)
ARRAY TEXT(at_1;0)