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
0
%Integer
%String
BL.Prod.ImageLink
Dev,LimitSupplier:%Integer=""
%Status
D ##class(BL.Prod.ImageLinkMissing).Export()
1
Dev
LastVkpJr)
. Use ..Dev
. Set GenTyp=$$GENTYP^HAD(PRNr)
. Quit:GenTyp'="" ; PV tijdelijk
. Set GenPRNr=$$$PRGet($$$GenProduct)
. Set:GenPRNr'?4.7N GenPRNr=""
. Set LevNm=$P(^DLE("K","LE.A",LevNr,0),"\",2)
. Write SortKey,*9,GenTyp,*9,GenPRNr,*9,LevNm,*9,PRNr,*9,KortTekst,*9,Stock,*9,Verkoop,*9,(Verkoop>0),*9,$$$ExcelDat(Dat),*9,Jaar,*9,($L(URL)>1),*9,URL,!
. Use 0
]]>