Sérgio Caldeira Silva

Bom dia Rodrigo! Não avancei neste ponto, fiquei na dúvida se criava um método novo para o leiaute 2.3 ou se era possível tratar no leiaute 2 da Abrasf. Apesar de não conhecer profundamente os fontes, vou tentar hoje à tarde. O ruim é que as NFS-e dos clientes vão acumulando... a pressão é grande, a gente não tem paz nem para raciocinar (rsrsrs). Assim que conseguir alguma coisa, posto aqui.

Corrigindo... data no formato UTC: UTC time zone ou ISO 8601.

Boa tarde Juliana! Segue a unit, porém, é preciso verificar se esta função do Delphi está disponível em todas as versões do Delphi e do Lazarus... por isto não subi os fontes. Não tenho o Lazarus para testar e nem versões anteriores a 10.3 do Delphi. A alteração está com a data de 31/03/2021 e com meu nome para facilitar a sua localização. pnfsEnvLoteRpsResposta.pas

Opa! Me esqueci de incluir o código: case LayoutXML of loABRASFv1: Result := LerNFSe_ABRASF_V1; loABRASFv2: Result := LerNFSe_ABRASF_V2; loEL: Result := LerNFSe_EL; loEGoverneISS: Result := False; // Falta implementar loEquiplano: Result := LerNFSe_Equiplano; loGoverna: Result := LerNFSe_Governa; loInfisc: Result := LerNFSe_Infisc; loISSDSF: Result := LerNFSe_ISSDSF; loCONAM: Result := LerNFSe_CONAM; loAgili: Result := LerNFSe_Agili; loSP: Result := LerNFSe_SP; loSMARAPD: Result := LerNFSe_Smarapd; loIPM: Result := LerNFSe_IPM; loSigIss: Result := LerNFSe_SigIss; loElotech: Result := LerNFSe_Elotech; loSiat: Result := LerNFSe_Siat; loGiap: Result := LerNFSe_Giap; else Result := False; end;

Boa tarde Ítalo! As alterações de leiaute para prefeitura de Vila Velha - ES, passaram, mas ainda encontrei a necessidade de ajustar o código para esta prefeitura. Segue abaixo as observações, sendo que os itens 1 e 2 foram solucionados e o item 3 está pendente - ainda não consegui resolver. 1. O campo "InscricaoMunicipal" deverá ser preenchido com o CCM que a prefeitura fornece... no meu caso, substitui a inscrição por este código, já que não encontrei um campo que correspondesse ao CCM; 2. Na unit "pnfsEnvLoteRpsResposta", foi preciso alterar o método "function TretEnvLote.LerXml_ABRASF: Boolean;", visto que o campo DataRecebimento vem no formato UTF: // Alguns provedores retornam apenas a data, sem o horário if Length(Leitor.rCampo(tcStr, 'DataRecebimento')) > 10 then begin if FProvedor = proSmarAPDv23 then begin xData := Leitor.rCampo(tcstr, 'DataRecebimento'); (* 31/03/2021. Sérgio Caldeira: o campo "DataRebimento" vem no formato UTF, portanto, a formatação abaixo incorre em erro. Substitui pela função ISO8601ToDate() do próprio Delphi. infRec.FDataRecebimento := StrToDate(Copy(xData, 1, 10)) + StrToTime(Copy(xData, 12, 8)); *) infRec.FDataRecebimento := ISO8601ToDate(xData); end else infRec.FDataRecebimento := Leitor.rCampo(tcDatHor, 'DataRecebimento'); end else infRec.FDataRecebimento := Leitor.rCampo(tcDat, 'DataRecebimento'); 3. Na unit "pnfsNFSeR", no método "function TNFSeR.LerNFSe: Boolean;", o atributo LayoutXML, está sendo iniciado com o valor loABRASFv2, e no código abaixo está dando erro... imagino que seja pelo valor, na medida em que o leiaute foi alterado para a versão 2.03. Empaquei aqui, ainda não identifiquei onde alterar. Se algum moderador quiser ajudar, estou com o ambiente todo preparado para auditar o código.

Bom dia Rodrigo! Na validação, não houve nenhuma msg de erro referente a senha. Mas não consegui registrar a NFS-e por questões de leiaute. Atenciosamente,

Bom dia Ítalo! Grato pelo retorno. Pesquisei no site da prefeitura e eles não atualizaram ainda, lá continua informando a versão 2.01: https://nfse.vitoria.es.gov.br/doc/documentacao.cfm Pesquisei no site da Abrasf e encontrei a documentação atualizada: http://www.abrasf.org.br/pagina_publica.php Há algum local em que eu possa pesquisar sobre a liberação desta atualização? Pergunto só para evitar downloads desnecessários. Grato pela atenção.

