Sintoma

No Recebimento criar ajuda de Pesquisa no Campo Serie /PWS/ZYCIT504-SERIE

Solução

No Recebimento criar ajuda de Pesquisa no Campo Serie /PWS/ZYCIT504-SERIE

Informações Complementares

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

Nota Número 09875 Data: 25/02/2010 Hora: 16:19:02

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

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

Nota Número              : 09875

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00002

Agrupamento              : 00010

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

RECEBIMENTO CRIA AJUDA DE PESQUISA NO CAMPO SERIE /PWS/ZYCIT504-SERIE

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

Palavras Chave:

RECEBIMENTO - AJUDA - PESQUISA - /PWS/ZYCIT504 - SERIE

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

Objetos da nota:

SHLP /PWS/ZYCIA350

DYNP /PWS/SAPMZYCI017                        0112

REPS /PWS/MZYCI017I01

REPS /PWS/MZYCI017O01

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

Modificações efetuadas em SHLP /PWS/ZYCIA350

* CRIAR AJUDA DE PESQUISA

MODIFICAR AJUDA DE PESQUISA: /PWS/ZYCIA350

DESCRIÇÃO BREVE: CI - Series

DEFINIÇÃO

OBTENÇÃO DE DADOS

MÉTODO DE SELEÇÃO: EQUI

COMPORTAMENTO DE DIÁLOGO

TIPO DE DIÁLOGO: Exibição de valores imediata

HOT KEY: ____

EXIT AJUD. PESQUISA: _________________________________

PARÂMETROS:

PARAM.    IMP EXP POSL ISEL EXAJ ELEM. DADOS  MOD  VALOR PROPOSTO

SERNR          X   1     1       GERNR

S_EQBS             0     0       KZEQBS            ''

MATNR     X        0     0       MATNR

* CRIAR AJUDAR DE PESQUISA NA TABELA /PWS/ZYCIT504 NO CAMPO SERIE

Parâmetro de ajuda de p/pesquisa      Nome da Tabela   Nome de Campo

SERNR                               /PWS/ZYCIT504 SERIE

MATNR                               /PWS/ZYCIT504 MATNR

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI017                        0112

INCLUIR CAMPO TEXTO "/PWS/ZYCIT504-SERIE" em tbl.contr./tabstr.

Altura                   18

Comprimento Visível      18

Linha                    1

Coluna                   1

Formato                  CHAR

Linhas mínimas           18

Texto                    __________________

Código função

INCLUIR TEXTO "/PWS/ZYCIT504-SERIE" em tbl.contr./tabstr.

Altura                   18

Comprimento Visível      15

Linha                    1

Coluna                   1

Formato                  CHAR

Texto                    Nº de série

EXCLUIR CAMPO TEXTO "ITAB_ZYCIT504-SERIE" em tbl.contr./tabstr.

EXCLUIR TEXTO "ITAB_ZYCIT504-SERIE" em tbl.contr./tabstr.

MODIFICAR CONTROLE DE TABELA "TC_SERIE"

Comprimento Visível      29

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

Modificações efetuadas em REPS /PWS/MZYCI017I01

...

             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

    ENDIF.

  ENDIF.

ENDMODULE.

MODULE user_command INPUT.

  IF sy-dynnr EQ '0112' .

    PERFORM user_command_0112.

  ENDIF.

ENDMODULE.

MODULE carrega_itab INPUT.

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

  itab_zycit504 = /pws/zycit504.

* << Fim da inclusão

  IF sy-dynnr EQ '0112'.

    IF v_existe_nfr NE 'S'.

      itab_zycit504-mandt     = sy-mandt.

      itab_zycit504-nrseqnf   = itab_zycit042-nrseqnf  .

      itab_zycit504-nrseq     = itab_zycit042-nrseq    .

      itab_zycit504-nfglobal  = itab_zycit042-nfglobal .

      itab_zycit504-ebeln     = itab_zycit042-ebeln    .

      itab_zycit504-ebelp     = itab_zycit042-ebelp    .

      itab_zycit504-matnr     = itab_zycit042-matnr    .

    ELSE.

...

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

Modificações efetuadas em REPS /PWS/MZYCI017O01

...

    IF itab_nfg-delete NE 'S'.

      MOVE itab_nfg TO itab_nf.

      APPEND itab_nf.

    ENDIF.

  ENDLOOP.

ENDMODULE.

MODULE status OUTPUT.

  SET PF-STATUS '0112'.

ENDMODULE.

MODULE screen_lines OUTPUT.

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

  /pws/zycit504 = itab_zycit504.

  /pws/zycit504-matnr = V_MATNR.

* << Fim da inclusão

  CASE sy-dynnr.

    WHEN '0112'.

      IF v_existe_nfr NE 'S' .

        tc_serie-lines  = itab_zycit042-qtd_iten .

      ELSE.

        tc_serie-lines  = itab_zycit044-qtd_item .

      ENDIF.

  ENDCASE.

ENDMODULE.