Número da Conta Zero na Remessa Itau

[Edevair Viesa Junior]

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 :

 

 

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

[Juliana Tamizou]

Boa tarde.

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

Att.

[Edevair Viesa Junior]

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

[Juliana Tamizou]

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.

[Edevair Viesa Junior]

Sim Juliana, entendi e realmente funcionou.

Porém vale salientar que este problema ocorre somente com a remessado Itaú, os outros bancos estão funcionando corretamente.

Muito Obrigado !