Sicoob posicao 16 e 17

[jeferson souza]

meu arquivo de remessa foi rejeitado pelo banco pois nessas posicoes foi 02 e tem q ser 01....onde mudo no componente? eu fiz manual dentro do arquivo trocando para 01 nas entradas p q r s de suas linhas

[BigWings]

Verifique como está passando a propriedade Titulo.OcorrenciaOriginal.Tipo.

[jeferson souza]

desculpe mas nao encontrei essa propriedade....fica no componente acbrboleto ?

[BigWings]

Sim:

var
  Titulo: TACBrTitulo;
begin
  Titulo := ACBrBoleto1.CriarTituloNaLista;
  Titulo.OcorrenciaOriginal.Tipo := toRemessaRegistrar;

 

[jeferson souza]

tentei mas nao deu certo.....é a posição 16 e 17 das entradas P, Q, R e S está gerando com 02 mas tem q ser 01

[BigWings]

Você deve estar informando que a remessa é do tipo baixa e não registro.

Veja nos fontes, como é obtido esse código:

      {SEGMENTO P}
      {Pegando o Tipo de Ocorrencia}
      case OcorrenciaOriginal.Tipo of
        toRemessaBaixar                        : ATipoOcorrencia := '02';
        toRemessaConcederAbatimento            : ATipoOcorrencia := '04';
        toRemessaCancelarAbatimento            : ATipoOcorrencia := '05';
        toRemessaAlterarVencimento             : ATipoOcorrencia := '06';
        toRemessaConcederDesconto              : ATipoOcorrencia := '07';
        toRemessaCancelarDesconto              : ATipoOcorrencia := '08';
        toRemessaProtestar                     : ATipoOcorrencia := '09';
        toRemessaCancelarInstrucaoProtestoBaixa: ATipoOcorrencia := '10';
        toRemessaCancelarInstrucaoProtesto     : ATipoOcorrencia := '11';
        toRemessaOutrasOcorrencias             : ATipoOcorrencia := '31';
      else
       ATipoOcorrencia := '01';
      end;

Na geração do registro P a posição 16 a 17:

      Result:= IntToStrZero(ACBrBanco.Numero, 3)                             + //1 a 3 - Código do banco
               '0001'                                                        + //4 a 7 - Lote de serviço
               '3'                                                           +
               IntToStrZero((FNumeroSequencialRegistroNoLote)+ 1 ,5)                                       + //9 a 13 - Número seqüencial do registro no lote - Cada registro possui dois segmentos
               'P'                                                           + //14 - Código do segmento do registro detalhe
               ' '                                                           + //15 - Uso exclusivo FEBRABAN/CNAB: Branco
               ATipoOcorrencia                                               + //16 a 17 - Código de movimento
               '0'                                                           + // 18

[...]