Sintoma

Não está sendo possível criar processamento de boleto para pagamento de juros de ACC.

Está sendo possível estornar boleto de pagamento de juros de ACC em que o contrato está encerrado

(Boleto sem saída de pagamento).

Solução

Altera include /PWS/MZYGL110F01, para que o programa diferencie verifique corretamente a despesa

exportação da exportação de captação e par não mais permitir estorno de contratos já encerrados.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 06132 Data: 07/03/2008 Hora: 17:41:01

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 06132

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00037

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

04594  - 00001 - 7.0    - 00002  - COTAÇÃO MOEDA - MODIFICAR/EXCLUIR

06077  - 00002 - 7.0    - 00004  - DESPESAS DE EXPORTAÇÃO

----------------------------------------------------------------------------------------------------

COMPLEMENTO DO BOLETO

----------------------------------------------------------------------------------------------------

Palavras Chave:

COMPLEMENTO DO BOLETO

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYGL110F01

REPT /PWS/SAPMZYCB110

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL110F01

...

      MESSAGE i015 WITH itab_zycbt032-msg.

    ENDLOOP.

    IF sy-subrc = 0.

      erro_bi = 'X'.

    ENDIF.

  ENDIF.

ENDFORM.

FORM excluir_dados.

  ok_code = sy-ucomm.

  w_ok    = sy-ucomm.

* >> Início da inclusão: FORM EXCLUIR_DADOS

  SELECT * UP TO 1 ROWS

    FROM /pws/zycbt001

   WHERE /pws/zycbt001~nrseqc = /pws/zycbe031-nrcorresp.

  ENDSELECT.

  IF sy-subrc = 0.

    IF /pws/zycbt001-f_encerrado = 'E'.

      MESSAGE e061(/pws/zycbm) WITH

        'Não é possível estornar boleto,'(456)

        'para captação encerrada.'(457).

    ENDIF.

  ENDIF.

* << Fim da inclusão

  SELECT SINGLE * FROM /pws/zycbt236 INTO /pws/zycbe236

    WHERE nrboleto = itab_zycbt031-nrseq.               "#EC CI_NOFIRST

  IF sy-subrc EQ 0.

    IF v_prog_origem NE c_prog_cotacao.

      MESSAGE e061(/pws/zycbm) WITH

        'Existe cotação para esse boleto,'(261)

        'exclusão não permitida.'(262).

    ENDIF.

  ENDIF.

  IF v_resp IS INITIAL.

...

...

      PERFORM contabiliza_ip.

    WHEN 'IF'.

      PERFORM contabiliza_if.

    WHEN 'ID'.

      PERFORM contabiliza_id.

    WHEN 'IA'.

      PERFORM contabiliza_ia.

    WHEN 'EL'.

      PERFORM contabiliza_el.

    WHEN 'EC' OR 'ED'.

* >> Início da exclusão: FORM EXECUTA_BATCH

      IF /pws/zycbe031-mdcorresp = 'ED'.

* << Fim da exclusão

* >> Início da inclusão: FORM EXECUTA_BATCH

      IF /pws/zycbe031-mdcorresp = 'ED' AND

* << Fim da inclusão

        /pws/zycbe031-tabela = '/PWS/ZYCBT118'.

        PERFORM contabiliza_ed_e.

      ELSE.

        PERFORM verifica_contabiliza_ed.

      ENDIF.

    WHEN 'EJ'.

      PERFORM contabiliza_ej.

    WHEN 'EP'.

      /pws/zycbe031-belnr_p = itab_zycet033-docfat.

      /pws/zycbe031-frgzu   = '2'.

...

...

  IF /pws/zycbt118-fcambio = 'N'.

    v_status_s = '0'.

  ELSEIF /pws/zycbt118-fcambio = 'S'.

    IF v_status_despesa = '1'.

      v_status_despesa = '0'.

    ELSE.

      v_status_despesa = '1'.

    ENDIF.

  ENDIF.

  IF v_desp_a = 'A'.

* >> Início da inclusão: FORM DESABILITAR_100

    v_altera_dtliquid = 'X'.

* << Fim da inclusão

    v_status_despesa = '1'.

    v_desp_a = 'F'.

  ENDIF.

  IF v_status_s = '1'.

    SELECT SINGLE * FROM /pws/zycbt134

           WHERE nrseq    = /pws/zycbe031-nrseq AND

                 dtboleto = /pws/zycbe031-dtboleto.

    IF sy-subrc EQ 0.

      IF v_altera_dtliquid = 'X'.

        v_altera_dtliquid = ' '.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPT /PWS/SAPMZYCB110

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 456

Texto: (31 caracteres)

"Não é possível excluir o boleto"

Comprimento máximo: 36

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 457

Texto: (24 caracteres)

"para captação encerrada."

Comprimento máximo: 29