araujolops

Bom dia, desculpe a demora em responder. A sua alteração deu certo. Faltou eu testar em relação aos valores 0.0001. como surgiu uma série de BO's ainda não consegui testar. mas assim que testar. vou postar aqui. muito obrigado por enquanto.

Boa noite, muito obrigado. Está resolvido. Desconsidere essas duas imagens postadas.

Boa noite, Obrigado pela atenção. Agora aparece essas mensagens sendo que todos os valores estão zerados ou como (0.0001) conforme uma dica que vi. Teria que fazer alguma coisa diferente ?

Ok. Obrigado.

Boa tarde, Removendo as linhas abaixo, resolvo o problema da mensagem da imagem do início do tópico: unit pnfsNFSeW_ABRASFv2; na linhas 412 eu removi: // Gerador.wCampo(tcDe2, '#23', 'OutrasRetencoes', 01, 15, 0, NFSe.Servico.Valores.OutrasRetencoes, DSC_OUTRASRETENCOES); na linha 427: if FProvedor in [proSimplISSv2, proDeISS] then begin // Gerador.wCampo(tcDe2, '#23', 'OutrasRetencoes', 01, 15, 1, NFSe.Servico.Valores.OutrasRetencoes, DSC_OUTRASRETENCOES); // Gerador.wCampo(tcDe2, '#22', 'ValTotTributos ', 01, 15, 1, NFSe.Servico.Valores.ValorTotalTributos); end; Porém volto ao problema que o Carlos Júnior / Itálo já haviam resolvido. Está em looping. Como Resolver? Removi os dois campos. (Antes tinha colocado valor com 0.0001)

Agora sim melhorou, deu um monte de outros erros. Mas agora eu consigo compreender. unit pnfsNFSeW_ABRASFv2; na linhas 412 eu removi: // Gerador.wCampo(tcDe2, '#23', 'OutrasRetencoes', 01, 15, 0, NFSe.Servico.Valores.OutrasRetencoes, DSC_OUTRASRETENCOES); na linha 427: if FProvedor in [proSimplISSv2, proDeISS] then begin // Gerador.wCampo(tcDe2, '#23', 'OutrasRetencoes', 01, 15, 1, NFSe.Servico.Valores.OutrasRetencoes, DSC_OUTRASRETENCOES); // Gerador.wCampo(tcDe2, '#22', 'ValTotTributos ', 01, 15, 1, NFSe.Servico.Valores.ValorTotalTributos); end; Aí apareceu os erros da imagem abaixo. Vou corrigir e dou um fedd back final. Muito obrigado por enquanto.

Se eu removo o campo OutrasRetencoes ele dá o mesmo erro. Vou remover ele agora do fonte do ACBR.

Aí que tá ele gera o XML. O problema está ao assinar. Estou usando tanto o libcapicom, como o libwincrypt que são os que usa para a NF-e. Estou debugando, pois vc me deu um norte, mas na parte de assinatura não tenho conhecimento.... Vejo que sempre pega o XML gerado. Mas outras retenções ele consta no arquivo de schemas, foi a primeira coisa que fui procurar. A primeira vez pensei isso também retirei ele mas deu erro. Vou fazer o teste de novo sem ele.

Bom dia, muito obrigado por responder. Eu tinha visto o caso dele, mas ali faltava o campo, no meu caso não falta, ele existe, é gerado no xml, consta nos arquivos de schemas o problema está após a assinatura, conforme debuguei, que ai retorna a mensagem. Aqui é que ocorre o erro, porém falta conhecimento para eu continuar... procedure TDFeWebService.DefinirDadosMsg; begin { sobrescrever, OBRIGATORIAMENTE } FPDadosMsg := ''; GerarException(ACBrStr('DefinirDadosMsg não implementado para: ') + ClassName); end;

Boa noite, Estou recebendo uma mensagem de erro ao tentar Gerar lote RPS usando o exemplo do ACBr. Usando em Homologação. NFS-e - Indaiatuba - SP Segue imagem do erro e arquivo XML em anexo. Obrigado. 3520045902828200018856000000000000001-rps.xml

Resolvido. Realmente foi só remover esses campos.

Ok. Obrigado. Estou agora fazendo testes e removendo esses que acho não vai usar...

Cidade de Indaiatuba - SP - 3520509 Pesquisando, acho que esses campos não preciso usar. Acho que Somente WebUser e WebSenha. Começando a fazer testes... Obrigado pelo retorno.

Boa tarde, No exemplo esses campos em negrito estão preenchidos. Onde pego esses valores, sendo que a única coisa que tenho é Usuário e Senha: Configuracoes.Geral.Emitente.WebChaveAcesso := 'Onde Encontro essa Chave?'; with Configuracoes.Geral.Emitente.DadosSenhaParams.Add do begin Param := 'ChaveAutorizacao'; Conteudo := 'A001.B0001.C0001-1'; end; NotasFiscais.NumeroLote := NumLote; NotasFiscais.Transacao := True; with NotasFiscais.Add.NFSe do begin ChaveNFSe := '123456789012345678901234567890123456789'; Já pesquisei, assisti ao vídeo do Ítalo porém não encontrei nada que fale a respeito. Obrigado.

