CE PLUS - Nota 009342
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 09/11/2009 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:42:24
Descrição da Nota: ADICIONADO PAIS NA SELEÇÃO DA UNIDADE ESTATISTICA.
Sintoma
Ao criar o ato concessório exibe erro informando que a unidade NCM não esta corretamente
parametrizada.
Solução
Ajustada chave de seleção da tabela t604f.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09342 Data: 09/11/2009 Hora: 11:43:52
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09342
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02414 - 00001 - 6.0 - 00025 - MENSAGEM QUANDO O MATERIAL NÃO POSSUIR NCM CADASTRADO.
07462 - 00002 - 7.0 - 00007 - LI SUBSTITUTIVA FORNECEDOR FABRICANTE
07629 - 00003 - 7.0 - 00007 - MODIFICAÇÃO DO REGISTRO - ALTERAÇÃO DE ATO CONCESSÓRIO
09014 - 00004 - 7.0 - 00010 - ESTA QUEBRANDO ITEM GENÉRICO NA CRIAÇÃO DO ATO CONCESSÓRIO DE ISE
09256 - 00005 - 8.0 - 00001 - EXIBIÇÃO DE TODOS PEDIDOS VINCULADOS AO ATO CONCESSÓRIO.
----------------------------------------------------------------------------------------------------
ADICIONADO PAIS NA SELEÇÃO DA UNIDADE ESTATISTICA.
----------------------------------------------------------------------------------------------------
Palavras Chave:
PAIS - SELEÇÃO - UNIDADE - NCM - T604F
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F02
REPS /PWS/MZYCI020F01
REPS /PWS/MZYCI020F02
REPS /PWS/MZYCI023F03
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040F03
REPS /PWS/MZYCI052F01
REPS /PWS/MZYCI052O01
REPS /PWS/MZYCI052TOP
REPS /PWS/MZYCI064F02
REPS /PWS/MZYCI068F01
REPS /PWS/ZYCIR073
REPS /PWS/ZYCIR106
REPS /PWS/ZYCIR159
REPS /PWS/ZYCIR254F01
REPS /PWS/ZYCIR325F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
CLEAR v_cod_umncm.
SELECT SINGLE a~steuc INTO v_j_1bnbm
FROM ( marc AS a INNER JOIN t001w AS b ON
a~werks EQ b~werks )
WHERE a~matnr EQ p_matnr
AND a~steuc NE space
AND b~land1 EQ t001-land1. "#EC CI_BUFFJOIN
IF sy-subrc EQ 0.
SELECT SINGLE land1 /pws/zum
FROM t604f INTO (v_codpais, v_cod_umncm)
* >> Início da exclusão: FORM CARREGA_UMNCM_REAL
WHERE steuc = v_j_1bnbm. "#EC CI_GENBUFF
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_UMNCM_REAL
WHERE steuc = v_j_1bnbm
AND land1 EQ t001-land1. "#EC CI_GENBUFF
* << Fim da inclusão
ENDIF.
IF NOT v_cod_umncm IS INITIAL.
SELECT SINGLE msehi
FROM /pws/zyglt204 INTO (v_umncm)
WHERE zum = v_cod_umncm. "#EC CI_NOFIELD
IF sy-subrc NE 0.
MESSAGE i015 WITH text-240 text-241 v_j_1bnbm.
CLEAR p_qtd.
EXIT.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
OTHERS = 5.
ENDIF.
ENDLOOP.
IF /pws/zycie078-tpli EQ 'S'.
IF /pws/zycie078-classific EQ '2'.
CLEAR: /pws/zycie078-steuc1,
wa_zycit078-steuc1.
ENDIF.
ENDIF.
IF /pws/zycie078-zum IS INITIAL.
* >> Início da inclusão: FORM SAVE
IF t001-land1 IS INITIAL.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie078-bukrs.
ENDIF.
* << Fim da inclusão
SELECT SINGLE /pws/zum
FROM t604f
INTO (/pws/zycie078-zum)
* >> Início da exclusão: FORM SAVE
WHERE steuc EQ /pws/zycie078-steuc1. "#EC CI_GENBUFF
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE
WHERE steuc EQ /pws/zycie078-steuc1
AND land1 EQ t001-land1. "#EC CI_GENBUFF
* << Fim da inclusão
ENDIF.
IF v_tcode EQ '/PWS/ZYCI020_C' OR
v_tcode EQ '/PWS/ZYCI020_P' OR
v_tcode EQ '/PWS/ZYCI020_I' OR
v_flagsub1 EQ 'X' .
PERFORM verifica_nrseq_gravado.
ENDIF.
SET PARAMETER ID '/PWS/ZYCIP078' FIELD /pws/zycie078-nrseqli.
IF v_tcode EQ '/PWS/ZYCI020_A' OR
v_tcode EQ '/PWS/ZYCI020_N' OR
...
...
ENDIF.
IF NOT /pws/zycie078-lando IS INITIAL.
SELECT SINGLE landx FROM t005t
INTO (v_descr4)
WHERE land1 EQ /pws/zycie078-lando
AND spras EQ sy-langu.
ENDIF.
ENDFORM.
FORM load_ncmdesc.
IF NOT /pws/zycie078-steuc1 IS INITIAL.
* >> Início da inclusão: FORM LOAD_NCMDESC
IF t001-land1 IS INITIAL.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie078-bukrs.
ENDIF.
* << Fim da inclusão
SELECT SINGLE text1
FROM t604n
INTO /pws/zycit181-descricao
WHERE steuc EQ /pws/zycie078-steuc1. "#EC CI_GENBUFF
SELECT SINGLE /pws/zum
FROM t604f
INTO /pws/zycie078-zum
* >> Início da exclusão: FORM LOAD_NCMDESC
WHERE steuc EQ /pws/zycie078-steuc1. "#EC CI_GENBUFF
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_NCMDESC
WHERE steuc EQ /pws/zycie078-steuc1
AND land1 EQ t001-land1. "#EC CI_GENBUFF
* << Fim da inclusão
ENDIF.
IF NOT /pws/zycie078-codtsp IS INITIAL.
SELECT SINGLE descricao
FROM /pws/zycit181
INTO /pws/zycit181-descricao
WHERE codtsp EQ /pws/zycie078-codtsp.
ENDIF.
ENDFORM.
FORM verifica_marcacao.
CALL FUNCTION 'POPUP_TO_CONFIRM'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
CLEAR v_cod_umncm.
SELECT SINGLE a~steuc INTO v_j_1bnbm
FROM ( marc AS a INNER JOIN t001w AS b ON
a~werks EQ b~werks )
WHERE a~matnr EQ p_matnr
AND a~steuc NE space
AND b~land1 EQ t001-land1. "#EC CI_BUFFJOIN
IF sy-subrc EQ 0.
SELECT SINGLE land1 /pws/zum
FROM t604f INTO (v_codpais, v_cod_umncm)
* >> Início da exclusão: FORM CONVERTE_UM_NCM
WHERE steuc = v_j_1bnbm. "#EC CI_GENBUFF
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
WHERE steuc = v_j_1bnbm
AND land1 EQ t001-land1. "#EC CI_GENBUFF
* << Fim da inclusão
ENDIF.
IF NOT v_cod_umncm IS INITIAL.
SELECT SINGLE msehi "#EC CI_NOFIELD
FROM /pws/zyglt204 INTO (v_umncm)
WHERE zum = v_cod_umncm.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-436 text-437 v_j_1bnbm.
CLEAR p_qtd.
EXIT.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
FOR ALL ENTRIES IN itab_gped
WHERE bsart = itab_gped-bsart. "#EC CI_NOFIELD
ENDIF.
IF NOT itab_ekpo[] IS INITIAL.
SELECT * FROM /pws/zycit234
INTO TABLE itab_zycit234
FOR ALL ENTRIES IN itab_ekpo
WHERE matnr EQ itab_ekpo-matnr.
ENDIF.
IF NOT itab_ekpo[] IS INITIAL.
* >> Início da inclusão: FORM VERIFICA_LI
IF t001-land1 IS INITIAL.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie085-bukrs.
ENDIF.
* << Fim da inclusão
SELECT steuc /pws/obrigli FROM t604f
INTO TABLE itab_t604f
FOR ALL ENTRIES IN itab_ekpo
* >> Início da exclusão: FORM VERIFICA_LI
WHERE steuc EQ itab_ekpo-j_1bnbm . "#EC CI_SGLSELECT
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_LI
WHERE steuc EQ itab_ekpo-j_1bnbm
AND land1 EQ t001-land1. "#EC CI_SGLSELECT
* << Fim da inclusão
ENDIF.
IF NOT itab_ekpo[] IS INITIAL.
SELECT /pws/zycit079~nrseqli /pws/zycit079~ebeln /pws/zycit079~ebelp
/pws/zycit078~steuc1 /pws/zycit078~dtdef /pws/zycit078~dtvencto
/pws/zycit078~nrseqdi
/pws/zycit079~menge
FROM ( /pws/zycit078 INNER JOIN /pws/zycit079 ON /pws/zycit078~nrseqli
=
/pws/zycit079~nrseqli )
INTO TABLE itab_li
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
CLEAR v_cod_umncm.
SELECT SINGLE a~steuc INTO v_j_1bnbm
FROM ( marc AS a INNER JOIN t001w AS b ON
a~werks EQ b~werks )
WHERE a~matnr EQ p_matnr
AND a~steuc NE space
AND b~land1 EQ t001-land1. "#EC CI_BUFFJOIN
IF sy-subrc EQ 0.
SELECT SINGLE land1 /pws/zum
FROM t604f INTO (v_codpais, v_cod_umncm)
* >> Início da exclusão: FORM CONVERTE_UM_NCM
WHERE steuc = v_j_1bnbm. "#EC CI_GENBUFF
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
WHERE steuc = v_j_1bnbm
AND land1 EQ t001-land1. "#EC CI_GENBUFF
* << Fim da inclusão
ENDIF.
IF NOT v_cod_umncm IS INITIAL.
SELECT SINGLE msehi "#EC CI_NOFIELD
FROM /pws/zyglt204 INTO (v_umncm)
WHERE zum = v_cod_umncm.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-240 text-241 v_j_1bnbm.
CLEAR p_qtd.
EXIT.
ENDIF.
...
...
FORM busca_um_ncm USING p_ncm
CHANGING p_meins.
DATA: v_umncm LIKE /pws/zyglt204-zum .
SELECT SINGLE /pws/zum
FROM t604f INTO v_umncm
* >> Início da exclusão: FORM BUSCA_UM_NCM
WHERE steuc = p_ncm. "#EC CI_GENBUFF
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_UM_NCM
WHERE steuc = p_ncm
AND land1 EQ t001-land1. "#EC CI_GENBUFF
* << Fim da inclusão
IF NOT v_umncm IS INITIAL.
SELECT SINGLE msehi "#EC CI_NOFIELD
FROM /pws/zyglt204 INTO p_meins
WHERE zum = v_umncm.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-240 text-241 p_ncm.
CLEAR p_meins.
EXIT.
ENDIF.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F03
...
p_v_um_ren
p_v_umncm.
DATA: v_cod_umncm LIKE /pws/zyglt204-zum ,
v_codpais LIKE /pws/zycev604-land1 ,
v_qtd_ncm LIKE /pws/zycit247-qtd_ncm.
IF p_itab_zycit247_j_1bnbm IS INITIAL.
EXIT.
ENDIF.
SELECT SINGLE land1 /pws/zum
FROM t604f INTO (v_codpais, v_cod_umncm)
* >> Início da exclusão: FORM CARREGA_UMNCM_EXP
WHERE steuc = p_itab_zycit247_j_1bnbm. "#EC CI_GENBUFF
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_UMNCM_EXP
WHERE steuc = p_itab_zycit247_j_1bnbm
AND land1 EQ t001-land1. "#EC CI_GENBUFF
* << Fim da inclusão
IF NOT v_cod_umncm IS INITIAL.
SELECT SINGLE msehi "#EC CI_NOFIELD
FROM /pws/zyglt204 INTO (p_v_umncm)
WHERE zum = v_cod_umncm.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-240 text-241 p_itab_zycit247_j_1bnbm.
EXIT.
ENDIF.
ELSE.
IF sy-subrc EQ 0.
...
...
p_itab_zycit245_codcomp
CHANGING p_v_um_basica
p_v_um_rez
p_v_um_ren
p_v_umncm.
DATA: v_cod_umncm LIKE /pws/zyglt204-zum ,
v_codpais LIKE /pws/zycev604-land1 ,
v_qtd_ncm LIKE /pws/zycit245-qtd_ncm.
SELECT SINGLE land1 /pws/zum
FROM t604f INTO (v_codpais, v_cod_umncm)
* >> Início da exclusão: FORM CARREGA_UMNCM_IMP
WHERE steuc = p_itab_zycit245_j_1bnbm. "#EC CI_GENBUFF
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_UMNCM_IMP
WHERE steuc = p_itab_zycit245_j_1bnbm
AND land1 EQ t001-land1. "#EC CI_GENBUFF
* << Fim da inclusão
IF NOT v_cod_umncm IS INITIAL.
SELECT SINGLE msehi "#EC CI_NOFIELD
FROM /pws/zyglt204 INTO (p_v_umncm)
WHERE zum = v_cod_umncm.
SELECT SINGLE umrez umren
FROM marm INTO (p_v_um_rez, p_v_um_ren)
WHERE matnr = p_itab_zycit245_codcomp
AND meinh = p_v_umncm.
ENDIF.
ENDFORM.
...
...
p_itab_zycit247_codmat
CHANGING p_v_um_basica
p_v_um_rez
p_v_um_ren
p_v_umncm.
DATA: v_cod_umncm LIKE /pws/zyglt204-zum ,
v_codpais LIKE /pws/zycev604-land1 ,
v_qtd_ncm LIKE /pws/zycit247-qtd_ncm.
SELECT SINGLE land1 /pws/zum
FROM t604f INTO (v_codpais, v_cod_umncm)
* >> Início da exclusão: FORM CARREGA_UMNCM_REAL
WHERE steuc = p_itab_zycit247_j_1bnbm. "#EC CI_GENBUFF
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_UMNCM_REAL
WHERE steuc = p_itab_zycit247_j_1bnbm
AND land1 EQ t001-land1. "#EC CI_GENBUFF
* << Fim da inclusão
IF NOT v_cod_umncm IS INITIAL.
SELECT SINGLE msehi "#EC CI_NOFIELD
FROM /pws/zyglt204 INTO (p_v_umncm)
WHERE zum = v_cod_umncm.
SELECT SINGLE umrez umren
FROM marm INTO (p_v_um_rez, p_v_um_ren)
WHERE matnr = p_itab_zycit247_codmat
AND meinh = p_v_umncm.
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI052F01
...
CLEAR: v_um_rez, v_um_ren, v_codpais, v_cod_umncm, v_umncm.
IF p_werks IS INITIAL.
CLEAR p_qtd.
EXIT.
ENDIF.
CLEAR v_cod_umncm.
SELECT SINGLE steuc FROM marc INTO v_j_1bnbm
WHERE matnr EQ p_matnr
AND werks EQ p_werks.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE land1 /pws/zum "#EC CI_GENBUFF
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE land1 /pws/zum
* << Fim da inclusão
FROM t604f INTO (v_codpais, v_cod_umncm)
* >> Início da exclusão: FORM CONVERTE_UM_NCM
WHERE steuc = v_j_1bnbm.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
WHERE steuc = v_j_1bnbm
AND land1 EQ t001-land1. "#EC CI_GENBUFF
* << Fim da inclusão
ENDIF.
IF NOT v_cod_umncm IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI052O01
...
itab_zycit329-vluni_me TO /pws/zycie329-vluni_me ,
itab_zycit329-series TO /pws/zycie329-series ,
itab_zycit329-subser TO /pws/zycie329-subser ,
itab_zycit329-bukrs TO /pws/zycie329-bukrs ,
itab_zycit329-waerk TO /pws/zycie329-waerk ,
itab_zycit329-j_1bbranch TO /pws/zycie329-j_1bbranch,
itab_zycit329-docdat TO /pws/zycie329-docdat ,
itab_zycit329-datsys TO /pws/zycie329-datsys ,
itab_zycit329-cicms TO /pws/zycie329-cicms ,
itab_zycit329-tipo TO /pws/zycie329-tipo .
* >> Início da inclusão: MODULE ATUALIZA_ZYCIE329
IF /pws/zycie329-bukrs NE t001-bukrs.
SELECT SINGLE * FROM t001
WHERE bukrs EQ /pws/zycie329-bukrs.
ENDIF.
* << Fim da inclusão
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI052TOP
* >> Início da inclusão:
TABLES t001.
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064F02
...
CLEAR v_cod_umncm.
SELECT SINGLE a~steuc INTO v_j_1bnbm
FROM ( marc AS a INNER JOIN t001w AS b ON
a~werks EQ b~werks )
WHERE a~matnr EQ p_matnr
AND a~steuc NE space
AND b~land1 EQ t001-land1. "#EC CI_BUFFJOIN
IF sy-subrc EQ 0.
SELECT SINGLE land1 /pws/zum
FROM t604f INTO (v_codpais, v_cod_umncm)
* >> Início da exclusão: FORM CONVERTE_UM_NCM
WHERE steuc = v_j_1bnbm. "#EC CI_GENBUFF
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
WHERE steuc = v_j_1bnbm
AND land1 EQ t001-land1. "#EC CI_GENBUFF
* << Fim da inclusão
ENDIF.
IF NOT v_cod_umncm IS INITIAL.
SELECT SINGLE msehi "#EC CI_NOFIELD
FROM /pws/zyglt204 INTO (v_umncm)
WHERE zum = v_cod_umncm.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-240 text-241 v_j_1bnbm.
CLEAR p_qtd.
EXIT.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI068F01
...
v_um_rez2, v_um_ren2.
IF p_werks IS INITIAL.
CLEAR p_qtd.
EXIT.
ENDIF.
CLEAR v_cod_umncm.
SELECT SINGLE steuc FROM marc INTO v_j_1bnbm
WHERE matnr EQ p_matnr
AND werks EQ p_werks.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE land1 /pws/zum "#EC CI_GENBUFF
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE land1 /pws/zum
* << Fim da inclusão
FROM t604f INTO (v_codpais, v_cod_umncm)
* >> Início da exclusão: FORM CONVERTE_UM_NCM
WHERE steuc = v_j_1bnbm.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
WHERE steuc = v_j_1bnbm
AND land1 EQ t001-land1. "#EC CI_GENBUFF
* << Fim da inclusão
ENDIF.
IF NOT v_cod_umncm IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR073
...
CLEAR p_qtd.
EXIT.
ENDIF.
CLEAR v_cod_umncm.
SELECT SINGLE steuc FROM marc INTO v_j_1bnbm
WHERE matnr EQ p_matnr
AND werks EQ p_werks.
IF sy-subrc EQ 0.
SELECT SINGLE land1 /pws/zum
FROM t604f INTO (v_codpais, v_cod_umncm) "#EC CI_GENBUFF
* >> Início da exclusão: FORM CONVERTE_UM_NCM
WHERE steuc = v_j_1bnbm.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
WHERE steuc = v_j_1bnbm
AND land1 EQ t001-land1. "#EC CI_SGLSELECT
* << Fim da inclusão
ENDIF.
IF NOT v_cod_umncm IS INITIAL.
SELECT SINGLE msehi
FROM /pws/zyglt204 INTO (v_umncm)
WHERE zum = v_cod_umncm. "#EC CI_NOFIELD
IF sy-subrc NE 0.
MESSAGE i015 WITH text-050 text-051 v_j_1bnbm.
CLEAR p_qtd.
EXIT.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR106
...
v_conv2 TYPE /pws/zycit245-qtd_ncm.
CLEAR: v_um_rez, v_um_ren, v_codpais, v_cod_umncm, v_umncm.
SELECT SINGLE a~steuc INTO v_j_1bnbm
FROM ( marc AS a INNER JOIN t001w AS b ON
a~werks EQ b~werks )
WHERE a~matnr EQ p_matnr
AND a~steuc NE space
AND b~land1 EQ t001w-land1. "#EC CI_BUFFJOIN
IF sy-subrc EQ 0.
SELECT SINGLE land1 /pws/zum
* >> Início da exclusão: FORM CARREGA_UMNCM_REAL
FROM t604f INTO (v_codpais, v_cod_umncm) "#EC CI_GENBUFF
WHERE steuc = v_j_1bnbm.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_UMNCM_REAL
FROM t604f INTO (v_codpais, v_cod_umncm)
WHERE steuc = v_j_1bnbm
AND land1 EQ t001w-land1. "#EC CI_GENBUFF
* << Fim da inclusão
ELSE.
MESSAGE i015 WITH text-007 p_matnr.
CLEAR p_qtd.
EXIT.
ENDIF.
SELECT SINGLE msehi
FROM /pws/zyglt204 INTO (v_umncm)
WHERE zum = v_cod_umncm. "#EC CI_NOFIELD
IF sy-subrc NE 0 .
MESSAGE i015 WITH text-005 text-006 v_j_1bnbm.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR159
...
* >> Início da inclusão:
DATA wa_t001w TYPE t001w.
* << Fim da inclusão
SELECTION-SCREEN BEGIN OF BLOCK sel WITH FRAME TITLE text-000.
PARAMETER: p_nrseqd LIKE /pws/zycie244-nrseqd .
SELECT-OPTIONS: s_nrseq FOR /pws/zycie001-nrseq ,
s_ebeln FOR /pws/zycie003-ebeln ,
s_local FOR /pws/zycie001-j_1bbranch ,
s_data FOR /pws/zycie001-dtprevcheg .
SELECTION-SCREEN END OF BLOCK sel.
...
...
FORM move_dados.
DATA: v_saldo TYPE /pws/zycit279-menge,
v_reali TYPE /pws/zycit279-menge,
v_reali2 TYPE /pws/zycit279-menge.
CLEAR i_final.
REFRESH i_final.
LOOP AT itab_zycit376.
* >> Início da inclusão: FORM MOVE_DADOS
IF wa_t001w-land1 IS INITIAL.
SELECT SINGLE * FROM t001w
INTO wa_t001w
WHERE werks EQ itab_zycit376-werks.
ENDIF.
* << Fim da inclusão
LOOP AT itab_zycit003 WHERE ebeln = itab_zycit376-ebeln
AND ebelp = itab_zycit376-ebelp.
PERFORM converte_um_ncm USING itab_zycit003-matnr
CHANGING itab_zycit003-meins
itab_zycit003-qtd_iten.
CLEAR: v_reali,
v_reali2,
v_saldo.
LOOP AT itab_zycit279 WHERE ebeln = itab_zycit376-ebeln
AND ebelp = itab_zycit376-ebelp
...
...
v_um_rez2, v_um_ren2.
CLEAR v_cod_umncm.
SELECT SINGLE a~steuc INTO v_j_1bnbm
FROM ( marc AS a INNER JOIN t001w AS b ON "#EC CI_BUFFJOIN
a~werks EQ b~werks )
WHERE a~matnr EQ p_matnr
AND a~steuc NE space.
IF sy-subrc EQ 0.
SELECT SINGLE land1 /pws/zum
FROM t604f INTO (v_codpais, v_cod_umncm) "#EC CI_GENBUFF
* >> Início da exclusão: FORM CONVERTE_UM_NCM
WHERE steuc = v_j_1bnbm.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
WHERE steuc = v_j_1bnbm
AND land1 EQ wa_t001w-land1.
* << Fim da inclusão
ENDIF.
IF NOT v_cod_umncm IS INITIAL.
SELECT SINGLE msehi
FROM /pws/zyglt204 INTO (v_umncm)
WHERE zum = v_cod_umncm. "#EC CI_NOFIELD
IF sy-subrc NE 0.
MESSAGE i015 WITH text-026 text-027 v_j_1bnbm.
CLEAR p_qtd.
EXIT.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR254F01
...
CLEAR v_cod_umncm.
SELECT SINGLE a~steuc INTO v_j_1bnbm
FROM ( marc AS a INNER JOIN t001w AS b ON
a~werks EQ b~werks )
WHERE a~matnr EQ p_matnr
AND a~steuc NE space
AND b~land1 EQ t001-land1. "#EC CI_BUFFJOIN
IF sy-subrc EQ 0.
SELECT SINGLE land1 /pws/zum
FROM t604f INTO (v_codpais, v_cod_umncm)
* >> Início da exclusão: FORM CONVERTE_UM_NCM
WHERE steuc = v_j_1bnbm. "#EC CI_GENBUFF
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
WHERE steuc = v_j_1bnbm
AND land1 EQ t001-land1. "#EC CI_GENBUFF
* << Fim da inclusão
ENDIF.
IF NOT v_cod_umncm IS INITIAL.
SELECT SINGLE msehi "#EC CI_NOFIELD
FROM /pws/zyglt204 INTO (v_umncm)
WHERE zum = v_cod_umncm.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-072 text-073 v_j_1bnbm.
CLEAR p_qtd.
EXIT.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR325F01
...
v_qtdtmp2 LIKE /pws/zycit282-qtd_iorg.
IF itab_zycit433[] IS INITIAL.
SELECT * FROM /pws/zycit433 INTO TABLE itab_zycit433."#EC CI_NOWHERE
ENDIF.
CLEAR: v_qtd_apr, v_qtd_apr2.
v_erro_apr = 'S'.
READ TABLE itab_lista INDEX 1.
v_qtd_apr2 = itab_lista-qtd_tot / itab_lista-menge.
IF itab_fornec-tipo EQ 'C'.
LOOP AT itab_zycit244 WHERE tipo EQ 'C' OR tipo EQ 'G'.
* >> Início da inclusão: FORM APROPRIA_IMP
IF itab_zycit244-bukrs NE t001-bukrs.
SELECT SINGLE * FROM t001
WHERE bukrs EQ itab_zycit244-bukrs.
ENDIF.
* << Fim da inclusão
IF itab_zycit244-tipo EQ 'G' OR
( /pws/zycit321-c_comum EQ 'X' AND
itab_zycit244-tipo EQ 'C' ).
CLEAR: itab_lips, itab_zycit247.
READ TABLE itab_lips WITH KEY vbeln = itab_fornec-fornec
posnr = itab_fornec-itforn.
READ TABLE itab_zycit247 WITH KEY j_1bnbm = itab_lips-steuc
nrseqd = itab_zycit244-nrseqd
esgotado = space.
IF sy-subrc NE 0.
...
...
IF NOT v_qtd_apr2 IS INITIAL.
LOOP AT itab_lista.
itab_lista-qtd_tot = v_qtd_apr2 * itab_lista-menge .
MODIFY itab_lista.
ENDLOOP.
ENDIF.
ENDLOOP.
ELSE.
LOOP AT itab_zycit244 WHERE kunnr EQ itab_fornec-kunnr
AND tipo EQ 'N'.
* >> Início da inclusão: FORM APROPRIA_IMP
IF itab_zycit244-bukrs NE t001-bukrs.
SELECT SINGLE * FROM t001
WHERE bukrs EQ itab_zycit244-bukrs.
ENDIF.
* << Fim da inclusão
CLEAR: itab_zycit427.
IF /pws/zycit321-ltopc EQ '1'.
READ TABLE itab_zycit427 WITH KEY mvgr1 = itab_fornec-mvgr1
ncm = itab_fornec-steuc
werks = itab_fornec-werks
nrseqd = itab_zycit244-nrseqd
esgotado = space.
ELSE.
IF /pws/zycit321-c_comum NE 'X'.
READ TABLE itab_zycit427 WITH KEY matnr = itab_fornec-matnr
...
...
IF t001 IS INITIAL.
ENDIF.
SELECT SINGLE a~steuc INTO v_j_1bnbm
FROM ( marc AS a INNER JOIN t001w AS b ON
a~werks EQ b~werks )
WHERE a~matnr EQ p_matnr
AND a~steuc NE space. "#EC CI_BUFFJOIN
IF sy-subrc EQ 0.
SELECT SINGLE land1 /pws/zum
FROM t604f INTO (v_codpais, v_cod_umncm)
* >> Início da exclusão: FORM CONVERTE_UM_NCM
WHERE steuc = v_j_1bnbm. "#EC CI_GENBUFF
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
WHERE steuc = v_j_1bnbm
AND land1 EQ t001-land1. "#EC CI_GENBUFF
* << Fim da inclusão
ENDIF.
IF NOT v_cod_umncm IS INITIAL.
SELECT SINGLE msehi
FROM /pws/zyglt204 INTO (v_umncm)
WHERE zum = v_cod_umncm. "#EC CI_NOFIELD
IF sy-subrc NE 0.
MESSAGE i015 WITH text-240 text-241 v_j_1bnbm.
CLEAR p_qtd.
EXIT.
ENDIF.
...
...
CLEAR itab_logs.
CONCATENATE text-016 p_matnr text-017 text-018
INTO itab_logs-erro SEPARATED BY space.
APPEND itab_logs.
EXIT.
ENDIF.
v_erro = 'S'.
ENDIF.
LOOP AT itab_zycit244 WHERE kunnr EQ p_kunnr
AND tipo EQ 'N'.
* >> Início da inclusão: FORM EXPL_AGRUP
IF itab_zycit244-bukrs NE t001-bukrs.
SELECT SINGLE * FROM t001
WHERE bukrs EQ itab_zycit244-bukrs.
ENDIF.
* << Fim da inclusão
READ TABLE itab_zycit427 WITH KEY mvgr1 = p_mvgr1
ncm = p_steuc
werks = p_werks
nrseqd = itab_zycit244-nrseqd
esgotado = space.
IF sy-subrc EQ 0.
CONTINUE.
ENDIF.
ENDLOOP.
CLEAR: wa_zycit421.
...