Sintoma

Ao criar uma associação, o campo data da associação vem preenchido com a data do processo origem

(financiamento/antecipado/fatura). Deixar o campo vazio e tornar obrigatório, para que o usuário

informe. Se estiver em período fechado, tratar para não permitir antes de clicar no salvar.

Solução

Retirar data proposta no campo Data da Associação, tornar o mesmo obrigatório e não permitir

utilizar data em período fechado.

Informações Complementares

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

Nota Número 07487 Data: 28/10/2008 Hora: 12:03:11

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

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

Nota Número              : 07487

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00071

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

Referência às notas relacionadas:

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

05895  - 00001 - 7.0    - 00004  - ASSOCIAÇÃO DE FATURAS - CONTABILIZAÇÃO PERIODO FECHADO

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

ASSOCIAÇÃO - DATA DA ASSOCIAÇÃO OBRIGATÓRIA E SEM VALOR PROPOSTO

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

Palavras Chave:

ASSOCIAÇÃO DATA DA ASSOCIAÇÃO OBRIGATÓRIA E SEM VALOR PROPOSTO

/PWS/ZYCBE131-DTASSOC VERIFICAÇÃO PERÍODO FECHADO

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

Objetos da nota:

DYNP /PWS/SAPMZYCB113                        0100

DYNP /PWS/SAPMZYCB113                        0200

DYNP /PWS/SAPMZYCB113                        0300

REPS /PWS/MZYCB113F01

REPS /PWS/MZYCB113I01

REPT /PWS/SAPMZYCB113

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

Modificações efetuadas em DYNP /PWS/SAPMZYCB113                        0100

- MODIFICAR ATRIBUTOS CAMPO /PWS/ZYCBE131-DTASSOC

tornar o campo obrigatório(required/obligatory).

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0100

...

          status_0100_custom.

  CALL SUBSCREEN ss_html INCLUDING syst-cprog v_tela_help.

  LOOP AT itab_zycbt131

    CURSOR tc_faturas_finan-current_line.

    MODULE carrega_zycbe131.

  ENDLOOP.

  MODULE mostra_docto.

PROCESS AFTER INPUT.

  CALL SUBSCREEN ss_html.

  FIELD /pws/zycbe112-bukrs MODULE authority_empresa.

* >> Início da exclusão:

  FIELD /pws/zycbe131-dtassoc MODULE atualiza_data ON CHAIN-REQUEST.

* << Fim da exclusão

* >> Início da inclusão:

  FIELD /pws/zycbe131-dtassoc MODULE atualiza_data.

* << Fim da inclusão

  MODULE limpa_itab_zycbt131_aux4.

  LOOP AT itab_zycbt131.

    FIELD /pws/zycbe131-nrseq_pgfat.

    FIELD /pws/zycbe131-vlme.

    FIELD /pws/zycbe131-belnr     MODULE verifica_condicoes ON REQUEST.

    FIELD itab_zycbt131-mark MODULE verifica_mark ON REQUEST.

    FIELD /pws/zycbe131-parid     MODULE verifica_paridade.

    CHAIN.

      FIELD: /pws/zycbe131-belnr,

             /pws/zycbe131-nrseq_pgfat,

...

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

Modificações efetuadas em DYNP /PWS/SAPMZYCB113                        0200

- MODIFICAR ATRIBUTOS CAMPO /PWS/ZYCBE131-DTASSOC

tornar o campo obrigatório(required/obligatory).

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0200

...

          status_0100_custom.

  CALL SUBSCREEN ss_html INCLUDING syst-cprog v_tela_help.

  LOOP AT itab_zycbt131

    CURSOR tc_faturas_pgfat-current_line.

    MODULE carrega_zycbe131.

  ENDLOOP.

  MODULE mostra_docto.

PROCESS AFTER INPUT.

  MODULE limpa_itab_zycbt131_aux4.

  CALL SUBSCREEN ss_html.

* >> Início da exclusão:

  FIELD /pws/zycbe131-dtassoc MODULE atualiza_data ON CHAIN-REQUEST.

* << Fim da exclusão

* >> Início da inclusão:

  FIELD /pws/zycbe131-dtassoc MODULE atualiza_data.

* << Fim da inclusão

  LOOP AT itab_zycbt131.

    FIELD /pws/zycbe131-nrseq_pgfat.

    FIELD /pws/zycbe131-vlme.

    FIELD /pws/zycbe131-belnr     MODULE verifica_condicoes.

    FIELD itab_zycbt131-mark MODULE verifica_mark ON REQUEST.

    FIELD /pws/zycbe131-parid     MODULE verifica_paridade.

    CHAIN.

      FIELD: /pws/zycbe131-belnr,

             /pws/zycbe131-nrseq_pgfat,

             /pws/zycbe131-vlme,

