Pesquisar na Comunidade

ACBrLibMDFe Visulizar Arquivo ACBrLibMDFe - BIblioteca para emissão e impressão de Manifesto de Documentos Fiscais Eletrônicos Faça Download pelo SVN, dos Demos de uso da ACBrLibMDFe em diversas linguagens, usando o endereço: http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/ Manual On-Line: https://acbr.sourceforge.io/ACBrLib/ACBrLib.html Autor Daniel Simoes Enviado 18-11-2019 Categoria ACBrLib - PRO  

Olá Bom Dia! Atualizei a versão do ACBr pois no manifesto agora está exigindo a informação do produto predominante, pois bem depois de feito a atualização e a mesma compilou normalmente no delphi, atualizei também a pasta schemas, mas ao tentar gerar e enviar o manifesto está ocorrendo um erro de Access Violation(segue em anexo a imagem do erro). Essa parte de enviar o manifesto funcionava antes de atualizar a versão, mas agora da esse erro o pode ser? Fiz a atualização do meu windows 7 64 bits sp1 só ficou 3 atualizações importantes mas que não atualiza será que pode ter haver com esse erro? No ACBrMDFe tem alguma opção de ativar para ele gerar arquivo de log? Segue o trecho do programa: LerConfiguracao; ACBrMDFe1.Manifestos.Clear; GerarMDFe(CEnummanif.text); ACBrMDFe1.Manifestos.Imprimir;//espelho if(Application.Messagebox(pchar(' Os Dados do Manifesto(MDF-e)) estão Corretos?'+chr(10)+chr(13)+' Clique em SIM para Gerar e Enviar!'+chr(10)+chr(13)+' Clique em NÃO para não Gerar e Enviar está MDF-e! '),'Aviso',MB_ICONQUESTION+ MB_DEFBUTTON2 +MB_YESNO+ MB_SYSTEMMODAL)=IDYES) then begin if (ACBrMDFe1.Enviar(0,false) = true) //O ERRO ACONTECE AQUI <----- then begin ACBrMDFe1.Manifestos.GerarMDFe; ACBrMDFe1.Manifestos.Items[0].GravarXML(); end; end; Já tentei atualizar dll e nada o que pode ser ? Desde já Muito Obrigado pela Ajuda!

