Visualização da Nota 10752

CE PLUS - Nota 010752

Módulo: CÂMBIO IMPORTAÇÃO

Funcionalidade: Parâmetros

Data/Hora da Publicação: 22/11/2010 00:00:00

Data/Hora Última Alteração: 18/02/2011 11:10:03

Descrição da Nota: PARÂMETROS - PARÂMETROS GERAIS - GRAVAÇÃO EM REQUEST

Sintoma

O sistema não permite gravar alterações de alguns parâmetros em request.

Solução

Foi feito um desenvolvimento de forma a permitir a gravação de alterações de parêmtros em request

para ser aplicado nos programas que não permitiam tal funcionalidade

Versões Tratadas

8.0

Pré-Requisitos

Produto:

Nota

Descrição

Nota 10188

MAPEAMENTO SOCIEDADE PARCEIRA NAS CONTABILIZAÇÕES

Nota 6907

AUTHORITY-CHECK EM REPORT

Nota 10704

FUNÇÃO QUE PERMITE GRAVAR OS PARÂMETROS DE CÂMBIO EM REQUEST

Nota 6858

INCLUSÃO DE AUTHORITY CHECK EM PROGRAMAS E RELATÓRIOS.

Nota 6054

CODE INSPECTOR , VERIFICAÇÃO AMPLIADA - CAMBIO

Nota 9895

PARÂMETROS GERAIS MENSAGEM PROVISÃO

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 10752 Data: 22/11/2010 Hora: 11:24:19

----------------------------------------------------------------------------------------------------

Nota Número : 10752

Categoria : Melhoria

Prioridade : Média

Versão PW.CE : 8.0

Pacote : 00005

Agrupamento : 00049

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

06054 - 00012 - 7.0 - 00004 - CODE INSPECTOR , VERIFICAÇÃO AMPLIADA - CAMBIO

06858 - 00003 - 7.0 - 00006 - INCLUSÃO DE AUTHORITY CHECK EM PROGRAMAS E RELATÓRIOS.

06907 - 00004 - 7.0 - 00006 - AUTHORITY-CHECK EM REPORT

09895 - 00005 - 8.0 - 00002 - PARÂMETROS GERAIS MENSAGEM PROVISÃO

10188 - 00006 - 8.0 - 00003 - MAPEAMENTO SOCIEDADE PARCEIRA NAS CONTABILIZAÇÕES

10704 - 00007 - 8.0 - 00005 - FUNÇÃO QUE PERMITE GRAVAR OS PARÂMETROS DE CÂMBIO EM REQUEST

----------------------------------------------------------------------------------------------------

PARÂMETROS - PARÂMETROS GERAIS - GRAVAÇÃO EM REQUEST

----------------------------------------------------------------------------------------------------

Palavras Chave:

PARÂMETROS - PARÂMETROS GERAIS - GRAVAÇÃO EM REQUEST

----------------------------------------------------------------------------------------------------

Objetos da nota:

CUAD /PWS/SAPMZYCB032

CUAD /PWS/SAPMZYCBT133

CUAD /PWS/SAPMZYGL007

CUAD /PWS/SAPMZYGL008

CUAD /PWS/SAPMZYGL009

CUAD /PWS/SAPMZYGL010

CUAD /PWS/SAPMZYGL011

CUAD /PWS/SAPMZYGL014

CUAD /PWS/SAPMZYGL344

CUAD /PWS/SAPMZYGLT217

CUAD /PWS/SAPMZYGLT355

CUAD /PWS/SAPMZYGLT357

CUAD /PWS/SAPMZYGLT362

DYNP /PWS/SAPMZYGL007 0200

DYNP /PWS/SAPMZYGL008 0005

DYNP /PWS/SAPMZYGL011 0103

DYNP /PWS/SAPMZYGLT362 0100

REPS /PWS/MZYCBT133F01

REPS /PWS/MZYCBT133I01

REPS /PWS/MZYCBT133TOP

REPS /PWS/MZYGL007F01

REPS /PWS/MZYGL007I01

REPS /PWS/MZYGL007O01

REPS /PWS/MZYGL007TOP

REPS /PWS/MZYGL008F01

REPS /PWS/MZYGL008I01

REPS /PWS/MZYGL008O01

REPS /PWS/MZYGL008TOP

REPS /PWS/MZYGL009F01

REPS /PWS/MZYGL009I01

REPS /PWS/MZYGL009TOP

REPS /PWS/MZYGL010F01

REPS /PWS/MZYGL010I01

REPS /PWS/MZYGL011F01

REPS /PWS/MZYGL011I02

REPS /PWS/MZYGL011O01

REPS /PWS/MZYGL011TOP

REPS /PWS/MZYGL014F01

REPS /PWS/MZYGL014I01

REPS /PWS/MZYGL014TOP

REPS /PWS/MZYGL032F01

REPS /PWS/MZYGL032I01

REPS /PWS/MZYGL032TOP

REPS /PWS/MZYGL344F01

REPS /PWS/MZYGL344TOP

REPS /PWS/MZYGLT217F01

REPS /PWS/MZYGLT217I01

REPS /PWS/MZYGLT217TOP

REPS /PWS/MZYGLT355F01

REPS /PWS/MZYGLT355I01

REPS /PWS/MZYGLT355TOP

REPS /PWS/MZYGLT357F01

REPS /PWS/MZYGLT357I01

REPS /PWS/MZYGLT357TOP

REPS /PWS/MZYGLT362F01

REPS /PWS/MZYGLT362I01

REPS /PWS/MZYGLT362O01

REPS /PWS/MZYGLT362TOP

REPS /PWS/SAPMZYCB032

REPT /PWS/SAPMZYCB032

REPT /PWS/SAPMZYCBT133

REPT /PWS/SAPMZYGL007

REPT /PWS/SAPMZYGL008

REPT /PWS/SAPMZYGL009

REPT /PWS/SAPMZYGL010

REPT /PWS/SAPMZYGL011

REPT /PWS/SAPMZYGL014

REPT /PWS/SAPMZYGL344

REPT /PWS/SAPMZYGLT217

REPT /PWS/SAPMZYGLT355

REPT /PWS/SAPMZYGLT357

REPT /PWS/SAPMZYGLT362

SHI3 /PWS/ZYCB

SHI6 /PWS/ZYCB

SHLP /PWS/ZYCBA298

TOBJ /PWS/ZYCBT165S

TOBJ /PWS/ZYCBT244S

TOBJ /PWS/ZYGLT025S

TOBJ /PWS/ZYGLT315S

TOBJ /PWS/ZYGLT351S

TOBJ /PWS/ZYGLT360S

TRAN /PWS/ZYGLT315

TRAN /PWS/ZYGLT351

TRAN /PWS/ZYGLT360

VIEW /PWS/ZYCBV296

----------------------------------------------------------------------------------------------------

Modificações efetuadas em CUAD /PWS/SAPMZYCB032

Incluir um novo botão no Status GUI '0001' ao lado do botão 'AEND' com os parâmetros abaixo:

BOTÃO ESTÁTICO

CÓDIGO DE FUNÇÃO: TRANSP

CATEGORIA DE FUNÇÃO: ' '

TEXTOS DE FUNÇÃO ESTÁTICOS

TEXTO DE FUNÇÃO: Transp. todos os Grupos/Operações

NOME DE ÍCONE: ICON_TRANSPORT

TEXTO DE ÍCONE: ' '

TEXTO INFORMATIVO: Transp. todos os Grupos/Operações

SELEÇÃO DIRETA: ' '

TECLA DE ATALHO: 'F7'

----------------------------------------------------------------------------------------------------

Modificações efetuadas em CUAD /PWS/SAPMZYCBT133

Incluir um novo botão no Status GUI '0100_M' ao lado do botão 'DALL' com os parâmetros abaixo:

BOTÃO ESTÁTICO

CÓDIGO DE FUNÇÃO: TRANSP

CATEGORIA DE FUNÇÃO: ' '

TEXTOS DE FUNÇÃO ESTÁTICOS

TEXTO DE FUNÇÃO: Transportar Entradas

NOME DE ÍCONE: ICON_TRANSPORT

TEXTO DE ÍCONE: ' '

TEXTO INFORMATIVO: Transportar Entradas

SELEÇÃO DIRETA: ' '

TECLA DE ATALHO: 'F2'

----------------------------------------------------------------------------------------------------

Modificações efetuadas em CUAD /PWS/SAPMZYGL007

Incluir um novo botão no Status GUI '0200' ao lado do botão 'CANCEL' com os parâmetros abaixo:

BOTÃO ESTÁTICO

CÓDIGO DE FUNÇÃO: COPY

CATEGORIA DE FUNÇÃO: ' '

TEXTOS DE FUNÇÃO ESTÁTICOS

TEXTO DE FUNÇÃO: Criar com Modelo

NOME DE ÍCONE: ICON_COPY_OBJECT

TEXTO DE ÍCONE: ' '

TEXTO INFORMATIVO: Criar com Modelo

SELEÇÃO DIRETA: ' '

TECLA DE ATALHO: 'F2'

----------------------------------------------------------------------------------------------------

Modificações efetuadas em CUAD /PWS/SAPMZYGL008

Incluir um novo botão no Status GUI '0001' ao lado do botão 'MODEMP' com os parâmetros abaixo:

BOTÃO ESTÁTICO

CÓDIGO DE FUNÇÃO: TRANSP

CATEGORIA DE FUNÇÃO: ' '

TEXTOS DE FUNÇÃO ESTÁTICOS

TEXTO DE FUNÇÃO: Transp. todos os Grupos/Operações

NOME DE ÍCONE: ICON_TRANSPORT

TEXTO DE ÍCONE: ' '

TEXTO INFORMATIVO: Transp. todos os Grupos/Operações

SELEÇÃO DIRETA: ' '

TECLA DE ATALHO: 'F6'

Incluir um novo botão no Status GUI '0005' ao lado do botão 'CANCEL' com os parâmetros abaixo:

BOTÃO ESTÁTICO

CÓDIGO DE FUNÇÃO: COPY

CATEGORIA DE FUNÇÃO: ' '

TEXTOS DE FUNÇÃO ESTÁTICOS

TEXTO DE FUNÇÃO: Criar com Modelo

NOME DE ÍCONE: ICON_COPY_OBJECT

TEXTO DE ÍCONE: ' '

TEXTO INFORMATIVO: Criar com Modelo

SELEÇÃO DIRETA: ' '

TECLA DE ATALHO: 'F2 '

----------------------------------------------------------------------------------------------------

Modificações efetuadas em CUAD /PWS/SAPMZYGL009

Incluir um novo botão no Status GUI '0001' ao lado do botão 'CANCEL' com os parâmetros abaixo:

BOTÃO ESTÁTICO

CÓDIGO DE FUNÇÃO: TRANSP

CATEGORIA DE FUNÇÃO: ' '

TEXTOS DE FUNÇÃO ESTÁTICOS

TEXTO DE FUNÇÃO: Transporta todos os Módulos

NOME DE ÍCONE: ICON_TRANSPORT

TEXTO DE ÍCONE: ' '

TEXTO INFORMATIVO: Transporta todos os Módulos

SELEÇÃO DIRETA: ' '

TECLA DE ATALHO: 'F6'

----------------------------------------------------------------------------------------------------

Modificações efetuadas em CUAD /PWS/SAPMZYGL010

Incluir um novo botão no Status GUI '0001' ao lado do botão 'SELE' com os parâmetros abaixo:

BOTÃO ESTÁTICO

CÓDIGO DE FUNÇÃO: TRANSP

CATEGORIA DE FUNÇÃO: ' '

TEXTOS DE FUNÇÃO ESTÁTICOS

TEXTO DE FUNÇÃO: Transp. todos os Grupos/ Operações

NOME DE ÍCONE: ICON_TRANSPORT

TEXTO DE ÍCONE: ' '

TEXTO INFORMATIVO: Transp. todos os Grupos/ Operações

SELEÇÃO DIRETA: ' '

TECLA DE ATALHO: 'F5'

----------------------------------------------------------------------------------------------------

Modificações efetuadas em CUAD /PWS/SAPMZYGL011

Incluir um novo botão no Status GUI '0001' ao lado do botão 'MODEMP' com os parâmetros abaixo:

BOTÃO ESTÁTICO

CÓDIGO DE FUNÇÃO: TRANSP

CATEGORIA DE FUNÇÃO: ' '

TEXTOS DE FUNÇÃO ESTÁTICOS

TEXTO DE FUNÇÃO: Transp. todos os Grupos/ Operações

NOME DE ÍCONE: ICON_TRANSPORT

TEXTO DE ÍCONE: ' '

TEXTO INFORMATIVO: Transp. todos os Grupos/ Operações

SELEÇÃO DIRETA: ' '

TECLA DE ATALHO: 'Shift-F2'

Incluir um novo botão no Status GUI '0103' ao lado do botão 'CANCEL' com os parâmetros abaixo:

BOTÃO ESTÁTICO

CÓDIGO DE FUNÇÃO: COPY

CATEGORIA DE FUNÇÃO: ' '

TEXTOS DE FUNÇÃO ESTÁTICOS

TEXTO DE FUNÇÃO: Criar com Modelo

NOME DE ÍCONE: ICON_COPY_OBJECT

TEXTO DE ÍCONE: ' '

TEXTO INFORMATIVO: Criar com Modelo

SELEÇÃO DIRETA: ' '

TECLA DE ATALHO: 'F2'

----------------------------------------------------------------------------------------------------

Modificações efetuadas em CUAD /PWS/SAPMZYGL014

Incluir um novo botão no Status GUI '0001' ao lado do botão 'DROW' com os parâmetros abaixo:

BOTÃO ESTÁTICO

CÓDIGO DE FUNÇÃO: TRANSP

CATEGORIA DE FUNÇÃO: ' '

TEXTOS DE FUNÇÃO ESTÁTICOS

TEXTO DE FUNÇÃO: Transp. todos os Grupos/Operações

NOME DE ÍCONE: ICON_TRANSPORT

TEXTO DE ÍCONE: ' '

TEXTO INFORMATIVO: Trans. todos os Grupos/ Operações

SELEÇÃO DIRETA: ' '

TECLA DE ATALHO: 'F8'

----------------------------------------------------------------------------------------------------

Modificações efetuadas em CUAD /PWS/SAPMZYGL344

Incluir um novo botão no Status GUI '0100' ao lado do botão 'DMARK' com os parâmetros abaixo:

BOTÃO ESTÁTICO

CÓDIGO DE FUNÇÃO: TRANSP

CATEGORIA DE FUNÇÃO: ' '

TEXTOS DE FUNÇÃO ESTÁTICOS

TEXTO DE FUNÇÃO: Transp. todos os Grupos/Operações

NOME DE ÍCONE: ICON_TRANSPORT

TEXTO DE ÍCONE: ' '

TEXTO INFORMATIVO: Transp. todos os Grupos/Operações

SELEÇÃO DIRETA: ' '

TECLA DE ATALHO: 'F6'

----------------------------------------------------------------------------------------------------

Modificações efetuadas em CUAD /PWS/SAPMZYGLT217

Incluir um novo botão no Status GUI '0100' ao lado do botão 'DALL' com os parâmetros abaixo:

BOTÃO ESTÁTICO

CÓDIGO DE FUNÇÃO: TRANSP

CATEGORIA DE FUNÇÃO: ' '

TEXTOS DE FUNÇÃO ESTÁTICOS

TEXTO DE FUNÇÃO: Transporta todos os Registros

NOME DE ÍCONE: ICON_TRANSPORT

TEXTO DE ÍCONE: ' '

TEXTO INFORMATIVO: Transporta todos os Registros

SELEÇÃO DIRETA: ' '

TECLA DE ATALHO: 'F2'

----------------------------------------------------------------------------------------------------

Modificações efetuadas em CUAD /PWS/SAPMZYGLT355

Incluir um novo botão no Status GUI '0100' ao lado do botão 'DROW' com os parâmetros abaixo:

BOTÃO ESTÁTICO

CÓDIGO DE FUNÇÃO: TRANSP

CATEGORIA DE FUNÇÃO: ' '

TEXTOS DE FUNÇÃO ESTÁTICOS

TEXTO DE FUNÇÃO: Transp. todos os Grupos/Operações

NOME DE ÍCONE: ICON_TRANSPORT

TEXTO DE ÍCONE: ' '

TEXTO INFORMATIVO: Transp. todos os Grupos/Operações

SELEÇÃO DIRETA: ' '

TECLA DE ATALHO: 'F8'

----------------------------------------------------------------------------------------------------

Modificações efetuadas em CUAD /PWS/SAPMZYGLT357

Incluir um novo botão no Status GUI '0100' ao lado do botão 'DROW' com os parâmetros abaixo:

BOTÃO ESTÁTICO

CÓDIGO DE FUNÇÃO: TRANSP

CATEGORIA DE FUNÇÃO: ' '

TEXTOS DE FUNÇÃO ESTÁTICOS

TEXTO DE FUNÇÃO: Transp. todos os Grupos/Operações

NOME DE ÍCONE: ICON_TRANSPORT

TEXTO DE ÍCONE: ' '

TEXTO INFORMATIVO: Transp. todos os Grupos/Operações

SELEÇÃO DIRETA: ' '

TECLA DE ATALHO: 'F8'

----------------------------------------------------------------------------------------------------

Modificações efetuadas em CUAD /PWS/SAPMZYGLT362

Incluir um novo botão no Status GUI '0100' ao lado do botão 'DROW' com os parâmetros abaixo:

BOTÃO ESTÁTICO

CÓDIGO DE FUNÇÃO: TRANSP

CATEGORIA DE FUNÇÃO: ' '

TEXTOS DE FUNÇÃO ESTÁTICOS

TEXTO DE FUNÇÃO: Transporta Registros

NOME DE ÍCONE: ICON_TRANSPORT

TEXTO DE ÍCONE: ' '

TEXTO INFORMATIVO: Transporta Registros

SELEÇÃO DIRETA: ' '

TECLA DE ATALHO: 'F2'

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DYNP /PWS/SAPMZYGL007 0200

Favor solicitar arquivo para upload da tela com equipe de produto pw.CE Câmbio - 11 5504 0170

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DYNP /PWS/SAPMZYGL008 0005

Favor solicitar arquivo para upload da tela com equipe de produto pw.CE Câmbio - 11 5504 0170

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DYNP /PWS/SAPMZYGL011 0103

Favor solicitar arquivo para upload da tela com equipe de produto pw.CE Câmbio - 11 5504 0170

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DYNP /PWS/SAPMZYGLT362 0100

Favor solicitar arquivo para upload da tela com equipe de produto pw.CE Câmbio - 11 5504 0170

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCBT133F01

...

set screen 0100.

endif.

else.

perform popup_voltar.

endif.

endcase.

endform.

form salvar.

* >> Início da inclusão: FORM SALVAR

refresh itab_zycbt133_cr.

* << Fim da inclusão

case sy-dynnr.

when '0100'.

if v_alt = 1 or not itab_zycbt133_del is initial.

if v_alt = 1.

loop at itab_zycbt133.

update /pws/zycbt133 set vaprov = itab_zycbt133-vaprov

vclear = itab_zycbt133-vclear

vpgpri = itab_zycbt133-vpgpri

vcomp = itab_zycbt133-vcomp

where bukrs = itab_zycbt133-bukrs and

