CE PLUS - Nota 013456

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: PLI

Data/Hora da Publicação: 29/11/2013 10:58:27

Data/Hora Última Alteração: 29/11/2013 10:58:27

Descrição da Nota: AO SALVAR CÓDIGO DE FABRICANTE NÃO DEIXA MUDAR DADOS DO EM TELA

Sintoma

Ao salvar código de fabricante não deixa mudar dados do em tela

 

 

Solução

Deixar editar dados do fabricante se o tipo for = 2.

 

Versões Tratadas

9.0


Pré-Requisitos

Produto:

Nota

Descrição

ABRIR CAMPO DE FABRICANTE NA PLI PARA INFORMAR NÃO CADASTRADOS

Informações Complementares

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

Nota Número 13456 Data: 26/11/2013 Hora: 15:26:25

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

 

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

Nota Número              : 13456

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 9.0

Pacote                   : 00006

Agrupamento              : 00166

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

Referência às notas relacionadas:

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

 

13363  - 00001 - 9.0    - 00006  - ABRIR CAMPO DE FABRICANTE NA PLI PARA INFORMAR NÃO CADASTRADOS

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

AO SALVAR CÓDIGO DE FABRICANTE NÃO DEIXA MUDAR DADOS DO EM TELA

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

Palavras Chave:

PLI - FABRICANTE - TIPO 2 - MUDAR DADOS - SALVAR FABRICANTE

 

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

Objetos da nota:

REPS /PWS/MZYCI020F02

REPS /PWS/MZYCI020O01

 

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

Modificações efetuadas em REPS /PWS/MZYCI020F02

 

...

 

  ELSE.

    v_tabix = sy-tabix.

    MOVE-CORRESPONDING /pws/zycie080a TO itab_zycit080 .

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

    itab_zycit080-nrseqli   = /pws/zycie078-nrseqli .

    itab_zycit080-ebeln     = /pws/zycie079a-ebeln  .

    itab_zycit080-ebelp     = /pws/zycie079a-ebelp  .

    itab_zycit080-tipoforn  = 'F' .

* << Fim da inclusão

    /pws/zycie080a-nrforn = it_zycit079-nrforn1.

    MODIFY itab_zycit080 INDEX v_tabix.

  ENDIF.

  /pws/zycie079a-descfab = /pws/zycie080a-name1.

  /pws/zycie079a-paisfab = /pws/zycie080a-landa.

ENDFORM.

 

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI020O01

 

...

      ENDIF.

    ELSE.

      IF  v_propoe = 'X' .

        /pws/zycie080a-name1  = /pws/zycie079a-descfab.

        /pws/zycie080a-landa  = /pws/zycie079a-paisfab.

        CLEAR v_propoe.

      ENDIF.

    ENDIF.

  ELSE.

    IF /pws/zycie079a-fabric EQ '2'.

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

      IF /pws/zycie080a-lifnr NE /pws/zycie079a-lifnr.

        READ TABLE itab_zycit080 WITH KEY

            ebeln = /pws/zycie079a-ebeln

            ebelp = /pws/zycie079a-ebelp

            lifnr = /pws/zycie079a-lifnr

            tipoforn = 'F' .

        IF sy-subrc EQ 0  .

          MOVE-CORRESPONDING itab_zycit080 TO /pws/zycie080a .

          /pws/zycie080a-name1  = /pws/zycie079a-descfab.

          /pws/zycie080a-landa  = /pws/zycie079a-paisfab.

        ELSE.

* << Fim da inclusão

      /pws/zycie080a-lifnr = /pws/zycie079a-lifnr.

      SELECT SINGLE *

             FROM lfa1

             WHERE lifnr EQ /pws/zycie079a-lifnr.

      SELECT SINGLE *

             FROM adrc

             WHERE addrnumber EQ lfa1-adrnr.

      SELECT SINGLE bezei FROM t005u INTO v_bezei

             WHERE land1 = lfa1-land1 AND

             spras = sy-langu AND

...

 

...

        SELECT SINGLE /pws/codpa FROM t005

                              INTO (v_descr31)

                              WHERE land1 EQ /pws/zycie080a-landa.

        SELECT SINGLE landx FROM t005t

                            INTO (v_descrpais2)

                            WHERE land1 EQ /pws/zycie080a-landa

                              AND spras EQ sy-langu.

      ELSE.

        CLEAR: v_descr31,

               v_descrpais2.

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

          ENDIF.

        ENDIF.

* << Fim da inclusão

      ENDIF.

    ENDIF.

  ENDIF.

ENDMODULE.

...