> TEXT To m.testclause NOSHOW TEXTMERGE PRETEXT 15 > ><< m.dtest >> > >ENDTEXT >>
******************************************************************** * Description.......: DateToStr - creates a strict date string from date * Calling Samples...: * Parameter List....: tdDate ******************************************************************** function DateToStr lparameter tdDate local lcReturn if empty(m.tdDate) lcReturn='{}' else lcReturn="{^" + (transform(dtos(m.tdDate), "@R 9999-99-99")) + "}" endif return m.lcReturn
TEXT To m.testclause NOSHOW TEXTMERGE PRETEXT 15 << DateToStr(m.dtest) >> ENDTEXT