Jump to content

msiscampos

Membros Pro
  • Posts

    163
  • Joined

  • Last visited

1 Follower

About msiscampos

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

msiscampos's Achievements

Community Regular

Community Regular (8/14)

  • First Post
  • Collaborator Rare
  • Conversation Starter
  • Week One Done
  • One Month Later

Recent Badges

21

Reputation

4

Community Answers

  1. https://drive.google.com/file/d/19QabaWrFHgfFKZBueI9FvOAyKmfMig1Q/view?usp=sharing
  2. Segue anexo a Documentação - um pouco antiga - mas no site permanece a mesma AverbePorto - Documentos.pdf
  3. Maravilha irmão, deu certo - obrigado pela sua dedicação em ajudar.
  4. 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;
  5. Bom dia - a solução que encontrei foi essa abaixo, mas parece que não interfere no desempenho - rsrsrs initialization ReportMemoryLeaksOnShutdown := False;
  6. Bom dia i3Sistemas , Agradeço à disposição , eu até tenho esse curso, vamo na luta. obrigado.
  7. 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.
  8. Excelente a sua resposta, pra alguém que paga o SAC a mais de 8 anos
  9. Oba Eu já tava desanimado , será que os desbravadores aí, não conseguem acertar isso não?
  10. 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
  11. 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
  12. 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
×
×
  • 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.