Sintoma

Quando a rotina de mensal for estorno os campos "Nº Contrato" e "Tipo de contrato" devem ficar

fechados, sendo obrigatório rodar todos os contratos de uma só vez. Esses campos só ficam abertos

para a opção "Relatórios".

Solução

Se a Rotina Mensal for Estorno Mensal, obrigar provisionar para todos os contratos, não permitindo

filtrar por Nro. Contrato e por Tipo Contrato. Somente na opção Relatório os campos Nro. Contrato e

Tipo Contrato ficarão abertos para filtro.

Informações Complementares

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

Nota Número 01253 Data: 26/04/2006 Hora: 09:43:33

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

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

Nota Número              : 01253

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00023

Agrupamento              : 00111

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ROTINA MENSAL EXPORTAÇÃO - ESTORNO MENSAL - INIBIÇÃO CAMPOS SELEÇÃO

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

Palavras Chave:

ROTINA MENSAL EXPORTAÇÃO ESTORNO MENSAL INIBIÇÃO CAMPOS

TELA SELEÇÃO NUMERO TIPO CONTRATO

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

Objetos da nota:

REPS /PWS/ZYCBR003

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

Modificações efetuadas em REPS /PWS/ZYCBR003

...

SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.

SELECT-OPTIONS s_bukrs FOR /pws/zycbt001-bukrs.

PARAMETERS: s_dtentr LIKE sy-datum.

SELECTION-SCREEN END OF BLOCK a1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-046.

* >> Início da exclusão:

PARAMETERS: s_rbrotm RADIOBUTTON GROUP rg1,

* << Fim da exclusão

* >> Início da inclusão:

PARAMETERS: s_rbrotm RADIOBUTTON GROUP rg1 USER-COMMAND s_rbrotm,

* << Fim da inclusão

            s_rbrotd RADIOBUTTON GROUP rg1,

            s_rbrela RADIOBUTTON GROUP rg1.

SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN BEGIN OF BLOCK c3 WITH FRAME TITLE text-045.

PARAMETERS: s_rbmens RADIOBUTTON GROUP rg2,

...

...

SELECT-OPTIONS: s_nrseqc FOR /pws/zycbt001-nrseqc

                         MATCHCODE OBJECT /pws/zycba050,

                s_tpcont FOR /pws/zycbt001-tpcontr.

SELECTION-SCREEN END OF BLOCK d4.

INCLUDE /pws/zycbi003.

* >> Início da inclusão:

INITIALIZATION.

  SELECT SINGLE fprovisao FROM /pws/zycbt007 INTO wa_zycbt007-fprovisao.

  CHECK wa_zycbt007-fprovisao IS INITIAL.

  LOOP AT SCREEN.

    IF screen-name EQ 'S_NRSEQC-LOW'  OR

       screen-name EQ 'S_NRSEQC-HIGH' OR

       screen-name EQ 'S_TPCONT-LOW'  OR

       screen-name EQ 'S_TPCONT-HIGH'.

      CLEAR:   s_nrseqc, s_tpcont.

      REFRESH: s_nrseqc, s_tpcont.

      screen-input = '0'.

      MODIFY SCREEN.

    ENDIF.

  ENDLOOP.

* << Fim da inclusão

TOP-OF-PAGE.

  PERFORM exibe_cabecalho.

START-OF-SELECTION.

  PERFORM seleciona_dados.

  PERFORM processa_dados.

...

...

                OTHERS         = 2.

      IF sy-subrc <> 0.

        MESSAGE i015 WITH text-120.

      ENDIF.

  ENDCASE.

* >> Início da inclusão:

AT SELECTION-SCREEN OUTPUT.

  CHECK wa_zycbt007-fprovisao IS INITIAL.

  IF NOT s_rbrotm IS INITIAL OR

     NOT s_rbrotd IS INITIAL.

    LOOP AT SCREEN.

      IF screen-name EQ 'S_NRSEQC-LOW'  OR

         screen-name EQ 'S_NRSEQC-HIGH' OR

         screen-name EQ 'S_TPCONT-LOW'  OR

         screen-name EQ 'S_TPCONT-HIGH'.

        CLEAR:   s_nrseqc, s_tpcont.

        REFRESH: s_nrseqc, s_tpcont.

        screen-input = '0'.

        MODIFY SCREEN.

      ENDIF.

    ENDLOOP.

  ELSEIF NOT s_rbrela IS INITIAL.

    LOOP AT SCREEN.

      IF screen-name EQ 'S_NRSEQC-LOW'  OR

         screen-name EQ 'S_NRSEQC-HIGH' OR

         screen-name EQ 'S_TPCONT-LOW'  OR

         screen-name EQ 'S_TPCONT-HIGH'.

        screen-input = '1'.

        MODIFY SCREEN.

      ENDIF.

    ENDLOOP.

  ENDIF.

* << Fim da inclusão

FORM seleciona_dados.

  DATA: v_f_encerrado   LIKE /pws/zycbt001-f_encerrado,

        v_flag_e        LIKE /pws/zycbt001-f_encerrado,

        wa_zycbt002_aux LIKE /pws/zycbt002.

  DATA: BEGIN OF itab_zycbt216 OCCURS 0.

...