MarcosRWeimer

ajudo, so acertarmos como, mandei meu email em pvt para combinarmos alguma maneira

Não tenho mais delphis antigos aqui, então não consigo testar no momento, mas como falei, na época usávamos D6 (a não ser que esteja muito enganado e usávamos XE8) No trabalho acesso ao celular é restrito, e em casa nem PC eu tenho (é tenho, um amd duron 750 so pra emergencias mas por causa de licença nem tem delphi instalado)

Na época que foi desenvolvido usávamos D6, depois compramos o XE8, e agora temos assinatura e estamos no Tokyo 10.2, em ambos os casos funciona. Consegue especificar mais detalhes das incompatibilidades?

volte umas paginas, tem o repositório no bitbucket, se fizer alguma melhoria não esqueça de enviar.

Bom pessoal, algumas pessoas me pediram inbox, então ai está: https://bitbucket.org/marcosweimer/pkgbr/ por enquanto com recursos limitados, vejam lá para não desfocar o tópico

Temos aqui para uso interno, pessoal não gostou da idéia e não foi pra frente

Olha, quando comecei a ver sobre NFS-e (primeira vez que desenvolvo NFS-e com o ACBr) atualizei, deve fazer pouco uns 30... 40 dias por que tive outras tarefas para fazer com prioridade maior, e não existia a cidade. Tentei ver aqui no Tortoise qual a revision que estou mas não encontrei onde ver.

Senhores, favor adicionar no Cidades.ini [4128559] Nome=Vera Cruz do Oeste UF=PR Provedor=Betha EDIT: Desenvolvi e está funcionando sem problemas.

seria mais ou menos assim (devido a limitação de espaço) 0=REMETENTE 1=DESTINATARIO 2=TERCEIROS 3=PROP/REMET 4=PROP/DEST 9=SEM FRETE Mas não sei como faria isso na pcnConversao.modFreteToDesStr sem causar problemas as NF-es anteriors a 4.00

Ola! Na impressão no Danfe em Fast Report está imprimindo incorretamente a descrição da modalidade de frete. Segundo a NT 2016.002: 0=Contratação do Frete por conta do Remetente (CIF); 1=Contratação do Frete por conta do Destinatário (FOB); 2=Contratação do Frete por conta de Terceiros; 3=Transporte Próprio por conta do Remetente; 4=Transporte Próprio por conta do Destinatário; 9=Sem Ocorrência de Transporte. Porem ao imprimir obtem do pcnConversao.modFreteToDesStr que retorna o seguinte: 0 - EMITENTE' 1 - DEST/REM 2 - TERCEIROS 3 - PROP/REMT 4 - PROP/DEST 9 - SEM FRETE O que não condiz com a NT. A dúvida é se vai ser alterada a pcnConversao, ou como vai ser feito (mantendo a compatibilidade ao imprimir NFs anteriores).

Iniciada conversa em PVT para não fugir o foco do topico

está uns posts atrás... https://bitbucket.org/marcosweimer/acbrbina também temos clientes em cascavel, inclusive usando o componente kkk

Ola Daniel! Veja no repositório no bitbucket, estamos usando em produção (para o bina toptron) há vários meses, o colega LIDERNetwork irá (ou tentará) adicionar suporte ao bina da Mamut. Foi desenvolvido usando interfaces que não agrada o pessoal do ACBr, então teria de mudar tudo. Estamos próximos, vi que vc é de Cascavel, qualquer coisa me chame no pvt

Ola! Os retornos datetime do sefaz incluem o timezone. Por exemplo, consulto o status tem o retorno dhRecbto, no pcteRetConsStatServ executa um Leitor.rCampo(tcDatHor, 'dhRecbto'); A questão é como obter o timezone, ou não estou encontrando ou não existe esta informação. Gostaria desta informação para validar o timezone com a da filial (filiais em vários estados). No envio seto o timezone para tzManual e o fuso horário carrego do cadastro da filial, toda vez que muda horario de verão/inverno clientes ligam falando que não está autorizando e são orientados em corrigir o fuso horario. (sei, não deixo em automático por outros motivos, não vem ao caso neste momento), assim iria automatizar, receberia rejeição 703,704, verificaria o timezone recebido com o da filial, e se fosse diferente faria iria alterar e reenviar.

nada feito, continuo com problemas, é duro não conseguir efetuar o debug.

Acho que está faltando coisa ai, veja como faço aqui: with Seg.Add do begin case qSeg.FieldByName('resp').AsInteger of 1: respSeg := rsEmitente; 2: respSeg := rsTomadorServico; end; CNPJCPF := TStringUtils.OnlyNumbers(qSeg.FieldByName('resp_cnpjcpf').AsString); xSeg := qSeg.FieldByName('infseg_xseg').AsString; CNPJ := TStringUtils.OnlyNumbers(qSeg.FieldByName('infseg_cnpj').AsString); nApol := qSeg.FieldByName('napol').AsString; Conexao.OpenForEach('select ' + ' m.naver ' + ' from seg_averbacao m ' + ' where m.mdfE_id = :mdfe_id ' + ' and m.seq_seg = :seq ' + ' order by m.seq', [MDFE_ID, qSeg.FieldByName('seq').AsInteger], procedure (qAver: TFDQuery) begin with aver.Add do nAver := qAver.FieldByName('naver').AsString; end); end;

pode ser que tenha, mas na maquina que tenho acesso agora, não tem nenhum módulo de banco.

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.

só para complementar, estou passando pela mesma situação. Também não encontrei uma lógica, erro aleatório mesmo

se tomador não for contribuinte, tente usar o CFOP 5357/6357 - Prestação de serviço de transporte a não contribuinte

Conseguiu adequar o componente para este bina?

emulador não tem direto no site do fabricante?

Continuo curioso kkk

O fr3 está sendo adequado por outro setor, quando me passarem ele adiciono a este mesmo tópico.

Ola! Alterei o ACBrMDFeDAMDFEDR para disponibilizar novos campos: - Seg (seguro) - InfCIOT Alterações em anexo ACBrMDFeDAMDFEFR.pas