Olá Tudo Bem! Estou tentando autorizar um manifesto de uma transportadora. Os campos relacionados grupo seg no manual página 110. Estou preenchendo todas infos relacionadas ao seguro, mas uma em questão me gerou dúvida pois no manual diz que se o Responsável pelo seguro for opção 1 - Emitente do MDF-e que o meu caso não é Obrigatório informar o cnpj da seguradora. Segue na imagem em anexo regra_cnpj_seg. Senão informa o cnpj da seguradora ocorre a rejeição de falha na validação do manifesto mostrada na imagem em anexo(rejeicao_quando_nao_poe_cnpjseguradora). Mas se informa o cnpj da seguradora essa rejeição não acontece. Mas não sei se por informar o cnpj da seguradora que pelo manual so seria obrigado a por se caso o Responsável pelo seguro for a opção 2 - Responsável pela contratação do serviço de transporte (contratante) será que por essa informação está gerando a rejeição 578 Informação dos Tomadores é Obrigatória pra essa Operação(imagem anexo rejeicao_578) que no caso e pela falta das infos do ciot e cnpj do gerador do ciot, se eu colocar essas infos mais o cnpj da seguradora eu consegui autorizar o manifesto em modo homologação. Mas segundo o contador desse cliente eles não são obrigados a gerar o ciot ae vem as dúvidas: Sendo o Responsável pelo seguro for opção 1 - Emitente do MDF-e como no manual diz que não precisa informar o cnpj da seguradora ae se não informa da rejeição, então to informando mas será que estou fazendo de forma errada por isso gera a rejeição que precisa do ciot? Por min não tem problema informar o cnpj a dúvida se ao informa-lo leva a outra rejeição. with seg.Add do begin if(IBQmanifestos.fieldbyname('MANIRESPSEG').asstring = '1') //1- Emitente do MDF-e; then respSeg:=rsEmitente else if(IBQmanifestos.fieldbyname('MANIRESPSEG').asstring = '2') //2 - Responsável pela contratação do serviço de transporte (contratante) then respSeg:=rsTomadorServico; if(trim(iBQmanifestos.fieldbyname('MANIRESPSEGCNPJCPF').asstring) <> '') then begin Vqtdnumcpfcnpj:=length(IBQmanifestos.fieldbyname('MANIRESPSEGCNPJCPF').asstring); if(Vqtdnumcpfcnpj=14) //se=11 então CPF then cnpjcpf:=trim(IBQmanifestos.fieldbyname('MANIRESPSEGCNPJCPF').asstring) else if(Vqtdnumcpfcnpj=18) //se=14 então CNPJ then cnpjcpf:=trim(IBQmanifestos.fieldbyname('MANIRESPSEGCNPJCPF').asstring); end; if(trim(iBQmanifestos.fieldbyname('MANINOMESEGURADORA').asstring) <> '') then xSeg:= trim(iBQmanifestos.fieldbyname('MANINOMESEGURADORA').asstring); if(trim(iBQmanifestos.fieldbyname('MANICNPJSEGURADORA').asstring) <> '') then cnpj:=trim(iBQmanifestos.fieldbyname('MANICNPJSEGURADORA').asstring); if(trim(iBQmanifestos.fieldbyname('MANINUMAPOLICE').asstring) <> '') then nApol:=trim(iBQmanifestos.fieldbyname('MANINUMAPOLICE').asstring); if(trim(iBQmanifestos.fieldbyname('MANINUMAVERBACAO').asstring) <> '') then begin with Aver.add do begin nAver := iBQmanifestos.fieldbyname('MANINUMAVERBACAO').asstring; end; end; end; Se sim ao informar o cnpj da seguradora, estaria forçando eu informar o ciot? Que segundo o contador do cliente eles não são Obrigados a informar, mas eu lendo vários sites eu entendo que sim eles tem rsrs complicado. Em tempo Não sei dizer se tem relação com a rejeição da falta do ciot, mas nesse manifesto que autorizei em modo homologação, o campo Tipo de Transportador deixe como Ide.tpTransp:=ttNenhum, será quem tem alguma relação com a exigência do ciot? Desculpa se o post começa com um erro e tem dúvida de um outro também, e que a dúvida e sem relação entre eles. Desde já Muito Obrigado pela Atenção!

Bom dia, Estou implementando o MDF-e 3.00a, porém percebi que a impressão do DAMDFE com o Fortes Report está saindo sem o QR-Code, existe alguma configuração que devo fazer (lembrando que no XML a tag qrCodMDFE está sendo gerada corretamente), ou o novo layout ainda não foi implementado no componente?

Olá Tudo Bem!! Estou com um problema na geração de do manifesto. Estou está dando uma rejeição de que está faltando informar a valor da tag UFper o detalhe que no xml(que esta em anexo) tem duas tags informadas mas na geração informo só um percurso e não sei porque está gerando uma a mais fantasma. Procurei no exemplo do ACBrmdfe, mas não consta nenhum trecho referente ao percurso. Segue em o trecho no qual informo o percurso. Vocês teriam um trecho de exemplo de como informo o Percurso par ame passar fazendo um grande favor? Segue também também a mensagem de erro é o xml gerado. Trecho de como estou informando o percurso: IBQpercursos.close; IBQpercursos.sql.clear; IBQpercursos.sql.add('select * from percursos where MANIFID = :vMANIFID'); IBQpercursos.parambyname('vMANIFID').value:=IBQmanifestos.fieldbyname('MANIFID').asinteger; IBQpercursos.open; if not(IBQpercursos.isempty) then begin //IBQpercursos.first; while not(IBQpercursos.eof) do begin with ide.infPercurso.Add do begin ide.infPercurso.Add.UFPer:=IBQpercursos.fieldbyname('PERCUUF').asstring; //'SP' end; IBQpercursos.next; end; end; Isso tundo dentro do with ACBrMDFe1.Manifestos.Add.MDFe do Onde estou errando? Preciso informar mais alguma coisa? Desde já Muito Obrigado pela Atenção!! 35190305573930000158580010000000041000000042-mdfe.xml Manifesto 4.pdf

