CE PLUS - Nota 002285
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 20/10/2006 00:00:00
Data/Hora Última Alteração: 17/02/2011 14:23:35
Descrição da Nota: AJUSTES PARA TRATAMENTO DE ATO CONCESSÓRIO ISENÇÃO COM ITENS GENÉRICOS
Sintoma
Ajuste para receber corretamente os itens da composição isenção quando utilizar itens genéricos.
Solução
Ajuste para receber corretamente os itens da composição isenção quando utilizar itens genéricos.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02285 Data: 20/10/2006 Hora: 09:16:35
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02285
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00136
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01770 - 00001 - 6.0 - 00024 - AJUSTES PARA TRATAMENTO DO CENTRO EXP/IMP E TIPO DE COB.CAMBIAL
02251 - 00002 - 6.0 - 00025 - COMPOSIÇÃO ISENÇÃO(EXPORTAÇÃO, TRADING COMPANY, COMERCIAL EXPORTA
----------------------------------------------------------------------------------------------------
AJUSTES PARA TRATAMENTO DE ATO CONCESSÓRIO ISENÇÃO COM ITENS GENÉRICOS
----------------------------------------------------------------------------------------------------
Palavras Chave:
ATO - CONCESSÓRIO - ISENÇÃO - ITEM - GENÉRICO
/PWS/SAPMZYCI040 - /PWS/ZYCIT245
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI040 0203
DYNP /PWS/SAPMZYCI040 0204
DYNP /PWS/SAPMZYCI040 0214
DYNP /PWS/SAPMZYCI040 0215
DYNP /PWS/SAPMZYCI040 0216
DYNP /PWS/SAPMZYCI040 0217
DYNP /PWS/SAPMZYCI040 0218
DYNP /PWS/SAPMZYCI040 0219
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040F03
REPS /PWS/MZYCI040O01
REPT /PWS/SAPMZYCI040
TABD /PWS/ZYCIE245
TABD /PWS/ZYCIE245C
TABD /PWS/ZYCIE245D
TABD /PWS/ZYCIE245E
TABD /PWS/ZYCIT245
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0203
Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
* Campos Inseridos:
- /PWS/ZYCIE245-GRUPO
Texto 1 2 13 13 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE245-DESC_G
Texto 1 3 24 30 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE245-GRUPO
I/O 1 2 4 13 1 CHAR X Off
NEX GR
Elem.TC
- /PWS/ZYCIE245-DESC_G
I/O 1 3 40 30 1 CHAR X Off
NEX GR
PossRol, Elem.TC
* Campos alterados:
- /PWS/ZYCIE245-CODCOMP
I/O 1 4 18 18 1 CHAR Ent Off
MAT SPA GPA
Chave externa, Botão EntrsPoss.stand., Elem.TC
Saída de conversão=MATN1
- /PWS/ZYCIE245-MAKTX
I/O 1 6 40 30 1 CHAR X Ent Off
MAT
PossRol, Elem.TC
- V_DESCRIT_0203
I/O 1 7 40 30 1 CHAR Off
NEX MAT
PossRol, Elem.TC
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0214
Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
* Campos Inseridos:
/PWS/ZYCIE245C-GRUPO
Texto 1 1 13 13 1 CHAR
GR
/PWS/ZYCIE245C-GRUPO
I/O 1 17 6 6 1 CHAR Off
NEX GR
PossRol
V_DESCR_CP2
Texto 1 36 12 12 1 CHAR
/PWS/ZYCIE245C-DESC_G
Texto 1 36 9 9 1 CHAR X F
GR
/PWS/ZYCIE245C-DESC_G
I/O 1 49 36 36 1 CHAR X X Off
NEX GR
* Campos alterados:
/PWS/ZYCIE245C-CODCOMP
I/O 2 17 18 18 1 CHAR X Off
NEX MAT SPA GPA MAT
Dest, Chave externa, Botão EntrsPoss.stand.
Saída de conversão=MATN1
V_DESCR_CP2
I/O 2 49 36 36 1 CHAR Off
NEX MAT
Dest
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0215
Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLo
Outros atributos
* Campos Inseridos:
- ITAB_RES_DICOMP-WAERS
Texto 1 5 5 5 1 CHAR
Título de coluna TC
- ITAB_RES_DICOMP-VLFOB
Texto 1 6 13 18 1 CHAR
Título de coluna TC
- ITAB_RES_DICOMP-WAERS
I/O 1 5 5 5 1 CHAR Off
Alinh.à dir., Elem.TC, Col.fixa TC
- ITAB_RES_DICOMP-VLFOB
I/O 1 6 31 18 1 DEC Off
NEX
Alinh.à dir., Elem.TC, Col.fixa TC
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0216
Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
* Campos Inseridos:
- /PWS/ZYCIE260-CODCOMP
Texto 1 5 15 18 1 CHAR X 2
MAT
Título de coluna TC
- /PWS/ZYCIE260-CODCOMP
I/O 1 5 18 18 1 CHAR X Off
NEX MAT
Elem.TC
Saída de conversão=MATN1
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
IF v_tcode2 EQ '/PWS/ZYCI040_E'.
IF wa_cols2-screen-group1 NE 'NEX'.
wa_cols2-screen-input = v_status2.
MODIFY tc_cimp2-cols FROM wa_cols2.
ENDIF.
* >> Início da inclusão: FORM CHECK_FIELD_0203
IF wa_cols2-screen-group2 EQ 'GR'.
IF /pws/zycit321-it_ge NE 'X' OR
/pws/zycie244-modalidade EQ 'S'.
wa_cols2-invisible = 1.
MODIFY tc_cimp2-cols FROM wa_cols2.
ELSE.
wa_cols2-invisible = 0.
MODIFY tc_cimp2-cols FROM wa_cols2.
ENDIF.
ENDIF.
IF wa_cols2-screen-group2 EQ 'MAT'.
IF /pws/zycit321-it_ge EQ 'X' AND
/pws/zycie244-modalidade EQ '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.
ENDIF.
* << Fim da inclusão
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.
...
...
ELSEIF wa_cols2-screen-name EQ '/PWS/ZYCIE245-QTD_TOT'.
wa_cols2-screen-input = 1.
ENDIF.
ENDIF.
MODIFY tc_cimp2-cols FROM wa_cols2.
* >> Início da inclusão: FORM CHECK_FIELD_0203
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
* >> Início da inclusão: FORM CHECK_FIELD_0203
IF wa_cols2-screen-group2 EQ 'GR'.
wa_cols2-invisible = 1.
MODIFY tc_cimp2-cols FROM wa_cols2.
* << Fim da inclusão
ENDIF.
ENDIF.
IF /pws/zycie244-modalidade EQ 'I'.
IF wa_cols2-screen-name EQ '/PWS/ZYCIE245-MAKTX'.
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'.
...
...
wa_cols2-invisible = 1.
wa_cols2-screen-input = 0.
MODIFY tc_cimp2-cols FROM wa_cols2.
ELSE.
wa_cols2-screen-input = 0.
* >> Início da inclusão: FORM CHECK_FIELD_0203
MODIFY tc_cimp2-cols FROM wa_cols2.
ENDIF.
CASE wa_cols2-screen-name .
WHEN '/PWS/ZYCIE245-J_1BNBM'.
IF /pws/zycit321-it_ge EQ 'X'.
wa_cols2-screen-input = 1.
MODIFY tc_cimp2-cols FROM wa_cols2.
ENDIF.
WHEN '/PWS/ZYCIE245-WAERS'.
IF /pws/zycit321-it_ge EQ 'X'.
wa_cols2-screen-input = 1.
MODIFY tc_cimp2-cols FROM wa_cols2.
ENDIF.
WHEN '/PWS/ZYCIE245-NETPR_T'.
IF /pws/zycit321-it_ge EQ 'X'.
wa_cols2-screen-input = 1.
MODIFY tc_cimp2-cols FROM wa_cols2.
ENDIF.
ENDCASE.
IF wa_cols2-screen-group2 EQ 'GR'.
IF /pws/zycit321-it_ge NE 'X'.
wa_cols2-invisible = 1.
* << Fim da inclusão
MODIFY tc_cimp2-cols FROM wa_cols2.
* >> Início da inclusão: FORM CHECK_FIELD_0203
ELSE.
wa_cols2-invisible = 0.
MODIFY tc_cimp2-cols FROM wa_cols2.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM CHECK_FIELD_0203
ENDIF.
* << Fim da inclusão
ENDLOOP.
LOOP AT tc_cimp2-cols INTO wa_cols2.
CASE wa_cols2-screen-name.
WHEN '/PWS/ZYCIE245-CODCOMP'.
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F' OR
* >> Início da exclusão: FORM CHECK_FIELD_0203
/pws/zycit321-c_comum EQ 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0203
( /pws/zycit321-c_comum EQ 'X' AND
/pws/zycie244-modalidade NE 'I' ).
* << 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 exclusão: FORM CHECK_FIELD_0203
IF /pws/zycit321-c_comum EQ 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0203
IF /pws/zycit321-c_comum EQ 'X' AND
/pws/zycie244-modalidade NE 'I' .
* << Fim da inclusão
wa_cols2-screen-input = 1.
ENDIF.
wa_cols2-invisible = 0.
MODIFY tc_cimp2-cols FROM wa_cols2.
ENDIF.
...
...
wa_cols2-invisible = 0.
MODIFY tc_cimp2-cols FROM wa_cols2.
ENDIF.
WHEN 'V_DESCRIT_0203'.
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F' OR
* >> Início da exclusão: FORM CHECK_FIELD_0203
/pws/zycit321-c_comum EQ 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0203
( /pws/zycit321-c_comum EQ 'X' AND
/pws/zycie244-modalidade NE 'I' ).
* << 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'.
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F' OR
* >> Início da exclusão: FORM CHECK_FIELD_0203
/pws/zycit321-c_comum EQ 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0203
( /pws/zycit321-c_comum EQ 'X' AND
/pws/zycie244-modalidade NE 'I' ).
* << 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.
...
...
MODIFY tc_cimp2-cols FROM wa_cols2.
ELSE.
wa_cols2-invisible = 0.
MODIFY tc_cimp2-cols FROM wa_cols2.
ENDIF.
* >> Início da inclusão: FORM CHECK_FIELD_0203
ENDCASE.
IF wa_cols2-screen-group2 EQ 'MAT'.
IF /pws/zycit321-it_ge EQ 'X' AND
/pws/zycie244-modalidade EQ 'I' .
wa_cols2-invisible = 1.
MODIFY tc_cimp2-cols FROM wa_cols2.
ENDIF.
ENDIF.
* << Fim da inclusão
* >> Início da exclusão: FORM CHECK_FIELD_0203
ENDCASE.
* << Fim da exclusão
IF wa_cols2-screen-name EQ '/PWS/ZYCIE245-VL_SCAMB'.
IF /pws/zycie244-importacao NE '2'.
wa_cols2-invisible = 1.
MODIFY tc_cimp2-cols FROM wa_cols2.
ELSE.
...
...
wa_cols2-invisible = 1.
MODIFY tc_mexp2-cols FROM wa_cols2.
CONTINUE.
ENDIF.
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F' OR
* >> Início da exclusão: FORM CHECK_FIELD_0206
/pws/zycit321-c_comum EQ 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0206
( /pws/zycit321-c_comum EQ 'X' AND
/pws/zycie244-modalidade NE 'I' ).
* << 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.
...
...
wa_cols2-invisible = 1.
MODIFY tc_mexp2-cols FROM wa_cols2.
CONTINUE.
ENDIF.
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F' OR
* >> Início da exclusão: FORM CHECK_FIELD_0206
/pws/zycit321-c_comum EQ 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0206
( /pws/zycit321-c_comum EQ 'X' AND
/pws/zycie244-modalidade NE 'I' ).
* << 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.
...
...
wa_cols2-invisible = 1.
MODIFY tc_mexp2-cols FROM wa_cols2.
CONTINUE.
ENDIF.
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F' OR
* >> Início da exclusão: FORM CHECK_FIELD_0206
/pws/zycit321-c_comum EQ 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0206
( /pws/zycit321-c_comum EQ 'X' AND
/pws/zycie244-modalidade NE 'I' ).
* << 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.
...
...
wa_cols2-invisible = 1.
MODIFY tc_mexp2-cols FROM wa_cols2.
CONTINUE.
ENDIF.
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F' OR
* >> Início da exclusão: FORM CHECK_FIELD_0206
/pws/zycit321-c_comum EQ 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0206
( /pws/zycit321-c_comum EQ 'X' AND
/pws/zycie244-modalidade NE 'I' ).
* << 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.
...
...
wa_cols2-invisible = 1.
MODIFY tc_mexp2-cols FROM wa_cols2.
CONTINUE.
ENDIF.
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F' OR
* >> Início da exclusão: FORM CHECK_FIELD_0206
/pws/zycit321-c_comum EQ 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0206
( /pws/zycit321-c_comum EQ 'X' AND
/pws/zycie244-modalidade NE 'I' ).
* << 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.
...
...
ENDLOOP.
LOOP AT tc_realizi-cols INTO wa_cols2.
CASE wa_cols2-screen-name.
WHEN '/PWS/ZYCIE246-MATNR'.
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'
* >> Início da exclusão: FORM CHECK_FIELD_0204
OR /pws/zycit321-c_comum EQ 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0204
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' ).
* << Fim da inclusão
wa_cols2-invisible = 0.
MODIFY tc_realizi-cols FROM wa_cols2.
ELSE.
wa_cols2-invisible = 1.
MODIFY tc_realizi-cols FROM wa_cols2.
...
...
EXIT.
ENDIF.
MOVE: sy-tabix TO v_indicatu2.
MOVE: itab_zycit245-nritem TO /pws/zycie245c-nritem ,
itab_zycit245-codcomp TO /pws/zycie245c-codcomp ,
* >> Início da inclusão: FORM TRATA_TAB_DICOMP
itab_zycit245-grupo TO /pws/zycie245c-grupo ,
itab_zycit245-desc_g TO /pws/zycie245c-desc_g ,
* << Fim da inclusão
itab_zycit245-werks TO /pws/zycie245c-werks ,
itab_zycit245-waers TO /pws/zycie245c-waers ,
itab_zycit245-netpr_t TO /pws/zycie245c-netpr_t ,
itab_zycit245-meins TO /pws/zycie245c-meins ,
itab_zycit245-qtd_tot TO /pws/zycie245c-qtd_iten.
...
...
ENDLOOP.
CLEAR: itab_res_dicomp. REFRESH itab_res_dicomp.
CLEAR: tt_ii_dicp, tt_ipi_dicp, tt_icms_dicp, tt_afrmm_dicp,
tt_pis_dicp, tt_cofins_dicp.
LOOP AT itab_det_dicomp_final.
* >> Início da inclusão: FORM TRATA_TAB_DICOMP
IF /pws/zycit321-it_ge EQ 'X'.
CHECK itab_det_dicomp_final-grupo EQ /pws/zycie245c-grupo.
ELSE.
* << Fim da inclusão
CHECK itab_det_dicomp_final-codcomp EQ /pws/zycie245c-codcomp.
* >> Início da inclusão: FORM TRATA_TAB_DICOMP
ENDIF.
* << Fim da inclusão
MOVE:
itab_det_dicomp_final-codcomp TO itab_res_dicomp-codcomp ,
itab_det_dicomp_final-nrdi TO itab_res_dicomp-nrdi ,
itab_det_dicomp_final-adicao TO itab_res_dicomp-adicao ,
* >> Início da exclusão: FORM TRATA_TAB_DICOMP
itab_det_dicomp_final-qtd_vinc TO itab_res_dicomp-qtd_vinc ,
itab_det_dicomp_final-i_vlcifn_mi TO itab_res_dicomp-i_vlcifn_mi.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TAB_DICOMP
itab_det_dicomp_final-waers TO itab_res_dicomp-waers ,
itab_det_dicomp_final-vlfob TO itab_res_dicomp-vlfob ,
itab_det_dicomp_final-qtd_vinc TO itab_res_dicomp-qtd_vinc .
itab_res_dicomp-i_vlcifn_mi = itab_det_dicomp_final-i_vlcif_me *
itab_res_dicomp-qtd_vinc.
* << Fim da inclusão
COLLECT itab_res_dicomp.
tt_ii_dicp = tt_ii_dicp + itab_det_dicomp_final-i_vlii.
tt_pis_dicp = tt_pis_dicp + itab_det_dicomp_final-vlpis.
tt_cofins_dicp = tt_cofins_dicp + itab_det_dicomp_final-vlcofins.
tt_ipi_dicp = tt_ipi_dicp + itab_det_dicomp_final-i_vlipi.
...
...
MOVE-CORRESPONDING itab_zycit246_final TO itab_zycit246.
APPEND itab_zycit246.
ENDLOOP.
CLEAR itab_res_dicomp. REFRESH itab_res_dicomp.
LOOP AT itab_det_dicomp_final.
* >> Início da inclusão: FORM CHECK_BUTTON_FIRST_0214
IF /pws/zycit321-it_ge EQ 'X'.
CHECK itab_det_dicomp_final-grupo EQ /pws/zycie245c-grupo.
ELSE.
* << Fim da inclusão
CHECK itab_det_dicomp_final-codcomp EQ /pws/zycie245c-codcomp.
* >> Início da inclusão: FORM CHECK_BUTTON_FIRST_0214
ENDIF.
* << Fim da inclusão
MOVE:
itab_det_dicomp_final-codcomp TO itab_res_dicomp-codcomp ,
itab_det_dicomp_final-nrdi TO itab_res_dicomp-nrdi ,
* >> Início da inclusão: FORM CHECK_BUTTON_FIRST_0214
itab_det_dicomp_final-waers TO itab_res_dicomp-waers ,
itab_det_dicomp_final-vlfob TO itab_res_dicomp-vlfob ,
* << Fim da inclusão
itab_det_dicomp_final-adicao TO itab_res_dicomp-adicao ,
* >> Início da exclusão: FORM CHECK_BUTTON_FIRST_0214
itab_det_dicomp_final-qtd_vinc TO itab_res_dicomp-qtd_vinc ,
itab_det_dicomp_final-i_vlcifn_mi TO itab_res_dicomp-i_vlcifn_mi.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_FIRST_0214
itab_det_dicomp_final-qtd_vinc TO itab_res_dicomp-qtd_vinc .
itab_res_dicomp-i_vlcifn_mi = itab_det_dicomp_final-i_vlcif_me *
itab_res_dicomp-qtd_vinc.
* << Fim da inclusão
COLLECT itab_res_dicomp.
ENDLOOP.
LOOP AT itab_res_dicomp.
READ TABLE itab_det_dicomp_final WITH KEY
nrdi = itab_res_dicomp-nrdi.
...
...
MOVE-CORRESPONDING itab_zycit246_final TO itab_zycit246.
APPEND itab_zycit246.
ENDLOOP.
CLEAR itab_res_dicomp. REFRESH itab_res_dicomp.
LOOP AT itab_det_dicomp_final.
* >> Início da inclusão: FORM CHECK_BUTTON_PRIOR_0214
IF /pws/zycit321-it_ge EQ 'X'.
CHECK itab_det_dicomp_final-grupo EQ /pws/zycie245c-grupo.
ELSE.
* << Fim da inclusão
CHECK itab_det_dicomp_final-codcomp EQ /pws/zycie245c-codcomp.
* >> Início da inclusão: FORM CHECK_BUTTON_PRIOR_0214
ENDIF.
* << Fim da inclusão
MOVE:
itab_det_dicomp_final-codcomp TO itab_res_dicomp-codcomp ,
itab_det_dicomp_final-nrdi TO itab_res_dicomp-nrdi ,
* >> Início da inclusão: FORM CHECK_BUTTON_PRIOR_0214
itab_det_dicomp_final-waers TO itab_res_dicomp-waers ,
itab_det_dicomp_final-vlfob TO itab_res_dicomp-vlfob ,
* << Fim da inclusão
itab_det_dicomp_final-adicao TO itab_res_dicomp-adicao ,
* >> Início da exclusão: FORM CHECK_BUTTON_PRIOR_0214
itab_det_dicomp_final-qtd_vinc TO itab_res_dicomp-qtd_vinc ,
itab_det_dicomp_final-i_vlcifn_mi TO itab_res_dicomp-i_vlcifn_mi.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_PRIOR_0214
itab_det_dicomp_final-qtd_vinc TO itab_res_dicomp-qtd_vinc .
itab_res_dicomp-i_vlcifn_mi = itab_det_dicomp_final-i_vlcif_me *
itab_res_dicomp-qtd_vinc.
* << Fim da inclusão
COLLECT itab_res_dicomp.
ENDLOOP.
LOOP AT itab_res_dicomp.
READ TABLE itab_det_dicomp_final WITH KEY
nrdi = itab_res_dicomp-nrdi.
...
...
MOVE-CORRESPONDING itab_zycit246_final TO itab_zycit246.
APPEND itab_zycit246.
ENDLOOP.
CLEAR itab_res_dicomp. REFRESH itab_res_dicomp.
LOOP AT itab_det_dicomp_final.
* >> Início da inclusão: FORM CHECK_BUTTON_NEXT_0214
IF /pws/zycit321-it_ge EQ 'X'.
CHECK itab_det_dicomp_final-grupo EQ /pws/zycie245c-grupo.
ELSE.
* << Fim da inclusão
CHECK itab_det_dicomp_final-codcomp EQ /pws/zycie245c-codcomp.
* >> Início da inclusão: FORM CHECK_BUTTON_NEXT_0214
ENDIF.
* << Fim da inclusão
MOVE:
itab_det_dicomp_final-codcomp TO itab_res_dicomp-codcomp ,
itab_det_dicomp_final-nrdi TO itab_res_dicomp-nrdi ,
itab_det_dicomp_final-adicao TO itab_res_dicomp-adicao ,
* >> Início da exclusão: FORM CHECK_BUTTON_NEXT_0214
itab_det_dicomp_final-qtd_vinc TO itab_res_dicomp-qtd_vinc ,
itab_det_dicomp_final-i_vlcifn_mi TO itab_res_dicomp-i_vlcifn_mi.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_NEXT_0214
itab_det_dicomp_final-waers TO itab_res_dicomp-waers ,
itab_det_dicomp_final-vlfob TO itab_res_dicomp-vlfob ,
itab_det_dicomp_final-qtd_vinc TO itab_res_dicomp-qtd_vinc .
itab_res_dicomp-i_vlcifn_mi = itab_det_dicomp_final-i_vlcif_me *
itab_res_dicomp-qtd_vinc.
* << Fim da inclusão
COLLECT itab_res_dicomp.
ENDLOOP.
LOOP AT itab_res_dicomp.
READ TABLE itab_det_dicomp_final WITH KEY
nrdi = itab_res_dicomp-nrdi.
...
...
MOVE-CORRESPONDING itab_zycit246_final TO itab_zycit246.
APPEND itab_zycit246.
ENDLOOP.
CLEAR itab_res_dicomp. REFRESH itab_res_dicomp.
LOOP AT itab_det_dicomp_final.
* >> Início da inclusão: FORM CHECK_BUTTON_LAST_0214
IF /pws/zycit321-it_ge EQ 'X'.
CHECK itab_det_dicomp_final-grupo EQ /pws/zycie245c-grupo.
ELSE.
* << Fim da inclusão
CHECK itab_det_dicomp_final-codcomp EQ /pws/zycie245c-codcomp.
* >> Início da inclusão: FORM CHECK_BUTTON_LAST_0214
ENDIF.
* << Fim da inclusão
MOVE:
itab_det_dicomp_final-codcomp TO itab_res_dicomp-codcomp ,
itab_det_dicomp_final-nrdi TO itab_res_dicomp-nrdi ,
itab_det_dicomp_final-adicao TO itab_res_dicomp-adicao ,
* >> Início da exclusão: FORM CHECK_BUTTON_LAST_0214
itab_det_dicomp_final-qtd_vinc TO itab_res_dicomp-qtd_vinc ,
itab_det_dicomp_final-i_vlcifn_mi TO itab_res_dicomp-i_vlcifn_mi.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_LAST_0214
itab_det_dicomp_final-waers TO itab_res_dicomp-waers ,
itab_det_dicomp_final-vlfob TO itab_res_dicomp-vlfob ,
itab_det_dicomp_final-qtd_vinc TO itab_res_dicomp-qtd_vinc .
itab_res_dicomp-i_vlcifn_mi = itab_det_dicomp_final-i_vlcif_me *
itab_res_dicomp-qtd_vinc.
* << Fim da inclusão
COLLECT itab_res_dicomp.
ENDLOOP.
LOOP AT itab_res_dicomp.
READ TABLE itab_det_dicomp_final WITH KEY
nrdi = itab_res_dicomp-nrdi.
...
...
CLEAR itab_res_remat. REFRESH itab_res_remat.
LOOP AT itab_det_remat_final.
CHECK itab_det_remat_final-codmat EQ /pws/zycie247c-codmat.
MOVE:
itab_det_remat_final-codmat TO itab_res_remat-codmat ,
* >> Início da exclusão: FORM TRATA_TAB_RECOMP2
itab_det_remat_final-nrseqre TO itab_res_remat-nrseqre ,
itab_det_remat_final-nrre TO itab_res_remat-nrre ,
itab_det_remat_final-qtd_iten TO itab_res_remat-qtd_iten,
itab_det_remat_final-vlfob TO itab_res_remat-vlfob .
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TAB_RECOMP2
itab_det_remat_final-nrre TO itab_res_remat-nrre ,
itab_det_remat_final-waersfob TO itab_res_remat-waersfob,
itab_det_remat_final-meins TO itab_res_remat-meins,
itab_det_remat_final-qtd_iten TO itab_res_remat-qtd_iten,
itab_det_remat_final-vlfob TO itab_res_remat-vlfob .
IF NOT itab_det_remat_final-nrseqre IS INITIAL.
MOVE
itab_det_remat_final-nrseqre TO itab_res_remat-nrseqre .
ELSEIF NOT itab_det_remat_final-nrseqc IS INITIAL.
MOVE
itab_det_remat_final-nrseqc TO itab_res_remat-nrseqre.
ELSE.
MOVE
itab_det_remat_final-vbeln_vf TO itab_res_remat-nrseqre.
ENDIF.
* << Fim da inclusão
COLLECT itab_res_remat.
ENDLOOP.
LOOP AT itab_res_remat.
READ TABLE itab_det_remat_final WITH KEY
nrseqre = itab_res_remat-nrseqre.
...
...
MESSAGE s015 WITH text-128.
EXIT.
ENDIF.
CLEAR itab_det_remat. REFRESH itab_det_remat.
LOOP AT itab_det_remat_final.
* >> Início da inclusão: FORM TRATA_TAB_DETRE2
IF itab_res_remat-nrseqre+7(1) EQ 'X'.
* << Fim da inclusão
CHECK itab_det_remat_final-nrseqre EQ itab_res_remat-nrseqre AND
* >> Início da inclusão: FORM TRATA_TAB_DETRE2
itab_det_remat_final-codmat EQ itab_res_remat-codmat.
ELSEIF itab_res_remat-nrseqre+7(1) EQ 'N'.
CHECK itab_det_remat_final-nrseqc EQ itab_res_remat-nrseqre AND
* << Fim da inclusão
itab_det_remat_final-codmat EQ itab_res_remat-codmat.
* >> Início da inclusão: FORM TRATA_TAB_DETRE2
ELSE.
CHECK itab_det_remat_final-vbeln_vf EQ itab_res_remat-nrseqre AND
itab_det_remat_final-codmat EQ itab_res_remat-codmat.
ENDIF.
* << Fim da inclusão
MOVE-CORRESPONDING itab_det_remat_final TO itab_det_remat.
APPEND itab_det_remat.
ENDLOOP.
pressed_tab_7a = ok_code2.
dynpronr7a = '0219'.
...
...
AND nrseqre EQ itab_zycit261-nrseqre
AND nrseq EQ itab_zycit261-nrseq
AND codmat EQ itab_zycit261-codmat
AND vbeln_va EQ itab_zycit261-vbeln_va
AND vbeln_vf EQ itab_zycit261-vbeln_vf
* >> Início da exclusão: FORM BUSCA_DADOS_COMPOSICAO
AND posnr EQ itab_zycit261-posnr
AND codcomp EQ itab_zycit261-codcomp.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_DADOS_COMPOSICAO
AND posnr EQ itab_zycit261-posnr.
* << Fim da inclusão
LOOP AT itab_zycit260.
* >> Início da inclusão: FORM BUSCA_DADOS_COMPOSICAO
IF /pws/zycit321-it_ge EQ 'X'.
READ TABLE itab_zycit261 WITH KEY
nrseqd = itab_zycit260-nrseqd
nrseqre = itab_zycit260-nrseqre
nrseq = itab_zycit260-nrseq
codmat = itab_zycit260-codmat
vbeln_va = itab_zycit260-vbeln_va
vbeln_vf = itab_zycit260-vbeln_vf
posnr = itab_zycit260-posnr
grupo = itab_zycit260-grupo.
ELSE.
* << Fim da inclusão
READ TABLE itab_zycit261 WITH KEY
nrseqd = itab_zycit260-nrseqd
nrseqre = itab_zycit260-nrseqre
nrseq = itab_zycit260-nrseq
codmat = itab_zycit260-codmat
vbeln_va = itab_zycit260-vbeln_va
vbeln_vf = itab_zycit260-vbeln_vf
posnr = itab_zycit260-posnr
codcomp = itab_zycit260-codcomp.
* >> Início da inclusão: FORM BUSCA_DADOS_COMPOSICAO
ENDIF.
CLEAR itab_zycit245.
MOVE itab_zycit260-waers TO itab_zycit245-waers.
LOOP AT itab_zycit260 INTO /pws/zycie260
WHERE waers NE itab_zycit245-waers.
itab_zycit245-waers = 'USD'.
EXIT.
ENDLOOP.
IF itab_zycit245-waers = 'USD'.
MOVE: itab_zycit260-vlfob TO itab_zycit245-netpr_t .
ELSE.
MOVE: itab_zycit260-vlfob_t TO itab_zycit245-netpr_t .
ENDIF.
* << Fim da inclusão
* >> Início da exclusão: FORM BUSCA_DADOS_COMPOSICAO
CLEAR itab_zycit245.
* << Fim da exclusão
MOVE: /pws/zycie244-nrseqd TO itab_zycit245-nrseqd ,
itab_zycit260-codcomp TO itab_zycit245-codcomp ,
* >> Início da inclusão: FORM BUSCA_DADOS_COMPOSICAO
itab_zycit260-j_1bnbm TO itab_zycit245-j_1bnbm ,
itab_zycit260-grupo TO itab_zycit245-grupo ,
* << Fim da inclusão
/pws/zycie244-werks TO itab_zycit245-werks ,
'1' TO itab_zycit245-proced ,
itab_zycit261-qtd_iten TO itab_zycit245-qtd_iten ,
itab_zycit260-qtd_vinc TO itab_zycit245-qtd_tot ,
itab_zycit260-qtd_vinc TO itab_zycit245-sdocomp_i ,
* >> Início da exclusão: FORM BUSCA_DADOS_COMPOSICAO
itab_zycit260-vlfob_t TO itab_zycit245-netpr_t ,
* << Fim da exclusão
itab_zycit260-vlfrete_t TO itab_zycit245-vl_frete_t,
itab_zycit260-vlseg_t TO itab_zycit245-vl_seg_t .
vbrgtmp = vbrgtmp + itab_zycit260-brgew.
vntgtmp = vntgtmp + itab_zycit260-ntgew.
* >> Início da inclusão: FORM BUSCA_DADOS_COMPOSICAO
itab_zycit245-qtd_ncm = itab_zycit245-qtd_tot.
itab_zycit245-um_ncm = itab_zycit260-meins.
PERFORM converte_um_ncm USING itab_zycit260-codcomp
CHANGING itab_zycit245-um_ncm
itab_zycit245-werks
itab_zycit245-qtd_ncm.
IF /pws/zycit321-it_ge EQ 'X'.
CLEAR: itab_zycit245-codcomp.
ENDIF.
* << Fim da inclusão
COLLECT itab_zycit245.
ENDLOOP.
CLEAR itab_zycit245_aux. REFRESH itab_zycit245_aux.
SORT itab_zycit245 BY codcomp.
LOOP AT itab_zycit245.
* >> Início da inclusão: FORM BUSCA_DADOS_COMPOSICAO
IF /pws/zycit321-it_ge EQ 'X'.
READ TABLE itab_zycit260 WITH KEY
grupo = itab_zycit245-grupo.
ELSE.
* << Fim da inclusão
READ TABLE itab_zycit260 WITH KEY
codcomp = itab_zycit245-codcomp.
* >> Início da inclusão: FORM BUSCA_DADOS_COMPOSICAO
ENDIF.
* << Fim da inclusão
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM BUSCA_DADOS_COMPOSICAO
IF NOT itab_zycit245-codcomp IS INITIAL.
* << Fim da inclusão
SELECT SINGLE steuc FROM marc INTO itab_zycit245-j_1bnbm
WHERE matnr EQ itab_zycit245-codcomp.
* >> Início da inclusão: FORM BUSCA_DADOS_COMPOSICAO
ENDIF.
* << Fim da inclusão
itab_zycit245-pctseg = ( itab_zycit245-vl_seg_t /
itab_zycit245-netpr_t ) * 100.
itab_zycit245-netpr =
itab_zycit245-netpr_t / itab_zycit245-qtd_tot.
* >> Início da inclusão: FORM BUSCA_DADOS_COMPOSICAO
IF /pws/zycit321-it_ge EQ 'X'.
vbrgtmp = itab_zycit260-brgew / itab_zycit260-qtd_vinc.
vntgtmp = itab_zycit260-ntgew / itab_zycit260-qtd_vinc.
ELSE.
* << Fim da inclusão
CLEAR: vntgtmp, vbrgtmp.
SELECT SINGLE ntgew brgew FROM mara INTO (vntgtmp, vbrgtmp)
WHERE matnr EQ itab_zycit245-codcomp.
* >> Início da inclusão: FORM BUSCA_DADOS_COMPOSICAO
ENDIF.
* << Fim da inclusão
itab_zycit245-brgew = vbrgtmp .
itab_zycit245-ntgew = vntgtmp .
* >> Início da exclusão: FORM BUSCA_DADOS_COMPOSICAO
MOVE: itab_zycit260-meins TO itab_zycit245-meins,
itab_zycit260-gewei TO itab_zycit245-gewei,
itab_zycit260-waers TO itab_zycit245-waers.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_DADOS_COMPOSICAO
MOVE: itab_zycit260-meins TO itab_zycit245-meins,
itab_zycit260-gewei TO itab_zycit245-gewei,
itab_zycit260-desc_g TO itab_zycit245-desc_g.
* << Fim da inclusão
* >> Início da exclusão: FORM BUSCA_DADOS_COMPOSICAO
itab_zycit245-qtd_ncm = itab_zycit245-qtd_tot.
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.
* << Fim da exclusão
PERFORM select_max_item_number2 CHANGING v_nritem.
itab_zycit245-nritem = v_nritem.
MODIFY itab_zycit245.
itab_zycit245_aux[] = itab_zycit245[].
ENDIF.
...
...
ENDIF.
COLLECT itab_zycit245.
ENDLOOP.
ENDFORM.
FORM move_realiz.
* >> Início da exclusão: FORM MOVE_REALIZ
DATA: itab_zycit433 LIKE /pws/zycit433 OCCURS 0 WITH HEADER LINE.
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_REALIZ
DATA: itab_zycit433 LIKE /pws/zycit433 OCCURS 0 WITH HEADER LINE,
itab_zycit433a LIKE /pws/zycit433 OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
REFRESH: itab_zycit246_save, itab_zycit246_final.
IF /pws/zycie244-tipo NE 'G' AND /pws/zycie244-tipo NE 'F'.
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.
* >> Início da inclusão: FORM MOVE_REALIZ
SELECT * FROM /pws/zycit433 INTO TABLE itab_zycit433a.
* << Fim da inclusão
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-um_ncm = itab_zycit279_ap-meins.
...
...
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'.
* >> Início da inclusão: FORM MOVE_REALIZ
ELSE.
IF /pws/zycit321-it_ge EQ 'X' AND
/pws/zycie244-modalidade EQ 'I'.
CLEAR:itab_zycit433a.
LOOP AT itab_zycit433a
WHERE matnr EQ itab_zycit279_ap-matnr
AND dtde <= itab_zycit279_ap-dtdi
AND dtate >= itab_zycit279_ap-dtdi.
EXIT.
ENDLOOP.
IF itab_zycit433a-grupo IS INITIAL.
CONTINUE.
ENDIF.
READ TABLE itab_zycit245 WITH KEY
grupo = itab_zycit433-grupo.
* << Fim da inclusão
ELSE.
READ TABLE itab_zycit245 WITH KEY
codcomp = itab_zycit279_ap-matnr.
IF sy-subrc NE 0.
* >> Início da inclusão: FORM MOVE_REALIZ
CLEAR:itab_zycit433a.
LOOP AT itab_zycit433a
WHERE matnr EQ itab_zycit279_ap-matnr
AND dtde <= itab_zycit279_ap-dtdi
AND dtate >= itab_zycit279_ap-dtdi.
EXIT.
ENDLOOP.
IF itab_zycit433a-grupo IS INITIAL.
CONTINUE.
ENDIF.
* << Fim da inclusão
READ TABLE itab_zycit433 WITH KEY
* >> Início da exclusão: FORM MOVE_REALIZ
matnr_alt = itab_zycit279_ap-matnr.
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_REALIZ
grupo = itab_zycit433a-grupo.
* << Fim da inclusão
IF sy-subrc NE 0.
CONTINUE.
ENDIF.
READ TABLE itab_zycit245 WITH KEY
codcomp = itab_zycit433-matnr.
* >> Início da inclusão: FORM MOVE_REALIZ
ENDIF.
* << Fim da inclusão
ENDIF.
itab_zycit246_final-nritem = itab_zycit245-nritem.
itab_zycit246_final-codcomp = itab_zycit279_ap-matnr.
ENDIF.
APPEND itab_zycit246_final.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F03
...
LEAVE TO SCREEN 0.
ELSE.
MESSAGE i015 WITH text-312.
ENDIF.
ENDFORM.
* >> Início da inclusão:
FORM check_field_0214.
LOOP AT SCREEN.
IF /pws/zycit321-it_ge EQ 'X'.
IF screen-group2 EQ 'MAT'.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
ELSE.
IF screen-group2 EQ 'GR'.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
FORM check_field_0216.
LOOP AT tc_detdi2-cols INTO wa_cols2.
IF wa_cols2-screen-name EQ '/PWS/ZYCIE260-CODCOMP'.
IF /pws/zycit321-it_ge NE 'X'.
wa_cols2-invisible = 1.
MODIFY tc_detdi2-cols FROM wa_cols2.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040O01
...
MODIFY tc_centros2-cols FROM wa_cols2.
ENDIF.
ENDLOOP.
WHEN '0210'..
PERFORM check_field_0210.
* >> Início da inclusão: MODULE SET_SCREEN2
WHEN '0214'.
PERFORM check_field_0214.
* << Fim da inclusão
WHEN '0215'.
DESCRIBE TABLE itab_res_dicomp LINES v_ilinhas2.
tc_resdi2-lines = v_ilinhas2.
WHEN '0216'.
* >> Início da inclusão: MODULE SET_SCREEN2
PERFORM check_field_0216.
* << Fim da inclusão
DESCRIBE TABLE itab_det_dicomp LINES v_ilinhas2.
tc_detdi2-lines = v_ilinhas2.
WHEN '0221'.
LOOP AT tc_venctos2-cols INTO wa_cols2.
IF wa_cols2-screen-group1 NE 'NEX'.
...
...
/pws/zycie245-vl_frete_t = itab_zycit245-vl_frete_t.
/pws/zycie245-pctseg = itab_zycit245-pctseg .
/pws/zycie245-vl_seg_t = itab_zycit245-vl_seg_t .
/pws/zycie245-j_1bnbm = itab_zycit245-j_1bnbm .
markci = itab_zycit245-markci .
* >> Início da inclusão: MODULE PREENCHE_ESTRUTURA_0203
/pws/zycie245-grupo = itab_zycit245-grupo .
/pws/zycie245-desc_g = itab_zycit245-desc_g .
* << Fim da inclusão
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.
...
...
/pws/zycie260-vlfob = itab_det_dicomp-vlfob .
/pws/zycie260-vlfob_t = itab_det_dicomp-vlfob_t .
/pws/zycie260-waers = itab_det_dicomp-waers .
/pws/zycie260-vlfrete_t = itab_det_dicomp-vlfrete_t.
/pws/zycie260-vlseg_t = itab_det_dicomp-vlseg_t .
* >> Início da inclusão: MODULE PREENCHE_ESTRUTURA_0216
/pws/zycie260-codcomp = itab_det_dicomp-codcomp .
* << Fim da inclusão
ENDMODULE.
MODULE trata_screen_0216 OUTPUT.
SELECT maktx UP TO 1 ROWS FROM makt INTO v_descr1_0216
WHERE matnr = /pws/zycie260-codmat
AND spras = sy-langu.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI040
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: PT
Símbolo: 286
Texto: (3 caracteres)
"UMB"
Comprimento máximo: 9
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: PT
Símbolo: 287
Texto: (14 caracteres)
"Quantidade UMB"
Comprimento máximo: 20
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE245
Nome campo Elem.dados Tab.verif. N CtDt Comp. Grupo
...
QTD_PERDA_E /PWS/ZYCIL473 QUAN 23
VL_SCAMB WRBTV_FPM CURR 23
* >> Início da inclusão:
GRUPO CHAR4 CHAR 4
DESC_G MAKTX CHAR 40
* >> Fim da inclusão:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE245C
Nome campo Elem.dados Tab.verif. N CtDt Comp. Grupo
...
QTD_PERDA_E /PWS/ZYCIL473 QUAN 23
VL_SCAMB WRBTV_FPM CURR 23
* >> Início da inclusão:
GRUPO CHAR4 CHAR 4
DESC_G MAKTX CHAR 40
* >> Fim da inclusão:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE245D
Nome campo Elem.dados Tab.verif. N CtDt Comp. Grupo
...
QTD_PERDA_E /PWS/ZYCIL473 QUAN 23
VL_SCAMB WRBTV_FPM CURR 23
* >> Início da inclusão:
GRUPO CHAR4 CHAR 4
DESC_G MAKTX CHAR 40
* >> Fim da inclusão:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE245E
Nome campo Elem.dados Tab.verif. N CtDt Comp. Grupo
...
QTD_PERDA_E /PWS/ZYCIL473 QUAN 23
VL_SCAMB WRBTV_FPM CURR 23
* >> Início da inclusão:
GRUPO CHAR4 CHAR 4
DESC_G MAKTX CHAR 40
* >> Fim da inclusão:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT245
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp. Grupo
...
VL_SCAMB WRBTV_FPM CURR 23
* >> Início da inclusão:
GRUPO CHAR4 CHAR 4
DESC_G MAKTX CHAR 40
* >> Fim da inclusão: