Descricao da Ocorrencia

[sorrilha]

Olá amigo;

Como pego a descrição da acorrência na importação do retorno CEF?

Obrigado

 

var
  CodOcorrencia: Integer;
begin
  CodOcorrencia := StrToIntDef(TipoOCorrenciaToCod(TipoOcorrencia),0);

  if (ACBrBanco.ACBrBoleto.LayoutRemessa = c240) then
  begin
    case CodOcorrencia of
      01: Result := '01-Solicitação de Impressão de Títulos Confirmada';
      02: Result := '02-Entrada Confirmada';
      03: Result := '03-Entrada Rejeitada';
      04: Result := '04-Transferência de Carteira/Entrada';
      05: Result := '05-Transferência de Carteira/Baixa';

[Agnaldo Prates]

Bom dia. Embora o questionamento esteja muito vago,  é possível deduzir que você deseja pegar a descrição do tipo de ocorrência, se for isso basta criar uma função para retornar o dado desejado.

Exemplo: Quando desejo saber qual é código de retorno no arquivo, criei a seguinte função:

function TForm1.RetOcorrencia(CodOcorrencia : TACBrTipoOcorrencia) :String;
begin
  case CodOcorrencia of
  (...)
toRetornoLiquidado   : Result :='06';
(...)

  end;
end;
Na leitura:
strCodRetorno := RetOcorrencia(Aboleto1.ListadeBoletos.OcorrenciaOriginal.Tipo);

Não há nenhuma dificuldade.

 

 

 

 

[sorrilha]

Obrigado Agnaldo, era isso mesmo que eu precisava.

Grato.

[sorrilha]

Aproveitando o post, qual comando uso pra mandra a informação na remessa de não protestar?

Obrigado

[Agnaldo Prates]

3 horas atrás, sorrilha disse:

Aproveitando o post, qual comando uso pra mandra a informação na remessa de não protestar?

Obrigado

OcorrenciaOriginal.Tipo :=  toRemessaNaoProtestar,

[sorrilha]

Obrigado Agnaldo!

[sorrilha]

em uma remessa pode enviar vários tipos de ocorrências? Tipo: baixar, protestar, alterar, etc.....

Obrigado

[Agnaldo Prates]

13 horas atrás, sorrilha disse:

em uma remessa pode enviar vários tipos de ocorrências? Tipo: baixar, protestar, alterar, etc.....

Cada boleto possui suas particularidades, portanto não há óbice em enviar no mesmo arquivo de remessa, várias ocorrências.

[sorrilha]

recebi um retono da CEF com "43-PrazoparaBaixa/DevoluçãoInválido"

 

na geração da remessa:

              Vencimento        := cdsFatvencimento.AsDateTime;
              DataDocumento     := date();
              NumeroDocumento   := PadLeft(copy(cdsFatn_numero.AsString,1,10),11,'0');
              EspecieDoc        := cdsFatEspecie.AsString;
              Aceite := atSim;
              DataProcessamento := date();
              NossoNumero       := copy(cdsFatN_numero17.AsString,3,15);
              Carteira          := 'RG';//dtmCad.cdsFatCARTEIRA.AsString;
              ValorDocumento    := cdsFatvalor.AsFloat;
              Sacado.NomeSacado := RemoveAcentos(uppercase(cdsFatnome.AsString));
              Sacado.CNPJCPF    := cdsFatcpf.AsString;
              Sacado.Logradouro := RemoveAcentos(uppercase(cdsFatendereco.AsString));
              Sacado.Numero     := cdsFatnumero.AsString;
              Sacado.Bairro     := RemoveAcentos(uppercase(cdsFatbairro.AsString));
              Sacado.Cidade     := RemoveAcentos(uppercase(cdsFatcidade.AsString));
              Sacado.UF         := cdsFatUF.AsString;
              Sacado.CEP        := cdsFatCEP.AsString;
              ValorAbatimento   := 0;
              LocalPagamento    := RemoveAcentos(uppercase(dtmcad.cdsInstlocal_pagamento.AsString));
              ValorMoraJuros    := cdsFatmora_diaria.AsFloat;
              ValorDesconto     := 0;
              ValorAbatimento   := 0;
              DataMoraJuros     := cdsFatvencimento.AsDateTime;
              dataMulta         := cdsFatvencimento.AsDateTime+1;
              Vencimento        := cdsFatvencimento.AsDateTime;
              DataDocumento     := date();
              NumeroDocumento   := PadLeft(copy(cdsFatn_numero.AsString,1,10),11,'0');
              EspecieDoc        := cdsFatEspecie.AsString;
              Aceite := atSim;
              DataProcessamento := date();
              NossoNumero       := copy(cdsFatN_numero17.AsString,3,15);
              Carteira          := 'RG';//dtmCad.cdsFatCARTEIRA.AsString;
              ValorDocumento    := cdsFatvalor.AsFloat;
              Sacado.NomeSacado := RemoveAcentos(uppercase(cdsFatnome.AsString));
              Sacado.CNPJCPF    := cdsFatcpf.AsString;
              Sacado.Logradouro := RemoveAcentos(uppercase(cdsFatendereco.AsString));
              Sacado.Numero     := cdsFatnumero.AsString;
              Sacado.Bairro     := RemoveAcentos(uppercase(cdsFatbairro.AsString));
              Sacado.Cidade     := RemoveAcentos(uppercase(cdsFatcidade.AsString));
              Sacado.UF         := cdsFatUF.AsString;
              Sacado.CEP        := cdsFatCEP.AsString;
              ValorAbatimento   := 0;
              LocalPagamento    := RemoveAcentos(uppercase(dtmcad.cdsInstlocal_pagamento.AsString));
              ValorMoraJuros    := cdsFatmora_diaria.AsFloat;
              ValorDesconto     := 0;
              ValorAbatimento   := 0;
              DataMoraJuros     := cdsFatvencimento.AsDateTime;
              dataMulta         := cdsFatvencimento.AsDateTime+1;
              databaixa := ????? ESTA LINHA NÃO TINHA QDO EMITI A REMESA, PODE SER ESTE O ERRO? O QUE SERIA ESTE PARAMETRO?
              DataDesconto      := 0;
              DataAbatimento    := 0;
              DataProtesto      := cdsFatdata_protesto.asdateTime;
              PercentualMulta   := cdsFatmulta.AsFloat;
              Mensagem.Text     := '';
              OcorrenciaOriginal.Tipo := toRemessaregistrar;
              DataDesconto      := 0;
              DataAbatimento    := 0;
              DataProtesto      := cdsFatdata_protesto.asdateTime;
              PercentualMulta   := cdsFatmulta.AsFloat;
              Mensagem.Text     := '';
              OcorrenciaOriginal.Tipo := toRemessaregistrar;

 

Agradeço pelas respostas.