[Pix Dinâmico para Boletos bancários ( manual )]

Agenda evolutiva do Pix cobrança

https://www.bcb.gov.br/estabilidadefinanceira/pix

[Pix Dinâmico para Boletos bancários ( manual )]

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

[Boletos via webserver caixa]

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

[ACBR MAIL - Salvar na pasta de Enviados]

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

[ACBR MAIL - Salvar na pasta de Enviados]

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.. 

[ACBR MAIL - Salvar na pasta de Enviados]

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

 

[Previsão Retorno SefazMG]

tb estou na espera...

[Boletos via webserver caixa]

12 minutos atrás, danielsk8 disse:

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...

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

[Boletos via webserver caixa]

2 horas atrás, erickjae disse:

Bom Dia a Todos

 

Gostaria de saber, esse projeto do web server da Caixa faz o tráfego de arquivos como ?

A VAN seria responsável por enviar as remessas para a Caixa? 

 

Alguém sabe sobre isso ?

 

Desde já obrigado

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...

[Boletos via webserver caixa]

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

[Boletos via webserver caixa]

show

[Boletos via webserver caixa]

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..

[Boletos via webserver caixa]

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

 

 

[Sugestão para Correção - Remessa Bancoob 400]

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

[Erro Não Catalogado Ao Consultar Xml Em Mg]

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

[Erro No Codigo Da Cidade Do Recebedor]

italo 

realmente acho q estou meio cansado rss

obrigado pela atenção e pela ajuda acredito q seja isso mesmo

fiquei um tempão tentando procurar o problema e era um erro de cadastro do código ibge...

obrigado pela ajuda

[Erro No Codigo Da Cidade Do Recebedor]

estou sim parece q ele esta comendo o primeiro digito do código da cidade

código da cidade = 35188000 

código no xml = 5188000

esta faltando o 3

 

deve alguma coisa na montagem do xml...

em q unit posso verificar a montagem do xml ?

[Erro No Codigo Da Cidade Do Recebedor]

Olá pessoal.

Estou tentando enviar o xml com os dados do recebedor preechidos
o esta tudo correto, mas na transmicao acusa o erro
4819 - Rejeicao: codigo de municipio de localizacao do recebedor: digito invalido

eu estou passando o codigo do municipio dessa forma

Receb.EnderReceb.cMun := RECEB_END_COD_IBGE_CIDADE;
Receb.EnderReceb.xMun := RECEB_END_NOME_CIDADE;

ja tenteii alterar o xml no bloco de notas
codigo da cidade é 35188000 - GUARULHOS - SP
mas no xml esta parecendo o codigo = 5188000
mesmo depois q eu altero no bloco de notas qdo faço a transmição ele volta para este 5188000

<xBairro>CIDADE INDL. SATELITE DE SP</xBairro><cMun>5188000</cMun><xMun>GUARULHOS</xMun><CEP>07220040</CEP>

alguem tem alguma luz?

 

o xml esta aki

https://www.dropbox.com/s/qdoh0h9qpgub0mc/31131220151346000106570010000048191000048198-cte.xml

[como informo os CST 101, 102, 103...]

FGGLUIZ e brsamn

ajudou d+, deu tudo certo

valeu pela força

[como informo os CST 101, 102, 103...]

Cara parece q é isso mesmo..

vou fazer os testes aqui

obrigado

[como informo os CST 101, 102, 103...]

ola brsamn

ja coloquei

Emit.CRT := crtSimplesNacional;

so se estiver tentanto colocar na propriedade errada

Imposto.ICMS.CST

acho que é aqui q tenho q informar o cst 101, 102, 103...

[como informo os CST 101, 102, 103...]

comecei a usar o acbr para implantar um sistema de Nfe interno na empresa onde trabalho

Aki é a modalidade simples e é informado os cst

101,102,103,201,202,203,300,400,

mas percebi que a classe TpcnCSTIcms so vai ate cst90

Como faço para informar estes csts que preciso?

TpcnCSTIcms = (cst00, cst10, cst20, cst30, cst40, cst41, cst45, cst50, cst51,

cst60, cst70, cst80, cst81, cst90, cstPart10, cstPart90,

cstRep41, cstVazio, cstICMSOutraUF, cstICMSSN); //80 e 81 apenas para CTe

[Erro no Retorno Caixa Sicoob]

Estou começando a usar o Acbr Boleto, e fazendo uns testes nos arquivos de retornos encontrei uma erro

a propriedade ValorRecebido esta retornando o valor do documento no registro tipo T da posição 82 tamanho 15

o correto seria 78 a 92 do registro tipo U "VALOR PAGO PELO SACADO", que já vem com os juros.