Jump to content

carlos_augusto

Membros
  • Posts

    174
  • Joined

  • Last visited

Everything posted by carlos_augusto

  1. Sr. Italo Eu fiz todo procedimento de remoção do ACBR. Depois disto, utilizei o atualizador que está disponibilizado no site do Acbr que é : Portanto, acredito que o código fonte que recebi é exatamente o do Trunk 2. Mas mesmo assim persiste o problema. Quando tento instalar todos os pacotes pelo instalador, aparece um erro vago, conforme demonstrei anteriormente, o que me força fazer a instalação com a parte do Danfe FortesReports desmarcada. Se eu tento compilar e instalar manualmente somente o pacote : ACBr_NFeDanfeRL.dpk, aparece sempre a mensagem de erro : Packages 'Acbr_Nfe' and 'Acbr_PCNComum' both contain unit 'pcnConsCad'. Cheguei a verificar no pacote Acbr_Nfe e constatei que lá não existe a unit 'pcnConsCad'. Portanto não sei mais o que fazer para que o Delphi volte a funcionar regulamente, compilando o projeto. O senhor tem alguma nova sugestão? Grato .
  2. Sra. Juliana Boa Noite! Tentando resolver o problema eu procedi da seguinte forma : a)-Removi manualmente do Delphi a todos os pacotes do Acbr instalados b)-Removi manualmente do Delphi o FortesReports instalados c)-Baixei a última versão instalada do FortesReports e compilei e instalei o pacore FRCE.DPK d)-Fiz checkout dos fontes de hoje do ACBR e)-Utilizando o instalador do ACBR ( ACBrInstall_Trunk2.exe ) fiz a instalaação ( SEM marcar o Item : Gerador de Relatórios ( FortesReport ) f)-Tentei fazer a instalação do componente de Danfe para FortesReports : ACBr_NFeDanfeRL.DPK que fica em : C:\ACBR\Pacotes\Delphi\ACBrDFe\ACBrNFe\DANFE\NFe\Fortes Porém isto resultou no erro descrito na imagem abaixo ( packages ACBR_NFE e ACBR_PCNComum both contain unit PCNCONSCAD. Por outro lado, caso eu tente instalar o Danfe do FortesReports com o instalador, aparece um erro vago da seguinte forma : Compilation failure Erro ao compilar o pacote "ACBr_NFeDanfeRL.dpk". Abortando... Ocorreram erros na compilação dos pacotes. Pode a senhora me ajudar a determinar o que fazer para resolver esta situação? Grato
  3. Sra. Juliana Eu agradeço sua atenção. Ano passado, diante da inoperância do Sebrae, quem auxiliou-me em resolver este problema foram os senhores do Projeto ACBR. Portanto eu só tenho a agradecer. Com relação aos ajustes que farei no sistema neste ano, sabedor que não mais poderá ser feito via Txt, vou adotar a solução mais adequada , verificando a possibilidade de fazer da forma que o Sr. Rafael sugeriu. Obrigado pela sua ajuda. Grato
  4. Sr. Rafael Em Julho/2018 o Projeto Acbr atualizou o Layout TXT sim. Se o senhor procurar em : C:\ACBR\Doctos\ vai constatar que lá existe um layout com data de Julho/2018. E já naquela época o Sebrae tinha lançado um Emissor, com a habilidade de importar arquivos TXt , mas sem divulgar um layout txt. Portanto, na época os companheiros do Projeto Acbr no intuito de ajudar, adaptaram o layout oficial Txt da 3.10, criando um layout da 4.00 e ainda adaptaram o componente para interagir com este layout. O que poderá ocorrer é que de agora em diante o Projeto Acbr não querer mais fazer este trabalho. E é justamente esta informação que estou solicitando : irão os responsáveis pelo Projeto Acbr dar manutenção no Layout de Integração com Arquivos TXt como fizeram ano passado? Caso a resposta for não, vou ter que fazer um trabalho de adaptação maior que o esperado neste pequeno sistema que desenvolvi. Por isto que afirmei que esta informação é estratégica para mim. Muito obrigado
  5. Senhor Rafael Mas com o advento da NFE 4.00 , embora o Layout TXT oficial do Sebrae nunca tenha sido divulgado, os mantenedores adequaram em Julho/2018 o Layout TXT especifico do ACBR para importação no AcbrNFE. Foi justamente o que me permitiu criar uma solução mais rápida e servir à Entidade. A questão que estou levantando agora é se os mantenedores do Projeto Acbr vão fazer o mesmo procedimento do ano passado : - atualizando o Layout TXT com os novos campos criados pelas Notas Técnicas de 2019 da NFE - capacitar o componente a interagir com esta nova versão do Layout TXT Esta informação que preciso saber, pois, caso contrário terei um caminho muito mais longo para adequar o meu sistema. Grato
  6. Sra. Juliana Anteriomente eu já utilizava o ACBR. A última atualização que fiz foi em Agosto/2018. Mas já naquela oportunidade optei por não instalar os componentes de Impressão do Danfe. A sra. acha melhor eu fazer instalação do FortesReports Ce e também instalar os componentes de Danfe? Acha que resolveria isto? Grato
  7. Sr. Italo Bom Dia! Por favor, me permita que eu especifique o meu problema. Em Agosto/2018 eu fiz a transição, na empresa que trabalho, da Nfe da versão 3.10 para a 4.00 utilizando o componente AcbrNfe com sucesso. Naquela oportunidade, o auxílio dos Companheiros do Projeto ACBR foi fundamental. Resolvido o meu problema profissional, acabei por atuar como voluntário à uma Entidade Assistencial, desenvolvendo um pequeno sistema para auxiliá-los. Na oportunidade, devido à urgência , acabei por aproveitar uma rotina que eu tinha, que gerava arquivo da NFE em texto, adaptando para os novos campos da Nfe 4.00. Ato contínuo eu importava o arquivo txt gerado no AcbrNFE e gerava um arquivo xml assinado. E isto tem funcionado desde então. Obviamente, esta minha atuação, embora tenha sido não remunerada, criou um vínculo da Entidade comigo, obrigando-me a fazer manutenção do Sistema à cada mudança das Normas da Nfe. Portanto, é fundamental para mim saber se os senhores vão continuar fazendo manutenção no Manual do Arquivo TXT e bem como, se vão dar continuidade na rotina que importa o arquivo TXT para o AcbrNFE. Grato
  8. Prezados Companheiros Recentemente baixei o código-fonte Trunk do ACBR visando capacitar nosso sistema para gerar arquivo XML no padrão da Nota Técnica 2018.005 de 15/03/2019. Utilizando o arquivo : ACBrInstall_Trunk2.exe fiz a atualização com sucesso. Porém, estou experimentando o seguinte erro quando tento realizar um build no projeto : a)-Inicialmente aparece o erro : Error creating form: Identifier expected on line 4 b)-Depois ocorre erro na unit : ACBrNFeDANFeRL na linha : DANFeReport.RLNFe.CompositeOptions.ResetPageNumber := True; sendo exibida a mensagem : Undeclared identifier "CompositedOptions' Porém, como poderão confirmar na imagem em anexo do ACBrInstall_Trunk2.exe, eu não instalei qualquer versão do DANFE para FortesReports. Sabem os companheiros a causa deste problema? Grato Carlos Augusto Franca-Sp
  9. Prezados Companheiros Fiz atualização hoje do Código-Fonte do Acbr TRUNK. O objetivo era tornar nosso Erp compatível com a Nota Técnica 2018.005 de 15/03/2019. Assim queria fazer 2 questionamentos sobre este assunto: 1)-O AcbrNFE está totalmente compatível com estas Notas Técnicas editadas em 2019 ? 2)-Constatei que o Manual do Arquivo TXT, que fica na pasta C:\ACBR\Doctos\Manuais ainda não está atualizado. Eu preciso deste manual para saber onde enquadrar as novas informações criadas nas Notas Técnicas de 2019 no arquivo txt. Sabem se este Manual arquivo estará atualizado brevemente ? Grato Carlos Augusto Franca-Sp
  10. Senhores Eu procedi conforme sugestão do Sr. Daniel. Baixei as Tabelas do IBPT , converti e atualizei nos clientes via script. Acredito que podem encerrar este tópico. Grato
  11. Sr. Daniel Vou proceder desta forma também! Vou baixar as tabelas, converter e atualizar via script em nossos clientes. Grato
  12. Sr. Daniel No Programa-Exemplo existem recursos somente para : 1)-Ler um arquivo de tabela previamente gravado na hd 2)-Exportar informações do AcbrIBPTax para os formatos : CSV , DSV, XML, HTML e TXT 3)-Consultar situação de uma NCM específica ( função : API_ConsultarProduto), passando os valores: - NCM - EX TIPI - etc.. 4)-Consultar informação previamente gravada no componente ( função : Procurar ) Esta são as ações exemplificadas no programa : \\acbr\trunk2\Exemplos\ACBrTCP\ACBrIBPTax\Delphi\Project1.dpr A questão é a seguinte : Eu preciso de recurso para interagir com web service do Site da IBPT e efetuar download da Tabela IBPT mais recente ( versão 19.1.A , por exemplo ). O Sr. pode me dizer se é possível fazer este trabalho através do componente AcbrIBPTax? Estou questionando isto porque encontrei a Função : DownloadTabela que existe no componente e não está no Programa Exemplo. Grato
  13. Outra questão : Qual a URL correta que deve ser utilizada? Obrigado
  14. Prezados Companheiros Recentemente recebi solicitação de cliente para implementar cálculo do Valor Aproximado dos Tributos da NFE utilizando a Tabela do IBPT. Minha missão portanto é tentar baixar o arquivo da Tabela IBPT mais recente ( versão atual 191.A ) disponível no Site. Depois, o objetivo é ler o arquivo baixado e finalmente gravar suas informações em banco de dados. Verifiquei que os senhores criaram um componente do ACBR ( ACBrIBPTax ) que, aparentemente me permitirá realizar automaticamente estas tarefas. Utilizando como base um exemplo que encontrei no Blog do Sr. Regys , criei um pequeno programa para testar as funcionalidades do : ACBrIBPTax ( inclusive estou utilizando provisoriamente a Url que o Sr.Regys sugere para teste ) . Porém restaram as seguintes dúvidas: 1)-A função DownloadTabela é a encarregada de baixar arquivo da tabela do Servidor da IBPT gravando fisicamente na hd ? 2)-Como configurar que desejo baixar somente a última versão disponível no Site da IBPT? Assim estou disponibilizando o meu código-fonte para os companheiros me orientarem sobre a forma mais precisa de atingir meus objetivos. Grato por sua atenção. Carlos Augusto Franca-Sp CÓDIGO-FONTE: procedure TForm1.btn1Click(Sender: TObject); var I: Integer; stUrl : string; begin with cdsSelecao do begin if Active then Close; CreateDataSet; end; stUrl := 'https://regys.com.br/arquivos/AcspDeOlhoNoImpostoIbptV.0.0.1.csv'; if Trim(stURL) <> '' then ACBrIBPTax1.URLDownload := Trim(stURL); try ACBrIBPTax1.DownloadTabela; edtVersaoArquivo.Text := ACBrIBPTax1.VersaoArquivo; cdsSelecao.DisableControls; try for I := 0 to ACBrIBPTax1.Itens.Count - 1 do begin cdsSelecao.Append; cdsSelecaoNCM.AsString := ACBrIBPTax1.Itens.NCM; cdsSelecaoEx.AsString := ACBrIBPTax1.Itens.Excecao; cdsSelecaoTabela.AsInteger := Integer(ACBrIBPTax1.Itens.Tabela); cdsSelecaoAliqNacional.AsFloat := ACBrIBPTax1.Itens.FederalNacional; cdsSelecaoAliqInternacional.AsFloat := ACBrIBPTax1.Itens.FederalImportado; cdsSelecao.Post; end; finally cdsSelecao.First; cdsSelecao.EnableControls; end; except end; end;
  15. Sr. Italo Nós fizemos nova atualização do ACbr. Desinstalamos a versão que estávamos utilizando ( de final de Julho/2018 ) e instalamos a disponível semana passada e o problema foi resolvido. Obrigado por sua atenção.
  16. Prezados Companheiros Boa Tarde Estou ajustando uma rotina que desenvolvi há alguns anos , cuja finalidade é Consulta de Notas Fiscais Destinadas, para utilizar o método : DistribuicaoDFe. Para tanto desenvolvi o código-fonte que posto abaixo. Fiz atualização do ambiente os os Schemas Xml que o Acbr distribui. E, mesmo assim, quando executo DistribuicaoDFe o único resultado é o erro "FALHA NO SCHEMA XML". Sabem os companheiros onde posso estar errando ? Grato CÓDIGO-FONTE: stUltNSU := Trimm(qryUltimaConsulta.FieldByName('ULTIMONSU').AsString); if trim(stUltNSU) then stUltNSU := '0'; dmdModAcbrNFe.acbrNota.NotasFiscais.Clear; repeat // pesquiso na sefaz boConsultaComExito := False; try dmdModAcbrNFe.acbrNota.DistribuicaoDFe(RetornaUF(qryEmpresa.FieldByName('CODESTADO').AsString), stCNPJEmpresa, stUltNSU, '' ); boConsultaComExito := True; except on e : exception do stMsgErro := 'ATENÇÃO !' + #13 + #13 + 'A SEFAZ recebeu o pedido de Consulta ' + #13 + #13 + 'Mas retornou a seguinte mensagem de erro : ' + #13 + #13 + ' ' + Trim(e.message); showmessage(stMsgErro); end; if (boConsultaComExito) then begin inQtdDoc := dmdModAcbrNFe.acbrNota.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count - 1; for inInc := 0 to inQtdDoc do begin if (dmdModAcbrNFe.acbrNota.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[inInc].resNFe.chNFe <> '') then begin // cnpj stCnpj := dmdModAcbrNFe.acbrNota.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[inInc].resNFe.CNPJCPF; // razão social stRazaoSocial := AnsiUpperCase(dmdModAcbrNFe.acbrNota.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[inInc].resNFe.xNome); // inscrição estadual stInscricaoEstadual := dmdModAcbrNFe.acbrNota.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[inInc].resNFe.IE; // data da emissão dtDataEmissao := dmdModAcbrNFe.acbrNota.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[inInc].resNFe.dhEmi // entrada ou saída case dmdModAcbrNFe.acbrNota.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[inInc].resNFe.tpNF of tnEntrada: stTipoNfe := '0'; // entrada tnSaida: stTipoNfe := '1'; // saida end; // valor total da nota fiscal cyValorNota := dmdModAcbrNFe.acbrNota.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[inInc].resNFe.vNF; // data da autorização dtDataAutoriza := dmdModAcbrNFe.acbrNota.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[inInc].resNFe.dhRecbto end; end; stUltNSU_ConsultaAtual := dmdModAcbrNFe.acbrNota.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU;; stExisteMaisProcessamento := ''; if dmdModAcbrNFe.acbrNota.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137 then stExisteMaisProcessamento := 'N' else stExisteMaisProcessamento := 'S'; end; until ((inNroPesquisa < spnMaximoConsultas.Value) and (stExisteMaisProcessamento = 'S') and (boConsultaComExito));
  17. Prezados bom dia. Conforme foi sugerido, fiz as configurações no componente do ACBrCTe. Segue abaixo a imagem da configuração do componente, bem como a mensagem de erro que gera ao tentar validar ou enviar o arquivo. Também em anexo o arquivo XML que foi gerado. Para não ficar confuso, vou explicar a forma que estamos fazendo aqui: Eu atualizei os schemas, conforme vocês sugeriram, pegando do repositório na pasta ACBr\Exemplos\ACBrDFe\Schemas. Após isso fiz novo teste e verifiquei que o erro continua acontecendo, tanto na tentativa de Validar, como na de Enviar o arquivo. Utilizo dentro do sistema a seguinte sequência de comandos (delphi), logo após alimentar o componente com os dados do CTe a ser gerado: // Assina a nota fiscal acbrNotas.Conhecimentos.Assinar; // Valida a nota fiscal acbrNotas.Conhecimentos.Validar; // Envia a nota fiscal, sem imprimir o DACTe acbrNotas.Enviar(0, False); Se eu remover o comando de Validar, o erro acontece no comando de Enviar, senão, acontece no comando Validar. Resolvi então fazer um teste no programa exemplo que vocês disponibilizaram, e ao fazer a Validação, ocorre o mesmo tipo de erro, conforme a outra imagem em anexo. O mais estranho é que, se eu importar o arquivo XML gerado no Emissor CTe do Governo, ele consegue importar normalmente e enviar o arquivo, sem que eu tenha que fazer qualquer alteração (no máximo, preciso corrigir alguma informação de algum cadastro inconsistente no sistema, mas são coisas que não geram o erro citado) Arquivo XML gerado: 35181005741835000116570010000001631522535530-cte.xml Imagem das configurações / erro no sistema ERP: Imagem do erro no Exemplo do ACBr, utilizando o comando Validar XML: Desde já agradeço pela atenção.
  18. Sr. Italo: Na rotina que criei, a primeira ação é efetuar Manifestação de Ciência da Operação, caso não tenha ocorrido ainda. Na sequência eu faço a Consulta e tento obter o arquivo xml. O Sr. acha que dá certo fazer tudo isto ao mesmo tempo? Teria a Sefaz condições de processar estas 2 requisições ( Manifestação e Consulta ) ? Restou também uma dúvida com relação ao arquivo xml de consulta que é gerado no momento da Consulta. Na primeira linha temos a seguinte instrução : <distDFeInt xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.01"> A versão não deveria ser a 1.02b ? Grato
  19. Sr. Italo Conforme sua orientação, criei rotina para averiguar se após utilização do Método : DistribuicaoDFePorChaveNFe a Sefaz retornou algum arquivo XML, da seguinte forma : if not(acbrnfNota.WebServices.DistribuicaoDFe.retDistDFeInt.DocZip.Count > 0) then begin msgMensagem.Mensagem := 'Atenção! ' + #13 + #13 + 'Embora a Consulta tenha sido efetuada de forma correta ' + #13 + 'A Secretaria de Fazenda não disponibilizou até este momento ' + #13 + 'o download do Arquivo XML! ' + #13 + #13 + 'Por favor, aguarde 1 minuto e faça nova tentativa'; msgMensagem.ShowMessage; Abort; end; Assim, se nenhum arquivo xml foi retornado estou exibindo uma mensagem sugerindo ao usuário tentar fazer o download mais tarde. Em primeiro momento esta alteração estava produzindo resultado, pois em algumas vezes o download do Arquivo Xml ocorria com êxito e outras não. Mas, o que observamos nas últimas 2 semanas é que agora sempre ocorre erro em todas tentativas de utilização do Método : DistribuicaoDFePorChaveNFe. Sabem os companheiros se o serviço associado a este métoto está desativado pela Sefaz? Grato
  20. Companheiros Experimentei modificar a linha da seguinte forma : try stNroNsu_Consulta := acbrnfNota.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[0].NSU; except stNroNsu_Consulta := ''; end; e deu certo porque desta forma isolei o problema por enquanto. Meu objetivo agora é implementar em definitivo a solução que os senhores indicarem. GRato
  21. Prezados Companheiros Com auxílio dos senhores eu consegui criar rotina com finalidade de efetuar Download do Arquivo XML da Nota Fiscal Eletrônica emitida por terceiros contra nosso CNPJ. Utilizamos para isto o método DistribuicaoDFePorChaveNFe. A sequência de procedimentos é : - Manifestação de Ciência da Operação - Consulta utilizando DistribuicaoDFePorChaveNFe - Download do Arquivo XML Assim, parte da rotina ficou da seguinte forma : acbrnfNota.DistribuicaoDFePorChaveNFe(UFtoCUF(Configuracoes.CodEstado),Trim(strCnpj),Trim(edtChave.Text)); dtOcorrencia_Consulta := acbrnfNota.WebServices.DistribuicaoDFe.retDistDFeInt.dhResp; inCodOcorrencia_Consulta := acbrnfNota.WebServices.DistribuicaoDFe.retDistDFeInt.cStat; stOcorrencia_Consulta := acbrnfNota.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo; stArquivoXml_Consulta := acbrnfNota.WebServices.DistribuicaoDFe.retDistDFeInt.XML; stNroNsu_Consulta := acbrnfNota.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[0].NSU; Observamos então que esta última parte da rotina : " stNroNsu_Consulta := acbrnfNota.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[0].NSU;" está apresentando problema. Consultando chave de NFE , a execução deste comando ora resulta em uma mensagem de erro assim : "List index out of bounds (0)" e ora não apresenta erro. Sabem os companheiros o que pode estar ocasionando este erro? Grato
  22. Sr.Italo: As configurações estão conforme o Sr. sugeriu. Por precaução, configuramos também os parâmetros de assinatura digital igual à Nota Fiscal Eletrônica ( vide imagem ). Atualizamos também os Schemas XML para os existentes hoje no Site do CTE. Porém , ainda está ocorrendo o seguinte erro : 1824 - Element '{http://www.portalfiscal.inf.br/cte}nFat': '11' is not a valid value of the local atomic type. O sr. tem idéia do que mais deve ser feito? As configurações de Assinatura de Digital da NFE devem também ser aplicadas ao CTE ? Grato
  23. Companheiros Na hora do envio do CTE estamos verificando o seguinte erro : Erro Interno: 12029 Erro HTTP: 0 URL: https://homologacao.nfe.fazenda.sp.gov.br/cteWEB/services/cteRecepcao.asmx Falha no Envio da Requisição. Erro: 12029 - Conexão com o Servidor falhou No início, acreditávamos que poderia ser alguma configuração de Proxy/Internet, porém, fizemos testes gerando o XML pelo componente ACBr e importando no Emissor CTe do Governo, e conseguimos transmitir normalmente. Esse erro poderia estar ligado a alguma configuração do ACBr? Antes da atualização, o sistema estava enviando normalmente o CTe. Já havíamos feito as mudanças de configuração para utilizar a WinCrypt no lugar da Capicom, conforme orientação postada no fórum de vocês. Desde já agradeço pela atenção.
  24. Companheiros Estou criando rotina para efetuar download automático do arquivo Xml da Nfe. Assim, estou fazendo Manifestação de Ciência de Operação e na sequência, utilizando o Método : DistribuicaoDFePorChaveNFe, efetuo a consulta com êxito. Minha dúvida reside em qual propriedade do componente o arquivo XML completo da Nfe fica disponibilizado. Inicialmente eu estava utilizando a propriedade : acbrnfNota.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[0].XML Sabem os companheiros exatamente qual o lugar onde sempre vai estar o texto do Arquivo Xml resultante da consulta ? Grato
  25. Sr. italo Perfeito! Me desculpe a confusão. Vou fazer na sequência que o Sr. indicou. Obrigado!
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.