codmod = itab_zycbt133-codmod.

* >> Início da inclusão: FORM SALVAR

clear itab_zycbt133_aux.

read table itab_zycbt133_aux

with key bukrs = itab_zycbt133-bukrs

codmod = itab_zycbt133-codmod.

if itab_zycbt133_aux ne itab_zycbt133.

move-corresponding itab_zycbt133 to itab_zycbt133_cr.

append itab_zycbt133_cr.

endif.

* << Fim da inclusão

endloop.

* >> Início da inclusão: FORM SALVAR

if not itab_zycbt133_cr[] is initial.

perform grava_request tables itab_zycbt133_cr.

endif.

itab_zycbt133_aux[] = itab_zycbt133[].

* << Fim da inclusão

endif.

* >> Início da inclusão: FORM SALVAR

refresh itab_zycbt133_cr.

* << Fim da inclusão

if not itab_zycbt133_del is initial.

loop at itab_zycbt133_del.

delete from /pws/zycbt133 where

bukrs = itab_zycbt133_del-bukrs and

codmod = itab_zycbt133_del-codmod.

delete itab_zycbt133_aux where

bukrs = itab_zycbt133_del-bukrs and

codmod = itab_zycbt133_del-codmod.

* >> Início da inclusão: FORM SALVAR

move-corresponding itab_zycbt133_del to itab_zycbt133_cr.

append itab_zycbt133_cr.

* << Fim da inclusão

endloop.

* >> Início da inclusão: FORM SALVAR

perform grava_request tables itab_zycbt133_cr.

* << Fim da inclusão

clear itab_zycbt133_del.

refresh itab_zycbt133_del.

endif.

message s016 with text-013.

clear v_alt.

else.

...

codmod = itab_zycbt133-codmod.

if sy-subrc = 0.

v_duplicata = 1.

else.

if itab_zycbt133-bukrs = '' and

itab_zycbt133-codmod = ''.

v_nulo = 1.

else.

move-corresponding itab_zycbt133 to itab_zycbt133_aux.

append itab_zycbt133_aux.

* >> Início da inclusão: FORM SALVAR

move-corresponding itab_zycbt133 to itab_zycbt133_cr.

move sy-mandt to itab_zycbt133_cr-mandt.

append itab_zycbt133_cr.

* << Fim da inclusão

endif.

endloop.

if v_duplicata = 1.

clear v_duplicata.

v_tcode = '/PWS/ZYCBT133'.

clear v_alt.

message w016 with text-014.

elseif v_nulo = 1.

clear: v_alt,

v_nulo.

v_tcode = '/PWS/ZYCBT133'.

message w016 with text-015.

else.

insert /pws/zycbt133 from table itab_zycbt133.

v_tcode = '/PWS/ZYCBT133'.

clear v_alt.

* >> Início da inclusão: FORM SALVAR

perform grava_request tables itab_zycbt133_cr.

* << Fim da inclusão

message s016 with text-013.

endif.

else.

v_tcode = '/PWS/ZYCBT133'.

message w016 with text-012.

endif.

when 'NOVA'.

loop at itab_zycbt133.

authority-check object 'F_BKPF_BUK'

id 'BUKRS'

...

message w016 with text-015.

else.

if itab_zycbt133_insert[] is initial.

loop at itab_zycbt133.

move 'X' to itab_zycbt133-salvo.

modify itab_zycbt133 index sy-tabix.

move 'X' to itab_zycbt133-insert.

modify itab_zycbt133 index sy-tabix.

move-corresponding itab_zycbt133 to itab_zycbt133_aux.

append itab_zycbt133_aux.

* >> Início da inclusão: FORM SALVAR

move-corresponding itab_zycbt133 to itab_zycbt133_cr.

move sy-mandt to itab_zycbt133_cr-mandt.

append itab_zycbt133_cr.

* << Fim da inclusão

endloop.

insert /pws/zycbt133 from table itab_zycbt133.

* >> Início da inclusão: FORM SALVAR

perform grava_request tables itab_zycbt133_cr.

* << Fim da inclusão

message s016 with text-013.

clear v_alt.

else.

loop at itab_zycbt133.

v_index = sy-tabix.

...

move 'X' to itab_zycbt133-salvo.

move 'X' to itab_zycbt133-insert.

modify itab_zycbt133 index v_index.

clear v_index.

move-corresponding itab_zycbt133 to

itab_zycbt133_insert.

append itab_zycbt133_insert.

move-corresponding itab_zycbt133 to

itab_zycbt133_aux.

append itab_zycbt133_aux.

* >> Início da inclusão: FORM SALVAR

move-corresponding itab_zycbt133 to

itab_zycbt133_cr.

append itab_zycbt133_cr.

* << Fim da inclusão

endif.

endloop.

insert /pws/zycbt133 from table itab_zycbt133_insert.

refresh itab_zycbt133_insert.

* >> Início da inclusão: FORM SALVAR

perform grava_request tables itab_zycbt133_cr.

* << Fim da inclusão

clear v_index.

message s016 with text-013.

endif.

...

endform.

form modificou.

move-corresponding /pws/zycbe133 to itab_zycbt133.

modify itab_zycbt133 index tc_param-current_line.

v_alt = 1.

endform.

form flag.

case sy-dynnr.

when '0100'.

case okcode.

* >> Início da exclusão: FORM FLAG

when 'DELE' or 'COPY_AS'.

* << Fim da exclusão

* >> Início da inclusão: FORM FLAG

when 'DELE' or 'COPY_AS' or 'ENTER' or 'TRANSP'.

* << Fim da inclusão

move d_mark to itab_zycbt133-mark.

modify itab_zycbt133 index tc_param-current_line.

when 'MKBL'.

move d_mark to itab_zycbt133-mark.

modify itab_zycbt133 index tc_param-current_line.

if v_marca is initial.

v_marca = tc_param-current_line.

else.

v_marca_ult = tc_param-current_line.

if v_marca_ult < v_marca.

...

id 'BUKRS'

field itab_zycbt133-bukrs

id 'ACTVT'

field '03'.

endif.

if sy-subrc ne 0.

delete itab_zycbt133 index sy-tabix.

endif.

endloop.

endform.

* >> Início da inclusão:

form grava_request tables p_zycbt133 structure /pws/zycbt133.

constants: c_table type dd03l-tabname value '/PWS/ZYCBT133'.

call function '/PWS/ZYCB_GRAVA_CONT_TABELA_CR'

exporting

i_tablename = c_table

i_task = v_task

i_order = v_order

importing

e_order = v_order

e_task = v_task

tables

t_data_table = p_zycbt133

exceptions

no_data = 1

save_error = 2

no_cr_selected = 3

others = 4.

if sy-subrc <> 0.

clear okcode.

if sy-subrc ne '3'.

message e016 with text-024.

else.

message w016 with text-025.

endif.

endform.

form grava_request_mult.

refresh itab_zycbt133_cr.

loop at itab_zycbt133 where mark = 'X'.

move-corresponding itab_zycbt133 to itab_zycbt133_cr.

append itab_zycbt133_cr.

endloop.

if sy-subrc eq 0.

clear okcode.

perform grava_request tables itab_zycbt133_cr.

else.

clear okcode.

message e016 with text-009.

endif.

endform.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCBT133I01

...

WHEN 'COPY_AS'.

PERFORM COPIAR_COMO.

WHEN 'SAVE'.

PERFORM SALVAR.

WHEN 'MKBL'.

PERFORM MARCA_BLOCO.

WHEN 'POS'.

CLEAR: ITAB_ZYCBT133-BUKRS,

ITAB_ZYCBT133-CODMOD.

CALL SCREEN '0001' STARTING AT 20 10.

* >> Início da inclusão: MODULE USER_COMMAND_0100

when 'TRANSP'.

perform grava_request_mult.

* << Fim da inclusão

ENDCASE.

endmodule.

module USER_COMMAND_0001 input.

CASE sy-ucomm.

WHEN 'ENTER'.

PERFORM POSICIONA.

WHEN 'CANC'.

CLEAR OKCODE.

SET SCREEN 0.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCBT133TOP

...

data: end of itab_zycbt133.

data: begin of itab_zycbt133_aux occurs 10.

include structure itab_zycbt133.

data: end of itab_zycbt133_aux.

data: begin of itab_zycbt133_del occurs 10.

include structure itab_zycbt133.

data: end of itab_zycbt133_del.

data: begin of itab_zycbt133_insert occurs 10.

include structure itab_zycbt133.

data: end of itab_zycbt133_insert.

* >> Início da inclusão:

DATA: BEGIN OF itab_zycbt133_cr OCCURS 10.

INCLUDE STRUCTURE itab_zycbt133.

DATA: END OF itab_zycbt133_cr.

* << Fim da inclusão

DATA: D_TEXT(20) TYPE C,

D_MARK(1) TYPE C.

DATA: V_TCODE LIKE SY-TCODE,

OKCODE LIKE SY-UCOMM,

V_OKCODE LIKE SY-UCOMM,

V_CURRENT TYPE I,

V_VOLTAR TYPE I,

V_INDEX LIKE SY-TABIX,

V_INDEX1 LIKE SY-TABIX,

V_NULO TYPE I,

V_DUPLICATA TYPE I,

V_COMECO(4) TYPE C,

V_FIM(4) TYPE C,

V_LINE TYPE I,

V_LINES TYPE I,

V_ALT TYPE I,

V_RESPOSTA(1) TYPE C,

V_MARCA LIKE SY-TABIX,

V_MARCA_ULT LIKE SY-TABIX.

data: v_field(40) type c,

v_linha type i,"#EC *

v_offset type i.

* >> Início da inclusão:

DATA: v_task TYPE trkorr,

v_order TYPE trkorr.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL007F01

...

SELECT * FROM dd07t

INTO TABLE itab_dd07t

WHERE domname = wa_dd03l-domname AND

ddlanguage = sy-langu(1).

IF sy-subrc = 0.

READ TABLE itab_dd07t WITH KEY domvalue_l = p_valor.

IF sy-subrc EQ 0.

p_retorno = itab_dd07t-ddtext.

ELSE.

LOOP AT itab_dd07t WHERE domvalue_l IS initial.

IF p_valor GE itab_dd07t-domval_ld AND "#EC *

p_valor LE itab_dd07t-domval_hd. "#EC *

p_retorno = itab_dd07t-ddtext.

EXIT.

ENDIF.

ENDLOOP.

ENDIF.

ENDFORM.

* >> Início da inclusão:

FORM grava_request.

DATA: v_resposta,

v_task TYPE trkorr,

v_order TYPE trkorr,

itab_zycbt007 TYPE TABLE OF /pws/zycbt007,

itab_zyglt009 TYPE TABLE OF /pws/zyglt009,

itab_zycbt089 TYPE TABLE OF /pws/zycbt089.

CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'

EXPORTING

defaultoption = 'Y'

diagnosetext1 = text-099

diagnosetext2 = text-100

textline1 = space

titel = text-101

IMPORTING

answer = v_resposta

EXCEPTIONS

OTHERS = 0.

IF v_resposta = 'J'.

SELECT * FROM /pws/zycbt007

INTO TABLE itab_zycbt007

WHERE bukrs = wa_zycbt007-bukrs.

CALL FUNCTION '/PWS/ZYCB_GRAVA_CONT_TABELA_CR'

EXPORTING

i_tablename = '/PWS/ZYCBT007'

IMPORTING

e_order = v_order

e_task = v_task

TABLES

t_data_table = itab_zycbt007

EXCEPTIONS

no_data = 1

save_error = 2

no_cr_selected = 3

OTHERS = 4.

IF sy-subrc <> 0.

CLEAR ok_code.

IF sy-subrc NE '3'.

MESSAGE e015 WITH text-102.

ELSE.

MESSAGE e015 WITH text-113.

ENDIF.

SELECT * FROM /pws/zyglt009

INTO TABLE itab_zyglt009

WHERE bukrs = wa_zycbt007-bukrs.

CALL FUNCTION '/PWS/ZYCB_GRAVA_CONT_TABELA_CR'

EXPORTING

i_tablename = '/PWS/ZYGLT009'

i_task = v_task

TABLES

t_data_table = itab_zyglt009

EXCEPTIONS

no_data = 1

save_error = 2

no_cr_selected = 3

OTHERS = 4.

IF sy-subrc <> 0.

CLEAR ok_code.

MESSAGE e015 WITH text-102.

ENDIF.

SELECT * FROM /pws/zycbt089

INTO TABLE itab_zycbt089

WHERE bukrs = wa_zycbt007-bukrs.

CALL FUNCTION '/PWS/ZYCB_GRAVA_CONT_TABELA_CR'

EXPORTING

i_tablename = '/PWS/ZYCBT089'

i_task = v_task

TABLES

t_data_table = itab_zycbt089

EXCEPTIONS

no_data = 1

save_error = 2

no_cr_selected = 3

OTHERS = 4.

IF sy-subrc <> 0.

CLEAR ok_code.

MESSAGE e015 WITH text-102.

ENDIF.

MESSAGE i061 WITH text-103 v_order text-104.

ENDIF.

ENDFORM.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL007I01

...

loop at screen.

screen-input = 1.

modify screen.

endloop.

message i015 with text-004.

v_status = '0'.

endif.

wa_zycbt007_aux = wa_zycbt007.

wa_zyglt009_aux = wa_zyglt009.

wa_zycbt089_aux = wa_zycbt089.

* >> Início da inclusão: MODULE USER_COMMAND_0100

perform grava_request.

* << Fim da inclusão

endif.

when 'ALT'.

if v_status = '1'.

call function '/PWS/ZYGL_DEQUEUE_ZYCBT007'.

call function '/PWS/ZYGL_DEQUEUE_ZYCBT089'.

call function '/PWS/ZYGL_DEQUEUE_ZYGLT009'

exporting

bukrs = wa_zyglt009-bukrs.

commit work.

if wa_zycbt007 ne wa_zycbt007_aux or

...

endif.

endmodule.

module set_bx_cli input.

if v_bx_cli1 = 'X'.

/pws/zycbt089-bx_cli_vinc = 'X'.

elseif v_bx_cli2 = 'X'.

clear /pws/zycbt089-bx_cli_vinc.

endif.

endmodule.

module user_command_0200 input.

* >> Início da inclusão: MODULE USER_COMMAND_0200

data: v_emp type bukrs.

* << Fim da inclusão

case sy-ucomm.

when 'ENTER'.

authority-check object 'F_BKPF_BUK'

id 'BUKRS'

field /pws/zycbt007-bukrs

id 'ACTVT'

field '01'.

if sy-subrc eq 0.

authority-check object 'F_BKPF_BUK'

id 'BUKRS'

...

id 'ACTVT'

field '02'.

elseif sy-subrc eq 0.

authority-check object 'F_BKPF_BUK'

id 'BUKRS'

field /pws/zycbt007-bukrs

id 'ACTVT'

field '03'.

endif.

if sy-subrc eq 0.

* >> Início da inclusão: MODULE USER_COMMAND_0200

if not v_copy is initial.

select single bukrs

from /pws/zycbt007

into v_emp

where bukrs = /pws/zycbt007-bukrs.

if sy-subrc eq 0.

clear: v_copy, v_emp_cp.

message i061 with text-109 /pws/zycbt007-bukrs

text-111 text-112.

endif.

* << Fim da inclusão

leave to screen 0.

else.

message w120 with /pws/zycbt007-bukrs.

endif.

when 'CANCEL'.

leave program.

* >> Início da inclusão: MODULE USER_COMMAND_0200

when 'COPY'.

if v_copy is initial.

v_copy = 'X'.

else.

clear: v_copy,

v_emp_cp.

endif.

* << Fim da inclusão

when others.

endcase.

endmodule.

module set_cfm input.

if v_cfm1 = 'X'.

/pws/zycbt007-cfm = 'X'.

else.

clear /pws/zycbt007-cfm.

endif.

endmodule.

...

clear /pws/zyglt009-flag_conv_cred.

endif.

endmodule.

module set_usp input.

if v_usp1 = 'X'.

/pws/zyglt009-flag_soc_parceir = 'X'.

else.

clear /pws/zyglt009-flag_soc_parceir.

endif.

endmodule.

* >> Início da inclusão:

module valida_empresa input.

data: v_bukrs type bukrs.

check not v_copy is initial.

if sy-ucomm ne 'CANCEL' and

sy-ucomm ne 'COPY'.

if v_emp_cp is initial.

message e061 with text-105.

endif.

if sy-ucomm eq 'ENTER'.

select single bukrs

from /pws/zycbt007

into v_bukrs

where bukrs = v_emp_cp.

if sy-subrc ne 0.

message e061 with text-109 v_emp_cp text-110.

endif.

endmodule.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL007O01

...

wa_zycbt089 to /pws/zycbt089.

endmodule.

module seleciona_dados output.

if v_flag eq 0.

call screen 0200 starting at 25 10.

set pf-status '0001' excluding 'ALT'.

v_flag = 1.

endif.

perform lock_record.

if wa_zycbt007 is initial.

* >> Início da inclusão: MODULE SELECIONA_DADOS

if v_emp_cp is initial.

* << Fim da inclusão

select single * from /pws/zycbt007

into wa_zycbt007

where bukrs = /pws/zycbt007-bukrs.

wa_zycbt007-bukrs = /pws/zycbt007-bukrs.

* >> Início da inclusão: MODULE SELECIONA_DADOS

else.

select single * from /pws/zycbt007

into wa_zycbt007

where bukrs = v_emp_cp.

wa_zycbt007-bukrs = /pws/zycbt007-bukrs.

* << Fim da inclusão

endif.

* >> Início da inclusão: MODULE SELECIONA_DADOS

endif.

* << Fim da inclusão

if sy-subrc eq 0.

wa_zycbt007_aux = wa_zycbt007.

if wa_zyglt009 is initial.

* >> Início da inclusão: MODULE SELECIONA_DADOS

if v_emp_cp is initial.

* << Fim da inclusão

select single * from /pws/zyglt009

into wa_zyglt009

where bukrs = /pws/zycbt007-bukrs.

* >> Início da inclusão: MODULE SELECIONA_DADOS

else.

select single * from /pws/zyglt009

into wa_zyglt009

where bukrs = v_emp_cp.

wa_zyglt009-bukrs = /pws/zycbt007-bukrs.

* << Fim da inclusão

endif.

* >> Início da inclusão: MODULE SELECIONA_DADOS

endif.

* << Fim da inclusão

wa_zyglt009_aux = wa_zyglt009.

if wa_zycbt089 is initial.

* >> Início da inclusão: MODULE SELECIONA_DADOS

if v_emp_cp is initial.

* << Fim da inclusão

select single * from /pws/zycbt089

into wa_zycbt089

where bukrs = /pws/zycbt007-bukrs.

* >> Início da inclusão: MODULE SELECIONA_DADOS

else.

select single * from /pws/zycbt089

into wa_zycbt089

where bukrs = v_emp_cp.

wa_zycbt089-bukrs = /pws/zycbt007-bukrs.

clear v_emp_cp.

* << Fim da inclusão

endif.

* >> Início da inclusão: MODULE SELECIONA_DADOS

endif.

* << Fim da inclusão

wa_zycbt089_aux = wa_zycbt089.

endif.

endmodule.

module seleciona_descr output.

clear: v_empresa, v_j_1bbranch, v_werks,

