msiscampos

https://drive.google.com/file/d/19QabaWrFHgfFKZBueI9FvOAyKmfMig1Q/view?usp=sharing

bom dia, resolveu sim e agradeço muito.

Segue anexo a Documentação - um pouco antiga - mas no site permanece a mesma AverbePorto - Documentos.pdf

Maravilha irmão, deu certo - obrigado pela sua dedicação em ajudar.

uPortoSeguroIndy.pas Exemplo de uso com Opendialog procedure TF_Cte.wb_averbarExecute(Sender: TObject); var chave , wdir : string; wn : integer; fSeg: TPortoSeguroIndY; begin wdir := dts_empresa.DataSet.FieldByName('PATH_RAIZ').AsString+'x_dfe\_Cte\'+'20'+copy(edl_chave.Text,3,2)+copy(edl_chave.Text,5,2); od.InitialDir := wdir; edl_averbado.Text:=''; MemoDados.Lines.Clear ; if oD.Execute then begin fSeg := TPortoSeguroIndy.create ; fSeg.UserName := '00000000000000'; // atencão username e Password tem que solicitar junto a Porto Seguro fSeg.Password := '000'; // Esse é o meu acesso wn := pos('-',oD.FileName); if wn>0 then chave := copy(od.FileName,wn-44,44); fSeg.Averbacao := maUpload ; fSeg.UpLoad(oD.FileName) ; MemoDados.Lines.Add('Resultado do Envio') ; MemoDados.Lines.Add('Protocolo => '+fSeg.Protocolo) ; MemoDados.Lines.Add('Chave => '+fSeg.Chave) ; MemoDados.Lines.Add(fSeg.MensagemRetorno) ; fSeg.Averbacao := maConsulta ; fSeg.Chave := chave ; fSeg.Consulta(oD.FileName) ; MemoDados.Lines.Add('Resultado da Consulta') ; MemoDados.Lines.Add('Protocolo => '+Trim(fSeg.Protocolo)) ; MemoDados.Lines.Add('Chave => '+fSeg.Chave) ; MemoDados.Lines.Add(stringreplace(fSeg.MensagemRetorno,';',#13,[rfReplaceAll])) ; if fSeg.Sucesso then Begin ShowMessage(stringreplace(fSeg.MensagemRetorno,';',#13,[rfReplaceAll])) ; edl_averbado.Text:= Trim(fSeg.Protocolo); End; fSeg.Free ; end; pn_card4Click(pn_card4); end;

Bom dia - a solução que encontrei foi essa abaixo, mas parece que não interfere no desempenho - rsrsrs initialization ReportMemoryLeaksOnShutdown := False;

Boa tarde, opa sem dúvida que sim.

Bom dia i3Sistemas , Agradeço à disposição , eu até tenho esse curso, vamo na luta. obrigado.

Bom dia - BigWings, obrigado pelo apoio , mas continua .

Tranquilo, eu só usei do meu direito de fazer n/perguntas p/mes, anexando uma classe que até está funcional, envia e recebe normal, porém com vazamento de memória, e a ajuda que eu imaginei , seria de alguém que acompanha mais a evolução do delphi pudesse me ajudar. e até disponibilizar no SVN.

Excelente a sua resposta, pra alguém que paga o SAC a mais de 8 anos

Oba Eu já tava desanimado , será que os desbravadores aí, não conseguem acertar isso não?

Ok - então fica assim - eu uso o ACBr pra emitir o Cte para emitir o MDFe ,a NFe ,SAT, etc , só que averbação eu só consigo usá-lo se o cliente for ATM ? - o autor que também é da comunidade créditos a (MCOB), gentilmente me respondeu que essa classe foi feita em delphi XE2 e ele não tem tem delphi Rio

Bom dia, não não é , mas acho que até deveria ser, isso ficou do Italo verificar em 2017 - mas não houve prosseguimento, única averbação que que Utiliza ACBr é da ATM

