#Include vhLib.Macro
 
 
 
Test
 
	for i = 1 : 1 do
	. set (str1,str2)=""
	. set hor = $h
	. s str1=$zdt($h,3)
	. s str2=$zdt(($h-$R(121))_","_$P(hor,",",2),3)
	. B:(str1]str2)'=(str1]]str2)
	. w str1_" "_str2,*13
	. q
	q
	
 
 
 
 
 
 
	N CH
	For BI=0,1,2,3,4,5,6,7,8 DO  IF BI=8 FOR CH=65:1:90 Do
 	. If $G(CH)>64 S BI=$char(CH)
	. W BI 
	q
	
 
zJCL
 
 
	Do ##class(Prod.Kenmerk.Orgalux).SelectProductsAlle(.arUnIDs)
	Set UnID = $Order(arUnIDs(""))
	set (wel,niet,CntModified) = 0
 
	while (UnID '= "")
	{	Do CheckURL(UnID,"LI")
		Do CheckURL(UnID,"LB")
		Set UnID = $Order(arUnIDs(UnID))
	}
	
	
	w !,"met notes ", wel
	w !,"zonder notes ", niet
	w !,"modified # ", CntModified
	quit
 
CheckURL(UnID,TextType)
	;Set TextType="LI"   ; doorgeven via parameter 
	
	set URL = ##class(Prod.Kenmerk.DataDefinitie).GetFullURL("OL",UnID,"InfoSleutel","N",TextType,"BARTENDER")
	If (URL'["\\Notes" )  Do
	.  W !,URL," ",UnID S niet = $i(niet)
	.  
	.  Set FotoSleutel=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("OL",UnID,"InfoSleutel"),1)
	.  Quit:(FotoSleutel="")
	.  
	.  Set lbFotoDataFromGlobal=$G(^Res.VertalingAbstractD("PK",FotoSleutel,TextType,"N"))
	.  Quit:($$$UCase($LG(lbFotoDataFromGlobal,2))'?1.E1".JPG")
	.  
	.  ;Quit:(FotoSleutel'?1(1"<GK6510xx>"))   ; Test only for this foto 
	.  Set Plaats=$S(TextType="LB":"B", TextType="LI":"E", 1:"")
	.  For Taal="N","F","D","E" Set ^Res.VertalingAbstractD("PK",FotoSleutel,TextType,Taal,"VertalingLink")=$LB("WebOL","JPG","","F","","0","","",Plaats)
	.  Set CntModified = $i(CntModified)
	.  
	else  set wel = $i(wel)
	Quit