Sintoma

Criado parâmetro para tradução de textos de programas

Solução

Criado relatório para dar carga e carregar textos .

Informações Complementares

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

Nota Número 11611 Data: 07/11/2011 Hora: 17:16:36

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

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

Nota Número              : 11611

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00009

Agrupamento              : 00093

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

Referência às notas relacionadas:

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

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

RELATÓRIO PARA TRADUÇÃO DE TEXTOS DE PROGRAMAS

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

Palavras Chave:

PARÂMETRO - TRADUÇÃO DE TEXTOS.

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

Objetos da nota:

REPS /PWS/ZYCIR057

REPS /PWS/ZYCIR063

REPS /PWS/ZYCIR071

REPS /PWS/ZYCIR950

SHLD /PWS/ZYCIA107

TABL /PWS/ZYCIT119T

TRAN /PWS/ZYCIR950

REPS /PWS/MZYCI001O01

REPS /PWS/MZYCI001O01

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

Modificações efetuadas em REPS /PWS/ZYCIR057

...

           FOR    ALL ENTRIES IN itab_zycit001

           WHERE  nrdespadu EQ itab_zycit001-nrdespadu.

    SELECT bukrs butxt FROM t001

           INTO   TABLE itab_descemp

           FOR    ALL ENTRIES IN itab_zycit001

           WHERE  bukrs EQ itab_zycit001-bukrs.

    SELECT vktra_ci bezei FROM /pws/zycit054

           INTO   TABLE itab_meioemb

           FOR    ALL ENTRIES IN itab_zycit001

           WHERE  vktra_ci EQ itab_zycit001-meioemba.

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

    SELECT status descricao FROM /pws/zycit119

* << Fim da exclusão

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

    SELECT status descricao FROM /pws/zycit119t

* << Fim da inclusão

           INTO   TABLE itab_status

           FOR    ALL ENTRIES IN itab_zycit001

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

           WHERE  status EQ itab_zycit001-status.

* << Fim da exclusão

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

           WHERE  status EQ itab_zycit001-status and

                  spras = sy-langu.

* << Fim da inclusão

  ENDIF.

...

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

Modificações efetuadas em REPS /PWS/ZYCIR063

...

               into corresponding fields of table itab_zycit256

               for all entries in itab_zycit001

               where nrdespadu eq itab_zycit001-nrdespadu.

        select bukrs butxt

               from t001

               into corresponding fields of table itab_t001

               for all entries in itab_zycit001

               where bukrs eq itab_zycit001-bukrs.

        if not itab_zycit255[] is initial.

           select status descricao

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

                  from /pws/zycit119

* << Fim da exclusão

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

                  from /pws/zycit119t

* << Fim da inclusão

                  into corresponding fields of table itab_zycit119

                  for all entries in itab_zycit255

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

                  where status  eq itab_zycit255-status.

* << Fim da exclusão

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

                  where status  eq itab_zycit255-status and

                        spras   eq sy-langu.

* << Fim da inclusão

        else.

...

...

             into corresponding fields of table itab_zycit256

             for all entries in itab_zycit001

             where nrdespadu eq itab_zycit001-nrdespadu.

      select bukrs butxt

             from t001

             into corresponding fields of table itab_t001

             for all entries in itab_zycit001

             where bukrs eq itab_zycit001-bukrs.

      if not itab_zycit255[] is initial.

         select status descricao

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

                from /pws/zycit119

* << Fim da exclusão

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

                from /pws/zycit119t

* << Fim da inclusão

                into corresponding fields of table itab_zycit119

                for all entries in itab_zycit255

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

                where status  eq itab_zycit255-status.

* << Fim da exclusão

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

                where status  eq itab_zycit255-status and

                      spras   eq sy-langu.

* << Fim da inclusão

      else.

...

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

Modificações efetuadas em REPS /PWS/ZYCIR071

...

           FOR    ALL ENTRIES IN itab_zycit001

           WHERE  nrdespadu EQ itab_zycit001-nrdespadu.

    SELECT bukrs butxt FROM t001

           INTO   TABLE itab_descemp

           FOR    ALL ENTRIES IN itab_zycit001

           WHERE  bukrs EQ itab_zycit001-bukrs.

    SELECT vktra_ci bezei FROM /pws/zycit054

           INTO   TABLE itab_meioemb

           FOR    ALL ENTRIES IN itab_zycit001

           WHERE  vktra_ci EQ itab_zycit001-meioemba.

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

    SELECT status descricao FROM /pws/zycit119