...

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

Modificações efetuadas em DYNP /PWS/SAPMZYCB113                        0300

- MODIFICAR ATRIBUTOS CAMPO /PWS/ZYCBE131-DTASSOC

tornar o campo obrigatório(required/obligatory).

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0300

...

          status_0100_custom.

  CALL SUBSCREEN ss_html INCLUDING syst-cprog v_tela_help.

  LOOP AT itab_zycbt131

    CURSOR tc_faturas_pgant-current_line.

    MODULE carrega_zycbe131.

  ENDLOOP.

  MODULE mostra_docto.

PROCESS AFTER INPUT.

  MODULE limpa_itab_zycbt131_aux4.

  CALL SUBSCREEN ss_html.

* >> Início da exclusão:

  FIELD /pws/zycbe131-dtassoc MODULE atualiza_data ON CHAIN-REQUEST.

* << Fim da exclusão

* >> Início da inclusão:

  FIELD /pws/zycbe131-dtassoc MODULE atualiza_data.

* << Fim da inclusão

  LOOP AT itab_zycbt131.

    FIELD /pws/zycbe131-nrseq_pgfat.

    field /pws/zycbe131-vlme.

    FIELD /pws/zycbe131-belnr     MODULE verifica_condicoes.

    FIELD itab_zycbt131-mark MODULE verifica_mark ON REQUEST.

    FIELD /pws/zycbe131-parid     MODULE verifica_paridade.

    CHAIN.

      FIELD: /pws/zycbe131-belnr,

             /pws/zycbe131-nrseq_pgfat,

             /pws/zycbe131-vlme,

             /pws/zycbe131-parid.

      MODULE: consiste_parid ON CHAIN-REQUEST,

              altera_itab_zycbt131 ON CHAIN-REQUEST.

    ENDCHAIN.

  ENDLOOP.

* >> Início da exclusão:

  FIELD /pws/zycbe131-dtassoc MODULE verifica_periodo.

* << Fim da exclusão

  MODULE: saldo_antecipado,

          user_command_exit AT EXIT-COMMAND,

          user_command_0300.

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

Modificações efetuadas em REPS /PWS/MZYCB113F01

...

    ENDSELECT.

    IF sy-subrc EQ 0.

      v_encontrou = 'S'.

      v_saldo    = /pws/zycbe112-slassoc.

      v_saldo_pa = /pws/zycbe112-slassoc.

    ENDIF.

    PERFORM lock_record_zycbt112.

    IF v_encontrou EQ 'S'.

      CLEAR v_encontrou.

      IF sy-tcode EQ '/PWS/ZYCB113_C'.

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

        /pws/zycbe131-dtassoc = /pws/zycbe112-dtincl.

* << Fim da exclusão

        PERFORM checa_empresa USING /pws/zycbe112-bukrs.

        CALL SCREEN '0100'.

      ELSE.

        PERFORM carrega_itab_zycbt131.

        PERFORM carrega_itab_zycbt108.

        READ TABLE itab_zycbt131 INDEX 1.

        IF NOT itab_zycbt131-nrseq IS INITIAL.

          SELECT dtassoc

                 UP TO 1 ROWS

                 FROM /pws/zycbt131

...

...

        CLEAR v_encontrou.

      ENDIF.

    ELSE.

      CLEAR v_encontrou.

    ENDIF.

  ENDIF.

  PERFORM lock_record_zycbt117.

  IF v_encontrou = 'S'.

    CLEAR v_encontrou.

    IF sy-tcode EQ '/PWS/ZYCB113_C'.

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

      /pws/zycbe131-dtassoc = /pws/zycbe117-dtincl.

* << Fim da exclusão

      PERFORM checa_empresa USING /pws/zycbe117-bukrs.

      CALL SCREEN '0300'.

    ELSE.

      PERFORM carrega_itab_zycbt131.

      PERFORM carrega_itab_zycbt108.

      READ TABLE itab_zycbt131 INDEX 1.

      IF NOT itab_zycbt131-nrseq IS INITIAL.

        SELECT dtassoc

               UP TO 1 ROWS

               FROM /pws/zycbt131

...

...

        CLEAR v_encontrou.

      ENDIF.

    ELSE.

      CLEAR v_encontrou.

    ENDIF.

  ENDIF.

  PERFORM lock_record_zycbt119.

  IF v_encontrou EQ 'S'.

    CLEAR v_encontrou.

    IF sy-tcode EQ '/PWS/ZYCB113_C'.

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

      /pws/zycbe131-dtassoc = /pws/zycbe119-dtincl.

