CE PLUS - Nota 007112
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 08/08/2008 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:26:19
Descrição da Nota: COMPRAS NO MERCADO INTERNO PARA DRAWBACK SUSPENSÃO
Sintoma
Ajustes no ato concessório para tratar compras no mercado interno para Drawback suspensão
Solução
Ajustes no ato concessório para tratar compras no mercado interno para Drawback suspensão
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07112 Data: 08/08/2008 Hora: 15:15:55
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07112
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00059
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02876 - 00001 - 6.0 - 00024 - AJUSTADO ADITIVO PARA EXCLUSÃO DE ITENS DO ATO CONCESSÓRIO
04609 - 00002 - 7.0 - 00003 - ABRE CAMPO USAGEM(%) PARA PREENCHIMENTO QUANDO ESTE ESTIVER EM BR
05015 - 00003 - 7.0 - 00003 - TRANSFERÊNCIA POR QUANTIDADE E PORCENTAGEM NO ATO CONCESSÓRIO
06788 - 00004 - 7.0 - 00006 - DESENVOLVIMENTO ATO CONCESSÓRIO ISENÇÃO INTERMEDIARIO-IMPORTADOR
07017 - 00005 - 7.0 - 00006 - AJUSTES ATO CONCESSÓRIO SUSP. PARA RECEBER COMPRAS NO MERCADO INT
----------------------------------------------------------------------------------------------------
COMPRAS NO MERCADO INTERNO PARA DRAWBACK SUSPENSÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
DRAWBACK - SUSPENÇÃO - MERCADO - INTERNO - ATO - CONCESSÓRIO
/PWS/SAPMZYCI040
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI040 0200
DYNP /PWS/SAPMZYCI040 0204
DYNP /PWS/SAPMZYCI040 0210
DYNP /PWS/SAPMZYCI040 0237
DYNP /PWS/SAPMZYCI040 0238
DYNP /PWS/SAPMZYCI040 0239
DYNP /PWS/SAPMZYCI040 0253
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040I01
REPS /PWS/MZYCI040O01
REPS /PWS/MZYCI040X01
REPT /PWS/SAPMZYCI040
*---------------------------------------------------------------------------------------------------
*---------------------------------------------------------------------------------------------------
*---------------------------------------------------------------------------------------------------
*---------------------------------------------------------------------------------------------------
*Alguns ajustes realizados nesta nota foram desfeitos na nota 7401, devido à mudanças na legislação
*conforme Portaria SECRETARIA DE COMÉRCIO EXTERIOR, DO MINISTÉRIO DO DESENVOLVIMENTO, INDÚSTRIA E
*COMÉRCIO EXTERIOR nº 21 de 24.09.2008 - D.O.U.: 25.09.2008.
*---------------------------------------------------------------------------------------------------
*---------------------------------------------------------------------------------------------------
*---------------------------------------------------------------------------------------------------
*---------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0200
MODIFICAR BOTÃO "FS_ADITIVOS" em tbl.contr./tabstr.
Coluna 6
MODIFICAR BOTÃO "FS_GRAPH" em tbl.contr./tabstr.
Coluna 7
INCLUIR BOTÃO "FS_MERC2" em tbl.contr./tabstr.
Comprimento Visível 9
Linha 1
Coluna 5
Formato CHAR
Campo referência SS_SUB1_2
Grupo 1 NEX
Texto Nacionais
Código função FS_MERC2
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0204
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-COB_CAMB" em tbl.contr./tabstr.
Coluna 8
MODIFICAR TEXTO "/PWS/ZYCIE246-COB_CAMB" em tbl.contr./tabstr.
Coluna 8
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-DATACI" em tbl.contr./tabstr.
Coluna 23
MODIFICAR TEXTO "/PWS/ZYCIE246-DATACI" em tbl.contr./tabstr.
Coluna 23
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-DOCNUM" em tbl.contr./tabstr.
Coluna 14
MODIFICAR TEXTO "/PWS/ZYCIE246-DOCNUM" em tbl.contr./tabstr.
Coluna 14
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-DTDESEMB" em tbl.contr./tabstr.
Coluna 24
MODIFICAR TEXTO "/PWS/ZYCIE246-DTDESEMB" em tbl.contr./tabstr.
Coluna 24
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-DTDI" em tbl.contr./tabstr.
Coluna 22
MODIFICAR TEXTO "/PWS/ZYCIE246-DTDI" em tbl.contr./tabstr.
Coluna 22
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-DTNF" em tbl.contr./tabstr.
Coluna 15
MODIFICAR TEXTO "/PWS/ZYCIE246-DTNF" em tbl.contr./tabstr.
Coluna 15
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-DTREGLI" em tbl.contr./tabstr.
Coluna 18
MODIFICAR TEXTO "/PWS/ZYCIE246-DTREGLI" em tbl.contr./tabstr.
Coluna 18
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-EBELN" em tbl.contr./tabstr.
Coluna 3
MODIFICAR TEXTO "/PWS/ZYCIE246-EBELN" em tbl.contr./tabstr.
Coluna 3
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-EBELP" em tbl.contr./tabstr.
Coluna 4
MODIFICAR TEXTO "/PWS/ZYCIE246-EBELP" em tbl.contr./tabstr.
Coluna 4
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-GEWEI" em tbl.contr./tabstr.
Coluna 25
MODIFICAR TEXTO "/PWS/ZYCIE246-GEWEI" em tbl.contr./tabstr.
Coluna 25
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-ITMNUM" em tbl.contr./tabstr.
Coluna 12
MODIFICAR TEXTO "/PWS/ZYCIE246-ITMNUM" em tbl.contr./tabstr.
Coluna 12
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-J_1BNBM" em tbl.contr./tabstr.
Coluna 10
MODIFICAR TEXTO "/PWS/ZYCIE246-J_1BNBM" em tbl.contr./tabstr.
Coluna 10
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-LOTE" em tbl.contr./tabstr.
Coluna 6
MODIFICAR TEXTO "/PWS/ZYCIE246-LOTE" em tbl.contr./tabstr.
Coluna 6
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-MATNR" em tbl.contr./tabstr.
Coluna 9
MODIFICAR TEXTO "/PWS/ZYCIE246-MATNR" em tbl.contr./tabstr.
Coluna 9
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-MEINS" em tbl.contr./tabstr.
Coluna 27
MODIFICAR TEXTO "/PWS/ZYCIE246-MEINS" em tbl.contr./tabstr.
Coluna 27
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-NETPR" em tbl.contr./tabstr.
Coluna 33
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-NFNUM" em tbl.contr./tabstr.
Coluna 11
MODIFICAR TEXTO "/PWS/ZYCIE246-NFNUM" em tbl.contr./tabstr.
Coluna 11
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-NRDI" em tbl.contr./tabstr.
Coluna 20
MODIFICAR TEXTO "/PWS/ZYCIE246-NRDI" em tbl.contr./tabstr.
Coluna 20
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-NRLI" em tbl.contr./tabstr.
Coluna 17
MODIFICAR TEXTO "/PWS/ZYCIE246-NRLI" em tbl.contr./tabstr.
Coluna 17
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-NRSEQ" em tbl.contr./tabstr.
Coluna 5
MODIFICAR TEXTO "/PWS/ZYCIE246-NRSEQ" em tbl.contr./tabstr.
Coluna 5
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-NRSEQDI" em tbl.contr./tabstr.
Coluna 19
MODIFICAR TEXTO "/PWS/ZYCIE246-NRSEQDI" em tbl.contr./tabstr.
Coluna 19
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-NRSEQLI" em tbl.contr./tabstr.
Coluna 16
MODIFICAR TEXTO "/PWS/ZYCIE246-NRSEQLI" em tbl.contr./tabstr.
Coluna 16
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-NTGEW" em tbl.contr./tabstr.
Coluna 26
MODIFICAR TEXTO "/PWS/ZYCIE246-NTGEW" em tbl.contr./tabstr.
Coluna 26
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-PERDA" em tbl.contr./tabstr.
Coluna 38
MODIFICAR TEXTO "/PWS/ZYCIE246-PERDA" em tbl.contr./tabstr.
Coluna 38
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-QTD_COMPV" em tbl.contr./tabstr.
Coluna 31
MODIFICAR TEXTO "/PWS/ZYCIE246-QTD_COMPV" em tbl.contr./tabstr.
Coluna 31
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-QTD_ITEN" em tbl.contr./tabstr.
Coluna 28
MODIFICAR TEXTO "/PWS/ZYCIE246-QTD_ITEN" em tbl.contr./tabstr.
Coluna 28
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-QTD_NCM" em tbl.contr./tabstr.
Coluna 30
MODIFICAR TEXTO "/PWS/ZYCIE246-QTD_NCM" em tbl.contr./tabstr.
Coluna 30
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-QTD_PERDA" em tbl.contr./tabstr.
Coluna 39
MODIFICAR TEXTO "/PWS/ZYCIE246-QTD_PERDA" em tbl.contr./tabstr.
Coluna 39
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-SERIE" em tbl.contr./tabstr.
Coluna 13
MODIFICAR TEXTO "/PWS/ZYCIE246-SERIE" em tbl.contr./tabstr.
Coluna 13
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-TPDI" em tbl.contr./tabstr.
Coluna 21
MODIFICAR TEXTO "/PWS/ZYCIE246-TPDI" em tbl.contr./tabstr.
Coluna 21
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-UM_NCM" em tbl.contr./tabstr.
Coluna 29
MODIFICAR TEXTO "/PWS/ZYCIE246-UM_NCM" em tbl.contr./tabstr.
Coluna 29
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-VLFRETE" em tbl.contr./tabstr.
Coluna 36
Grupo 4
EXCLUIR TEXTO "/PWS/ZYCIE246-VLFRETE" em tbl.contr./tabstr.
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-VLSEG" em tbl.contr./tabstr.
Coluna 37
Grupo 4
EXCLUIR TEXTO "/PWS/ZYCIE246-VLSEG" em tbl.contr./tabstr.
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-VLTOT" em tbl.contr./tabstr.
Coluna 34
MODIFICAR TEXTO "/PWS/ZYCIE246-VLTOT" em tbl.contr./tabstr.
Comprimento Visível 15
Coluna 34
Texto Valor FOB Total
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-WERKS" em tbl.contr./tabstr.
Coluna 7
MODIFICAR TEXTO "/PWS/ZYCIE246-WERKS" em tbl.contr./tabstr.
Coluna 7
MODIFICAR TEXTO "TXT02" em tbl.contr./tabstr.
Coluna 35
MODIFICAR CAMPO TEXTO "VLTOT_BRL" em tbl.contr./tabstr.
Coluna 35
EXCLUIR CAMPO TEXTO "V_ICOREALIZ" em tbl.contr./tabstr.
MODIFICAR FRAME "V_QUAD2_0204"
Texto Saldo
MODIFICAR CAMPO TEXTO "V_SLD_COMPV" em tbl.contr./tabstr.
Coluna 32
MODIFICAR TEXTO "V_SLD_COMPV" em tbl.contr./tabstr.
Coluna 32
INCLUIR CAMPO TEXTO "V_TXTFRETE" em tbl.contr./tabstr.
Altura 23
Comprimento Visível 20
Linha 1
Coluna 36
Formato CHAR
Texto ____________________
MODIFICAR CAMPO TEXTO "V_TXTNETPR" em tbl.contr./tabstr.
Coluna 33
INCLUIR CAMPO TEXTO "V_TXTSEGURO" em tbl.contr./tabstr.
Altura 23
Comprimento Visível 20
Linha 1
Coluna 37
Formato CHAR
Texto ____________________
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0210
INCLUIR CAMPO TEXTO "/PWS/ZYCIE246C-DOCNUM" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 4
Formato NUMC
Grupo 1 NEX
Grupo 2 NF
Linhas mínimas 10
Texto __________
INCLUIR TEXTO "/PWS/ZYCIE246C-DOCNUM" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 15
Linha 1
Coluna 4
Formato CHAR
Texto Nº documento
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246C-DTDI" em tbl.contr./tabstr.
Coluna 10
Grupo 2 DI
MODIFICAR TEXTO "/PWS/ZYCIE246C-DTDI" em tbl.contr./tabstr.
Coluna 10
INCLUIR CAMPO TEXTO "/PWS/ZYCIE246C-DTNF" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 7
Formato DATE
Grupo 1 NEX
Grupo 2 NF
Linhas mínimas 8
Texto __________
Código função
INCLUIR TEXTO "/PWS/ZYCIE246C-DTNF" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 7
Linha 1
Coluna 7
Formato CHAR
Texto Data NF
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246C-I_TXSELIC" em tbl.contr./tabstr.
Coluna 14
MODIFICAR TEXTO "/PWS/ZYCIE246C-I_TXSELIC" em tbl.contr./tabstr.
Coluna 14
INCLUIR CAMPO TEXTO "/PWS/ZYCIE246C-NFNUM" em tbl.contr./tabstr.
Altura 9
Comprimento Visível 9
Linha 1
Coluna 5
Formato NUMC
Grupo 1 NEX
Grupo 2 NF
Linhas mínimas 9
Texto _________
INCLUIR TEXTO "/PWS/ZYCIE246C-NFNUM" em tbl.contr./tabstr.
Altura 9
Comprimento Visível 15
Linha 1
Coluna 5
Formato CHAR
Texto Nº nota
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246C-NRDI" em tbl.contr./tabstr.
Coluna 8
Grupo 2 DI
MODIFICAR TEXTO "/PWS/ZYCIE246C-NRDI" em tbl.contr./tabstr.
Coluna 8
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246C-QTD_NACION" em tbl.contr./tabstr.
Coluna 13
Texto ___.___.___.___.___.___,_____V
MODIFICAR TEXTO "/PWS/ZYCIE246C-QTD_NACION" em tbl.contr./tabstr.
Coluna 13
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246C-QTD_NCM" em tbl.contr./tabstr.
Coluna 12
Texto ___.___.___.___.___.___,_____V
MODIFICAR TEXTO "/PWS/ZYCIE246C-QTD_NCM" em tbl.contr./tabstr.
Coluna 12
INCLUIR CAMPO TEXTO "/PWS/ZYCIE246C-SERIE" em tbl.contr./tabstr.
Altura 3
Comprimento Visível 3
Linha 1
Coluna 6
Formato CHAR
Grupo 1 NEX
Grupo 2 NF
Linhas mínimas 3
Texto ___
INCLUIR TEXTO "/PWS/ZYCIE246C-SERIE" em tbl.contr./tabstr.
Altura 3
Comprimento Visível 15
Linha 1
Coluna 6
Formato CHAR
Texto Série
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246C-TPDI" em tbl.contr./tabstr.
Coluna 9
Grupo 2 DI
MODIFICAR TEXTO "/PWS/ZYCIE246C-TPDI" em tbl.contr./tabstr.
Coluna 9
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246C-UM_NCM" em tbl.contr./tabstr.
Coluna 11
MODIFICAR TEXTO "/PWS/ZYCIE246C-UM_NCM" em tbl.contr./tabstr.
Coluna 11
MODIFICAR CONTROLE DE TABELA "TC_NACION"
Coluna 3
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0237
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE245-QTD_NCM" em tbl.contr./tabstr.
Comprimento Visível 30
Texto ___.___.___.___.___.___,_____V
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE245-QTD_PERDA_E" em tbl.contr./tabstr.
Comprimento Visível 30
Texto ___.___.___.___.___.___,_____V
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE245-SDOCOMP_I" em tbl.contr./tabstr.
Comprimento Visível 30
Texto ___.___.___.___.___.___,_____V
MODIFICAR TEXTO "/PWS/ZYCIE245-SDOCOMP_I" em tbl.contr./tabstr.
Comprimento Visível 11
Texto Qtde. Total
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0238
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE245-QTD_PERDA_E" em tbl.contr./tabstr.
Comprimento Visível 30
Texto ___.___.___.___.___.___,_____V
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE279-MENGE" em tbl.contr./tabstr.
Comprimento Visível 27
Linhas mínimas 23
Colunas mínimas 12
Texto __.___.___.___,____________
MODIFICAR TEXTO "/PWS/ZYCIE279-MENGE" em tbl.contr./tabstr.
Comprimento Visível 11
Texto Qtde. Total
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE279-QTD_PERDA" em tbl.contr./tabstr.
Comprimento Visível 18
Texto _.___.___.___,___V
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0239
MODIFICAR TEXTO "/PWS/ZYCIE245-QTD_NCM"
Comprimento Visível 10
Texto Qtde.Total
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE279-ADICAO" em tbl.contr./tabstr.
Grupo 2 DI
INCLUIR CAMPO TEXTO "/PWS/ZYCIE279-DOCNUM" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 8
Formato NUMC
Grupo 1 NEX
Grupo 2 NF
Linhas mínimas 10
Texto __________
INCLUIR TEXTO "/PWS/ZYCIE279-DOCNUM" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 15
Linha 1
Coluna 8
Formato CHAR
Texto Nº documento
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE279-DTDI" em tbl.contr./tabstr.
Grupo 2 DI
INCLUIR CAMPO TEXTO "/PWS/ZYCIE279-DTNF" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 11
Formato DATE
Grupo 1 NEX
Grupo 2 NF
Linhas mínimas 8
Texto __________
Código função
INCLUIR TEXTO "/PWS/ZYCIE279-DTNF" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 7
Linha 1
Coluna 11
Formato CHAR
Texto Data NF
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE279-MEINS" em tbl.contr./tabstr.
Coluna 12
MODIFICAR TEXTO "/PWS/ZYCIE279-MEINS" em tbl.contr./tabstr.
Coluna 12
INCLUIR CAMPO TEXTO "/PWS/ZYCIE279-NFNUM" em tbl.contr./tabstr.
Altura 9
Comprimento Visível 9
Linha 1
Coluna 9
Formato NUMC
Grupo 1 NEX
Grupo 2 NF
Linhas mínimas 9
Texto _________
INCLUIR TEXTO "/PWS/ZYCIE279-NFNUM" em tbl.contr./tabstr.
Altura 9
Comprimento Visível 15
Linha 1
Coluna 9
Formato CHAR
Texto Nº nota
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE279-NRDI" em tbl.contr./tabstr.
Grupo 2 DI
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE279-NRSEQDI" em tbl.contr./tabstr.
Grupo 2 DI
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE279-NRSEQD_D" em tbl.contr./tabstr.
Coluna 15
MODIFICAR TEXTO "/PWS/ZYCIE279-NRSEQD_D" em tbl.contr./tabstr.
Coluna 15
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE279-QTD_TRANSF" em tbl.contr./tabstr.
Coluna 14
MODIFICAR TEXTO "/PWS/ZYCIE279-QTD_TRANSF" em tbl.contr./tabstr.
Coluna 14
INCLUIR CAMPO TEXTO "/PWS/ZYCIE279-SERIE" em tbl.contr./tabstr.
Altura 3
Comprimento Visível 3
Linha 1
Coluna 10
Formato CHAR
Grupo 1 NEX
Grupo 2 NF
Linhas mínimas 3
Texto ___
INCLUIR TEXTO "/PWS/ZYCIE279-SERIE" em tbl.contr./tabstr.
Altura 3
Comprimento Visível 15
Linha 1
Coluna 10
Formato CHAR
Texto Série
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE279-SLQTDE" em tbl.contr./tabstr.
Coluna 13
MODIFICAR TEXTO "/PWS/ZYCIE279-SLQTDE" em tbl.contr./tabstr.
Comprimento Visível 16
Coluna 13
Texto Qtde à Comprovar
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0253
INCLUIR SUB-TELA 0253
Descrição SS - Impostos(Nacionais)
Tela seguinte 0253
Altura atual (linhas) 27
Largura atual (colunas) 120
INCLUIR TABSTRIP "TS_FEDERAIS"
Altura 7
Comprimento Visível 52
Linha 1
Coluna 4
Linhas mínimas 7
Colunas mínimas 52
INCLUIR BOTÃO "FS_IPI" em tbl.contr./tabstr.
Comprimento Visível 3
Linha 1
Coluna 1
Formato CHAR
Campo referência SS_IMPOSTOS
Texto IPI
Código função FS_IPI
INCLUIR BOTÃO "FS_PIS" em tbl.contr./tabstr.
Comprimento Visível 3
Linha 1
Coluna 2
Formato CHAR
Campo referência SS_IMPOSTOS
Texto PIS
Código função FS_PIS
INCLUIR BOTÃO "FS_COFINS" em tbl.contr./tabstr.
Comprimento Visível 6
Linha 1
Coluna 3
Formato CHAR
Campo referência SS_IMPOSTOS
Texto COFINS
Código função FS_COFINS
INCLUIR ÁREA DE SUB-TELA "SS_IMPOSTOS" em tbl.contr./tabstr.
Altura 4
Comprimento Visível 50
Linha 3
Coluna 5
Linhas mínimas 3
Colunas mínimas 3
INCLUIR TEXTO "/PWS/ZYCIE246D-DOCNUM"
Comprimento Visível 15
Linha 1
Coluna 63
Formato CHAR
Texto Nº documento
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE246D-DOCNUM"
Comprimento Visível 10
Linha 1
Coluna 82
Formato NUMC
Grupo 1 NEX
Linhas mínimas 10
Texto __________
INCLUIR TEXTO "/PWS/ZYCIE246D-NFNUM"
Comprimento Visível 15
Linha 2
Coluna 63
Formato CHAR
Texto Nº nota
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE246D-NFNUM"
Comprimento Visível 10
Linha 2
Coluna 82
Formato NUMC
Grupo 1 NEX
Linhas mínimas 9
Texto __________
INCLUIR TEXTO "/PWS/ZYCIE246D-SERIE"
Comprimento Visível 15
Linha 3
Coluna 63
Formato CHAR
Texto Série
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE246D-SERIE"
Comprimento Visível 3
Linha 3
Coluna 82
Formato CHAR
Grupo 1 NEX
Linhas mínimas 3
Texto ___
INCLUIR TEXTO "/PWS/ZYCIE246D-DTNF"
Comprimento Visível 5
Linha 4
Coluna 63
Formato CHAR
Texto Data
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE246D-DTNF"
Comprimento Visível 15
Linha 4
Coluna 82
Formato DATE
Grupo 1 NEX
Linhas mínimas 8
Texto _______________
Código função
INCLUIR TEXTO "TEXT1_253"
Comprimento Visível 18
Linha 5
Coluna 63
Formato CHAR
Texto Total impostos
Código função
INCLUIR CAMPO TEXTO "V_TOTPIS2"
Altura 15
Comprimento Visível 31
Linha 5
Coluna 82
Formato DEC
Grupo 1 NEX
Texto _______________________________
INCLUIR TEXTO "/PWS/ZYCIE246D-I_TXSELIC"
Comprimento Visível 10
Linha 6
Coluna 63
Formato CHAR
Texto Taxa Selic
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE246D-I_TXSELIC"
Comprimento Visível 15
Linha 6
Coluna 82
Formato DEC
Grupo 1 NEX
Linhas mínimas 6
Colunas mínimas 2
Texto ___________,__V
INCLUIR TEXTO "/PWS/ZYCIE246D-QTD_ITEN"
Comprimento Visível 18
Linha 7
Coluna 63
Formato CHAR
Texto Qtd. Total do Item
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE246D-QTD_NCM"
Altura 15
Comprimento Visível 30
Linha 7
Coluna 82
Formato QUAN
Campo referência /PWS/ZYCIE246D-UM_NCM
Grupo 1 NEX
Linhas mínimas 23
Colunas mínimas 5
Texto ___.___.___.___.___.___,_____V
INCLUIR CAMPO TEXTO "/PWS/ZYCIE246D-UM_NCM"
Comprimento Visível 3
Linha 7
Coluna 98
Formato UNIT
Linhas mínimas 3
Texto ___
INCLUIR TEXTO "/PWS/ZYCIE246D-QTD_NACION"
Comprimento Visível 18
Linha 8
Coluna 63
Formato CHAR
Texto Qtd.à Nacionalizar
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE246D-QTD_NACION"
Altura 15
Comprimento Visível 22
Linha 8
Coluna 82
Formato QUAN
Campo referência /PWS/ZYCIE246D-MEINS
Linhas mínimas 23
Colunas mínimas 5
Texto ___.___.___.___,_____V
INCLUIR TEXTO "/PWS/ZYCIE246D-I_VLCIF_MI"
Comprimento Visível 12
Linha 9
Coluna 63
Formato CHAR
Texto Valor CIF R$
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE246D-I_VLCIFN_MI"
Comprimento Visível 15
Linha 9
Coluna 82
Formato CURR
Campo referência /PWS/ZYCIE246D-I_WAERSCIFMI
Linhas mínimas 23
Colunas mínimas 2
Texto _______________
INCLUIR OKCODE ""
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0253
* >> Início da inclusão:
process before output.
module: set_screen2 ,
apura_totais_0211.
call subscreen ss_impostos including modul dynpronr10a.
process after input.
call subscreen ss_impostos.
MODULE USER_COMMAND_0230.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
ENDIF.
IF screen-name EQ 'FS_GRAPH' AND v_tcode2 EQ '/PWS/ZYCI040_C'.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
IF screen-group2 EQ 'CLI' AND
/pws/zycie244-tipo NE 'N'.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
* >> Início da inclusão: FORM CHECK_FIELD_0200
IF screen-name EQ 'FS_MERC2'.
IF /pws/zycie244-tipo EQ 'F' OR
/pws/zycie244-modalidade EQ 'I'.
screen-invisible = '1'.
MODIFY SCREEN.
ELSE.
screen-invisible = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDLOOP.
ENDFORM.
FORM check_field_0201.
LOOP AT SCREEN.
IF screen-group1 NE 'NEX'.
screen-input = v_status2.
MODIFY SCREEN.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE244-NRFORECAST'.
IF /pws/zycie244-modalidade NE 'S'.
...
...
EXIT.
ELSE.
SELECT kaln1 UP TO 1 ROWS FROM mbew INTO v_kaln1
WHERE matnr = v_codcomp
AND bwkey = /pws/zycie244-werks.
ENDSELECT.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM t001a INTO wat001a
WHERE bukrs EQ /pws/zycie244-bukrs.
CLEAR it_ckmlcr. REFRESH it_ckmlcr.
* >> Início da inclusão: FORM TRATA_ENTER_0203
IF pressed_tab_2a = 'FS_MERC2'.
SELECT * FROM ckmlcr INTO TABLE it_ckmlcr
WHERE kalnr = v_kaln1
AND waers = wa_zycbt007-waersb.
ELSE.
* << Fim da inclusão
SELECT * FROM ckmlcr INTO TABLE it_ckmlcr
WHERE kalnr = v_kaln1
AND waers = wa_zycbt007-waersa.
* >> Início da inclusão: FORM TRATA_ENTER_0203
ENDIF.
* << Fim da inclusão
SORT it_ckmlcr BY bdatj poper ASCENDING.
DESCRIBE TABLE it_ckmlcr LINES v_ilinhas.
READ TABLE it_ckmlcr INDEX v_ilinhas.
IF sy-subrc EQ 0.
v_netpr_t = it_ckmlcr-stprs / it_ckmlcr-peinh.
* >> Início da inclusão: FORM TRATA_ENTER_0203
IF pressed_tab_2a = 'FS_MERC2'.
v_waers_t = wa_zycbt007-waersb.
ELSE.
* << Fim da inclusão
v_waers_t = wa_zycbt007-waersa.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM TRATA_ENTER_0203
ENDIF.
* << Fim da inclusão
MOVE v_meins TO itab_zycit245-meins.
IF itab_zycit245-pctseg IS INITIAL.
MOVE v_segpct TO itab_zycit245-pctseg.
ENDIF.
...
...
ENDIF.
MODIFY tc_realizi-cols FROM wa_cols2.
WHEN 'V_ICOREAL1'.
IF /pws/zycie244-modalidade EQ 'I'.
wa_cols2-invisible = 1.
ELSE.
wa_cols2-invisible = 0.
ENDIF.
MODIFY tc_realizi-cols FROM wa_cols2.
ENDCASE.
* >> Início da exclusão: FORM CHECK_FIELD_0204
IF /pws/zycie244-tipo EQ 'F' AND
wa_cols2-screen-group4 EQ 'IE'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0204
IF wa_cols2-screen-group4 EQ 'IE'.
IF /pws/zycie244-tipo EQ 'F' OR
pressed_tab_2a EQ 'FS_MERC2'.
* << Fim da inclusão
wa_cols2-invisible = 1.
* >> Início da inclusão: FORM CHECK_FIELD_0204
ELSE.
wa_cols2-invisible = 0.
ENDIF.
* << Fim da inclusão
MODIFY tc_realizi-cols FROM wa_cols2.
ENDIF.
ENDLOOP.
LOOP AT SCREEN.
...
...
ENDIF.
MODIFY tc_realizi-cols FROM wa_cols2.
WHEN '/PWS/ZYCIE246-QTD_COMPV'
OR 'V_SLD_COMPV'.
IF /pws/zycie244-modalidade EQ 'I'.
wa_cols2-invisible = 1.
ENDIF.
MODIFY tc_realizi-cols FROM wa_cols2.
ENDCASE.
ENDLOOP.
* >> Início da exclusão: FORM CHECK_FIELD_0204
IF /pws/zycie244-tipo EQ 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0204
IF /pws/zycie244-tipo EQ 'F' OR
pressed_tab_2a EQ 'FS_MERC2'.
* << Fim da inclusão
CLEAR: v_sfob_text, v_rfob_text, v_sfrete_text, v_rfrete_text,
v_sseg_text, v_rseg_text.
CONCATENATE text-250 text-254 INTO v_rfob_text SEPARATED BY space.
CONCATENATE text-251 text-254 INTO v_rfrete_text SEPARATED BY space.
CONCATENATE text-252 text-254 INTO v_rseg_text SEPARATED BY space.
v_sfob_text = v_rfob_text .
v_sfrete_text = v_rfrete_text .
* >> Início da exclusão: FORM CHECK_FIELD_0204
v_sseg_text = v_rseg_text .
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0204
v_txtseguro = v_sseg_text = v_rseg_text .
CONCATENATE text-341 text-254 INTO v_txtfrete SEPARATED BY space.
* << Fim da inclusão
IF /pws/zycie244-cicms EQ 'X'.
CLEAR v_txtnetpr.
CONCATENATE text-249 text-246 INTO v_txtnetpr.
ELSE.
CLEAR v_txtnetpr.
CONCATENATE text-249 text-247 INTO v_txtnetpr.
ENDIF.
ELSE.
CLEAR: v_sfob_text, v_rfob_text, v_sfrete_text, v_rfrete_text,
v_sseg_text, v_rseg_text, v_txtnetpr.
CONCATENATE text-250 text-253 INTO v_rfob_text SEPARATED BY space.
CONCATENATE text-251 text-253 INTO v_rfrete_text SEPARATED BY space.
CONCATENATE text-252 text-253 INTO v_rseg_text SEPARATED BY space.
v_sfob_text = v_rfob_text .
v_sfrete_text = v_rfrete_text .
* >> Início da exclusão: FORM CHECK_FIELD_0204
v_sseg_text = v_rseg_text .
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0204
v_txtseguro = v_sseg_text = v_rseg_text .
CONCATENATE text-341 text-253 INTO v_txtfrete SEPARATED BY space.
* << Fim da inclusão
v_txtnetpr = text-249.
ENDIF.
DESCRIBE TABLE itab_zycit246 LINES v_ilinhas2.
tc_realizi-lines = v_ilinhas2.
ENDFORM.
FORM trata_tab_realiz1.
DATA: v_marcados3 TYPE i VALUE 0.
LOOP AT itab_zycit245 WHERE markci = 'X'.
v_marcados3 = v_marcados3 + 1.
ENDLOOP.
...
...
CLEAR: itab_zycit248. REFRESH: itab_zycit248.
itab_zycit248[] = itab_zycit248_final[].
pressed_tab_4a = ok_code2.
dynpronr4a = '0228'.
ENDIF.
ENDFORM.
FORM trata_button_save2 CHANGING v_erro2.
DATA: v_duplic(1) TYPE c ,
v_tamano TYPE i VALUE 0 ,
v_string(4) TYPE c VALUE space.
* >> Início da inclusão: FORM TRATA_BUTTON_SAVE2
IF NOT itab_zycit245t[] IS INITIAL AND
/pws/zycie244-modalidade EQ 'S'.
LOOP AT itab_zycit245 INTO itab_zycit245t.
READ TABLE itab_zycit245t TRANSPORTING NO FIELDS
WITH KEY nritem = itab_zycit245t-nritem.
IF sy-subrc EQ 0.
MODIFY itab_zycit245t INDEX sy-tabix.
ELSE.
APPEND itab_zycit245t.
ENDIF.
ENDLOOP.
REFRESH itab_zycit245.
itab_zycit245[] = itab_zycit245t[].
ENDIF.
* << Fim da inclusão
IF wa_zycit244-status EQ 'D' AND
/pws/zycie244-status EQ 'D' AND
v_ver_alt IS INITIAL AND
( wa_zycit244-vcto_vg NE /pws/zycie244-vcto_vg OR
itab_zycit245_save[] NE itab_zycit245[] OR
itab_zycit247_save[] NE itab_zycit247[] ).
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = text-039
text_question = text-314
...
...
MODIFY it_tline2_final.
ENDIF.
ENDLOOP.
MESSAGE i061 WITH text-056 text-057 /pws/zycie244-nrseqd.
ENDIF.
ENDFORM.
FORM trata_tab_nacion.
DATA: v_marcados3 TYPE i VALUE 0,
v_datatx LIKE /pws/zycit246-dtdi.
CLEAR: itab_zycit246_final, itab_zycit245.
* >> Início da exclusão: FORM TRATA_TAB_NACION
READ TABLE itab_zycit246_final WITH KEY matnr = itab_resumo_ap-matnr.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TAB_NACION
IF /pws/zycie244-tipo NE 'F' AND
/pws/zycie244-modalidade EQ 'S'.
IF pressed_tab_2a EQ 'FS_MERC2'.
LOOP AT itab_zycit246_final
WHERE matnr = itab_resumo_ap-matnr
AND nrseqdi EQ space.
EXIT.
ENDLOOP.
ELSE.
LOOP AT itab_zycit246_final
WHERE matnr = itab_resumo_ap-matnr
AND nrseqdi NE space.
EXIT.
ENDLOOP.
ENDIF.
ELSE.
READ TABLE itab_zycit246_final
WITH KEY matnr = itab_resumo_ap-matnr.
ENDIF.
* << Fim da inclusão
READ TABLE itab_zycit245 WITH KEY nritem = itab_zycit246_final-nritem.
MOVE: sy-tabix TO v_indicatu2.
MOVE: itab_zycit245-nritem TO /pws/zycie245c-nritem ,
itab_zycit245-nritem TO i_nritem ,
itab_zycit245-nritem TO i_nritem2 ,
itab_zycit245-maktx TO v_descr2_0210 ,
itab_resumo_ap-matnr TO /pws/zycie245c-codcomp ,
itab_zycit245-j_1bnbm TO /pws/zycie245c-j_1bnbm ,
itab_zycit245-werks TO /pws/zycie245c-werks ,
itab_zycit245-waers TO /pws/zycie245c-waers ,
itab_zycit245-netpr_t TO /pws/zycie245c-netpr_t ,
itab_zycit245-meins TO /pws/zycie245c-meins .
MOVE: itab_zycit245-qtd_tot TO /pws/zycie245c-qtd_iten.
CLEAR: itab_zycit246. REFRESH: itab_zycit246.
* >> Início da exclusão: FORM TRATA_TAB_NACION
LOOP AT itab_zycit246_final WHERE matnr EQ itab_resumo_ap-matnr.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TAB_NACION
LOOP AT itab_zycit246_final WHERE nritem EQ i_nritem.
* << Fim da inclusão
READ TABLE itab_zycit470_s WITH KEY
ebeln = itab_zycit246_final-ebeln
ebelp = itab_zycit246_final-ebelp
nrseq = itab_zycit246_final-nrseq
lote = itab_zycit246_final-lote.
IF sy-subrc NE 0.
CHECK itab_zycit246_final-qtd_ncm >
itab_zycit246_final-qtd_compv.
ENDIF.
READ TABLE itab_zycit279_ap WITH KEY
...
...
v_numatoinf = 'S'.
ENDIF.
PERFORM lock_record2.
ENDIF.
IF v_otheruser IS INITIAL.
ENDIF.
wa_zycit244 = /pws/zycie244.
PERFORM carrega_tabela279.
PERFORM move_realiz.
PERFORM sel_iterm_import.
* >> Início da inclusão: FORM TRATA_BUTTON_ENTE2
REFRESH: itab_zycit245t.
itab_zycit245t[] = itab_zycit245[].
* << Fim da inclusão
itab_zycit245_save[] = itab_zycit245[].
itab_zycit246_save[] = itab_zycit246_final[].
itab_zycit247_save[] = itab_zycit247[].
itab_zycit248_save[] = itab_zycit248_final[].
itab_centros2_save[] = itab_centros2[].
itab_vencto2_save[] = itab_vencto2[].
PERFORM le_textos.
IF /pws/zycie244-modalidade EQ 'S' AND
( /pws/zycie244-tipo EQ 'N' OR
/pws/zycie244-tipo EQ 'G' OR
...
...
/pws/zycie245-vl_frete_t ,
/pws/zycie247-netpr_t ,
/pws/zycie247-vl_comis_t ,
v_variacao_plan2 ,
/pws/zycie246-vltot ,
/pws/zycie246-vlfrete ,
/pws/zycie246-vlseg ,
/pws/zycie248-vlfob ,
/pws/zycie248-vlcomis ,
v_variacao_real2 .
* >> Início da exclusão: FORM APURA_TOTAIS_0201
LOOP AT itab_zycit245.
* << Fim da exclusão
* >> Início da inclusão: FORM APURA_TOTAIS_0201
LOOP AT itab_zycit245t INTO itab_zycit245
WHERE nritem < 90000. "#EC PORTABLE
* << Fim da inclusão
/pws/zycie245-netpr_t = /pws/zycie245-netpr_t +
itab_zycit245-netpr_t.
/pws/zycie245-vl_seg_t = /pws/zycie245-vl_seg_t +
itab_zycit245-vl_seg_t.
/pws/zycie245-vl_frete_t = /pws/zycie245-vl_frete_t +
itab_zycit245-vl_frete_t.
/pws/zycie244-t_segimp = /pws/zycie245-vl_seg_t.
/pws/zycie244-t_freimp = /pws/zycie245-vl_frete_t.
ENDLOOP.
LOOP AT itab_zycit247.
...
...
v_variacao_plan = ( /pws/zycie245-netpr_t +
/pws/zycie245-vl_seg_t +
/pws/zycie245-vl_frete_t ) /
( /pws/zycie247-netpr_t -
/pws/zycie247-vl_comis_t +
/pws/zycie245-netpr_t ) * 100 .
ENDIF.
ENDIF.
MOVE v_variacao_plan TO v_variacao_plan2.
CONCATENATE v_variacao_plan2 '%' INTO v_variacao_plan2.
* >> Início da exclusão: FORM APURA_TOTAIS_0201
LOOP AT itab_zycit246_final.
* << Fim da exclusão
* >> Início da inclusão: FORM APURA_TOTAIS_0201
LOOP AT itab_zycit246_final
WHERE nritem < 90000. "#EC PORTABLE
* << Fim da inclusão
/pws/zycie246-vltot = /pws/zycie246-vltot +
itab_zycit246_final-vltot.
/pws/zycie246-vlfrete = /pws/zycie246-vlfrete +
itab_zycit246_final-vlfrete.
/pws/zycie246-vlseg = /pws/zycie246-vlseg +
itab_zycit246_final-vlseg.
ENDLOOP.
LOOP AT itab_zycit248_final.
/pws/zycie248-vlfob = /pws/zycie248-vlfob +
itab_zycit248_final-vlfob.
...
...
ENDIF.
ENDLOOP.
v_maiorit = v_maiorit + 1.
MOVE v_maiorit TO p_nritem.
SHIFT p_nritem RIGHT DELETING TRAILING space.
v_tam = strlen( p_nritem ).
DO v_tam TIMES.
REPLACE ' ' WITH '0' INTO p_nritem.
ENDDO.
CONDENSE p_nritem.
* >> Início da inclusão: FORM SELECT_MAX_ITEM_NUMBER2
IF pressed_tab_2a = 'FS_MERC2'.
p_nritem(1) = '9'.
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM fill_itab_zycit245_ng2.
SELECT meins UP TO 1 ROWS FROM mara INTO v_meins_tmp2
WHERE matnr = /pws/zycie245-codcomp.
ENDSELECT.
IF sy-subrc NE 0.
MESSAGE w015 WITH text-026.
EXIT.
ENDIF.
READ TABLE itab_zycit245 INDEX tc_cimp2-current_line.
...
...
v_verificp2 = 'N'.
IF /pws/zycie244-tipo EQ 'G'.
SELECT SINGLE * FROM /pws/zycit321 INTO wa_zycit321.
IF sy-subrc NE 0 OR wa_zycit321-ncm IS INITIAL.
MESSAGE i015 WITH text-170 text-171.
ENDIF.
PERFORM select_max_item_number2 CHANGING v_nritem.
MOVE: /pws/zycie244-nrseqd TO itab_zycit245-nrseqd ,
wa_zycit321-ncm TO itab_zycit245-j_1bnbm,
v_nritem TO itab_zycit245-nritem .
* >> Início da inclusão: FORM BUTTON_TPDRAW2
SELECT text1 UP TO 1 ROWS FROM t604n INTO itab_zycit245-maktx
WHERE spras = sy-langu
AND land1 = 'BR'
AND steuc = wa_zycit321-ncm. "#EC CI_SGLSELECT
ENDSELECT.
APPEND itab_zycit245.
MOVE: /pws/zycie244-nrseqd TO itab_zycit245-nrseqd ,
wa_zycit321-ncm TO itab_zycit245-j_1bnbm,
'90001' TO itab_zycit245-nritem .
* << Fim da inclusão
SELECT text1 UP TO 1 ROWS FROM t604n INTO itab_zycit245-maktx
WHERE spras = sy-langu
AND land1 = 'BR'
AND steuc = wa_zycit321-ncm. "#EC CI_SGLSELECT
ENDSELECT.
APPEND itab_zycit245.
ENDIF.
IF /pws/zycie244-tipo NE 'F'.
CLEAR /pws/zycie244-lifnr.
ENDIF.
...
...
ENDLOOP.
ENDIF.
SORT itab_zycit248_res BY matnr ASCENDING.
pressed_tab_4a = ok_code2.
dynpronr4a = '0223'.
ENDFORM.
FORM check_field_0210.
LOOP AT tc_nacion-cols INTO wa_cols2.
IF wa_cols2-screen-group1 NE 'NEX'.
wa_cols2-screen-input = v_status2.
* >> Início da inclusão: FORM CHECK_FIELD_0210
MODIFY tc_nacion-cols FROM wa_cols2.
ENDIF.
IF wa_cols2-screen-group2 EQ 'NF'.
IF pressed_tab_2a EQ 'FS_MERC2' OR
/pws/zycie244-tipo EQ 'F'.
wa_cols2-invisible = 0.
ELSE.
wa_cols2-invisible = 1.
ENDIF.
MODIFY tc_nacion-cols FROM wa_cols2.
ENDIF.
IF wa_cols2-screen-group2 EQ 'DI'.
IF pressed_tab_2a EQ 'FS_MERC2' OR
/pws/zycie244-tipo EQ 'F'.
wa_cols2-invisible = 1.
ELSE.
wa_cols2-invisible = 0.
ENDIF.
* << Fim da inclusão
MODIFY tc_nacion-cols FROM wa_cols2.
ENDIF.
ENDLOOP.
LOOP AT SCREEN.
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'.
IF screen-name EQ 'I_NRITEM'.
screen-invisible = 1.
screen-intensified = 0.
MODIFY SCREEN.
ENDIF.
...
...
FORM verifica_alteracoes.
DATA: itab_zycit245_vf LIKE itab_zycit245 OCCURS 0 WITH HEADER LINE,
itab_zycit247_vf LIKE itab_zycit247 OCCURS 0 WITH HEADER LINE,
itab_src_de LIKE src2 OCCURS 0 WITH HEADER LINE,
itab_src_para LIKE src2 OCCURS 0 WITH HEADER LINE.
DATA: v_mensagem(72).
DATA: v_data1(10),
v_data2(10),
v_tpalter ,
v_dias_p TYPE i.
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
DATA: v_pastatxt(20) TYPE c.
* << Fim da inclusão
REFRESH src2.
wa_src2-line = text-071.
APPEND wa_src2 TO src2.
v_ver_alt = 'X'.
IF v_tcode2 EQ '/PWS/ZYCI040_C' OR v_tcode2 EQ '/PWS/ZYCI040_A' OR
( sy-tcode NE v_tcode2 AND /pws/zycie244-fechado EQ 'X' ).
IF wa_zycit244 NE /pws/zycie244 .
IF wa_zycit244-werks NE /pws/zycie244-werks.
wa_src2-line = text-216.
APPEND wa_src2 TO src2.
...
...
itab_zycit247_vf-nritem
'C'
itab_zycit247_save-tolling
itab_zycit247_vf-tolling
text-224.
ENDLOOP.
ENDIF.
ENDIF.
IF itab_zycit245_save[] NE itab_zycit245[] .
LOOP AT itab_zycit245_save.
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
IF itab_zycit245-nritem < '90000'. "#EC PORTABLE
v_pastatxt = text-207.
ELSE.
v_pastatxt = text-342.
ENDIF.
* << Fim da inclusão
READ TABLE itab_zycit245_vf WITH KEY nritem =
itab_zycit245_save-nritem.
IF sy-subrc EQ 0.
DELETE itab_zycit245_vf
WHERE nritem = itab_zycit245_save-nritem.
v_tpalter = 'A'.
ELSE.
CLEAR: itab_zycit245_vf.
v_tpalter = 'D'.
CLEAR: v_mensagem.
CONCATENATE text-217 itab_zycit245_save-nritem
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
text-225 text-207 text-230
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
text-225 v_pastatxt text-230
* << Fim da inclusão
INTO v_mensagem SEPARATED BY space.
wa_src2-line = v_mensagem.
APPEND wa_src2 TO src2.
wa_src2-line = text-229.
APPEND wa_src2 TO src2.
CLEAR: itab_zycit457.
itab_zycit457-nrseqd = /pws/zycie244-nrseqd.
itab_zycit457-item = itab_zycit245_save-nritem.
itab_zycit457-tpalter = 'D'.
itab_zycit457-aditivo = /pws/zycie244-aditivo.
...
...
itab_zycit457-nrseqd = /pws/zycie244-nrseqd.
itab_zycit457-campo = p_campo.
itab_zycit457-aditivo = /pws/zycie244-aditivo.
itab_zycit457-item = p_item.
itab_zycit457-tpalter = p_tp.
itab_zycit457-pasta = p_pasta.
itab_zycit457-de = p_de.
itab_zycit457-para = p_para.
APPEND itab_zycit457.
CLEAR: v_mensagem.
* >> Início da inclusão: FORM PREENCHE_ALTE
IF p_item < '90000'. "#EC PORTABLE
* << Fim da inclusão
CONCATENATE text-226 p_campo text-217
p_item text-225 p_pasta
* >> Início da inclusão: FORM PREENCHE_ALTE
INTO v_mensagem SEPARATED BY space.
ELSE.
CONCATENATE text-226 p_campo text-217
p_item text-225 text-342
* << Fim da inclusão
INTO v_mensagem SEPARATED BY space.
* >> Início da inclusão: FORM PREENCHE_ALTE
ENDIF.
* << Fim da inclusão
wa_src2-line = v_mensagem.
APPEND wa_src2 TO src2.
CLEAR: v_mensagem.
CONCATENATE text-214 v_de
INTO v_mensagem SEPARATED BY space.
wa_src2-line = v_mensagem.
APPEND wa_src2 TO src2.
CLEAR: v_mensagem.
CONCATENATE text-215 v_para
INTO v_mensagem SEPARATED BY space.
...
...
IF itab_zycit279_ap[] IS INITIAL.
PERFORM carrega_tabela279.
ENDIF.
CLEAR: wa_resumo_ap.
READ TABLE itab_zycit279_ap WITH KEY mark = 'X'.
IF sy-subrc EQ 0.
wa_resumo_ap = itab_zycit279_ap.
ENDIF.
REFRESH itab_resumo_ap. CLEAR itab_resumo_ap.
LOOP AT itab_zycit279_ap.
* >> Início da inclusão: FORM PREENCHE_RESUMO_APONT
IF pressed_tab_2a EQ 'FS_MERC2'.
IF itab_zycit279_ap-nrseqdi NE space.
CONTINUE.
ENDIF.
ELSEIF /pws/zycie244-tipo NE 'F' AND
/pws/zycie244-modalidade EQ 'S'.
IF itab_zycit279_ap-nrseqdi EQ space.
CONTINUE.
ENDIF.
ENDIF.
* << Fim da inclusão
CLEAR itab_resumo_ap.
itab_resumo_ap-matnr = itab_zycit279_ap-matnr .
itab_resumo_ap-meins = itab_zycit279_ap-meins .
itab_resumo_ap-qtd_di = itab_zycit279_ap-menge .
itab_resumo_ap-qtd_nac = itab_zycit279_ap-slqtde .
itab_resumo_ap-qtd_per = itab_zycit279_ap-qtd_perda .
itab_resumo_ap-qtd_perd_e = itab_zycit279_ap-qtd_perda_e .
itab_resumo_ap-qtd_tra = itab_zycit279_ap-qtd_transf.
itab_resumo_ap-qtd_apr = itab_resumo_ap-qtd_di -
itab_resumo_ap-qtd_nac.
...
...
IF itab_resumo_ap-matnr EQ wa_resumo_ap-matnr .
itab_resumo_ap-mark = 'X'.
ENDIF.
COLLECT itab_resumo_ap.
ENDLOOP.
LOOP AT itab_resumo_ap.
SELECT SINGLE maktx FROM makt INTO itab_resumo_ap-maktx
WHERE matnr EQ itab_resumo_ap-matnr.
MODIFY itab_resumo_ap.
ENDLOOP.
* >> Início da inclusão: FORM PREENCHE_RESUMO_APONT
DESCRIBE TABLE itab_resumo_ap LINES tc_res_apo-lines.
* << Fim da inclusão
ENDFORM.
FORM carrega_tabela279.
REFRESH: itab_zycit085, itab_zycit279_ap, itab_zycit279_ap_aux,
itab_zycit100, itab_zycit282_ap, itab_data_di.
SELECT * FROM /pws/zycit279 INTO TABLE itab_zycit279_ap
WHERE nrseqd EQ /pws/zycie244-nrseqd. "#EC CI_NOFIRST
itab_zycit279_ap_aux[] = itab_zycit279_ap[].
DELETE itab_zycit279_ap_aux WHERE nrseqdi NE space.
IF /pws/zycit321-ut_imp EQ 'X'.
IF NOT itab_zycit279_ap_aux[] IS INITIAL.
...
...
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM monta_transf.
REFRESH itab_zycit279_ap_aux.
CLEAR itab_zycit279_ap.
MODIFY itab_zycit279_ap TRANSPORTING mark
WHERE mark EQ 'X'.
IF /pws/zycie244-tipo NE 'G'.
* >> Início da inclusão: FORM MONTA_TRANSF
IF pressed_tab_2a EQ 'FS_MERC2'.
LOOP AT itab_zycit246_final
WHERE matnr = itab_resumo_ap-matnr
AND nrseqdi EQ space.
EXIT.
ENDLOOP.
ELSEIF /pws/zycie244-tipo NE 'F' AND
/pws/zycie244-modalidade EQ 'S'.
LOOP AT itab_zycit246_final
WHERE matnr = itab_resumo_ap-matnr
AND nrseqdi NE space.
EXIT.
ENDLOOP.
ELSE.
* << Fim da inclusão
READ TABLE itab_zycit246_final WITH KEY
matnr = itab_resumo_ap-matnr.
* >> Início da inclusão: FORM MONTA_TRANSF
ENDIF.
* << Fim da inclusão
READ TABLE itab_zycit245 WITH KEY
nritem = itab_zycit246_final-nritem.
/pws/zycie245 = itab_zycit245.
/pws/zycie245-meins = itab_zycit245-um_ncm.
READ TABLE itab_zycit279_ap
WITH KEY matnr = itab_resumo_ap-matnr.
/pws/zycie245-transf = itab_zycit279_ap-transf.
/pws/zycie245-qtd_transf = itab_resumo_ap-qtd_di *
( /pws/zycie245-transf / 100 ).
v_saldo_transf = /pws/zycie245-qtd_transf.
LOOP AT itab_zycit279_ap
WHERE matnr EQ itab_resumo_ap-matnr
AND esgotado EQ space.
* >> Início da inclusão: FORM MONTA_TRANSF
IF itab_zycit279_ap-nrseqdi NE space.
IF pressed_tab_2a EQ 'FS_MERC2'.
CONTINUE.
ENDIF.
ELSEIF /pws/zycie244-tipo NE 'F' AND
/pws/zycie244-modalidade EQ 'S'.
IF pressed_tab_2a NE 'FS_MERC2'.
CONTINUE.
ENDIF.
ENDIF.
* << Fim da inclusão
itab_zycit279_ap_aux = itab_zycit279_ap.
IF NOT itab_zycit279_ap_aux-qtd_transf IS INITIAL.
v_saldo_transf = v_saldo_transf -
itab_zycit279_ap_aux-qtd_transf.
ENDIF.
CLEAR itab_zycit279_ap_aux-lote.
COLLECT itab_zycit279_ap_aux.
ENDLOOP.
itab_zycit279_ap_aux-mark = 'X'.
MODIFY itab_zycit279_ap_aux TRANSPORTING mark
...
...
/pws/zycie245 = itab_zycit245.
/pws/zycie245-um_ncm = itab_resumo_ap-meins.
READ TABLE itab_zycit279_ap
WITH KEY matnr = itab_resumo_ap-matnr.
/pws/zycie245-transf = itab_zycit279_ap-transf.
/pws/zycie245-qtd_transf = itab_resumo_ap-qtd_di *
( /pws/zycie245-transf / 100 ).
v_saldo_transf = /pws/zycie245-qtd_transf.
LOOP AT itab_zycit279_ap WHERE matnr EQ itab_resumo_ap-matnr
AND esgotado EQ space.
* >> Início da inclusão: FORM MONTA_TRANSF
IF itab_zycit279_ap-nrseqdi NE space.
IF pressed_tab_2a EQ 'FS_MERC2'.
CONTINUE.
ENDIF.
ELSEIF /pws/zycie244-tipo NE 'F' AND
/pws/zycie244-modalidade EQ 'S'.
IF pressed_tab_2a NE 'FS_MERC2'.
CONTINUE.
ENDIF.
ENDIF.
* << Fim da inclusão
itab_zycit279_ap_aux = itab_zycit279_ap.
IF NOT itab_zycit279_ap_aux-qtd_transf IS INITIAL.
v_saldo_transf = v_saldo_transf -
itab_zycit279_ap_aux-qtd_transf.
ENDIF.
CLEAR itab_zycit279_ap_aux-lote.
COLLECT itab_zycit279_ap_aux.
ENDLOOP.
itab_zycit279_ap_aux-mark = 'X'.
MODIFY itab_zycit279_ap_aux TRANSPORTING mark
...
...
itab_zycit246_final-qtd_ncm = itab_zycit279_ap-menge.
itab_zycit246_final-qtd_compv = itab_zycit279_ap-menge -
itab_zycit279_ap-slqtde.
IF /pws/zycie244-tipo EQ 'F' OR
( ( /pws/zycie244-tipo EQ 'C' OR
/pws/zycie244-tipo EQ 'N' ) AND
/pws/zycit321-c_comum EQ 'X' AND
/pws/zycie244-modalidade NE 'I' ) OR
( /pws/zycie244-modalidade EQ 'I' AND
/pws/zycit321-it_ge EQ 'X' ).
* >> Início da inclusão: FORM MOVE_REALIZ
IF /pws/zycie244-modalidade EQ 'S' AND
/pws/zycie244-tipo NE 'F'.
IF itab_zycit246_final-nrseqdi IS INITIAL.
LOOP AT itab_zycit245
WHERE j_1bnbm = itab_zycit279_ap-j_1bnbm
AND nritem > 90000. "#EC PORTABLE
EXIT.
ENDLOOP.
ELSE.
LOOP AT itab_zycit245
WHERE j_1bnbm = itab_zycit279_ap-j_1bnbm
AND nritem < 90000. "#EC PORTABLE
EXIT.
ENDLOOP.
ENDIF.
ELSE.
* << Fim da inclusão
READ TABLE itab_zycit245 WITH KEY
j_1bnbm = itab_zycit279_ap-j_1bnbm.
* >> Início da inclusão: FORM MOVE_REALIZ
ENDIF.
* << Fim da inclusão
itab_zycit246_final-nritem = itab_zycit245-nritem.
ELSEIF /pws/zycie244-tipo EQ 'G'.
* >> Início da inclusão: FORM MOVE_REALIZ
IF itab_zycit246_final-nrseqdi IS INITIAL.
itab_zycit246_final-nritem = '90001'.
ELSE.
* << Fim da inclusão
itab_zycit246_final-nritem = '00001'.
* >> Início da inclusão: FORM MOVE_REALIZ
ENDIF.
* << Fim da inclusão
ELSE.
IF /pws/zycit321-it_ge EQ 'X' AND
/pws/zycie244-modalidade EQ 'I'.
CLEAR:itab_zycit433a.
LOOP AT itab_zycit433a
WHERE matnr EQ itab_zycit279_ap-matnr.
EXIT.
ENDLOOP.
IF itab_zycit433a-grupo IS INITIAL.
CONTINUE.
ENDIF.
READ TABLE itab_zycit245 WITH KEY
grupo = itab_zycit433-grupo.
* >> Início da inclusão: FORM MOVE_REALIZ
ELSE.
IF /pws/zycie244-modalidade EQ 'S' AND
/pws/zycie244-tipo NE 'F'.
IF itab_zycit246_final-nrseqdi IS INITIAL.
LOOP AT itab_zycit245
WHERE codcomp = itab_zycit279_ap-matnr
AND nritem > 90000. "#EC PORTABLE
EXIT.
ENDLOOP.
ELSE.
LOOP AT itab_zycit245
WHERE codcomp = itab_zycit279_ap-matnr
AND nritem < 90000. "#EC PORTABLE
EXIT.
ENDLOOP.
ENDIF.
* << Fim da inclusão
ELSE.
READ TABLE itab_zycit245 WITH KEY
codcomp = itab_zycit279_ap-matnr.
* >> Início da inclusão: FORM MOVE_REALIZ
ENDIF.
* << Fim da inclusão
IF sy-subrc NE 0.
CLEAR:itab_zycit433a.
LOOP AT itab_zycit433a
WHERE matnr EQ itab_zycit279_ap-matnr.
EXIT.
ENDLOOP.
IF itab_zycit433a-grupo IS INITIAL.
CONTINUE.
ENDIF.
READ TABLE itab_zycit433 WITH KEY
grupo = itab_zycit433a-grupo.
IF sy-subrc NE 0.
CONTINUE.
* >> Início da inclusão: FORM MOVE_REALIZ
ENDIF.
IF /pws/zycie244-modalidade EQ 'S' AND
/pws/zycie244-tipo NE 'F'.
IF itab_zycit246_final-nrseqdi IS INITIAL.
LOOP AT itab_zycit245
WHERE codcomp = itab_zycit433-matnr
AND nritem > '90000'. "#EC PORTABLE
EXIT.
ENDLOOP.
ELSE.
LOOP AT itab_zycit245
WHERE codcomp = itab_zycit433-matnr
AND nritem < '90000'. "#EC PORTABLE
EXIT.
ENDLOOP.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM MOVE_REALIZ
ELSE.
* << Fim da inclusão
READ TABLE itab_zycit245 WITH KEY
codcomp = itab_zycit433-matnr.
* >> Início da inclusão: FORM MOVE_REALIZ
ENDIF.
* << Fim da inclusão
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040I01
...
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa)
USING sy-ucomm
CHANGING e_subrc
IF FOUND .
IF e_subrc EQ '8'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE USER_COMMAND_0200
LOOP AT itab_zycit245 INTO itab_zycit245t.
CLEAR: itab_zycit245t-markci.
READ TABLE itab_zycit245t TRANSPORTING NO FIELDS
WITH KEY nritem = itab_zycit245t-nritem.
IF sy-subrc EQ 0.
MODIFY itab_zycit245t INDEX sy-tabix.
ELSE.
APPEND itab_zycit245t.
ENDIF.
ENDLOOP.
* << Fim da inclusão
CASE ok_code2.
WHEN 'BACK'.
PERFORM check_button_back2.
WHEN 'FS_CABEC2'.
pressed_tab_2a = ok_code2.
dynpronr2a = '0201'.
* >> Início da inclusão: MODULE USER_COMMAND_0200
WHEN 'FS_MERC2'.
REFRESH itab_zycit245.
itab_zycit245[] = itab_zycit245t[] .
DELETE itab_zycit245
WHERE nritem < '90000'. "#EC PORTABLE
v_altera_ap = 'S'.
PERFORM trata_tab_imp2.
* << Fim da inclusão
WHEN 'FS_CIMP2'.
* >> Início da inclusão: MODULE USER_COMMAND_0200
REFRESH itab_zycit245.
itab_zycit245[] = itab_zycit245t[] .
DELETE itab_zycit245
WHERE nritem > '90000'. "#EC PORTABLE
v_altera_ap = 'S'.
* << Fim da inclusão
PERFORM trata_tab_imp2.
WHEN 'FS_MEXP2'.
...
...
CLEAR v_tlajust.
IF /pws/zycie244-fechado EQ 'X'.
PERFORM trata_button_encer2.
PERFORM trata_ajuste_lt.
ENDIF.
WHEN 'DOC'.
PERFORM trata_button_doc.
WHEN 'VFALT'.
pressed_tab_2a = 'FS_ADITIVOS'.
dynpronr2a = '0212'.
* >> Início da inclusão: MODULE USER_COMMAND_0200
REFRESH itab_zycit245.
itab_zycit245[] = itab_zycit245t[] .
* << Fim da inclusão
PERFORM verifica_alteracoes.
* >> Início da inclusão: MODULE USER_COMMAND_0200
IF pressed_tab_2a EQ 'FS_MERC2'.
DELETE itab_zycit245
WHERE nritem < '90000'. "#EC PORTABLE
ELSE.
DELETE itab_zycit245
WHERE nritem > '90000'. "#EC PORTABLE
ENDIF.
* << Fim da inclusão
WHEN 'T_ADITIVO'.
SELECT SINGLE uname cpf FROM /pws/zycet184
INTO (/pws/zycet184-uname, /pws/zycet184-cpf)
WHERE uname EQ sy-uname.
IF sy-subrc EQ 0.
PERFORM trans_aditivo.
ELSE.
MESSAGE i015 WITH text-293 text-294.
ENDIF.
ENDCASE.
...
...
IF sy-subrc NE 0.
MESSAGE w015 WITH text-234.
ELSEIF itab_zycit246-qtd_nacion IS INITIAL.
MESSAGE w015 WITH text-236.
ELSEIF itab_zycit246-i_txselic IS INITIAL.
MESSAGE w015 WITH text-235.
ELSE.
wa_zycit246 = /pws/zycie246d = itab_zycit246.
wa_zycit246-meins = /pws/zycie246d-meins = itab_zycit246-um_ncm.
pressed_tab_5a = ok_code2.
* >> Início da inclusão: MODULE USER_COMMAND_0209
IF pressed_tab_2a = 'FS_MERC2'.
dynpronr5a = '253'.
ts_federais-activetab = 'FS_IPI'.
dynpronr10a = '0233'.
ELSE.
* << Fim da inclusão
dynpronr5a = '0211'.
* >> Início da inclusão: MODULE USER_COMMAND_0209
ts_federais-activetab = 'FS_II'.
dynpronr10a = '0232'.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDCASE.
ENDMODULE.
MODULE user_command_0210 INPUT.
...
...
( /pws/zycie245-transf / 100 ).
CLEAR: /pws/zycie279-qtd_transf, /pws/zycie279-transf,
/pws/zycie279-nrseqd_d.
itab_zycit245-qtd_transf = /pws/zycie245-qtd_transf.
itab_zycit245-transf = /pws/zycie245-transf.
MODIFY itab_zycit245 TRANSPORTING qtd_transf transf
WHERE nritem EQ /pws/zycie245-nritem.
CLEAR: itab_zycit279_ap, itab_zycit279_ap_aux.
itab_zycit279_ap_aux-transf = itab_zycit279_ap-transf =
/pws/zycie245-transf.
* >> Início da inclusão: MODULE MODIFICA_TRANSF2
IF pressed_tab_2a EQ 'FS_MERC2' OR
/pws/zycie244-tipo EQ 'F'.
MODIFY itab_zycit279_ap TRANSPORTING mark qtd_transf transf nrseqd_d
WHERE matnr EQ /pws/zycie245-codcomp
AND nrseqdi EQ space.
ELSE.
* << Fim da inclusão
MODIFY itab_zycit279_ap TRANSPORTING mark qtd_transf transf nrseqd_d
* >> Início da exclusão: MODULE MODIFICA_TRANSF2
WHERE matnr EQ /pws/zycie245-codcomp.
* << Fim da exclusão
* >> Início da inclusão: MODULE MODIFICA_TRANSF2
WHERE matnr EQ /pws/zycie245-codcomp
AND nrseqdi NE space.
ENDIF.
* << Fim da inclusão
MODIFY itab_zycit279_ap_aux TRANSPORTING mark qtd_transf
...
...
WHERE nrseqd EQ /pws/zycie279-nrseqd_d
AND status EQ 'D'
AND modalidade EQ 'S'
AND ( tipo EQ 'C' OR tipo EQ 'G' ).
IF sy-subrc EQ 0.
IF wa_zycit244_tf-tipo EQ 'G'.
SELECT SINGLE * FROM /pws/zycit245 INTO wa_zycit245_tf
WHERE nrseqd EQ /pws/zycie279-nrseqd_d.
READ TABLE itab_zycit246_final WITH KEY
nrseq = itab_zycit279_ap_aux-nrseq
* >> Início da inclusão: MODULE MODIFICA_ATO_DEST
docnum = itab_zycit279_ap_aux-docnum
* << Fim da inclusão
ebeln = itab_zycit279_ap_aux-ebeln
ebelp = itab_zycit279_ap_aux-ebelp.
READ TABLE itab_zycit279_ap WITH KEY
nrseq = itab_zycit279_ap_aux-nrseq
* >> Início da inclusão: MODULE MODIFICA_ATO_DEST
docnum = itab_zycit279_ap_aux-docnum
* << Fim da inclusão
ebeln = itab_zycit279_ap_aux-ebeln
ebelp = itab_zycit279_ap_aux-ebelp.
IF itab_zycit246_final-i_txmoeda IS INITIAL.
...
...
MESSAGE i015 WITH text-274 .
ENDIF.
EXIT.
ENDIF.
ENDIF.
itab_zycit279_ap-nrseqd_d =
itab_zycit279_ap_aux-nrseqd_d = /pws/zycie279-nrseqd_d.
MODIFY itab_zycit279_ap_aux INDEX tc_transf-current_line.
MODIFY itab_zycit279_ap TRANSPORTING nrseqd_d
WHERE nrseq EQ itab_zycit279_ap_aux-nrseq
* >> Início da inclusão: MODULE MODIFICA_ATO_DEST
AND docnum EQ itab_zycit279_ap_aux-docnum
* << Fim da inclusão
AND ebeln EQ itab_zycit279_ap_aux-ebeln
AND ebelp EQ itab_zycit279_ap_aux-ebelp
AND qtd_transf > 0.
ENDMODULE.
MODULE user_command_0241 INPUT.
CASE ok_code.
WHEN 'CANC'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040O01
...
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'.
READ TABLE itab_zycit245 INDEX tc_cimp2-current_line.
IF sy-subrc EQ 0 AND NOT /pws/zycie245-j_1bnbm IS INITIAL.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE245-QTD_TOT'.
READ TABLE itab_zycit245 INDEX tc_cimp2-current_line.
* >> Início da exclusão: MODULE TRATA_SCREEN_0203
IF sy-subrc EQ 0 AND NOT /pws/zycie245-qtd_tot IS INITIAL
AND /pws/zycie244-tipo NE 'F' AND
/pws/zycit321-c_comum NE 'X'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
* << Fim da exclusão
ENDIF.
IF screen-name EQ '/PWS/ZYCIE245-QTD_ITEN' AND
v_agrup EQ '1'.
IF NOT /pws/zycie245-codcomp IS INITIAL AND
/pws/zycie245-qtd_iten IS INITIAL.
screen-input = 1.
ELSE.
screen-input = 0.
ENDIF.
MODIFY SCREEN.
...
...
AND land1 = 'BR'
AND steuc = /pws/zycie247c-j_1bnbm. "#EC CI_SGLSELECT
ENDSELECT.
ENDIF.
ENDIF.
ENDMODULE.
MODULE preenche_estrutura_0210 OUTPUT.
/pws/zycie246c-ebeln = itab_zycit246-ebeln .
/pws/zycie246c-ebelp = itab_zycit246-ebelp .
/pws/zycie246c-nrseqdi = itab_zycit246-nrseqdi .
* >> Início da inclusão: MODULE PREENCHE_ESTRUTURA_0210
/pws/zycie246c-docnum = itab_zycit246-docnum .
/pws/zycie246c-dtnf = itab_zycit246-dtnf .
/pws/zycie246c-nfnum = itab_zycit246-nfnum .
/pws/zycie246c-serie = itab_zycit246-serie .
* << Fim da inclusão
/pws/zycie246c-tpdi = itab_zycit246-tpdi .
/pws/zycie246c-dtdi = itab_zycit246-dtdi .
/pws/zycie246c-nrdi = itab_zycit246-nrdi .
/pws/zycie246c-meins = itab_zycit246-meins .
/pws/zycie246c-qtd_iten = itab_zycit246-qtd_iten .
/pws/zycie246c-um_ncm = itab_zycit246-um_ncm .
/pws/zycie246c-qtd_ncm = itab_zycit246-qtd_ncm .
/pws/zycie246c-qtd_nacion = itab_zycit246-qtd_nacion .
/pws/zycie246c-i_indice = itab_zycit246-i_indice .
/pws/zycie246c-i_waerscifme = itab_zycit246-i_waerscifme.
...
...
IF NOT /pws/zycie245c-codcomp IS INITIAL AND
/pws/zycie244-tipo NE 'G'.
CLEAR: v_descr_0210.
SELECT maktx UP TO 1 ROWS FROM makt INTO v_descr_0210
WHERE matnr = /pws/zycie245c-codcomp
AND spras = sy-langu.
ENDSELECT.
ENDIF.
CLEAR: /pws/zycie245c-netpr_t, /pws/zycie245c-qtd_iten,
/pws/zycie245c-meins.
* >> Início da inclusão: MODULE LOAD_TEXT_0210
IF pressed_tab_2a EQ 'FS_MERC2' OR
/pws/zycie244-tipo EQ 'F'.
/pws/zycie245c-waers = wa_zycbt007-waersb.
ELSE.
* << Fim da inclusão
/pws/zycie245c-waers = wa_zycbt007-waersa.
* >> Início da inclusão: MODULE LOAD_TEXT_0210
ENDIF.
* << Fim da inclusão
LOOP AT itab_zycit246 WHERE i_txselic NE space.
/pws/zycie245c-qtd_iten = /pws/zycie245c-qtd_iten +
itab_zycit246-qtd_nacion.
IF NOT itab_zycit246-um_ncm IS INITIAL.
/pws/zycie245c-meins = itab_zycit246-um_ncm.
ENDIF.
...
...
CASE screen-name.
WHEN '/PWS/ZYCIE245-TRANSF'.
screen-input = 0.
MODIFY SCREEN.
ENDCASE.
ENDLOOP.
LOOP AT tc_transf-cols INTO wa_cols2.
wa_cols2-screen-input = 0.
MODIFY tc_transf-cols FROM wa_cols2.
ENDLOOP.
* >> Início da inclusão: MODULE STATUS_0239
ENDIF.
LOOP AT tc_transf-cols INTO wa_cols2.
IF wa_cols2-screen-group2 EQ 'NF'.
IF pressed_tab_2a EQ 'FS_MERC2' OR
/pws/zycie244-tipo EQ 'F'.
wa_cols2-invisible = 0.
ELSE.
wa_cols2-invisible = 1.
ENDIF.
MODIFY tc_transf-cols FROM wa_cols2.
ENDIF.
IF wa_cols2-screen-group2 EQ 'DI'.
IF pressed_tab_2a EQ 'FS_MERC2' OR
/pws/zycie244-tipo EQ 'F'.
wa_cols2-invisible = 1.
ELSE.
wa_cols2-invisible = 0.
ENDIF.
MODIFY tc_transf-cols FROM wa_cols2.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: MODULE STATUS_0239
ENDLOOP.
* << Fim da inclusão
LOOP AT SCREEN.
CASE screen-name.
WHEN '/PWS/ZYCIE245-TRANSF'.
IF /pws/zycie245-transf IS INITIAL.
LOOP AT itab_zycit279_ap_aux WHERE qtd_transf > 0.
IF sy-subrc EQ 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040X01
...
INCLUDE STRUCTURE /pws/zycit250.
DATA: END OF itab_zycit250.
DATA: BEGIN OF itab_zycit245 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit245.
DATA: markci(1) TYPE c .
DATA: END OF itab_zycit245 .
DATA: BEGIN OF itab_zycit245_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit245 .
DATA: markci(1) TYPE c .
DATA: END OF itab_zycit245_aux .
* >> Início da inclusão:
DATA: BEGIN OF itab_zycit245t OCCURS 0.
INCLUDE STRUCTURE /pws/zycit245 .
DATA: markci(1) TYPE c .
DATA: END OF itab_zycit245t .
* << Fim da inclusão
DATA: BEGIN OF itab_zycit247 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit247 .
DATA: markme(1) TYPE c .
DATA: END OF itab_zycit247 .
DATA: BEGIN OF itab_zycit247_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit247 .
DATA: markme(1) TYPE c .
DATA: END OF itab_zycit247_aux .
DATA : BEGIN OF itab_lista OCCURS 0 .
DATA : matexp LIKE mara-matnr ,
...
...
v_vlseg TYPE p DECIMALS 2 ,
v_werks_ei TYPE /pws/zycie244-werks ,
v_nratoc TYPE /pws/zycie244-nratoc ,
v_listc ,
v_sld_compv TYPE p DECIMALS 5,
v_sld_compv2 TYPE p DECIMALS 5,
v_icoreal1 TYPE icons-text,
vltot_brl LIKE /pws/zycie246-vltot,
v_tcode2 LIKE sy-tcode .
DATA: v_icorealiz TYPE icons-text .
* >> Início da inclusão:
DATA: v_txtfrete(20) TYPE C .
DATA: v_txtseguro(20) TYPE C .
* << Fim da inclusão
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI040
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: EN
Símbolo: 207
Texto: (11 caracteres)
"Importation"
Comprimento máximo: 11
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 341
Texto: (11 caracteres)
"Valor Frete"
Comprimento máximo: 11
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 342
Texto: (9 caracteres)
"Nacionais"
Comprimento máximo: 15