Marcos Pereda

oi, boa tarde, desculpa, não tinha visto sua pergunta. É verdade, eu até poderia ver na remessa quantas RPS eu mandei, mas a minha ideia é simplesmente fazer um looping até retornar o erro -13, que é o que está documentado que deveria retornar quando chama um indice que não existe. desde já agradeço Marcos

Estimados, na demo estava com problemas para gravar a porta do proxy, notei que não estava usando o campo da porta propriamente dito, mas sim o spinner do lado, não acho muito prático ir de 1 em 1 para configurar uma porta Baixei e fiz o commit FrmMain.frx FrmMain.frm corrigindo, tentei fazer o commit agora , mas pede usuario e senha, seguem os arquivos atualizados FrmMain.frm ACBrLibNFSeDemo.vbp

Estimados, bom dia, gostaria de saber quais são os possíveis valores do campo Situacao da resposta de NFSE_Emitir https://acbr.sourceforge.io/ACBrLib/NFSE_Emitir.html desde já fico grato Marcos

Sobre o exemplo, eu também estou implantando agora, então não tenho certeza se vai funcionar ( parei no nfse_carregarlotexml ) , mas o resto do meu codigo esta assim , basicamente no envio assincrono o que vc quer é pegar o protocolo e depois consultar a função abaixo pega o protocolo, o retorno é no formato do ini , por isso uso uma função GetIniValueFromString, no link https://acbr.sourceforge.io/ACBrLib/NFSE_Emitir.html tem um exemplo de retorno Public Function ACBREnviarLoteAssincronoRPS(ByVal NumLote As Integer, ByRef Erro As String) As String 'enviar o lote, se deu sucesso retornar para a funcao o protocolo gerado Dim resposta As String On Error GoTo ACBREnviarLoteAssincronoRPS_Error resposta = myACBRNFSE.Emitir(NumLote, meLoteAssincrono, False) 'por enquanto mostrar na mensagem Call Mensagem(resposta) If resposta <> "" Then If GetIniValueFromString(resposta, "Envio", "Sucesso", "0") = "1" Then ACBREnviarLoteAssincronoRPS = TiraZeros(GetIniValueFromString(resposta, "Envio", "Protocolo")) End If End If On Error GoTo 0 Exit Function ACBREnviarLoteAssincronoRPS_Error: Erro = Err.Description Mensagem "Erro " & Err.Number & " (" & Err.Description & ") na linha " & Erl & " em ACBREnviarLoteAssincronoRPS do Módulo de classe clsTecnoSpeed", , , csVerde End Function E com o protocolo eu consulto as notas , isto aqui já deu certo, usei com um protocolo gerado por outro sistema : RetornoACBR =ConsultarLoteRps(txtNotaTecnoSpeed(0), txtNotaTecnoSpeed(0)) If modArquivos.GetIniValueFromString(RetornoACBR, "ConsultaLoteRps", "Situacao") = "true" Then XML_ = AnsiToUtf8(GetIniValueFromString(RetornoACBR, "ConsultaLoteRps", "XmlRetorno")) com o xml, vc carrega as notas Call myACBRNFSE.CarregarXML(XML_) e vc faz um looping pelas notas, usando o obterini RetornoACBR = myACBRNFSE.ObterIni(numIndice) o ini vai te retornar os dados que vc precisa da nota Call gTabela.Gravar("alunopag", "NFE", GetIniValueFromString(RetornoACBR, "IdentificacaoNFSe", "Numero"), dbInteger, ACAO_UPDATE, strWhere) Call gTabela.Gravar("alunopag", "autenticacaonfe", GetIniValueFromString(RetornoACBR, "IdentificacaoNFSe", "CodigoVerificacao"), dbText, ACAO_UPDATE, strWhere) Call gTabela.Gravar("alunopag", "dataemissaonfe", GetIniValueFromString(RetornoACBR, "IdentificacaoRps", "DataEmissao"), dbDate, ACAO_UPDATE, strWhere) Call gTabela.Gravar("alunopag", "nfe_url", GetIniValueFromString(RetornoACBR, "IdentificacaoNFSe", "Link"), dbText, ACAO_UPDATE, strWhere) aqui tem um problema, que reportei mas também não tive resposta, que quando vai pegar a ultima nota + 1 não da o erro -13 de indice inexistente. espero ter ajudado, Marcos

Eu abri um chamado com o mesmo problema e não tive resposta, o NFSE_CarregarLoteXML não carrega as RPS geradas pelo NFSE_GerarLote

obrigado Elton, consigo alterar ACBrNFSeX1.NotasFiscais.Transacao pela acbrlib ?

Estimados, no chamado https://www.projetoacbr.com.br/forum/topic/84145 mandei o arquivo errado segue o correto, aproveitei para incluir mais um helper que não tinha, para pegar a última resposta ACBrNFSe.cls

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

Aproveitando o chamado, o separador de casas decimais de porcentagem, também deve ser vírgula ? Obrigado Marcos

Consegui gerar o lote do xml para comparar com o que eu gero atualmente, e notei apenas um campo diferente, o campo transacao : <PedidoEnvioLoteRPS xmlns="http://www.prefeitura.sp.gov.br/nfe"> <Cabecalho xmlns="" Versao="1"> <CPFCNPJRemetente> <CNPJ>05612901000158</CNPJ> </CPFCNPJRemetente> <transacao>false</transacao> <dtInicio>2025-07-07</dtInicio> <dtFim>2025-07-07</dtFim> <QtdRPS>1</QtdRPS> <ValorTotalServicos>500.00</ValorTotalServicos> <ValorTotalDeducoes>0.00</ValorTotalDeducoes> </Cabecalho> Na prefeitura de São Paulo, quando este campo é verdadeiro, significa que o lote é processado de forma integral, isto é, caso algum RPS falhe, o lote todo é descartado. Por padrão a função NFSE_GerarLote está gerando o lote com o transacao = false. Como eu faço para gerar com o transacao = true ? Obrigado Marcos

Segue anexa a classe. ACBrNFSe.cls

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

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.

Obrigado ! Tem algum método só para assinar o xml ? grato Marcos

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