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.
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
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" .
— Michel Fernandes 22 de Apr de 2021Verdade tinha esquecido deste detalhe.
— LEANDRO SANTOS 22 de Apr de 2021Bom dia! Conseguiram resolver esse problema?
— idweb 01 de Jun de 2021um meio prático é usar as tabelas do TSS
para isso você vai precisar conectar via tclink no banco do TSS se for um banco separado e acessar a SPED050
O XML assinado estará no campo blob XML_SIG e você vai poder filtrar a tabela pela chave da nota que está no campo DOC_CHV
Essa tabela não consta na SX3, então você vai precisar usar embedded query para acessar a tabela e dependendo do banco você vai precisar usar funções específicas para recuperar o conteúdo de campos blob.
Links para mais informações:
https://www.blogadvpl.com/embedded-sql-facilitador-de-queries/
https://www.universoadvpl.com.br/2014/10/nomes-e-descricoes-das-tabelas-do-spedtss/
https://qastack.com.br/programming/828650/how-do-i-get-textual-contents-from-blob-in-oracle-sql
https://stackoverflow.com/questions/6911460/blob-to-string-sql-server
Ah, esqueci, de falar, é bem mais performático que consumir o webservice do tss
— Josué Danich Prestes 30 de Apr de 2021Não tinha ideia que o TSS tinha WS. Muito bom isso ! https://tdn.totvs.com/display/public/TSS/WebService+-+TSS
— Jorge Alberto 30 de Apr de 2021Consegui 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