Boa tarde. Primeiramente peço desculpas por estar criando uma dúvida no ACBrNFe, sendo que esta se refere também ao ACBrMDFe e ACBrNFSe. Estou migrando o ACBr para o trunk2 e com isto perdi algumas coisas que havia implementado nas classes do ACBr, mas não enviado por conta de o ACBr já estar no trunk2. As minhas implementações se referiam ao nome do arquivo que sai para a impressão nas impressoras, nelas, eu alterava o nome do arquivo, para que ficasse igual a chave da NFe, MDFe ou NFSe. Eu apenas colocava a chave na propriedade do impressor de Danfe, Damdfe e danfse respectivo "frxReport.ReportOptions.Name" e a chave era encaminhada corretamente. Lembrando que esta implementação acontecia nas classes ACBrNFeDANFEFR, ACBrMDFeDAMDFeFR e ACBrNFeDANFEFR e não na minha aplicação. Fazemos isto porque a emissão das notas é feita a partir de um serviço que desenvolvemos usando o ACBr e os PDFs são salvos em uma pasta por meio de uma impressora PDF com o nome sendo a chave do DFe. Como já disse, eu perdi o que eu já havia implementado anteriormente e agora, com o trunk2, não gostaria de vir a mexer nos fontes do ACBr por receio de gerar problemas, ou de despadronizar algo, mas fazendo por fora, ou seja, usando a linha de código "TACBrMDFeDAMDFEFR(vAcbr.DAMDFE).frxReport.ReportOptions.Name" não está funcionando. Isto acontece porque quando eu chamo o método "vAcbr.Manifestos.Items[0].Imprimir;", por exemplo, dentro do ACBr, em cada classe respectiva do DFe, é executado o método "PrepareReport(MDFe)" e este, por sua vez, chama o método "LoadFromFile"/"LoadFromString", do fastreport, que acaba substituindo a propriedade que eu havia preenchido por uma propriedade presente no fr3 fastReport. Eu tentei achar no fastreport como preencher a propriedade, mas não encontrei como. Caso alguém saiba, é lá no menu (na tela de edição do layout da impressão do dfe) "Relatório > Opções", aba "Descrição", campo "Nome". Queria saber se algum dos moderadores pode me auxiliar a desenvolver, no acbr, alguma forma pra fazer eu poder personalizar o nome. Eu havia pensado, em nas classes de impressão do ACBR que usam o FastReport, criar uma propriedade boolean em que o usuário informa se deseja personalizar o nome e uma propriedade com o nome personalizado.

Bom dia pessoal, Estou com problemas ao tentar enviar MDFe, está ocorrendo o seguinte erro Cabecalho - Versao do arquivo XML não suportada Reatualizei o ACBr e mesmo assim continua com o problema, houve alguma mudança no layout do XML? Desde já agradeço a resposta. 55-env-lot.xml 55-rec.xml

Bom dia! Estou iniciando o desenvolvimento de MDF-e e ao validar no site do SEFAZ o primeiro xml gerado ocorreu o seguinte erro: Parser Xml: Ok Tipo de Mensagem: MDF-e Schema: Não foi possível identificar a versão da mensagem Alguém tem ideia em que posso estar errando? mdfe10.xml

