Index: BL/Prod/ImageLinkImport.cls.xml =================================================================== diff -u -r2589 -r2677 --- BL/Prod/ImageLinkImport.cls.xml (.../ImageLinkImport.cls.xml) (revision 2589) +++ BL/Prod/ImageLinkImport.cls.xml (.../ImageLinkImport.cls.xml) (revision 2677) @@ -626,7 +626,7 @@ SELECT ID INTO :ID FROM Res.ImageLink - WHERE ObjType=:ObjType and ObjRef=:ObjRef and ((Oorsprong=:Oorsprong) OR isnull(:Oorsprong,"*")="*") + WHERE ObjType=:ObjType and ObjRef=:ObjRef and ((Oorsprong=:Oorsprong) OR isnull(:Oorsprong,'*')='*') ) &sql(OPEN RemoveOldImages) For &sql(FETCH RemoveOldImages) Quit:SQLCODE Do @@ -700,7 +700,7 @@ SELECT ImageLink->%ID,Element_Key,Links_VisueelType,Links_Extensie,Links_Pad,Links_BestandsNaam INTO :ImgID,:Key,:VisueelType,:Extensie,:Pad,:Naam FROM Res.ImageLink_Links - WHERE Links_VisueelType="W") + WHERE Links_VisueelType='W') &sql(OPEN ImpPicassa) For &sql(FETCH ImpPicassa) Quit:SQLCODE Do . Set Naam=$TR($$$UCase(Naam_"."_Extensie),"#","_") @@ -742,7 +742,7 @@ SELECT ImageLink->%ID,Element_Key,Links_VisueelType,Links_Extensie,Links_Pad,Links_BestandsNaam INTO :ImgID,:Key,:VisueelType,:Extensie,:Pad,:Naam FROM Res.ImageLink_Links - WHERE Links_VisueelType="V" ) ;and Links_Pad=:ChkPad) + WHERE Links_VisueelType='V' ) ;and Links_Pad=:ChkPad) &sql(OPEN ClearSVG) For &sql(FETCH ClearSVG) Quit:SQLCODE Do . Write:(..OutputToScreen) "DelSVG ",ImgID," ",Pad," ",Naam,! @@ -792,7 +792,7 @@ SELECT ImageLink->%ID,Element_Key,Links_VisueelType,Links_Extensie,Links_Pad,Links_BestandsNaam INTO :ImgID,:Key,:VisueelType,:Extensie,:Pad,:Naam FROM Res.ImageLink_Links - WHERE Links_VisueelType="V" and Links_Extensie="SVG") + WHERE Links_VisueelType='V' and Links_Extensie='SVG') &sql(OPEN HasSVG) For &sql(FETCH HasSVG) Quit:SQLCODE Do . Set Cache("HASSVG",ImgID)="" Index: BL/Prod/ImageLink.cls.xml =================================================================== diff -u -r2589 -r2677 --- BL/Prod/ImageLink.cls.xml (.../ImageLink.cls.xml) (revision 2589) +++ BL/Prod/ImageLink.cls.xml (.../ImageLink.cls.xml) (revision 2677) @@ -62,9 +62,9 @@ SELECT ImageLink->%ID,Element_Key,Links_VisueelType,Links_Extensie,Links_Pad,Links_BestandsNaam,ImageLink->AspectRatio,ImageLink->ScaleFactor INTO :ImgID,:Key,:VisueelType,:Extensie,:Pad,:Naam,:AspectRatio,:Scale FROM Res.ImageLink_Links - WHERE (ImageLink->ObjType="PR") AND + WHERE (ImageLink->ObjType='PR') AND (ImageLink->ObjRef=:PRNr) AND - (Links_VisueelType="V") OR (Links_VisueelType="VX") + (Links_VisueelType='V') OR (Links_VisueelType='VX') ) &sql(OPEN SVGSet) For &sql(FETCH SVGSet) Quit:SQLCODE Do @@ -83,7 +83,7 @@ FROM Res.ImageLink_Links WHERE (Links_BestandsNaam=:Naam) and (Links_Pad=:Pad) and - (Links_VisueelType="V") OR (Links_VisueelType="VX") + (Links_VisueelType='V') OR (Links_VisueelType='VX') ) &sql(OPEN SVGSetFile) For &sql(FETCH SVGSetFile) Quit:SQLCODE Do @@ -459,7 +459,7 @@ WHERE (ImageLink->ObjType=:ObjType) AND (ImageLink->ObjRef=:ObjRef) AND (ImageLink->FunctieType=:FunctieType) AND - (ImageLink->Taal=:Taal OR ISNULL(ImageLink->Taal,"*")="*")) + (ImageLink->Taal=:Taal OR ISNULL(ImageLink->Taal,'*')='*')) Set SelectMin=99999 &sql(OPEN ProdImgURLext) @@ -537,7 +537,7 @@ WHERE (ImageLink->ObjType=:ObjType) AND (ImageLink->ObjRef=:ObjRef) AND (ImageLink->FunctieType=:FunctieType) AND - (ImageLink->Taal=:Taal OR ISNULL(ImageLink->Taal,"*")="*")) + (ImageLink->Taal=:Taal OR ISNULL(ImageLink->Taal,'*')='*')) Set SelectMin=99999 &sql(OPEN ProdImgURL) @@ -639,7 +639,7 @@ 0 -AND (Taal=:Taal OR isnull(Taal,"*")="*") +AND (Taal=:Taal OR isnull(Taal,'*')='*') ORDER BY $ListFind(:lbFunctieType,FunctieType)]]> @@ -653,7 +653,7 @@ AND ImageLink->FunctieType=:FunctieType AND $ListFind(:lbVisueelType,Links_VisueelType)>0 AND $ListFind(:lbExtensie,Links_Extensie)>0 -AND (ImageLink->Taal=:Taal OR isnull(ImageLink->Taal,"*")="*") +AND (ImageLink->Taal=:Taal OR isnull(ImageLink->Taal,'*')='*') ORDER BY $ListFind(:lbVisueelType,Links_VisueelType),$ListFind(:lbExtensie,Links_Extensie)]]> @@ -721,9 +721,9 @@ &sql(DECLARE GetViaFunctieTypes CURSOR FOR Select %ID, FunctieType,Taal,Omschrijving from Res.ImageLink - where ObjType="PR" AND ObjRef=:PRNr + where ObjType='PR' AND ObjRef=:PRNr AND $ListFind(:lbFunctieType,FunctieType)>0 - AND (Taal=:Taal OR isnull(Taal,"*")="*") + AND (Taal=:Taal OR isnull(Taal,'*')='*') ORDER BY $ListFind(:lbFunctieType,FunctieType) ) &sql(OPEN GetViaFunctieTypes) @@ -820,10 +820,10 @@ FROM Res.ImageLink_Links WHERE (ImageLink->ObjType=:paObjType) AND (ImageLink->ObjRef=:paObjRef) AND - (($ListFind(:palbFunctieType,"*")>0) OR ($ListFind(:palbFunctieType,ImageLink->FunctieType)>0)) AND - (($ListFind(:palbVisueelType,"*")>0) OR ($ListFind(:palbVisueelType,Links_VisueelType)>0)) AND - (($ListFind(:palbExtensie,"*")>0) OR ($ListFind(:palbExtensie,Links_Extensie)>0)) AND - (ImageLink->Taal=:paTaal OR ISNULL(ImageLink->Taal,"*")="*")]]> + (($ListFind(:palbFunctieType,'*')>0) OR ($ListFind(:palbFunctieType,ImageLink->FunctieType)>0)) AND + (($ListFind(:palbVisueelType,'*')>0) OR ($ListFind(:palbVisueelType,Links_VisueelType)>0)) AND + (($ListFind(:palbExtensie,'*')>0) OR ($ListFind(:palbExtensie,Links_Extensie)>0)) AND + (ImageLink->Taal=:paTaal OR ISNULL(ImageLink->Taal,'*')='*')]]> @@ -923,9 +923,9 @@ FROM Res.ImageLink_Links WHERE (ImageLink->%ID=:paImageLinkID) AND (ImageLink->FunctieType=:paFunctieType) AND - (($ListFind(:palbVisueelType,"*")>0) OR ($ListFind(:palbVisueelType,Links_VisueelType)>0)) AND - (($ListFind(:palbExtensie,"*")>0) OR ($ListFind(:palbExtensie,Links_Extensie)>0)) AND - (ImageLink->Taal=:paTaal OR ISNULL(ImageLink->Taal,"*")="*")]]> + (($ListFind(:palbVisueelType,'*')>0) OR ($ListFind(:palbVisueelType,Links_VisueelType)>0)) AND + (($ListFind(:palbExtensie,'*')>0) OR ($ListFind(:palbExtensie,Links_Extensie)>0)) AND + (ImageLink->Taal=:paTaal OR ISNULL(ImageLink->Taal,'*')='*')]]> Index: Res/ImageLink.cls.xml =================================================================== diff -u -r1074 -r2677 --- Res/ImageLink.cls.xml (.../ImageLink.cls.xml) (revision 1074) +++ Res/ImageLink.cls.xml (.../ImageLink.cls.xml) (revision 2677) @@ -131,13 +131,13 @@ -AND (Taal=:Taal OR isnull(Taal,"*")="*") +AND (Taal=:Taal OR isnull(Taal,'*')='*') %SQLQuery ObjType,ObjRef,lbFunctieType:%List,Taal 0 -AND (Taal=:Taal OR isnull(Taal,"*")="*") +AND (Taal=:Taal OR isnull(Taal,'*')='*') ORDER BY $ListFind(:lbFunctieType,FunctieType)]]> @@ -153,7 +153,7 @@ AND ImageLink->FunctieType=:FunctieType AND $ListFind(:lbVisueelType,Links_VisueelType)>0 AND $ListFind(:lbExtensie,Links_Extensie)>0 -AND (ImageLink->Taal=:Taal OR isnull(ImageLink->Taal,"*")="*") +AND (ImageLink->Taal=:Taal OR isnull(ImageLink->Taal,'*')='*') ORDER BY $ListFind(:lbVisueelType,Links_VisueelType),$ListFind(:lbExtensie,Links_Extensie)]]> @@ -167,7 +167,7 @@ where ImageLink->ObjType=:ObjType AND ImageLink->ObjRef=:ObjRef AND $ListFind(:FunctieTypes,ImageLink->FunctieType)>0 AND Links_VisueelType=:VisueelTypes -AND (ImageLink->Taal=:Taal OR isnull(ImageLink->Taal,"*")="*") +AND (ImageLink->Taal=:Taal OR isnull(ImageLink->Taal,'*')='*') ORDER BY $ListFind(:FunctieTypes,ImageLink->FunctieType)]]> @@ -422,10 +422,10 @@ FROM Res.ImageLink_Links WHERE (ImageLink->ObjType=:paObjType) AND (ImageLink->ObjRef=:paObjRef) AND - (($ListFind(:palbFunctieType,"*")>0) OR ($ListFind(:palbFunctieType,ImageLink->FunctieType)>0)) AND - (($ListFind(:palbVisueelType,"*")>0) OR ($ListFind(:palbVisueelType,Links_VisueelType)>0)) AND - (($ListFind(:palbExtensie,"*")>0) OR ($ListFind(:palbExtensie,Links_Extensie)>0)) AND - (ImageLink->Taal=:paTaal OR ISNULL(ImageLink->Taal,"*")="*")]]> + (($ListFind(:palbFunctieType,'*')>0) OR ($ListFind(:palbFunctieType,ImageLink->FunctieType)>0)) AND + (($ListFind(:palbVisueelType,'*')>0) OR ($ListFind(:palbVisueelType,Links_VisueelType)>0)) AND + (($ListFind(:palbExtensie,'*')>0) OR ($ListFind(:palbExtensie,Links_Extensie)>0)) AND + (ImageLink->Taal=:paTaal OR ISNULL(ImageLink->Taal,'*')='*')]]> @@ -525,9 +525,9 @@ FROM Res.ImageLink_Links WHERE (ImageLink->%ID=:paImageLinkID) AND (ImageLink->FunctieType=:paFunctieType) AND - (($ListFind(:palbVisueelType,"*")>0) OR ($ListFind(:palbVisueelType,Links_VisueelType)>0)) AND - (($ListFind(:palbExtensie,"*")>0) OR ($ListFind(:palbExtensie,Links_Extensie)>0)) AND - (ImageLink->Taal=:paTaal OR ISNULL(ImageLink->Taal,"*")="*")]]> + (($ListFind(:palbVisueelType,'*')>0) OR ($ListFind(:palbVisueelType,Links_VisueelType)>0)) AND + (($ListFind(:palbExtensie,'*')>0) OR ($ListFind(:palbExtensie,Links_Extensie)>0)) AND + (ImageLink->Taal=:paTaal OR ISNULL(ImageLink->Taal,'*')='*')]]>