CE PLUS - Nota 006336
Módulo: DRAWBACK
Funcionalidade: Composição
Data/Hora da Publicação: 07/04/2008 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:20:38
Descrição da Nota: AJUSTE NA COMPOSIÇÃO PARA TRATAR TIPO INTERMEDIARIO-IMPORTADOR
Sintoma
Ajuste na composição para tratar tipo Intermediario-Importador.
Solução
Ajuste na composição para tratar tipo Intermediario-Importador.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06336 Data: 07/04/2008 Hora: 08:16:48
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06336
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00041
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02498 - 00001 - 6.0 - 00025 - AJUSTADA COMPOSIÇÃO PARA TRATAR AJUSTE REALIZADOS NOS INSUMOS ALT
05902 - 00002 - 7.0 - 00004 - DESCONSIDERA NOTAS FISCAIS ESTORNADAS
06143 - 00003 - 7.0 - 00004 - ATUALIZAÇÃO DO PESO LIQUIDO, QUANTIDADE NCM
06259 - 00004 - 7.0 - 00005 - SELEÇÃO DAS EXPORTAÇÕES CÓDIGO DE ENQUADRAMENTO 81501 PROEX
----------------------------------------------------------------------------------------------------
AJUSTE NA COMPOSIÇÃO PARA TRATAR TIPO INTERMEDIARIO-IMPORTADOR
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPOSÇÃO - TIPO - INTERMEDIARIO - IMPORTADOR
/PWS/SAPMZYCI064
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI064 0303
DYNP /PWS/SAPMZYCI065 0103
REPS /PWS/MZYCI064F03
REPS /PWS/MZYCI064O01
REPS /PWS/MZYCI064X01
TABD /PWS/ZYCIE259
TABD /PWS/ZYCIE259C
TABD /PWS/ZYCIE259D
TABD /PWS/ZYCIE369
TABD /PWS/ZYCIT259
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI064 0303
MODIFICAR OKCODE ""
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259-MEINS" em tbl.contr./tabstr.
Coluna 8
MODIFICAR TEXTO "/PWS/ZYCIE259-MEINS" em tbl.contr./tabstr.
Coluna 8
INCLUIR CAMPO TEXTO "/PWS/ZYCIE259-MVGR1" em tbl.contr./tabstr.
Altura 3
Comprimento Visível 3
Linha 1
Coluna 3
Formato CHAR
Grupo 1 NEX
Grupo 2 GRP
Linhas mínimas 3
Texto ___
INCLUIR TEXTO "/PWS/ZYCIE259-MVGR1" em tbl.contr./tabstr.
Altura 3
Comprimento Visível 15
Linha 1
Coluna 3
Formato CHAR
Texto Grp.material 1
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259-QTD_ITEN" em tbl.contr./tabstr.
Coluna 9
Texto ___.___.___.___.___.___,_____V
MODIFICAR TEXTO "/PWS/ZYCIE259-QTD_ITEN" em tbl.contr./tabstr.
Coluna 9
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259-STLAL" em tbl.contr./tabstr.
Coluna 6
MODIFICAR TEXTO "/PWS/ZYCIE259-STLAL" em tbl.contr./tabstr.
Coluna 6
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259-STLAN" em tbl.contr./tabstr.
Coluna 4
Grupo 2 MAT
MODIFICAR TEXTO "/PWS/ZYCIE259-STLAN" em tbl.contr./tabstr.
Coluna 4
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259-STLNR" em tbl.contr./tabstr.
Coluna 5
Grupo 2 MAT
MODIFICAR TEXTO "/PWS/ZYCIE259-STLNR" em tbl.contr./tabstr.
Coluna 5
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259-VLFOB" em tbl.contr./tabstr.
Coluna 11
MODIFICAR TEXTO "/PWS/ZYCIE259-VLFOB" em tbl.contr./tabstr.
Coluna 11
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259-WAERSFOB" em tbl.contr./tabstr.
Coluna 10
MODIFICAR TEXTO "/PWS/ZYCIE259-WAERSFOB" em tbl.contr./tabstr.
Coluna 10
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE260D-T_AFRMM" em tbl.contr./tabstr.
Coluna 16
MODIFICAR TEXTO "/PWS/ZYCIE260D-T_AFRMM" em tbl.contr./tabstr.
Coluna 16
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE260D-VLCOFINS" em tbl.contr./tabstr.
Comprimento Visível 20
Coluna 18
Linhas mínimas 16
Colunas mínimas 5
Texto ____________________
MODIFICAR TEXTO "/PWS/ZYCIE260D-VLCOFINS" em tbl.contr./tabstr.
Coluna 18
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE260D-VLPIS" em tbl.contr./tabstr.
Comprimento Visível 20
Coluna 17
Linhas mínimas 16
Colunas mínimas 5
Texto ____________________
MODIFICAR TEXTO "/PWS/ZYCIE260D-VLPIS" em tbl.contr./tabstr.
Coluna 17
MODIFICAR CAMPO TEXTO "V_DESCR1_0303" em tbl.contr./tabstr.
Coluna 7
MODIFICAR TEXTO "V_DESCR1_0303" em tbl.contr./tabstr.
Coluna 7
MODIFICAR CAMPO TEXTO "V_DTPRE" em tbl.contr./tabstr.
Coluna 12
MODIFICAR TEXTO "V_DTPRE" em tbl.contr./tabstr.
Coluna 12
MODIFICAR CAMPO TEXTO "V_DTURE" em tbl.contr./tabstr.
Coluna 13
MODIFICAR TEXTO "V_DTURE" em tbl.contr./tabstr.
Coluna 13
MODIFICAR CAMPO TEXTO "V_TBENEF_0303" em tbl.contr./tabstr.
Coluna 19
MODIFICAR TEXTO "V_TBENEF_0303" em tbl.contr./tabstr.
Coluna 19
MODIFICAR CAMPO TEXTO "V_TIIRES_0303" em tbl.contr./tabstr.
Coluna 14
MODIFICAR TEXTO "V_TIIRES_0303" em tbl.contr./tabstr.
Coluna 14
MODIFICAR CAMPO TEXTO "V_TIPIRES_0303" em tbl.contr./tabstr.
Coluna 15
MODIFICAR TEXTO "V_TIPIRES_0303" em tbl.contr./tabstr.
Coluna 15
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064F03
...
ENDIF.
IF screen-name EQ '/PWS/ZYCIE258-IMPORTACAO'.
IF /pws/zycie258-modalidade EQ 'I'.
screen-input = '0'.
ELSE.
screen-input = '1'.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE258-LIFNR'.
* >> Início da exclusão: FORM CHECK_FIELDS_SCREEN_0301
IF /pws/zycie258-tipo EQ 'C'
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELDS_SCREEN_0301
IF ( /pws/zycie258-tipo EQ 'C' OR
/pws/zycie258-tipo EQ 'N' )
* << Fim da inclusão
OR /pws/zycie258-tipo IS INITIAL.
screen-invisible = '1'.
screen-active = '0'.
CLEAR: v_nlifnr3.
ELSE.
screen-invisible = '0'.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
...
...
itab_zycit371-nrre TO itab_det_exp_final-nrre ,
itab_zycit372-matnr TO itab_det_exp_final-matnr ,
itab_zycit373-itmnum TO itab_det_exp_final-itmnum .
APPEND itab_det_exp_final.
MOVE itab_det_exp_final TO itab_det_exp.
APPEND itab_det_exp.
ENDLOOP.
ENDLOOP.
ENDLOOP.
ENDIF.
* >> Início da exclusão: FORM SELECIONAR_EXPORTACOES3
ELSE.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
ELSEIF /pws/zycie258-tipo NE 'N'.
* << Fim da inclusão
SELECT a~nrseqre a~nrre a~dtincl a~agrupado a~codenq1
b~matnr b~vbeln_va c~vbeln_vf c~posnr b~vbeln_vl b~posnl
b~gewei b~ntgew b~brgew b~waers
b~vfob b~vlagente b~netpr b~seqagrupado b~codnrseq
d~nrseqexp c~werks c~steuc c~vkorg_auft c~vtweg_auft
INTO TABLE itab_re_final
FROM ( /pws/zycet116 AS a INNER JOIN /pws/zycet118 AS b
ON a~nrseqre EQ b~nrseqre
INNER JOIN /pws/zycet002 AS c
ON b~vbeln_va EQ c~vbeln_va
...
...
AND c~vbeln_va EQ d~vbeln_va
AND c~vbeln_vl EQ d~vbeln_vl
AND c~posnl EQ d~posnl
WHERE a~dtincl >= p_dtexp1 AND
a~dtincl <= p_dtexp2 AND
b~nrato EQ space AND
c~bukrs EQ /pws/zycie258-bukrs AND
b~matnr IN p_matnr.
DELETE itab_re_final WHERE nrseqexp NE space.
IF NOT itab_re_final[] IS INITIAL.
* >> Início da exclusão: FORM SELECIONAR_EXPORTACOES3
IF /pws/zycie258-tipo EQ 'C'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
IF /pws/zycie258-tipo EQ 'C' OR
/pws/zycie258-tipo EQ 'N'.
* << Fim da inclusão
SELECT * FROM /pws/zycit259
INTO TABLE itab_zycit259 "#EC CI_NOFIRST
FOR ALL ENTRIES IN itab_re_final
WHERE nrseqre EQ itab_re_final-nrseqre.
ELSEIF /pws/zycie258-tipo EQ 'F'.
SELECT * FROM /pws/zycit259
INTO TABLE itab_zycit259 "#EC CI_NOFIRST
FOR ALL ENTRIES IN itab_re_final
WHERE nrseqre EQ itab_re_final-nrseqre
AND lifnr EQ /pws/zycie258-lifnr.
...
...
PERFORM log USING itab_msg_erro-icon5
CHANGING itab_log-log5.
PERFORM log USING itab_msg_erro-icon6
CHANGING itab_log-log6.
APPEND itab_log.
ENDLOOP.
EXPORT itab_log TO MEMORY ID idmemory1.
SUBMIT /pws/zycir346 AND RETURN.
ENDIF.
PERFORM limpa_tabelas.
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
REFRESH: itab_zycit423, itab_zycit421.
IF /pws/zycit321-ltopc EQ '1'.
SELECT * FROM /pws/zycit423
INTO TABLE itab_zycit423. "#EC CI_NOWHERE
SELECT * FROM /pws/zycit421
INTO TABLE itab_zycit421. "#EC CI_NOWHERE
ENDIF.
* << Fim da inclusão
PERFORM equip_exp.
PERFORM comerc_exp.
LOOP AT itab_det_exp_final WHERE j_1bnbm EQ space.
SELECT SINGLE a~steuc INTO itab_det_exp_final-j_1bnbm
FROM ( marc AS a INNER JOIN t001w AS b ON
a~werks EQ b~werks )
WHERE a~matnr EQ itab_det_exp_final-matnr
AND a~steuc NE space
AND b~land1 EQ t001-land1. "#EC CI_BUFFJOIN
MODIFY itab_det_exp_final TRANSPORTING j_1bnbm
...
...
ENDIF.
IF screen-group1 NE 'NEX' AND
screen-name NE 'MARC_L'.
screen-input = v_status3.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
LOOP AT tc_resumo3-cols INTO wa_cols.
IF wa_cols-screen-group1 NE 'NEX'.
wa_cols-screen-input = v_status3.
* >> Início da inclusão: FORM CHECK_FIELDS_SCREEN_0303
MODIFY tc_resumo3-cols FROM wa_cols.
ENDIF.
IF /pws/zycit321-ltopc EQ '1'.
IF wa_cols-screen-group2 EQ 'MAT'.
wa_cols-invisible = 1.
MODIFY tc_resumo3-cols FROM wa_cols.
ENDIF.
ELSE.
IF wa_cols-screen-group2 EQ 'GRP'.
wa_cols-invisible = 1.
* << Fim da inclusão
MODIFY tc_resumo3-cols FROM wa_cols.
* >> Início da inclusão: FORM CHECK_FIELDS_SCREEN_0303
ENDIF.
* << Fim da inclusão
ENDIF.
ENDLOOP.
DESCRIBE TABLE itab_resumo LINES v_ilinhas.
tc_resumo3-lines = v_ilinhas.
ENDFORM.
FORM check_fields_screen_0304.
...
...
EXIT.
ENDIF.
READ TABLE itab_resumo WITH KEY marc_l = 'X'.
IF sy-subrc NE 0.
CLEAR: v_indicatu4.
MESSAGE s015 WITH text-102.
EXIT.
ENDIF.
MOVE: sy-tabix TO v_indicatu4.
MOVE: itab_resumo-codmat TO /pws/zycie259d-codmat ,
* >> Início da inclusão: FORM TRATA_TAB_DETALHE3
itab_resumo-agrup TO /pws/zycie259d-agrup ,
* << Fim da inclusão
/pws/zycie258-werks TO /pws/zycie259d-werks ,
itab_resumo-qtd_iten TO /pws/zycie259d-qtd_iten,
itab_resumo-vlfob TO /pws/zycie259d-vlfob .
/pws/zycie259d-waersfob = itab_resumo-waersfob.
/pws/zycie259d-meins = itab_resumo-meins .
CLEAR: itab_det_exp. REFRESH: itab_det_exp.
* >> Início da exclusão: FORM TRATA_TAB_DETALHE3
LOOP AT itab_det_exp_final.
CHECK itab_det_exp_final-codmat EQ /pws/zycie259d-codmat.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TAB_DETALHE3
LOOP AT itab_det_exp_final WHERE codmat EQ /pws/zycie259d-codmat
AND agrup EQ /pws/zycie259d-agrup.
* << Fim da inclusão
MOVE-CORRESPONDING itab_det_exp_final TO itab_det_exp.
APPEND itab_det_exp.
ENDLOOP.
ENDIF.
pressed_tab_3c_2 = ok_code3.
dynpronr3c_2 = '0304'.
ENDIF.
ENDFORM.
FORM trata_tab_vinc3.
DATA: v_marcados4 TYPE i VALUE 0.
...
...
CHECK itab_di_final-codcomp EQ itab_comp_vinc-codcomp.
ENDIF.
IF itab_di_final-sdo_qtd > 0
OR itab_di_final-qtd_vinc > 0 .
MOVE-CORRESPONDING itab_di_final TO itab_di.
APPEND itab_di.
ENDIF.
ENDLOOP.
tc_di3-top_line = 1.
tc_nf3-top_line = 1.
* >> Início da exclusão: FORM TRATA_TAB_VDI3
IF /pws/zycie258-tipo EQ 'C'.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TAB_VDI3
IF /pws/zycie258-tipo EQ 'C' OR
/pws/zycie258-tipo EQ 'N'.
* << Fim da inclusão
SORT itab_di BY dtdi nrdi ebeln ebelp ASCENDING.
pressed_tab_3c_4 = ok_code3.
dynpronr3c_4 = '0310'.
ELSE.
pressed_tab_3c_4 = ok_code3.
dynpronr3c_4 = '0316'.
SORT itab_di BY dtnf docnum itmnum ebeln ebelp ASCENDING.
ENDIF.
ENDFORM.
FORM trata_button_first_0304.
...
...
MOVE: 1 TO v_indicatu4.
LOOP AT itab_resumo WHERE marc_l = 'X'.
itab_resumo-marc_l = ' '.
MODIFY itab_resumo.
ENDLOOP.
READ TABLE itab_resumo INDEX v_indicatu4.
IF sy-subrc EQ 0.
itab_resumo-marc_l = 'X'.
MODIFY itab_resumo INDEX v_indicatu4.
MOVE: itab_resumo-codmat TO /pws/zycie259d-codmat ,
* >> Início da inclusão: FORM TRATA_BUTTON_FIRST_0304
itab_resumo-agrup TO /pws/zycie259d-agrup ,
* << Fim da inclusão
/pws/zycie258-werks TO /pws/zycie259d-werks ,
itab_resumo-qtd_iten TO /pws/zycie259d-qtd_iten,
itab_resumo-vlfob TO /pws/zycie259d-vlfob .
/pws/zycie259d-waersfob = itab_resumo-waersfob.
/pws/zycie259d-meins = itab_resumo-meins .
CLEAR: itab_det_exp. REFRESH: itab_det_exp.
* >> Início da exclusão: FORM TRATA_BUTTON_FIRST_0304
LOOP AT itab_det_exp_final.
CHECK itab_det_exp_final-codmat EQ /pws/zycie259d-codmat.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BUTTON_FIRST_0304
LOOP AT itab_det_exp_final WHERE codmat EQ /pws/zycie259d-codmat
AND agrup EQ /pws/zycie259d-agrup.
* << Fim da inclusão
MOVE-CORRESPONDING itab_det_exp_final TO itab_det_exp.
APPEND itab_det_exp.
ENDLOOP.
ENDIF.
ENDFORM.
FORM trata_button_prior_0304.
IF pressed_tab_3c_2 NE 'FS_DETALHE3'.
EXIT.
ENDIF.
IF v_indicatu4 > 1.
...
...
ENDIF.
LOOP AT itab_resumo WHERE marc_l = 'X'.
itab_resumo-marc_l = ' '.
MODIFY itab_resumo.
ENDLOOP.
READ TABLE itab_resumo INDEX v_indicatu4.
IF sy-subrc EQ 0.
itab_resumo-marc_l = 'X'.
MODIFY itab_resumo INDEX v_indicatu4.
MOVE: itab_resumo-codmat TO /pws/zycie259d-codmat ,
* >> Início da inclusão: FORM TRATA_BUTTON_PRIOR_0304
itab_resumo-agrup TO /pws/zycie259d-agrup ,
* << Fim da inclusão
/pws/zycie258-werks TO /pws/zycie259d-werks ,
itab_resumo-qtd_iten TO /pws/zycie259d-qtd_iten,
itab_resumo-vlfob TO /pws/zycie259d-vlfob .
/pws/zycie259d-waersfob = itab_resumo-waersfob.
/pws/zycie259d-meins = itab_resumo-meins .
CLEAR: itab_det_exp. REFRESH: itab_det_exp.
* >> Início da exclusão: FORM TRATA_BUTTON_PRIOR_0304
LOOP AT itab_det_exp_final.
CHECK itab_det_exp_final-codmat EQ /pws/zycie259d-codmat.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BUTTON_PRIOR_0304
LOOP AT itab_det_exp_final WHERE codmat EQ /pws/zycie259d-codmat
AND agrup EQ /pws/zycie259d-agrup.
* << Fim da inclusão
MOVE-CORRESPONDING itab_det_exp_final TO itab_det_exp.
APPEND itab_det_exp.
ENDLOOP.
ENDIF.
ENDFORM.
FORM trata_button_next_0304.
IF pressed_tab_3c_2 NE 'FS_DETALHE3'.
EXIT.
ENDIF.
DESCRIBE TABLE itab_resumo LINES v_ilinhas2.
...
...
ENDIF.
LOOP AT itab_resumo WHERE marc_l = 'X'.
itab_resumo-marc_l = ' '.
MODIFY itab_resumo.
ENDLOOP.
READ TABLE itab_resumo INDEX v_indicatu4.
IF sy-subrc EQ 0.
itab_resumo-marc_l = 'X'.
MODIFY itab_resumo INDEX v_indicatu4.
MOVE: itab_resumo-codmat TO /pws/zycie259d-codmat ,
* >> Início da inclusão: FORM TRATA_BUTTON_NEXT_0304
itab_resumo-agrup TO /pws/zycie259d-agrup ,
* << Fim da inclusão
/pws/zycie258-werks TO /pws/zycie259d-werks ,
itab_resumo-qtd_iten TO /pws/zycie259d-qtd_iten,
itab_resumo-vlfob TO /pws/zycie259d-vlfob .
/pws/zycie259d-waersfob = itab_resumo-waersfob.
/pws/zycie259d-meins = itab_resumo-meins .
CLEAR: itab_det_exp. REFRESH: itab_det_exp.
* >> Início da exclusão: FORM TRATA_BUTTON_NEXT_0304
LOOP AT itab_det_exp_final.
CHECK itab_det_exp_final-codmat EQ /pws/zycie259d-codmat.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BUTTON_NEXT_0304
LOOP AT itab_det_exp_final WHERE codmat EQ /pws/zycie259d-codmat
AND agrup EQ /pws/zycie259d-agrup.
* << Fim da inclusão
MOVE-CORRESPONDING itab_det_exp_final TO itab_det_exp.
APPEND itab_det_exp.
ENDLOOP.
ENDIF.
ENDFORM.
FORM trata_button_last_0304.
IF pressed_tab_3c_2 NE 'FS_DETALHE3'.
EXIT.
ENDIF.
DESCRIBE TABLE itab_resumo LINES v_ilinhas2.
v_indicatu4 = v_ilinhas2.
LOOP AT itab_resumo WHERE marc_l = 'X'.
itab_resumo-marc_l = ' '.
MODIFY itab_resumo.
ENDLOOP.
READ TABLE itab_resumo INDEX v_indicatu4.
IF sy-subrc EQ 0.
itab_resumo-marc_l = 'X'.
MODIFY itab_resumo INDEX v_indicatu4.
MOVE: itab_resumo-codmat TO /pws/zycie259d-codmat ,
* >> Início da inclusão: FORM TRATA_BUTTON_LAST_0304
itab_resumo-agrup TO /pws/zycie259d-agrup ,
* << Fim da inclusão
/pws/zycie258-werks TO /pws/zycie259d-werks ,
itab_resumo-qtd_iten TO /pws/zycie259d-qtd_iten,
itab_resumo-vlfob TO /pws/zycie259d-vlfob .
/pws/zycie259d-waersfob = itab_resumo-waersfob.
/pws/zycie259d-meins = itab_resumo-meins .
CLEAR: itab_det_exp. REFRESH: itab_det_exp.
* >> Início da exclusão: FORM TRATA_BUTTON_LAST_0304
LOOP AT itab_det_exp_final.
CHECK itab_det_exp_final-codmat EQ /pws/zycie259d-codmat.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BUTTON_LAST_0304
LOOP AT itab_det_exp_final WHERE codmat EQ /pws/zycie259d-codmat
AND agrup EQ /pws/zycie259d-agrup.
* << Fim da inclusão
MOVE-CORRESPONDING itab_det_exp_final TO itab_det_exp.
APPEND itab_det_exp.
ENDLOOP.
ENDIF.
ENDFORM.
FORM trata_button_first_0305.
IF pressed_tab_3c_2 NE 'FS_VINC3'.
EXIT.
ENDIF.
MOVE: 1 TO v_indicatu5.
...
...
IF /pws/zycit321-it_ge EQ 'X'.
CLEAR: itab_comp_vinc_final-codcomp.
ENDIF.
COLLECT itab_comp_vinc_final.
ENDLOOP.
ENDIF.
ENDIF.
ENDLOOP.
SORT itab_comp_vinc_final BY nrseqre nrseq vbeln_va vbeln_vf posnr
codmat codcomp.
* >> Início da exclusão: FORM VERIFICA_COMPONENTES3
IF /pws/zycie258-tipo EQ 'C'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_COMPONENTES3
IF /pws/zycie258-tipo EQ 'C' OR
/pws/zycie258-tipo EQ 'N'.
* << Fim da inclusão
PERFORM seleciona_di3.
PERFORM seleciona_di.
SORT itab_dis BY dtdi.
PERFORM vincula_di.
PERFORM elimina_insumo_sdi.
ELSE.
PERFORM seleciona_nf3.
ENDIF.
ELSE.
* >> Início da exclusão: FORM VERIFICA_COMPONENTES3
IF /pws/zycie258-tipo EQ 'C'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_COMPONENTES3
IF /pws/zycie258-tipo EQ 'C' OR
/pws/zycie258-tipo EQ 'N'.
* << Fim da inclusão
PERFORM seleciona_di3_l.
PERFORM seleciona_di_l.
ELSE.
PERFORM seleciona_nf_l.
ENDIF.
ENDIF.
MESSAGE s015 WITH text-023.
ENDFORM.
FORM check_fields_screen_0309.
LOOP AT SCREEN.
...
...
v_tcode3 NE '/PWS/ZYCI040_L'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE259D-LOTE' AND
/pws/zycit321-lote EQ space.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
* >> Início da exclusão: FORM CGECK_FIELDS_SCREEN_0305
IF /pws/zycie258-tipo EQ 'C'
* << Fim da exclusão
* >> Início da inclusão: FORM CGECK_FIELDS_SCREEN_0305
IF ( /pws/zycie258-tipo EQ 'C' OR
/pws/zycie258-tipo EQ 'N' )
* << Fim da inclusão
AND screen-name EQ 'FS_NF3'.
screen-invisible = 1 .
MODIFY SCREEN.
ENDIF.
IF /pws/zycie258-tipo EQ 'F'
AND screen-name EQ 'FS_VDI3'.
screen-invisible = 1 .
MODIFY SCREEN.
ENDIF.
IF NOT /pws/zycie259d-nrseqc IS INITIAL.
...
...
EXIT.
ENDIF.
ENDFORM.
FORM trata_button_exclm3.
DATA: v_qtd_iten LIKE /pws/zycie259-qtd_iten,
v_vlfob LIKE /pws/zycie259-vlfob .
CLEAR: v_qtd_iten, v_vlfob.
IF pressed_tab_3c_2 EQ 'FS_RESUMO3'.
itab_di_final_aux[] = itab_di_final[].
LOOP AT itab_resumo WHERE marc_l = 'X'.
* >> Início da exclusão: FORM TRATA_BUTTON_EXCLM3
LOOP AT itab_det_exp_final WHERE codmat = itab_resumo-codmat.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BUTTON_EXCLM3
LOOP AT itab_det_exp_final WHERE codmat = itab_resumo-codmat
AND agrup = itab_resumo-agrup.
* << Fim da inclusão
LOOP AT itab_comp_vinc_final WHERE
nrseqre = itab_det_exp_final-nrseqre
AND nrseq = itab_det_exp_final-nrseq
AND nrseqc = itab_det_exp_final-nrseqc
AND codmat = itab_det_exp_final-codmat
AND vbeln_va = itab_det_exp_final-vbeln_va
AND vbeln_vf = itab_det_exp_final-vbeln_vf
AND posnr = itab_det_exp_final-posnr.
LOOP AT itab_di_final WHERE
nrseqre = itab_comp_vinc_final-nrseqre
...
...
v_dtini = itab_zycit371-dtde.
ENDIF.
IF v_dtfim IS INITIAL OR itab_zycit371-dtate < v_dtfim .
v_dtfim = itab_zycit371-dtate.
ENDIF.
ENDLOOP.
ELSE.
LOOP AT itab_det_exp_final.
CLEAR itab_resumo.
MOVE: itab_det_exp_final-codmat TO itab_resumo-codmat ,
* >> Início da inclusão: FORM CARREGA_RESUMO_EXPORTACAO3
itab_det_exp_final-agrup TO itab_resumo-agrup ,
* << Fim da inclusão
itab_det_exp_final-werks TO itab_resumo-werks ,
itab_det_exp_final-qtd_iten TO itab_resumo-qtd_iten,
itab_det_exp_final-meins TO itab_resumo-meins ,
itab_det_exp_final-waersfob TO itab_resumo-waersfob,
itab_det_exp_final-vlfob TO itab_resumo-vlfob .
COLLECT itab_resumo.
ENDLOOP.
SORT itab_det_exp_final BY dtre ASCENDING.
SORT itab_resumo BY codmat.
CLEAR: v_dtini, v_dtfim, v_idxtmp.
LOOP AT itab_resumo.
v_idxtmp = sy-tabix.
LOOP AT itab_det_exp_final WHERE codmat = itab_resumo-codmat
* >> Início da inclusão: FORM CARREGA_RESUMO_EXPORTACAO3
AND agrup = itab_resumo-agrup
* << Fim da inclusão
AND werks = itab_resumo-werks.
IF v_dtini IS INITIAL.
v_dtini = itab_det_exp_final-dtre.
ENDIF.
IF v_dtfim IS INITIAL.
v_dtfim = itab_det_exp_final-dtre.
ENDIF.
IF itab_det_exp_final-dtre < v_dtini AND
NOT v_dtini IS INITIAL.
v_dtini = itab_det_exp_final-dtre.
...
...
CALL SCREEN '0320' STARTING AT 30 4.
ENDFORM.
FORM comerc_exp.
DATA: itab_vbfa_aux LIKE itab_vbfa OCCURS 0 WITH HEADER LINE,
itab_zycit259_d TYPE /pws/zycit259 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_vbrp OCCURS 0.
DATA: vbeln TYPE vbrp-vbeln,
posnr TYPE vbrp-posnr,
ntgew TYPE vbrp-ntgew,
brgew TYPE vbrp-brgew,
* >> Início da exclusão: FORM COMERC_EXP
gewei TYPE vbrp-gewei.
* << Fim da exclusão
* >> Início da inclusão: FORM COMERC_EXP
gewei TYPE vbrp-gewei,
mvgr1 TYPE vbrp-mvgr1.
* << Fim da inclusão
DATA: END OF itab_vbrp.
* >> Início da inclusão: FORM COMERC_EXP
DATA: v_ncm_lista(10) TYPE c.
* << Fim da inclusão
IF itab_zycit472[] IS INITIAL.
SELECT * FROM /pws/zycit472 INTO TABLE itab_zycit472."#EC CI_NOWHERE
SELECT * FROM /pws/zycit473 INTO TABLE itab_zycit473."#EC CI_NOWHERE
ENDIF.
REFRESH itab_nota_c.
* >> Início da inclusão: FORM COMERC_EXP
IF /pws/zycit321-ltopc EQ '1'.
SELECT a~docnum a~docdat a~parid a~nfnum a~series b~refkey
b~refitm b~menge b~meins b~netpr b~netwr
b~werks b~cfop b~nbm b~matnr b~itmnum
b~netfre b~netins a~waerk
FROM ( j_1bnfdoc AS a INNER JOIN j_1bnflin AS b ON
a~docnum EQ b~docnum )
INTO TABLE itab_nota_c
WHERE a~docdat >= p_dtexp1
AND a~docdat <= p_dtexp2
AND a~cancel NE 'X'
AND a~bukrs EQ /pws/zycie258-bukrs
AND b~matnr IN p_matnr.
ELSE.
* << Fim da inclusão
IF NOT itab_zycit281[] IS INITIAL.
SELECT a~docnum a~docdat a~parid a~nfnum a~series b~refkey
b~refitm b~menge b~meins b~netpr b~netwr
b~werks b~cfop b~nbm b~matnr b~itmnum
b~netfre b~netins a~waerk
FROM ( j_1bnfdoc AS a INNER JOIN j_1bnflin AS b ON
a~docnum EQ b~docnum )
INTO TABLE itab_nota_c
FOR ALL ENTRIES IN itab_zycit281
WHERE a~docdat >= p_dtexp1
AND a~docdat <= p_dtexp2
AND a~cancel NE 'X'
AND a~bukrs EQ /pws/zycie258-bukrs
AND b~matnr EQ itab_zycit281-matnr.
* >> Início da inclusão: FORM COMERC_EXP
ENDIF.
* << Fim da inclusão
ENDIF.
REFRESH: itab_sel_vbfa, itab_vbfa.
LOOP AT itab_nota_c.
* >> Início da inclusão: FORM COMERC_EXP
IF itab_nota_c-werks NE /pws/zycie258-werks.
READ TABLE itab_zycit434 WITH KEY
werks = itab_nota_c-werks.
IF sy-subrc NE 0.
DELETE itab_nota_c WHERE werks EQ itab_nota_c-werks.
CONTINUE.
ENDIF.
IF /pws/zycit321-ncm_list EQ 'X'.
v_ncm_lista = itab_nota_c-nbm(5).
IF v_ncm_lista+4(1) EQ '.'.
v_ncm_lista+4(1) = itab_nota_c-nbm+5(1).
ENDIF.
ELSE.
v_ncm_lista = itab_nota_c-nbm.
ENDIF.
READ TABLE itab_zycit423 WITH KEY
ncm = v_ncm_lista.
IF sy-subrc NE 0.
DELETE itab_nota_c WHERE nbm EQ itab_nota_c-nbm.
CONTINUE.
ENDIF.
ENDIF.
* << Fim da inclusão
READ TABLE itab_zycit473 WITH KEY kunnr = itab_nota_c-parid.
IF sy-subrc NE 0.
DELETE itab_nota_c WHERE parid EQ itab_nota_c-parid.
CONTINUE.
ENDIF.
READ TABLE itab_zycit472 WITH KEY cfop = itab_nota_c-cfop.
IF sy-subrc NE 0.
DELETE itab_nota_c WHERE cfop EQ itab_nota_c-cfop.
CONTINUE.
ENDIF.
MOVE: itab_nota_c-refkey TO itab_sel_vbfa-vbeln,
itab_nota_c-refitm TO itab_sel_vbfa-posnn.
APPEND itab_sel_vbfa.
ENDLOOP.
REFRESH: itab_vbfa, itab_vbfa_aux.
IF NOT itab_sel_vbfa[] IS INITIAL.
SELECT vbelv vbeln posnn posnv vbtyp_v vbtyp_n
* >> Início da exclusão: FORM COMERC_EXP
ntgew brgew gewei "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM COMERC_EXP
ntgew brgew gewei "#EC CI_NOFIRST
* << Fim da inclusão
FROM vbfa INTO TABLE itab_vbfa_1
FOR ALL ENTRIES IN itab_sel_vbfa
WHERE vbeln EQ itab_sel_vbfa-vbeln
* >> Início da exclusão: FORM COMERC_EXP
AND posnn EQ itab_sel_vbfa-posnn
AND ( vbtyp_v EQ 'C' OR vbtyp_v EQ 'J' )
AND vbtyp_n EQ 'M'.
* << Fim da exclusão
* >> Início da inclusão: FORM COMERC_EXP
AND posnn EQ itab_sel_vbfa-posnn.
DELETE itab_vbfa_1
WHERE ( vbtyp_v NE 'C' AND vbtyp_v NE 'J' )
OR vbtyp_n NE 'M'.
* << Fim da inclusão
ENDIF.
itab_vbfa_aux[] = itab_vbfa_1[].
DELETE itab_vbfa_aux WHERE vbtyp_v EQ 'C'.
REFRESH itab_zycit259_d.
IF NOT itab_vbfa_aux[] IS INITIAL.
SELECT * FROM /pws/zycit259 INTO TABLE itab_zycit259_d
* >> Início da exclusão: FORM COMERC_EXP
FOR ALL ENTRIES IN itab_vbfa_aux "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM COMERC_EXP
FOR ALL ENTRIES IN itab_vbfa_aux "#EC CI_NOFIRST
* << Fim da inclusão
WHERE nrseqd NE /pws/zycie258-nrseqd
AND vbeln_vf EQ itab_vbfa_aux-vbeln
AND posnr EQ itab_vbfa_aux-posnn.
ENDIF.
LOOP AT itab_zycit259_d.
DELETE itab_nota_c WHERE refkey EQ itab_zycit259_d-vbeln_vf
AND refitm EQ itab_zycit259_d-posnr.
DELETE itab_vbfa_aux
WHERE vbeln EQ itab_zycit259_d-vbeln_vf
AND posnn EQ itab_zycit259_d-posnr.
.
ENDLOOP.
IF NOT itab_vbfa_aux[] IS INITIAL.
* >> Início da exclusão: FORM COMERC_EXP
SELECT vbeln posnr ntgew brgew gewei FROM vbrp
* << Fim da exclusão
* >> Início da inclusão: FORM COMERC_EXP
SELECT vbeln posnr ntgew brgew gewei mvgr1 FROM vbrp
* << Fim da inclusão
INTO TABLE itab_vbrp
FOR ALL ENTRIES IN itab_vbfa_aux
WHERE vbeln EQ itab_vbfa_aux-vbeln
AND posnr EQ itab_vbfa_aux-posnn.
ENDIF.
v_pct = 80.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = v_pct
text = text-300.
...
...
EXPORTING
percentage = v_pct
text = text-300.
READ TABLE itab_det_exp_final WITH KEY
vbeln_vf = itab_nota_c-refkey
posnr = itab_nota_c-refitm.
IF sy-subrc EQ 0.
CONTINUE.
ENDIF.
CLEAR: itab_det_exp_final.
* >> Início da inclusão: FORM COMERC_EXP
IF /pws/zycit321-ltopc NE '1'.
* << Fim da inclusão
READ TABLE itab_zycit281 WITH KEY matnr = itab_nota_c-matnr
werks = itab_nota_c-werks.
IF sy-subrc NE 0.
SELECT SINGLE a~wrk02
FROM ( t460a AS a INNER JOIN marc AS b ON
a~werks EQ b~werks AND
a~sobsl EQ b~sobsl AND
a~beskz EQ b~beskz )
INTO itab_nota_c-werks
WHERE b~matnr EQ itab_nota_c-matnr
AND b~werks EQ itab_nota_c-werks
AND a~beskz EQ 'F'. "#EC CI_BUFFJOIN
IF sy-subrc EQ 0.
READ TABLE itab_zycit281 WITH KEY
matnr = itab_nota_c-matnr
werks = itab_nota_c-werks.
IF sy-subrc EQ 0.
MODIFY itab_nota_c TRANSPORTING werks
WHERE matnr EQ itab_nota_c-matnr.
* >> Início da inclusão: FORM COMERC_EXP
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
CLEAR: itab_det_exp_final.
READ TABLE itab_vbfa_1 WITH KEY vbeln = itab_nota_c-refkey
posnn = itab_nota_c-refitm
vbtyp_v = 'C'.
IF sy-subrc EQ 0.
MOVE: itab_vbfa_1-vbelv TO itab_det_exp_final-vbeln_va.
ELSE.
...
...
ELSE.
CONTINUE.
ENDIF.
CLEAR: itab_vbrp.
READ TABLE itab_vbrp WITH KEY
vbeln = itab_vbfa_1-vbeln
posnr = itab_vbfa_1-posnn.
MOVE: itab_vbrp-gewei TO itab_det_exp_final-gewei ,
itab_vbrp-ntgew TO itab_det_exp_final-ntgew ,
itab_vbrp-brgew TO itab_det_exp_final-brgew .
* >> Início da inclusão: FORM COMERC_EXP
IF /pws/zycit321-ltopc EQ '1'.
CLEAR: v_ncm_lista.
IF /pws/zycit321-ncm_list EQ 'X'.
v_ncm_lista = itab_nota_c-nbm(5).
IF v_ncm_lista+4(1) EQ '.'.
v_ncm_lista+4(1) = itab_nota_c-nbm+5(1).
ENDIF.
ELSE.
v_ncm_lista = itab_nota_c-nbm.
ENDIF.
CLEAR: itab_zycit423.
READ TABLE itab_zycit423 WITH KEY
ncm = v_ncm_lista
mvgr1 = itab_vbrp-mvgr1.
IF sy-subrc NE 0.
CONTINUE.
ENDIF.
READ TABLE itab_zycit421 WITH KEY
werks = itab_nota_c-werks
agrup = itab_zycit423-agrup.
IF sy-subrc NE 0.
CONTINUE.
ENDIF.
MOVE: itab_zycit423-agrup TO itab_det_exp_final-agrup,
itab_vbrp-mvgr1 TO itab_det_exp_final-mvgr1,
itab_nota_c-werks TO itab_zycit281-werks,
itab_zycit421-stlal TO itab_zycit281-stlal.
ENDIF.
* << Fim da inclusão
MOVE:
/pws/zycie258-nrseqd TO itab_det_exp_final-nrseqd ,
/pws/zycie258-lifnr TO itab_det_exp_final-lifnr ,
itab_zycit281-werks TO itab_det_exp_final-werks ,
itab_zycit281-stlnr TO itab_det_exp_final-stlnr ,
itab_zycit281-stlal TO itab_det_exp_final-stlal ,
itab_zycit281-stlan TO itab_det_exp_final-stlan ,
itab_nota_c-matnr TO itab_det_exp_final-codmat ,
itab_vbfa_1-vbeln TO itab_det_exp_final-vbeln_vf,
itab_vbfa_1-posnn TO itab_det_exp_final-posnr,
...
...
ENDLOOP.
ENDFORM.
FORM equip_exp.
DATA: itab_zycit371 TYPE /pws/zycit371 OCCURS 0 WITH HEADER LINE,
itab_zycit373 TYPE /pws/zycit373 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_zycit259_dl OCCURS 0.
DATA: nrseqc TYPE /pws/zycit259-nrseqc,
vbeln_vf TYPE /pws/zycit259-vbeln_vf,
posnr TYPE /pws/zycit259-posnr.
DATA: END OF itab_zycit259_dl.
* >> Início da inclusão: FORM EQUIP_EXP
DATA: v_ncm_lista(10) TYPE c.
DATA: BEGIN OF itab_vbrp OCCURS 0.
DATA: vbeln TYPE vbrp-vbeln,
posnr TYPE vbrp-posnr,
ntgew TYPE vbrp-ntgew,
brgew TYPE vbrp-brgew,
gewei TYPE vbrp-gewei,
mvgr1 TYPE vbrp-mvgr1.
DATA: END OF itab_vbrp.
* << Fim da inclusão
REFRESH itab_zycit281.
SELECT * FROM /pws/zycit281 INTO TABLE itab_zycit281
WHERE matnr IN p_matnr.
* >> Início da inclusão: FORM EQUIP_EXP
IF /pws/zycit321-ltopc EQ '1'.
SELECT a~mandt a~nrseq a~docnum a~itmnum a~matnr
a~quant a~nfnum a~series a~qtd_iten a~qtd_apro
a~qtd_saldo a~doc_ven a~it_docven a~doc_fat
a~it_docfat a~fornec a~it_fornec a~vl_itnf
a~flag a~dtnf
FROM ( /pws/zycit373 AS a INNER JOIN /pws/zycit371 AS b
ON a~nrseq EQ b~nrseqd )
INTO TABLE itab_zycit373
WHERE a~dtnf >= p_dtexp1
AND a~dtnf <= p_dtexp2
AND a~matnr IN p_matnr
AND b~nratoc EQ space. "#EC CI_NOFIELD
ELSE.
* << Fim da inclusão
IF NOT itab_zycit281[] IS INITIAL.
* >> Início da exclusão: FORM EQUIP_EXP
SELECT * FROM /pws/zycit373 INTO TABLE itab_zycit373"#EC CI_NOFIELD
* << Fim da exclusão
* >> Início da inclusão: FORM EQUIP_EXP
SELECT * FROM /pws/zycit373 INTO TABLE itab_zycit373
* << Fim da inclusão
FOR ALL ENTRIES IN itab_zycit281
WHERE dtnf >= p_dtexp1
AND dtnf <= p_dtexp2
* >> Início da exclusão: FORM EQUIP_EXP
AND matnr EQ itab_zycit281-matnr.
* << Fim da exclusão
* >> Início da inclusão: FORM EQUIP_EXP
AND matnr EQ itab_zycit281-matnr. "#EC CI_NOFIELD
* << Fim da inclusão
ELSE.
EXIT.
* >> Início da inclusão: FORM EQUIP_EXP
ENDIF.
* << Fim da inclusão
ENDIF.
REFRESH itab_zycit259_dl.
IF NOT itab_zycit373[] IS INITIAL.
SELECT nrseqc vbeln_vf posnr FROM /pws/zycit259
INTO TABLE itab_zycit259_dl "#EC CI_NOFIRST
...
...
AND vbeln_vf EQ itab_zycit373-doc_fat
AND posnr EQ itab_zycit373-it_docfat.
LOOP AT itab_zycit259_dl.
DELETE itab_zycit373
WHERE nrseq EQ itab_zycit259_dl-nrseqc
AND doc_fat EQ itab_zycit259_dl-vbeln_vf
AND it_docfat EQ itab_zycit259_dl-posnr.
ENDLOOP.
ENDIF.
IF NOT itab_zycit373[] IS INITIAL.
* >> Início da inclusão: FORM EQUIP_EXP
IF /pws/zycit321-ltopc EQ '1'.
REFRESH: itab_vbrp.
SELECT vbeln posnr ntgew brgew gewei mvgr1 FROM vbrp
INTO TABLE itab_vbrp
FOR ALL ENTRIES IN itab_zycit373
WHERE vbeln EQ itab_zycit373-doc_fat
AND posnr EQ itab_zycit373-it_docfat.
ENDIF.
* << Fim da inclusão
SELECT * FROM /pws/zycit371 INTO TABLE itab_zycit371
FOR ALL ENTRIES IN itab_zycit373
WHERE nrseqd EQ itab_zycit373-nrseq
AND r_venda EQ 'X'.
SELECT a~docnum a~docdat a~parid a~nfnum a~series b~refkey
b~refitm b~menge b~meins b~netpr b~netwr
b~werks b~cfop b~nbm b~matnr b~itmnum
b~netfre b~netins a~waerk
FROM ( j_1bnfdoc AS a INNER JOIN j_1bnflin AS b ON
a~docnum EQ b~docnum )
...
...
IF sy-subrc NE 0.
CONTINUE.
ENDIF.
READ TABLE itab_nota_c WITH KEY docnum = itab_zycit373-docnum
itmnum = itab_zycit373-itmnum.
IF sy-subrc NE 0.
CONTINUE.
ENDIF.
READ TABLE itab_mara WITH KEY matnr = itab_zycit373-matnr.
CLEAR: itab_det_exp_final.
* >> Início da inclusão: FORM EQUIP_EXP
IF /pws/zycit321-ltopc EQ '1'.
CLEAR: itab_vbrp.
READ TABLE itab_vbrp WITH KEY
vbeln = itab_zycit373-doc_fat
posnr = itab_zycit373-it_docfat.
CLEAR: v_ncm_lista.
IF /pws/zycit321-ncm_list EQ 'X'.
v_ncm_lista = itab_nota_c-nbm(5).
IF v_ncm_lista+4(1) EQ '.'.
v_ncm_lista+4(1) = itab_nota_c-nbm+5(1).
ENDIF.
ELSE.
v_ncm_lista = itab_nota_c-nbm.
ENDIF.
CLEAR: itab_zycit423.
READ TABLE itab_zycit423 WITH KEY
ncm = v_ncm_lista
mvgr1 = itab_vbrp-mvgr1.
IF sy-subrc NE 0.
CONTINUE.
ENDIF.
READ TABLE itab_zycit421 WITH KEY
werks = itab_nota_c-werks
agrup = itab_zycit423-agrup.
IF sy-subrc NE 0.
CONTINUE.
ENDIF.
MOVE: itab_zycit423-agrup TO itab_det_exp_final-agrup,
itab_vbrp-mvgr1 TO itab_det_exp_final-mvgr1,
itab_nota_c-werks TO itab_zycit281-werks,
itab_zycit421-stlal TO itab_zycit281-stlal.
ENDIF.
* << Fim da inclusão
MOVE: itab_zycit373-nrseq TO itab_det_exp_final-nrseqc ,
itab_zycit371-nrre TO itab_det_exp_final-nrre ,
itab_zycit373-doc_ven TO itab_det_exp_final-vbeln_va ,
itab_zycit373-it_docven TO itab_det_exp_final-posnr ,
itab_zycit373-fornec TO itab_det_exp_final-vbeln_vl ,
itab_zycit373-it_fornec TO itab_det_exp_final-posnl ,
itab_zycit373-fornec TO itab_det_exp_final-fornec ,
itab_zycit373-it_fornec TO itab_det_exp_final-it_fornec ,
itab_mara-gewei TO itab_det_exp_final-gewei ,
/pws/zycie258-nrseqd TO itab_det_exp_final-nrseqd ,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064O01
...
ENDMODULE.
MODULE set_screen3 OUTPUT.
CASE sy-dynnr.
WHEN '0300'.
LOOP AT SCREEN.
IF screen-group1 NE 'NEX'.
screen-input = v_status3.
MODIFY SCREEN.
ENDIF.
IF ( /pws/zycie258-tipo EQ 'C' OR
* >> Início da inclusão: MODULE SET_SCREEN3
/pws/zycie258-tipo EQ 'N' or
* << Fim da inclusão
/pws/zycie258-tipo IS INITIAL )
AND screen-name EQ 'FS_MERC3'.
screen-invisible = 1 .
MODIFY SCREEN.
ENDIF.
IF ( /pws/zycie258-tipo EQ 'F' OR
/pws/zycie258-tipo IS INITIAL )
AND screen-name EQ 'FS_IMPORT3'.
screen-invisible = 1 .
MODIFY SCREEN.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064X01
...
DATA : END OF itab_saida.
DATA : BEGIN OF itab_zycit434 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit434.
DATA: mark.
DATA : END OF itab_zycit434.
DATA: BEGIN OF it_log_erro3 OCCURS 0.
DATA: ltext(135) TYPE c.
DATA: END OF it_log_erro3.
DATA: BEGIN OF itab_resumo OCCURS 0,
codmat LIKE /pws/zycie259-codmat ,
* >> Início da inclusão:
agrup type /pws/zycie259-agrup,
* << Fim da inclusão
qtd_iten LIKE /pws/zycie259-qtd_iten,
vlfob LIKE /pws/zycie259-vlfob ,
dtpre LIKE /pws/zycie259-dtre ,
dture LIKE /pws/zycie259-dtre ,
werks LIKE /pws/zycie259-werks ,
stlan LIKE /pws/zycie259-stlan ,
stlnr LIKE /pws/zycie259-stlnr ,
stlal LIKE /pws/zycie259-stlal ,
waersfob TYPE /pws/zycie259-waersfob,
meins TYPE /pws/zycie259-meins ,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE259
Nome campo Elem.dados Tab.verif. N CtDt Comp.
...
AGRUP /PWS/ZYGLL1072 CHAR 3
LOTE CHARG_D CHAR 10
WERKS_E WERKS_D CHAR 4
* >> Início da inclusão:
MVGR1 MVGR1 CHAR 3
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE259C
Nome campo Elem.dados Tab.verif. N CtDt Comp.
...
AGRUP /PWS/ZYGLL1072 CHAR 3
LOTE CHARG_D CHAR 10
WERKS_E WERKS_D CHAR 4
* >> Início da inclusão:
MVGR1 MVGR1 CHAR 3
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE259D
Nome campo Elem.dados Tab.verif. N CtDt Comp.
...
AGRUP /PWS/ZYGLL1072 CHAR 3
LOTE CHARG_D CHAR 10
WERKS_E WERKS_D CHAR 4
* >> Início da inclusão:
MVGR1 MVGR1 CHAR 3
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT259
Nome campo Elem.dados Tab.verif. N CtDt Comp.
...
AGRUP /PWS/ZYGLL1072 CHAR 3
LOTE CHARG_D CHAR 10
WERKS_E WERKS_D CHAR 4
* >> Início da inclusão:
MVGR1 MVGR1 CHAR 3
* << Fim da inclusão
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp.
...
LIFNR LIFNR CHAR 10
AGRUP /PWS/ZYGLL1072 CHAR 3
LOTE CHARG_D CHAR 10
WERKS_E WERKS_D CHAR 4
* >> Início da inclusão:
MVGR1 MVGR1 CHAR 3
* << Fim da inclusão