v_plcontas, v_waersb, v_waersa, v_ktokk,

...

endmodule.

module set_usp output.

if /pws/zyglt009-flag_soc_parceir = 'X'.

v_usp1 = 'X'.

clear v_usp2.

else.

v_usp2 = 'X'.

clear v_usp1.

endif.

endmodule.

* >> Início da inclusão:

module trata_campos_0200 output.

loop at screen.

if screen-name = 'T_EMP_CP' or

screen-name = 'V_EMP_CP'.

if v_copy is initial.

screen-active = '0'.

else.

screen-active = '1'.

endif.

modify screen.

endif.

endloop.

endmodule.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL007TOP

...

v_cambio(30),

v_f63pa type c,

v_f43pa type c,

v_f63pf type c,

v_f43pf type c,

v_f63re type c,

v_f43re type c,

v_origem(30),

v_resposta_save_provisao,

v_usp1(1) type c,

* >> Início da exclusão:

v_usp2(1) type c.

* << Fim da exclusão

* >> Início da inclusão:

v_usp2(1) type c,

v_emp_cp type bukrs,

v_copy type c.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL008F01

...

wa_regrasc-codaux1 = wa_chbox-chbox3.

wa_regrasc-xcodaux1 = wa_regrasp-xcodaux1.

wa_regrasc-codaux2 = wa_chbox-chbox4.

wa_regrasc-xcodaux2 = wa_regrasp-xcodaux2.

wa_regrasc-codaux3 = wa_chbox-chbox5.

wa_regrasc-xcodaux3 = wa_regrasp-xcodaux3.

wa_regrasc-debcred = wa_chbox-chbox6.

wa_regrasc-xdebcred = wa_regrasp-xdebcred.

ENDIF.

IF wa_chbox NE wa_chbox_aux.

* >> Início da inclusão: FORM CALL_SAVE_REGRAS

refresh: itab_zyglt314_cr, itab_zyglt315_cr, itab_zyglt316_cr.

select * from /pws/zyglt316

into table itab_zyglt316_cr

where bukrs eq vbukrs

and ktosl eq itab_opers-ktosl.

* << Fim da inclusão

DELETE FROM /pws/zyglt316 WHERE bukrs EQ vbukrs

AND ktosl EQ itab_opers-ktosl.

CLEAR: itab_zygle316_save, itab_zygle316, itab_zygle316_aux.

REFRESH: itab_zygle316_save, itab_zygle316, itab_zygle316_aux.

PERFORM fixa_linhas.

ENDIF.

MODIFY /pws/zyglt314 FROM wa_regrasp.

MODIFY /pws/zyglt315 FROM wa_regrasc.

* >> Início da exclusão: FORM CALL_SAVE_REGRAS

wa_chbox_aux = wa_chbox. v_new = 'N'.

* << Fim da exclusão

COMMIT WORK AND WAIT.

IF sy-subrc EQ 0.

MESSAGE s000 WITH text-046.

* >> Início da inclusão: FORM CALL_SAVE_REGRAS

if wa_chbox ne wa_chbox_aux.

wa_chbox_aux = wa_chbox. v_new = 'N'.

move wa_regrasp to itab_zyglt314_cr.

append itab_zyglt314_cr.

move wa_regrasc to itab_zyglt315_cr.

append itab_zyglt315_cr.

if not itab_zyglt316_cr[] is initial.

perform gera_request_contas.

endif.

perform gera_request_regras.

else.

wa_chbox_aux = wa_chbox. v_new = 'N'.

endif.

* << Fim da inclusão

ELSE.

MESSAGE i000 WITH text-048 text-050 text-051.

ENDIF.

ENDFORM.

FORM call_ucomm_save.

IF NOT v_uso IS INITIAL.

MESSAGE e001 WITH text-054.

ELSE.

IF v_tpscreen EQ 'R'.

PERFORM call_save_regras.

...

MOVE: itab_zygle316-konts TO itab_zygle316-vconta,

space TO itab_zygle316-konts ,

space TO itab_zygle316-konth .

MODIFY itab_zygle316.

ENDIF.

ENDLOOP.

itab_zygle316_aux[] = itab_zygle316_save[] = itab_zygle316[].

PERFORM fixa_linhas.

ENDFORM.

FORM call_save_contas.

* >> Início da inclusão: FORM CALL_SAVE_CONTAS

refresh itab_zyglt316_cr.

* << Fim da inclusão

LOOP AT itab_zygle316.

IF wa_chbox-chbox6 IS INITIAL.

MOVE: itab_zygle316-vconta TO itab_zygle316-konts,

itab_zygle316-vconta TO itab_zygle316-konth.

MODIFY itab_zygle316.

* >> Início da inclusão: FORM CALL_SAVE_CONTAS

endif.

move-corresponding itab_zygle316 to wa_zygle316.

read table itab_zygle316_save

into wa_zygle316_save with key

bukrs = itab_zygle316-bukrs

ktosl = itab_zygle316-ktosl

werks = itab_zygle316-werks

bklas = itab_zygle316-bklas

codaux1 = itab_zygle316-codaux1

codaux2 = itab_zygle316-codaux2

codaux3 = itab_zygle316-codaux3.

if sy-subrc ne 0 or

( sy-subrc eq 0 and wa_zygle316 ne wa_zygle316_save ).

move sy-mandt to wa_zygle316-mandt.

move-corresponding wa_zygle316 to itab_zyglt316_cr.

append itab_zyglt316_cr.

clear itab_zyglt316_cr.

* << Fim da inclusão

ENDIF.

ENDLOOP.

* >> Início da inclusão: FORM CALL_SAVE_CONTAS

loop at itab_zygle316_save into wa_zygle316_save.

read table itab_zygle316

into wa_zygle316 with key

bukrs = wa_zygle316_save-bukrs

ktosl = wa_zygle316_save-ktosl

werks = wa_zygle316_save-werks

bklas = wa_zygle316_save-bklas

codaux1 = wa_zygle316_save-codaux1

codaux2 = wa_zygle316_save-codaux2

codaux3 = wa_zygle316_save-codaux3.

if sy-subrc ne 0.

move wa_zygle316_save to itab_zyglt316_cr.

append itab_zyglt316_cr.

clear itab_zyglt316_cr.

endif.

endloop.

* << Fim da inclusão

DELETE FROM /pws/zyglt316 WHERE bukrs = vbukrs

AND ktosl = itab_opers-ktosl.

MODIFY /pws/zyglt316 FROM TABLE itab_zygle316. "#EC ENHOK

PERFORM atualiza_determ_contas.

COMMIT WORK AND WAIT.

IF sy-subrc EQ 0.

MESSAGE s000 WITH text-047.

* >> Início da inclusão: FORM CALL_SAVE_CONTAS

clear v_confirm.

if not itab_zyglt316_cr[] is initial.

perform gera_request_contas.

endif.

* << Fim da inclusão

ELSE.

MESSAGE i000 WITH text-049 text-050 text-051.

ENDIF.

itab_zygle316_save[] = itab_zygle316[].

ENDFORM.

* >> Início da inclusão:

form gera_request_contas.

data: v_task type trkorr,

v_order type trkorr.

constants: c_table_316 type dd03l-tabname value '/PWS/ZYGLT316'.

call function '/PWS/ZYCB_GRAVA_CONT_TABELA_CR'

exporting

i_tablename = c_table_316

i_task = v_task

i_order = v_order

importing

e_order = v_order

e_task = v_task

tables

t_data_table = itab_zyglt316_cr

exceptions

no_data = 1

save_error = 2

no_cr_selected = 3

others = 4.

clear: okcode.

if sy-subrc <> 0.

if sy-subrc ne '3'.

message e015 with text-057.

else.

message w015 with text-058.

endif.

elseif not v_order is initial.

message s015 with text-059 v_order.

endif.

endform.

form gera_request_regras.

data: v_task type trkorr,

v_order type trkorr.

constants: c_table_314 type dd03l-tabname value '/PWS/ZYGLT314',

c_table_315 type dd03l-tabname value '/PWS/ZYGLT315'.

call function '/PWS/ZYCB_GRAVA_CONT_TABELA_CR'

exporting

i_tablename = c_table_314

i_task = v_task

i_order = v_order

importing

e_order = v_order

e_task = v_task

tables

t_data_table = itab_zyglt314_cr

exceptions

no_data = 1

save_error = 2

no_cr_selected = 3

others = 4.

clear: okcode.

if sy-subrc <> 0.

if sy-subrc ne '3'.

message e015 with text-057.

else.

message w015 with text-058.

endif.

elseif not v_order is initial.

message s015 with text-059 v_order.

endif.

call function '/PWS/ZYCB_GRAVA_CONT_TABELA_CR'

exporting

i_tablename = c_table_315

i_task = v_task

i_order = v_order

importing

e_order = v_order

e_task = v_task

tables

t_data_table = itab_zyglt315_cr

exceptions

no_data = 1

save_error = 2

no_cr_selected = 3

others = 4.

if sy-subrc <> 0.

if sy-subrc ne '3'.

message e015 with text-057.

else.

message w015 with text-058.

endif.

elseif not v_order is initial.

message s015 with text-059 v_order.

endif.

endform.

form transp_all.

refresh: itab_zyglt314_cr, itab_zyglt315_cr, itab_zyglt316_cr.

if v_emp is initial or

vbukrs is initial.

call screen '0005' starting at 10 06.

check okcode = 'ENTER'.

if itab_zygle309[] is initial.

select * from /pws/zyglt309

into table itab_zygle309.

endif.

clear okcode.

if itab_zygle312[] is initial.

select * from /pws/zyglt312

into table itab_zygle312

for all entries in itab_zygle309

where grupp = itab_zygle309-grupp.

endif.

if not itab_zygle312[] is initial.

select * from /pws/zyglt316

into table itab_zyglt316_cr

for all entries in itab_zygle312

where bukrs = vbukrs

and ktosl = itab_zygle312-ktosl.

select * from /pws/zyglt314

into table itab_zyglt314_cr

for all entries in itab_zygle312

where ktosl = itab_zygle312-ktosl.

select * from /pws/zyglt315

into table itab_zyglt315_cr

for all entries in itab_zygle312

where bukrs = vbukrs

and ktosl = itab_zygle312-ktosl.

perform gera_request_contas.

perform gera_request_regras.

endif.

endform.

form busca_dados.

select * from /pws/zyglt316

into corresponding fields of table itab_zyglt316_emp

where bukrs eq v_emp_cp.

select * from /pws/zyglt315

into corresponding fields of table itab_zyglt315_emp

where bukrs eq v_emp_cp.

if not itab_zyglt316_emp[] is initial.

loop at itab_zyglt316_emp.

move vbukrs to itab_zyglt316_emp-bukrs.

modify itab_zyglt316_emp.

endloop.

loop at itab_zyglt315_emp.

move vbukrs to itab_zyglt315_emp-bukrs.

modify itab_zyglt315_emp.

endloop.

perform gera_request_316 tables itab_zyglt316_emp

changing v_task.

perform gera_request_314_315 using v_task.

else.

message i000 with text-049 text-050 text-051.

endif.

loop at itab_zyglt316_emp.

move-corresponding itab_zyglt316_emp to /pws/zyglt316.

modify /pws/zyglt316 from itab_zyglt316_emp.

endloop.

loop at itab_zyglt315_emp.

move-corresponding itab_zyglt315_emp to /pws/zyglt315.

modify /pws/zyglt315 from itab_zyglt315_emp.

endloop.

endform.

form gera_request_316 tables p_tab structure /pws/zyglt316

changing v_task.

data: v_order type trkorr.

constants: c_table_316 type dd03l-tabname value '/PWS/ZYGLT316'.

call function '/PWS/ZYCB_GRAVA_CONT_TABELA_CR'

exporting

i_tablename = c_table_316

i_task = v_task

i_order = v_order

importing

e_order = v_order

e_task = v_task

tables

t_data_table = p_tab

exceptions

no_data = 1

save_error = 2

no_cr_selected = 3

others = 4.

if sy-subrc <> 0.

if sy-subrc ne '3'.

message e015 with text-057.

else.

message w015 with text-058.

endif.

elseif not v_order is initial.

message s015 with text-059 v_order.

endif.

endform.

form gera_request_314_315 using v_task.

data: v_order type trkorr.

constants: c_table_314 type dd03l-tabname value '/PWS/ZYGLT314',

c_table_315 type dd03l-tabname value '/PWS/ZYGLT315'.

if not itab_zyglt314_emp is initial.

call function '/PWS/ZYCB_GRAVA_CONT_TABELA_CR'

exporting

i_tablename = c_table_314

i_task = v_task

i_order = v_order

importing

e_order = v_order

e_task = v_task

tables

t_data_table = itab_zyglt314_emp

exceptions

no_data = 1

save_error = 2

no_cr_selected = 3

others = 4.

clear: okcode.

if sy-subrc <> 0.

if sy-subrc ne '3'.

message e015 with text-057.

else.

message w015 with text-058.

endif.

elseif not v_order is initial.

message s015 with text-059 v_order.

endif.

if not itab_zyglt315_emp is initial .

call function '/PWS/ZYCB_GRAVA_CONT_TABELA_CR'

exporting

i_tablename = c_table_315

i_task = v_task

i_order = v_order

importing

e_order = v_order

e_task = v_task

tables

t_data_table = itab_zyglt315_emp

exceptions

no_data = 1

save_error = 2

no_cr_selected = 3

others = 4.

if sy-subrc <> 0.

if sy-subrc ne '3'.

message e015 with text-057.

else.

message w015 with text-058.

endif.

elseif not v_order is initial.

message s015 with text-059 v_order.

endif.

endif .

endform.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL008I01

...

CASE okcode.

WHEN 'BACK'.

PERFORM call_ucomm_back.

PERFORM unlock_record.

WHEN 'MODEMP'.

CALL SCREEN 0005 STARTING AT 10 06.

WHEN '%_GC 127 21' OR

'%_GC 121 21' OR

'SELE'.

PERFORM seleciona_dados_modulo.

* >> Início da inclusão: MODULE USER_COMMAND_0001

when 'TRANSP'.

perform transp_all.

* << Fim da inclusão

ENDCASE.

CLEAR okcode.

ENDMODULE.

MODULE user_command_0001_exit INPUT.

CASE okcode.

WHEN 'ABORT'.

PERFORM unlock_record.

PERFORM call_ucomm_abort.

ENDCASE.

ENDMODULE.

...

ENDCASE.

CLEAR okcode.

ENDMODULE.

MODULE user_command_0004_exit INPUT.

CASE okcode.

WHEN 'ABORT'.

LEAVE PROGRAM.

ENDCASE.

ENDMODULE.

MODULE user_command_0005 INPUT.

* >> Início da inclusão: MODULE USER_COMMAND_0005

data: v_emp1 type bukrs.

* << Fim da inclusão

SELECT SINGLE * FROM t001 WHERE bukrs EQ vbukrs.

IF sy-subrc EQ 0.

v_emp = 'X'.

ELSE.

MESSAGE s016(/pws/zycem) WITH text-016.

v_emp = ' '.

ENDIF.

CASE okcode.

WHEN 'ENTER'.

* >> Início da inclusão: MODULE USER_COMMAND_0005

if not v_copy is initial.

select single bukrs

from /pws/zyglt316

into v_emp1

where bukrs = vbukrs.

if sy-subrc eq 0.

clear: v_copy, v_emp_cp.

message i001 with text-061 vbukrs

text-062 .

endif.

* << Fim da inclusão

LEAVE TO SCREEN 0.

WHEN 'CANCEL'.

IF okcode EQ 'MODEMP'.

v_emp = ' '.

LEAVE TO SCREEN 0.

* >> Início da inclusão: MODULE USER_COMMAND_0005

endif.

when 'COPY'.

if v_copy is initial.

v_copy = 'X'.

else.

clear: v_copy,

v_emp_cp.

* << Fim da inclusão

ENDIF.

ENDCASE.

CLEAR okcode.

ENDMODULE.

MODULE user_command_0006 INPUT.

CASE okcode.

WHEN 'BACK'.

v_csccall = v_csccall + 1.

IF v_csccall > 45.

LEAVE TO TRANSACTION '/PWS/ZYGL012'.

...

ENDMODULE.

MODULE despesa INPUT."#EC *

ENDMODULE.

MODULE user_command_exit INPUT.

CASE sy-ucomm.

WHEN 'CANCEL'.

LEAVE TO SCREEN 0.

WHEN OTHERS.

ENDCASE.

ENDMODULE.

* >> Início da inclusão:

module valida_empresa input.

data: v_bukrs type bukrs.

check not v_copy is initial.

if sy-ucomm ne 'CANCEL' and

sy-ucomm ne 'COPY'.

if v_emp_cp is initial.

message e001 with text-063.

endif.

if sy-ucomm eq 'ENTER'.

select single bukrs

from /pws/zycbt011

into v_bukrs

where bukrs = v_emp_cp.

if sy-subrc ne 0.

message e001 with text-061 v_emp_cp text-064.

endif.

endmodule.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL008O01

...

screen-input = 0.

ENDIF.

WHEN '/PWS/ZYGLE316-CODAUX3'.

IF screen-invisible EQ 0 AND v_subrc EQ 0.

screen-input = 0.

ENDIF.

ENDCASE.

MODIFY SCREEN.

ENDLOOP.

ENDMODULE.

* >> Início da inclusão:

module trata_campos_0005 output.

loop at screen.

if screen-name = 'T_EMP_CP' or

screen-name = 'V_EMP_CP'.

if v_copy is initial.

screen-active = '0'.

else.

screen-active = '1'.

endif.

modify screen.

endif.

endloop.

endmodule.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL008TOP

...

v_exibe(1) type c ,

v_descr1_0006(40) type c ,

v_txtchbox1(30) type c ,

v_txtchbox2(30) type c ,

v_txtchbox3(30) type c ,

v_txtchbox4(30) type c ,

v_txtchbox5(30) type c ,

v_txtchbox6(30) type c ,

v_EMP type c ,

v_csccall type i .

* >> Início da inclusão:

data: v_emp_cp type bukrs,

v_task type trkorr,

v_copy type c.

* << Fim da inclusão

data: g_custom_container type ref to cl_gui_custom_container,

g_tree type ref to cl_gui_simple_tree ,

node_table like node_str occurs 0 ,

node like mtreesnode ,

events type cntl_simple_events ,

event type cntl_simple_event .

data: begin of itab_zygle309 occurs 0.

include structure /pws/zyglt309.

data: end of itab_zygle309.

data: begin of itab_zygle310 occurs 0.

...

marc(1) type c ,

vdetc(1) type c ,

end of itab_opers.

data: begin of itab_zygle317 occurs 0.

include structure /pws/zyglt317.

data: end of itab_zygle317.

data: begin of itab_zygle323 occurs 0.

include structure /pws/zyglt323.

data: end of itab_zygle323.

data: tdynpread like dynpread occurs 0 with header line.

* >> Início da inclusão:

data: itab_zyglt316_cr type /pws/zyglt316 occurs 0 with header line,

itab_zyglt314_cr type /pws/zyglt314 occurs 0 with header line,

itab_zyglt315_cr type /pws/zyglt315 occurs 0 with header line,

wa_zygle316_save type /pws/zyglt316,

wa_zygle316 type /pws/zyglt316.

data: itab_zyglt316_emp type /pws/zyglt316 occurs 0 with header line,

