CE PLUS - Nota 011209
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 06/06/2011 00:00:00
Data/Hora Última Alteração: 08/06/2011 16:36:06
Descrição da Nota: A LI DEIXAVA VINCULAR COM NCMS DIFERENTES.
Sintoma
A LI deixava vincular com NCMs diferentes.
Solução
Verificar se o NCM dos itens são diferentes antes de vincular.
Versões Tratadas
8.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11209 Data: 06/06/2011 Hora: 15:46:21
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11209
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00007
Agrupamento : 00073
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
----------------------------------------------------------------------------------------------------
A LI DEIXAVA VINCULAR COM NCMS DIFERENTES.
----------------------------------------------------------------------------------------------------
Palavras Chave:
NCM - LI - VINCULAÇÃO - SUFRAMA.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F01
REPS /PWS/MZYCI020TOP
REPS /PWS/MZYCI020X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
OTHERS = 3.
IF sy-subrc EQ '1'.
v_mess_ped = 'X'.
DELETE itab_itens.
ENDIF.
ENDLOOP.
IF v_mess_ped EQ 'X'.
MESSAGE i015 WITH text-443.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM SELECIONAR_ITENS
clear v_ncmdf .
* << Fim da inclusão
CLEAR itab_itens.
READ TABLE itab_itens INDEX 1 .
MOVE: itab_itens-lifnr TO v_lifnr,
itab_itens-waers TO v_waers,
itab_itens-inco1 TO v_inco1,
itab_itens-waers TO /pws/zycie000-waers,
itab_itens-lifnr TO /pws/zycie000-lifnr.
LOOP AT itab_itens WHERE waers NE v_waers.
MESSAGE e015 WITH text-021.
ENDLOOP.
LOOP AT itab_itens WHERE inco1 NE v_inco1.
MESSAGE e015 WITH text-022.
ENDLOOP.
LOOP AT itab_itens WHERE lifnr NE v_lifnr.
MESSAGE e015 WITH text-023.
ENDLOOP.
* >> Início da inclusão: FORM SELECIONAR_ITENS
MOVE itab_itens-j_1bnbm TO v_j1bnbm .
LOOP AT itab_itens WHERE j_1bnbm NE v_j1bnbm .
v_ncmdf = 'X'.
ENDLOOP.
IF v_ncmdf EQ 'X' .
MESSAGE e015 WITH text-073.
ENDIF.
* << Fim da inclusão
DESCRIBE TABLE itab_itens LINES v_nolin.
IF v_nolin IS INITIAL.
IF /pws/zycie078-nacion IS INITIAL.
MESSAGE e015 WITH text-033.
ENDIF.
...
...
CASE sy-dynnr.
WHEN '0109'.
* >> Início da exclusão: FORM MODO_EXIB
CLEAR: v_ncmdf.
LOOP AT it_zycit079.
READ TABLE itab_itens_aux WITH KEY ebelp = it_zycit079-ebelp
ebeln = it_zycit079-ebeln.
IF sy-subrc EQ 0.
IF v_ncm IS INITIAL.
v_ncm = itab_itens_aux-j_1bnbm.
ENDIF.
IF itab_itens_aux-j_1bnbm NE v_ncm.
MESSAGE s015 WITH text-073.
v_ncmdf = 'X'.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
* << Fim da exclusão
CLEAR v_ncm.
LOOP AT tc_item-cols INTO wa_cols.
IF wa_cols-screen-name EQ '/PWS/ZYCIE376-NRSEQD'.
IF v_nvinc NE 'X'.
wa_cols-invisible = 1.
ELSE.
wa_cols-invisible = 0.
ENDIF.
MODIFY tc_item-cols FROM wa_cols.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020TOP
...
IF NOT wa_impress IS INITIAL.
screen-input = '0'.
MODIFY SCREEN.
MOVE wa_impress-ebeln TO so_ebeln-low.
MOVE wa_impress-ebeln TO so_ebeln-high.
MOVE 'EQ' TO so_ebeln-option.
APPEND so_ebeln.
READ TABLE so_ebeln INDEX 1.
ENDIF.
ENDIF.
* >> Início da inclusão:
IF screen-name EQ 'SO_NCM-LOW' .
IF NOT so_ncm-low IS INITIAL.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
* << Fim da inclusão
IF ( screen-name EQ 'SO_WAERS-LOW' AND
NOT /pws/zycie078-waers IS INITIAL ) OR
( screen-name EQ 'SO_INCO1-LOW' AND
NOT /pws/zycie078-inco1 IS INITIAL ) OR
( screen-name EQ 'PA_BUKRS' ).
screen-input = '0'.
MODIFY SCREEN.
ELSE.
screen-input = '1'.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020X01
...
* >> Início da inclusão:
data v_j1bnbm type ekpo-j_1bnbm.
* << Fim da inclusão
DATA: END OF COMMON PART.