Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

consultoria_sticker.png

Conteúdo para desenvolvedores
 ao vivo de terça a quinta!
Saiba mais

dev.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


Saiba mais

beneficios.png

DAHA

Membros
  • Content Count

    28
  • Joined

  • Last visited

Community Reputation

0 Neutral

About DAHA

  • Rank
    Membro
  • Birthday 04/23/1982

Contact Methods

  • Website URL
    http://www.gdaha.com.br

Profile Information

  • Sexo
    Masculino
  • Location
    São José dos Campos

Recent Profile Visitors

549 profile views
  1. Então mas quando eu clico em CONSULTAR evento, ele traz o XML com todas as correçoes. EVENTO 1 e la em baixo o EVENTO 2 Então não consigo pegar a informação do evento 2. sobre esse função retorna erro: Argument out of range Somente funciona colocando: ACBrNFe1.EventoNFe.Evento.Items[0].InfEvento.nSeqEvento; ai me retorna (1)
  2. Boa tarde, eu Faço a leitura do XML da NFe e do EVENTO de correção Porém quando o cliente faz 2 eventos para a mesma nota, eu não consigo pegar os dados do 2 evento. Como posso pegar? Aqui eu pego sempre o EVENTO 1: ACBrNFe1.EventoNFe.Evento.Items[0].InfEvento.nSeqEvento;
  3. Bom dia, eu já coloco isso. Mas mesmo assim envia mas não chega ao cliente. Pode me passar sua configuração? Olha a minha: ACBrMail1.From := '[email protected]'; ACBrMail1.FromName := '[email protected]'; ACBrMail1.Host := 'mail.3ecomercial.com.br'; ACBrMail1.Username := '[email protected]'; ACBrMail1.Password := '*********'; ACBrMail1.Port := '465'; // troque pela porta do seu servidor smtp ACBrMail1.SetTLS := false; // Verifique se o seu servidor necessita SSL ACBrMail1.SetSSL:= true; Pode me aju
  4. Enviei via mensagem aqui no site mesmo. Obrigado pela disposição em ajudar. Eu não sei mais o que fazer. somente o LOCAWEB que é um novo cliente que contratou o serviço que não vai de jeito nenhum.
  5. Bom dia, como posso mandar para vc por M.P?
  6. tentei todas as configurações possíveis e não vai ACBrMail1.SMTP.Sock.SSL.SSLType := LT_SSLv2; Não dá erro, simplesmente, parece que foi com sucesso, mas o cliente não recebe o email.
  7. Undeclared indentifier: LT_SSLv2... o que coloco no USES? Não entendi o "envia mas ninguém recebe". Se ninguém recebe como sabe que enviou? Não envia, é que no ACBR não dá erro algum, é como se fosse enviado com sucesso, mas sem erros
  8. Se quiser mando pra vc email, senha etc.. pq faz 2 dias que tento uma solução e não consigo, só fora do acbrmail, mas não queria trocar o componente do meu sistema INTEIRO. Sempre me atendeu tão bem
  9. Não tenho nenhum erro de autenticação. No Demo do Acbr, vai normal, mas nenhum email de destino recebe.
  10. Boa tarde, não consigo enviar email do acbr. Não dá nenhum erro. Envia mas ninguém recebe Verifiquei pelo INDY delphi e por la consegui enviar com a opção que não tem no ACBR IdSSLIOHandlerSocket.SSLOptions.Method := sslvSSLv23; //AQUI Não tem no acbr IdSSLIOHandlerSocket.SSLOptions.Mode := sslmClient; idSMTP.UseTLS := utUseImplicitTLS; idSMTP.Authenticate; Porta: 465 Alguém pode me ajudar em como configurar?
  11. Boa dia Juliana. Eu não consegui usar o recurso GerarRemessaStream. Eu uso o sistema WEB, então essa função é para Eu pegar o texto da remessa em uma Stream e depois eu salvo essa Stream em alguma pasta do cliente. A dificuldade é que não consigo pegar o texto da stream. var S:=TStringStream; begin S:= TStringStream.Create; ACBrBoleto1.GerarRemessaStream(1,S); UniMemo1.Lines.LoadFromStream(S)
  12. Por favor, não consigo gerar remessa WEB usando GerarRemessaStream. Podem escrever um EXEMPLO?
  13. Ola Tudo bem? Não estou conseguindo gerar ACBrBoleto1.GerarRemessaStream(1,S); Podem me dar Um exemplo, pois quando eu gero e mando para um MEMO para testar, não gera nada.
  14. Bom dia pessoal, "Os outros campos estão sendo gerados com valor zero, somente o vICMSSubstituto que não!" meu mesma coisa...alguém conseguiu gerar o campo zerado????
  15. Boa tarde pessoal...estou com mesmo problema ... Não consigo enviar carta de correção..alguem pode me ajudar ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.EventoNFe.idLote:=1 ; with ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.chNFe := Chave; infEvento.CNPJ := CNPJ; infEvento.dhEvento := now; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := 1; infEvento.detEvento.xCorrecao :='Descricao Correta do Produto: teste'; infEvento.cOrgao:=35; InfEvento_versaoEvento:='4.00'; end;
×
×
  • Create New...