CE PLUS - Nota 002022
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DSI
Data/Hora da Publicação: 01/09/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:21:32
Descrição da Nota: AJUSTES DSI MUNDANÇA SISCOMEX
Sintoma
Inclusão de campos referentes ao PIS/COFINS na DSI, conforme especificação anexa.
Após inclusão do PIS/COFINS no Siscomex, será necessário criar uma pasta PIS/COFINS na DSI para
inclusão dos campos faltantes. Necessário mudar a transmissão da DSI para que consiga ler os campos
da nossa DSI na pasta nova do orientador.
Solução
Novo tratamento para o programa de DSI de acordo com o siscomex.Foi incluída uma nova pasta
PIS/COFINS na DSI.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02022 Data: 01/09/2006 Hora: 09:24:02
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02022
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00129
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01520 - 00001 - 6.0 - 00023 - INCLUSÃO DA NOVA TELA PIS/COFINS NA DI
01801 - 00002 - 6.0 - 00024 - RATEIO DE SEGURO DA DI DIFERE DO RATEIO DO SISCOMEX
----------------------------------------------------------------------------------------------------
AJUSTES DSI MUNDANÇA SISCOMEX
----------------------------------------------------------------------------------------------------
Palavras Chave:
DSI - PIS /COFINS - TRATAMENTO TRANSMISSÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI058 0230
DYNP /PWS/SAPMZYCI058 0231
DYNP /PWS/SAPMZYCI058 0234
DYNP /PWS/SAPMZYCI058 0235
DYNP /PWS/SAPMZYCI058 0240
REPS /PWS/MZYCI058F01
REPS /PWS/MZYCI058F03
REPS /PWS/MZYCI058I01
REPS /PWS/MZYCI058O01
REPS /PWS/MZYCI058TOP
REPS /PWS/MZYCI058X01
TABD /PWS/ZYCIE100A
TABD /PWS/ZYCIT100
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI058 0180
process before output.
*module: init_editor_di_compl.
*<< Inicio Inclusão Tela 0180
MODULE SET_SCREEN.
*<< Fim Inclusão
process after input.
module: user_command_0231.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI058 0223
*O seguinte campo foi inserido:
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/ZYCIE085-PER_SEG
Texto 9 46 10 10 1 CHAR X F
*Os seguintes campos foram modificados:
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
*DE:
FRMFRETE
Quadr 5 3 41 41 1 CHAR
FRMSEG
Quadr 5 44 41 41 1 CHAR
TXT3
Texto 9 46 11 11 1 CHAR
S_STVR_D2
I/O 9 58 17 17 1 DEC Off
Alinh.à dir.
FRM4
Quadr 11 3 82 82 1 CHAR
RE
/PWS/ZYCIE085-NRDSE
Texto 12 5 9 9 1 CHAR X F
RE
/PWS/ZYCIE085-NRDSE
I/O 12 21 11 11 1 CHAR X Off
AC RE
/PWS/ZYCIE085-ULDSE
Texto 12 46 6 6 1 CHAR X F
RE
/PWS/ZYCIE085-ULDSE
I/O 12 61 7 7 1 CHAR X Off
AC RE
Chave externa, Botão EntrsPoss.stand.
/PWS/ZYCIE085-DTEMDSE
Texto 13 5 15 15 1 CHAR X F
RE
/PWS/ZYCIE085-DTEMDSE
I/O 13 21 10 10 1 DATE X Off
AC RE
Botão EntrsPoss.stand.
/PWS/ZYCIE085-NRDDE
Texto 14 5 9 9 1 CHAR X F
RE
/PWS/ZYCIE085-NRDDE
I/O 14 21 11 11 1 CHAR X Off
AC RE
/PWS/ZYCIE085-NRPROC
Texto 14 46 14 14 1 CHAR X F
RE
/PWS/ZYCIE085-NRPROC
I/O 14 61 15 15 1 CHAR X Off
AC RE
*PARA:
FRMFRETE
Quadr 5 3 41 41 1 CHAR
FRMSEG
Quadr 5 44 41 41 1 CHAR
TXT3
Texto 10 46 11 11 1 CHAR
S_STVR_D2
I/O 10 58 17 17 1 DEC Off
Alinh.à dir.
FRM4
Quadr 12 3 82 82 1 CHAR
RE
/PWS/ZYCIE085-NRDSE
Texto 13 5 9 9 1 CHAR X F
RE
/PWS/ZYCIE085-NRDSE
I/O 13 21 11 11 1 CHAR X Off
AC RE
/PWS/ZYCIE085-ULDSE
Texto 13 46 6 6 1 CHAR X F
RE
/PWS/ZYCIE085-ULDSE
I/O 13 61 7 7 1 CHAR X Off
AC RE
Chave externa, Botão EntrsPoss.stand.
/PWS/ZYCIE085-DTEMDSE
Texto 14 5 15 15 1 CHAR X F
RE
/PWS/ZYCIE085-DTEMDSE
I/O 14 21 10 10 1 DATS X Off
AC RE
Botão EntrsPoss.stand.
/PWS/ZYCIE085-NRDDE
Texto 15 5 9 9 1 CHAR X F
RE
/PWS/ZYCIE085-NRDDE
I/O 15 21 11 11 1 CHAR X Off
AC RE
/PWS/ZYCIE085-NRPROC
Texto 15 46 14 14 1 CHAR X F
RE
/PWS/ZYCIE085-NRPROC
I/O 15 61 15 15 1 CHAR X Off
AC RE
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI058 0231
*Diferenças na lista de elementos
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
*DE:
%#AUTOTEXT001
Quadr 1 1 120 120 1 CHAR
+ TS_SBENS
TbStr 7 1 120 120 21
- TAB_B1
Push 1 1 33 33 1 CHAR
FC_TB1 P
Elem.em TabStripControl
- TAB_B2
Push 1 2 33 33 1 CHAR
FC_TB2 P
Elem.em TabStripControl
- TAB_B3
Push 1 3 33 33 1 CHAR
FC_TB3 P
Elem.em TabStripControl
- SS_BENS3
Subte 9 3 118 118 1
- SS_BENS2
Subte 9 3 118 118 1
- SS_BENS1
Subte 9 3 118 118 1
*PARA:
%#AUTOTEXT001
Quadr 1 1 104 104 1 CHAR
+ TS_SBENS
TbStr 7 1 104 104 24
- TAB_B1
Push 1 1 31 31 1 CHAR
FC_TB1 P
Elem.em TabStripControl
- TAB_B2
Push 1 2 31 31 1 CHAR
FC_TB2 P
Elem.em TabStripControl
- TAB_B3
Push 1 3 31 31 1 CHAR
FC_TB3 P
Elem.em TabStripControl
- SS_BENS3
Subte 9 3 102 102 1
- SS_BENS2
Subte 9 3 102 102 1
- SS_BENS1
Subte 9 3 102 102 1
OK
*Os seguintes campos foram inseridos:
*Diferenças na lista de elementos
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
- TAB_B4
Push 1 4 31 31 1 CHAR
FC_TB4 P
Elem.em TabStripControl
- SS_BENS4
Subte 9 3 102 102 1
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI058 0234
*Os seguintes campos foram modificados:
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
*DE:
FRM01
Quadr 1 1 39 39 1 CHAR
FRM04
Quadr 1 41 39 39 1 CHAR
TXT01
Texto 2 3 9 9 1 CHAR
T_IVMLE
I/O 2 18 20 20 1 DEC Off
Alinh.à dir.
TXT89465
Texto 2 43 12 12 1 CHAR
T_ICMSBS_D2
I/O 2 58 20 20 1 DEC Off
Alinh.à dir.
TXT02
Texto 3 3 5 5 1 CHAR
T_IVFRE
I/O 3 18 20 20 1 DEC Off
Alinh.à dir.
/PWS/ZYCIE003-ADVALICMS
Texto 3 43 19 19 1 CHAR X F
/PWS/ZYCIE003-ADVALICMS
I/O 3 70 8 8 1 DEC X Off
AC
Alinh.à dir.
TXT03
Texto 4 3 6 6 1 CHAR
T_IVSEG
I/O 4 18 20 20 1 DEC Off
Alinh.à dir.
/PWS/ZYCIE003-BASRED
Texto 4 43 16 16 1 CHAR X 2
/PWS/ZYCIE003-BASRED
I/O 4 70 8 8 1 DEC X Off
AC
Alinh.à dir.
TXT04
Texto 5 3 13 13 1 CHAR
T_IVADU
I/O 5 18 20 20 1 DEC Off
Alinh.à dir.
TXT889
Texto 5 43 10 10 1 CHAR
T_ICMS_D2
I/O 5 58 20 20 1 DEC Off
Alinh.à dir.
FRM02
Quadr 7 1 39 39 1 CHAR
FRM03
Quadr 7 41 39 39 1 CHAR
TXT05
Texto 8 3 12 12 1 CHAR
T_IIBAS
I/O 8 18 20 20 1 DEC Off
Alinh.à dir.
TXT09
Texto 8 43 12 12 1 CHAR
T_IPIBAS
I/O 8 58 20 20 1 DEC Off
Alinh.à dir.
TXT06
Texto 9 3 18 18 1 CHAR
/PWS/ZYCIE003-ADVALII
I/O 9 30 8 8 1 DEC X Off
AC
Alinh.à dir.
TXT10
Texto 9 43 18 18 1 CHAR
/PWS/ZYCIE003-ADVALIPI
I/O 9 70 8 8 1 DEC X Off
AC
Alinh.à dir.
TXT07
Texto 10 3 12 12 1 CHAR
A_IICALC
I/O 10 18 20 20 1 DEC Off
Alinh.à dir.
TXT11
Texto 10 43 12 12 1 CHAR
A_IPIDEVI
I/O 10 58 20 20 1 DEC Off
Alinh.à dir.
TXT08
Texto 11 3 10 10 1 CHAR
T_IIREC
I/O 11 18 20 20 1 DEC Off
Alinh.à dir.
TXT12
Texto 11 43 10 10 1 CHAR
T_IPIREC
I/O 11 58 20 20 1 DEC Off
Alinh.à dir.
*PARA:
FRM01
Quadr 1 2 42 42 1 CHAR
FRM04
Quadr 1 46 42 42 1 CHAR
TXT01
Texto 2 4 9 9 1 CHAR
T_IVMLE
I/O 2 22 20 20 1 DEC Off
Alinh.à dir.
TXT89465
Texto 2 48 12 12 1 CHAR
T_ICMSBS_D2
I/O 2 66 20 20 1 DEC Off
Alinh.à dir.
TXT02
Texto 3 4 5 5 1 CHAR
T_IVFRE
I/O 3 22 20 20 1 DEC Off
Alinh.à dir.
/PWS/ZYCIE003-ADVALICMS
Texto 3 48 19 19 1 CHAR X F
/PWS/ZYCIE003-ADVALICMS
I/O 3 78 8 8 1 DEC X X Off
AC
Alinh.à dir.
TXT03
Texto 4 4 6 6 1 CHAR
T_IVSEG
I/O 4 22 20 20 1 DEC Off
Alinh.à dir.
/PWS/ZYCIE003-BASRED
Texto 4 48 16 16 1 CHAR X 2
/PWS/ZYCIE003-BASRED
I/O 4 78 8 8 1 DEC X Off
AC
Alinh.à dir.
TXT04
Texto 5 4 13 13 1 CHAR
T_IVADU
I/O 5 22 20 20 1 DEC Off
Alinh.à dir.
TXT889
Texto 5 48 10 10 1 CHAR
FRM02
Quadr 7 2 42 42 1 CHAR
FRM03
Quadr 7 46 42 42 1 CHAR
TXT05
Texto 8 4 12 12 1 CHAR
T_IIBAS
I/O 8 22 20 20 1 DEC Off
Alinh.à dir.
TXT09
Texto 8 48 12 12 1 CHAR
T_IPIBAS
I/O 8 66 20 20 1 DEC Off
Alinh.à dir.
TXT06
Texto 9 4 18 18 1 CHAR
/PWS/ZYCIE003-ADVALII
I/O 9 34 8 8 1 DEC X Off
AC
Alinh.à dir.
TXT10
Texto 9 48 18 18 1 CHAR
/PWS/ZYCIE003-ADVALIPI
I/O 9 78 8 8 1 DEC X Off
AC
Alinh.à dir.
TXT07
Texto 10 4 12 12 1 CHAR
A_IICALC
I/O 10 22 20 20 1 DEC Off
Alinh.à dir.
TXT11
Texto 10 48 12 12 1 CHAR
A_IPIDEVI
I/O 10 66 20 20 1 DEC Off
Alinh.à dir.
TXT08
Texto 11 4 10 10 1 CHAR
T_IIREC
I/O 11 22 20 20 1 DEC Off
Alinh.à dir.
TXT12
Texto 11 48 10 10 1 CHAR
T_IPIREC
I/O 11 66 20 20 1 DEC Off
Alinh.à dir.
*Os seguintes campos foram eliminados:
FRM05
Quadr 13 1 39 39 1 CHAR
FRM06
Quadr 13 41 39 39 1 CHAR
TXBSPIS
Texto 14 3 12 12 1 CHAR
T_PISBS
I/O 14 18 20 20 1 DEC Off
Alinh.à dir.
TXBSCOF
Texto 14 43 12 12 1 CHAR
T_COFINSBS
I/O 14 58 20 20 1 DEC Off
Alinh.à dir.
/PWS/ZYCIE100A-ALIQPIS
Texto 15 3 12 12 1 CHAR X F
/PWS/ZYCIE100A-ALIQPIS
I/O 15 30 8 8 1 DEC X Off
Alinh.à dir.
/PWS/ZYCIE100A-ALIQCOF
Texto 15 43 15 15 1 CHAR X F
/PWS/ZYCIE100A-ALIQCOF
I/O 15 70 8 8 1 DEC X Off
Alinh.à dir.
/PWS/ZYCIE100A-ADVALPIS
Texto 16 3 14 14 1 CHAR X F
/PWS/ZYCIE100A-ADVALPIS
I/O 16 30 8 8 1 DEC X Ent Off
Alinh.à dir.
/PWS/ZYCIE100A-ADVALCOFINS
Texto 16 43 17 17 1 CHAR X F
/PWS/ZYCIE100A-ADVALCOFINS
I/O 16 70 8 8 1 DEC X Ent Off
Alinh.à dir.
/PWS/ZYCIE100A-BASREDPIS
Texto 17 3 15 15 1 CHAR X F
/PWS/ZYCIE100A-BASREDPIS
I/O 17 30 8 8 1 DEC X Ent Off
Alinh.à dir.
/PWS/ZYCIE100A-BASREDCOF
Texto 17 43 18 18 1 CHAR X F
/PWS/ZYCIE100A-BASREDCOF
I/O 17 70 8 8 1 DEC X Ent Off
Alinh.à dir.
TXRECPIS
Texto 18 3 10 10 1 CHAR
T_PIS
I/O 18 18 20 20 1 DEC Off
Alinh.à dir.
TXRECCOF
Texto 18 43 10 10 1 CHAR
T_COFINS
I/O 18 58 20 20 1 DEC Off
Alinh.à dir.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI058 0235
*Foi criada a tela 0235 - segue seu download (basta copiar em um arquivo txt e fazer upload)
*<<Inicio tela 0235
****************************************************************
* THIS FILE IS GENERATED BY THE SCREEN PAINTER. *
* NEVER CHANGE IT MANUALLY, PLEASE ! *
****************************************************************
%_DYNPRO
/PWS/SAPMZYCI058
0235
46C
40
%_HEADER
/PWS/SAPMZYCI058 0235I0235 17 96192 35 0 0 19 97 0G P
20060922090237
%_DESCRIPTION
DSI - Bens_Item 4ª Pasta
%_FIELDS
FRM02
CHAR 940000003000 1 4 0 0 0 3R 0 0101
_____________________________________________________________________________________________
TXBSPIS
CHAR 150000083000 2 33 0 0 0 0 0 0
Base_de_Cálculo
X
T_PISBS
PDEC 188020803000 2 50 0 0 0 0 0 0
__________________
FRM03
0CHAR 940000003000 4 4 0 0 0 3R 0 0102
Regime_de_Tributação_________________________________________________________________________
/PWS/ZYCIE100A-CODREGTRIPISCOFI
0CHAR 63000043000 5 6 0 0 0 0 0 0
Código
X
/PWS/ZYCIE100A-CODREGTRIPISCOFI
CCHAR 1A100844008 5 13 0 0 0 25 1 0
_
XDL
TXTFUN_REGTRI
0CHAR 160000003000 5 40 0 0 0 0 0 0
Fundamento_Legal
/PWS/ZYCIE100A-CODFUNLEGPISCOFI
CCHAR 2A000884000 5 57 0 0 0 0 7 2 0
__
X
T_FUNDES_REGTRI
CHAR1208100883300 5 60 0 0 0 36 0 0
____________________________________________________________________________________________________
____________________
FRM04
CHAR 220000003000 7 4 0 0 0 5R 0 0103
Alíq._Ad_Valorem_____
FRM05
CHAR 340000003000 7 28 0 0 0 5R 0 0104
Alíq._Específica_Pis_____________
FRM06
CHAR 340000003000 7 64 0 0 0 5R 0 0105
Alíq._Específica_Cofins__________
/PWS/ZYCIE100A-ALIQPIS
0CHAR 93000003000 8 30 0 0 0 0 0 0
Pis/Pasep
X
/PWS/ZYCIE100A-ALIQPIS
PDEC 8A020904000 8 52 0 0 0 0 6 2
AC2 ____,__V
/PWS/ZYCIE100A-ALIQCOF
0CHAR 63000003000 8 66 0 0 0 0 0 0
Cofins
X
/PWS/ZYCIE100A-ALIQCOF
PDEC 8A020904000 8 88 0 0 0 0 6 2
AC2 ____,__V
/PWS/ZYCIE100A-ADVALPIS
0CHAR 93000003000 9 6 0 0 0 0 0 0
Pis/Pasep
X
/PWS/ZYCIE100A-ADVALPIS
PDEC 8A020904000 9 16 0 0 0 0 6 2
AC1 ____,__V
TXTUMPIS
0CHAR 120000003000 9 30 0 0 0 0 0 0
Unid._Medida
/PWS/ZYCIE100A-UM_PIS
CUNIT 3A000800000 9 57 0 0 0 0 CUNIT 3 0
AC2 ___
TXTUMCOFINS
0CHAR 120000003000 9 66 0 0 0 0 0 0
Unid._Medida
/PWS/ZYCIE100A-UM_COFINS
CUNIT 3A000804000 9 93 0 0 0 0 CUNIT 3 0
AC2 ___
/PWS/ZYCIE100A-ADVALCOFINS
0CHAR 63000003000 10 6 0 0 0 0 0 0
Cofins
X
/PWS/ZYCIE100A-ADVALCOFINS
PDEC 8A020904000 10 16 0 0 0 0 6 2
AC1 ____,__V
TXTQTDUNPIS
0CHAR 150000003000 10 30 0 0 0 0 0 0
Qtd._na_Unidade
/PWS/ZYCIE100A-QTDUM_PIS
NNUMC 8A020804000 10 52 0 0 0 0 8 0
AC2 ________
TXTQTDUNCOFINS
0CHAR 150000003000 10 66 0 0 0 0 0 0
Qtd._na_Unidade
/PWS/ZYCIE100A-QTDUM_COFINS
NNUMC 8A020804000 10 88 0 0 0 0 8 0
AC2 ________
FRM08
CHAR 940000083000 12 4 0 0 0 3R 0 0108
PIS__________________________________________________________________________________________
TXTVLCALCPIS
CHAR 120000083000 13 6 0 0 0 0 0 0
Vl.Calculado
X
T_PIS_CALC
PDEC 178020807000 13 19 0 0 0 0 16 5
_________________
TXTVLDEVPIS
CHAR 90000083000 13 38 0 0 0 0 0 0
Vl.Devido
X
T_PIS_DEV
PDEC 178020807000 13 48 0 0 0 0 16 5
_________________
TXRECPIS
CHAR 100000083000 13 68 0 0 0 0 0 0
A_Recolher
X
T_PIS
PDEC 178020803000 13 79 0 0 0 0 0 0
_________________
FRM09
CHAR 940000083000 15 4 0 0 0 3R 0 0106
COFINS_______________________________________________________________________________________
TXTVLCALCCOFINS
CHAR 120000083000 16 6 0 0 0 0 0 0
Vl.Calculado
X
T_COF_CALC
PDEC 178020807000 16 19 0 0 0 0 16 5
_________________
TXTVLDEVPCOFINS
CHAR 90000083000 16 38 0 0 0 0 0 0
Vl.Devido
X
T_COF_DEV
PDEC 178020807000 16 48 0 0 0 0 16 5
_________________
TXRECCOF
CHAR 100000083000 16 68 0 0 0 0 0 0
A_Recolher
X
T_COFINS
PDEC 178020803000 16 79 0 0 0 0 0 0
_________________
CHAR 208010000000255 1O 0 0 0 0 0 0
____________________
%_FLOWLOGIC
PROCESS BEFORE OUTPUT.
module: load_piscofins,
set_screen.
PROCESS AFTER INPUT.
chain.
field: /pws/zycie100a-advalpis,
/pws/zycie100a-advalcofins,
/pws/zycie100a-UM_PIS,
/pws/zycie100a-UM_COFINS,
/pws/zycie100a-QTDUM_PIS,
/pws/zycie100a-QTDUM_COFINS.
module calc_vicms on chain-request.
endchain.
%_PARAMS
*<<Fim tela - 0235
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI058 0240
*Os seguintes campos foram modificados
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
FRM2
Quadr 2 3 26 26 1 CHAR
FRM1
Quadr 2 35 51 51 1 CHAR
TXT1
Texto 3 9 17 17 1 CHAR
Alinh.à dir.
/PWS/ZYCIE095-LIFNR
Texto 3 37 5 5 1 CHAR X F
LIF
/PWS/ZYCIE095-BANKL
Texto 3 48 15 15 1 CHAR X F
BNK
/PWS/ZYCIE095-BANKN
Texto 3 64 15 15 1 CHAR X 2
T_VLII
I/O 4 6 20 20 1 DEC Off
Alinh.à dir.
/PWS/ZYCIE095A-LIFNR
I/O 4 37 10 10 1 CHAR X Off
AC SPA GPA LIF
Saída de conversão=ALPHA
S_PGBAN
I/O 4 48 3 3 1 CHAR Off
S_PGAGE
I/O 4 52 11 11 1 CHAR Off
S_PGCC
I/O 4 64 20 20 1 CHAR Off
PossRol
S_PGNOM
I/O 5 37 60 47 1 CHAR Off
PossRol
TXT2
Texto 6 8 18 18 1 CHAR
Alinh.à dir.
/PWS/ZYCIE095A-BANKN
I/O 6 37 18 18 1 CHAR X Off S.Sd
Invisível
/PWS/ZYCIE095A-BANKL
I/O 6 56 15 14 1 CHAR X Off S.Sd
SPA GPA BNK
Invisível, PossRol
/PWS/ZYCIE095A-BANKS
I/O 6 72 3 3 1 CHAR X Off S.Sd
SPA GPA BKL
Invisível
+ TC_SPAG
Tabel 7 37 47 47 7
Seleção linha=Simples, Seleção coluna=Simples
TabEntr., Com título, LSep.horiz., LnhSep.vert.
TXT3
Texto 9 21 5 5 1 CHAR
Alinh.à dir.
T_TOT
I/O 10 6 20 20 1 DEC Off
Alinh.à dir.
TXTICMS
Texto 12 4 22 22 1 CHAR
Alinh.à dir.
T_VLICMS
I/O 13 5 20 20 1 DEC Off
Alinh.à dir.
TXTPIS
Texto 14 11 15 15 1 CHAR
Alinh.à dir.
T_VLPIS
I/O 15 6 20 20 1 DEC Off
Alinh.à dir.
TXTCOF
Texto 16 8 18 18 1 CHAR
Alinh.à dir.
T_VLCOFINS
I/O 17 5 20 20 1 DEC Off
Alinh.à dir.
*PARA:
FRM2
Quadr 3 3 28 28 1 CHAR
FRM1
Quadr 3 35 51 51 1 CHAR
TXT1
Texto 4 6 17 17 1 CHAR
/PWS/ZYCIE095-LIFNR
Texto 4 37 5 5 1 CHAR X F
/PWS/ZYCIE095-BANKL
Texto 4 48 15 15 1 CHAR X F
/PWS/ZYCIE095-BANKN
Texto 4 64 15 15 1 CHAR X 2
T_VLII
I/O 5 6 20 20 1 DEC Off
Alinh.à dir.
/PWS/ZYCIE095A-LIFNR
I/O 5 37 10 10 1 CHAR X Off
AC SPA GPA LIF
Saída de conversão=ALPHA
S_PGBAN
I/O 5 48 3 3 1 CHAR Off
S_PGAGE
I/O 5 52 11 11 1 CHAR Off
S_PGCC
I/O 5 64 20 20 1 CHAR Off
PossRol
TXT2
Texto 6 6 18 18 1 CHAR
S_PGNOM
I/O 6 37 60 47 1 CHAR Off
PossRol
T_VLIPI
I/O 7 6 20 20 1 DEC Off
Alinh.à dir.
/PWS/ZYCIE095A-BANKN
I/O 7 37 18 18 1 CHAR X Off S.Sd
Invisível
/PWS/ZYCIE095A-BANKL
I/O 7 56 15 14 1 CHAR X Off S.Sd
SPA GPA BNK
Invisível, PossRol
/PWS/ZYCIE095A-BANKS
I/O 7 72 3 3 1 CHAR X Off S.Sd
SPA GPA BKL
Invisível
+ TC_SPAG
Tabel 8 37 47 47 7
Seleção linha=Simples, Seleção coluna=Simples
TabEntr., Com título, LSep.horiz., LnhSep.vert.
TXT3
Texto 12 6 5 5 1 CHAR
T_TOT
I/O 13 6 20 20 1 DEC Off
Alinh.à dir.
TXTICMS
Texto 15 6 22 22 1 CHAR
T_VLICMS
I/O 16 6 20 20 1 DEC Off
Alinh.à dir.
TXTPIS
Texto 8 6 15 15 1 CHAR
T_VLPIS
I/O 9 6 20 20 1 DEC Off
Alinh.à dir.
TXTCOF
Texto 10 6 18 18 1 CHAR
T_VLCOFINS
I/O 11 6 20 20 1 DEC Off
Alinh.à dir.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F01
...
IF v_dit = 'S' AND /pws/zycie093-meiotransp = 'PS'
AND /pws/zycie085-tpdi = 'S'.
/pws/zycie100a-vlii = t_iirec.
/pws/zycie100a-vlipi = t_ipirec.
ENDIF.
* >> Início da inclusão: FORM SAVE_DATA_ITEM
/pws/zycie100a-pis_calc = t_pis_calc.
/pws/zycie100a-pis_dev = t_pis_dev.
/pws/zycie100a-cofi_calc = t_cof_calc.
/pws/zycie100a-cofi_dev = t_cof_dev.
* << Fim da inclusão
MOVE-CORRESPONDING /pws/zycie003 TO itab_it.
MOVE-CORRESPONDING /pws/zycie100a TO itab_it.
IF NOT /pws/zycie003-qtd_itend IS INITIAL.
MOVE /pws/zycie003-qtd_itend TO itab_it-qtd_iten.
ENDIF.
...
...
itab_it-vlmerc_ad = t_vmle2.
t_ivmle2 = t_vmle_d2 * /pws/zycie085-ukursfob .
v_tmle_d2 = v_tmle_d2 + t_ivmle2 .
ENDFORM.
FORM load_iii USING p_tipo.
* >> Início da inclusão: FORM LOAD_III
if /pws/zycie093-meiotransp = 'PS' and /pws/zycie085-tpdi eq 'S'.
/pws/zycie003-advalii = '60'.
/pws/zycie003-advalicms = '18'.
endif.
* << Fim da inclusão
t_iibas = t_ivadu.
a_iicalc = ( ( /pws/zycie003-advalii / 100 ) * t_iibas ).
CLEAR: t_iirec.
CASE /pws/zycie100a-codregtri.
WHEN '1' OR '3' OR '4' OR '5' OR '7' OR '8'.
...
...
ENDIF.
IF itab_it-advalipi IS INITIAL.
itab_it-advalipi = itab_it-aliqipi.
ENDIF.
IF itab_it-advalicms IS INITIAL.
* >> Início da inclusão: FORM FILL_ITABIT
IF /pws/zycie093-meiotransp EQ 'PS'.
itab_it-advalicms = '60'.
else.
* << Fim da inclusão
itab_it-advalicms = itab_it-aliqicms.
* >> Início da inclusão: FORM FILL_ITABIT
endif.
* << Fim da inclusão
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F03
...
PERFORM mp_antiga.
ELSE.
PERFORM mp_nova.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM LOAD_IICMS
IF /pws/zycie100a-aliqpis IS INITIAL.
/pws/zycie100a-aliqpis = itab_it-advalpis.
ENDIF.
IF /pws/zycie100a-aliqcof IS INITIAL.
/pws/zycie100a-aliqcof = itab_it-advalcofins.
ENDIF.
* << Fim da exclusão
v_divisor = ( 1 - v_advicms - v_advpis - v_advcof ).
* >> Início da inclusão: FORM LOAD_IICMS
t_PIS_CALC = t_PIS_dev = itab_it-aliqpis * itab_it-QTDUM_PIS.
t_cof_CALC = t_cof_dev = itab_it-aliqcof * itab_it-QTDUM_COFINS.
if T_PIS_DEV is initial.
* << Fim da inclusão
t_pis = ( itab_it-basepis * ( itab_it-advalpis / 100 ) )
* ( itab_it-basredpis / 100 ) .
* >> Início da inclusão: FORM LOAD_IICMS
else.
t_pis = t_pis_dev.
endif.
if T_COF_DEV is initial.
* << Fim da inclusão
t_cofins = ( itab_it-basecofins * ( itab_it-advalcofins / 100 ) )
* ( itab_it-basredcof / 100 ) .
* >> Início da inclusão: FORM LOAD_IICMS
else.
t_cofins = t_cof_dev.
endif.
* << Fim da inclusão
IF v_nr_itens GT 1.
t_icmsbs_d2 = t_icmsbs = ( t_ivadu + t_ipirec + t_iirec +
t_ivdesp + v_desp + t_pis + t_cofins ) *
( /pws/zycie003-basred / 100 ).
ELSE.
...
...
ENDIF.
IF p_tipo = 'I' OR p_tipo = 'T'.
s_wicdevi = s_wicdevi + t_icms.
s_wpisreco = s_wpisreco + t_pis .
s_wcofreco = s_wcofreco + t_cofins.
* >> Início da inclusão: FORM LOAD_IICMS
s_wpiscalc = s_wpiscalc + t_pis_calc.
s_wpisdev = s_wpisdev + t_pis_dev.
s_wcofcalc = s_wcofcalc + t_cof_calc.
s_wcofdev = s_wcofdev + t_cof_dev.
* << Fim da inclusão
IF NOT /pws/zycie003-nrseqd IS INITIAL.
CLEAR: t_icms.
screen-input = '0'.
ELSEIF /pws/zycie003-nrseqd IS INITIAL.
s_wicreco = s_wicdevi.
...
...
ENDIF.
itab_it-baseicms = t_icmsbs.
itab_it-vlicms = t_icms.
itab_it-vlpis = t_pis .
itab_it-vlcofins = t_cofins.
* >> Início da inclusão: FORM LOAD_IICMS
itab_it-pis_calc = t_pis_calc.
itab_it-pis_dev = t_pis_dev.
itab_it-cofi_calc = t_cof_calc.
itab_it-cofi_dev = t_cof_dev.
* << Fim da inclusão
t_pisbs = itab_it-basepis.
t_cofinsbs = itab_it-basecofins.
t_vlicms = s_wicreco.
t_vlpis = s_wpisreco.
t_vlcofins = s_wcofreco.
...
...
EXIT.
ENDLOOP.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-225.
ENDIF.
* >> Início da inclusão: FORM SALVA_FATURA
if not itab_zycit003[] is initial.
* << Fim da inclusão
SELECT * FROM /pws/zycbt117
INTO TABLE itab_zycbt117
FOR ALL ENTRIES IN itab_zycit003
WHERE ebeln = itab_zycit003-ebeln
AND slpgant > 0
AND status NE 'E'.
IF sy-subrc EQ 0.
MESSAGE i015 WITH text-224.
ENDIF.
* >> Início da inclusão: FORM SALVA_FATURA
endif.
* << Fim da inclusão
ELSE.
SELECT SINGLE belnr_p FROM /pws/zycit006
INTO v_belnr_p
WHERE nrseq EQ /pws/zycie006-nrseq.
IF v_belnr_p IS INITIAL.
MESSAGE i015 WITH text-206 text-207.
ELSE.
MESSAGE i015 WITH text-225.
* >> Início da inclusão: FORM SALVA_FATURA
if not itab_zycit003[] is initial.
* << Fim da inclusão
SELECT * FROM /pws/zycbt117
INTO TABLE itab_zycbt117
FOR ALL ENTRIES IN itab_zycit003
WHERE ebeln = itab_zycit003-ebeln
AND slpgant > 0
AND status NE 'E'.
IF sy-subrc EQ 0.
MESSAGE i015 WITH text-224.
* >> Início da inclusão: FORM SALVA_FATURA
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
itab_zycit006-belnr_p = v_belnr_p.
MODIFY itab_zycit006.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F04
...
itab_it-basecofins = itab_it-basepis =
( t_ivadu * ( ( 1 + v_advicms * ( v_advii + v_advipi *
( 1 + v_advii ) ) ) / ( ( 1 - v_advpis - v_advcof ) *
( 1 - v_advicms ) ) ) ).
endform.
* >> Início da inclusão:
FORM propoe_fundleg.
IF NOT /pws/zycie100a-codfunlegpiscofi IS INITIAL.
PERFORM seleciona_fund_legal_pc
USING /pws/zycie100a-codfunlegpiscofi
/pws/zycie100a-codregtripiscofi
CHANGING t_fundes_regtri /pws/zycie100a-codredpiscofi.
ELSE.
CLEAR t_fundes_regtri.
ENDIF.
ENDFORM.
FORM seleciona_fund_legal_pc USING p_campo
p_campo1
CHANGING p_texto p_campo2.
DATA: v_descr LIKE /pws/zycit471-descr.
SELECT SINGLE descr
FROM /pws/zycit471 INTO v_descr
WHERE codigo = p_campo
AND regime = p_campo1.
IF sy-subrc EQ 0.
p_texto = v_descr.
ELSE.
CLEAR: v_descr, p_campo2.
MESSAGE e015 WITH text-238.
ENDIF.
ENDFORM.
FORM set_screen_0235.
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE100A-CODFUNLEGPISCOFI'.
IF /pws/zycie100a-codregtripiscofi IS INITIAL OR
/pws/zycie100a-codregtripiscofi EQ 1.
screen-input = '0'.
ELSE.
screen-input = '1'.
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE100A-ADVALPIS' .
IF NOT /pws/zycie100a-aliqpis IS INITIAL.
CLEAR /pws/zycie100a-advalpis.
screen-input = '0'.
ELSE.
screen-input = '1'.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-ALIQPIS' .
IF NOT /pws/zycie100a-advalpis IS INITIAL.
CLEAR /pws/zycie100a-aliqpis.
screen-input = '0'.
ELSE.
screen-input = '1'.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-UM_PIS' OR
screen-name EQ '/PWS/ZYCIE100A-QTDUM_PIS'.
IF NOT /pws/zycie100a-advalpis IS INITIAL.
CLEAR: /pws/zycie100a-um_pis,
/pws/zycie100a-qtdum_pis.
screen-input = '0'.
ELSE.
screen-input = '1'.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-UM_COFINS' OR
screen-name EQ '/PWS/ZYCIE100A-QTDUM_COFINS'.
IF NOT /pws/zycie100a-advalcofins IS INITIAL.
CLEAR: /pws/zycie100a-um_cofins,
/pws/zycie100a-qtdum_cofins.
screen-input = '0'.
ELSE.
screen-input = '1'.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-ADVALCOFINS' .
IF NOT /pws/zycie100a-aliqcof IS INITIAL.
CLEAR /pws/zycie100a-advalcofins.
screen-input = '0'.
ELSE.
screen-input = '1'.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-ALIQCOF' .
IF NOT /pws/zycie100a-advalcofins IS INITIAL.
CLEAR /pws/zycie100a-aliqcof.
screen-input = '0'.
ELSE.
screen-input = '1'.
ENDIF.
ENDIF.
IF sy-tcode EQ '/PWS/ZYCI058_E'.
screen-input = '0'.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDFORM.
FORM set_screen_0310.
LOOP AT SCREEN.
IF NOT screen-group1 IS INITIAL.
screen-invisible = '1'.
CASE screen-group1.
WHEN 'F3'.
IF wa_it-fabric EQ '1'.
screen-invisible = '0'.
ENDIF.
WHEN 'F1' OR 'F2'.
IF '23' CA wa_it-fabric.
screen-invisible = '0'.
ENDIF.
WHEN 'ALL'.
IF '12' CA wa_it-fabric.
screen-invisible = '0'.
ENDIF.
ENDCASE.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDFORM.
FORM set_screen_0312.
LOOP AT SCREEN.
screen-invisible = '0'.
IF screen-group1 = 'UNK'.
IF wa_it-fabric NE '3'.
screen-invisible = '1'.
ENDIF.
ELSE.
IF wa_it-fabric EQ '3'.
screen-invisible = '1'.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDFORM.
FORM set_screen_0350.
v_input = '0'.
IF v_acto = 'A'.
v_input = '1'.
ENDIF.
MOVE /pws/zycie006-codcambial TO v_m.
LOOP AT SCREEN.
screen-input = '0'.
screen-invisible = '1'.
CASE v_m.
WHEN space.
IF screen-group2 = 'NR'.
screen-invisible = '0'.
ENDIF.
WHEN '1'.
IF screen-group1 = '180' OR
screen-group2 = '1' OR
screen-group2 = '3' OR
screen-group2 = 'NR'.
screen-invisible = '0'.
ENDIF.
WHEN '2'.
IF screen-group1 = '360' OR
screen-group2 = '1' OR
screen-group2 = '3' OR
screen-group2 = 'NR'.
screen-invisible = '0'.
ENDIF.
WHEN '3'.
IF screen-group1 = 'SUP' OR
screen-group2 = '2' OR
screen-group2 = '3' OR
screen-group2 = 'NR'.
screen-invisible = '0'.
ENDIF.
WHEN '4'.
IF screen-group3 EQ '4A' OR
screen-group2 EQ 'NR'.
screen-invisible = '0'.
ENDIF.
IF screen-group3 EQ '4B'.
CASE /pws/zycie006-motivo.
WHEN '30' OR '57' OR '66' OR '70'.
screen-invisible = '0'.
ENDCASE.
ENDIF.
IF screen-group1 EQ '4C' OR
screen-group3 EQ '4C'.
IF /pws/zycie006-motivo = '32'.
screen-invisible = '0'.
ENDIF.
ENDIF.
ENDCASE.
IF screen-group4 = 'TAB'.
screen-input = '1'.
ENDIF.
IF screen-group1 EQ 'AC' AND screen-invisible EQ '0'.
screen-input = v_input.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDFORM.
FORM set_screen_0353.
LOOP AT SCREEN.
IF screen-group1 EQ 'AC'.
screen-input = '0'.
IF v_acto EQ 'A'.
screen-input = '1'.
ENDIF.
IF ( screen-group2 = 'FIX' AND
/pws/zycie116-parcfixas IS INITIAL ) OR
( screen-group2 = 'VAR' AND
/pws/zycie116-parcvar IS INITIAL ) OR
( screen-group2 = 'JUR' AND
/pws/zycie116-taxajuros IS INITIAL ).
screen-input = '0'.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDFORM.
FORM set_screen_0232.
v_l = /pws/zycie100a-codregtri.
v_n = /pws/zycie100a-motivo.
v_o = /pws/zycie085-ntimp.
v_p = /pws/zycie100a-codfunleg.
LOOP AT SCREEN.
IF v_acto EQ 'E'.
screen-input = '0'.
ELSE.
IF screen-name EQ '/PWS/ZYCIE100A-CODFUNLEG' AND
/pws/zycie093-meiotransp = 'PS'.
screen-input = '1'.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE100A-CODFUNLEG' AND
/pws/zycie100a-codfunleg IS INITIAL.
read table itab_zycit177t with key
origem = /pws/zycie085-tpdi
regime = /pws/zycie100a-codregtri
codigo = /pws/zycie100a-codfunleg.
IF sy-subrc = 0.
screen-input = '1'.
ELSE.
screen-input = '0'.
ENDIF.
ENDIF.
IF /pws/zycie100a-codfunleg EQ '39' OR
/pws/zycie100a-codfunleg EQ '42' OR
/pws/zycie100a-codfunleg EQ '72' OR
/pws/zycie100a-codfunleg EQ '73'.
IF screen-name EQ '/PWS/ZYCIE100A-MOTIVO'.
screen-input = '1'.
ENDIF.
ELSE.
CLEAR /pws/zycie100a-motivo.
IF screen-name EQ '/PWS/ZYCIE100A-MOTIVO'.
IF /pws/zycie100a-motivo IS INITIAL.
screen-input = '1'.
ELSE.
screen-input = 0.
ENDIF.
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE100A-MOTIVO'
AND /pws/zycie100a-motivo IS INITIAL.
read table itab_zycit177t with key
origem = /pws/zycie085-tpdi
regime = /pws/zycie100a-codregtri
codigo = /pws/zycie100a-codfunleg.
IF sy-subrc = 0.
screen-input = '1'.
ELSE.
screen-input = '0'.
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE100A-CLASSIFIC'.
screen-input = 1.
ENDIF.
IF /pws/zycie100a-classific EQ '1'.
CLEAR: /pws/zycie100a-codtsp,
t_tsp .
IF screen-name EQ 'TXT05'.
screen-invisible = 0.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE100A-DESTNCM'.
IF /pws/zycie093-meiotransp EQ 'PS'.
screen-input = 0.
ELSE.
screen-input = '1'.
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE100A-CODTSP'.
screen-input = 0.
CLEAR /pws/zycie100a-codtsp.
screen-invisible = '1'.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE003-J_1BNBM' OR
screen-name EQ 'TXT05' OR
screen-name EQ 'T_NCMDES' OR
screen-name EQ 'TXT13' .
screen-invisible = 0.
ENDIF.
MODIFY SCREEN.
PERFORM load_cncm USING /pws/zycie003-j_1bnbm.
ELSEIF /pws/zycie100a-classific EQ '2'.
CLEAR:
/pws/zycie100a-destncm.
IF screen-name EQ 'TXT05'.
screen-invisible = '1'.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE100A-DESTNCM'.
screen-input = 0.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE100A-CODTSP'.
screen-input = '1'.
screen-invisible = 0.
ENDIF.
CLEAR t_ncmdes.
IF screen-name EQ '/PWS/ZYCIE003-J_1BNBM'.
CLEAR /pws/zycie003-j_1bnbm.
screen-input = 0.
screen-invisible = '1'.
ENDIF.
IF screen-name EQ 'TXT05'.
screen-invisible = '1'.
ENDIF.
IF screen-name EQ 'T_NCMDES'.
CLEAR t_ncmdes.
screen-input = 0.
screen-invisible = '1'.
ENDIF.
IF screen-name EQ 'TXT13'.
screen-invisible = '1'.
ENDIF.
ENDIF.
ENDIF.
MODIFY SCREEN.
MODIFY SCREEN.
IF sy-tcode EQ '/PWS/ZYCI058_E'.
screen-input = '0'.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDFORM.
FORM set_screen_0223.
LOOP AT SCREEN.
IF screen-group1 EQ 'AC'.
screen-input = '0'.
IF v_acto EQ 'A'.
screen-input = '1'.
IF screen-group4 EQ 'REQ'.
screen-required = '1'.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF screen-group2 EQ 'RE'.
IF /pws/zycie085-ntimp NE '11'.
screen-input = '0'.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE085-WAERSSEG'
AND itab_zycit001-meioemba EQ 'PS'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE085-NRDSE'
AND itab_zycit001-meioemba EQ 'PS'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE085-DTEMDSE'
AND itab_zycit001-meioemba EQ 'PS'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE085-NRDDE'
AND itab_zycit001-meioemba EQ 'PS'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
IF itab_zycit001-regime EQ '11'.
IF screen-name EQ '/PWS/ZYCIE085-ULDSE'
AND itab_zycit001-meioemba EQ 'PS'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE085-NRPROC'
AND itab_zycit001-meioemba EQ 'PS'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
IF sy-tcode EQ '/PWS/ZYCI058_E'.
screen-input = '0'.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDFORM.
FORM set_screen_0222.
v_input = '0'.
MOVE /pws/zycie093-tpconh TO v_c.
LOOP AT SCREEN.
IF NOT screen-group1 IS INITIAL.
screen-input = '0'.
screen-invisible = '1'.
CASE screen-group1.
WHEN 'ED'.
screen-input = v_input.
screen-invisible = '0'.
WHEN 'FO'.
IF v_c = '01' OR v_c = '09' OR v_c = '10' OR
v_c = '13' OR v_c = '14' OR v_c = '17'.
screen-input = v_input.
screen-invisible = '0'.
ENDIF.
WHEN 'FS'.
IF v_c = '03' OR v_c = '08' OR v_c = '12' OR
v_c = '18'.
screen-input = v_input.
screen-invisible = '0'.
ENDIF.
WHEN 'RO'.
IF v_c = '99'.
screen-input = v_input.
screen-invisible = '0'.
ENDIF.
ENDCASE.
CASE screen-group2.
WHEN 'FS'.
IF v_c = '03' OR v_c = '08' OR v_c = '12' OR
v_c = '18'.
screen-input = v_input.
screen-invisible = '0'.
ENDIF.
ENDCASE.
CASE screen-group3.
WHEN 'FR'.
IF v_c = '17'.
screen-invisible = '1'.
ENDIF.
WHEN 'AT'.
IF v_c = '19'.
screen-input = v_input.
screen-invisible = '0'.
ENDIF.
ENDCASE.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDFORM.
FORM set_screen_0120.
MOVE /pws/zycie093-meiotransp TO v_t.
LOOP AT SCREEN.
screen-invisible = '1'.
screen-input = '0'.
CASE screen-group1.
WHEN 'AR'.
IF v_t = 'TA' OR v_t = 'MA' OR v_t = 'RD' OR
v_t = 'FR' OR v_t = 'PS' OR v_t = 'FL' OR
v_t = 'LC'.
screen-invisible = '0'.
ENDIF.
WHEN 'MA'.
IF v_t = 'MA' OR v_t = 'FL' OR v_t = 'LC'.
screen-invisible = '0'.
ENDIF.
WHEN 'RO'.
IF v_t = 'RD'.
screen-invisible = '0'.
ENDIF.
WHEN 'FI'.
IF v_t = 'EN'.
screen-invisible = '0'.
ENDIF.
WHEN ' '.
screen-invisible = '0'.
ENDCASE.
CASE screen-group2.
WHEN 'RO'.
IF v_t = 'RD'.
screen-invisible = '1'.
ENDIF.
WHEN 'PO'.
IF v_t = 'PS'.
screen-invisible = '1'.
ENDIF.
WHEN 'DU'.
IF v_t = 'DT' OR v_t = 'PP'.
screen-invisible = '0'.
ENDIF.
ENDCASE.
CASE screen-group3.
WHEN 'PO'.
IF v_t = 'PS'.
screen-invisible = '1'.
ENDIF.
ENDCASE.
IF screen-name EQ '/PWS/ZYCIE093-EMBARCA'.
IF /pws/zycie085-codreg EQ '15'.
screen-input = screen-required = '0'.
screen-invisible = '1'.
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE093-LOCALEMB'.
IF /pws/zycie085-codreg EQ '15'.
screen-input = screen-required = '0'.
screen-invisible = '1'.
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE093-DTEMB'.
IF /pws/zycie085-codreg EQ '15'.
screen-input = screen-required = '0'.
screen-invisible = '1'.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDFORM.
FORM set_screen_0432.
IF '26' CA /pws/zycie100a-codregtri.
CLEAR: /pws/zycie100a-codregtriipi, t_regde2,
/pws/zycie100a-notatipi,
/pws/zycie100a-tribipi, /pws/zycie100a-reduzidaipi,
/pws/zycie100a-unit_valor,
/pws/zycie100a-unit_meins,
/pws/zycie100a-unit_qtde,
/pws/zycie100a-unit_reccapac,
/pws/zycie100a-unit_rectipo,
/pws/zycie003-advalipi,
/pws/zycie003-ipi_extarif,
/pws/zycie003-ipi_tipo,
/pws/zycie003-ipi_orgemiss,
/pws/zycie003-ipi_numero,
/pws/zycie003-ipi_anoemiss.
ENDIF.
LOOP AT SCREEN.
IF '26' CA /pws/zycie100a-codregtri.
IF screen-group3 EQ 'IPI'.
screen-invisible = '0'.
ELSE.
screen-input = '0'.
screen-invisible = '1'.
ENDIF.
MODIFY SCREEN.
ELSE.
IF screen-group1 EQ 'AC'.
screen-input = '0'.
IF v_acto EQ 'A'.
screen-input = '1'.
IF NOT /pws/zycie100a-tribipi IS INITIAL AND
NOT screen-name EQ '/PWS/ZYCIE100A-TRIBIPI'.
screen-input = '0'.
CLEAR: /pws/zycie100a-codregtriipi, t_regde2,
/pws/zycie003-advalipi, /pws/zycie100a-notatipi,
/pws/zycie100a-reduzidaipi,
/pws/zycie003-ipi_extarif,
/pws/zycie003-ipi_tipo,
/pws/zycie003-ipi_orgemiss,
/pws/zycie003-ipi_numero,
/pws/zycie003-ipi_anoemiss,
/pws/zycie100a-unit_valor,
/pws/zycie100a-unit_meins,
/pws/zycie100a-unit_qtde,
/pws/zycie100a-unit_reccapac,
/pws/zycie100a-unit_rectipo.
ELSE.
IF ( screen-name = '/PWS/ZYCIE100A-REDUZIDAIPI' AND
/pws/zycie100a-codregtriipi NE '2' ) OR
( screen-group2 = 'EX' AND
/pws/zycie100a-codregtriipi EQ '4' ).
screen-input = '0'.
ELSEIF screen-name EQ '/PWS/ZYCIE003-ADVALIPI' OR
screen-name EQ '/PWS/ZYCIE100A-NOTATIPI'.
IF NOT /pws/zycie100a-unit_valor IS INITIAL OR
NOT /pws/zycie100a-unit_meins IS INITIAL OR
NOT /pws/zycie100a-unit_qtde IS INITIAL OR
NOT /pws/zycie100a-unit_reccapac IS INITIAL OR
NOT /pws/zycie100a-unit_rectipo IS INITIAL.
screen-input = '0'.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF screen-group2 EQ 'UNI'.
IF ( /pws/zycie003-advalipi IS INITIAL ) AND
'145' CA /pws/zycie100a-codregtriipi AND
/pws/zycie100a-codregtriipi NE '2'.
screen-input = '1'.
ELSE.
screen-input = '0'.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF screen-group3 EQ 'IPI'.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
FORM set_screen_0431.
v_icodr1 = /pws/zycie100a-codregtri.
LOOP AT SCREEN.
IF screen-group1 EQ 'AC'.
screen-input = '0'.
IF v_acto EQ 'A'.
screen-input = '1'.
IF screen-group4 EQ 'REQ'.
screen-required = '1'.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE100A-ACORDO'.
IF ' 2369' CA /pws/zycie100a-codregtri.
screen-input = '0'.
CLEAR: /pws/zycie100a-acordo.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-ALADI'.
IF /pws/zycie100a-acordo NE '2'.
screen-input = '0'.
CLEAR: /pws/zycie100a-aladi, a_aladi.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-ACORDORATE'.
IF /pws/zycie100a-acordo IS INITIAL.
screen-input = '0'.
CLEAR: /pws/zycie100a-acordorate.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-REDUZIDA'.
IF NOT /pws/zycie100a-percreduz IS INITIAL OR
'12369' CA /pws/zycie100a-codregtri.
screen-input = '0'.
CLEAR: /pws/zycie100a-reduzida.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-PERCREDUZ'.
IF NOT /pws/zycie100a-reduzida IS INITIAL OR
'12369' CA /pws/zycie100a-codregtri.
screen-input = '0'.
CLEAR: /pws/zycie100a-percreduz.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-CODFUNLEG'.
IF ' 178' CA /pws/zycie100a-codregtri.
screen-input = '0'.
CLEAR: /pws/zycie100a-codfunleg, t_fundes.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE003-ADVALII'.
IF ' 269' CA /pws/zycie100a-codregtri.
screen-input = '0'.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-CODREGTRI' AND
/pws/zycie100a-codregtri IS INITIAL.
CLEAR: /pws/zycie100a-aladi, a_aladi,
/pws/zycie100a-codfunleg, t_fundes,
/pws/zycie100a-acordo.
ELSEIF screen-name EQ '/PWS/ZYCIE003-II_EXTARIF' OR
screen-name EQ '/PWS/ZYCIE003-II_TIPO' OR
screen-name EQ '/PWS/ZYCIE003-II_ORGEMISS' OR
screen-name EQ '/PWS/ZYCIE003-II_NUMERO' OR
screen-name EQ '/PWS/ZYCIE003-II_ANOEMISS'.
IF '2369' CA /pws/zycie100a-codregtri.
CLEAR: /pws/zycie003-ii_extarif,
/pws/zycie003-ii_tipo,
/pws/zycie003-ii_orgemiss,
/pws/zycie003-ii_numero,
/pws/zycie003-ii_anoemiss.
screen-input = '0'.
ENDIF.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDFORM.
FORM set_screen_0131.
LOOP AT SCREEN.
IF screen-group1 EQ 'AC'.
screen-input = '0'.
IF v_acto EQ 'A'.
screen-input = '1'.
IF screen-group4 EQ 'REQ'.
screen-required = '1'.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE085-OPFUNDAP' AND
/pws/zycie085-codreg EQ '03'.
screen-input = screen-required = '0'.
screen-invisible = '1'.
ELSEIF screen-name EQ '/PWS/ZYCIE085-OPFUNDAP' AND
itab_zycit001-regime EQ '08'.
screen-invisible = '1'.
ELSEIF screen-name EQ 'TXT_FUNDAP' AND
itab_zycit001-regime EQ '08'.
screen-invisible = '1'.
ELSEIF screen-name EQ '/PWS/ZYCIE085-CGC' AND
/pws/zycie085-contropcb NE '2'.
screen-input = '0'.
CLEAR: /pws/zycie085-cgc.
ELSEIF screen-name EQ '/PWS/ZYCIE085-RECALF' AND
/pws/zycie085-urfdesp IS INITIAL.
screen-input = '0'.
CLEAR: /pws/zycie085-recalf, s_recalf,
/pws/zycie085-setor, s_setor.
ELSEIF screen-name EQ '/PWS/ZYCIE085-CNPJDECL' AND
/pws/zycie085-courier NE 'S'.
screen-input = '0'.
CLEAR: /pws/zycie085-cnpjdecl.
ELSEIF ( screen-group2 EQ 'MM' AND
/pws/zycie085-mdadicao EQ 'S' ) OR
( screen-name EQ '/PWS/ZYCIE085-SETOR' AND
/pws/zycie085-recalf IS INITIAL ).
screen-input = '0'.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE093-DTCHEG' AND
/pws/zycie085-codreg EQ '15'.
screen-input = screen-required = '0'.
screen-invisible = '1'.
ENDIF.
IF screen-name EQ 'S_AGEN' AND
/pws/zycie085-codreg EQ '15'.
screen-input = screen-required = '0'.
screen-invisible = '1'.
ENDIF.
IF screen-name EQ 'TXTDTC' AND
/pws/zycie085-codreg EQ '15'.
screen-input = screen-required = '0'.
screen-invisible = '1'.
ENDIF.
IF screen-name EQ 'TXTAG' AND
/pws/zycie085-codreg EQ '15'.
screen-input = screen-required = '0'.
screen-invisible = '1'.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDFORM.
FORM set_screen_0110.
LOOP AT SCREEN.
IF screen-name = '/PWS/ZYCIE085-NRDI' OR
screen-name = '/PWS/ZYCIE085-DTREG'.
SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie085-bukrs.
SELECT SINGLE * FROM /pws/zycit000 INTO /pws/zycit000.
IF sy-subrc = 0.
IF /pws/zycit000-siscomex = 'X'.
IF v_acto EQ 'A'.
screen-input = 1.
ELSE.
screen-input = 0.
ENDIF.
ELSE.
screen-input = 0.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDIF.
IF screen-group1 EQ 'AC'.
screen-input = '0'.
IF v_acto EQ 'A'.
IF sy-dynnr EQ '0110'.
IF ( screen-name EQ '/PWS/ZYCIE085-NRBL'
AND v_calci = 'S' ) OR
( screen-name EQ '/PWS/ZYCIE093-MEIOTRANSP' AND
NOT /pws/zycie085-nrbl IS INITIAL ).
ELSEIF ( screen-name EQ '/PWS/ZYCIE085-DTREG' AND
NOT /pws/zycie085-nrdi IS INITIAL ).
screen-input = screen-required = '1'.
ELSEIF screen-name EQ '/PWS/ZYCIE085-MODDESPS'.
IF NOT /pws/zycie085-codreg IS INITIAL.
screen-input = screen-required = '1'.
ENDIF.
IF /pws/zycie085-codreg EQ '15'.
screen-input = screen-required = '0'.
screen-invisible = '1'.
ENDIF.
ELSE.
screen-input = '1'.
IF screen-group4 EQ 'REQ'.
screen-required = '1'.
ENDIF.
ENDIF.
ELSEIF sy-dynnr = '0412'.
IF ( screen-name EQ '/PWS/ZYCIE003-APLICACAO' OR
screen-name EQ '/PWS/ZYCIE003-CONDMERC' ) AND
/pws/zycie085-codreg = '06'.
ELSE.
screen-input = '1'.
ENDIF.
ELSEIF sy-dynnr = '0434'.
IF /pws/zycie100a-antidrate IS INITIAL AND
screen-name = 'S_ADBS'.
ELSE.
screen-input = '1'.
ENDIF.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDFORM.
FORM set_screen_0100.
LOOP AT SCREEN.
IF NOT screen-group1 IS INITIAL.
CASE screen-group1.
WHEN '12'.
IF ( v_tipo NE '3' AND v_tipo NE '4' ).
screen-invisible = '0'.
ELSE.
screen-invisible = '1'.
ENDIF.
WHEN '34'.
IF ( v_tipo EQ '3' OR v_tipo EQ '4' ).
screen-invisible = '0'.
ELSE.
screen-invisible = '1'.
ENDIF.
WHEN 'AC'.
screen-input = '0'.
IF v_acto = 'A'.
IF ( ( screen-name EQ '/PWS/ZYCIE085-BUKRS' OR
screen-name EQ '/PWS/ZYCIE085-J_1BBRANCH' ) AND
NOT /pws/zycie085-dtuserc IS INITIAL ).
ELSE.
screen-input = '1'.
IF screen-group4 = 'REQ'.
screen-required = '1'.
ENDIF.
ENDIF.
ENDIF.
ENDCASE.
MODIFY SCREEN.
ENDIF.
IF screen-name = 'TAB_CONT'.
SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie085-bukrs.
SELECT SINGLE * FROM /pws/zycit000 WHERE land1 = t001-land1.
IF /pws/zycit000-flag_reclass IS INITIAL.
IF /pws/zycie085-flag_reclass IS INITIAL AND
/pws/zycie085-belnr_0 IS INITIAL AND
/pws/zycie085-belnr_1 IS INITIAL AND
/pws/zycie085-belnr_2 IS INITIAL AND
/pws/zycie085-belnr_3 IS INITIAL.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
FORM set_screen_0180.
LOOP AT SCREEN.
IF sy-tcode EQ '/PWS/ZYCI058_E'.
screen-input = '0'.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDFORM.
FORM set_screen_0234.
LOOP AT SCREEN.
IF v_acto EQ 'E'.
screen-input = '0'.
ELSE.
IF /pws/zycit000-pis_cof IS INITIAL AND
NOT sy-tcode EQ '/PWS/ZYCI058_E' .
IF screen-name EQ 'T_PISBS' OR
screen-name EQ 'T_COFINSBS'.
screen-input = '1'.
ENDIF.
ENDIF.
IF screen-name = 'T_IIREC' AND
/pws/zycie093-meiotransp = 'PS'.
screen-invisible = '0'.
ENDIF.
IF screen-name = 'T_IPIREC' AND
/pws/zycie093-meiotransp = 'PS'.
screen-invisible = '0'.
ENDIF.
IF screen-name = 'T_ICMS_D2' AND
/pws/zycie093-meiotransp = 'PS'.
screen-invisible = '0'.
ENDIF.
IF /pws/zycie100a-codregtri EQ '2' OR
/pws/zycie100a-codregtri EQ '6'.
CLEAR: t_iibas ,
/pws/zycie003-advalii ,
a_iicalc ,
t_iirec ,
t_ipibas ,
/pws/zycie003-advalipi,
a_ipidevi ,
t_ipirec .
IF screen-name EQ '/PWS/ZYCIE003-ADVALII' OR
screen-name EQ '/PWS/ZYCIE003-ADVALIPI'.
screen-input = 0.
ENDIF.
ELSEIF /pws/zycie100a-codregtri EQ '7'.
CLEAR: t_ipibas ,
/pws/zycie003-advalipi,
a_ipidevi ,
t_ipirec .
IF screen-name EQ '/PWS/ZYCIE003-ADVALIPI'.
screen-input = 0.
ENDIF.
ELSEIF /pws/zycie100a-codregtri EQ '5'.
CLEAR: t_iirec ,
t_ipirec.
ENDIF.
IF /pws/zycie093-meiotransp = 'PS'.
IF screen-name = '/PWS/ZYCIE003-ADVALICMS'.
screen-input = 1.
ELSEIF screen-name = '/PWS/ZYCIE003-ADVALII'.
/pws/zycie003-advalii = '60'.
screen-input = '0'.
ENDIF.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDFORM.
FORM set_screen_0233.
LOOP AT SCREEN.
IF itab_zycit001-meioemba EQ 'PS'.
screen-input = '0'.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058I01
...
CHANGING t_regde2.
ENDMODULE.
MODULE calc_vicms INPUT.
itab_it-basepis = t_pisbs .
itab_it-advalpis = /pws/zycie100a-advalpis .
* >> Início da exclusão: MODULE CALC_VICMS
itab_it-basredpis = /pws/zycie100a-basredpis.
* << Fim da exclusão
itab_it-basecofins = t_cofinsbs .
itab_it-advalcofins = /pws/zycie100a-advalcofins.
* >> Início da exclusão: MODULE CALC_VICMS
itab_it-basredcof = /pws/zycie100a-basredcof .
* << Fim da exclusão
* >> Início da inclusão: MODULE CALC_VICMS
itab_it-UM_PIS = /pws/zycie100a-UM_PIS.
itab_it-UM_COFINS = /pws/zycie100a-UM_COFINS.
itab_it-QTDUM_PIS = /pws/zycie100a-QTDUM_PIS.
itab_it-QTDUM_COFINS = /pws/zycie100a-QTDUM_COFINS.
* << Fim da inclusão
IF /pws/zycie003-advalicms >= '100'.
/pws/zycie003-advalicms = '0'.
ENDIF.
PERFORM: load_iicms USING 'T'.
itab_it-basred = /pws/zycie003-basred.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058O01
...
PERFORM load_text.
ENDMODULE.
MODULE set_screen OUTPUT.
CASE sy-dynnr.
WHEN '0100' OR '0200'.
* >> Início da exclusão: MODULE SET_SCREEN
LOOP AT SCREEN.
IF NOT screen-group1 IS INITIAL.
CASE screen-group1.
WHEN '12'.
IF ( v_tipo NE '3' AND v_tipo NE '4' ).
screen-invisible = '0'.
ELSE.
screen-invisible = '1'.
ENDIF.
WHEN '34'.
IF ( v_tipo EQ '3' OR v_tipo EQ '4' ).
screen-invisible = '0'.
ELSE.
screen-invisible = '1'.
ENDIF.
WHEN 'AC'.
screen-input = '0'.
IF v_acto = 'A'.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
perform set_screen_0100.
* << Fim da inclusão
* >> Início da exclusão: MODULE SET_SCREEN
IF ( ( screen-name EQ '/PWS/ZYCIE085-BUKRS' OR
screen-name EQ '/PWS/ZYCIE085-J_1BBRANCH' ) AND
NOT /pws/zycie085-dtuserc IS INITIAL ).
ELSE.
screen-input = '1'.
IF screen-group4 = 'REQ'.
screen-required = '1'.
ENDIF.
ENDIF.
ENDIF.
ENDCASE.
MODIFY SCREEN.
ENDIF.
IF screen-name = 'TAB_CONT'.
SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie085-bukrs.
SELECT SINGLE * FROM /pws/zycit000 WHERE land1 = t001-land1.
IF /pws/zycit000-flag_reclass IS INITIAL.
IF /pws/zycie085-flag_reclass IS INITIAL AND
/pws/zycie085-belnr_0 IS INITIAL AND
/pws/zycie085-belnr_1 IS INITIAL AND
/pws/zycie085-belnr_2 IS INITIAL AND
/pws/zycie085-belnr_3 IS INITIAL.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
* << Fim da exclusão
WHEN '0110' OR '0412' OR '0434'.
* >> Início da exclusão: MODULE SET_SCREEN
LOOP AT SCREEN.
IF screen-name = '/PWS/ZYCIE085-NRDI' OR
screen-name = '/PWS/ZYCIE085-DTREG'.
SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie085-bukrs.
SELECT SINGLE * FROM /pws/zycit000 INTO /pws/zycit000.
IF sy-subrc = 0.
IF /pws/zycit000-siscomex = 'X'.
IF v_acto EQ 'A'.
screen-input = 1.
ELSE.
screen-input = 0.
ENDIF.
ELSE.
screen-input = 0.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDIF.
IF screen-group1 EQ 'AC'.
screen-input = '0'.
IF v_acto EQ 'A'.
IF sy-dynnr EQ '0110'.
IF ( screen-name EQ '/PWS/ZYCIE085-NRBL'
AND v_calci = 'S' ) OR
( screen-name EQ '/PWS/ZYCIE093-MEIOTRANSP' AND
NOT /pws/zycie085-nrbl IS INITIAL ).
ELSEIF ( screen-name EQ '/PWS/ZYCIE085-DTREG' AND
NOT /pws/zycie085-nrdi IS INITIAL ).
screen-input = screen-required = '1'.
ELSEIF screen-name EQ '/PWS/ZYCIE085-MODDESPS'.
IF NOT /pws/zycie085-codreg IS INITIAL.
screen-input = screen-required = '1'.
ENDIF.
IF /pws/zycie085-codreg EQ '15'.
screen-input = screen-required = '0'.
screen-invisible = '1'.
ENDIF.
ELSE.
screen-input = '1'.
IF screen-group4 EQ 'REQ'.
screen-required = '1'.
ENDIF.
ENDIF.
ELSEIF sy-dynnr = '0412'.
IF ( screen-name EQ '/PWS/ZYCIE003-APLICACAO' OR
screen-name EQ '/PWS/ZYCIE003-CONDMERC' ) AND
/pws/zycie085-codreg = '06'.
ELSE.
screen-input = '1'.
ENDIF.
ELSEIF sy-dynnr = '0434'.
IF /pws/zycie100a-antidrate IS INITIAL AND
screen-name = 'S_ADBS'.
ELSE.
screen-input = '1'.
ENDIF.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
perform set_screen_0110.
* << Fim da inclusão
WHEN '0131' OR '0210' OR '0420' OR '0321'.
* >> Início da exclusão: MODULE SET_SCREEN
LOOP AT SCREEN.
IF screen-group1 EQ 'AC'.
screen-input = '0'.
IF v_acto EQ 'A'.
screen-input = '1'.
IF screen-group4 EQ 'REQ'.
screen-required = '1'.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE085-OPFUNDAP' AND
/pws/zycie085-codreg EQ '03'.
screen-input = screen-required = '0'.
screen-invisible = '1'.
ELSEIF screen-name EQ '/PWS/ZYCIE085-OPFUNDAP' AND
itab_zycit001-regime EQ '08'.
screen-invisible = '1'.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
perform set_screen_0131.
* << Fim da inclusão
* >> Início da exclusão: MODULE SET_SCREEN
ELSEIF screen-name EQ 'TXT_FUNDAP' AND
itab_zycit001-regime EQ '08'.
screen-invisible = '1'.
ELSEIF screen-name EQ '/PWS/ZYCIE085-CGC' AND
/pws/zycie085-contropcb NE '2'.
screen-input = '0'.
CLEAR: /pws/zycie085-cgc.
ELSEIF screen-name EQ '/PWS/ZYCIE085-RECALF' AND
/pws/zycie085-urfdesp IS INITIAL.
screen-input = '0'.
CLEAR: /pws/zycie085-recalf, s_recalf,
/pws/zycie085-setor, s_setor.
ELSEIF screen-name EQ '/PWS/ZYCIE085-CNPJDECL' AND
/pws/zycie085-courier NE 'S'.
screen-input = '0'.
CLEAR: /pws/zycie085-cnpjdecl.
ELSEIF ( screen-group2 EQ 'MM' AND
/pws/zycie085-mdadicao EQ 'S' ) OR
( screen-name EQ '/PWS/ZYCIE085-SETOR' AND
/pws/zycie085-recalf IS INITIAL ).
screen-input = '0'.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE093-DTCHEG' AND
/pws/zycie085-codreg EQ '15'.
screen-input = screen-required = '0'.
screen-invisible = '1'.
ENDIF.
IF screen-name EQ 'S_AGEN' AND
/pws/zycie085-codreg EQ '15'.
screen-input = screen-required = '0'.
screen-invisible = '1'.
ENDIF.
IF screen-name EQ 'TXTDTC' AND
/pws/zycie085-codreg EQ '15'.
screen-input = screen-required = '0'.
screen-invisible = '1'.
ENDIF.
IF screen-name EQ 'TXTAG' AND
/pws/zycie085-codreg EQ '15'.
screen-input = screen-required = '0'.
screen-invisible = '1'.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
WHEN '0431'.
v_icodr1 = /pws/zycie100a-codregtri.
LOOP AT SCREEN.
IF screen-group1 EQ 'AC'.
screen-input = '0'.
IF v_acto EQ 'A'.
screen-input = '1'.
IF screen-group4 EQ 'REQ'.
screen-required = '1'.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE100A-ACORDO'.
IF ' 2369' CA /pws/zycie100a-codregtri.
screen-input = '0'.
CLEAR: /pws/zycie100a-acordo.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-ALADI'.
IF /pws/zycie100a-acordo NE '2'.
screen-input = '0'.
CLEAR: /pws/zycie100a-aladi, a_aladi.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-ACORDORATE'.
IF /pws/zycie100a-acordo IS INITIAL.
screen-input = '0'.
CLEAR: /pws/zycie100a-acordorate.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-REDUZIDA'.
IF NOT /pws/zycie100a-percreduz IS INITIAL OR
'12369' CA /pws/zycie100a-codregtri.
screen-input = '0'.
CLEAR: /pws/zycie100a-reduzida.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-PERCREDUZ'.
IF NOT /pws/zycie100a-reduzida IS INITIAL OR
'12369' CA /pws/zycie100a-codregtri.
screen-input = '0'.
CLEAR: /pws/zycie100a-percreduz.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-CODFUNLEG'.
IF ' 178' CA /pws/zycie100a-codregtri.
screen-input = '0'.
CLEAR: /pws/zycie100a-codfunleg, t_fundes.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE003-ADVALII'.
IF ' 269' CA /pws/zycie100a-codregtri.
screen-input = '0'.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-CODREGTRI' AND
/pws/zycie100a-codregtri IS INITIAL.
CLEAR: /pws/zycie100a-aladi, a_aladi,
/pws/zycie100a-codfunleg, t_fundes,
/pws/zycie100a-acordo.
ELSEIF screen-name EQ '/PWS/ZYCIE003-II_EXTARIF' OR
screen-name EQ '/PWS/ZYCIE003-II_TIPO' OR
screen-name EQ '/PWS/ZYCIE003-II_ORGEMISS' OR
screen-name EQ '/PWS/ZYCIE003-II_NUMERO' OR
screen-name EQ '/PWS/ZYCIE003-II_ANOEMISS'.
IF '2369' CA /pws/zycie100a-codregtri.
CLEAR: /pws/zycie003-ii_extarif,
/pws/zycie003-ii_tipo,
/pws/zycie003-ii_orgemiss,
/pws/zycie003-ii_numero,
/pws/zycie003-ii_anoemiss.
screen-input = '0'.
ENDIF.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
WHEN '0432'.
IF '26' CA /pws/zycie100a-codregtri.
CLEAR: /pws/zycie100a-codregtriipi, t_regde2,
/pws/zycie100a-notatipi,
/pws/zycie100a-tribipi, /pws/zycie100a-reduzidaipi,
/pws/zycie100a-unit_valor,
/pws/zycie100a-unit_meins,
/pws/zycie100a-unit_qtde,
/pws/zycie100a-unit_reccapac,
/pws/zycie100a-unit_rectipo,
/pws/zycie003-advalipi,
/pws/zycie003-ipi_extarif,
/pws/zycie003-ipi_tipo,
/pws/zycie003-ipi_orgemiss,
/pws/zycie003-ipi_numero,
/pws/zycie003-ipi_anoemiss.
ENDIF.
LOOP AT SCREEN.
IF '26' CA /pws/zycie100a-codregtri.
IF screen-group3 EQ 'IPI'.
screen-invisible = '0'.
ELSE.
screen-input = '0'.
screen-invisible = '1'.
ENDIF.
MODIFY SCREEN.
ELSE.
IF screen-group1 EQ 'AC'.
screen-input = '0'.
IF v_acto EQ 'A'.
screen-input = '1'.
IF NOT /pws/zycie100a-tribipi IS INITIAL AND
NOT screen-name EQ '/PWS/ZYCIE100A-TRIBIPI'.
screen-input = '0'.
CLEAR: /pws/zycie100a-codregtriipi, t_regde2,
/pws/zycie003-advalipi, /pws/zycie100a-notatipi,
/pws/zycie100a-reduzidaipi,
/pws/zycie003-ipi_extarif,
/pws/zycie003-ipi_tipo,
/pws/zycie003-ipi_orgemiss,
/pws/zycie003-ipi_numero,
/pws/zycie003-ipi_anoemiss,
/pws/zycie100a-unit_valor,
/pws/zycie100a-unit_meins,
/pws/zycie100a-unit_qtde,
/pws/zycie100a-unit_reccapac,
/pws/zycie100a-unit_rectipo.
ELSE.
IF ( screen-name = '/PWS/ZYCIE100A-REDUZIDAIPI' AND
/pws/zycie100a-codregtriipi NE '2' ) OR
( screen-group2 = 'EX' AND
/pws/zycie100a-codregtriipi EQ '4' ).
screen-input = '0'.
ELSEIF screen-name EQ '/PWS/ZYCIE003-ADVALIPI' OR
screen-name EQ '/PWS/ZYCIE100A-NOTATIPI'.
IF NOT /pws/zycie100a-unit_valor IS INITIAL OR
NOT /pws/zycie100a-unit_meins IS INITIAL OR
NOT /pws/zycie100a-unit_qtde IS INITIAL OR
NOT /pws/zycie100a-unit_reccapac IS INITIAL OR
NOT /pws/zycie100a-unit_rectipo IS INITIAL.
screen-input = '0'.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF screen-group2 EQ 'UNI'.
IF ( /pws/zycie003-advalipi IS INITIAL ) AND
'145' CA /pws/zycie100a-codregtriipi AND
/pws/zycie100a-codregtriipi NE '2'.
screen-input = '1'.
ELSE.
screen-input = '0'.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF screen-group3 EQ 'IPI'.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
* << Fim da exclusão
WHEN '0120'.
* >> Início da exclusão: MODULE SET_SCREEN
MOVE /pws/zycie093-meiotransp TO v_t.
LOOP AT SCREEN.
screen-invisible = '1'.
screen-input = '0'.
CASE screen-group1.
WHEN 'AR'.
IF v_t = 'TA' OR v_t = 'MA' OR v_t = 'RD' OR
v_t = 'FR' OR v_t = 'PS' OR v_t = 'FL' OR
v_t = 'LC'.
screen-invisible = '0'.
ENDIF.
WHEN 'MA'.
IF v_t = 'MA' OR v_t = 'FL' OR v_t = 'LC'.
screen-invisible = '0'.
ENDIF.
WHEN 'RO'.
IF v_t = 'RD'.
screen-invisible = '0'.
ENDIF.
WHEN 'FI'.
IF v_t = 'EN'.
screen-invisible = '0'.
ENDIF.
WHEN ' '.
screen-invisible = '0'.
ENDCASE.
CASE screen-group2.
WHEN 'RO'.
IF v_t = 'RD'.
screen-invisible = '1'.
ENDIF.
WHEN 'PO'.
IF v_t = 'PS'.
screen-invisible = '1'.
ENDIF.
WHEN 'DU'.
IF v_t = 'DT' OR v_t = 'PP'.
screen-invisible = '0'.
ENDIF.
ENDCASE.
CASE screen-group3.
WHEN 'PO'.
IF v_t = 'PS'.
screen-invisible = '1'.
ENDIF.
ENDCASE.
IF screen-name EQ '/PWS/ZYCIE093-EMBARCA'.
IF /pws/zycie085-codreg EQ '15'.
screen-input = screen-required = '0'.
screen-invisible = '1'.
ENDIF.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
perform set_screen_0120.
WHEN '0180'.
PERFORM SET_SCREEN_0180.
* << Fim da inclusão
* >> Início da exclusão: MODULE SET_SCREEN
IF screen-name EQ '/PWS/ZYCIE093-LOCALEMB'.
IF /pws/zycie085-codreg EQ '15'.
screen-input = screen-required = '0'.
screen-invisible = '1'.
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE093-DTEMB'.
IF /pws/zycie085-codreg EQ '15'.
screen-input = screen-required = '0'.
screen-invisible = '1'.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
* << Fim da exclusão
WHEN '0222'.
* >> Início da exclusão: MODULE SET_SCREEN
v_input = '0'.
MOVE /pws/zycie093-tpconh TO v_c.
LOOP AT SCREEN.
IF NOT screen-group1 IS INITIAL.
screen-input = '0'.
screen-invisible = '1'.
CASE screen-group1.
WHEN 'ED'.
screen-input = v_input.
screen-invisible = '0'.
WHEN 'FO'.
IF v_c = '01' OR v_c = '09' OR v_c = '10' OR
v_c = '13' OR v_c = '14' OR v_c = '17'.
screen-input = v_input.
screen-invisible = '0'.
ENDIF.
WHEN 'FS'.
IF v_c = '03' OR v_c = '08' OR v_c = '12' OR
v_c = '18'.
screen-input = v_input.
screen-invisible = '0'.
ENDIF.
WHEN 'RO'.
IF v_c = '99'.
screen-input = v_input.
screen-invisible = '0'.
ENDIF.
ENDCASE.
CASE screen-group2.
WHEN 'FS'.
IF v_c = '03' OR v_c = '08' OR v_c = '12' OR
v_c = '18'.
screen-input = v_input.
screen-invisible = '0'.
ENDIF.
ENDCASE.
CASE screen-group3.
WHEN 'FR'.
IF v_c = '17'.
screen-invisible = '1'.
ENDIF.
WHEN 'AT'.
IF v_c = '19'.
screen-input = v_input.
screen-invisible = '0'.
ENDIF.
ENDCASE.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
perform set_screen_0222.
* << Fim da inclusão
WHEN '0223'.
* >> Início da exclusão: MODULE SET_SCREEN
LOOP AT SCREEN.
IF screen-group1 EQ 'AC'.
screen-input = '0'.
IF v_acto EQ 'A'.
screen-input = '1'.
IF screen-group4 EQ 'REQ'.
screen-required = '1'.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF screen-group2 EQ 'RE'.
IF /pws/zycie085-ntimp NE '11'.
screen-input = '0'.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE085-WAERSSEG'
AND itab_zycit001-meioemba EQ 'PS'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE085-VLSEG'
AND itab_zycit001-meioemba EQ 'PS'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE085-NRDSE'
AND itab_zycit001-meioemba EQ 'PS'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE085-DTEMDSE'
AND itab_zycit001-meioemba EQ 'PS'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE085-NRDDE'
AND itab_zycit001-meioemba EQ 'PS'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
IF itab_zycit001-regime EQ '11'.
IF screen-name EQ '/PWS/ZYCIE085-ULDSE'
AND itab_zycit001-meioemba EQ 'PS'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE085-NRPROC'
AND itab_zycit001-meioemba EQ 'PS'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
WHEN '0232' OR '0233' OR '0234'.
v_l = /pws/zycie100a-codregtri. v_n = /pws/zycie100a-motivo.
v_o = /pws/zycie085-ntimp. v_p =
/pws/zycie100a-codfunleg.
LOOP AT SCREEN.
IF sy-dynnr EQ '0234'.
IF screen-name = 'T_IIREC' AND
/pws/zycie093-meiotransp = 'PS'.
screen-invisible = '0'.
ENDIF.
IF screen-name = 'T_IPIREC' AND
/pws/zycie093-meiotransp = 'PS'.
screen-invisible = '0'.
ENDIF.
IF screen-name = 'T_ICMS_D2' AND
/pws/zycie093-meiotransp = 'PS'.
screen-invisible = '0'.
ENDIF.
IF screen-group1 EQ 'AC'.
screen-input = '0'.
IF v_acto EQ 'A'.
screen-input = '1'.
ENDIF.
IF sy-dynnr EQ '0232'.
IF v_acto EQ 'E'.
screen-input = '0'.
ELSE.
IF screen-name EQ '/PWS/ZYCIE100A-CODFUNLEG' AND
/pws/zycie093-meiotransp = 'PS'.
screen-input = '1'.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE100A-CODFUNLEG' AND
/pws/zycie100a-codfunleg IS INITIAL.
CLEAR: itab_zycit177t. REFRESH: itab_zycit177t.
SELECT * FROM /pws/zycit177 INTO TABLE itab_zycit177t
WHERE origem EQ /pws/zycie085-tpdi
AND regime EQ /pws/zycie100a-codregtri
AND codigo EQ /pws/zycie100a-codfunleg.
IF sy-subrc = 0.
screen-input = '1'.
ELSE.
screen-input = '0'.
ENDIF.
ENDIF.
IF /pws/zycie100a-codfunleg EQ '39' OR
/pws/zycie100a-codfunleg EQ '42' OR
/pws/zycie100a-codfunleg EQ '72' OR
/pws/zycie100a-codfunleg EQ '73'.
IF screen-name EQ '/PWS/ZYCIE100A-MOTIVO'.
screen-input = '1'.
ENDIF.
ELSE.
CLEAR /pws/zycie100a-motivo.
IF screen-name EQ '/PWS/ZYCIE100A-MOTIVO'.
IF /pws/zycie100a-motivo IS INITIAL.
screen-input = '1'.
ELSE.
screen-input = 0.
ENDIF.
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE100A-MOTIVO'
AND /pws/zycie100a-motivo IS INITIAL.
CLEAR: itab_zycit177t. REFRESH: itab_zycit177t.
SELECT * FROM /pws/zycit177 INTO TABLE itab_zycit177t
WHERE origem EQ /pws/zycie085-tpdi
AND regime EQ /pws/zycie100a-codregtri
AND codigo EQ /pws/zycie100a-codfunleg.
IF sy-subrc = 0.
screen-input = '1'.
ELSE.
screen-input = '0'.
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE100A-CLASSIFIC' AND
/pws/zycie093-meiotransp = 'PS'.
screen-input = 0.
ENDIF.
IF /pws/zycie100a-classific EQ '1'.
CLEAR: /pws/zycie100a-codtsp,
t_tsp .
IF screen-name EQ 'TXT05'.
screen-invisible = 0.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE100A-DESTNCM'.
IF /pws/zycie093-meiotransp EQ 'PS'.
screen-input = 0.
ELSE.
screen-input = '1'.
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE100A-CODTSP'.
screen-input = 0.
screen-invisible = '1'.
ENDIF.
ELSEIF /pws/zycie100a-classific EQ '2'.
CLEAR:
/pws/zycie100a-destncm.
IF screen-name EQ 'TXT05'.
screen-invisible = '1'.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE100A-DESTNCM'.
screen-input = 0.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE100A-CODTSP'.
screen-input = '1'.
screen-invisible = 0.
ENDIF.
ENDIF.
ENDIF.
ELSEIF sy-dynnr EQ '0234'.
IF v_acto EQ 'E'.
screen-input = '0'.
ELSE.
IF /pws/zycie100a-codregtri EQ '2' OR
/pws/zycie100a-codregtri EQ '6'.
CLEAR: t_iibas ,
/pws/zycie003-advalii ,
a_iicalc ,
t_iirec ,
t_ipibas ,
/pws/zycie003-advalipi,
a_ipidevi ,
t_ipirec .
IF screen-name EQ '/PWS/ZYCIE003-ADVALII' OR
screen-name EQ '/PWS/ZYCIE003-ADVALIPI'.
screen-input = 0.
ENDIF.
ELSEIF /pws/zycie100a-codregtri EQ '7'.
CLEAR: t_ipibas ,
/pws/zycie003-advalipi,
a_ipidevi ,
t_ipirec .
IF screen-name EQ '/PWS/ZYCIE003-ADVALIPI'.
screen-input = 0.
ENDIF.
ELSEIF /pws/zycie100a-codregtri EQ '5'.
CLEAR: t_iirec ,
t_ipirec.
ENDIF.
IF /pws/zycie093-meiotransp = 'PS'.
IF screen-name = '/PWS/ZYCIE003-ADVALICMS'.
screen-input = 1.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
perform set_screen_0223.
WHEN '0232' .
perform set_screen_0232 .
when '0233'.
perform set_screen_0233.
when '0234'.
perform set_screen_0234 .
WHEN '0235'.
perform set_screen_0235.
* << Fim da inclusão
* >> Início da exclusão: MODULE SET_SCREEN
ELSEIF screen-name = '/PWS/ZYCIE003-ADVALII'.
/pws/zycie003-advalii = '60'.
screen-input = '0'.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
if /PWS/ZYCIT000-PIS_COF IS INITIAL AND
NOT SY-TCODE EQ '/PWS/ZYCI058_E' .
if screen-name eq 'T_PISBS' or
screen-name eq 'T_COFINSBS'.
screen-input = '1'.
endif.
modify screen.
ENDIF.
ELSE.
IF sy-dynnr EQ '0232'.
IF /pws/zycie100a-classific EQ '1'.
IF screen-name EQ '/PWS/ZYCIE003-J_1BNBM' OR
screen-name EQ 'TXT05' OR
screen-name EQ 'T_NCMDES' OR
screen-name EQ 'TXT13' .
screen-invisible = 0.
ELSE.
screen-input = '1'.
ENDIF.
MODIFY SCREEN.
PERFORM load_cncm USING /pws/zycie003-j_1bnbm.
ELSEIF /pws/zycie100a-classific EQ '2'.
CLEAR t_ncmdes.
IF screen-name EQ '/PWS/ZYCIE003-J_1BNBM'.
screen-invisible = '1'.
ENDIF.
IF screen-name EQ 'TXT05'.
screen-invisible = '1'.
ENDIF.
IF screen-name EQ 'T_NCMDES'.
screen-invisible = '1'.
ENDIF.
IF screen-name EQ 'TXT13'.
screen-invisible = '1'.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
MODIFY SCREEN.
IF sy-dynnr = '0233' .
if itab_zycit001-meioemba EQ 'PS'.
screen-input = '0'.
endif.
MODIFY SCREEN.
ELSEIF sy-dynnr EQ '0232' AND
/pws/zycie100a-classific IS INITIAL.
screen-input = '1'.
MODIFY SCREEN.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
* << Fim da exclusão
WHEN '0310'.
* >> Início da exclusão: MODULE SET_SCREEN
LOOP AT SCREEN.
IF NOT screen-group1 IS INITIAL.
screen-invisible = '1'.
CASE screen-group1.
WHEN 'F3'.
IF wa_it-fabric EQ '1'.
screen-invisible = '0'.
ENDIF.
WHEN 'F1' OR 'F2'.
IF '23' CA wa_it-fabric.
screen-invisible = '0'.
ENDIF.
WHEN 'ALL'.
IF '12' CA wa_it-fabric.
screen-invisible = '0'.
ENDIF.
ENDCASE.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
perform set_screen_0310.
* << Fim da inclusão
WHEN '0312'.
* >> Início da exclusão: MODULE SET_SCREEN
LOOP AT SCREEN.
screen-invisible = '0'.
IF screen-group1 = 'UNK'.
IF wa_it-fabric NE '3'.
screen-invisible = '1'.
ENDIF.
ELSE.
IF wa_it-fabric EQ '3'.
screen-invisible = '1'.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
perform set_screen_0312.
* << Fim da inclusão
WHEN '0350'.
* >> Início da exclusão: MODULE SET_SCREEN
v_input = '0'.
IF v_acto = 'A'.
v_input = '1'.
ENDIF.
MOVE /pws/zycie006-codcambial TO v_m.
LOOP AT SCREEN.
screen-input = '0'.
screen-invisible = '1'.
CASE v_m.
WHEN space.
IF screen-group2 = 'NR'.
screen-invisible = '0'.
ENDIF.
WHEN '1'.
IF screen-group1 = '180' OR
screen-group2 = '1' OR
screen-group2 = '3' OR
screen-group2 = 'NR'.
screen-invisible = '0'.
ENDIF.
WHEN '2'.
IF screen-group1 = '360' OR
screen-group2 = '1' OR
screen-group2 = '3' OR
screen-group2 = 'NR'.
screen-invisible = '0'.
ENDIF.
WHEN '3'.
IF screen-group1 = 'SUP' OR
screen-group2 = '2' OR
screen-group2 = '3' OR
screen-group2 = 'NR'.
screen-invisible = '0'.
ENDIF.
WHEN '4'.
IF screen-group3 EQ '4A' OR
screen-group2 EQ 'NR'.
screen-invisible = '0'.
ENDIF.
IF screen-group3 EQ '4B'.
CASE /pws/zycie006-motivo.
WHEN '30' OR '57' OR '66' OR '70'.
screen-invisible = '0'.
ENDCASE.
ENDIF.
IF screen-group1 EQ '4C' OR
screen-group3 EQ '4C'.
IF /pws/zycie006-motivo = '32'.
screen-invisible = '0'.
ENDIF.
ENDIF.
ENDCASE.
IF screen-group4 = 'TAB'.
screen-input = '1'.
ENDIF.
IF screen-group1 EQ 'AC' AND screen-invisible EQ '0'.
screen-input = v_input.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
perform set_screen_0350.
* << Fim da inclusão
WHEN '0353'.
* >> Início da exclusão: MODULE SET_SCREEN
LOOP AT SCREEN.
IF screen-group1 EQ 'AC'.
screen-input = '0'.
IF v_acto EQ 'A'.
screen-input = '1'.
ENDIF.
IF ( screen-group2 = 'FIX' AND
/pws/zycie116-parcfixas IS INITIAL ) OR
( screen-group2 = 'VAR' AND
/pws/zycie116-parcvar IS INITIAL ) OR
( screen-group2 = 'JUR' AND
/pws/zycie116-taxajuros IS INITIAL ).
screen-input = '0'.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
perform set_screen_0353.
WHEN '0431'.
perform set_screen_0431.
WHEN '0432'.
perform set_screen_0432.
* << Fim da inclusão
ENDCASE.
ENDMODULE.
MODULE fill_struct88 OUTPUT.
MOVE itab_zycit014 TO /pws/zycie014.
ENDMODULE.
...
...
wa_itb-ebeln = itab_itc-ebeln.
wa_itb-ebelp = itab_itc-ebelp.
wa_itb-mark = itab_itc-mark.
ENDMODULE.
MODULE data_clean_seg OUTPUT.
* >> Início da exclusão: MODULE DATA_CLEAN_SEG
IF sy-tcode = '/PWS/ZYCI023_C'.
* << Fim da exclusão
* >> Início da inclusão: MODULE DATA_CLEAN_SEG
IF sy-tcode = '/PWS/ZYCI058_C'.
* << Fim da inclusão
IF /pws/zycie085-waersseg IS INITIAL.
CLEAR: /pws/zycie085-ukursseg, s_stvr, /pws/zycie085-vlseg.
ENDIF.
IF v_perseg_vez = ' '.
IF /pws/zycie085-per_seg IS INITIAL AND /pws/zycie085-vlseg IS
...
...
v_qtd_iten = itab_it-qtd_iten.
ENDIF.
ENDMODULE.
MODULE load_fbvl OUTPUT.
ENDMODULE.
* >> Início da inclusão:
MODULE load_piscofins OUTPUT.
perform propoe_fundleg.
PERFORM load_iicms USING 'B'.
ENDMODULE.
module set_codfun output.
CLEAR: itab_zycit177t. REFRESH: itab_zycit177t.
SELECT * FROM /pws/zycit177 INTO TABLE itab_zycit177t
WHERE origem EQ /pws/zycie085-tpdi
AND regime EQ /pws/zycie100a-codregtri
AND codigo EQ /pws/zycie100a-codfunleg.
endmodule.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058TOP
...
/pws/zycet050,
j_1btregc,
/pws/zycit101,
/pws/zycit132,
/pws/zyglt369,
* >> Início da inclusão:
/pws/zycit167,
* << Fim da inclusão
bsis ,
* >> Início da exclusão:
/pws/zyglt217.
* << Fim da exclusão
* >> Início da inclusão:
/pws/zyglt217 .
* << Fim da inclusão
DATA: itab_zycit003a LIKE itab_zycit003 OCCURS 0 WITH HEADER LINE.
TYPES: BEGIN OF msg_struc,
tcode LIKE bdcmsgcoll-tcode,
dyname LIKE bdcmsgcoll-dyname,
dynumb LIKE bdcmsgcoll-dynumb,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058TOP
...
/pws/zycet050,
j_1btregc,
/pws/zycit101,
/pws/zycit132,
/pws/zyglt369,
* >> Início da inclusão:
/pws/zycit167,
* << Fim da inclusão
bsis ,
* >> Início da exclusão:
/pws/zyglt217.
* << Fim da exclusão
* >> Início da inclusão:
/pws/zyglt217 .
* << Fim da inclusão
DATA: itab_zycit003a LIKE itab_zycit003 OCCURS 0 WITH HEADER LINE.
TYPES: BEGIN OF msg_struc,
tcode LIKE bdcmsgcoll-tcode,
dyname LIKE bdcmsgcoll-dyname,
dynumb LIKE bdcmsgcoll-dynumb,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058X01
...
s_wipicalc LIKE s_fbvr,
s_wipiredu LIKE s_fbvr,
s_wicdevi LIKE s_fbvr,
s_wicreco LIKE s_fbvr,
s_wsisco LIKE s_fbvr,
* >> Início da exclusão:
s_wpiscalc LIKE s_fbvr,
s_wpisdev LIKE s_fbvr,
s_wcofcalc LIKE s_fbvr,
s_wcofdev LIKE s_fbvr,
t_umpis TYPE /pws/zycie100a-um_pis,
t_umcofi TYPE /pws/zycie100a-um_cofins,
v_qtd_pis TYPE /pws/zycie100a-qtdum_pis,
v_qtd_cof TYPE /pws/zycie100a-qtdum_cofins,
t_pis_calc TYPE /pws/zycie100a-pis_calc,
t_cof_calc TYPE /pws/zycie100a-cofi_calc,
t_pis_dev TYPE /pws/zycie100a-pis_dev,
t_cof_dev TYPE /pws/zycie100a-cofi_dev,
* << Fim da exclusão
t_iibas LIKE t_icms,
t_icmsbs LIKE /pws/zycie085-vlfob,
t_pis LIKE t_icms ,
t_pisbs LIKE t_icms ,
t_cofins LIKE t_icms,
...
...
v_xc LIKE t_icms,
v_fatx TYPE p DECIMALS 8,
v_faty TYPE p DECIMALS 8,
v_tot_real LIKE /pws/zycie003-vlreal,
v_fatpc LIKE t_icms,
* >> Início da exclusão:
v_nova,
t_fundes_regtri(120).
* << Fim da exclusão
* >> Início da inclusão:
v_nova.
* << Fim da inclusão
DATA: wa_it000 LIKE /pws/zycit000,
wa_zycit078 LIKE /pws/zycit078.
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR033
...
i_dttaxbem.
tables: /pws/zycit085, /pws/zycie085,
t001,
/pws/zycbt007,
/pws/zycit014,
* >> Início da exclusão:
/pws/zycit095.
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycit095,
/pws/zycit001.
* << Fim da inclusão
data: it_zycit100 like /pws/zycie100a occurs 0 with header line,
it_zycit003 like /pws/zycie003 occurs 0 with header line,
rtextc like tline occurs 50 with header line.
data: begin of itab_it occurs 0.
include structure /pws/zycie100a.
...
...
write: 003 text-021.
perform verifica using it_zycit085-recalf.
perform linha.
write: 003 text-022.
perform verifica using it_zycit085-setor.
* >> Início da inclusão: FORM PRINT
IF NOT /pws/zycit001-meioemba EQ 'PS'.
* << Fim da inclusão
perform linha.
write: 003 text-023.
perform: verifica_volume,
verifica using p_volume.
* >> Início da inclusão: FORM PRINT
ENDIF.
* << Fim da inclusão
perform linha.
write: 003 text-024.
perform verifica using it_zycit085-ntgew.
perform linha.
write: 003 text-025.
...
...
if sy-subrc eq 0.
p_pagto = 'X'.
endif.
endform.
form verifica_comp.
* >> Início da exclusão: FORM VERIFICA_COMP
call function 'READ_TEXT'
exporting
client = sy-mandt
id = 'ZDDC'
language = sy-langu
name = v_key
object = '/PWS/CIDI'
tables
lines = rtextc
exceptions
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
others = 8.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_COMP
DATA: BEGIN OF itab_zycit200 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit200.
DATA: END OF itab_zycit200.
SELECT * FROM /pws/zycit200 INTO TABLE itab_zycit200 WHERE
id = pa_nrseq.
* << Fim da inclusão
* >> Início da exclusão: FORM VERIFICA_COMP
if sy-subrc = 0.
if not rtextc[] is initial.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_COMP
IF NOT itab_zycit200[] IS INITIAL.
* << Fim da inclusão
p_comp = 'X'.
* >> Início da exclusão: FORM VERIFICA_COMP
endif.
* << Fim da exclusão
else.
...
...
move-corresponding it_zycit003 to itab_it.
itab_it-meinscom = it_zycit003-meins.
itab_it-nrseqdi = it_zycit085-nrseqdi.
modify itab_it.
endloop.
* >> Início da inclusão: FORM FILL_ITENS
READ TABLE it_zycit003 INDEX 1.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit001
WHERE nrseq EQ it_zycit003-nrseq.
ENDIF.
* << Fim da inclusão
endform.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE100A
*Conexão ajuda p/pesq.c/campo alterada
Nome de campo CODFUNLEGPISCOFI
*DE:
Nome ajuda pesq. /PWS/ZYCIA472
*PARA:
Nome ajuda pesq. /PWS/ZYCIA471
Par.AjPesq Tabela conexão Cpo.conexão ajuda p/pesquisa
CODIGO /PWS/ZYCIE100A CODFUNLEGPISCOFI
ORIGEM 'S'
REGIME /PWS/ZYCIE100A CODREGTRIPISCOFI
*Os seguintes campos foram inseridos:
Nome de campo Elem.dados Tab.verif. N CtDt Comp. Grupo
BASECOFINS /PWS/ZYCIL307 CURR 16
ADVALCOFINS J_1BTXRATE DEC 6
BASREDCOF /PWS/ZYCIL041 DEC 6
ALIQPIS J_1BTXRATE DEC 6
ALIQCOF J_1BTXRATE DEC 6
CODREGTRIPISCOFI /PWS/ZYCEL265 /PWS/ZYCIT167 CHAR 1
CODFUNLEGPISCOFI /PWS/ZYCIL203 CHAR 2
REDPISCOFI LOHN_B CHAR 1
CODREDPISCOFI /PWS/ZYCIL203 CHAR 2
PERCREDUZPC J_1BTXRATE DEC 6
*<<Inicio Inclusao
UM_PIS MEINS UNIT 3
UM_COFINS MEINS UNIT 3
QTDUM_PIS NUM08 NUMC 8
QTDUM_COFINS NUM08 NUMC 8
PIS_CALC /PWS/ZYCIL307 CURR 16
PIS_DEV /PWS/ZYCIL307 CURR 16
COFI_CALC /PWS/ZYCIL307 CURR 16
COFI_DEV /PWS/ZYCIL307 CURR 16
*<<Fim Inclusao
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT100
*Os seguintes campos foram inseridos:
Nome de campo Elem.dados Tab.verif. N CtDt Comp. Grupo
BASECOFINS /PWS/ZYCIL307 CURR 16
ADVALCOFINS J_1BTXRATE DEC 6
BASREDCOF /PWS/ZYCIL041 DEC 6
ALIQPIS J_1BTXRATE DEC 6
ALIQCOF J_1BTXRATE DEC 6
CODREGTRIPISCOFI /PWS/ZYCEL265 /PWS/ZYCIT167 CHAR 1
CODFUNLEGPISCOFI /PWS/ZYCIL203 CHAR 2
REDPISCOFI LOHN_B CHAR 1
CODREDPISCOFI /PWS/ZYCIL203 CHAR 2
PERCREDUZPC J_1BTXRATE DEC 6
*<<Inicio Inclusao
UM_PIS MEINS UNIT 3
UM_COFINS MEINS UNIT 3
QTDUM_PIS NUM08 NUMC 8
QTDUM_COFINS NUM08 NUMC 8
PIS_CALC /PWS/ZYCIL307 CURR 16
PIS_DEV /PWS/ZYCIL307 CURR 16
COFI_CALC /PWS/ZYCIL307 CURR 16
COFI_DEV /PWS/ZYCIL307 CURR 16
*<<Fim Inclusao