Sintoma

Valores Mantidos no Exterior , Sistema de Moeda Local -ajuda de pesquisa

para campos Fatura e Seq. Ordem de pagto na opção de modificação.

Não aparece a fatura ou o sequencial na ajuda de pesquisa

Solução

criar ajuda de pesquisa para campos fatura e n. sequencial da ordem de pagto pela tab.226

Informações Complementares

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

Nota Número 09369 Data: 12/11/2009 Hora: 16:50:36

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

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

Nota Número              : 09369

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00001

Agrupamento              : 00122

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

VALORES MANTIDOS NO EXTERIOR , SISTEMA DE MOEDA LOCAL -AJUDA DE PESQUISA

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

Palavras Chave:

VALORES MANTIDOS NO EXTERIOR , SISTEMA DE MOEDA LOCAL -AJUDA DE PESQUISA

PARA CAMPOS FATURA E SEQ. ORDEM DE PAGTO NA OPÇÃO DE MODIFICAÇÃO

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

Objetos da nota:

FUNC /PWS/ZYCBA296

FUNC /PWS/ZYCBA297

REPS /PWS/LZYCBGF3UXX

REPS /PWS/MZYCB034TOP

SHLP /PWS/ZYCBA296

SHLP /PWS/ZYCBA297

TABD /PWS/ZYCBE226

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

Criação  efetuadas em FUNC /PWS/ZYCBA296

CRIAR MÓDULO DE FUNÇÃO: /PWS/ZYCBA296

CARACTERÍSTICAS

CLASSIFICAÇÃO:

GRUPO DE FUNÇÕES: /PWS/ZYCBGF3

TEXTO BREVE: CB - Faturas - VME / SML

TIPO DE EXECUÇÃO:

(X) - MÓDULO DE FUNÇÃO NORMAL

(_) - MÓDULO DE ACESSO REMOTO

(_) - MÓDULO DE ATUALIZAÇÃO

     (X) - INÍCIO IMEDIATO

     (_) - INÍCIO IMEDIATO-SEM ATUAL.POSTER.

     (_) - INÍC. RETARDADO

     (_) - PROCES. CLOETIVO

DADOS GERAIS:

(_) - BLOQUEIO PROCESSO

(_) - GLOBAL

IMPORTAÇÃO:

NOME PARAM.   ATRIB. TIPO REFERÊNCIA  VL. PROPOSTO OPCIONAL TRANSF. TEXT

EXPORTAÇÃO:

NOME PARAM.   ATRIB. TIPO REFERÊNCIA   TRANSF.  TEXTO BREVE

MODIFIC.:

NOME PARAM.   ATRIB. TIPO REFERÊNCIA  VL. PROPOSTO OPCIONAL TRANSF. TEXT

SHLP           TYPE   SHLP_DESCR_T                            x

CALLCONTROL    LIKE   DDSHF4CTRL                              x    Estrutura contr.p/exec.F4 c/exit

                                                                   ajuda p/pesq.

TABELAS:

NOME PARAM.   ATRIB. TIPO REFERÊNCIA      OPCIONAL TEXTO BREVE

SHLP_TAB       TYPE    SHLP_DESCR_TAB_T

RECORD_TAB     LIKE    SEAHLPRES                     Ajuda pesq.estr.resultado

EXCEÇÕES:

EXCEÇÃO                    TEXTO BREVE

TEXTO FONTE :

function /pws/zycba296.

*"----------------------------------------------------------------------

*"*"Interface local:

*"  TABLES

*"      SHLP_TAB TYPE  SHLP_DESCR_TAB_T

*"      RECORD_TAB STRUCTURE  SEAHLPRES

*"  CHANGING

*"     VALUE(SHLP) TYPE  SHLP_DESCR_T

*"     VALUE(CALLCONTROL) LIKE  DDSHF4CTRL STRUCTURE  DDSHF4CTRL

*"----------------------------------------------------------------------

  type-pools:

    shlp.

  types:

    begin of t_s_dados,

      nrseq        type /pws/zycbt226-nrseq,

      nrinvoic     type /pws/zycbt226-nrinvoic,

      nrparcf      type /pws/zycbt226-nrparcf,

      gsberf       type /pws/zycbt226-gsberf,

      bukrs        type /pws/zycbt226-bukrs,

      kunag        type /pws/zycbt226-kunag,

      waers        type /pws/zycbt226-waers,

      dtcredext    type /pws/zycbt226-dtcredext,

      dtincl       type /pws/zycbt226-dtincl,

      origem_op    type /pws/zycbt226-origem_op,

    end of t_s_dados,

    t_t_dados type standard table of t_s_dados.

  data:

    itab_dados     type t_t_dados with header line,

    wa_dados       like line of itab_dados,

    v_sml          type c,

    v_fieldname    type dfies-lfieldname,

    v_tabix        type sy-tabix.

  data: begin of itab_zycbt007 occurs 0.

          include structure /pws/zycbt007.

  data: end of itab_zycbt007.

  field-symbols:

    <fs_shlp>       like line of shlp_tab,

    <fs_fielddescr> like line of shlp_tab-fielddescr,

    <fs_dados>      like line of itab_dados.

  if callcontrol-step = 'DISP'.