Ola! Estou tendo problemas em alguns clientes, ocorre access violation ao assinar. Crio o componente manualmente desta forma: AACBrMDFe := TACBrMDFe.Create(Application); AACBrMDFe.Configuracoes.Geral.SSLLib := libWinCrypt; AACBrMDFe.Configuracoes.Geral.Salvar := False; //Não salvar XML sem valor fiscal AACBrMDFe.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(Application.ExeName) + 'Schemas\MDFe\'; AACBrMDFe.Configuracoes.Arquivos.PathSalvar := AConexao.LerParametroString('NFE_CAMINHO_XML', True); AACBrMDFe.Configuracoes.Arquivos.SepararPorCNPJ := True; AACBrMDFe.Configuracoes.Arquivos.SepararPorMes := True; AACBrMDFe.Configuracoes.Arquivos.SepararPorModelo := True; AACBrMDFe.Configuracoes.Arquivos.Salvar := True; AACBrMDFe.Configuracoes.Arquivos.EmissaoPathMDFe := True; //se baseia pela data de emissão para montar o path AACBrMDFe.Configuracoes.WebServices.Visualizar := False; AACBrMDFe.Configuracoes.WebServices.Salvar := False; AACBrMDFe.Configuracoes.WebServices.UF := AFilial.xUF; AACBrMDFe.Configuracoes.Certificados.NumeroSerie := AFilial.CertSerie; AACBrMDFe.Configuracoes.Geral.VersaoDF := ve300; AACBrMDFe.EventoMDFe.Versao := '3.00'; AACBrMDFe.SSL.CarregarCertificado; if AACBrMDFe.SSL.DadosCertificado.Tipo = tpcA3 then //A3 begin AACBrMDFe.Configuracoes.Geral.SSLXmlSignLib := xsMsXml; AACBrMDFe.SSL.SSLXmlSignLib := xsMsXml; end else //A1 begin AACBrMDFe.Configuracoes.Geral.SSLXmlSignLib := xsXmlSec; AACBrMDFe.SSL.SSLXmlSignLib := xsXmlSec; end; //Configura sequencia para montar o path (cnpj\anomes\modelo) AACBrMDFe.Configuracoes.Arquivos.OrdenacaoPath.Clear; with AACBrMDFe.Configuracoes.Arquivos.OrdenacaoPath.Add do Item := opCNPJ; with AACBrMDFe.Configuracoes.Arquivos.OrdenacaoPath.Add do Item := opData; with AACBrMDFe.Configuracoes.Arquivos.OrdenacaoPath.Add do Item := opModelo; if AtpAmb = 1 then AACBrMDFe.Configuracoes.WebServices.Ambiente := taProducao else AACBrMDFe.Configuracoes.Webservices.Ambiente := taHomologacao; //Mail if (not Assigned(AACBrMDFe.MAIL)) then AACBrMDFe.MAIL := TACBrMail.Create(Application); AACBrMDFe.MAIL.From := AFilial.Mail_Endereco; AACBrMDFe.MAIL.FromName := AFilial.Mail_NomeEmpresa; AACBrMDFe.MAIL.Host := AFilial.Mail_Servidor; AACBrMDFe.MAIL.Username := AFilial.Mail_Endereco; AACBrMDFe.MAIL.Password := AFilial.Mail_Senha; AACBrMDFe.MAIL.Port := IntToStr(AFilial.Mail_Porta); AACBrMDFe.MAIL.IsHTML := True; AACBrMDFe.MAIL.SetSSL := AFilial.Mail_SSL; AACBrMDFe.MAIL.ReadingConfirmation := False; AACBrMDFe.MAIL.AddReplyTo(AFilial.Mail_ResponderPara); Alimento o componente, e quando chamo o assinar: try ACBrMDFe.Manifestos.Assinar; except on e:exception do raise Exception.Create('Erro ao assinar. Erro: ' + e.Message); end; recebo o access violation, na verdade eu não recebo, por que aqui no meu pc funciona, mas em alguns clientes não, alguns inclusive usam o mesmo windows que tenho aqui (Win 10 Pro). Alguma idéia ? Não consigo fazer debug por que não consigo simular, estou desde ontem batendo cabeça e nada, copiei/registrei as DLLs novamente, instalei cadeia de certificados e nada.

