CE PLUS - Nota 000081
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 30/09/2005 00:00:00
Data/Hora Última Alteração: 09/02/2011 09:31:41
Descrição da Nota: POP-UP NA APLICABILIDADE DO INSUMO / MATERIAL ACABADO NO AC
Sintoma
Necessidade de visualizar no ato concessório as DI's e RE's vinculadas.
Solução
Criação de pop-ups para visualização da aplicabilidade do insumo / material acabado.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00081 Data: 30/09/2005 Hora: 16:47:04
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00081
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00021
Agrupamento : 00081
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
POP-UP NA APLICABILIDADE DO INSUMO / MATERIAL ACABADO NO AC
----------------------------------------------------------------------------------------------------
Palavras Chave:
DRAWBACK - ATO CONCESSÓRIO - INSUMO - MATERIAL ACABADO
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCI040
DYNP /PWS/SAPMZYCI040 0204
DYNP /PWS/SAPMZYCI040 0207
DYNP /PWS/SAPMZYCI040 0241
DYNP /PWS/SAPMZYCI040 0242
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040I01
REPS /PWS/MZYCI040O01
REPS /PWS/MZYCI040TOP2
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI040
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0204
*Campos Modificados - Características
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
- /PWS/ZYCIE246-EBELN
I/O 1 3 10 11 1 CHAR X Off
NEX SPA GPA BES
Dest, Elem.TC, Col.fixa TC
Saída de conversão=ALPHA
- /PWS/ZYCIE246-EBELP
I/O 1 4 5 5 1 NUMC X Off
NEX SPA GPA BSP
Elem.TC, Col.fixa TC
- /PWS/ZYCIE246-NRSEQ
I/O 1 5 10 10 1 CHAR X Off
NEX IE SPA GPA /PWS/ZYCIP001
Dest, Elem.TC, Col.fixa TC
- /PWS/ZYCIE246-J_1BNBM
I/O 1 6 16 16 1 CHAR X Off
NEX
Chave externa, Botão EntrsPoss.stand., Elem.TC
- /PWS/ZYCIE246-MATNR
I/O 1 7 18 18 1 CHAR X X Off
NEX SPA GPA MAT
Chave externa, PossRol, Botão EntrsPoss.stand., Elem.TC
Saída de conversão=MATN1
- /PWS/ZYCIE246-NFNUM
I/O 1 8 6 6 1 NUMC X Off
NEX
Elem.TC
- /PWS/ZYCIE246-ITMNUM
I/O 1 9 6 6 1 NUMC X Off
NEX
Elem.TC
- /PWS/ZYCIE246-SERIE
I/O 1 10 3 6 1 CHAR X Off
NEX
Elem.TC
- /PWS/ZYCIE246-NRSEQLI
I/O 1 13 10 10 1 CHAR X Off
NEX IE /PWS/ZYCIP078
Dest, Elem.TC
- /PWS/ZYCIE246-NRLI
I/O 1 14 12 12 1 CHAR X Off
NEX IE
Elem.TC
Saída de conversão=ZCE01
- /PWS/ZYCIE246-DTREGLI
I/O 1 15 10 10 1 DATS X Off
NEX IE
Botão EntrsPoss.stand., Elem.TC
- /PWS/ZYCIE246-NRSEQDI
I/O 1 16 10 10 1 CHAR X Off
NEX IE SPA GPA /PWS/ZYCIP085
Dest, Elem.TC
- /PWS/ZYCIE246-NRDI
I/O 1 17 11 10 1 CHAR X Off
NEX IE
PossRol, Elem.TC
- /PWS/ZYCIE246-TPDI
I/O 1 18 1 6 1 CHAR X Off
NEX IE
Botão EntrsPoss.stand., Elem.TC
- /PWS/ZYCIE246-DTDI
I/O 1 19 10 10 1 DATS X Off
NEX IE
Botão EntrsPoss.stand., Elem.TC
- /PWS/ZYCIE246-DATACI
I/O 1 20 10 10 1 DATS X Off
NEX IE
Botão EntrsPoss.stand., Elem.TC
- /PWS/ZYCIE246-DTDESEMB
I/O 1 21 10 10 1 DATS X Off
NEX IE
Botão EntrsPoss.stand., Elem.TC
- /PWS/ZYCIE246-GEWEI
I/O 1 22 3 3 1 UNIT X Off
NEX
Chave externa, Botão EntrsPoss.stand., Elem.TC
Saída de conversão=CUNIT
- /PWS/ZYCIE246-NTGEW
I/O 1 23 17 17 1 QUAN X Off
NEX
Alinh.à dir., Elem.TC
- /PWS/ZYCIE246-MEINS
I/O 1 24 3 3 1 UNIT X Off
NEX
Chave externa, Botão EntrsPoss.stand., Elem.TC
Saída de conversão=CUNIT
- /PWS/ZYCIE246-QTD_ITEN
I/O 1 25 33 17 1 QUAN X Off
NEX
Alinh.à dir., Elem.TC
- /PWS/ZYCIE246-UM_NCM
I/O 1 26 3 5 1 UNIT X Off
NEX
Elem.TC
Saída de conversão=CUNIT
- /PWS/ZYCIE246-QTD_NCM
I/O 1 27 33 17 1 QUAN X X Off
NEX
Alinh.à dir., Elem.TC
- /PWS/ZYCIE246-QTD_COMPV
I/O 1 28 33 17 1 QUAN X Off
NEX
Alinh.à dir., Elem.TC
- V_SLD_COMPV
I/O 1 29 17 17 1 DEC Off S.Sd
Alinh.à dir., Elem.TC
- /PWS/ZYCIE246-NETPR
I/O 1 30 31 17 1 CURR X Off
NEX
Alinh.à dir., Elem.TC
Código da moeda=/PWS/ZYCIE246-WAERS
- /PWS/ZYCIE246-VLTOT
I/O 1 31 31 17 1 CURR X Off
NEX
Alinh.à dir., Elem.TC
Código da moeda=/PWS/ZYCIE246-WAERS
- VLTOT_BRL
I/O 1 32 31 17 1 CURR Off
NEX
Alinh.à dir., Elem.TC
Código da moeda=/PWS/ZYCIE246-WAERS
- /PWS/ZYCIE246-VLFRETE
I/O 1 33 31 23 1 CURR X Off
NEX IE
Alinh.à dir., Elem.TC
Código da moeda=/PWS/ZYCIE246-WAERS
- /PWS/ZYCIE246-VLSEG
I/O 1 34 31 23 1 CURR X Off
NEX IE
Alinh.à dir., Elem.TC
Código da moeda=/PWS/ZYCIE246-WAERS
- /PWS/ZYCIE246-PERDA
I/O 1 35 8 10 1 DEC X Off
NEX
Alinh.à dir., Elem.TC
- /PWS/ZYCIE246-QTD_PERDA
I/O 1 36 33 17 1 QUAN X Off
NEX
Alinh.à dir., Elem.TC
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0207
*Campos Modificados - Características
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
- /PWS/ZYCIE248-VBELN_VA
Texto 1 2 5 10 1 CHAR X F
Título de coluna TC, Col.fixa TC
- /PWS/ZYCIE248-AUPOS
Texto 1 3 4 6 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE248-VBELN_VL
Texto 1 4 7 9 1 CHAR X F
Título de coluna TC, Col.fixa TC
- /PWS/ZYCIE248-POSNL
Texto 1 5 15 6 1 CHAR X 2
Título de coluna TC, Col.fixa TC
- /PWS/ZYCIE248-VBELN_VF
Texto 1 6 11 12 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE248-POSNR
Texto 1 7 15 6 1 CHAR X 2
Título de coluna TC
- /PWS/ZYCIE248-MVGR1
Texto 1 8 18 19 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE248-STEUC
Texto 1 9 10 16 1 CHAR X F
Chave externa, Título de coluna TC
- /PWS/ZYCIE248-TAXLAW
Texto 1 10 15 3 1 CHAR X 2
Chave externa, Título de coluna TC
- /PWS/ZYCIE248-NRSEQ
Texto 1 11 9 10 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE248-MATNR
Texto 1 12 15 18 1 CHAR X 2
Título de coluna TC
- /PWS/ZYCIE248-NFNUM
Texto 1 13 4 6 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE248-SERIE
Texto 1 14 15 5 1 CHAR X 2
Título de coluna TC
- /PWS/ZYCIE248-DTNF
Texto 1 15 9 10 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE248-NRSEQRE
Texto 1 16 9 10 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE248-NRRE
Texto 1 17 15 14 1 CHAR X 2
Título de coluna TC
- /PWS/ZYCIE248-NRSD
Texto 1 18 10 12 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE248-DTEMB
Texto 1 19 8 10 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE248-DTAVERB
Texto 1 20 10 10 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE248-MEINS
Texto 1 21 15 3 1 CHAR X 2
Chave externa, Título de coluna TC
- /PWS/ZYCIE248-QTD_ITEN
Texto 1 22 15 17 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE248-UM_NCM
Texto 1 23 6 7 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE248-QTD_NCM
Texto 1 24 14 17 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE248-VRKME
Texto 1 25 2 3 1 CHAR X F
Chave externa, Título de coluna TC
- /PWS/ZYCIE248-NTGEW
Texto 1 26 15 17 1 CHAR X 2
Título de coluna TC
- /PWS/ZYCIE248-VLFOB
Texto 1 27 13 16 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE248-VLCOMIS
Texto 1 28 25 16 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE248-VL_SCAMB
Texto 1 29 27 31 1 CHAR X F
Título de coluna TC
- INF_EXP
Push 1 1 6 4 1 CHAR
SELE
Elem.TC, Col.fixa TC
Ícn.=ICON_REFERENCE_LIST
- /PWS/ZYCIE248-VBELN_VA
I/O 1 2 10 10 1 CHAR X Off
NEX SPA GPA AUN
Dest, Elem.TC, Col.fixa TC
Saída de conversão=ALPHA
- /PWS/ZYCIE248-AUPOS
I/O 1 3 6 6 1 NUMC X Off
NEX
Elem.TC, Col.fixa TC
- /PWS/ZYCIE248-VBELN_VL
I/O 1 4 10 9 1 CHAR X Off
NEX SPA GPA VL
Dest, PossRol, Elem.TC, Col.fixa TC
Saída de conversão=ALPHA
- /PWS/ZYCIE248-POSNL
I/O 1 5 6 6 1 NUMC X Off
NEX
Elem.TC, Col.fixa TC
- /PWS/ZYCIE248-VBELN_VF
I/O 1 6 10 12 1 CHAR X Off
NEX VF
Elem.TC
Saída de conversão=ALPHA
- /PWS/ZYCIE248-POSNR
I/O 1 7 6 6 1 NUMC X Off
NEX
Elem.TC
- /PWS/ZYCIE248-MVGR1
I/O 1 8 19 19 1 CHAR X X Off
NEX
PossRol, Elem.TC
- /PWS/ZYCIE248-STEUC
I/O 1 9 16 16 1 CHAR X Off
NEX
Chave externa, Botão EntrsPoss.stand., Elem.TC
- /PWS/ZYCIE248-TAXLAW
I/O 1 10 3 3 1 CHAR X Off
NEX
Chave externa, Botão EntrsPoss.stand., Elem.TC
Saída de conversão=ALPHA
- /PWS/ZYCIE248-NRSEQ
I/O 1 11 10 10 1 CHAR X Off
NEX SPA GPA /PWS/ZYCEP001
Dest, Elem.TC
- /PWS/ZYCIE248-MATNR
I/O 1 12 18 18 1 CHAR X X Off
NEX SPA GPA MAT
Chave externa, PossRol, Botão EntrsPoss.stand., Elem.TC
Saída de conversão=MATN1
- /PWS/ZYCIE248-NFNUM
I/O 1 13 6 6 1 NUMC X Off
NEX
Elem.TC
- /PWS/ZYCIE248-SERIE
I/O 1 14 3 5 1 CHAR X Off
NEX
Elem.TC
- /PWS/ZYCIE248-DTNF
I/O 1 15 10 10 1 DATS X Off
NEX
Botão EntrsPoss.stand., Elem.TC
- /PWS/ZYCIE248-NRSEQRE
I/O 1 16 10 10 1 CHAR X Off
NEX SPA GPA /PWS/ZYCEP013
Dest, Elem.TC
- /PWS/ZYCIE248-NRRE
I/O 1 17 14 14 1 CHAR X Off
NEX
Elem.TC
Saída de conversão=NRRE
- /PWS/ZYCIE248-NRSD
I/O 1 18 12 12 1 CHAR X Off
NEX
Elem.TC
- /PWS/ZYCIE248-DTEMB
I/O 1 19 10 10 1 DATS X Off
NEX
Botão EntrsPoss.stand., Elem.TC
- /PWS/ZYCIE248-DTAVERB
I/O 1 20 10 10 1 DATS X Off
NEX
Botão EntrsPoss.stand., Elem.TC
- /PWS/ZYCIE248-MEINS
I/O 1 21 3 3 1 UNIT X Off
NEX
Chave externa, Botão EntrsPoss.stand., Elem.TC
Saída de conversão=CUNIT
- /PWS/ZYCIE248-QTD_ITEN
I/O 1 22 33 17 1 QUAN X Off
NEX
Elem.TC
- /PWS/ZYCIE248-UM_NCM
I/O 1 23 3 7 1 UNIT X Off S.Sd
Elem.TC
Saída de conversão=CUNIT
- /PWS/ZYCIE248-QTD_NCM
I/O 1 24 33 17 1 QUAN X Off S.Sd
Elem.TC
- /PWS/ZYCIE248-VRKME
I/O 1 25 3 3 1 UNIT X Off
NEX
Chave externa, Botão EntrsPoss.stand., Elem.TC
Saída de conversão=CUNIT
- /PWS/ZYCIE248-NTGEW
I/O 1 26 17 17 1 QUAN X Off
NEX
Elem.TC
- /PWS/ZYCIE248-VLFOB
I/O 1 27 31 16 1 CURR X Off
NEX
Elem.TC
Código da moeda=/PWS/ZYCIE248-WAERSFOB
- /PWS/ZYCIE248-VLCOMIS
I/O 1 28 31 16 1 CURR X Off
NEX
Elem.TC
Código da moeda=/PWS/ZYCIE248-WAERSCOMIS
- /PWS/ZYCIE248-VL_SCAMB
I/O 1 29 31 31 1 CURR X Off
NEX CAM
Elem.TC
Código da moeda=/PWS/ZYCIE248-WAERSFOB
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0241
*Campos Criados - Características
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
+ TC_INF_EXP
Tabel 1 1 127 127 20
Seleção linha=Simples, Seleção coluna=Simples
TabEntr., Com título, Configurável, LSep.horiz., LnhSep.vert.
- /PWS/ZYCIE246-MATNR
Texto 1 1 15 18 1 CHAR X 2
Chave externa, Título de coluna TC
- /PWS/ZYCIE246-J_1BNBM
Texto 1 2 3 16 1 CHAR X F
Chave externa, Título de coluna TC
- /PWS/ZYCIE246-DOCNUM
Texto 1 3 15 10 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE246-NFNUM
Texto 1 4 5 6 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE246-SERIE
Texto 1 5 15 3 1 CHAR X 2
Título de coluna TC
- /PWS/ZYCIE246-DTNF
Texto 1 6 7 10 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE246-NRSEQ
Texto 1 7 16 14 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE246-NRSEQDI
Texto 1 8 9 10 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE246-NRDI
Texto 1 9 5 11 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE246-DTDI
Texto 1 10 11 10 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE246-GEWEI
Texto 1 11 2 3 1 CHAR X F
Chave externa, Título de coluna TC
- /PWS/ZYCIE246-NTGEW
Texto 1 12 15 16 1 CHAR X 2
Título de coluna TC
- /PWS/ZYCIE246-UM_NCM
Texto 1 13 15 3 1 CHAR X 2
Título de coluna TC
- /PWS/ZYCIE246-QTD_NCM
Texto 1 14 19 16 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE246-MATNR
I/O 1 1 18 18 1 CHAR X Off
MAT
Chave externa, Botão EntrsPoss.stand., Elem.TC
Saída de conversão=MATN1
- /PWS/ZYCIE246-J_1BNBM
I/O 1 2 16 16 1 CHAR X Off
Chave externa, Botão EntrsPoss.stand., Elem.TC
- /PWS/ZYCIE246-DOCNUM
I/O 1 3 10 10 1 NUMC X Off
NF JEF
Elem.TC
- /PWS/ZYCIE246-NFNUM
I/O 1 4 6 6 1 NUMC X Off
NF
Elem.TC
- /PWS/ZYCIE246-SERIE
I/O 1 5 3 3 1 CHAR X Off
NF
Elem.TC
- /PWS/ZYCIE246-DTNF
I/O 1 6 10 10 1 DATS X Off
NF
Botão EntrsPoss.stand., Elem.TC
- /PWS/ZYCIE246-NRSEQ
I/O 1 7 10 14 1 CHAR X Off
IMP /PWS/ZYCIP001
Elem.TC
- /PWS/ZYCIE246-NRSEQDI
I/O 1 8 10 10 1 CHAR X Off
IMP /PWS/ZYCIP085
Elem.TC
- /PWS/ZYCIE246-NRDI
I/O 1 9 11 11 1 CHAR X Off
IMP
Elem.TC
- /PWS/ZYCIE246-DTDI
I/O 1 10 10 10 1 DATS X Off
IMP
Botão EntrsPoss.stand., Elem.TC
- /PWS/ZYCIE246-GEWEI
I/O 1 11 3 3 1 UNIT X Off
Chave externa, Botão EntrsPoss.stand., Elem.TC
Saída de conversão=CUNIT
- /PWS/ZYCIE246-NTGEW
I/O 1 12 17 16 1 QUAN X Off
Alinh.à dir., Elem.TC
- /PWS/ZYCIE246-UM_NCM
I/O 1 13 3 3 1 UNIT X Off
Elem.TC
Saída de conversão=CUNIT
- /PWS/ZYCIE246-QTD_NCM
I/O 1 14 33 16 1 QUAN X Off
Alinh.à dir., Elem.TC
OK_CODE
OK
* Lógica de Processamento da tela 0241
PROCESS BEFORE OUTPUT.
MODULE: STATUS_0241.
loop at itab_zycit246_inf with control tc_inf_exp
cursor tc_inf_exp-current_line.
module: preenche_inf_export.
endloop.
*
PROCESS AFTER INPUT.
loop at itab_zycit246_inf .
endloop.
MODULE USER_COMMAND_0241.
*Características da tela 0241
Descrição breve : SS - Popup de Informação DI's vinculadas à RE
Idioma original : PT Português
Cl.desenvolvimento: /PWS/ZYCI
Tipo de Tela : Caixa de Diálogo Modal.
Tela seguinte : 241
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0242
*Campos Criados - Características
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
+ TC_INF_IMP
Tabel 1 1 135 135 22
Seleção linha=Simples, Seleção coluna=Simples
TabEntr., Com título, Configurável, LSep.horiz., LnhSep.vert.
- /PWS/ZYCIE248-MATNR
Texto 1 1 15 18 1 CHAR X F
Chave externa, Título de coluna TC
- /PWS/ZYCIE248-J_1BNBM
Texto 1 2 3 16 1 CHAR X F
Chave externa, Título de coluna TC
- /PWS/ZYCIE248-NRSEQ
Texto 1 3 15 10 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE248-NRSEQRE
Texto 1 4 11 10 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE248-NRRE
Texto 1 5 5 14 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE248-DTEMB
Texto 1 6 11 10 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE248-VRKME
Texto 1 7 2 3 1 CHAR X F
Chave externa, Título de coluna TC
- /PWS/ZYCIE248-NTGEW
Texto 1 8 15 16 1 CHAR X 2
Título de coluna TC
- /PWS/ZYCIE248-UM_NCM
Texto 1 9 6 3 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE248-QTD_NCM
Texto 1 10 19 16 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIE248-MATNR
I/O 1 1 18 18 1 CHAR X Off
MAT
Chave externa, Botão EntrsPoss.stand., Elem.TC
Saída de conversão=MATN1
- /PWS/ZYCIE248-J_1BNBM
I/O 1 2 16 16 1 CHAR X Off
Chave externa, Botão EntrsPoss.stand., Elem.TC
- /PWS/ZYCIE248-NRSEQ
I/O 1 3 10 10 1 CHAR X Off
/PWS/ZYCEP001
Elem.TC
- /PWS/ZYCIE248-NRSEQRE
I/O 1 4 10 10 1 CHAR X Off
/PWS/ZYCEP013
Elem.TC
- /PWS/ZYCIE248-NRRE
I/O 1 5 14 14 1 CHAR X Off
Elem.TC
Saída de conversão=NRRE
- /PWS/ZYCIE248-DTEMB
I/O 1 6 10 10 1 DATS X Off
Botão EntrsPoss.stand., Elem.TC
- /PWS/ZYCIE248-VRKME
I/O 1 7 3 3 1 UNIT X Off
Chave externa, Botão EntrsPoss.stand., Elem.TC
Saída de conversão=CUNIT
- /PWS/ZYCIE248-NTGEW
I/O 1 8 17 16 1 QUAN X Off
Elem.TC
- /PWS/ZYCIE248-UM_NCM
I/O 1 9 3 3 1 UNIT X Off
Elem.TC
Saída de conversão=CUNIT
- /PWS/ZYCIE248-QTD_NCM
I/O 1 10 33 16 1 QUAN X Off
Elem.TC
OK_CODE
OK
* Lógica de Processamento da tela 0242
PROCESS BEFORE OUTPUT.
MODULE: STATUS_0242.
loop at itab_zycit248_inf with control tc_inf_imp
cursor tc_inf_imp-current_line.
module: preenche_inf_imp.
endloop.
*
PROCESS AFTER INPUT.
loop at itab_zycit248_inf .
endloop.
MODULE USER_COMMAND_0241.
*Características da tela 0242
Descrição breve : RE's vinculadas à DI
Idioma original : PT Português
Cl.desenvolvimento: /PWS/ZYCI
Tipo de Tela : Caixa de Diálogo Modal.
Tela seguinte : 242
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
Contexto: FORM trata_selecao2.
...
CALL TRANSACTION '/PWS/ZYCI020_E' AND SKIP FIRST SCREEN.
CLEAR ok_code2.
ENDIF.
*<<Início Inclusão>> <------Nota
WHEN 'INF_EXP'.
READ TABLE itab_zycit248 INDEX v_ilinhas2.
IF sy-subrc EQ 0.
PERFORM monta_inf_exp.
ENDIF.
WHEN 'INF_IMP'.
READ TABLE itab_zycit246 INDEX v_ilinhas2.
IF sy-subrc EQ 0.
PERFORM monta_inf_imp.
ENDIF.
*<<Fim Inclusão>> <------Nota
ENDCASE.
ENDFORM. " trata_selecao2
--------------------------------------------------------------------
*Criado FORM abaixo:
Contexto: FORM monta_inf_exp.
REFRESH: itab_zycit282,
itab_zycit246_inf.
SELECT * FROM /pws/zycit282 INTO TABLE itab_zycit282
WHERE nrseqexp = itab_zycit248-nrseq
AND vbeln_va = itab_zycit248-vbeln_va
AND aupos = itab_zycit248-aupos
AND vbeln_vl = itab_zycit248-vbeln_vl
AND posnl = itab_zycit248-posnl.
SORT itab_zycit282 BY nrseqimp ebeln ebelp docnum buzei.
* DELETE ADJACENT DUPLICATES FROM itab_zycit282
* COMPARING nrseqimp ebeln ebelp docnum buzei.
LOOP AT itab_zycit282.
IF /pws/zycie244-tipo EQ 'F'.
READ TABLE itab_zycit246_final WITH KEY
ebeln = itab_zycit282-ebeln
ebelp = itab_zycit282-ebelp
docnum = itab_zycit282-docnumimp
itmnum = itab_zycit282-buzei.
ELSE.
READ TABLE itab_zycit246_final WITH KEY
nrseq = itab_zycit282-nrseqimp
ebeln = itab_zycit282-ebeln
ebelp = itab_zycit282-ebelp.
ENDIF.
IF sy-subrc EQ 0.
itab_zycit246_inf = itab_zycit246_final.
itab_zycit246_inf-matnr = itab_zycit282-matnr_imp.
itab_zycit246_inf-ntgew =
( itab_zycit246_inf-ntgew / itab_zycit246_inf-qtd_ncm ) *
itab_zycit282-qtd_mimp.
itab_zycit246_inf-qtd_ncm = itab_zycit282-qtd_mimp.
APPEND itab_zycit246_inf.
ENDIF.
ENDLOOP.
CALL SCREEN 0241 STARTING AT 5 5.
ENDFORM. " monta_inf_exp
-------------------------------------------------------------------
*Criado FORM abaixo:
Contexto: FORM monta_inf_imp.
REFRESH: itab_zycit282,
itab_zycit248_inf.
IF /pws/zycie244-tipo EQ 'F'.
SELECT * FROM /pws/zycit282 INTO TABLE itab_zycit282
WHERE ebeln = itab_zycit246-ebeln
AND ebelp = itab_zycit246-ebelp
AND docnumimp = itab_zycit246-docnum
AND buzei = itab_zycit246-itmnum.
ELSE.
SELECT * FROM /pws/zycit282 INTO TABLE itab_zycit282
WHERE nrseqimp = itab_zycit246-nrseq
AND ebeln = itab_zycit246-ebeln
AND ebelp = itab_zycit246-ebelp.
ENDIF.
* DELETE ADJACENT DUPLICATES FROM itab_zycit282
* COMPARING nrseqimp ebeln ebelp docnum buzei.
LOOP AT itab_zycit282.
CLEAR: itab_zycit248_inf.
READ TABLE itab_zycit248_final WITH KEY
nrseq = itab_zycit282-nrseqexp
vbeln_va = itab_zycit282-vbeln_va
aupos = itab_zycit282-aupos
vbeln_vl = itab_zycit282-vbeln_vl
posnl = itab_zycit282-posnl.
IF sy-subrc EQ 0.
itab_zycit248_inf-nrseq = itab_zycit248_final-nrseq.
itab_zycit248_inf-nrre = itab_zycit248_final-nrre.
itab_zycit248_inf-matnr = itab_zycit248_final-matnr.
itab_zycit248_inf-dtemb = itab_zycit248_final-dtemb.
itab_zycit248_inf-nrseqre = itab_zycit248_final-nrseqre.
itab_zycit248_inf-vrkme = itab_zycit248_final-vrkme.
itab_zycit248_inf-ntgew = itab_zycit248_final-ntgew.
itab_zycit248_inf-um_ncm = itab_zycit248_final-um_ncm.
itab_zycit248_inf-qtd_ncm = itab_zycit248_final-qtd_ncm.
itab_zycit248_inf-j_1bnbm = itab_zycit282-j_1bnbmexp.
* APPEND itab_zycit248_inf.
COLLECT itab_zycit248_inf.
ENDIF.
ENDLOOP.
CALL SCREEN 0242 STARTING AT 5 5.
ENDFORM. " monta_inf_imp
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040I01
*Foi criado o Module abaixo:
Contexto: MODULE user_command_0241 INPUT.
CASE ok_code.
WHEN 'CANC'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE. " USER_COMMAND_0241 INPUT
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040O01
*Foi criado o Module abaixo:
Contexto: MODULE preenche_inf_export OUTPUT.
/pws/zycie246 = itab_zycit246_inf.
ENDMODULE. " preenche_inf_export OUTPUT
-----------------------------------------------------------------------------
Contexto: MODULE status_0241 OUTPUT.
*Foi criado o Module abaixo:
MODULE status_0241 OUTPUT.
SET PF-STATUS 'ST0241'.
SET TITLEBAR 'TL0241'.
CLEAR ok_code.
DESCRIBE TABLE itab_zycit246_inf LINES v_ilinhas2.
tc_inf_exp-lines = v_ilinhas2.
LOOP AT tc_inf_exp-cols INTO wa_cols2.
CASE wa_cols2-screen-group1.
WHEN 'NF'.
IF /pws/zycie244-tipo EQ 'F'.
wa_cols2-invisible = '0'.
ELSE.
wa_cols2-invisible = '1'.
ENDIF.
MODIFY tc_inf_exp-cols FROM wa_cols2.
WHEN 'IMP'.
IF /pws/zycie244-tipo EQ 'F'.
wa_cols2-invisible = '1'.
ELSE.
wa_cols2-invisible = '0'.
ENDIF.
MODIFY tc_inf_exp-cols FROM wa_cols2.
ENDCASE.
ENDLOOP.
ENDMODULE. " STATUS_0241 OUTPUT
------------------------------------------------------------------------
*Foi criado o Module abaixo:
Contexto: MODULE status_0242 OUTPUT.
SET PF-STATUS 'ST0241'.
SET TITLEBAR 'TL0242'.
CLEAR ok_code.
DESCRIBE TABLE itab_zycit248_inf LINES v_ilinhas2.
tc_inf_imp-lines = v_ilinhas2.
ENDMODULE. " STATUS_0242 OUTPUT
------------------------------------------------------------------------
*Foi criado o Module abaixo:
Contexto: MODULE preenche_inf_imp OUTPUT.
/pws/zycie248 = itab_zycit248_inf.
ENDMODULE. " preenche_inf_imp OUTPUT
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040TOP2
...
tc_perda TYPE TABLEVIEW USING SCREEN '0238',
tc_transf TYPE TABLEVIEW USING SCREEN '0239',
*<<Início Inclusão>> <---- Nota
tc_inf_exp TYPE TABLEVIEW USING SCREEN '0241',
tc_inf_imp TYPE TABLEVIEW USING SCREEN '0242',
*<<Fim Inclusão>> <---- Nota
tc_setlt TYPE TABLEVIEW USING SCREEN '0400'.
...
INCLUDE STRUCTURE /pws/zycit246 .
DATA: END OF itab_zycit246_res .
DATA: BEGIN OF itab_zycit246_save OCCURS 0.
INCLUDE STRUCTURE /pws/zycit246 .
DATA: END OF itab_zycit246_save .
*<<Início Inclusão>> <---- Nota
* tabelas para informação de vincuações
DATA: BEGIN OF itab_zycit246_inf OCCURS 0.
INCLUDE STRUCTURE /pws/zycit246 .
DATA: END OF itab_zycit246_inf .
DATA: BEGIN OF itab_zycit248_inf OCCURS 0.
INCLUDE STRUCTURE /pws/zycit248 .
DATA: END OF itab_zycit248_inf .
*<<Fim Inclusão>> <---- Nota
DATA: BEGIN OF itab_matnr OCCURS 0.
DATA: matnr LIKE marc-matnr.
DATA: END OF itab_matnr.
* Tabela Interna dos materiais exportados 0206
...
*<<Fim da Nota>>