User Function M486ETOD()
Local cFilDoc := PARAMIXB[1]
Local cSerie := PARAMIXB[2]
Local cFornece := PARAMIXB[3]
Local cLoja := PARAMIXB[4]
Local cDoc := PARAMIXB[5]
Local cEspecie := PARAMIXB[6]
Local cID := PARAMIXB[7]
Local cXml := PARAMIXB[8]
Local cRet := ""
cRet := '<gOpeDE>' + chr(10)+chr(13)
cRet += '<iTipEmi>1</iTipEmi>' + chr(10)+chr(13)
cRet += '<dDesTipEmi>Normal</dDesTipEmi>' + chr(10)+chr(13)
cRet += '<dCodSeg>' + SUBSTR(cID,35,9) + '</dCodSeg>' + chr(10)+chr(13)
cRet += '<Ejemplo>Ejemplo Uso M486ETOD</Ejemplo>' + chr(10)+chr(13)
cRet += '</gOpeDE>' + chr(10)+chr(13)
Return cRet | 