Olá pessoal, Atualmente tenho só NFes implantado em alguns clientes, mas um me questionou da necessidade de gerar o MDFe... pelo que sei a transportadora fazia isso, mas agora a contabilidade está exigindo isso do emitente. Li que existe um componente do ACBR que faz isso, o ACBrMDFe, mas não achei em nenhum lugar como baixá-lo e sua documentação. Alguém pode me ajudar? Só existe disponível em trunk ou Acbr-SAC? Obrigado,

Boa tarde! Ao colocar minha aplicação no ambiente Windows 7/2008, percebi que em algumas chamadas realizadas pelo componente ACBRMDFe, programa trava ou é fechado "do nada" sem informar mensagem de erro ou algo do gênero, mesmo usando try/exception (Delphi XE). Percebi que esse evento ocorre ao invocar as funções de Envio/Consulta/Encerramento do XML, não sempre mas uma vez ou outra. Alguém já passou por isso e conseguiu resolver? É relacionado a DLL Capicom, e para evitar tal possível conflito, devo atualizar a mesma? Att, João.

Caros amigos, Inclui o campo CIOT na impressão do MDFe em fast Report. Favor analisar e subir para o Trunk2 Anexo relatório (DAMDFe_Retrato.fr3) DAMDFe_Retrato.fr3

Porque no ACBR Monitor na aba do ACBrMDFe não tem o botão de encerramento?em qual branch consigo baixar os fontes para acrescentar essa funcionalidade?

Bom dia! Acabei de atualizar para o Trunk2 e estou resolvendo as incompatibilidades. Uma delas é em relação ao evento OnStatusChange no componente ACBrMDFe.Status. Anteriormente eu controlava o status de acordo com as imagens em anexo. Mas agora acusa como identificador não declarado. Como posso resolver esta questão?

Bom dia . Ao enviar o mdfe no modo produção recebo a seguite mensagem: URL não definida para: TMDFeRecepcao. mas em homologação esta funcionando. att

Olá, Tive a necessidade de selecionar o certificado pelo Nome do Certificado, sei que o componente já possui uma forma de selecionar pelo Número de Série do certificado, mas precisava de selecionar pelo nome. Sendo assim tomei a liberdade de alterar a unit ACBrMDFeConfiguracoes.pas, no método GetCertificado, para que caso o usuário passe o Nome do Certificado o método retorne o certificado também. Gostaria de saber se essa alteração pode ser publicada, pois talvez outros desenvolvedores tenha essa necessidade. Grato, Gilvan Marinho. ACBrMDFeConfiguracoes.pas

Gostaria de sugerir uma alteração para o fonte ACBrMDFeUtil.pas no método ValidaModalMSXML pois não esta disponível CoInitialize(nil) e o CoUninitialize, se faz necessário para o acesso em um ambiente de threads no Delphi (no meu caso Servidor REST Delphi XE5), verifiquei que no método ValidaMSXML já possui, somente adicionei no método ValidaModalMSXML. Se for possível enviar essa alteração para o SVN agradeço. O fonte alterado foi este que esta em anexo. ACBrMDFeUtil.pas ACBrMDFeUtil.pas

Bom Dia Amigos. Estou começando a usar esse componente e colocando em minha aplicação mas deu esse erro quando cheguei na parte de alimentar o componente: [Error] ...: Undeclared identifier: 'teTransportadora' o mesmo acontece com: [Error] ...: Undeclared identifier: 'moRodoviario' Já reinstalei o acbr pelo acbrinstall, removi temporários, conferi a librari e environments options. Olhei também nos TXT da pasta Acbr E no google e no forum não tem esse erro catalogado. Alguma dica?

Olá, estou querendo desenvolver uma aplicação que faça a manifestação do destinatário, mas não tenho nem ideia por onde iniciar. Alguém poderia me ajudar ? Obrigado

Aonde eu posso ler sobre esse assunto, sabendo que nem sei o que o ACBrMDFe.