* << Fim da exclusão

      PERFORM checa_empresa USING /pws/zycbe119-bukrs.

      CALL SCREEN '0200'.

    ELSE.

      PERFORM carrega_itab_zycbt131.

      PERFORM carrega_itab_zycbt108.

      READ TABLE itab_zycbt131 INDEX 1.

      IF NOT itab_zycbt131-nrseq IS INITIAL.

        SELECT dtassoc

               UP TO 1 ROWS

               FROM /pws/zycbt131

...

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

Modificações efetuadas em REPS /PWS/MZYCB113I01

...

    IF /pws/zycbe131-waers NE /pws/zycbe119-waers AND

       /pws/zycbe131-vlme  NE ' ' AND

       /pws/zycbe131-vlme  NE '0.00' AND

       ( /pws/zycbe131-parid IS INITIAL OR

         /pws/zycbe131-parid EQ '0.00000' ).

      MESSAGE e015 WITH text-115 text-116.

    ENDIF.

  ENDIF.

ENDMODULE.

MODULE atualiza_data INPUT.

* >> Início da inclusão: MODULE ATUALIZA_DATA

  DATA:

    v_mes   TYPE t001b-frpe1,

    v_ano   TYPE t001b-frye1,

    v_bukrs TYPE /pws/zycbe117-bukrs,

    v_periv(2).

  IF NOT v_finan IS INITIAL.

    v_bukrs = /pws/zycbe112-bukrs.

  ELSEIF NOT v_pgant IS INITIAL.

    v_bukrs = /pws/zycbe117-bukrs.

  ELSEIF NOT v_pgfat IS INITIAL.

    v_bukrs = /pws/zycbe119-bukrs.

  ENDIF.

  SELECT SINGLE periv FROM t001

               INTO v_periv

               WHERE bukrs EQ v_bukrs.

  CALL FUNCTION 'DETERMINE_PERIOD'

       EXPORTING

            date                = /pws/zycbe131-dtassoc

            version             = v_periv

       IMPORTING

            period              = v_mes

       EXCEPTIONS

            period_in_not_valid = 1

            period_not_assigned = 2

            version_undefined   = 3

            OTHERS              = 4.

  IF sy-subrc = 0. ELSE. ENDIF.

  CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

       EXPORTING

            v_bukrs                = v_bukrs

            v_date                 = /pws/zycbe131-dtassoc

       IMPORTING

            v_year                 = v_ano

       EXCEPTIONS

            variante_de_exercicio  = 1

            data_nao_encontrada    = 2

            empresa_nao_encontrada = 3

            period_in_not_valid    = 4

            period_not_assigned    = 5

            version_undefined      = 6

            OTHERS                 = 7.

  IF sy-subrc = 0. ELSE. ENDIF.

  CALL FUNCTION 'FI_PERIOD_CHECK'

       EXPORTING

            i_bukrs          = v_bukrs

            i_gjahr          = v_ano

            i_koart          = '+'

            i_monat          = v_mes

       EXCEPTIONS

            error_period     = 1

            error_period_acc = 2

            OTHERS           = 3.

  IF sy-subrc <> 0.

    MESSAGE e061 WITH text-118.

  ENDIF.

* << Fim da inclusão

  itab_zycbt131-dtassoc = /pws/zycbe131-dtassoc.

  MODIFY itab_zycbt131 TRANSPORTING dtassoc WHERE nrseq_pgfat NE space.

ENDMODULE.

* >> Início da exclusão: MODULE VERIFICA_PERIODO

MODULE verifica_periodo INPUT.

  DATA:

    v_mes   TYPE t001b-frpe1,

    v_ano   TYPE t001b-frye1,

    v_koart TYPE t001b-mkoar.

  IF ok_code EQ 'SAVE'.

    v_mes = /pws/zycbe131-dtassoc+4(2).

    v_ano = /pws/zycbe131-dtassoc(4).

    v_koart = '+'.

    CALL FUNCTION 'FI_PERIOD_CHECK'

         EXPORTING

              i_bukrs          = /pws/zycbe117-bukrs

              i_gjahr          = v_ano

              i_koart          = v_koart

              i_monat          = v_mes

         EXCEPTIONS

              error_period     = 1

              error_period_acc = 2

              OTHERS           = 3.

    IF sy-subrc <> 0.

      MESSAGE e061 WITH text-118.

    ENDIF.

* >> Fim da exclusão

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

Modificações efetuadas em REPT /PWS/SAPMZYCB113

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 118

Texto: (39 caracteres)

"Data em período fechado. Favor alterar."

Comprimento máximo: 39