1. Importeren van de beelden van de Orgalux producten vanuit de kenmerken en de biijhorende vertaling. 2. Creatie van de beelden voor de tandembox laden. vhLib.Macro,Prod.Product 1 %RegisteredObject %Integer 1 BL.Prod.ImageLink 1 TECH.File.impl.FileWriter 1 %String 1 D ##class(BL.Prod.ImageLinkMissing).Export() 1 BestandNaam:%String="" 1 MailAdres:%String="" BestandNaam:%String="",LimitSupplier:%Integer="" %Status 1 %String 1 OR NONAktief IS NULL)" #dim Params As %List = "" #dim rs As %ResultSet = $$ExecDynQuery^vhLib.Query(Query,Params) while rs.Next() { set Product = ProductAPI.GeefProduct(rs.GetData(1)) #dim AdministratiefProduct As DOM.PM.AdministratiefProduct = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(rs.GetData(1)) #dim PRNr As %Integer = Product.GeefPRNr() #dim Afgeleid As %String = $$$PRGet($$$GenProduct) continue:(Afgeleid'="")&&(Afgeleid'?4.7N) #dim LevNr As %Integer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefLeverancierNummerVoorPartijID(Product.GeefLeverancierID()) continue:( ($length(..LimitSupplier) )&& (..LimitSupplier'=LevNr) ) ; Beperkt tot leverancier #dim Stock As %String = $$$PRGet($$$StockType) #dim LinkType As %String = $$$PRGet($$$LinkType) set Stock=$S(Afgeleid?4.7N:"A",LinkType="K":"K",LinkType["H":"H",Stock:"S",1:"N") #dim Identnummer As %String = Product.GeefIdentNr() #dim VolgNr As %Integer ="" #dim Dat As %String ="" For { Set VolgNr=$O(^PRHIST(PRNr,VolgNr),-1) Quit:VolgNr="" Quit:Dat'="" #dim Actie As %String =$P(^PRHIST(PRNr,VolgNr),"\",4) if Actie?1(1"U",1"H",1"I") set Dat=+$P(^PRHIST(PRNr,VolgNr),"\") } if ..TeGebruikenIdentnummer(Identnummer) { #dim KortTekst As %String =Product.GeefKorttekst() #dim SortKey As %String =$$SORTKEY^PRODUKT(PRNr) #dim URL As %String =..blImg.GetProductImageURL(PRNr,##class(APPS.common.enu.Toepassing).Thumbnail()) #dim Verkoop As %String =$$PROD^STAT(PRNr,0,"2009.01 ","2010.01 ",1) #dim Jaar As %String =$S(Dat="":0,1:$$EXTDATE^vhLib.DataTypes(Dat,"J4")>LastVkpJr) #dim GenTyp=$$GENTYP^HAD(PRNr) continue:GenTyp'="" #dim GenPRNr As %String =$$$PRGet($$$GenProduct) Set:GenPRNr'?4.7N GenPRNr="" #dim LevNm As %String =$P(^DLE("K","LE.A",LevNr,0),"\",2) #dim DatumOpening = $$$ExcelDat(AdministratiefProduct.GeefOpeningDatum()) #dim LevRef = Product.GeefLeverancierReferentie() do ..FileWriter.Write(SortKey_$$$TAB_Identnummer_$$$TAB_GenTyp_$$$TAB_GenPRNr_$$$TAB_LevNm_$$$TAB_PRNr_$$$TAB_KortTekst_ $$$TAB_LevRef_$$$TAB_Stock_$$$TAB_Verkoop_ $$$TAB_(Verkoop>0)_$$$TAB_$$$ExcelDat(Dat)_$$$TAB_Jaar_$$$TAB_($L(URL)>1)_$$$TAB_URL_$$$TAB_DatumOpening_$$$CRLF) } } ]]> Identnummer:%String %Boolean