Como gerar o xml da NFSe sem enviar para a prefeitura

[Marcos Pereda]

Bom dia, 

consegui gerar o ini para o rps, porém antes de enviar para a prefeitura gostaria de saber como vai ficar o xml, é possível fazer isso ? como ?

obrigado

Marcos

[antonio.carlos]

6 minutos atrás, Marcos Pereda disse:

Bom dia, 

consegui gerar o ini para o rps, porém antes de enviar para a prefeitura gostaria de saber como vai ficar o xml, é possível fazer isso ? como ?

obrigado

Marcos

Tente utilizar o método ObterXml ou por ser envio para rps, pode utilizar o método ObterXmlRps.
Lembrando que este xml não terá assinatura e etc, pelo fato de você não ter realizado o envio.

[Marcos Pereda]

Obrigado ! 

Tem algum método só para assinar o xml ? 

grato

Marcos

[antonio.carlos]

Agora, Marcos Pereda disse:

Obrigado ! 

Tem algum método só para assinar o xml ? 

grato

Marcos

Precisa fazer o envio dele
https://acbr.sourceforge.io/ACBrLib/ComoemitirumaNFSe.html

[Marcos Pereda]

na lib do vb6 não tem o método obterxmlrps, 

e o obterxml é para obter uma unica nota de um lote , ele pede o indice na funcao

Public Function ObterXml(ByVal AIndex As Long) As String

    Dim retorno   As Long
    Dim buffer    As String
    Dim bufferLen As Long

    bufferLen = BUFFER_LENGTH
    buffer = String$(bufferLen, " ")
    
    retorno = NFSE_ObterXml(AIndex, buffer, bufferLen)
    CheckResult retorno
    
    ObterXml = processResult(buffer, bufferLen)
End Function

 

 

o que eu quero saber é como vai ficar o xml de envio do lote, antes de enviar para a prefeitura.

 

[Diego Foliene]

Bom dia!

Para esta finalidade você pode utilizar o método NFSE_GerarLote

[antonio.carlos]

18 minutos atrás, Marcos Pereda disse:

na lib do vb6 não tem o método obterxmlrps, 

e o obterxml é para obter uma unica nota de um lote , ele pede o indice na funcao

Public Function ObterXml(ByVal AIndex As Long) As String

    Dim retorno   As Long
    Dim buffer    As String
    Dim bufferLen As Long

    bufferLen = BUFFER_LENGTH
    buffer = String$(bufferLen, " ")
    
    retorno = NFSE_ObterXml(AIndex, buffer, bufferLen)
    CheckResult retorno
    
    ObterXml = processResult(buffer, bufferLen)
End Function

 

 

o que eu quero saber é como vai ficar o xml de envio do lote, antes de enviar para a prefeitura.

 

Enviado um commit At revision: 40128 para uso do método ObterXmlRps no programa exemplo.

[Marcos Pereda]

se vcs forem atualizar a classe ACBRNfse.cls da demo do VB6, gostaria de deixar uma sugestão, incluir o enum abaixo e deixar as chamadas tipadas , por exemplo

Public Enum ModoEnvio
    meAutomatico = 0
    meLoteAssincrono = 1
    meLoteSincrono = 2
    meUnitário = 3
    meTeste = 4
End Enum

Public Function Emitir(ByVal aLote As String, ByVal aModoEnvio As ModoEnvio, ByVal aImprimir As Boolean) As String
 

 

[antonio.carlos]

2 minutos atrás, Marcos Pereda disse:

se vcs forem atualizar a classe ACBRNfse.cls da demo do VB6, gostaria de deixar uma sugestão, incluir o enum abaixo e deixar as chamadas tipadas , por exemplo

Public Enum ModoEnvio
    meAutomatico = 0
    meLoteAssincrono = 1
    meLoteSincrono = 2
    meUnitário = 3
    meTeste = 4
End Enum

Public Function Emitir(ByVal aLote As String, ByVal aModoEnvio As ModoEnvio, ByVal aImprimir As Boolean) As String
 

 

pode editar a classe e anexar aqui, por favor, validamos e enviamos para o svn.

[Marcos Pereda]

Segue anexa a classe.

ACBrNFSe.cls

[antonio.carlos]

31 minutos atrás, Marcos Pereda disse:

Segue anexa a classe.

ACBrNFSe.cls 40.97 kB · 0 downloads

Obrigado pela contribuição
Enviado para o SVN
At revision: 40208

Ajudamos em algo mais, podemos encerrar o tópico ?

[Marcos Pereda]

Pode encerrar, obrigado. Já coloquei minha outra dúvida em outro chamado

[antonio.carlos]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.