Boa tarde Ítalo! O suporte da NFS-e de Vitória, finalmente respondeu. Seria possível me orientar como proceder? Uma ANOTAÇÃO foi adicionada a esta tarefa. ---------------------------------------------------------------------- (0269941) (Gerente) - 24/02/2021 14:46 https://centraldeajuda.vitoria.es.gov.br/ ---------------------------------------------------------------------- A estrutura está faltando informar o método utilizado. Ao que parece, estão tentando enviar utilizando o GerarNfseEnvio. Ao invés do xml iniciar com: <?xml version="1.0" encoding="UTF-8"?> <Rps xmlns="http://www.abrasf.org.br/nfse.xsd"> <InfDeclaracaoPrestacaoServico Id="2734E"> Deveria iniciar com: <?xml version="1.0" encoding="utf-8"?> <GerarNfseEnvio xmlns="http://www.abrasf.org.br/nfse.xsd"> <Rps> <InfDeclaracaoPrestacaoServico Id="2734E"> ----------------------------------------------------------------------

Boa tarde Ítalo! Usei este método acima (Enviar), porém, já testei com todos os outros. Qual o critério o ACBr usa para definir se o xml será em lote ou uma única NFS-e? Talvez seja isto que está faltando.

Italo, grato pelo retorno. Só gerou o arquivo 3220082950229800011056000000000002734-rps.xml na pasta C:\temp\PastaDeCompilacao\NFSe\CaixaDeEntrada\202008\NFSe\Recibos.

Bom dia Italo! Após preencher todos os campos, eu executo o seguinte método: {05/11/2020. Sérgio: Há vários métodos de envio de acordo com cada tipo de provedor.} Enviar(StrToInt(NotasFiscais.NumeroLote)); Porém, ele não gerou a tag LoteRps, seria porque só estou testando com um RPS ou tenho que executar mais algum procedimento? Pelo exemplo da unit Frm_ACBrNFSe, parece que está tudo correto.

Bom dia Italo! Desculpe a demora, mas estava revisando todos os campos com o manual de vitória: https://nfse.vitoria.es.gov.br/arquivos/docs/NFSE-NACIONAL_Manual_De_Integrao verso 2-01.pdf Sim, testei todos os métodos de envio, mas percebi que o leiaute modelo de Vitória https://nfse.vitoria.es.gov.br/arquivos/docs/exemploXMLcomAssinatura.xml, trabalha com lotes de rps. Vou testar esta opção, apesar que normalmente enviamos um rps por vez. Conforme sugestão do Juliomar, comparei meu código com o exemplo da unit Frm_ACBrNFSe, contudo, usando o mesmo método e preenchendo os mesmos campos, o xml não é gerado com o lote, veja abaixo. Poderia me informar como faço para gerar o xml em lote? Outra diferença é o id, no xml não gera da mesma forma: <LoteRps Id="6c5bc5f5-1087-475e-a35cd559d2a-304b-43d9-bc3" versao="2.01"> e <Rps Id="4e3b7017-b7ca-4eae-9ada36ccda3-fe42-446a-809"> <?xml version="1.0" encoding="UTF-8"?> -<Rps xmlns="http://www.abrasf.org.br/nfse.xsd"> -<InfDeclaracaoPrestacaoServico Id="2734E"> -<Rps> -<IdentificacaoRps> <Numero>2734</Numero> <Serie>E</Serie> <Tipo>1</Tipo> </IdentificacaoRps> <DataEmissao>2020-08-11</DataEmissao> <Status>1</Status> </Rps> <Competencia>2020-08-11</Competencia> -<Servico> ....

Boa tarde Ítalo! Fiz tudo conforme sua orientação, já estava atualizado antes, mas mesmo assim, removi e instalei tudo. Conferi o ini de Vitória com a configuração que o Heronim Antônio, agradeço a ele por isto, me passou do arquivo dele Vitoria.ini que está funcionando. O validador retornou a mesma mensagem que postei acima. Imagino que seja algum campo ou a chamada. Estou usando o método Gerar(NumeroDaNota, StrToInt(NotasFiscais.NumeroLote), false); seria este método mesmo? Os parâmetros estão corretos?

Bom dia Italo! Eu estou alterando o arquivo Vitoria.ini, porque entendi que nele fica a parametrização. Haveria alguma documentação para o componente, em função da sua complexidade? Se não, poderia me orientar, estou um pouco perdido? 1. O INI do provedor seria ABRASFv1.ini, correto? 2. As alterações deveriam ser somente nele ou nos dois arquivos? 3. Qual campo refere-se à geração da tag RPS que o validador diz não existir, na mensagem que postei acima? Antecipadamente, agradeço a atenção de sempre.

