CE PLUS - Nota 007672
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 13/03/2014 09:47:59
Data/Hora Última Alteração: 13/03/2014 09:47:59
Descrição da Nota: DESENVOLVIMENTO PARA MELHORIA NA NAVEGABILIDADE NA DI E NA DSI
Sintoma
Desenvolvimento para melhoria na navegabilidade na DI e na DSI
Solução
Feitos vários ajustes para melhorar a navegabilidade na DI e na DSI.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07672 Data: 28/11/2008 Hora: 15:30:56
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07672
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00075
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05743 - 00001 - 7.0 - 00004 - CRIAR OPÇÃO PARA REPLICAR ICMS DIFERIDO
06431 - 00002 - 7.0 - 00005 - CRIADO NOVOS CAMPOS NO SISCOMEX E DI PARA ATUALIZAÇÃO DE TRANSMIS
06484 - 00003 - 7.0 - 00005 - NECESSÁRIO ACRESCENTAR CAMPOS DA PASTA ANTIDUMPING NO REPLICADOR
06629 - 00004 - 7.0 - 00005 - AJUSTE PARA UTILIZAR NOVA FUNÇÃO PARA BUSCAR TEXTOS
07299 - 00005 - 7.0 - 00006 - AJUSTES NOS CÁLCULOS DE IMPOSTOS QUANDO A DI É GRANEL
----------------------------------------------------------------------------------------------------
DESENVOLVIMENTO PARA MELHORIA NA NAVEGABILIDADE NA DI E NA DSI
----------------------------------------------------------------------------------------------------
Palavras Chave:
MELHORIA - NAVEGABILIDIADE - DI - DSI
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI023 0110
DYNP /PWS/SAPMZYCI023 0141
DYNP /PWS/SAPMZYCI023 0150
DYNP /PWS/SAPMZYCI023 0160
DYNP /PWS/SAPMZYCI023 0360
DYNP /PWS/SAPMZYCI023 0400
DYNP /PWS/SAPMZYCI023 0440
DYNP /PWS/SAPMZYCI058 0160
DYNP /PWS/SAPMZYCI058 0210
DYNP /PWS/SAPMZYCI058 0230
DYNP /PWS/SAPMZYCI058 0231
DYNP /PWS/SAPMZYCI058 0440
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F03
REPS /PWS/MZYCI023F04
REPS /PWS/MZYCI023F05
REPS /PWS/MZYCI023I01
REPS /PWS/MZYCI023O01
REPS /PWS/MZYCI023TOP
REPS /PWS/MZYCI023X01
REPS /PWS/MZYCI058F01
REPS /PWS/MZYCI058F02
REPS /PWS/MZYCI058F03
REPS /PWS/MZYCI058F04
REPS /PWS/MZYCI058I01
REPS /PWS/MZYCI058O01
REPS /PWS/MZYCI058TOP
REPS /PWS/MZYCI058X01
REPT /PWS/SAPMZYCI023
REPT /PWS/SAPMZYCI058
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0110
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0110
...
loop at itab_zycit087.
module modi_data87.
endloop.
loop at itab_zycit086.
module modi_data86.
endloop.
* >> Início da inclusão:
chain.
field:
/pws/zycie085-dtdesemb MODULE consiste_data ON chain-REQUEST ,
/pws/zycie085-dtreg module consiste_datad on chain-request ,
/pws/zycie085-dataci module consiste_dataci on chain-request .
endchain.
* << Fim da inclusão
field:/pws/zycie085-nrbl module load_bl on request,
/pws/zycie085-moddesps module load_mod on request,
/pws/zycie085-nrdi module verifica_nrdi on request.
module: verify_tables,
user_command_drill_down.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0141
*Incluído texto de identificação na tela de pagamentos da DI
INCLUIR TEXTO "T_CONTA"
Comprimento Visível 16
Linha 2
Coluna 53
Formato CHAR
Texto Titular da Conta
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0150
*BOTOES MODIFICADOS
* A table control foi modificada parar seleção de coluna simples para que não seja possível
*selecionar mais de uma coluna para ordenação
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:
+ TC_ITEM
Tabel 2 1 110 110 12
Seleção linha=Múltipla, Seleção coluna=Múltipla
TabEntr., Com título, Coluna marc., LSep.horiz., LnhSep.vert.
*para
+ TC_ITEM
Tabel 2 1 110 110 12
Seleção linha=Múltipla, Seleção coluna=Simples
TabEntr., Com título, Coluna marc., LSep.horiz., LnhSep.vert.
*BOTOES INSERIDOS
*Acrescentado botão de Ordenação Ascendente e Descendente e botão de Posicionar na tela de itens da
*DI
INCLUIR BOTÃO "CRESC"
Altura 2
Comprimento Visível 7
Linha 1
Coluna 11
Formato CHAR
Texto Ordenação Crescente
Código função CRESC
INCLUIR BOTÃO "DECRESC"
Altura 2
Comprimento Visível 7
Linha 1
Coluna 14
Formato CHAR
Texto Ordenação Decrescente
Código função DECRESC
INCLUIR BOTÃO "POSI"
Altura 20
Comprimento Visível 25
Linha 16
Coluna 43
Formato CHAR
Texto Posicionar...
Código função POSI
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
CRESC
Push 1 10 7 2 1 CHAR
CRESC
Ícn.=ICON_SORT_UP
DECRESC
Push 1 13 7 2 1 CHAR
DECRESC
Ícn.=ICON_SORT_DOWN
POSI
Push 16 42 25 20 1 CHAR
POSI
Ícn.=ICON_POSITION
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0160
*Acrescentado botão de Ordenação Ascendente e Descendente na tela de Despesas da DI
INCLUIR BOTÃO "CRESCD"
Altura 2
Comprimento Visível 7
Linha 1
Coluna 3
Formato CHAR
Texto Ordenação Crescente
Código função CRESCD
INCLUIR BOTÃO "DECRESD"
Altura 2
Comprimento Visível 7
Linha 1
Coluna 6
Formato CHAR
Texto Ordenação Decrescente
Código função DECRESD
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
CRESCD
Push 1 2 7 2 1 CHAR
CRESCD
Ícn.=ICON_SORT_UP
DECRESD
Push 1 5 7 2 1 CHAR
DECRESD
Ícn.=ICON_SORT_DOWN
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0360
INCLUIR CAIXA DE VERIFICAÇÃO "A_DEST"
Comprimento Visível 1
Linha 12
Coluna 37
Formato CHAR
Texto _
INCLUIR CHTXT "A_DEST"
Comprimento Visível 12
Linha 12
Coluna 39
Formato CHAR
Texto Destaque NCM
INCLUIR CAIXA DE VERIFICAÇÃO "A_NIVEL"
Comprimento Visível 1
Linha 12
Coluna 5
Formato CHAR
Texto _
INCLUIR CHTXT "A_NIVEL"
Comprimento Visível 26
Linha 12
Coluna 7
Formato CHAR
Texto Nível Nomenc.Vlr.Aduaneiro
MODIFICAR CAIXA DE VERIFICAÇÃO "A_OPARC"
Coluna 37
MODIFICAR CHTXT "A_OPARC"
Coluna 39
MODIFICAR CAIXA DE VERIFICAÇÃO "A_OTXJR"
Coluna 37
MODIFICAR CHTXT "A_OTXJR"
Coluna 39
MODIFICAR BOTÃO "BOT_DES"
Linha 1
Coluna 8
MODIFICAR BOTÃO "BOT_SELE"
Linha 1
Coluna 5
*OS campos modificados foram mexidos para que coubessem os outros na tela
*Campos 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:
A_OPARC
Check 10 33 1 1 1 CHAR Ent Off
*para:
A_OPARC
Check 10 36 1 1 1 CHAR Ent Off
*de:
A_OPARC
Check 10 35 8 8 1 CHAR
*para:
A_OPARC
Check 10 38 8 8 1 CHAR
*DE:
BOT_SELE
Push 10 53 4 2 1 CHAR
FC_SEL
Ícn.=ICON_SELECT_ALL
*PARA:
BOT_SELE
Push 1 4 4 2 1 CHAR
FC_SEL
Ícn.=ICON_SELECT_ALL
*DE:
BOT_DES
Push 10 56 4 2 1 CHAR
FC_DES
Ícn.=ICON_DESELECT_ALL
*para:
BOT_DES
Push 1 7 4 2 1 CHAR
FC_DES
Ícn.=ICON_DESELECT_ALL
*DE:
A_OTXJR
Check 11 33 1 1 1 CHAR Ent Off
*para:
A_OTXJR
Check 11 36 1 1 1 CHAR Ent Off
*de:
A_OTXJR
Check 11 35 13 13 1 CHAR
*para:
A_OTXJR
Check 11 38 13 13 1 CHAR
*Os seguintes campos foram incluídos:
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
A_NIVEL
Check 12 4 1 1 1 CHAR Ent Off
A_NIVEL
Check 12 6 26 26 1 CHAR
A_DEST
Check 12 36 1 1 1 CHAR Ent Off
A_DEST
Check 12 38 12 12 1 CHAR
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0400
Foi retirado o campo MATNR da tela e inserido o campo MATRN_ITEM
EXCLUIR CAMPO TEXTO "ITAB_IT-MATNR"
INCLUIR CAMPO TEXTO "ITAB_IT-MATNR_ITEM"
Comprimento Visível 25
Linha 4
Coluna 40
Formato CHAR
Texto _________________________
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
*Campo eliminado
ITAB_IT-MATNR
I/O 4 39 25 25 1 CHAR Off
PossRol
*Campo inserido
ITAB_IT-MATNR_ITEM
I/O 4 39 25 25 1 CHAR Off
PossRol
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0440
MODIFICAR CARACTERÍSTICAS DA TELA 0440
Altura atual (linhas) 26
Largura atual (colunas) 90
EXCLUIR FRAME ""
INCLUIR OKCODE ""
EXCLUIR OKCODE ""
MODIFICAR BOTÃO "BOT_DES"
Coluna 7
MODIFICAR BOTÃO "BOT_SELE"
Coluna 4
INCLUIR CAIXA DE VERIFICAÇÃO "S_ALESPCOF"
Comprimento Visível 1
Linha 15
Coluna 65
Formato CHAR
Texto _
INCLUIR CHTXT "S_ALESPCOF"
Comprimento Visível 22
Linha 15
Coluna 67
Formato CHAR
Texto Alíq.Específica Cofins
INCLUIR CAIXA DE VERIFICAÇÃO "S_ALESPPIS"
Comprimento Visível 1
Linha 12
Coluna 65
Formato CHAR
Texto _
INCLUIR CHTXT "S_ALESPPIS"
Comprimento Visível 19
Linha 12
Coluna 67
Formato CHAR
Texto Alíq.Específica PIS
INCLUIR CAIXA DE VERIFICAÇÃO "S_ALREDCOF"
Comprimento Visível 1
Linha 14
Coluna 65
Formato CHAR
Texto _
INCLUIR CHTXT "S_ALREDCOF"
Comprimento Visível 20
Linha 14
Coluna 67
Formato CHAR
Texto Alíq.Reduzida Cofins
INCLUIR CAIXA DE VERIFICAÇÃO "S_ALREDPIS"
Comprimento Visível 1
Linha 11
Coluna 65
Formato CHAR
Texto _
INCLUIR CHTXT "S_ALREDPIS"
Comprimento Visível 17
Linha 11
Coluna 67
Formato CHAR
Texto Alíq.Reduzida PIS
INCLUIR CAIXA DE VERIFICAÇÃO "S_BCICMS"
Comprimento Visível 1
Linha 17
Coluna 65
Formato CHAR
Texto _
INCLUIR CHTXT "S_BCICMS"
Comprimento Visível 16
Linha 17
Coluna 67
Formato CHAR
Texto BC ICMS Reduzida
INCLUIR CAIXA DE VERIFICAÇÃO "S_FDLGPC"
Comprimento Visível 1
Linha 23
Coluna 31
Formato CHAR
Texto _
INCLUIR CHTXT "S_FDLGPC"
Comprimento Visível 21
Linha 23
Coluna 33
Formato CHAR
Texto Fund.Legal Pis Cofins
MODIFICAR CAIXA DE VERIFICAÇÃO "S_ICDIF"
Linha 18
Coluna 65
MODIFICAR CHTXT "S_ICDIF"
Linha 18
Coluna 67
INCLUIR CAIXA DE VERIFICAÇÃO "S_NTTIPI"
Comprimento Visível 1
Linha 13
Coluna 31
Formato CHAR
Texto _
INCLUIR CHTXT "S_NTTIPI"
Comprimento Visível 15
Linha 13
Coluna 33
Formato CHAR
Texto Nota Compl.TIPI
MODIFICAR CAIXA DE VERIFICAÇÃO "S_OACOR"
Linha 23
Coluna 4
MODIFICAR CHTXT "S_OACOR"
Linha 23
Coluna 6
MODIFICAR CAIXA DE VERIFICAÇÃO "S_OADVALCOF"
Linha 13
Coluna 65
MODIFICAR CHTXT "S_OADVALCOF"
Linha 13
Coluna 67
MODIFICAR CAIXA DE VERIFICAÇÃO "S_OADVALICMS"
Linha 16
Coluna 65
MODIFICAR CHTXT "S_OADVALICMS"
Linha 16
Coluna 67
MODIFICAR CAIXA DE VERIFICAÇÃO "S_OADVALII"
Linha 18
Coluna 4
MODIFICAR CHTXT "S_OADVALII"
Linha 18
Coluna 6
MODIFICAR CAIXA DE VERIFICAÇÃO "S_OADVALIPI"
Linha 12
Coluna 31
MODIFICAR CHTXT "S_OADVALIPI"
Linha 12
Coluna 33
MODIFICAR CAIXA DE VERIFICAÇÃO "S_OADVALPIS"
Linha 26
Coluna 31
MODIFICAR CHTXT "S_OADVALPIS"
Linha 26
Coluna 33
MODIFICAR CAIXA DE VERIFICAÇÃO "S_OALAD"
Linha 24
Coluna 4
MODIFICAR CHTXT "S_OALAD"
Linha 24
Coluna 6
INCLUIR CAIXA DE VERIFICAÇÃO "S_OESPEC"
Comprimento Visível 1
Linha 14
Coluna 4
Formato CHAR
Texto _
INCLUIR CHTXT "S_OESPEC"
Comprimento Visível 20
Linha 14
Coluna 6
Formato CHAR
Texto Descrição Mercadoria
MODIFICAR CAIXA DE VERIFICAÇÃO "S_OEXAD"
Linha 23
Coluna 65
MODIFICAR CHTXT "S_OEXAD"
Comprimento Visível 21
Linha 23
Coluna 67
Texto Ato Legal AntiDumping
MODIFICAR CAIXA DE VERIFICAÇÃO "S_OEXII"
Coluna 4
MODIFICAR CHTXT "S_OEXII"
Coluna 6
MODIFICAR CAIXA DE VERIFICAÇÃO "S_OEXIPI"
Linha 15
Coluna 31
MODIFICAR CHTXT "S_OEXIPI"
Linha 15
Coluna 33
MODIFICAR CAIXA DE VERIFICAÇÃO "S_OEXM"
Linha 13
Coluna 4
MODIFICAR CHTXT "S_OEXM"
Comprimento Visível 20
Linha 13
Coluna 6
Texto Ato Legal Mercadoria
MODIFICAR CAIXA DE VERIFICAÇÃO "S_OFUND"
Linha 22
Coluna 4
MODIFICAR CHTXT "S_OFUND"
Comprimento Visível 13
Linha 22
Coluna 6
Texto Fund.Legal II
MODIFICAR CAIXA DE VERIFICAÇÃO "S_OFUNDIC"
Coluna 65
MODIFICAR CHTXT "S_OFUNDIC"
Comprimento Visível 15
Coluna 67
Texto Fund.Legal ICMS
MODIFICAR CAIXA DE VERIFICAÇÃO "S_OFUNDPC"
Linha 25
Coluna 31
MODIFICAR CHTXT "S_OFUNDPC"
Comprimento Visível 22
Linha 25
Coluna 33
Texto Fund.Legal Reg.PIS Cof
MODIFICAR CAIXA DE VERIFICAÇÃO "S_OMETV"
Linha 17
Coluna 4
MODIFICAR CHTXT "S_OMETV"
Linha 17
Coluna 6
INCLUIR CAIXA DE VERIFICAÇÃO "S_ONALADI"
Comprimento Visível 1
Linha 11
Coluna 4
Formato CHAR
Texto _
INCLUIR CHTXT "S_ONALADI"
Comprimento Visível 9
Linha 11
Coluna 6
Formato CHAR
Texto Naladi/SH
INCLUIR CAIXA DE VERIFICAÇÃO "S_ONALINCA"
Comprimento Visível 1
Linha 12
Coluna 4
Formato CHAR
Texto _
INCLUIR CHTXT "S_ONALINCA"
Comprimento Visível 11
Linha 12
Coluna 6
Formato CHAR
Texto Naladi/NCCA
MODIFICAR CAIXA DE VERIFICAÇÃO "S_OREGICMS"
Linha 19
Coluna 65
MODIFICAR CHTXT "S_OREGICMS"
Comprimento Visível 19
Linha 19
Coluna 67
Texto Regime Trib.de ICMS
MODIFICAR CAIXA DE VERIFICAÇÃO "S_OREGIPC"
Linha 24
Coluna 31
MODIFICAR CHTXT "S_OREGIPC"
Comprimento Visível 24
Linha 24
Coluna 33
Texto Regime Trib.PIS e Cofins
MODIFICAR CAIXA DE VERIFICAÇÃO "S_OREGP"
Linha 11
Coluna 31
MODIFICAR CHTXT "S_OREGP"
Comprimento Visível 15
Linha 11
Coluna 33
Texto Regime Trib.IPI
MODIFICAR CAIXA DE VERIFICAÇÃO "S_OREGT"
Linha 21
Coluna 4
MODIFICAR CHTXT "S_OREGT"
Comprimento Visível 17
Linha 21
Coluna 6
Texto Regime Trib.de II
INCLUIR CAIXA DE VERIFICAÇÃO "S_OTIPO"
Comprimento Visível 1
Linha 15
Coluna 4
Formato CHAR
Texto _
INCLUIR CHTXT "S_OTIPO"
Comprimento Visível 13
Linha 15
Coluna 6
Formato CHAR
Texto Doc.Vinculado
INCLUIR CAIXA DE VERIFICAÇÃO "S_PERCREDU"
Comprimento Visível 1
Linha 22
Coluna 31
Formato CHAR
Texto _
INCLUIR CHTXT "S_PERCREDU"
Comprimento Visível 19
Linha 22
Coluna 33
Formato CHAR
Texto Redução% PIS Cofins
INCLUIR CAIXA DE VERIFICAÇÃO "S_QTDUN"
Comprimento Visível 1
Linha 18
Coluna 31
Formato CHAR
Texto _
INCLUIR CHTXT "S_QTDUN"
Comprimento Visível 14
Linha 18
Coluna 33
Formato CHAR
Texto Qtd.Unit. -IPI
MODIFICAR CAIXA DE VERIFICAÇÃO "S_RADBS"
Linha 21
Coluna 65
MODIFICAR CHTXT "S_RADBS"
Linha 21
Coluna 67
MODIFICAR CAIXA DE VERIFICAÇÃO "S_RADQTAD"
Linha 26
Coluna 65
MODIFICAR CHTXT "S_RADQTAD"
Linha 26
Coluna 67
MODIFICAR CAIXA DE VERIFICAÇÃO "S_RADRATE"
Linha 22
Coluna 65
MODIFICAR CHTXT "S_RADRATE"
Linha 22
Coluna 67
MODIFICAR CAIXA DE VERIFICAÇÃO "S_RADUM"
Linha 25
Coluna 65
MODIFICAR CHTXT "S_RADUM"
Linha 25
Coluna 67
MODIFICAR CAIXA DE VERIFICAÇÃO "S_RADVL"
Linha 24
Coluna 65
MODIFICAR CHTXT "S_RADVL"
Linha 24
Coluna 67
INCLUIR CAIXA DE VERIFICAÇÃO "S_REDBASE"
Comprimento Visível 1
Linha 21
Coluna 31
Formato CHAR
Texto _
INCLUIR CHTXT "S_REDBASE"
Comprimento Visível 19
Linha 21
Coluna 33
Formato CHAR
Texto Red.Base Pis Cofins
INCLUIR CAIXA DE VERIFICAÇÃO "S_REDIPI"
Comprimento Visível 1
Linha 14
Coluna 31
Formato CHAR
Texto _
INCLUIR CHTXT "S_REDIPI"
Comprimento Visível 13
Linha 14
Coluna 33
Formato CHAR
Texto Reduzida -IPI
INCLUIR CAIXA DE VERIFICAÇÃO "S_REDUC"
Comprimento Visível 1
Linha 20
Coluna 4
Formato CHAR
Texto _
INCLUIR CHTXT "S_REDUC"
Comprimento Visível 11
Linha 20
Coluna 6
Formato CHAR
Texto Redução% II
INCLUIR CAIXA DE VERIFICAÇÃO "S_REDUZ"
Comprimento Visível 1
Linha 19
Coluna 4
Formato CHAR
Texto _
INCLUIR CHTXT "S_REDUZ"
Comprimento Visível 12
Linha 19
Coluna 6
Formato CHAR
Texto Reduzida% II
INCLUIR CAIXA DE VERIFICAÇÃO "S_TPCERT"
Comprimento Visível 1
Linha 16
Coluna 4
Formato CHAR
Texto _
INCLUIR CHTXT "S_TPCERT"
Comprimento Visível 8
Linha 16
Coluna 6
Formato CHAR
Texto Mercosul
INCLUIR CAIXA DE VERIFICAÇÃO "S_TPUNI"
Comprimento Visível 1
Linha 20
Coluna 31
Formato CHAR
Texto _
INCLUIR CHTXT "S_TPUNI"
Comprimento Visível 14
Linha 20
Coluna 33
Formato CHAR
Texto Tipo Unit.-IPI
INCLUIR CAIXA DE VERIFICAÇÃO "S_TRIBIPI"
Comprimento Visível 1
Linha 26
Coluna 4
Formato CHAR
Texto _
INCLUIR CHTXT "S_TRIBIPI"
Comprimento Visível 18
Linha 26
Coluna 6
Formato CHAR
Texto IPI não Tributável
INCLUIR CAIXA DE VERIFICAÇÃO "S_UNCAP"
Comprimento Visível 1
Linha 19
Coluna 31
Formato CHAR
Texto _
INCLUIR CHTXT "S_UNCAP"
Comprimento Visível 19
Linha 19
Coluna 33
Formato CHAR
Texto Capacidade Unit.IPI
INCLUIR CAIXA DE VERIFICAÇÃO "S_UNITVAL"
Comprimento Visível 1
Linha 16
Coluna 31
Formato CHAR
Texto _
INCLUIR CHTXT "S_UNITVAL"
Comprimento Visível 13
Linha 16
Coluna 33
Formato CHAR
Texto Vlr.Unit.-IPI
INCLUIR CAIXA DE VERIFICAÇÃO "S_UNMEINS"
Comprimento Visível 1
Linha 17
Coluna 31
Formato CHAR
Texto _
INCLUIR CHTXT "S_UNMEINS"
Comprimento Visível 19
Linha 17
Coluna 33
Formato CHAR
Texto Unid.Med.Unit. -IPI
MODIFICAR CONTROLE DE TABELA "TC_IREP"
Altura 8
Coluna 4
EXCLUIR TEXTO "TXTTIT" em tbl.contr./tabstr.
*********************************************************************************
*LAYOUT DA TELA
Embarque Pedido Item Material NCM
__________ __________ _____ __________________ ________________
__________ __________ _____ __________________ ________________
__________ __________ _____ __________________ ________________
__________ __________ _____ __________________ ________________
__________ __________ _____ __________________ ________________
__________ __________ _____ __________________ ________________
Naladi/SH Regime Trib.IPI Alíq.Reduzida PIS
Naladi/NCCA Ad Valorem IPI Alíq.Específica PIS
Ato Legal Mercadoria Nota Compl.TIPI Ad Valorem COFINS
Descrição Mercadoria Reduzida -IPI Alíq.Reduzida Cofins
Doc.Vinculado Ato Legal de IPI Alíq.Específica Cofins
Mercosul Vlr.Unit.-IPI Ad Valorem ICMS
Método de Valoração Unid.Med.Unit. -IPI BC ICMS Reduzida
Ad Valorem II Qtd.Unit. -IPI ICMS Diferido
Reduzida% II Capacidade Unit.IPI Regime Trib.de ICMS
Redução% II Tipo Unit.-IPI Fund.Legal ICMS
Regime Trib.de II Red.Base Pis Cofins Base Cálculo Antidumping
Fund.Legal II Redução% PIS Cofins Ad Valorem Antidumping
Acordo Tarifário Fund.Legal Pis Cofins Ato Legal AntiDumping
ALADI Regime Trib.PIS e Cofins Valor na U.M.
Ato Legal de II Fund.Legal Reg.PIS Cof U.M.
IPI não Tributável Ad Valorem PIS Qtde. na U.M.
*********************************************************************************
*CAMPOS ELIMINADOS
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
Quadr 12 8 70 70 1 CHAR
- TXTTIT
Texto 1 0 5 32 1 CHAR
Tít.TC
*CAMPOS INSERIDOS
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
S_ONALADI
Check 11 3 1 1 1 CHAR Ent Off
S_ONALADI
Check 11 5 9 9 1 CHAR
S_ALREDPIS
Check 11 64 1 1 1 CHAR Ent Off
S_ALREDPIS
Check 11 66 17 17 1 CHAR
S_ONALINCA
Check 12 3 1 1 1 CHAR Ent Off
S_ONALINCA
Check 12 5 11 11 1 CHAR
S_ALESPPIS
Check 12 64 1 1 1 CHAR Ent Off
S_ALESPPIS
Check 12 66 19 19 1 CHAR
S_OESPEC
Check 14 3 1 1 1 CHAR Ent Off
S_OESPEC
Check 14 5 20 20 1 CHAR
S_REDIPI
Check 14 30 1 1 1 CHAR Ent Off
S_REDIPI
Check 14 32 13 13 1 CHAR
S_ALREDCOF
Check 14 64 1 1 1 CHAR Ent Off
S_ALREDCOF
Check 14 66 20 20 1 CHAR
S_OTIPO
Check 15 3 1 1 1 CHAR Ent Off
S_OTIPO
Check 15 5 13 13 1 CHAR
S_ALESPCOF
Check 15 64 1 1 1 CHAR Ent Off
S_ALESPCOF
Check 15 66 22 22 1 CHAR
S_TPCERT
Check 16 3 1 1 1 CHAR Ent Off
S_TPCERT
Check 16 5 8 8 1 CHAR
S_UNITVAL
Check 16 30 1 1 1 CHAR Ent Off
S_UNITVAL
Check 16 32 13 13 1 CHAR
S_UNMEINS
Check 17 30 1 1 1 CHAR Ent Off
S_UNMEINS
Check 17 32 19 19 1 CHAR
S_BCICMS
Check 17 64 1 1 1 CHAR Ent Off
S_BCICMS
Check 17 66 16 16 1 CHAR
S_QTDUN
Check 18 30 1 1 1 CHAR Ent Off
S_QTDUN
Check 18 32 14 14 1 CHAR
S_REDUZ
Check 19 3 1 1 1 CHAR Ent Off
S_REDUZ
Check 19 5 12 12 1 CHAR
S_UNCAP
Check 19 30 1 1 1 CHAR Ent Off
S_UNCAP
Check 19 32 19 19 1 CHAR
S_REDUC
Check 20 3 1 1 1 CHAR Ent Off
S_REDUC
Check 20 5 11 11 1 CHAR
S_TPUNI
Check 20 30 1 1 1 CHAR Ent Off
S_TPUNI
Check 20 32 14 14 1 CHAR
S_REDBASE
Check 21 30 1 1 1 CHAR Ent Off
S_REDBASE
Check 21 32 19 19 1 CHAR
S_PERCREDU
Check 22 30 1 1 1 CHAR Ent Off
S_PERCREDU
Check 22 32 19 19 1 CHAR
S_FDLGPC
Check 23 30 1 1 1 CHAR Ent Off
S_FDLGPC
Check 23 32 21 21 1 CHAR
S_TRIBIPI
Check 26 3 1 1 1 CHAR Ent Off
S_TRIBIPI
Check 26 5 18 18 1 CHAR
OK
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI058 0160
INCLUIR BOTÃO "BTN_CRESCD"
Altura 2
Comprimento Visível 7
Linha 1
Coluna 3
Formato CHAR
Texto Ordenação crescente
Código função CRESD
INCLUIR BOTÃO "BTN_DECRESD"
Altura 2
Comprimento Visível 7
Linha 1
Coluna 6
Formato CHAR
Texto Ordenação decrescente
Código função DECRESD
MODIFICAR CONTROLE DE TABELA "TC_DESP"
Linha 2
*Campos inseridos
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
BTN_CRESCD
Push 1 2 7 2 1 CHAR
CRESD
Ícn.=ICON_SORT_UP
BTN_DECRESD
Push 1 5 7 2 1 CHAR
DECRESD
Ícn.=ICON_SORT_DOWN
*Campos 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:
+ TC_DESP
Tabel 1 2 106 106 12
Seleção linha=Simples, Seleção coluna=Simples
TabEntr., Com título, LSep.horiz., LnhSep.vert.
*PARA:
+ TC_DESP
Tabel 2 2 106 106 12
Seleção linha=Simples, Seleção coluna=Simples
TabEntr., Com título, LSep.horiz., LnhSep.vert.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI058 0210
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0210
process before output.
module: set_screen.
process after input.
* >> Início da inclusão:
chain.
field:
/pws/zycie085-dtdesemb MODULE consiste_data ON chain-REQUEST ,
/pws/zycie085-dtreg module consiste_datad on chain-request .
endchain.
* << Fim da inclusão
field: /pws/zycie085-cpf module load_cpfc on request,
/pws/zycie085-nrbl module load_bl on request.
module: user_command_drill_down.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI058 0230
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE003-NTGEW" em tbl.contr./tabstr.
Comprimento Visível 22
Linhas mínimas 18
Colunas mínimas 6
Texto ___.___.___.___,______
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE003-VLREAL" em tbl.contr./tabstr.
Texto _.___.___.___,______V
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE013-SLQTDE" em tbl.contr./tabstr.
Comprimento Visível 18
Texto _.___.___.___,___V
INCLUIR BOTÃO "BTN_CRES"
Altura 2
Comprimento Visível 6
Linha 4
Coluna 7
Formato CHAR
Texto @3E@ #
Código função CRESC
INCLUIR BOTÃO "BTN_DEC"
Altura 2
Comprimento Visível 6
Linha 4
Coluna 10
Formato CHAR
Texto @3F@ #
Código função DECRES
INCLUIR BOTÃO "POSI"
Altura 20
Comprimento Visível 25
Linha 17
Coluna 27
Formato CHAR
Texto @3Y@ Posicionar...
Código função POSI
MODIFICAR CAIXA DE VERIFICAÇÃO "WA_IT-MARK" em tbl.contr./tabstr.
Texto _
*Campos Inseridos
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
BTN_CRES
Push 4 6 6 2 1 CHAR
CRESC
Ícn.=ICON_SORT_UP
BTN_DEC
Push 4 9 6 2 1 CHAR
DECRES
POSI
Push 17 26 25 20 1 CHAR
POSI
Ícn.=ICON_POSITION
*Campos modificados
*Campos Inseridos
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:
- /PWS/ZYCIE013-SLQTDE
I/O 1 7 17 10 1 QUAN X Off S.Sd
Alinh.à dir., Elem.TC
*PARA:
- /PWS/ZYCIE013-SLQTDE
I/O 1 7 18 10 1 QUAN X Off S.Sd
Alinh.à dir., Elem.TC
*DE
- /PWS/ZYCIE003-NTGEW
I/O 1 10 19 12 1 QUAN X Off S.Sd
Alinh.à dir., Elem.TC
*PARA
- /PWS/ZYCIE003-NTGEW
I/O 1 10 22 12 1 QUAN X Off S.Sd
Alinh.à dir., Elem.TC
*DE
- /PWS/ZYCIE003-VLREAL
I/O 1 11 21 21 1 DEC X X Off S.Sd
Alinh.à dir., Elem.TC
*PARA
- /PWS/ZYCIE003-VLREAL
I/O 1 11 21 21 1 DEC X X Off S.Sd
Alinh.à dir., Elem.TC
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI058 0231
INCLUIR CAMPO TEXTO "ITAB_IT-MATNR_ITEM"
Comprimento Visível 16
Linha 4
Coluna 44
Formato CHAR
Texto ________________
*Campo 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
ITAB_IT-MATNR_ITEM
I/O 4 43 16 16 1 CHAR Off
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI058 0440
*Novo layout da tela
Itens
Embarque Pedido Item Material
W __________ __________ _____ ______________
W __________ __________ _____ ______________
W __________ __________ _____ ______________
W __________ __________ _____ ______________
W __________ __________ _____ ______________
W __________ __________ _____ ______________
9 Regime Tributário 9 Fund.Legal PIS Cofins
9 Fund.Legal II 9 Ad Valorem PIS
9 Motivo 9 Alíq.Específica PIS
9 Classificação 9 Unid.Medida PIS
9 Destaque NCM 9 Qtd.Unid.Med.PIS
9 Especificação 9 Alíq.Específica Cofins
9 Ad Valorem II 9 Ad Valorem Cofins
9 Ad Valorem ICMS 9 Unid.Medida Cofins
9 Ad Valorem IPI 9 Qtd.Unid.Med.Cofins
9 Regime Tributário
INCLUIR CAIXA DE VERIFICAÇÃO "S_FUNDII"
Comprimento Visível 1
Linha 13
Coluna 4
Formato CHAR
Texto _
INCLUIR CHTXT "S_FUNDII"
Comprimento Visível 13
Linha 13
Coluna 6
Formato CHAR
Texto Fund.Legal II
EXCLUIR CAIXA DE VERIFICAÇÃO "S_OACOR"
EXCLUIR CHTXT "S_OACOR"
INCLUIR CAIXA DE VERIFICAÇÃO "S_OADVCOF"
Comprimento Visível 1
Linha 18
Coluna 36
Formato CHAR
Texto _
INCLUIR CHTXT "S_OADVCOF"
Comprimento Visível 17
Linha 18
Coluna 38
Formato CHAR
Texto Ad Valorem Cofins
INCLUIR CAIXA DE VERIFICAÇÃO "S_OADVICMS"
Comprimento Visível 1
Linha 19
Coluna 4
Formato CHAR
Texto _
INCLUIR CHTXT "S_OADVICMS"
Comprimento Visível 15
Linha 19
Coluna 6
Formato CHAR
Texto Ad Valorem ICMS
INCLUIR CAIXA DE VERIFICAÇÃO "S_OADVII"
Comprimento Visível 1
Linha 18
Coluna 4
Formato CHAR
Texto _
INCLUIR CHTXT "S_OADVII"
Comprimento Visível 13
Linha 18
Coluna 6
Formato CHAR
Texto Ad Valorem II
INCLUIR CAIXA DE VERIFICAÇÃO "S_OADVIPI"
Comprimento Visível 1
Linha 20
Coluna 4
Formato CHAR
Texto _
INCLUIR CHTXT "S_OADVIPI"
Comprimento Visível 14
Linha 20
Coluna 6
Formato CHAR
Texto Ad Valorem IPI
INCLUIR CAIXA DE VERIFICAÇÃO "S_OADVPIS"
Comprimento Visível 1
Linha 13
Coluna 36
Formato CHAR
Texto _
INCLUIR CHTXT "S_OADVPIS"
Comprimento Visível 14
Linha 13
Coluna 38
Formato CHAR
Texto Ad Valorem PIS
EXCLUIR CAIXA DE VERIFICAÇÃO "S_OALAD"
EXCLUIR CHTXT "S_OALAD"
INCLUIR CAIXA DE VERIFICAÇÃO "S_OALIQCOF"
Comprimento Visível 1
Linha 17
Coluna 36
Formato CHAR
Texto _
INCLUIR CHTXT "S_OALIQCOF"
Comprimento Visível 22
Linha 17
Coluna 38
Formato CHAR
Texto Alíq.Específica Cofins
INCLUIR CAIXA DE VERIFICAÇÃO "S_OALIQPIS"
Comprimento Visível 1
Linha 14
Coluna 36
Formato CHAR
Texto _
INCLUIR CHTXT "S_OALIQPIS"
Comprimento Visível 19
Linha 14
Coluna 38
Formato CHAR
Texto Alíq.Específica PIS
INCLUIR CAIXA DE VERIFICAÇÃO "S_OCLASS"
Comprimento Visível 1
Linha 15
Coluna 4
Formato CHAR
Texto _
INCLUIR CHTXT "S_OCLASS"
Comprimento Visível 13
Linha 15
Coluna 6
Formato CHAR
Texto Classificação
INCLUIR CAIXA DE VERIFICAÇÃO "S_ODEST"
Comprimento Visível 1
Linha 16
Coluna 4
Formato CHAR
Texto _
INCLUIR CHTXT "S_ODEST"
Comprimento Visível 12
Linha 16
Coluna 6
Formato CHAR
Texto Destaque NCM
INCLUIR CAIXA DE VERIFICAÇÃO "S_OESP"
Comprimento Visível 1
Linha 17
Coluna 4
Formato CHAR
Texto _
INCLUIR CHTXT "S_OESP"
Comprimento Visível 13
Linha 17
Coluna 6
Formato CHAR
Texto Especificação
EXCLUIR CAIXA DE VERIFICAÇÃO "S_OEXAD"
EXCLUIR CHTXT "S_OEXAD"
EXCLUIR CAIXA DE VERIFICAÇÃO "S_OEXII"
EXCLUIR CHTXT "S_OEXII"
EXCLUIR CAIXA DE VERIFICAÇÃO "S_OEXIPI"
EXCLUIR CHTXT "S_OEXIPI"
EXCLUIR CAIXA DE VERIFICAÇÃO "S_OEXM"
EXCLUIR CHTXT "S_OEXM"
INCLUIR CAIXA DE VERIFICAÇÃO "S_OFLPC"
Comprimento Visível 1
Linha 12
Coluna 36
Formato CHAR
Texto _
INCLUIR CHTXT "S_OFLPC"
Comprimento Visível 21
Linha 12
Coluna 38
Formato CHAR
Texto Fund.Legal PIS Cofins
EXCLUIR CAIXA DE VERIFICAÇÃO "S_OFUND"
EXCLUIR CHTXT "S_OFUND"
EXCLUIR CAIXA DE VERIFICAÇÃO "S_OMETV"
EXCLUIR CHTXT "S_OMETV"
INCLUIR CAIXA DE VERIFICAÇÃO "S_OMOTIV"
Comprimento Visível 1
Linha 14
Coluna 4
Formato CHAR
Texto _
INCLUIR CHTXT "S_OMOTIV"
Comprimento Visível 6
Linha 14
Coluna 6
Formato CHAR
Texto Motivo
EXCLUIR CAIXA DE VERIFICAÇÃO "S_OREGP"
EXCLUIR CHTXT "S_OREGP"
EXCLUIR CAIXA DE VERIFICAÇÃO "S_OREGT"
EXCLUIR CHTXT "S_OREGT"
INCLUIR CAIXA DE VERIFICAÇÃO "S_ORTRIB"
Comprimento Visível 1
Linha 21
Coluna 4
Formato CHAR
Texto _
INCLUIR CHTXT "S_ORTRIB"
Comprimento Visível 17
Linha 21
Coluna 6
Formato CHAR
Texto Regime Tributário
INCLUIR CAIXA DE VERIFICAÇÃO "S_OUMCOF"
Comprimento Visível 1
Linha 19
Coluna 36
Formato CHAR
Texto _
INCLUIR CHTXT "S_OUMCOF"
Comprimento Visível 18
Linha 19
Coluna 38
Formato CHAR
Texto Unid.Medida Cofins
INCLUIR CAIXA DE VERIFICAÇÃO "S_OUMPIS"
Comprimento Visível 1
Linha 15
Coluna 36
Formato CHAR
Texto _
INCLUIR CHTXT "S_OUMPIS"
Comprimento Visível 15
Linha 15
Coluna 38
Formato CHAR
Texto Unid.Medida PIS
INCLUIR CAIXA DE VERIFICAÇÃO "S_QTDUM"
Comprimento Visível 1
Linha 16
Coluna 36
Formato CHAR
Texto _
INCLUIR CHTXT "S_QTDUM"
Comprimento Visível 16
Linha 16
Coluna 38
Formato CHAR
Texto Qtd.Unid.Med.PIS
INCLUIR CAIXA DE VERIFICAÇÃO "S_QTUMCOF"
Comprimento Visível 1
Linha 20
Coluna 36
Formato CHAR
Texto _
INCLUIR CHTXT "S_QTUMCOF"
Comprimento Visível 19
Linha 20
Coluna 38
Formato CHAR
Texto Qtd.Unid.Med.Cofins
INCLUIR CAIXA DE VERIFICAÇÃO "S_REGII"
Comprimento Visível 1
Linha 12
Coluna 4
Formato CHAR
Texto _
INCLUIR CHTXT "S_REGII"
Comprimento Visível 17
Linha 12
Coluna 6
Formato CHAR
Texto Regime Tributário
MODIFICAR CONTROLE DE TABELA "TC_IREP"
Comprimento Visível 52
INCLUIR TEXTO "V_MAT" em tbl.contr./tabstr.
Altura 18
Comprimento Visível 8
Linha 1
Coluna 4
Formato CHAR
Texto Material
INCLUIR CAMPO TEXTO "WA_ITB-MATNR" em tbl.contr./tabstr.
Altura 18
Comprimento Visível 18
Linha 1
Coluna 4
Formato CHAR
Texto __________________
*Campos inseridos
Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
- V_MAT
Texto 1 4 8 18 1 CHAR
Título de coluna TC
- WA_ITB-MATNR
I/O 1 4 18 18 1 CHAR Off
Elem.TC, Col.fixa TC
S_REGII
Check 12 3 1 1 1 CHAR Ent Off
S_REGII
Check 12 5 17 17 1 CHAR
S_OFLPC
Check 12 35 1 1 1 CHAR Ent Off
S_OFLPC
Check 12 37 21 21 1 CHAR
S_FUNDII
Check 13 3 1 1 1 CHAR Ent Off
S_FUNDII
Check 13 5 13 13 1 CHAR
S_OADVPIS
Check 13 35 1 1 1 CHAR Ent Off
S_OADVPIS
Check 13 37 14 14 1 CHAR
S_OMOTIV
Check 14 3 1 1 1 CHAR Ent Off
S_OMOTIV
Check 14 5 6 6 1 CHAR
S_OALIQPIS
Check 14 35 1 1 1 CHAR Ent Off
S_OALIQPIS
Check 14 37 19 19 1 CHAR
S_OCLASS
Check 15 3 1 1 1 CHAR Ent Off
S_OCLASS
Check 15 5 13 13 1 CHAR
S_OUMPIS
Check 15 35 1 1 1 CHAR Ent Off
S_OUMPIS
Check 15 37 15 15 1 CHAR
S_ODEST
Check 16 3 1 1 1 CHAR Ent Off
S_ODEST
Check 16 5 12 12 1 CHAR
S_QTDUM
Check 16 35 1 1 1 CHAR Ent Off
S_QTDUM
Check 16 37 16 16 1 CHAR
S_OESP
Check 17 3 1 1 1 CHAR Ent Off
S_OESP
Check 17 5 13 13 1 CHAR
S_OALIQCOF
Check 17 35 1 1 1 CHAR Ent Off
S_OALIQCOF
Check 17 37 22 22 1 CHAR
S_OADVII
Check 18 3 1 1 1 CHAR Ent Off
S_OADVII
Check 18 5 13 13 1 CHAR
S_OADVCOF
Check 18 35 1 1 1 CHAR Ent Off
S_OADVCOF
Check 18 37 17 17 1 CHAR
S_OADVICMS
Check 19 3 1 1 1 CHAR Ent Off
S_OADVICMS
Check 19 5 15 15 1 CHAR
S_OUMCOF
Check 19 35 1 1 1 CHAR Ent Off
S_OUMCOF
Check 19 37 18 18 1 CHAR
S_OADVIPI
Check 20 3 1 1 1 CHAR Ent Off
S_OADVIPI
Check 20 5 14 14 1 CHAR
S_QTUMCOF
Check 20 35 1 1 1 CHAR Ent Off
S_QTUMCOF
Check 20 37 19 19 1 CHAR
S_ORTRIB
Check 21 3 1 1 1 CHAR Ent Off
S_ORTRIB
Check 21 5 17 17 1 CHAR
*Campos Eliminados
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
S_OMETV
Check 13 3 1 1 1 CHAR Ent Off
S_OMETV
Check 13 5 19 19 1 CHAR
S_OREGT
Check 14 3 1 1 1 CHAR Ent Off
S_OREGT
Check 14 5 23 23 1 CHAR
S_OREGP
Check 15 3 1 1 1 CHAR Ent Off
S_OREGP
Check 15 3 1 1 1 CHAR
S_OFUND
Check 16 3 1 1 1 CHAR Ent Off
S_OFUND
Check 16 5 19 19 1 CHAR
S_OACOR
Check 17 3 1 1 1 CHAR Ent Off
S_OACOR
Check 17 5 16 16 1 CHAR
S_OALAD
Check 18 3 1 1 1 CHAR Ent Off
S_OALAD
Check 18 5 5 5 1 CHAR
S_OEXM
Check 19 3 1 1 1 CHAR Ent Off
S_OEXM
Check 19 5 23 23 1 CHAR
S_OEXII
Check 20 3 1 1 1 CHAR Ent Off
S_OEXII
Check 20 5 15 15 1 CHAR
S_OEXIPI
Check 21 3 1 1 1 CHAR Ent Off
S_OEXIPI
Check 21 5 16 16 1 CHAR
S_OEXAD
Check 22 3 1 1 1 CHAR Ent Off
S_OEXAD
Check 22 5 24 24 1 CHAR
*Campos 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:
+ TC_IREP
Tabel 3 3 39 39 9
Seleção linha=Múltipla, Seleção coluna=Nenh.
TabEntr., C/título, Com título, Coluna marc., LSep.horiz., LnhSep.vert.
*PARA
+ TC_IREP
Tabel 3 3 52 52 9
Seleção linha=Múltipla, Seleção coluna=Nenh.
TabEntr., C/título, Com título, Coluna marc., LSep.horiz., LnhSep.vert.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
FORM save_data.
* >> Início da inclusão: FORM SAVE_DATA
IF NOT /pws/zycie085-dtdesemb IS INITIAL AND
NOT /pws/zycie085-dtreg IS INITIAL.
IF /pws/zycie085-dtdesemb LT /pws/zycie085-dtreg .
MESSAGE i015 WITH text-255 text-256.
EXIT.
ENDIF.
ENDIF.
IF NOT /pws/zycie085-dtdesemb IS INITIAL AND
NOT /pws/zycie085-dataci IS INITIAL.
IF /pws/zycie085-dtdesemb gt /pws/zycie085-dataci.
MESSAGE i015 WITH text-255 text-257.
EXIT.
ENDIF.
ENDIF.
* << Fim da inclusão
...
...
READ TABLE itab_it WITH KEY
nrseq = itab_zycit003-nrseq
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
v_sub = sy-subrc.
v_idx = sy-tabix.
MOVE-CORRESPONDING itab_zycit003 TO itab_it.
* >> Início da inclusão: FORM FILL_ITABIT
itab_it-matnr_item = itab_it-matnr.
* << Fim da inclusão
itab_it-meinscom = itab_zycit003-meins.
itab_it-slqtde = itab_zycit003-slqtde.
itab_it-basred = itab_zycit003-basred.
itab_it-nrseqdi = /pws/zycie085-nrseqdi.
itab_it-waersreal = wa_zycbt007-waersb.
itab_it-waersbem = itab_zycit003-waers_real.
...
...
itab_it-vlreal_dest = itab_it-vlreal.
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
EXPORTING
* >> Início da exclusão: FORM FILL_ITABIT
input = itab_it-matnr
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_ITABIT
input = itab_it-matnr_item
* << Fim da inclusão
IMPORTING
* >> Início da exclusão: FORM FILL_ITABIT
output = itab_it-matnr.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_ITABIT
output = itab_it-matnr_item.
* << Fim da inclusão
IF sy-subrc <> 0.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
FORM comm_repl.
* >> Início da inclusão: FORM COMM_REPL
DATA: itab_mercosul_aux LIKE itab_mercosul OCCURS 0 WITH HEADER LINE,
itab_zycit115_aux TYPE /pws/zycie115 OCCURS 0 WITH HEADER LINE,
rtexti_aux TYPE tline OCCURS 50 WITH HEADER LINE.
* << Fim da inclusão
IF NOT s_ometv IS INITIAL OR
* >> Início da inclusão: FORM COMM_REPL
NOT s_onaladi IS INITIAL OR
NOT s_onalinca IS INITIAL OR
NOT s_oespec IS INITIAL OR
NOT s_otipo IS INITIAL OR
NOT s_onum IS INITIAL OR
NOT s_tpcert IS INITIAL OR
NOT s_reduz IS INITIAL OR
NOT s_reduc IS INITIAL OR
NOT s_tribipi IS INITIAL OR
NOT s_redipi IS INITIAL OR
NOT s_unitval IS INITIAL OR
NOT s_unmeins IS INITIAL OR
NOT s_qtdun IS INITIAL OR
NOT s_uncap IS INITIAL OR
NOT s_tpuni IS INITIAL OR
NOT s_percredu IS INITIAL OR
NOT s_redbase IS INITIAL OR
NOT s_fdlgpc IS INITIAL OR
NOT s_alredpis IS INITIAL OR
NOT s_alesppis IS INITIAL OR
NOT s_alredcof IS INITIAL OR
NOT s_alespcof IS INITIAL OR
NOT s_bcicms IS INITIAL OR
NOT s_nttipi IS INITIAL OR
* << Fim da inclusão
...
...
MOVE itab_it TO wa_itb.
* >> Início da inclusão: FORM COMM_REPL
MOVE itab_mercosul[] TO itab_mercosul_aux[].
MOVE itab_zycit115b[] TO itab_zycit115_aux[].
* << Fim da inclusão
LOOP AT itab_itc WHERE NOT mark IS initial.
READ TABLE itab_it WITH KEY
nrseq = itab_itc-nrseq
ebeln = itab_itc-ebeln
ebelp = itab_itc-ebelp.
IF sy-subrc EQ 0.
IF NOT s_ometv IS INITIAL.
itab_it-codmat = /pws/zycie100a-codmat.
ENDIF.
...
...
* >> Início da inclusão: FORM COMM_REPL
IF NOT s_onaladi IS INITIAL.
itab_it-naladi = /pws/zycie003-naladi.
ENDIF.
IF NOT s_onalinca IS INITIAL.
itab_it-naladincca = /pws/zycie003-naladincca.
ENDIF.
IF NOT s_tpcert IS INITIAL.
itab_it-tp_certif = /pws/zycie100a-tp_certif.
ENDIF.
IF NOT s_reduz IS INITIAL.
itab_it-reduzida = /pws/zycie100a-reduzida.
ENDIF.
IF NOT s_reduc IS INITIAL.
itab_it-percreduz = /pws/zycie100a-percreduz.
ENDIF.
IF NOT s_tribipi IS INITIAL.
itab_it-tribipi = /pws/zycie100a-tribipi.
ENDIF.
IF NOT s_redipi IS INITIAL.
itab_it-reduzidaipi = /pws/zycie100a-reduzidaipi.
ENDIF.
IF NOT s_unitval IS INITIAL.
itab_it-unit_valor = /pws/zycie100a-unit_valor.
ENDIF.
IF NOT s_unmeins IS INITIAL.
itab_it-unit_meins = /pws/zycie100a-unit_meins.
ENDIF.
IF NOT s_qtdun IS INITIAL.
itab_it-unit_qtde = /pws/zycie100a-unit_qtde.
ENDIF.
IF NOT s_uncap IS INITIAL.
itab_it-unit_reccapac = /pws/zycie100a-unit_reccapac.
ENDIF.
IF NOT s_tpuni IS INITIAL.
itab_it-unit_rectipo = /pws/zycie100a-unit_rectipo.
ENDIF.
IF NOT s_percredu IS INITIAL.
itab_it-percreduzpc = /pws/zycie100a-percreduzpc.
ENDIF.
IF NOT s_redbase IS INITIAL.
itab_it-redpiscofi = /pws/zycie100a-redpiscofi.
ENDIF.
IF NOT s_fdlgpc IS INITIAL.
itab_it-codredpiscofi = /pws/zycie100a-codredpiscofi.
ENDIF.
IF NOT s_alredpis IS INITIAL.
itab_it-basredpis = /pws/zycie100a-basredpis.
ENDIF.
IF NOT s_alesppis IS INITIAL.
itab_it-aliqpis = /pws/zycie100a-aliqpis.
ENDIF.
IF NOT s_alredcof IS INITIAL.
itab_it-basredcof = /pws/zycie100a-basredcof.
ENDIF.
IF NOT s_alespcof IS INITIAL.
itab_it-aliqcof = /pws/zycie100a-aliqcof.
ENDIF.
IF NOT s_bcicms IS INITIAL.
itab_it-basred = /pws/zycie003-basred.
ENDIF.
IF NOT s_nttipi IS INITIAL.
itab_it-notatipi = /pws/zycie100a-notatipi.
ENDIF.
IF NOT s_otipo IS INITIAL.
delete itab_zycit115 where ebeln = itab_itc-ebeln
and ebelp = itab_itc-ebelp .
LOOP AT itab_zycit115_aux.
MOVE itab_zycit115_aux TO itab_zycit115.
itab_zycit115-ebeln = itab_itc-ebeln .
itab_zycit115-ebelp = itab_itc-ebelp .
APPEND itab_zycit115.
ENDLOOP.
ENDIF.
IF NOT s_oespec IS INITIAL.
CLEAR v_txtki.
CONCATENATE /pws/zycie085-nrseqdi wa_itb-nrseq
wa_itb-ebeln wa_itb-ebelp INTO v_txtki.
xtheadi-tdobject = '/PWS/CIDDI'.
xtheadi-tdname = v_txtki.
xtheadi-tdid = 'ZDSI'.
xtheadi-tdspras = sy-langu.
xtheadi-tdlinesize = 070.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZDSI'
language = sy-langu
name = v_txtki
object = '/PWS/CIDDI'
TABLES
lines = rtexti_aux
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc <> 0.
EXIT.
ELSE.
CONCATENATE /pws/zycie085-nrseqdi itab_itc-nrseq
itab_itc-ebeln itab_itc-ebelp INTO v_txtki.
xtheadi-tdobject = '/PWS/CIDDI'.
xtheadi-tdname = v_txtki.
xtheadi-tdid = 'ZDSI'.
xtheadi-tdspras = sy-langu.
xtheadi-tdlinesize = 070.
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
header = xtheadi
insert = 'X'
savemode_direct = 'X'
owner_specified = 'X'
TABLES
lines = rtexti_aux
EXCEPTIONS
id = 1
language = 2
name = 3
object = 4
OTHERS = 5.
IF sy-subrc <> 0.
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
header = xtheadi
insert = ' '
savemode_direct = 'X'
owner_specified = 'X'
TABLES
lines = rtexti_aux
EXCEPTIONS
id = 1
language = 2
name = 3
object = 4
OTHERS = 5.
IF sy-subrc <> 0.
EXIT.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
IF NOT s_tpcert IS INITIAL.
IF NOT /pws/zycie100a-tp_certif IS INITIAL.
itab_it-tp_certif = /pws/zycie100a-tp_certif.
delete itab_zycit485 where ebeln = itab_itc-ebeln
and ebelp = itab_itc-ebelp
and adicao = itab_itc-adicao.
LOOP AT itab_mercosul_aux.
CLEAR itab_zycit485.
MOVE-CORRESPONDING itab_mercosul_aux TO itab_zycit485.
itab_zycit485-ebeln = itab_itc-ebeln .
itab_zycit485-ebelp = itab_itc-ebelp .
itab_zycit485-adicao = itab_itc-adicao.
APPEND itab_zycit485.
ENDLOOP.
ENDIF.
ENDIF.
* << Fim da inclusão
MODIFY itab_it INDEX sy-tabix.
ENDIF.
ENDLOOP.
MOVE wa_itb TO itab_it.
LEAVE TO SCREEN 0.
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F04
...
* >> Início da inclusão: FORM USER_COMMAND_0160
when 'CRESCD'.
CLEAR: v_ordena.
LOOP AT tc_desp-cols INTO v_cols
WHERE selected EQ 'X'.
v_ordena = v_cols-screen-name+14 .
ENDLOOP.
IF NOT v_ordena IS INITIAL.
SORT itab_zycit049 ASCENDING BY (v_ordena).
ENDIF.
WHEN 'DECRESD'.
CLEAR: v_ordena.
LOOP AT tc_desp-cols INTO v_cols
WHERE selected EQ 'X'.
v_ordena = v_cols-screen-name+14 .
ENDLOOP.
IF NOT v_ordena IS INITIAL.
SORT itab_zycit049 DESCENDING BY (v_ordena).
ENDIF.
* << Fim da inclusão
ENDCASE.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F05
*Caso não haja o include, pode ser criado
...
* >> Início da inclusão:
form trata_posicao.
LOOP AT itab_it WHERE ebelp IN so_ebp
AND ebeln IN so_ebn
AND descr IN so_denom
AND qtd_iten IN so_qtd
AND matnr IN so_matn
and j_1bnbm in so_ncm
AND lifnr IN so_lif.
v_tabix = sy-tabix.
ENDLOOP.
IF sy-subrc = 0.
tc_item-top_line = v_tabix.
LEAVE TO SCREEN 0 .
ELSE.
MESSAGE s015 WITH text-258.
ENDIF.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I01
...
* >> Início da inclusão: MODULE USER_COMMAND_0050
WHEN 'CRESC'.
CLEAR: v_ordena.
LOOP AT tc_item-cols INTO v_cols
WHERE selected EQ 'X'.
v_ordena = v_cols-screen-name+14 .
ENDLOOP.
IF NOT v_ordena IS INITIAL.
SORT itab_it ASCENDING BY (v_ordena).
ENDIF.
WHEN 'DECRESC'.
CLEAR: v_ordena.
LOOP AT tc_item-cols INTO v_cols
WHERE selected EQ 'X'.
v_ordena = v_cols-screen-name+14 .
ENDLOOP.
IF NOT v_ordena IS INITIAL.
SORT itab_it DESCENDING BY (v_ordena).
ENDIF.
WHEN 'POSI'.
CALL SELECTION-SCREEN 0054 STARTING AT 3 5.
WHEN 'CRESCD'.
CLEAR: v_ordena.
LOOP AT tc_item-cols INTO v_cols
WHERE selected EQ 'X'.
v_ordena = v_cols-screen-name+14 .
ENDLOOP.
IF NOT v_ordena IS INITIAL.
SORT itab_zycit049 ASCENDING BY (v_ordena).
ENDIF.
WHEN 'DECRESCD'.
CLEAR: v_ordena.
LOOP AT tc_item-cols INTO v_cols
WHERE selected EQ 'X'.
v_ordena = v_cols-screen-name+14 .
ENDLOOP.
IF NOT v_ordena IS INITIAL.
SORT itab_zycit049 DESCENDING BY (v_ordena).
ENDIF.
* << Fim da inclusão
ENDCASE.
ENDIF.
CLEAR: sy-ucomm, r_okcode.
ENDMODULE.
...
...
MODULE user_command_0231 INPUT.
* >> Início da inclusão: MODULE USER_COMMAND_0231
DATA: itab_zycit118_aux TYPE /pws/zycie118 OCCURS 0 WITH HEADER LINE,
itab_zycit114_aux TYPE /pws/zycie114 OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
...
...
CASE sy-ucomm.
WHEN 'ENTE' OR 'FC_ESP'.
GET CURSOR FIELD v_valor.
IF v_valor = 'A_ESPE2' OR sy-ucomm = 'FC_ESP'.
PERFORM text_edit_adespec.
ENDIF.
ENDCASE.
WHEN '0360'.
CASE sy-ucomm.
WHEN 'FC_SEL'.
* >> Início da inclusão: MODULE USER_COMMAND_0231
a_nivel =
* << Fim da inclusão
a_opgan = a_opgav = a_oparc = a_otxjr = 'X'.
WHEN 'FC_DES'.
* >> Início da inclusão: MODULE USER_COMMAND_0231
a_nivel =
* << Fim da inclusão
a_opgan = a_opgav = a_oparc = a_otxjr = space.
WHEN 'CHECK'.
PERFORM fill_mark USING 'X'.
WHEN 'UNCHECK'.
PERFORM fill_mark USING space.
WHEN 'ENTE'.
IF NOT a_opgan IS INITIAL OR
NOT a_opgav IS INITIAL OR
NOT a_oparc IS INITIAL OR
* >> Início da exclusão: MODULE USER_COMMAND_0231
NOT a_otxjr IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0231
NOT a_otxjr IS INITIAL OR
NOT a_nivel IS INITIAL or
not a_dest is initial.
* << Fim da inclusão
MOVE-CORRESPONDING /pws/zycie116 TO itab_zycit116.
LOOP AT it_adir WHERE NOT mark IS initial.
IF NOT a_oparc IS INITIAL.
MODIFY itab_zycit116 TRANSPORTING
parcfixas parcnum periodic
indice parcvar taxajuros
codtxjuros taxarate
WHERE adicao = it_adir-adicao.
DELETE itab_zycit124 WHERE
adicao = it_adir-adicao.
...
...
ENDIF.
* >> Início da inclusão:
IF NOT a_nivel IS INITIAL.
MOVE itab_zycit118b[] TO itab_zycit118_aux[].
LOOP AT itab_zycit118_aux.
MOVE-CORRESPONDING itab_zycit118_aux TO itab_zycit118.
itab_zycit118-adicao = it_adir-adicao.
APPEND itab_zycit118.
ENDLOOP.
if not a_dest is initial.
MOVE itab_zycit114b[] TO itab_zycit114_aux[].
LOOP AT itab_zycit114_aux.
MOVE-CORRESPONDING itab_zycit114_aux TO itab_zycit114.
itab_zycit114-adicao = it_adir-adicao.
read table itab_zycit114 with key
destaque = itab_zycit114_aux-destaque.
if sy-subrc ne 0.
APPEND itab_zycit114.
endif.
ENDLOOP.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDLOOP.
LEAVE TO SCREEN 0.
ENDIF.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
ENDCASE.
WHEN '0440'.
CASE sy-ucomm.
WHEN 'CHECK'.
s_icdif = s_ometv = s_oregt = s_oregp = s_ofund =
s_oacor = s_oalad = s_oexm = s_oexii =
s_oexipi = s_oexad = s_oadvalipi = s_oadvalii =
s_oadvalicms = s_oadvalpis = s_oadvalcof = s_oregipc =
s_oregicms = s_ofundpc = s_ofundic =
* >> Início da inclusão: MODULE USER_COMMAND_0231
s_onaladi = s_onalinca = s_oespec = s_otipo =
s_onum = s_tpcert = s_reduz = s_reduc = s_tribipi =
s_redipi = s_unitval = s_unmeins = s_qtdun =
s_uncap = s_tpuni = s_percredu = s_redbase =
s_fdlgpc = s_alredpis = s_alesppis = s_alredcof =
s_alespcof = s_bcicms = s_nttipi =
* << Fim da inclusão
s_radbs = s_radrate = s_radvl = s_radum =
s_radqtad = 'X'.
WHEN 'UNCHECK'.
s_icdif = s_ometv = s_oregt = s_oregp = s_ofund =
s_oacor = s_oalad = s_oexm = s_oexii =
s_oexipi = s_oexad = s_oadvalipi = s_oadvalii =
s_oadvalicms = s_oadvalpis = s_oadvalcof = s_oregipc =
s_oregicms = s_ofundpc = s_ofundic =
* >> Início da inclusão: MODULE USER_COMMAND_0231
s_onaladi = s_onalinca = s_oespec = s_otipo =
s_onum = s_tpcert = s_reduz = s_reduc = s_tribipi =
s_redipi = s_unitval = s_unmeins = s_qtdun =
s_uncap = s_tpuni = s_percredu = s_redbase =
s_fdlgpc = s_alredpis = s_alesppis = s_alredcof =
s_alespcof = s_bcicms = s_nttipi =
* << Fim da inclusão
s_radbs = s_radrate = s_radvl = s_radum = s_radqtad =
space.
...
...
WHEN 'REPL'.
IF v_ipt > 1.
s_icdif = s_ometv = s_oregt = s_oregp = s_ofund =
s_oacor = s_oalad = s_oexm = s_oexii =
s_oexipi = s_oexad =
s_oregipc = s_oregicms = s_ofundpc = s_ofundic =
* >> Início da inclusão: MODULE USER_COMMAND_0231
s_onaladi = s_onalinca = s_oespec = s_otipo =
s_onum = s_tpcert = s_reduz = s_reduc = s_tribipi =
s_redipi = s_unitval = s_unmeins = s_qtdun =
s_uncap = s_tpuni = s_percredu = s_redbase =
s_fdlgpc = s_alredpis = s_alesppis = s_alredcof =
s_alespcof = s_bcicms = s_nttipi =
* << Fim da inclusão
s_radbs = s_radrate = s_radvl = s_radum = s_radqtad =
space.
CALL SCREEN '0440' STARTING AT 5 2.
ELSE.
MESSAGE s015 WITH text-041.
ENDIF.
...
...
WHEN 'REPL_A'.
IF v_ipa > 1.
* >> Início da inclusão: MODULE USER_COMMAND_0300
a_nivel =
* << Fim da inclusão
a_opgan = a_opgav = a_oparc = a_otxjr = space.
a_opgan = a_opgav = a_oparc = a_otxjr = a_nivel = space.
CALL SCREEN '0360' STARTING AT 5 2.
ELSE.
MESSAGE s015 WITH text-041.
ENDIF.
...
...
* >> Início da inclusão:
MODULE consiste_data INPUT.
IF NOT /pws/zycie085-dtreg IS INITIAL AND
NOT /pws/zycie085-dtdesemb IS INITIAL.
IF /pws/zycie085-dtdesemb LT /pws/zycie085-dtreg .
MESSAGE i015 WITH text-255 text-256.
CLEAR /pws/zycie085-dtdesemb.
ENDIF.
ENDIF.
ENDMODULE.
MODULE consiste_datad INPUT.
IF NOT /pws/zycie085-dtreg IS INITIAL AND
NOT /pws/zycie085-dtdesemb IS INITIAL.
IF /pws/zycie085-dtdesemb LT /pws/zycie085-dtreg .
MESSAGE i015 WITH text-255 text-256.
CLEAR /pws/zycie085-dtreg.
EXIT.
ENDIF.
ENDIF.
IF NOT /pws/zycie085-dtdesemb IS INITIAL AND
NOT /pws/zycie085-dataci IS INITIAL.
IF /pws/zycie085-dtdesemb GT /pws/zycie085-dataci.
MESSAGE i015 WITH text-255 text-257.
CLEAR /pws/zycie085-dataci.
EXIT.
ENDIF.
ENDIF.
ENDMODULE.
MODULE consiste_dataci INPUT.
IF NOT /pws/zycie085-dtdesemb IS INITIAL AND
NOT /pws/zycie085-dataci IS INITIAL.
IF /pws/zycie085-dtdesemb GT /pws/zycie085-dataci.
MESSAGE i015 WITH text-255 text-257.
CLEAR /pws/zycie085-dataci.
EXIT.
ENDIF.
ENDIF.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023O01
...
WHEN '0150'.
DESCRIBE TABLE itab_it LINES v_line.
tc_item-lines = v_line.
* >> Início da inclusão: MODULE SCREEN_LINES
IF NOT okcode EQ 'DECRESC' and
not okcode eq 'CRESC'.
* << Fim da inclusão
SORT itab_it BY nrseq ebeln ebelp.
* >> Início da inclusão: MODULE SCREEN_LINES
ENDIF.
* << Fim da inclusão
...
...
MODULE load_desp OUTPUT.
IF itab_zycit049[] IS INITIAL.
PERFORM fill_desp.
ENDIF.
* >> Início da inclusão: MODULE LOAD_DESP
IF NOT okcode EQ 'CRESCD' and
NOT okcode EQ 'DECRESD'.
* << Fim da inclusão
SORT itab_zycit049 BY tpdesp.
* >> Início da inclusão: MODULE LOAD_DESP
ENDIF.
* << Fim da inclusão
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023TOP
...
*Ao final do include
* >> Início da inclusão:
data:
s_onaladi,
s_onalinca,
s_oespec,
s_otipo,
s_onum,
s_tpcert,
s_reduz,
s_reduc,
s_tribipi,
s_redipi,
s_unitval,
s_unmeins,
s_qtdun,
s_uncap,
s_tpuni,
s_percredu,
s_redbase,
s_fdlgpc,
s_alredpis,
s_alesppis,
s_alredcof,
s_alespcof,
s_bcicms,
s_nttipi.
a_nivel,
a_dest.
* >> Fim da inclusão:
* >> Início da inclusão:
SELECTION-SCREEN BEGIN OF SCREEN 0054.
SELECT-OPTIONS:
so_ebn FOR /pws/zycie003-ebeln
NO INTERVALS NO-EXTENSION,
so_ebp FOR /pws/zycie003-ebelp
NO INTERVALS NO-EXTENSION,
so_matn FOR /pws/zycie003-matnr
NO INTERVALS NO-EXTENSION,
so_denom FOR /pws/zycie003-descr
NO INTERVALS NO-EXTENSION,
so_ncm FOR /pws/zycie003-j_1bnbm
NO INTERVALS NO-EXTENSION,
so_qtd FOR /pws/zycie003-qtd_iten
NO INTERVALS NO-EXTENSION,
so_lif FOR /pws/zycie003-lifnr
NO INTERVALS NO-EXTENSION.
SELECTION-SCREEN END OF SCREEN 0054.
AT SELECTION-SCREEN.
CASE sy-dynnr .
WHEN '0054'.
LOOP AT itab_it WHERE ebelp IN so_ebp
AND ebeln IN so_ebn
AND descr IN so_denom
AND qtd_iten IN so_qtd
AND matnr IN so_matn
and j_1bnbm in so_ncm
AND lifnr IN so_lif.
v_tabix = sy-tabix.
ENDLOOP.
IF sy-subrc = 0.
tc_item-top_line = v_tabix.
LEAVE TO SCREEN 0 .
ELSE.
MESSAGE s015 WITH text-258.
ENDIF.
ENDCASE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023X01
...
ad_devido LIKE /pws/zycie085-vlfob,
ad_recolher LIKE /pws/zycie085-vlfob,
vlfobr LIKE /pws/zycie100a-vlfre,
codcambial LIKE /pws/zycie006-codcambial,
inco_item LIKE /pws/zycit001-inco1,
paisfab LIKE /pws/zycit003-paisfab,
vlreal_dest LIKE /pws/zycie003-vlreal,
ntgewd LIKE /pws/zycie003-ntgewd,
mark,
matnr LIKE /pws/zycie003-matnr,
* >> Início da inclusão:
matnr_item LIKE /pws/zycie003-matnr,
* << Fim da inclusão
END OF itab_it.
...
...
* >> Início da inclusão:
DATA: v_ordena(132) TYPE c.
* << Fim da inclusão
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F01
...
FORM save_data.
* >> Início da inclusão: FORM SAVE_DATA
IF NOT /pws/zycie085-dtdesemb IS INITIAL AND
NOT /pws/zycie085-dtreg IS INITIAL.
IF /pws/zycie085-dtdesemb LT /pws/zycie085-dtreg .
MESSAGE i015 WITH text-239 text-240.
EXIT.
ENDIF.
ENDIF.
* << Fim da inclusão
...
...
savemode_direct = 'X'
owner_specified = 'X'
TABLES
lines = rtexti
EXCEPTIONS
id = 1
language = 2
name = 3
object = 4
OTHERS = 5.
* >> Início da inclusão: FORM SAVE_DATA_ITEM
IF sy-subrc NE 0.
EXIT.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDFORM.
...
...
.
CLEAR: itab_it-advalpis, itab_it-advalcofins.
ENDIF.
MOVE-CORRESPONDING itab_it TO itab_zycit100_temp.
APPEND itab_zycit100_temp.
* >> Início da inclusão: FORM FILL_ITABIT
itab_it-matnr_item = itab_it-matnr.
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
EXPORTING
input = itab_it-matnr_item
IMPORTING
output = itab_it-matnr_item.
IF sy-subrc <> 0.
ENDIF.
* << Fim da inclusão
MODIFY itab_it.
ENDLOOP.
MOVE itab_it[] TO itab_ita[].
/pws/zycie093-ntgew = /pws/zycie085-ntgew = v_tntgew.
IF /pws/zycie093-gewei_l IS INITIAL.
/pws/zycie093-gewei_l = /pws/zycie093-gewei_b.
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F02
...
FORM text_edit_blitem CHANGING p_text.
* >> Início da exclusão: FORM TEXT_EDIT_BLITEM
DELETE ADJACENT DUPLICATES FROM rtexti COMPARING tdline.
* << Fim da exclusão
* >> Início da inclusão: FORM TEXT_EDIT_BLITEM
DATA: v_spras LIKE ekko-spras.
* << Fim da inclusão
...
...
xtheadi-tdobject = '/PWS/CIDI'.
xtheadi-tdname = v_txtki.
xtheadi-tdid = 'ZDSI'.
xtheadi-tdspras = sy-langu.
* >> Início da exclusão: FORM TEXT_EDIT_BLITEM
xtheadi-tdlinesize = 072.
DATA: v_spras LIKE ekko-spras.
CALL FUNCTION '/PWS/ZYCI_TEXTO_DETALHE_ITEM'
EXPORTING
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp
codeven = 'DI'
TABLES
rtext = rtexti
.
IF sy-subrc <> 0.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM TEXT_EDIT_BLITEM
xtheadi-tdlinesize = 132.
* << Fim da inclusão
CALL FUNCTION 'EDIT_TEXT'
EXPORTING
display = v_txtdisplay
header = xtheadi
save = v_txtsave
TABLES
lines = rtexti
EXCEPTIONS
id = 1
language = 2
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F03
...
FORM fill_itabitc.
CLEAR: itab_itc.
REFRESH: itab_itc.
MOVE: itab_it TO wa_itb.
* >> Início da exclusão: FORM FILL_ITABITC
LOOP AT itab_it WHERE seq NE v_ip.
itab_itc-nrseq = itab_it-nrseq.
itab_itc-ebeln = itab_it-ebeln.
itab_itc-ebelp = itab_it-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_ITABITC
CLEAR: itab_it_aux1[].
REFRESH: itab_it_aux1[].
FREE: itab_it_aux1[].
MOVE: itab_it[] TO itab_it_aux1[].
LOOP AT itab_it_aux1 WHERE seq NE v_ip.
itab_itc-nrseq = itab_it_aux1-nrseq.
itab_itc-ebeln = itab_it_aux1-ebeln.
itab_itc-ebelp = itab_it_aux1-ebelp.
itab_itc-j_1bnbm = itab_it_aux1-j_1bnbm.
itab_itc-adicao = itab_it_aux1-adicao.
itab_itc-matnr = itab_it_aux1-matnr.
* << Fim da inclusão
APPEND itab_itc.
ENDLOOP.
* >> Início da exclusão: FORM FILL_ITABITC
MOVE: wa_itb TO itab_it.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_ITABITC
SORT itab_itc BY ebeln ebelp.
* << Fim da inclusão
ENDFORM.
...
...
FORM comm_repl.
* >> Início da exclusão: FORM COMM_REPL
IF NOT s_ometv IS INITIAL OR
NOT s_oregt IS INITIAL OR
NOT s_oregp IS INITIAL OR
NOT s_ofund IS INITIAL OR
NOT s_oacor IS INITIAL OR
NOT s_oalad IS INITIAL OR
NOT s_oexm IS INITIAL OR
NOT s_oexii IS INITIAL OR
NOT s_oexipi IS INITIAL OR
NOT s_oexad IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM COMM_REPL
DATA: rtexti_aux TYPE tline OCCURS 50 WITH HEADER LINE.
IF NOT s_omotiv IS INITIAL OR
NOT s_oclass IS INITIAL OR
NOT s_odest IS INITIAL OR
NOT s_oesp IS INITIAL OR
NOT s_oadvii IS INITIAL OR
NOT s_oadvicms IS INITIAL OR
NOT s_oadvipi IS INITIAL OR
NOT s_ortrib IS INITIAL OR
NOT s_oflpc IS INITIAL OR
NOT s_oadvpis IS INITIAL OR
NOT s_oumpis IS INITIAL OR
NOT s_qtdum IS INITIAL OR
NOT s_oadvcof IS INITIAL OR
NOT s_oumcof IS INITIAL OR
NOT s_qtumcof IS INITIAL OR
NOT s_oadvpis IS INITIAL OR
NOT s_oaliqpis IS INITIAL OR
NOT s_oaliqcof IS INITIAL OR
NOT s_fundii IS INITIAL OR
NOT s_regii IS INITIAL.
* << Fim da inclusão
MOVE itab_it TO wa_itb.
LOOP AT itab_itc WHERE NOT mark IS initial.
READ TABLE itab_it WITH KEY
nrseq = itab_itc-nrseq
ebeln = itab_itc-ebeln
ebelp = itab_itc-ebelp.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM COMM_REPL
IF NOT s_ometv IS INITIAL.
itab_it-codmat = /pws/zycie100a-codmat.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM COMM_REPL
IF NOT s_omotiv IS INITIAL.
itab_it-motivo = /pws/zycie100a-motivo.
ENDIF.
* << Fim da inclusão
* >> Início da exclusão: FORM COMM_REPL
IF NOT s_oregt IS INITIAL.
itab_it-codregtri = /pws/zycie100a-codregtri.
ENDIF.
* << Fim da exclusão
* >> Início da exclusão: FORM COMM_REPL
IF NOT s_oregp IS INITIAL.
itab_it-codregtriipi = /pws/zycie100a-codregtriipi.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM COMM_REPL
IF NOT s_oclass IS INITIAL.
itab_it-classific = /pws/zycie100a-classific.
ENDIF.
IF NOT s_odest IS INITIAL.
itab_it-destncm = /pws/zycie100a-destncm.
ENDIF.
IF NOT s_oesp IS INITIAL.
CLEAR v_txtki.
CONCATENATE /pws/zycie085-nrseqdi wa_itb-nrseq
wa_itb-ebeln wa_itb-ebelp INTO v_txtki.
xtheadi-tdobject = '/PWS/CIDDI'.
xtheadi-tdname = v_txtki.
xtheadi-tdid = 'ZDSI'.
xtheadi-tdspras = sy-langu.
xtheadi-tdlinesize = 070.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZDSI'
language = sy-langu
name = v_txtki
object = '/PWS/CIDDI'
TABLES
lines = rtexti_aux
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc <> 0.
EXIT.
ELSE.
CONCATENATE /pws/zycie085-nrseqdi itab_itc-nrseq
itab_itc-ebeln itab_itc-ebelp INTO v_txtki.
xtheadi-tdobject = '/PWS/CIDDI'.
xtheadi-tdname = v_txtki.
xtheadi-tdid = 'ZDSI'.
xtheadi-tdspras = sy-langu.
xtheadi-tdlinesize = 070.
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
header = xtheadi
insert = 'X'
savemode_direct = 'X'
owner_specified = 'X'
TABLES
lines = rtexti_aux
EXCEPTIONS
id = 1
language = 2
name = 3
object = 4
OTHERS = 5.
IF sy-subrc <> 0.
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
header = xtheadi
insert = ' '
savemode_direct = 'X'
owner_specified = 'X'
TABLES
lines = rtexti_aux
EXCEPTIONS
id = 1
language = 2
name = 3
object = 4
OTHERS = 5.
IF sy-subrc <> 0.
EXIT.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
IF NOT s_oadvii IS INITIAL.
itab_it-advalii = /pws/zycie003-advalii.
ENDIF.
IF NOT s_oadvipi IS INITIAL.
itab_it-advalipi = /pws/zycie003-advalipi.
ENDIF.
IF NOT s_oadvicms IS INITIAL.
itab_it-advalicms = /pws/zycie003-advalicms.
ENDIF.
IF NOT s_ortrib IS INITIAL.
itab_it-codregtripiscofi = /pws/zycie100a-codregtripiscofi.
ENDIF.
IF NOT s_oflpc IS INITIAL.
itab_it-codfunlegpiscofi = /pws/zycie100a-codfunlegpiscofi.
ENDIF.
IF NOT s_oadvipi IS INITIAL.
itab_it-advalpis = /pws/zycie100a-advalpis.
ENDIF.
IF NOT s_oumpis IS INITIAL.
itab_it-um_pis = /pws/zycie100a-um_pis.
ENDIF.
IF NOT s_qtdum IS INITIAL.
itab_it-qtdum_pis = /pws/zycie100a-qtdum_pis.
ENDIF.
IF NOT s_oadvcof IS INITIAL.
itab_it-advalcofins = /pws/zycie100a-advalcofins.
ENDIF.
IF NOT s_oumcof IS INITIAL.
itab_it-um_cofins = /pws/zycie100a-um_cofins.
ENDIF.
IF NOT s_qtumcof IS INITIAL.
itab_it-qtdum_cofins = /pws/zycie100a-qtdum_cofins.
ENDIF.
IF NOT s_oadvpis IS INITIAL.
itab_it-advalpis = /pws/zycie100a-advalpis.
ENDIF.
IF NOT s_oaliqpis IS INITIAL.
itab_it-aliqpis = /pws/zycie100a-aliqpis.
ENDIF.
IF NOT s_oaliqcof IS INITIAL.
itab_it-aliqcof = /pws/zycie100a-aliqcof.
ENDIF.
IF NOT s_oaliqcof IS INITIAL.
itab_it-aliqcof = /pws/zycie100a-aliqcof.
ENDIF.
IF NOT s_fundii IS INITIAL.
itab_it-codfunleg = /pws/zycie100a-codfunleg.
ENDIF.
IF NOT s_regii IS INITIAL.
itab_it-codregtri = /pws/zycie100a-codregtri.
ENDIF.
* << Fim da inclusão
* >> Início da exclusão: FORM COMM_REPL
IF NOT s_ofund IS INITIAL.
itab_it-codfunleg = /pws/zycie100a-codfunleg.
ENDIF.
* << Fim da exclusão
* >> Início da exclusão: FORM COMM_REPL
IF NOT s_oacor IS INITIAL.
itab_it-acordo = /pws/zycie100a-acordo.
ENDIF.
* << Fim da exclusão
* >> Início da exclusão: FORM COMM_REPL
IF NOT s_oalad IS INITIAL.
itab_it-aladi = /pws/zycie100a-aladi.
ENDIF.
* << Fim da exclusão
* >> Início da exclusão: FORM COMM_REPL
IF NOT s_oexm IS INITIAL.
itab_it-extarif_al = /pws/zycie003-extarif_al.
itab_it-tipo_al = /pws/zycie003-tipo_al.
itab_it-orgemiss_al = /pws/zycie003-orgemiss_al.
itab_it-numero_al = /pws/zycie003-numero_al.
itab_it-anoemiss_al = /pws/zycie003-anoemiss_al.
ENDIF.
* << Fim da exclusão
* >> Início da exclusão: FORM COMM_REPL
IF NOT s_oexii IS INITIAL.
itab_it-ii_extarif = /pws/zycie003-ii_extarif.
itab_it-ii_tipo = /pws/zycie003-ii_tipo.
itab_it-ii_orgemiss = /pws/zycie003-ii_orgemiss.
itab_it-ii_numero = /pws/zycie003-ii_numero.
itab_it-ii_anoemiss = /pws/zycie003-ii_anoemiss.
ENDIF.
* << Fim da exclusão
* >> Início da exclusão: FORM COMM_REPL
IF NOT s_oexipi IS INITIAL.
itab_it-ipi_extarif = /pws/zycie003-ipi_extarif.
itab_it-ipi_tipo = /pws/zycie003-ipi_tipo.
itab_it-ipi_orgemiss = /pws/zycie003-ipi_orgemiss.
itab_it-ipi_numero = /pws/zycie003-ipi_numero.
itab_it-ipi_anoemiss = /pws/zycie003-ipi_anoemiss.
ENDIF.
IF NOT s_oexad IS INITIAL.
itab_it-ad_extarif = /pws/zycie003-ad_extarif.
itab_it-ad_tipo = /pws/zycie003-ad_tipo.
itab_it-ad_orgemiss = /pws/zycie003-ad_orgemiss.
itab_it-ad_numero = /pws/zycie003-ad_numero.
itab_it-ad_anoemiss = /pws/zycie003-ad_anoemiss.
ENDIF.
* << Fim da exclusão
MODIFY itab_it INDEX sy-tabix.
ENDIF.
ENDLOOP.
MOVE wa_itb TO itab_it.
LEAVE TO SCREEN 0.
ENDIF.
ENDFORM.
...
...
* >> Início da inclusão: FORM FILL_DESC
CLEAR rtexti. REFRESH rtexti.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZDSI'
language = sy-langu
name = v_txtki
object = '/PWS/CIDDI'
TABLES
lines = rtexti
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc = 0.
READ TABLE rtexti INDEX 1.
ENDIF.
IF rtexti IS INITIAL.
SORT itab_zycit229 BY codseq.
READ TABLE itab_ekpo WITH KEY ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCI_TEXTO_DETALHE_ITEM'
EXPORTING
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp
codeven = 'DI'
TABLES
rtext = rtexti.
IF sy-subrc <> 0.
* >> Início da inclusão: FORM FILL_DESC
ENDIF.
* << Fim da inclusão
ENDIF.
IF itab_it-especificacao IS INITIAL.
READ TABLE rtexti INDEX 1.
itab_it-especificacao = rtexti-tdline.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F04
...
* >> Início da inclusão:
form trata_posicao.
LOOP AT itab_it WHERE ebelp IN so_ebp
AND ebeln IN so_ebn
AND descr IN so_denom
AND qtd_iten IN so_qtd
AND ntgew IN so_peso
AND nrseqli IN so_nrli.
v_tabix = sy-tabix.
ENDLOOP.
IF sy-subrc = 0.
tc_sbens-top_line = v_tabix.
LEAVE TO SCREEN 0 .
ELSE.
MESSAGE s015 WITH text-241.
ENDIF.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058I01
...
* >> Início da inclusão: MODULE USER_COMMAND_0100
WHEN 'CRESD'.
CLEAR: v_ordena.
LOOP AT tc_desp-cols INTO v_cols
WHERE selected EQ 'X'.
v_ordena = v_cols-screen-name+14 .
ENDLOOP.
IF NOT v_ordena IS INITIAL.
SORT itab_zycit049 ASCENDING BY (v_ordena).
ENDIF.
WHEN 'DECRESD'.
CLEAR: v_ordena.
LOOP AT tc_desp-cols INTO v_cols
WHERE selected EQ 'X'.
v_ordena = v_cols-screen-name+14 .
ENDLOOP.
IF NOT v_ordena IS INITIAL.
SORT itab_zycit049 DESCENDING BY (v_ordena).
ENDIF.
WHEN 'CRESC'.
CLEAR: v_ordena.
LOOP AT tc_sbens-cols INTO v_cols
WHERE selected EQ 'X'.
v_ordena = v_cols-screen-name+14 .
ENDLOOP.
IF NOT v_ordena IS INITIAL.
SORT itab_it ASCENDING BY (v_ordena).
ENDIF.
WHEN 'DECRES'.
CLEAR: v_ordena.
LOOP AT tc_sbens-cols INTO v_cols
WHERE selected EQ 'X'.
v_ordena = v_cols-screen-name+14 .
ENDLOOP.
IF NOT v_ordena IS INITIAL.
SORT itab_it DESCENDING BY (v_ordena).
ENDIF.
WHEN 'POSI'.
CALL SELECTION-SCREEN 0250 STARTING AT 3 5.
* << Fim da inclusão
ENDCASE.
CLEAR sy-ucomm.
ENDMODULE.
...
...
WHEN '0440'.
CASE sy-ucomm.
WHEN 'FC_SEL'.
* >> Início da exclusão: MODULE USER_COMMAND_0231
s_ometv = s_oregt = s_oregp = s_ofund =
s_oacor = s_oalad = s_oexm = s_oexii =
s_oexipi = s_oexad = 'X'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0231
s_omotiv = s_oclass = s_odest = s_oesp =
s_oadvii = s_oadvicms = s_oadvipi = s_ortrib =
s_oflpc = s_oadvpis = s_oumpis = s_qtdum =
s_oadvcof = s_oumcof = s_qtumcof = 'X'.
* << Fim da inclusão
WHEN 'FC_DES'.
* >> Início da exclusão: MODULE USER_COMMAND_0231
s_ometv = s_oregt = s_oregp = s_ofund =
s_oacor = s_oalad = s_oexm = s_oexii =
s_oexipi = s_oexad = space.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0231
s_omotiv = s_oclass = s_odest = s_oesp =
s_oadvii = s_oadvicms = s_oadvipi = s_ortrib =
s_oflpc = s_oadvpis = s_oumpis = s_qtdum =
s_oadvcof = s_oumcof = s_qtumcof = space.
* << Fim da inclusão
WHEN 'CHECK'.
PERFORM fill_mark USING 'X'.
WHEN 'UNCHECK'.
PERFORM fill_mark USING space.
WHEN 'ENTE'.
PERFORM comm_repl.
WHEN 'BACK'.
SET SCREEN 0.
LEAVE SCREEN.
ENDCASE.
...
...
WHEN 'REPL'.
IF v_ipt > 1.
* >> Início da exclusão: MODULE USER_COMMAND_0231
s_ometv = s_oregt = s_oregp = s_ofund =
s_oacor = s_oalad = s_oexm = s_oexii =
s_oexipi = s_oexad = space.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0231
s_omotiv = s_oclass = s_odest = s_oesp =
s_oadvii = s_oadvicms = s_oadvipi = s_ortrib =
s_oflpc = s_oadvpis = s_oumpis = s_qtdum =
s_oadvcof = s_oumcof = s_qtumcof = space.
* << Fim da inclusão
CALL SCREEN '0440' STARTING AT 5 2.
ELSE.
MESSAGE s015 WITH text-041.
ENDIF.
...
...
* >> Início da inclusão:
MODULE consiste_data INPUT.
IF NOT /pws/zycie085-dtreg IS INITIAL AND
NOT /pws/zycie085-dtdesemb IS INITIAL.
IF /pws/zycie085-dtdesemb LT /pws/zycie085-dtreg .
MESSAGE i015 WITH text-239 text-240.
CLEAR /pws/zycie085-dtdesemb.
ENDIF.
ENDIF.
ENDMODULE.
MODULE consiste_datad INPUT.
IF NOT /pws/zycie085-dtreg IS INITIAL AND
NOT /pws/zycie085-dtdesemb IS INITIAL.
IF /pws/zycie085-dtdesemb LT /pws/zycie085-dtreg .
MESSAGE i015 WITH text-239 text-240.
CLEAR /pws/zycie085-dtreg.
ENDIF.
ENDIF.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058O01
...
MODULE load_desp OUTPUT.
IF itab_zycit049[] IS INITIAL.
PERFORM fill_desp.
ENDIF.
* >> Início da exclusão: MODULE LOAD_DESP
SORT itab_zycit049 BY tpdesp.
* << Fim da exclusão
ENDMODULE.
...
...
MODULE fill_struct_itc OUTPUT.
* >> Início da exclusão: MODULE FILL_STRUCT_ITC
wa_itb-nrseq = itab_itc-nrseq.
wa_itb-ebeln = itab_itc-ebeln.
wa_itb-ebelp = itab_itc-ebelp.
wa_itb-mark = itab_itc-mark.
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_STRUCT_ITC
wa_itb-nrseq = itab_itc-nrseq.
wa_itb-ebeln = itab_itc-ebeln.
wa_itb-ebelp = itab_itc-ebelp.
wa_itb-matnr = itab_itc-matnr.
wa_itb-j_1bnbm = itab_itc-j_1bnbm.
wa_itb-mark = itab_itc-mark.
* << Fim da inclusão
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058TOP
...
DATA: BEGIN OF itab_itc OCCURS 0,
nrseq LIKE /pws/zycie003-nrseq,
ebeln LIKE /pws/zycie003-ebeln,
ebelp LIKE /pws/zycie003-ebelp,
* >> Início da inclusão:
j_1bnbm LIKE /pws/zycie003-j_1bnbm,
adicao LIKE /pws/zycie100a-adicao,
matnr LIKE /pws/zycie003-matnr,
* << Fim da inclusão
mark,
END OF itab_itc.
...
...
* >> Início da exclusão:
s_ometv,
s_oregt,
s_oregp,
s_ofund,
s_oacor,
s_oalad,
s_oexm,
s_oexii,
s_oexipi,
s_oexad,
s_oadvalii,
s_oadvalicms,
s_oadvalipi,
s_oadvalpis,
s_oadvalcof,
* << Fim da exclusão
* >> Início da inclusão:
s_omotiv,
s_oclass,
s_odest,
s_oesp,
s_oadvii,
s_oadvicms,
s_oadvipi,
s_ortrib,
s_oflpc,
s_oadvpis,
s_oaliqpis,
s_oaliqcof,
s_fundii,
s_regii,
s_oumpis,
s_qtdum,
s_oadvcof,
s_oumcof,
s_qtumcof,
* << Fim da inclusão
...
...
*No FINAL DO INCLUDE
* >> Início da inclusão:
SELECTION-SCREEN BEGIN OF SCREEN 0250.
SELECT-OPTIONS:
so_ebn FOR /pws/zycie003-ebeln
NO INTERVALS NO-EXTENSION,
so_ebp FOR /pws/zycie003-ebelp
NO INTERVALS NO-EXTENSION,
so_denom FOR /pws/zycie003-descr
NO INTERVALS NO-EXTENSION,
so_nrli FOR /pws/zycie003-nrseqli
NO INTERVALS NO-EXTENSION,
so_qtd FOR /pws/zycie003-qtd_iten
NO INTERVALS NO-EXTENSION,
so_peso FOR /pws/zycie003-ntgew
NO INTERVALS NO-EXTENSION.
SELECTION-SCREEN END OF SCREEN 0250.
AT SELECTION-SCREEN.
CASE sy-dynnr .
WHEN '0250'.
PERFORM trata_posicao.
ENDCASE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058X01
...
ii_reduzido LIKE /pws/zycie085-vlfob,
ii_devido LIKE /pws/zycie085-vlfob,
ii_recolher LIKE /pws/zycie085-vlfob,
ipi_devido LIKE /pws/zycie085-vlfob,
ipi_recolher LIKE /pws/zycie085-vlfob,
ad_devido LIKE /pws/zycie085-vlfob,
ad_recolher LIKE /pws/zycie085-vlfob,
vlfobr LIKE /pws/zycie100a-vlfre,
codcambial LIKE /pws/zycie006-codcambial,
mark,
* >> Início da inclusão:
matnr LIKE /pws/zycie003-matnr,
matnr_item LIKE /pws/zycie003-matnr,
* << Fim da inclusão
END OF itab_it.
...
...
* >> Início da inclusão:
DATA: itab_it_aux1 LIKE itab_it OCCURS 0 WITH HEADER LINE.
DATA: v_ordena(132) TYPE c.
* << Fim da inclusão
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI023
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 254
Texto: (35 caracteres)
"Declaration number is already used."
Comprimento máximo: 39
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 255
Texto: (24 caracteres)
"Clearance's date must be"
Comprimento máximo: 28
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 255
Texto: (28 caracteres)
"Data do desembaraço deve ser"
Comprimento máximo: 28
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 256
Texto: (34 caracteres)
"after or the same register's date."
Comprimento máximo: 34
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 256
Texto: (34 caracteres)
"maior ou igual a data de registro."
Comprimento máximo: 34
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 257
Texto: (28 caracteres)
"before or the same CI's date"
Comprimento máximo: 28
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 257
Texto: (28 caracteres)
"menor ou igual a data de CI."
Comprimento máximo: 28
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 258
Texto: (15 caracteres)
"Item not found."
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 258
Texto: (20 caracteres)
"Item não encontrado."
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: EN
Variável (SELECT-OPTION / PARAMETER): SO_DENOM
Texto: (19 caracteres)
"Description"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_DENOM
Texto: (17 caracteres)
"Descrição"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: EN
Variável (SELECT-OPTION / PARAMETER): SO_EBN
Texto: (22 caracteres)
"Purchase order"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_EBN
Texto: (14 caracteres)
"Pedido"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: EN
Variável (SELECT-OPTION / PARAMETER): SO_EBP
Texto: (12 caracteres)
"Iten"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_EBP
Texto: (12 caracteres)
"Item"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: EN
Variável (SELECT-OPTION / PARAMETER): SO_LIF
Texto: (17 caracteres)
"Supplying"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_LIF
Texto: (18 caracteres)
"Fornecedor"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: EN
Variável (SELECT-OPTION / PARAMETER): SO_MATN
Texto: (16 caracteres)
"Material"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_MATN
Texto: (16 caracteres)
"Material"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: EN
Variável (SELECT-OPTION / PARAMETER): SO_NCM
Texto: (11 caracteres)
"NCM"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_NCM
Texto: (11 caracteres)
"NCM"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: EN
Variável (SELECT-OPTION / PARAMETER): SO_QTD
Texto: (16 caracteres)
"Quantity"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_QTD
Texto: (18 caracteres)
"Quantidade"
Referência ao Dictionary: NÃO
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI058
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 239
Texto: (43 caracteres)
"Clearance's date must be older or same than"
Comprimento máximo: 43
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 239
Texto: (43 caracteres)
"Data do desembaraço deve ser maior ou igual"
Comprimento máximo: 43
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 240
Texto: (14 caracteres)
"register date."
Comprimento máximo: 19
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 240
Texto: (19 caracteres)
"a data do registro."
Comprimento máximo: 19
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 241
Texto: (15 caracteres)
"Item not found."
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 241
Texto: (20 caracteres)
"Item não encontrado."
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_DENOM
Texto: (17 caracteres)
"Descrição"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_EBN
Texto: (14 caracteres)
"Pedido"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_EBP
Texto: (12 caracteres)
"Item"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_NRLI
Texto: (17 caracteres)
"Nr.Seq.LI"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_PESO
Texto: (20 caracteres)
"Peso líquido"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_QTD
Texto: (18 caracteres)
"Quantidade"
Referência ao Dictionary: NÃO