*parsetag.prg LOCAL lcTag, lcHtml lcTag = [~SELECT NAME='cboempguid' ID='cboempguid' SIZE='1' ] + ; [STYLE='BACKGROUND:~%=IIF(poError.EmpGuid, 'red', ] + ; ['#FFFFFF')%~;FONT:normal normal 9pt Arial;HEIGHT:24;] + ; [LEFT:310;POSITION:ABSOLUTE;TOP:0;WIDTH:194' ] + ; [VALUE='~%=potravail.empguid%~' ] + ; [~%=IIF(PLDISABLEEMPLOYES,'DISABLED','')%~~] lcHtml = REPLICATE('0', 1800) + lctag + REPLICATE('0', 11000) *lcHTML= lower(m.lchtml) ? "Testing AT_C and ATCC" ? AT_C(lctag, lcHtml) && result is 0 ? atcc(lcTag, lcHtml) && result is 1801 ? AT_C(UPPER(lctag), UPPER(lcHtml)) && result is 1801 ? ATCC(UPPER(lctag), UPPER(lcHtml)) && result is 0 ? "Testting AT and ATC" ? atc(lctag, lcHtml) && result is 1801 ? atc(upper(lctag), upper(lcHtml)) && result is 0 ? AT(lctag, lcHtml) && result is 0 ? AT(UPPER(lctag), upper(lcHtml)) && result is 1801>Interesting... ATC_C works OK with my test case but ATCC doesn't.
>>>*parsetag.prg >>>LOCAL lcTag, lcHtml >>>lcTag = [~SELECT NAME='cboempguid' ID='cboempguid' SIZE='1' ] + ; >>> [STYLE='BACKGROUND:~%=IIF(poError.EmpGuid, 'red', ] + ; >>> ['#FFFFFF')%~;FONT:normal normal 9pt Arial;HEIGHT:24;] + ; >>> [LEFT:310;POSITION:ABSOLUTE;TOP:0;WIDTH:194' ] + ; >>> [VALUE='~%=potravail.empguid%~' ] + ; >>> [~%=IIF(PLDISABLEEMPLOYES,'DISABLED','')%~~] >>>lcHtml = REPLICATE('0', 1800) + lctag + REPLICATE('0', 11000) >>>? ATC(lctag, bbb) && result is 0 >>>? ATC(UPPER(lctag), UPPER(bbb)) && result is 0 >>>? AT(lctag, bbb) && result is 1802 >>> >>>? ATC(LEFT(lctag, 255), bbb) && result is 1802 >>> >>>*parsebbb.prg && ATC works >>>*tag is not valid - I had to change some info so UT could accept the message >>>LOCAL aaa, bbb >>>aaa = REPLICATE('12345678', 64) >>>bbb = 'a' + REPLICATE('b', 1800) + aaa + REPLICATE('b', 11000) >>>? ATC(aaa, bbb) &&result is 1802 >>>