Número da Conta Zero na Remessa Itau

[Edevair Viesa Junior]

Boa noite, pessoal 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 :

 

[Juliana Tamizou]

Bom dia.

Quais propriedades foram informadas?

Att.

[Edevair Viesa Junior]

Em 03/11/2016 at 08:35, Juliana Tamizou disse:

Bom dia.

Quais propriedades foram informadas?

Att.

Boa tarde.

 

Segue :

   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.

Tópico já sendo discutido em 

Att.