* << Fim da exclusão

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

    SELECT status descricao FROM /pws/zycit119t

* << Fim da inclusão

           INTO   TABLE itab_status

           FOR    ALL ENTRIES IN itab_zycit001

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

           WHERE  status EQ itab_zycit001-status.

* << Fim da exclusão

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

           WHERE  status EQ itab_zycit001-status and

                  spras  =  sy-langu.

* << Fim da inclusão

    SELECT txtdesc FROM /pws/zycit052

...

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

Modificações efetuadas em REPS /PWS/ZYCIR950

*Criar o report

* >> Início da inclusão:

REPORT /PWS/ZYCIR950 MESSAGE-ID /pws/zycim.

data v_sucesso.

data: itab_zycit119 like /pws/zycit119 occurs 0 with header line,

      itab_zycit119T like /pws/zycit119T occurs 0 with header line.

refresh itab_zycit119t.

select * from /pws/zycit119T

  into table itab_zycit119t

  where spras = 'P'.

if sy-subrc ne 0.

    select * from /pws/zycit119

      into table itab_zycit119.

  if sy-subrc eq 0.

     loop at itab_zycit119.

       itab_zycit119t-STATUS = itab_zycit119-STATUS.

       itab_zycit119t-spras = 'P'.

       itab_zycit119t-descricao = itab_zycit119-descricao.

       append itab_zycit119t.

     endloop.

     modify /pws/zycit119T from table itab_zycit119T.

     commit work.

     v_sucesso = 'X'.

     write: /

'Tabela /pws/zycit119T atualizada em PT, textos não foram traduzidos!'.

  endif.

endif.

refresh itab_zycit119t.

select * from /pws/zycit119T

  into table itab_zycit119t

  where spras = 'S'.

if sy-subrc ne 0.

    select * from /pws/zycit119

      into table itab_zycit119.

  if sy-subrc eq 0.

     loop at itab_zycit119.

       itab_zycit119t-STATUS = itab_zycit119-STATUS.

       itab_zycit119t-spras = 'S'.

       itab_zycit119t-descricao = itab_zycit119-descricao.

       append itab_zycit119t.

     endloop.

     modify /pws/zycit119T from table itab_zycit119T.

     commit work.

     v_sucesso = 'X'.

     write: /

'Tabela /pws/zycit119T atualizada em ES, textos não foram traduzidos!'.

  endif.

endif.

refresh itab_zycit119t.

select * from /pws/zycit119T

  into table itab_zycit119t

  where spras = 'E'.

if sy-subrc ne 0.

    select * from /pws/zycit119

      into table itab_zycit119.

  if sy-subrc eq 0.

     loop at itab_zycit119.

       itab_zycit119t-STATUS = itab_zycit119-STATUS.

       itab_zycit119t-spras = 'E'.

       itab_zycit119t-descricao = itab_zycit119-descricao.

       append itab_zycit119t.

     endloop.

     modify /pws/zycit119T from table itab_zycit119T.

     commit work.

     v_sucesso = 'X'.

     write: /

'Tabela /pws/zycit119T atualizada em EN, textos não foram traduzidos!'.

  endif.

endif.

if v_sucesso is initial.

 write: 'Não existem dados a serem processados!'.

endif.

* << Fim da inclusão

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

Modificações efetuadas em SHLD /PWS/ZYCIA107

MODIFICAR AJUDA DE PESQUISA: /PWS/ZYCIA107

DESCRIÇÃO BREVE: CI - Status do Embarque

DEFINIÇÃO

OBTENÇÃO DE DADOS

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

COMPORTAMENTO DE DIÁLOGO:

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

PARÂMETROS:

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

STATUS           X    1   1        /PWS/ZYCIL274

DESCRICAO        X    2   2        /PWS/ZYCIL275

SPRAS        X        0   0        SPRAS             SY-LANGU

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

Modificações efetuadas em TABL /PWS/ZYCIT119T

*Criar a Tabela transparente

MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCIT119T

DESCRIÇÃO BREVE: CI - Param. de Status do Embarque

CLASSE DE DESENVOLVIMENTO /PWS/ZYCI

CARACTERÍSTICAS

CATEGORIA DA TABELA:    Tabela transparente

CLASSE DE ENTREGA:   C  Tab.customizing, atualização só por cliente, s/imp.

(X) - AUTUALIZAÇÃO DE TABELAS PERMITIDA

CAMPOS NOVOS

CAMPOS:      TP. CAMPO     CH: INI: TAB.VERIF.:

MANDT       MANDT       X   X

SPRAS         SPRAS         X   X

