CE PLUS - Nota 001284
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 08/05/2006 00:00:00
Data/Hora Última Alteração: 17/02/2011 13:34:04
Descrição da Nota: AJUSTES PARA CONTROLE DE ATO CONCESSÓRIO COMUM POR NCM.
Sintoma
O programa de Ato concessório não permite o controle de ato concessório comum por NCM.
Solução
Adicionar novo parametro a tabela /pws/zycit321 referente ao modo que deve ser controlado os atos
concessórios do tipo comum, se por NCM ou código de material. E ajustar o programa de ato
concessório para tratamento do novo parametro.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01284 Data: 08/05/2006 Hora: 08:45:14
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01284
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00112
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00902 - 00001 - 6.0 - 00022 - ATO COM REFERENCIA EM FORECAST COM LISTA TÉCNICA POR AGRUPAMENTO
00948 - 00002 - 6.0 - 00022 - PARAMETRO UF DE ENTRADA
00968 - 00003 - 6.0 - 00022 - TOLERANCIA DE DIAS ENTRE VENCIMENTO DO ATO E EMBARQUE DE EXPORTAÇ
00979 - 00004 - 6.0 - 00022 - CONVERSÃO DE UNIDADES QUE NÃO NECESSITAM SER CADASTRADAS
----------------------------------------------------------------------------------------------------
AJUSTES PARA CONTROLE DE ATO CONCESSÓRIO COMUM POR NCM.
----------------------------------------------------------------------------------------------------
Palavras Chave:
ATO CONCESSÓRIO - PARAMETRO - COMUM - NCM
/PWS/SAPMZYCI040
----------------------------------------------------------------------------------------------------
Objetos da nota:
DOMA /PWS/ZYGLD558
DTEL /PWS/ZYCIL839
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040I01
REPS /PWS/MZYCI040O01
TABD /PWS/ZYCIT321
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMA /PWS/ZYGLD558
------------------------------------------------------------------------
Domínio incluído: /PWS/ZYGLD558
Descrição breve incluída (58 caracteres), idioma: PT
"GL - TIPO DE CONTROLE ATO CONCESSÓRIO COMUM (MATERIAL/NCM)"
Classe de desenvolvimento: /PWS/ZYGL
Idioma original: PT
Categoria de dados: CHAR
Número de posições: 1
Comprimento de saída: 1
Rotina de conversão:
Letras minúsculas: NÃO
-Valores individuais
Incluído valor fixo ""
Texto incluído, idioma: PT (8 caracteres):
"Material"
Incluído valor fixo "X"
Texto incluído, idioma: PT (3 caracteres):
"NCM"
Incluída tabela de valores:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL839
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL839
Classe de desenvolvimento: /PWS/ZYGL
Idioma original: PT
Descrição breve incluída: (58 caracteres), idioma: PT
"GL - TIPO DE CONTROLE ATO CONCESSÓRIO COMUM (MATERIAL/NCM)"
Categoria de dados: Domínio
Domínio: /PWS/ZYGLD558
ID parâmetro:
Nome componente default:
Documentar modificações: NÃO
Nome da ajuda de pesquisa:
Parâmetro da ajuda de pesquisa:
Comprimento máximo do denominador breve: 10
Denominador breve incluído (9 caracteres), idioma: PT
"(Mat/NCM)"
Comprimento máximo do denominador médio: 18
Denominador médio incluído (18 caracteres), idioma: PT
"Controle (Mat/NCM)"
Comprimento máximo do denominador longo: 27
Denominador longo incluído (27 caracteres), idioma: PT
"GL - Controle por (Mat/NCM)"
Comprimento máximo do título: 55
Título incluído (55 caracteres), idioma: PT
"GL - TIPO DE CONTROLE ATO CONCESSÓRIO COMUM (MATERIAL/N"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
ELSE.
IF /pws/zycie244-modalidade EQ 'S'.
IF /pws/zycie244-nrforecast IS INITIAL.
IF wa_cols2-screen-group1 NE 'NEX'.
wa_cols2-screen-input = v_status2.
* >> Início da exclusão: FORM CHECK_FIELD_0203
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0203
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F' OR
/pws/zycit321-c_comum EQ 'X'.
* << Fim da inclusão
IF wa_cols2-screen-name EQ '/PWS/ZYCIE245-NETPR'.
wa_cols2-screen-input = 0.
ELSEIF wa_cols2-screen-name EQ '/PWS/ZYCIE245-NETPR_T'.
wa_cols2-screen-input = 1.
ENDIF.
...
...
MODIFY tc_cimp2-cols FROM wa_cols2.
ENDIF.
ELSEIF NOT /pws/zycie244-nrforecast IS INITIAL.
IF wa_cols2-screen-group1 NE 'NEX'.
wa_cols2-screen-input = 1.
* >> Início da exclusão: FORM CHECK_FIELD_0203
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0203
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'
OR /pws/zycit321-c_comum EQ 'X'.
* << Fim da inclusão
IF wa_cols2-screen-name EQ '/PWS/ZYCIE245-NETPR'.
wa_cols2-screen-input = 0.
ELSEIF wa_cols2-screen-name EQ '/PWS/ZYCIE245-NETPR_T'.
wa_cols2-screen-input = 1.
ENDIF.
...
...
ENDIF.
ENDLOOP.
LOOP AT tc_cimp2-cols INTO wa_cols2.
CASE wa_cols2-screen-name.
WHEN '/PWS/ZYCIE245-CODCOMP'.
* >> Início da exclusão: FORM CHECK_FIELD_0203
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0203
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F' OR
/pws/zycit321-c_comum EQ 'X'.
* << Fim da inclusão
wa_cols2-invisible = 1.
MODIFY tc_cimp2-cols FROM wa_cols2.
ELSE.
wa_cols2-invisible = 0.
MODIFY tc_cimp2-cols FROM wa_cols2.
...
...
ELSE.
wa_cols2-invisible = 0.
MODIFY tc_cimp2-cols FROM wa_cols2.
ENDIF.
WHEN '/PWS/ZYCIE245-QTD_ITEN'.
* >> Início da exclusão: FORM CHECK_FIELD_0203
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0203
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F' OR
/pws/zycit321-c_comum EQ 'X'.
* << Fim da inclusão
wa_cols2-invisible = 1.
MODIFY tc_cimp2-cols FROM wa_cols2.
ELSE.
wa_cols2-invisible = 0.
MODIFY tc_cimp2-cols FROM wa_cols2.
...
...
WHEN '/PWS/ZYCIE245-QTD_NCM'.
IF /pws/zycie244-tipo EQ 'G'.
wa_cols2-invisible = 1.
MODIFY tc_cimp2-cols FROM wa_cols2.
ELSE.
* >> Início da inclusão: FORM CHECK_FIELD_0203
IF /pws/zycit321-c_comum EQ 'X'.
wa_cols2-screen-input = 1.
ENDIF.
* << Fim da inclusão
wa_cols2-invisible = 0.
MODIFY tc_cimp2-cols FROM wa_cols2.
ENDIF.
WHEN '/PWS/ZYCIE245-UM_NCM'.
IF /pws/zycie244-tipo EQ 'G'.
...
...
ELSE.
wa_cols2-invisible = 0.
MODIFY tc_cimp2-cols FROM wa_cols2.
ENDIF.
WHEN '/PWS/ZYCIE245-QTD_TOT'.
* >> Início da exclusão: FORM CHECK_FIELD_0203
IF /pws/zycie244-tipo EQ 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0203
IF /pws/zycie244-tipo EQ 'G' .
* << Fim da inclusão
wa_cols2-invisible = 1.
MODIFY tc_cimp2-cols FROM wa_cols2.
ELSE.
wa_cols2-invisible = 0.
MODIFY tc_cimp2-cols FROM wa_cols2.
...
...
ELSE.
wa_cols2-invisible = 0.
MODIFY tc_cimp2-cols FROM wa_cols2.
ENDIF.
WHEN 'V_DESCRIT_0203'.
* >> Início da exclusão: FORM CHECK_FIELD_0203
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0203
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F' OR
/pws/zycit321-c_comum EQ 'X'.
* << Fim da inclusão
wa_cols2-invisible = 1.
MODIFY tc_cimp2-cols FROM wa_cols2.
ELSE.
wa_cols2-invisible = 0.
MODIFY tc_cimp2-cols FROM wa_cols2.
ENDIF.
WHEN '/PWS/ZYCIE245-MAKTX'.
* >> Início da exclusão: FORM CHECK_FIELD_0203
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0203
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F' OR
/pws/zycit321-c_comum EQ 'X'.
* << Fim da inclusão
wa_cols2-invisible = 0.
MODIFY tc_cimp2-cols FROM wa_cols2.
ELSE.
wa_cols2-invisible = 1.
MODIFY tc_cimp2-cols FROM wa_cols2.
...
...
ELSE.
IF /pws/zycie244-modalidade EQ 'S'.
IF /pws/zycie244-nrforecast IS INITIAL.
IF wa_cols2-screen-group1 NE 'NEX'.
wa_cols2-screen-input = v_status2.
* >> Início da exclusão: FORM CHECK_FIELD_0206
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0206
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F' OR
/pws/zycit321-c_comum EQ 'X'.
* << Fim da inclusão
IF wa_cols2-screen-name EQ '/PWS/ZYCIE247-NETPR'.
wa_cols2-screen-input = 0.
ELSEIF wa_cols2-screen-name EQ '/PWS/ZYCIE247-NETPR_T'.
wa_cols2-screen-input = 1.
ELSEIF wa_cols2-screen-name EQ 'V_DESCR_0206'.
...
...
MODIFY tc_mexp2-cols FROM wa_cols2.
ENDIF.
ELSE.
IF wa_cols2-screen-group1 NE 'NEX'.
wa_cols2-screen-input = 1.
* >> Início da exclusão: FORM CHECK_FIELD_0206
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0206
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F' OR
/pws/zycit321-c_comum EQ 'X'.
* << Fim da inclusão
IF wa_cols2-screen-name EQ '/PWS/ZYCIE247-NETPR'.
wa_cols2-screen-input = 0.
ELSEIF wa_cols2-screen-name EQ '/PWS/ZYCIE247-NETPR_T'.
wa_cols2-screen-input = 1.
ELSEIF wa_cols2-screen-name EQ 'V_DESCR_0206'.
...
...
IF v_agrup = 'X'.
wa_cols2-invisible = 1.
MODIFY tc_mexp2-cols FROM wa_cols2.
CONTINUE.
ENDIF.
* >> Início da exclusão: FORM CHECK_FIELD_0206
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0206
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F' OR
/pws/zycit321-c_comum EQ 'X'.
* << Fim da inclusão
wa_cols2-invisible = 1.
MODIFY tc_mexp2-cols FROM wa_cols2.
ELSE.
wa_cols2-invisible = 0.
MODIFY tc_mexp2-cols FROM wa_cols2.
...
...
IF v_agrup = 'X'.
wa_cols2-invisible = 1.
MODIFY tc_mexp2-cols FROM wa_cols2.
CONTINUE.
ENDIF.
* >> Início da exclusão: FORM CHECK_FIELD_0206
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0206
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F' OR
/pws/zycit321-c_comum EQ 'X'.
* << Fim da inclusão
wa_cols2-invisible = 1.
MODIFY tc_mexp2-cols FROM wa_cols2.
ELSE.
wa_cols2-invisible = 0.
MODIFY tc_mexp2-cols FROM wa_cols2.
...
...
IF v_agrup = 'X'.
wa_cols2-invisible = 1.
MODIFY tc_mexp2-cols FROM wa_cols2.
CONTINUE.
ENDIF.
* >> Início da exclusão: FORM CHECK_FIELD_0206
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0206
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F' OR
/pws/zycit321-c_comum EQ 'X'.
* << Fim da inclusão
wa_cols2-invisible = 1.
MODIFY tc_mexp2-cols FROM wa_cols2.
ELSE.
wa_cols2-invisible = 0.
MODIFY tc_mexp2-cols FROM wa_cols2.
...
...
IF v_agrup = 'X'.
wa_cols2-invisible = 1.
MODIFY tc_mexp2-cols FROM wa_cols2.
CONTINUE.
ENDIF.
* >> Início da exclusão: FORM CHECK_FIELD_0206
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0206
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F' OR
/pws/zycit321-c_comum EQ 'X'.
* << Fim da inclusão
wa_cols2-invisible = 1.
MODIFY tc_mexp2-cols FROM wa_cols2.
ELSE.
wa_cols2-invisible = 0.
MODIFY tc_mexp2-cols FROM wa_cols2.
...
...
IF v_agrup = 'X'.
wa_cols2-invisible = 1.
MODIFY tc_mexp2-cols FROM wa_cols2.
CONTINUE.
ENDIF.
* >> Início da exclusão: FORM CHECK_FIELD_0206
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0206
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F' OR
/pws/zycit321-c_comum EQ 'X'.
* << Fim da inclusão
wa_cols2-invisible = 1.
MODIFY tc_mexp2-cols FROM wa_cols2.
ELSE.
wa_cols2-invisible = 0.
MODIFY tc_mexp2-cols FROM wa_cols2.
...
...
v_erro2 = 'N'.
PERFORM salva_read_texts CHANGING v_erro2.
LOOP AT itab_zycit245_save.
itab_zycit245-vlvinc = itab_zycit245_save-vlvinc.
itab_zycit245-vinculado = itab_zycit245_save-vinculado.
* >> Início da exclusão: FORM TRATA_BUTTON_SAVE2
IF /pws/zycie244-tipo NE 'G'.
* << Fim da exclusão
MODIFY itab_zycit245 TRANSPORTING vlvinc vinculado
* >> Início da exclusão: FORM TRATA_BUTTON_SAVE2
WHERE codcomp EQ itab_zycit245_save-codcomp.
ELSE.
MODIFY itab_zycit245 TRANSPORTING vlvinc vinculado
WHERE j_1bnbm EQ itab_zycit245_save-j_1bnbm.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BUTTON_SAVE2
WHERE nritem EQ itab_zycit245_save-nritem.
* << Fim da inclusão
ENDLOOP.
IF v_tcode2 EQ '/PWS/ZYCI040_A'.
DELETE FROM /pws/zycit427 WHERE nrseqd = /pws/zycie244-nrseqd.
DELETE FROM /pws/zycit245 WHERE nrseqd = /pws/zycie244-nrseqd.
DELETE FROM /pws/zycit246 WHERE nrseqd = /pws/zycie244-nrseqd.
...
...
itab_vencto2_save[] = itab_vencto2[].
PERFORM le_textos.
IF /pws/zycie244-modalidade EQ 'S' AND
( /pws/zycie244-tipo EQ 'N' OR
/pws/zycie244-tipo EQ 'G' OR
* >> Início da exclusão: FORM TRATA_BUTTON_ENTE2
/pws/zycie244-tipo EQ 'F' ).
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BUTTON_ENTE2
/pws/zycie244-tipo EQ 'F' )
or /pws/zycit321-c_comum eq 'X'.
* << Fim da inclusão
ELSE.
PERFORM alertas_ncm.
ENDIF.
IF sy-tcode EQ '/PWS/ZYCI040_A' AND /pws/zycie244-fechado EQ 'X'.
v_tcode2 = '/PWS/ZYCI040_E'.
...
...
APPEND itab_zycit247.
itab_zycit247_aux[] = itab_zycit247[].
ELSE.
itab_zycit247-nrseqd = /pws/zycie244-nrseqd .
itab_zycit247-tolling = /pws/zycie247-tolling .
* >> Início da exclusão: FORM FILL_ITAB_ZYCIT247_TG2
itab_zycit245-nritem = /pws/zycie247-nritem .
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_ITAB_ZYCIT247_TG2
itab_zycit247-nritem = /pws/zycie247-nritem .
* << Fim da inclusão
itab_zycit247-codmat = /pws/zycie247-codmat .
itab_zycit247-werks = /pws/zycie244-werks .
itab_zycit247-stlan = /pws/zycie247-stlan .
itab_zycit247-stlnr = /pws/zycie247-stlnr .
itab_zycit247-stlal = /pws/zycie247-stlal .
...
...
itab_zycit246_final-qtd_nacion = itab_zycit279_ap-slqtde -
itab_zycit279_ap-qtd_transf.
itab_zycit246_final-qtd_ncm = itab_zycit279_ap-menge.
itab_zycit246_final-qtd_compv = itab_zycit279_ap-menge -
itab_zycit279_ap-slqtde.
* >> Início da exclusão: FORM MOVE_REALIZ
IF /pws/zycie244-tipo EQ 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_REALIZ
IF /pws/zycie244-tipo EQ 'F' or
( /pws/zycie244-tipo EQ 'C' and
/pws/zycit321-c_comum eq 'X' ).
* << Fim da inclusão
READ TABLE itab_zycit245 WITH KEY
j_1bnbm = itab_zycit279_ap-j_1bnbm.
itab_zycit246_final-nritem = itab_zycit245-nritem.
ELSEIF /pws/zycie244-tipo EQ 'G'.
itab_zycit246_final-nritem = '00001'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040I01
...
itab_zycit245-um_ncm = itab_zycit245-meins .
PERFORM converte_um_ncm USING itab_zycit245-codcomp
CHANGING itab_zycit245-um_ncm
itab_zycit245-werks
itab_zycit245-qtd_ncm.
* >> Início da inclusão: MODULE TRATA_FORECAST
CLEAR: itab_zycit245-qtd_perda_e.
* << Fim da inclusão
* >> Início da exclusão: MODULE TRATA_FORECAST
CLEAR: itab_zycit245-qtd_perda_e.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_FORECAST
IF /pws/zycit321-c_comum EQ 'X'.
READ TABLE itab_zycit245_aux
WITH KEY j_1bnbm = itab_zycit245-j_1bnbm.
IF sy-subrc EQ 0.
itab_zycit245-nritem = itab_zycit245_aux-nritem.
ENDIF.
itab_zycit245-qtd_tot = itab_zycit245-qtd_ncm .
itab_zycit245-meins = itab_zycit245-um_ncm .
CLEAR: itab_zycit245-qtd_iten, itab_zycit245-codcomp.
COLLECT itab_zycit245.
ELSE.
* << Fim da inclusão
APPEND itab_zycit245.
* >> Início da inclusão: MODULE TRATA_FORECAST
ENDIF.
* << Fim da inclusão
itab_zycit245_aux[] = itab_zycit245[].
...
...
itab_zycit247-nrseqd = /pws/zycie244-nrseqd.
IF itab_zycit239-qtd_aditiv IS INITIAL.
itab_zycit247-sdomat_e = itab_zycit239-qtd_iten.
ELSE.
itab_zycit247-sdomat_e = itab_zycit239-qtd_aditiv.
* >> Início da inclusão: MODULE TRATA_FORECAST
ENDIF.
IF /pws/zycit321-c_comum EQ 'X'.
itab_zycit247-qtd_ncm = itab_zycit247-qtd_iten.
itab_zycit247-um_ncm = itab_zycit247-meins .
PERFORM converte_um_ncm USING itab_zycit247-codmat
CHANGING itab_zycit247-um_ncm
itab_zycit247-werks
itab_zycit247-qtd_ncm.
READ TABLE itab_zycit247_aux
WITH KEY j_1bnbm = itab_zycit247-j_1bnbm.
IF sy-subrc EQ 0.
itab_zycit247-nritem = itab_zycit247_aux-nritem.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: MODULE TRATA_FORECAST
itab_zycit247-qtd_iten = itab_zycit247-qtd_ncm .
itab_zycit247-meins = itab_zycit247-um_ncm .
CLEAR: itab_zycit247-codmat, itab_zycit247-stlal,
itab_zycit247-stlan, itab_zycit247-stlnr.
itab_zycit247-werks = /pws/zycie244-werks.
COLLECT itab_zycit247.
ELSE.
* << Fim da inclusão
APPEND itab_zycit247.
* >> Início da inclusão: MODULE TRATA_FORECAST
ENDIF.
itab_zycit247_aux[] = itab_zycit247[].
* << Fim da inclusão
ENDLOOP.
/pws/zycie247-nrseqd = /pws/zycie244-nrseqd.
ENDIF.
PERFORM replace_screen_0201.
IF v_tcode2 EQ '/PWS/ZYCI040_A'.
...
...
itab_zycit246-vlseg = /pws/zycie246-vlseg .
ENDMODULE.
MODULE insert_line_comprov_ci INPUT.
IF /pws/zycie244-tipo EQ 'G'.
PERFORM fill_itab_zycit245_tg2.
* >> Início da exclusão: MODULE INSERT_LINE_COMPROV_CI
ELSEIF /pws/zycie244-tipo EQ 'F'.
* << Fim da exclusão
* >> Início da inclusão: MODULE INSERT_LINE_COMPROV_CI
ELSEIF /pws/zycie244-tipo EQ 'F' OR
/pws/zycit321-c_comum EQ 'X'.
* << Fim da inclusão
PERFORM fill_itab_zycit245_tf2.
ELSE.
PERFORM fill_itab_zycit245_ng2.
ENDIF.
ENDMODULE.
...
...
ENDIF.
IF NOT v_centro IS INITIAL
AND /pws/zycie247-werks IS INITIAL.
MESSAGE w015 WITH text-258 /pws/zycie247-codmat text-256 text-257.
ENDIF.
* >> Início da exclusão: MODULE INSERT_LINE_COMPROV_ME
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'.
* << Fim da exclusão
* >> Início da inclusão: MODULE INSERT_LINE_COMPROV_ME
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F' OR
/pws/zycit321-c_comum EQ 'X'.
* << Fim da inclusão
PERFORM fill_itab_zycit247_tg2.
ELSE.
IF v_agrup IS INITIAL.
IF /pws/zycie244-tipo EQ 'N'.
PERFORM fill_itab_zycit247_inter.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040O01
...
ELSE.
MOVE '@5C@' TO v_icost_0109.
ENDIF.
ENDMODULE.
MODULE status_0200 OUTPUT.
* >> Início da inclusão: MODULE STATUS_0200
IF /pws/zycit321 IS INITIAL.
select single * from /pws/zycit321.
endif.
* << Fim da inclusão
IF /pws/zycbt007 IS INITIAL.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD sy-tcode.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-290 sy-tcode.
LEAVE PROGRAM.
...
...
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE245-QTD_TOT'.
READ TABLE itab_zycit245 INDEX tc_cimp2-current_line.
IF sy-subrc EQ 0 AND NOT /pws/zycie245-qtd_tot IS INITIAL
* >> Início da exclusão: MODULE TRATA_SCREEN_0203
AND /pws/zycie244-tipo NE 'F'.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_SCREEN_0203
AND /pws/zycie244-tipo NE 'F' AND
/pws/zycit321-c_comum NE 'X'.
* << Fim da inclusão
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE245-QTD_NCM'.
IF /pws/zycie244-tipo EQ 'F'
AND /pws/zycie245-um_ncm <> /pws/zycie245-meins.
READ TABLE itab_zycit245 INDEX tc_cimp2-current_line.
screen-input = 1.
MODIFY SCREEN.
* >> Início da inclusão: MODULE TRATA_SCREEN_0203
ELSEIF /pws/zycit321-c_comum EQ 'X'.
screen-input = 1.
* << Fim da inclusão
ELSE.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
...
...
IF NOT /pws/zycit321-ltopc IS INITIAL AND
NOT /pws/zycie244-nrforecast IS INITIAL AND
NOT /pws/zycie247-qtd_ncm IS INITIAL.
screen-input = 0.
ENDIF.
* >> Início da inclusão: MODULE TRATA_SCREEN_0206
IF /pws/zycit321-c_comum EQ 'X'.
screen-input = 1.
ENDIF.
* << Fim da inclusão
MODIFY SCREEN.
ENDIF.
ENDLOOP.
* >> Início da exclusão: MODULE TRATA_SCREEN_0206
IF /pws/zycie244-tipo NE 'G' AND /pws/zycie244-tipo NE 'F'.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_SCREEN_0206
IF /pws/zycie244-tipo NE 'G' AND /pws/zycie244-tipo NE 'F' AND
/pws/zycit321-c_comum NE 'X'.
* << Fim da inclusão
SELECT maktx UP TO 1 ROWS FROM makt INTO v_descr_0206
WHERE matnr = /pws/zycie247-codmat
AND spras = sy-langu.
ENDSELECT.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT321
Nome campo |Chv |Elem.dados |Tab.verif. |N |CtDt |Comp. |Grupo
...
DIA_ANT | X |/PWS/ZYCIL835 | | |DEC | 4 |
* >> Início da inclusão:
C_COMUM | X |/PWS/ZYCIL839 | | |CHAR | 1 |
* >> Fim da inclusão: