Painel de líderes

Com a inclusão da Unit ACBrImage.pas, a compilação da FMX, foi novamente quebrada... Efetuei vários ajustes e correções, para permitir a compilação em FMX... (já no SVN)

Certo, muito obrigado pela atenção.

Só uma ressalva muito importante mesmo. esse método é para a exceção e não a regra de baixar os xml, seus clientes devem exigir do fornecedor essas notas. muito importante é lembrar que por obrigação após a emissão ele deve disponibilizar por qualquer meio essas notas e não ficar dependente do sefaz, ao momento que começar a passar a validar os downloads de xml que está sendo na totalidade passará a ter implicações os clientes

Parabéns pelo empenho.

Boa tarde Renato, Muito obrigado pela colaboração, ainda hoje estarei enviando para o repositório.

Parece bem melhor... notei o mesmo caso em várias outras Units, e apliquei correções no SVN... rev:16359

Você tem que fazer o login como software house no portal SGR-SAT. https://satsp.fazenda.sp.gov.br/COMSAT/Account/LoginSSL.aspx?ReturnUrl=%2fCOMSAT%2f

@Italo Jurisato Junior atualizei os fontes e verifiquei a parte do teste que foi ajustado com base no cnpj e na razao, deu certinho !! Obrigado

Bom dia Juarez, A unit que gera o XML de consulta ao webservice DistribuicaoDFe foi escrita conforme consta na Nota Técnica publicada pelo Encat e disponibilizada no Portal Nacional da NF-e, bem como a do CT-e e MDF-e. A rotina que estabelece a conexão com a SEFAZ é exatamente a mesma usada para todos os outros métodos (envio de lote, consulta, envio de eventos, ...). Me parece que a SEFAZ-RS possui um webservice particular para o DistribuicaoDFe, mas acredito que este seja apenas para os contribuintes do RS. Pode se que esses programas que você mencionou se utilizam desse webservice, tai uma coisa para se investigar. Peço que compare o XML gerado com o layout publicado na Nota Técnica, quem sabe cometemos alguma gafe. Outra coisa importante, o componente se utiliza do serviço DistribuicaoDFe disponibilizado pela SEFAZ-Virtual do Ambiente Nacional e os eventos de Manifestação do Destinatário também são enviados para a SV-AN.

Boa tarde.. As empresas que atendo tem 100% dos documentos com base no NSU. Se ocorrer algum erro de "salto de nsu" o sistema apresenta as lacunas e faz as baixas. Sim, ocorrem erros de comunicação com a sefaz (temporários), atrasos (sincronização sefaz estadual com ambiente nacional), certificados digitais, etc... tudo conforme previstos nas notas técnicas. Att. Leandro

Segue em anexo a unit modificada. pcnLeitor.pas

Enviado para o repositório, rev. 16369. Obrigado pela contribuição.

Veja o tópico abaixo, parece ser esse o assunto:

Sim, Resolvi modificando ACBrNFeDANFEFRDM Class para carregar Emitente : CarregaEmitente A formatação estava apenas para CNPJ , modifiquei para FieldByName('CNPJ').AsString := FormatarCNPJouCPF(CNPJCPF); ACBrNFeDANFEFRDM.pas

@Rafael Dias, a acho que faz sentido a solcitação do @Nelson A Sousa... Se mudássemos o comportamento, para criar o arquivo, caso o mesmo não exista... você vê algum efeito colateral nisso ?

Olá, Percebi que na classe TRegistroC500 o campo fCOD_CONS é do tipo string. Não seria mais sensato utilizar o tipo TACBrClasseConsumo para esse campo, uma vez que o mesmo já possui inclusive seus métodos de conversão para tipo e string? Atualmente na geração do arquivo este campo grava o valor que eu passar para o mesmo, sendo que o tamanho mínimo do campo é de 2 caracteres, causando assim um erro no validador. Att., Rodrigo Medeiros.

por favor se quiser contribuir basta anexar a unit que validaremos

