Procedure WS_ReplaceBoller(LOCAL XML, LOCAL BUSCA, LOCAL TROCA)

TOT is int = 0
POS is int = 0

TOT = Length(XML)
LOOP (TOT)
POS+=1
IF Middle(XML,POS,Length(BUSCA)) = BUSCA
XML = Middle(XML,1,POS-1) + TROCA + Middle(XML,POS+Length(BUSCA),TOT)
BREAK
END
END

RESULT(XML)