CE PLUS - Nota 007544
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 06/11/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 15:24:41
Descrição da Nota: MELHORIAS DE NAVEGABILIDADE NO EMBARQUE
Sintoma
Melhorias de navegabilidade no embarque
Solução
Acrescentar melhorias de navegabilidade no embarque, tais como ordenação, posicionamento, replicação
de informações.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07544 Data: 06/11/2008 Hora: 14:36:29
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07544
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00072
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04091 - 00001 - 7.0 - 00002 - NA CRIAÇÃO DA NF, NÃO TRAZ O VALOR DO PESO BRUTO VINDO DA DI.
06175 - 00002 - 7.0 - 00004 - AJUSTE PARA VERIFICAR ESTORNO DOS DOCUMENTOS DE RECEBIMENTO FORA
07020 - 00003 - 7.0 - 00006 - CRIAR TABELA DE LOG PARA EXCLUSÕES
07282 - 00004 - 7.0 - 00006 - AO ELIMINAR A DI DE GRANEL, NÃO HABILITA QTDE DESEMBARCADA NO EMB
07466 - 00005 - 7.0 - 00007 - CÁLCULO DAS ALÍQUOTAS PARA PROCESSO DE ADMISSÃO TEMPORÁRIA
----------------------------------------------------------------------------------------------------
MELHORIAS DE NAVEGABILIDADE NO EMBARQUE
----------------------------------------------------------------------------------------------------
Palavras Chave:
MELHORIAS - EMBARQUE - NAVEGABILIDADE
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCI001
DYNP /PWS/SAPMZYCI001 0002
DYNP /PWS/SAPMZYCI001 0102
DYNP /PWS/SAPMZYCI001 0113
DYNP /PWS/SAPMZYCI001 0114
REPS /PWS/MZYCI001F01
REPS /PWS/MZYCI001F02
REPS /PWS/MZYCI001F03
REPS /PWS/MZYCI001I01
REPS /PWS/MZYCI001O01
REPS /PWS/MZYCI001TOP
REPS /PWS/MZYCI001X01
REPS /PWS/MZYCI017F01
REPS /PWS/MZYCI017F02
REPS /PWS/MZYCI017F03
REPS /PWS/MZYCI017X01
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F03
REPT /PWS/SAPMZYCI001
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI001
Criação do status gui
Status 0113
Tipo D
Code de objeto 000017
Code de objeto 000021
0001
Descrição CI - Replicação de dados
Status 0114
Tipo D
Code de objeto 000019
Code de objeto 000023
0001
Descrição CI - Replicação detalhe do item
Criação das teclas de função
Texto informativo Teclas de função
Código de função Tecla F Tecla de função Código de função Texto
00 ENTER ENTER Selecionar
06 F6 BTN_SELE Select All
07 F7 BTN_DES Deselect
27 Ctrl-F3 BACK Voltar
Teclas de função CI - Detalhe do Item
Código de função Tecla F Tecla de função Código de função Texto
000005 22 Shift-Ctrl REPLIC Replicar dados
Texto informativo Teclas de função CI - Replicação de dados
Código de função Tecla F Tecla de função Código de função Texto
000021 00 ENTER ENTER Selecionar
000021 02 F2 ENTER Selecionar
000021 03 F3 BACK Voltar
000021 06 F6 SELE Selecionar
000021 07 F7 DES Deselect
000021 27 Ctrl-F3 BACK Voltar
000021 28 Ctrl-F4 LEAVE Encerrar
Texto informativo Teclas de função CI - Replicação detalhe do item
Código de função Tecla F Tecla de função Código de função Texto
000023 00 ENTER ENTER Selecionar
000023 03 F3 BACK Voltar
000023 06 F6 BTN_SELE Select All
000023 07 F7 BTN_DES Deselect
000023 08 F8 ENTER Selecionar
000023 27 Ctrl-F3 BACK Voltar
Texto informativo Botões
Code de objeto Code Item Tecla de função Código de função Id
0001 01 ENTER ENTER
Texto informativo Botões
Code de objeto Code Item Tecla de função Código de função Id
0002 01 ENTER ENTER
0002 02 Ctrl-F3 BACK
Texto informativo Botões CI - Replicação de dados
Code de objeto Code Item Tecla de função Código de função Id
Exibição Texto de ícones
000021 0001 01 F2 ENTER
000021 0001 02 F3 BACK
000021 0001 04 F6 SELE
000021 0001 05 F7 DES
Texto informativo Botões CI - Replicação detalhe do item
Code de objeto Code Item Tecla de função Código de função Id
Exibição Texto de ícones
000023 0001 01 F8 ENTER
000023 0001 02 Ctrl-F3 BACK
000023 0001 04 F6 BTN_SELE
000023 0001 05 F7 BTN_DES
ìcones
Código de função Categoria Res. Nome campo p/texto GUI dinâmico
BACK E ICON_ARROW_LEFT
BTM_SELE ICON_SELECT_ALL
BTN_DES
BTN_SEL ICON_SELECT_ALL
BTN_SELE
CHECK ICON_SELECT_ALL
REPLIC ICON_WORKFLOW_FORK
SELE ICON_SELECT_ALL
UNCHECK ICON_DESELECT_ALL
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI001 0002
INCLUIR CAMPO TEXTO "/PWS/ZYCIE003-DESCR"
Comprimento Visível 40
Linha 5
Coluna 29
Formato CHAR
Linhas mínimas 40
Texto ________________________________________
INCLUIR TEXTO "/PWS/ZYCIE003-DESCR"
Comprimento Visível 13
Linha 5
Coluna 11
Formato CHAR
Texto Descrição:
Código função
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE003-EBELN"
Linha 2
Coluna 29
MODIFICAR TEXTO "/PWS/ZYCIE003-EBELN"
Linha 2
Coluna 11
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE003-EBELP"
Linha 3
Coluna 29
MODIFICAR TEXTO "/PWS/ZYCIE003-EBELP"
Linha 3
Coluna 11
INCLUIR CAMPO TEXTO "/PWS/ZYCIE003-J_1BNBM"
Comprimento Visível 16
Linha 14
Coluna 29
Formato CHAR
Linhas mínimas 16
Texto ________________
Código função
INCLUIR TEXTO "/PWS/ZYCIE003-J_1BNBM"
Comprimento Visível 4
Linha 14
Coluna 11
Formato CHAR
Texto NCM:
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE003-LIFNR"
Comprimento Visível 10
Linha 13
Coluna 29
Formato CHAR
Linhas mínimas 10
Texto __________
Código função
INCLUIR TEXTO "/PWS/ZYCIE003-LIFNR"
Comprimento Visível 11
Linha 13
Coluna 11
Formato CHAR
Texto Fornecedor:
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE003-LIFNRFABR"
Comprimento Visível 10
Linha 15
Coluna 29
Formato CHAR
Linhas mínimas 10
Texto __________
Código função
INCLUIR TEXTO "/PWS/ZYCIE003-LIFNRFABR"
Comprimento Visível 11
Linha 15
Coluna 11
Formato CHAR
Texto Fabricante:
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE003-MATNR"
Comprimento Visível 18
Linha 4
Coluna 29
Formato CHAR
Linhas mínimas 18
Texto __________________
Código função
INCLUIR TEXTO "/PWS/ZYCIE003-MATNR"
Comprimento Visível 9
Linha 4
Coluna 11
Formato CHAR
Texto Material:
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE003-MEINS"
Comprimento Visível 3
Linha 7
Coluna 29
Formato UNIT
Linhas mínimas 3
Texto ___
INCLUIR TEXTO "/PWS/ZYCIE003-MEINS"
Comprimento Visível 10
Linha 7
Coluna 11
Formato CHAR
Texto UM pedido:
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE003-NRSEQLI"
Comprimento Visível 10
Linha 16
Coluna 29
Formato CHAR
Linhas mínimas 10
Texto __________
INCLUIR TEXTO "/PWS/ZYCIE003-NRSEQLI"
Comprimento Visível 10
Linha 16
Coluna 11
Formato CHAR
Texto Nr.Seq.LI:
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE003-NRSEQLSI"
Comprimento Visível 10
Linha 17
Coluna 29
Formato CHAR
Linhas mínimas 10
Texto __________
INCLUIR TEXTO "/PWS/ZYCIE003-NRSEQLSI"
Comprimento Visível 11
Linha 17
Coluna 11
Formato CHAR
Texto Nr.Seq.LSI:
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE003-NTGEW"
Comprimento Visível 22
Linha 8
Coluna 29
Formato QUAN
Campo referência /PWS/ZYCIE003-GEWEI
Linhas mínimas 18
Colunas mínimas 6
Texto ___.___.___.___,______
INCLUIR TEXTO "/PWS/ZYCIE003-NTGEW"
Comprimento Visível 13
Linha 8
Coluna 11
Formato CHAR
Texto Peso líquido:
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE003-NTGEWD"
Comprimento Visível 19
Linha 10
Coluna 29
Formato QUAN
Campo referência /PWS/ZYCIE003-GEWEI
Linhas mínimas 15
Colunas mínimas 3
Texto ___.___.___.___,___
INCLUIR TEXTO "/PWS/ZYCIE003-NTGEWD"
Comprimento Visível 17
Linha 10
Coluna 11
Formato CHAR
Texto Peso líq.Desemb.:
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE003-QTD_ITEN"
Comprimento Visível 19
Linha 6
Coluna 29
Formato DEC
Linhas mínimas 15
Colunas mínimas 5
Texto _.___.___.___,_____
INCLUIR TEXTO "/PWS/ZYCIE003-QTD_ITEN"
Comprimento Visível 14
Linha 6
Coluna 11
Formato CHAR
Texto Qtd. Embarque:
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE003-QTD_ITEND"
Comprimento Visível 17
Linha 9
Coluna 29
Formato QUAN
Campo referência /PWS/ZYCIE003-MEINS
Linhas mínimas 13
Colunas mínimas 3
Texto _.___.___.___,___
INCLUIR TEXTO "/PWS/ZYCIE003-QTD_ITEND"
Comprimento Visível 17
Linha 9
Coluna 11
Formato CHAR
Texto Qtd.desembarcada:
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE003-TPNF"
Comprimento Visível 2
Linha 18
Coluna 29
Formato CHAR
Linhas mínimas 2
Texto __
Código função
INCLUIR TEXTO "/PWS/ZYCIE003-TPNF"
Comprimento Visível 8
Linha 18
Coluna 11
Formato CHAR
Texto Tipo NF:
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE003-WAERS"
Comprimento Visível 5
Linha 11
Coluna 29
Formato CUKY
Linhas mínimas 5
Texto _____
INCLUIR TEXTO "/PWS/ZYCIE003-WAERS"
Comprimento Visível 6
Linha 11
Coluna 11
Formato CHAR
Texto Moeda:
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIE003-WERKS"
Comprimento Visível 4
Linha 12
Coluna 29
Formato CHAR
Linhas mínimas 4
Texto ____
Código função
INCLUIR TEXTO "/PWS/ZYCIE003-WERKS"
Comprimento Visível 7
Linha 12
Coluna 11
Formato CHAR
Texto Centro:
Código função
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI001 0102
INCLUIR BOTÃO "BTN_CRES"
Altura 2
Comprimento Visível 23
Linha 1
Coluna 19
Formato CHAR
Texto @3E\QOrdenar Crescente@
Código função BTN_CRES
INCLUIR BOTÃO "BTN_DEC"
Altura 2
Comprimento Visível 6
Linha 1
Coluna 22
Formato CHAR
Texto @3F@ #
Código função BTN_DEC
INCLUIR BOTÃO "BTN_REP"
Altura 2
Comprimento Visível 4
Linha 1
Coluna 25
Formato CHAR
Texto @5O@
Código função BTN_REP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI001 0113
*Criada a tela 0113 com itens para replicação das informações do embarque
Características :
Descrição breve DI - Itens do Embarque - Replicar
Tipo de tela : normal
Tela seguinte 113
Linhas/colunas Ocupado 21 81
Atual. 22 84
Lógica de processamento :
process before output.
module: screen_lines,
verifica_campo,
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.
Layout:
segue download da tela
****************************************************************
* THIS FILE IS GENERATED BY THE SCREEN PAINTER. *
* NEVER CHANGE IT MANUALLY, PLEASE ! *
****************************************************************
%_DYNPRO
/PWS/SAPMZYCI001
0113
46C
40
%_HEADER
/PWS/SAPMZYCI001 0113 0113 21 81192 35 0 0 22 84 0G P
20080930163230
%_DESCRIPTION
DI - Itens do Embarque - Replicar
%_FIELDS
BOT_SELE
CHAR 40000083000 1 2 0 0 0 2P 0 0102
@4B@
CHECK
BOT_DES
CHAR 40000083000 1 5 0 0 0 2P 0 0103
@4D@
UNCHECK
TC_IREP
81E8CC000000 2 2E101 1 1 9T 0 0
TXTTIT
CHAR 50000083040 1 0T101 1 1 32 0 0
Itens
TXTTT02
CHAR 600000830A0 1 1T101 1 1 12 0 0
Pedido
TXTTT03
CHAR 400000830A0 1 2T101 1 1 11 0 0
Item
T_DESC
0CHAR 90000003080 1 3T101 1 1 34 0 0
Descrição
T_MATNR
0CHAR 80000003080 1 4T101 1 1 18 0 0
Material
ITAB_ITC-MARK
CCHAR 18000800020 1 0T101 1 1 1C 0 0104
_
ITAB_ITC-EBELN
CHAR 108000883020 1 1T101 1 1 12 0 0
__________
ITAB_ITC-EBELP
NUMC 58000883020 1 2T101 1 1 11 0 0
_____
ITAB_ITC-DESCR
CCHAR 408100803020 1 3T101 1 1 34 0 0
________________________________________
ITAB_ITC-MATNR
CCHAR 188000803020 1 4T101 1 1 18 0 0
__________________
QD2
CHAR 520000003000 12 13 0 0 0 10R 0 0105
___________________________________________________
FC_SEL
S_OQTD
CHAR 18000880000 13 15 0 0 0 0C 0 0107
_
S_OQTD
CHAR 180000083000 13 17 0 0 0 0C 0 0107
Quantidade_do_item
S_ONTGEW
CHAR 18000880000 14 15 0 0 0 0C 0 0109
_
S_ONTGEW
CHAR 120000083000 14 17 0 0 0 0C 0 0109
Peso_líquido
S_OQTDD
CHAR 18000880000 15 15 0 0 0 0C 0 0111
_
S_OQTDD
CHAR 310000083000 15 17 0 0 0 0C 0 0111
Quantidade_do_item_desembarcada
S_ONTGEWD
CCHAR 18000800000 16 15 0 0 0 0C 0 0113
_
S_ONTGEWD
0CHAR 250000003000 16 17 0 0 0 0C 0 0113
Peso_líquido_desembarcado
S_OLIFFAB
CCHAR 18000800000 17 15 0 0 0 0C 0 0115
_
S_OLIFFAB
0CHAR 100000003000 17 17 0 0 0 0C 0 0115
Fabricante
S_OTPNF
CHAR 18000880000 18 15 0 0 0 0C 0 0117
_
S_OTPNF
CHAR 70000083000 18 17 0 0 0 0C 0 0117
Tipo_NF
S_OSERV
CCHAR 18000800000 19 15 0 0 0 0C 0 0119
_
S_OSERV
0CHAR 70000003000 19 17 0 0 0 0C 0 0119
Serviço
S_ODTALOCPR
CCHAR 18000800000 20 15 0 0 0 0C 0 0121
_
S_ODTALOCPR
0CHAR 170000003000 20 17 0 0 0 0C 0 0121
Data_Aloc.Produto
CHAR 208010080000255 1O 0 0 0 0 0 0
____________________
%_FLOWLOGIC
process before output.
module: screen_lines,
verifica_campo,
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.
%_PARAMS
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI001 0114
*Criada a tela 0114 com itens para replicação das informações dos itens do embarque
Características :
Descrição breve DI - Detalhe do Item do Embarque - Replicar
Tipo de tela : normal
Tela seguinte 114
Linhas/colunas Ocupado 19 81
Atual. 22 84
Lógica de processamento :
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.
Layout:
segue download da tela
****************************************************************
* THIS FILE IS GENERATED BY THE SCREEN PAINTER. *
* NEVER CHANGE IT MANUALLY, PLEASE ! *
****************************************************************
%_DYNPRO
/PWS/SAPMZYCI001
0114
46C
40
%_HEADER
/PWS/SAPMZYCI001 0114 0114 19 81192 35 0 0 22 84 0G P
20081001171232
%_DESCRIPTION
DI - Detalhe do Item do Embarque - Replicar
%_FIELDS
BOT_SELE
CHAR 40000083000 1 2 0 0 0 2P 0 0102
@4B@
CHECK
BOT_DES
CHAR 40000083000 1 5 0 0 0 2P 0 0103
@4D@
UNCHECK
TC_IREPI
81E8CC000000 2 2E101 1 1 9T 0 0
TXTTIT
CHAR 50000083040 1 0T101 1 1 32 0 0
Itens
TXTTT02
CHAR 600000830A0 1 1T101 1 1 12 0 0
Pedido
TXTTT03
CHAR 400000830A0 1 2T101 1 1 11 0 0
Item
T_DESC
0CHAR 90000003080 1 3T101 1 1 34 0 0
Descrição
T_MATNR
0CHAR 80000003080 1 4T101 1 1 18 0 0
Material
ITAB_ITCI-MARK
CCHAR 18000800020 1 0T101 1 1 1C 0 0104
_
ITAB_ITCI-EBELN
CHAR 108000883020 1 1T101 1 1 12 0 0
__________
ITAB_ITCI-EBELP
NUMC 58000883020 1 2T101 1 1 11 0 0
_____
ITAB_ITCI-DESCR
CCHAR 408100803020 1 3T101 1 1 34 0 0
________________________________________
ITAB_ITCI-MATNR
CCHAR 188000803020 1 4T101 1 1 18 0 0
__________________
QD2
CHAR 290000003000 12 22 0 0 0 8R 0 0105
____________________________
FC_SEL
I_OLIFFAB
CCHAR 18000800000 14 25 0 0 0 0C 0 0107
_
I_OLIFFAB
0CHAR 100000003000 14 27 0 0 0 0C 0 0107
Fornecedor
I_OEMBA
CCHAR 18000800000 15 25 0 0 0 0C 0 0109
_
I_OEMBA
0CHAR 100000003000 15 27 0 0 0 0C 0 0109
I.Embarque
I_OQTDUM
CHAR 18000880000 16 25 0 0 0 0C 0 0111
_
I_OQTDUM
CHAR 140000083000 16 27 0 0 0 0C 0 0111
Qtde_UM_Estat.
I_OCONDM
CCHAR 18000800000 17 25 0 0 0 0C 0 0113
_
I_OCONDM
0CHAR 100000003000 17 27 0 0 0 0C 0 0113
Cond.Merc.
I_ONALAD
CHAR 18000880000 18 25 0 0 0 0C 0 0115
_
I_ONALAD
CHAR 60000083000 18 27 0 0 0 0C 0 0115
Naladi
CHAR 208010080000255 1O 0 0 0 0 0 0
____________________
%_FLOWLOGIC
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.
%_PARAMS
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
FORM vinculacao_li.
* >> Início da inclusão: FORM VINCULACAO_LI
DATA: v_char1(20),
v_char2(20),
v_pos TYPE i.
* << Fim da inclusão
...
...
itab_log ,
itab_ncm ,
itab_vincula ,
itab_logpexpam.
LOOP AT itab_zycit003 WHERE nrseqli IS initial.
ENDLOOP.
IF sy-subrc NE 0.
MESSAGE s015 WITH text-113.
EXIT.
ENDIF.
* >> Início da inclusão: FORM VINCULACAO_LI
v_pos = 0.
* << Fim da inclusão
IF NOT itab_zycit003[] IS INITIAL.
SELECT * FROM /pws/zycit079 "#EC CI_NOFIRST
INTO TABLE itab_zycit079
FOR ALL ENTRIES IN itab_zycit003
WHERE ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp
AND nrseq EQ space.
IF sy-subrc EQ 0.
LOOP AT itab_zycit079.
SELECT SINGLE * FROM /pws/zycit079
...
...
READ TABLE itab_zycit003 WITH KEY ebeln = itab_zycit079-ebeln
ebelp = itab_zycit079-ebelp.
CHECK sy-subrc EQ 0.
v_qtdumest = v_qtdumest + itab_zycit003-qtdeumest.
ENDLOOP.
LOOP AT itab_zycit079 WHERE nrseqli = itab_zycit078-nrseqli.
READ TABLE itab_zycit003 WITH KEY ebeln = itab_zycit079-ebeln
ebelp = itab_zycit079-ebelp.
CHECK itab_zycit003-nrseqli IS INITIAL.
IF itab_zycit078-bukrs NE /pws/zycie001-bukrs.
* >> Início da inclusão: FORM VINCULACAO_LI
v_descrlog = text-078.
* << Fim da inclusão
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
* >> Início da exclusão: FORM VINCULACAO_LI
text-078 TO itab_log-descr .
* << Fim da exclusão
* >> Início da inclusão: FORM VINCULACAO_LI
v_descrlog TO itab_log-descr .
v_pos = v_pos + 1.
itab_log-pos = v_pos.
APPEND itab_log.
CLEAR v_descrlog.
CONCATENATE text-483 itab_zycit078-bukrs
'<>' text-484 /pws/zycie001-bukrs INTO v_descrlog
SEPARATED BY space.
MOVE v_descrlog TO itab_log-descr.
itab_log-pos = v_pos.
* << Fim da inclusão
APPEND itab_log.
ENDIF.
CLEAR: v_descrlog.
IF itab_zycit078-dtdef IS INITIAL OR itab_zycit078-dtreg >
itab_zycit078-dtdef.
CONCATENATE text-210 text-211 INTO v_descrlog
SEPARATED BY space.
MOVE: itab_zycit079-ebeln TO itab_log-ebeln,
itab_zycit079-ebelp TO itab_log-ebelp,
itab_zycit078-nrseqli TO itab_log-nrseqli,
v_descrlog TO itab_log-descr.
* >> Início da inclusão: FORM VINCULACAO_LI
v_pos = v_pos + 1.
itab_log-pos = v_pos.
* << Fim da inclusão
APPEND itab_log.
* >> Início da inclusão: FORM VINCULACAO_LI
IF itab_zycit078-dtreg > itab_zycit078-dtdef.
CLEAR v_descrlog.
CONCATENATE text-483 itab_zycit078-dtreg '>'
itab_zycit078-dtdef INTO v_descrlog
SEPARATED BY space.
MOVE v_descrlog TO itab_log-descr.
itab_log-pos = v_pos.
APPEND itab_log.
ENDIF.
* << Fim da inclusão
ENDIF.
IF itab_zycit078-j_1bbranch NE /pws/zycie001-j_1bbranch.
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
text-079 TO itab_log-descr .
* >> Início da inclusão: FORM VINCULACAO_LI
v_pos = v_pos + 1.
itab_log-pos = v_pos.
* << Fim da inclusão
APPEND itab_log.
* >> Início da inclusão: FORM VINCULACAO_LI
CLEAR v_descrlog.
CONCATENATE text-483 itab_zycit078-j_1bbranch '<>'
text-484 /pws/zycie001-j_1bbranch INTO v_descrlog
SEPARATED BY space.
MOVE v_descrlog TO itab_log-descr.
itab_log-pos = v_pos.
APPEND itab_log.
* << Fim da inclusão
ENDIF.
CLEAR: v_descrlog.
IF NOT itab_zycit003-qtd_itend IS INITIAL.
IF itab_zycit079-qtd_iten NE itab_zycit003-qtd_itend.
* >> Início da inclusão: FORM VINCULACAO_LI
v_char1 = itab_zycit079-qtd_iten.
v_char2 = itab_zycit003-qtd_itend.
* << Fim da inclusão
CONCATENATE text-080 itab_zycit003-ebeln text-081
* >> Início da exclusão: FORM VINCULACAO_LI
itab_zycit003-ebelp text-082 INTO v_descrlog
SEPARATED BY space.
* << Fim da exclusão
* >> Início da inclusão: FORM VINCULACAO_LI
itab_zycit003-ebelp text-082
INTO v_descrlog SEPARATED BY space.
* << Fim da inclusão
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
v_descrlog TO itab_log-descr .
* >> Início da inclusão: FORM VINCULACAO_LI
v_pos = v_pos + 1.
itab_log-pos = v_pos.
* << Fim da inclusão
APPEND itab_log.
* >> Início da inclusão: FORM VINCULACAO_LI
CLEAR v_descrlog.
CONCATENATE text-483 v_char1 text-484 v_char2
INTO v_descrlog SEPARATED BY space.
MOVE v_descrlog TO itab_log-descr.
itab_log-pos = v_pos.
APPEND itab_log.
* << Fim da inclusão
ENDIF.
ELSE.
IF itab_zycit079-qtd_iten NE itab_zycit003-qtd_iten.
* >> Início da inclusão: FORM VINCULACAO_LI
v_char1 = itab_zycit079-qtd_iten.
v_char2 = itab_zycit003-qtd_iten.
* << Fim da inclusão
CONCATENATE text-080 itab_zycit003-ebeln text-081
* >> Início da exclusão: FORM VINCULACAO_LI
itab_zycit003-ebelp text-082 INTO v_descrlog
SEPARATED BY space.
* << Fim da exclusão
* >> Início da inclusão: FORM VINCULACAO_LI
itab_zycit003-ebelp text-082
INTO v_descrlog SEPARATED BY space.
* << Fim da inclusão
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
v_descrlog TO itab_log-descr .
* >> Início da inclusão: FORM VINCULACAO_LI
v_pos = v_pos + 1.
itab_log-pos = v_pos.
* << Fim da inclusão
APPEND itab_log.
* >> Início da inclusão: FORM VINCULACAO_LI
CLEAR v_descrlog.
CONCATENATE text-483 v_char1 text-484 v_char2
INTO v_descrlog SEPARATED BY space.
MOVE v_descrlog TO itab_log-descr.
itab_log-pos = v_pos.
APPEND itab_log.
* << Fim da inclusão
ENDIF.
ENDIF.
CLEAR: v_descrlog.
IF itab_zycit078-qtdest NE v_qtdumest.
* >> Início da inclusão: FORM VINCULACAO_LI
v_char1 = itab_zycit078-qtdest.
v_char2 = v_qtdumest.
* << Fim da inclusão
CONCATENATE text-085 itab_zycit003-ebeln text-081
* >> Início da exclusão: FORM VINCULACAO_LI
itab_zycit003-ebelp text-082 INTO v_descrlog
SEPARATED BY space.
* << Fim da exclusão
* >> Início da inclusão: FORM VINCULACAO_LI
itab_zycit003-ebelp text-082
INTO v_descrlog SEPARATED BY space.
* << Fim da inclusão
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
v_descrlog TO itab_log-descr .
* >> Início da inclusão: FORM VINCULACAO_LI
v_pos = v_pos + 1.
itab_log-pos = v_pos.
APPEND itab_log.
CLEAR v_descrlog.
CONCATENATE text-483 v_char1 text-484 v_char2
INTO v_descrlog SEPARATED BY space.
MOVE v_descrlog TO itab_log-descr.
itab_log-pos = v_pos.
* << Fim da inclusão
APPEND itab_log.
ENDIF.
IF /pws/zycie001-tpdecl EQ 'DI'.
CLEAR: v_descrlog.
IF itab_zycit078-condmerc NE itab_zycit003-condmerc.
CONCATENATE text-083 itab_zycit003-ebeln text-081
* >> Início da exclusão: FORM VINCULACAO_LI
itab_zycit003-ebelp text-082 INTO v_descrlog
SEPARATED BY space.
* << Fim da exclusão
* >> Início da inclusão: FORM VINCULACAO_LI
itab_zycit003-ebelp text-082
INTO v_descrlog SEPARATED BY space.
* << Fim da inclusão
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
v_descrlog TO itab_log-descr .
* >> Início da inclusão: FORM VINCULACAO_LI
v_pos = v_pos + 1.
itab_log-pos = v_pos.
APPEND itab_log.
CLEAR v_descrlog.
CONCATENATE text-483 itab_zycit078-condmerc
text-484 itab_zycit003-condmerc
INTO v_descrlog SEPARATED BY space.
MOVE v_descrlog TO itab_log-descr.
itab_log-pos = v_pos.
* << Fim da inclusão
APPEND itab_log.
ENDIF.
CLEAR: v_descrlog.
IF itab_zycit078-naladi NE itab_zycit003-naladi.
CONCATENATE text-084 itab_zycit003-ebeln text-081
* >> Início da exclusão: FORM VINCULACAO_LI
itab_zycit003-ebelp text-082 INTO v_descrlog
SEPARATED BY space.
* << Fim da exclusão
* >> Início da inclusão: FORM VINCULACAO_LI
itab_zycit003-ebelp text-082
INTO v_descrlog SEPARATED BY space.
* << Fim da inclusão
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
v_descrlog TO itab_log-descr .
* >> Início da inclusão: FORM VINCULACAO_LI
v_pos = v_pos + 1.
itab_log-pos = v_pos.
* << Fim da inclusão
APPEND itab_log.
* >> Início da inclusão: FORM VINCULACAO_LI
CLEAR v_descrlog.
CONCATENATE text-483 itab_zycit078-naladi
text-484 itab_zycit003-naladi
INTO v_descrlog SEPARATED BY space.
MOVE v_descrlog TO itab_log-descr.
itab_log-pos = v_pos.
APPEND itab_log.
* << Fim da inclusão
ENDIF.
ENDIF.
IF /pws/zycie001-tpdecl EQ 'DSI'.
CLEAR: v_descrlog.
IF itab_zycit078-tpni NE /pws/zycie001-regime.
v_descrlog = text-185.
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
v_descrlog TO itab_log-descr .
* >> Início da inclusão: FORM VINCULACAO_LI
v_pos = v_pos + 1.
itab_log-pos = v_pos.
APPEND itab_log.
CLEAR v_descrlog.
CONCATENATE text-483 itab_zycit078-tpni
text-484 /pws/zycie001-regime
INTO v_descrlog SEPARATED BY space.
MOVE v_descrlog TO itab_log-descr.
itab_log-pos = v_pos.
* << Fim da inclusão
APPEND itab_log.
ENDIF.
ENDIF.
CLEAR: v_descrlog.
CLEAR v_pexpam.
MOVE: itab_zycit078-numpexpam TO itab_zycit003-numpexpam,
itab_zycit078-anopexpam TO itab_zycit003-anopexpam.
IF NOT itab_zycit003-numpexpam IS INITIAL OR
NOT itab_zycit003-anopexpam IS INITIAL.
CONCATENATE text-125 itab_zycit079-ebelp text-126
...
...
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
v_descrlog TO itab_log-descr .
* >> Início da inclusão: FORM VINCULACAO_LI
v_pos = v_pos + 1.
itab_log-pos = v_pos.
* << Fim da inclusão
APPEND itab_log.
* >> Início da inclusão: FORM VINCULACAO_LI
v_char1 = itab_zycit079-ntgew .
v_char2 = itab_zycit003-ntgew .
CLEAR v_descrlog.
CONCATENATE text-483 v_char1
text-484 v_char2
INTO v_descrlog SEPARATED BY space.
MOVE v_descrlog TO itab_log-descr.
itab_log-pos = v_pos.
APPEND itab_log.
* << Fim da inclusão
ENDIF.
IF /pws/zycie001-tpdecl EQ 'DI'.
CLEAR: v_descrlog.
IF itab_zycit078-fabric NE itab_zycit003-fabric.
CONCATENATE text-088 itab_zycit003-ebeln text-081
itab_zycit003-ebelp text-091
INTO v_descrlog SEPARATED BY space.
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
v_descrlog TO itab_log-descr .
* >> Início da inclusão: FORM VINCULACAO_LI
v_pos = v_pos + 1.
itab_log-pos = v_pos.
* << Fim da inclusão
APPEND itab_log.
* >> Início da inclusão: FORM VINCULACAO_LI
CLEAR v_descrlog.
CONCATENATE text-483 itab_zycit078-fabric
text-484 itab_zycit003-fabric
INTO v_descrlog SEPARATED BY space.
MOVE v_descrlog TO itab_log-descr.
itab_log-pos = v_pos.
APPEND itab_log.
* << Fim da inclusão
ENDIF.
CLEAR: v_descrlog.
IF itab_zycit078-codcambial NE /pws/zycit006-codcambial.
CONCATENATE text-089 itab_zycit003-ebeln text-081
itab_zycit003-ebelp text-091
INTO v_descrlog SEPARATED BY space.
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
v_descrlog TO itab_log-descr .
* >> Início da inclusão: FORM VINCULACAO_LI
v_pos = v_pos + 1.
itab_log-pos = v_pos.
APPEND itab_log.
CLEAR v_descrlog.
CONCATENATE text-483 itab_zycit078-codcambial
text-484 /pws/zycit006-codcambial
INTO v_descrlog SEPARATED BY space.
MOVE v_descrlog TO itab_log-descr.
itab_log-pos = v_pos.
* << Fim da inclusão
APPEND itab_log.
ENDIF.
CLEAR: v_descrlog.
IF itab_zycit078-motivo NE /pws/zycit006-motivo.
CONCATENATE text-090 itab_zycit003-ebeln text-081
itab_zycit003-ebelp text-091
INTO v_descrlog SEPARATED BY space.
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
v_descrlog TO itab_log-descr .
* >> Início da inclusão: FORM VINCULACAO_LI
v_pos = v_pos + 1.
itab_log-pos = v_pos.
APPEND itab_log.
CLEAR v_descrlog.
CONCATENATE text-483 itab_zycit078-motivo
text-484 /pws/zycit006-motivo
INTO v_descrlog SEPARATED BY space.
MOVE v_descrlog TO itab_log-descr.
itab_log-pos = v_pos.
* << Fim da inclusão
APPEND itab_log.
ENDIF.
CLEAR: v_descrlog.
IF itab_zycit078-mdpgto NE /pws/zycit006-mdpgto.
CONCATENATE text-092 itab_zycit003-ebeln text-081
itab_zycit003-ebelp text-091
INTO v_descrlog SEPARATED BY space.
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
v_descrlog TO itab_log-descr .
* >> Início da inclusão: FORM VINCULACAO_LI
v_pos = v_pos + 1.
itab_log-pos = v_pos.
* << Fim da inclusão
APPEND itab_log.
* >> Início da inclusão: FORM VINCULACAO_LI
CLEAR v_descrlog.
CONCATENATE text-483 itab_zycit078-mdpgto
text-484 /pws/zycit006-mdpgto
INTO v_descrlog SEPARATED BY space.
MOVE v_descrlog TO itab_log-descr.
itab_log-pos = v_pos.
APPEND itab_log.
* << Fim da inclusão
ENDIF.
CLEAR: v_descrlog.
IF itab_zycit078-codinst NE /pws/zycit006-codinst.
CONCATENATE text-093 itab_zycit003-ebeln text-081
itab_zycit003-ebelp text-091
INTO v_descrlog SEPARATED BY space.
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
v_descrlog TO itab_log-descr .
* >> Início da inclusão: FORM VINCULACAO_LI
v_pos = v_pos + 1.
itab_log-pos = v_pos.
APPEND itab_log.
CLEAR v_descrlog.
CONCATENATE text-483 itab_zycit078-codinst
text-484 /pws/zycit006-codinst
INTO v_descrlog SEPARATED BY space.
MOVE v_descrlog TO itab_log-descr.
itab_log-pos = v_pos.
* << Fim da inclusão
APPEND itab_log.
ENDIF.
ENDIF.
ENDIF.
SELECT SINGLE * FROM /pws/zycit100 "#EC CI_NOFIRST
WHERE nrseq EQ /pws/zycie001-nrseq
AND ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit085
WHERE nrseqdi EQ /pws/zycit100-nrseqdi.
SELECT * FROM /pws/zycit114
INTO TABLE it_zycit114
WHERE nrseqdi EQ /pws/zycit100-nrseqdi
AND adicao EQ /pws/zycit100-adicao.
CLEAR: v_descrlog.
IF itab_zycit078-urfdesp NE /pws/zycit085-urfdesp.
CONCATENATE text-095 itab_zycit003-ebeln text-081
itab_zycit003-ebelp text-096
INTO v_descrlog SEPARATED BY space.
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
v_descrlog TO itab_log-descr .
* >> Início da inclusão: FORM VINCULACAO_LI
v_pos = v_pos + 1.
itab_log-pos = v_pos.
APPEND itab_log.
CLEAR v_descrlog.
CONCATENATE text-483 itab_zycit078-urfdesp
text-484 /pws/zycit085-urfdesp
INTO v_descrlog SEPARATED BY space.
MOVE v_descrlog TO itab_log-descr.
itab_log-pos = v_pos.
* << Fim da inclusão
APPEND itab_log.
ENDIF.
IF /pws/zycie001-tpdecl EQ 'DI'.
CLEAR: v_descrlog.
IF itab_zycit078-urfent NE /pws/zycit085-urfent.
CONCATENATE text-097 itab_zycit003-ebeln text-081
itab_zycit003-ebelp text-096
INTO v_descrlog SEPARATED BY space.
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
v_descrlog TO itab_log-descr .
* >> Início da inclusão: FORM VINCULACAO_LI
v_pos = v_pos + 1.
itab_log-pos = v_pos.
APPEND itab_log.
CLEAR v_descrlog.
CONCATENATE text-483 itab_zycit078-urfent
text-484 /pws/zycit085-urfent
INTO v_descrlog SEPARATED BY space.
MOVE v_descrlog TO itab_log-descr.
itab_log-pos = v_pos.
* << Fim da inclusão
APPEND itab_log.
ENDIF.
IF itab_zycit078-codtarif NE /pws/zycit100-acordo.
CONCATENATE text-101 itab_zycit003-ebeln text-081
itab_zycit003-ebelp text-096
INTO v_descrlog SEPARATED BY space.
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
v_descrlog TO itab_log-descr .
* >> Início da inclusão: FORM VINCULACAO_LI
v_pos = v_pos + 1.
itab_log-pos = v_pos.
* << Fim da inclusão
APPEND itab_log.
* >> Início da inclusão: FORM VINCULACAO_LI
CLEAR v_descrlog.
CONCATENATE text-483 itab_zycit078-codtarif
text-484 /pws/zycit100-acordo
INTO v_descrlog SEPARATED BY space.
MOVE v_descrlog TO itab_log-descr.
itab_log-pos = v_pos.
APPEND itab_log.
* << Fim da inclusão
ENDIF.
ENDIF.
CLEAR: v_descrlog.
CLEAR v_1.
LOOP AT itab_ncm.
READ TABLE it_zycit114 WITH KEY destaque = itab_ncm-codncm.
IF sy-subrc NE 0.
IF v_1 EQ 0.
v_1 = 1.
CONCATENATE text-098 itab_zycit003-ebeln text-081
itab_zycit003-ebelp text-096
INTO v_descrlog SEPARATED BY space.
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
v_descrlog TO itab_log-descr .
* >> Início da inclusão: FORM VINCULACAO_LI
v_pos = v_pos + 1.
itab_log-pos = v_pos.
* << Fim da inclusão
APPEND itab_log.
ENDIF.
ENDIF.
ENDLOOP.
IF /pws/zycie001-tpdecl EQ 'DSI'.
CLEAR: v_descrlog.
IF itab_zycit078-codregtri NE /pws/zycit100-codregtri.
CONCATENATE text-099 itab_zycit003-ebeln text-081
itab_zycit003-ebelp text-096
INTO v_descrlog SEPARATED BY space.
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
v_descrlog TO itab_log-descr .
* >> Início da inclusão: FORM VINCULACAO_LI
v_pos = v_pos + 1.
itab_log-pos = v_pos.
* << Fim da inclusão
APPEND itab_log.
* >> Início da inclusão: FORM VINCULACAO_LI
CLEAR v_descrlog.
CONCATENATE text-483 itab_zycit078-codregtri
text-484 /pws/zycit100-codregtri
INTO v_descrlog SEPARATED BY space.
MOVE v_descrlog TO itab_log-descr.
itab_log-pos = v_pos.
APPEND itab_log.
* << Fim da inclusão
ENDIF.
IF itab_zycit078-matusado NE /pws/zycit100-matusado.
CONCATENATE text-186 itab_zycit003-ebeln text-081
itab_zycit003-ebelp text-096
INTO v_descrlog SEPARATED BY space.
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
v_descrlog TO itab_log-descr .
* >> Início da inclusão: FORM VINCULACAO_LI
v_pos = v_pos + 1.
itab_log-pos = v_pos.
APPEND itab_log.
CLEAR v_descrlog.
CONCATENATE text-483 itab_zycit078-matusado
text-484 /pws/zycit100-matusado
INTO v_descrlog SEPARATED BY space.
MOVE v_descrlog TO itab_log-descr.
itab_log-pos = v_pos.
* << Fim da inclusão
APPEND itab_log.
ENDIF.
ENDIF.
CLEAR: v_descrlog.
IF itab_zycit078-codfunleg NE /pws/zycit100-codfunleg.
CONCATENATE text-100 itab_zycit003-ebeln text-081
itab_zycit003-ebelp text-096
INTO v_descrlog SEPARATED BY space.
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
v_descrlog TO itab_log-descr .
* >> Início da inclusão: FORM VINCULACAO_LI
v_pos = v_pos + 1.
itab_log-pos = v_pos.
APPEND itab_log.
CLEAR v_descrlog.
CONCATENATE text-483 itab_zycit078-codfunleg
text-484 /pws/zycit100-codfunleg
INTO v_descrlog SEPARATED BY space.
MOVE v_descrlog TO itab_log-descr.
itab_log-pos = v_pos.
* << Fim da inclusão
APPEND itab_log.
ENDIF.
ENDIF.
ENDLOOP.
ENDLOOP.
LOOP AT itab_zycit079.
CLEAR itab_vincula.
READ TABLE itab_zycit003 WITH KEY ebeln = itab_zycit079-ebeln
ebelp = itab_zycit079-ebelp.
CHECK itab_zycit003-nrseqli IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F02
...
PERFORM valida_trans USING '/PWS/ZYCI017_C' 'skip'.
ELSEIF sy-tcode EQ '/PWS/ZYCI001_A'.
SET PARAMETER ID '/PWS/ZYCIP085' FIELD /pws/zycit085-nrseqdi.
SET PARAMETER ID '/PWS/ZYGLP089' FIELD /pws/zycit085-identify.
PERFORM valida_trans USING '/PWS/ZYCI017_A' 'skip'.
ELSEIF sy-tcode EQ '/PWS/ZYCI001_E'.
SET PARAMETER ID '/PWS/ZYCIP085' FIELD /pws/zycit085-nrseqdi.
SET PARAMETER ID '/PWS/ZYGLP089' FIELD /pws/zycit085-identify.
PERFORM valida_trans USING '/PWS/ZYCI017_E' 'skip'.
ENDIF.
* >> Início da inclusão: FORM CALL_BT
PERFORM atualiza_status.
* << Fim da inclusão
ENDIF.
ENDFORM.
...
...
FORM trata_enter_0002.
* >> Início da exclusão: FORM TRATA_ENTER_0002
IF NOT /pws/zycie003-ebeln IS INITIAL AND
NOT /pws/zycie003-ebelp IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_ENTER_0002
DATA: v1(100).
IF NOT /pws/zycie003-matnr IS INITIAL.
CONCATENATE v1 'matnr' ' = ' ' /pws/zycie003-matnr ' INTO v1 .
ENDIF.
CONCATENATE v1 '.' INTO v1 SEPARATED BY space.
* << Fim da inclusão
READ TABLE itab_zycit003 INTO wa_zycit003
* >> Início da exclusão: FORM TRATA_ENTER_0002
WITH KEY ebeln = /pws/zycie003-ebeln
ebelp = /pws/zycie003-ebelp.
IF sy-subrc EQ 0.
tc_ped-top_line = sy-tabix.
nextline = sy-tabix.
ENDIF.
LEAVE TO SCREEN 0.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_ENTER_0002
WITH KEY v1.
* << Fim da inclusão
ENDFORM.
...
...
FORM trata_detitem.
* >> Início da inclusão: FORM TRATA_DETITEM
CLEAR itab_itc. REFRESH itab_itc.
* << Fim da inclusão
v_contador = 0.
IF v_status_s NE '0'.
* >> Início da exclusão: FORM TRATA_DETITEM
LOOP AT itab_zycit003 WHERE mark EQ 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_DETITEM
LOOP AT itab_zycit003.
IF itab_zycit003-mark = 'X' .
* << Fim da inclusão
v_ip = sy-tabix.
v_contador = v_contador + 1.
* >> Início da inclusão: FORM TRATA_DETITEM
ENDIF.
MOVE itab_zycit003 TO itab_itc.
APPEND itab_itc.
* << Fim da inclusão
ENDLOOP.
ELSE.
* >> Início da exclusão: FORM TRATA_DETITEM
LOOP AT itab_zycit003 WHERE mark EQ 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_DETITEM
LOOP AT itab_zycit003.
IF itab_zycit003-mark = 'X' .
* << Fim da inclusão
v_contador = v_contador + 1.
* >> Início da inclusão: FORM TRATA_DETITEM
ENDIF.
MOVE itab_zycit003 TO itab_itc.
APPEND itab_itc.
* << Fim da inclusão
ENDLOOP.
ENDIF.
IF v_contador NE 1.
MESSAGE s015 WITH text-062.
ELSE.
READ TABLE itab_zycit003 WITH KEY mark = 'X'.
MOVE-CORRESPONDING itab_zycit003 TO /pws/zycie003.
v_centro = ' '.
v_saldo = itab_zycit003-slqtde.
IF /pws/zycie001-regime EQ '14' OR /pws/zycie001-regime EQ '16'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F03
...
FORM trata_screen_0102.
* >> Início da inclusão: FORM TRATA_SCREEN_0102
DESCRIBE TABLE itab_zycit003 LINES v_line.
IF v_line LE 1.
LOOP AT SCREEN.
IF screen-name EQ 'BTN_CRES' OR
screen-name EQ 'BTN_REP' OR
screen-name EQ 'BTN_DEC' .
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
* << Fim da inclusão
IF v_status_s = 0.
LOOP AT tc_ped-cols INTO wa_cols.
...
...
FORM eliminar_fatura.
* >> Início da exclusão: FORM ELIMINAR_FATURA
IF itab_zycit100[] IS INITIAL.
SELECT * FROM /pws/zycit100 "#EC CI_NOFIRST
INTO TABLE itab_zycit100
WHERE nrseq EQ /pws/zycie001-nrseq.
IF sy-subrc EQ 0.
v_di = 'S'.
ELSE.
IF ( /pws/zycie001-regime EQ '04' AND
/pws/zycie001-tpdecl EQ 'DI' ) .
SELECT * FROM /pws/zycit443 "#EC CI_NOFIRST
INTO TABLE itab_zycit443
WHERE nrseq EQ /pws/zycie001-nrseq.
IF sy-subrc EQ 0.
v_di = 'S'.
ELSE.
CLEAR v_di.
ENDIF.
ELSE.
CLEAR v_di.
ENDIF.
ENDIF.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINAR_FATURA
PERFORM verifica_di.
* << Fim da inclusão
IF /pws/zycie001-regime = '16' AND v_di IS INITIAL AND
NOT /pws/zycie001-nrseq IS INITIAL.
SELECT SINGLE * FROM /pws/zycit094 "#EC CI_NOFIRST
WHERE nrseq = /pws/zycie001-nrseq.
IF sy-subrc = 0.
DELETE FROM /pws/zycit093 WHERE nrseqce = /pws/zycit094-nrseqce.
DELETE FROM /pws/zycit094 WHERE nrseqce = /pws/zycit094-nrseqce.
SELECT * FROM /pws/zycit006 "#EC CI_NOFIELD
INTO TABLE itab_zycit006
WHERE nrseqce = /pws/zycit094-nrseqce AND
...
...
* >> Início da inclusão:
FORM comm_repl.
IF sy-dynnr EQ '0113'.
CLEAR vi_qtde.
IF NOT s_oqtd IS INITIAL OR
NOT s_ontgew IS INITIAL OR
NOT s_oqtdd IS INITIAL OR
NOT s_ontgewd IS INITIAL OR
NOT s_oliffab IS INITIAL OR
NOT s_otpnf IS INITIAL OR
NOT s_oserv IS INITIAL OR
NOT s_odtalocpr IS INITIAL.
READ TABLE itab_zycit003 WITH KEY mark = 'X'.
IF sy-subrc = 0.
MOVE itab_zycit003 TO wa_zycit003.
ELSE.
MESSAGE i015 WITH text-478.
ENDIF.
LOOP AT itab_itc WHERE NOT mark IS initial.
v_tabix = sy-tabix.
READ TABLE itab_zycit003 WITH KEY
ebeln = itab_itc-ebeln
ebelp = itab_itc-ebelp.
IF sy-subrc = 0.
IF NOT s_oqtd IS INITIAL OR
NOT s_ontgew IS INITIAL OR
NOT s_oliffab IS INITIAL OR
NOT s_oserv IS INITIAL .
READ TABLE itab_zycit263 WITH KEY ebeln = itab_itc-ebeln
ebelp = itab_itc-ebelp.
IF sy-subrc = 0 .
READ TABLE itab_zycit006 WITH KEY
nrseq_pgfat = itab_zycit263-nrseq_pgfat.
IF sy-subrc = 0.
MESSAGE i015 WITH text-480 text-120.
EXIT.
ENDIF.
ENDIF.
IF NOT s_oqtd IS INITIAL .
READ TABLE itab_zycit013 WITH KEY ebeln = itab_itc-ebeln
ebelp = itab_itc-ebelp.
IF sy-subrc = 0.
vi_qtde = itab_zycit013-slqtde + itab_zycit003-qtd_iten.
IF wa_zycit003-qtd_iten GT vi_qtde.
MESSAGE s015 WITH text-208.
ELSE.
itab_zycit003-qtd_iten = wa_zycit003-qtd_iten.
MODIFY itab_zycit003 TRANSPORTING qtd_iten WHERE
ebeln = itab_itc-ebeln AND
ebelp = itab_itc-ebelp.
ENDIF.
ENDIF.
ENDIF.
IF NOT s_ontgew IS INITIAL .
itab_zycit003-ntgew = wa_zycit003-ntgew.
MODIFY itab_zycit003 TRANSPORTING ntgew WHERE
ebeln = itab_itc-ebeln AND
ebelp = itab_itc-ebelp.
ENDIF.
IF NOT s_oliffab IS INITIAL.
itab_zycit003-lifnrfabr = wa_zycit003-lifnrfabr.
MODIFY itab_zycit003 TRANSPORTING lifnrfabr WHERE
ebeln = itab_itc-ebeln AND
ebelp = itab_itc-ebelp.
ENDIF.
IF NOT s_oserv IS INITIAL.
itab_zycit003-servico = wa_zycit003-servico.
MODIFY itab_zycit003 TRANSPORTING servico WHERE
ebeln = itab_itc-ebeln AND
ebelp = itab_itc-ebelp.
ENDIF.
ENDIF.
IF NOT s_oqtdd IS INITIAL.
itab_zycit003-qtd_itend = wa_zycit003-qtd_itend.
MODIFY itab_zycit003 TRANSPORTING qtd_itend WHERE
ebeln = itab_itc-ebeln AND
ebelp = itab_itc-ebelp.
ENDIF.
IF NOT s_ontgewd IS INITIAL.
itab_zycit003-ntgewd = wa_zycit003-ntgewd.
MODIFY itab_zycit003 TRANSPORTING ntgewd WHERE
ebeln = itab_itc-ebeln AND
ebelp = itab_itc-ebelp.
ENDIF.
IF NOT s_otpnf IS INITIAL.
itab_zycit003-tpnf = wa_zycit003-tpnf.
MODIFY itab_zycit003 TRANSPORTING tpnf
WHERE ebeln = itab_itc-ebeln AND
ebelp = itab_itc-ebelp.
ENDIF.
IF NOT s_odtalocpr IS INITIAL.
itab_zycit003-dtalocprod = wa_zycit003-dtalocprod.
MODIFY itab_zycit003 TRANSPORTING dtalocprod WHERE
ebeln = itab_itc-ebeln AND
ebelp = itab_itc-ebelp.
ENDIF.
ENDIF.
ENDLOOP.
ELSE.
MESSAGE i015 WITH text-479.
ENDIF.
ELSE.
IF NOT i_oliffab IS INITIAL OR
NOT i_oemba IS INITIAL OR
NOT i_oqtdum IS INITIAL OR
NOT i_ocondm IS INITIAL OR
NOT i_onalad IS INITIAL.
MOVE /pws/zycie003 TO wa_zycit003.
LOOP AT itab_itci WHERE mark = 'X'.
IF NOT i_oliffab IS INITIAL.
READ TABLE itab_zycit263 WITH KEY ebeln = itab_itci-ebeln
ebelp = itab_itci-ebelp.
IF sy-subrc = 0 .
READ TABLE itab_zycit006 WITH KEY
nrseq_pgfat = itab_zycit263-nrseq_pgfat.
IF sy-subrc = 0.
MESSAGE i015 WITH text-480 text-120.
EXIT.
ENDIF.
ENDIF.
ENDIF.
IF NOT i_oemba IS INITIAL.
itab_zycit003-iembarque = wa_zycit003-iembarque.
MODIFY itab_zycit003 TRANSPORTING iembarque
WHERE ebeln = itab_itci-ebeln
AND ebelp = itab_itci-ebelp.
ENDIF.
IF NOT i_oqtdum IS INITIAL.
itab_zycit003-qtdeumest = wa_zycit003-qtdeumest.
MODIFY itab_zycit003 TRANSPORTING qtdeumest
WHERE ebeln = itab_itci-ebeln
AND ebelp = itab_itci-ebelp.
ENDIF.
IF NOT i_ocondm IS INITIAL.
itab_zycit003-condmerc = wa_zycit003-condmerc.
MODIFY itab_zycit003 TRANSPORTING
condmerc WHERE ebeln = itab_itci-ebeln
AND ebelp = itab_itci-ebelp.
ENDIF.
IF NOT i_onalad IS INITIAL.
itab_zycit003-naladi = wa_zycit003-naladi.
MODIFY itab_zycit003 TRANSPORTING naladi
WHERE ebeln = itab_itci-ebeln
AND ebelp = itab_itci-ebelp.
ENDIF.
ENDLOOP.
ELSE.
MESSAGE i015 WITH text-479.
ENDIF.
ENDIF.
ENDFORM.
FORM user_command_0113.
CASE sy-ucomm.
WHEN 'CHECK'.
IF sy-dynnr EQ '0113'.
s_oqtd = s_ontgew = s_oqtdd =
s_ontgewd = s_oliffab = s_otpnf =
s_oserv = s_odtalocpr = 'X'.
ELSE.
i_oliffab = i_oemba = i_oqtdum =
i_ocondm = i_onalad = 'X'.
ENDIF .
WHEN 'UNCHECK'.
IF sy-dynnr EQ '0113'.
s_oqtd = s_ontgew = s_oqtdd =
s_ontgewd = s_oliffab = s_otpnf =
s_oserv = s_odtalocpr = space.
ELSE.
i_oliffab = i_oemba = i_oqtdum =
i_ocondm = i_onalad = space.
ENDIF.
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' .
LOOP AT itab_itc.
itab_itc-mark = space.
MODIFY itab_itc.
ENDLOOP.
WHEN 'ENTER'.
PERFORM comm_repl.
SET SCREEN 0.
LEAVE SCREEN.
WHEN 'BACK'.
SET SCREEN 0.
LEAVE SCREEN.
ENDCASE.
ENDFORM.
FORM verifica_di.
IF itab_zycit100[] IS INITIAL.
SELECT * FROM /pws/zycit100 "#EC CI_NOFIRST
INTO TABLE itab_zycit100
WHERE nrseq EQ /pws/zycie001-nrseq.
IF sy-subrc EQ 0.
v_di = 'S'.
ELSE.
IF ( /pws/zycie001-regime EQ '04' AND
/pws/zycie001-tpdecl EQ 'DI' ) .
SELECT * FROM /pws/zycit443 "#EC CI_NOFIRST
INTO TABLE itab_zycit443
WHERE nrseq EQ /pws/zycie001-nrseq.
IF sy-subrc EQ 0.
v_di = 'S'.
ELSE.
CLEAR v_di.
ENDIF.
ELSE.
CLEAR v_di.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM trata_posicao.
LOOP AT itab_zycit003 WHERE ebelp IN so_ebp
AND ebeln IN so_ebn
AND matnr IN so_mater
AND descr IN so_denom
AND qtd_iten IN so_qtd
AND meins IN so_um
AND qtd_itend IN so_qtdd
AND ntgewd IN so_ntgd
AND waers IN so_wrs
AND werks IN so_wrks
AND lifnr IN so_lif
AND j_1bnbm IN so_ncm
AND lifnrfabr IN so_fabr
AND nrseqli IN so_nrli
AND nrseqlsi IN so_nrlsi
AND tpnf IN so_tpnf .
v_tabix = sy-tabix.
ENDLOOP.
IF sy-subrc = 0.
tc_ped-top_line = v_tabix.
nextline = v_tabix.
LEAVE TO SCREEN 0 .
ELSE.
MESSAGE s015 WITH text-485.
ENDIF.
ENDFORM.
FORM atualiza_status.
SELECT SINGLE status FROM /pws/zycit001
INTO /pws/zycie001-status
WHERE nrseq = /pws/zycie001-nrseq.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001I01
...
MODULE user_command_0102 INPUT.
* >> Início da inclusão: MODULE USER_COMMAND_0102
DATA: v_ordena(132) TYPE c.
* << Fim da inclusão
...
...
WHEN 'POSI'.
* >> Início da exclusão: MODULE USER_COMMAND_0102
CALL SCREEN 0002 STARTING AT 3 3.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0102
IF sy-dynnr EQ '0102'.
CALL SELECTION-SCREEN 0702 STARTING AT 3 5.
ENDIF.
* << Fim da inclusão
WHEN 'SELE'.
...
...
* >> Início da inclusão: MODULE USER_COMMAND_0102
WHEN 'BTN_CRES'.
CLEAR: v_ordena.
LOOP AT tc_ped-cols INTO wa_cols
WHERE selected EQ 'X'.
v_ordena = wa_cols-screen-name+14 .
ENDLOOP.
IF NOT v_ordena IS INITIAL.
SORT itab_zycit003 ASCENDING BY (v_ordena).
ENDIF.
WHEN 'BTN_DEC'.
CLEAR: v_ordena.
LOOP AT tc_ped-cols INTO wa_cols
WHERE selected EQ 'X'.
v_ordena = wa_cols-screen-name+14 .
ENDLOOP.
IF NOT v_ordena IS INITIAL.
SORT itab_zycit003 DESCENDING BY (v_ordena).
ENDIF.
* << Fim da inclusão
...
...
v_ip = v_ip + 1.
READ TABLE itab_zycit003 INDEX v_ip.
MOVE-CORRESPONDING itab_zycit003 TO /pws/zycie003.
PERFORM aplicacao.
ENDIF.
WHEN 'ULTI'.
DESCRIBE TABLE itab_zycit003 LINES v_ip.
READ TABLE itab_zycit003 INDEX v_ip.
MOVE-CORRESPONDING itab_zycit003 TO /pws/zycie003.
PERFORM aplicacao.
* >> Início da inclusão: MODULE USER_COMMAND_0400
WHEN 'REPLIC'.
CLEAR itab_itci . REFRESH itab_itci.
LOOP AT itab_itc WHERE mark EQ space.
MOVE itab_itc TO itab_itci.
APPEND itab_itci.
ENDLOOP.
i_oliffab = i_oemba = i_oqtdum = i_ocondm =
i_onalad = space.
CALL SCREEN '0114' STARTING AT 5 2.
* << Fim da inclusão
ENDCASE.
ENDMODULE.
...
...
MODULE user_command_0050 INPUT.
DATA: v_flag2, v_fat, v_errodb.
DATA:v_cont1 TYPE n.
DATA: itab_zycit044 TYPE /pws/zycit044 OCCURS 0 WITH HEADER LINE,
itab_zycit042 TYPE /pws/zycit042 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF it_100_temp OCCURS 0.
INCLUDE STRUCTURE /pws/zycit100.
DATA: END OF it_100_temp.
DATA: v_pedidodb(20) TYPE c.
* >> Início da inclusão: MODULE USER_COMMAND_0050
CLEAR itab_itc. REFRESH itab_itc.
* << Fim da inclusão
e_subrc = 0.
CLEAR v_flag2.
CLEAR v_cont1.
CLEAR: r_okcode, e_exec_okcode.
CALL METHOD cl_gui_cfw=>dispatch.
IF NOT r_okcode IS INITIAL.
okcode = r_okcode.
ENDIF.
...
...
CALL SELECTION-SCREEN '0104' .
WHEN 'COEMBAR'.
PERFORM verifica_alteracoes.
PERFORM busca_sequencial_copia.
LOOP AT itab_zycit003.
itab_zycit003-slqtde = itab_zycit003-slqtde
- itab_zycit003-qtd_iten.
MODIFY itab_zycit003 INDEX sy-tabix.
ENDLOOP.
CLEAR okcode.
* >> Início da inclusão: MODULE USER_COMMAND_0050
WHEN 'BTN_REP'.
DESCRIBE TABLE itab_zycit003 LINES v_line.
IF v_line EQ '1'.
MESSAGE s015 WITH text-477.
ELSE.
READ TABLE itab_zycit003 WITH KEY mark = 'X'.
IF sy-subrc EQ 0.
LOOP AT itab_zycit003 WHERE mark EQ space.
MOVE itab_zycit003 TO itab_itc.
APPEND itab_itc.
ENDLOOP.
s_oqtd = s_ontgew = s_oqtdd = s_ontgewd = s_oliffab =
s_otpnf = s_oserv = s_odtalocpr = space .
CALL SCREEN '0113' STARTING AT 5 2.
ELSE.
MESSAGE s015 WITH text-478.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDCASE.
ELSEIF v_status_s EQ 0 AND ( okcode = 'SAVE' OR okcode = 'PED' OR
okcode = 'DELP' OR okcode = 'MARC' OR
okcode = 'DESM' OR okcode = 'FACPED' ).
MESSAGE s004.
ENDIF.
CLEAR sy-subrc.
...
...
MODULE user_command INPUT.
* >> Início da exclusão: MODULE USER_COMMAND
IF sy-dynnr EQ '0003'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND
CASE sy-dynnr .
WHEN '0003'.
* << Fim da inclusão
PERFORM user_command_0003.
* >> Início da exclusão: MODULE USER_COMMAND
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND
WHEN OTHERS.
PERFORM user_command_0113.
ENDCASE.
* << Fim da inclusão
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 .
ENDCASE.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001O01
...
WHEN '0003'.
PERFORM trata_screen_0003.
* >> Início da inclusão: MODULE SET_SCREEN
WHEN '0113' .
IF ( NOT v_di IS INITIAL OR
NOT v_nf IS INITIAL ) .
LOOP AT SCREEN.
IF ( NOT v_di IS INITIAL AND
screen-name = 'S_OQTDD' ).
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
IF ( NOT v_nf IS INITIAL AND
screen-name = 'S_OTPNF' ).
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
* << Fim da inclusão
ENDCASE.
ENDMODULE.
...
...
MODULE status_0600 OUTPUT.
* >> Início da inclusão: MODULE STATUS_0600
DATA: itab_log_aux like itab_log occurs 0 with header line.
* << Fim da inclusão
SET PF-STATUS '0600'.
CLEAR src.
REFRESH src.
CHECK sy-binpt IS INITIAL.
* >> Início da inclusão: MODULE STATUS_0600
MOVE itab_log[] TO itab_log_aux[].
* << Fim da inclusão
IF editor IS INITIAL.
LOOP AT itab_log WHERE nrseqli EQ v_nrseqli_pos
AND ebeln EQ v_ebeln_pos
AND ebelp EQ v_ebelp_pos .
* >> Início da inclusão: MODULE STATUS_0600
v_tabix = sy-tabix + 1.
READ TABLE itab_log_aux INDEX v_tabix.
* << Fim da inclusão
MOVE itab_log-descr TO src-line.
APPEND src.
CLEAR src.
* >> Início da inclusão: MODULE STATUS_0600
IF itab_log_aux-pos NE itab_log-pos.
* << Fim da inclusão
DO 100 TIMES.
REPLACE ' ' WITH '_' INTO src.
ENDDO.
APPEND src.
* >> Início da inclusão: MODULE STATUS_0600
ENDIF.
* << Fim da inclusão
ENDLOOP.
CREATE OBJECT editcontainer EXPORTING container_name = 'ALV'
repid = '/PWS/SAPMZYCI001'
dynnr = '0600'.
CREATE OBJECT editor EXPORTING parent = editcontainer
wordwrap_mode = cl_gui_textedit=>wordwrap_at_fixed_position
wordwrap_position = 100
max_number_chars = 100000.
...
...
* >> 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.
ENDCASE.
ENDMODULE.
MODULE verifica_campo OUTPUT.
IF NOT itab_zycit003[] IS INITIAL AND
itab_zycit263[] IS INITIAL.
SELECT * FROM /pws/zycit263
INTO TABLE itab_zycit263
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq = itab_zycit003-nrseq
AND ebeln = itab_zycit003-ebeln
AND ebelp = itab_zycit003-ebelp.
IF sy-subrc = 0.
SELECT * FROM /pws/zycit006
INTO TABLE itab_zycit006
FOR ALL ENTRIES IN itab_zycit263
WHERE nrseq_pgfat = itab_zycit263-nrseq_pgfat.
ENDIF.
ENDIF.
PERFORM verifica_di.
PERFORM seleciona_nf.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001TOP
...
DATA: BEGIN OF itab_log OCCURS 0 ,
nrseqli LIKE /pws/zycit078-nrseqli,
ebeln LIKE /pws/zycit079-ebeln ,
ebelp LIKE /pws/zycit079-ebelp ,
descr(100) ,
* >> Início da inclusão:
pos TYPE I ,
* << Fim da inclusão
END OF itab_log .
...
...
* >> Início da inclusão:
CONTROLS: tc_irep TYPE TABLEVIEW USING SCREEN 0113,
tc_irepi TYPE TABLEVIEW USING SCREEN 0114.
* << Fim da inclusão
...
...
* >> Início da inclusão:
SELECTION-SCREEN BEGIN OF SCREEN 0702.
SELECT-OPTIONS:
so_ebn FOR /pws/zycie003-ebeln
NO INTERVALS NO-EXTENSION,
so_ebp FOR /pws/zycie003-ebelp
NO INTERVALS NO-EXTENSION,
so_mater FOR /pws/zycie003-matnr
NO INTERVALS NO-EXTENSION,
so_denom FOR /pws/zycie003-descr
NO INTERVALS NO-EXTENSION,
so_qtd FOR /pws/zycie003-qtd_iten
NO INTERVALS NO-EXTENSION,
so_um FOR /pws/zycie003-meins
NO INTERVALS NO-EXTENSION,
so_qtdd FOR /pws/zycie003-qtd_itend
NO INTERVALS NO-EXTENSION,
so_ntgd FOR /pws/zycie003-ntgewd
NO INTERVALS NO-EXTENSION,
so_wrs FOR /pws/zycie003-waers
NO INTERVALS NO-EXTENSION,
so_wrks FOR /pws/zycie003-werks
NO INTERVALS NO-EXTENSION,
so_lif FOR /pws/zycie003-lifnr
NO INTERVALS NO-EXTENSION,
so_ncm FOR /pws/zycie003-j_1bnbm
NO INTERVALS NO-EXTENSION,
so_fabr FOR /pws/zycie003-lifnrfabr
NO INTERVALS NO-EXTENSION,
so_nrli FOR /pws/zycie003-nrseqli
NO INTERVALS NO-EXTENSION,
so_nrlsi FOR /pws/zycie003-nrseqlsi
NO INTERVALS NO-EXTENSION,
so_tpnf FOR /pws/zycie003-tpnf
NO INTERVALS NO-EXTENSION.
SELECTION-SCREEN END OF SCREEN 0702.
* << Fim da inclusão
AT SELECTION-SCREEN OUTPUT.
IF sy-dynnr EQ '0300'.
LOOP AT SCREEN.
IF ( screen-name EQ 'SO_INCO1-LOW' AND
NOT /pws/zycie001-inco1 IS INITIAL ) OR
( screen-name EQ 'PA_BUKRS' ).
screen-input = '0'.
MODIFY SCREEN.
ELSE.
screen-input = '1'.
...
...
WHEN '0701'.
IF sy-ucomm EQ 'CRET'.
PERFORM selecionar_rc.
ENDIF.
* >> Início da inclusão:
WHEN '0702'.
PERFORM trata_posicao.
* << Fim da inclusão
ENDCASE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001X01
...
* >> Início da inclusão:
DATA: v_sort(30),
v_sort2(30).
DATA: s_oqtd,
s_ontgew,
s_oqtdd,
s_ontgewd,
s_oliffab,
s_otpnf,
s_oserv,
s_odtalocpr,
i_oliffab,
i_oemba,
i_oqtdum,
i_ocondm,
i_onalad.
DATA : wa_itb LIKE itab_zycit003,
itab_itc like itab_zycit003 occurs 0 with header line,
itab_itci like itab_zycit003 occurs 0 with header line.
* << Fim da inclusão
DATA: END OF COMMON PART a.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F01
...
* >> Início da inclusão: FORM EXECUTA_BATCH_INPUT
IF NOT /pws/zycie041-dt_mr1m IS INITIAL.
/pws/zycie001-status = 'MR'.
CLEAR itab_zycit255. REFRESH itab_zycit255.
MOVE: sy-mandt TO itab_zycit255-mandt,
/pws/zycie001-nrseq TO itab_zycit255-nrseq,
/pws/zycie001-status TO itab_zycit255-status,
sy-datlo TO itab_zycit255-data,
sy-uzeit TO itab_zycit255-hora,
sy-uname TO itab_zycit255-usuario.
APPEND itab_zycit255.
INSERT INTO /pws/zycit255 VALUES itab_zycit255.
UPDATE /pws/zycit001 SET status = /pws/zycie001-status
WHERE nrseq = /pws/zycie001-nrseq.
COMMIT WORK.
ENDIF.
* << Fim da inclusão
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
MODIFY itab_nf INDEX v_pos
TRANSPORTING belnr_mr1m mblnr_mb01
belnr_f_51 belnr_f_02
belnr_f_02 belnrf02seg
belnrf02fre statusp_f_02 datacheg.
PERFORM atualiza_historico.
* >> Início da inclusão: FORM ESTORNA_IMPOSTO
PERFORM atualiza_status.
* << Fim da inclusão
ENDFORM.
FORM prepara_dados_bath_imposto.
FREE itab_itens_nf.
CLEAR: itab_itens_nf, wa_nf.
IF v_existe_nfr EQ 'S'.
MOVE-CORRESPONDING /pws/zycie043 TO wa_nf.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F03
...
* >> Início da inclusão:
FORM atualiza_status.
DATA: BEGIN OF itab_zycit041_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit041.
DATA: END OF itab_zycit041_aux.
DATA: BEGIN OF itab_zycit043_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit043.
DATA: END OF itab_zycit043_aux.
SELECT * FROM /pws/zycit042
INTO TABLE itab_zycit042_aux
WHERE nrseq = /pws/zycie001-nrseq.
IF sy-subrc = 0.
SELECT * FROM /pws/zycit041
INTO TABLE itab_zycit041_aux
FOR ALL ENTRIES IN itab_zycit042_aux
WHERE nrseq = itab_zycit042_aux-nrseqnf
AND NOT belnr_mr1m IS null
AND cancel = space.
DELETE itab_zycit041_aux
WHERE nfglobal = /pws/zycie041-nfglobal
AND docnum = /pws/zycie041-docnum.
IF NOT itab_zycit041_aux[] IS INITIAL.
EXIT.
ELSE.
SELECT * FROM /pws/zycit043
INTO TABLE itab_zycit043_aux
FOR ALL ENTRIES IN itab_zycit042
WHERE nrseq = itab_zycit042-nrseqnf
AND NOT belnr_mr1m IS null
AND cancel = space.
IF NOT itab_zycit043_aux[] IS INITIAL.
EXIT.
ELSE.
SELECT SINGLE * FROM /pws/zycit085
INTO /pws/zycie085
WHERE nrseqdi = /pws/zycie085-nrseqdi.
IF NOT /pws/zycie085-nrdi IS INITIAL AND
NOT /pws/zycie085-dtdesemb IS INITIAL.
UPDATE /pws/zycit001 SET status = 'DS'
WHERE nrseq = /pws/zycie001-nrseq.
ELSE.
UPDATE /pws/zycit001 SET status = 'DB'
WHERE nrseq = /pws/zycie001-nrseq.
ENDIF.
COMMIT WORK.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017X01
...
* >> Início da inclusão:
DATA: itab_zycit255 LIKE /pws/zycit255 OCCURS 0
WITH HEADER LINE. "#EC NEEDED
* << Fim da inclusão
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
NOT /pws/zycie085-nrdi IS INITIAL.
PERFORM salva_fatura.
* >> Início da inclusão: FORM SAVE_DATA
IF NOT itab_it-nrseq IS INITIAL.
it_zycit001-status = 'DS' .
UPDATE /pws/zycit001 SET status = 'DS'
WHERE nrseq = itab_it-nrseq.
MODIFY it_zycit001 INDEX 1.
MODIFY /pws/zycit001 FROM TABLE it_zycit001.
IF sy-subrc = 0.
PERFORM atualiza_status.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FORM SAVE_DATA
IF NOT /pws/zycie085-nrdi IS INITIAL OR
NOT /pws/zycie085-dtreg IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_DATA
ENDIF.
ELSE.
IF NOT itab_it-nrseq IS INITIAL.
it_zycit001-status = 'DB' .
MODIFY it_zycit001 INDEX 1.
MODIFY /pws/zycit001 FROM TABLE it_zycit001.
IF sy-subrc = 0.
* << Fim da inclusão
PERFORM atualiza_status.
* >> Início da inclusão: FORM SAVE_DATA
ENDIF.
ENDIF.
* << Fim da inclusão
ENDIF.
DELETE itab_zycit085 WHERE nrseqdi = /pws/zycie085-nrseqdi.
APPEND /pws/zycie085 TO itab_zycit085.
SORT itab_zycit085 BY nrseqdi.
COMMIT WORK.
IF v_dit = 'N'.
...
...
READ TABLE itab_it INDEX 1.
/pws/zycit496-mandt = /pws/zycie085-mandt .
/pws/zycit496-nrseq = itab_it-nrseq .
/pws/zycit496-func = 'DI' .
/pws/zycit496-nrseqdi = /pws/zycie085-nrseqdi.
/pws/zycit496-nrdi = /pws/zycie085-nrdi .
/pws/zycit496-dtuser = sy-datlo .
/pws/zycit496-hruser = sy-uzeit .
/pws/zycit496-username = sy-uname .
DELETE FROM /pws/zycit085 WHERE nrseqdi = /pws/zycie085-nrseqdi.
* >> Início da inclusão: FORM DATA_DELE
IF sy-subrc = 0.
SELECT SINGLE * FROM /pws/zycit100 INTO it_zycit100
WHERE nrseqdi = /pws/zycie085-nrseqdi.
APPEND it_zycit100.
READ TABLE it_zycit100 INDEX 1.
SELECT SINGLE * FROM /pws/zycit001 INTO it_zycit001
WHERE nrseq = it_zycit100-nrseq.
APPEND it_zycit001.
READ TABLE it_zycit001 INDEX 1.
it_zycit001-status = 'AB'.
MODIFY it_zycit001 INDEX 1.
UPDATE /pws/zycit001 SET status = 'AB'
WHERE nrseq = it_zycit001-nrseq.
PERFORM atualiza_status.
ENDIF.
* << Fim da inclusão
DELETE FROM /pws/zycit095 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit100 WHERE nrseqdi = /pws/zycie085-nrseqdi.
IF sy-subrc EQ 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
IF '56' CA /pws/zycie100a-codregtri .
v_vliirec = a_iidevi.
ELSE.
v_vliirec = t_iirec.
ENDIF.
IF '56' CA /pws/zycie100a-codregtriipi.
v_vlipirec = a_ipidevi.
ENDIF.
CLEAR: v_vlpisrec , v_vlcofrec.
IF '56' CA /pws/zycie100a-codregtripiscofi OR
* >> Início da exclusão: FORM LOAD_IICMS
( itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12' ).
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IICMS
( itab_zycit001-regime ne '05' OR
itab_zycit001-regime ne '12' ).
* << Fim da inclusão
v_vlpisrec = t_pis .
v_vlcofrec = t_cofins.
ENDIF.
...
...
FORM atualiza_status.
* >> Início da exclusão: FORM ATUALIZA_STATUS
SELECT SINGLE * FROM /pws/zycit100 INTO it_zycit100
WHERE nrseqdi = /pws/zycie085-nrseqdi.
APPEND it_zycit100.
READ TABLE it_zycit100 INDEX 1.
SELECT SINGLE * FROM /pws/zycit001 INTO it_zycit001
WHERE nrseq = it_zycit100-nrseq.
APPEND it_zycit001.
READ TABLE it_zycit001 INDEX 1.
IF NOT it_zycit001-status = 'DB'.
it_zycit001-status = 'DB'.
MODIFY it_zycit001 INDEX 1.
MODIFY /pws/zycit001 FROM TABLE it_zycit001.
* << Fim da exclusão
CLEAR it_zycit255. REFRESH it_zycit255.
MOVE: sy-mandt TO it_zycit255-mandt,
it_zycit001-nrseq TO it_zycit255-nrseq,
it_zycit001-status TO it_zycit255-status,
sy-datlo TO it_zycit255-data,
sy-uzeit TO it_zycit255-hora,
sy-uname TO it_zycit255-usuario.
APPEND it_zycit255.
INSERT INTO /pws/zycit255 VALUES it_zycit255.
* >> Início da exclusão: FORM ATUALIZA_STATUS
ENDIF.
* << Fim da exclusão
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI001
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 477
Texto: (31 caracteres)
"Embarque contém apenas um item."
Comprimento máximo: 31
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 478
Texto: (37 caracteres)
"É necessário marcar um item primeiro."
Comprimento máximo: 37
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 479
Texto: (27 caracteres)
"Uma opção deve ser marcada."
Comprimento máximo: 27
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 480
Texto: (32 caracteres)
"Não é possível alterar item pois"
Comprimento máximo: 35
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 481
Texto: (17 caracteres)
"DI já foi criada."
Comprimento máximo: 17
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 482
Texto: (17 caracteres)
"NF já foi criada."
Comprimento máximo: 17
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 483
Texto: (3 caracteres)
"LI:"
Comprimento máximo: 3
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 484
Texto: (9 caracteres)
"Embarque:"
Comprimento máximo: 9
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 485
Texto: (20 caracteres)
"Item não encontrado."
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_DENOM
Texto: (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_FABR
Texto: (18 caracteres)
"Fabricante"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_LIF
Texto: (18 caracteres)
"Fornecedor"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_MATER
Texto: (16 caracteres)
"Material"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_NCM
Texto: (11 caracteres)
"NCM"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_NRLI
Texto: (17 caracteres)
"Nr.Seq.LI"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_NRLSI
Texto: (18 caracteres)
"Nr.Seq.LSI"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_NTGD
Texto: (25 caracteres)
"Peso desembarcado"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_QTD
Texto: (20 caracteres)
"Qtd.Embarque"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_QTDD
Texto: (24 caracteres)
"Qtd.Desembarcada"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_TPNF
Texto: (15 caracteres)
"Tipo NF"
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_WRKS
Texto: (14 caracteres)
"Centro"
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