Bom dia, tenho a necessidade de conseguir extrair o XML da nota fiscal dentro do Protheus. Sei que existe uma função que extrai o XML do TSS (WSNFESBRA), entretanto ela é restrita.
Gostaria de saber se conhecem alguma outra maneira que eu consiga extrair o XML para poder estar integrando a nota em outro sistema que tenho na empresa.
Da uma olhada no link abaixo, eu uso aqui na empresa e funciona muito bem.
https://terminaldeinformacao.com/2017/12/05/funcao-retorna-xml-de-uma-nota-em-advpl/
Aqui fiz um ajuste no codigo pra corrigir isso mas não sei funciona, porque aqui estamos implantando o protheus, então minhas NFs estão todas em ambiente de homologação, fiz a seguinte alteração:
cTextoXML := '<nfeProc xmlns="http://www.portalfiscal.inf.br/nfe" versao="4.00">'
cTextoXML += oWebServ:oWsRetornaNotasResult:OWSNOTAS:oWSNFES3[1]:oWSNFE:cXML
cTextoXML += oWebServ:oWsRetornaNotasResult:OWSNOTAS:oWSNFES3[1]:oWSNFE:CXMLPROT
cTextoXML += '</nfeProc>'
Faz um teste ai e me fala se deu certo.
Leandro, eu estou usando essa função , mas a nota fiscal nao vem com a tag de validação. Entao fica com uma marca d’agua de “sem valor fiscal” .
Verdade tinha esquecido deste detalhe.
Bom dia! Conseguiram resolver esse problema?
Boa tarde, no sql server pode usar assim: SELECT *, ISNULL(CAST(CAST(XML_SIG AS VARBINARY(8000)) AS VARCHAR(8000)),'') AS XML_RET2 FROM SPED150
que vai retorna o seu XMl da nota
Consegui com a solução do Leandro Santos usando uma parte o fonte https://terminaldeinformacao.com/2017/12/05/funcao-retorna-xml-de-uma-nota-em-advpl/na linha 59 você acrescenta as tags abaixo e ele vai ficar completo. cTextoXML := '' cTextoXML += oWebServ:oWsRetornaNotasResult:OWSNOTAS:oWSNFES3[1]:oWSNFE:cXML cTextoXML += oWebServ:oWsRetornaNotasResult:OWSNOTAS:oWSNFES3[1]:oWSNFE:CXMLPROT cTextoXML += ''
Obrigado