persistent vhLib.Macro %Library.Persistent %Library.Integer 0 0 0 0 0 0 0 0 %Library.TimeStamp 0 0 0 0 0 0 0 0 Prod.GADef.emKadPrijsDtl 0 0 array 0 0 0 0 0 0 Prod.GAData.Product Prod.GADef.AfgeleidDef 0 0 0 0 0 0 0 0 %Library.Float 0 0 0 0 0 0 0 0 Uniekheid index voor property VolgNr 0 1 1 GADefProd 1 0 1 code ID:%Library.String 0 0 Kijken of Detail prijsberekening aanwezig 1 %Boolean 0)) ]]> Invullen van ^IPCom voor de communicatie tussen VB/VBA en Makova (MAppLauncher) 1 KadObj:Prod.GADef.KaderDeur,Qty:%Integer,KLNr:%String 1 Kijken of Detail prijsberekening aanwezig 1 %Status Ophalen van de MateriaalKost objecten (PrijsDetail) %Library.SQLQuery ID:%Library.String 0 SELECT Details_KostCode , Details_MatKost , Details_MatViaMin FROM Prod_GADef.KadPrijs_Details WHERE (KadPrijs=:ID) AND (Details_KOSTPLAATS='VUL') 0 Ophalen van de MateriaalKost objecten (PrijsDetail) %Library.SQLQuery KaderDeurID:%Library.String 0 0)]]> 0 Deze worden gegroepeerd en gesommeerd per KostenPlaats.]]> %Library.SQLQuery KaderDeurID:%Library.String 0 0) GROUP BY Details_KostPlaats]]> 0 Sommeren van materiaalkost, tijdkost en tijd per kostenplaats %Library.SQLQuery KaderDeurID:%Library.Integer,KostPlaats:%Library.String 0 SELECT Sum(Details_MatKost),Sum(Details_TijdKost), Sum(Details_Tijd) FROM Prod_GADef.KadPrijs_Details WHERE (KadPrijs = :KaderDeurID) AND (Details_KostPlaats = :KostPlaats) 0 Sommeren van alle materiaalkost, tijdkost en tijd %Library.SQLQuery KaderDeurID:%Library.String 0 SELECT Sum(Details_MatKost),Sum(Details_TijdKost), Sum(Details_Tijd) FROM Prod_GADef.KadPrijs_Details WHERE (KadPrijs = :KaderDeurID) 0 %Library.CacheStorage ^Prod.GAD.KadPrijsD KadPrijsDefaultData ^Prod.GAD.KadPrijsD ^Prod.GAD.KadPrijsI ^Prod.GAD.KadPrijsS Details subnode "DTL" %%CLASSNAME node 0 listnode Aantal CalcDatum TotaleKostPrijs CalcTijdstip CalcTijdStip DetailsGAData DetailGAData