CE PLUS - Nota 006491
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 30/04/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:12:06
Descrição da Nota: AO MUDAR O TIPO DE FABRICANTE P/ 2, CAMPOS FABRICANTE FICAM ERRADOS
Sintoma
Ao mudar o tipo de fabricante na fatura para 2, os campos com os dados de fabricante ficam errados.
Não atualiza o país do Fabricante, e o país de aquisição, após uma Modificação na Invoice impactando
na DI.
Solução
atualizar alteração de campos ao mudar tipo de fabricante
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06491 Data: 30/04/2008 Hora: 14:52:19
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06491
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00045
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00731 - 00001 - 6.0 - 00022 - PREENCHER O FABRICANTE DE ACORDO COM O INFORMADO NO PEDIDO DE COM
05615 - 00002 - 7.0 - 00004 - NA TELA DE EMBARQUE O FABRICANTE FICA CORRETO NA FATURA NÃO
----------------------------------------------------------------------------------------------------
AO MUDAR O TIPO DE FABRICANTE P/ 2, CAMPOS FABRICANTE FICAM ERRADOS
----------------------------------------------------------------------------------------------------
Palavras Chave:
TIPO DE FABRICANTE - FATURA - DADOS FORNECEDOR
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI003I01
REPS /PWS/MZYCI003O01
REPS /PWS/MZYCI003X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
FORM exibe_item.
CLEAR v_consiste.
CLEAR itab_itens_aux.
REFRESH itab_itens_aux.
LOOP AT itab_zycit003 .
* >> Início da exclusão: FORM EXIBE_ITEM
LOOP AT itab_zycit003 ." WHERE marc EQ 'X'.
IF itab_zycit003-marc EQ 'X'.
v_index_det = sy-tabix.
v_consiste = v_consiste + 1.
ENDIF.
MOVE-CORRESPONDING itab_zycit003 TO itab_itens_aux.
APPEND itab_itens_aux.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM EXIBE_ITEM
LOOP AT itab_zycit003 .
MOVE-CORRESPONDING itab_zycit003 TO itab_itens_aux.
APPEND itab_itens_aux.
ENDLOOP.
LOOP AT itab_zycit003 WHERE marc EQ 'X'.
v_index_det = sy-tabix.
v_consiste = v_consiste + 1.
ENDLOOP.
* << Fim da inclusão
IF sy-subrc EQ 0 AND v_consiste = '1'.
MOVE-CORRESPONDING itab_zycit003 TO /pws/zycie003.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
* >> Início da exclusão: FORM COMM_REPL
FORM comm_repl.
READ TABLE itab_itens_aux WITH KEY ebeln = itab_repl
ebelp = itab_repl.
IF sy-subrc EQ 0.
itab_itens_aux-fabric = itab_zycit003-fabric .
itab_itens_aux-lifnrfabr = itab_zycit003-lifnrfabr .
itab_itens_aux-descfab = itab_zycit003-descfab .
itab_itens_aux-paisfab = itab_zycit003-paisfab .
ENDIF.
ENDFORM.
* << Fim da exclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003I01
...
MODULE user_command_0101 INPUT.
* >> Início da inclusão: MODULE USER_COMMAND_0101
IF v_flaglif EQ 'X' AND /pws/zycie006-fabricante EQ '2'.
CLEAR /pws/zycie006-lifnrfabr.
ENDIF.
CLEAR v_flaglif.
* << Fim da inclusão
...
...
MODULE altera_item INPUT.
IF /pws/zycie006-fabricante = '2'.
IF /pws/zycie003-fabric = '1'.
/pws/zycie003-flagfabr = 'S'.
/pws/zycie003-lifnrfabr = /pws/zycie006-lifnr.
ELSEIF /pws/zycie003-fabric = '3'.
CLEAR: /pws/zycie003-lifnrfabr, /pws/zycie003-flagfabr,
/pws/zycie003-descfab .
ELSE.
/pws/zycie003-fabric = /pws/zycie006-fabricante.
* >> Início da exclusão: MODULE ALTERA_ITEM
/pws/zycie003-descfab = /pws/zycie006-descfab.
* << Fim da exclusão
ENDIF.
/pws/zycie003-porigem = /pws/zycie003-paisfab.
IF NOT /pws/zycie006-fabricante IS INITIAL.
/pws/zycie003-flagfabr = 'S'.
ENDIF.
IF /pws/zycie003-flagfabr = 'S' AND /pws/zycie003-fabric NE '3'.
CLEAR lfa1.
SELECT SINGLE *
FROM lfa1
WHERE lifnr EQ /pws/zycie003-lifnrfabr.
IF sy-subrc EQ 0.
MOVE lfa1-name1 TO /pws/zycie003-descfab.
* >> Início da exclusão: MODULE ALTERA_ITEM
IF /pws/zycie003-paisfab IS INITIAL.
* << Fim da exclusão
MOVE lfa1-land1 TO /pws/zycie003-paisfab.
* >> Início da exclusão: MODULE ALTERA_ITEM
ENDIF.
* << Fim da exclusão
ENDIF.
ELSEIF /pws/zycie003-flagfabr = 'N'.
CLEAR /pws/zycie003-lifnrfabr.
ENDIF.
ELSEIF /pws/zycie006-fabricante = '3'.
/pws/zycie003-porigem = /pws/zycie003-paisfab.
...
...
MODULE atualiza_pais INPUT.
CLEAR v_paisfab.
* >> Início da exclusão: MODULE ATUALIZA_PAIS
IF '03' CA /pws/zycie006-fabricante .
* << Fim da exclusão
* >> Início da inclusão: MODULE ATUALIZA_PAIS
IF '023' CA /pws/zycie006-fabricante .
* << Fim da inclusão
CLEAR : /pws/zycie006-lifnrfabr,
/pws/zycie006-descfab,
/pws/zycie006-paisfab.
* >> Início da inclusão: MODULE ATUALIZA_PAIS
CLEAR : itab_zycit006-lifnrfabr,
itab_zycit006-descfab,
itab_zycit006-paisfab.
MODIFY itab_zycit006 TRANSPORTING lifnrfabr descfab paisfab
WHERE nrseq EQ /pws/zycie006-nrseq.
* << Fim da inclusão
v_paisfab = 'X' .
ENDIF.
LOOP AT itab_zycit003.
* >> Início da exclusão: MODULE ATUALIZA_PAIS
IF '03' CA /pws/zycie006-fabricante .
* << Fim da exclusão
* >> Início da inclusão: MODULE ATUALIZA_PAIS
IF '023' CA /pws/zycie006-fabricante .
* << Fim da inclusão
CLEAR : itab_zycit003-paisfab,
...
...
* >> Início da inclusão: MODULE ATUALIZA_PAIS
IF /pws/zycie006-fabricante EQ '2'.
v_flaglif = 'X'.
ENDIF.
* << Fim da inclusão
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003X01
...
* >> Início da inclusão:
DATA: v_flaglif.
* << Fim da inclusão
DATA: END OF COMMON PART.