Sintoma

- Na tabela /pws/zycit535 alterar o tipo do campo "cod suframa" para "char" de modo que aceite o

"0".

- Na tela de itens de PLI quando digita o código SUFRAMA não está validando o que é digitado pelo

usuário na tabela /pws/zycit535.

Aceita qualquer coisa digitada pelo usuário.

Incluir validação para permitir apenas que sejam digitados códigos incluídos na /pws/zycit535 (com a

mesma regra utilizada no match-code).

Solução

Atualizado programa para permitir codigo SUFRAMA = 0 (tipo alterado para caractére) e incluída

validação nos itens da PLI.

Informações Complementares

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

Nota Número 13044 Data: 07/06/2013 Hora: 15:24:44

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

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

Nota Número              : 13044

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 9.0

Pacote                   : 00004

Agrupamento              : 00156

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

Referência às notas relacionadas:

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

00866  - 00001 - 6.0    - 00022  - PROBLEMAS AO GERAR O SEQUENCIAL DE LI NA PLI.

02850  - 00002 - 6.0    - 00026  - O SISTEMA NAO RECUPERA TEXTOS DO PEDIDO DE COMPRA

03209  - 00003 - 6.0    - 00026  - PLI NÃO ATUALIZA DADOS DO FABRICANTE NO DETALHE DO ITEM.

10420  - 00004 - 8.0    - 00004  - NA PLI AO COLOCAR ORGÃO ANUENTE PARA O ITEM DUPLICA PARA OS DEMAI

12308  - 00005 - 9.0    - 00001  - INCLUSÃO DE CAMPOS PARA INFORMAR O FABRICANTE.

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

ALTERAR TIPO DO CAMPO COD SUFR = /PWS/ZYCIT535-NRFORN

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

Palavras Chave:

PLI - /PWS/ZYCIT535-NRFORN - ELEMENTO DE DADOS - DOMINIO

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

Objetos da nota:

DOMD /PWS/ZYCID130

TABD /PWS/ZYCIE080C

TABD /PWS/ZYCIT080

TABD /PWS/ZYCIE080B

TABD /PWS/ZYCIE080A

TABD /PWS/ZYCIE080

TABD /PWS/ZYCIT535

DYNP /PWS/SAPMZYCI020                        0521

REPS /PWS/MZYCI020I01

REPS /PWS/MZYCI020X01

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

Modificações efetuadas em DOMD /PWS/ZYCID130

* Alterar a categoria de dados do domínio /PWS/ZYCID130 para CHAR

Domínio modificado: /PWS/ZYCID130

Categoria de dados: CHAR

* OBS: se o domínio for Parcialmente Ativado, será necessário rodar a SE14 para as tabelas

* /pws/zycit535 e /pws/zycit080, para que o banco de dados ajuste seus registros devido a alteração

* da categoria de dados

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

Modificações efetuadas em TABD /PWS/ZYCIE080C

* inserir chave externa (tabela de verificação) para o campo NRFORN

* Tabela de verificação = /PWS/ZYCIT535

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

Modificações efetuadas em TABD /PWS/ZYCIT080

* inserir chave externa (tabela de verificação) para o campo NRFORN

* Tabela de verificação = /PWS/ZYCIT535

* Rodar a transação SE14 para ajustar o banco de dados.

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

Modificações efetuadas em TABD /PWS/ZYCIE080B

* inserir chave externa (tabela de verificação) para o campo NRFORN

* Tabela de verificação = /PWS/ZYCIT535

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

Modificações efetuadas em TABD /PWS/ZYCIE080A

* inserir chave externa (tabela de verificação) para o campo NRFORN

* Tabela de verificação = /PWS/ZYCIT535

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

Modificações efetuadas em TABD /PWS/ZYCIE080

* inserir chave externa (tabela de verificação) para o campo NRFORN

* Tabela de verificação = /PWS/ZYCIT535

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

Modificações efetuadas em TABD /PWS/ZYCIT535

* Para corrigir a tela que cadastramos os registros dessa tabela, gerar a tela de atualização

* novamente.

* Rodar a transação SE14 para ajustar o banco de dados.

* OBS: todos os registros/dados desta tabela deverão ser deletados e cadastrados novamente, devido a

* mudança da categoria de dados o campo fica com formato errado.

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI020                        0521

MODIFICAR CAMPO TEXTO "V_FRN1"

Formato                  CHAR

MODIFICAR CAMPO TEXTO "V_FRN2"

Formato                  CHAR

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0521

PROCESS BEFORE OUTPUT.

  MODULE:

          set_screen,

          carrega_texto_t.

  MODULE propoe_nrforn.

PROCESS AFTER INPUT.

  FIELD : /pws/zycie079a-codsufra     MODULE load_sufra ON REQUEST,

          /pws/zycie079a-destaque     MODULE load_suframa.

  FIELD   /pws/zycie079a-fabric       MODULE load_desc_fabr ON REQUEST.

  FIELD   /pws/zycie079a-lifnr        MODULE :  load_forn ON REQUEST.

* >> Início da inclusão:

  FIELD v_frn1 MODULE check_fabric ON REQUEST.

  FIELD v_frn2 MODULE check_fornec ON REQUEST.

* << Fim da inclusão

  MODULE: grava_texto_t,

          atual_text,

          concatena_desc,

          user_command_0521.

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

Modificações efetuadas em REPS /PWS/MZYCI020I01

...

    WHEN 'BACK'.

      PERFORM atualiza_v_esp.

      PERFORM field_industrializacao.

      CLEAR: /pws/zycie079a,

             rtexti,

             v_esp.

      REFRESH rtexti.

      CLEAR okcode.

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

      CLEAR: v_frn1, v_frn2.

