CE PLUS - Nota 007601
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 19/11/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 15:46:14
Descrição da Nota: IMPLEMENTAÇÃO DA NAVEGABILIDADE NA LI, LSI E PLI
Sintoma
Implementação da Navegabilidade na LI, LSI, PLI
Solução
Implementação da Navegabilidade na LI, LSI, PLI
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07601 Data: 19/11/2008 Hora: 08:41:05
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07601
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00074
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
IMPLEMENTAÇÃO DA NAVEGABILIDADE NA LI, LSI E PLI
----------------------------------------------------------------------------------------------------
Palavras Chave:
NAVEGABILIDADE
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCI020
DYNP /PWS/SAPMZYCI020 0109
DYNP /PWS/SAPMZYCI020 0113
DYNP /PWS/SAPMZYCI020 0114
DYNP /PWS/SAPMZYCI020 0115
DYNP /PWS/SAPMZYCI020 0400
DYNP /PWS/SAPMZYCI020 0403
DYNP /PWS/SAPMZYCI020 0500
DYNP /PWS/SAPMZYCI020 0502
DYNP /PWS/SAPMZYCI020 0702
REPS /PWS/MZYCI020F02
REPS /PWS/MZYCI020I01
REPS /PWS/MZYCI020O01
REPS /PWS/MZYCI020TOP
REPS /PWS/MZYCI020X01
REPT /PWS/SAPMZYCI020
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI020
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI020 0109
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE079-NETPR" em tbl.contr./tabstr.
Texto _________________________V
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE079-NTGEW" em tbl.contr./tabstr.
Comprimento Visível 22
Linhas mínimas 18
Colunas mínimas 6
Texto ___.___.___.___,______
MODIFICAR TEXTO "/PWS/ZYCIE079-NTGEW" em tbl.contr./tabstr.
Texto Peso líquido
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE092-SLQTDE" em tbl.contr./tabstr.
Comprimento Visível 18
Texto _.___.___.___,___V
INCLUIR BOTÃO "BTN_CRES_LI"
Altura 2
Comprimento Visível 23
Linha 4
Coluna 21
Formato CHAR
Texto @3E\QOrdenar Crescente@
Código função BTN_CRES_LI
INCLUIR BOTÃO "BTN_DEC_LI"
Altura 2
Comprimento Visível 4
Linha 4
Coluna 24
Formato CHAR
Texto @3F@
Código função BTN_DEC_LI
INCLUIR BOTÃO "BTN_REP_LI"
Altura 2
Comprimento Visível 4
Linha 4
Coluna 27
Formato CHAR
Texto @5O@
Código função BTN_REP_LI
INCLUIR BOTÃO "POSI_LI"
Altura 20
Comprimento Visível 25
Linha 13
Coluna 26
Formato CHAR
Texto @3Y@ Posicionar...
Código função POSI_LI
INCLUIR CAMPO TEXTO "V_POSI"
Comprimento Visível 31
Linha 13
Coluna 50
Formato CHAR
Texto _______________________________
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI020 0113
INCLUIR TELA 0113
Descrição CI - Itens LI - Replicar
Tela seguinte 0113
Altura atual (linhas) 22
Largura atual (colunas) 84
INCLUIR BOTÃO "BOT_SELE"
Altura 2
Comprimento Visível 4
Linha 1
Coluna 2
Formato CHAR
Texto @4B@
Código função CHECK
INCLUIR BOTÃO "BOT_DES"
Altura 2
Comprimento Visível 4
Linha 1
Coluna 5
Formato CHAR
Texto @4D@
Código função UNCHECK
INCLUIR CONTROLE DE TABELA "TC_IREP"
Altura 9
Comprimento Visível 81
Linha 2
Coluna 2
INCLUIR TEXTO "TXTTIT" em tbl.contr./tabstr.
Altura 32
Comprimento Visível 5
Linha 1
Formato CHAR
Texto Itens
INCLUIR TEXTO "TXTTT02" em tbl.contr./tabstr.
Altura 12
Comprimento Visível 6
Linha 1
Coluna 1
Formato CHAR
Texto Pedido
INCLUIR TEXTO "TXTTT03" em tbl.contr./tabstr.
Altura 11
Comprimento Visível 4
Linha 1
Coluna 2
Formato CHAR
Texto Item
INCLUIR TEXTO "T_DESC" em tbl.contr./tabstr.
Altura 34
Comprimento Visível 9
Linha 1
Coluna 3
Formato CHAR
Texto Descrição
INCLUIR TEXTO "T_MATNR" em tbl.contr./tabstr.
Altura 18
Comprimento Visível 8
Linha 1
Coluna 4
Formato CHAR
Texto Material
INCLUIR CAIXA DE VERIFICAÇÃO "ITAB_ITC-MARK" em tbl.contr./tabstr.
Altura 1
Comprimento Visível 1
Linha 1
Formato CHAR
Texto _
INCLUIR CAMPO TEXTO "ITAB_ITC-EBELN" em tbl.contr./tabstr.
Altura 12
Comprimento Visível 10
Linha 1
Coluna 1
Formato CHAR
Texto __________
INCLUIR CAMPO TEXTO "ITAB_ITC-EBELP" em tbl.contr./tabstr.
Altura 11
Comprimento Visível 5
Linha 1
Coluna 2
Formato NUMC
Texto _____
INCLUIR CAMPO TEXTO "ITAB_ITC-DESCR" em tbl.contr./tabstr.
Altura 34
Comprimento Visível 40
Linha 1
Coluna 3
Formato CHAR
Texto ________________________________________
INCLUIR CAMPO TEXTO "ITAB_ITC-MATNR" em tbl.contr./tabstr.
Altura 18
Comprimento Visível 18
Linha 1
Coluna 4
Formato CHAR
Texto __________________
INCLUIR FRAME "QD2"
Altura 4
Comprimento Visível 52
Linha 12
Coluna 13
Formato CHAR
Código função
INCLUIR CAIXA DE VERIFICAÇÃO "S_ONTGEW"
Comprimento Visível 1
Linha 13
Coluna 15
Formato CHAR
Texto _
INCLUIR CHTXT "S_ONTGEW"
Comprimento Visível 12
Linha 13
Coluna 17
Formato CHAR
Texto Peso líquido
INCLUIR CAIXA DE VERIFICAÇÃO "S_OESPEC"
Comprimento Visível 1
Linha 14
Coluna 15
Formato CHAR
Texto _
INCLUIR CHTXT "S_OESPEC"
Comprimento Visível 13
Linha 14
Coluna 17
Formato CHAR
Texto Especificação
INCLUIR OKCODE ""
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0113
* >> Início da inclusão:
process before output.
module: screen_lines,
set_screen.
loop at itab_itc with control tc_irep.
endloop.
process after input.
loop at itab_itc.
module: modi_dataitc.
endloop.
module: user_command.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI020 0114
INCLUIR TELA 0114
Descrição CI - Itens PLI - Replicar
Tela seguinte 0114
Altura atual (linhas) 22
Largura atual (colunas) 84
INCLUIR BOTÃO "BOT_SELE"
Altura 2
Comprimento Visível 4
Linha 1
Coluna 2
Formato CHAR
Texto @4B@
Código função CHECK
INCLUIR BOTÃO "BOT_DES"
Altura 2
Comprimento Visível 4
Linha 1
Coluna 5
Formato CHAR
Texto @4D@
Código função UNCHECK
INCLUIR CONTROLE DE TABELA "TC_IREPI"
Altura 9
Comprimento Visível 81
Linha 2
Coluna 2
INCLUIR TEXTO "TXTTIT" em tbl.contr./tabstr.
Altura 32
Comprimento Visível 5
Linha 1
Formato CHAR
Texto Itens
INCLUIR TEXTO "TXTTT02" em tbl.contr./tabstr.
Altura 12
Comprimento Visível 6
Linha 1
Coluna 1
Formato CHAR
Texto Pedido
INCLUIR TEXTO "TXTTT03" em tbl.contr./tabstr.
Altura 11
Comprimento Visível 4
Linha 1
Coluna 2
Formato CHAR
Texto Item
INCLUIR TEXTO "T_DESC" em tbl.contr./tabstr.
Altura 34
Comprimento Visível 9
Linha 1
Coluna 3
Formato CHAR
Texto Descrição
INCLUIR TEXTO "T_MATNR" em tbl.contr./tabstr.
Altura 18
Comprimento Visível 8
Linha 1
Coluna 4
Formato CHAR
Texto Material
INCLUIR CAIXA DE VERIFICAÇÃO "ITAB_ITCI-MARK" em tbl.contr./tabstr.
Altura 1
Comprimento Visível 1
Linha 1
Formato CHAR
Texto _
INCLUIR CAMPO TEXTO "ITAB_ITCI-EBELN" em tbl.contr./tabstr.
Altura 12
Comprimento Visível 10
Linha 1
Coluna 1
Formato CHAR
Texto __________
INCLUIR CAMPO TEXTO "ITAB_ITCI-EBELP" em tbl.contr./tabstr.
Altura 11
Comprimento Visível 5
Linha 1
Coluna 2
Formato NUMC
Texto _____
INCLUIR CAMPO TEXTO "ITAB_ITCI-DESCR" em tbl.contr./tabstr.
Altura 34
Comprimento Visível 40
Linha 1
Coluna 3
Formato CHAR
Texto ________________________________________
INCLUIR CAMPO TEXTO "ITAB_ITCI-MATNR" em tbl.contr./tabstr.
Altura 18
Comprimento Visível 18
Linha 1
Coluna 4
Formato CHAR
Texto __________________
INCLUIR FRAME "QD2"
Altura 4
Comprimento Visível 52
Linha 12
Coluna 13
Formato CHAR
Código função
INCLUIR CAIXA DE VERIFICAÇÃO "S_ONTGEW"
Comprimento Visível 1
Linha 13
Coluna 15
Formato CHAR
Texto _
INCLUIR CHTXT "S_ONTGEW"
Comprimento Visível 12
Linha 13
Coluna 17
Formato CHAR
Texto Peso líquido
INCLUIR CAIXA DE VERIFICAÇÃO "S_OESPEC"
Comprimento Visível 1
Linha 14
Coluna 15
Formato CHAR
Texto _
INCLUIR CHTXT "S_OESPEC"
Comprimento Visível 5
Linha 14
Coluna 17
Formato CHAR
Texto Fator
INCLUIR OKCODE ""
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0114
* >> Início da inclusão:
process before output.
module: screen_lines,
set_screen.
loop at itab_itci with control tc_irepi.
endloop.
process after input.
loop at itab_itci.
module: modi_dataitc.
endloop.
module: user_command.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI020 0115
INCLUIR TELA 0115
Descrição CI - Itens LSI - Replicar
Tela seguinte 0115
Altura atual (linhas) 22
Largura atual (colunas) 84
INCLUIR BOTÃO "BOT_SELE"
Altura 2
Comprimento Visível 4
Linha 1
Coluna 2
Formato CHAR
Texto @4B@
Código função CHECK
INCLUIR BOTÃO "BOT_DES"
Altura 2
Comprimento Visível 4
Linha 1
Coluna 5
Formato CHAR
Texto @4D@
Código função UNCHECK
INCLUIR CONTROLE DE TABELA "TC_IREPIP"
Altura 9
Comprimento Visível 81
Linha 2
Coluna 2
INCLUIR TEXTO "TXTTIT" em tbl.contr./tabstr.
Altura 32
Comprimento Visível 5
Linha 1
Formato CHAR
Texto Itens
INCLUIR TEXTO "TXTTT02" em tbl.contr./tabstr.
Altura 12
Comprimento Visível 6
Linha 1
Coluna 1
Formato CHAR
Texto Pedido
INCLUIR TEXTO "TXTTT03" em tbl.contr./tabstr.
Altura 11
Comprimento Visível 4
Linha 1
Coluna 2
Formato CHAR
Texto Item
INCLUIR TEXTO "T_DESC" em tbl.contr./tabstr.
Altura 34
Comprimento Visível 9
Linha 1
Coluna 3
Formato CHAR
Texto Descrição
INCLUIR TEXTO "T_MATNR" em tbl.contr./tabstr.
Altura 18
Comprimento Visível 8
Linha 1
Coluna 4
Formato CHAR
Texto Material
INCLUIR CAIXA DE VERIFICAÇÃO "ITAB_ITCIP-MARK" em tbl.contr./tabstr.
Altura 1
Comprimento Visível 1
Linha 1
Formato CHAR
Texto _
INCLUIR CAMPO TEXTO "ITAB_ITCIP-EBELN" em tbl.contr./tabstr.
Altura 12
Comprimento Visível 10
Linha 1
Coluna 1
Formato CHAR
Texto __________
INCLUIR CAMPO TEXTO "ITAB_ITCIP-EBELP" em tbl.contr./tabstr.
Altura 11
Comprimento Visível 5
Linha 1
Coluna 2
Formato NUMC
Texto _____
INCLUIR CAMPO TEXTO "ITAB_ITCIP-DESCR" em tbl.contr./tabstr.
Altura 34
Comprimento Visível 40
Linha 1
Coluna 3
Formato CHAR
Texto ________________________________________
INCLUIR CAMPO TEXTO "ITAB_ITCIP-MATNR" em tbl.contr./tabstr.
Altura 18
Comprimento Visível 18
Linha 1
Coluna 4
Formato CHAR
Texto __________________
INCLUIR FRAME "QD2"
Altura 7
Comprimento Visível 72
Linha 12
Coluna 6
Formato CHAR
Código função
INCLUIR CAIXA DE VERIFICAÇÃO "S_ODESTAQUE"
Comprimento Visível 1
Linha 13
Coluna 8
Formato CHAR
Texto _
INCLUIR CHTXT "S_ODESTAQUE"
Comprimento Visível 8
Linha 13
Coluna 10
Formato CHAR
Texto Destaque
INCLUIR CAIXA DE VERIFICAÇÃO "S_OPART_NUM"
Comprimento Visível 1
Linha 13
Coluna 43
Formato CHAR
Texto _
INCLUIR CHTXT "S_OPART_NUM"
Comprimento Visível 19
Linha 13
Coluna 45
Formato CHAR
Texto Part number do item
INCLUIR CAIXA DE VERIFICAÇÃO "S_OFABRIC"
Comprimento Visível 1
Linha 14
Coluna 8
Formato CHAR
Texto _
INCLUIR CHTXT "S_OFABRIC"
Comprimento Visível 18
Linha 14
Coluna 10
Formato CHAR
Texto Tipo de fabricante
INCLUIR CAIXA DE VERIFICAÇÃO "S_OMAT_PRIMA_B"
Comprimento Visível 1
Linha 14
Coluna 43
Formato CHAR
Texto _
INCLUIR CHTXT "S_OMAT_PRIMA_B"
Comprimento Visível 20
Linha 14
Coluna 45
Formato CHAR
Texto Matéria-prima básica
INCLUIR CAIXA DE VERIFICAÇÃO "S_OESPEC"
Comprimento Visível 1
Linha 15
Coluna 8
Formato CHAR
Texto _
INCLUIR CHTXT "S_OESPEC"
Comprimento Visível 13
Linha 15
Coluna 10
Formato CHAR
Texto Especificação
INCLUIR CAIXA DE VERIFICAÇÃO "S_OALAD"
Comprimento Visível 1
Linha 15
Coluna 43
Formato CHAR
Texto _
INCLUIR CHTXT "S_OALAD"
Comprimento Visível 5
Linha 15
Coluna 45
Formato CHAR
Texto Aladi
INCLUIR CAIXA DE VERIFICAÇÃO "S_OESPECT"
Comprimento Visível 1
Linha 16
Coluna 8
Formato CHAR
Texto _
INCLUIR CHTXT "S_OESPECT"
Comprimento Visível 21
Linha 16
Coluna 10
Formato CHAR
Texto Especificação técnica
INCLUIR CAIXA DE VERIFICAÇÃO "S_OCODTARIF"
Comprimento Visível 1
Linha 16
Coluna 43
Formato CHAR
Texto _
INCLUIR CHTXT "S_OCODTARIF"
Comprimento Visível 22
Linha 16
Coluna 45
Formato CHAR
Texto Tipo acordo tarifário
INCLUIR CAIXA DE VERIFICAÇÃO "S_OREF_FABR"
Comprimento Visível 1
Linha 17
Coluna 8
Formato CHAR
Texto _
INCLUIR CHTXT "S_OREF_FABR"
Comprimento Visível 24
Linha 17
Coluna 10
Formato CHAR
Texto Referência do fabricante
INCLUIR CAIXA DE VERIFICAÇÃO "S_ONALADI"
Comprimento Visível 1
Linha 17
Coluna 43
Formato CHAR
Texto _
INCLUIR CHTXT "S_ONALADI"
Comprimento Visível 6
Linha 17
Coluna 45
Formato CHAR
Texto Naladi
INCLUIR OKCODE ""
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0115
* >> Início da inclusão:
process before output.
module: screen_lines,
set_screen.
loop at itab_itcip with control tc_irepip.
endloop.
process after input.
loop at itab_itcip.
module: modi_dataitc.
endloop.
module: user_command.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI020 0400
MODIFICAR OKCODE "OKCODE"
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0400
process before output.
module: carrega_editor,
find_nrseqli ,
status_0400 ,
load_data ,
set_screen_400,
* >> Início da exclusão:
status_custom.
* << Fim da exclusão
* >> Início da inclusão:
status_custom,
atualiza_posicao.
* << Fim da inclusão
call subscreen ss_basic_lsi including syst-cprog '0401'.
call subscreen ss_bem including syst-cprog '0402'.
call subscreen SS_COMP including syst-cprog '0120'.
process after input.
field /PWS/ZYCIE078-BUKRS module authority_empresa.
field /pws/zycie078-nrseq module verfi_emb_lsi .
field /pws/zycie078-bukrs module load_required7.
field /pws/zycie078-j_1bbranch module load_required8.
field /pws/zycie078-identify module load_required9.
call subscreen ss_basic_lsi.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI020 0403
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE079-NTGEW" em tbl.contr./tabstr.
Comprimento Visível 22
Linhas mínimas 18
Colunas mínimas 6
Texto ___.___.___.___,______
MODIFICAR TEXTO "/PWS/ZYCIE079-NTGEW" em tbl.contr./tabstr.
Texto Peso líquido
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE092-SLQTDE" em tbl.contr./tabstr.
Comprimento Visível 18
Texto _.___.___.___,___V
INCLUIR BOTÃO "BTN_CRES_LSI"
Altura 2
Comprimento Visível 25
Linha 1
Coluna 17
Formato CHAR
Texto @3E\QOrdenar Crescente@ #
Código função BTN_CRES_LSI
INCLUIR BOTÃO "BTN_DEC_LSI"
Altura 2
Comprimento Visível 6
Linha 1
Coluna 20
Formato CHAR
Texto @3F@ #
Código função BTN_DEC_LSI
INCLUIR BOTÃO "BTN_REP_LSI"
Altura 2
Comprimento Visível 4
Linha 1
Coluna 23
Formato CHAR
Texto @5O@
Código função BTN_REP_LSI
INCLUIR BOTÃO "POSI_LSI"
Altura 20
Comprimento Visível 25
Linha 15
Coluna 21
Formato CHAR
Texto @3Y@ Posicionar...
Código função POSI_LSI
INCLUIR CAMPO TEXTO "V_POSI"
Comprimento Visível 31
Linha 15
Coluna 46
Formato CHAR
Texto _______________________________
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI020 0500
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0500
process before output.
module: carrega_editor,
find_nrseqpli ,
status_0500 ,
load_data_pli ,
set_screen_500,
* >> Início da exclusão:
status_custom.
* << Fim da exclusão
* >> Início da inclusão:
status_custom,
atualiza_posicao.
* << Fim da inclusão
call subscreen ss_basica including syst-cprog '0501'.
call subscreen ss_mer including syst-cprog '0502'.
call subscreen ss_dados including syst-cprog '0503'.
call subscreen ss_info including syst-cprog '0505'.
call subscreen ss_comp including syst-cprog '0120'.
process after input.
field /PWS/ZYCIE078-BUKRS module authority_empresa.
field /pws/zycie078-j_1bbranch module incr_sufra.
call subscreen ss_basica.
call subscreen ss_mer.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI020 0502
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE078-VLTOT"
Coluna 89
MODIFICAR TEXTO "/PWS/ZYCIE078-VLTOT"
Coluna 73
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE079-NTGEW" em tbl.contr./tabstr.
Altura 17
Comprimento Visível 22
Linhas mínimas 18
Colunas mínimas 6
Texto ___.___.___.___,______
MODIFICAR TEXTO "/PWS/ZYCIE079-NTGEW" em tbl.contr./tabstr.
Texto Peso líquido
INCLUIR BOTÃO "BTN_CRES_PLI"
Altura 2
Comprimento Visível 4
Linha 1
Coluna 19
Formato CHAR
Texto @3F@
Código função BTN_CRES_PLI
INCLUIR BOTÃO "BTN_DEC_PLI"
Altura 2
Comprimento Visível 4
Linha 1
Coluna 22
Formato CHAR
Texto @3E@
Código função BTN_DEC_PLI
INCLUIR BOTÃO "POSI_PLI"
Altura 20
Comprimento Visível 25
Linha 16
Coluna 14
Formato CHAR
Texto @3Y@ Posicionar...
Código função POSI_PLI
INCLUIR BOTÃO "REP_PLII"
Altura 2
Comprimento Visível 4
Linha 1
Coluna 25
Formato CHAR
Texto @5O@
Código função REP_PLII
INCLUIR CAMPO TEXTO "V_POSI"
Comprimento Visível 31
Linha 16
Coluna 38
Formato CHAR
Texto _______________________________
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI020 0702
INCLUIR 0702
Descrição SEL_SCREEN 0702 INFO:14000038000000000000000000
Tela seguinte 0702
Altura atual (linhas) 200
Largura atual (colunas) 85
INCLUIR CAMPO TEXTO "%_SI_EBN_%_APP_%-TEXT"
Altura 30
Comprimento Visível 30
Linha 1
Coluna 2
Formato CHAR
Grupo 3 TXT
Grupo 4 001
Código função
INCLUIR CAMPO TEXTO "%_SI_EBN_%_APP_%-OPTI_PUSH"
Altura 2
Comprimento Visível 40
Linha 1
Coluna 33
Formato CHAR
Grupo 3 OPU
Grupo 4 001
Código função
INCLUIR CAMPO TEXTO "SI_EBN-LOW"
Altura 10
Comprimento Visível 10
Linha 1
Coluna 36
Formato CHAR
Grupo 3 LOW
Grupo 4 001
Texto __________
Código função
INCLUIR CAMPO TEXTO "%_SI_EBP_%_APP_%-TEXT"
Altura 30
Comprimento Visível 30
Linha 2
Coluna 2
Formato CHAR
Grupo 3 TXT
Grupo 4 002
Código função
INCLUIR CAMPO TEXTO "%_SI_EBP_%_APP_%-OPTI_PUSH"
Altura 2
Comprimento Visível 40
Linha 2
Coluna 33
Formato CHAR
Grupo 3 OPU
Grupo 4 002
Código função
INCLUIR CAMPO TEXTO "SI_EBP-LOW"
Altura 5
Comprimento Visível 5
Linha 2
Coluna 36
Formato NUMC
Grupo 3 LOW
Grupo 4 002
Texto _____
Código função
INCLUIR CAMPO TEXTO "%_SI_DENOM_%_APP_%-TEXT"
Altura 30
Comprimento Visível 30
Linha 3
Coluna 2
Formato CHAR
Grupo 3 TXT
Grupo 4 003
Código função
INCLUIR CAMPO TEXTO "%_SI_DENOM_%_APP_%-OPTI_PUSH"
Altura 2
Comprimento Visível 40
Linha 3
Coluna 33
Formato CHAR
Grupo 3 OPU
Grupo 4 003
Código função
INCLUIR CAMPO TEXTO "SI_DENOM-LOW"
Altura 18
Comprimento Visível 40
Linha 3
Coluna 36
Formato CHAR
Grupo 3 LOW
Grupo 4 003
Texto ________________________________________
Código função
INCLUIR CAMPO TEXTO "%_SI_QTD_%_APP_%-TEXT"
Altura 30
Comprimento Visível 30
Linha 4
Coluna 2
Formato CHAR
Grupo 3 TXT
Grupo 4 004
Código função
INCLUIR CAMPO TEXTO "%_SI_QTD_%_APP_%-OPTI_PUSH"
Altura 2
Comprimento Visível 40
Linha 4
Coluna 33
Formato CHAR
Grupo 3 OPU
Grupo 4 004
Código função
INCLUIR CAMPO TEXTO "SI_QTD-LOW"
Altura 18
Comprimento Visível 19
Linha 4
Coluna 36
Formato DEC
Grupo 3 LOW
Grupo 4 004
Colunas mínimas 5
Texto ___________________
Código função
INCLUIR CAMPO TEXTO "%_SI_UM_%_APP_%-TEXT"
Altura 30
Comprimento Visível 30
Linha 5
Coluna 2
Formato CHAR
Grupo 3 TXT
Grupo 4 005
Código função
INCLUIR CAMPO TEXTO "%_SI_UM_%_APP_%-OPTI_PUSH"
Altura 2
Comprimento Visível 40
Linha 5
Coluna 33
Formato CHAR
Grupo 3 OPU
Grupo 4 005
Código função
INCLUIR CAMPO TEXTO "SI_UM-LOW"
Altura 3
Comprimento Visível 3
Linha 5
Coluna 36
Formato UNIT
Grupo 3 LOW
Grupo 4 005
Texto ___
Código função
INCLUIR CAMPO TEXTO "%_SI_WRS_%_APP_%-TEXT"
Altura 30
Comprimento Visível 30
Linha 6
Coluna 2
Formato CHAR
Grupo 3 TXT
Grupo 4 006
Código função
INCLUIR CAMPO TEXTO "%_SI_WRS_%_APP_%-OPTI_PUSH"
Altura 2
Comprimento Visível 40
Linha 6
Coluna 33
Formato CHAR
Grupo 3 OPU
Grupo 4 006
Código função
INCLUIR CAMPO TEXTO "SI_WRS-LOW"
Altura 5
Comprimento Visível 5
Linha 6
Coluna 36
Formato CUKY
Grupo 3 LOW
Grupo 4 006
Texto _____
Código função
INCLUIR CAMPO TEXTO "%_SI_STEUC_%_APP_%-TEXT"
Altura 30
Comprimento Visível 30
Linha 7
Coluna 2
Formato CHAR
Grupo 3 TXT
Grupo 4 007
Código função
INCLUIR CAMPO TEXTO "%_SI_STEUC_%_APP_%-OPTI_PUSH"
Altura 2
Comprimento Visível 40
Linha 7
Coluna 33
Formato CHAR
Grupo 3 OPU
Grupo 4 007
Código função
INCLUIR CAMPO TEXTO "SI_STEUC-LOW"
Altura 16
Comprimento Visível 16
Linha 7
Coluna 36
Formato CHAR
Grupo 3 LOW
Grupo 4 007
Texto ________________
Código função
INCLUIR CAMPO TEXTO "%_SI_DESC_%_APP_%-TEXT"
Altura 30
Comprimento Visível 30
Linha 8
Coluna 2
Formato CHAR
Grupo 3 TXT
Grupo 4 008
Código função
INCLUIR CAMPO TEXTO "%_SI_DESC_%_APP_%-OPTI_PUSH"
Altura 2
Comprimento Visível 40
Linha 8
Coluna 33
Formato CHAR
Grupo 3 OPU
Grupo 4 008
Código função
INCLUIR CAMPO TEXTO "SI_DESC-LOW"
Altura 18
Comprimento Visível 45
Linha 8
Coluna 36
Formato CHAR
Grupo 3 LOW
Grupo 4 008
Texto _____________________________________________
Código função
INCLUIR CAMPO TEXTO "%_SI_NUMLI_%_APP_%-TEXT"
Altura 30
Comprimento Visível 30
Linha 9
Coluna 2
Formato CHAR
Grupo 3 TXT
Grupo 4 009
Código função
INCLUIR CAMPO TEXTO "%_SI_NUMLI_%_APP_%-OPTI_PUSH"
Altura 2
Comprimento Visível 40
Linha 9
Coluna 33
Formato CHAR
Grupo 3 OPU
Grupo 4 009
Código função
INCLUIR CAMPO TEXTO "SI_NUMLI-LOW"
Altura 10
Comprimento Visível 10
Linha 9
Coluna 36
Formato CHAR
Grupo 3 LOW
Grupo 4 009
Texto __________
Código função
INCLUIR CAMPO TEXTO "%_SI_NRLI_%_APP_%-TEXT"
Altura 30
Comprimento Visível 30
Linha 10
Coluna 2
Formato CHAR
Grupo 3 TXT
Grupo 4 010
Código função
INCLUIR CAMPO TEXTO "%_SI_NRLI_%_APP_%-OPTI_PUSH"
Altura 2
Comprimento Visível 40
Linha 10
Coluna 33
Formato CHAR
Grupo 3 OPU
Grupo 4 010
Código função
INCLUIR CAMPO TEXTO "SI_NRLI-LOW"
Altura 12
Comprimento Visível 12
Linha 10
Coluna 36
Formato CHAR
Grupo 3 LOW
Grupo 4 010
Texto ____________
Código função
INCLUIR CAMPO TEXTO "%_SI_FATOR_%_APP_%-TEXT"
Altura 30
Comprimento Visível 30
Linha 11
Coluna 2
Formato CHAR
Grupo 3 TXT
Grupo 4 011
Código função
INCLUIR CAMPO TEXTO "%_SI_FATOR_%_APP_%-OPTI_PUSH"
Altura 2
Comprimento Visível 40
Linha 11
Coluna 33
Formato CHAR
Grupo 3 OPU
Grupo 4 011
Código função
INCLUIR CAMPO TEXTO "SI_FATOR-LOW"
Altura 5
Comprimento Visível 5
Linha 11
Coluna 36
Formato CHAR
Grupo 3 LOW
Grupo 4 011
Texto _____
Código função
INCLUIR CAMPO TEXTO "%_SI_QTDES_%_APP_%-TEXT"
Altura 30
Comprimento Visível 30
Linha 12
Coluna 2
Formato CHAR
Grupo 3 TXT
Grupo 4 012
Código função
INCLUIR CAMPO TEXTO "%_SI_QTDES_%_APP_%-OPTI_PUSH"
Altura 2
Comprimento Visível 40
Linha 12
Coluna 33
Formato CHAR
Grupo 3 OPU
Grupo 4 012
Código função
INCLUIR CAMPO TEXTO "SI_QTDES-LOW"
Altura 18
Comprimento Visível 19
Linha 12
Coluna 36
Formato DEC
Grupo 3 LOW
Grupo 4 012
Colunas mínimas 5
Texto ___________________
Código função
INCLUIR CAMPO TEXTO "%_SI_ZUM_%_APP_%-TEXT"
Altura 30
Comprimento Visível 30
Linha 13
Coluna 2
Formato CHAR
Grupo 3 TXT
Grupo 4 013
Código função
INCLUIR CAMPO TEXTO "%_SI_ZUM_%_APP_%-OPTI_PUSH"
Altura 2
Comprimento Visível 40
Linha 13
Coluna 33
Formato CHAR
Grupo 3 OPU
Grupo 4 013
Código função
INCLUIR CAMPO TEXTO "SI_ZUM-LOW"
Altura 2
Comprimento Visível 2
Linha 13
Coluna 36
Formato CHAR
Grupo 3 LOW
Grupo 4 013
Texto __
Código função
INCLUIR CAMPO TEXTO "%_SI_CODSU_%_APP_%-TEXT"
Altura 30
Comprimento Visível 30
Linha 14
Coluna 2
Formato CHAR
Grupo 3 TXT
Grupo 4 014
Código função
INCLUIR CAMPO TEXTO "%_SI_CODSU_%_APP_%-OPTI_PUSH"
Altura 2
Comprimento Visível 40
Linha 14
Coluna 33
Formato CHAR
Grupo 3 OPU
Grupo 4 014
Código função
INCLUIR CAMPO TEXTO "SI_CODSU-LOW"
Altura 4
Comprimento Visível 4
Linha 14
Coluna 36
Formato NUMC
Grupo 3 LOW
Grupo 4 014
Texto ____
Código função
INCLUIR TEXTO "%_14SNS0000630303_%_%_%_%_%_%_"
Comprimento Visível 1
Linha 15
Coluna 2
Formato CHAR
Grupo 4 SRI
Texto -
INCLUIR OKCODE "SSCRFIELDS-UCOMM"
* Tela gerada automaticamente
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0702
* >> Início da inclusão:
PROCESS BEFORE OUTPUT.
MODULE %_INIT_PBO.
MODULE PBO_REPORT.
MODULE %_PF_STATUS.
MODULE !SI_EBN.
MODULE !SI_EBP.
MODULE !SI_DENOM.
MODULE !SI_QTD.
MODULE !SI_UM.
MODULE !SI_WRS.
MODULE !SI_STEUC.
MODULE !SI_DESC.
MODULE !SI_NUMLI.
MODULE !SI_NRLI.
MODULE !SI_FATOR.
MODULE !SI_QTDES.
MODULE !SI_ZUM.
MODULE !SI_CODSU.
MODULE %_END_OF_PBO.
PROCESS AFTER INPUT.
MODULE %_BACK AT EXIT-COMMAND.
MODULE %_INIT_PAI.
CHAIN.
FIELD SI_EBN-LOW.
MODULE !SI_EBN .
ENDCHAIN.
CHAIN.
FIELD SI_EBP-LOW.
MODULE !SI_EBP .
ENDCHAIN.
CHAIN.
FIELD SI_DENOM-LOW.
MODULE !SI_DENOM .
ENDCHAIN.
CHAIN.
FIELD SI_QTD-LOW.
MODULE !SI_QTD .
ENDCHAIN.
CHAIN.
FIELD SI_UM-LOW.
MODULE !SI_UM .
ENDCHAIN.
CHAIN.
FIELD SI_WRS-LOW.
MODULE !SI_WRS .
ENDCHAIN.
CHAIN.
FIELD SI_STEUC-LOW.
MODULE !SI_STEUC .
ENDCHAIN.
CHAIN.
FIELD SI_DESC-LOW.
MODULE !SI_DESC .
ENDCHAIN.
CHAIN.
FIELD SI_NUMLI-LOW.
MODULE !SI_NUMLI .
ENDCHAIN.
CHAIN.
FIELD SI_NRLI-LOW.
MODULE !SI_NRLI .
ENDCHAIN.
CHAIN.
FIELD SI_FATOR-LOW.
MODULE !SI_FATOR .
ENDCHAIN.
CHAIN.
FIELD SI_QTDES-LOW.
MODULE !SI_QTDES .
ENDCHAIN.
CHAIN.
FIELD SI_ZUM-LOW.
MODULE !SI_ZUM .
ENDCHAIN.
CHAIN.
FIELD SI_CODSU-LOW.
MODULE !SI_CODSU .
ENDCHAIN.
CHAIN.
FIELD SI_EBN-LOW.
FIELD SI_EBP-LOW.
FIELD SI_DENOM-LOW.
FIELD SI_QTD-LOW.
FIELD SI_UM-LOW.
FIELD SI_WRS-LOW.
FIELD SI_STEUC-LOW.
FIELD SI_DESC-LOW.
FIELD SI_NUMLI-LOW.
FIELD SI_NRLI-LOW.
FIELD SI_FATOR-LOW.
FIELD SI_QTDES-LOW.
FIELD SI_ZUM-LOW.
FIELD SI_CODSU-LOW.
MODULE END_OF_SCREEN.
MODULE %_OK_CODE_1000.
ENDCHAIN.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
ddlanguage = 'P' AND
domvalue_l = p_valor.
IF sy-subrc EQ 0.
p_texto = dd07t-ddtext.
ENDIF.
ENDFORM.
FORM load_opcb.
PERFORM texto_dominio USING '/PWS/ZYCID053' /pws/zycie085-contropcb
CHANGING s_opcb.
ENDFORM.
* >> Início da inclusão:
form trata_posicao
USING
v_prog.
IF v_prog = 'LSI' OR v_prog = 'LII'.
LOOP AT it_zycit079 WHERE ebelp IN so_ebp
AND ebeln IN so_ebn
AND descr IN so_denom
AND qtd_iten IN so_qtd
AND meins IN so_um
AND ntgew IN so_ntgew
AND gewei IN so_gewei
AND waers IN so_wrs.
v_tabix = sy-tabix.
ENDLOOP.
IF sy-subrc = 0.
IF v_prog = 'LSI'.
TC_ITEM_LSI-top_line = v_tabix.
ENDIF.
IF v_prog = 'LII'.
TC_ITEM-top_line = v_tabix.
ENDIF.
nextline = v_tabix.
LEAVE TO SCREEN 0 .
ENDIF.
ENDIF.
IF v_prog = 'PLI'.
LOOP AT it_zycit079 WHERE ebelp IN si_ebp
AND ebeln IN si_ebn
AND descr IN si_denom
AND qtd_iten IN si_qtd
AND meins IN si_um
AND waers IN si_wrs
AND numli IN si_numli
AND nrli IN si_nrli
AND fator IN si_fator
AND zum IN si_zum
AND codsufra IN si_codsu
AND qtdest IN si_qtdes
AND steuc1 IN si_steuc.
v_tabix = sy-tabix.
ENDLOOP.
IF sy-subrc = 0.
TC_ITEM_PLI-top_line = v_tabix.
nextline = v_tabix.
LEAVE TO SCREEN 0 .
ENDIF.
ENDIF.
endform.
form user_command_0113.
CASE sy-ucomm.
WHEN 'CHECK'.
IF sy-dynnr EQ '0113' OR
sy-dynnr EQ '0114'.
s_ontgew = s_oespec = 'X'.
ENDIF .
IF sy-dynnr EQ '0115'.
s_odestaque = s_ofabric = s_oespec = s_oespect =
s_oref_fabr = s_opart_num = s_omat_prima_b =
s_oalad = s_ocodtarif = s_onaladi = 'X'.
ENDIF.
WHEN 'UNCHECK'.
IF sy-dynnr EQ '0113' OR
sy-dynnr EQ '0114'.
s_ontgew = s_oespec = space.
ENDIF.
IF sy-dynnr EQ '0115'.
s_odestaque = s_ofabric = s_oespec = s_oespect =
s_oref_fabr = s_opart_num = s_omat_prima_b =
s_oalad = s_ocodtarif = s_onaladi = space.
ENDIF.
WHEN 'BTN_SELEP'.
LOOP AT itab_itcip.
itab_itcip-mark = 'X'.
MODIFY itab_itcip.
ENDLOOP.
WHEN 'BTN_DESP'.
LOOP AT itab_itcip.
itab_itcip-mark = space.
MODIFY itab_itcip.
ENDLOOP.
WHEN 'BTN_SELE'.
LOOP AT itab_itci.
itab_itci-mark = 'X'.
MODIFY itab_itci.
ENDLOOP.
WHEN 'BTN_DES'.
LOOP AT itab_itci.
itab_itci-mark = space.
MODIFY itab_itci.
ENDLOOP.
WHEN 'SELE'.
LOOP AT itab_itc.
itab_itc-mark = 'X'.
MODIFY itab_itc.
ENDLOOP.
WHEN 'DES' .
IF sy-dynnr EQ '0113'.
LOOP AT itab_itc.
itab_itc-mark = space.
MODIFY itab_itc.
ENDLOOP.
ENDIF.
IF sy-dynnr EQ '0114'.
LOOP AT itab_itci.
itab_itci-mark = space.
MODIFY itab_itci.
ENDLOOP.
ENDIF.
IF sy-dynnr EQ '0115'.
LOOP AT itab_itcip.
itab_itcip-mark = space.
MODIFY itab_itcip.
ENDLOOP.
ENDIF.
WHEN 'ENTER'.
IF sy-dynnr EQ '0113'.
READ TABLE itab_itc WITH KEY mark = 'X'.
IF SY-SUBRC <> '0'.
MESSAGE i015 WITH text-450.
EXIT.
ENDIF.
ENDIF.
IF sy-dynnr EQ '0114'.
READ TABLE itab_itci WITH KEY mark = 'X'.
IF SY-SUBRC <> '0'.
MESSAGE i015 WITH text-450.
EXIT.
ENDIF.
ENDIF.
IF sy-dynnr EQ '0115'.
READ TABLE itab_itcip WITH KEY mark = 'X'.
IF SY-SUBRC <> '0'.
MESSAGE i015 WITH text-450.
EXIT.
ENDIF.
ENDIF.
PERFORM comm_repl.
SET SCREEN 0.
LEAVE SCREEN.
WHEN 'BACK'.
SET SCREEN 0.
LEAVE SCREEN.
ENDCASE.
endform.
form comm_repl.
DATA: v_tabix LIKE sy-tabix.
IF sy-dynnr EQ '0113'.
IF NOT s_ontgew IS INITIAL OR
NOT s_oespec IS INITIAL.
READ TABLE it_zycit079 WITH KEY mark = 'X'.
IF sy-subrc = 0.
MOVE it_zycit079 TO wa_zycit079.
IF NOT s_oespec IS INITIAL.
CONCATENATE wa_zycit079-nrseqli wa_zycit079-ebeln
wa_zycit079-ebelp INTO v_txtki.
PERFORM preenche_thead USING wa_thead 'CE01'.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = wa_thead-tdid
language = wa_thead-tdspras
name = v_txtki
object = wa_thead-tdobject
archive_handle = 0
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.
ENDIF.
ELSE.
MESSAGE i015 WITH text-450.
ENDIF.
LOOP AT itab_itc WHERE NOT mark IS initial.
READ TABLE it_zycit079 WITH KEY
ebeln = itab_itc-ebeln
ebelp = itab_itc-ebelp.
IF sy-subrc = 0.
IF NOT s_ontgew IS INITIAL OR
NOT s_oespec IS INITIAL.
IF NOT s_ontgew IS INITIAL .
it_zycit079-ntgew = wa_zycit079-ntgew.
ENDIF.
IF NOT s_oespec IS INITIAL.
MOVE it_zycit079 TO /pws/zycie079a.
PERFORM save_txt_2.
ENDIF.
ENDIF.
ENDIF.
MODIFY it_zycit079 INDEX sy-tabix.
ENDLOOP.
ELSE.
MESSAGE i015 WITH text-449.
ENDIF.
ENDIF.
IF sy-dynnr EQ '0114'.
IF NOT s_ontgew IS INITIAL OR
NOT s_oespec IS INITIAL.
READ TABLE it_zycit079 WITH KEY mark = 'X'.
IF sy-subrc = 0.
MOVE it_zycit079 TO wa_zycit079.
ELSE.
MESSAGE i015 WITH text-450.
ENDIF.
LOOP AT itab_itci WHERE NOT mark IS initial.
READ TABLE it_zycit079 WITH KEY
ebeln = itab_itci-ebeln
ebelp = itab_itci-ebelp.
v_tabix = sy-tabix.
IF sy-subrc = 0.
IF NOT s_ontgew IS INITIAL .
it_zycit079-ntgew = wa_zycit079-ntgew.
ENDIF.
IF NOT s_oespec IS INITIAL.
it_zycit079-fator = wa_zycit079-fator.
ENDIF.
ENDIF.
MODIFY it_zycit079 INDEX v_tabix.
ENDLOOP.
ELSE.
MESSAGE i015 WITH text-449.
ENDIF.
ENDIF.
IF sy-dynnr EQ '0115'.
IF NOT s_odestaque IS INITIAL OR
NOT s_ofabric IS INITIAL OR
NOT s_oespec IS INITIAL OR
NOT s_oespect IS INITIAL OR
NOT s_oref_fabr IS INITIAL OR
NOT s_opart_num IS INITIAL OR
NOT s_omat_prima_b IS INITIAL OR
NOT s_oalad IS INITIAL OR
NOT s_ocodtarif IS INITIAL OR
NOT s_onaladi IS INITIAL.
IF NOT s_oespec IS INITIAL.
READ TABLE it_zycit079 WITH KEY mark = 'X'.
IF sy-subrc = 0.
MOVE it_zycit079 TO wa_zycit079.
IF NOT s_oespec IS INITIAL.
CONCATENATE wa_zycit079-nrseqli wa_zycit079-ebeln
wa_zycit079-ebelp INTO v_txtki.
PERFORM preenche_thead USING wa_thead 'CE01'.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = wa_thead-tdid
language = wa_thead-tdspras
name = v_txtki
object = wa_thead-tdobject
archive_handle = 0
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.
ENDIF.
ELSE.
MESSAGE i015 WITH text-450.
ENDIF.
LOOP AT itab_itcip WHERE NOT mark IS initial.
READ TABLE it_zycit079 WITH KEY
ebeln = itab_itcip-ebeln
ebelp = itab_itcip-ebelp.
v_tabix = sy-tabix.
IF sy-subrc = 0.
IF NOT s_ontgew IS INITIAL .
it_zycit079-ntgew = wa_zycit079-ntgew.
ENDIF.
IF NOT s_oespec IS INITIAL.
MOVE it_zycit079 TO /pws/zycie079a.
PERFORM save_txt_2.
ENDIF.
ENDIF.
MODIFY it_zycit079 INDEX sy-tabix.
ENDLOOP.
ENDIF.
LOOP AT itab_itcip WHERE NOT mark IS initial.
READ TABLE it_zycit079 WITH KEY
ebeln = itab_itcip-ebeln
ebelp = itab_itcip-ebelp.
IF sy-subrc = 0.
v_tabix = sy-tabix.
IF NOT s_odestaque IS INITIAL.
it_zycit079-destaque = /PWS/ZYCIE079A-destaque.
ENDIF.
IF NOT s_ofabric IS INITIAL.
it_zycit079-fabric = /PWS/ZYCIE079A-fabric.
ENDIF.
IF NOT s_oespect IS INITIAL.
it_zycit079-espec_tecnica = /PWS/ZYCIE079A-espec_tecnica.
ENDIF.
IF NOT s_oref_fabr IS INITIAL.
it_zycit079-ref_fabricante = /PWS/ZYCIE079A-ref_fabricante.
ENDIF.
IF NOT s_opart_num IS INITIAL.
it_zycit079-part_number = /PWS/ZYCIE079A-part_number.
ENDIF.
IF NOT s_omat_prima_b IS INITIAL.
it_zycit079-mat_prima_basica =
/PWS/ZYCIE079A-mat_prima_basica.
ENDIF.
IF NOT s_oalad IS INITIAL.
it_zycit079-aladi = /PWS/ZYCIE079A-ALADI.
ENDIF.
IF NOT s_ocodtarif IS INITIAL.
it_zycit079-codtarif = /PWS/ZYCIE079A-codtarif.
ENDIF.
IF NOT s_onaladi IS INITIAL.
it_zycit079-naladi = /PWS/ZYCIE079A-naladi.
ENDIF.
ENDIF.
MODIFY it_zycit079 INDEX v_tabix.
ENDLOOP.
ELSE.
MESSAGE i015 WITH text-449.
ENDIF.
ENDIF.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020I01
...
PERFORM comm_cli.
WHEN 'TRANSM'.
PERFORM: envio_dados,
send.
WHEN 'VERIFY'.
PERFORM: verify_transm.
WHEN 'PRECRI'.
CALL SCREEN '0111'.
WHEN 'EXIT'.
LEAVE PROGRAM.
* >> Início da inclusão: MODULE USER_COMMAND_0100
WHEN 'POSI_LI'.
v_prog = 'LII'.
CALL SELECTION-SCREEN 0701 STARTING AT 3 5.
WHEN 'BTN_REP_LI'.
CLEAR itab_itc . REFRESH itab_itc.
DESCRIBE TABLE it_zycit079 LINES v_line.
IF v_line EQ '1'.
MESSAGE s015 WITH text-447.
ELSE.
READ TABLE it_zycit079 WITH KEY mark = 'X'.
IF sy-subrc EQ 0.
LOOP AT it_zycit079 WHERE mark EQ space.
MOVE it_zycit079 TO itab_itc.
APPEND itab_itc.
ENDLOOP.
s_ontgew = s_oespec = space .
CALL SCREEN '0113' STARTING AT 5 2.
ELSE.
MESSAGE s015 WITH text-448.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDCASE.
ENDIF.
CLEAR okcode.
ENDMODULE.
MODULE user_command_0001 INPUT.
WRITE /pws/zycie078-nrseqli TO /pws/zycie078-nrseqli RIGHT-JUSTIFIED.
OVERLAY /pws/zycie078-nrseqli WITH '0000000000'.
CASE okcode.
WHEN 'ENTE'.
PERFORM carrega_dados.
...
...
DESCRIBE TABLE it_zycit079 LINES v_ip.
READ TABLE it_zycit079 INDEX v_ip.
MOVE-CORRESPONDING it_zycit079 TO /pws/zycie079a.
PERFORM load_descri_suframa.
PERFORM load_desc_fabr.
CLEAR v_esp.
CLEAR rtexti.
REFRESH rtexti.
WHEN 'FORN'.
CALL SCREEN '0504'.
* >> Início da inclusão: MODULE USER_COMMAND_0200
WHEN 'REP_PLI'.
PERFORM DESMARCA_TODOS.
READ TABLE it_zycit079 WITH KEY
ebeln = /PWS/ZYCIE079A-ebeln
ebelp = /PWS/ZYCIE079A-ebelp.
it_zycit079-MARK = 'X'.
MODIFY it_zycit079 TRANSPORTING mark
WHERE ebeln = /PWS/ZYCIE079A-ebeln
AND ebelp = /PWS/ZYCIE079A-ebelp.
CLEAR itab_itcip . REFRESH itab_itcip.
DESCRIBE TABLE it_zycit079 LINES v_line.
IF v_line EQ '1'.
MESSAGE s015 WITH text-447.
ELSE.
READ TABLE it_zycit079 WITH KEY mark = 'X'.
IF sy-subrc EQ 0.
LOOP AT it_zycit079 WHERE mark EQ space.
MOVE it_zycit079 TO itab_itcip.
APPEND itab_itcip.
ENDLOOP.
s_odestaque = s_ofabric = s_oespec = s_oespect =
s_oref_fabr = s_opart_num = s_omat_prima_b =
s_oalad = s_ocodtarif = s_onaladi = space.
CALL SCREEN '0115' STARTING AT 5 2.
ELSE.
MESSAGE s015 WITH text-448.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDCASE.
CLEAR okcode.
ENDMODULE.
MODULE atual_item INPUT.
IF ( v_tcode NE '/PWS/ZYCI020_E' OR
v_tcode NE '/PWS/ZYCI020_R' OR
v_tcode NE '/PWS/ZYCI020_L' ) OR
NOT /pws/zycie078-dtreg EQ '00000000'.
IF ( okcode NE 'P-' AND okcode NE 'P--' AND
okcode NE 'P+' AND okcode NE 'P++' AND NOT okcode IS INITIAL ).
...
...
PERFORM comm_cli.
WHEN 'DESVINLSI'.
PERFORM desvin_li.
WHEN 'TRANSM'.
PERFORM: envio_dados,
send.
WHEN 'VERIFY'.
PERFORM: verify_transm.
WHEN 'PRECRI'.
CALL SCREEN '0111'.
* >> Início da inclusão: MODULE USER_COMMAND_0400
WHEN 'BTN_CRES_LSI'.
CLEAR: v_ordena.
LOOP AT tc_item_lsi-cols INTO wa_cols
WHERE selected EQ 'X'.
v_ordena = wa_cols-screen-name+14 .
ENDLOOP.
IF NOT v_ordena IS INITIAL.
SORT it_zycit079 ASCENDING BY (v_ordena).
ENDIF.
WHEN 'BTN_DEC_LSI'.
CLEAR: v_ordena.
LOOP AT tc_item_lsi-cols INTO wa_cols
WHERE selected EQ 'X'.
v_ordena = wa_cols-screen-name+14 .
ENDLOOP.
IF NOT v_ordena IS INITIAL.
SORT it_zycit079 DESCENDING BY (v_ordena).
ENDIF.
WHEN 'POSI_LSI'.
v_prog = 'LSI'.
CALL SELECTION-SCREEN 0701 STARTING AT 3 5.
WHEN 'BTN_REP_LSI'.
CLEAR itab_itci . REFRESH itab_itci.
DESCRIBE TABLE it_zycit079 LINES v_line.
IF v_line EQ '1'.
MESSAGE s015 WITH text-447.
ELSE.
READ TABLE it_zycit079 WITH KEY mark = 'X'.
IF sy-subrc EQ 0.
LOOP AT it_zycit079 WHERE mark EQ space.
MOVE it_zycit079 TO itab_itci.
APPEND itab_itci.
ENDLOOP.
s_ontgew = s_oespec = space .
CALL SCREEN '0114' STARTING AT 5 2.
ELSE.
MESSAGE s015 WITH text-448.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDCASE.
ENDIF.
CLEAR okcode.
ENDMODULE.
MODULE altera_it_zycit079_400 INPUT.
MOVE:
/pws/zycie079-ebeln TO it_zycit079-ebeln ,
/pws/zycie079-ebelp TO it_zycit079-ebelp ,
/pws/zycie079-descr TO it_zycit079-descr ,
/pws/zycie079-numli TO it_zycit079-numli ,
...
...
WHERE ebeln = it_zycit079-ebeln
AND ebelp = it_zycit079-ebeln
AND nrseqd NE space. "#EC CI_NOFIRST
IF sy-subrc EQ 0.
v_subrc = sy-subrc.
EXIT.
ENDIF.
ENDLOOP.
IF v_subrc EQ 0 AND NOT /pws/zycit000-flagdraw IS INITIAL.
MESSAGE s015 WITH text-401 text-402.
* >> Início da inclusão: MODULE USER_COMMAND_0109
ENDIF.
ENDIF.
WHEN 'BTN_CRES_LI'.
CLEAR: v_ordena.
LOOP AT TC_ITEM-cols INTO wa_cols
WHERE selected EQ 'X'.
v_ordena = wa_cols-screen-name+14 .
ENDLOOP.
IF NOT v_ordena IS INITIAL.
SORT it_zycit079 ASCENDING BY (v_ordena).
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: MODULE USER_COMMAND_0109
WHEN 'BTN_DEC_LI'.
CLEAR: v_ordena.
LOOP AT TC_ITEM-cols INTO wa_cols
WHERE selected EQ 'X'.
v_ordena = wa_cols-screen-name+14 .
ENDLOOP.
IF NOT v_ordena IS INITIAL.
SORT it_zycit079 DESCENDING BY (v_ordena).
* << Fim da inclusão
ENDIF.
ENDCASE.
ENDMODULE.
MODULE atual_cabec_110 INPUT.
IF NOT /pws/zycie078-ntgew IS INITIAL.
/pws/zycie078-gewei = 'KG'.
ELSEIF /pws/zycie078-ntgew IS INITIAL.
/pws/zycie078-gewei = ' '.
ENDIF.
ENDMODULE.
...
...
MESSAGE e261(sf) WITH 'ME23N'.
ENDIF.
ENDIF.
ENDIF.
ELSEIF v_campo EQ '/PWS/ZYCIE079-NUMLI'.
SET PARAMETER ID '/PWS/ZYCIP078' FIELD v_valor.
CALL TRANSACTION '/PWS/ZYCI020_E'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
ELSE.
MESSAGE s015 WITH text-051.
* >> Início da inclusão: MODULE USER_COMMAND_0502
ENDIF.
WHEN 'BTN_CRES_PLI'.
CLEAR: v_ordena.
LOOP AT tc_item_pli-cols INTO wa_cols
WHERE selected EQ 'X'.
v_ordena = wa_cols-screen-name+14 .
ENDLOOP.
IF NOT v_ordena IS INITIAL.
IF v_ordena = 'DESCRICAO'.
v_ordena = 'DESCR'.
ENDIF.
SORT it_zycit079 ASCENDING BY (v_ordena).
ENDIF.
WHEN 'BTN_DEC_PLI'.
CLEAR: v_ordena.
LOOP AT tc_item_pli-cols INTO wa_cols
WHERE selected EQ 'X'.
v_ordena = wa_cols-screen-name+14 .
ENDLOOP.
IF NOT v_ordena IS INITIAL.
IF v_ordena = 'DESCRICAO'.
v_ordena = 'DESCR'.
ENDIF.
SORT it_zycit079 DESCENDING BY (v_ordena).
ENDIF.
WHEN 'REP_PLII'.
CLEAR itab_itci . REFRESH itab_itci.
DESCRIBE TABLE it_zycit079 LINES v_line.
IF v_line EQ '1'.
MESSAGE s015 WITH text-447.
ELSE.
READ TABLE it_zycit079 WITH KEY mark = 'X'.
IF sy-subrc EQ 0.
LOOP AT it_zycit079 WHERE mark EQ space.
MOVE it_zycit079 TO itab_itci.
APPEND itab_itci.
ENDLOOP.
s_ontgew = s_oespec = space .
CALL SCREEN '0114' STARTING AT 5 2.
ELSE.
MESSAGE s015 WITH text-448.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDCASE.
ENDMODULE.
MODULE user_command_0002 INPUT.
CLEAR v_matnr.
WRITE /pws/zycie078-nrseqli TO /pws/zycie078-nrseqli RIGHT-JUSTIFIED.
OVERLAY /pws/zycie078-nrseqli WITH '0000000000'.
CASE okcode.
WHEN 'ENTE'.
SELECT SINGLE * FROM /pws/zycit078
...
...
CALL SCREEN '0950' STARTING AT 3 3 ENDING AT 59 5.
WHEN 'SVLI'.
PERFORM comm_savepli.
PERFORM save_li.
/pws/zycie078-flagpli = 'X'.
PERFORM comm_savepli.
WHEN 'EXCLI'.
/pws/zycie078-flagpli = 'X'.
PERFORM exclui_li.
PERFORM comm_savepli.
* >> Início da inclusão: MODULE USER_COMMAND_0500
WHEN 'POSI_PLI'.
v_prog = 'PLI'.
CALL SELECTION-SCREEN 0702 STARTING AT 3 5.
* << Fim da inclusão
ENDCASE.
ENDIF.
CLEAR okcode.
IF /pws/zycie078-aplicpli EQ '2' AND ittxt1[] IS INITIAL.
ittxt1-line = text-429.
APPEND ittxt1.
CALL METHOD editor2->set_text_as_r3table EXPORTING
table = ittxt1[].
ENDIF.
ENDMODULE.
...
...
tc_item-top_line = sy-tabix.
nextline = sy-tabix.
ENDIF.
LEAVE TO SCREEN 0.
ENDIF.
WHEN 'CANCEL'.
LEAVE TO SCREEN 0.
ENDCASE.
CLEAR okcode.
ENDMODULE.
* >> Início da inclusão:
module modi_dataitc input.
CASE sy-dynnr.
WHEN '0113'.
MODIFY itab_itc INDEX tc_irep-current_line .
WHEN '0114'.
MODIFY itab_itci INDEX tc_irepi-current_line .
WHEN '0115'.
MODIFY itab_itcip INDEX tc_irepip-current_line .
ENDCASE.
endmodule.
module user_command input.
PERFORM user_command_0113.
endmodule.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020O01
...
MODULE status_0200 OUTPUT.
SET PF-STATUS '0200'.
SET TITLEBAR '0200'.
* >> Início da inclusão:
CLEAR it_code.
REFRESH it_code.
IF v_tcode EQ '/PWS/ZYCI020_C' OR
v_tcode EQ '/PWS/ZYCI020_A' OR
v_tcode EQ '/PWS/ZYCI020_E'.
it_code-fcode = 'REP_PLI'.
APPEND it_code.
SET PF-STATUS '0200' EXCLUDING it_code.
ENDIF.
* << Fim da inclusão
ENDMODULE. " STATUS_0200 OUTPUT
...
...
'LI002'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'LI002' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
ENDMODULE.
* >> Início da inclusão:
module screen_lines output.
CASE sy-dynnr.
WHEN '0113'.
SET TITLEBAR '0113'.
SET PF-STATUS '0113'.
DESCRIBE TABLE itab_itc LINES v_line.
tc_irep-lines = v_line.
WHEN '0114'.
SET TITLEBAR '0114'.
SET PF-STATUS '0114'.
DESCRIBE TABLE itab_itci LINES v_line.
tc_irepi-lines = v_line.
WHEN '0115'.
SET TITLEBAR '0115'.
SET PF-STATUS '0115'.
DESCRIBE TABLE itab_itcip LINES v_line.
tc_irepip-lines = v_line.
ENDCASE.
endmodule.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020TOP
...
tc_item_lsi TYPE TABLEVIEW USING SCREEN 403,
tc_item_pli TYPE TABLEVIEW USING SCREEN 502,
tc_dest TYPE TABLEVIEW USING SCREEN 522,
tc_anu_pli TYPE TABLEVIEW USING SCREEN 506,
tc_adicao TYPE TABLEVIEW USING SCREEN 700,
tc_vin_lsi TYPE TABLEVIEW USING SCREEN 710,
tc_vincula TYPE TABLEVIEW USING SCREEN 800,
tc_vinculato TYPE TABLEVIEW USING SCREEN 810,
tc_doc TYPE TABLEVIEW USING SCREEN 003,
tc_log3 TYPE TABLEVIEW USING SCREEN 131.
* >> Início da inclusão:
CONTROLS: tc_irep TYPE TABLEVIEW USING SCREEN 0113.
CONTROLS: tc_irepi TYPE TABLEVIEW USING SCREEN 0114.
CONTROLS: tc_irepip TYPE TABLEVIEW USING SCREEN 0115.
* << Fim da inclusão
DATA: wa_cols TYPE cxtab_column.
SELECTION-SCREEN BEGIN OF SCREEN 0300.
PARAMETERS: pa_bukrs LIKE /pws/zycie078-bukrs DEFAULT
/pws/zycie078-bukrs.
SELECT-OPTIONS:
so_ncm FOR /pws/zycie078-steuc1
NO-EXTENSION NO INTERVALS,
so_waers FOR /pws/zycie078-waers
NO-EXTENSION NO INTERVALS,
so_inco1 FOR /pws/zycie078-inco1
NO-EXTENSION NO INTERVALS,
so_nrseq FOR /pws/zycie078-nrseq
NO-EXTENSION NO INTERVALS,
so_bednr FOR /pws/zycit079-bednr
NO-EXTENSION NO INTERVALS,
so_aedat FOR ekko-aedat,
so_ebeln FOR ekko-ebeln,
so_ebelp FOR ekpo-ebelp,
so_matnr FOR ekpo-matnr.
SELECTION-SCREEN END OF SCREEN 0300.
* >> Início da inclusão:
SELECTION-SCREEN BEGIN OF SCREEN 0701.
SELECT-OPTIONS:
so_ebn FOR /pws/zycie079-ebeln
NO INTERVALS NO-EXTENSION,
so_ebp FOR /pws/zycie079-ebelp
NO INTERVALS NO-EXTENSION,
so_denom FOR /pws/zycie079-descr
NO INTERVALS NO-EXTENSION,
so_qtd FOR /pws/zycie079-qtd_iten
NO INTERVALS NO-EXTENSION,
so_um FOR /pws/zycie079-meins
NO INTERVALS NO-EXTENSION,
so_ntgew FOR /pws/zycie079-ntgew
NO INTERVALS NO-EXTENSION,
so_gewei FOR /pws/zycie079-gewei
NO INTERVALS NO-EXTENSION,
so_wrs FOR /pws/zycie079-waers
NO INTERVALS NO-EXTENSION.
SELECTION-SCREEN END OF SCREEN 0701.
SELECTION-SCREEN BEGIN OF SCREEN 0702.
SELECT-OPTIONS:
si_ebn FOR /pws/zycie079-ebeln
NO INTERVALS NO-EXTENSION,
si_ebp FOR /pws/zycie079-ebelp
NO INTERVALS NO-EXTENSION,
si_denom FOR /pws/zycie079-descr
NO INTERVALS NO-EXTENSION,
si_qtd FOR /pws/zycie079-qtd_iten
NO INTERVALS NO-EXTENSION,
si_um FOR /pws/zycie079-meins
NO INTERVALS NO-EXTENSION,
si_wrs FOR /pws/zycie079-waers
NO INTERVALS NO-EXTENSION,
si_steuc FOR /pws/zycie079-steuc1
NO INTERVALS NO-EXTENSION,
si_desc FOR /pws/zycit181-descricao
NO INTERVALS NO-EXTENSION,
si_numli FOR /pws/zycie079-numli
NO INTERVALS NO-EXTENSION,
si_nrli FOR /pws/zycie079-nrli
NO INTERVALS NO-EXTENSION,
si_fator FOR /pws/zycie079-fator
NO INTERVALS NO-EXTENSION,
si_qtdes FOR /pws/zycie079-qtdest
NO INTERVALS NO-EXTENSION,
si_zum FOR /pws/zycie079-zum
NO INTERVALS NO-EXTENSION,
si_codsu FOR /pws/zycie079-codsufra
NO INTERVALS NO-EXTENSION.
SELECTION-SCREEN END OF SCREEN 0702.
* << Fim da inclusão
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF screen-name EQ 'SO_NRSEQ-LOW'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
IF screen-name EQ 'SO_EBELN-LOW'.
IF NOT wa_impress IS INITIAL.
screen-input = '0'.
MODIFY SCREEN.
...
...
( screen-name EQ 'SO_INCO1-LOW' AND
NOT /pws/zycie078-inco1 IS INITIAL ) OR
( screen-name EQ 'PA_BUKRS' ).
screen-input = '0'.
MODIFY SCREEN.
ELSE.
screen-input = '1'.
ENDIF.
ENDLOOP.
AT SELECTION-SCREEN.
* >> Início da inclusão:
CASE sy-dynnr .
WHEN '0701'.
PERFORM trata_posicao
USING v_prog.
WHEN '0702'.
PERFORM trata_posicao
USING v_prog.
ENDCASE.
* << Fim da inclusão
CASE sy-ucomm.
WHEN 'CRET'.
PERFORM: selecionar_itens,
verifica_itens.
LEAVE TO SCREEN 0.
ENDCASE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020X01
...
* >> Início da inclusão:
DATA: v_ordena(132) TYPE c.
DATA: v_prog(3) TYPE c.
DATA : wa_itb LIKE it_zycit079,
itab_itc like it_zycit079 occurs 0 with header line,
itab_itci like it_zycit079 occurs 0 with header line,
itab_itcip like it_zycit079 occurs 0 with header line.
DATA: s_ontgew,
s_oespec,
s_odestaque,
s_ofabric,
s_oespect,
s_oref_fabr,
s_opart_num,
s_omat_prima_b,
s_oalad,
s_ocodtarif,
s_onaladi.
* << Fim da inclusão
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI020
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 240
Texto: (7 caracteres)
"Entrada"
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 241
Texto: (2 caracteres)
"de"
Comprimento máximo: 2
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 447
Texto: (22 caracteres)
"Contém apenas um item."
Comprimento máximo: 132
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 448
Texto: (37 caracteres)
"É necessário marcar um item primeiro."
Comprimento máximo: 37
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 449
Texto: (27 caracteres)
"Uma opção deve ser marcada."
Comprimento máximo: 132
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 450
Texto: (36 caracteres)
"É necessário marcar um item primeiro"
Comprimento máximo: 36
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SI_CODSU
Texto: (20 caracteres)
"Cod. Suframa"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SI_DENOM
Texto: (19 caracteres)
"Denominação"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SI_DESC
Texto: (17 caracteres)
"Descrição"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SI_EBN
Texto: (14 caracteres)
"Pedido"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SI_EBP
Texto: (12 caracteres)
"Item"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SI_FATOR
Texto: (13 caracteres)
"Fator"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SI_NRLI
Texto: (17 caracteres)
"Número LI"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SI_NUMLI
Texto: (24 caracteres)
"Número LI Criada"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SI_QTD
Texto: (21 caracteres)
"Qtd. embarque"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SI_QTDES
Texto: (24 caracteres)
"Qtd. estatística"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SI_STEUC
Texto: (11 caracteres)
"NCM"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SI_UM
Texto: (17 caracteres)
"UM pedido"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SI_WRS
Texto: (13 caracteres)
"Moeda"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SI_ZUM
Texto: (32 caracteres)
"Unid. medida estatística"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_DENOM
Texto: (19 caracteres)
"Denominaçã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_GEWEI
Texto: (23 caracteres)
"Unidade de peso"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_NTGEW
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: (21 caracteres)
"Qtd. embarque"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_UM
Texto: (17 caracteres)
"UM pedido"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_WRS
Texto: (13 caracteres)
"Moeda"
Referência ao Dictionary: NÃO