Fehlende Einkaufspreise anlegen

Beim Verarbeiten von Lieferantenrechnungen werden - auf Nachfrage - neuer Einkaufspreise angelegt. Beim Erstellen von Folgebelegen (Bestellungen -> Wareneingang -> Rechnungen) kann es sein, dass in Lieferantenrechnungen geänderte Einkaufspreise nicht neu angelegt wurden. Die nachstehende Formel durchsucht alle Lieferantenrechnungen und legt neue Einkaufspreise an, wenn diese Preise a) von bestehenden Einkaufspreisen abweichen und b) neuer sind als die vorhandenen Einkaufspreise. Nach Ablauf der Formel müssen allenfalls vom Einkaufspreis abweichende Einstandswerte neu berechnet werden (siehe entsprechender Menüpunkt). Die Formel wird auf einen markierten Datensatz der Tabelle "Land" angewendet: //28.12.2014 hs/net //Neue EPs werden im aktuell geladenene Mandanten und zwar aufgrund von //Lieferantenrechnungen, deren Artikel in den Bestellbelegzeilen EPs haben, die als EPs aber fehlen. //ACHTUNG: nach Ablauf dieser Formel allenfalls die Einstandswerte neu berechnen. //Diese Formel auf ein einziges markiertes Land anwenden!!! C_LONGINT(l_1;l_2;l_3) l_1:=0 //anzahl neuer ek-preise l_2:=0 //anzahl neuer, aber nicht gesicherter ek-preise (fehler beim sichern) l_3:=0 //anzahl bereits existierender ek-preise (nur zur info und zu testzwecken) //weil ein artikel im verlauf der zeit mehrere einkaufspreise gehabt haben kann (teuerung) //loopen wir durch die lieferantenrechnungen mit aufsteigenden belegdatümmern ARRAY TEXT(at_Transfer_Values;0) //wichtig: wird in "EinkPreis_Einstandsw_Input_Set" gecheckt ARRAY LONGINT(al_Bestellbeleg_ID;0) ARRAY DATE(ad_Belegdatum;0) ARRAY LONGINT(al_Waehrung_ID;0) QUERY([s2_Bestellbeleg];[s2_Bestellbeleg]m_Betrieb=<>l_Mandant_Betrieb_ID;*) QUERY([s2_Bestellbeleg]; & ;[s2_Bestellbeleg]s_Belegtyp=<>c20_BestellBTyp_Rechnung) SELECTION TO ARRAY([s2_Bestellbeleg]i_ID;al_Bestellbeleg_ID;[s2_Bestellbeleg]s_Belegdatum;ad_Belegdatum;[s2_Bestellbeleg]r_Waehrung;al_Waehrung_ID) UNLOAD RECORD([s2_Bestellbeleg]) REDUCE SELECTION([s2_Bestellbeleg];0) SORT ARRAY(ad_Belegdatum;al_Bestellbeleg_ID;al_Waehrung_ID;>) //---ascending C_LONGINT(l_Counter;l_Loop) C_LONGINT(l_Konto_ID;l_KST_ID;l_KTR_ID;l_MWSt_ID_1) C_TEXT(t_Einheit) For (l_Counter;1;Size of array(al_Bestellbeleg_ID)) QUERY([r2_Bestellbelegzeile];[r2_Bestellbelegzeile]m_Bestellbeleg=al_Bestellbeleg_ID{l_Counter};*) QUERY([r2_Bestellbelegzeile]; & ;[r2_Bestellbelegzeile]r_Artikel>0;*) QUERY([r2_Bestellbelegzeile]; & ;[r2_Bestellbelegzeile]s_Ansatz>0) //---sonst macht's keinen sinn For (l_Loop;1;Records in selection([r2_Bestellbelegzeile])) GOTO SELECTED RECORD([r2_Bestellbelegzeile];l_Loop) RELATE ONE([r2_Bestellbelegzeile]r_Artikel) If ([s0_Artikel]r_Standard_Aufwandkonto>0) l_Konto_ID:=[s0_Artikel]r_Standard_Aufwandkonto l_KST_ID:=[s0_Artikel]r_Standard_Aufwand_KST l_KTR_ID:=[s0_Artikel]r_Standard_Aufwand_KTR Else l_Konto_ID:=[r2_Bestellbelegzeile]r_Aufwandkonto l_KST_ID:=[r2_Bestellbelegzeile]r_Kostenstelle l_KTR_ID:=[r2_Bestellbelegzeile]r_Kostentraeger End if If ([s0_Artikel]r_Standard_Vorsteuer>0) l_MWSt_ID_1:=[s0_Artikel]r_Standard_Vorsteuer Else l_MWSt_ID_1:=[r2_Bestellbelegzeile]r_Mehrwertsteuer_Code End if If ([r2_Bestellbelegzeile]c_Einheit#"") //bei der "einheit" vermutlich umgekehrt!!! t_Einheit:=[r2_Bestellbelegzeile]c_Einheit Else t_Einheit:=[s0_Artikel]c_Recheneinheit__Einkauf End if UNLOAD RECORD([s0_Artikel]) Case of : (l_Konto_ID<1) : (l_MWSt_ID_1=0) : (t_Einheit="") Else //see also "Einkaufspreis_Exists" and "EinkPreis_Is_Unique" //QUERY([s2_Einkaufspreis];[s2_Einkaufspreis]i_ID#$l_Einkaufspreis_ID;*) QUERY([s2_Einkaufspreis];[s2_Einkaufspreis]m_Artikel=[r2_Bestellbelegzeile]r_Artikel;*) //QUERY([s2_Einkaufspreis]; & ;[s2_Einkaufspreis]m_Einkaufsartikelgruppe=$l_EinkArtikelGruppe_ID;*) QUERY([s2_Einkaufspreis]; & ;[s2_Einkaufspreis]m_Auftragsdossier=0;*) QUERY([s2_Einkaufspreis]; & ;[s2_Einkaufspreis]m_Adresse=0;*) QUERY([s2_Einkaufspreis]; & ;[s2_Einkaufspreis]m_Lieferantengruppe=0;*) QUERY([s2_Einkaufspreis]; & ;[s2_Einkaufspreis]r_Waehrung=al_Waehrung_ID{l_Counter};*) QUERY([s2_Einkaufspreis]; & ;[s2_Einkaufspreis]c_Recheneinheit=t_Einheit;*) QUERY([s2_Einkaufspreis]; & ;[s2_Einkaufspreis]s_Nettopreis=[r2_Bestellbelegzeile]s_Ansatz__in__FW;*) QUERY([s2_Einkaufspreis]; & ;[s2_Einkaufspreis]s_Menge__pro__Ansatz=1;*) QUERY([s2_Einkaufspreis]; & ;[s2_Einkaufspreis]r_MwSt_Satz=l_MWSt_ID_1;*) QUERY([s2_Einkaufspreis]; & ;[s2_Einkaufspreis]s_Gueltig__ab__Datum<=ad_Belegdatum{l_Counter}) //QUERY([s2_Einkaufspreis]; & ;[s2_Einkaufspreis]s_Gueltig__ab__Menge<=[r2_Bestellbelegzeile]s_Menge) //nicht gut!!! If (Records in selection([s2_Einkaufspreis])<1) //---einkaufspreis existiert noch nicht CREATE RECORD([s2_Einkaufspreis]) //TRSEinkaufspreis [s2_Einkaufspreis]i_ID:=IDGet (->[s2_Einkaufspreis]) [s2_Einkaufspreis]m_Artikel:=[r2_Bestellbelegzeile]r_Artikel [s2_Einkaufspreis]m_Betrieb:=<>l_Mandant_Betrieb_ID [s2_Einkaufspreis]r_Aufwandkonto:=l_Konto_ID [s2_Einkaufspreis]r_Aufwand_KST:=l_KST_ID [s2_Einkaufspreis]r_Aufwand_KTR:=l_KTR_ID [s2_Einkaufspreis]s_Aufwandkonto__aenderbar:=<>b_EK_Kto_Aenderbar [s2_Einkaufspreis]s_KST__aenderbar:=<>b_EK_KST_Aenderbar [s2_Einkaufspreis]s_KTR__aenderbar:=<>b_EK_KTR_Aenderbar [s2_Einkaufspreis]r_MwSt_Satz:=l_MWSt_ID_1 [s2_Einkaufspreis]s_MwSt__aenderbar:=<>b_EK_MwSt_Aenderbar [s2_Einkaufspreis]r_Waehrung:=al_Waehrung_ID{l_Counter} [s2_Einkaufspreis]c_Recheneinheit:=t_Einheit [s2_Einkaufspreis]s_Nettopreis:=Round([r2_Bestellbelegzeile]s_Ansatz__in__FW;2) EinkPreis_Brutto_Set //[s2_Einkaufspreis]s_Bruttopreis:=0 [s2_Einkaufspreis]s_Gueltig__ab__Datum:=ad_Belegdatum{l_Counter} [s2_Einkaufspreis]s_Gueltig__ab__Menge:=0 [s2_Einkaufspreis]s_Ist__alte__Referenz:=False [s2_Einkaufspreis]s_Ist__Referenzpreis:=False [s2_Einkaufspreis]s_Kurzbemerkung:="" [s2_Einkaufspreis]s_Menge__pro__Ansatz:=1 [s2_Einkaufspreis]s_Mindest_Bestellmenge:=0 EinkPreis_Basispreis_Set [s2_Einkaufspreis]s_Ist__Basispreis:=(r_Basis_Netto=0) EinkPreis_BasisProzent_Set //[s2_Einkaufspreis]s_Prozentdifferenz__zur__Basis:=0 [s2_Einkaufspreis]s_Runden__auf__Menge:=0 [s2_Einkaufspreis]s_Kurzbemerkung:="Mit Formel aus Lieferantenrechnung vom "+String(ad_Belegdatum{l_Counter})+" erzeugt." [s2_Einkaufspreis]s_Einstandswert:=0 //---see TRSEinkaufspreis RecordModification_Save ("n";"f";->[s2_Einkaufspreis]z1_Erstellt_am;->[s2_Einkaufspreis]z2_Erstellt_um;->[s2_Einkaufspreis]z3_Erstellt_mit;->[s2_Einkaufspreis]z4_Erstellt_von) //If (Not(EinkPreis_Is_Unique )) // //$t_Error:="Ein Einkaufspreis mit diesen Kriterien ist bereits vorhanden..." //Else Error:=0 SAVE RECORD([s2_Einkaufspreis]) If (Error=0) l_1:=l_1+1 Else l_2:=l_2+1 //fehler //$t_Error:=errTextEinkaufspreis (Error) End if //End if Else //ek-preis existiert bereits l_3:=l_3+1 End if End case End for //zeilen-loop End for //bestellbeleg-loop UNLOAD RECORD([r2_Bestellbelegzeile]) REDUCE SELECTION([r2_Bestellbelegzeile];0) ARRAY LONGINT(al_Bestellbeleg_ID;0) ARRAY DATE(ad_Belegdatum;0) ARRAY LONGINT(al_Waehrung_ID;0) ALERT("Neu angelegte Einkaufspreise: "+String(l_1)+<>CR+"Nicht angelegte Einkaufspreise (Fehler): "+String(l_2)+<>CR+"Bereits vorhandene Einkaufspreise: "+String(l_3)) //-----ende der formel