persistent ProdHist.ChargeTrace 1 %Persistent 0 ID is mogelijk ChargeTraceID of CompositeID %String 1 Derde.Klant.Klant 0 0 0 0 0 0 0 0 Eindproduct, alleen ingevuld bij Actie=Composite Prod.Product Enkel bij eindproduct, aantal keer dat 'Prod' in de composite zit (bijv. Factor=4. Dan zit in de composite 4 x ProdA. ProdA vereist 3 chargeids, dan zal er in ChargeAantal 4x3=12 chargeids zitten) %Integer Wordt gecopieerd van de klant, dit als de klant eventueel zou verwijderd worden %String %Library.String %Library.String %String %String %String MACROs voor deze constanten zijn te vinden in ProdHist.ChargeTrace.INC (eg $$$ctaUitlevering)]]> %String ChargeTraceAantal children Beweging 1 Klant 1 1 ID 1 =================================================================================================================================================== 1 ProdHist.ChargeTrace --------------------------------------------------------------------------------------------------------------------------------------------------- 1 expression %String ==================================================================================================================================================== 1 %String =================================================================================================================================================== ProductNr:%String,ChargeID:%String,Qty:%Integer %String =================================================================================================================================================== 1 expression KlantNr %Boolean --------------------------------------------------------------------------------------------------------------------------------------------------- Zal via de index van de children kijken 1 expression ProductNr %Boolean =================================================================================================================================================== Loop doorheen de ChargeAantal children en geef het aantal terug dat behoort tot een product ProdNr:%String %Integer =================================================================================================================================================== 1 ChargeTraceID:%String,FactuurNr:%String %String =================================================================================================================================================== QUERY: QGetChargeViaProd =================================================================================================================================================== 1 0 %Status 1 QGetChargeViaProdExecute 0 %Status 1 QGetChargeViaProdExecute 0 %Status Recursieve method voor QGetChargeViaProdExecute 1 0 1),objChargeTrace.Leveringsbon,objChargeTrace.Factuur) Quit ]]> =================================================================================================================================================== %Query paProductNr:%String =================================================================================================================================================== QUERY: QGetChargeViaKlant =================================================================================================================================================== 1 0 %Status Recursieve method voor QGetChargeViaKlantExecute 1 0 1),$S(objChargeTrace.Leveringsbon:objChargeTrace.Leveringsbon,1:$G(Leveringsbon)),$S(objChargeTrace.Factuur:objChargeTrace.Factuur,1:$G(Factuur))) Quit ]]> 1 QGetChargeViaKlantExecute 0 %Status 1 QGetChargeViaKlantExecute 0 %Status =================================================================================================================================================== %Query paKlantNr:%String --------------------------------------------------------------------------------------------------------------------------------------------------- %SQLQuery paKlantNr:%String SELECT ID FROM ProdHist.ChargeTrace WHERE (Klant = :paKlantNr) ORDER BY Datum =================================================================================================================================================== QUERY: ListChargeIDs =================================================================================================================================================== 1 0 %Status Recursieve method voor QListChargeIDsExecute 1 0 1 QListChargeIDsExecute 0 %Status 1 QListChargeIDsExecute 0 %Status =================================================================================================================================================== %Query lbChargeTraceIDs:%String %Library.CacheStorage ^ProdHist.ChargeTraceD ChargeTraceDefaultData ^ProdHist.ChargeTraceD ^ProdHist.ChargeTraceI ^ProdHist.ChargeTraceS %%CLASSNAME Actie CommRef Datum Factuur Klant KlantNaam Leveringsbon OrderRef Product Prod Factor