Sérgio Caldeira Silva

Boa tarde Ítalo! Pode encerrar este tópico. Conversão para o novo componente está funcionando para BH - MG e para Vila Velha - ES. No caso de BH, o erro aleatório que ninguém conseguiu identificar, nem a equipe de TI da prefeitura, está relacionado SSLType. Ao informar LT_TLSv1_2, dá erro na prefeitura de BH, ela somente funciona com LT_All. Para todas as outras prefeituras, o SSLType = LT_TLSv1_2, é a melhor opção. O novo componente ficou muito bom. Meus parabéns! Se me permite, aos leitores deste post, sugiro que usem o programa exemplo que o Ítalo fez para nortear o processo de emissão da NFS-e, visto que todos os erros que encontramos, referiam-se a campos não preenchidos (não eram usados no componente anterior) ou parâmetros - preencham todos os campos primeiro, depois "quebrem a cabeça" com a parametrização que pode variam de provedor para provedor. Gratidão!

Ítalo, para BH está dando o seguinte erro, porém, o campo Disciminacao foi incluído, iniciado e o schema atualizado com o ACBr que baixei. Sabe informar se existe algum outro motivo para este erro?

Boa noite Ítalo! Alterei o formato de envio para meAutomatico e funcinou.

Bom dia Ítalo! No método TACBrNFSeProviderABRASFv2.PrepararEmitir(Response: TNFSeEmiteResponse); ao tentar gerar a NFS no formato meUnitario. Tentei outras formas de enviar, mas não consegui.

Ítalo, qual a configuração que você está usando? Está dando erro com o wincrypt: não consegue carregar. Peguei as DLLs do ACBr, mas a msg abaixo persiste. Erro(s): Código : 1 Mensagem: Signature failed core validation
 Signature failed core validation Correção: Corrija os campos informados.

Grato Ítalo pela sugestão. Consegui encontrar, era a configuração abaixo:

Ítalo, foi isto que fiz, copiei os arquivos desta pasta e colei na pasta schemas. Não deu certo, copiei do site da abrasf, não deu certo. Voltei com os arquivos da pasta Abrasfv203.

Ítalo, verifiquei no site da abrasf e na lista de erros e alertas da versão 2.03 não encontrei erro. Sobrepus o schema que está na pasta schema da NFSe, porque não tem schema na pasta NFSXe, porém, não resolveu também. Pesquisei em outros fóruns, no entanto, eram cases diferentes pelo que entendi.

Bom dia Ítalo! Meu ACBr estava atualizado, mas por via das dúvidas exclui a pasta e instalei tudo do zero; mas era um campo novo que passou desapercebido. Usei o exemplo como referência. Resolveu. Agora apareceu uma outra mensagem após a conversão, saberia orientar? nfse.xsd#/schema The "namespace.provided differs from the schema's 'http://www.abrasf.org.br/nfse.xsd' targetNamespace)

Bom dia Ítalo! No início deste ano, você incluiu um novo servidor para atender a Vila Velha - ES, o proSmarAPDv23 . No novo componente da NFS este provedor não está mapeado, então, comentei para identificar o type. Contudo, ao executar o sistema, retorna a seguinte mensagem: Código do Município [3205200] não encontrado. Sabe me informar em qual unit eu posso incluir este tratamento?

Boa noite Ítalo! Estou fazendo a conversão, mas não encontrei a propriedade abaixo, poderia me ajudar? // Para o provedor ISSDigital deve-se informar também: Prestador.Senha := NfePrmPreSen; Bom dia Ítalo! Já li o manual, mas como se referia ao campo como WebSenha e não Prestador.Senha, achei que fossem campos diferentes.

Boa noite Ítalo! Estou fazendo a conversão, mas não encontrei a propriedade abaixo, poderia me ajudar? // Para o provedor ISSDigital deve-se informar também: Prestador.Senha := NfePrmPreSen;

Aos mantenedores do ACBr, segue sugestão de alteração para que a msg apareça para os operadores / desenvolvedores: except { Não foi capaz de Exportar/Copiar a Chave para o nosso Provedor de Criptografia, então vamos usar o Provedor de Criptografia do Certificado } on E: Exception do begin CryptReleaseContext(mCryptProvider, 0); mCryptProvider := mCryptProviderCert; pfCallerFreeProv := False; raise; end; end;

O if executa o seguinte método: function CryptExportKey; external Advapi32 name 'CryptExportKey'; Dá-se a entender que a AdvApi32.dll está corrompida, porém, o erro ocorreu em dois computadores de desenvolvimento e no computador de produção do cliente. Não acredito que seja dll corrompida.

Srs., avancei um pouco e cheguei na unit ACBrDFeWinCryp, ao executar o if (em negrito), retorna false e cai no else onde gera a exceção (em negrito), daí pula para o except que não inicia mensagem alguma. if CryptExportKey( hRSAKey, hSessKey, PRIVATEKEYBLOB, 0, Nil, mBytesLen ) then // Calcula mBytesLen begin Memory := AllocMem(mBytesLen); // Aloca a memória para receber o Blob try if CryptExportKey( hRSAKey, hSessKey, PRIVATEKEYBLOB, 0, Memory, mBytesLen ) then begin if not CryptImportKey(mCryptProvider, Memory, mBytesLen, hSessKey, 0, hExpKey ) then raise Exception.Create('CryptImportKey'); end else raise Exception.Create('CryptExportKey'); finally Freemem(Memory); end; end else raise Exception.Create('CryptExportKey - len'); except { Não foi capaz de Exportar/Copiar a Chave para o nosso Provedor de Criptografia, então vamos usar o Provedor de Criptografia do Certificado } CryptReleaseContext(mCryptProvider, 0); mCryptProvider := mCryptProviderCert; pfCallerFreeProv := False; end;