Resolvido. Muito Obrigado era isso mesmo....

Boa noite, estou com problema ao consultar uma NFC-e Inclusive pela própria consulta do ACBRMonitorPlus. Vi uma resposta do Ítalo mas não se aplica aqui pois o comando que estou usando está abaixo. (Só se tiver algo errado nele). Mas o ACBrMonitorPlus na Aba de Teste Faz a mesma coisa. Agora se eu usar o Emissor Ele faz normal independente de data e hora. fSocket.SocketEnvio('NFe.Ativo'); fSocket.SocketEnvio('NFE.ConsultarNFe(' + OpenDialog.FileName + ', 1)'); fSocket.SocketResposta; sResposta := fSocket.Resposta.Text; // fSocket.SocketEnvio('NFe.Exit'); A mensagem do monitor: NFe.Ativo OK: ATIVO NFE.ConsultarNFe(D:\Demonstracao\NFC-e\LOG\41200405949641005170650010000000161040000208-nfe.xml, 1) ERRO: DigestValue do documento 41200405949641005170650010000000161040000208 nao confere. Não faz a junção do Protocolo de Autenticação com o XML gerado. Obrigado se puderem ajudar..... 41200405949641005170650010000000161040000208-sit.xml 41200405949641005170650010000000161040000208-nfe.xml

Boa tarde. Obrigado pelo retorno... Acabei de resolver.. Reinstalei o emulador e acabou dando certo... Obrigado.

Bom dia, Estou tendo um erro ao testar o AcbrMonitorPlus com o Emulador SAT OFF Line. Utilizando o comando ConsultarStatusOperacional aparece a mensagem abaixo. 28/10/2019 10:42:02 - NumeroSessao: 925299 - Comando: ConsultarStatusOperacional 28/10/2019 10:42:02 - NumeroSessao: 925299 - Resposta:925299|10000|Resposta com Sucesso.|||900000102|DHCP|127.127.127.100|127.127.127.100|127.127.127.100|127.127.127.100|127.127.127.100|127.127.127.100|CONECTADO 28/10/2019 10:42:02 - EStringListError - List index (14) out of bounds 28/10/2019 10:42:02 - List index (14) out of bounds Sempre que atualizo o ACBr faço um teste antes de por em produção. Abaixo segue os logs... Pesquisei e não achei nada com erro semelhante. Obrigado. ACBrSAT.log LOG.TXT

Estou com esse mesmo problema, a data de emissão é hoje e o vencimento 20 dias para frente. Em hologação. conseguiu resolver ?

Bom dia, Sugestão aos moderadores. Seria possível fazer a inversão do cep com o telefone na DANFE, visto que o CEP faz parte do endereço ? Arquivo ACBrNFeDANFEFRDM.pas na linha: 582 cdsEmitente.FieldByName('DADOS_ENDERECO').AsString := cdsEmitente.FieldByName('DADOS_ENDERECO').AsString + ' - ' + Trim(FieldByName('XBairro').AsString) + ' - ' + Trim(FieldByName('XMun').AsString) + ' - ' + Trim(FieldByName('UF').AsString) + ' - CEP: ' + Trim(FieldByName('CEP').AsString) + #13 + ' Fone: ' + Trim(FieldByName('Fone').AsString) + IfThen(trim(FDANFEClassOwner.Fax) <> '', ' - FAX: ' + FormatarFone(trim(FDANFEClassOwner.Fax)),''); Obrigado. ACBrNFeDANFEFRDM.pas

Bom dia. Resolvido. Aos moderadores, vai precisar alterar pnfsEnvLoteRpsResposta.pas e disponibilizar para os outros que usam o NFSe. // Alexandre em 05/02/2018 - Alterei a linha abaixo. FInfRec.FDataRecebimento := StrToDateDef(VarToStr(Leitor.rCampo(tcStr, 'data_nfse')), 0) + StrToTimeDef(VarToStr(Leitor.rCampo(tcStr, 'hora_nfse')), 0); e precisa adicionar também no uses variants; - Não tem mais como editar a dúvida criada ?

Bom dia, Estava fazendo testes semana passada com o Exemplo da NFSe tudo normal. Porém hoje ao fazer atualização do ACBr e tentar compilar apareceu o seguinte erro: pnfsEnvLoteRpsResposta.pas(1053,41) Error: Can't determine which overloaded function to call, já procurei por erros semelhantes e não encontrei nada, vi que foi feito uma alteração em 01/02 adicionando essa linha que está com erro agora. Não consegui achar o motivo do erro. Alguém no dia de hoje passando por isso? FInfRec.FDataRecebimento := StrToDateDef(Leitor.rCampo(tcStr, 'data_nfse'), 0) + StrToTimeDef(Leitor.rCampo(tcStr, 'hora_nfse'), 0); Uso o lazarus versão 1.9.0, FPC 3.1.1 win32/win64 Obrigado.

Já fiz isso. Sempre faço, inclusive apago sempre as DCU's a cada nova atualização. Só preciso resolver esse problema do windres, pois é por causa dele que está dando esse erro. Que Versão do Lázarus você usa ? pois a minha é baixada por SVN e compilada. Obrigado.