Resource.Image BL.EC.Common,Prod.Product,vhLib.Macro,BL.Derde.LevSpecifiek 1 %RegisteredObject PB;AG;FO;VG;IL;FI;TA;QT;VB;VF;MO;PL;PI;CA FLOAPT PR 1 1 %String d ##class(BL.Prod.ImageLinkEdit).Scan() 1 1 w $$ListToPieces^vhLib(##class(BL.Prod.ImageLinkEdit).FindImages("A_358LXXXXSAZAA_P_1_PB_BAU_#SALL_#AQU_#V1",$LB($LB("V",$LB("BLUM\P","BLUM\W"),$LB("SVG","EPS","JPG"))))) SearchDefs = $LB(Def1,Def2,...) waar Defn = $LB(VisueelType,$LB(Path1, Path2, ...),$LB(Ext1,Ext2,...) resultaat $LB($LB(VisueelType,Path,FileName,Ext)) 1 FileName,lbSearchDefs %List w $$ListToPieces^vhLib(##class(BL.Prod.ImageLinkEdit)FindImages4Product(PRNr,FileName)) resultaat $LB($LB(VisueelType,Path,FileName,Ext)) 1 PRNr,FileName:%String %List 1 PRNr,FileName:%String %List d ##class(BL.Prod.ImageLinkEdit).AskImage4Product(447191) 1 PRNr 0 w $$ListToPieces^vhLib(##class(BL.Prod.ImageLinkEdit).AddImage2Product(447191,,"A_358LXXXXSAZAA_P_1_PB_BAU_#SALL_#AQU_#V1")) 1 PRNr,Toepassing:%String="PB",FileName:%String,ScaleFactor:%Float,AspectRatio:%Float %List 1 ObjType,ObjRef,Toepassing 1 ObjType,ObjRef,Toepassing %Query Directory:%String,Wildcards:%String 1 %Status 1 qFilesExecute %Status 1 qFilesExecute %Status %Query Hoofdgroep:%String 1 %Status 1 qProductenExecute 0 %Status 1 qProductenExecute %Status