itab_zyglt314_emp type /pws/zyglt314 occurs 0 with header line,

itab_zyglt315_emp type /pws/zyglt315 occurs 0 with header line.

* << Fim da inclusão

data: wa_zyglt313 like /pws/zyglt313,

wa_regrasp like /pws/zyglt314,

wa_regrasc like /pws/zyglt315,

wa_cols type cxtab_column .

data: begin of wa_chbox ,

chbox1(1) type c,

chbox2(1) type c,

chbox3(1) type c,

chbox4(1) type c,

chbox5(1) type c,

...

where ktosl eq itab_zygle312-ktosl

and spras eq sy-langu.

sort itab_zygle312 by ktosl.

endif.

perform atualiza_operacoes.

tbctrl1-top_line = 1.

when others.

dynpronr = '0002'.

clear: /pws/zygle309, /pws/zygle310.

endcase.

* >> Início da inclusão:

if not v_emp_cp is initial.

call function 'POPUP_TO_CONFIRM'

exporting

titlebar = text-018

text_question = text-065

text_button_1 = text-019

text_button_2 = text-020

default_button = '2'

display_cancel_button = ' '

importing

answer = v_confirm

exceptions

text_not_found = 1

others = 2.

if v_confirm = '1'.

perform busca_dados.

else.

vbukrs = v_emp_cp.

leave to screen 0001.

endif.

* << Fim da inclusão

endif.

endmethod.

endclass.

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL009F01

...

append itab_botoes.

move 'CANCEL' to itab_botoes.

append itab_botoes.

if sy-dynnr eq '0120'.

move 'SELE' to itab_botoes-nome.

append itab_botoes.

else.

move 'SAVE' to itab_botoes.

append itab_botoes.

endif.

* >> Início da inclusão: FORM MOSTRA_BOTOES

MOVE 'TRANSP' TO itab_botoes.

APPEND itab_botoes.

* << Fim da inclusão

when '0103'.

move 'EXCL' to itab_botoes-nome.

append itab_botoes.

move 'MALL' to itab_botoes-nome.

append itab_botoes.

move 'DALL' to itab_botoes-nome.

append itab_botoes.

move 'MARCAR' to itab_botoes-nome.

append itab_botoes.

move 'SELE' to itab_botoes-nome.

append itab_botoes.

move 'SAVE' to itab_botoes.

* >> Início da inclusão: FORM MOSTRA_BOTOES

APPEND itab_botoes.

MOVE 'TRANSP' TO itab_botoes.

* << Fim da inclusão

append itab_botoes.

endcase.

endform.

form tratar_dados_e_salvar.

perform trata_dados_auxiliar.

loop at itab_parametrizacoes.

update /pws/zyglt320 set flag = itab_parametrizacoes-flag

where modulo = itab_parametrizacoes-modulo and

tela = itab_parametrizacoes-tela and

programa = itab_parametrizacoes-programa and

campo = itab_parametrizacoes-campo and

cod_grupo = itab_parametrizacoes-cod_grupo.

commit work.

endloop.

if sy-subrc eq 0.

message i001 with text-049.

endif.

perform atualizar_atributos_na_tela.

* >> Início da inclusão: FORM TRATAR_DADOS_E_SALVAR

PERFORM grava_request.

REFRESH itab_campos_aux2[].

itab_campos_aux2[] = itab_campos[].

* << Fim da inclusão

endform.

form grava_campos_modificados.

read table itab_campos_aux

with key campo = itab_campos-campo

modulo = itab_campos-modulo

programa = itab_campos-programa

tela = itab_campos-tela.

if sy-subrc eq 0.

move-corresponding itab_campos to itab_campos_aux.

modify itab_campos_aux index v_index2 transporting opto optf opth.

...

ENDIF.

endform.

form unlock_record.

CHECK sy-tcode EQ '/PWS/ZYGL009'.

CALL FUNCTION '/PWS/ZYGL_DEQUEUE_ZYGL009'

EXPORTING

mandt = /pws/zyGLT309-mandt.

CLEAR v_reg_usado.

v_status = '1'.

endform.

* >> Início da inclusão:

FORM grava_request.

DATA: v_task TYPE trkorr,

v_order TYPE trkorr.

CONSTANTS: c_table TYPE dd03l-tabname VALUE '/PWS/ZYGLT320'.

IF okcode = 'SAVE'.

CHECK itab_campos[] NE itab_campos_aux2[].

REFRESH itab_zyglt320_cr.

LOOP AT itab_campos.

READ TABLE itab_campos_aux2 WITH KEY

modulo = itab_campos-modulo

programa = itab_campos-programa

tela = itab_campos-tela

cod_grupo = itab_campos-cod_grupo

campo = itab_campos-campo.

IF itab_campos NE itab_campos_aux2.

MOVE-CORRESPONDING itab_campos TO wa_zyglt320_cr.

wa_zyglt320_cr-mandt = sy-mandt.

APPEND wa_zyglt320_cr TO itab_zyglt320_cr.

CLEAR wa_zyglt320_cr.

ENDIF.

ENDLOOP.

ENDIF.

CHECK NOT itab_zyglt320_cr[] IS INITIAL.

CALL FUNCTION '/PWS/ZYCB_GRAVA_CONT_TABELA_CR'

EXPORTING

i_tablename = c_table

i_task = v_task

i_order = v_order

IMPORTING

e_order = v_order

e_task = v_task

TABLES

t_data_table = itab_zyglt320_cr

EXCEPTIONS

no_data = 1

save_error = 2

no_cr_selected = 3

OTHERS = 4.

IF sy-subrc <> 0.

CLEAR okcode.

IF sy-subrc NE '3'.

MESSAGE e015 WITH text-062.

ELSE.

MESSAGE w015 WITH text-063.

ENDIF.

ELSEIF NOT v_order IS INITIAL.

CLEAR okcode.

MESSAGE s015 WITH text-064 v_order.

ENDIF.

ENDFORM.

FORM transp_all.

DATA: itab_zyglt344_cr TYPE TABLE OF /pws/zyglt344.

REFRESH itab_zyglt320_cr.

IF itab_zygle309[] IS INITIAL.

SELECT * FROM /pws/zyglt309

INTO TABLE itab_zygle309.

ENDIF.

CHECK NOT itab_zygle309[] IS INITIAL.

SELECT * FROM /pws/zyglt344

INTO TABLE itab_zyglt344_cr

FOR ALL ENTRIES IN itab_zygle309

WHERE modulo = itab_zygle309-grupp.

IF sy-subrc EQ 0.

SELECT * FROM /pws/zyglt320

INTO TABLE itab_zyglt320_cr

FOR ALL ENTRIES IN itab_zyglt344_cr

WHERE modulo = itab_zyglt344_cr-modulo

AND programa = itab_zyglt344_cr-programa

AND tela = itab_zyglt344_cr-tela_cco.

IF sy-subrc EQ 0.

PERFORM grava_request.

ENDIF.

ENDFORM.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL009I01

MODULE user_command_0001 INPUT.

CASE okcode.

WHEN 'BACK'.

PERFORM free_tree.

LEAVE PROGRAM.

* >> Início da inclusão: MODULE USER_COMMAND_0001

when 'TRANSP'.

perform transp_all.

* << Fim da inclusão

ENDCASE.

ENDMODULE.

MODULE user_command_0001_exit INPUT.

CASE okcode.

WHEN 'ABORT'.

PERFORM free_tree.

LEAVE PROGRAM.

ENDCASE.

PERFORM unlock_record.

ENDMODULE.

...

display_cancel_button = 'X'

IMPORTING

answer = v_conf

EXCEPTIONS

text_not_found = 1

OTHERS = 2.

if sy-subrc = 0.

else.

endif.

IF v_conf EQ '1'.

* >> Início da inclusão: MODULE USER_COMMAND_0102

refresh: itab_tela_del, itab_zyglt320_cr.

* << Fim da inclusão

LOOP AT itab_tela WHERE marc EQ 'X'.

* >> Início da inclusão: MODULE USER_COMMAND_0102

move itab_tela to itab_tela_del.

append itab_tela_del.

endloop.

if not itab_tela_del[] is initial.

select * from /pws/zyglt320

into table itab_zyglt320_cr

for all entries in itab_tela_del

where modulo = itab_tela_del-modulo and

programa = itab_tela_del-programa and

tela = itab_tela_del-tela_cco.

endif.

loop at itab_tela where marc eq 'X'.

* << Fim da inclusão

DELETE FROM /pws/zyglt320

WHERE modulo = itab_tela-modulo AND

programa = itab_tela-programa AND

tela = itab_tela-tela_cco.

ENDLOOP.

IF sy-subrc NE 0.

MESSAGE e001 WITH text-053.

ELSE.

REFRESH CONTROL 'TBCRTL1' FROM SCREEN '0102'.

MESSAGE s001 WITH text-054.

* >> Início da inclusão: MODULE USER_COMMAND_0102

perform grava_request.

* << Fim da inclusão

ENDIF.

WHEN 'P-' OR 'P--' OR 'P+' OR 'P++'.

CLEAR nextline.

DESCRIBE TABLE itab_tela LINES v_linha.

PERFORM blaettern

USING tbcrtl1-current_line 14 v_linha okcode

CHANGING nextline.

tbcrtl1-top_line = nextline.

ENDCASE.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL009TOP

...

DATA: END OF itab_zygle310 .

DATA: BEGIN OF itab_tela OCCURS 0,

modulo LIKE /pws/zyglt344-modulo,

programa LIKE /pws/zyglt344-programa,

tela_cco LIKE /pws/zyglt344-tela_cco,

tela_ccr LIKE /pws/zyglt344-tela_ccr,

text LIKE trdirt-text,

descript LIKE rpy_dyhead-descript,

marc(1) TYPE c,

END OF itab_tela.

* >> Início da inclusão:

data: begin of itab_tela_del occurs 0,

modulo like /pws/zyglt344-modulo,

programa like /pws/zyglt344-programa,

tela_cco like /pws/zyglt344-tela_cco,

tela_ccr like /pws/zyglt344-tela_ccr,

text like trdirt-text,

descript like rpy_dyhead-descript,

marc(1) type c,

end of itab_tela_del.

* << Fim da inclusão

DATA: BEGIN OF itab_subgrupo OCCURS 0 ,

modulo LIKE /pws/zyglt320-modulo ,

programa LIKE /pws/zyglt320-programa ,

tela LIKE /pws/zyglt320-tela ,

cod_grupo LIKE /pws/zyglt320-cod_grupo,

subgrupo LIKE /pws/zyglt327-subgrupo ,

marc(1) TYPE c ,

END OF itab_subgrupo .

DATA: BEGIN OF itab_subgrupo_aux OCCURS 0 ,

modulo LIKE /pws/zyglt320-modulo ,

...

optf(1) TYPE c ,

opth(1) TYPE c ,

opto(1) TYPE c ,

marc(1) TYPE c ,

END OF itab_campos_aux .

DATA: BEGIN OF itab_campos_aux2 OCCURS 0 ,

modulo LIKE /pws/zyglt320-modulo ,

programa LIKE /pws/zyglt320-programa ,

tela LIKE /pws/zyglt320-tela ,

cod_grupo LIKE /pws/zyglt320-cod_grupo,

* >> Início da exclusão:

subgrupo LIKE /pws/zyglt320-cod_grupo ,

* << Fim da exclusão

* >> Início da inclusão:

subgrupo like /pws/zyglt327-subgrupo ,

* << Fim da inclusão

campo LIKE /pws/zyglt320-campo ,

denominacao LIKE dd04t-ddtext ,

flag LIKE /pws/zyglt320-flag ,

optf(1) TYPE c ,

opth(1) TYPE c ,

opto(1) TYPE c ,

marc(1) TYPE c ,

END OF itab_campos_aux2 .

DATA: BEGIN OF itab_parametrizacoes OCCURS 0 ,

mandt LIKE /pws/zyglt320-mandt ,

...

END OF itab_parametrizacoes .

DATA: BEGIN OF itab_zyglt327 OCCURS 0 .

INCLUDE STRUCTURE /pws/zyglt327 .

DATA: END OF itab_zyglt327 .

DATA: BEGIN OF itab_zyglt328 OCCURS 0 .

INCLUDE STRUCTURE /pws/zyglt328 .

DATA: END OF itab_zyglt328 .

DATA: BEGIN OF itab_dd04t OCCURS 0 .

INCLUDE STRUCTURE dd04t.

DATA: END OF itab_dd04t .

* >> Início da inclusão:

data: itab_zyglt320_cr type table of /pws/zyglt320,

wa_zyglt320_cr type /pws/zyglt320.

* << Fim da inclusão

DATA: BEGIN OF itab_botoes OCCURS 0 ,

nome(35) TYPE c ,

END OF itab_botoes .

CLASS lcl_event_click DEFINITION.

PUBLIC SECTION.

CLASS-METHODS:

select_item FOR EVENT selection_changed OF cl_gui_simple_tree

IMPORTING node_key.

ENDCLASS.

CLASS lcl_event_click IMPLEMENTATION.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL010F01

...

CLEAR itab_zyglt319_aux.

REFRESH itab_zyglt319_aux.

SELECT * FROM /pws/zyglt319

INTO CORRESPONDING FIELDS OF TABLE itab_zyglt319

WHERE obj_name = /pws/zygle319-obj_name AND

dynnumb = /pws/zygle319-dynnumb. "#EC CI_NOFIRST

LOOP AT itab_zyglt319.

MOVE /pws/zygle319-tcode TO itab_zyglt319-tcode.

MOVE /pws/zygle319-visivel TO itab_zyglt319-visivel.

MODIFY itab_zyglt319.

* >> Início da inclusão: FORM SALVA_REGISTRO

PERFORM grava_request TABLES itab_zyglt319.

* << Fim da inclusão

CLEAR /pws/zyglt319.

MOVE-CORRESPONDING itab_zyglt319 TO /pws/zyglt319.

MODIFY /pws/zyglt319 FROM /pws/zyglt319.

ENDLOOP.

okcode = okcode_aux.

MESSAGE i000 WITH text-009.

ENDFORM.

FORM popup_message USING p_textline1

p_titel. "#EC *

CLEAR v_answer.

...

ENDIF.

ENDFORM.

FORM unlock_record.

CHECK sy-tcode EQ '/PWS/ZYGL010'.

CALL FUNCTION '/PWS/ZYGL_DEQUEUE_ZYGL009'

EXPORTING

mandt = /pws/zyglt309-mandt.

CLEAR v_reg_usado.

v_status = '1'.

ENDFORM.

* >> Início da inclusão:

FORM transp_all.

IF NOT itab_zyglt319 IS INITIAL.

PERFORM grava_request TABLES itab_zyglt319.

ELSE.

IF itab_zyglt309[] IS INITIAL.

SELECT * FROM /pws/zyglt309

INTO TABLE itab_zyglt309.

ENDIF.

CHECK NOT itab_zyglt309[] IS INITIAL.

SELECT * FROM /pws/zyglt319

INTO TABLE itab_zyglt319

FOR ALL ENTRIES IN itab_zyglt309

WHERE grupp = itab_zyglt309-grupp .

CHECK NOT itab_zyglt319[] IS INITIAL.

LOOP AT itab_zyglt319.

MOVE itab_zyglt319 TO itab_programas.

APPEND itab_programas.

ENDLOOP.

IF NOT itab_programas IS INITIAL.

SELECT * FROM trdirt INTO TABLE itab_trdirt

FOR ALL ENTRIES IN itab_programas

WHERE name = itab_programas-obj_name AND

sprsl = sy-langu.

LOOP AT itab_programas.

READ TABLE itab_trdirt WITH KEY name = itab_programas-obj_name.

MOVE itab_trdirt-text TO itab_programas-text.

MODIFY itab_programas.

ENDLOOP.

ENDIF.

PERFORM grava_request TABLES itab_programas.

ENDIF.

ENDFORM.

FORM grava_request TABLES p_tab STRUCTURE /pws/zyglt319.

DATA: v_task TYPE trkorr,

v_order TYPE trkorr.

CALL FUNCTION '/PWS/ZYCB_GRAVA_CONT_TABELA_CR'

EXPORTING

i_tablename = '/PWS/ZYGLT319'

IMPORTING

e_order = v_order

e_task = v_task

TABLES

t_data_table = p_tab

EXCEPTIONS

no_data = 1

save_error = 2

no_cr_selected = 3

OTHERS = 4.

IF sy-subrc <> 0.

CLEAR okcode.

IF sy-subrc NE '3'.

MESSAGE w015 WITH text-017.

ELSE.

MESSAGE w015 WITH text-018.

ENDIF.

ELSE.

MESSAGE w001 WITH text-019 v_order text-020.

ENDIF.

ENDFORM.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL010I01

module user_command_0001 input.

case okcode.

when 'BACK'.

perform call_ucomm_back.

* >> Início da inclusão: MODULE USER_COMMAND_0001

when 'TRANSP'.

perform transp_all.

* << Fim da inclusão

endcase.

clear okcode.

endmodule.

module user_command_0001_exit input.

case okcode.

when 'ABORT'.

perform call_ucomm_abort.

endcase.

PERFORM unlock_record.

endmodule.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL011F01

...

MOVE: itab_zyglt351-codeven TO itab_opers-codeven,

itab_zyglt351-codmod TO itab_opers-codmod,

itab_zyglt354-ltext TO itab_opers-ltext.

APPEND itab_opers.

ENDIF.

ENDLOOP.

DELETE ADJACENT DUPLICATES FROM itab_opers

COMPARING codeven codmod.

ENDIF.

* >> Início da inclusão: FORM DEFINE_TELA_E_SELECIONA_DADOS

if not v_emp_cp is initial.

call function 'POPUP_TO_CONFIRM'

exporting

titlebar = text-019

text_question = text-059

text_button_1 = text-021

text_button_2 = text-022

default_button = '2'

display_cancel_button = ' '

importing

answer = v_confirm

exceptions

text_not_found = 1

others = 2.

if v_confirm = '1'.

perform busca_dados.

ELSE.

D_BUKRS = V_EMP_CP.

LEAVE TO SCREEN 0100.

endif.

* << Fim da inclusão

ENDFORM.

FORM define_linhas_da_tbcontrol.

DATA: v_linhas TYPE i.

DESCRIBE TABLE itab_opers LINES v_linhas.

tc_evtctb-lines = v_linhas.

ENDFORM.

FORM comm_page.

DATA: nextline TYPE sy-index.

CLEAR nextline.

DESCRIBE TABLE itab_opers LINES v_linha.

...

ENDIF.

ENDFORM.

FORM comm_save.

PERFORM save_eventos.

ENDFORM.

FORM save_eventos.

DELETE FROM /pws/zycbt011 WHERE bukrs = d_bukrs

AND codeven = itab_opers-codeven

AND codmod = itab_opers-codmod.

MODIFY /pws/zycbt011 FROM /pws/zycbe011. "#EC ENHOK

COMMIT WORK AND WAIT.

IF sy-subrc EQ 0.

MESSAGE s000 WITH text-027.

* >> Início da inclusão: FORM SAVE_EVENTOS

clear: itab_zycbt011_cr, v_confirm.

refresh itab_zycbt011_cr.

move /pws/zycbe011 to itab_zycbt011_cr.

append itab_zycbt011_cr.

perform gera_request.

