Sintoma

Necessidade de criação de parâmetro para que seja possível parametrizar a moeda para uma Prestação

de Contas.

Solução

Desenvolver o parâmetro no programa de controle da tabela /PWS/ZYCET037 e adaptá-lo ao programa de

Prestação de Contas.

Informações Complementares

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

Nota Número 00376 Data: 01/12/2005 Hora: 09:57:50

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

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

Nota Número              : 00376

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 6.0

Pacote                   : 00021

Agrupamento              : 00090

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

Referência às notas relacionadas:

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

00296  - 00001 - 6.0    - 00021  - ATUALIZAÇÃO DOS CAMPOS DO PROGRAMA DE PARÂMETROS GERAIS DE EXPORT

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

PARÂMETRO DE MOEDA PARA A PRESTAÇÃO DE CONTAS

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

Palavras Chave:

CONTAS; PRESTAÇÃO; MOEDA; PARÂMETRO

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

Objetos da nota:

DYNP /PWS/SAPMZYCE037                        1130

DYNP /PWS/SAPMZYCE037                        1220

REPS /PWS/MZYCE013F01

REPS /PWS/MZYCE037F01

REPS /PWS/MZYCE037I01

REPS /PWS/SAPMZYCE013

REPS /PWS/SAPMZYCE037

TABD /PWS/ZYCET037

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

Modificações efetuadas em DYNP /PWS/SAPMZYCE037                        1130

* >>Modificação em Lógica de Processamento de tela 1130<<

PROCESS BEFORE OUTPUT.

  MODULE: set_screen_standard,

          set_page_2.

  CALL SUBSCREEN ss3 INCLUDING syst-cprog '1200'.

  CALL SUBSCREEN ss4 INCLUDING syst-cprog '1210'.

* >> Início da inclusão: TELA 1130

  CALL SUBSCREEN ss5 INCLUDING syst-cprog '1220'.

* << Fim da inclusão: TELA 1130

PROCESS AFTER INPUT.

  CALL SUBSCREEN ss3.

  CALL SUBSCREEN ss4.

* >> Início da inclusão: TELA 1130

  CALL SUBSCREEN ss5.

* << Fim da inclusão: TELA 1130

  MODULE user_command_1130.

* >>Modificação em layout de tela 1130<<

Foi criada a aba de Tabstrip nomeada FC_WAERS, e uma subtela SS5 dentro do Registro desta Tabstrip.

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

Modificações efetuadas em DYNP /PWS/SAPMZYCE037                        1220

Dentro da subtela SS5, foi incluído o campo /PWS/ZYCET037-WAERS_PREST.

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

Modificações efetuadas em REPS /PWS/MZYCE013F01

FORM load_data.

  DATA: v_line LIKE sy-tabix.

  CLEAR okcode.

  CASE sy-dynnr.

    WHEN '0001'.

...

    WHEN '0100'.

      IF v_init NE 'N'.

        v_init = 'N'.

        PERFORM select_parameter USING '3'.

        IF NOT wa_zycet037-waers_prest IS INITIAL

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

           AND itab_zycet018[] IS INITIAL.

* << Fim da exclusão

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

           AND itab_zycet018[] IS INITIAL

           AND sy-tcode EQ '/PWS/ZYCE013_C'.

* << Fim da inclusão

          /pws/zycee033-waers = wa_zycet037-waers_prest.

        ENDIF.

        PERFORM: atualiza_total.

        SELECT SINGLE * FROM /pws/zycet001

            INTO wa_zycet001

...

        ENDIF.

      ENDIF.

  ENDCASE.

  PERFORM busca_exit USING 'PDC008'.

ENDFORM.                    " load_data

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

Modificações efetuadas em REPS /PWS/MZYCE037F01

* >>Não houveram alterações relevantes neste include<<

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

Modificações efetuadas em REPS /PWS/MZYCE037I01

MODULE user_command_1130 INPUT.

  CASE sy-ucomm.

    WHEN 'FC_CONG'.

      gtab4 = sy-ucomm.

    WHEN 'FC_CONE'.

      gtab4 = sy-ucomm.

* >> Início da inclusão: MODULE USER_COMMAND_1130 INPUT

    WHEN 'FC_WAERS'.

      gtab4 = sy-ucomm.

* << Fim da inclusão: MODULE USER_COMMAND_1130 INPUT

  ENDCASE.

  CLEAR sy-ucomm.

ENDMODULE.                 " user_command_1130  INPUT

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

Modificações efetuadas em REPS /PWS/SAPMZYCE013

* >>Não houveram alterações relevantes neste include<<

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

Modificações efetuadas em REPS /PWS/SAPMZYCE037

* >>Não houveram alterações relevantes neste include<<

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

Modificações efetuadas em TABD /PWS/ZYCET037

* >>Foi criado o campo WAERS_PREST na tabela transparente /PWS/ZYCET037<<

*      Nome de campo    Chv Elem.dados     Tab.verif. CtDt     Comp. Grupo

       WAERS_PREST          WAERS                     CUKY     5