//ARQUIVO ACBrBancoBradesco.pas
procedure TACBrBancoBradesco.ValidaNossoNumeroResponsavel(out
ANossoNumero: String; out ADigVerificador: String;
const ACBrTitulo: TACBrTitulo);
begin
ANossoNumero:= '0';
ADigVerificador:= '0';
if (ACBrTitulo.ACBrBoleto.Cedente.ResponEmissao = tbBancoEmite) then //QUANDO INFORMAMOS QUE O BANCO EMITE O BOLETO
begin
if (ACBrTitulo.NossoNumero = '') or (ACBrTitulo.NossoNumero = PadLeft(ACBrTitulo.NossoNumero,ACBrBanco.TamanhoMaximoNossoNum,'0')) then
begin
ANossoNumero := StringOfChar('0', CalcularTamMaximoNossoNumero(ACBrTitulo.Carteira, ACBrTitulo.NossoNumero) ); //ESSA FUNÇÃO RETORNA ZEROS E ISSO INVALIDA O ARQUIVO
ADigVerificador := '0';
end
else
begin
ANossoNumero := ACBrTitulo.NossoNumero;
ADigVerificador := CalcularDigitoVerificador(ACBrTitulo);
end;
end
else
begin
ANossoNumero := ACBrTitulo.NossoNumero;
ADigVerificador := CalcularDigitoVerificador(ACBrTitulo);
if (ANossoNumero = EmptyStr) then
ADigVerificador := '0';
end;
end;
//PARA CONSEGUIR EMITIR O ARQUIVO FIZ ISSO
procedure TACBrBancoBradesco.ValidaNossoNumeroResponsavel(out
ANossoNumero: String; out ADigVerificador: String;
const ACBrTitulo: TACBrTitulo);
begin
ANossoNumero:= '0';
ADigVerificador:= '0';
ANossoNumero := ACBrTitulo.NossoNumero;
ADigVerificador := CalcularDigitoVerificador(ACBrTitulo);
if (ANossoNumero = EmptyStr) then
ADigVerificador := '0';
end;
//ARQUIVO ACBrBancoBradesco.pas procedure TACBrBancoBradesco.ValidaNossoNumeroResponsavel(out ANossoNumero: String; out ADigVerificador: String; const ACBrTitulo: TACBrTitulo); begin ANossoNumero:= '0'; ADigVerificador:= '0'; if (ACBrTitulo.ACBrBoleto.Cedente.ResponEmissao = tbBancoEmite) then //QUANDO INFORMAMOS QUE O BANCO EMITE O BOLETO begin if (ACBrTitulo.NossoNumero = '') or (ACBrTitulo.NossoNumero = PadLeft(ACBrTitulo.NossoNumero,ACBrBanco.TamanhoMaximoNossoNum,'0')) then begin ANossoNumero := StringOfChar('0', CalcularTamMaximoNossoNumero(ACBrTitulo.Carteira, ACBrTitulo.NossoNumero) ); //ESSA FUNÇÃO RETORNA ZEROS E ISSO INVALIDA O ARQUIVO ADigVerificador := '0'; end else begin ANossoNumero := ACBrTitulo.NossoNumero; ADigVerificador := CalcularDigitoVerificador(ACBrTitulo); end; end else begin ANossoNumero := ACBrTitulo.NossoNumero; ADigVerificador := CalcularDigitoVerificador(ACBrTitulo); if (ANossoNumero = EmptyStr) then ADigVerificador := '0'; end; end; //PARA CONSEGUIR EMITIR O ARQUIVO FIZ ISSO procedure TACBrBancoBradesco.ValidaNossoNumeroResponsavel(out ANossoNumero: String; out ADigVerificador: String; const ACBrTitulo: TACBrTitulo); begin ANossoNumero:= '0'; ADigVerificador:= '0'; ANossoNumero := ACBrTitulo.NossoNumero; ADigVerificador := CalcularDigitoVerificador(ACBrTitulo); if (ANossoNumero = EmptyStr) then ADigVerificador := '0'; end;