* << Fim da inclusão

ELSE.

MESSAGE i000 WITH text-025 text-026 text-028.

ENDIF.

wa_zycbt011_save = /pws/zycbe011.

ENDFORM.

FORM comm_prior.

PERFORM verifica_alteracao.

IF NOT v_confirm EQ 'A'.

v_indicatu = v_indicatu - 1.

IF v_indicatu <= 0.

...

text_not_found = 1

OTHERS = 2.

if sy-subrc = 0.

else.

endif.

IF v_confirm EQ '1'.

DELETE FROM /pws/zycbt011

WHERE codmod EQ itab_opers-codmod

AND codeven EQ itab_opers-codeven

AND bukrs EQ d_bukrs.

* >> Início da inclusão: FORM COMM_DELE

clear: itab_zycbt011_cr, v_confirm.

refresh itab_zycbt011_cr.

call function 'POPUP_TO_CONFIRM'

exporting

titlebar = text-019

text_question = text-054

text_button_1 = text-021

text_button_2 = text-022

default_button = '2'

display_cancel_button = ' '

importing

answer = v_confirm

exceptions

text_not_found = 1

others = 2.

if v_confirm = '1'.

move /pws/zycbe011 to itab_zycbt011_cr.

append itab_zycbt011_cr.

perform gera_request.

endif.

* << Fim da inclusão

LEAVE TO SCREEN 0100.

ENDIF.

ENDFORM.

FORM busca_grupo.

IF /pws/zygle309 IS INITIAL.

SELECT *

FROM /pws/zyglt313

UP TO 1 ROWS

INTO wa_zyglt313

WHERE tcode EQ sy-tcode.

...

MESSAGE a015 WITH text-050.

ENDCASE.

IF v_reg_usado = 'X'.

v_status = '0'.

ELSE.

v_status = '1'.

ENDIF.

ENDFORM.

FORM trata_empresa.

* >> Início da inclusão: FORM TRATA_EMPRESA

data: v_emp1 type bukrs.

* << Fim da inclusão

SELECT SINGLE bukrs FROM t001 INTO d_bukrs_aux WHERE bukrs EQ d_bukrs.

IF sy-subrc EQ 0.

v_emp = 'X'.

ELSE.

MESSAGE s016(/pws/zycem) WITH text-016.

v_emp = ' '.

* >> Início da inclusão: FORM TRATA_EMPRESA

endif.

if not v_copy is initial.

select single bukrs

from /pws/zycbt011

into v_emp1

where bukrs = d_bukrs.

if sy-subrc eq 0.

clear: v_copy, v_emp_cp.

message i001 with text-056 d_bukrs

text-058 .

endif.

ELSE.

select single bukrs

from /pws/zycbt011

into v_emp1

where bukrs = d_bukrs.

if sy-subrc ne 0.

message I001 with text-056 d_bukrs text-057.

v_erro = 'X'.

* << Fim da inclusão

ENDIF.

* >> Início da inclusão: FORM TRATA_EMPRESA

endif.

* << Fim da inclusão

ENDFORM.

FORM seleciona_dados_modulo.

CHECK sy-saprl = '46B'.

CLEAR node.

CALL METHOD g_tree->get_selected_node IMPORTING

node_key = node-node_key.

...

WHEN text-008.

PERFORM define_tela_e_seleciona_dados.

WHEN text-009.

PERFORM define_tela_e_seleciona_dados.

WHEN OTHERS.

dynpronr = '0101'.

CLEAR: /pws/zygle309, /pws/zygle310.

ENDCASE.

ENDIF.

ENDFORM.

* >> Início da inclusão:

form gera_request.

data: v_task type trkorr,

v_order type trkorr.

constants: c_table type dd03l-tabname value '/PWS/ZYCBT011'.

call function '/PWS/ZYCB_GRAVA_CONT_TABELA_CR'

exporting

i_tablename = c_table

i_task = v_task

i_order = v_order

importing

e_order = v_order

e_task = v_task

tables

t_data_table = itab_zycbt011_cr

exceptions

no_data = 1

save_error = 2

no_cr_selected = 3

others = 4.

if sy-subrc <> 0.

clear okcode.

if sy-subrc ne '3'.

message e015 with text-051.

else.

message w015 with text-052.

endif.

elseif not v_order is initial.

message s015 with text-053 v_order.

endif.

endform.

form transp_all.

refresh itab_zycbt011_cr.

if v_emp is initial or

d_bukrs is initial.

call screen '0103' starting at 10 06.

check okcode = 'ENTER'.

if itab_zygle309[] is initial.

select * from /pws/zyglt309

into table itab_zygle309.

endif.

clear okcode.

if itab_zyglt351[] is initial.

select * from /pws/zyglt351

into table itab_zyglt351

for all entries in itab_zygle309

where grupp = itab_zygle309-grupp.

endif.

if not itab_zyglt351[] is initial.

select * from /pws/zycbt011

into table itab_zycbt011_cr

for all entries in itab_zyglt351

where codeven = itab_zyglt351-codeven

and codmod = itab_zyglt351-codmod

and bukrs = d_bukrs.

endif.

if not itab_zycbt011_cr[] is initial.

perform gera_request.

endif.

endform.

form busca_dados.

select * from /pws/zycbt011

into corresponding fields of table itab_zycbt011_aux

where bukrs eq v_emp_cp.

if not itab_zycbt011_aux[] is initial.

perform gera_request_011 tables itab_zycbt011_aux .

else.

message i000 with text-025 text-026 text-028.

endif.

loop at itab_zycbt011_aux.

move d_bukrs to itab_zycbt011_aux-bukrs.

modify /pws/zycbt011 from itab_zycbt011_aux.

endloop.

endform.

form gera_request_011 tables p_tab structure /pws/zycbt011.

data: v_task type trkorr,

v_order type trkorr.

constants: c_table type dd03l-tabname value '/PWS/ZYCBT011'.

call function '/PWS/ZYCB_GRAVA_CONT_TABELA_CR'

exporting

i_tablename = c_table

i_task = v_task

i_order = v_order

importing

e_order = v_order

e_task = v_task

tables

t_data_table = p_tab

exceptions

no_data = 1

save_error = 2

no_cr_selected = 3

others = 4.

if sy-subrc <> 0.

clear okcode.

if sy-subrc ne '3'.

message e015 with text-051.

else.

message w015 with text-052.

endif.

elseif not v_order is initial.

message s015 with text-053 v_order.

endif.

endform.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL011I02

...

CASE okcode.

WHEN 'BACK'.

PERFORM free_tree.

LEAVE PROGRAM.

when '%_GC 127 21' or

'%_GC 121 21' or

'SELE'.

perform seleciona_dados_modulo.

WHEN 'MODEMP'.

CALL SCREEN '0103' STARTING AT 10 06.

* >> Início da inclusão: MODULE USER_COMMAND

when 'TRANSP'.

perform transp_all.

* << Fim da inclusão

ENDCASE.

WHEN '0102' OR '0104'.

CASE okcode.

WHEN 'MODEMP'.

CALL SCREEN '0103' STARTING AT 10 06.

WHEN 'SELE'.

PERFORM comm_sele.

WHEN 'P-' OR 'P--' OR 'P+' OR 'P++'.

PERFORM comm_page.

WHEN 'BACK'.

LEAVE PROGRAM.

ENDCASE.

WHEN '0103'.

CASE okcode.

WHEN 'CANCEL'.

v_emp = 'X'.

* >> Início da inclusão: MODULE USER_COMMAND

if v_erro is initial.

* << Fim da inclusão

d_bukrs = d_bukrs_aux.

LEAVE TO SCREEN 0.

* >> Início da inclusão: MODULE USER_COMMAND

else.

clear d_bukrs.

leave to screen 0.

endif.

* << Fim da inclusão

WHEN 'ENTER'.

PERFORM trata_empresa.

* >> Início da inclusão: MODULE USER_COMMAND

if v_erro is initial.

* << Fim da inclusão

d_bukrs = d_bukrs_aux.

LEAVE TO SCREEN 0.

* >> Início da inclusão: MODULE USER_COMMAND

else.

clear d_bukrs.

endif.

when 'COPY'.

if v_copy is initial.

v_copy = 'X'.

else.

clear: v_copy,

v_emp_cp.

endif.

* << Fim da inclusão

ENDCASE.

WHEN '0200'.

CASE okcode.

WHEN 'BACK'.

v_csccall = v_csccall + 1.

IF v_csccall > 45.

LEAVE TO TRANSACTION '/PWS/ZYGL011'.

ENDIF.

PERFORM comm_back.

WHEN 'OPER'.

...

CASE okcode.

WHEN 'ABORT'.

PERFORM verifica_alteracao.

IF NOT v_confirm EQ 'A'.

LEAVE PROGRAM.

ENDIF.

ENDCASE.

PERFORM unlock_record.

ENDMODULE.

* >> Início da inclusão:

module valida_empresa input.

data: v_bukrs type bukrs.

check not v_copy is initial.

if sy-ucomm ne 'CANCEL' and

sy-ucomm ne 'COPY'.

if v_emp_cp is initial.

message e001 with text-055.

endif.

if sy-ucomm eq 'ENTER'.

select single bukrs

from /pws/zycbt011

into v_bukrs

where bukrs = v_emp_cp.

if sy-subrc ne 0.

message e001 with text-056 v_emp_cp text-057.

endif.

endmodule.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL011O01

...

endmodule.

module set_objects output.

perform load_tree_control.

endmodule.

module set_screen output.

case sy-dynnr.

when '0202'.

perform check_field.

endcase.

endmodule.

* >> Início da inclusão:

module trata_campos_0103 output.

loop at screen.

if screen-name = 'T_EMP_CP' or

screen-name = 'V_EMP_CP'.

if v_copy is initial.

screen-active = '0'.

else.

screen-active = '1'.

endif.

modify screen.

endif.

endloop.

endmodule.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL011TOP

...

v_indicatu like sy-tabix ,

v_pos type i ,

v_screencall type sy-dynnr ,

v_tpscreen(1) type c ,

v_quest(150) type c ,"#EC NEEDED

v_confirm(1) type c ,

v_emp type c ,

v_csccall type i ,

v_reg_usado,

v_status.

* >> Início da inclusão:

data: v_emp_cp type bukrs,

v_erro type c,

v_copy type c.

* << Fim da inclusão

data: d_bukrstxt(40) ,

d_bukrs_aux type bukrs ,

d_bukrs type bukrs .

data: g_custom_container type ref to cl_gui_custom_container,

g_tree type ref to cl_gui_simple_tree ,

node_table like node_str occurs 0 ,

node like mtreesnode ,

events type cntl_simple_events ,

event type cntl_simple_event .

data: begin of itab_zygle309 occurs 0.

...

end of itab_opers.

data: begin of itab_zyglt351 occurs 0.

include structure /pws/zyglt351.

data: end of itab_zyglt351.

data: begin of itab_zyglt354 occurs 0.

include structure /pws/zyglt354.

data: end of itab_zyglt354.

data: begin of itab_status occurs 0,

fcode like rsmpe-func,

end of itab_status.

* >> Início da inclusão:

data: itab_zycbt011_aux type /pws/zycbt011 occurs 0 with header line.

data: itab_zycbt011_cr type /pws/zycbt011 occurs 0 with header line.

* << Fim da inclusão

data: wa_regrasp like /pws/zyglt351,

wa_zyglt313 like /pws/zyglt313,

wa_zycbt011_save type /pws/zycbe011.

class lcl_event_click definition.

public section.

class-methods:

select_item for event selection_changed of cl_gui_simple_tree

importing node_key.

endclass.

class lcl_event_click implementation.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL014F01

FORM salva_tc.

IF NOT itab_zyglt325_dele[] IS INITIAL.

LOOP AT itab_zyglt325_dele.

DELETE FROM /pws/zyglt325

WHERE cod_area = itab_zyglt325_dele-cod_area.

ENDLOOP.

* >> Início da inclusão: FORM SALVA_TC

move-corresponding itab_zyglt325_dele to itab_zyglt325_gr.

move sy-mandt to itab_zyglt325_gr-mandt.

append itab_zyglt325_gr.

perform grava_request tables itab_zyglt325_gr.

else.

clear itab_zyglt325_gr.

refresh itab_zyglt325_gr.

select * from /pws/zyglt325

into table itab_zyglt325_gr.

loop at itab_zyglt325_aux.

read table itab_zyglt325_gr

with key cod_area = itab_zyglt325_aux-cod_area

descr = itab_zyglt325_aux-descr.

move sy-mandt to itab_zyglt325_aux-mandt.

if itab_zyglt325_gr-cod_area ne itab_zyglt325_aux-cod_area

and itab_zyglt325_gr-descr ne itab_zyglt325_aux-descr.

move-corresponding itab_zyglt325_aux to itab_zyglt325_gr.

append itab_zyglt325_gr.

else.

delete itab_zyglt325_gr index sy-tabix.

endif.

endloop.

if not itab_zyglt325_gr[] is initial.

perform grava_request tables itab_zyglt325_gr.

* << Fim da inclusão

ENDIF.

* >> Início da inclusão: FORM SALVA_TC

endif.

* << Fim da inclusão

LOOP AT itab_zyglt325.

MOVE-CORRESPONDING itab_zyglt325 TO /pws/zyglt325.

MODIFY /pws/zyglt325 FROM itab_zyglt325.

ENDLOOP.

IF sy-subrc = 0.

MESSAGE i001 WITH text-001.

...

ENDIF.

ENDFORM.

FORM unlock_record.

CHECK sy-tcode EQ '/PWS/ZYGL014'.

CALL FUNCTION '/PWS/ZYGL_DEQUEUE_ZYGL014'

EXPORTING

mandt = /pws/zyglt325-mandt.

CLEAR v_reg_usado.

v_status = '1'.

ENDFORM.

* >> Início da inclusão:

form grava_request tables p_tab structure /pws/zyglt325.

data: v_task type trkorr,

v_order type trkorr.

call function '/PWS/ZYCB_GRAVA_CONT_TABELA_CR'

exporting

i_tablename = '/PWS/ZYGLT325'

importing

e_order = v_order

e_task = v_task

tables

t_data_table = p_tab

exceptions

no_data = 1

save_error = 2

no_cr_selected = 3

others = 4.

if sy-subrc <> 0.

clear okcode.

if sy-subrc ne '3'.

message w015 with text-016.

else.

message w015 with text-017.

endif.

else.

message w001 with text-018 v_order text-019.

endif.

endform.

form transp_all.

clear itab_zyglt325_gr.

refresh itab_zyglt325_gr.

loop at itab_zyglt325 where mark = 'X'.

move-corresponding itab_zyglt325 to itab_zyglt325_gr.

append itab_zyglt325_gr.

endloop.

if sy-subrc eq 0.

clear okcode.

perform grava_request tables itab_zyglt325_gr.

else.

clear okcode.

message e015 with text-020.

leave screen.

endif.

endform.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL014I01

...

PERFORM marca_tudo.

WHEN 'DALL'.

PERFORM desmarca_tudo.

WHEN 'DROW'.

PERFORM deleta_linha.

WHEN 'POSI'.

CALL SCREEN 0002 STARTING AT 3 3.

WHEN 'P-' OR 'P--' OR 'P+' OR 'P++'.

PERFORM pagina.

tc_tab-top_line = nextline.

* >> Início da inclusão: MODULE USER_COMMAND_0001

when 'TRANSP'.

perform transp_all.

* << Fim da inclusão

ENDCASE.

PERFORM unlock_record.

ENDMODULE.

MODULE move_to_itab INPUT.

MOVE: /pws/zygle325-cod_area TO itab_zyglt325-cod_area,

/pws/zygle325-descr TO itab_zyglt325-descr .

MODIFY itab_zyglt325 INDEX tc_tab-current_line.

IF sy-subrc NE 0.

APPEND itab_zyglt325.

ENDIF.

...

PERFORM unlock_record.

ENDMODULE.

MODULE deleta_duplicado INPUT.

DATA: v_var1(10) TYPE c,

v_var2(10) TYPE c,

v_var3 TYPE i,

wa_temp LIKE itab_zyglt325.

CLEAR: v_var1,

v_var2,

v_var3.

* >> Início da inclusão: MODULE DELETA_DUPLICADO

itab_zyglt325_aux[] = itab_zyglt325[] .

* << Fim da inclusão

DESCRIBE TABLE itab_zyglt325 LINES v_var3.

SORT itab_zyglt325 BY cod_area.

LOOP AT itab_zyglt325.

v_var1 = sy-tabix + 1.

READ TABLE itab_zyglt325 INDEX v_var1 INTO wa_temp.

IF itab_zyglt325-cod_area = wa_temp-cod_area AND

v_var1 <= v_var3."#EC PORTABLE

MODIFY itab_zyglt325.

v_var2 = v_var1 - 1.

DELETE itab_zyglt325

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL014TOP

...

TABLES: /pws/zyglt325, /pws/zygle325.

DATA: BEGIN OF itab_zyglt325 OCCURS 0.

INCLUDE STRUCTURE /pws/zyglt325.

DATA: mark,

flag(1) TYPE c,

END OF itab_zyglt325.

DATA: BEGIN OF itab_zyglt325_dele OCCURS 0.

INCLUDE STRUCTURE /pws/zyglt325.

DATA: mark,

END OF itab_zyglt325_dele.

* >> Início da inclusão:

DATA: BEGIN OF itab_zyglt325_GR OCCURS 0.

INCLUDE STRUCTURE /pws/zyglt325.

DATA: mark,

flag(1) TYPE c,

END OF itab_zyglt325_GR

data: itab_zyglt325_AUX like itab_zyglt325 occurs 0 with header line.

* << Fim da inclusão

DATA: BEGIN OF itab_aux OCCURS 0."#EC *

INCLUDE STRUCTURE /pws/zyglt325."#EC *

DATA: END OF itab_aux."#EC *

DATA: wa_zyglt325 LIKE /pws/zyglt325."#EC *

CONTROLS: tc_tab TYPE TABLEVIEW USING SCREEN '0001'.

DATA: okcode LIKE sy-ucomm,

nextline TYPE i ,

v_lines TYPE i ,

v_answer ,

v_posi(100) ,

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL032F01

...

exporting

defaultoption = 'Y'

textline1 = p_textline1

titel = p_titel

importing

answer = v_answer

exceptions

others = 0.

endform.

form save_changes.

if /pws/zycbe214 ne wa_zycbt214."#EC ENHOK

update /pws/zycbt214

set: tp_conta = /pws/zycbe214-tp_conta

cod_cli = /pws/zycbe214-cod_cli

where tpcontr = /pws/zycbe214-tpcontr.

if sy-subrc ne 0 .

insert into /pws/zycbt214 values /pws/zycbe214."#EC ENHOK

commit work.

endif.

message s001 with text-009.

* >> Início da inclusão: FORM SAVE_CHANGES

CLEAR: itab_zycbt214_gr.

REFRESH:itab_zycbt214_gr.

itab_zycbt214_gr = /pws/zycbe214.

APPEND itab_zycbt214_gr.

PERFORM grava_request TABLES itab_zycbt214_gr.

* << Fim da inclusão

v_status_s = 0.

refresh itab_zycbt214.

free itab_zycbt214.

perform fill_nodes.

endif.

endform.

form exclui_reg.

clear v_answer.

