Jump to content

click.png click.png click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

Número da Conta Zero na Remessa Itau


Edevair Viesa Junior
  • Este tópico foi criado há 1784 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

Estou com problemas ao gerar remessa de boleto do banco itau. O número da conta está saindo zero, tanto no Header quanto nas linhas dos títulos, porém o dígito da conta estão saindo, e informo no mesmo momento tanto a conta quanto o seu respectivo dígito e também a agencia que também sai. 

Dados de agência : 0562 e Conta Corrente 40177-8

 

O que estou fazendo errado ??

 

Segue ilustração :

 

Sem título.png

 

Segue a forma como estou informando os dados :

   Result := true

   try
        with l_acbr_boleto do
        begin
            with Cedente do
            begin
                Nome := g_desc_empresa;
                CNPJCPF := OnlyNumber(g_cnpj_empresa);
                Logradouro := g_endereco_nf_empresa;
                CEP := OnlyNumber(g_cep_empresa);
                NumeroRes := g_numero_empresa;
                Complemento := g_complemento_empresa;
                Conta := l_client_CO0200.FieldByName('C_CONTA_BANCO').AsString;
                ContaDigito := l_client_CO0200.FieldByName('C_DIGITO_CONTA_BANCO').AsString;
                Agencia := l_client_CO0200.FieldByName('C_AGENCIA_BANCO').AsString;
                AgenciaDigito := l_client_CO0200.FieldByName('C_DIGITO_AGENCIA_BANCO').AsString;
                Modalidade := l_client_CO0200.FieldByName('C_VARIACAO').AsString;
                Convenio := l_client_CO0200.FieldByName('C_NUM_CONVENIO').AsString;
                CodigoCedente := l_client_CO0200.FieldByName('C_NUM_CONVENIO').AsString;
            end;
            with Banco do
            begin
                Numero := l_client_CO0200.FieldByName('C_NUM_BANCO').AsInteger;
                Nome := l_client_CO0200.FieldByName('C_NOME_BANCO').AsString;
                LayoutRemessa := c240;
                if l_client_CO0200.FieldByName('C_LAYOUT_CNAB').AsString = 'c400' then
                begin
                    LayoutRemessa := c400;
                end;
                if l_tipo_cobranca = 'Banco do Brasil' then
                begin
                    TipoCobranca := cobBancoDoBrasil;
                end
                else if l_tipo_cobranca = 'Bradesco' then
                begin
                    TipoCobranca := cobBradesco;
                end
                else if l_tipo_cobranca = 'Itaú' then
                begin
                    TipoCobranca := cobItau;
                end
                else if l_tipo_cobranca = 'Santander' then
                begin
                    TipoCobranca := cobSantander;
                end
                else if l_tipo_cobranca = 'CEF' then
                begin
                    TipoCobranca := cobCaixaEconomica;
                end
                else if l_tipo_cobranca = 'HSBC' then
                begin
                    TipoCobranca := cobHSBC;
                end
                else if l_tipo_cobranca = 'Safra' then
                begin
                    TipoCobranca := cobSafraBradesco;
                end
                else if l_tipo_cobranca = 'Sicred' then
                begin
                    TipoCobranca := cobSicred;
                end
                else
                begin
                    Result := False;
                end;
            end;
        end;
    except on E:Exception do
            begin
                MessageDlg('Erro Ao carregar as Configurações do Boleto nesta CONTA. '+#13#10+#13#10+
                              'Erro: '+E.Message, mterror, [mbOk], 0);
                Result := False;
            end;
    end;
 

os dados do banco de dados estão sendo informados corretamente, verifiquei debugando em run time ...

_____________________________________

Junior - Rhovanion Tecnologia

(11) 4224.6543

Link to comment
Share on other sites

  • Consultores

Boa tarde.

Primeiro você deve setar as propriedades do banco, e somente após elas o restante.

Att.

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Membros Pro

Não entendí.. Não é o que estou fazendo ???

Você me sugere trocar de posição as informações de Cedente e Banco ???

Pq funciona as remessas do Bradesco, Banco do Brasil e Sicred ??

Só do Itaú não funciona.

Sugere que faça assim :

 Result := true

   try
        with l_acbr_boleto do
        begin
            with Banco do
            begin
                Numero := l_client_CO0200.FieldByName('C_NUM_BANCO').AsInteger;
                Nome := l_client_CO0200.FieldByName('C_NOME_BANCO').AsString;
                LayoutRemessa := c240;
                if l_client_CO0200.FieldByName('C_LAYOUT_CNAB').AsString = 'c400' then
                begin
                    LayoutRemessa := c400;
                end;
                if l_tipo_cobranca = 'Banco do Brasil' then
                begin
                    TipoCobranca := cobBancoDoBrasil;
                end
                else if l_tipo_cobranca = 'Bradesco' then
                begin
                    TipoCobranca := cobBradesco;
                end
                else if l_tipo_cobranca = 'Itaú' then
                begin
                    TipoCobranca := cobItau;
                end
                else if l_tipo_cobranca = 'Santander' then
                begin
                    TipoCobranca := cobSantander;
                end
                else if l_tipo_cobranca = 'CEF' then
                begin
                    TipoCobranca := cobCaixaEconomica;
                end
                else if l_tipo_cobranca = 'HSBC' then
                begin
                    TipoCobranca := cobHSBC;
                end
                else if l_tipo_cobranca = 'Safra' then
                begin
                    TipoCobranca := cobSafraBradesco;
                end
                else if l_tipo_cobranca = 'Sicred' then
                begin
                    TipoCobranca := cobSicred;
                end
                else
                begin
                    Result := False;
                end;
            end;

            with Cedente do
            begin
                Nome := g_desc_empresa;
                CNPJCPF := OnlyNumber(g_cnpj_empresa);
                Logradouro := g_endereco_nf_empresa;
                CEP := OnlyNumber(g_cep_empresa);
                NumeroRes := g_numero_empresa;
                Complemento := g_complemento_empresa;
                Conta := l_client_CO0200.FieldByName('C_CONTA_BANCO').AsString;
                ContaDigito := l_client_CO0200.FieldByName('C_DIGITO_CONTA_BANCO').AsString;
                Agencia := l_client_CO0200.FieldByName('C_AGENCIA_BANCO').AsString;
                AgenciaDigito := l_client_CO0200.FieldByName('C_DIGITO_AGENCIA_BANCO').AsString;
                Modalidade := l_client_CO0200.FieldByName('C_VARIACAO').AsString;
                Convenio := l_client_CO0200.FieldByName('C_NUM_CONVENIO').AsString;
                CodigoCedente := l_client_CO0200.FieldByName('C_NUM_CONVENIO').AsString;
            end;
        end;
    except on E:Exception do
            begin
                MessageDlg('Erro Ao carregar as Configurações do Boleto nesta CONTA. '+#13#10+#13#10+
                              'Erro: '+E.Message, mterror, [mbOk], 0);
                Result := False;
            end;
    end;

 

Seria isso ??

_____________________________________

Junior - Rhovanion Tecnologia

(11) 4224.6543

Link to comment
Share on other sites

  • Consultores

Boa tarde.

Ao setar o banco, algumas propriedades são ajustadas conforme o banco e isso pode causar problemas em implementações como a sua estava antes, por este motivo recomendo a inversão conforme seu último post.

Att.

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

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