* Busca na tabela shlp_tab os nomes dos campos

    read table shlp_tab index 1 assigning <fs_shlp>.

    check <fs_shlp> is assigned.

    loop at <fs_shlp>-fielddescr assigning <fs_fielddescr>.

* Transfere os dados da record_tab para os respectivos campos da

* tabela interna

      check:

             <fs_fielddescr>-fieldname = 'NRSEQ'      or

             <fs_fielddescr>-fieldname = 'NRINVOIC'   or

             <fs_fielddescr>-fieldname = 'NRPARCF'    or

             <fs_fielddescr>-fieldname = 'GSBERF'     or

             <fs_fielddescr>-fieldname = 'BUKRS'      or

             <fs_fielddescr>-fieldname = 'KUNAG'      or

             <fs_fielddescr>-fieldname = 'WAERS'      or

             <fs_fielddescr>-fieldname = 'DTCREDEXT'  or

             <fs_fielddescr>-fieldname = 'DTINCL'     or

             <fs_fielddescr>-fieldname = 'ORIGEM_OP'  .

      v_fieldname = <fs_fielddescr>-fieldname.

*** CUIDADO AO EFETUAR SORT NA TABELA INTERNA ESPELHO DA RECORD_TAB,

*** POIS A FUNÇÃO TRANSFERE OS REGISTROS (PUT/GET) BASEADO NO INDÍCE

*** E NÃO NA CHAVE.

      call function 'F4UT_PARAMETER_VALUE_GET'

           exporting

                parameter         = <fs_fielddescr>-fieldname

                fieldname         = v_fieldname

           tables

                shlp_tab          = shlp_tab

                record_tab        = record_tab

                results_tab       = itab_dados

           changing

                shlp              = shlp

                callcontrol       = callcontrol

           exceptions

                parameter_unknown = 0

                others            = 0.

      if sy-subrc <> 0.

        exit.

      endif.

    endloop.

    unassign: <fs_shlp>, <fs_fielddescr>.

endif.

   if  callcontrol-step eq 'RETURN'.

   endif.

  if not v_sml is initial.

    clear v_sml.

    export v_sml to memory id 'SML'.

  endif.

endfunction.

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

Criaçao efetuadas em FUNC /PWS/ZYCBA297

CRIAR MÓDULO DE FUNÇÃO: /PWS/ZYCBA297

CARACTERÍSTICAS

CLASSIFICAÇÃO:

GRUPO DE FUNÇÕES:/PWS/ZYCBGF3

TEXTO BREVE: CB - Faturas - VME / SML

TIPO DE EXECUÇÃO:

(X) - MÓDULO DE FUNÇÃO NORMAL

(_) - MÓDULO DE ACESSO REMOTO

(_) - MÓDULO DE ATUALIZAÇÃO

     (X) - INÍCIO IMEDIATO

     (_) - INÍCIO IMEDIATO-SEM ATUAL.POSTER.

     (_) - INÍC. RETARDADO

     (_) - PROCES. CLOETIVO

DADOS GERAIS:

(_) - BLOQUEIO PROCESSO

(_) - GLOBAL

IMPORTAÇÃO:

NOME PARAM.   ATRIB. TIPO REFERÊNCIA  VL. PROPOSTO OPCIONAL TRANSF. TEXT

EXPORTAÇÃO:

NOME PARAM.   ATRIB. TIPO REFERÊNCIA   TRANSF.  TEXTO BREVE

MODIFIC.:

NOME PARAM.   ATRIB. TIPO REFERÊNCIA  VL. PROPOSTO OPCIONAL TRANSF. TEXT

SHLP           TYPE   SHLP_DESCR_T                            x

CALLCONTROL    LIKE   DDSHF4CTRL                              x    Estrutura contr.p/exec.F4 c/exit

                                                                   ajuda p/pesq.

TABELAS:

NOME PARAM.   ATRIB. TIPO REFERÊNCIA      OPCIONAL TEXTO BREVE

SHLP_TAB       TYPE    SHLP_DESCR_TAB_T

RECORD_TAB     LIKE    SEAHLPRES                     Ajuda pesq.estr.resultado

EXCEÇÕES:

EXCEÇÃO                    TEXTO BREVE