Bom dia Senhores! Sei que já estão emitindo NFS-e para o provedor de Vitória-ES, no entanto, ao gerar a NFS-e, recebo a seguinte msg: 'Falha na validação dos dados do lote: 137''Element ''{http://www.abrasf.org.br/nfse.xsd}Rps'' is unexpected according to content model of parent element ''{http://www.abrasf.org.br/nfse.xsd}GerarNfseEnvio''.Expecting: {http://www.abrasf.org.br/nfse.xsd}LoteRps.' Já fiz várias alterações no arquivo de configuração Vitoria.ini, mas não consegui identificar qual parâmetro devo iniciar para ajustar o xml ao formato correto. Segue abaixo o ini: [Assinar] RPS=0 Lote=1 URI=1 Recepcionar=0 ConsSit=0 ConsLote=1 ConsNFSeRps=0 ConsNFSe=0 Cancelar=1 RpsGerar=0 LoteGerar=1 RecSincrono=0 Substituir=0 O validador de Vitória-ES (http://issonline.vilavelha.es.gov.br/vviss/aberto/formValidadorRemessa.cfm) informa que o RPS não foi declarado: Resultado - Teste de arquivos de remessa Arquivo 3220082950229800011056000000000002734-rps.xml Envio 23/11/2020 às 11:49:03 Últ. atualização 23/11/2020 às 11:49:03 Validação Física Não Validação Lógica Não Erros encontrados Arquivo em desacordo com o XML Schema. System.Xml.Schema.XmlSchemaValidationException: The 'http://www.abrasf.org.br/nfse.xsd:Rps' element is not declared. Consulte o Manual da NFS-e para saber quais são as versões de XML Schema suportadas pelo sistema. Porém, no sistema preencho os dados da RPS: with NotasFiscais.Add.NFSe do begin IdentificacaoRps.Numero := IntToStr(FatNsuNum); IdentificacaoRps.Serie := qyNota.FieldByName('FatNsuSer').AsString; IdentificacaoRps.Tipo := trRPS; e passo o lote como parâmetro: case qyNota.FieldByName('SysCidIbgCod').AsInteger of 3205309, 3205200: begin Gerar(FatNsuNum, StrToInt(NotasFiscais.NumeroLote), false); end else Já emitimos NFS-e para Belo Horizonte - MG; portanto, acredito que seja somente parametrização, mas não consegui identificar qual. Desde já, agradeço a colaboração de todos.

Boa tarde Juliomar! Grato pelo retorno. Sim, meus fontes estão atualizados, porém, os baixei via svn, não rodei o instalador novamente... acho (rs rs rs), vou fazê-lo para verificar isto. Mas a propriedade existe, até debuguei os fontes do ACBr. Como disse, as colunas chegam a ser alteradas para visible = false, mas imprimem mesmo assim.

Boa tarde Srs.! Sei que este tópico já foi discutido exaustivamente, porém, a impressão da coluna desconto do item continua aparecendo em nosso projeto. Visto que alterei a propriedade do componente citado no título e também o fiz no código (ACBrNFeDANFeRL1.ImprimeDescAcrescItem := idaiNunca;), antes da impressão, imagino que deixei passar algo. Debuguei o método TACBrNFeDANFEClass.ManterColunaDesconto e está retornando false para a impressão do desconto e debuguei TfrlDANFeRLRetrato.ControlaExibicaoColunaDesconto, onde os componentes txtValorDesconto, lblPercValorDesc e lblPercValorDesc1 tem sua propriedade visible = false, de acordo com o método fpDANFe..ManterColunaDesconto... tudo certinho, mas ainda sim, a coluna é impressa. Gostaria de contar com o apoio dos membros mais experientes. Desde já, agradeço a atenção de sempre.

O arquivo ACBrCTeServicos deve ser referenciado onde no componente? O xml que nosso sistema está gerando, sempre sai com a url do RS, não consegui localizar onde este ini é carregado.

Srs. Pesquisei no projeto as referências a esta unit, para tentar entender como ela é usada e verificar se o método estava em outra unit. Vi que só havia uma chamada dela, comentei e passou. Procede? Vou dando continuidade aqui.

Bom dia Srs.! Ao atualizar meu ACBr, visto que estava dando erros, fiz um backup da pasta e a limpei antes. Agora está dando um erro que o arquivo pcnCCeNFe não foi encontrado. Tentei localizar este arquivo e não o encontrei em nenhuma pasta, atualizei novamente o ACBr sem sucesso. Então, procurei em outros backups que tenho (ACBr XE6) e nele se encontrava este arquivo entre outros que também não tinham no download que fiz (usei o SVN). Como devo proceder? Copio o arquivo de versões anteriores do ACBr ou tenho que alterar o fonte? Neste último caso, onde encontro uma referência destas mudanças. Desde já, agradeço a atenção de sempre.