>Positively superb! Thanks for the excellent example code. You have been very helpful and I truly appreciate your attention to this problem. Aleksey I wish I could do more but, on the UT all I can do is award you stars.
>
>Glenn

You are welcome.

BTW, I forgot to add oXF.MaxLength=VAL(oXF.XSDmaxLength) into last loop:

FOR EACH oXT IN oXA.Tables
	FOR EACH oXF IN oXT.Fields
		?oXF.XSDtype
		IF 		oXF.XSDtype=="hexBinary" AND ;
				VAL(oXF.XSDmaxLength)>0 AND ;
				VAL(oXF.XSDmaxLength)<255
		 	oXF.DisableEncode=.F. 	
			oXF.IsBinary=.T.
			oXF.IsBase64= .F.
			oXF.DataType="C"
			oXF.MaxLength=VAL(oXF.XSDmaxLength)
			oXF.NoCpTrans= .T.
		ENDIF
	ENDFOR
ENDFOR

Thanks,
Aleksey.