* << Fim da inclusão

      IF /pws/zycie078-tpli EQ 'N' AND

         /pws/zycie078-flagpli NE 'X'.

        LEAVE TO SCREEN '0100'.

      ELSEIF /pws/zycie078-tpli EQ 'N' AND

         /pws/zycie078-flagpli EQ 'X'.

        LEAVE TO SCREEN '0500'.

      ELSEIF /pws/zycie078-tpli EQ 'S'.

        LEAVE TO SCREEN '0400'.

      ENDIF.

      IF /pws/zycie078-flagpli EQ 'X'.

...

...

    WHEN 'PRIM'.

      PERFORM field_industrializacao.

      v_ip = 1.

      READ TABLE it_zycit079 INDEX v_ip.

      MOVE-CORRESPONDING it_zycit079 TO /pws/zycie079a.

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

      MOVE : it_zycit079-nrforn1 TO v_frn1,

             it_zycit079-nrforn2 TO v_frn2.

* << Fim da inclusão

      PERFORM load_descri_suframa.

      PERFORM load_desc_fabr.

      CLEAR v_esp.

      CLEAR rtexti.

      REFRESH rtexti.

      IF /pws/zycie078-flagpli EQ 'X'.

        CLEAR it_zycit081r.

        REFRESH it_zycit081r.

        IF /pws/zycie078-flagpli EQ 'X'.

          LOOP AT it_zycit081

...

...

    WHEN 'ANTE'.

      PERFORM field_industrializacao.

      IF v_ip > 1.

        v_ip = v_ip - 1.

        READ TABLE it_zycit079 INDEX v_ip.

        MOVE-CORRESPONDING it_zycit079 TO /pws/zycie079a.

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

        MOVE : it_zycit079-nrforn1 TO v_frn1,

               it_zycit079-nrforn2 TO v_frn2.

* << Fim da inclusão

        PERFORM load_descri_suframa.

        PERFORM load_desc_fabr.

        CLEAR v_esp.

        CLEAR rtexti.

        REFRESH rtexti.

        IF /pws/zycie078-flagpli EQ 'X'.

          CLEAR it_zycit081r.

          REFRESH it_zycit081r.

          IF /pws/zycie078-flagpli EQ 'X'.

            LOOP AT it_zycit081

...

...

    WHEN 'PROX'.

      PERFORM field_industrializacao.

      DESCRIBE TABLE it_zycit079 LINES v_line.

      IF v_ip < v_line.

        v_ip = v_ip + 1.

        READ TABLE it_zycit079 INDEX v_ip.

        MOVE-CORRESPONDING it_zycit079 TO /pws/zycie079a.

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

        MOVE : it_zycit079-nrforn1 TO v_frn1,

               it_zycit079-nrforn2 TO v_frn2.

* << Fim da inclusão

        PERFORM load_descri_suframa.

        PERFORM load_desc_fabr.

        CLEAR v_esp.

        CLEAR rtexti.

        REFRESH rtexti.

        IF /pws/zycie078-flagpli EQ 'X'.

          CLEAR it_zycit081r.

          REFRESH it_zycit081r.

          IF /pws/zycie078-flagpli EQ 'X'.

            LOOP AT it_zycit081

...

...

    WHEN 'ULTI'.

      PERFORM field_industrializacao.

      DESCRIBE TABLE it_zycit079 LINES v_ip.

      READ TABLE it_zycit079 INDEX v_ip.

      MOVE-CORRESPONDING it_zycit079 TO /pws/zycie079a.

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

      MOVE : it_zycit079-nrforn1 TO v_frn1,

             it_zycit079-nrforn2 TO v_frn2.

* << Fim da inclusão

      PERFORM load_descri_suframa.

      PERFORM load_desc_fabr.

      CLEAR v_esp.

      CLEAR rtexti.

      REFRESH rtexti.

      IF /pws/zycie078-flagpli EQ 'X'.

        CLEAR it_zycit081r.

        REFRESH it_zycit081r.

        IF /pws/zycie078-flagpli EQ 'X'.

          LOOP AT it_zycit081

...

...

* >> Início da inclusão:

MODULE check_fabric INPUT.

  IF NOT v_frn1 IS INITIAL.

    SELECT SINGLE * FROM /pws/zycit535

       WHERE nrforn   = v_frn1

         AND tipoforn = 'F'.

    IF sy-subrc NE 0.

      MESSAGE e015 WITH text-103 v_frn1 text-104.

    ENDIF.

  ENDIF.

ENDMODULE.

MODULE check_fornec INPUT.

  IF NOT v_frn2 IS INITIAL.

    SELECT SINGLE * FROM /pws/zycit535

       WHERE nrforn   = v_frn2

         AND tipoforn = 'E'.

    IF sy-subrc NE 0.

      MESSAGE e015 WITH text-103 v_frn2 text-104.

    ENDIF.

  ENDIF.

ENDMODULE.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI020X01

* >> Início da exclusão:

TABLES: /pws/zycit203,

* << Fim da exclusão

* >> Início da inclusão:

TABLES: /pws/zycit535,

        /pws/zycit203,

* << Fim da inclusão

        /pws/zycit080,

        /pws/zycit136,

        /pws/zycit104,

        /pws/zycit001,

        /pws/zycit078,

        /pws/zycie078,

        /pws/zycie078c,

        /pws/zycit079,

        /pws/zycie079,

        /pws/zycie079a,

...