Boa tarde Srs.! Esta semana as NFS-e enviadas à Prefeitura de Vila Velha - ES estão retornando exceção, mas sem mensagem de erro. Ao debugar, identifiquei que o erro é gerado no código abaixo da unit ACBrNFSeWebServices, mas não consegui identificar o motivo: Result := FEnviarLoteRPS.Executar; if not (Result) then FEnviarLoteRPS.GerarException( FEnviarLoteRPS.Msg ); Poderiam me dar um "norte" para facilitar o processo de debug?

Boa tarde Ítalo! As alterações já foram anexadas nos posts anteriores.

Senhores, Alguém sabe me informar como a propriedade NotasFiscais.Count é alimentada? Pergunto porque envio uma NFS-e por vez, mas a cada envio, esta propriedade é incrementada, por isto o erro da mensagem acima.

Bom dia Ítalo! Fiz novos testes com o tratamento de data e deu tudo certo, contudo, não consegui identificar a origem, o WS está retornando a seguinte mensagem: "ERRO: Conjunto de RPS transmitidos (máximo de 1 RPS) excedido. Quantidade atual: 18) Você tem ideia do que pode ser?

Ítalo, referente ao item 3 do post acima, consegui resolver. O erro vem da data no formato UTC, resolvi da forma descrita abaixo, porém, percebi que se alterar o tipo da tag para tcDatHorCFe possivelmente resolverá... é uma alternativa que ao meu ver, causará impacto em outros provedores, por isto fiz a alteração abaixo. Anexei a unit também. function TLeitor.rCampo(const Tipo: TpcnTipoCampo; TAG: string; const TAGparada: string = ''): variant;var ConteudoTag: string; inicio, fim, inicioTAGparada: integer; Ano, Mes, Dia: word; begin ... tcDatVcto: begin if length(ConteudoTag)>0 then begin (* 15/04/2021. Sérgio Caldeira: a variágel "ConteudoTag" vem no formato UTC, portanto, a formatação abaixo incorre em erro. Substitui pelo tratamento abaixo. result := EncodeDate(StrToInt(copy(ConteudoTag, 07, 4)), StrToInt(copy(ConteudoTag, 04, 2)), StrToInt(copy(ConteudoTag, 01, 2))); *) {Verifica o formato da data para decodificá-la com o método correto.} if Pos('T', ConteudoTag) > 0 then begin DecodeDate(ISO8601ToDate(ConteudoTag, false), Ano, Mes, Dia); end else if Pos('-', ConteudoTag) > 2 then begin Ano := StrToInt(copy(ConteudoTag, 1, 4)); Mes := StrToInt(copy(ConteudoTag, 6, 2)); Dia := StrToInt(copy(ConteudoTag, 9, 2)); end else if Pos('/', ConteudoTag) > 2 then begin Ano := StrToInt(copy(ConteudoTag, 1, 4)); Mes := StrToInt(copy(ConteudoTag, 6, 2)); Dia := StrToInt(copy(ConteudoTag, 9, 2)); end else begin Ano := StrToInt(copy(ConteudoTag, 7, 4)); Mes := StrToInt(copy(ConteudoTag, 4, 2)); Dia := StrToInt(copy(ConteudoTag, 1, 2)); end; result := EncodeDate(Ano, Mes, Dia); end else Result := 0; end; .... pcnLeitor.pas

Ítalo, analisei a unit System.DateUtils, onde se encontram os métodos, nela não está documentado compatibilidade de versão ou data em que foi criada. Pelo que li, acredito não ser compatível. Contudo, esta unit poderia ser incorporada ao projeto ACBr com outro nome mantendo a compatibilidade com versões antigas e o lazarus, que acha? Com as integrações com sistemas web e sistemas globais, entendo que esbarraremos com este formato inúmeras vezes.

Bom dia Ítalo! Segue a pasta onde os xml foram gerados. NFSe Vila Velha.rar

Bom dia Ítalo! A empresa reclamou que estamos fazendo os testes em ambiente de produção, contudo, confirmei na parametrização e em debug, que o parâmetro está Producao = snNao; Sabe me dizer em qual unit debugo isto? Assim eu confirmo qual WS está sendo chamado e informo o Gerente de TI da empresa cliente que está querendo saber. Grato pela atenção de sempre.

Boa tarde Ítalo! O erro está justamente ao ler o retorno, pelo menos foi isto que entendi. Se tiver algum método que grave o retorno, me informe que eu faço o teste novamente. Se não tiver, podemos combinar um horário para testar, porque meu ambiente está todo preparado para isto, você conectando em meu computador realiza o procedimento rapidinho. Quanto ao Delphi 7, não tenho como testá-lo... infelizmente.

Boa tarde Ítalo! Segue conforme solicitado. Se der problema novamente, a alteração que fiz, está em um post anterior. pnfsEnvLoteRpsResposta.pas