CE PLUS - Nota 001773
Módulo: DRAWBACK
Funcionalidade: Apropriação
Data/Hora da Publicação: 19/07/2006 00:00:00
Data/Hora Última Alteração: 17/02/2011 14:13:42
Descrição da Nota: EXIBIÇÃO SEPARA DOS INSUMOS DO INTERMEDIARIO-EXPORTADOR NA APROPRIAÇÃO.
Sintoma
Ajustes na apropriação para exibição dos insumos de atos concessórios intermediario-exportador
separado dos demais insumos.
Solução
Ajustes na apropriação para exibição dos insumos de atos concessórios intermediario-exportador
separado dos demais insumos.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01773 Data: 19/07/2006 Hora: 14:50:49
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01773
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00123
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01691 - 00001 - 6.0 - 00024 - AJUSTES REFERENTES A RASTREIO DE LOTE EFETUADO NOS PROGRAMAS DE D
----------------------------------------------------------------------------------------------------
EXIBIÇÃO SEPARA DOS INSUMOS DO INTERMEDIARIO-EXPORTADOR NA APROPRIAÇÃO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
INSUMO - INTERMEDIARIO-EXPORTADOR - APROPRIAÇÃO
/PWS/ZYCIR254
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/ZYCIR254 0001
DYNP /PWS/ZYCIR254 0002
DYNP /PWS/ZYCIR254 0005
DYNP /PWS/ZYCIR254 0006
REPS /PWS/ZYCIR254
REPS /PWS/ZYCIR254F01
REPS /PWS/ZYCIR254O01
TABD /PWS/ZYCIE282
TABD /PWS/ZYCIT282
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/ZYCIR254 0001
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/ZYCIR254 0002
*Campo:
Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
* << Inicio da Exclusão
V_QUAD2_0001
Quadr 1 1 134 134 1 CHAR
+ TC_IMP_AP
Tabel 2 2 132 132 16
Seleção linha=Nenh., Seleção coluna=Nenh.
TabEntr., Com título, Configurável, RedimVertic., RedimHoriz., LnhSep.vert.
- /PWS/ZYCIE282-NRSEQD
Texto 1 1 15 10 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE282-MATNR_IMP
Texto 1 2 6 18 1 CHAR X F
Título de coluna TC
- V_PERC
Texto 1 3 19 12 1 CHAR
Título de coluna TC
- /PWS/ZYCIE282-NRSEQIMP
Texto 1 4 14 10 1 CHAR X F
Título de coluna TC, Col.fixa TC
- /PWS/ZYCIE282-EBELN
Texto 1 5 6 10 1 CHAR X F
Título de coluna TC, Col.fixa TC
- /PWS/ZYCIE282-EBELP
Texto 1 6 15 5 1 CHAR X 2
Título de coluna TC, Col.fixa TC
- /PWS/ZYCIE282-NRDI
Texto 1 7 5 11 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE282-DTREG
Texto 1 8 12 10 1 CHAR X F
Título de coluna TC
- V_LOTE_I
Texto 1 9 4 15 1 CHAR
LOT
Título de coluna TC
- /PWS/ZYCIE282-MEINS_I
Texto 1 10 6 6 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE282-QTD_IORG
Texto 1 11 23 17 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE282-MENGECOM
Texto 1 12 15 17 1 CHAR X F
Título de coluna TC
- V_PERC_DI
Texto 1 13 18 17 1 CHAR
Título de coluna TC
- /PWS/ZYCIE282-QTD_MIMP
Texto 1 14 15 17 1 CHAR X F
Título de coluna TC
- V_TXT_SLDI
Texto 1 15 25 17 1 CHAR
Título de coluna TC
- /PWS/ZYCIE282-PERDA
Texto 1 16 7 8 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE282-QTD_PERDA
Texto 1 17 20 16 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE282-PERDA_E
Texto 1 18 12 8 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE282-QTD_PERDA_E
Texto 1 19 20 17 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE282-QTD_EQ_MEXP
Texto 1 20 19 17 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE282-NRSEQD
I/O 1 1 10 10 1 CHAR X Off
SPA GPA /PWS/ZYCIP435
Dest, Elem.TC, Col.fixa TC
- /PWS/ZYCIE282-MATNR_IMP
I/O 1 2 18 18 1 CHAR X Off
SPA GPA MAT
Elem.TC, Col.fixa TC
Saída de conversão=MATN1
- V_PERC
I/O 1 3 10 12 1 CHAR Off
Alinh.à dir., Elem.TC, Col.fixa TC
- /PWS/ZYCIE282-NRSEQIMP
I/O 1 4 10 10 1 CHAR X Off
SPA GPA /PWS/ZYCIP001
Dest, Elem.TC
- /PWS/ZYCIE282-EBELN
I/O 1 5 10 10 1 CHAR X Off
SPA GPA BES
Dest, Elem.TC
Saída de conversão=ALPHA
- /PWS/ZYCIE282-EBELP
I/O 1 6 5 5 1 NUMC X Off
SPA GPA BSP
Alinh.à dir., Elem.TC
- /PWS/ZYCIE282-NRDI
I/O 1 7 11 11 1 CHAR X Off
Elem.TC
- /PWS/ZYCIE282-DTREG
I/O 1 8 10 10 1 DATS X Off
Botão EntrsPoss.stand., Elem.TC
- V_LOTE_I
I/O 1 9 15 15 1 CHAR Off
LOT
Elem.TC
- /PWS/ZYCIE282-MEINS_I
I/O 1 10 3 6 1 UNIT X Off
Elem.TC
Saída de conversão=CUNIT
- /PWS/ZYCIE282-QTD_IORG
I/O 1 11 17 17 1 QUAN X Off
Alinh.à dir., Elem.TC
- /PWS/ZYCIE282-MENGECOM
I/O 1 12 17 17 1 QUAN X Off
Alinh.à dir., Elem.TC
- V_PERC_DI
I/O 1 13 10 17 1 CHAR Off
Alinh.à dir., Elem.TC
- /PWS/ZYCIE282-QTD_MIMP
I/O 1 14 17 17 1 QUAN X Off
Alinh.à dir., Elem.TC
- V_SALDO_DI
I/O 1 15 17 17 1 QUAN Off
Alinh.à dir., Elem.TC
- /PWS/ZYCIE282-PERDA
I/O 1 16 7 8 1 DEC X X Off
LOT
Alinh.à dir., Elem.TC
- /PWS/ZYCIE282-QTD_PERDA
I/O 1 17 16 16 1 QUAN X X Off
LOT
Alinh.à dir., Elem.TC
- /PWS/ZYCIE282-PERDA_E
I/O 1 18 8 8 1 DEC X Off
LOT
Alinh.à dir., Elem.TC
- /PWS/ZYCIE282-QTD_PERDA_E
I/O 1 19 33 17 1 QUAN X Off
LOT
Alinh.à dir., Elem.TC
- /PWS/ZYCIE282-QTD_EQ_MEXP
I/O 1 20 17 17 1 QUAN X X Off
LOT
Dest, Alinh.à dir., Elem.TC
* << Fim da Exclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/ZYCIR254 0005
* Criar tela 0005
*Campos:
Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
V_QUAD2_0001
Quadr 1 1 134 134 1 CHAR
+ TC_IMP_AP
Tabel 2 2 132 132 16
Seleção linha=Nenh., Seleção coluna=Nenh.
TabEntr., Com título, Configurável, RedimVertic., RedimHoriz., LnhSep.vert.
- /PWS/ZYCIE282-NRSEQD
Texto 1 1 15 10 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE282-MATNR_IMP
Texto 1 2 6 18 1 CHAR X F
Título de coluna TC
- V_PERC
Texto 1 3 19 12 1 CHAR
Título de coluna TC
- /PWS/ZYCIE282-NRSEQIMP
Texto 1 4 14 10 1 CHAR X F
Título de coluna TC, Col.fixa TC
- /PWS/ZYCIE282-EBELN
Texto 1 5 6 10 1 CHAR X F
Título de coluna TC, Col.fixa TC
- /PWS/ZYCIE282-EBELP
Texto 1 6 15 5 1 CHAR X 2
Título de coluna TC, Col.fixa TC
- /PWS/ZYCIE282-NRDI
Texto 1 7 5 11 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE282-DTREG
Texto 1 8 12 10 1 CHAR X F
Título de coluna TC
- V_LOTE_I
Texto 1 9 4 15 1 CHAR
LOT
Título de coluna TC
- /PWS/ZYCIE282-MEINS_I
Texto 1 10 6 6 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE282-QTD_IORG
Texto 1 11 23 17 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE282-MENGECOM
Texto 1 12 15 17 1 CHAR X F
Título de coluna TC
- V_PERC_DI
Texto 1 13 18 17 1 CHAR
Título de coluna TC
- /PWS/ZYCIE282-QTD_MIMP
Texto 1 14 15 17 1 CHAR X F
Título de coluna TC
- V_TXT_SLDI
Texto 1 15 25 17 1 CHAR
Título de coluna TC
- /PWS/ZYCIE282-PERDA
Texto 1 16 7 8 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE282-QTD_PERDA
Texto 1 17 20 16 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE282-PERDA_E
Texto 1 18 12 8 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE282-QTD_PERDA_E
Texto 1 19 20 17 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE282-QTD_EQ_MEXP
Texto 1 20 19 17 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE282-NRSEQD
I/O 1 1 10 10 1 CHAR X Off
SPA GPA /PWS/ZYCIP435
Dest, Elem.TC, Col.fixa TC
- /PWS/ZYCIE282-MATNR_IMP
I/O 1 2 18 18 1 CHAR X Off
SPA GPA MAT
Elem.TC, Col.fixa TC
Saída de conversão=MATN1
- V_PERC
I/O 1 3 10 12 1 CHAR Off
Alinh.à dir., Elem.TC, Col.fixa TC
- /PWS/ZYCIE282-NRSEQIMP
I/O 1 4 10 10 1 CHAR X Off
SPA GPA /PWS/ZYCIP001
Dest, Elem.TC
- /PWS/ZYCIE282-EBELN
I/O 1 5 10 10 1 CHAR X Off
SPA GPA BES
Dest, Elem.TC
Saída de conversão=ALPHA
- /PWS/ZYCIE282-EBELP
I/O 1 6 5 5 1 NUMC X Off
SPA GPA BSP
Alinh.à dir., Elem.TC
- /PWS/ZYCIE282-NRDI
I/O 1 7 11 11 1 CHAR X Off
Elem.TC
- /PWS/ZYCIE282-DTREG
I/O 1 8 10 10 1 DATS X Off
Botão EntrsPoss.stand., Elem.TC
- V_LOTE_I
I/O 1 9 15 15 1 CHAR Off
LOT
Elem.TC
- /PWS/ZYCIE282-MEINS_I
I/O 1 10 3 6 1 UNIT X Off
Elem.TC
Saída de conversão=CUNIT
- /PWS/ZYCIE282-QTD_IORG
I/O 1 11 17 17 1 QUAN X Off
Alinh.à dir., Elem.TC
- /PWS/ZYCIE282-MENGECOM
I/O 1 12 17 17 1 QUAN X Off
Alinh.à dir., Elem.TC
- V_PERC_DI
I/O 1 13 10 17 1 CHAR Off
Alinh.à dir., Elem.TC
- /PWS/ZYCIE282-QTD_MIMP
I/O 1 14 17 17 1 QUAN X Off
Alinh.à dir., Elem.TC
- V_SALDO_DI
I/O 1 15 17 17 1 QUAN Off
Alinh.à dir., Elem.TC
- /PWS/ZYCIE282-PERDA
I/O 1 16 7 8 1 DEC X X Off
LOT
Alinh.à dir., Elem.TC
- /PWS/ZYCIE282-QTD_PERDA
I/O 1 17 16 16 1 QUAN X X Off
LOT
Alinh.à dir., Elem.TC
- /PWS/ZYCIE282-PERDA_E
I/O 1 18 8 8 1 DEC X Off
LOT
Alinh.à dir., Elem.TC
- /PWS/ZYCIE282-QTD_PERDA_E
I/O 1 19 33 17 1 QUAN X Off
LOT
Alinh.à dir., Elem.TC
- /PWS/ZYCIE282-QTD_EQ_MEXP
I/O 1 20 17 17 1 QUAN X X Off
LOT
Dest, Alinh.à dir., Elem.TC
*Codigo fonte:
PROCESS BEFORE OUTPUT.
MODULE STATUS_0005.
LOOP AT it_apr
WITH CONTROL tc_imp_ap CURSOR tc_imp_ap-current_line.
MODULE: fill_screen_0002_imp ,
select_text_material2_imp.
ENDLOOP.
PROCESS AFTER INPUT.
LOOP AT it_apr.
MODULE fill_table_it_apr.
ENDLOOP.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/ZYCIR254 0006
* Criar tela 0006
*Campos:
Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
V_QUAD2_0001
Quadr 1 1 134 134 1 CHAR
+ TC_IMP_AP2
Tabel 2 2 132 132 7
Seleção linha=Nenh., Seleção coluna=Nenh.
TabEntr., Com título, Configurável, RedimVertic., RedimHoriz., LnhSep.vert.
- /PWS/ZYCIE282-NRSEQD
Texto 1 1 15 10 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE282-MATNR_IMP
Texto 1 2 6 18 1 CHAR X F
Título de coluna TC
- V_PERC
Texto 1 3 19 12 1 CHAR
Título de coluna TC
- /PWS/ZYCIE282-NRSEQIMP
Texto 1 4 14 10 1 CHAR X F
Título de coluna TC, Col.fixa TC
- /PWS/ZYCIE282-EBELN
Texto 1 5 6 10 1 CHAR X F
Título de coluna TC, Col.fixa TC
- /PWS/ZYCIE282-EBELP
Texto 1 6 15 5 1 CHAR X 2
Título de coluna TC, Col.fixa TC
- /PWS/ZYCIE282-NRDI
Texto 1 7 5 11 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE282-DTREG
Texto 1 8 12 10 1 CHAR X F
Título de coluna TC
- V_LOTE_I
Texto 1 9 4 15 1 CHAR
LOT
Título de coluna TC
- /PWS/ZYCIE282-MEINS_I
Texto 1 10 6 6 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE282-QTD_IORG
Texto 1 11 23 17 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE282-MENGECOM
Texto 1 12 15 17 1 CHAR X F
Título de coluna TC
- V_PERC_DI
Texto 1 13 18 17 1 CHAR
Título de coluna TC
- /PWS/ZYCIE282-QTD_MIMP
Texto 1 14 15 17 1 CHAR X F
Título de coluna TC
- V_TXT_SLDI
Texto 1 15 25 17 1 CHAR
Título de coluna TC
- /PWS/ZYCIE282-PERDA
Texto 1 16 7 8 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE282-QTD_PERDA
Texto 1 17 20 16 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE282-PERDA_E
Texto 1 18 12 8 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE282-QTD_PERDA_E
Texto 1 19 20 17 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE282-QTD_EQ_MEXP
Texto 1 20 19 17 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE282-NRSEQD
I/O 1 1 10 10 1 CHAR X Off
SPA GPA /PWS/ZYCIP435
Dest, Elem.TC, Col.fixa TC
- /PWS/ZYCIE282-MATNR_IMP
I/O 1 2 18 18 1 CHAR X Off
SPA GPA MAT
Elem.TC, Col.fixa TC
Saída de conversão=MATN1
- V_PERC
I/O 1 3 10 12 1 CHAR Off
Alinh.à dir., Elem.TC, Col.fixa TC
- /PWS/ZYCIE282-NRSEQIMP
I/O 1 4 10 10 1 CHAR X Off
SPA GPA /PWS/ZYCIP001
Dest, Elem.TC
- /PWS/ZYCIE282-EBELN
I/O 1 5 10 10 1 CHAR X Off
SPA GPA BES
Dest, Elem.TC
Saída de conversão=ALPHA
- /PWS/ZYCIE282-EBELP
I/O 1 6 5 5 1 NUMC X Off
SPA GPA BSP
Alinh.à dir., Elem.TC
- /PWS/ZYCIE282-NRDI
I/O 1 7 11 11 1 CHAR X Off
Elem.TC
- /PWS/ZYCIE282-DTREG
I/O 1 8 10 10 1 DATS X Off
Botão EntrsPoss.stand., Elem.TC
- V_LOTE_I
I/O 1 9 15 15 1 CHAR Off
LOT
Elem.TC
- /PWS/ZYCIE282-MEINS_I
I/O 1 10 3 6 1 UNIT X Off
Elem.TC
Saída de conversão=CUNIT
- /PWS/ZYCIE282-QTD_IORG
I/O 1 11 17 17 1 QUAN X Off
Alinh.à dir., Elem.TC
- /PWS/ZYCIE282-MENGECOM
I/O 1 12 17 17 1 QUAN X Off
Alinh.à dir., Elem.TC
- V_PERC_DI
I/O 1 13 10 17 1 CHAR Off
Alinh.à dir., Elem.TC
- /PWS/ZYCIE282-QTD_MIMP
I/O 1 14 17 17 1 QUAN X Off
Alinh.à dir., Elem.TC
- V_SALDO_DI
I/O 1 15 17 17 1 QUAN Off
Alinh.à dir., Elem.TC
- /PWS/ZYCIE282-PERDA
I/O 1 16 7 8 1 DEC X X Off
LOT
Alinh.à dir., Elem.TC
- /PWS/ZYCIE282-QTD_PERDA
I/O 1 17 16 16 1 QUAN X X Off
LOT
Alinh.à dir., Elem.TC
- /PWS/ZYCIE282-PERDA_E
I/O 1 18 8 8 1 DEC X Off
LOT
Alinh.à dir., Elem.TC
- /PWS/ZYCIE282-QTD_PERDA_E
I/O 1 19 33 17 1 QUAN X Off
LOT
Alinh.à dir., Elem.TC
- /PWS/ZYCIE282-QTD_EQ_MEXP
I/O 1 20 17 17 1 QUAN X X Off
LOT
Dest, Alinh.à dir., Elem.TC
BOX03
Quadr 10 1 134 134 1 CHAR
+ TC_MER_AP
Tabel 11 2 132 132 7
Seleção linha=Simples, Seleção coluna=Simples
TabEntr., Com título, Configurável, RedimVertic., RedimHoriz., LnhSep.vert.
- WA_REAL_MERC-NRSEQD
Texto 1 1 15 10 1 CHAR
Título de coluna TC
- WA_REAL_MERC-MATNR
Texto 1 2 6 18 1 CHAR
Título de coluna TC
- WA_REAL_MERC-DISP
Texto 1 3 19 10 1 CHAR
Título de coluna TC
- WA_REAL_MERC-FORNEC
Texto 1 4 10 25 1 CHAR
Título de coluna TC
- WA_REAL_MERC-DOCNUM
Texto 1 5 18 10 1 CHAR
Título de coluna TC
- WA_REAL_MERC-EBELN
Texto 1 6 6 10 1 CHAR
Título de coluna TC
- WA_REAL_MERC-EBELP
Texto 1 7 4 5 1 CHAR
Título de coluna TC
- WA_REAL_MERC-NFNUM
Texto 1 8 18 8 1 CHAR
Título de coluna TC
- WA_REAL_MERC-SERIE
Texto 1 9 5 3 1 CHAR
Título de coluna TC
- WA_REAL_MERC-DTNF
Texto 1 10 7 10 1 CHAR
Título de coluna TC
- WA_REAL_MERC-LOTE
Texto 1 11 4 15 1 CHAR
Título de coluna TC
- WA_REAL_MERC-MEINS_I
Texto 1 12 6 6 1 CHAR
Título de coluna TC
- WA_REAL_MERC-QTD_IORG
Texto 1 13 23 17 1 CHAR
Título de coluna TC
- WA_REAL_MERC-SALDO
Texto 1 14 15 17 1 CHAR
Título de coluna TC
- WA_REAL_MERC-DISPNF
Texto 1 15 18 17 1 CHAR
Título de coluna TC
- WA_REAL_MERC-QTD_MIMP
Texto 1 16 15 17 1 CHAR
Título de coluna TC
- WA_REAL_MERC-SALDOR
Texto 1 17 25 17 1 CHAR
Título de coluna TC
- WA_REAL_MERC-NRSEQD
I/O 1 1 10 10 1 CHAR Off
Dest, Alinh.à dir., Elem.TC, Col.fixa TC
- WA_REAL_MERC-MATNR
I/O 1 2 18 18 1 CHAR Off
Alinh.à dir., Elem.TC, Col.fixa TC
- WA_REAL_MERC-DISP
I/O 1 3 10 12 1 CHAR Off
Alinh.à dir., Elem.TC, Col.fixa TC
- WA_REAL_MERC-FORNEC
I/O 1 4 35 25 1 CHAR Off
PossRol, Elem.TC
- WA_REAL_MERC-DOCNUM
I/O 1 5 10 10 1 NUMC Off
Dest, Alinh.à dir., Elem.TC
- WA_REAL_MERC-EBELN
I/O 1 6 10 10 1 CHAR Off
Dest, Alinh.à dir., Elem.TC
- WA_REAL_MERC-EBELP
I/O 1 7 5 5 1 NUMC Off
Alinh.à dir., Elem.TC
- WA_REAL_MERC-NFNUM
I/O 1 8 6 8 1 NUMC Off
Alinh.à dir., Elem.TC
- WA_REAL_MERC-SERIE
I/O 1 9 3 3 1 CHAR Off
Alinh.à dir., Elem.TC
- WA_REAL_MERC-DTNF
I/O 1 10 10 10 1 DATS Off
Alinh.à dir., Elem.TC
- WA_REAL_MERC-LOTE
I/O 1 11 15 15 1 CHAR Off
LOT
Alinh.à dir., Elem.TC
- WA_REAL_MERC-MEINS_I
I/O 1 12 3 6 1 CHAR Off
Elem.TC
- WA_REAL_MERC-QTD_IORG
I/O 1 13 33 17 1 QUAN Off
Alinh.à dir., Elem.TC
- WA_REAL_MERC-SALDO
I/O 1 14 33 17 1 QUAN Off
Alinh.à dir., Elem.TC
- WA_REAL_MERC-DISPNF
I/O 1 15 10 17 1 CHAR Off
Alinh.à dir., Elem.TC
- WA_REAL_MERC-QTD_MIMP
I/O 1 16 33 17 1 QUAN Off
Alinh.à dir., Elem.TC
- WA_REAL_MERC-SALDOR
I/O 1 17 33 17 1 QUAN Off
Alinh.à dir., Elem.TC
*Codigo fonte
PROCESS BEFORE OUTPUT.
MODULE status_0006.
LOOP AT it_apr
WITH CONTROL tc_imp_ap2 CURSOR tc_imp_ap2-current_line.
MODULE: fill_screen_0002_imp ,
select_text_material2_imp.
ENDLOOP.
LOOP AT it_apr_m
WITH CONTROL tc_mer_ap CURSOR tc_mer_ap-current_line.
MODULE: fill_screen_0002_mer .
ENDLOOP.
PROCESS AFTER INPUT.
LOOP AT it_apr.
MODULE fill_table_it_apr.
ENDLOOP.
LOOP AT it_apr_m.
MODULE fill_table_it_apr.
ENDLOOP.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR254
REPORT /pws/zycir070 MESSAGE-ID /pws/zycim.
INCLUDE /pws/zycir254x01.
CONTROLS: tc_exp TYPE TABLEVIEW USING SCREEN '0001',
tc_exp_ap TYPE TABLEVIEW USING SCREEN '0002',
* >> Início da exclusão:
tc_imp_ap TYPE TABLEVIEW USING SCREEN '0002',
* << Fim da exclusão
* >> Início da inclusão:
tc_imp_ap TYPE TABLEVIEW USING SCREEN '0005',
tc_imp_ap2 TYPE TABLEVIEW USING SCREEN '0006',
tc_mer_ap TYPE TABLEVIEW USING SCREEN '0006',
* << Fim da inclusão
tc_log TYPE TABLEVIEW USING SCREEN '0003',
tc_exp_desa TYPE TABLEVIEW USING SCREEN '0004'.
TABLES: ekko ,
t001 ,
/pws/zycee002,
...
...
INCLUDE STRUCTURE /pws/zycit282.
DATA: un_ncm LIKE /pws/zycit245-meins,
lote TYPE /pws/zycit468-lote_i,
perc(10).
DATA: END OF it_apr.
* >> Início da inclusão:
DATA: BEGIN OF it_apr_m OCCURS 0.
INCLUDE STRUCTURE /pws/zycit282.
DATA: un_ncm LIKE /pws/zycit245-meins,
lote TYPE /pws/zycit468-lote_i,
perc(10).
DATA: END OF it_apr_m.
* << Fim da inclusão
DATA: BEGIN OF it_apr_final OCCURS 0.
INCLUDE STRUCTURE /pws/zycit282.
DATA: un_ncm LIKE /pws/zycit245-meins,
lote TYPE /pws/zycit468-lote_i,
perc(10).
...
...
DATA: BEGIN OF it_vbap OCCURS 0,
vbeln LIKE vbap-vbeln,
netpr LIKE vbap-netpr,
END OF it_vbap.
DATA: wa_cols TYPE cxtab_column.
* >> Início da inclusão:
DATA: BEGIN OF wa_real_merc.
DATA: nrseqd TYPE /pws/zycit279-nrseqd,
matnr TYPE /pws/zycit279-matnr,
disp(10) TYPE c,
ebeln TYPE /pws/zycit282-ebeln,
ebelp TYPE /pws/zycit282-ebelp,
docnum TYPE /pws/zycit279-docnum,
nfnum TYPE /pws/zycit279-nfnum,
serie TYPE /pws/zycit279-serie,
dtnf TYPE /pws/zycit279-dtnf ,
lote TYPE /pws/zycit279-lote ,
meins_i TYPE /pws/zycit282-meins_i,
qtd_iorg TYPE /pws/zycit282-qtd_iorg ,
saldo TYPE /pws/zycit282-qtd_iorg ,
dispnf(10) TYPE c ,
qtd_mimp TYPE /pws/zycit282-qtd_mimp,
saldor TYPE /pws/zycit282-qtd_mimp,
fornec TYPE lfa1-name1.
DATA: END OF wa_real_merc.
* << Fim da inclusão
DATA: v_erro(1) TYPE c VALUE 'N' ,
* >> Início da inclusão:
v_tela(4) TYPE c ,
* << Fim da inclusão
v_errolt(1) TYPE c ,
...
...
v_perc(10) TYPE c ,
v_tptrans(1) TYPE c ,
v_un_ncm LIKE /pws/zycit245-meins ,
v_apr LIKE /pws/zycit283-qtd_apr ,
v_saldo_mat TYPE p DECIMALS 3 ,
* >> Início da exclusão:
v_perc_di TYPE p DECIMALS 2 ,
* << Fim da exclusão
* >> Início da inclusão:
v_perc_di(10) TYPE c ,
v_perc_i TYPE p DECIMALS 2 ,
* << Fim da inclusão
v_saldo_di TYPE p DECIMALS 3 ,
v_qtd_apropriada TYPE p DECIMALS 3 ,
v_valor_imp LIKE /pws/zycit282-imp_s_cob_camb ,
v_exp_camb LIKE /pws/zycit282-exp_c_cob_camb,
v_ebelp LIKE /pws/zycit282-ebelp ,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR254F01
...
ENDIF.
MODIFY it_zycet002.
ENDLOOP.
SORT it_zycet002 BY nrseq vbeln_va vbeln_vf posnr ASCENDING.
PERFORM run_appropriation_exportation.
* >> Início da inclusão: FORM EXECUTE_APROP_BUTTON
CLEAR it_zycet002.
MODIFY it_zycet002 TRANSPORTING mexp WHERE mexp NE space.
MOVE 1 TO v_indicatu.
READ TABLE it_zycet002 INDEX v_indicatu.
IF sy-subrc EQ 0.
it_zycet002-mexp = 'X'.
MODIFY it_zycet002 INDEX v_indicatu.
ENDIF.
* << Fim da inclusão
PERFORM locate_record_appropriation.
CALL SCREEN 0002.
ELSE.
MESSAGE s015 WITH text-002 text-003.
ENDIF.
...
...
AND eebelp = it_zycet002-ebelp.
MOVE-CORRESPONDING it_apr_final TO it_apr.
APPEND it_apr.
ENDLOOP.
ENDLOOP.
* >> Início da inclusão: FORM LOCATE_RECORD_APPROPRIATION
REFRESH it_apr_m.
it_apr_m[] = it_apr[].
DELETE it_apr_m WHERE nrseqimp NE space.
DELETE it_apr WHERE nrseqimp EQ space.
* << Fim da inclusão
ENDFORM.
FORM get_bom_of_materials TABLES p_list LIKE it_stpox2[]
p_list2 LIKE it_matcat[]
USING p_matnr
p_capid
...
...
SET PARAMETER ID 'VL' FIELD v_vbeln_vl.
CALL TRANSACTION 'VL03N' AND SKIP FIRST SCREEN.
CLEAR ok_code.
ENDIF.
WHEN '/PWS/ZYCEE002-DOCNUM'.
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
IF NOT v_valor IS INITIAL.
v_docnum = v_valor.
SET PARAMETER ID 'JEF' FIELD v_docnum.
CALL TRANSACTION 'J1B3' AND SKIP FIRST SCREEN.
CLEAR ok_code.
ENDIF.
WHEN 'WA_REAL_MERC-DOCNUM'.
* << Fim da inclusão
IF NOT v_valor IS INITIAL.
v_docnum = v_valor.
SET PARAMETER ID 'JEF' FIELD v_docnum.
CALL TRANSACTION 'J1B3' AND SKIP FIRST SCREEN.
CLEAR ok_code.
...
...
i_ebeln = v_valor.
SET PARAMETER ID 'BES' FIELD i_ebeln.
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
WHEN 'WA_REAL_MERC-EBELN'.
IF NOT v_valor IS INITIAL.
SELECT SINGLE ebeln FROM ekko INTO ekko
WHERE ebeln = v_valor.
IF sy-subrc EQ 0.
i_ebeln = v_valor.
SET PARAMETER ID 'BES' FIELD i_ebeln.
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
ENDIF.
ENDIF.
* << Fim da inclusão
WHEN '/PWS/ZYCIE282-NRSEQIMP'.
IF NOT v_valor IS INITIAL.
SET PARAMETER ID '/PWS/ZYCIP001' FIELD v_valor.
CALL TRANSACTION '/PWS/ZYCI001_E' AND SKIP FIRST SCREEN.
* >> Início da inclusão: FORM CHECK_FIELD_SELECTION
CLEAR ok_code.
ENDIF.
WHEN 'WA_REAL_MERC-NRSEQD'.
IF NOT v_valor IS INITIAL.
SET PARAMETER ID '/PWS/ZYCIP435' FIELD v_valor.
CALL TRANSACTION '/PWS/ZYCI040_E' AND SKIP FIRST SCREEN.
* << Fim da inclusão
CLEAR ok_code.
ENDIF.
WHEN '/PWS/ZYCIE282-NRSEQD'.
IF NOT v_valor IS INITIAL.
SET PARAMETER ID '/PWS/ZYCIP435' FIELD v_valor.
...
...
ENDIF.
PERFORM converte_um_ncm USING it_zycit279-matnr
CHANGING itab_zycit468-meins_i
it_zycet002-werks
itab_zycit468-qtd_mimp.
* >> Início da inclusão: FORM APROP_LOTE
itab_zycit468-lote_e = it_zycet002-lote.
* << Fim da inclusão
modify itab_zycit468.
READ TABLE it_zycit247 WITH KEY
j_1bnbm = it_zycet002-steuc
nrseqd = it_zycit279-nrseqd.
READ TABLE it_zycit244 WITH KEY nrseqd = it_zycit279-nrseqd.
...
...
it_zycet002-posnl TO it_apr_final-posnl ,
it_zycet002-ebeln TO it_apr_final-eebeln ,
it_zycet002-ebelp TO it_apr_final-eebelp ,
it_zycet002-steuc TO it_apr_final-j_1bnbmexp,
it_zycit279-nrseq TO it_apr_final-nrseqimp ,
* >> Início da inclusão: FORM APROP_LOTE
it_zycit279-docnum TO it_apr_final-docnumimp ,
it_zycit279-buzei TO it_apr_final-buzei ,
* << Fim da inclusão
it_zycit279-ebeln TO it_apr_final-ebeln ,
it_zycit279-ebelp TO it_apr_final-ebelp ,
it_zycit279-nrdi TO it_apr_final-nrdi ,
it_zycit279-dtdi TO it_apr_final-dtreg ,
it_zycit279-ebelp TO it_apr_final-ebelp ,
...
...
PERFORM converte_um_ncm USING it_apr_final-matnr_exp
CHANGING it_apr_final-um_ncm
it_zycet002-werks
it_apr_final-qtd_ncm.
it_apr_final-mengecom = it_zycit279-slqtde.
* >> Início da exclusão: FORM APROP_LOTE
it_apr_final-perc = '100%'.
* << Fim da exclusão
* >> Início da inclusão: FORM APROP_LOTE
it_apr_final-perc = '100.00%'.
* << Fim da inclusão
WRITE it_apr_final-perc TO it_apr_final-perc RIGHT-JUSTIFIED.
READ TABLE itab_zycit439 WITH KEY
insumo = it_apr_final-matnr_imp
matnr = it_zycet002-matnr.
IF sy-subrc EQ 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR254O01
...
/pws/zycie282-perda = it_apr-perda .
/pws/zycie282-qtd_perda = it_apr-qtd_perda .
/pws/zycie282-perda_e = it_apr-perda_e .
/pws/zycie282-qtd_perda_e = it_apr-qtd_perda_e .
v_lote_i = it_apr-lote.
* >> Início da exclusão: MODULE FILL_SCREEN_0002_IMP
v_perc_di = ( /pws/zycie282-mengecom / /pws/zycie282-qtd_iorg )
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_SCREEN_0002_IMP
v_perc_i = ( /pws/zycie282-mengecom / /pws/zycie282-qtd_iorg )
* << Fim da inclusão
* 100.
* >> Início da exclusão: MODULE FILL_SCREEN_0002_IMP
IF v_perc_di > 100.
v_perc_di = 100.
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_SCREEN_0002_IMP
IF v_perc_i > 100.
v_perc_i = 100.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: MODULE FILL_SCREEN_0002_IMP
MOVE v_perc_i TO v_perc_di.
CONCATENATE v_perc_di '%' INTO v_perc_di.
TRANSLATE v_perc_di USING '.,' .
TRANSLATE v_perc USING '.,' .
* << Fim da inclusão
v_saldo_di = /pws/zycie282-mengecom - /pws/zycie282-qtd_mimp .
IF v_saldo_di < 0.
v_saldo_di = 0.
ENDIF.
ENDMODULE.
...
...
wa_cols-invisible = 1.
MODIFY tc_exp_ap-cols FROM wa_cols.
ENDIF.
ENDIF.
ENDLOOP.
* >> Início da exclusão: MODULE SET_SCREEN2
LOOP AT tc_imp_ap-cols INTO wa_cols.
IF /pws/zycit321-lote EQ space.
IF wa_cols-screen-group1 EQ 'LOT'.
wa_cols-invisible = 1.
MODIFY tc_imp_ap-cols FROM wa_cols.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN2
DESCRIBE TABLE it_apr_m LINES v_linha.
CLEAR: it_apr_m.
IF v_linha > 0.
v_tela = '0006'.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: MODULE SET_SCREEN2
IF wa_cols-screen-group2 EQ 'LOT'.
wa_cols-invisible = 1.
MODIFY tc_imp_ap-cols FROM wa_cols.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN2
v_tela = '0005'.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: MODULE SET_SCREEN2
ENDLOOP.
* << Fim da exclusão
ENDMODULE.
...
...
ENDMODULE.
MODULE set_screen_0004 OUTPUT.
DESCRIBE TABLE it_zycet002_desa LINES v_ilinhas.
tc_exp_desa-lines = v_ilinhas.
ENDMODULE.
* >> Início da inclusão:
MODULE fill_screen_0002_mer OUTPUT.
DATA: v_perc_m TYPE p DECIMALS 2..
CLEAR v_qtd_apropriada.
READ TABLE it_zycit279 WITH KEY docnum = it_apr_m-docnumimp.
IF sy-subrc EQ 0.
wa_real_merc-ebeln = it_apr_m-ebeln .
wa_real_merc-ebelp = it_apr_m-ebelp .
wa_real_merc-nrseqd = it_apr_m-nrseqd .
wa_real_merc-lote = it_apr_m-lote .
wa_real_merc-docnum = it_apr_m-docnumimp .
wa_real_merc-matnr = it_apr_m-matnr_imp .
wa_real_merc-meins_i = it_apr_m-meins_i .
wa_real_merc-qtd_iorg = it_apr_m-qtd_iorg .
wa_real_merc-qtd_mimp = it_apr_m-qtd_mimp .
wa_real_merc-nfnum = it_zycit279-nfnum .
wa_real_merc-serie = it_zycit279-serie .
wa_real_merc-dtnf = it_zycit279-dtnf .
wa_real_merc-saldo = it_apr_m-mengecom .
wa_real_merc-disp = it_apr_m-perc .
READ TABLE it_zycit244 WITH KEY nrseqd = it_apr_m-nrseqd.
SELECT SINGLE name1 FROM lfa1 INTO wa_real_merc-fornec
WHERE lifnr = it_zycit244-lifnr.
v_perc_m = ( it_apr_m-mengecom / it_apr_m-qtd_iorg )
* 100.
IF v_perc_m > 100.
v_perc_m = 100.
ENDIF.
MOVE v_perc_m TO wa_real_merc-dispnf.
CONCATENATE wa_real_merc-dispnf '%' INTO wa_real_merc-dispnf.
TRANSLATE wa_real_merc-dispnf USING '.,' .
TRANSLATE wa_real_merc-disp USING '.,' .
wa_real_merc-saldor = it_apr_m-mengecom - it_apr_m-qtd_mimp .
IF wa_real_merc-saldor < 0.
wa_real_merc-saldor = 0.
ENDIF.
ENDIF.
ENDMODULE.
MODULE status_0006 OUTPUT.
LOOP AT tc_imp_ap2-cols INTO wa_cols.
IF /pws/zycit321-lote EQ space.
IF wa_cols-screen-group1 EQ 'LOT'.
wa_cols-invisible = 1.
MODIFY tc_imp_ap2-cols FROM wa_cols.
ENDIF.
ELSE.
IF wa_cols-screen-group2 EQ 'LOT'.
wa_cols-invisible = 1.
MODIFY tc_imp_ap2-cols FROM wa_cols.
ENDIF.
ENDIF.
ENDLOOP.
LOOP AT tc_mer_ap-cols INTO wa_cols.
IF /pws/zycit321-lote EQ space.
IF wa_cols-screen-group1 EQ 'LOT'.
wa_cols-invisible = 1.
MODIFY tc_mer_ap-cols FROM wa_cols.
ENDIF.
ENDIF.
ENDLOOP.
DESCRIBE TABLE it_apr_m LINES v_linha.
CLEAR: it_apr_m.
tc_mer_ap-lines = v_linha.
ENDMODULE.
MODULE status_0005 OUTPUT.
LOOP AT tc_imp_ap-cols INTO wa_cols.
IF /pws/zycit321-lote EQ space.
IF wa_cols-screen-group1 EQ 'LOT'.
wa_cols-invisible = 1.
MODIFY tc_imp_ap-cols FROM wa_cols.
ENDIF.
ELSE.
IF wa_cols-screen-group2 EQ 'LOT'.
wa_cols-invisible = 1.
MODIFY tc_imp_ap-cols FROM wa_cols.
ENDIF.
ENDIF.
ENDLOOP.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE282
Nome de campo Elem.dados Tab.verif. Tab.ref. Cpo.ref. N CtDt Comp. Grupo
*Campos modificados
*de
MENGECOM BSTMG /PWS/ZYCIT100 MEINSCOM QUAN 13
*para
MENGECOM BSTMG /PWS/ZYCIE282 MEINS_I QUAN 13
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT282
Nome de campo Chv Elem.dados Tab.verif. Tab.ref. Cpo.ref. N CtDt Comp. Grupo
*Campos modificados
*de
MENGECOM BSTMG /PWS/ZYCIT100 MEINSCOM QUAN 13
*para
MENGECOM BSTMG /PWS/ZYCIT282 MEINS_I QUAN 13