Boleto

[Mauricio Andrade]

Baixei hoje a nova vs do ACBr, tudo funciona , menos o Boleto antes eu estava com a vs 0.0.31a e agora á a vs 0.0.66a , mais dá erro ao rodar , estou utilizando o Fortes... 

 

alguém pode me ajudar?

[Juliana Tamizou]

Bom dia.

 

Qual é exatamente a mensagem do erro?

 

Att.

[Mauricio Andrade]

ele paralisa o Delphi 6 , de eu suspender cedente.agencia e os em sequencia, segue código:

 

 

            with ACBrBoleto1 do

                begin

                    case qryFaturas.fieldbyname('cod_banco').AsInteger of

                        1  : Banco.TipoCobranca := cobBancoDoBrasil;

                        33 : Banco.TipoCobranca := cobSantander;

                        41 : Banco.TipoCobranca := cobBanrisul;

                        104: Banco.TipoCobranca := cobCaixaSicob; //cobCaixaEconomica

                        237: Banco.TipoCobranca := cobBradesco;

                        341: Banco.TipoCobranca := cobItau;

                        389: Banco.TipoCobranca := cobBancoMercantil;

                        748: Banco.TipoCobranca := cobSicred;

                        756: Banco.TipoCobranca := cobBancoob;

                        else Banco.TipoCobranca := cobNenhum;

                    end;

 

                    case qryEmpresa.fieldbyname('personalidade').AsInteger of

                    0: Cedente.TipoInscricao := pJuridica;

                    1: Cedente.TipoInscricao := pFisica;

                    end;

 

                    Cedente.CNPJCPF         := SoNumeros(qryEmpresa.FieldByName('cnpj_cpf').asString);

                    Cedente.Nome            := qryEmpresa.FieldByName('razao_social').asString;

                    Cedente.Logradouro      := qryEmpresa.fieldbyname('tipo_logradouro').AsString+' '+qryEmpresa.fieldbyname('nome_logradouro').AsString;

                    Cedente.NumeroRes       := qryEmpresa.fieldbyname('numero').AsString;

                    Cedente.Complemento     := qryEmpresa.fieldbyname('complemento').AsString;

                    Cedente.Bairro          := qryEmpresa.fieldbyname('bairro').AsString;

                    Cedente.Cidade          := qryEmpresa.fieldbyname('municipio').AsString;

                    Cedente.UF              := qryEmpresa.fieldbyname('estado').AsString;

                    Cedente.CEP             := SoNumeros(qryEmpresa.fieldbyname('cep').AsString);

 

                    //até aqui blz...

 

                    Cedente.Agencia         := qryFaturas.fieldbyname('cod_agencia').AsString;

                    Cedente.AgenciaDigito   := qryFaturas.fieldbyname('digito').AsString;

                    Cedente.Conta           := copy(qryFaturas.fieldbyname('cod_ccorrente').AsString, 1 , pos('-',qryFaturas.fieldbyname('cod_ccorrente').AsString)-1);

                    Cedente.ContaDigito     := copy(qryFaturas.fieldbyname('cod_ccorrente').AsString,pos('-      ',qryFaturas.fieldbyname('cod_ccorrente').AsString)+1,length(qryFaturas.fieldbyname('cod_ccorrente').AsString));

                    Cedente.CodigoCedente   := copy(qryFaturas.fieldbyname('cod_cedente').AsString, 1 , pos('-',qryFaturas.fieldbyname('cod_cedente').AsString)-1);

                    Cedente.Convenio        := qryFaturas.fieldbyname('convenio').AsString;

                    Cedente.ResponEmissao   := tbCliEmite;

 

                    //o bloco acima não passa

                end;

[Mauricio Andrade]

moderador, 

 

só baixei pelo svn a nova versão , desinstalei a antiga e instalei a nova...

 

agradeço desde já sua ajuda...

 

abs

[Mauricio Andrade]

se eu colocar no componente o numero da agencia ou numero da conta , paralisa o delphi...

[Juliana Tamizou]

Boa tarde.

 

Antes da agência e conta  você configurou o banco?

 

Att.

[Mauricio Andrade]

boa tarde Juliana,

 

Sim , confirme abaixo:

 

         case qryFaturas.fieldbyname('cod_banco').AsInteger of

1 : Banco.TipoCobranca := cobBancoDoBrasil;

33 : Banco.TipoCobranca := cobSantander;

41 : Banco.TipoCobranca := cobBanrisul;

104: Banco.TipoCobranca := cobCaixaSicob; //cobCaixaEconomica

237: Banco.TipoCobranca := cobBradesco;

341: Banco.TipoCobranca := cobItau;

389: Banco.TipoCobranca := cobBancoMercantil;

748: Banco.TipoCobranca := cobSicred;

756: Banco.TipoCobranca := cobBancoob;

else Banco.TipoCobranca := cobNenhum;

end;