perform popup_message using text-007 text-008.

if v_answer eq 'J'.

delete itab_zycbt214 where tpcontr = /pws/zycbe214-tpcontr.

delete from /pws/zycbt214 where tpcontr = /pws/zycbe214-tpcontr.

commit work.

* >> Início da inclusão: FORM EXCLUI_REG

CLEAR: itab_zycbt214_gr.

REFRESH:itab_zycbt214_gr.

itab_zycbt214_gr = /pws/zycbe214.

APPEND itab_zycbt214_gr.

PERFORM grava_request TABLES itab_zycbt214_gr.

* << Fim da inclusão

refresh: node_table.

perform fill_nodes.

clear /pws/zycbe214.

endif.

endform.

...

form clear_structures.

clear /pws/zycbe214.

v_novo = 'X'.

endform. " clear_structures

* >> Início da inclusão:

FORM grava_request TABLES p_tab STRUCTURE /pws/zycbt214.

DATA: v_task TYPE trkorr,

v_order TYPE trkorr.

CALL FUNCTION '/PWS/ZYCB_GRAVA_CONT_TABELA_CR'

EXPORTING

i_tablename = '/PWS/ZYCBT214'

IMPORTING

e_order = v_order

e_task = v_task

TABLES

t_data_table = p_tab

EXCEPTIONS

no_data = 1

save_error = 2

no_cr_selected = 3

OTHERS = 4.

IF sy-subrc <> 0.

CLEAR okcode.

IF sy-subrc NE '3'.

MESSAGE w015 WITH text-016.

ELSE.

MESSAGE w015 WITH text-017.

ENDIF.

ELSE.

MESSAGE w001 WITH text-018 v_order text-019.

ENDIF.

ENDFORM.

FORM transp_all.

PERFORM grava_request TABLES itab_zycbt214.

ENDFORM.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL032I01

...

WHEN 'BACK'.

PERFORM call_ucomm_back.

WHEN 'AEND'.

PERFORM change_status.

WHEN 'DELE'.

PERFORM exclui_reg.

WHEN 'SAVE'.

PERFORM save_changes.

WHEN 'NOVO'.

PERFORM criar.

* >> Início da inclusão: MODULE USER_COMMAND_0001

when 'TRANSP'.

perform transp_all.

* << Fim da inclusão

ENDCASE.

CLEAR okcode.

ELSE.

CASE okcode.

WHEN 'NOVO'.

PERFORM criar.

WHEN 'BACK'.

PERFORM call_ucomm_back.

* >> Início da inclusão: MODULE USER_COMMAND_0001

when 'TRANSP'.

perform transp_all.

* << Fim da inclusão

ENDCASE.

CLEAR okcode.

ENDIF.

ENDMODULE.

MODULE user_command_0001_exit INPUT.

CASE okcode.

WHEN 'ABORT'.

PERFORM call_ucomm_abort.

ENDCASE.

ENDMODULE.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL032TOP

PROGRAM /pws/sapmzycb032 MESSAGE-ID /pws/zyglm.

TABLES : /pws/zycbt214, /pws/zycbe214.

DATA: BEGIN OF itab_zycbt214 OCCURS 0.

INCLUDE STRUCTURE /pws/zycbt214.

DATA: END OF itab_zycbt214.

* >> Início da inclusão:

DATA: BEGIN OF itab_zycbt214_gr OCCURS 0.

INCLUDE STRUCTURE /pws/zycbt214.

DATA: END OF itab_zycbt214_gr.

* << Fim da inclusão

DATA: BEGIN OF itab_zycbt016 OCCURS 0.

INCLUDE STRUCTURE /pws/zycbt016.

DATA: END OF itab_zycbt016.

DATA: BEGIN OF itab_zycbt214_aux OCCURS 0.

INCLUDE STRUCTURE /pws/zycbt214.

DATA: END OF itab_zycbt214_aux.

DATA: BEGIN OF it_botoes OCCURS 0, "#EC NEEDED

nome(35) TYPE c,

END OF it_botoes. "#EC needed

DATA: wa_zycbt214 LIKE /pws/zycbt214.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL344F01

...

when 'CANCEL'.

leave program.

endcase.

perform unlock_record.

endform.

form user_command_0100.

case ok_code.

when 'ALTE'.

when 'SAVE'.

if v_status ne 0.

* >> Início da inclusão: FORM USER_COMMAND_0100

if not itab_zyglt368e[] is initial.

* << Fim da inclusão

loop at itab_zyglt368e.

delete from /pws/zyglt368

where bukrs = itab_zyglt368e-bukrs and

ktokd = itab_zyglt368e-ktokd and

kunag = itab_zyglt368e-kunag.

* >> Início da inclusão: FORM USER_COMMAND_0100

move-corresponding itab_zyglt368e to itab_zyglt368_gr.

move sy-mandt to itab_zyglt368_gr-mandt.

append itab_zyglt368_gr.

* << Fim da inclusão

endloop.

* >> Início da inclusão: FORM USER_COMMAND_0100

perform grava_request tables itab_zyglt368_gr.

* << Fim da inclusão

clear itab_zyglt368e.

* >> Início da inclusão: FORM USER_COMMAND_0100

else.

select * from /pws/zyglt368

into table itab_zyglt368_gr

where bukrs = v_emp.

loop at itab_zyglt368.

read table itab_zyglt368_gr

with key bukrs = itab_zyglt368-bukrs

ktokd = itab_zyglt368-ktokd

kunag = itab_zyglt368-kunag.

clear itab_zyglt368_gr-mandt.

if itab_zyglt368 = itab_zyglt368_gr.

delete itab_zyglt368_gr index sy-tabix.

else.

move-corresponding itab_zyglt368 to itab_zyglt368_gr.

move sy-mandt to itab_zyglt368_gr-mandt.

append itab_zyglt368_gr.

endif.

endloop.

perform grava_request tables itab_zyglt368_gr.

endif.

* << Fim da inclusão

modify /pws/zyglt368 from table itab_zyglt368.

commit work.

message s001 with text-001.

endif.

when 'DEL'.

loop at itab_zyglt368 where marc = 'X'.

move-corresponding itab_zyglt368 to itab_zyglt368e.

append itab_zyglt368e.

endloop.

delete itab_zyglt368 where marc = 'X'.

when 'DMARC'.

loop at itab_zyglt368.

itab_zyglt368-marc = ' '.

modify itab_zyglt368.

endloop.

when 'MARC'.

loop at itab_zyglt368.

itab_zyglt368-marc = 'X'.

modify itab_zyglt368.

endloop.

* >> Início da inclusão: FORM USER_COMMAND_0100

when 'TRANSP'.

perform transp_all.

* << Fim da inclusão

endcase.

endform.

form user_command_0200.

case ok_code.

when 'ENTER'.

move /pws/zygle368-bukrs to v_emp.

authority-check object 'F_BKPF_BUK'

id 'BUKRS'

field v_emp

id 'ACTVT'

...

v_reg_usado = 'X'.

when 2.

message a015 with text-005.

endcase.

if v_reg_usado = 'X'.

v_status = '0'.

else.

v_status = '1'.

endif.

endform.

* >> Início da inclusão:

form grava_request tables p_tab structure /pws/zyglt368.

data: v_task type trkorr,

v_order type trkorr.

call function '/PWS/ZYCB_GRAVA_CONT_TABELA_CR'

exporting

i_tablename = '/PWS/ZYGLT368'

importing

e_order = v_order

e_task = v_task

tables

t_data_table = p_tab

exceptions

no_data = 1

save_error = 2

no_cr_selected = 3

others = 4.

if sy-subrc <> 0.

clear ok_code.

if sy-subrc ne '3'.

message w015 with text-009.

else.

message w015 with text-010.

endif.

else.

message w001 with text-011 v_order text-012.

endif.

endform.

form transp_all.

clear itab_zyglt368_gr.

refresh itab_zyglt368_gr.

loop at itab_zyglt368 where marc = 'X'.

move-corresponding itab_zyglt368 to itab_zyglt368_gr.

move sy-mandt to itab_zyglt368_gr.

append itab_zyglt368_gr.

endloop.

if sy-subrc eq 0.

clear ok_code.

perform grava_request tables itab_zyglt368_gr.

else.

clear ok_code.

message e015 with text-013.

leave screen.

endif.

endform.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL344TOP

...

TABLES: /PWS/ZYGLT368,

/PWS/ZYGLE368.

CONTROLS TCONTROL1 TYPE TABLEVIEW USING SCREEN '0100'.

DATA:

WA_COLS TYPE CXTAB_COLUMN.

DATA: BEGIN OF ITAB_ZYGLT368 OCCURS 0.

INCLUDE STRUCTURE /PWS/ZYGLT368.

DATA: MARC.

DATA: END OF ITAB_ZYGLT368.

DATA: ITAB_ZYGLT368E LIKE ITAB_ZYGLT368 OCCURS 0 WITH HEADER LINE.

* >> Início da inclusão:

data: itab_zyglt368_GR LIKE ITAB_ZYGLT368 OCCURS 0 WITH HEADER LINE.

* << Fim da inclusão

DATA: BEGIN OF ITAB_PF_STATUS OCCURS 10,

FCODE LIKE RSMPE-FUNC,

END OF ITAB_PF_STATUS.

DATA: OK_CODE LIKE SY-UCOMM,

MARC,

RD_GRU(1) TYPE C,

RD_COD(1) TYPE C,

V_EMP LIKE /PWS/ZYGLT368-BUKRS,

V_FL0(1) TYPE N,

V_FL1(1) TYPE N,

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGLT217F01

...

MODIFY itab_zyglt217 INDEX tc_mensist-current_line.

IF v_marca IS INITIAL.

v_marca = tc_mensist-current_line.

ELSE.

v_marca_ult = tc_mensist-current_line.

IF v_marca_ult < v_marca.

v_marca_ult = v_marca.

v_marca = tc_mensist-current_line.

ENDIF.

* >> Início da inclusão: FORM FLAG

WHEN OTHERS.

MOVE d_mark TO itab_zyglt217-mark.

MODIFY itab_zyglt217 INDEX tc_mensist-current_line.

* << Fim da inclusão

ENDCASE.

ENDFORM.

FORM salvar.

* >> Início da inclusão: FORM SALVAR

REFRESH itab_zyglt217_cr.

* << Fim da inclusão

LOOP AT itab_zyglt217.

READ TABLE itab_zyglt217_aux WITH KEY

arbgb = itab_zyglt217-arbgb

msgnr = itab_zyglt217-msgnr.

v_index = sy-tabix.

IF sy-subrc = 0.

IF itab_zyglt217-msgtp NE itab_zyglt217_aux-msgtp.

MOVE itab_zyglt217-msgtp TO itab_zyglt217_aux-msgtp.

MODIFY itab_zyglt217_aux INDEX v_index.

* >> Início da inclusão: FORM SALVAR

MOVE itab_zyglt217_aux TO wa_zyglt217_cr.

APPEND wa_zyglt217_cr TO itab_zyglt217_cr.

CLEAR wa_zyglt217_cr.

* << Fim da inclusão

ENDIF.

UPDATE /pws/zyglt217 SET msgtp = itab_zyglt217-msgtp

WHERE arbgb = itab_zyglt217-arbgb AND

msgnr = itab_zyglt217-msgnr.

ENDLOOP.

IF NOT itab_zyglt217_del[] IS INITIAL.

LOOP AT itab_zyglt217_del.

DELETE FROM /pws/zyglt217 WHERE

arbgb = itab_zyglt217_del-arbgb AND

msgnr = itab_zyglt217_del-msgnr.

* >> Início da inclusão: FORM SALVAR

MOVE itab_zyglt217_del TO wa_zyglt217_cr.

APPEND wa_zyglt217_cr TO itab_zyglt217_cr.

CLEAR wa_zyglt217_cr.

* << Fim da inclusão

ENDLOOP.

CLEAR itab_zyglt217_del.

REFRESH itab_zyglt217_del.

ENDIF.

MESSAGE s001(/pws/zyglm) WITH text-008.

* >> Início da inclusão: FORM SALVAR

PERFORM grava_request.

* << Fim da inclusão

ENDFORM.

FORM excluir_dados.

...

ENDIF.

ENDFORM.

FORM unlock_record.

CHECK sy-tcode EQ '/PWS/ZYGLT217'.

CALL FUNCTION '/PWS/ZYGL_DEQUEUE_ZYGL217'

EXPORTING

mandt = /pws/zyglt217-mandt.

CLEAR v_reg_usado.

v_status = '1'.

ENDFORM.

* >> Início da inclusão:

FORM grava_request.

DATA: v_task TYPE trkorr,

v_order TYPE trkorr .

CONSTANTS: c_table TYPE dd03l-tabname VALUE '/PWS/ZYGLT217'.

IF okcode = 'TRANSP'.

REFRESH itab_zyglt217_cr.

LOOP AT itab_zyglt217 WHERE mark = 'X'.

MOVE-CORRESPONDING itab_zyglt217 TO wa_zyglt217_cr.

APPEND wa_zyglt217_cr TO itab_zyglt217_cr.

CLEAR wa_zyglt217_cr.

ENDLOOP.

IF sy-subrc NE 0.

MESSAGE e015 WITH text-027.

ENDIF.

IF NOT itab_zyglt217_cr IS INITIAL.

CALL FUNCTION '/PWS/ZYCB_GRAVA_CONT_TABELA_CR'

EXPORTING

i_tablename = c_table

i_task = v_task

i_order = v_order

IMPORTING

e_order = v_order

e_task = v_task

TABLES

t_data_table = itab_zyglt217_cr

EXCEPTIONS

no_data = 1

save_error = 2

no_cr_selected = 3

OTHERS = 4.

IF sy-subrc <> 0.

CLEAR okcode.

IF sy-subrc NE '3'.

MESSAGE e015 WITH text-024.

ELSE.

MESSAGE w015 WITH text-025.

ENDIF.

ELSEIF NOT v_order IS INITIAL.

MESSAGE s015 WITH text-026 v_order.

ENDIF.

ENDFORM.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGLT217I01

...

WHEN 'MAR_BCO'.

PERFORM mar_bco.

WHEN 'SAVE'.

IF v_status NE '0'.

PERFORM salvar.

ENDIF.

WHEN 'DELE'.

PERFORM excluir_dados.

WHEN 'MODI'.

PERFORM modificar.

* >> Início da inclusão: MODULE USER_COMMAND_0100

when 'TRANSP'.

PERFORM GRAVA_REQUEST.

* << Fim da inclusão

ENDCASE.

ENDMODULE.

MODULE user_command_exit INPUT."#EC *

PERFORM unlock_record.

ENDMODULE.

MODULE user_command_0001 INPUT.

CASE okcode.

WHEN 'CANC'.

SET SCREEN 0.

LEAVE SCREEN.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGLT217TOP

...

data: begin of itab_zyglt217 occurs 10.

include structure /pws/zyglt217.

data: mark(1) type c.

data: end of itab_zyglt217.

data: begin of itab_zyglt217_aux occurs 10.

include structure itab_zyglt217.

data: end of itab_zyglt217_aux.

data: begin of itab_zyglt217_del occurs 10.

include structure itab_zyglt217.

data: end of itab_zyglt217_del.

* >> Início da inclusão:

data: itab_zyglt217_cr type table of /pws/zyglt217,

wa_zyglt217_cr type /pws/zyglt217.

* << Fim da inclusão

data: okcode like sy-ucomm,

v_index like sy-tabix,

v_comeco(4) type c,

v_fim(4) type c,

d_text(20) type c,

d_mark(1) type c,

v_line type i,

v_lines type i,

v_input type i,

v_current type i,

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGLT355F01

...

entry_new = nextline.

tc_data-top_line = nextline.

ENDFORM.

FORM salva_dados.

IF NOT itab_zyglt355_dele[] IS INITIAL.

LOOP AT itab_zyglt355_dele.

DELETE FROM /pws/zyglt355

WHERE land1 = itab_zyglt355_dele-land1

AND hbkid = itab_zyglt355_dele-hbkid.

ENDLOOP.

* >> Início da inclusão: FORM SALVA_DADOS

move-corresponding itab_zyglt355_dele to itab_zyglt355_gr.

move sy-mandt to itab_zyglt355_gr-mandt.

append itab_zyglt355_gr.

perform grava_request tables itab_zyglt355_gr.

* << Fim da inclusão

CLEAR: itab_zyglt355_dele,

itab_zyglt355_dele[].

* >> Início da inclusão: FORM SALVA_DADOS

else.

clear itab_zyglt355_gr.

refresh itab_zyglt355_gr.

select * from /pws/zyglt355

into table itab_zyglt355_gr.

loop at itab_zyglt355.

read table itab_zyglt355_gr

with key land1 = itab_zyglt355-land1

hbkid = itab_zyglt355-hbkid.

move sy-mandt to itab_zyglt355-mandt.

if itab_zyglt355-land1 ne itab_zyglt355_gr-land1

or itab_zyglt355-hbkid ne itab_zyglt355_gr-hbkid

or itab_zyglt355-versao ne itab_zyglt355_gr-versao

or itab_zyglt355-avisopg ne itab_zyglt355_gr-avisopg

or itab_zyglt355-versaolote ne itab_zyglt355_gr-versaolote

move-corresponding itab_zyglt355 to itab_zyglt355_gr.

append itab_zyglt355_gr.

else.

delete itab_zyglt355_gr index sy-tabix.

endif.

endloop.

if not itab_zyglt355_gr[] is initial.

perform grava_request tables itab_zyglt355_gr.

endif.

* << Fim da inclusão

ENDIF.

LOOP AT itab_zyglt355.

MOVE-CORRESPONDING itab_zyglt355 TO /pws/zyglt355.

MODIFY /pws/zyglt355 FROM TABLE itab_zyglt355.

ENDLOOP.

MESSAGE s015 WITH text-004.

ENDFORM.

form lock_record.

CHECK sy-tcode EQ '/PWS/ZYGLT355'.

CALL FUNCTION '/PWS/ZYGL_ENQUEUE_ZYGL355'

...

ENDIF.

endform.

form unlock_record.

CHECK sy-tcode EQ '/PWS/ZYGLT355'.

CALL FUNCTION '/PWS/ZYGL_DEQUEUE_ZYGL355'

EXPORTING

mandt = /pws/zyGLT355-mandt.

CLEAR v_reg_usado.

v_status = '1'.

endform.

* >> Início da inclusão:

form grava_request tables p_tab structure /pws/zyglt355.

data: v_task type trkorr,

v_order type trkorr.

call function '/PWS/ZYCB_GRAVA_CONT_TABELA_CR'

exporting

i_tablename = '/PWS/ZYGLT355'

importing

e_order = v_order

e_task = v_task

tables

t_data_table = p_tab

exceptions

no_data = 1

save_error = 2

no_cr_selected = 3

others = 4.

if sy-subrc <> 0.

clear okcode.

if sy-subrc ne '3'.

message w015 with text-016.

else.

message w015 with text-017.

endif.

else.

message w061 with text-018 v_order text-019.

endif.

endform.

form transp_all.

clear itab_zyglt355_gr.

refresh itab_zyglt355_gr.

loop at itab_zyglt355 where mark = 'X'.

move-corresponding itab_zyglt355 to itab_zyglt355_gr.

append itab_zyglt355_gr.

endloop.

if sy-subrc eq 0.

clear okcode.

