danielsk8

Agenda evolutiva do Pix cobrança https://www.bcb.gov.br/estabilidadefinanceira/pix

Gostaria de compartilhar um manual do Pix (dinâmico e estático). Recebi a informação de que será possível gerar qrcodes com datas futuras e ainda com informações de vencimento, multa, juros... Pode ser a transição do código de barras de boletos para o uso do pix e quem sabe o fim do envio de arquivos para registros bancários https://www.bcb.gov.br/content/estabilidadefinanceira/forumpireunioes/Anexo I - Padrões para Iniciação do PIX.pdf Anexo I - Padrões para Iniciação do PIX.pdf

Talvez eu TB possa ajudar.. estou usando o ws da caixa em produção a tempos

Fiz uma rotina para salvar o email enviado pelo ACBR em uma pasta no servidor, como a pasta de Itens Enviado ou outra qualquer. Espero que seja util. Seguem tb uma classe completa onde passo todas as configs .. se quiserem da uma olhada.. uses IdIMAP4, ACBrMail, IdMessage; procedure TEmail_Componente.Salvar_Email_Enviado; var mensagem : TIdMessage; strm : TMemoryStream; IdIMAP4 : TIdIMAP4; Arquivo_EML : TIdMessage; begin //============= se a pasta para salvar o email for informada salva uma copia nela mensagem := TIdMessage.Create(nil); Arquivo_EML := TIdMessage.Create(nil); strm := TMemoryStream.Create; ACBrMail.SaveToStream(strm); strm.Position := 0; mensagem.LoadFromStream(strm); strm.Position := 0; Arquivo_EML.LoadFromStream(strm); IdIMAP4 := TIdIMAP4.Create(nil); IdIMAP4.ConnectTimeout := 30000; IdIMAP4.ReadTimeout := 30000; IdIMAP4.Username := 'Usuario'; IdIMAP4.Password := 'Senha'; IdIMAP4.Port := IMAP_Porta; IdIMAP4.Host := 'IMAP_Host'; IdIMAP4.Connect(); //========== se a pasta nao existir ela é criada ============ IdIMAP4.CreateMailBox( 'Nome_pasta_enviado' ); //========== Seleciona a pasta ============ IdIMAP4.SelectMailbox( 'Nome_pasta_enviado'); //========== Salva a msg na pasta ============ IdIMAP4.AppendMsg( 'Nome_pasta_enviado', mensagem); //=======para listar as pastas que existem no servidor e pegar o nome certinho use // IdIMAP4.ListMailBoxes(memo1.Lines); // Para salvar o arquivo no banco de dados // qrGravaEmail.FieldByName('ARQUIVO_EML').Assign(strm); IdIMAP4.Disconnect(); mensagem.Destroy; strm.Destroy; Arquivo_EML.Destroy; IdIMAP4.Destroy; end; Email_Class.pas

Entendi. Usando o idSmtp eu envio o e-mail através de uma TIdMessage.. no acbr não teria como eu recuperar a message para repassar para o imap? Realmente vou utilizar outro componente para imap..

Ola pessoal Uma necessidade que surgiu agora foi de salvar os email enviados na caixa de "Itens Enviados" usando a rotina abaixo eu consigo salvar em qualquer pasta no me servidor utilizando o componente TIdSMTP junto com o TIdIMAP4 mas eu preciso passar TIdMessage como paramentro. IdIMAP41.SelectMailbox('INBOX.ITENS_ENVIADOS'); IdIMAP41.AppendMsg('INBOX.ITENS_ENVIADOS', IdMessage ); Como minha rotina de email esta toda amarrada no ACBR e funcionando 100% gostaria de manter e nao precisar reescrever obrigado

tb estou na espera...

acredito que somente é necessário que seu contrato ( convenio ) esteja liberado no sistema para q você já possa enviar os xml para WS...

Não se se entendi direito.. não existe a necessidade de outra aplicação para enviar os dados para a CEF.. é gerado um arquivo para cada boleto e a conexão é feita diretamente nos servidores do Banco - Através do WebService então tecnicamente vc vai fazer um loop em todos os seus boletos.. gerar o xml e enviar para o banco registrar...

Já estou usando em produção para consultar os títulos e para registrar... segue a classe que fiz para facilitar o uso e algumas melhorias pessoais... mas os créditos são todos de vcs q compartilharam os fontes.. valeu; Este é um exemplo de uso WS_CEF := TWebService_CEF_SIGCB.Create; WS_CEF.Beneficiario_CodigoCedente := Params.ItemsString['Cod_Cedente'].AsString; WS_CEF.Beneficiario_Cnpj := Params.ItemsString['Cnpj'].AsString; WS_CEF.Beneficiario_Agencia := Params.ItemsString['Agencia'].AsString; WS_CEF.Titulo_Nosso_numero := Params.ItemsString['Nosso_Numero'].AsString; result := Xml_To_Json( WS_CEF.Consultar_Boleto_XML); ////////result := Xml_To_Json( WS_CEF.Registrar_Boleto ); FreeAndNil( WS_CEF); WebService_CEF_SIGCB.pas

show

Estou estudando o RestDataWare " https://www.restdw.com.br" tenho a ideia de enviar os dados dos boletos para um webservice criado com o RestDataWare e meu webservice monta e transmite o Xml de registro.. retornando apenas os dados de retornos da CEF.. Assim centralizo todos os registros de boletos pelo meu Webservice... mas ainda estou na parte de montar o xml de remessa..

vou começar a estudar o manual do webservice quais funções do delphi vc usou para montar a <AUTENTICACAO> ? tentei usar o HashSHA.GetHashString(Str,SHA256) e EncodeBase64 sem sucesso

Ola pessoal Espero estar ajudando de alguma forma.. Acabei de homologar a remessa Bancoob Cnab 400 Carteira 3 junto ao banco Estou usando o trunk2 Atualizado no Delphi Seattle.. Tive que fazer um pequeno ajuste na unit ACBrBancoBancoob.pas "Número do Contrato Garantia de 90 a 94 (5)" O numero do Convenio/Contrato sempre estava vindo zerado No manual diz o seguinte: {=================================== "Número do Contrato Garantia de 90 a 94 (5): Para Carteira 1 preencher ""00000""; Para Carteira 3 preencher com o número do contrato sem DV." "DV do contrato de 95 a 95 (1): Para Carteira 1 preencher ""0""; Para Carteira 3 preencher com o Dígito Verificador." ====================================} No anexo a Unit alterada e funcionando... ACBrBancoBancoob.pas

estou tendo o mesmo problema.. ate agora nao foi resolvido consultando pela chave no portal da nfe esta tudo certo mas nada de retorno do protocolo