TEXTO FONTE :

function /pws/zycba297.

*"----------------------------------------------------------------------

*"*"Interface local:

*"  TABLES

*"      SHLP_TAB TYPE  SHLP_DESCR_TAB_T

*"      RECORD_TAB STRUCTURE  SEAHLPRES

*"  CHANGING

*"     VALUE(SHLP) TYPE  SHLP_DESCR_T

*"     VALUE(CALLCONTROL) LIKE  DDSHF4CTRL STRUCTURE  DDSHF4CTRL

*"----------------------------------------------------------------------

  type-pools:

    shlp.

  types:

    begin of t_s_dados,

      nrseq        type /pws/zycbt226-nrseq,

      nrinvoic     type /pws/zycbt226-nrinvoic,

      bukrs        type /pws/zycbt226-bukrs,

      gsberf       type /pws/zycbt226-gsberf,

      nrparcf      type /pws/zycbt226-nrparcf,

      kunag        type /pws/zycbt226-kunag,

      dtincl       type /pws/zycbt226-dtincl,

      dtcredext    type /pws/zycbt226-dtcredext,

      waers        type /pws/zycbt226-waers,

      origem_op    type /pws/zycbt226-origem_op,

    end of t_s_dados,

    t_t_dados type standard table of t_s_dados.

  data:

    itab_dados     type t_t_dados with header line,

    wa_dados       like line of itab_dados,

    v_sml          type c,

    v_fieldname    type dfies-lfieldname,

    v_tabix        type sy-tabix.

  data: begin of itab_zycbt007 occurs 0.

          include structure /pws/zycbt007.

  data: end of itab_zycbt007.

  field-symbols:

    <fs_shlp>       like line of shlp_tab,

    <fs_fielddescr> like line of shlp_tab-fielddescr,

    <fs_dados>      like line of itab_dados.

  if callcontrol-step = 'DISP'.

* Busca na tabela shlp_tab os nomes dos campos

    read table shlp_tab index 1 assigning <fs_shlp>.

    check <fs_shlp> is assigned.

    loop at <fs_shlp>-fielddescr assigning <fs_fielddescr>.

* Transfere os dados da record_tab para os respectivos campos da

* tabela interna

      check: <fs_fielddescr>-fieldname = 'NRSEQ'      or

             <fs_fielddescr>-fieldname = 'NRINVOIC'   or

             <fs_fielddescr>-fieldname = 'BUKRS'      or

             <fs_fielddescr>-fieldname = 'GSBERF'     or

             <fs_fielddescr>-fieldname = 'NRPARCF'    or

             <fs_fielddescr>-fieldname = 'KUNAG'      or

             <fs_fielddescr>-fieldname = 'DTINCL'     or

             <fs_fielddescr>-fieldname = 'DTCREDEXT'  or

             <fs_fielddescr>-fieldname = 'WAERS'      or

             <fs_fielddescr>-fieldname = 'ORIGEM_OP'  .

      v_fieldname = <fs_fielddescr>-fieldname.

*** CUIDADO AO EFETUAR SORT NA TABELA INTERNA ESPELHO DA RECORD_TAB,

*** POIS A FUNÇÃO TRANSFERE OS REGISTROS (PUT/GET) BASEADO NO INDÍCE

*** E NÃO NA CHAVE.

      call function 'F4UT_PARAMETER_VALUE_GET'

           exporting

                parameter         = <fs_fielddescr>-fieldname

                fieldname         = v_fieldname

           tables

                shlp_tab          = shlp_tab

                record_tab        = record_tab

                results_tab       = itab_dados

           changing

                shlp              = shlp

                callcontrol       = callcontrol

           exceptions

                parameter_unknown = 0

                others            = 0.

      if sy-subrc <> 0.

        exit.

      endif.

    endloop.

    unassign: <fs_shlp>, <fs_fielddescr>.

    import v_sml from memory id 'SML'.

endif.

   if  callcontrol-step eq 'RETURN'.

   endif.

  if not v_sml is initial.

    clear v_sml.

    export v_sml to memory id 'SML'.

  endif.

endfunction.

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

Modificações efetuadas em REPS /PWS/LZYCBGF3UXX

...

INCLUDE /PWS/LZYCBGF3U76.

INCLUDE /PWS/LZYCBGF3U77.

INCLUDE /PWS/LZYCBGF3U78.

INCLUDE /PWS/LZYCBGF3U79.

INCLUDE /PWS/LZYCBGF3U80.

INCLUDE /PWS/LZYCBGF3U81.

INCLUDE /PWS/LZYCBGF3U82.

INCLUDE /PWS/LZYCBGF3U83.

INCLUDE /PWS/LZYCBGF3U84.

INCLUDE /PWS/LZYCBGF3U85.

