CE PLUS - Nota 007550
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 07/11/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:16:24
Descrição da Nota: AJUSTES DE NAVEGABILIDADE.
Sintoma
Ajustes de navegabilidade.
Solução
Ajustes de navegabilidade.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07550 Data: 07/11/2008 Hora: 16:42:16
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07550
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00072
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04381 - 00001 - 7.0 - 00002 - DIFERENÇA NO RELATÓRIO DE CUSTO EFETIVOS NO VALOR DO FOB.
06237 - 00002 - 7.0 - 00005 - REPLICAÇÃO DE FORNECEDOR/FABRICANTE NO ITEM DA FATURA
----------------------------------------------------------------------------------------------------
AJUSTES DE NAVEGABILIDADE.
----------------------------------------------------------------------------------------------------
Palavras Chave:
NAVEGABILIDADE - FATURA - ORDENAR - POSICIONAR - REPLICAR
/PWS/SAPMZYCI003
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCI003
DYNP /PWS/SAPMZYCI003 0106
DYNP /PWS/SAPMZYCI003 0115
DYNP /PWS/SAPMZYCI003 0116
RELE F6DK966077 20081107 163439 PWSCI
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI003I01
REPS /PWS/MZYCI003O01
REPS /PWS/MZYCI003TOP
REPS /PWS/MZYCI003X01
REPS /PWS/SAPMZYCI003
REPT /PWS/SAPMZYCI003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI003 0106
INCLUIR BOTÃO "BTN0100_01"
Altura 18
Comprimento Visível 32
Linha 15
Coluna 17
Formato CHAR
Texto @2S\QPosicionar@ Posicionar
Código função POSI
INCLUIR BOTÃO "BTNT0106_06"
Altura 2
Comprimento Visível 4
Linha 3
Coluna 19
Formato CHAR
Texto @3E@
Código função ACEND
INCLUIR BOTÃO "BTNT0106_07"
Altura 2
Comprimento Visível 4
Linha 3
Coluna 22
Formato CHAR
Texto @3F@
Código função DECRE
INCLUIR BOTÃO "BTNT0106_08"
Altura 2
Comprimento Visível 16
Linha 3
Coluna 25
Formato CHAR
Texto @5O\QReplicar@
Código função REPL
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI003 0115
INCLUIR CX.DIÁLOGO 0115
Descrição CI - Replicar dados tela 106
Tela seguinte 0115
Altura atual (linhas) 27
Largura atual (colunas) 120
INCLUIR BOTÃO "BTN0115_01"
Altura 2
Comprimento Visível 7
Linha 1
Coluna 2
Formato CHAR
Texto @4B@ ##
Código função MALL
INCLUIR BOTÃO "BTN0115_02"
Altura 2
Comprimento Visível 7
Linha 1
Coluna 5
Formato CHAR
Texto @4D@ ##
Código função DALL
INCLUIR CONTROLE DE TABELA "TC_REPLI1"
Altura 8
Comprimento Visível 88
Linha 2
Coluna 2
INCLUIR TEXTO "/PWS/ZYCIE003-NRSEQ" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 18
Linha 1
Coluna 1
Formato CHAR
Texto Nº Seq.do Embarque
INCLUIR TEXTO "/PWS/ZYCIE003-EBELN" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 15
Linha 1
Coluna 2
Formato CHAR
Texto Doc.compra
INCLUIR TEXTO "/PWS/ZYCIE003-EBELP" em tbl.contr./tabstr.
Altura 5
Comprimento Visível 15
Linha 1
Coluna 3
Formato CHAR
Texto Item
INCLUIR TEXTO "/PWS/ZYCIE003-MATNR" em tbl.contr./tabstr.
Altura 18
Comprimento Visível 15
Linha 1
Coluna 4
Formato CHAR
Texto Material
INCLUIR TEXTO "/PWS/ZYCIE003-DESCR" em tbl.contr./tabstr.
Altura 40
Comprimento Visível 15
Linha 1
Coluna 5
Formato CHAR
Texto Denominação
INCLUIR CAIXA DE VERIFICAÇÃO "ITAB_ZYCIT003_TEMP-MARC" em tbl.contr./tab
Altura 1
Comprimento Visível 1
Linha 1
Formato CHAR
Texto _
INCLUIR CAMPO TEXTO "ITAB_ZYCIT003_TEMP-NRSEQ" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 1
Formato CHAR
Linhas mínimas 10
Texto __________
INCLUIR CAMPO TEXTO "ITAB_ZYCIT003_TEMP-EBELN" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 2
Formato CHAR
Linhas mínimas 10
Texto __________
INCLUIR CAMPO TEXTO "ITAB_ZYCIT003_TEMP-EBELP" em tbl.contr./tabstr.
Altura 5
Comprimento Visível 5
Linha 1
Coluna 3
Formato NUMC
Linhas mínimas 5
Texto _____
INCLUIR CAMPO TEXTO "ITAB_ZYCIT003_TEMP-MATNR" em tbl.contr./tabstr.
Altura 18
Comprimento Visível 18
Linha 1
Coluna 4
Formato CHAR
Linhas mínimas 18
Texto __________________
INCLUIR CAMPO TEXTO "ITAB_ZYCIT003_TEMP-DESCR" em tbl.contr./tabstr.
Altura 40
Comprimento Visível 40
Linha 1
Coluna 5
Formato CHAR
Linhas mínimas 40
Texto ________________________________________
INCLUIR FRAME ""
Altura 6
Comprimento Visível 24
Linha 11
Coluna 33
Formato CHAR
INCLUIR CAIXA DE VERIFICAÇÃO "CHECK_01"
Comprimento Visível 1
Linha 12
Coluna 35
Formato CHAR
Texto _
INCLUIR CHTXT "CHECK_01"
Comprimento Visível 14
Linha 12
Coluna 37
Formato CHAR
Texto Qtd da fatura
INCLUIR CAIXA DE VERIFICAÇÃO "CHECK_02"
Comprimento Visível 1
Linha 13
Coluna 35
Formato CHAR
Texto _
INCLUIR CHTXT "CHECK_02"
Comprimento Visível 19
Linha 13
Coluna 37
Formato CHAR
Texto País do fabricante
INCLUIR CAIXA DE VERIFICAÇÃO "CHECK_03"
Comprimento Visível 1
Linha 14
Coluna 35
Formato CHAR
Grupo 1 FRE
Texto _
INCLUIR CHTXT "CHECK_03"
Comprimento Visível 15
Linha 14
Coluna 37
Formato CHAR
Grupo 1 FRE
Texto Realizado frete
INCLUIR CAIXA DE VERIFICAÇÃO "CHECK_04"
Comprimento Visível 1
Linha 15
Coluna 35
Formato CHAR
Grupo 1 SEG
Texto _
INCLUIR CHTXT "CHECK_04"
Comprimento Visível 16
Linha 15
Coluna 37
Formato CHAR
Grupo 1 SEG
Texto Realizado seguro
INCLUIR OKCODE "OKCODE"
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0115
* >> Início da inclusão:
PROCESS BEFORE OUTPUT.
MODULE status_0115.
LOOP AT itab_zycit003_temp WITH CONTROL tc_repli1
CURSOR tc_repli1-current_line.
module preenche_115.
ENDLOOP.
PROCESS AFTER INPUT.
LOOP AT itab_zycit003_temp.
module atualiza_115.
ENDLOOP.
MODULE user_command_0115.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI003 0116
INCLUIR FRAME ""
Altura 9
Comprimento Visível 25
Linha 11
Coluna 32
Formato CHAR
INCLUIR TEXTO "/PWS/ZYCIE003-DESCR" em tbl.contr./tabstr.
Altura 40
Comprimento Visível 15
Linha 1
Coluna 5
Formato CHAR
Texto Denominação
INCLUIR TEXTO "/PWS/ZYCIE003-EBELN" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 15
Linha 1
Coluna 2
Formato CHAR
Texto Doc.compra
INCLUIR TEXTO "/PWS/ZYCIE003-EBELP" em tbl.contr./tabstr.
Altura 5
Comprimento Visível 15
Linha 1
Coluna 3
Formato CHAR
Texto Item
INCLUIR TEXTO "/PWS/ZYCIE003-MATNR" em tbl.contr./tabstr.
Altura 18
Comprimento Visível 15
Linha 1
Coluna 4
Formato CHAR
Texto Material
INCLUIR TEXTO "/PWS/ZYCIE003-NRSEQ" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 18
Linha 1
Coluna 1
Formato CHAR
Texto Nº Seq.do Embarque
INCLUIR BOTÃO "BTN0115_01"
Altura 2
Comprimento Visível 7
Linha 1
Coluna 2
Formato CHAR
Texto @4B@ ##
Código função MALL
INCLUIR BOTÃO "BTN0115_02"
Altura 2
Comprimento Visível 7
Linha 1
Coluna 5
Formato CHAR
Texto @4D@ ##
Código função DALL
INCLUIR CAIXA DE VERIFICAÇÃO "CHECK_01"
Comprimento Visível 1
Linha 12
Coluna 34
Formato CHAR
Grupo 1 FRE
Texto _
INCLUIR CHTXT "CHECK_01"
Comprimento Visível 15
Linha 12
Coluna 36
Formato CHAR
Grupo 1 FRE
Texto Realizado frete
INCLUIR CAIXA DE VERIFICAÇÃO "CHECK_02"
Comprimento Visível 1
Linha 13
Coluna 34
Formato CHAR
Grupo 1 SEG
Texto _
INCLUIR CHTXT "CHECK_02"
Comprimento Visível 16
Linha 13
Coluna 36
Formato CHAR
Grupo 1 SEG
Texto Realizado seguro
INCLUIR CAIXA DE VERIFICAÇÃO "CHECK_03"
Comprimento Visível 1
Linha 14
Coluna 34
Formato CHAR
Texto _
INCLUIR CHTXT "CHECK_03"
Comprimento Visível 12
Linha 14
Coluna 36
Formato CHAR
Texto Peso liquido
INCLUIR CAIXA DE VERIFICAÇÃO "CHECK_04"
Comprimento Visível 1
Linha 15
Coluna 34
Formato CHAR
Texto _
INCLUIR CHTXT "CHECK_04"
Comprimento Visível 20
Linha 15
Coluna 36
Formato CHAR
Texto Código do fabricante
INCLUIR CAIXA DE VERIFICAÇÃO "CHECK_05"
Comprimento Visível 1
Linha 16
Coluna 34
Formato CHAR
Texto _
INCLUIR CHTXT "CHECK_05"
Comprimento Visível 18
Linha 16
Coluna 36
Formato CHAR
Texto País do fabricante
INCLUIR CAIXA DE VERIFICAÇÃO "CHECK_06"
Comprimento Visível 1
Linha 17
Coluna 34
Formato CHAR
Texto _
INCLUIR CHTXT "CHECK_06"
Comprimento Visível 18
Linha 17
Coluna 36
Formato CHAR
Texto N° peça fabricante
INCLUIR CAIXA DE VERIFICAÇÃO "CHECK_07"
Comprimento Visível 1
Linha 18
Coluna 34
Formato CHAR
Texto _
INCLUIR CHTXT "CHECK_07"
Comprimento Visível 6
Linha 18
Coluna 36
Formato CHAR
Texto Agente
INCLUIR CAMPO TEXTO "ITAB_ZYCIT003_TEMP-DESCR" em tbl.contr./tabstr.
Altura 40
Comprimento Visível 40
Linha 1
Coluna 5
Formato CHAR
Texto ________________________________________
INCLUIR CAMPO TEXTO "ITAB_ZYCIT003_TEMP-EBELN" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 2
Formato CHAR
Texto __________
Código função
INCLUIR CAMPO TEXTO "ITAB_ZYCIT003_TEMP-EBELP" em tbl.contr./tabstr.
Altura 5
Comprimento Visível 5
Linha 1
Coluna 3
Formato NUMC
Texto _____
Código função
INCLUIR CAIXA DE VERIFICAÇÃO "ITAB_ZYCIT003_TEMP-MARC" em tbl.contr./tab
Altura 1
Comprimento Visível 1
Linha 1
Formato CHAR
Texto _
INCLUIR CAMPO TEXTO "ITAB_ZYCIT003_TEMP-MATNR" em tbl.contr./tabstr.
Altura 18
Comprimento Visível 18
Linha 1
Coluna 4
Formato CHAR
Texto __________________
Código função
INCLUIR CAMPO TEXTO "ITAB_ZYCIT003_TEMP-NRSEQ" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 1
Formato CHAR
Texto __________
Código função
INCLUIR CONTROLE DE TABELA "TC_REPLI1"
Altura 8
Comprimento Visível 88
Linha 2
Coluna 2
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0116
PROCESS BEFORE OUTPUT.
* >> Início da inclusão:
MODULE status_0115.
LOOP AT itab_zycit003_temp WITH CONTROL tc_repli1
CURSOR tc_repli1-current_line.
MODULE preenche_115.
ENDLOOP.
* << Fim da inclusão
PROCESS AFTER INPUT.
* >> Início da inclusão:
LOOP AT itab_zycit003_temp.
MODULE atualiza_115.
ENDLOOP.
MODULE user_command_0115.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em RELE F6DK966077 20081107 163439 PWSCI
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
IF sy-subrc EQ 0.
MESSAGE s015 WITH text-110.
v_stop = 'X' .
ELSE.
SELECT SINGLE * FROM /pws/zycbt064 WHERE
nrchave EQ /pws/zycie006-nrseq_pgfat AND
mdcorresp EQ 'IP'.
IF sy-subrc EQ 0.
MESSAGE s015 WITH text-110.
v_stop = 'X' .
* >> Início da inclusão: FORM VERIFICA_BOLETO
IF sy-subrc NE 0.
MESSAGE i015 WITH text-003.
* << Fim da inclusão
ENDIF.
ENDIF.
* >> Início da inclusão: FORM VERIFICA_BOLETO
ENDIF.
* << Fim da inclusão
ENDFORM.
* >> Início da inclusão:
FORM posicionar_100.
LOOP AT itab_zycit003 WHERE ebeln IN s_ebeln
AND ebelp IN s_ebelp
AND toinv IN s_toinv
AND matnr IN s_matnr
AND qtd_iten IN s_qtd
AND netpr IN s_netpr
AND vlreal IN s_vlreal
AND vlfre_fat IN s_frete
AND vlseg_fat IN s_seg
AND vldif IN s_vldif
AND fabric IN s_fabric
AND lifnrfabr IN s_liffab
AND paisfab IN s_paisf
AND porigem IN s_origem
AND paquis IN s_paquis .
tc_itens-top_line = sy-tabix.
EXIT.
ENDLOOP.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-188.
ENDIF.
ENDFORM.
FORM limpa_flags.
CLEAR: check_01, check_02, check_03, check_04, check_05, check_06,
check_07.
ENDFORM.
FORM tela_0115.
IF check_01 EQ 'X' .
itab_zycit003_temp-qtd_iten =
itab_zycit003_temp-qtd_iten - itab_zycit003_temp-invoiced.
IF itab_zycit003-toinv > itab_zycit003_temp-qtd_iten.
itab_zycit003_temp-toinv = itab_zycit003_temp-qtd_iten.
ELSE.
itab_zycit003_temp-toinv = itab_zycit003-toinv.
ENDIF.
ENDIF.
IF check_02 EQ 'X'.
itab_zycit003_temp-paisfab = itab_zycit003-paisfab.
ENDIF.
IF check_03 EQ 'X' .
itab_zycit003_temp-vlfre_fat = itab_zycit003-vlfre_fat.
ENDIF.
IF check_04 EQ 'X' .
itab_zycit003_temp-vlseg_fat = itab_zycit003-vlseg_fat.
ENDIF.
ENDFORM.
FORM tela_0116.
IF check_01 EQ 'X' .
itab_zycit003_temp-vlfre_fat = /pws/zycie003-vlfre_fat.
ENDIF.
IF check_02 EQ 'X' .
itab_zycit003_temp-vlseg_fat = /pws/zycie003-vlseg_fat.
ENDIF.
IF check_03 EQ 'X' .
itab_zycit003_temp-ntgew = /pws/zycie003-ntgew.
ENDIF.
IF check_04 EQ 'X' .
itab_zycit003_temp-lifnrfabr = /pws/zycie003-lifnrfabr.
itab_zycit003_temp-descfab = /pws/zycie003-descfab.
itab_zycit003_temp-paisfab = /pws/zycie003-paisfab.
itab_zycit003_temp-flagfabr = 'S'.
ENDIF.
IF check_05 EQ 'X'.
itab_zycit003_temp-paisfab = /pws/zycie003-paisfab.
ENDIF.
IF check_06 EQ 'X' .
itab_zycit003_temp-mfrpn = /pws/zycie003-mfrpn.
ENDIF.
IF check_07 EQ 'X' .
itab_zycit003_temp-agente = /pws/zycie003-agente.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003I01
...
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD 'ME23N'.
IF sy-subrc EQ 0.
CALL TRANSACTION 'ME23N' AND
SKIP FIRST SCREEN. "#EC CI_CALLTA
ELSE.
MESSAGE e261(sf) WITH 'ME23N'.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE USER_COMMAND_0102
WHEN 'REPL'.
REFRESH itab_zycit003_temp.
LOOP AT itab_zycit003 WHERE marc EQ 'X'.
IF itab_zycit003_temp[] IS INITIAL.
itab_zycit003_temp[] = itab_zycit003[].
DELETE itab_zycit003_temp
WHERE ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp.
ELSE.
MESSAGE s015 WITH text-052.
REFRESH itab_zycit003_temp.
EXIT.
ENDIF.
ENDLOOP.
IF sy-subrc NE 0.
MESSAGE s015 WITH text-024.
EXIT.
ENDIF.
REFRESH CONTROL 'TC_REPLI1' FROM SCREEN 0115.
PERFORM limpa_flags.
DESCRIBE TABLE itab_zycit003_temp LINES tc_repli1-lines.
IF tc_repli1-lines > 0 .
CALL SCREEN '0115' STARTING AT 01 01.
ENDIF.
CLEAR: okcode.
WHEN 'POSI'.
CALL SELECTION-SCREEN '0114' STARTING AT 01 01.
CLEAR: okcode.
WHEN 'ACEND'.
CLEAR: v_coluna.
LOOP AT tc_itens-cols INTO wa_cols WHERE selected EQ 'X'.
v_coluna = wa_cols-screen-name+14.
ENDLOOP.
IF v_coluna IS INITIAL.
MESSAGE i096.
ELSE.
SORT itab_zycit003 BY (v_coluna).
ENDIF.
CLEAR: okcode.
WHEN 'DECRE'.
CLEAR: v_coluna.
LOOP AT tc_itens-cols INTO wa_cols WHERE selected EQ 'X'.
v_coluna = wa_cols-screen-name+14.
ENDLOOP.
IF v_coluna IS INITIAL.
MESSAGE i096.
ELSE.
SORT itab_zycit003 DESCENDING BY (v_coluna).
ENDIF.
CLEAR: okcode.
* << Fim da inclusão
ENDCASE.
ENDMODULE.
MODULE user_command_0200 INPUT.
CASE sy-ucomm.
WHEN 'BACK'.
LEAVE TO SCREEN '0100'.
ENDCASE.
ENDMODULE.
MODULE user_command_0400 INPUT.
CASE okcode.
...
...
MOVE-CORRESPONDING itab_zycit003 TO /pws/zycie003.
ENDIF.
WHEN 'ULTI'.
DESCRIBE TABLE itab_zycit003 LINES v_index_det.
READ TABLE itab_zycit003 INDEX v_index_det.
MOVE-CORRESPONDING itab_zycit003 TO /pws/zycie003.
WHEN 'BACK' OR 'EXIT'.
CLEAR /pws/zycie003.
LEAVE TO SCREEN '0100'.
WHEN 'REPL'.
* >> Início da exclusão: MODULE USER_COMMAND_0400
DESCRIBE TABLE itab_zycit003 LINES v_line.
IF v_line EQ 1.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0400
itab_zycit003_temp[] = itab_zycit003[].
DELETE itab_zycit003_temp
WHERE ebeln EQ /pws/zycie003-ebeln
AND ebelp EQ /pws/zycie003-ebelp.
CLEAR: itab_zycit003_temp.
MODIFY itab_zycit003_temp TRANSPORTING marc
WHERE marc EQ 'X'.
REFRESH CONTROL 'TC_REPLI1' FROM SCREEN 0116.
PERFORM limpa_flags.
DESCRIBE TABLE itab_zycit003_temp LINES tc_repli1-lines.
IF tc_repli1-lines > 0 .
CALL SCREEN '0116' STARTING AT 01 01.
ELSE.
* << Fim da inclusão
MESSAGE s015 WITH text-187.
* >> Início da exclusão: MODULE USER_COMMAND_0400
EXIT.
ELSE.
PERFORM fill_itab_repl.
CALL SCREEN '0450' STARTING AT 5 2.
* << Fim da exclusão
ENDIF.
* >> Início da inclusão: MODULE USER_COMMAND_0400
CLEAR: okcode.
* << Fim da inclusão
ENDCASE.
ENDMODULE.
MODULE altera_item INPUT.
IF /pws/zycie006-fabricante = '2'.
IF /pws/zycie003-fabric = '1'.
/pws/zycie003-flagfabr = 'S'.
/pws/zycie003-lifnrfabr = /pws/zycie006-lifnr.
ELSEIF /pws/zycie003-fabric = '3'.
CLEAR: /pws/zycie003-lifnrfabr, /pws/zycie003-flagfabr,
/pws/zycie003-descfab .
...
...
DELETE itab_zycit483 WHERE mark EQ 'X'.
ENDCASE.
ENDMODULE.
MODULE carrega_itab INPUT.
CASE sy-dynnr.
WHEN '0450'.
itab_repl-mark = wa_repl-mark.
MODIFY itab_repl INDEX tc_irep-current_line TRANSPORTING mark.
ENDCASE.
ENDMODULE.
* >> Início da inclusão:
MODULE user_command_0115 INPUT.
CASE okcode.
WHEN 'ENTER'.
LOOP AT itab_zycit003_temp WHERE marc EQ 'X'.
CASE sy-dynnr.
WHEN '0115'.
PERFORM tela_0115.
WHEN '0116'.
PERFORM tela_0116.
ENDCASE.
MODIFY itab_zycit003 FROM itab_zycit003_temp
TRANSPORTING toinv paisfab vlfre_fat vlseg_fat ntgew
lifnrfabr mfrpn agente descfab flagfabr
WHERE ebeln EQ itab_zycit003_temp-ebeln
AND ebelp EQ itab_zycit003_temp-ebelp.
ENDLOOP.
LEAVE TO SCREEN 0.
WHEN 'EXIT'.
LEAVE TO SCREEN 0.
WHEN 'MALL'.
itab_zycit003_temp-marc = 'X'.
MODIFY itab_zycit003_temp TRANSPORTING marc
WHERE marc EQ space.
WHEN 'DALL'.
CLEAR itab_zycit003_temp-marc.
MODIFY itab_zycit003_temp TRANSPORTING marc
WHERE marc EQ 'X'.
WHEN 'CHECK'.
check_01 = check_02 = check_03 = check_04 =
check_05 = check_06 = check_07 = 'X'.
WHEN 'UNCHECK'.
CLEAR: check_01, check_02, check_03, check_04, check_05,
check_06, check_07.
ENDCASE.
ENDMODULE.
MODULE atualiza_115 INPUT.
MODIFY itab_zycit003_temp INDEX tc_repli1-current_line.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01
...
AND codmod = 'D'
AND land1 = t001-land1.
IF sy-subrc = 0.
IF NOT /pws/zycit224-zlsch IS INITIAL.
MOVE: /pws/zycit224-zlsch TO /pws/zycie006-zlsch.
ENDIF.
IF NOT /pws/zycit224-zlspr IS INITIAL.
MOVE /pws/zycit224-zlspr TO /pws/zycie006-zlspr.
ENDIF.
ENDIF.
* >> Início da exclusão: MODULE LOAD_DATA
SORT itab_zycit003 BY nrseq ebeln ebelp.
* << Fim da exclusão
IF ( t001-land1 = 'AR' OR t001-land1 = 'CL' )
AND /pws/zycie006-tpfatura = '01' AND
/pws/zycie006-ratfre IS INITIAL.
/pws/zycie006-ratfre = 'S'.
ENDIF.
IF NOT /pws/zycie006-ratval IS INITIAL AND v_ratval IS INITIAL.
PERFORM pega_descricao_dominio USING '/PWS/ZYCIT391-RATVAL'
/pws/zycie006-ratval
CHANGING v_ratval.
ENDIF.
...
...
IF sy-subrc EQ 0.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
IF v_existe_bol EQ 'X'
AND screen-name EQ 'V_RATVAL' .
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN
IF screen-name = 'BTNT0106_08'.
IF NOT /pws/zycie006-belnr_p IS INITIAL OR
v_status_s = '0' OR sy-tcode = '/PWS/ZYCI003_M'.
screen-invisible = '1'.
MODIFY SCREEN.
ELSE.
screen-invisible = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDLOOP.
IF v_status_s = 0 OR sy-tcode = '/PWS/ZYCI003_M'.
LOOP AT tc_itens-cols INTO wa_cols.
wa_cols-screen-input = '0'.
MODIFY tc_itens-cols FROM wa_cols.
ENDLOOP.
ELSEIF v_status_s = 1.
LOOP AT tc_itens-cols INTO wa_cols.
IF wa_cols-screen-group1 NE 'OUT' .
wa_cols-screen-input = '1'.
...
...
screen-invisible = '0'.
WHEN 'F3' .
screen-invisible = '0'.
ENDCASE.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
ENDMODULE.
MODULE status_0400 OUTPUT.
* >> Início da exclusão: MODULE STATUS_0400
IF /pws/zycie006-tpfatura EQ '01' AND
/pws/zycie006-fabricante EQ '2'.
* << Fim da exclusão
SET PF-STATUS '400' .
* >> Início da exclusão: MODULE STATUS_0400
ELSE.
SET PF-STATUS '400' EXCLUDING 'REPL'.
ENDIF.
* << Fim da exclusão
ENDMODULE.
MODULE exibe_detalhe OUTPUT.
IF /pws/zycie006-fabricante = '2'.
IF /pws/zycie003-flagfabr = 'S'.
...
...
SET TITLEBAR '0450'.
SET PF-STATUS '0450'.
ENDCASE.
ENDMODULE.
MODULE carrega_estrutura OUTPUT.
CASE sy-dynnr.
WHEN '0450'.
PERFORM carrega_estrutura_0450.
ENDCASE.
ENDMODULE.
* >> Início da inclusão:
MODULE status_0115 OUTPUT.
SET PF-STATUS '0115'.
LOOP AT SCREEN.
IF screen-group1 EQ 'FRE'.
IF /pws/zycit031-inco1_ci EQ 'FOB'.
screen-invisible = 1.
ELSE.
screen-invisible = 0.
ENDIF.
ENDIF.
IF screen-group1 EQ 'SEG'.
IF /pws/zycit031-inco1_ci EQ 'CIF'.
screen-invisible = 0.
ELSE.
screen-invisible = 1.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDMODULE.
MODULE preenche_115 OUTPUT.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003TOP
...
* >> Início da inclusão:
CONTROLS tc_repli1 TYPE TABLEVIEW USING SCREEN '0115'.
* << Fim da inclusão
...
...
* >> Início da inclusão:
SELECTION-SCREEN BEGIN OF SCREEN 0114 AS WINDOW TITLE text-109.
SELECT-OPTIONS: s_ebeln FOR /pws/zycie003-ebeln
NO INTERVALS NO-EXTENSION,
s_ebelp FOR /pws/zycie003-ebelp
NO INTERVALS NO-EXTENSION,
s_toinv FOR itab_zycit003-toinv
NO INTERVALS NO-EXTENSION,
s_matnr FOR /pws/zycie003-matnr
NO INTERVALS NO-EXTENSION,
s_qtd FOR /pws/zycie003-qtd_iten
NO INTERVALS NO-EXTENSION,
s_netpr FOR /pws/zycie003-netpr
NO INTERVALS NO-EXTENSION,
s_vlreal FOR /pws/zycie003-vlreal
NO INTERVALS NO-EXTENSION,
s_frete FOR /pws/zycie003-vlfre_fat MODIF ID fre
NO INTERVALS NO-EXTENSION,
s_seg FOR /pws/zycie003-vlseg_fat MODIF ID seg
NO INTERVALS NO-EXTENSION,
s_vldif FOR /pws/zycie036-vldif
NO INTERVALS NO-EXTENSION,
s_fabric FOR /pws/zycie003-fabric
NO INTERVALS NO-EXTENSION,
s_liffab FOR /pws/zycie003-lifnrfabr
NO INTERVALS NO-EXTENSION,
s_paisf FOR /pws/zycie003-paisfab
NO INTERVALS NO-EXTENSION,
s_origem FOR /pws/zycie003-porigem
NO INTERVALS NO-EXTENSION,
s_paquis FOR /pws/zycie003-paquis
NO INTERVALS NO-EXTENSION.
SELECTION-SCREEN END OF SCREEN 0114.
* << Fim da inclusão
...
...
MODIFY SCREEN.
ELSE.
screen-input = '1'.
ENDIF.
IF screen-name = 'SO_LIFNR-HIGH' OR
screen-name = 'SO_INCO1-HIGH'.
screen-invisible = '1'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
* >> Início da inclusão:
IF sy-dynnr EQ '0114'.
IF screen-group1 EQ 'FRE'.
IF /pws/zycit031-inco1_ci EQ 'FOB'.
screen-invisible = 1.
screen-active = 0.
ELSE.
screen-invisible = 0.
screen-active = 1.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF screen-group1 EQ 'SEG'.
IF /pws/zycit031-inco1_ci EQ 'CIF'.
screen-invisible = 0.
screen-active = 1.
ELSE.
screen-invisible = 1.
screen-active = 0.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDLOOP.
AT SELECTION-SCREEN.
* >> Início da inclusão:
CASE sy-dynnr .
WHEN '0300'.
* << Fim da inclusão
CASE sy-ucomm.
WHEN 'CRET'.
PERFORM selecionar_itens.
* >> Início da inclusão:
ENDCASE.
WHEN '0114'.
CASE sy-ucomm.
WHEN 'CRET'.
PERFORM: posicionar_100.
ENDCASE.
* << Fim da inclusão
ENDCASE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003X01
...
* >> Início da inclusão:
DATA: itab_zycit003_temp LIKE itab_zycit003 occurs 0 WITH HEADER LINE.
DATA: v_coluna(20) TYPE c,
check_01 TYPE c,
check_02 TYPE c,
check_03 TYPE c,
check_04 TYPE c,
check_05 TYPE c,
check_06 TYPE c,
check_07 TYPE c.
DATA: BEGIN OF itab_repli OCCURS 0.
DATA: flag(1) TYPE c,
texto(30) TYPE c.
DATA: END OF itab_repli.
* << Fim da inclusão
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCI003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI003
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 188
Texto: (37 caracteres)
"Nenhum item para critério informado ."
Comprimento máximo: 37
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): S_EBELN
Texto: (27 caracteres)
"Documento de compra"
Referência ao Dictionary: SIM
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): S_EBELP
Texto: (12 caracteres)
"Item"
Referência ao Dictionary: SIM
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): S_FABRIC
Texto: (19 caracteres)
"Fabric/Prod"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): S_FRETE
Texto: (23 caracteres)
"Realizado frete"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): S_LIFFAB
Texto: (22 caracteres)
"Cod Fabricante"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): S_MATNR
Texto: (16 caracteres)
"Material"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): S_NETPR
Texto: (23 caracteres)
"Valor planejado"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): S_ORIGEM
Texto: (14 caracteres)
"Origem"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): S_PAISF
Texto: (23 caracteres)
"País Fabricante"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): S_PAQUIS
Texto: (17 caracteres)
"Aquisição"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): S_QTD
Texto: (22 caracteres)
"Qtd. embarcada"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): S_SEG
Texto: (24 caracteres)
"Realizado seguro"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): S_TOINV
Texto: (22 caracteres)
"Qtd. da Fatura"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): S_VLDIF
Texto: (13 caracteres)
"Total"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): S_VLREAL
Texto: (28 caracteres)
"Realizado Mercadoria"
Referência ao Dictionary: NÃO