CE PLUS - Nota 006667
Módulo: DRAWBACK
Funcionalidade: Composição
Data/Hora da Publicação: 03/06/2008 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:25:56
Descrição da Nota: DESENVOLVIMENTO COMPOSIÇÃO ISENÇÃO INTERMEDIARIO IMPORTADOR
Sintoma
Desenvolvimento composição isenção intermediario Importador
Solução
Desenvolvimento composição isenção intermediario Importador
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06667 Data: 03/06/2008 Hora: 08:11:10
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06667
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00050
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06470 - 00001 - 7.0 - 00005 - AJUSTES NO CALCULO DO VALOR E PESO LIQUIDO PARA COMPOSIÇÃO ISENÇÃ
06496 - 00002 - 7.0 - 00005 - PREENCHIMENTO DO CAMPO GRUPO DE MATERIAIS NO RESUMO DE EXPORTAÇÃO
06661 - 00003 - 7.0 - 00005 - AJUSTES GERAIS NO ATO CONCESSÓRIO.
----------------------------------------------------------------------------------------------------
DESENVOLVIMENTO COMPOSIÇÃO ISENÇÃO INTERMEDIARIO IMPORTADOR
----------------------------------------------------------------------------------------------------
Palavras Chave:
INTERMEDIARIO - IMPORTADOR - COMPOSIÇÃO - ISENÇÃO
/PWS/SAPMZYCI064
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI064 0300
DYNP /PWS/SAPMZYCI064 0301
DYNP /PWS/SAPMZYCI064 0305
DYNP /PWS/SAPMZYCI064 0322
DYNP /PWS/SAPMZYCI064 0323
DYNP /PWS/SAPMZYCI064 0324
DYNP /PWS/SAPMZYCI064 0325
DYNP /PWS/SAPMZYCI064 0326
DYNP /PWS/SAPMZYCI064 0327
REPS /PWS/MZYCI063TOP3
REPS /PWS/MZYCI064F03
REPS /PWS/MZYCI064I01
REPS /PWS/MZYCI064O01
REPS /PWS/MZYCI064TOP
REPS /PWS/MZYCI064TOP3
REPS /PWS/MZYCI064X01
REPT /PWS/SAPMZYCI064
TABD /PWS/ZYCIE258
TABD /PWS/ZYCIE259
TABD /PWS/ZYCIE259C
TABD /PWS/ZYCIE259D
TABD /PWS/ZYCIT258
TABD /PWS/ZYCIT259
TABL /PWS/ZYCIE495
TABL /PWS/ZYCIT495
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI064 0300
MODIFICAR BOTÃO "FS_IMPORT3" em tbl.contr./tabstr.
Coluna 4
MODIFICAR BOTÃO "FS_MERC3" em tbl.contr./tabstr.
Coluna 5
INCLUIR BOTÃO "FS_NOTINT" em tbl.contr./tabstr.
Comprimento Visível 13
Linha 1
Coluna 3
Formato CHAR
Campo referência SS_SUB1_3
Grupo 1 NEX
Texto Notas Fiscais
Código função FS_NOTINT
MODIFICAR TABSTRIP "TS_CABEC3"
Colunas mínimas 118
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI064 0301
MODIFICAR OKCODE ""
INCLUIR CAMPO TEXTO "/PWS/ZYCIE258-KUNNR"
Comprimento Visível 10
Linha 11
Coluna 23
Formato CHAR
Linhas mínimas 10
Texto __________
Código função
INCLUIR TEXTO "/PWS/ZYCIE258-KUNNR"
Comprimento Visível 11
Linha 11
Coluna 6
Formato CHAR
Texto Cod.Cliente
Código função
INCLUIR CAMPO TEXTO "V_NKUNNR3"
Comprimento Visível 32
Linha 11
Coluna 34
Formato CHAR
Texto ________________________________
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0301
PROCESS BEFORE OUTPUT.
MODULE set_screen3.
PROCESS AFTER INPUT.
CHAIN.
FIELD /pws/zycie258-werks MODULE trata_centro3.
FIELD /pws/zycie258-lifnr MODULE trata_fornec3.
FIELD /pws/zycie258-bukrs MODULE trata_emp3.
* >> Início da inclusão:
FIELD /pws/zycie258-kunnr MODULE trata_clente.
* << Fim da inclusão
ENDCHAIN.
MODULE user_command_0301.
FIELD /pws/zycie258-codagrup MODULE altera_areas ON REQUEST.
process on value-request.
field /pws/zycie258-tipo2 module trata_matchcode3.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI064 0305
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259D-DTEMB"
Grupo 3 I
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259D-DTRE"
Grupo 3 I
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259D-LOTE"
Grupo 3 I
MODIFICAR TEXTO "/PWS/ZYCIE259D-LOTE"
Grupo 3 I
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259D-NFNUM"
Comprimento Visível 5
Texto _____
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259D-NRRE"
Grupo 3 I
MODIFICAR TEXTO "/PWS/ZYCIE259D-NRRE"
Grupo 3 I
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259D-NRSEQ"
Grupo 3 I
MODIFICAR TEXTO "/PWS/ZYCIE259D-NRSEQ"
Grupo 3 I
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259D-POSNR"
Grupo 3 I
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259D-STLAL"
Grupo 3 I
MODIFICAR TEXTO "/PWS/ZYCIE259D-STLAL"
Grupo 3 I
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259D-STLAN"
Grupo 3 I
Texto
MODIFICAR TEXTO "/PWS/ZYCIE259D-STLAN"
Grupo 3 I
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259D-STLNR"
Grupo 3 I
MODIFICAR TEXTO "/PWS/ZYCIE259D-STLNR"
Grupo 3 I
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259D-VBELN_VA"
Grupo 3 I
MODIFICAR TEXTO "/PWS/ZYCIE259D-VBELN_VA"
Grupo 3 I
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259D-VBELN_VF"
Grupo 3 I
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE259D-WERKS"
Grupo 3 I
MODIFICAR TEXTO "/PWS/ZYCIE259D-WERKS"
Grupo 3 I
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI064 0322
INCLUIR SUB-TELA 0322
Descrição SS - Exportações Itermediario
Tela seguinte 0322
Altura atual (linhas) 27
Largura atual (colunas) 120
INCLUIR TABSTRIP "TS_EXP3"
Altura 19
Comprimento Visível 115
Linha 1
Coluna 2
Linhas mínimas 16
Colunas mínimas 86
INCLUIR BOTÃO "FS_RES" em tbl.contr./tabstr.
Comprimento Visível 6
Linha 1
Coluna 1
Formato CHAR
Campo referência SS_SUB2_3
Texto Resumo
Código função FS_RES
INCLUIR BOTÃO "FS_DET" em tbl.contr./tabstr.
Comprimento Visível 8
Linha 1
Coluna 2
Formato CHAR
Campo referência SS_SUB2_3
Texto Detalhes
Código função FS_DET
INCLUIR ÁREA DE SUB-TELA "SS_SUB2_3" em tbl.contr./tabstr.
Altura 16
Comprimento Visível 113
Linha 3
Coluna 3
Linhas mínimas 3
Colunas mínimas 3
INCLUIR OKCODE ""
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0322
* >> Início da inclusão:
process before output.
module: set_screen3,
set_page322.
call subscreen ss_sub2_3 including modul dynpronr3c_5.
process after input.
call subscreen ss_sub2_3.
module user_command_0322.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI064 0323
INCLUIR SUB-TELA 0323
Descrição SS - Resumo intermediario Exportações
Tela seguinte 0323
Altura atual (linhas) 27
Largura atual (colunas) 120
INCLUIR BOTÃO "BTN1_323"
Altura 2
Comprimento Visível 4
Linha 1
Coluna 2
Formato CHAR
Texto @11@
Código função DELEI
INCLUIR BOTÃO "BTN2_323"
Altura 2
Comprimento Visível 4
Linha 1
Coluna 5
Formato CHAR
Texto @7X@
Código função SELI
INCLUIR CONTROLE DE TABELA "TC_RES_INT"
Altura 15
Comprimento Visível 112
Linha 2
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_MARK" 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 0323
* >> Início da inclusão:
PROCESS BEFORE OUTPUT.
MODULE set_screen3.
MODULE STATUS_0323.
LOOP AT itab_resint WITH CONTROL tc_res_int
CURSOR tc_res_int-current_line.
MODULE: preenche_estrutura_0323.
ENDLOOP.
PROCESS AFTER INPUT.
LOOP AT itab_resint.
MODULE preenche_itab_resint.
ENDLOOP.
MODULE user_command_0323.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI064 0324
INCLUIR SUB-TELA 0324
Descrição SS - Detalhes Notas Intermediario
Tela seguinte 0324
Altura atual (linhas) 27
Largura atual (colunas) 113
INCLUIR TEXTO "/PWS/ZYCIE259D-CODMAT"
Comprimento Visível 13
Linha 1
Coluna 2
Formato CHAR
Texto Cód. Material
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE259D-CODMAT"
Comprimento Visível 18
Linha 1
Coluna 16
Formato CHAR
Grupo 1 NEX
Linhas mínimas 18
Texto __________________
Código função
INCLUIR TEXTO "V_TXTDESCR1"
Comprimento Visível 9
Linha 1
Coluna 51
Formato CHAR
Texto Descrição
Código função
INCLUIR CAMPO TEXTO "V_DESCR1_0304"
Comprimento Visível 40
Linha 1
Coluna 61
Formato CHAR
Grupo 1 NEX
Texto ________________________________________
INCLUIR TEXTO "/PWS/ZYCIE259D-QTD_ITEN"
Comprimento Visível 13
Linha 2
Coluna 2
Formato CHAR
Texto Qtde. Total
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE259D-QTD_ITEN"
Comprimento Visível 18
Linha 2
Coluna 16
Formato QUAN
Campo referência /PWS/ZYCIE259D-MEINS
Grupo 1 NEX
Linhas mínimas 23
Colunas mínimas 5
Texto _.___.___.___,____
INCLUIR CAMPO TEXTO "/PWS/ZYCIE259D-MEINS"
Comprimento Visível 3
Linha 2
Coluna 35
Formato UNIT
Grupo 1 NEX
Linhas mínimas 3
Texto ___
Código função
INCLUIR TEXTO "/PWS/ZYCIE259D-VLFOB"
Comprimento Visível 9
Linha 2
Coluna 51
Formato CHAR
Texto FOB Total
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE259D-VLFOB"
Altura 16
Comprimento Visível 31
Linha 2
Coluna 61
Formato CURR
Campo referência /PWS/ZYCIE259D-WAERSFOB
Grupo 1 NEX
Linhas mínimas 23
Colunas mínimas 2
Texto _______________________________
INCLUIR CAMPO TEXTO "/PWS/ZYCIE259D-WAERSFOB"
Comprimento Visível 5
Linha 2
Coluna 78
Formato CUKY
Grupo 1 NEX
Linhas mínimas 5
Texto _____
Código função
INCLUIR BOTÃO "BTN303_1"
Altura 2
Comprimento Visível 7
Linha 3
Coluna 2
Formato CHAR
Grupo 4 BTN
Texto @4B@ ##
Código função MALL
INCLUIR BOTÃO "BTN303_2"
Altura 2
Comprimento Visível 7
Linha 3
Coluna 5
Formato CHAR
Grupo 4 BTN
Texto @4D@ ##
Código função DALL
INCLUIR BOTÃO "BTN303_3"
Altura 2
Comprimento Visível 7
Linha 3
Coluna 8
Formato CHAR
Grupo 4 BTN
Texto @18@ ##
Código função EXCLM
INCLUIR CONTROLE DE TABELA "TC_DETALHE3"
Altura 13
Comprimento Visível 112
Linha 4
Coluna 2
INCLUIR TEXTO "/PWS/ZYCIE373-DOCNUM" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 12
Linha 1
Coluna 2
Formato CHAR
Texto Documento
INCLUIR TEXTO "/PWS/ZYCIE373-ITMNUM" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 12
Linha 1
Coluna 3
Formato CHAR
Texto Item
INCLUIR TEXTO "/PWS/ZYCIE259C-NFNUM" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 4
Linha 1
Coluna 4
Formato CHAR
Texto N.F.
INCLUIR TEXTO "/PWS/ZYCIE259C-SERIE" em tbl.contr./tabstr.
Altura 5
Comprimento Visível 15
Linha 1
Coluna 5
Formato CHAR
Texto Série
INCLUIR TEXTO "/PWS/ZYCIE259C-MEINS" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 3
Linha 1
Coluna 6
Formato CHAR
Texto UMB
INCLUIR TEXTO "/PWS/ZYCIE259C-QTD_ITEN" em tbl.contr./tabstr.
Altura 17
Comprimento Visível 14
Linha 1
Coluna 7
Formato CHAR
Texto Quantidade UMB
INCLUIR TEXTO "/PWS/ZYCIE259C-MEINS_NCM" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 12
Linha 1
Coluna 8
Formato CHAR
Texto UM NCM
INCLUIR TEXTO "/PWS/ZYCIE259C-QTD_NCM" em tbl.contr./tabstr.
Altura 17
Comprimento Visível 14
Linha 1
Coluna 9
Formato CHAR
Texto Quantidade NCM
INCLUIR TEXTO "/PWS/ZYCIE259C-VBELN_VA" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 10
Formato CHAR
Texto Doc. Venda
INCLUIR TEXTO "/PWS/ZYCIE259C-POSNR" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 15
Linha 1
Coluna 11
Formato CHAR
Texto Item
INCLUIR TEXTO "/PWS/ZYCIE259C-VBELN_VL" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 15
Linha 1
Coluna 12
Formato CHAR
Texto Fornecimento
INCLUIR TEXTO "/PWS/ZYCIE259C-POSNL" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 15
Linha 1
Coluna 13
Formato CHAR
Texto Item
INCLUIR TEXTO "/PWS/ZYCIE259C-VBELN_VF" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 16
Linha 1
Coluna 14
Formato CHAR
Texto Doc. Fat.
INCLUIR TEXTO "/PWS/ZYCIE373-IT_DOCFAT" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 15
Linha 1
Coluna 15
Formato CHAR
Texto Item
INCLUIR TEXTO "/PWS/ZYCIE373-MATNR" em tbl.contr./tabstr.
Altura 18
Comprimento Visível 15
Linha 1
Coluna 16
Formato CHAR
Texto Material
INCLUIR TEXTO "/PWS/ZYCIE259C-VLFOB" em tbl.contr./tabstr.
Altura 20
Comprimento Visível 15
Linha 1
Coluna 17
Formato CHAR
Texto Valor FOB - USD
INCLUIR CAIXA DE VERIFICAÇÃO "MARCD_L" em tbl.contr./tabstr.
Altura 1
Comprimento Visível 1
Linha 1
Formato CHAR
INCLUIR CAMPO TEXTO "V_ICO_DET3" em tbl.contr./tabstr.
Altura 3
Comprimento Visível 33
Linha 1
Coluna 1
Formato CHAR
Grupo 1 NEX
Texto @00@_____________________________
INCLUIR CAMPO TEXTO "/PWS/ZYCIE373-DOCNUM" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 2
Formato NUMC
Grupo 1 NEX
Grupo 4 INT
Linhas mínimas 10
Texto __________
INCLUIR CAMPO TEXTO "/PWS/ZYCIE373-ITMNUM" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 6
Linha 1
Coluna 3
Formato NUMC
Grupo 1 NEX
Grupo 4 INT
Linhas mínimas 6
Texto ______
INCLUIR CAMPO TEXTO "/PWS/ZYCIE259C-NFNUM" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 6
Linha 1
Coluna 4
Formato NUMC
Grupo 1 NEX
Linhas mínimas 6
Texto ______
INCLUIR CAMPO TEXTO "/PWS/ZYCIE259C-SERIE" em tbl.contr./tabstr.
Altura 5
Comprimento Visível 3
Linha 1
Coluna 5
Formato CHAR
Grupo 1 NEX
Linhas mínimas 3
Texto ___
INCLUIR CAMPO TEXTO "/PWS/ZYCIE259C-MEINS" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 3
Linha 1
Coluna 6
Formato UNIT
Grupo 1 NEX
Linhas mínimas 3
Texto ___
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE259C-QTD_ITEN" em tbl.contr./tabstr.
Altura 17
Comprimento Visível 30
Linha 1
Coluna 7
Formato QUAN
Campo referência /PWS/ZYCIE259C-MEINS
Grupo 1 NEX
Linhas mínimas 23
Colunas mínimas 5
Texto ___.___.___.___.___.___,_____V
INCLUIR CAMPO TEXTO "/PWS/ZYCIE259C-MEINS_NCM" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 3
Linha 1
Coluna 8
Formato UNIT
Grupo 1 NEX
Linhas mínimas 3
Texto ___
INCLUIR CAMPO TEXTO "/PWS/ZYCIE259C-QTD_NCM" em tbl.contr./tabstr.
Altura 17
Comprimento Visível 30
Linha 1
Coluna 9
Formato QUAN
Campo referência /PWS/ZYCIE259C-MEINS_NCM
Grupo 1 NEX
Linhas mínimas 23
Colunas mínimas 5
Texto ___.___.___.___.___.___,_____V
INCLUIR CAMPO TEXTO "/PWS/ZYCIE259C-VBELN_VA" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 10
Formato CHAR
Grupo 1 NEX
Linhas mínimas 10
Texto __________
INCLUIR CAMPO TEXTO "/PWS/ZYCIE259C-POSNR" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 6
Linha 1
Coluna 11
Formato NUMC
Grupo 1 NEX
Linhas mínimas 6
Texto ______
INCLUIR CAMPO TEXTO "/PWS/ZYCIE259C-VBELN_VL" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 12
Formato CHAR
Grupo 1 NEX
Linhas mínimas 10
Texto __________
INCLUIR CAMPO TEXTO "/PWS/ZYCIE259C-POSNL" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 6
Linha 1
Coluna 13
Formato NUMC
Grupo 1 NEX
Linhas mínimas 6
Texto ______
INCLUIR CAMPO TEXTO "/PWS/ZYCIE259C-VBELN_VF" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 14
Formato CHAR
Grupo 1 NEX
Linhas mínimas 10
Texto __________
INCLUIR CAMPO TEXTO "/PWS/ZYCIE373-IT_DOCFAT" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 6
Linha 1
Coluna 15
Formato NUMC
Grupo 4 INT
Linhas mínimas 6
Texto ______
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE373-MATNR" em tbl.contr./tabstr.
Altura 18
Comprimento Visível 18
Linha 1
Coluna 16
Formato CHAR
Grupo 4 INT
Linhas mínimas 18
Texto __________________
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE259C-VLFOB" em tbl.contr./tabstr.
Altura 20
Comprimento Visível 31
Linha 1
Coluna 17
Formato CURR
Campo referência /PWS/ZYCIE259C-WAERSFOB
Grupo 1 NEX
Linhas mínimas 23
Colunas mínimas 2
Texto _______________________________
INCLUIR OKCODE ""
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0324
* >> Início da inclusão:
PROCESS BEFORE OUTPUT.
MODULE: set_screen3 .
LOOP AT itab_det_exp WITH CONTROL tc_detalhe3
CURSOR tc_detalhe3-current_line.
MODULE: preenche_estrutura_0304,
trata_screen_0304 .
ENDLOOP.
PROCESS AFTER INPUT.
LOOP AT itab_det_exp.
CHAIN.
FIELD marcd_l MODULE insert_itab_det_exp ON CHAIN-REQUEST.
ENDCHAIN.
MODULE: preenche_itab_det_exp.
ENDLOOP.
MODULE user_command_0304.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI064 0325
INCLUIR SUB-TELA 0325
Descrição SS - Detalhe Exportações intermediario
Tela seguinte 0325
Altura atual (linhas) 27
Largura atual (colunas) 120
INCLUIR BOTÃO "BTN1_325"
Altura 2
Comprimento Visível 4
Linha 1
Coluna 2
Formato CHAR
Texto @11@
Código função DELE_INT
INCLUIR CONTROLE DE TABELA "TC_DETEXP"
Altura 20
Comprimento Visível 114
Linha 2
Coluna 2
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 TEXTO "/PWS/ZYCIE495-CODIGO" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 7
Linha 1
Coluna 2
Formato CHAR
Texto Produto
INCLUIR TEXTO "/PWS/ZYCIE495-NCM" em tbl.contr./tabstr.
Altura 16
Comprimento Visível 3
Linha 1
Coluna 3
Formato CHAR
Texto NCM
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 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 TEXTO "/PWS/ZYCIE495-UM_QTD" em tbl.contr./tabstr.
Altura 3
Comprimento Visível 2
Linha 1
Coluna 6
Formato CHAR
Texto UM
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 TEXTO "/PWS/ZYCIE495-MEINS" em tbl.contr./tabstr.
Altura 3
Comprimento Visível 2
Linha 1
Coluna 8
Formato CHAR
Texto UM
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 TEXTO "/PWS/ZYCIE495-VLFOB" em tbl.contr./tabstr.
Altura 31
Comprimento Visível 16
Linha 1
Coluna 10
Formato CHAR
Texto Valor Comprovado
INCLUIR TEXTO "/PWS/ZYCIE495-WAERS" em tbl.contr./tabstr.
Altura 5
Comprimento Visível 15
Linha 1
Coluna 11
Formato CHAR
Texto Moeda
INCLUIR CAIXA DE VERIFICAÇÃO "V_MARK" em tbl.contr./tabstr.
Altura 1
Comprimento Visível 1
Linha 1
Formato CHAR
Texto _
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 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 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 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 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 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 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 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 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 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 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 OKCODE ""
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0325
* >> Início da inclusão:
PROCESS BEFORE OUTPUT.
MODULE STATUS_0325.
LOOP AT itab_zycit495t WITH CONTROL tc_detexp
CURSOR tc_detexp-current_line.
MODULE preenche_325.
ENDLOOP .
PROCESS AFTER INPUT.
LOOP AT itab_zycit495t.
MODULE preenche_t495.
ENDLOOP.
MODULE USER_COMMAND_0325.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI064 0326
INCLUIR 0326
Descrição SEL_SCREEN 0326 INFO:14000009000000000000000000
Tela seguinte 0326
Altura atual (linhas) 200
Largura atual (colunas) 85
INCLUIR CAMPO TEXTO "%_S_PRODT_%_APP_%-TEXT"
Altura 30
Comprimento Visível 30
Linha 1
Coluna 2
Formato CHAR
Grupo 3 TXT
Grupo 4 001
Código função
INCLUIR CAMPO TEXTO "%_S_PRODT_%_APP_%-OPTI_PUSH"
Altura 2
Comprimento Visível 40
Linha 1
Coluna 33
Formato CHAR
Grupo 3 OPU
Grupo 4 001
Código função
INCLUIR CAMPO TEXTO "S_PRODT-LOW"
Altura 10
Comprimento Visível 10
Linha 1
Coluna 36
Formato CHAR
Grupo 3 LOW
Grupo 4 001
Texto __________
Código função
INCLUIR CAMPO TEXTO "%_S_PRODT_%_APP_%-TO_TEXT"
Altura 5
Comprimento Visível 5
Linha 1
Coluna 55
Formato CHAR
Grupo 3 TOT
Grupo 4 001
Código função
INCLUIR CAMPO TEXTO "S_PRODT-HIGH"
Altura 10
Comprimento Visível 10
Linha 1
Coluna 61
Formato CHAR
Grupo 3 HGH
Grupo 4 001
Texto __________
Código função
INCLUIR BOTÃO "%_S_PRODT_%_APP_%-VALU_PUSH"
Altura 3
Comprimento Visível 40
Linha 1
Coluna 80
Formato CHAR
Grupo 3 VPU
Grupo 4 001
Código função %001
INCLUIR CAMPO TEXTO "%_S_DATA_%_APP_%-TEXT"
Altura 30
Comprimento Visível 30
Linha 2
Coluna 2
Formato CHAR
Grupo 3 TXT
Grupo 4 002
Código função
INCLUIR CAMPO TEXTO "%_S_DATA_%_APP_%-OPTI_PUSH"
Altura 2
Comprimento Visível 40
Linha 2
Coluna 33
Formato CHAR
Grupo 3 OPU
Grupo 4 002
Código função
INCLUIR CAMPO TEXTO "S_DATA-LOW"
Altura 10
Comprimento Visível 10
Linha 2
Coluna 36
Formato DATS
Grupo 3 LOW
Grupo 4 002
Texto __________
Código função
INCLUIR CAMPO TEXTO "%_S_DATA_%_APP_%-TO_TEXT"
Altura 5
Comprimento Visível 5
Linha 2
Coluna 55
Formato CHAR
Grupo 3 TOT
Grupo 4 002
Código função
INCLUIR CAMPO TEXTO "S_DATA-HIGH"
Altura 10
Comprimento Visível 10
Linha 2
Coluna 61
Formato DATS
Grupo 3 HGH
Grupo 4 002
Texto __________
Código função
INCLUIR BOTÃO "%_S_DATA_%_APP_%-VALU_PUSH"
Altura 3
Comprimento Visível 40
Linha 2
Coluna 80
Formato CHAR
Grupo 3 VPU
Grupo 4 002
Código função %002
INCLUIR TEXTO "%_14SNW0000638527_%_%_%_%_%_%_"
Comprimento Visível 1
Linha 3
Coluna 2
Formato CHAR
Grupo 4 SRI
Texto -
INCLUIR OKCODE "SSCRFIELDS-UCOMM"
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0326
* >> Início da inclusão:
PROCESS BEFORE OUTPUT.
MODULE %_INIT_PBO.
MODULE PBO_REPORT.
MODULE %_PF_STATUS.
MODULE !S_PRODT.
MODULE !S_DATA.
MODULE %_END_OF_PBO.
PROCESS AFTER INPUT.
MODULE %_BACK AT EXIT-COMMAND.
MODULE %_INIT_PAI.
CHAIN.
FIELD S_PRODT-LOW.
FIELD S_PRODT-HIGH.
MODULE !S_PRODT .
ENDCHAIN.
CHAIN.
FIELD S_DATA-LOW.
FIELD S_DATA-HIGH.
MODULE !S_DATA .
ENDCHAIN.
CHAIN.
FIELD S_PRODT-LOW.
FIELD S_PRODT-HIGH.
FIELD S_DATA-LOW.
FIELD S_DATA-HIGH.
MODULE END_OF_SCREEN.
MODULE %_OK_CODE_1000.
ENDCHAIN.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI064 0327
INCLUIR SUB-TELA 0327
Descrição SS - Resumo Exportações
Tela seguinte 0327
Altura atual (linhas) 27
Largura atual (colunas) 120
INCLUIR BOTÃO "BTN303_1"
Altura 2
Comprimento Visível 7
Linha 1
Coluna 2
Formato CHAR
Grupo 4 BTN
Texto @4B@ ##
Código função MALL
INCLUIR BOTÃO "BTN303_2"
Altura 2
Comprimento Visível 7
Linha 1
Coluna 5
Formato CHAR
Grupo 4 BTN
Texto @4D@ ##
Código função DALL
INCLUIR BOTÃO "BTN303_3"
Altura 2
Comprimento Visível 7
Linha 1
Coluna 8
Formato CHAR
Grupo 4 BTN
Texto @18@ ##
Código função EXCLM
INCLUIR BOTÃO "BTN303_5"
Altura 2
Comprimento Visível 7
Linha 1
Coluna 11
Formato CHAR
Grupo 4 BTN
Texto @38@ ##
Código função VERIC
INCLUIR CONTROLE DE TABELA "TC_RESUMO3"
Altura 15
Comprimento Visível 95
Linha 2
Coluna 2
INCLUIR TEXTO "/PWS/ZYCIE259-CODMAT" em tbl.contr./tabstr.
Altura 18
Comprimento Visível 15
Linha 1
Coluna 1
Formato CHAR
Texto Código Material
INCLUIR TEXTO "V_DESCR1_0303" em tbl.contr./tabstr.
Altura 27
Comprimento Visível 18
Linha 1
Coluna 2
Formato CHAR
Texto Descrição Material
INCLUIR TEXTO "/PWS/ZYCIE259-MEINS" em tbl.contr./tabstr.
Altura 3
Comprimento Visível 3
Linha 1
Coluna 3
Formato CHAR
Texto UMB
INCLUIR TEXTO "/PWS/ZYCIE259-QTD_ITEN" em tbl.contr./tabstr.
Altura 17
Comprimento Visível 11
Linha 1
Coluna 4
Formato CHAR
Texto Qtde. Total
INCLUIR TEXTO "/PWS/ZYCIE259-WAERSFOB" em tbl.contr./tabstr.
Altura 5
Comprimento Visível 5
Linha 1
Coluna 5
Formato CHAR
Texto Moeda
INCLUIR TEXTO "/PWS/ZYCIE259-VLFOB" em tbl.contr./tabstr.
Altura 16
Comprimento Visível 9
Linha 1
Coluna 6
Formato CHAR
Texto Vl. Total
INCLUIR CAIXA DE VERIFICAÇÃO "MARC_L" em tbl.contr./tabstr.
Altura 1
Comprimento Visível 1
Linha 1
Formato CHAR
Texto _
INCLUIR CAMPO TEXTO "/PWS/ZYCIE259-CODMAT" em tbl.contr./tabstr.
Altura 18
Comprimento Visível 18
Linha 1
Coluna 1
Formato CHAR
Grupo 1 NEX
Linhas mínimas 18
Texto __________________
Código função
INCLUIR CAMPO TEXTO "V_DESCR1_0303" em tbl.contr./tabstr.
Altura 27
Comprimento Visível 40
Linha 1
Coluna 2
Formato CHAR
Grupo 1 NEX
Texto ________________________________________
INCLUIR CAMPO TEXTO "/PWS/ZYCIE259-MEINS" em tbl.contr./tabstr.
Altura 3
Comprimento Visível 3
Linha 1
Coluna 3
Formato UNIT
Grupo 1 NEX
Linhas mínimas 3
Texto ___
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE259-QTD_ITEN" em tbl.contr./tabstr.
Altura 17
Comprimento Visível 30
Linha 1
Coluna 4
Formato QUAN
Campo referência /PWS/ZYCIE259-MEINS
Grupo 1 NEX
Linhas mínimas 23
Colunas mínimas 5
Texto ___.___.___.___.___.___,_____V
INCLUIR CAMPO TEXTO "/PWS/ZYCIE259-WAERSFOB" em tbl.contr./tabstr.
Altura 5
Comprimento Visível 5
Linha 1
Coluna 5
Formato CUKY
Grupo 1 NEX
Linhas mínimas 5
Texto _____
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE259-VLFOB" em tbl.contr./tabstr.
Altura 16
Comprimento Visível 31
Linha 1
Coluna 6
Formato CURR
Campo referência /PWS/ZYCIE259-WAERSFOB
Grupo 1 NEX
Linhas mínimas 23
Colunas mínimas 2
Texto _______________________________
INCLUIR OKCODE ""
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0327
* >> Início da inclusão:
process before output.
module: set_screen3.
loop at itab_resumo with control tc_resumo3
cursor tc_resumo3-current_line.
module: preenche_estrutura_0303,
trata_screen_0303 .
endloop.
process after input.
loop at itab_resumo.
module preenche_itab_resumo.
endloop.
module user_command_0303.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI063TOP3
...
stlan LIKE /pws/zycie259-stlan ,
stlnr LIKE /pws/zycie259-stlnr ,
stlal LIKE /pws/zycie259-stlal ,
marc_l(1) TYPE c ,
END OF itab_resumo.
DATA: BEGIN OF itab_det_exp OCCURS 0.
INCLUDE STRUCTURE /pws/zycie259.
DATA: it_docfat LIKE /pws/zycit373-it_docfat,
fornec LIKE /pws/zycit373-fornec ,
it_fornec LIKE /pws/zycit373-it_fornec,
* >> Início da exclusão:
docnum LIKE /pws/zycit373-docnum ,
itmnum LIKE /pws/zycit373-itmnum ,
* << Fim da exclusão
matnr LIKE /pws/zycit372-matnr .
DATA: marcd_l(1) TYPE c.
DATA: END OF itab_det_exp.
DATA: BEGIN OF itab_det_exp_final OCCURS 0.
INCLUDE STRUCTURE /pws/zycie259.
DATA: it_docfat LIKE /pws/zycit373-it_docfat,
fornec LIKE /pws/zycit373-fornec ,
it_fornec LIKE /pws/zycit373-it_fornec,
* >> Início da exclusão:
docnum LIKE /pws/zycit373-docnum ,
itmnum LIKE /pws/zycit373-itmnum ,
* << Fim da exclusão
matnr LIKE /pws/zycit372-matnr .
DATA: marcd_l(1) TYPE c.
DATA: END OF itab_det_exp_final.
DATA: BEGIN OF itab_re_final OCCURS 0.
DATA: nrseqre LIKE /pws/zycet116-nrseqre ,
nrre LIKE /pws/zycet116-nrre ,
dtincl LIKE /pws/zycet116-dtincl ,
agrupado LIKE /pws/zycet116-agrupado,
codenq1 LIKE /pws/zycet116-codenq1 ,
matnr LIKE /pws/zycet118-matnr ,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064F03
...
MODIFY SCREEN.
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.
* >> Início da inclusão: FORM CHECK_FIELDS_SCREEN_0301
IF screen-name EQ '/PWS/ZYCIE258-KUNNR'.
IF /pws/zycie258-tipo EQ 'N'.
screen-invisible = '0'.
screen-active = '1'.
ELSE.
screen-invisible = '1'.
screen-active = '0'.
ENDIF.
MODIFY SCREEN.
ENDIF.
* << Fim da inclusão
IF screen-name EQ '/PWS/ZYCIE258-LIFNR'.
IF ( /pws/zycie258-tipo EQ 'C' OR
/pws/zycie258-tipo EQ 'N' )
OR /pws/zycie258-tipo IS INITIAL.
screen-invisible = '1'.
screen-active = '0'.
CLEAR: v_nlifnr3.
ELSE.
screen-invisible = '0'.
ENDIF.
...
...
p_dtexp1
p_dtexp2
CHANGING e_subrc
IF FOUND .
IF e_subrc EQ '8'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
IF e_subrc = 0.
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
IF /pws/zycie258-tipo EQ 'N'.
PERFORM sele_exp_tipo_n.
EXIT.
ENDIF.
* << Fim da inclusão
v_dtini = /pws/zycie258-dtpr - 728.
v_dtfim = /pws/zycie258-dtpr.
IF p_dtexp1 IS INITIAL AND
p_dtexp2 IS INITIAL.
p_dtexp1 = v_dtini. p_dtexp2 = v_dtfim.
ELSEIF NOT p_dtexp1 IS INITIAL AND
p_dtexp2 IS INITIAL.
p_dtexp2 = v_dtfim.
ELSEIF p_dtexp1 IS INITIAL AND
NOT p_dtexp2 IS INITIAL.
...
...
/pws/zycie259d-waersfob = itab_resumo-waersfob.
/pws/zycie259d-meins = itab_resumo-meins .
CLEAR: itab_det_exp. REFRESH: itab_det_exp.
LOOP AT itab_det_exp_final WHERE codmat EQ /pws/zycie259d-codmat
AND agrup EQ /pws/zycie259d-agrup.
MOVE-CORRESPONDING itab_det_exp_final TO itab_det_exp.
APPEND itab_det_exp.
ENDLOOP.
ENDIF.
pressed_tab_3c_2 = ok_code3.
* >> Início da inclusão: FORM TRATA_TAB_DETALHE3
IF /pws/zycie258-tipo NE 'N'.
REFRESH CONTROL 'tc_detalhe3' FROM SCREEN '0304'.
* << Fim da inclusão
dynpronr3c_2 = '0304'.
* >> Início da inclusão: FORM TRATA_TAB_DETALHE3
ELSE.
REFRESH CONTROL 'tc_detalhe3' FROM SCREEN '0324'.
dynpronr3c_2 = '0324'.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM trata_tab_vinc3.
...
...
screen-invisible = 1 .
MODIFY SCREEN.
ENDIF.
IF NOT /pws/zycie259d-nrseqc IS INITIAL.
IF ( screen-group4 EQ 'EMB' OR
screen-group4 EQ 'NF' ).
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
ELSEIF NOT /pws/zycie259d-nrseq IS INITIAL.
* >> Início da exclusão: FORM CGECK_FIELDS_SCREEN_0305
IF screen-group4 EQ 'NF'.
* << Fim da exclusão
* >> Início da inclusão: FORM CGECK_FIELDS_SCREEN_0305
IF screen-group4 EQ 'NF' AND
/pws/zycie258-tipo NE 'N'.
* << Fim da inclusão
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
ELSE.
IF screen-group4 EQ 'EMB' OR
screen-group4 EQ 'RE'.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
* >> Início da inclusão: FORM CGECK_FIELDS_SCREEN_0305
ENDIF.
IF /pws/zycie258-tipo EQ 'N' AND screen-group3 EQ 'I'.
screen-invisible = 1.
MODIFY SCREEN.
* << Fim da inclusão
ENDIF.
ENDLOOP.
IF /pws/zycie258-tipo EQ 'I'.
CLEAR v_descr1_0304.
SELECT maktx UP TO 1 ROWS FROM makt INTO v_descr1_0304
WHERE matnr = /pws/zycie259d-codmat
AND spras = sy-langu.
ENDSELECT.
ENDIF.
ENDFORM.
...
...
FORM trata_button_save3.
IF v_tcode3 EQ '/PWS/ZYCI040_I'.
PERFORM verifica_nrseq_gravado3.
ENDIF.
PERFORM elimina_nao_vinculados.
DELETE FROM /pws/zycit434 WHERE nrseqd EQ /pws/zycie258-nrseqd.
DELETE FROM /pws/zycit259 WHERE nrseqd EQ /pws/zycie258-nrseqd.
DELETE FROM /pws/zycit261 WHERE nrseqd EQ /pws/zycie258-nrseqd.
DELETE FROM /pws/zycit260 WHERE nrseqd EQ /pws/zycie258-nrseqd.
DELETE FROM /pws/zycit250 WHERE nrseqd EQ /pws/zycie258-nrseqd.
* >> Início da inclusão: FORM TRATA_BUTTON_SAVE3
DELETE FROM /pws/zycit495 WHERE nrseqd EQ /pws/zycie258-nrseqd.
* << Fim da inclusão
COMMIT WORK.
INSERT /pws/zycit434 FROM TABLE itab_zycit434.
MODIFY /pws/zycit258 FROM /pws/zycie258.
INSERT /pws/zycit259 FROM TABLE itab_det_exp_final.
INSERT /pws/zycit261 FROM TABLE itab_comp_vinc_final.
INSERT /pws/zycit260 FROM TABLE itab_di_final.
INSERT /pws/zycit250 FROM TABLE itab_areas.
* >> Início da inclusão: FORM TRATA_BUTTON_SAVE3
INSERT /pws/zycit495 FROM TABLE itab_zycit495.
* << Fim da inclusão
LOOP AT itab_det_exp_final .
IF NOT itab_det_exp_final-nrseqc IS INITIAL.
UPDATE /pws/zycit373 SET staprop = 'I'
WHERE doc_fat EQ itab_det_exp_final-vbeln_vf
AND it_docfat EQ itab_det_exp_final-posnr
AND nrseq EQ itab_det_exp_final-nrseqc.
ELSEIF NOT itab_det_exp_final-nrseqre IS INITIAL.
UPDATE /pws/zycet002 SET staprop = 'I'
WHERE nrseq = itab_det_exp_final-nrseq
AND vbeln_va = itab_det_exp_final-vbeln_va
...
...
ENDIF.
SELECT * FROM /pws/zycit434 INTO TABLE itab_zycit434
WHERE nrseqd EQ /pws/zycie258-nrseqd.
SELECT * FROM /pws/zycit259 INTO TABLE itab_det_exp_final
WHERE nrseqd EQ /pws/zycie258-nrseqd.
SELECT * FROM /pws/zycit261 INTO TABLE itab_comp_vinc_final
WHERE nrseqd EQ /pws/zycie258-nrseqd.
SELECT * FROM /pws/zycit260 INTO TABLE itab_di_final
WHERE nrseqd EQ /pws/zycie258-nrseqd.
SELECT * FROM /pws/zycit250 INTO TABLE itab_areas
* >> Início da inclusão: FORM TRATA_BUTTON_ENTE3
WHERE nrseqd EQ /pws/zycie258-nrseqd.
REFRESH itab_zycit495.
SELECT * FROM /pws/zycit495 INTO TABLE itab_zycit495
* << Fim da inclusão
WHERE nrseqd EQ /pws/zycie258-nrseqd.
* >> Início da inclusão: FORM TRATA_BUTTON_ENTE3
IF /pws/zycie258-tipo EQ 'N'.
REFRESH itab_resint .
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.
ENDIF.
* << Fim da inclusão
SORT itab_comp_vinc_final BY codcomp ASCENDING.
SORT itab_di_final BY dtdi ASCENDING.
LOOP AT itab_di_final WHERE valor_u <= 0 AND
vlfob_u > 0.
itab_di_final-valor_u = itab_di_final-vlfob_u.
MODIFY itab_di_final.
ENDLOOP.
PERFORM carrega_resumo_exportacao3.
pressed_tab_3c = 'FS_CABEC3'.
dynpronr3c = '0301'.
...
...
WHEN '@AI@'.
p_mess = text-262.
WHEN '@02@'.
p_mess = text-263.
WHEN '@9U@'.
p_mess = text-264.
WHEN '@6V@'.
p_mess = text-265.
ENDCASE.
ENDFORM.
* >> Início da inclusão:
FORM sele_exp_tipo_n.
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.
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.
v_pct = 55.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = v_pct
text = text-299.
REFRESH itab_zycit281.
SELECT * FROM /pws/zycit281 INTO TABLE itab_zycit281. "#EC CI_NOWHERE
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 IN s_data
AND a~staprop EQ space
AND b~kunnr EQ /pws/zycie258-kunnr
AND b~codigo IN s_prodt
AND b~modalidade EQ 'I'
AND b~nratoc EQ space. "#EC CI_NOFIELD
ELSE.
IF NOT itab_zycit281[] IS INITIAL.
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
FOR ALL ENTRIES IN itab_zycit281
WHERE a~dtnf IN s_data
AND a~staprop EQ space
AND b~kunnr EQ /pws/zycie258-kunnr
AND b~codigo IN s_prodt
AND b~nratoc EQ space
AND b~modalidade EQ 'I'
AND a~matnr EQ itab_zycit281-matnr. "#EC CI_NOFIELD
ELSE.
EXIT.
ENDIF.
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
FOR ALL ENTRIES IN itab_zycit373
WHERE nrseqc EQ itab_zycit373-nrseq
AND vbeln_vf EQ itab_zycit373-doc_fat
AND posnr EQ itab_zycit373-it_docfat.
LOOP AT itab_zycit259_dl.
UPDATE /pws/zycit373 SET staprop = 'I'
WHERE doc_fat EQ itab_zycit259_dl-vbeln_vf
AND it_docfat EQ itab_zycit259_dl-posnr
AND nrseq EQ itab_zycit259_dl-nrseqc.
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.
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.
SELECT * FROM /pws/zycit423
INTO TABLE itab_zycit423. "#EC CI_NOWHERE
SELECT * FROM /pws/zycit421
INTO TABLE itab_zycit421. "#EC CI_NOWHERE
LOOP AT itab_zycit421.
READ TABLE itab_zycit434 WITH KEY
werks = itab_zycit421-werks.
IF sy-subrc NE 0 AND
/pws/zycie258-werks NE itab_zycit421-werks.
DELETE itab_zycit421 WHERE werks EQ itab_zycit421-werks.
ENDIF.
ENDLOOP.
ENDIF.
SELECT * FROM /pws/zycit371 INTO TABLE itab_zycit371
FOR ALL ENTRIES IN itab_zycit373
WHERE nrseqd EQ itab_zycit373-nrseq
AND r_drawback 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 )
INTO TABLE itab_nota_c
FOR ALL ENTRIES IN itab_zycit373
WHERE a~docnum = itab_zycit373-docnum
AND bukrs EQ /pws/zycie258-bukrs
AND b~itmnum <= itab_zycit373-itmnum.
SELECT * FROM mara INTO TABLE itab_mara
FOR ALL ENTRIES IN itab_zycit373
WHERE matnr EQ itab_zycit373-matnr.
ENDIF.
v_pct = 55.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = v_pct
text = text-299.
CLEAR: v_count .
LOOP AT itab_zycit373.
v_pct = 55.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = v_pct
text = text-299.
READ TABLE itab_det_exp_final TRANSPORTING NO FIELDS
WITH KEY
nrseqc = itab_zycit373-nrseq
vbeln_vf = itab_zycit373-doc_fat
posnr = itab_zycit373-it_docfat.
IF sy-subrc EQ 0.
CONTINUE.
ENDIF.
CLEAR: itab_zycit371, itab_nota_c, itab_mara.
READ TABLE itab_zycit371 WITH KEY nrseqd = itab_zycit373-nrseq.
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.
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.
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 ,
/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_zycit373-doc_fat TO itab_det_exp_final-vbeln_vf ,
itab_zycit373-it_docfat TO itab_det_exp_final-posnr ,
itab_nota_c-werks TO itab_det_exp_final-werks_e ,
itab_nota_c-nbm TO itab_det_exp_final-j_1bnbm ,
itab_nota_c-docnum TO itab_det_exp_final-docnum ,
itab_nota_c-itmnum TO itab_det_exp_final-itmnum ,
itab_nota_c-nfnum TO itab_det_exp_final-nfnum ,
itab_nota_c-series TO itab_det_exp_final-serie ,
itab_nota_c-docdat TO itab_det_exp_final-dtnf ,
itab_nota_c-meins TO itab_det_exp_final-meins ,
itab_zycit373-qtd_apro TO itab_det_exp_final-qtd_iten ,
itab_nota_c-waers TO itab_det_exp_final-waersfob ,
itab_nota_c-waers TO itab_det_exp_final-waerscif ,
itab_nota_c-waers TO itab_det_exp_final-waersemb .
itab_det_exp_final-vlfob =
( itab_zycit373-qtd_apro / itab_zycit373-qtd_iten )
* itab_nota_c-netwr .
itab_det_exp_final-vlfre =
( itab_zycit373-qtd_apro / itab_zycit373-qtd_iten )
* itab_nota_c-netfre .
PERFORM converter_moeda_exp USING
itab_det_exp_final-vlfob
itab_det_exp_final-waersfob
'USD'
itab_det_exp_final-dtnf
CHANGING
itab_det_exp_final-vlfob.
itab_det_exp_final-vlfobemb = itab_det_exp_final-vlfob.
itab_det_exp_final-waersfob =
itab_det_exp_final-waerscif =
itab_det_exp_final-waersemb = 'USD'.
PERFORM converte_um_base USING itab_det_exp_final-codmat
CHANGING itab_det_exp_final-meins
itab_det_exp_final-qtd_iten.
itab_det_exp_final-qtd_ncm = itab_det_exp_final-qtd_iten.
itab_det_exp_final-meins_ncm = itab_det_exp_final-meins.
PERFORM converte_um_ncm USING itab_det_exp_final-codmat
CHANGING itab_det_exp_final-meins_ncm
itab_det_exp_final-werks
itab_det_exp_final-qtd_ncm.
itab_det_exp_final-ntgew = itab_det_exp_final-qtd_iten
* itab_mara-ntgew.
itab_det_exp_final-brgew = itab_det_exp_final-qtd_iten
* itab_mara-brgew.
itab_det_exp_final-vlcif = ( itab_nota_c-netwr +
itab_nota_c-netfre + itab_nota_c-netins )
* ( itab_zycit373-qtd_apro / itab_zycit373-qtd_iten ).
APPEND itab_det_exp_final.
ENDLOOP.
LOOP AT itab_zycit371.
READ TABLE itab_det_exp_final WITH KEY
nrseqc = itab_zycit371-nrseqd.
IF sy-subrc NE 0.
CONTINUE.
ENDIF.
itab_zycit495-nrseqd = /pws/zycie258-nrseqd.
itab_zycit495-nrseqc = itab_zycit371-nrseqd.
itab_zycit495-codigo = itab_zycit371-codigo.
itab_zycit495-nrre = itab_zycit371-nrre.
itab_zycit495-qtd_iten = itab_zycit371-qtd_iten.
itab_zycit495-um_qtd = itab_zycit371-um_qtd.
itab_zycit495-peso = itab_zycit371-peso .
itab_zycit495-meins = itab_zycit371-meins.
itab_zycit495-dtemb = itab_zycit371-dtemb.
itab_zycit495-vlfob = itab_zycit371-vlfob.
itab_zycit495-waers = itab_zycit371-waers.
itab_zycit495-ncm = itab_zycit371-ncm.
APPEND itab_zycit495.
ENDLOOP.
SORT itab_zycit495 BY nrseqc.
DELETE ADJACENT DUPLICATES FROM itab_zycit495 COMPARING nrseqc.
REFRESH itab_resint .
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.
PERFORM carrega_resumo_exportacao3.
ENDFORM.
FORM trata_tab_det_int.
READ TABLE itab_resint WITH KEY mark = 'X'.
IF sy-subrc EQ 0.
itab_zycit495t[] = itab_zycit495[].
DELETE itab_zycit495t WHERE codigo NE itab_resint-codigo
OR ncm NE itab_resint-ncm.
pressed_tab_3c_5 = ok_code3.
dynpronr3c_5 = '0325'.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064I01
...
ENDMODULE.
MODULE user_command_0300 INPUT.
CASE ok_code3.
WHEN 'BACK'.
PERFORM check_button_back3.
WHEN 'FS_CABEC3'.
pressed_tab_3c = ok_code3.
dynpronr3c = '0301'.
WHEN 'FS_EXPORT3'.
pressed_tab_3c = ok_code3.
* >> Início da inclusão: MODULE USER_COMMAND_0300
IF /pws/zycie258-tipo EQ 'N'.
pressed_tab_3c_5 = 'FS_RES'.
dynpronr3c = '0322'.
dynpronr3c_5 = '0323'.
ELSE.
REFRESH CONTROL 'tc_resumo3' FROM SCREEN '0303'.
pressed_tab_3c_2 = 'FS_RESUMO3' .
dynpronr3c = '0302'.
dynpronr3c_2 = '0303'.
ENDIF.
WHEN 'FS_NOTINT'.
REFRESH CONTROL 'tc_resumo3' FROM SCREEN '0327'.
DESCRIBE TABLE itab_det_exp LINES tc_detalhe3-lines.
pressed_tab_3c = ok_code3.
pressed_tab_3c_2 = 'FS_RESUMO3' .
* << Fim da inclusão
dynpronr3c = '0302'.
* >> Início da inclusão: MODULE USER_COMMAND_0300
dynpronr3c_2 = '0327'.
* << Fim da inclusão
WHEN 'FS_IMPORT3'.
PERFORM carrega_det_imp3.
pressed_tab_3c = ok_code3.
pressed_tab_3c_3 = 'FS_RES_IMP3'.
dynpronr3c = '0306'.
dynpronr3c_3 = '0307'.
...
...
MODULE user_command_0003_exit INPUT.
CASE ok_code3.
WHEN 'ABORT'.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE.
MODULE user_command_0302 INPUT.
CASE ok_code3.
WHEN 'FS_RESUMO3'.
pressed_tab_3c_2 = ok_code3.
* >> Início da inclusão: MODULE USER_COMMAND_0302
IF /pws/zycie258-tipo NE 'N'.
* << Fim da inclusão
dynpronr3c_2 = '0303'.
* >> Início da inclusão: MODULE USER_COMMAND_0302
ELSE.
dynpronr3c_2 = '0327'.
ENDIF.
* << Fim da inclusão
LOOP AT itab_det_exp.
itab_det_exp-marcd_l = ' '.
MODIFY itab_det_exp.
ENDLOOP.
WHEN 'FS_DETALHE3'.
PERFORM trata_tab_detalhe3.
WHEN 'FS_VINC3'.
tc_vcp3-top_line = 1.
PERFORM trata_tab_vinc3.
ENDCASE.
ENDMODULE.
MODULE preenche_itab_resumo INPUT.
* >> Início da inclusão: MODULE PREENCHE_ITAB_RESUMO
IF marc_l EQ 'X' AND /pws/zycie258-tipo EQ 'N'.
CLEAR itab_resumo-marc_l.
MODIFY itab_resumo TRANSPORTING marc_l
WHERE marc_l EQ 'X'.
itab_resumo-marc_l = marc_l .
MODIFY itab_resumo INDEX tc_resumo3-current_line.
ENDIF.
* << Fim da inclusão
itab_resumo-codmat = /pws/zycie259-codmat .
itab_resumo-werks = /pws/zycie259-werks .
itab_resumo-stlan = /pws/zycie259-stlan .
itab_resumo-stlnr = /pws/zycie259-stlnr .
itab_resumo-stlal = /pws/zycie259-stlal .
itab_resumo-qtd_iten = /pws/zycie259-qtd_iten.
itab_resumo-vlfob = /pws/zycie259-vlfob .
* >> Início da exclusão: MODULE PREENCHE_ITAB_RESUMO
itab_resumo-dtpre = v_dtpre .
itab_resumo-dture = v_dture .
itab_resumo-marc_l = marc_l .
* << Fim da exclusão
* >> Início da inclusão: MODULE PREENCHE_ITAB_RESUMO
itab_resumo-dtpre = v_dtpre .
itab_resumo-dture = v_dture .
itab_resumo-marc_l = marc_l .
* << Fim da inclusão
ENDMODULE.
MODULE preenche_itab_det_exp INPUT.
itab_det_exp-j_1bnbm = /pws/zycie259c-j_1bnbm .
itab_det_exp-nfnum = /pws/zycie259c-nfnum .
itab_det_exp-serie = /pws/zycie259c-serie .
itab_det_exp-dtnf = /pws/zycie259c-dtnf .
itab_det_exp-nrseqre = /pws/zycie259c-nrseqre .
itab_det_exp-vbeln_va = /pws/zycie259c-vbeln_va.
itab_det_exp-vbeln_vf = /pws/zycie259c-vbeln_vf.
itab_det_exp-posnr = /pws/zycie259c-posnr .
...
...
LEAVE TO SCREEN 0.
ENDCASE.
CLEAR ok_code.
ENDMODULE.
MODULE altera_areas INPUT.
CASE ok_code3.
WHEN 'ENTE'.
PERFORM altera_area.
ENDCASE.
ENDMODULE.
* >> Início da inclusão:
MODULE preenche_t495 INPUT.
IF v_mark EQ 'X'.
CLEAR: itab_zycit495t-mark.
MODIFY itab_zycit495t TRANSPORTING mark
WHERE mark NE space.
ENDIF.
itab_zycit495t-mark = v_mark.
MODIFY itab_zycit495t INDEX tc_detexp-current_line.
ENDMODULE.
MODULE user_command_0322 INPUT.
CASE ok_code3.
WHEN 'FS_RES'.
pressed_tab_3c_5 = ok_code3.
dynpronr3c_5 = '0323'.
WHEN 'FS_DET'.
PERFORM trata_tab_det_int.
ENDCASE.
ENDMODULE.
MODULE user_command_0323 INPUT.
CASE ok_code3.
WHEN 'SELI'.
CALL SELECTION-SCREEN 0326 STARTING AT 03 05.
WHEN 'DELEI'.
READ TABLE itab_resint WITH KEY mark = 'X'.
IF sy-subrc EQ 0.
LOOP AT itab_zycit495 WHERE codigo EQ itab_resint-codigo
AND ncm EQ itab_resint-ncm.
DELETE: itab_zycit495
WHERE nrseqc EQ itab_zycit495-nrseqc,
itab_det_exp
WHERE nrseqc EQ itab_zycit495-nrseqc,
itab_det_exp_final
WHERE nrseqc EQ itab_zycit495-nrseqc,
itab_comp_vinc_final
WHERE nrseqc EQ itab_zycit495-nrseqc,
itab_det_imp
WHERE nrseqc EQ itab_zycit495-nrseqc,
itab_di_final
WHERE nrseqc EQ itab_zycit495-nrseqc.
ENDLOOP.
DELETE itab_resint WHERE mark = 'X'.
ELSE.
MESSAGE s015 WITH text-103.
ENDIF.
ENDCASE.
ENDMODULE.
MODULE preenche_itab_resint INPUT.
IF v_mark EQ 'X'.
CLEAR: itab_resint-mark.
MODIFY itab_resint TRANSPORTING mark
WHERE mark EQ 'X'.
ENDIF.
itab_resint-mark = v_mark.
MODIFY itab_resint INDEX tc_res_int-current_line.
ENDMODULE.
MODULE user_command_0325 INPUT.
CASE ok_code3.
WHEN 'DELE_INT'.
READ TABLE itab_zycit495t WITH KEY mark = 'X'.
IF sy-subrc EQ 0.
DELETE: itab_zycit495
WHERE nrseqc EQ itab_zycit495t-nrseqc,
itab_zycit495t
WHERE nrseqc EQ itab_zycit495t-nrseqc,
itab_det_exp
WHERE nrseqc EQ itab_zycit495t-nrseqc,
itab_det_exp_final
WHERE nrseqc EQ itab_zycit495t-nrseqc,
itab_comp_vinc_final
WHERE nrseqc EQ itab_zycit495t-nrseqc,
itab_det_imp
WHERE nrseqc EQ itab_zycit495t-nrseqc,
itab_di_final
WHERE nrseqc EQ itab_zycit495t-nrseqc.
IF /pws/zycie258-tipo EQ 'N'.
REFRESH itab_resint .
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.
ENDIF.
ELSE.
MESSAGE s015 WITH text-103.
ENDIF.
ENDCASE.
ENDMODULE.
MODULE trata_clente INPUT.
IF NOT /pws/zycie258-kunnr IS INITIAL.
SELECT SINGLE name1 FROM kna1 INTO v_nkunnr3
WHERE kunnr EQ /pws/zycie258-kunnr.
ENDIF.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064O01
...
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.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN3
IF screen-name EQ 'FS_NOTINT'.
IF /pws/zycie258-tipo EQ 'N'.
screen-invisible = 0 .
ELSE.
screen-invisible = 1 .
ENDIF.
MODIFY SCREEN.
ENDIF.
* << Fim da inclusão
ENDLOOP.
WHEN '0301'.
PERFORM check_fields_screen_0301.
WHEN '0303'.
PERFORM check_fields_screen_0303.
WHEN '0304'.
PERFORM check_fields_screen_0304.
WHEN '0305'.
PERFORM cgeck_fields_screen_0305.
WHEN '0307'.
...
...
ENDMODULE.
MODULE monta_0320 OUTPUT.
ENDMODULE.
MODULE status_0110 OUTPUT.
SET PF-STATUS 'ST0110'.
ENDMODULE.
MODULE refresh_internal_table3 OUTPUT.
/pws/zycie258-codagrup = itab_areas-codagrup.
tc_areas-lines = tc_areas-lines + 10.
ENDMODULE.
* >> Início da inclusão:
MODULE set_page322 OUTPUT.
ts_exp3-activetab = pressed_tab_3c_5.
ENDMODULE.
MODULE preenche_325 OUTPUT.
/pws/zycie495 = itab_zycit495t.
v_mark = itab_zycit495t-mark.
ENDMODULE.
MODULE preenche_estrutura_0323 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-dtemb = itab_resint-dtemb.
/pws/zycie495-vlfob = itab_resint-vlfob.
/pws/zycie495-waers = itab_resint-waers.
/pws/zycie495-ncm = itab_resint-ncm.
v_mark = itab_resint-mark.
ENDMODULE.
MODULE status_0323 OUTPUT.
DESCRIBE TABLE itab_resint LINES tc_res_int-lines.
ENDMODULE.
MODULE status_0325 OUTPUT.
DESCRIBE TABLE itab_zycit495t LINES tc_detexp-lines.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064TOP
...
pressed_tab LIKE sy-ucomm VALUE 'FS_CABEC' ,
pressed_tab2 LIKE sy-ucomm VALUE 'FS_NAC' ,
modul(30) TYPE c VALUE '/PWS/SAPMZYCI064' ,
dynpronr(4) TYPE c VALUE '0101' ,
dynpronr2(4) TYPE c VALUE '0104' ,
v_ico1 TYPE icons-text ,
v_icone TYPE iconname ,
v_nemp(30) TYPE c ,
v_nemp3(30) TYPE c ,
v_nlifnr3(30) TYPE c ,
* >> Início da inclusão:
v_nkunnr3(30) TYPE c ,
* << Fim da inclusão
v_ncentro(30) TYPE c ,
v_ndivisao(30) TYPE c ,
v_norgcpra(30) TYPE c ,
v_ngrpcpra(30) TYPE c ,
v_werks LIKE /pws/zycie238-werks ,
v_meins_tmp LIKE mara-meins ,
mark(1) TYPE c ,
markn(1) TYPE c ,
marki(1) TYPE c ,
markin(1) TYPE c ,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064TOP3
CONTROLS: ts_cabec3 TYPE TABSTRIP ,
ts_exp3 TYPE TABSTRIP ,
tc_resumo3 TYPE TABLEVIEW USING SCREEN '0303',
* >> Início da inclusão:
tc_res_int TYPE TABLEVIEW USING SCREEN '0323',
TC_DETEXP TYPE TABLEVIEW USING SCREEN '0325',
* << Fim da inclusão
tc_centros3 TYPE TABLEVIEW USING SCREEN '0315',
tc_ce_ei TYPE TABLEVIEW USING SCREEN '0320',
tc_detalhe3 TYPE TABLEVIEW USING SCREEN '0304',
ts_imp3 TYPE TABSTRIP ,
ts_nfc3 TYPE TABSTRIP ,
tc_res_imp3 TYPE TABLEVIEW USING SCREEN '0307',
tc_det_imp3 TYPE TABLEVIEW USING SCREEN '0308',
tc_res_nf3 TYPE TABLEVIEW USING SCREEN '0318',
tc_det_nf3 TYPE TABLEVIEW USING SCREEN '0319',
ts_vcomp3 TYPE TABSTRIP ,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064X01
TABLES: /pws/zycit371,
/pws/zycie258,
/pws/zycit258 ,
/pws/zycie259 ,
/pws/zycie259c,
/pws/zycie259d,
/pws/zycit259 ,
/pws/zycie260 ,
/pws/zycie260c,
/pws/zycie260d,
* >> Início da inclusão:
/pws/zycie495 ,
* << Fim da inclusão
/pws/zycit260 ,
/pws/zycie261 ,
/pws/zycit372 ,
/pws/zycit373 ,
/pws/zycie372 ,
/pws/zycie373 ,
/pws/zycie432 ,
/pws/zycie434 ,
/pws/zycit434 ,
/pws/zycie261c,
/pws/zycit261 ,
/pws/zycit281 ,
/pws/zycee085 ,
/pws/zycet130 ,
/pws/zycit036 ,
/pws/zycie371,
mara.
DATA: BEGIN OF COMMON PART a.
* >> Início da inclusão:
DATA: BEGIN OF itab_zycit495 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit495.
DATA: mark.
DATA: END OF itab_zycit495.
DATA: BEGIN OF itab_zycit495t OCCURS 0.
INCLUDE STRUCTURE /pws/zycit495.
DATA: mark.
DATA: END OF itab_zycit495t.
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,
dtemb TYPE /pws/zycit495-dtemb,
vlfob TYPE /pws/zycit495-vlfob,
waers TYPE /pws/zycit495-waers,
ncm TYPE /pws/zycit495-ncm,
mark TYPE c.
DATA: END OF itab_resint.
DATA: v_mark TYPE c.
* << Fim da inclusão
DATA : BEGIN OF itab_zycee085 OCCURS 10.
INCLUDE STRUCTURE /pws/zycee085.
DATA : END OF itab_zycee085.
DATA : BEGIN OF itab_saida OCCURS 10.
INCLUDE STRUCTURE /pws/zycee085.
DATA : END OF itab_saida.
DATA : BEGIN OF itab_zycit434 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit434.
DATA: mark.
DATA : END OF itab_zycit434.
...
...
DATA: itab_msg_erro_aux LIKE itab_msg_erro OCCURS 0 WITH HEADER LINE.
DATA:
v_dtini LIKE /pws/zycee116-dtincl ,
v_codigo LIKE /pws/zycie371-codigo ,
v_dtfim LIKE /pws/zycee116-dtincl .
DATA: BEGIN OF itab_det_exp OCCURS 0.
INCLUDE STRUCTURE /pws/zycie259.
DATA: it_docfat LIKE /pws/zycit373-it_docfat,
fornec LIKE /pws/zycit373-fornec ,
it_fornec LIKE /pws/zycit373-it_fornec,
* >> Início da exclusão:
docnum LIKE /pws/zycit373-docnum ,
itmnum LIKE /pws/zycit373-itmnum ,
* << Fim da exclusão
matnr LIKE /pws/zycit372-matnr .
DATA: marcd_l(1) TYPE c.
DATA: END OF itab_det_exp.
DATA: BEGIN OF itab_det_exp_final OCCURS 0.
INCLUDE STRUCTURE /pws/zycie259.
DATA: it_docfat LIKE /pws/zycit373-it_docfat,
fornec LIKE /pws/zycit373-fornec ,
it_fornec LIKE /pws/zycit373-it_fornec,
* >> Início da exclusão:
docnum LIKE /pws/zycit373-docnum ,
itmnum LIKE /pws/zycit373-itmnum ,
* << Fim da exclusão
matnr LIKE /pws/zycit372-matnr .
DATA: marcd_l(1) TYPE c.
DATA: END OF itab_det_exp_final.
DATA: itab_det_exp_dele LIKE itab_det_exp_final
OCCURS 0 WITH HEADER LINE.
DATA: itab_zycit423 TYPE /pws/zycit423 OCCURS 0 WITH HEADER LINE,
itab_zycit422 TYPE /pws/zycit422 OCCURS 0 WITH HEADER LINE,
itab_zycit421 TYPE /pws/zycit421 OCCURS 0 WITH HEADER LINE,
itab_mvke TYPE mvke OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_names OCCURS 0,
...
...
v_tcode3 LIKE sy-tcode ,
v_ico3 TYPE icons-text ,
v_status3(1) TYPE c VALUE '1' ,
pressed_tab_3c LIKE sy-ucomm VALUE 'FS_CABEC3' ,
pressed_tab_3c_2 LIKE sy-ucomm VALUE 'FS_RESUMO3' ,
pressed_tab_3c_3 LIKE sy-ucomm VALUE 'FS_RES_IMP3',
pressed_tab_3c_4 LIKE sy-ucomm VALUE 'FS_VCP3',
dynpronr3c(4) TYPE c VALUE '0301' ,
dynpronr3c_2(4) TYPE c VALUE '0303' ,
dynpronr3c_3(4) TYPE c VALUE '0307' ,
* >> Início da inclusão:
pressed_tab_3c_5 LIKE sy-ucomm VALUE 'FS_RES' ,
dynpronr3c_5(4) TYPE c VALUE '0322' ,
* << Fim da inclusão
dynpronr3c_4(4) TYPE c VALUE '0309' ,
v_ncentro3(35) TYPE c ,
v_ndivisao3(35) TYPE c ,
v_norgcpra3(35) TYPE c ,
v_status_compv(4) TYPE c ,
v_ngrpcpra3(35) TYPE c ,
* >> Início da exclusão:
v_dtpre LIKE /pws/zycie259-dtre ,
v_dture LIKE /pws/zycie259-dtre ,
* << Fim da exclusão
* >> Início da inclusão:
v_dtpre LIKE /pws/zycie259-dtre ,
v_dture LIKE /pws/zycie259-dtre ,
* << Fim da inclusão
v_marcd(1) TYPE c ,
marcd_l(1) TYPE c ,
marc_l(1) TYPE c ,
v_descr1_0303(40) TYPE c ,
v_descr1_0304(40) TYPE c ,
v_descr1_0307(40) TYPE c ,
v_descr1_0309(40) TYPE c ,
v_indicatu4 LIKE sy-tabix VALUE 0 ,
v_indicatu5 LIKE sy-tabix VALUE 0 ,
v_indicatu6 LIKE sy-tabix VALUE 0 ,
...
...
option(2) TYPE c,
low TYPE mara-matnr,
high TYPE mara-matnr.
DATA: END OF t_matnr .
DATA: END OF COMMON PART.
SELECTION-SCREEN BEGIN OF SCREEN 0312 AS WINDOW TITLE text-098.
SELECT-OPTIONS p_matnr FOR mara-matnr OBLIGATORY.
PARAMETERS: p_dtexp1 LIKE /pws/zycee116-dtincl,
p_dtexp2 LIKE /pws/zycee116-dtincl.
SELECTION-SCREEN END OF SCREEN 0312.
* >> Início da inclusão:
SELECTION-SCREEN BEGIN OF SCREEN 0326 AS WINDOW TITLE text-098.
SELECT-OPTIONS: s_prodt FOR /pws/zycie495-codigo OBLIGATORY,
s_data FOR sy-datum.
SELECTION-SCREEN END OF SCREEN 0326.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI064
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): S_DATA
Texto: (12 caracteres)
"Data"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): S_PRODT
Texto: (15 caracteres)
"Produto"
Referência ao Dictionary: NÃO
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE258
Nome campo Elem.dados Tab.verif. N CtDt Comp. Grupo
...
LIFNR ELIFN LFA1 CHAR 10
CODAGRUP /PWS/ZYCIL613 /PWS/ZYCIT395 CHAR 3
DTPR DATUM DATS 8
* >> Início da inclusão:
KUNNR KUNNR KNA1 CHAR 10
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE259
Nome campo Elem.dados Tab.verif. N CtDt Comp. Grupo
WERKS_E WERKS_D CHAR 4
MVGR1 MVGR1 CHAR 3
* >> Início da inclusão:
DOCNUM J_1BDOCNUM NUMC 10
ITMNUM J_1BITMNUM NUMC 6
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE259C
Nome campo Elem.dados Tab.verif. N CtDt Comp. Grupo
WERKS_E WERKS_D CHAR 4
MVGR1 MVGR1 CHAR 3
* >> Início da inclusão:
DOCNUM J_1BDOCNUM NUMC 10
ITMNUM J_1BITMNUM NUMC 6
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE259D
Nome campo Elem.dados Tab.verif. N CtDt Comp. Grupo
WERKS_E WERKS_D CHAR 4
MVGR1 MVGR1 CHAR 3
* >> Início da inclusão:
DOCNUM J_1BDOCNUM NUMC 10
ITMNUM J_1BITMNUM NUMC 6
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT258
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp. Grupo
...
LIFNR ELIFN CHAR 10
CODAGRUP /PWS/ZYCIL613 CHAR 3
DTPR DATUM DATS 8
* >> Início da inclusão:
KUNNR KUNNR KNA1 CHAR 10
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT259
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp. Grupo
WERKS_E WERKS_D CHAR 4
MVGR1 MVGR1 CHAR 3
* >> Início da inclusão:
DOCNUM J_1BDOCNUM NUMC 10
ITMNUM J_1BITMNUM NUMC 6
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCIE495
*Criar tabela: /PWS/ZYCIE495
*Características gerais:
Nome da tabela: /PWS/ZYCIT495
Descrição breve: CI - REs Intermediario-Exportado(Composição isenção)
Ctg.tabela: Tabela transparente
Classe desenvolvimento: /PWS/ZYCI
Arm.bff.permitido:
AtualTab.permitida: X
Classe de entrega: A
*Opções técnicas:
Tipo de dados: APPL0
Categor.tamanho: 0
*Campos:
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp. Grupo
MANDT MANDT CLNT 3
NRSEQD /PWS/ZYCIL436 CHAR 10
NRSEQC /PWS/ZYCIL702 CHAR 10
CODIGO /PWS/ZYCIL230 CHAR 10
NRRE /PWS/ZYCEL018 CHAR 14
QTD_ITEN /PWS/ZYCIL473 QUAN 23
UM_QTD BSTME UNIT 3
PESO NTGEW_15 QUAN 15
MEINS BSTME UNIT 3
DTEMB DATUM DATS 8
VLFOB WRBTV_FPM CURR 23
WAERS /PWS/ZYCIL546 CUKY 5
NCM J_1BNBMCO1 CHAR 16
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCIT495
*Criar tabela: /PWS/ZYCIT495
Características gerais:
Nome da tabela: /PWS/ZYCIE495
Descrição breve: CI - REs Intermediario-Exportado(Composição isenção)
Ctg.tabela: Estrutura
Classe desenvolvimento: /PWS/ZYCI
*Campos:
Nome campo Elem.dados Tab.verif. N CtDt Comp. Grupo
.INCLUDE /PWS/ZYCIT495