* >> Início da inclusão:

INCLUDE /PWS/LZYCBGF3U86.

INCLUDE /PWS/LZYCBGF3U87.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCB034TOP

...

data : mark(1)       type c,

       operacao(1)   type c,

       bloqueado(1)  type c,

       acesso_emp(1) type c,

       drilldown(1)  type c.

data: end of itab_zycbt226_aux .

include /pws/mzycb034x01.

selection-screen begin of screen 0001.

selection-screen begin of block a with frame title text-011.

select-options: s_bukrs  for /pws/zycbe226-bukrs,

* >> Início da exclusão:

                s_nrseq  for /pws/zycbe226-nrseq,

                s_invoic for /pws/zycbe226-nrinvoic

                  matchcode object /pws/zycba275,

* << Fim da exclusão

* >> Início da inclusão:

                s_nrseq  for /pws/zycbe226-nrseq

                matchcode object  /PWS/ZYCBA297,

                s_invoic for /pws/zycbe226-nrinvoic,

* << Fim da inclusão

                s_gsber  for /pws/zycbe226-gsberf,

                s_nrparc for /pws/zycbe226-nrparcf,

                s_kunag  for /pws/zycbe017-kunag,

                s_dtincl for /pws/zycbe226-dtincl,

                s_dtcext for /pws/zycbe226-dtcredext.

selection-screen end of block a.

selection-screen begin of block b with frame title text-021.

parameters: p_orig1 as checkbox,

            p_orig2 as checkbox.

selection-screen end of block b.

...

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

Criaçao  efetuadas em SHLP /PWS/ZYCBA296

CRIAR AJUDA DE PESQUISA: /PWS/ZYCBA296

DESCRIÇÃO BREVE: CB - Faturas - VME / SML

DEFINIÇÃO

OBTENÇÃO DE DADOS

MÉTODO DE SELEÇÃO: /PWS/ZYCBT226

COMPORTAMENTO DE DIÁLOGO:

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

HOT KEY:

EXIT AJUD. PESQUISA: /PWS/ZYCBA296

PARÂMETROS:

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

NRSEQ              2    2          /PWS/ZYGLL1342

NRINVOIC       x   1    1          /PWS/ZYCBL084

NRPARCF        x   5    5          /PWS/ZYGLL1343

GSBERF         x   4    4           GSBER

BUKRS              3    3           BUKRS

KUNAG              6    6           KUNAG

WAERS              0    0           WAERS

DTCREDEXT          8    8           /PWS/ZYCBL159

DTINCL             7    7           /PWS/ZYCBL033

ORIGEM_OP          0    0           /PWS/ZYGLL1414

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

Criaçao efetuadas em SHLP /PWS/ZYCBA297

CRIAR AJUDA DE PESQUISA: /PWS/ZYCBA297

DESCRIÇÃO BREVE: CB - Faturas - VME / SML

DEFINIÇÃO

OBTENÇÃO DE DADOS

MÉTODO DE SELEÇÃO: /PWS/ZYCBT226

COMPORTAMENTO DE DIÁLOGO:

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

HOT KEY:

EXIT AJUD. PESQUISA: /PWS/ZYCBA297

PARÂMETROS:

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

NRSEQ          x   1    1         /PWS/ZYGLL1342

NRINVOIC           2    2         /PWS/ZYCBL084

NRPARCF            3    3         /PWS/ZYGLL1343

GSBERF             4    4         GSBER

BUKRS              5    5         BUKRS

KUNAG              6    6         KUNAG

DTCREDEXT          8    8         /PWS/ZYCBL159

DTINCL             7    7         /PWS/ZYCBL033

WAERS              0    0         WAERS

ORIGEM_OP          0    0         /PWS/ZYGLL1414

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

Modificações efetuadas em TABD /PWS/ZYCBE226

MODIFICAR ESTRUTURA: /PWS/ZYCBE226

DESCRIÇÃO BREVE: CB - Valores Mantidos no Exterior ou Pagamento Moeda Local

- Incluir ajuda de pesquisa nos seguintes campos:

COMPONENTES NOVOS

COMPONENTE:     TP. COMP:      TAB.REF.:       CPO.REF.:    AJUD. PESQU.

NRSEQ          /PWS/ZYGLL1342                                  /PWS/ZYCBA297

NRINVOIC       /PWS/ZYCBL084                                   /PWS/ZYCBA296

NRPARCF        /PWS/ZYGLL1343                                  /PWS/ZYCBA296

GSBERF         GSBER                                           /PWS/ZYCBA296

COMPONENTES EXCLUÍDOS

COMPONENTE:     TP. COMP:      TAB.REF.:       CPO.REF.:    AJUD. PESQU.