STATUS       /PWS/ZYCIL274 X   X    /PWS/ZYCIT119

DESCRICAO     /PWS/ZYCIL275 X   X

OPÇÕES TÉCNICAS

TIPO DE DADOS:      APPL0   Dados mestre, tabelas transparent

CATEGOR. TAMANHO:   4       Registros dados esperados: 850.000 Até 68.

(X) - AR. BUFFER NÃO PERMITIDO

*gerar a visão de atualização de tabela

*NA se54

MODIFICAR VISÃO DA TABELA /PWS/ZYCIT119T

INDICAÇÕES TÉCNICAS PARA DIÁLOGO

GRUPO DE AUTORIZAÇÃO: ZYCE

GRUPO DE FUNÇÕES:     /PWS/ZYCIGF1

CL. DESENVOLVIMENTO:  /PWS/ZYCI

TELAS DE ATUALIZAÇÃO

CTG. ATUALIZAÇÃO:      (X) - NÍVEL ÚNICO

                       (_) - 2 NÍVEIS

Nº TELA AUTORIZAÇÃO:   TELA SÍNTESE:    1191

                       TELA INDIVIDUAL: 0

INDICAÇÕES PARA TRASNPORTE DE DADOS DE DIÁLOGO

ROTINA DE REGISTRO:    (x) - ROTINA REG. STANDARD

                       (_) - ROTINA REG. INDIVIDUAL

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

Modificações efetuadas em TRAN /PWS/ZYCIR950

CÓDIGO DE TRANSAÇÃO: /PWS/ZYCIR950

ATRIBUTOS DA TRANSAÇÃO

TEXTO BREVE: CI - Carga de Tabelas de Textos CE

OBJETO DE EXECUÇÃO

(_) - PROGRAMA E TELA (TRANSAÇÃO DE DIÁLOGO)

(X) - PROGRAMA E TELA DE SELEÇÃO (TRANSAÇÃO DE REPORT)

TEXTO DA TRANSAÇÃO: CI - Carga de Tabelas de Textos CE

PROGRAMA: /PWS/ZYCIR950

TELA(SELEÇÃO): 1000

CLASSIFICAÇÃO

CLASSIFICAÇÃO DE TRANSAÇÃO:

(X) - TRANSAÇÃO PROFESSIONAL USER

(_) - TRANSAÇÃO EASY WEB      SERVIÇO: ___________________________

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

Modificações efetuadas em REPS /PWS/MZYCI001O01

...

               INTO t615-/pws/localidade

               WHERE land1 EQ /pws/zycie001-paispao

                 AND zolla EQ /pws/zycie001-paorigem.

        CONCATENATE v_postoo '-' t615-/pws/localidade

                     INTO v_cidorig SEPARATED BY space.

      ENDIF.

      CLEAR : /pws/zycit119,

              v_status.

      IF NOT /pws/zycie001-status IS INITIAL.

        SELECT SINGLE descricao INTO /pws/zycit119-descricao

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

               FROM /pws/zycit119

               WHERE status EQ /pws/zycie001-status.

* << Fim da exclusão

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

               FROM /pws/zycit119t

               WHERE status EQ /pws/zycie001-status

                 AND spras = sy-langu.

* << Fim da inclusão

        v_status = /pws/zycit119-descricao.

      ENDIF.

      CLEAR : /pws/zycit256,

               v_descst.

      IF NOT /pws/zycie001-nrdespadu IS INITIAL.

        SELECT SINGLE descdesp INTO /pws/zycit256-descdesp

               FROM /pws/zycit256

               WHERE nrdespadu EQ /pws/zycie001-nrdespadu.

        v_descst = /pws/zycit256-descdesp.

      ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI001O01

...

MODULE load_data_800 OUTPUT.

  REFRESH it_zycit255.   CLEAR it_zycit255.

  SELECT * FROM /pws/zycit255 INTO TABLE it_zycit255

           WHERE nrseq = /pws/zycie001-nrseq.

  IF NOT it_zycit255[] IS INITIAL.

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

    SELECT * FROM /pws/zycit119 INTO TABLE it_zycit119

* << Fim da exclusão

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

    SELECT * FROM /pws/zycit119t INTO TABLE it_zycit119

* << Fim da inclusão

             FOR ALL ENTRIES IN it_zycit255

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

             WHERE status = it_zycit255-status.

* << Fim da exclusão

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

             WHERE status = it_zycit255-status

             AND  spras = sy-langu.

* << Fim da inclusão

  ENDIF.

  SORT  it_zycit255 BY data hora.

...