Melhoria Acbrbancocaixa.pas Linha 686

[SolivanAraujo]

Boa tarde,

 

Arquivo ACBrBancoCaixa.pas gerando exceção na linha 686 quando propriedade "seunumero" é vazia.

 

 

 

ANTES

            // prevenir quando o seunumero não vem informado no arquivo

            if StrToInt(SeuNumero) = 0 then

 

DEPOIS

            // prevenir quando o seunumero não vem informado no arquivo

            if StrToIntDef(SeuNumero,0) = 0 then

 

 

Segue o arquivo para análise, 

 

Desde já Obrigado.

ACBrBancoCaixa.pas

ACBrBancoCaixa.pas

[Juliomar Marchetti]

Boa noite

obrigado pela colaboração 

já está no svn 

[Jacinto Junior]

Boa tarde meus caros.

 

O conteúdo do "SeuNumero" por ser de responsabilidade do cliente emissor poderá ser alfanumérico, portanto acredito que seja uma melhor solução o seguinte:

if AnsiSameText(Trim(SeuNumero), EmptyStr) then
begin
  SeuNumero := NossoNumero;
  NumeroDocumento := NossoNumero
end;

Em anexo segue a unit alterada.
 

ACBrBancoCaixa.pas

[Juliana Tamizou]

Boa noite.

 

Contribuição disponibilizada no svn.

 

Att.

[Jacinto Junior]

Boa noite.

 

Contribuição disponibilizada no svn.

 

Att.

 

Obrigado Juliana, mas fiquei com uma dúvida, o "Trim" não fará falta? Pois caso sejam lidos espaços em branco do arquivo, eles serão diferentes de "EmptyStr".

Editado 3 Junho, 2015 por Jacinto Junior

[Juliana Tamizou]

Boa noite.

 

Você tem razão, subi este ajuste no svn.

 

Att.

[Leandro SSilva {0,1}]

Essa modificação afetou  o campo seunumero, ainda nao esta 100%,  se possivel por favor verificar esse topico que explico o problema.