Campo "Espécie de Título" - SICREDI

[Kirliam Maciel Dias]

  Boa tarde!

  Qual campo devo adicionar ao boleto.ini para modificar a espécie do titulo para o Sicredi?

  Preciso colocar "Duplicata Mercantil" (03), está sendo gerado como "Outros" (99).

 

 

[Kirliam Maciel Dias]

Acho que descobri, coloquei "DMI" e deu certo.

[Diego Foliene]

Que bom que deu certo de encontrar a solução!

Apenas para registro, no caso do CNAB 240:

      if AnsiSameText(EspecieDoc, 'CH') then
        Result := '01'
      else
      if AnsiSameText(EspecieDoc, 'DM') then
        Result := '02'
      else
      if AnsiSameText(EspecieDoc, 'DMI') then
        Result := '03'
      else
      if AnsiSameText(EspecieDoc, 'DS') then
        Result := '04'
      else
      if AnsiSameText(EspecieDoc, 'DSI') then
        Result := '05'
      else
      if AnsiSameText(EspecieDoc, 'DR') then
        Result := '06'
      else
      if AnsiSameText(EspecieDoc, 'LC') then
        Result := '07'
      else
      if AnsiSameText(EspecieDoc, 'NCC') then
        Result := '08'
      else
      if AnsiSameText(EspecieDoc, 'NCE') then
        Result := '09'
      else
      if AnsiSameText(EspecieDoc, 'NCI') then
        Result := '10'
      else
      if AnsiSameText(EspecieDoc, 'NCR') then
        Result := '11'
      else
      if AnsiSameText(EspecieDoc, 'NP') then
        Result := '12'
      else
      if AnsiSameText(EspecieDoc, 'NPR') then
        Result := '13'
      else
      if AnsiSameText(EspecieDoc, 'TM') then
        Result := '14'
      else
      if AnsiSameText(EspecieDoc, 'TS') then
        Result := '15'
      else
      if AnsiSameText(EspecieDoc, 'NS') then
        Result := '16'
      else
      if AnsiSameText(EspecieDoc, 'RC') then
        Result := '17'
      else
      if AnsiSameText(EspecieDoc, 'FAT') then
        Result := '18'
      else
      if AnsiSameText(EspecieDoc, 'ND') then
        Result := '19'
      else
      if AnsiSameText(EspecieDoc, 'AP') then
        Result := '20'
      else
      if AnsiSameText(EspecieDoc, 'ME') then
        Result := '21'
      else
      if AnsiSameText(EspecieDoc, 'PC') then
        Result := '22'
      else
      if AnsiSameText(EspecieDoc, 'NF') then
        Result := '23'
      else
      if AnsiSameText(EspecieDoc, 'DD') then
        Result := '24'
      else
      if AnsiSameText(EspecieDoc, 'CPR') then
        Result := '25'
      else
        Result := '99';

 

[Diego Foliene]

Obrigado por reportar.

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