Bom dia !
Estou dois dias tentando gerar um DANF de uma NFSe padrao nacional e não consigo.
A nota eu já estou emitindo numa boa.
Fiz uma rotina para gerar o DANF da nota a qualquer momento, mais não da certo de jeito nenhum
Estou tentando consultar uma nota para depois tentar gerar pela DLL do Unidanf, ou seja estou com as duas DLL's carregadas.
Já me da erro apenas em tentar fazer uma consulta da nfse, vou colocar o codigo e anexar os xml e o erro retornado.
LOCAL oConfiguracao
LOCAL oConsultarNfse
LOCAL oExceptionInterop
LOCAL cXML
LOCAL oErro
* Criar objeto para pegar exceção do lado do C#
TRY
oExceptionInterop = CreateObject( "Unimake.Exceptions.ThrowHelper" )
oConfiguracao = CreateObject( "Unimake.Business.DFe.Servicos.Configuracao" )
oConfiguracao.TipoDFe = 5 && 5 = NFSe
oConfiguracao.CertificadoArquivo = ALLTRIM(Pupathcertificado) && Caminho do meu certificao
oConfiguracao.CertificadoSenha = ALLTRIM(Pusenhacertificado) && Senha do meu certificado
oConfiguracao.CodigoMunicipio = 1001058 && Padrão Nacional
oConfiguracao.TipoAmbiente = 2 && Homologacao
oConfiguracao.Servico = 32 && NFSeConsultarNfse
oConfiguracao.SchemaVersao = "1.01"
* cXML ='<?xml version="1.0" encoding="utf-8"?>'
cXML = ALLTRIM([<?xml version="1.0" encoding="utf-8"?>]) + CHR(13)
cXML = cXML + ALLTRIM([<NFSe versao="1.01" xmlns="
http://www.sped.fazenda.gov.br/nfse">]) + CHR(13)
cXML = cXML + [ <infNFSe Id=] + ALLTRIM(NFse.chavenfse) + ALLTRIM([/>]) + CHR(13)
cXML = cXML + '</NFSe>'
STRTOFILE(cXML,"Notamontada.xml")
oConsultarNfse = CreateObject("Unimake.Business.DFe.Servicos.NFSe.ConsultarNfse")
oConsultarNfse.Executar(cXML, oConfiguracao) && AQUI JÁ ESTA DANDO ERRO
Esta é a primeira etapa para eu recuperar o xml e tenta gerar o DANF pelo DLL da unidanf