obrigado Daniel.

Boa tarde Walter, O problema é que segundo os modelos que constam no Manual do MDF-e versão 3.00, nenhum deles esta previsto a impressão dos dados da Seguradora. Ao meu ver poderíamos dividir ao meio (altura) o quadro referente ao condutor, deixando a metade de cima para o condutor e a de baixo para a Seguradora.

No Projeto ACBr, temos apenas o componente ACBrTEFD, para desenvolvedores em Object Pascal (Delphi / Lazarus) Na DJSystem, eles possuem um Frente de Caixa completo, que poderia ser integrado com seu Retaguarda... https://www.djpdv.com.br/

Tranquilo @EduardoElias.... Família em 1o Lugar... Agradeço os testes

Daniel, nao consegui baixar e testar ainda, minha esposa foi internada e tive de dar atencao a isto. Mais no fim da semana pretendo dar uma atencao especial para isto, com certeza deve ter feito um excelente trabalho! Obrigado

Tópico fechado, vamos continuar em:

Boa tarde Marcio, Já estamos finalizando a implementação para deixar o ACBrNFe em conformidade com a Nota Técnica. O que esta faltando é apenas a questão do idCSRT e CSRT que serão utilizados para gerar o hashCSRT. Mas isso vai ainda depender da SEFAZ fornecer no seu site ou um serviço via webservice para que o desenvolvedor possa obter o idCSRT e CSRT. Portanto o idCSRT e hashCSRT não devem ser gerados no grupo infRespTec. Mais algumas informações:

Bom dia Walter, Seja mais claro. Os dados do seguro não aparecem no XML do MDF-e ou não são impressos no DAMDFE? Se a questão é o DAMDFE, qual é o que você utiliza (Fast ou Fortes Report)?

Boa tarde.. Tente ver esses topicos para ver se ajuda. blz..

Achei o erro o Ano/Mes é 4 caracteres e estava mandado 6.

Bom dia Joveci, Favor configurar o componente para salvar o arquivo Soap. Configuracoes.WebServices.Salvar := True; Faça um novo teste e anexa os XMLs gerados, para que possamos analisar.

Perfeito Juliomar, tanta coisa deveria ser exceção e se torna regra....Sei da obrigatoriedade de disponibilização do XML pelo fornecedor, sempre muito comentada aqui no fórum. Mas o mercado é um pouco diferente e depois que um cliente teu visita outra empresa e vê funcionando 100% escanear barras/manifestação/download/importação fica um pouco complicado se justificar com este argumento. Se a sefaz evitar download na verdade que evite 100% também, pelo menos a regra do jogo se iguala. Obrigado por seu comentário e parabéns de novo a toda a equipe do ACBr, sempre atenciosa e interessada.

Izaque, O arquivo *-ped-rec-soap.xml é o que é enviado para a SEFAZ e portanto o outro é o retorno. Abre um chamado na SEFAZ-BA e anexa esses dois arquivos, pede para eles mostrarem no arquivo *-ped-rec-soap.xml onde esta o namespace que não se refere a NF-e ou que esteja fora do padrão.

Bom dia, Sendo assim vou fechar esse.

Bom dia, Sei que esta caminhando, mas a passos largos de tartaruga.

Bom dia. O últimos caracteres são o CR+LF ? Att.

Bom dia... Aqui também funciona muito bem, com as mesmas ressalvas feitas pelo Leandro att.

Bom dia. Não existem planos no momento para inclusão da NFSe no ACBrMonitorPlus, no futuro provavelmente teremos o mesmo com o ACBrLib. Att.

