CE PLUS - Nota 013943
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: PLI
Data/Hora da Publicação: 04/06/2014 15:33:01
Data/Hora Última Alteração: 04/06/2014 15:33:01
Descrição da Nota: AO MUDAR TIPO DE FABRICANTE, ENDEREÇO FICA INCORRETO
Sintoma
Ao mudar tipo de fabricante, endereço fica incorreto
Solução
Corrigir ao alterar tipo de fabricante na pLI
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13943 Data: 19/05/2014 Hora: 16:02:14
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13943
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00007
Agrupamento : 00170
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
13044 - 00001 - 9.0 - 00004 - ALTERAR TIPO DO CAMPO COD SUFR = /PWS/ZYCIT535-NRFORN
13363 - 00002 - 9.0 - 00006 - ABRIR CAMPO DE FABRICANTE NA PLI PARA INFORMAR NÃO CADASTRADOS
----------------------------------------------------------------------------------------------------
AO MUDAR TIPO DE FABRICANTE, ENDEREÇO FICA INCORRETO
----------------------------------------------------------------------------------------------------
Palavras Chave:
TIPO DE FABRICANTE - PLI - DADOS DO FABRICANTE.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020I01
REPS /PWS/MZYCI020F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020I01
...
* >> Início da inclusão: MODULE LOAD_DESC_FABR
ELSEIF /pws/zycie079a-fabric EQ '1'.
DELETE itab_zycit080 WHERE ebeln = /pws/zycie079a-ebeln
AND ebelp = /pws/zycie079a-ebelp
AND tipoforn = 'F'.
* << Fim da inclusão
ENDIF.
PERFORM load_desc_fabr.
ENDMODULE.
...
...
* >> Início da inclusão: MODULE ATUALIZA_FABRICANTE
IF /pws/zycie079a-fabric EQ '2' AND
/pws/zycie079a-lifnr IS INITIAL .
READ TABLE itab_zycit080 WITH KEY
ebeln = /pws/zycie079a-ebeln
ebelp = /pws/zycie079a-ebelp
tipoforn = 'F' .
IF sy-subrc EQ 0.
IF /pws/zycie080a-lifnr EQ /pws/zycie079a-lifnr.
v_tabix = sy-tabix.
MOVE-CORRESPONDING itab_zycit080 TO /pws/zycie080a.
/pws/zycie080a-name1 = /pws/zycie079a-descfab.
/pws/zycie080a-landa = /pws/zycie079a-paisfab.
/pws/zycie080a-lifnr = /pws/zycie079a-lifnr .
MODIFY itab_zycit080 INDEX v_tabix.
ELSE.
CLEAR /pws/zycie080a .
/pws/zycie080a-name1 = /pws/zycie079a-descfab.
/pws/zycie080a-landa = /pws/zycie079a-paisfab.
/pws/zycie080a-lifnr = /pws/zycie079a-lifnr .
CLEAR: /pws/zycie080a-logradouro,
/pws/zycie080a-nrlogr ,
/pws/zycie080a-compl ,
/pws/zycie080a-city ,
/pws/zycie080a-regio.
MOVE-CORRESPONDING /pws/zycie080a TO itab_zycit080 .
MODIFY itab_zycit080 INDEX v_tabix.
ENDIF.
ELSE.
CLEAR /pws/zycie080a .
/pws/zycie080a-name1 = /pws/zycie079a-descfab.
/pws/zycie080a-landa = /pws/zycie079a-paisfab.
/pws/zycie080a-lifnr = /pws/zycie079a-lifnr .
CLEAR: /pws/zycie080a-logradouro,
/pws/zycie080a-nrlogr ,
/pws/zycie080a-compl ,
/pws/zycie080a-city ,
/pws/zycie080a-regio.
MOVE-CORRESPONDING /pws/zycie080a TO itab_zycit080 .
MODIFY itab_zycit080 INDEX v_tabix.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
FORM load_desc_fabr.
IF /pws/zycie079a-fabric IS INITIAL.
CLEAR /pws/zycie079a-lifnr.
/pws/zycie079a-fabric = '3' .
* >> Início da inclusão: FORM LOAD_DESC_FABR
elseif /pws/zycie079a-fabric eq '1' .
delete itab_zycit080 where ebeln = it_zycit079-ebeln
and ebelp = it_zycit079-ebelp
and tipoforn = 'F' .
* << Fim da inclusão
ENDIF.
...