-
Total de ítens
2 -
Registro em
-
Última visita
Últimos Visitantes
O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.
Valdecir Santos's Achievements
-
//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;