Histórico da Página

...

Local cStatus := Substr(cParams, (At("<STATUS>",cParams) + Len("<STATUS>")),; (At("</STATUS>",cParams)-At("<STATUS>",cParams)-Len("<STATUS>")) )
Local cObsEcm := Substr(cParams, (At("<OBS>",cParams) + Len("<OBS>")),; (At("</OBS>",cParams)-At("<OBS>",cParams)-Len("<OBS>")) )
Local cChamado := Substr(cParams, (At("<CODADE>",cParams) + Len("<CODADE>")),; (At("</CODADE>",cParams)-At("<CODADE>",cParams)-Len("<CODADE>")) )
Local cItemCh := Substr(cParams, (At("<CODITEM>",cParams) + Len("<CODITEM>")),; (At("</CODITEM>",cParams)-At("<CODITEM>",cParams)-Len("<CODITEM>")) )
Local cUsuario := Substr(cParams, (At("<USER>",cParams) + Len("<USER>")),; (At("</USER>",cParams)-At("<USER>",cParams)-Len("<USER>")) ) Cree

 Cree una función para ejecutar el procedimiento estándar y solo repita las llamadas a esta:

...

Local cStatus:= EntreTags(cParams, "<STATUS>" , "</STATUS>")
Local cObsEcm:= EntreTags(cParams, "<OBS>" , "</OBS>")
Local cChamado:= EntreTags(cParams, "<CODADE>" , "</CODADE>")
Local cItemCh := EntreTags(cParams, "<CODITEM>" , "</CODITEM>")
Local cUsuario := EntreTags(cParams, "<USER>" , "</USER>")
….
….
Function EntreTags(cTexto, cTagIni, cTagFim)
Local cStrRet := '' // Texto que se extraerá y retornará
Local nPosIni := At(cTagIni,cTexto) // Posición inicial de la tag
Local nPosFim := At(cTagFim,cTexto) // Posición final de la tag
cStrRet := Substr(cTexto, (nPosIni + Len(cTagIni)),; (nPosFim-nPosIni-Len(cTagIni)) )
Return cStrRet