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.
9.0
Produto:
Nota
Descrição
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.
...