Fórum sobre desenvolvimento de software para atender as exigências da legislação fiscal e tributária (NFe, NFCe, NFSe, SPEED, Projeto ACBr, TEF, ECD, EFD, etc.)
IF .NOT.EMPTY(w_nrorig)
if .not.empty(w_finalid)
FWRITE(Nfe_Handle,"Finalidade=" + w_finalid + chr(13)+chr(10)) //-> w_finalid=1
endif
FWRITE(Nfe_Handle,"[NFRef001]" + chr(13)+chr(10))
FWRITE(Nfe_Handle,"UF="+w_uforig+ chr(13)+chr(10)) // PR
FWRITE(Nfe_Handle,"AAMM="+w_peorig+ chr(13)+chr(10)) // 1006
FWRITE(Nfe_Handle,"CNPJ="+sgcgc+ chr(13)+chr(10)) // CPF do cliente
FWRITE(Nfe_Handle,"Modelo="+w_moorig+ chr(13)+chr(10)) // 01
FWRITE(Nfe_Handle,"Serie="+w_seorig+ chr(13)+chr(10)) // 001
FWRITE(Nfe_Handle,"refNFe"+w_chorig+ chr(13)+chr(10)) // a chave SEFAZ da NFe
FWRITE(Nfe_Handle,"nNF="+alltrim(strzero(w_nrorig,6))+ chr(13)+chr(10)) // Numero NFe Origem
ENDIF
Não está gerando o xml do codigo acima.
Alguem tem um exemplo de código que funcione?
Laudeino.
Editado pela última vez por Toledo em 12 Jul 2010 23:17, em um total de 1 vez.
Razão:Mensagem editada para colocar a tag [ code ]<br>Veja como utilizar esta tag: http://www.pctoledo.com.br/forum/faq.php?mode=bbcode#f2r1
Se a sua nota de origem for uma NFe, voce só precisa informar o campo "refNFe" que é a chave da NFe de origem, agora, se for uma nota convencional, você não pode informar esse campo, apenas os demais, referentes à nota.
Alessandro R Belarmino
Clipper 5.2e - Blinker 7 - DBFNTX / DBFCDX "Quem trabalha muito erra muito, quem trabalha pouco erra pouco, quem não trabalha não erra e quem não erra é promovido !!!!"