CE PLUS - Nota 006788
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 17/06/2008 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:25:15
Descrição da Nota: DESENVOLVIMENTO ATO CONCESSÓRIO ISENÇÃO INTERMEDIARIO-IMPORTADOR
Sintoma
Desenvolvimento Ato Concessório isenção Intermediario-Importador
Solução
Desenvolvimento Ato Concessório isenção Intermediario-Importador
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06788 Data: 17/06/2008 Hora: 14:40:03
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06788
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00053
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03192 - 00001 - 6.0 - 00026 - CRIADA EXIT ATO005, AJUSTADO PROGRAMA PARA NÃO EXPLODIR A LISTA D
06685 - 00002 - 7.0 - 00005 - INTERMEDIARIO IMPORTAÇÃO POR AGRUPAMENTO
06786 - 00003 - 7.0 - 00006 - O PROGRAMA NÃO APAGA AS EXPORTAÇÕES (INTERMEDIARIO) NÃO VINCULADA
----------------------------------------------------------------------------------------------------
DESENVOLVIMENTO ATO CONCESSÓRIO ISENÇÃO INTERMEDIARIO-IMPORTADOR
----------------------------------------------------------------------------------------------------
Palavras Chave:
DESENVOLVIMENTO - ATO - CONCESSÓRIO - ISENÇÃO - INTERMEDIARIO
IMPORTADOR - /PWS/SAPMZYCI040
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI040 0201
DYNP /PWS/SAPMZYCI040 0205
DYNP /PWS/SAPMZYCI040 0219
DYNP /PWS/SAPMZYCI040 0249
DYNP /PWS/SAPMZYCI040 0250
DYNP /PWS/SAPMZYCI040 0251
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040F03
REPS /PWS/MZYCI040I01
REPS /PWS/MZYCI040O01
REPS /PWS/MZYCI040TOP2
REPS /PWS/MZYCI040X01
REPT /PWS/SAPMZYCI040
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0201
MODIFICAR TEXTO "/PWS/ZYCIE244-WERKS"
Comprimento Visível 6
Texto Centro
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE245-NETPR_T"
Texto _.___.___.___,__V_____________V
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE245-VL_FRETE_T"
Texto _.___.___.___,__V_____________V
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE245-VL_SEG_T"
Texto _.___.___.___,__V_____________V
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-VLFRETE"
Texto _.___.___.___,__V_____________V
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-VLSEG"
Texto _.___.___.___,__V_____________V
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-VLTOT"
Texto _.___.___.___,__V_____________V
EXCLUIR TEXTO "/PWS/ZYCIE247-NETPR_T"
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE247-VL_COMIS_T"
Texto _.___.___.___,__V_____________V
EXCLUIR TEXTO "/PWS/ZYCIE247-VL_COMIS_T"
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE248-VLCOMIS"
Texto _.___.___.___,__V_____________V
EXCLUIR TEXTO "/PWS/ZYCIE248-VLCOMIS"
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE248-VLFOB"
Texto _.___.___.___,__V_____________V
EXCLUIR TEXTO "/PWS/ZYCIE248-VLFOB"
INCLUIR CAMPO TEXTO "V_TEXT201_01"
Comprimento Visível 16
Linha 15
Coluna 41
Formato CHAR
Grupo 1 NEX
Texto ________________
Código função
INCLUIR CAMPO TEXTO "V_TEXT201_02"
Comprimento Visível 16
Linha 16
Coluna 41
Formato CHAR
Grupo 1 NEX
Texto ________________
Código função
INCLUIR CAMPO TEXTO "V_TEXT201_03"
Comprimento Visível 16
Linha 15
Coluna 82
Formato CHAR
Grupo 1 NEX
Texto ________________
Código função
INCLUIR CAMPO TEXTO "V_TEXT201_04"
Comprimento Visível 16
Linha 16
Coluna 82
Formato CHAR
Grupo 1 NEX
Texto ________________
Código função
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0205
MODIFICAR BOTÃO "FS_RECOMP2" em tbl.contr./tabstr.
Comprimento Visível 15
Texto _______________
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0219
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259-DTAVERB" em tbl.contr./tabstr.
Grupo 4 INT
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259-DTEMB" em tbl.contr./tabstr.
Grupo 4 INT
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259-NFNUM" em tbl.contr./tabstr.
Comprimento Visível 9
Linhas mínimas 9
Texto _________
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259-NRSEQ" em tbl.contr./tabstr.
Grupo 4 INT
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259-QTD_ITEN" em tbl.contr./tabstr.
Texto ___.___.___.___.___.___,_____V
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259-QTD_NCM" em tbl.contr./tabstr.
Texto ___.___.___.___.___.___,_____V
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259-VLCOMIS" em tbl.contr./tabstr.
Grupo 4 INT
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0219
process before output.
* >> Início da inclusão:
MODULE status_0219.
* << Fim da inclusão
loop at itab_det_remat with control tc_detre2
cursor tc_detre2-current_line.
module preenche_estrutura_0219.
endloop.
process after input.
loop at itab_det_remat.
module preenche_itab_det_remat.
endloop.
module user_command_0219.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0249
INCLUIR CAMPO TEXTO "/PWS/ZYCIE495-CODIGO" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 2
Formato CHAR
Linhas mínimas 10
Texto __________
INCLUIR TEXTO "/PWS/ZYCIE495-CODIGO" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 7
Linha 1
Coluna 2
Formato CHAR
Texto Produto
INCLUIR CAMPO TEXTO "/PWS/ZYCIE495-DTEMB" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 9
Formato DATE
Linhas mínimas 8
Texto __________
Código função
INCLUIR TEXTO "/PWS/ZYCIE495-DTEMB" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 11
Linha 1
Coluna 9
Formato CHAR
Texto Dt.Embarque
INCLUIR CAMPO TEXTO "/PWS/ZYCIE495-MEINS" em tbl.contr./tabstr.
Altura 3
Comprimento Visível 3
Linha 1
Coluna 8
Formato UNIT
Linhas mínimas 3
Texto ___
INCLUIR TEXTO "/PWS/ZYCIE495-MEINS" em tbl.contr./tabstr.
Altura 3
Comprimento Visível 2
Linha 1
Coluna 8
Formato CHAR
Texto UM
INCLUIR CAMPO TEXTO "/PWS/ZYCIE495-NCM" em tbl.contr./tabstr.
Altura 16
Comprimento Visível 16
Linha 1
Coluna 3
Formato CHAR
Linhas mínimas 16
Texto ________________
INCLUIR TEXTO "/PWS/ZYCIE495-NCM" em tbl.contr./tabstr.
Altura 16
Comprimento Visível 3
Linha 1
Coluna 3
Formato CHAR
Texto NCM
INCLUIR CAMPO TEXTO "/PWS/ZYCIE495-NRRE" em tbl.contr./tabstr.
Altura 14
Comprimento Visível 14
Linha 1
Coluna 4
Formato CHAR
Linhas mínimas 14
Texto ______________
INCLUIR TEXTO "/PWS/ZYCIE495-NRRE" em tbl.contr./tabstr.
Altura 14
Comprimento Visível 9
Linha 1
Coluna 4
Formato CHAR
Texto Número RE
INCLUIR CAMPO TEXTO "/PWS/ZYCIE495-NRSEQC" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 1
Formato CHAR
Linhas mínimas 10
Texto __________
INCLUIR TEXTO "/PWS/ZYCIE495-NRSEQC" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 14
Linha 1
Coluna 1
Formato CHAR
Texto NºSeq.Comprov.
INCLUIR CAMPO TEXTO "/PWS/ZYCIE495-PESO" em tbl.contr./tabstr.
Altura 19
Comprimento Visível 19
Linha 1
Coluna 7
Formato QUAN
Campo referência /PWS/ZYCIE495-UM_QTD
Linhas mínimas 15
Colunas mínimas 3
Texto ___.___.___.___,___
INCLUIR TEXTO "/PWS/ZYCIE495-PESO" em tbl.contr./tabstr.
Altura 19
Comprimento Visível 15
Linha 1
Coluna 7
Formato CHAR
Texto Peso líquido
INCLUIR CAMPO TEXTO "/PWS/ZYCIE495-QTD_ITEN" em tbl.contr./tabstr.
Altura 30
Comprimento Visível 30
Linha 1
Coluna 5
Formato QUAN
Campo referência /PWS/ZYCIE495-MEINS
Linhas mínimas 23
Colunas mínimas 5
Texto ___.___.___.___.___.___,_____V
INCLUIR TEXTO "/PWS/ZYCIE495-QTD_ITEN" em tbl.contr./tabstr.
Altura 30
Comprimento Visível 21
Linha 1
Coluna 5
Formato CHAR
Texto Quantidade Comprovada
INCLUIR CAMPO TEXTO "/PWS/ZYCIE495-UM_QTD" em tbl.contr./tabstr.
Altura 3
Comprimento Visível 3
Linha 1
Coluna 6
Formato UNIT
Linhas mínimas 3
Texto ___
INCLUIR TEXTO "/PWS/ZYCIE495-UM_QTD" em tbl.contr./tabstr.
Altura 3
Comprimento Visível 2
Linha 1
Coluna 6
Formato CHAR
Texto UM
INCLUIR CAMPO TEXTO "/PWS/ZYCIE495-VLFOB" em tbl.contr./tabstr.
Altura 31
Comprimento Visível 31
Linha 1
Coluna 10
Formato CURR
Campo referência /PWS/ZYCIE495-WAERS
Linhas mínimas 23
Colunas mínimas 2
Texto _______________________________
INCLUIR TEXTO "/PWS/ZYCIE495-VLFOB" em tbl.contr./tabstr.
Altura 31
Comprimento Visível 16
Linha 1
Coluna 10
Formato CHAR
Texto Valor Comprovado
INCLUIR CAMPO TEXTO "/PWS/ZYCIE495-WAERS" em tbl.contr./tabstr.
Altura 5
Comprimento Visível 5
Linha 1
Coluna 11
Formato CUKY
Linhas mínimas 5
Texto _____
INCLUIR TEXTO "/PWS/ZYCIE495-WAERS" em tbl.contr./tabstr.
Altura 5
Comprimento Visível 15
Linha 1
Coluna 11
Formato CHAR
Texto Moeda
INCLUIR CONTROLE DE TABELA "TC_TL249"
Altura 20
Comprimento Visível 114
Linha 1
Coluna 2
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0249
PROCESS BEFORE OUTPUT.
* >> Início da inclusão:
MODULE STATUS_0249.
LOOP AT itab_zycit495t WITH CONTROL tc_tl249
CURSOR tc_tl249-current_line.
MODULE preenche_249.
ENDLOOP .
* << Fim da inclusão
PROCESS AFTER INPUT.
* >> Início da inclusão:
LOOP AT itab_zycit495t .
MODULE preenche_zycit495.
ENDLOOP .
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0250
INCLUIR SUB-TELA 0250
Descrição SS - Resumo Exportação(Intermediario-Importador
Tela seguinte 0250
Altura atual (linhas) 22
Largura atual (colunas) 128
INCLUIR CONTROLE DE TABELA "TC_RESINT"
Altura 20
Comprimento Visível 128
Linha 1
Coluna 2
INCLUIR TEXTO "/PWS/ZYCIE495-CODIGO" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 7
Linha 1
Coluna 1
Formato CHAR
Texto Produto
INCLUIR TEXTO "/PWS/ZYCIE495-NCM" em tbl.contr./tabstr.
Altura 16
Comprimento Visível 3
Linha 1
Coluna 2
Formato CHAR
Texto NCM
INCLUIR TEXTO "/PWS/ZYCIE495-QTD_ITEN" em tbl.contr./tabstr.
Altura 30
Comprimento Visível 10
Linha 1
Coluna 3
Formato CHAR
Texto Quantidade
INCLUIR TEXTO "/PWS/ZYCIE495-UM_QTD" em tbl.contr./tabstr.
Altura 3
Comprimento Visível 2
Linha 1
Coluna 4
Formato CHAR
Texto UM
INCLUIR TEXTO "/PWS/ZYCIE495-PESO" em tbl.contr./tabstr.
Altura 19
Comprimento Visível 15
Linha 1
Coluna 5
Formato CHAR
Texto Peso líquido
INCLUIR TEXTO "/PWS/ZYCIE495-MEINS" em tbl.contr./tabstr.
Altura 3
Comprimento Visível 2
Linha 1
Coluna 6
Formato CHAR
Texto UM
INCLUIR TEXTO "/PWS/ZYCIE495-VLFOB" em tbl.contr./tabstr.
Altura 31
Comprimento Visível 5
Linha 1
Coluna 7
Formato CHAR
Texto Valor
INCLUIR TEXTO "/PWS/ZYCIE495-WAERS" em tbl.contr./tabstr.
Altura 5
Comprimento Visível 15
Linha 1
Coluna 8
Formato CHAR
Texto Moeda
INCLUIR CAIXA DE VERIFICAÇÃO "V_MARK2" em tbl.contr./tabstr.
Altura 1
Comprimento Visível 1
Linha 1
Formato CHAR
Texto _
INCLUIR CAMPO TEXTO "/PWS/ZYCIE495-CODIGO" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 1
Formato CHAR
Linhas mínimas 10
Texto __________
INCLUIR CAMPO TEXTO "/PWS/ZYCIE495-NCM" em tbl.contr./tabstr.
Altura 16
Comprimento Visível 16
Linha 1
Coluna 2
Formato CHAR
Linhas mínimas 16
Texto ________________
INCLUIR CAMPO TEXTO "/PWS/ZYCIE495-QTD_ITEN" em tbl.contr./tabstr.
Altura 30
Comprimento Visível 30
Linha 1
Coluna 3
Formato QUAN
Campo referência /PWS/ZYCIE495-MEINS
Linhas mínimas 23
Colunas mínimas 5
Texto ___.___.___.___.___.___,_____V
INCLUIR CAMPO TEXTO "/PWS/ZYCIE495-UM_QTD" em tbl.contr./tabstr.
Altura 3
Comprimento Visível 3
Linha 1
Coluna 4
Formato UNIT
Linhas mínimas 3
Texto ___
INCLUIR CAMPO TEXTO "/PWS/ZYCIE495-PESO" em tbl.contr./tabstr.
Altura 19
Comprimento Visível 19
Linha 1
Coluna 5
Formato QUAN
Campo referência /PWS/ZYCIE495-UM_QTD
Linhas mínimas 15
Colunas mínimas 3
Texto ___.___.___.___,___
INCLUIR CAMPO TEXTO "/PWS/ZYCIE495-MEINS" em tbl.contr./tabstr.
Altura 3
Comprimento Visível 3
Linha 1
Coluna 6
Formato UNIT
Linhas mínimas 3
Texto ___
INCLUIR CAMPO TEXTO "/PWS/ZYCIE495-VLFOB" em tbl.contr./tabstr.
Altura 31
Comprimento Visível 31
Linha 1
Coluna 7
Formato CURR
Campo referência /PWS/ZYCIE495-WAERS
Linhas mínimas 23
Colunas mínimas 2
Texto _______________________________
INCLUIR CAMPO TEXTO "/PWS/ZYCIE495-WAERS" em tbl.contr./tabstr.
Altura 5
Comprimento Visível 5
Linha 1
Coluna 8
Formato CUKY
Linhas mínimas 5
Texto _____
INCLUIR OKCODE ""
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0250
* >> Início da inclusão:
PROCESS BEFORE OUTPUT.
LOOP AT itab_resint WITH CONTROL tc_resint
CURSOR tc_resint-current_line.
MODULE: preenche_estrutura_0250.
ENDLOOP.
PROCESS AFTER INPUT.
LOOP AT itab_resint.
MODULE: retorna_estrutura_0250.
ENDLOOP.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0251
INCLUIR SUB-TELA 0251
Descrição SS - Exportação (Intermediario-Importador)
Tela seguinte 0251
Altura atual (linhas) 27
Largura atual (colunas) 120
INCLUIR TABSTRIP "TC_INT_IMP"
Altura 20
Comprimento Visível 116
Linha 1
Coluna 3
Linhas mínimas 20
Colunas mínimas 110
INCLUIR BOTÃO "TS_RES" em tbl.contr./tabstr.
Comprimento Visível 6
Linha 1
Coluna 1
Formato CHAR
Campo referência SS02
Texto Resumo
Código função TS_RES
INCLUIR BOTÃO "TS_DET" em tbl.contr./tabstr.
Comprimento Visível 7
Linha 1
Coluna 2
Formato CHAR
Campo referência SS02
Texto Detalhe
Código função TS_DET
INCLUIR ÁREA DE SUB-TELA "SS02" em tbl.contr./tabstr.
Altura 17
Comprimento Visível 114
Linha 3
Coluna 4
Linhas mínimas 3
Colunas mínimas 3
INCLUIR OKCODE ""
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0251
* >> Início da inclusão:
PROCESS BEFORE OUTPUT.
MODULE STATUS_0251.
CALL SUBSCREEN ss02 INCLUDING modul dynp_251.
PROCESS AFTER INPUT.
CALL SUBSCREEN ss02.
MODULE USER_COMMAND_0251.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
ENDIF.
IF screen-name EQ 'FS_ADITIVOS' AND v_tcode2 EQ '/PWS/ZYCI040_C'.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
IF screen-name EQ 'FS_GRAPH' AND v_tcode2 EQ '/PWS/ZYCI040_C'.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
IF screen-group2 EQ 'CLI' AND
* >> Início da exclusão: FORM CHECK_FIELD_0200
( /pws/zycie244-tipo NE 'N' OR (
/pws/zycie244-tipo EQ 'N' AND
/pws/zycie244-modalidade EQ 'I' ) ).
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0200
/pws/zycie244-tipo NE 'N'.
* << Fim da inclusão
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDFORM.
FORM check_field_0201.
LOOP AT SCREEN.
IF screen-group1 NE 'NEX'.
screen-input = v_status2.
MODIFY SCREEN.
...
...
MODIFY SCREEN.
ENDIF.
IF screen-name EQ 'V_DESCR_CP2'.
screen-invisible = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
IF /pws/zycie244-tipo EQ 'G'.
IF screen-name EQ '/PWS/ZYCIE245C-QTD_ITEN'
OR screen-name EQ '/PWS/ZYCIE245C-QTD_NCM'
* >> Início da inclusão: FORM CHECK_FIELD_0204
OR screen-name EQ 'V_RQTD_TEXT'
OR screen-name EQ 'V_SQTD_TEXT'
* << Fim da inclusão
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.
...
...
LOOP AT itab_zycit432.
CLEAR: itab_zycit432-qtd_compv.
LOOP AT itab_zycit373 WHERE docnum EQ itab_zycit432-docnum
AND itmnum EQ itab_zycit432-itmnum.
itab_zycit432-qtd_compv = itab_zycit432-qtd_compv +
itab_zycit373-qtd_iten.
ENDLOOP.
MODIFY itab_zycit432.
ENDLOOP.
ENDIF.
* >> Início da inclusão: FORM TRATA_BUTTON_ENTE2
IF NOT /pws/zycie244-nratoc IS INITIAL.
* << Fim da inclusão
SELECT * FROM /pws/zycit371
INTO TABLE itab_zycit371
WHERE nratoc EQ /pws/zycie244-nratoc. "#EC CI_NOFIELD
* >> Início da inclusão: FORM TRATA_BUTTON_ENTE2
ENDIF.
* << Fim da inclusão
REFRESH itab_zycit250. CLEAR itab_zycit250.
...
...
ELSE.
v_numatoinf = 'S'.
ENDIF.
PERFORM lock_record2.
ENDIF.
IF v_otheruser IS INITIAL.
ENDIF.
wa_zycit244 = /pws/zycie244.
PERFORM carrega_tabela279.
PERFORM move_realiz.
* >> Início da inclusão: FORM TRATA_BUTTON_ENTE2
PERFORM sel_iterm_import.
* << Fim da inclusão
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
( /pws/zycie244-tipo EQ 'N' OR
/pws/zycie244-tipo EQ 'G' OR
...
...
INTO itab_zycit247-j_1bnbm
WHERE matnr EQ itab_zycit247-codmat
AND werks EQ itab_zycit247-werks.
ENDSELECT.
MODIFY itab_zycit247.
ENDIF.
ENDLOOP.
PERFORM apura_totais_0206.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM BUSCA_DADOS_COMPOSICAO
PERFORM sel_iterm_import.
* << Fim da inclusão
SELECT * FROM /pws/zycit250 APPENDING TABLE itab_zycit250
WHERE nrseqd EQ /pws/zycie244-nrcompos.
itab_zycit250-nrseqd = /pws/zycie244-nrseqd.
MODIFY itab_zycit250 TRANSPORTING nrseqd
WHERE nrseqd NE /pws/zycie244-nrseqd.
SORT itab_zycit250 BY codagrup.
DELETE ADJACENT DUPLICATES FROM itab_zycit250 COMPARING codagrup.
PERFORM carrega_di_composta2.
PERFORM carrega_re_composta2.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F03
...
WHERE uname EQ sy-uname )
AND stasis EQ 'P'.
IF sy-subrc <> 0.
SELECT COUNT(*)
FROM /pws/zycit285
WHERE cpf IN ( select CPF from /PWS/ZYCET184
WHERE uname EQ sy-uname )
AND stasis EQ 'P'. "#EC CI_NOFIELD
ENDIF.
ENDFORM.
* >> Início da inclusão:
FORM sel_iterm_import.
REFRESH: itab_zycit495, itab_resint.
SELECT * FROM /pws/zycit495 INTO TABLE itab_zycit495
WHERE nrseqd EQ /pws/zycie244-nrcompos.
LOOP AT itab_zycit495.
itab_resint-codigo = itab_zycit495-codigo.
itab_resint-qtd_iten = itab_zycit495-qtd_iten.
itab_resint-um_qtd = itab_zycit495-um_qtd.
itab_resint-peso = itab_zycit495-peso.
itab_resint-meins = itab_zycit495-meins.
itab_resint-vlfob = itab_zycit495-vlfob.
itab_resint-waers = itab_zycit495-waers.
itab_resint-ncm = itab_zycit495-ncm.
COLLECT itab_resint.
ENDLOOP.
ENDFORM.
FORM trata_det_495.
REFRESH itab_zycit495t.
itab_zycit495t[] = itab_zycit495[].
DELETE itab_zycit495t WHERE codigo NE itab_resint-codigo .
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040I01
...
ENDIF.
CASE ok_code2.
WHEN 'BACK'.
PERFORM check_button_back2.
WHEN 'FS_CABEC2'.
pressed_tab_2a = ok_code2.
dynpronr2a = '0201'.
WHEN 'FS_CIMP2'.
PERFORM trata_tab_imp2.
WHEN 'FS_MEXP2'.
* >> Início da inclusão: MODULE USER_COMMAND_0200
IF /pws/zycie244-tipo EQ 'N' AND
/pws/zycie244-modalidade EQ 'I'.
dynpronr2a = '0251'.
* << Fim da inclusão
pressed_tab_2a = ok_code2.
* >> Início da inclusão: MODULE USER_COMMAND_0200
dynp_251 = '0250'.
pressed_tab_12 = 'FS_RES'.
ELSE.
pressed_tab_2a = ok_code2.
* << Fim da inclusão
dynpronr2a = '0205'.
pressed_tab_4a = 'FS_MAT2'.
dynpronr4a = '0206'.
* >> Início da inclusão: MODULE USER_COMMAND_0200
ENDIF.
* << Fim da inclusão
WHEN 'FS_ADITIVOS'.
pressed_tab_2a = ok_code2.
dynpronr2a = '0212'.
WHEN 'FS_GRAPH'.
pressed_tab_2a = ok_code2.
dynpronr2a = '0213'.
WHEN 'FS_MERC'.
* >> Início da inclusão: MODULE USER_COMMAND_0200
IF /pws/zycie244-tipo EQ 'N' AND
/pws/zycie244-modalidade EQ 'I'.
pressed_tab_2a = ok_code2.
dynpronr2a = '0205'.
pressed_tab_4a = 'FS_MAT2'.
dynpronr4a = '0206'.
ELSE.
* << Fim da inclusão
PERFORM trata_tab_imp2_merc.
pressed_tab_2a = ok_code2.
dynpronr2a = '0226'.
* >> Início da inclusão: MODULE USER_COMMAND_0200
ENDIF.
* << Fim da inclusão
WHEN 'COMPR'.
PERFORM verifica_erro_senha.
IF sy-subrc = 0.
MESSAGE i015 WITH text-318 text-319.
...
...
v_inicial = 'S'.
EXIT.
ENDLOOP.
IF v_inicial EQ 'S'.
PERFORM valor_real_scambio.
ENDIF.
PERFORM trata_tab_realiz2.
WHEN 'FS_RESMAT'.
PERFORM trata_tab_resmat2.
WHEN 'FS_RECOMP2'.
* >> Início da inclusão: MODULE USER_COMMAND_0205
dynpronr7a = '0218'.
pressed_tab_7a = 'FS_RESRE2'.
* << Fim da inclusão
PERFORM trata_tab_recomp2.
ENDCASE.
ENDMODULE.
MODULE insert_line_comprov_me INPUT.
CLEAR v_centro.
IF NOT /pws/zycie247-codmat IS INITIAL.
SELECT matnr FROM /pws/zycit281
INTO TABLE itab_matnr
WHERE matnr EQ /pws/zycie247-codmat.
IF sy-dbcnt > 1.
...
...
LOOP AT itab_zycit279_ap_aux.
/pws/zycie245-qtd_transf = /pws/zycie245-qtd_transf +
itab_zycit279_ap_aux-qtd_transf.
itab_zycit245-qtd_transf = /pws/zycie245-qtd_transf.
itab_zycit245-transf = /pws/zycie245-transf.
ENDLOOP.
MODIFY itab_zycit245 TRANSPORTING qtd_transf transf
WHERE nritem EQ /pws/zycie245-nritem.
ENDIF.
ENDMODULE.
* >> Início da inclusão:
MODULE user_command_0251 INPUT.
CASE ok_code2.
WHEN 'TS_RES'.
dynp_251 = '0250'.
pressed_tab_12 = ok_code2.
CLEAR: ok_code2.
WHEN 'TS_DET'.
READ TABLE itab_resint WITH KEY mark = 'X'.
IF sy-subrc NE 0.
MESSAGE w015 WITH text-102.
CLEAR: ok_code2.
EXIT.
ENDIF.
PERFORM trata_det_495.
dynp_251 = '0249'.
pressed_tab_12 = ok_code2.
CLEAR: ok_code2.
ENDCASE.
ENDMODULE.
MODULE preenche_zycit495 INPUT.
ENDMODULE.
MODULE retorna_estrutura_0250 INPUT.
IF v_mark2 EQ 'X'.
CLEAR: itab_resint-mark.
MODIFY itab_resint TRANSPORTING mark
WHERE mark EQ 'X'.
ENDIF.
itab_resint-mark = v_mark2.
MODIFY itab_resint INDEX tc_resint-current_line.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040O01
...
ELSE.
MOVE: '0' TO v_status2 ,
'1' TO v_status2a.
ENDIF.
SET PF-STATUS 'ST0002'.
SET TITLEBAR 'TITLE1' WITH text-058.
ENDMODULE.
MODULE apura_totais_0201 OUTPUT.
PERFORM: apura_totais_0201,
seleciona_tipo.
* >> Início da inclusão: MODULE APURA_TOTAIS_0201
IF /pws/zycie244-tipo EQ 'N' AND
/pws/zycie244-modalidade EQ 'I'.
fs_recomp2 = text-331.
v_text201_03 = v_text201_01 = text-328.
v_text201_04 = v_text201_02 = text-329.
ELSE.
fs_recomp2 = text-330.
v_text201_03 = v_text201_01 = text-326.
v_text201_04 = v_text201_02 = text-327.
ENDIF.
* << Fim da inclusão
IF NOT /pws/zycie244-vcto_fn IS INITIAL.
IF /pws/zycie244-vcto_fn <= sy-datum.
CLEAR v_dias.
ELSE.
v_dias = /pws/zycie244-vcto_fn - sy-datum.
IF /pws/zycie244-vcto_fn <= sy-datum.
IF /pws/zycie244-fechado IS INITIAL.
MESSAGE i015 WITH text-244.
ENDIF.
CLEAR v_dias.
...
...
MODULE status_0247 OUTPUT.
SET PF-STATUS 'ST0208'.
DELETE itab_zycit250 WHERE codagrup EQ space.
DESCRIBE TABLE itab_zycit250 LINES tc_areas_n-lines.
tc_areas_n-lines = tc_areas_n-lines + 10.
ENDMODULE.
MODULE status_0248 OUTPUT.
SET PF-STATUS 'ST0248'.
SET TITLEBAR '248'.
ENDMODULE.
* >> Início da inclusão:
MODULE status_0251 OUTPUT.
tc_int_imp-activetab = pressed_tab_12.
ENDMODULE.
MODULE preenche_249 OUTPUT.
/pws/zycie495 = itab_zycit495t.
ENDMODULE.
MODULE preenche_estrutura_0250 OUTPUT.
/pws/zycie495-codigo = itab_resint-codigo.
/pws/zycie495-qtd_iten = itab_resint-qtd_iten.
/pws/zycie495-um_qtd = itab_resint-um_qtd.
/pws/zycie495-peso = itab_resint-peso.
/pws/zycie495-meins = itab_resint-meins.
/pws/zycie495-vlfob = itab_resint-vlfob.
/pws/zycie495-waers = itab_resint-waers.
/pws/zycie495-ncm = itab_resint-ncm.
v_mark2 = itab_resint-mark.
ENDMODULE.
MODULE status_0219 OUTPUT.
LOOP AT tc_detre2-cols INTO wa_cols2.
IF wa_cols2-screen-group4 = 'INT'.
IF /pws/zycie244-modalidade EQ 'I' AND
/pws/zycie244-tipo EQ 'N'.
wa_cols2-invisible = 1.
ELSE.
wa_cols2-invisible = 0.
ENDIF.
ENDIF.
MODIFY tc_detre2-cols FROM wa_cols2.
ENDLOOP.
DESCRIBE TABLE itab_det_remat LINES tc_detre2-lines.
ENDMODULE.
MODULE status_0249 OUTPUT.
DESCRIBE TABLE itab_zycit495t LINES tc_tl249-lines.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040TOP2
...
tc_int_exp TYPE TABLEVIEW USING SCREEN '0228',
tc_centro_ei TYPE TABLEVIEW USING SCREEN '0243',
tc_res_apo TYPE TABLEVIEW USING SCREEN '0237',
tc_perda TYPE TABLEVIEW USING SCREEN '0238',
tc_transf TYPE TABLEVIEW USING SCREEN '0239',
tc_inf_exp TYPE TABLEVIEW USING SCREEN '0241',
tc_inf_imp TYPE TABLEVIEW USING SCREEN '0242',
tc_lanc TYPE TABLEVIEW USING SCREEN '0244',
tc_areas_n TYPE TABLEVIEW USING SCREEN '0247',
tc_setlt TYPE TABLEVIEW USING SCREEN '0400'.
* >> Início da inclusão:
CONTROLS: tc_int_imp TYPE TABSTRIP.
CONTROLS tc_tl249 TYPE TABLEVIEW USING SCREEN '0249'.
CONTROLS tc_resint TYPE TABLEVIEW USING SCREEN '0250'.
* << Fim da inclusão
DATA: ok_code2 LIKE sy-ucomm ,
v_tcode2_aux ,
v_ico2 TYPE icons-text ,
v_icoicms TYPE icons-text ,
v_icone2 TYPE iconname ,
v_werks2 LIKE /pws/zycie244-werks ,
v_status2(1) TYPE c VALUE '1' ,
v_status2a TYPE i VALUE '0' ,
pressed_tab_2a LIKE sy-ucomm VALUE 'FS_CABEC2' ,
pressed_tab_3a LIKE sy-ucomm VALUE 'FS_COMPI2' ,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040X01
TABLES: /pws/zycie244,
t001 ,
/pws/zycit321 ,
/pws/zycie245 ,
/pws/zycie247 ,
/pws/zycie245c,
/pws/zycie245d,
/pws/zycit245 ,
/pws/zycit244.
* >> Início da inclusão:
TABLES /pws/zycie495 .
* << Fim da inclusão
DATA: BEGIN OF COMMON PART a.
DATA: BEGIN OF itab_zycit468 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit468.
DATA: END OF itab_zycit468.
DATA: BEGIN OF itab_zycit246 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit246 .
DATA: mark.
DATA: END OF itab_zycit246 .
DATA: BEGIN OF itab_zycit246_final OCCURS 0.
INCLUDE STRUCTURE /pws/zycit246 .
...
...
DATA: END OF itab_zycit247 .
DATA: BEGIN OF itab_zycit247_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit247 .
DATA: markme(1) TYPE c .
DATA: END OF itab_zycit247_aux .
DATA : BEGIN OF itab_lista OCCURS 0 .
DATA : matexp LIKE mara-matnr ,
matimp LIKE mara-matnr ,
usagem LIKE /pws/zycit245-qtd_iten .
DATA : END OF itab_lista .
* >> Início da inclusão:
DATA itab_zycit495 TYPE /pws/zycit495 OCCURS 0 WITH HEADER LINE.
DATA itab_zycit495t TYPE /pws/zycit495 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_resint OCCURS 0.
DATA: codigo TYPE /pws/zycit495-codigo,
qtd_iten TYPE /pws/zycit495-qtd_iten,
um_qtd TYPE /pws/zycit495-um_qtd,
peso TYPE /pws/zycit495-peso,
meins TYPE /pws/zycit495-meins,
vlfob TYPE /pws/zycit495-vlfob,
waers TYPE /pws/zycit495-waers,
ncm TYPE /pws/zycit495-ncm,
mark TYPE c.
DATA: END OF itab_resint.
DATA: dynp_251(4) TYPE c VALUE '0250'.
data: pressed_tab_12 LIKE sy-ucomm VALUE 'TS_DET' .
data: v_text201_01(20) type c.
data: v_text201_02(20) type c.
data: v_text201_03(20) type c.
data: v_text201_04(20) type c.
data: FS_RECOMP2(20) type c Value 'RE Composta'.
* << Fim da inclusão
DATA: wa_zycit2382 LIKE /pws/zycie238 ,
wa_zycit2582 LIKE /pws/zycie258 .
DATA: v_nritem(5) TYPE c ,
v_verificp2(1) TYPE c VALUE 'N' ,
v_tcambial(16) TYPE c ,
V_Rqtd_TEXT(22) ,
V_sqtd_TEXT(22) ,
v_vlfreter_imp TYPE p DECIMALS 2 ,
v_vlsegr_imp TYPE p DECIMALS 2 ,
v_vlfrete TYPE p DECIMALS 2 ,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI040
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 326
Texto: (11 caracteres)
"FOB Export:"
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 327
Texto: (14 caracteres)
"Com.Ag.Export:"
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 328
Texto: (16 caracteres)
"FOB Merc.Interno"
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 329
Texto: (7 caracteres)
"Com.Ag."
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 330
Texto: (11 caracteres)
"RE Composta"
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 331
Texto: (11 caracteres)
"NF Composta"
Comprimento máximo: 20