perform grava_request tables itab_zyglt355_gr.

else.

clear okcode.

message e015 with text-020.

leave screen.

endif.

endform.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGLT355I01

...

PERFORM desmarca_linhas.

CLEAR okcode.

WHEN 'DROW'.

PERFORM deleta_linhas.

CLEAR okcode.

WHEN 'POSI'.

CALL SCREEN 0101 STARTING AT 3 3.

WHEN 'P-' OR 'P--' OR 'P+' OR 'P++'.

PERFORM rolagem.

CLEAR okcode.

* >> Início da inclusão: MODULE USER_COMMAND_0100

when 'TRANSP'.

perform transp_all.

* << Fim da inclusão

ENDCASE.

PERFORM unlock_record.

ENDMODULE.

MODULE move_dados INPUT.

MOVE: /pws/zygle355-land1 TO itab_zyglt355-land1 ,

/pws/zygle355-hbkid TO itab_zyglt355-hbkid ,

/pws/zygle355-versao TO itab_zyglt355-versao ,

/pws/zygle355-avisopg TO itab_zyglt355-avisopg,

/pws/zygle355-versaolote TO itab_zyglt355-versaolote .

IF itab_zyglt355-flag <> 'A'.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGLT355TOP

...

BEGIN OF itab_t012 OCCURS 0,

hbkid LIKE t012-hbkid,

bankl LIKE t012-bankl,

banks LIKE t012-banks,

END OF itab_t012,

BEGIN OF itab_bnka OCCURS 0,

bankl LIKE bnka-bankl,

banks LIKE bnka-banks,

banka LIKE bnka-banka,

END OF itab_bnka.

* >> Início da inclusão:

data: itab_zyglt355_gr like itab_zyglt355 occurs 0 with header line.

* << Fim da inclusão

DATA: wa_zyglt355 LIKE /pws/zyglt355."#EC NEEDED

CONTROLS:

tc_data TYPE TABLEVIEW USING SCREEN '0100'.

DATA:

okcode LIKE sy-ucomm,

nextline TYPE i ,

v_lines TYPE i ,

v_answer ,"#EC NEEDED

v_posi(50) ,

v_reg_usado,

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGLT357F01

...

DELETE FROM /pws/zyglt357

WHERE land1 = itab_zyglt357_dele-land1

AND hbkid = itab_zyglt357_dele-hbkid

AND bukrs = itab_zyglt357_dele-bukrs

AND frmpagto = itab_zyglt357_dele-frmpagto

AND codpagto = itab_zyglt357_dele-codpagto

AND gerar_boleto = itab_zyglt357_dele-gerar_boleto

AND instrucao = itab_zyglt357_dele-instrucao

AND camara = itab_zyglt357_dele-camara.

ENDLOOP.

* >> Início da inclusão: FORM SALVA_DADOS

move-corresponding itab_zyglt357_dele to itab_zyglt357_gr.

move sy-mandt to itab_zyglt357_gr-mandt.

append itab_zyglt357_gr.

perform grava_request tables itab_zyglt357_gr.

else.

clear itab_zyglt357_gr.

refresh itab_zyglt357_gr.

select * from /pws/zyglt357

into table itab_zyglt357_gr

where hbkid = /pws/zygle357-hbkid

and land1 = /pws/zygle357-land1

and bukrs = /pws/zygle357-bukrs.

loop at itab_zyglt357.

move sy-mandt to itab_zyglt357-mandt.

read table itab_zyglt357_gr

with key hbkid = itab_zyglt357-hbkid

land1 = itab_zyglt357-land1.

if itab_zyglt357-hbkid ne itab_zyglt357_gr-hbkid

or itab_zyglt357-land1 ne itab_zyglt357_gr-land1

or itab_zyglt357-bukrs ne itab_zyglt357_gr-bukrs

or itab_zyglt357-frmpagto ne itab_zyglt357_gr-frmpagto

or itab_zyglt357-codpagto ne itab_zyglt357_gr-codpagto

or itab_zyglt357-gerar_boleto ne itab_zyglt357_gr-gerar_boleto

or itab_zyglt357-instrucao ne itab_zyglt357_gr-instrucao

or itab_zyglt357-camara ne itab_zyglt357_gr-camara.

move-corresponding itab_zyglt357 to itab_zyglt357_gr.

append itab_zyglt357_gr.

else.

delete itab_zyglt357_gr index sy-tabix.

endif.

endloop.

if not itab_zyglt357_gr[] is initial.

perform grava_request tables itab_zyglt357_gr.

endif.

* << Fim da inclusão

ENDIF.

LOOP AT itab_zyglt357.

MOVE-CORRESPONDING itab_zyglt357 TO /pws/zyglt357.

MODIFY /pws/zyglt357 FROM TABLE itab_zyglt357.

ENDLOOP.

IF sy-subrc = 0.

MESSAGE s015 WITH text-004.

ENDIF.

CLEAR: itab_zyglt357_dele ,

itab_zyglt357_dele[].

...

ENDIF.

endform.

form unlock_record.

CHECK sy-tcode EQ '/PWS/ZYGLT357'.

CALL FUNCTION '/PWS/ZYGL_DEQUEUE_ZYGL357'

EXPORTING

bukrs = /pws/zyGLT357-bukrs.

CLEAR v_reg_usado.

v_status = '1'.

endform.

* >> Início da inclusão:

form grava_request tables p_tab structure /pws/zyglt357.

data: v_task type trkorr,

v_order type trkorr.

call function '/PWS/ZYCB_GRAVA_CONT_TABELA_CR'

exporting

i_tablename = '/PWS/ZYGLT357'

importing

e_order = v_order

e_task = v_task

tables

t_data_table = p_tab

exceptions

no_data = 1

save_error = 2

no_cr_selected = 3

others = 4.

if sy-subrc <> 0.

clear okcode.

if sy-subrc ne '3'.

message w015 with text-017.

else.

message w015 with text-018.

endif.

else.

message w061 with text-019 v_order text-020.

endif.

endform.

form transp_all.

clear itab_zyglt357_gr.

refresh itab_zyglt357_gr.

loop at itab_zyglt357 where mark = 'X'.

move-corresponding itab_zyglt357 to itab_zyglt357_gr.

append itab_zyglt357_gr.

endloop.

if sy-subrc eq 0.

clear okcode.

perform grava_request tables itab_zyglt357_gr.

else.

clear okcode.

message e015 with text-021.

leave screen.

endif.

endform.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGLT357I01

...

WHEN 'SAVE'.

IF v_status NE 0.

PERFORM salva_dados.

CLEAR okcode.

ENDIF.

WHEN 'POSI'.

CALL SCREEN 0101 STARTING AT 3 3.

WHEN 'P-' OR 'P--' OR 'P+' OR 'P++'.

PERFORM rolagem.

CLEAR okcode.

* >> Início da inclusão: MODULE USER_COMMAND_0100

when 'TRANSP'.

perform transp_all.

* << Fim da inclusão

ENDCASE.

ENDMODULE.

MODULE deleta_duplicados INPUT.

DATA: v_var1(10) TYPE c,

v_var2(10) TYPE c,

v_var3 TYPE i,

wa_temp LIKE itab_zyglt357.

CLEAR: v_var1,

v_var2,

v_var3.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGLT357TOP

...

t042z.

data: begin of itab_zyglt357 occurs 0.

include structure /pws/zyglt357.

data: mark,

flag,

end of itab_zyglt357.

data: begin of itab_zyglt357_dele occurs 0.

include structure /pws/zyglt357.

data: flag,

end of itab_zyglt357_dele.

* >> Início da inclusão:

data: itab_zyglt357_gr like itab_zyglt357 occurs 0 with header line.

* << Fim da inclusão

data: begin of itab_zyglt356 occurs 0.

include structure /pws/zyglt356.

data: end of itab_zyglt356.

data: begin of itab_t042z occurs 0,

land1 like t042z-land1,

zlsch like t042z-zlsch,

text1 like t042z-text1,

end of itab_t042z.

data:

wa_zyglt357 like /pws/zyglt357.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGLT362F01

...

WHERE linha = itab_zyglt362_dele-linha

AND texto = itab_zyglt362_dele-texto.

ENDLOOP.

ENDIF.

LOOP AT itab_zyglt362.

MOVE-CORRESPONDING itab_zyglt362 TO /pws/zyglt362.

MODIFY /pws/zyglt362 FROM TABLE itab_zyglt362.

ENDLOOP.

IF sy-subrc = 0.

MESSAGE s015 WITH text-004.

* >> Início da inclusão: FORM SAVE

PERFORM grava_request.

* << Fim da inclusão

ENDIF.

CLEAR: itab_zyglt362_dele ,

itab_zyglt362_dele[].

ENDFORM.

form lock_record.

CHECK sy-tcode EQ '/PWS/ZYGLT362'.

CALL FUNCTION '/PWS/ZYGL_ENQUEUE_ZYGL362'

EXPORTING

mandt = /pws/zyglt362-mandt

EXCEPTIONS

...

ENDIF.

endform.

form unlock_record.

CHECK sy-tcode EQ '/PWS/ZYGLT362'.

CALL FUNCTION '/PWS/ZYGL_DEQUEUE_ZYGL362'

EXPORTING

mandt = /pws/zyGLT362-mandt.

CLEAR v_reg_usado.

v_status = '1'.

endform.

* >> Início da inclusão:

FORM grava_request.

DATA: itab_zyglt362_cr TYPE TABLE OF /pws/zyglt362,

wa_zyglt362 TYPE /pws/zyglt362.

DATA: v_task TYPE trkorr,

v_order TYPE trkorr.

CONSTANTS: c_table TYPE dd03l-tabname VALUE '/PWS/ZYGLT362'.

IF okcode = 'SAVE'.

CLEAR okcode.

LOOP AT itab_zyglt362.

MOVE-CORRESPONDING itab_zyglt362 TO wa_zyglt362.

READ TABLE itab_zyglt362_save INTO wa_zyglt362_save

WITH KEY linha = wa_zyglt362-linha.

IF sy-subrc EQ 0 AND wa_zyglt362 NE wa_zyglt362_save.

APPEND wa_zyglt362 TO itab_zyglt362_cr.

ENDIF.

ENDLOOP.

LOOP AT itab_zyglt362_dele.

MOVE-CORRESPONDING itab_zyglt362_dele TO wa_zyglt362.

APPEND wa_zyglt362 TO itab_zyglt362_cr.

ENDLOOP.

ELSEIF okcode = 'TRANSP'.

CLEAR okcode.

LOOP AT itab_zyglt362 WHERE mark = 'X'.

MOVE-CORRESPONDING itab_zyglt362 TO wa_zyglt362.

APPEND wa_zyglt362 TO itab_zyglt362_cr.

ENDLOOP.

IF sy-subrc NE 0.

MESSAGE e015 WITH text-015.

ENDIF.

REFRESH itab_zyglt362_save.

itab_zyglt362_save[] = itab_zyglt362[].

IF NOT itab_zyglt362_cr[] IS INITIAL.

CALL FUNCTION '/PWS/ZYCB_GRAVA_CONT_TABELA_CR'

EXPORTING

i_tablename = c_table

i_task = v_task

i_order = v_order

IMPORTING

e_order = v_order

e_task = v_task

TABLES

t_data_table = itab_zyglt362_cr

EXCEPTIONS

no_data = 1

save_error = 2

no_cr_selected = 3

OTHERS = 4.

IF sy-subrc <> 0.

CLEAR okcode.

IF sy-subrc NE '3'.

MESSAGE e015 WITH text-012.

ELSE.

MESSAGE w015 WITH text-013.

ENDIF.

ELSEIF NOT v_order IS INITIAL.

MESSAGE s015 WITH text-014 v_order.

ENDIF.

ENDFORM.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGLT362I01

...

PERFORM deselect_all.

CLEAR okcode.

WHEN 'DROW'.

PERFORM delete_row.

CLEAR okcode.

WHEN 'SAVE'.

IF v_status NE 0.

PERFORM save.

CLEAR okcode.

ENDIF.

* >> Início da inclusão: MODULE USER_COMMAND_0100

when 'TRANSP'.

perform grava_request.

* << Fim da inclusão

ENDCASE.

ENDMODULE.

MODULE move_para_itab INPUT.

MOVE: /pws/zygle362-linha TO itab_zyglt362-linha,

/pws/zygle362-texto TO itab_zyglt362-texto.

IF itab_zyglt362-flag <> 'A'.

MOVE: 'N' TO itab_zyglt362-flag.

ENDIF.

MODIFY itab_zyglt362 INDEX tc_data-current_line.

IF sy-subrc <> 0.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGLT362O01

MODULE seleciona_dados OUTPUT.

IF itab_zyglt362 IS INITIAL AND

itab_zyglt362_dele[] IS INITIAL.

* >> Início da inclusão: MODULE SELECIONA_DADOS

refresh itab_zyglt362_save.

* << Fim da inclusão

SELECT * FROM /pws/zyglt362

INTO TABLE itab_zyglt362."#EC CI_NOWHERE

LOOP AT itab_zyglt362.

MOVE: 'A' TO itab_zyglt362-flag.

* >> Início da inclusão: MODULE SELECIONA_DADOS

move-corresponding itab_zyglt362 to wa_zyglt362_save.

append wa_zyglt362_save to itab_zyglt362_save.

clear wa_zyglt362_save.

* << Fim da inclusão

ENDLOOP.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGLT362TOP

...

/pws/zygle362.

DATA: BEGIN OF itab_zyglt362 OCCURS 0.

INCLUDE STRUCTURE /pws/zyglt362.

DATA: mark,

flag,

END OF itab_zyglt362.

DATA: BEGIN OF itab_zyglt362_dele OCCURS 0.

INCLUDE STRUCTURE /pws/zyglt362.

DATA: flag,

END OF itab_zyglt362_dele.

* >> Início da inclusão:

data: itab_zyglt362_save type table of /pws/zyglt362,

wa_zyglt362_save type /pws/zyglt362.

* << Fim da inclusão

CONTROLS:

tc_data TYPE TABLEVIEW USING SCREEN '0100'.

DATA:

okcode LIKE sy-ucomm,

v_screen TYPE i ,

v_reg_usado,

v_status.

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPT /PWS/SAPMZYCB032

------------------------------------------------------------------------

Modificado símbolo de texto:

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 013

Texto: (24 caracteres)

"Deseja gravar alterações"

Comprimento máximo: 24

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 014

Texto: (15 caracteres)

"em uma request?"

Comprimento máximo: 15

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 015

Texto: (18 caracteres)

"Geração de Request"

Comprimento máximo: 18

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 016

Texto: (27 caracteres)

"Erro na geração da request."

Comprimento máximo: 27

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 017

Texto: (27 caracteres)

"Nenhuma Request Selecionada"

Comprimento máximo: 27

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 018

Texto: (7 caracteres)

"Request"

Comprimento máximo: 20

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 019

Texto: (20 caracteres)

" gerada com sucesso."

Comprimento máximo: 20

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPT /PWS/SAPMZYCBT133

------------------------------------------------------------------------

Modificado símbolo de texto:

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 024

Texto: (27 caracteres)

"Erro na geração da request."

Comprimento máximo: 27

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 025

Texto: (27 caracteres)

"Nenhuma Request Selecionada"

Comprimento máximo: 27

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPT /PWS/SAPMZYGL007

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 099

Texto: (24 caracteres)

"Deseja gravar alterações"

Comprimento máximo: 24

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 100

Texto: (15 caracteres)

"em uma request?"

Comprimento máximo: 15

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 101

Texto: (18 caracteres)

"Geração de Request"

Comprimento máximo: 18

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 102

Texto: (27 caracteres)

"Erro na geração da request."

Comprimento máximo: 27

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 103

Texto: (7 caracteres)

"Request"

Comprimento máximo: 8

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 104

Texto: (20 caracteres)

" gerada com sucesso."

Comprimento máximo: 20

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 105

Texto: (24 caracteres)

"Preencher empresa modelo"

Comprimento máximo: 24

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 106

Texto: (13 caracteres)

"Nome da Firma"

Comprimento máximo: 13

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 107

Texto: (6 caracteres)

"Cidade"

Comprimento máximo: 6

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 108

Texto: (5 caracteres)

"Moeda"

Comprimento máximo: 5

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 109

Texto: (7 caracteres)

"Empresa"

Comprimento máximo: 8

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 110

Texto: (22 caracteres)

" ainda não cadastrada."

Comprimento máximo: 22

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 111

Texto: (15 caracteres)

" já cadastrada."

Comprimento máximo: 16

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 112

Texto: (33 caracteres)

"Criação com modeno não permitida."

Comprimento máximo: 33

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 113

Texto: (27 caracteres)

"Nenhuma Request Selecionada"

Comprimento máximo: 27

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPT /PWS/SAPMZYGL008

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 057

Texto: (27 caracteres)

"Erro na geração da request."

Comprimento máximo: 27

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 058

Texto: (27 caracteres)

"Nenhuma Request Selecionada"

Comprimento máximo: 27

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 059

Texto: (25 caracteres)

"Dados gravados na request"

Comprimento máximo: 25

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 060

Texto: (28 caracteres)

"Gravar alteração em request?"

Comprimento máximo: 28

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 061

Texto: (7 caracteres)

"Empresa"

Comprimento máximo: 7

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 062

Texto: (49 caracteres)

" já cadastrada. Criação com modelo não permitida."

Comprimento máximo: 49

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 063

Texto: (24 caracteres)

"Preencher empresa modelo"

Comprimento máximo: 24

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 064

Texto: (22 caracteres)

" ainda não cadastrada."

Comprimento máximo: 22

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 065

Texto: (32 caracteres)

"Gravar empresa nova em request ?"

Comprimento máximo: 32

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPT /PWS/SAPMZYGL009

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 061

Texto: (29 caracteres)

"Gravar alterações em request?"

Comprimento máximo: 29

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 062

Texto: (27 caracteres)

"Erro na geração da request."

Comprimento máximo: 27

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 063

Texto: (27 caracteres)

"Nenhuma Request Selecionada"

Comprimento máximo: 27

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 064

Texto: (25 caracteres)

"Dados gravados na request"

Comprimento máximo: 25

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPT /PWS/SAPMZYGL010

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 014

Texto: (24 caracteres)

"Deseja gravar alterações"

Comprimento máximo: 24

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 015

Texto: (15 caracteres)

"em uma request?"

Comprimento máximo: 15

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 016

Texto: (18 caracteres)

"Geração de Request"

Comprimento máximo: 18

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 017

Texto: (27 caracteres)

"Erro na geração da request."

Comprimento máximo: 27

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 018

Texto: (27 caracteres)

"Nenhuma Request Selecionada"

Comprimento máximo: 27

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 019

Texto: (7 caracteres)

"Request"

Comprimento máximo: 7

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 020

Texto: (20 caracteres)

" gerada com sucesso."

Comprimento máximo: 20

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 021

Texto: (32 caracteres)

"Favor selecionar algum registro."

Comprimento máximo: 32

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPT /PWS/SAPMZYGL011

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 051

Texto: (27 caracteres)

"Erro na geração da request."

Comprimento máximo: 27

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 052

Texto: (27 caracteres)

"Nenhuma Request Selecionada"

Comprimento máximo: 27

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 053

Texto: (25 caracteres)

"Dados gravados na request"

Comprimento máximo: 26

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 054

