CE PLUS - Nota 009618
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 23/12/2009 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:47:43
Descrição da Nota: IMPLEMENTAÇÃO DRAWBACK TIPO EMBARCAÇÃO
Sintoma
Os programas do drawback não estão preparados para atender os processos de drawback embarcação.
Solução
Desenvolvida as novas modalidades de drawback embarcação.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09618 Data: 23/12/2009 Hora: 14:44:15
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09618
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07430 - 00001 - 7.0 - 00007 - INCLUSÃO DE ITENS NA PASTA MERCADO INTERNO NO AC INTERMEDIARIO EX
07708 - 00002 - 7.0 - 00007 - CONVERSÃO DE UNIDADES DE MEDIDA CONTROLE POR NCM
08647 - 00003 - 7.0 - 00010 - VERIFICAÇÃO DE ITENS REALIZADOS ANTES DE DELETAR OS ITENS PROVISI
08735 - 00004 - 7.0 - 00010 - INCLUI NUMERO DO ITEM NA TABELA /PWS/ZYCIT279
08838 - 00005 - 7.0 - 00010 - ATO CONCESSÓRIO GENÉRICO
09074 - 00006 - 8.0 - 00001 - AJUSTES PARA TRATAMENTO DE LOTE.
09460 - 00007 - 8.0 - 00001 - IMPLEMENTAÇÃO DE ATO CONCESSÓRIO GENÉRICO POR AGRUPAMENTO
09538 - 00008 - 8.0 - 00001 - PERMITIR ALTERAÇÃO DO NUMERO DO ATO CONCESSÓRIO COM STATUS EM PRE
09567 - 00009 - 8.0 - 00001 - QUANTIDADE DOS INSUMOS ERRADA PARA LISTA TÉCNICA POR AGRUPAMENTO.
09617 - 00010 - 8.0 - 00002 - IMPLEMENTAÇÃO DRAWBACK TIPO EMBARCAÇÃO
----------------------------------------------------------------------------------------------------
IMPLEMENTAÇÃO DRAWBACK TIPO EMBARCAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ATO - CONCESSÓRIO - TIPO - EMBARCAÇÃO
/PWS/SAPMZYCI040
----------------------------------------------------------------------------------------------------
Objetos da nota:
DOMD /PWS/ZYGLD053
DYNP /PWS/SAPMZYCI040 0200
DYNP /PWS/SAPMZYCI040 0207
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040I01
REPS /PWS/MZYCI040O01
REPS /PWS/MZYCI040X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMD /PWS/ZYGLD053
------------------------------------------------------------------------
Domínio modificado: /PWS/ZYGLD053
-Valores individuais
Modificado valor fixo "E"
Texto modificado, idioma: EN (13 caracteres):
"Vessel Common"
Texto modificado, idioma: PT (16 caracteres):
"Embarcação comum"
Incluído valor fixo "D"
Texto modificado, idioma: EN (14 caracteres):
"Generic Vessel"
Texto modificado, idioma: PT (19 caracteres):
"Embarcação genérico"
Excluído valor fixo "F"
Incluído valor fixo "F"
Texto modificado, idioma: (0 caracteres):
""
Texto modificado, idioma: EN (50 caracteres):
"Intermediary - Exportation (Industrial - Exporter)"
Texto modificado, idioma: PT (50 caracteres):
"Intermediário - Exportação (Industrial-Exportador)"
Texto modificado, idioma: ES (52 caracteres):
"Intermediário - Exportación (Industrial- Exportador)"
Excluído valor fixo "G"
Incluído valor fixo "G"
Texto modificado, idioma: (0 caracteres):
""
Texto modificado, idioma: EN (7 caracteres):
"Generic"
Texto modificado, idioma: PT (8 caracteres):
"Genérico"
Texto modificado, idioma: ES (8 caracteres):
"Genérico"
Excluído valor fixo "R"
Incluído valor fixo "R"
Texto modificado, idioma: (0 caracteres):
""
Texto modificado, idioma: EN (33 caracteres):
"Replacement National Raw Material"
Texto modificado, idioma: PT (32 caracteres):
"Reposição Matéria Prima Nacional"
Texto modificado, idioma: ES (33 caracteres):
"Reposición Materia Prima Nacional"
Excluído valor fixo "S"
Incluído valor fixo "S"
Texto incluído, idioma: (0 caracteres):
""
Texto modificado, idioma: EN (8 caracteres):
"Solidary"
Texto modificado, idioma: PT (9 caracteres):
"Solidário"
Texto modificado, idioma: ES (9 caracteres):
"Solidario"
Excluído valor fixo "N"
Incluído valor fixo "N"
Texto modificado, idioma: EN (54 caracteres):
"Intermediary - Importation (Manufacturer-Intermediary)"
Texto modificado, idioma: PT (53 caracteres):
"Intermediário - Importação (Fabricante-Intermediário)"
Texto modificado, idioma: ES (54 caracteres):
"Intermediário - Importador(Fabricante - Intermediário)"
Excluído valor fixo "V"
Incluído valor fixo "V"
Texto incluído, idioma: EN (12 caracteres):
"Green-Yellow"
Texto incluído, idioma: PT (13 caracteres):
"Verde-Amarelo"
Texto incluído, idioma: ES (14 caracteres):
"Verde-Amarillo"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0200
MODIFICAR BOTÃO "FS_MEXP2" em tbl.contr./tabstr.
Comprimento Visível 20
Texto ____________________
*Marcar opção campo de saída
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0207
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE247C-VL_COMIS_T"
Grupo 3 EXP
MODIFICAR TEXTO "/PWS/ZYCIE247C-VL_COMIS_T"
Grupo 3 EXP
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE247C-WAERS_COM"
Grupo 3 EXP
MODIFICAR TEXTO "/PWS/ZYCIE247C-WAERS_COM"
Grupo 3 EXP
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE248-DTAVERB" em tbl.contr./tabstr.
Grupo 3 EXP
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE248-DTEMB" em tbl.contr./tabstr.
Grupo 3 EXP
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE248-NRRE" em tbl.contr./tabstr.
Grupo 3 EXP
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE248-NRSD" em tbl.contr./tabstr.
Grupo 3 EXP
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE248-NRSEQ" em tbl.contr./tabstr.
Grupo 3 EXP
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE248-NRSEQRE" em tbl.contr./tabstr.
Grupo 3 EXP
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE248-VLCOMIS" em tbl.contr./tabstr.
Grupo 3 EXP
Código função
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
APPEND itab_botoes2.
ENDIF.
IF /pws/zycie244-fechado NE 'X'.
itab_botoes2-bname = 'AJUSTLT'.
APPEND itab_botoes2.
ENDIF.
IF v_tcode2_aux EQ 'X' .
DELETE itab_botoes2 WHERE bname EQ 'SAVE'.
ENDIF.
IF /pws/zycie244-modalidade NE 'S' OR
* >> Início da exclusão: FORM TRATA_BOTOES2
( /pws/zycie244-tipo NE 'C' AND
/pws/zycie244-tipo NE 'G' AND
/pws/zycie244-tipo NE 'N' ) .
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BOTOES2
/pws/zycie244-tipo NA 'CGNDE'.
* << Fim da inclusão
itab_botoes2-bname = 'TRANS'.
APPEND itab_botoes2.
itab_botoes2-bname = 'COMPR'.
APPEND itab_botoes2.
ELSEIF /pws/zycie244-status NE 'D'.
itab_botoes2-bname = 'COMPR'.
APPEND itab_botoes2.
itab_botoes2-bname = 'ENCER'.
APPEND itab_botoes2.
ENDIF.
...
...
IF screen-group1 NE 'NEX'.
screen-input = v_status2.
MODIFY SCREEN.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE244-NRFORECAST'.
IF /pws/zycie244-modalidade NE 'S'.
screen-input = 1.
screen-invisible = 1.
MODIFY SCREEN.
ELSE.
* >> Início da exclusão: FORM CHECK_FIELD_0201
IF /pws/zycie244-tipo EQ 'C' OR /pws/zycie244-tipo EQ 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0201
IF /pws/zycie244-tipo CA 'CGDE'.
* << Fim da inclusão
IF /pws/zycie244-bukrs IS INITIAL.
screen-input = 1.
ELSE.
screen-input = v_status2.
ENDIF.
screen-invisible = 0.
MODIFY SCREEN.
ELSE.
screen-input = 1.
screen-invisible = 1.
...
...
ENDIF.
IF screen-name EQ '/PWS/ZYCIE244-VERD_AMA'.
IF /pws/zycie244-modalidade EQ 'I' OR
/pws/zycie244-tipo EQ 'F'.
screen-invisible = 1.
screen-active = 0.
CLEAR: /pws/zycie244-verd_ama.
ELSE.
IF NOT /pws/zycie244-nratoc IS INITIAL OR NOT
/pws/zycie244-nrforecast IS INITIAL
* >> Início da inclusão: FORM CHECK_FIELD_0201
OR /pws/zycie244-tipo CA 'ED'
* << Fim da inclusão
OR v_tcode2 EQ '/PWS/ZYCI040_A'.
screen-input = 0.
ELSE.
screen-input = 1.
ENDIF.
screen-invisible = 0.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF screen-name EQ 'LINHA'.
...
...
ELSE.
wa_cols2-invisible = 0.
MODIFY tc_cimp2-cols FROM wa_cols2.
ENDIF.
ENDIF.
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' AND v_agrup IS INITIAL ) OR
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0203
IF ( /pws/zycie244-tipo CA 'GDF' AND v_agrup IS INITIAL ) OR
* << Fim da inclusão
/pws/zycit321-c_comum EQ 'X'.
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.
ELSE.
IF wa_cols2-screen-name EQ '/PWS/ZYCIE245-NETPR'.
wa_cols2-screen-input = 1.
ELSEIF wa_cols2-screen-name EQ '/PWS/ZYCIE245-NETPR_T'.
...
...
IF wa_cols2-screen-name EQ '/PWS/ZYCIE245-QTD_ITEN'.
wa_cols2-screen-input = 0.
ELSEIF wa_cols2-screen-name EQ '/PWS/ZYCIE245-QTD_TOT'.
wa_cols2-screen-input = 1.
ENDIF.
ENDIF.
MODIFY tc_cimp2-cols FROM wa_cols2.
ENDIF.
ELSE.
IF wa_cols2-screen-name EQ '/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 CA 'GDF'.
* << Fim da inclusão
wa_cols2-screen-input = v_status2.
MODIFY tc_cimp2-cols FROM wa_cols2.
ELSE.
wa_cols2-screen-input = 0.
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 CA 'GDF'
* << Fim da inclusão
OR /pws/zycit321-c_comum EQ 'X'.
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.
ELSE.
IF wa_cols2-screen-name EQ '/PWS/ZYCIE245-NETPR'.
wa_cols2-screen-input = 1.
ELSEIF wa_cols2-screen-name EQ '/PWS/ZYCIE245-NETPR_T'.
...
...
MODIFY tc_cimp2-cols FROM wa_cols2.
ENDIF.
IF wa_cols2-screen-name EQ 'V_WAERS' AND
/pws/zycie244-tipo NE 'F'.
wa_cols2-screen-input = 0.
MODIFY tc_cimp2-cols FROM wa_cols2.
ENDIF.
ENDIF.
IF /pws/zycie244-modalidade EQ 'I'.
IF wa_cols2-screen-name EQ '/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 CA 'GDF'.
* << Fim da inclusão
wa_cols2-screen-input = v_status2.
MODIFY tc_cimp2-cols FROM wa_cols2.
ELSE.
wa_cols2-screen-input = 0.
MODIFY tc_cimp2-cols FROM wa_cols2.
ENDIF.
ELSEIF wa_cols2-screen-name EQ '/PWS/ZYCIE245-PCTSEG'.
wa_cols2-invisible = 1.
wa_cols2-screen-input = 0.
MODIFY tc_cimp2-cols FROM wa_cols2.
...
...
ENDIF.
ENDIF.
IF wa_cols2-screen-name EQ '/PWS/ZYCIE245-WAERS'.
wa_cols2-invisible = 1.
MODIFY tc_cimp2-cols FROM wa_cols2.
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
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0203
IF /pws/zycie244-tipo CA 'GD' OR
* << Fim da inclusão
( /pws/zycie244-tipo EQ 'F' AND v_agrup IS INITIAL ) OR
( /pws/zycit321-c_comum EQ 'X' AND
/pws/zycie244-modalidade NE 'I' ).
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-WAERS'.
wa_cols2-invisible = 1.
MODIFY tc_cimp2-cols FROM wa_cols2.
WHEN '/PWS/ZYCIE245-MEINS'.
* >> 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 CA 'GD'.
* << 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-QTD_ITEN'.
* >> Início da exclusão: FORM CHECK_FIELD_0203
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F' OR
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0203
IF /pws/zycie244-tipo CA 'GDF' OR
* << Fim da inclusão
/pws/zycit321-c_comum EQ 'X'.
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-QTD_NCM'.
* >> 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 CA 'GD'.
* << Fim da inclusão
wa_cols2-invisible = 1.
MODIFY tc_cimp2-cols FROM wa_cols2.
ELSE.
IF /pws/zycit321-c_comum EQ 'X' AND
/pws/zycie244-modalidade NE 'I' .
wa_cols2-screen-input = 1.
ENDIF.
wa_cols2-invisible = 0.
MODIFY tc_cimp2-cols FROM wa_cols2.
ENDIF.
WHEN '/PWS/ZYCIE245-UM_NCM'.
* >> 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 CA 'GD'.
* << 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-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 CA 'GD'.
* << 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-NETPR'.
* >> 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 CA 'GD'.
* << 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-GEWEI'.
* >> 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 CA 'GDF'.
* << 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-BRGEW'.
* >> 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 CA 'GDF'.
* << 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 'V_PBT_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 CA 'GDF'.
* << 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-NTGEW'.
* >> 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 CA 'GDF'.
* << 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 'V_PLT_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 CA 'GDF'.
* << 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 'V_DESCRIT_0203'.
* >> Início da exclusão: FORM CHECK_FIELD_0203
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F' OR
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0203
IF /pws/zycie244-tipo CA 'GDF' OR
* << Fim da inclusão
( /pws/zycit321-c_comum EQ 'X' AND
/pws/zycie244-modalidade NE 'I' ).
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
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0203
IF /pws/zycie244-tipo CA 'GD' OR
* << Fim da inclusão
( /pws/zycie244-tipo EQ 'F' AND v_agrup IS INITIAL ) OR
( /pws/zycit321-c_comum EQ 'X' AND
/pws/zycie244-modalidade NE 'I' ).
wa_cols2-invisible = 0.
MODIFY tc_cimp2-cols FROM wa_cols2.
ELSE.
wa_cols2-invisible = 1.
MODIFY tc_cimp2-cols FROM wa_cols2.
ENDIF.
WHEN '/PWS/ZYCIE245-QTD_PERDA'.
* >> 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 CA 'GD'.
* << 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-QTD_PERDA_E'.
* >> 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 CA 'GD'.
* << 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.
ENDCASE.
IF wa_cols2-screen-group2 EQ 'MAT'.
IF /pws/zycit321-it_ge EQ 'X' AND
/pws/zycie244-modalidade EQ 'I' .
...
...
ELSE.
IF /pws/zycie244-modalidade EQ 'I'.
IF screen-name EQ 'BTN203_3'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDIF.
CASE screen-name.
WHEN '/PWS/ZYCIE244-T_COMPQTD'.
* >> 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 CA 'GD'.
* << Fim da inclusão
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
WHEN '/PWS/ZYCIE244-S_COMPQTD'.
* >> 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 CA 'GD'.
* << Fim da inclusão
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
ENDCASE.
ENDLOOP.
* >> 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 CA 'GD'.
* << Fim da inclusão
tc_cimp2-lines = 1.
ELSE.
tc_cimp2-lines = tc_cimp2-lines + 7.
ENDIF.
IF /pws/zycie244-status = 'A'.
LOOP AT tc_cimp2-cols INTO wa_imp.
wa_imp-screen-input = 0.
MODIFY tc_cimp2-cols FROM wa_imp.
ENDLOOP.
ENDIF.
...
...
IF v_tcode2 EQ '/PWS/ZYCI040_E'.
IF wa_cols2-screen-group1 NE 'NEX'.
wa_cols2-screen-input = v_status2.
MODIFY tc_mexp2-cols FROM wa_cols2.
ENDIF.
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' OR
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0206
IF ( /pws/zycie244-tipo CA 'GDF' OR
* << Fim da inclusão
/pws/zycit321-c_comum EQ 'X' ) AND
v_agrup IS INITIAL.
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'.
wa_cols2-screen-input = 1.
ENDIF.
ELSE.
...
...
wa_cols2-screen-input = 0.
ELSEIF wa_cols2-screen-name EQ 'V_DESCR_0206'.
wa_cols2-screen-input = 0.
ENDIF.
ENDIF.
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' OR
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0206
IF ( /pws/zycie244-tipo CA 'GDF' OR
* << Fim da inclusão
/pws/zycit321-c_comum EQ 'X' ) AND
v_agrup IS INITIAL.
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'.
wa_cols2-screen-input = 1.
ENDIF.
ELSE.
...
...
IF /pws/zycie244-modalidade EQ 'I'.
wa_cols2-screen-input = 0.
MODIFY tc_mexp2-cols FROM wa_cols2.
ENDIF.
ENDIF.
IF /pws/zycie244-importacao EQ 'X' AND
wa_cols2-screen-group4 EQ 'CAM'.
wa_cols2-invisible = 1.
MODIFY tc_mexp2-cols FROM wa_cols2.
ELSEIF wa_cols2-screen-name EQ '/PWS/ZTCIE248-VL_SCAMB'
* >> Início da exclusão: FORM CHECK_FIELD_0206
AND /pws/zycie244-tipo EQ 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0206
AND /pws/zycie244-tipo CA 'GD'.
* << Fim da inclusão
wa_cols2-screen-input = 1.
MODIFY tc_mexp2-cols FROM wa_cols2.
ELSEIF wa_cols2-screen-group4 EQ 'CAM' .
wa_cols2-invisible = 0.
IF /pws/zycit321-c_comum EQ 'X'.
wa_cols2-screen-input = 1.
ENDIF.
MODIFY tc_mexp2-cols FROM wa_cols2.
ENDIF.
ENDLOOP.
...
...
wa_cols2-invisible = 0.
MODIFY tc_mexp2-cols FROM wa_cols2.
CONTINUE.
ENDIF.
WHEN '/PWS/ZYCIE247-CODMAT'.
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' OR
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0206
IF /pws/zycie244-tipo CA 'GDF' OR
* << Fim da inclusão
( /pws/zycit321-c_comum EQ 'X' AND
/pws/zycie244-modalidade NE 'I' ).
wa_cols2-invisible = 1.
MODIFY tc_mexp2-cols FROM wa_cols2.
ELSE.
wa_cols2-invisible = 0.
MODIFY tc_mexp2-cols FROM wa_cols2.
ENDIF.
WHEN '/PWS/ZYCIE247-WERKS'.
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' OR
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0206
IF /pws/zycie244-tipo CA 'GDF' OR
* << Fim da inclusão
( /pws/zycit321-c_comum EQ 'X' AND
/pws/zycie244-modalidade NE 'I' ).
wa_cols2-invisible = 1.
MODIFY tc_mexp2-cols FROM wa_cols2.
ELSE.
wa_cols2-invisible = 0.
MODIFY tc_mexp2-cols FROM wa_cols2.
ENDIF.
WHEN '/PWS/ZYCIE247-STLNR'.
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' OR
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0206
IF /pws/zycie244-tipo CA 'GDF' OR
* << Fim da inclusão
( /pws/zycit321-c_comum EQ 'X' AND
/pws/zycie244-modalidade NE 'I' ).
wa_cols2-invisible = 1.
MODIFY tc_mexp2-cols FROM wa_cols2.
ELSE.
wa_cols2-invisible = 0.
MODIFY tc_mexp2-cols FROM wa_cols2.
ENDIF.
WHEN '/PWS/ZYCIE247-STLAL'.
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' OR
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0206
IF /pws/zycie244-tipo CA 'GDF' OR
* << Fim da inclusão
( /pws/zycit321-c_comum EQ 'X' AND
/pws/zycie244-modalidade NE 'I' ).
wa_cols2-invisible = 1.
MODIFY tc_mexp2-cols FROM wa_cols2.
ELSE.
wa_cols2-invisible = 0.
MODIFY tc_mexp2-cols FROM wa_cols2.
ENDIF.
WHEN '/PWS/ZYCIE247-STLAN'.
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' OR
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0206
IF /pws/zycie244-tipo CA 'GDF' OR
* << Fim da inclusão
( /pws/zycit321-c_comum EQ 'X' AND
/pws/zycie244-modalidade NE 'I' ).
wa_cols2-invisible = 1.
MODIFY tc_mexp2-cols FROM wa_cols2.
ELSE.
wa_cols2-invisible = 0.
MODIFY tc_mexp2-cols FROM wa_cols2.
ENDIF.
WHEN '/PWS/ZYCIE247-VL_FRETE'.
* >> 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 CA 'GDF'.
* << 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.
ENDIF.
WHEN '/PWS/ZYCIE247-VL_FRETE_T'.
* >> 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 CA 'GDF'.
* << 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.
ENDIF.
WHEN '/PWS/ZYCIE247-GEWEI'.
* >> 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 CA 'GDF'.
* << 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.
ENDIF.
WHEN '/PWS/ZYCIE247-BRGEW'.
* >> 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 CA 'GDF'.
* << 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.
ENDIF.
WHEN 'V_PBT_0206'.
* >> 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 CA 'GDF'.
* << 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.
ENDIF.
WHEN '/PWS/ZYCIE247-NTGEW'.
* >> 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 CA 'GDF'.
* << 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.
ENDIF.
WHEN 'V_PLT_0206'.
* >> 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 CA 'GDF'.
* << 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.
ENDIF.
WHEN '/PWS/ZYCIE247-WAERS'.
wa_cols2-screen-input = 0.
MODIFY tc_mexp2-cols FROM wa_cols2.
ENDCASE.
...
...
ENDIF.
ENDLOOP.
LOOP AT SCREEN.
IF ( /pws/zycie244-modalidade EQ 'I' ) AND
( screen-name EQ '/PWS/ZYCIE245C-NETPR' ).
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
LOOP AT SCREEN.
* >> Início da exclusão: FORM CHECK_FIELD_0204
IF /pws/zycie244-tipo EQ 'G' OR
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0204
IF /pws/zycie244-tipo CA 'GD' OR
* << Fim da inclusão
( /pws/zycie244-tipo EQ 'F' AND v_agrup IS INITIAL )
OR ( /pws/zycit321-c_comum EQ 'X' AND
/pws/zycie244-modalidade NE 'I' )
OR ( /pws/zycit321-it_ge EQ 'X' AND
/pws/zycie244-modalidade EQ 'I' ).
IF screen-name EQ 'I_NRITEM'.
screen-invisible = 1.
screen-intensified = 0.
MODIFY SCREEN.
ENDIF.
...
...
ENDIF.
IF screen-name EQ '/PWS/ZYCIE245C-CODCOMP'.
screen-invisible = 0.
MODIFY SCREEN.
ENDIF.
IF screen-name EQ 'V_DESCR_CP2'.
screen-invisible = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM CHECK_FIELD_0204
IF /pws/zycie244-tipo EQ 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0204
IF /pws/zycie244-tipo CA 'GD'.
* << Fim da inclusão
IF screen-name EQ '/PWS/ZYCIE245C-QTD_ITEN'
OR screen-name EQ '/PWS/ZYCIE245C-QTD_NCM'
OR screen-name EQ 'V_RQTD_TEXT'
OR screen-name EQ 'V_SQTD_TEXT'
OR screen-name EQ '/PWS/ZYCIE245C-UM_NCM'
OR screen-name EQ '/PWS/ZYCIE245C-MEINS'
OR screen-name EQ '/PWS/ZYCIE244-T_REALQTD'
OR screen-name EQ '/PWS/ZYCIE244-S_REALQTD'.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
LOOP AT tc_realizi-cols INTO wa_cols2.
CASE wa_cols2-screen-name.
WHEN '/PWS/ZYCIE246-MATNR'.
* >> Início da exclusão: FORM CHECK_FIELD_0204
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0204
IF /pws/zycie244-tipo CA 'GDF'
* << Fim da inclusão
OR ( /pws/zycit321-c_comum EQ 'X' AND
/pws/zycie244-modalidade NE 'I' )
OR ( /pws/zycit321-it_ge EQ 'X' AND
/pws/zycie244-modalidade EQ 'I' ).
wa_cols2-invisible = 0.
MODIFY tc_realizi-cols FROM wa_cols2.
ELSE.
wa_cols2-invisible = 1.
MODIFY tc_realizi-cols FROM wa_cols2.
ENDIF.
...
...
wa_cols2-invisible = 1.
ELSE.
wa_cols2-invisible = 0.
ENDIF.
MODIFY tc_realizi-cols FROM wa_cols2.
ENDIF.
ENDLOOP.
LOOP AT SCREEN.
CASE screen-name.
WHEN 'V_TOT2_RC'.
* >> Início da exclusão: FORM CHECK_FIELD_0204
IF /pws/zycie244-tipo NE 'G' AND /pws/zycie244-tipo NE 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0204
IF /pws/zycie244-tipo NA 'GDF'.
* << Fim da inclusão
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
ENDCASE.
ENDLOOP.
LOOP AT tc_realizi-cols INTO wa_cols2.
CASE wa_cols2-screen-name.
WHEN '/PWS/ZYCIE246-COB_CAMB'.
IF /pws/zycie244-importacao EQ '2'.
wa_cols2-invisible = 0.
...
...
itab_zycit245-codcomp TO /pws/zycie245c-codcomp ,
itab_zycit245-j_1bnbm TO /pws/zycie245c-j_1bnbm ,
itab_zycit245-werks TO /pws/zycie245c-werks ,
itab_zycit245-meins TO /pws/zycie245c-meins ,
itab_zycit245-waers TO /pws/zycie245c-waers ,
itab_zycit245-netpr_t TO /pws/zycie245c-netpr_t .
MOVE: itab_zycit245-qtd_tot TO /pws/zycie245c-qtd_iten.
IF /pws/zycie244-tipo NE 'F'.
CLEAR: itab_zycit246. REFRESH: itab_zycit246.
LOOP AT itab_zycit246_final.
* >> Início da exclusão: FORM CHECK_BUTTON_PRIOR_0204
IF /pws/zycie244-tipo NE 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_PRIOR_0204
IF /pws/zycie244-tipo NA 'GD'.
* << Fim da inclusão
CHECK itab_zycit246_final-nritem EQ /pws/zycie245c-nritem.
ELSE.
CHECK itab_zycit246_final-nritem EQ /pws/zycie245c-nritem.
ENDIF.
MOVE-CORRESPONDING itab_zycit246_final TO itab_zycit246.
APPEND itab_zycit246.
ENDLOOP.
ELSE.
CLEAR: itab_zycit246. REFRESH: itab_zycit246.
LOOP AT itab_zycit246_final.
...
...
itab_zycit247-waers TO /pws/zycie247c-waers ,
itab_zycit247-waers TO /pws/zycie247c-waers_fre ,
itab_zycit247-waers TO /pws/zycie247c-waers_com ,
itab_zycit247-vl_frete_t TO /pws/zycie247c-vl_frete_t,
itab_zycit247-vl_comis_t TO /pws/zycie247c-vl_comis_t,
itab_zycit247-netpr_t TO /pws/zycie247c-netpr_t .
IF /pws/zycie244-tipo EQ 'N' AND /pws/zycie244-modalidade EQ 'S'.
ELSE.
CLEAR: itab_zycit248. REFRESH: itab_zycit248.
LOOP AT itab_zycit248_final.
* >> Início da exclusão: FORM CHECK_BUTTON_FIRST_0207
IF /pws/zycie244-tipo EQ 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_FIRST_0207
IF /pws/zycie244-tipo CA 'GD'.
* << Fim da inclusão
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem.
ELSE.
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem.
ENDIF.
MOVE-CORRESPONDING itab_zycit248_final TO itab_zycit248.
APPEND itab_zycit248.
ENDLOOP.
ENDIF.
ENDIF.
ENDFORM.
...
...
itab_zycit247-waers TO /pws/zycie247c-waers ,
itab_zycit247-waers TO /pws/zycie247c-waers_fre ,
itab_zycit247-waers TO /pws/zycie247c-waers_com ,
itab_zycit247-vl_frete_t TO /pws/zycie247c-vl_frete_t,
itab_zycit247-vl_comis_t TO /pws/zycie247c-vl_comis_t,
itab_zycit247-netpr_t TO /pws/zycie247c-netpr_t .
IF /pws/zycie244-tipo EQ 'N' AND /pws/zycie244-modalidade EQ 'S'.
ELSE.
CLEAR: itab_zycit248. REFRESH: itab_zycit248.
LOOP AT itab_zycit248_final.
* >> Início da exclusão: FORM CHECK_BUTTON_PRIOR_0207
IF /pws/zycie244-tipo EQ 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_PRIOR_0207
IF /pws/zycie244-tipo CA 'GD'.
* << Fim da inclusão
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem.
ELSE.
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem.
ENDIF.
MOVE-CORRESPONDING itab_zycit248_final TO itab_zycit248.
APPEND itab_zycit248.
ENDLOOP.
ENDIF.
ENDIF.
ENDFORM.
...
...
itab_zycit247-waers TO /pws/zycie247c-waers ,
itab_zycit247-waers TO /pws/zycie247c-waers_fre ,
itab_zycit247-waers TO /pws/zycie247c-waers_com ,
itab_zycit247-vl_frete_t TO /pws/zycie247c-vl_frete_t,
itab_zycit247-vl_comis_t TO /pws/zycie247c-vl_comis_t,
itab_zycit247-netpr_t TO /pws/zycie247c-netpr_t .
IF /pws/zycie244-tipo EQ 'N' AND /pws/zycie244-modalidade EQ 'S'.
ELSE.
CLEAR: itab_zycit248. REFRESH: itab_zycit248.
LOOP AT itab_zycit248_final.
* >> Início da exclusão: FORM CHECK_BUTTON_NEXT_0207
IF /pws/zycie244-tipo EQ 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_NEXT_0207
IF /pws/zycie244-tipo CA 'GD'.
* << Fim da inclusão
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem.
ELSE.
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem.
ENDIF.
MOVE-CORRESPONDING itab_zycit248_final TO itab_zycit248.
APPEND itab_zycit248.
ENDLOOP.
ENDIF.
ENDIF.
ENDFORM.
...
...
itab_zycit247-waers TO /pws/zycie247c-waers ,
itab_zycit247-waers TO /pws/zycie247c-waers_fre ,
itab_zycit247-waers TO /pws/zycie247c-waers_com ,
itab_zycit247-vl_frete_t TO /pws/zycie247c-vl_frete_t,
itab_zycit247-vl_comis_t TO /pws/zycie247c-vl_comis_t,
itab_zycit247-netpr_t TO /pws/zycie247c-netpr_t .
IF /pws/zycie244-tipo EQ 'N' AND /pws/zycie244-modalidade EQ 'S'.
ELSE.
CLEAR: itab_zycit248. REFRESH: itab_zycit248.
LOOP AT itab_zycit248_final.
* >> Início da exclusão: FORM CHECK_BUTTON_LAST_0207
IF /pws/zycie244-tipo EQ 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_LAST_0207
IF /pws/zycie244-tipo CA 'GD'.
* << Fim da inclusão
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem.
ELSE.
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem.
ENDIF.
MOVE-CORRESPONDING itab_zycit248_final TO itab_zycit248.
APPEND itab_zycit248.
ENDLOOP.
ENDIF.
ENDIF.
ENDFORM.
...
...
itab_zycit247-qtd_ncm TO /pws/zycie247c-qtd_ncm ,
itab_zycit247-agrup TO /pws/zycie247-agrup ,
itab_zycit247-waers TO /pws/zycie247c-waers ,
itab_zycit247-waers TO /pws/zycie247c-waers_fre ,
itab_zycit247-waers TO /pws/zycie247c-waers_com ,
itab_zycit247-vl_frete_t TO /pws/zycie247c-vl_frete_t,
itab_zycit247-vl_comis_t TO /pws/zycie247c-vl_comis_t,
itab_zycit247-netpr_t TO /pws/zycie247c-netpr_t .
CLEAR: itab_zycit248. REFRESH: itab_zycit248.
LOOP AT itab_zycit248_final.
* >> Início da exclusão: FORM TRATA_TAB_REALIZ2
IF /pws/zycie244-tipo EQ 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TAB_REALIZ2
IF /pws/zycie244-tipo CA 'GD'.
* << Fim da inclusão
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem AND
itab_zycit248_final-j_1bnbm EQ /pws/zycie247c-j_1bnbm.
ELSE.
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem.
ENDIF.
MOVE-CORRESPONDING itab_zycit248_final TO itab_zycit248.
APPEND itab_zycit248.
ENDLOOP.
pressed_tab_4a = ok_code2.
dynpronr4a = '0207'.
...
...
dynpronr2a = '0212'.
PERFORM verifica_alteracoes.
ELSE.
CLEAR: v_ver_alt.
ENDIF.
ENDIF.
IF /pws/zycie244-verd_ama IS INITIAL.
DELETE itab_zycit245 WHERE nritem > 90000.
ENDIF.
CLEAR it_log_erro. REFRESH it_log_erro.
* >> Início da exclusão: FORM TRATA_BUTTON_SAVE2
IF /pws/zycie244-tipo EQ 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BUTTON_SAVE2
IF /pws/zycie244-tipo CA 'GD'.
* << Fim da inclusão
READ TABLE itab_zycit245 INDEX 1.
IF sy-subrc NE 0 OR itab_zycit245-j_1bnbm IS INITIAL.
MESSAGE s015 WITH text-172 text-173.
v_erro2 = 'S'.
EXIT.
ENDIF.
ENDIF.
v_erro2 = 'N'.
PERFORM refresh_balance_materials2 CHANGING v_erro2.
IF v_erro2 EQ 'S'.
...
...
REFRESH: itab_zycit245t.
itab_zycit245t[] = itab_zycit245[].
itab_zycit245_save[] = itab_zycit245[].
itab_zycit246_save[] = itab_zycit246_final[].
itab_zycit247_save[] = itab_zycit247[].
itab_zycit248_save[] = itab_zycit248_final[].
itab_centros2_save[] = itab_centros2[].
itab_vencto2_save[] = itab_vencto2[].
PERFORM le_textos.
IF /pws/zycie244-modalidade EQ 'S' AND
* >> Início da exclusão: FORM TRATA_BUTTON_ENTE2
( /pws/zycie244-tipo EQ 'N' OR
/pws/zycie244-tipo EQ 'G' OR
/pws/zycie244-tipo EQ 'F' )
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BUTTON_ENTE2
/pws/zycie244-tipo CA 'NGDF'
* << Fim da inclusão
OR /pws/zycit321-c_comum EQ 'X'
OR ( /pws/zycit321-it_ge EQ 'X' AND
/pws/zycie244-modalidade EQ 'I' ).
ELSE.
PERFORM alertas_ncm.
ENDIF.
IF sy-tcode EQ '/PWS/ZYCI040_A' AND /pws/zycie244-fechado EQ 'X'.
v_tcode2 = '/PWS/ZYCI040_E'.
v_tcode2_aux = 'X'.
ENDIF.
...
...
v_tabix2 = sy-tabix.
IF /pws/zycie244-modalidade EQ 'S'.
CATCH SYSTEM-EXCEPTIONS arithmetic_errors = 5.
itab_zycit245-ntgewt = itab_zycit245-ntgew * itab_zycit245-qtd_tot.
ENDCATCH.
IF sy-subrc = 5.
MESSAGE s039 WITH text-345.
ENDIF.
ENDIF.
IF itab_zycit245-maktx IS INITIAL.
* >> Início da exclusão: FORM APURA_TOTAIS_0203
IF /pws/zycie244-tipo NE 'G' AND /pws/zycie244-tipo NE 'F'
* << Fim da exclusão
* >> Início da inclusão: FORM APURA_TOTAIS_0203
IF /pws/zycie244-tipo NA 'GDF'
* << Fim da inclusão
AND /pws/zycit321-c_comum NE 'X' .
SELECT SINGLE maktx FROM makt INTO /pws/zycie245-maktx
WHERE matnr = itab_zycit245-codcomp
AND spras = sy-langu.
ELSE.
SELECT SINGLE text1 FROM t604n INTO itab_zycit245-maktx
WHERE spras = sy-langu
AND land1 = 'BR'
AND steuc = itab_zycit245-j_1bnbm.
ENDIF.
MODIFY itab_zycit245.
ENDIF.
/pws/zycie244-t_compfob = /pws/zycie244-t_compfob +
itab_zycit245-netpr_t.
* >> Início da exclusão: FORM APURA_TOTAIS_0203
IF /pws/zycie244-tipo NE 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM APURA_TOTAIS_0203
IF /pws/zycie244-tipo NA 'GD'.
* << Fim da inclusão
/pws/zycie244-t_compqtd = /pws/zycie244-t_compqtd +
itab_zycit245-qtd_tot.
ENDIF.
/pws/zycie244-s_compfob = /pws/zycie244-s_compfob +
itab_zycit245-netpr_t.
* >> Início da exclusão: FORM APURA_TOTAIS_0203
IF /pws/zycie244-tipo NE 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM APURA_TOTAIS_0203
IF /pws/zycie244-tipo NA 'GD'.
* << Fim da inclusão
/pws/zycie244-s_compqtd = /pws/zycie244-s_compqtd +
itab_zycit245-qtd_tot.
ENDIF.
/pws/zycie244-waerscomp = itab_zycit245-waers.
/pws/zycie244-meinscomp = itab_zycit245-meins.
MODIFY itab_zycit245.
IF NOT itab_zycit245-qtd_tot IS INITIAL AND
itab_zycit245-qtd_ncm IS INITIAL AND NOT
itab_zycit245-codcomp IS INITIAL.
itab_zycit245-qtd_ncm = itab_zycit245-qtd_tot.
...
...
( itab_zycit245-perda_e / 100 ).
itab_zycit245-qtd_ncm = itab_zycit245-qtd_ncm -
itab_zycit245-qtd_perda_e.
itab_zycit245-qtd_tot = itab_zycit245-qtd_tot -
( itab_zycit245-qtd_perda_e * v_conv_t ).
ENDIF.
MODIFY itab_zycit245.
ENDLOOP.
LOOP AT itab_zycit246_final.
CHECK itab_zycit246_final-cancel EQ space.
* >> Início da exclusão: FORM APURA_TOTAIS_0203
IF /pws/zycie244-tipo NE 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM APURA_TOTAIS_0203
IF /pws/zycie244-tipo NA 'GD'.
* << Fim da inclusão
/pws/zycie244-s_compfob = /pws/zycie244-s_compfob -
( itab_zycit246_final-netpr * itab_zycit246_final-qtd_iten ).
/pws/zycie244-s_compqtd =
/pws/zycie244-s_compqtd -
itab_zycit246_final-qtd_iten.
ELSE.
/pws/zycie244-s_compfob = /pws/zycie244-s_compfob -
itab_zycit246_final-vltot.
ENDIF.
ENDLOOP.
...
...
/pws/zycie244-s_realqtd.
LOOP AT itab_zycit245 WHERE nritem EQ /pws/zycie245c-nritem.
CLEAR: /pws/zycie244-t_realfob, /pws/zycie244-t_realqtd,
v_vlfreter_imp, v_vlsegr_imp,v_vlfrete, v_vlseg .
/pws/zycie244-t_realfob = itab_zycit245-vlvinc.
/pws/zycie244-t_realqtd = itab_zycit245-vinculado.
LOOP AT itab_zycit246 WHERE nritem EQ itab_zycit245-nritem.
v_vlfrete = v_vlfrete + itab_zycit246-vlfrete.
v_vlseg = v_vlseg + itab_zycit246-vlseg.
ENDLOOP.
* >> Início da exclusão: FORM APURA_TOTAIS_0204
IF /pws/zycie244-tipo NE 'F'
AND /pws/zycie244-tipo NE 'C' AND
/pws/zycie244-tipo NE 'N'.
* << Fim da exclusão
* >> Início da inclusão: FORM APURA_TOTAIS_0204
IF /pws/zycie244-tipo NA 'FCNE'.
* << Fim da inclusão
/pws/zycie244-t_realqtd = itab_zycit245-vinculado.
ENDIF.
/pws/zycie244-s_realfob = /pws/zycie245c-netpr_t -
/pws/zycie244-t_realfob.
IF /pws/zycie245c-qtd_ncm >= 0.
/pws/zycie244-s_realqtd = /pws/zycie245c-qtd_ncm -
/pws/zycie244-t_realqtd.
ELSE.
/pws/zycie244-s_realqtd = 0.
ENDIF.
...
...
IF NOT itab_zycit245-qtd_ncm IS INITIAL.
/pws/zycie244-s_realqtd = itab_zycit245-qtd_ncm -
/pws/zycie244-t_realqtd.
ELSE.
/pws/zycie244-s_realqtd = 0.
ENDIF.
v_vlfreter_imp = itab_zycit245-vl_frete_t.
v_vlsegr_imp = itab_zycit245-vl_seg_t.
ENDLOOP.
ENDIF.
* >> Início da exclusão: FORM APURA_TOTAIS_0204
IF /pws/zycie244-tipo EQ 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM APURA_TOTAIS_0204
IF /pws/zycie244-tipo CA 'GD'.
* << Fim da inclusão
CLEAR: /pws/zycie244-s_realqtd.
ENDIF.
ENDFORM.
FORM apura_totais_0206.
CLEAR: /pws/zycie244-t_matfob, /pws/zycie244-t_matqtd,
/pws/zycie244-s_matfob, /pws/zycie244-s_matqtd.
LOOP AT itab_zycit247.
IF itab_zycit247-maktx IS INITIAL.
* >> Início da exclusão: FORM APURA_TOTAIS_0206
IF /pws/zycie244-tipo NE 'G' AND /pws/zycie244-tipo NE 'F' AND
* << Fim da exclusão
* >> Início da inclusão: FORM APURA_TOTAIS_0206
IF /pws/zycie244-tipo NA 'GDF' AND
* << Fim da inclusão
/pws/zycit321-c_comum NE 'X'.
SELECT SINGLE maktx FROM makt INTO itab_zycit247-maktx
WHERE matnr = itab_zycit247-codmat
AND spras = sy-langu.
IF NOT itab_zycit247-mat_int IS INITIAL.
SELECT SINGLE descr FROM /pws/zycit368
INTO itab_zycit247-maktx
WHERE nrseq EQ itab_zycit247-mat_int
AND kunnr EQ /pws/zycie244-kunnr.
ENDIF.
...
...
CLEAR itab_zycit247-vl_comis.
ELSE.
IF NOT /pws/zycie244-modalidade EQ 'I' .
itab_zycit247-vl_comis_t =
itab_zycit247-vl_comis * itab_zycit247-qtd_iten.
ENDIF.
ENDIF.
CLEAR: v_um_rez, v_um_ren.
CHECK /pws/zycie244-tipo NE 'N' OR
( /pws/zycie244-tipo EQ 'N' AND /pws/zycie244-modalidade EQ 'I' ).
* >> Início da exclusão: FORM APURA_TOTAIS_0206
IF /pws/zycie244-tipo NE 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM APURA_TOTAIS_0206
IF /pws/zycie244-tipo NA 'GD'.
* << Fim da inclusão
LOOP AT tc_mexp2-cols INTO v_cols.
IF v_cols-screen-name = '/PWS/ZYCIE247-QTD_NCM'.
v_cols-screen-input = 0.
MODIFY tc_mexp2-cols FROM v_cols.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
IF NOT itab_zycit247-codmat IS INITIAL.
itab_zycit247-um_ncm = itab_zycit247-meins.
itab_zycit247-qtd_ncm = itab_zycit247-qtd_iten.
...
...
/pws/zycie244-tipo EQ 'F'.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
WHEN 'FS_RESIMP'.
IF /pws/zycie244-modalidade EQ 'I' OR
( /pws/zycie244-tipo EQ 'F' AND v_agrup IS INITIAL ).
screen-invisible = 1.
MODIFY SCREEN.
ELSEIF /pws/zycie244-modalidade NE 'I' AND
* >> Início da exclusão: FORM CHECK_FIELD_0202
( /pws/zycie244-tipo NE 'G' AND
/pws/zycie244-tipo NE 'F'
).
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0202
/pws/zycie244-tipo NA 'GDF'.
* << Fim da inclusão
screen-invisible = 1.
IF /pws/zycit321-c_comum EQ 'X' AND
* >> Início da exclusão: FORM CHECK_FIELD_0202
( /pws/zycie244-tipo EQ 'C' OR
/pws/zycie244-tipo EQ 'N' ).
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0202
/pws/zycie244-tipo CA 'CEN'.
* << Fim da inclusão
screen-invisible = 0.
...
...
WHEN 'FS_REALIZ2'.
IF /pws/zycie244-modalidade EQ 'I'.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
WHEN 'FS_RESMAT'.
IF /pws/zycie244-modalidade EQ 'I'.
screen-invisible = 1.
MODIFY SCREEN.
ELSEIF /pws/zycie244-modalidade NE 'I' AND
* >> Início da exclusão: FORM CHECK_FIELD_0205
( /pws/zycie244-tipo NE 'G' AND /pws/zycie244-tipo NE 'F'
).
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0205
/pws/zycie244-tipo NA 'GDF'.
* << Fim da inclusão
screen-invisible = 1.
IF /pws/zycit321-c_comum EQ 'X' AND
* >> Início da exclusão: FORM CHECK_FIELD_0205
/pws/zycie244-tipo EQ 'C' OR
/pws/zycie244-tipo EQ 'N'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0205
/pws/zycie244-tipo CA 'CEN'.
* << Fim da inclusão
screen-invisible = 0.
...
...
itab_zycit247-qtd_ncm TO /pws/zycie247c-qtd_ncm ,
itab_zycit247-um_ncm TO /pws/zycie247c-um_ncm ,
itab_zycit247-waers TO /pws/zycie247c-waers ,
itab_zycit247-waers TO /pws/zycie247c-waers_fre ,
itab_zycit247-waers TO /pws/zycie247c-waers_com ,
itab_zycit247-vl_frete_t TO /pws/zycie247c-vl_frete_t,
itab_zycit247-vl_comis_t TO /pws/zycie247c-vl_comis_t,
itab_zycit247-netpr_t TO /pws/zycie247c-netpr_t .
CLEAR: itab_zycit248. REFRESH: itab_zycit248.
LOOP AT itab_zycit248_final.
* >> Início da exclusão: FORM TRATA_TAB_RECOMP2
IF /pws/zycie244-tipo EQ 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TAB_RECOMP2
IF /pws/zycie244-tipo CA 'GD'.
* << Fim da inclusão
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem AND
itab_zycit248_final-j_1bnbm EQ /pws/zycie247c-j_1bnbm.
ELSE.
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem AND
itab_zycit248_final-codmat EQ /pws/zycie247c-codmat.
ENDIF.
MOVE-CORRESPONDING itab_zycit248_final TO itab_zycit248.
APPEND itab_zycit248.
ENDLOOP.
CLEAR itab_res_remat. REFRESH itab_res_remat.
...
...
itab_zycit247-um_ncm TO /pws/zycie247c-um_ncm ,
itab_zycit247-qtd_iten TO /pws/zycie247c-qtd_iten ,
itab_zycit247-waers TO /pws/zycie247c-waers ,
itab_zycit247-waers TO /pws/zycie247c-waers_fre ,
itab_zycit247-waers TO /pws/zycie247c-waers_com ,
itab_zycit247-vl_frete_t TO /pws/zycie247c-vl_frete_t,
itab_zycit247-vl_comis_t TO /pws/zycie247c-vl_comis_t,
itab_zycit247-netpr_t TO /pws/zycie247c-netpr_t .
CLEAR: itab_zycit248. REFRESH: itab_zycit248.
LOOP AT itab_zycit248_final.
* >> Início da exclusão: FORM CHECK_BUTTON_FIRST_0217
IF /pws/zycie244-tipo EQ 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_FIRST_0217
IF /pws/zycie244-tipo CA 'GD'.
* << Fim da inclusão
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem AND
itab_zycit248_final-j_1bnbm EQ /pws/zycie247c-j_1bnbm.
ELSE.
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem AND
itab_zycit248_final-codmat EQ /pws/zycie247c-codmat.
ENDIF.
MOVE-CORRESPONDING itab_zycit248_final TO itab_zycit248.
APPEND itab_zycit248.
ENDLOOP.
CLEAR itab_res_remat. REFRESH itab_res_remat.
...
...
itab_zycit247-qtd_ncm TO /pws/zycie247c-qtd_ncm ,
itab_zycit247-um_ncm TO /pws/zycie247c-um_ncm ,
itab_zycit247-waers TO /pws/zycie247c-waers ,
itab_zycit247-waers TO /pws/zycie247c-waers_fre ,
itab_zycit247-waers TO /pws/zycie247c-waers_com ,
itab_zycit247-vl_frete_t TO /pws/zycie247c-vl_frete_t,
itab_zycit247-vl_comis_t TO /pws/zycie247c-vl_comis_t,
itab_zycit247-netpr_t TO /pws/zycie247c-netpr_t .
CLEAR: itab_zycit248. REFRESH: itab_zycit248.
LOOP AT itab_zycit248_final.
* >> Início da exclusão: FORM CHECK_BUTTON_PRIOR_0217
IF /pws/zycie244-tipo EQ 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_PRIOR_0217
IF /pws/zycie244-tipo CA 'GD'.
* << Fim da inclusão
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem AND
itab_zycit248_final-j_1bnbm EQ /pws/zycie247c-j_1bnbm.
ELSE.
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem AND
itab_zycit248_final-codmat EQ /pws/zycie247c-codmat.
ENDIF.
MOVE-CORRESPONDING itab_zycit248_final TO itab_zycit248.
APPEND itab_zycit248.
ENDLOOP.
CLEAR itab_res_remat. REFRESH itab_res_remat.
...
...
itab_zycit247-qtd_ncm TO /pws/zycie247c-qtd_ncm ,
itab_zycit247-um_ncm TO /pws/zycie247c-um_ncm ,
itab_zycit247-waers TO /pws/zycie247c-waers ,
itab_zycit247-waers TO /pws/zycie247c-waers_fre ,
itab_zycit247-waers TO /pws/zycie247c-waers_com ,
itab_zycit247-vl_frete_t TO /pws/zycie247c-vl_frete_t,
itab_zycit247-vl_comis_t TO /pws/zycie247c-vl_comis_t,
itab_zycit247-netpr_t TO /pws/zycie247c-netpr_t .
CLEAR: itab_zycit248. REFRESH: itab_zycit248.
LOOP AT itab_zycit248_final.
* >> Início da exclusão: FORM CHECK_BUTTON_NEXT_0217
IF /pws/zycie244-tipo EQ 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_NEXT_0217
IF /pws/zycie244-tipo CA 'GD'.
* << Fim da inclusão
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem AND
itab_zycit248_final-j_1bnbm EQ /pws/zycie247c-j_1bnbm.
ELSE.
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem AND
itab_zycit248_final-codmat EQ /pws/zycie247c-codmat.
ENDIF.
MOVE-CORRESPONDING itab_zycit248_final TO itab_zycit248.
APPEND itab_zycit248.
ENDLOOP.
CLEAR itab_res_remat. REFRESH itab_res_remat.
...
...
itab_zycit247-um_ncm TO /pws/zycie247c-um_ncm ,
itab_zycit247-qtd_iten TO /pws/zycie247c-qtd_iten ,
itab_zycit247-waers TO /pws/zycie247c-waers ,
itab_zycit247-waers TO /pws/zycie247c-waers_fre ,
itab_zycit247-waers TO /pws/zycie247c-waers_com ,
itab_zycit247-vl_frete_t TO /pws/zycie247c-vl_frete_t,
itab_zycit247-vl_comis_t TO /pws/zycie247c-vl_comis_t,
itab_zycit247-netpr_t TO /pws/zycie247c-netpr_t .
CLEAR: itab_zycit248. REFRESH: itab_zycit248.
LOOP AT itab_zycit248_final.
* >> Início da exclusão: FORM CHECK_BUTTON_LAST_0217
IF /pws/zycie244-tipo EQ 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_LAST_0217
IF /pws/zycie244-tipo CA 'GD'.
* << Fim da inclusão
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem AND
itab_zycit248_final-j_1bnbm EQ /pws/zycie247c-j_1bnbm.
ELSE.
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem AND
itab_zycit248_final-codmat EQ /pws/zycie247c-codmat.
ENDIF.
MOVE-CORRESPONDING itab_zycit248_final TO itab_zycit248.
APPEND itab_zycit248.
ENDLOOP.
CLEAR itab_res_remat. REFRESH itab_res_remat.
...
...
v_arred TO itab_zycit245-qtd_tot,
itab_zycit245-qtd_ncm TO v_arred ,
v_arred TO itab_zycit245-qtd_ncm.
PERFORM select_max_item_number2 CHANGING v_nritem.
itab_zycit245-nritem = v_nritem.
MODIFY itab_zycit245.
itab_zycit245_aux[] = itab_zycit245[].
ENDIF.
ENDLOOP.
PERFORM apura_totais_0203.
* >> Início da exclusão: FORM BUSCA_DADOS_COMPOSICAO
IF /pws/zycie244-tipo EQ 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_DADOS_COMPOSICAO
IF /pws/zycie244-tipo CA 'GD'.
* << Fim da inclusão
PERFORM acumula_item_lista_tecnica_tg2.
ENDIF.
ENDIF.
CLEAR: vfobtmp, vbrgtmp, vntgtmp, vcomtmp.
IF itab_zycit247[] IS INITIAL.
SELECT * FROM /pws/zycit259 INTO TABLE itab_zycit259
WHERE nrseqd EQ /pws/zycie244-nrcompos.
IF sy-subrc EQ 0.
DESCRIBE TABLE itab_zycit259 LINES v_lines.
CLEAR: v_count.
...
...
FORM verifica_componentes2.
DATA: v_subrc LIKE sy-subrc ,
v_qtdbase LIKE itab_stko-bmeng,
v_flag(1) TYPE c ,
v_erro_conv ,
v_verificp2_temp .
DATA: itab_zycit245_rp LIKE itab_zycit245 OCCURS 0 WITH HEADER LINE.
* >> Início da exclusão: FORM VERIFICA_COMPONENTES2
CHECK /pws/zycie244-tipo NE 'G' AND /pws/zycie244-tipo NE 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_COMPONENTES2
CHECK /pws/zycie244-tipo NA 'GDF'.
* << Fim da inclusão
IF /pws/zycie244-tipo EQ 'N' AND /pws/zycie244-modalidade EQ 'S'.
CHECK v_tcode2 NE '/PWS/ZYCI040_E'.
IF v_verificp2_merc EQ 'S'.
EXIT.
ENDIF.
v_verificp2_temp = v_verificp2.
v_verificp2 = v_verificp2_merc.
IF v_verificp2_merc EQ 'N'.
PERFORM confirm_expl_bom2 CHANGING v_flag.
v_verificp2_merc = v_verificp2.
...
...
v_erro_conv = 'S'.
EXIT.
ENDIF.
MODIFY itab_zycit245.
itab_zycit245_aux[] = itab_zycit245[].
ENDLOOP.
IF v_erro_conv = 'S'.
REFRESH itab_zycit245.
EXIT.
ENDIF.
* >> Início da exclusão: FORM VERIFICA_COMPONENTES2
IF /pws/zycie244-tipo EQ 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_COMPONENTES2
IF /pws/zycie244-tipo CA 'GD'.
* << Fim da inclusão
PERFORM acumula_item_lista_tecnica_tg2.
ENDIF.
v_verificp2 = 'S'.
DESCRIBE TABLE itab_zycit247 LINES v_verifiit2.
MESSAGE s015 WITH text-023.
ENDIF.
ENDFORM.
...
...
FORM button_tpdraw2.
IF v_tcode2 EQ '/PWS/ZYCI040_C'.
CLEAR: itab_zycit245, itab_zycit245_aux, itab_zycit247.
REFRESH: itab_zycit245, itab_zycit245_aux, itab_zycit247.
v_verificp2 = 'N'.
* >> Início da exclusão: FORM BUTTON_TPDRAW2
IF /pws/zycie244-tipo EQ 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM BUTTON_TPDRAW2
IF /pws/zycie244-tipo CA 'GD'.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycit321 INTO wa_zycit321.
IF sy-subrc NE 0 OR wa_zycit321-ncm IS INITIAL.
MESSAGE i015 WITH text-170 text-171.
ENDIF.
PERFORM select_max_item_number2 CHANGING v_nritem.
MOVE: /pws/zycie244-nrseqd TO itab_zycit245-nrseqd ,
wa_zycit321-ncm TO itab_zycit245-j_1bnbm,
v_nritem TO itab_zycit245-nritem ,
'1' TO itab_zycit245-proced .
SELECT text1 UP TO 1 ROWS FROM t604n INTO itab_zycit245-maktx
...
...
FORM confirm_expl_bom2 CHANGING p_flag.
DATA: v_cfm(1) TYPE c,
v_pergunta(128).
* >> Início da exclusão: FORM CONFIRM_EXPL_BOM2
IF /pws/zycie244-tipo EQ 'C'.
* << Fim da exclusão
* >> Início da inclusão: FORM CONFIRM_EXPL_BOM2
IF /pws/zycie244-tipo CA 'CE'.
* << Fim da inclusão
CALL FUNCTION 'POPUP_TO_DECIDE_COMPL_QUEST'
EXPORTING
txt01 = text-295
qtext = text-296
title = text-300
answer01 = text-297
answer02 = text-298
answer03 = text-299
default_answer = 'Y'
length = 60
...
...
itab_zycit247-qtd_ncm TO /pws/zycie247c-qtd_ncm ,
itab_zycit247-um_ncm TO /pws/zycie247c-um_ncm ,
itab_zycit247-waers TO /pws/zycie247c-waers ,
itab_zycit247-waers TO /pws/zycie247c-waers_fre ,
itab_zycit247-waers TO /pws/zycie247c-waers_com ,
itab_zycit247-vl_frete_t TO /pws/zycie247c-vl_frete_t,
itab_zycit247-vl_comis_t TO /pws/zycie247c-vl_comis_t,
itab_zycit247-netpr_t TO /pws/zycie247c-netpr_t .
CLEAR: itab_zycit248. REFRESH: itab_zycit248.
LOOP AT itab_zycit248_final.
* >> Início da exclusão: FORM TRATA_TAB_RESMAT2
IF /pws/zycie244-tipo EQ 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TAB_RESMAT2
IF /pws/zycie244-tipo CA 'GD'.
* << Fim da inclusão
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem AND
itab_zycit248_final-j_1bnbm EQ /pws/zycie247c-j_1bnbm.
ELSE.
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem.
ENDIF.
MOVE-CORRESPONDING itab_zycit248_final TO itab_zycit248.
APPEND itab_zycit248.
ENDLOOP.
CLEAR: itab_zycit248_res. REFRESH: itab_zycit248_res.
LOOP AT itab_zycit248.
...
...
IF pressed_tab_2a EQ 'FS_MERC2' OR
/pws/zycie244-tipo EQ 'F'.
wa_cols2-invisible = 1.
ELSE.
wa_cols2-invisible = 0.
ENDIF.
MODIFY tc_nacion-cols FROM wa_cols2.
ENDIF.
ENDLOOP.
LOOP AT SCREEN.
* >> Início da exclusão: FORM CHECK_FIELD_0210
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0210
IF /pws/zycie244-tipo CA 'GDF'.
* << Fim da inclusão
IF screen-name EQ 'I_NRITEM'.
screen-invisible = 1.
screen-intensified = 0.
MODIFY SCREEN.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE245C-CODCOMP'.
screen-invisible = 1.
screen-intensified = 0.
MODIFY SCREEN.
ENDIF.
...
...
DATA: BEGIN OF itab_zycit245_collect OCCURS 0,
nrseqd LIKE /pws/zycit245-nrseqd,
codcomp LIKE /pws/zycit245-codcomp ,
meins LIKE /pws/zycit245-meins,
werks LIKE /pws/zycit245-werks,
proced LIKE /pws/zycit245-proced ,
qtd_iten LIKE /pws/zycit245-qtd_iten ,
qtd_tot LIKE /pws/zycit245-qtd_tot,
END OF itab_zycit245_collect.
* >> Início da exclusão: FORM VERIFICA_COMPONENTES_AGRUP
CHECK /pws/zycie244-tipo NE 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_COMPONENTES_AGRUP
CHECK /pws/zycie244-tipo NA 'GD'.
* << Fim da inclusão
CLEAR v_nritem.
CHECK v_tcode2 NE '/PWS/ZYCI040_E'.
DESCRIBE TABLE itab_zycit247 LINES v_ilinhas.
DESCRIBE TABLE itab_zycit427 LINES v_ilinhas3.
IF v_verificp2 EQ 'S' AND
v_verificp2_merc EQ 'S'.
EXIT.
ENDIF.
IF ( v_verificp2 EQ 'N' AND v_verifiit2 EQ v_ilinhas ) OR
( v_verificp2_merc EQ 'N' AND v_verifiit3 EQ v_ilinhas3 ).
...
...
itab_zycit245-um_ncm = itab_zycit245-meins.
itab_zycit245-qtd_ncm = itab_zycit245-qtd_tot.
PERFORM converte_um_ncm USING itab_zycit245-codcomp
CHANGING itab_zycit245-um_ncm
itab_zycit245-werks
itab_zycit245-qtd_ncm.
MODIFY itab_zycit245.
ENDLOOP.
ENDLOOP.
ENDIF.
* >> Início da exclusão: FORM VERIFICA_COMPONENTES_AGRUP
IF /pws/zycie244-tipo EQ 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_COMPONENTES_AGRUP
IF /pws/zycie244-tipo CA 'GD'.
* << Fim da inclusão
PERFORM acumula_item_lista_tecnica_tg2.
ENDIF.
v_verificp2 = 'S'.
v_verificp2_merc = 'S'.
DELETE ADJACENT DUPLICATES FROM itab_zycit247 COMPARING ALL FIELDS.
DESCRIBE TABLE itab_zycit247 LINES v_verifiit2.
MESSAGE s015 WITH text-023.
ENDFORM.
...
...
AND nritem > '90000'.
EXIT.
ENDLOOP.
ELSE.
LOOP AT itab_zycit245_ap_s
WHERE nrseqd = itab_zycit279_ap-nrseqd_d
AND nritem < '90000'.
EXIT.
ENDLOOP.
ENDIF.
* >> Início da exclusão: FORM SALVA_APONT
IF itab_zycit245_ap_s-tipo NE 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_APONT
IF itab_zycit245_ap_s-tipo NA 'GD'.
* << Fim da inclusão
IF /pws/zycit321-c_comum IS INITIAL.
REFRESH itab_zycit433.
CLEAR itab_zycit433.
SELECT SINGLE grupo FROM /pws/zycit433
INTO itab_zycit433-grupo
WHERE matnr EQ itab_zycit279_ap-matnr.
SELECT * FROM /pws/zycit433 INTO TABLE itab_zycit433
WHERE grupo EQ itab_zycit433-grupo. "#EC CI_NOFIRST
itab_zycit433-matnr = itab_zycit279_ap-matnr.
APPEND itab_zycit433.
...
...
FORM move_realiz.
DATA: itab_zycit433 LIKE /pws/zycit433 OCCURS 0 WITH HEADER LINE,
itab_zycit433a LIKE /pws/zycit433 OCCURS 0 WITH HEADER LINE.
REFRESH: itab_zycit246_save, itab_zycit246_final.
* >> Início da exclusão: FORM MOVE_REALIZ
IF /pws/zycie244-tipo NE 'G' AND /pws/zycie244-tipo NE 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_REALIZ
IF /pws/zycie244-tipo NA 'GDF'.
* << Fim da inclusão
CLEAR: itab_zycit433. REFRESH itab_zycit433.
SELECT * FROM /pws/zycit433 INTO TABLE itab_zycit433
FOR ALL ENTRIES IN itab_zycit245
WHERE matnr EQ itab_zycit245-codcomp.
SELECT * FROM /pws/zycit433
INTO TABLE itab_zycit433a. "#EC CI_NOWHERE
ENDIF.
LOOP AT itab_zycit279_ap.
MOVE-CORRESPONDING itab_zycit279_ap TO itab_zycit246_final.
MOVE: itab_zycit279_ap-um_base TO itab_zycit246_final-meins.
...
...
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.
IF NOT itab_zycit279_ap-nritem IS INITIAL.
APPEND itab_zycit246_final.
CONTINUE.
ENDIF.
IF /pws/zycie244-tipo EQ 'F' OR
* >> Início da exclusão: FORM MOVE_REALIZ
( ( /pws/zycie244-tipo EQ 'C' OR
/pws/zycie244-tipo EQ 'N' ) AND
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_REALIZ
( /pws/zycie244-tipo CA 'CNE' AND
* << Fim da inclusão
/pws/zycit321-c_comum EQ 'X' AND
/pws/zycie244-modalidade NE 'I' ) OR
( /pws/zycie244-modalidade EQ 'I' AND
/pws/zycit321-it_ge EQ 'X' ).
IF /pws/zycie244-modalidade EQ 'S' AND
/pws/zycie244-tipo NE 'F'.
IF itab_zycit246_final-nrseqdi IS INITIAL.
LOOP AT itab_zycit245
WHERE j_1bnbm = itab_zycit279_ap-j_1bnbm
AND nritem > 90000. "#EC PORTABLE
...
...
WHERE j_1bnbm = itab_zycit279_ap-j_1bnbm
AND nritem < 90000. "#EC PORTABLE
EXIT.
ENDLOOP.
ENDIF.
ELSE.
READ TABLE itab_zycit245 WITH KEY
j_1bnbm = itab_zycit279_ap-j_1bnbm.
ENDIF.
itab_zycit246_final-nritem = itab_zycit245-nritem.
* >> Início da exclusão: FORM MOVE_REALIZ
ELSEIF /pws/zycie244-tipo EQ 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_REALIZ
ELSEIF /pws/zycie244-tipo CA 'GD'.
* << Fim da inclusão
IF itab_zycit246_final-nrseqdi IS INITIAL.
itab_zycit246_final-nritem = '90001'.
ELSE.
itab_zycit246_final-nritem = '00001'.
ENDIF.
ELSE.
IF /pws/zycit321-it_ge EQ 'X' AND
/pws/zycie244-modalidade EQ 'I'.
CLEAR:itab_zycit433a.
LOOP AT itab_zycit433a
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040I01
...
AND domvalue_l LIKE /pws/zycie244-tipo.
CLEAR itab_zycit245. REFRESH itab_zycit245.
SELECT * FROM /pws/zycit249 INTO TABLE itab_zycit249
WHERE nrseqd EQ /pws/zycie244-nrforecast
AND transp NE space.
SELECT * FROM /pws/zycit240 INTO TABLE itab_zycit240
WHERE nrseqd EQ /pws/zycie244-nrforecast
AND transp NE space.
IF sy-subrc EQ 0.
CLEAR itab_zycit245_aux. REFRESH itab_zycit245_aux.
* >> Início da exclusão: MODULE TRATA_FORECAST
IF /pws/zycie244-tipo EQ 'C'.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_FORECAST
IF /pws/zycie244-tipo CA 'CE'.
* << Fim da inclusão
LOOP AT itab_zycit249 WHERE proced NE '0'.
CLEAR itab_zycit245.
MOVE-CORRESPONDING itab_zycit249 TO itab_zycit245.
PERFORM select_max_item_number2 CHANGING v_nritem.
itab_zycit245-nritem = v_nritem.
itab_zycit245-nrseqd = /pws/zycie244-nrseqd.
itab_zycit245-sdocomp_i = itab_zycit249-qtd_tot.
LOOP AT itab_zycit240 WHERE
codcomp EQ itab_zycit245-codcomp.
itab_zycit245-qtd_perda_e = itab_zycit245-qtd_perda_e +
...
...
itab_zycit249-vl_frete_t TO itab_zycit245-vl_frete_t,
itab_zycit249-vl_seg_t TO itab_zycit245-vl_seg_t .
COLLECT itab_zycit245.
ENDLOOP.
ENDIF.
REFRESH itab_zycit245t.
itab_zycit245t[] = itab_zycit245[].
REFRESH: itab_zycit245, itab_zycit245_aux.
CLEAR: itab_zycit245.
pressed_tab_2a = 'FS_MERC2'.
* >> Início da exclusão: MODULE TRATA_FORECAST
IF /pws/zycie244-tipo EQ 'C'.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_FORECAST
IF /pws/zycie244-tipo CA 'CE'.
* << Fim da inclusão
LOOP AT itab_zycit240 WHERE proced EQ 0.
CLEAR: v_nritem.
IF /pws/zycit321-c_comum EQ 'X'.
LOOP AT itab_zycit245
WHERE j_1bnbm = itab_zycit240-j_1bnbm
AND nritem > '90000'.
v_nritem = itab_zycit245-nritem.
EXIT.
ENDLOOP.
ELSE.
...
...
ENDIF.
itab_zycit247-qtd_ncm = itab_zycit247-qtd_iten.
itab_zycit247-um_ncm = itab_zycit247-meins .
IF /pws/zycit321-ltopc IS INITIAL.
PERFORM converte_um_ncm USING itab_zycit247-codmat
CHANGING itab_zycit247-um_ncm
itab_zycit247-werks
itab_zycit247-qtd_ncm.
ENDIF.
IF ( /pws/zycit321-c_comum EQ 'X' OR
* >> Início da exclusão: MODULE TRATA_FORECAST
/pws/zycie244-tipo EQ 'G' ) AND
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_FORECAST
/pws/zycie244-tipo CA 'GD' ) AND
* << Fim da inclusão
/pws/zycit321-ltopc IS INITIAL .
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.
ENDIF.
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,
...
...
ENDIF.
ENDIF.
CASE ok_code2.
WHEN 'MODALID'.
PERFORM button_modalid2.
WHEN 'SELE'.
PERFORM trata_selecao2.
WHEN 'TPDRAW'.
PERFORM seleciona_tipo.
PERFORM button_tpdraw2.
* >> Início da inclusão: MODULE USER_COMMAND_0201
IF /pws/zycie244-tipo CA 'ED'.
CLEAR /pws/zycie244-verd_ama.
ENDIF.
* << Fim da inclusão
ENDCASE.
ENDMODULE.
...
...
MODULE insert_line_comprov_ci INPUT.
/pws/zycie245-waers = v_waers.
CLEAR: v_waers.
* >> Início da exclusão: MODULE INSERT_LINE_COMPROV_CI
IF /pws/zycie244-tipo EQ 'G'.
* << Fim da exclusão
* >> Início da inclusão: MODULE INSERT_LINE_COMPROV_CI
IF /pws/zycie244-tipo CA 'GD'.
* << Fim da inclusão
PERFORM fill_itab_zycit245_tg2.
ELSEIF ( /pws/zycie244-tipo EQ 'F' AND v_agrup IS INITIAL ) OR
/pws/zycit321-c_comum EQ 'X' OR
( /pws/zycit321-it_ge EQ 'X' AND
/pws/zycie244-modalidade EQ 'I' ).
PERFORM fill_itab_zycit245_tf2.
ELSE.
PERFORM fill_itab_zycit245_ng2.
ENDIF.
ENDMODULE.
MODULE user_command_0203 INPUT.
CASE ok_code2.
WHEN 'ENTE'.
IF /pws/zycit321-c_comum IS INITIAL
* >> Início da exclusão: MODULE USER_COMMAND_0203
AND NOT ( /pws/zycie244-tipo EQ 'F' OR /pws/zycie244-tipo EQ 'G' ).
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0203
AND NOT ( /pws/zycie244-tipo CA 'FDG' ).
* << Fim da inclusão
PERFORM trata_enter_0203.
ENDIF.
WHEN 'P-'.
CLEAR nextline.
DESCRIBE TABLE itab_zycit245 LINES v_ilinhas.
PERFORM blaettern
USING tc_cimp2-current_line 7 v_ilinhas ok_code2
CHANGING nextline.
tc_cimp2-top_line = nextline.
WHEN 'P--'.
...
...
INTO TABLE itab_matnr
WHERE matnr EQ /pws/zycie247-codmat.
IF sy-dbcnt > 1.
v_centro = 'X'.
ENDIF.
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
* << Fim da exclusão
* >> Início da inclusão: MODULE INSERT_LINE_COMPROV_ME
IF ( /pws/zycie244-tipo CA 'GD' OR
* << Fim da inclusão
( /pws/zycie244-tipo EQ 'F' AND v_agrup IS INITIAL ) OR
/pws/zycit321-c_comum EQ 'X' ) AND v_agrup IS INITIAL.
IF /pws/zycie244-tipo EQ 'N' AND /pws/zycie244-modalidade EQ 'S'.
PERFORM fill_itab_zycit247_inter.
ELSE.
PERFORM fill_itab_zycit247_tg2.
ENDIF.
ELSE.
IF v_agrup IS INITIAL.
IF /pws/zycie244-tipo EQ 'N' AND /pws/zycie244-modalidade EQ 'S'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040O01
...
ENDLOOP.
LOOP AT tc_realize-cols INTO wa_cols2.
IF NOT /pws/zycie244-importacao IS INITIAL AND
wa_cols2-screen-group4 EQ 'CAM'.
wa_cols2-invisible = 1.
MODIFY tc_realize-cols FROM wa_cols2.
ELSEIF wa_cols2-screen-group4 EQ 'CAM'.
wa_cols2-invisible = 0.
MODIFY tc_realize-cols FROM wa_cols2.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN2
IF /pws/zycie244-tipo CA 'DE' AND
wa_cols2-screen-group3 EQ 'EXP'.
wa_cols2-invisible = 1.
MODIFY tc_realize-cols FROM wa_cols2.
ELSEIF wa_cols2-screen-group3 EQ 'EXP'.
wa_cols2-invisible = 0.
MODIFY tc_realize-cols FROM wa_cols2.
ENDIF.
* << Fim da inclusão
ENDLOOP.
DESCRIBE TABLE itab_zycit248 LINES v_ilinhas2.
tc_realize-lines = v_ilinhas2.
WHEN '0208'.
LOOP AT tc_centros2-cols INTO wa_cols2.
IF wa_cols2-screen-group1 NE 'NEX'.
IF NOT /pws/zycie244-nrforecast IS INITIAL.
wa_cols2-screen-input = 0.
ELSE.
wa_cols2-screen-input = v_status2.
...
...
IF screen-group2 EQ 'GRP'.
screen-invisible = 1.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
WHEN '0236'.
LOOP AT SCREEN.
IF screen-name EQ 'FS_TRANSF'.
* >> Início da exclusão: MODULE SET_SCREEN2
IF /pws/zycie244-verd_ama IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN2
IF /pws/zycie244-verd_ama IS INITIAL AND
/pws/zycie244-tipo NA 'DE' .
* << Fim da inclusão
screen-invisible = 0.
ELSE.
screen-invisible = 1.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDCASE.
CASE /pws/zycie244-tipo.
WHEN 'F'.
...
...
IF NOT /pws/zycie244-ekorg IS INITIAL.
SELECT ekotx UP TO 1 ROWS FROM t024e INTO v_norgcpra2
WHERE ekorg EQ /pws/zycie244-ekorg.
ENDSELECT.
ENDIF.
CLEAR: v_forn.
IF NOT /pws/zycie244-lifnr IS INITIAL.
SELECT name1 UP TO 1 ROWS FROM lfa1 INTO v_forn
WHERE lifnr = /pws/zycie244-lifnr.
ENDSELECT.
* >> Início da inclusão: MODULE LOAD_TEXTS2
ENDIF.
IF /pws/zycie244-tipo CA 'DE'.
fs_mexp2 = text-208.
ELSE.
fs_mexp2 = text-224.
* << Fim da inclusão
ENDIF.
ENDMODULE.
...
...
MODULE trata_screen_0203 OUTPUT.
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE245-CODCOMP'.
READ TABLE itab_zycit245 INDEX tc_cimp2-current_line.
IF sy-subrc EQ 0 AND NOT /pws/zycie245-codcomp IS INITIAL.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE245-J_1BNBM'.
* >> Início da exclusão: MODULE TRATA_SCREEN_0203
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_SCREEN_0203
IF /pws/zycie244-tipo CA 'GDF'.
* << Fim da inclusão
READ TABLE itab_zycit245 INDEX tc_cimp2-current_line.
IF sy-subrc EQ 0 AND NOT /pws/zycie245-j_1bnbm IS INITIAL.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE245-QTD_TOT'.
READ TABLE itab_zycit245 INDEX tc_cimp2-current_line.
ENDIF.
...
...
IF screen-name EQ 'V_WAERS'.
IF /pws/zycie244-tipo EQ 'F'.
IF NOT v_waers IS INITIAL
AND v_tcode2 NE '/PWS/ZYCI040_C'.
screen-input = 0.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
* >> Início da exclusão: MODULE TRATA_SCREEN_0203
IF /pws/zycie244-tipo NE 'G' AND /pws/zycie244-tipo NE 'F'.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_SCREEN_0203
IF /pws/zycie244-tipo NA 'GDF'.
* << Fim da inclusão
SELECT maktx UP TO 1 ROWS FROM makt INTO v_descrit_0203
WHERE matnr = /pws/zycie245-codcomp
AND spras = sy-langu.
ENDSELECT.
IF /pws/zycie245-maktx IS INITIAL AND
NOT v_descrit_0203 IS INITIAL.
READ TABLE itab_zycit245 INDEX tc_cimp2-current_line.
IF sy-subrc EQ 0.
itab_zycit245-maktx = v_descrit_0203.
MODIFY itab_zycit245 INDEX tc_cimp2-current_line.
...
...
/pws/zycie247-vl_frete_t = itab_zycit247-vl_frete_t.
/pws/zycie247-pctcomis = itab_zycit247-pctcomis .
/pws/zycie247-vl_comis = itab_zycit247-vl_comis .
/pws/zycie247-vl_comis_t = itab_zycit247-vl_comis_t.
/pws/zycie247-gewei = itab_zycit247-gewei .
/pws/zycie247-tolling = itab_zycit247-tolling .
/pws/zycie247-brgew = itab_zycit247-brgew .
/pws/zycie247-ntgew = itab_zycit247-ntgew .
/pws/zycie247-j_1bnbm = itab_zycit247-j_1bnbm .
markme = itab_zycit247-markme .
* >> Início da exclusão: MODULE PREENCHE_ESTRUTURA_0206
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'.
* << Fim da exclusão
* >> Início da inclusão: MODULE PREENCHE_ESTRUTURA_0206
IF /pws/zycie244-tipo CA 'GDF'.
* << Fim da inclusão
v_descr_0206 = itab_zycit247-maktx.
ENDIF.
IF v_agrup IS INITIAL.
itab_zycit247-werks = /pws/zycie247-werks .
itab_zycit247-stlal = /pws/zycie247-stlal .
ELSE.
/pws/zycit422-werks = itab_zycit247-werks.
/pws/zycit422-stlal = itab_zycit247-stlal.
/pws/zycie247-agrup = itab_zycit247-agrup.
ENDIF.
CLEAR /pws/zycie247-vl_scamb.
IF /pws/zycit321-c_comum EQ 'X' OR
* >> Início da exclusão: MODULE PREENCHE_ESTRUTURA_0206
/pws/zycie244-tipo EQ 'G'.
* << Fim da exclusão
* >> Início da inclusão: MODULE PREENCHE_ESTRUTURA_0206
/pws/zycie244-tipo CA 'GD'.
* << Fim da inclusão
/pws/zycie247-vl_scamb = itab_zycit247-vl_scamb.
ELSE.
IF /pws/zycie244-importacao EQ space .
LOOP AT itab_lista WHERE matexp EQ /pws/zycie247-codmat.
READ TABLE itab_zycit245 WITH KEY codcomp = itab_lista-matimp.
IF sy-subrc EQ 0.
/pws/zycie247-vl_scamb = /pws/zycie247-vl_scamb +
( ( /pws/zycie247-qtd_iten * itab_lista-usagem )
* itab_zycit245-netpr ).
ENDIF.
...
...
MODULE trata_screen_0206 OUTPUT.
LOOP AT SCREEN.
* >> 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 NA 'GDF'.
* << Fim da inclusão
IF screen-name EQ '/PWS/ZYCIE247-CODMAT'.
READ TABLE itab_zycit247 INDEX tc_mexp2-current_line.
IF sy-subrc EQ 0 AND NOT /pws/zycie247-codmat IS INITIAL.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
ELSE.
IF screen-name EQ '/PWS/ZYCIE247-J_1BNBM'.
READ TABLE itab_zycit247 INDEX tc_mexp2-current_line.
...
...
screen-input = 1.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF /pws/zycie244-status = 'A'
AND screen-name = '/PWS/ZYCIE247-QTD_NCM'.
screen-input = 0.
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' AND
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_SCREEN_0206
IF /pws/zycie244-tipo NA 'GDF' AND
* << Fim da inclusão
/pws/zycit321-c_comum NE 'X'.
SELECT maktx UP TO 1 ROWS FROM makt INTO v_descr_0206
WHERE matnr = /pws/zycie247-codmat
AND spras = sy-langu.
ENDSELECT.
ELSE.
IF v_descr_0206 IS INITIAL AND NOT /pws/zycie247-j_1bnbm IS INITIAL.
SELECT text1 UP TO 1 ROWS FROM t604n INTO v_descr_0206
WHERE spras = sy-langu
AND land1 = 'BR'
* >> Início da exclusão: MODULE TRATA_SCREEN_0206
AND steuc = /pws/zycie247-j_1bnbm. "#EC CI_SGLSELECT
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_SCREEN_0206
AND steuc = /pws/zycie247-j_1bnbm. "#EC CI_SGLSELECT
* << Fim da inclusão
ENDSELECT.
ENDIF.
ENDIF.
IF NOT /pws/zycie247-agrup IS INITIAL.
SELECT SINGLE descr
FROM /pws/zycit419
INTO v_descr_0206
WHERE agrup EQ /pws/zycie247-agrup.
ENDIF.
IF /pws/zycit247-maktx IS INITIAL AND
...
...
MODULE load_text_0204 OUTPUT.
IF NOT /pws/zycie245c-codcomp IS INITIAL AND
* >> Início da exclusão: MODULE LOAD_TEXT_0204
/pws/zycie244-tipo NE 'G'.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_TEXT_0204
/pws/zycie244-tipo NA 'GD'.
* << Fim da inclusão
CLEAR: v_descr_cp2.
SELECT maktx UP TO 1 ROWS FROM makt INTO v_descr_cp2
WHERE matnr = /pws/zycie245c-codcomp
AND spras = sy-langu.
ENDSELECT.
ENDIF.
ENDMODULE.
MODULE apura_totais_0204 OUTPUT.
PERFORM apura_totais_0204.
DESCRIBE TABLE itab_zycit246 LINES v_linha.
...
...
.
/pws/zycie248-seqcompv = itab_zycit248_save-seqcompv.
IF NOT itab_zycit248_save-siscomex IS INITIAL.
v_tsiscomex = '@3J@'.
ENDIF.
ENDMODULE.
MODULE apura_totais_0207 OUTPUT.
PERFORM apura_totais_0207.
ENDMODULE.
MODULE load_text_0207 OUTPUT.
* >> Início da exclusão: MODULE LOAD_TEXT_0207
IF /pws/zycie244-tipo NE 'G' AND /pws/zycie244-tipo NE 'F'.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_TEXT_0207
IF /pws/zycie244-tipo NA 'GDF'.
* << Fim da inclusão
CLEAR: v_descr_mt3.
IF NOT /pws/zycie247c-codmat IS INITIAL.
SELECT maktx UP TO 1 ROWS FROM makt INTO v_descr2_mt3
WHERE matnr = /pws/zycie247c-codmat
AND spras = sy-langu.
ENDSELECT.
ENDIF.
ELSE.
CLEAR: v_descr2_mt3.
IF NOT /pws/zycie247c-j_1bnbm IS INITIAL.
...
...
MODULE load_text_0210 OUTPUT.
IF NOT /pws/zycie245c-codcomp IS INITIAL AND
* >> Início da exclusão: MODULE LOAD_TEXT_0210
/pws/zycie244-tipo NE 'G'.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_TEXT_0210
/pws/zycie244-tipo NA 'GD'.
* << Fim da inclusão
CLEAR: v_descr_0210.
SELECT maktx UP TO 1 ROWS FROM makt INTO v_descr_0210
WHERE matnr = /pws/zycie245c-codcomp
AND spras = sy-langu.
ENDSELECT.
ENDIF.
CLEAR: /pws/zycie245c-netpr_t, /pws/zycie245c-qtd_iten,
/pws/zycie245c-meins.
IF pressed_tab_2a EQ 'FS_MERC2' OR
/pws/zycie244-tipo EQ 'F'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040X01
...
* >> Início da inclusão:
DATA fs_mexp2(20) TYPE c.
* << Fim da inclusão
DATA: END OF COMMON PART.