Bom dia a todos, Pelos XML anexados pelo Izaque, a rejeição apontada pela SEFAZ-BA não condiz com a realidade, pois em todos os XMLs gerados pelo componente e enviados para a SEFAZ tem o mesmo NameSpace, vocês podem inclusive comparar com os XMLs retornados pela mesma. Notem que o Lote é enviado e o numero do recibo é retornado, mas ao realizar a consulta (pelo numero do recibo) é retornado a rejeição. Posso garantir que o componente esta gerando os XMLs corretamente inclusive com o NameSpace correto. O problema esta no serviço de consulta pelo recibo da SEFAZ-BA que esta com problemas. Favor abrir chamado questionando o problema, não esqueçam de anexar o XML de consulta pelo recibo (arquivo: *-ped-rec.xml), bem como o seu retorno (arquivo: *-proc-rec.xml). Pedem para eles provarem que no arquivo enviado consta o NameSpace errado. Izaque: Por favor configure o componente para salvar os arquivos soap, faça um novo teste e anexe os XMLs. Configuracoes.WebServices.Salvar := True; Teremos os arquivos: *-ped-rec-soap.xml, *-proc-rec-soap.xml, ...) anexe esses para que eu possa analisar.

Depois de muito quebrar a cabeça consegui Resolver. Pode encerrar o tópico. Obrigado

Obrigado pessoal, consegui configurar. Existe também a situação de "casas à esquerda", tive que tratar pra deixar isso genérico, mas de qualquer forma obrigado pessoal

Boa tarde Mauricio, Muito obrigado pela colaboração, mas os seus fontes estão desatualizados. Favor atualizar todos os fontes de todas as pastas, reinstale usando o ACBrInstall_Trunk2 marcando a opção para apagar os arquivos antigos. E veja como eu fiz na unit que gera o XML para o Equiplano, não há necessidade de se criar mais uma propriedade.

Bom dia, @Daniel Simoes A propriedade RLPrinter.Copies acessa diretamente a propriedade Printer.Copies da unit Printers.pas, disparando o erro mencionado em aplicações ISAPI, onde o nível de permissão é limitado. Acredito que o número de cópias é utilizado apenas quando enviamos uma impressão direta, pois não faz sentido gerar o PDF com mais de uma cópia sendo que isso ficará a critério de quem for imprimir o mesmo. De qualquer forma, a verificação pode ser alterada para if NumCopias > 1 then RLPrinter.Copies := NumCopias; Obrigado.

Boa tarde a todos, Vamos cortar mais algumas gorduras, chegou a vez da Consulta ao Recibo. Tanto a unit que gera o XML de consulta bem como a que lê o retorno foram generalizadas e agora se encontram dentro da pasta PCNComum. Como nem tudo são flores, ocorreu quebra de código, abaixo um exemplo de correção a ser feita em suas aplicações: for i := 0 to (ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Count - 1) do begin sDataHora := DateTimeToStr(ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items.dhRecbto); sProtocolo := ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items.nProt; sStat := IntToStr(ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items.cStat); sMotivo := ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items.xMotivo; sNotaFiscal := Copy(ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items.chNFe, 26, 3) + '.' + Copy(ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items.chNFe, 29, 3) + '.' + Copy(ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items.chNFe, 32, 3); MemoStatus.Lines.Add(' ' + sNotaFiscal + ' ' + sProtocolo + ' ' + sDataHora + ' ' + sStat + ' - ' + sMotivo); end; Alterar para: for i := 0 to (ACBrNFe.WebServices.Retorno.NFeRetorno.ProtDFe.Count - 1) do begin sDataHora := DateTimeToStr(ACBrNFe.WebServices.Retorno.NFeRetorno.ProtDFe.Items.dhRecbto); sProtocolo := ACBrNFe.WebServices.Retorno.NFeRetorno.ProtDFe.Items.nProt; sStat := IntToStr(ACBrNFe.WebServices.Retorno.NFeRetorno.ProtDFe.Items.cStat); sMotivo := ACBrNFe.WebServices.Retorno.NFeRetorno.ProtDFe.Items.xMotivo; sNotaFiscal := Copy(ACBrNFe.WebServices.Retorno.NFeRetorno.ProtDFe.Items.chDFe, 26, 3) + '.' + Copy(ACBrNFe.WebServices.Retorno.NFeRetorno.ProtDFe.Items.chDFe, 29, 3) + '.' + Copy(ACBrNFe.WebServices.Retorno.NFeRetorno.ProtDFe.Items.chDFe, 32, 3); MemoStatus.Lines.Add(' ' + sNotaFiscal + ' ' + sProtocolo + ' ' + sDataHora + ' ' + sStat + ' - ' + sMotivo); end; Notem que devemos trocar o ProtNFe por ProtDFe e chNFe por chDFe (não coloquei em negrito todos, mas acho que ficou claro).