Texto: (28 caracteres)

"Gravar alteração em request?"

Comprimento máximo: 28

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 055

Texto: (24 caracteres)

"Preencher empresa modelo"

Comprimento máximo: 24

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 056

Texto: (7 caracteres)

"Empresa"

Comprimento máximo: 7

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 057

Texto: (22 caracteres)

" ainda não cadastrada."

Comprimento máximo: 22

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 058

Texto: (49 caracteres)

" já cadastrada. Criação com modelo não permitida."

Comprimento máximo: 49

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 059

Texto: (32 caracteres)

"Gravar empresa nova em request ?"

Comprimento máximo: 32

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPT /PWS/SAPMZYGL014

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 013

Texto: (24 caracteres)

"Deseja gravar alterações"

Comprimento máximo: 24

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 014

Texto: (15 caracteres)

"em uma request?"

Comprimento máximo: 15

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 015

Texto: (18 caracteres)

"Geração de Request"

Comprimento máximo: 18

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 016

Texto: (27 caracteres)

"Erro na geração da request."

Comprimento máximo: 27

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 017

Texto: (27 caracteres)

"Nenhuma Request Selecionada"

Comprimento máximo: 27

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 018

Texto: (7 caracteres)

"Request"

Comprimento máximo: 7

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 019

Texto: (20 caracteres)

" gerada com sucesso."

Comprimento máximo: 20

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 020

Texto: (32 caracteres)

"Favor selecionar algum registro."

Comprimento máximo: 32

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPT /PWS/SAPMZYGL344

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 006

Texto: (24 caracteres)

"Deseja gravar alterações"

Comprimento máximo: 24

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 007

Texto: (15 caracteres)

"em uma request?"

Comprimento máximo: 15

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 008

Texto: (18 caracteres)

"Geração de Request"

Comprimento máximo: 18

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 009

Texto: (27 caracteres)

"Erro na geração da request."

Comprimento máximo: 27

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 010

Texto: (27 caracteres)

"Nenhuma Request Selecionada"

Comprimento máximo: 27

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 011

Texto: (7 caracteres)

"Request"

Comprimento máximo: 7

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 012

Texto: (20 caracteres)

" gerada com sucesso."

Comprimento máximo: 20

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 013

Texto: (32 caracteres)

"Favor selecionar algum registro."

Comprimento máximo: 32

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPT /PWS/SAPMZYGLT217

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 020

Texto: (11 caracteres)

"Confirmação"

Comprimento máximo: 11

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 021

Texto: (28 caracteres)

"Gravar alteração em request?"

Comprimento máximo: 28

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 022

Texto: (3 caracteres)

"Sim"

Comprimento máximo: 3

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 023

Texto: (3 caracteres)

"Não"

Comprimento máximo: 3

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 024

Texto: (27 caracteres)

"Erro na geração da request."

Comprimento máximo: 27

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 025

Texto: (27 caracteres)

"Nenhuma Request Selecionada"

Comprimento máximo: 27

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 026

Texto: (25 caracteres)

"Dados gravados na request"

Comprimento máximo: 25

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 027

Texto: (35 caracteres)

"Selecionar Item(ns) para Transporte"

Comprimento máximo: 35

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPT /PWS/SAPMZYGLT355

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 013

Texto: (24 caracteres)

"Deseja gravar alterações"

Comprimento máximo: 24

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 014

Texto: (15 caracteres)

"em uma request?"

Comprimento máximo: 15

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 015

Texto: (18 caracteres)

"Geração de Request"

Comprimento máximo: 18

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 016

Texto: (27 caracteres)

"Erro na geração da request."

Comprimento máximo: 27

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 017

Texto: (27 caracteres)

"Nenhuma Request Selecionada"

Comprimento máximo: 27

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 018

Texto: (7 caracteres)

"Request"

Comprimento máximo: 7

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 019

Texto: (20 caracteres)

" gerada com sucesso."

Comprimento máximo: 20

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 020

Texto: (32 caracteres)

"Favor selecionar algum registro."

Comprimento máximo: 32

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPT /PWS/SAPMZYGLT357

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 014

Texto: (24 caracteres)

"Deseja gravar alterações"

Comprimento máximo: 24

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 015

Texto: (15 caracteres)

"em uma request?"

Comprimento máximo: 15

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 016

Texto: (18 caracteres)

"Geração de Request"

Comprimento máximo: 18

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 017

Texto: (27 caracteres)

"Erro na geração da request."

Comprimento máximo: 27

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 018

Texto: (27 caracteres)

"Nenhuma Request Selecionada"

Comprimento máximo: 27

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 019

Texto: (7 caracteres)

"Request"

Comprimento máximo: 7

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 020

Texto: (20 caracteres)

" gerada com sucesso."

Comprimento máximo: 20

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 021

Texto: (32 caracteres)

"Favor selecionar algum registro."

Comprimento máximo: 32

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPT /PWS/SAPMZYGLT362

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 008

Texto: (11 caracteres)

"Confirmação"

Comprimento máximo: 11

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 009

Texto: (28 caracteres)

"Gravar alteração em request?"

Comprimento máximo: 28

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 010

Texto: (3 caracteres)

"Sim"

Comprimento máximo: 3

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 011

Texto: (3 caracteres)

"Não"

Comprimento máximo: 3

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 012

Texto: (27 caracteres)

"Erro na geração da request."

Comprimento máximo: 27

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 013

Texto: (27 caracteres)

"Nenhuma Request Selecionada"

Comprimento máximo: 27

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 014

Texto: (25 caracteres)

"Dados gravados na request"

Comprimento máximo: 25

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 015

Texto: (35 caracteres)

"Selecionar Iten(s) para Transporte."

Comprimento máximo: 35

----------------------------------------------------------------------------------------------------

Modificações efetuadas em VIEW /PWS/ZYCBV296

CRIAR VISAO : /PWS/ZYCBV296

DESCRIÇÃO BREVE: CB - Visão para Empresas já criadas nos parâmetros gerais

TABELAS/CONDIÇÕES JOIN

TABELAS:

T001

/PWS/ZYCBT007

CONDIÇÕES JOIN:

TABELA NOME CPO = TABELA NOME CPO

T001 MANDT = /PWS/ZYCBT007 MANDT

T001 BUKRS = /PWS/ZYCBT007 BUKRS

CPOS. VISÃO

CAMPO VISÃO: NOME TAB: NOME CAMPO: MOD:

BUKRS T001 BUKRS ' '

BUTXT T001 BUTXT ' '

ORT01 T001 ORT01 ' '

WAERS T001 WAERS ' '

CONDIÇÕES DE SELEÇÃO

TABELA: NOME CPO.: OPERADOR: VL COMP: AND/OR

STATUS AT.

ACESSO:

(X) - SÓ LER

(_) - LER E MODIFICAR

----------------------------------------------------------------------------------------------------

Modificações efetuadas em SHLP /PWS/ZYCBA298

CRIAR AJUDA DE PESQUISA ELEMENTAR: /PWS/ZYCBA298

DESCRIÇÃO BREVE: CB - Empresas Cadastradas nos Parâmetrod Geais

DEFINIÇÃO

OBTENÇÃO DE DADOS

MÉTODO DE SELEÇÃO: /PWS/ZYCBV296

COMPORTAMENTO DE DIÁLOGO

TIPO DE DIÁLOGO: Exibição de Valores Imediata

HOT KEY: ' '

EXIT AJUD. PESQUISA: ' '

PARÂMETROS:

PARAM. IMP EXP POSL ISEL EXAJ ELEM. DADOS MOD VALOR PROPOSTO

BUKRS ' ' 'X' 1 1 ' ' BUKRS ' '

BUTXT ' ' ' ' 2 2 ' ' BUTXT ' '

ORT01 ' ' ' ' 3 3 ' ' ORT01 ' '

WAERS ' ' ' ' 4 4 ' ' WAERS ' '

----------------------------------------------------------------------------------------------------

Modificações efetuadas em TOBJ /PWS/ZYCBT165S

MODIFICAR VISÃO DA TABELA /PWS/ZYCBT165

INDICAÇÕES TÉCNICAS PARA DIÁLOGO

GRUPO DE AUTORIZAÇÃO: ZYCE

OBJETO AUTORIZAÇÃO: S_TABU_DIS

GRUPO DE FUNÇÕES: /PWS/ZYGLGF1

CL. DESENVOLVIMENTO: /PWS/ZYGL

TELAS DE ATUALIZAÇÃO

CTG. ATUALIZAÇÃO: (X) - NÍVEL ÚNICO

( ) - 2 NÍVEIS

Nº TELA AUTORIZAÇÃO: TELA SÍNTESE: 165

TELA INDIVIDUAL: ' '

INDICAÇÕES PARA TRASNPORTE DE DADOS DE DIÁLOGO

ROTINA DE REGISTRO: (X) - ROTINA REG. STANDARD

( ) - ROTINA REG. INDIVIDUAL

----------------------------------------------------------------------------------------------------

Modificações efetuadas em TOBJ /PWS/ZYCBT244S

CRIAR VISÃO DA TABELA /PWS/ZYCBT244

INDICAÇÕES TÉCNICAS PARA DIÁLOGO

GRUPO DE AUTORIZAÇÃO: ZYCE

OBJETO AUTORIZAÇÃO: S_TABU_DIS

GRUPO DE FUNÇÕES: /PWS/ZYGLGF1

CL. DESENVOLVIMENTO: /PWS/ZYGL

TELAS DE ATUALIZAÇÃO

CTG. ATUALIZAÇÃO: (X) - NÍVEL ÚNICO

( ) - 2 NÍVEIS

Nº TELA AUTORIZAÇÃO: TELA SÍNTESE: 244

TELA INDIVIDUAL: ' '

INDICAÇÕES PARA TRASNPORTE DE DADOS DE DIÁLOGO

ROTINA DE REGISTRO: (X) - ROTINA REG. STANDARD

( ) - ROTINA REG. INDIVIDUAL

----------------------------------------------------------------------------------------------------

Modificações efetuadas em TOBJ /PWS/ZYGLT025S

MODIFICAR VISÃO DA TABELA /PWS/ZYGLT025

INDICAÇÕES TÉCNICAS PARA DIÁLOGO

GRUPO DE AUTORIZAÇÃO: ZYCE

OBJETO AUTORIZAÇÃO: S_TABU_DIS

GRUPO DE FUNÇÕES: /PWS/ZYGLGF1

CL. DESENVOLVIMENTO: /PWS/ZYGL

TELAS DE ATUALIZAÇÃO

CTG. ATUALIZAÇÃO: (X) - NÍVEL ÚNICO

( ) - 2 NÍVEIS

Nº TELA AUTORIZAÇÃO: TELA SÍNTESE: 96

TELA INDIVIDUAL: ' '

INDICAÇÕES PARA TRASNPORTE DE DADOS DE DIÁLOGO

ROTINA DE REGISTRO: (X) - ROTINA REG. STANDARD

( ) - ROTINA REG. INDIVIDUAL

----------------------------------------------------------------------------------------------------

Modificações efetuadas em TOBJ /PWS/ZYGLT315S

CRIAR VISÃO DA TABELA /PWS/ZYGLT315

INDICAÇÕES TÉCNICAS PARA DIÁLOGO

GRUPO DE AUTORIZAÇÃO: ZYCE

OBJETO AUTORIZAÇÃO: S_TABU_DIS

GRUPO DE FUNÇÕES: /PWS/ZYGLGF1

CL. DESENVOLVIMENTO: /PWS/ZYGL

TELAS DE ATUALIZAÇÃO

CTG. ATUALIZAÇÃO: (X) - NÍVEL ÚNICO

( ) - 2 NÍVEIS

Nº TELA AUTORIZAÇÃO: TELA SÍNTESE: 315

TELA INDIVIDUAL: ' '

INDICAÇÕES PARA TRASNPORTE DE DADOS DE DIÁLOGO

ROTINA DE REGISTRO: (X) - ROTINA REG. STANDARD

( ) - ROTINA REG. INDIVIDUAL

----------------------------------------------------------------------------------------------------

Modificações efetuadas em TOBJ /PWS/ZYGLT351S

CRIAR VISÃO DA TABELA /PWS/ZYGLT351

INDICAÇÕES TÉCNICAS PARA DIÁLOGO

GRUPO DE AUTORIZAÇÃO: ZYCE

OBJETO AUTORIZAÇÃO: S_TABU_DIS

GRUPO DE FUNÇÕES: /PWS/ZYGLGF1

CL. DESENVOLVIMENTO: /PWS/ZYGL

TELAS DE ATUALIZAÇÃO

CTG. ATUALIZAÇÃO: (X) - NÍVEL ÚNICO

( ) - 2 NÍVEIS

Nº TELA AUTORIZAÇÃO: TELA SÍNTESE: 351

TELA INDIVIDUAL: ' '

INDICAÇÕES PARA TRASNPORTE DE DADOS DE DIÁLOGO

ROTINA DE REGISTRO: (X) - ROTINA REG. STANDARD

( ) - ROTINA REG. INDIVIDUAL

----------------------------------------------------------------------------------------------------

Modificações efetuadas em TOBJ /PWS/ZYGLT360S

CRIAR VISÃO DA TABELA /PWS/ZYGLT3601

INDICAÇÕES TÉCNICAS PARA DIÁLOGO

GRUPO DE AUTORIZAÇÃO: ZYCE

OBJETO AUTORIZAÇÃO: S_TABU_DIS

GRUPO DE FUNÇÕES: /PWS/ZYGLGF1

CL. DESENVOLVIMENTO: /PWS/ZYGL

TELAS DE ATUALIZAÇÃO

CTG. ATUALIZAÇÃO: (X) - NÍVEL ÚNICO

( ) - 2 NÍVEIS

Nº TELA AUTORIZAÇÃO: TELA SÍNTESE: 360

TELA INDIVIDUAL: ' '

INDICAÇÕES PARA TRASNPORTE DE DADOS DE DIÁLOGO

ROTINA DE REGISTRO: (X) - ROTINA REG. STANDARD

( ) - ROTINA REG. INDIVIDUAL

----------------------------------------------------------------------------------------------------

Modificações efetuadas em TRAN /PWS/ZYGLT315

CRIAR CÓDIGO DE TRANSAÇÃO: /PWS/ZYGLT315

ATRIBUTOS DA TRANSAÇÃO

TEXTO BREVE: GL - Determ. de Regras Customizadas

OBJETO DE EXECUÇÃO

(_) - PROGRAMA E TELA (TRANSAÇÃO DE DIÁLOGO)

(_) - PROGRAMA E TELA DE SELEÇÃO (TRANSAÇÃO DE REPORT)

(X) - TRANSAÇÃO COM PARÂMETROS(TRANSAÇÃO DE PARÂMETROS)

VALOR PROPOSTO PARA

(X) TRANSAÇÃO:

CÓDIGO TRANSAÇÃO: SM30

(X) OMITIR 1ª TELA

CLASSIFICAÇÃO

( ) HERDAR CARACTERÍSTICAS GUI

CLASSIFICAÇÃO DE TRANSAÇÃO:

(X) - TRANSAÇÃO PROFESSIONAL USER

( ) - TRANSAÇÃO EASY WEB SERVIÇO: ' '

CAPACIDADE GUI:

(X) SAP GUI PARA HTML

(X) SAP GUI PARA JAVA

(X) SAP GUI PARA WINDOWS

VALORES PROPOSTOS

NOME DO CAMPO DA TELA VALOR

VIEWNAME /pws/zyglt315

UPDATE X

CLASSE DE DESENVOLVIMENTO: /PWS/ZYGL

----------------------------------------------------------------------------------------------------

Modificações efetuadas em TRAN /PWS/ZYGLT351

CRIAR CÓDIGO DE TRANSAÇÃO: /PWS/ZYGLT351

ATRIBUTOS DA TRANSAÇÃO

TEXTO BREVE: GL - Param. Regras de Eventos Padrão

OBJETO DE EXECUÇÃO

(_) - PROGRAMA E TELA (TRANSAÇÃO DE DIÁLOGO)

(_) - PROGRAMA E TELA DE SELEÇÃO (TRANSAÇÃO DE REPORT)

(X) - TRANSAÇÃO COM PARÂMETROS(TRANSAÇÃO DE PARÂMETROS)

VALOR PROPOSTO PARA

(X) TRANSAÇÃO:

CÓDIGO TRANSAÇÃO: SM30

(X) OMITIR 1ª TELA

CLASSIFICAÇÃO

( ) HERDAR CARACTERÍSTICAS GUI

CLASSIFICAÇÃO DE TRANSAÇÃO:

(X) - TRANSAÇÃO PROFESSIONAL USER

( ) - TRANSAÇÃO EASY WEB SERVIÇO: ' '

CAPACIDADE GUI:

(X) SAP GUI PARA HTML

(X) SAP GUI PARA JAVA

(X) SAP GUI PARA WINDOWS

VALORES PROPOSTOS

NOME DO CAMPO DA TELA VALOR

VIEWNAME /pws/zyglt351

UPDATE X

CLASSE DE DESENVOLVIMENTO: /PWS/ZYGL

----------------------------------------------------------------------------------------------------

Modificações efetuadas em TRAN /PWS/ZYGLT360

CRIAR CÓDIGO DE TRANSAÇÃO: /PWS/ZYGLT360

ATRIBUTOS DA TRANSAÇÃO

TEXTO BREVE: GL - Param. Regras de Eventos Padrão

OBJETO DE EXECUÇÃO

(_) - PROGRAMA E TELA (TRANSAÇÃO DE DIÁLOGO)

(_) - PROGRAMA E TELA DE SELEÇÃO (TRANSAÇÃO DE REPORT)

(X) - TRANSAÇÃO COM PARÂMETROS(TRANSAÇÃO DE PARÂMETROS)

VALOR PROPOSTO PARA

(X) TRANSAÇÃO:

CÓDIGO TRANSAÇÃO: SM30

(X) OMITIR 1ª TELA

CLASSIFICAÇÃO

( ) HERDAR CARACTERÍSTICAS GUI

CLASSIFICAÇÃO DE TRANSAÇÃO:

(X) - TRANSAÇÃO PROFESSIONAL USER

( ) - TRANSAÇÃO EASY WEB SERVIÇO: ' '

CAPACIDADE GUI:

(X) SAP GUI PARA HTML

(X) SAP GUI PARA JAVA

(X) SAP GUI PARA WINDOWS

VALORES PROPOSTOS

NOME DO CAMPO DA TELA VALOR

VIEWNAME /pws/zyglt360

UPDATE X

CLASSE DE DESENVOLVIMENTO: /PWS/ZYGL

----------------------------------------------------------------------------------------------------

Modificações efetuadas em Menu

Na transação SE43, alterar o menu '/PWS/ZYCB' para inclusão das seguintes linhas:

Em Parâmetros --> Técnicos, logo abaixo da linha 'Campos para Contabilização - Evento Contábil',

incluir uma nova linha com as seguintes opções:

Entrada de Menu : Campos para Contabilização - Ajuda Pesquisa

Código da Transação: /PWS/ZYGLT360

Em Parâmetros --> Técnicos, logo abaixo da linha 'Tipos de Contabilização', incluir uma nova linha

com as seguintes opções:

Entrada de Menu : CB - Modalidade Associação de Despesa

Código da Transação: /PWS/ZYCBT244