>>*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 >>