CE PLUS - Nota 008676
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: PLI
Data/Hora da Publicação: 15/07/2009 00:00:00
Data/Hora Última Alteração: 09/03/2010 17:05:05
Descrição da Nota: AJUSTES PARA TRATAMENTO DE PLI COM PEDIDO SEM MATERIAL
Sintoma
Ajustes para tratamento de PLI sem material.
Solução
Não verificar PPB quando pedido de compras não possuir material.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08676 Data: 15/07/2009 Hora: 09:13:01
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08676
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00105
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AJUSTES PARA TRATAMENTO DE PLI COM PEDIDO SEM MATERIAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
PLI - MATERIAL - MATNR - PPB
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F01
REPS /PWS/MZYCI020F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
IF v_tcode EQ '/PWS/ZYCI020_G' OR
v_tcode EQ '/PWS/ZYCI020_I' .
IF screen-name EQ '/PWS/ZYCIE079-ZUM' OR
screen-name EQ '/PWS/ZYCIE079-QTDEST'.
* >> Início da exclusão: FORM MODO_EXIB
IF /pws/zycie078-aplicpli EQ '2'.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_EXIB
READ TABLE it_zycit079 WITH KEY ebeln = /pws/zycie079-ebeln
ebelp = /pws/zycie079-ebelp.
IF /pws/zycie078-aplicpli EQ '2' OR
it_zycit079-matnr IS INITIAL.
* << Fim da inclusão
screen-input = '1'.
ELSE.
screen-input = '0'.
ENDIF.
ENDIF.
ENDIF.
...
...
IF t001-land1 IS INITIAL.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie078-bukrs.
ENDIF.
IF /pws/zycie078-zum IS INITIAL.
SELECT SINGLE /pws/zum
FROM t604f
INTO (/pws/zycie078-zum)
* >> Início da exclusão: FORM SAVEPLI
WHERE steuc EQ /pws/zycie078-steuc1 "#EC CI_GENBUFF
* << Fim da exclusão
* >> Início da inclusão: FORM SAVEPLI
WHERE steuc EQ /pws/zycie078-steuc1 "#EC CI_GENBUFF
* << Fim da inclusão
and land1 eq t001-land1.
ENDIF.
...
...
LOOP AT it_zycit079.
MOVE it_zycit079-lifnr TO it_lifnr-lifnr.
IF NOT it_lifnr-lifnr IS INITIAL.
COLLECT it_lifnr.
ENDIF.
CLEAR v_texto.
* >> Início da exclusão: FORM CARREGA_PRE_CRITICA_PLI
IF ( /pws/zycie078-fabricante = '1' OR /pws/zycie078-fabricante =
'2' )
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_PRE_CRITICA_PLI
IF ( /pws/zycie078-fabricante = '1' OR
/pws/zycie078-fabricante = '2' )
* << Fim da inclusão
AND it_zycit079-lifnr IS INITIAL.
CONCATENATE text-367 text-372 it_zycit079-ebeln '/'
it_zycit079-ebelp text-375 INTO v_texto
SEPARATED BY space.
PERFORM monta_it_precritica USING
v_texto '@0A@' '' text-331.
ENDIF.
* >> Início da exclusão: FORM CARREGA_PRE_CRITICA_PLI
IF it_zycit079-destaque IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_PRE_CRITICA_PLI
IF it_zycit079-destaque IS INITIAL
AND NOT it_zycit079-matnr IS INITIAL.
* << Fim da inclusão
CONCATENATE text-371 text-372 it_zycit079-ebeln text-373
it_zycit079-ebelp INTO v_texto SEPARATED BY space.
PERFORM monta_it_precritica USING
v_texto '@0A@' '' text-331.
ENDIF.
CLEAR v_texto.
SPLIT it_zycit079-steuc1 AT '.'
INTO v_steuc_temp1 v_steuc_temp2
v_steuc_temp3.
SHIFT v_steuc_temp1 LEFT DELETING LEADING space.
SHIFT v_steuc_temp2 LEFT DELETING LEADING space.
SHIFT v_steuc_temp3 LEFT DELETING LEADING space.
CONCATENATE v_steuc_temp1 v_steuc_temp2 v_steuc_temp3 INTO
v_steuc2.
* >> Início da inclusão: FORM CARREGA_PRE_CRITICA_PLI
IF NOT it_zycit079-matnr IS INITIAL.
* << Fim da inclusão
IF NOT /pws/zycie078-aplicpli EQ '2'.
SELECT * FROM /pws/zycit219 INTO TABLE itab_zycit219
WHERE codigo = it_zycit079-codsufra
AND ncm = v_steuc2
AND destaque = it_zycit079-destaque.
READ TABLE itab_zycit219 INDEX 1.
IF sy-subrc NE 0.
CONCATENATE text-377 it_zycit079-ebeln '/' it_zycit079-ebelp
text-378 INTO v_texto SEPARATED BY space.
PERFORM monta_it_precritica USING
v_texto '@0A@' '' text-331.
* >> Início da inclusão: FORM CARREGA_PRE_CRITICA_PLI
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDLOOP.
SORT it_zycit079 BY nrseq ebeln ebelp.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
FORM consiste_aplicacao.
DATA: v_destaque TYPE /pws/zycit079-destaque,
v_fator TYPE /pws/zycit079-fator ,
v_zum TYPE /pws/zycit079-zum ,
v_codsufra TYPE /pws/zycit079-codsufra.
IF /pws/zycie078-tpli EQ 'N'
AND /pws/zycie078-flagpli EQ 'X'.
* >> Início da inclusão: FORM CONSISTE_APLICACAO
IF NOT itab_itens-matnr IS INITIAL.
* << Fim da inclusão
IF NOT /pws/zycie078-aplicpli EQ '2'.
SELECT *
FROM /pws/zycit338
INTO TABLE itab_zycit338
WHERE matnr EQ itab_itens-matnr.
IF sy-subrc EQ 0.
v_destaque = it_zycit079-destaque.
v_fator = it_zycit079-fator .
v_zum = it_zycit079-zum .
v_codsufra = v_codsufra.
...
...
IF sy-subrc EQ 0 AND /pws/zycit219-flagdest EQ 'X'.
MOVE: '999' TO it_anu2-codncm,
/pws/zycie078-nrseqli TO it_anu2-nrseqli,
it_zycit079-ebeln TO it_anu2-ebeln,
it_zycit079-ebelp TO it_anu2-ebelp.
APPEND it_anu2.
ENDIF.
ELSE.
MESSAGE w061 WITH text-321
text-320 text-432.
* >> Início da inclusão: FORM CONSISTE_APLICACAO
ENDIF.
ELSE.
it_zycit079-codsufra = '0000'.
it_zycit079-destaque = '0001'.
* << Fim da inclusão
ENDIF.
ELSE.
it_zycit079-codsufra = '0000'.
it_zycit079-destaque = '0001'.
ENDIF.
ENDIF.
ENDFORM.
...