Sintoma

Alterar campo chave da tabela /pws/zycit535.

Atualmente é o Cod. Suframa.

Alterar para: Cod.Suframa + Codigo SAP + Tipo.

Solução

Atualizado programa para alterar a chave da tabela /pws/zycit535. Todos os campos passam a ser chave

de acesso por exigência da SUFRAMA

Informações Complementares

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

Nota Número 13024 Data: 29/05/2013 Hora: 16:47:53

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

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

Nota Número              : 13024

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 9.0

Pacote                   : 00004

Agrupamento              : 00155

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

Referência às notas relacionadas:

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

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

ALTERAR A CHAVE DA TABELA /PWS/ZYCIT535

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

Palavras Chave:

CHAVE - TABELA - /PWS/ZYCIT535 - SUFRAMA - FABRICANTE - FORNECEDOR

FABRICANTE/FORNECEDOR SUFRAMA

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

Objetos da nota:

TABD /PWS/ZYCIT535

TOBJ /PWS/ZYCIT535S

FUGR /PWS/ZYCIGF1

include /PWS/LZYCIGF1OBS

REPS /PWS/MZYCI020O01

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

Modificações efetuadas em TABD /PWS/ZYCIT535 - tabela banco dados / tabela transparente - SE11

* todos os campos da tabela /pws/zycit535 serão campos chaves e com valor inicial, isto é,

* Chv = X e Inic. = X

Campos:

MANDT

NRFORN

LIFNR

TIPOFORN

* Gerar a atualização da tabela - Utilitários/Gerador de Atualização de tabela

* Executar a transação SE14 para acertar o banco de dados - conservando os dados

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

Modificações efetuadas em include /PWS/LZYCIGF1OBS

  LOOP AT total.

    ASSIGN total TO <fs_conteudo> CASTING.

    IF <fs_conteudo>-action EQ 'N'.

      CLEAR: wa_zycit535.

      wa_zycit535 = <fs_conteudo>-zycit535.

      IF wa_zycit535-lifnr IS INITIAL.

        MESSAGE i015(/pws/zycim) WITH text-020.

        v_erro = 'X'.

        EXIT.

      ENDIF.

      IF wa_zycit535-tipoforn IS INITIAL.

        MESSAGE i015(/pws/zycim) WITH text-021.

        v_erro = 'X'.

        EXIT.

      ENDIF.

* >> Início da inclusão: FORM verifica_zycit535.

      IF wa_zycit535-nrforn IS INITIAL.

        MESSAGE i015(/pws/zycim) WITH text-022.

        v_erro = 'X'.

        EXIT.

      ENDIF.

* << Fim da inclusão

    ENDIF.

  ENDLOOP.

  IF v_erro = 'X'.

    sy-subrc = 8.

  ELSE.

    CLEAR: sy-subrc.

  ENDIF.

ENDFORM.

* Criar o Símbolo de texto TEXT-022 no programa /PWS/SAPLZYCIGF1

Símb.  Texto

022    Por favor informar o campo Código Suframa.

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

Modificações efetuadas em REPS /PWS/MZYCI020O01

...

MODULE propoe_nrforn OUTPUT.

  IF NOT /pws/zycie079a-lifnr IS INITIAL.

    IF v_frn1 IS INITIAL.

      SELECT SINGLE nrforn FROM /pws/zycit080

      INTO v_frn1

      WHERE ebeln EQ /pws/zycie079a-ebeln

      AND   ebelp EQ /pws/zycie079a-ebelp

      AND   nrseqli EQ /pws/zycie078-nrseqli

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

      AND   lifnr EQ /pws/zycie079a-lifnr.

* << Fim da exclusão

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

      AND   lifnr EQ /pws/zycie079a-lifnr

      AND tipoforn EQ 'F'.

* << Fim da inclusão

      IF sy-subrc NE 0 .

        SELECT SINGLE nrforn FROM /pws/zycit080

        INTO v_frn1

        WHERE lifnr EQ /pws/zycie079a-lifnr.            "#EC CI_NOFIRST

      ENDIF.

    ENDIF.

  ELSE.

    CLEAR v_frn1.

  ENDIF.

  IF NOT lfa1-lifnr IS INITIAL.

    IF v_frn2 IS INITIAL.

      SELECT SINGLE nrforn FROM /pws/zycit080

      INTO v_frn2

      WHERE ebeln EQ /pws/zycie079a-ebeln

      AND   ebelp EQ /pws/zycie079a-ebelp

      AND   nrseqli EQ /pws/zycie078-nrseqli

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

      AND   lifnr EQ lfa1-lifnr.

* << Fim da exclusão

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

      AND   lifnr EQ lfa1-lifnr

      AND tipoforn EQ 'E'.

* << Fim da inclusão

      IF sy-subrc NE 0 .

        SELECT SINGLE nrforn FROM /pws/zycit080

        INTO v_frn2

        WHERE lifnr EQ lfa1-lifnr.                      "#EC CI_NOFIRST

      ENDIF.

    ENDIF.

  ELSE.

    CLEAR v_frn2.

  ENDIF.

ENDMODULE.

...

...

...