Boa tarde, Note que recentemente foi feito um amplo refactoring nos DFes, o qual também foi documentando, inclusive antes mesmo de ser comitado. Alterações menores são sempre documentadas nos arquivos XXXchangelog.txt, os quais ficam na pasta dos fontes de cada componente. Att.

Como alguns sabem, sou criador do Pacote REST Dataware que tem por objetivo ser de simples conversao entre duas camadas e tres camadas suas aplicacoes e ter todo o know how para atender as necessidades mais diversas dos ambientes REST além de também contar com nosso Motor Webpascal, que tras a Web de verdade para o pascal tudo isso com Lazarus ou Delphi 6 ao Rio, Totalmente Opensrc e Free o Projeto Rest Dataware vem crescendo muito então venho aqui postar para os amigos a palestra minha do REST Dataware na Intensive Delphi 2018 com um pouquinho do nosso pacote VLW Galera.

encontrei mais uma que precisou de alteração: ACBrDFeWebService.pas

ok, desculpe ACBr_Comum.dpk ACBrDevice.pas ACBrECFClass.pas ACBrTEFD.pas postei aqui mesmo as units, mas é melhor criar um tópico?

resolvido parcialmente, fiz como falaram acima (siscon), e funcionou, mas acho que a versão compilada esta com este BUG, pois no manual diz que só se preenche o RNTRC, quando é feito por transportadora. segue o ENT.TXT e o xml gerado pelo acbr, em anexo com a mudança. gostaria que o pessoal do suporte analisasse se esta com este BUG mesmo. Obrigado ENT.TXT 35170700470952000179580010000000011000000010-mdfe.xml

Verifiquei que o RNTRC é uma informação não obrigatória no caso de transporte de carga própria, mas o ACBrMonitorPLUS não preenche os dados dos veículos sem ele. //********************************************************************* // // Modal Rodoviário // //********************************************************************* if INIRec.ReadString('Rodo', 'RNTRC', '') <> '' then begin Rodo.RNTRC := INIRec.ReadString('Rodo', 'RNTRC', ''); Rodo.CIOT := INIRec.ReadString('Rodo', 'CIOT', ''); rodo.veicTracao.cInt := INIRec.ReadString('veicTracao', 'cInt', ''); rodo.veicTracao.placa := INIRec.ReadString('veicTracao', 'placa', ''); rodo.veicTracao.RENAVAM := INIRec.ReadString('veicTracao', 'RENAVAM', ''); rodo.veicTracao.tara := INIRec.ReadInteger('veicTracao', 'tara', 0); rodo.veicTracao.capKG := INIRec.ReadInteger('veicTracao', 'capKG', 0); rodo.veicTracao.capM3 := INIRec.ReadInteger('veicTracao', 'capM3', 0); Provavelmente será necessária uma correção.

vBCST = Valor da base de cálculo do ST pICMSST = Percentual da alíquota aplicada vICMSST = Valor do ICMS ST o restante das informações como de costume, lembrando de informar o CST correto para a operação

boa noite moises o correto meu ir.'. é vc imprimir o regulamento de preenchimento de nfe e entregar ao cliente e ele discutir com o contador essa coisa do soft fazersempreo o que o cliente quer sem cumprir o regulamento , fica complicado, ou mande seu cliente mudar de contador. me perdeo moises é que as vezes temos que ser um pouco mais duro com o cliente ele nao conhece oregulamento e fica pedindopra mudar grato designerba