acbrmonitorplus registrar um titulo no banco do brasil com instrucao de protesto

[eversonluis]

Bom dia!

Venho novamente pedir a quem puder me ajudar, pois nao estou conseguindo colocar titulos registrados no BB , Cnab240, fazer com que eles sejam registrados com instrucao de PROTESTO apos determinado dia, eu mexo, nos campos que tem no HELP e nada muda nas posicoes [221] e [222-223] respectivamente, nao sei como proceder, eu utilizo Acbrmonitorplus.

Anexo estao os arquivos que foram gerados, para facilitar o entendimento

no arquivo CB160206.REM gerado que no registro P, as posicoes que ficam inalteradas.

 

titulos.ini configura.ini cb160206.REM

[Renato Rubinho]

Boa noite,

Quais valores deveriam ser preenchidos nas posições 221 e 222-223?

[eversonluis]

Oi Rubinho, boa noite. Queira me desculpar pelo flooding. em relacao as posicoes [ 221 ] =1   e posicoes [222-223]=NN ( numero de dias que quero usar para protestar )

[Renato Rubinho]

21 minutos atrás, eversonluis disse:

Queira me desculpar pelo flooding

Sem problemas, são só avisos para melhorar o uso do fórum.

Tente assim:

21 minutos atrás, eversonluis disse:

[ 221 ] =1

//cnProtestarCorrido

CodigoNegativacao=1

//diCorridos

TipoDiasProtesto=0           

21 minutos atrás, eversonluis disse:

[222-223]=NN

DataProtesto=dd/mm/yyyy

DiasDeProtesto=NN

 

*** Para entender o contexto, veja o código do componente que trata o preenchimento destes valores.

{C�digo para Protesto / Negativa��o}
      case CodigoNegativacao of
        cnProtestarCorrido :  ACodProtesto := '1';
        cnProtestarUteis   :  ACodProtesto := '2';
        cnNegativar        :  ACodProtesto := '8';
        cnNaoProtestar     :  ACodProtesto := '3';
      else
        case TipoDiasProtesto of
          diCorridos       : ACodProtesto := '1';
        else
          ACodProtesto     := '2';
        end;
      end;

      {Data e Dias de Protesto / Negativa��o}
      if (ACodProtesto = '8') then
      begin
        DataProtestoNegativacao := DateToStr(DataNegativacao);
        DiasProtestoNegativacao := IntToStr(DiasDeNegativacao);
      end
      else
      begin
        if (ACodProtesto <> '3') then
        begin
          DataProtestoNegativacao := DateToStr(DataProtesto);
          DiasProtestoNegativacao := IntToStr(DiasDeProtesto);
        end
        else
        begin
          DataProtestoNegativacao := '';
          DiasProtestoNegativacao := '0';
        end;
      end;

Composição do segmento.

IfThen((DataProtestoNegativacao <> '') and
                      (StrToInt(DiasProtestoNegativacao) > 0), ACodProtesto, '3')       + // 221 - C�digo de protesto
              IfThen((DataProtestoNegativacao <> '') and
                     (StrToInt(DiasProtestoNegativacao) > 0),
                      PadLeft(DiasProtestoNegativacao, 2, '0'), '00')                   + // 222 a 223 - Prazo para protesto (em dias)

 

[eversonluis]

Bom dia sr.Renato, obrigado pela atencao! funcionou perfeito, os campos que nao tinha no meu arquivo foram: DiasDeProtesto e CodigoNegativacao...Obrigado e um excelente carnaval a vc e familia.

[Renato Rubinho]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.