Boa Tarde - eu uso uma unit(anexo) para enviar (xml) e receber protocolo de averbação da Porto seguro agora estou tentando passar aplicação para delphi Rio 10.3 - até que funciona + no final dá um monte de memory leek - fazem 3 dias que não saio do lugar. para quem usa indy e Json com frequencia - talvez possa me dar uma ajuda, Obrigado - Deus no Comando ! o exemplo de uso é procedure TF_Averba.bt_carregaClick(Sender: TObject); var fSeg: TPortoSeguroIndy ; begin ed_prot.Text:=''; Memo1.Lines.Clear ; if OD.Execute then // Opendialog1 begin fSeg := TPortoSeguroIndy.create ; try fSeg.UserName := '000000000000000'; fSeg.Password := '0000'; fSeg.Averbacao := maUpload ; fSeg.UpLoad(OD.FileName) ; Memo1.Lines.Add('Resultado do Envio') ; Memo1.Lines.Add('Protocolo => '+fSeg.Protocolo) ; Memo1.Lines.Add('Chave => '+fSeg.Chave) ; Memo1.Lines.Add(fSeg.MensagemRetorno) ; fSeg.Averbacao := maConsulta ; // fSeg.Chave := 'Chave do CT-e ou MDF-e' ; fSeg.Consulta(OD.FileName) ; Memo1.Lines.Add('Resultado da Consulta') ; Memo1.Lines.Add('Protocolo => '+Trim(fSeg.Protocolo)) ; Memo1.Lines.Add('Chave => '+fSeg.Chave) ; Memo1.Lines.Add(stringreplace(fSeg.MensagemRetorno,';',#13,[rfReplaceAll])) ; if fSeg.Sucesso then Begin ShowMessage(stringreplace(fSeg.MensagemRetorno,';',#13,[rfReplaceAll])) ; ed_prot.Text:= Trim(fSeg.Protocolo); End; finally fSeg.Free ; end; end; end; uPortoSeguroIndy.pas

O correto é /365,25 , porque a cada 4 anos Fev tem 29 dias

Boa tarde Eu configuro em tempo de execução somente ...Configuracoes.geral.ssllib ou seja Certificado A3 = ACBrMDFe1.Configuracoes.Geral.SSLLib := libWinCrypt; Certificado A1 = ACBrMDFe1.Configuracoes.Geral.SSLLib := libOpenSSL; mesmo assim em casos cte e mdfe tive que renomear arquivos schemas veja o link Se não me engano, a exceção continua quando executado na IDE, mas funcionou no cliente

Bom dia Igor <vBC>3.12</vBC> <pICMS>0.1700</pICMS> <vICMS>0.53</vICMS> O Percentual não deveria ser 17.00 ou seja (*100 )

Boa Tarde - Italo nenhuma novidade nesse tópico

Antecipo meus agradecimentos

Obrigado mcob - mas no caso o ACBR cte versão 3.o esta rodando direitinho no delphi 7 o sistema tbm cotinua será que teria como adequar essa solução no D7 - nosso grandioso Italo poderia opinar. Abraços

Bom Dia Italo - teria alguma chance de utilizar o componente para averbação do Porto Seguro www.averbeporto.com.br

Boa tarde Arisland - o seguro da carga existe o que fica difícil pro usuário informar o Numero da [nAver] - pq a averbação não é própria do prestador

MDFe - Seguro da Carga Tá difícil a tag xseg Na minha região - a maioria das transportadoras - pequenas - médias utilizam somente o Seguro de Carga do Tomador de serviços - Empresas grandes ( Produtos Ype ) - não tem como preencher o campo [nAver] - pois essa informação não é informada ao prestador de serviços de transportes e sem essa informação, o Xml é rejeitado - teria que colocar uma informação fictícia Alguém tem alguma sugestão

No meu caso, os clientes que usam o Atm a Averbação e feita por importação de Arquivos txt no Portal, o Valor Averbado é o Valor da carga - vou utilizar o componente só para consulta do numero