CE PLUS - Nota 010706
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Remessa
Data/Hora da Publicação: 28/12/2011 10:37:29
Data/Hora Última Alteração: 28/12/2011 10:37:29
Descrição da Nota: NOVO TRATAMENTO NO PROGRAMA DE REMESSA FINANCEIRA, CÁLCULOS IMPOSTOS
Sintoma
Novo Tratamento no programa de Remessa finaceira, possibilitando diferentes cálculos para os mesmos
impostos, variando conforme a condição da operação, essa variação será identificada conforme os
impostos parametrizados na tabela /PWS/ZYCAT024.
Solução
Criada parametrização da fórmula na tabela /pws/zycat024 substituindo a tabela /pws/zycat026
permitindo assim ter fórmulas diferentes para cada tipo de Imposto. Alterado programa de Remessa
Financeira para acessar as fórmulas da /pws/zycat024. Criado novo Programa para permitir a
Parametrização.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10706 Data: 03/11/2010 Hora: 14:11:35
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10706
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00005
Agrupamento : 00046
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01231 - 00001 - 6.0 - 00023 - REMESSA - IMPOSTOS NOVOS
03948 - 00002 - 7.0 - 00002 - COMPLEMENTO DO BOLETO - REMESSA - CONDIÇÃO DE PAGAMENTO
04798 - 00003 - 7.0 - 00003 - REMESSA - DA BASE CÁLCULO IMPOSTOS
07725 - 00004 - 7.0 - 00007 - REMESSA - CÁLCULO IMPOSTOS NO PRIMEIRO ENTER - PERÍODO CONTÁBIL F
08323 - 00005 - 7.0 - 00009 - CRIA REMESSA, CÂMBIO FINANCEIRO, TIPO DE IMPOSTO ISS
10704 - 00006 - 8.0 - 00005 - FUNÇÃO QUE PERMITE GRAVAR OS PARÂMETROS DE CÂMBIO EM REQUEST
----------------------------------------------------------------------------------------------------
NOVO TRATAMENTO NO PROGRAMA DE REMESSA FINANCEIRA, CÁLCULOS IMPOSTOS
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOVO TRATAMENTO NO PROGRAMA DE REMESSA FINANCEIRA, CÁLCULOS IMPOSTOS
----------------------------------------------------------------------------------------------------
Objetos da nota:
DTED /PWS/ZYGLL1357
ENQU /PWS/EZYCAT024
FUNC /PWS/ZYCA_BASE_CALCULO_IMPOSTO
REPS /PWS/MZYCA024F01
REPS /PWS/MZYCA024I01
REPS /PWS/MZYCA024O01
REPS /PWS/MZYCA024TOP
REPS /PWS/MZYCA109F01
REPS /PWS/MZYCA109I01
REPS /PWS/MZYCA109X01
REPS /PWS/MZYCA110F01
REPS /PWS/MZYGL110F01
REPS /PWS/SAPMZYCA024
TABD /PWS/ZYCAT024
TABU TMENU01
TABU TMENU01R
TABU TMENU01T
TRAN /PWS/ZYCAT024
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTED /PWS/ZYGLL1357
******************************************
* NOVO ELEMENTO DE DADOS: /PWS/ZYGLL1357 *
******************************************
CRIAR NOVO ELEMENTO DE DADOS: /PWS/ZYGLL1357
DESCRIÇÃO BREVE: GL - Fórmula para Base de Cálculo de Imposto
CLASSE DESENVOLIMENTO.: /PWS/ZYGL
DEFINIÇÃO
CATEGORIA DE DADOS:
( ) - CATEGORIA ELEMENTAR
(X) - DOMÍNIO CHAR132
( ) - TIPO INSTALADO CTG. DADOS: CHAR
CUMPRIMEN. 132 DECIMAIS.0
( ) - TIPO DE REFERÊNCIA
REFERÊNCIA A:_____________________________________
CARACTERÍSTICAS:
ID PARÂMETRO: ____________________
NOME COMPENENTE DEFAULT: ________________________
( ) DOC. MODIFICAÇÃO
AJUDA PARA PESQUISA
NOME: __________________________
PARÂMETROS: __________________________
DENOM. DE CAMPO:
****************
BREVE : 07 Fórmula
MÉDIO : 20 Fórmula Base Cálculo
LONGA : 40 GL - Fórmula Base de Cálculo de Imposto
TÍTULO: 44 GL - Fórmula para Base de Cálculo de Imposto
----------------------------------------------------------------------------------------------------
******************************************************************************
* ATENCAO - RECOMENDADO ANTES DE CRIAR O PROGRAMA /PWS/SAPMZYCA024 , ALTERAR *
* *
* A ESTRUTURA DA TABELA /PWS/ZYCAT024 ( ESTÁ NO FINAL DESTA NOTA ). *
* *
******************************************************************************
----------------------------------------------------------------------------------------------------
Modificações efetuadas em ENQU /PWS/EZYCAT024
*******************************************************************
* CRIAR NOVO OBJETO DE BLOQUEIO: /PWS/EZYCAT024 - ATRAVES DA SE11 *
*******************************************************************
Objeto de bloqueio - /PWS/EZYCAT024
Descrição breve - CA - Objeto de Bloqueio tabela /PWS/ZYCAT024
Classe desenvolvimento - /PWS/ZYCA
TABELAS -> TABELA PRIMÁRIA
**************************
Nome - /PWS/ZYCAT024
Modo bloqueio - Bloqueio de escrita
PARAM BLOQUEIO
**************
Pond Parâmetro de bloqueio Tabela Nome campo
X MANDT /PWS/ZYCAT024 MANDT
X BUKRS /PWS/ZYCAT024 BUKRS
X TPIMP /PWS/ZYCAT024 TPIMP
X J_1BBRANCH /PWS/ZYCAT024 J_1BBRANCH
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCA_BASE_CALCULO_IMPOSTO
* A ABA IMPORTACAO, ALTERAR O PARAMETRO DE.:
*
* FORMULA TYPE /PWS/ZYCAT026-FORMULA
*
* PARA.:
*
* FORMULA TYPE /PWS/ZYCAT024-FORMULA
******************************************
* >> Início da exclusão: FUNC /PWS/ZYCA_BASE_CALCULO_IMPOSTO
*" REFERENCE(FORMULA) TYPE /PWS/ZYCAT026-FORMULA
* << Fim da exclusão
* >> Início da inclusão: FUNC /PWS/ZYCA_BASE_CALCULO_IMPOSTO
*" REFERENCE(FORMULA) TYPE /PWS/ZYCAT024-FORMULA
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCA024
********************************************************************
* *
* ATENÇÃO - PARA O PROGRAMA NOVO CRIADO /PWS/SAPMZYCA024 SOLICITAR *
* *
* O ARQUIVO DE DOWNLOAD DAS TELAS - 0001 / 0100 / 0200 *
* *
* ATENCAO - NO FINAL DA NOTA POSSUI AS INFORMACOES PARA CRIACAO DO *
* *
* STATUS GUI DAS TELAS 0001 / 0100 / 0200. *
* *
********************************************************************
*************************************
* PROGRAMA NOVO -> /PWS/SAPMZYCA024 *
*********************************** *
Título - Parâmetro Tipo de Imposto de Remessa
Categoria - Pool de módulo
Status - Programa de clientes produtivo
Aplicação - Contabilidade financeira
Grupo de autorização - ZYCE
Cl.desenvolvimento - /PWS/ZYCA - pw.CE - Câmbio Financeiro
* >> Início da inclusão:
INCLUDE /PWS/MZYCA024TOP.
INCLUDE /PWS/MZYCA024O01.
INCLUDE /PWS/MZYCA024I01.
INCLUDE /PWS/MZYCA024F01.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
***********************************************
* SIMBOLOS DE TEXTO PROGRAMA /PWS/SAPMZYCA024 *
***********************************************
001 CA - Tipo de Imposto de Remessas
002 Só exibição possível
003 Deseja exibir os dados bloqueados?
004 Entrada
005 de
006 Outra entrada
007 Detalhes Tipo de Imposto de Remessas
008 Selecionar primeiro item
009 Selecionar só um item
010 Os dados estão bloqueados.
011 Favor selecionar a primeira e
012 ultima linha do bloco !
013 Favor selecionar a ultima linha do bloco !
014 Favor selecionar linha.
015 Parâmetros de Tipo de Imposto de Remessas
016 Confirma a Eliminação dos Registros Selecionados?
017 Sim
018 Não
019 Chave de registro já encontrada.
020 Os dados estão bloqueados pelo usuário &.
021 Favor Informar a Empresa.
022 Favor Informar o GL - Tipo de Imposto.
023 Existem Registros Eliminados. Confirma a Efetivação da Exclusão?
024 Erro na geração da request.
025 Request
026 gerada com sucesso.
027 Preencher Local de Negócio Somente
028 para Impostos ISS.
029 Código de Fornecedor Inválido !
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA024F01
* >> Início da inclusão:
form trata_bloqueio.
if v_tcode ne 'E'.
call function 'ENQUEUE_/PWS/EZYCAT024'
exporting
mandt = sy-mandt
exceptions
foreign_lock = 1
system_failure = 2.
if sy-subrc <> 0.
text = text-020.
replace '&' with sy-msgv1(12) into text.
call function 'POPUP_TO_CONFIRM_WITH_MESSAGE'
exporting
titel = text-001
diagnosetext1 = text
diagnosetext2 = text-002
textline1 = text-003
defaultoption = 'Y'
importing
answer = v_answer.
if v_answer = 'J'.
v_tcode = 'E'.
else.
leave program.
endif.
else.
v_tcode = 'A'.
endif.
endif.
endform.
form marcar_todos.
loop at itab_zycat024.
itab_zycat024-mark = 'X'.
modify itab_zycat024.
endloop.
endform.
form desmarcar_todos.
loop at itab_zycat024.
itab_zycat024-mark = ' '.
modify itab_zycat024.
endloop.
endform.
form exibir.
perform verifica_bloqueio.
clear v_cont.
loop at itab_zycat024 where mark = 'X'.
v_cont = v_cont + 1.
endloop.
if sy-subrc ne 0.
message s013 with text-008.
exit.
else.
if v_cont > 1.
message s013 with text-009.
exit.
endif.
endif.
read table itab_zycat024 with key mark = 'X'.
move itab_zycat024 to /pws/zycat024.
move /pws/zycat024 to wa_zycat024_aux.
call screen '0200'.
leave screen.
endform.
form verifica_bloqueio.
call function 'ENQUEUE_/PWS/EZYCAT024'
exporting
mandt = sy-mandt
exceptions
foreign_lock = 1
system_failure = 2.
if sy-subrc <> 0.
v_tcode = 'E'.
else.
v_tcode = 'A'.
endif.
endform.
form limpa_dados.
clear /pws/zycat024.
clear v_copy.
endform.
form controla_navegacao.
case ok_code.
when 'NEXT'.
perform proximo_item.
when 'LAST'.
perform ultimo_item.
when 'PRIO'.
perform item_anterior.
when 'FIRS'.
perform primeiro_item.
endcase.
endform.
form proximo_item.
describe table itab_zycat024 lines v_line.
read table itab_zycat024
with key bukrs = /pws/zycat024-bukrs
tpimp = /pws/zycat024-tpimp
j_1bbranch = /pws/zycat024-j_1bbranch.
v_index = sy-tabix + 1.
if v_index <= v_line.
read table itab_zycat024 into /pws/zycat024 index v_index.
move /pws/zycat024 to wa_zycat024_aux.
endif.
endform.
form item_anterior.
describe table itab_zycat024 lines v_line.
read table itab_zycat024
with key bukrs = /pws/zycat024-bukrs
tpimp = /pws/zycat024-tpimp
j_1bbranch = /pws/zycat024-j_1bbranch.
v_index = sy-tabix - 1.
if v_index > 0.
read table itab_zycat024 into /pws/zycat024 index v_index.
move /pws/zycat024 to wa_zycat024_aux.
endif.
endform.
form ultimo_item.
describe table itab_zycat024 lines v_index.
read table itab_zycat024 into /pws/zycat024 index v_index.
move /pws/zycat024 to wa_zycat024_aux.
endform.
form primeiro_item.
v_index = 1.
read table itab_zycat024 into /pws/zycat024 index v_index.
move /pws/zycat024 to wa_zycat024_aux.
endform.
form insert_line.
if v_tcode ne 'E'.
tc_code-top_line = nextline.
clear /pws/zycat024.
v_copy = 'X'.
call screen 0200.
else.
perform verifica_bloqueio.
if v_tcode ne 'E'.
tc_code-top_line = nextline.
clear /pws/zycat024.
v_copy = 'X'.
call screen 0200.
else.
message i013 with text-010.
endif.
endif.
endform.
form marca_bloco.
if not itab_zycat024 is initial.
clear: v_marca,
v_marca_ult.
loop at itab_zycat024.
if itab_zycat024-mark = 'X'.
if v_marca is initial.
v_marca = sy-tabix.
else.
v_marca_ult = sy-tabix.
endif.
endif.
endloop.
if v_marca is initial and v_marca_ult is initial.
message w013 with text-011 text-012.
elseif v_marca_ult is initial.
message w013 with text-013.
else.
loop at itab_zycat024.
if v_marca = sy-tabix.
if v_marca <= v_marca_ult.
move 'X' to itab_zycat024-mark.
modify itab_zycat024 index v_marca.
v_marca = v_marca + 1.
endif.
endif.
endloop.
endif.
endif.
endform.
form trata_copy.
if v_tcode ne 'E'.
clear v_cont.
loop at itab_zycat024 where mark = 'X'.
v_cont = v_cont + 1.
endloop.
if sy-subrc ne 0.
message s013 with text-008.
exit.
else.
if v_cont > 1.
message s013 with text-009.
exit.
endif.
endif.
read table itab_zycat024 with key mark = 'X'.
move itab_zycat024 to /pws/zycat024.
v_copy = 'X'.
call screen '0200'.
else.
perform verifica_bloqueio.
if v_tcode ne 'E'.
clear v_cont.
loop at itab_zycat024 where mark = 'X'.
v_cont = v_cont + 1.
endloop.
if sy-subrc ne 0.
message s013 with text-008.
exit.
else.
if v_cont > 1.
message s013 with text-009.
exit.
endif.
endif.
read table itab_zycat024 with key mark = 'X'.
move itab_zycat024 to /pws/zycat024.
v_copy = 'X'.
call screen '0200'.
else.
message i013 with text-010.
endif.
endif.
endform.
form blaettern.
data: b_overlapping(1) type c value 'X'.
describe table itab_zycat024 lines v_line.
if v_line eq 0.
exit.
endif.
call function 'SCROLLING_IN_TABLE'
exporting
entry_to = v_line
loops = 18
ok_code = ok_code
entry_act = tc_code-current_line
last_page_full = ' '
overlapping = b_overlapping
importing
entry_new = nextline.
endform.
form trata_botao_dele.
loop at itab_zycat024 where mark = 'X'.
authority-check object 'F_BKPF_BUK' id 'BUKRS' field
itab_zycat024-bukrs
id 'ACTVT' field '03'.
if sy-subrc ne 0.
message e083(f5) with itab_zycat024-bukrs.
exit.
endif.
endloop.
if v_tcode ne 'E'.
clear v_cont.
loop at itab_zycat024 where mark = 'X'.
endloop.
if sy-subrc ne 0.
message i015 with text-014.
exit.
endif.
call function 'POPUP_TO_CONFIRM'
exporting
titlebar = text-015
text_question = text-016
text_button_1 = text-017
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-018
icon_button_2 = 'ICON_CANCEL'
default_button = '1'
display_cancel_button = ' '
importing
answer = v_answer.
if v_answer = '1'.
loop at itab_zycat024 where mark = 'X'.
v_tabix = sy-tabix.
v_cont = v_cont + 1.
move-corresponding itab_zycat024 to itab_zycat024_dele.
append itab_zycat024_dele.
delete itab_zycat024 index v_tabix.
endloop.
endif.
else.
perform verifica_bloqueio.
if v_tcode ne 'E'.
clear v_cont.
loop at itab_zycat024 where mark = 'X'.
endloop.
if sy-subrc ne 0.
message i015 with text-014.
exit.
endif.
call function 'POPUP_TO_CONFIRM'
exporting
titlebar = text-015
text_question = text-016
text_button_1 = text-017
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-018
icon_button_2 = 'ICON_CANCEL'
default_button = '1'
display_cancel_button = ' '
importing
answer = v_answer.
if v_answer = '1'.
loop at itab_zycat024 where mark = 'X'.
v_tabix = sy-tabix.
v_cont = v_cont + 1.
move-corresponding itab_zycat024 to itab_zycat024_dele.
append itab_zycat024_dele.
delete itab_zycat024 index v_tabix.
endloop.
endif.
else.
message i013 with text-010.
endif.
endif.
endform.
form salvar_dados.
data: v_gera_req(1) type c.
if v_copy ne 'X'.
if /pws/zycat024 = wa_zycat024_aux.
exit.
endif.
endif.
v_gera_req = 'N'.
clear itab_zycat024_transp.
refresh itab_zycat024_transp.
call function 'GUI_GET_DESKTOP_INFO'
exporting
type = 5
changing
return = v_name.
if /pws/zycat024-bukrs is initial.
message i013 with text-021.
exit.
endif.
if /pws/zycat024-tpimp is initial.
message i013 with text-022.
exit.
endif.
if /pws/zycat024-tpimp(3) ne 'ISS' and
not /pws/zycat024-j_1bbranch is initial.
message i015 with text-027 text-028.
/pws/zycat024-j_1bbranch = ''.
exit.
endif.
if v_copy ne 'X'.
read table itab_zycat024
with key bukrs = /pws/zycat024-bukrs
tpimp = /pws/zycat024-tpimp
j_1bbranch = /pws/zycat024-j_1bbranch.
v_tabix = sy-tabix.
move: v_name to /pws/zycat024-user_save,
sy-uname to /pws/zycat024-usernamec,
sy-datum to /pws/zycat024-dtuserc,
sy-uzeit to /pws/zycat024-hruserc.
move-corresponding /pws/zycat024 to itab_zycat024.
modify itab_zycat024 index v_tabix.
modify /pws/zycat024 from table itab_zycat024.
commit work and wait.
message i017(/pws/zycim)."#EC *
move-corresponding /pws/zycat024 to itab_zycat024_transp.
append itab_zycat024_transp.
v_gera_req = 'S'.
move /pws/zycat024 to wa_zycat024_aux.
else.
authority-check object 'F_BKPF_BUK' id 'BUKRS' field
/pws/zycat024-bukrs
id 'ACTVT' field '01'.
if sy-subrc ne 0.
message e083(f5) with /pws/zycat024-bukrs.
endif.
read table itab_zycat024 with key
bukrs = /pws/zycat024-bukrs
tpimp = /pws/zycat024-tpimp
j_1bbranch = /pws/zycat024-j_1bbranch.
if sy-subrc ne 0.
move: v_name to /pws/zycat024-user_save,
sy-uname to /pws/zycat024-usernamec,
sy-datum to /pws/zycat024-dtuserc,
sy-uzeit to /pws/zycat024-hruserc,
sy-mandt to /pws/zycat024-mandt.
move-corresponding /pws/zycat024 to itab_zycat024.
append itab_zycat024.
modify /pws/zycat024 from table itab_zycat024.
commit work and wait.
message i017(/pws/zycim)."#EC *
move-corresponding /pws/zycat024 to itab_zycat024_transp.
append itab_zycat024_transp.
v_gera_req = 'S'.
move /pws/zycat024 to wa_zycat024_aux.
else.
message i013 with text-019.
endif.
endif.
if v_gera_req = 'S'.
call function '/PWS/ZYCB_GRAVA_CONT_TABELA_CR'
exporting
i_tablename = '/PWS/ZYCAT024'
importing
e_order = v_order
e_task = v_task
tables
t_data_table = itab_zycat024_transp
exceptions
no_data = 1
save_error = 2
others = 3.
if sy-subrc <> 0.
clear ok_code.
message e015 with text-024.
endif.
message i061 with text-025 v_order text-026.
endif.
endform.
form carga_dados.
data v_pos(1) type n.
select * from /pws/zycat026
into table itab_zycat026.
if itab_zycat026[] is initial.
exit.
endif.
select * from /pws/zycat024
into table itab_zycat024_aux.
loop at itab_zycat026.
v_pos = strlen( itab_zycat026-tpimp ).
loop at itab_zycat024_aux.
if itab_zycat024_aux-tpimp(v_pos) = itab_zycat026-tpimp.
if not itab_zycat026-formula is initial.
itab_zycat024_aux-formula = itab_zycat026-formula.
modify itab_zycat024_aux.
endif.
endif.
endloop.
endloop.
modify /pws/zycat024 from table itab_zycat024_aux.
delete /pws/zycat026 from table itab_zycat026.
commit work and wait.
endform.
form exibir_clique.
data: linha type i,
valor(40),
campo(40).
perform verifica_bloqueio.
get cursor field campo value valor.
get cursor line linha.
linha = tc_code-top_line + linha - 1.
perform desmarcar_todos.
loop at itab_zycat024.
if linha = sy-tabix.
move 'X' to itab_zycat024-mark.
modify itab_zycat024 index sy-tabix.
endif.
endloop.
read table itab_zycat024 with key mark = 'X'.
move itab_zycat024 to /pws/zycat024.
move /pws/zycat024 to wa_zycat024_aux.
call screen '0200'.
leave screen.
endform.
form salvar_exclusao.
clear itab_zycat024_transp.
refresh itab_zycat024_transp.
if itab_zycat024_dele[] is initial.
exit.
endif.
itab_zycat024_transp[] = itab_zycat024_dele[].
call function 'POPUP_TO_CONFIRM'
exporting
titlebar = text-015
text_question = text-023
text_button_1 = text-017
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-018
icon_button_2 = 'ICON_CANCEL'
default_button = '1'
display_cancel_button = ' '
importing
answer = v_answer.
if v_answer = '1'.
loop at itab_zycat024_dele.
delete from /pws/zycat024
where bukrs = itab_zycat024_dele-bukrs
and tpimp = itab_zycat024_dele-tpimp
and j_1bbranch = itab_zycat024_dele-j_1bbranch.
endloop.
commit work and wait.
else.
loop at itab_zycat024_dele.
move-corresponding itab_zycat024_dele to itab_zycat024.
append itab_zycat024.
endloop.
endif.
clear itab_zycat024_dele.
refresh itab_zycat024_dele.
if v_answer = '1'.
call function '/PWS/ZYCB_GRAVA_CONT_TABELA_CR'
exporting
i_tablename = '/PWS/ZYCAT024'
importing
e_order = v_order
e_task = v_task
tables
t_data_table = itab_zycat024_transp
exceptions
no_data = 1
save_error = 2
others = 3.
if sy-subrc <> 0.
clear ok_code.
message e015 with text-024.
endif.
message i061 with text-025 v_order text-026.
endif.
endform.
form criar_request.
clear itab_zycat024_transp.
refresh itab_zycat024_transp.
loop at itab_zycat024 where mark = 'X'.
move-corresponding itab_zycat024 to itab_zycat024_transp.
append itab_zycat024_transp.
endloop.
if itab_zycat024_transp[] is initial.
message i015 with text-014.
exit.
endif.
call function '/PWS/ZYCB_GRAVA_CONT_TABELA_CR'
exporting
i_tablename = '/PWS/ZYCAT024'
importing
e_order = v_order
e_task = v_task
tables
t_data_table = itab_zycat024_transp
exceptions
no_data = 1
save_error = 2
others = 3.
if sy-subrc <> 0.
clear ok_code.
message e015 with text-024.
endif.
message i061 with text-025 v_order text-026.
perform desmarcar_todos.
endform.
form busca_fornecedor.
data: v_lifnr like lfa1-lifnr.
clear: v_lifnr,
v_nome.
if /pws/zycat024-fornecedor is initial.
exit.
endif.
call function 'CONVERSION_EXIT_ALPHA_INPUT'
exporting
input = /pws/zycat024-fornecedor
importing
output = v_lifnr
exceptions
others = 0.
select single lifnr name1
into (lfa1-lifnr, lfa1-name1)
from lfa1
where lifnr eq v_lifnr.
if sy-subrc ne 0.
message i015 with text-029.
clear /pws/zycat024-fornecedor.
else.
v_nome = lfa1-name1.
endif.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA024I01
* >> Início da inclusão:
module trata_dados input.
move: mark to itab_zycat024-mark.
move-corresponding /pws/zycat024 to itab_zycat024.
modify itab_zycat024 index tc_code-current_line.
endmodule.
module user_command_0100 input.
case ok_code.
when 'POSI'.
call screen 0001 starting at 3 3.
when 'MKAL'.
perform marcar_todos.
when 'MKLO'.
perform desmarcar_todos.
when 'MKBL'.
perform marca_bloco.
when 'DELE'.
perform trata_botao_dele.
when 'KOPE'.
perform trata_copy.
when 'NEWL'.
perform insert_line.
when 'EXIB'.
perform exibir.
when 'BACK'.
leave to screen 0.
when 'P-'.
perform blaettern.
tc_code-top_line = nextline.
when 'P--'.
perform blaettern.
tc_code-top_line = nextline.
when 'P+'.
perform blaettern.
tc_code-top_line = nextline.
when 'P++'.
perform blaettern.
tc_code-top_line = nextline.
when 'PICK'.
perform exibir_clique.
when 'SAVE'.
perform salvar_exclusao.
when 'RELE'.
perform criar_request.
endcase.
endmodule.
module user_exit input.
leave program.
endmodule.
module user_command_0001 input.
case ok_code.
when 'ENTE'.
if not /pws/zycat024-bukrs is initial and
not /pws/zycat024-tpimp is initial.
read table itab_zycat024 into wa_zycat024 with key
bukrs = /pws/zycat024-bukrs
tpimp = /pws/zycat024-tpimp
j_1bbranch = /pws/zycat024-j_1bbranch.
if sy-subrc = 0.
tc_code-top_line = sy-tabix.
nextline = sy-tabix.
endif.
leave to screen 0.
endif.
when 'BACK'.
leave to screen 0.
endcase.
clear ok_code.
endmodule.
module user_command_0200 input.
case ok_code.
when 'SAVE'.
perform salvar_dados.
perform salvar_exclusao.
when 'BACK'.
perform limpa_dados.
v_first = 'X'.
leave to screen 0.
when 'FIRS' or 'PRIO' or 'NEXT' or 'LAST'.
perform controla_navegacao.
endcase.
clear ok_code.
endmodule.
module busca_fornecedor input.
perform busca_fornecedor.
endmodule.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA024O01
* >> Início da inclusão:
module status_0100 output.
set pf-status '0100'.
set titlebar '0100' with text-001.
endmodule.
module load_data output.
perform carga_dados.
if itab_zycat024[] is initial.
select * from /pws/zycat024
into table itab_zycat024.
perform trata_bloqueio.
endif.
endmodule.
module atualiza_posicao output.
data: currentline(5),
totalline(5).
describe table itab_zycat024 lines v_line.
if itab_zycat024[] is initial.
clear: v_line,
nextline.
else.
if nextline = 0.
nextline = 1.
endif.
endif.
read table itab_zycat024 into wa_zycat024 index nextline.
if sy-subrc ne 0.
nextline = v_line.
endif.
move: nextline to currentline,
v_line to totalline .
concatenate text-004 currentline text-005 totalline
into v_posi separated by space.
endmodule.
module trata_tela output.
describe table itab_zycat024 lines v_line.
move-corresponding itab_zycat024 to /pws/zycat024.
move itab_zycat024-mark to mark.
tc_code-lines = v_line.
clear ok_code.
endmodule.
module status_0001 output.
set pf-status '0001'.
set titlebar '0001' with text-006.
endmodule.
module status_0200 output.
set titlebar '0200' with text-007.
clear itab_pf_status.
refresh itab_pf_status.
if v_tcode = 'E'.
itab_pf_status-fcode = 'SAVE'.
append itab_pf_status.
endif.
set pf-status '0200' excluding itab_pf_status.
endmodule.
module trata_screen output.
loop at screen.
if v_tcode = 'E'.
screen-input = '0'.
modify screen.
else.
screen-input = '1'.
modify screen.
case screen-name.
when '/PWS/ZYCAT024-BUKRS' or
'/PWS/ZYCAT024-TPIMP' or
'/PWS/ZYCAT024-J_1BBRANCH'.
if v_copy <> 'X'.
screen-input = '0'.
modify screen.
endif.
endcase.
endif.
endloop.
endmodule.
module verifica_acesso output.
authority-check object 'F_BKPF_BUK' id 'BUKRS' field
/pws/zycat024-bukrs
id 'ACTVT' field '02'.
if sy-subrc ne 0.
loop at screen.
screen-input = '0'.
modify screen.
endloop.
else.
loop at screen.
if v_tcode = 'E'.
screen-input = '0'.
modify screen.
else.
screen-input = '1'.
modify screen.
case screen-name.
when '/PWS/ZYCAT024-BUKRS' or
'/PWS/ZYCAT024-TPIMP' or
'/PWS/ZYCAT024-J_1BBRANCH'.
if v_copy <> 'X'.
screen-input = '0'.
modify screen.
endif.
endcase.
endif.
endloop.
endif.
endmodule.
module limpar_mark output.
perform desmarcar_todos.
endmodule.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA024TOP
* >> Início da inclusão:
program /pws/sapmzyca024 message-id /pws/zycim.
tables: /pws/zycat024,
lfa1.
controls: tc_code type tableview using screen 0100.
data: begin of itab_zycat024 occurs 0.
include structure /pws/zycat024.
data: mark type c.
data: end of itab_zycat024.
data: begin of itab_zycat024_aux occurs 0.
include structure /pws/zycat024.
data: end of itab_zycat024_aux.
data: begin of itab_zycat024_dele occurs 0.
include structure /pws/zycat024.
data: end of itab_zycat024_dele.
data: begin of itab_zycat024_transp occurs 0.
include structure /pws/zycat024.
data: end of itab_zycat024_transp.
data: begin of itab_zycat026 occurs 0.
include structure /pws/zycat026.
data: end of itab_zycat026.
data: begin of itab_pf_status occurs 10,
fcode(4) type c,
end of itab_pf_status.
data: wa_zycat024 like itab_zycat024,
wa_zycat024_aux like /pws/zycat024.
data: ok_code like sy-ucomm ,
v_tabix like sy-tabix ,
v_tcode ,
v_answer ,
text(100) ,
mark ,
nextline type i ,
v_line type i ,
v_posi(40) ,
v_name(100) type c ,
v_index like sy-tabix ,
v_cont type n ,
v_copy type c ,
v_cols type cxtab_column ,
v_first type c value 'X' ,
v_marca like sy-tabix ,
v_marca_ult like sy-tabix ,
v_task type trkorr ,
v_order type trkorr ,
v_nome like lfa1-name1 .
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
********************************************
Modificações efetuadas em TRAN /PWS/ZYCAT024
********************************************
CRIAR CÓDIGO DE TRANSAÇÃO: /PWS/ZYCAT024
CLASSE DESENVOLVIMENTO.: /PWS/ZYCA
OBJETO DE EXECUÇÃO
( ) - PROGRAMA E TELA (TRANSAÇÃO DE DIÁLOGO)
( ) - PROGRAMA E TELA DE SELEÇÃO (TRANSAÇÃO DE REPORT)
TEXTO DA TRANSAÇÃO: - Tipo Imposto Remessas
PROGRAMA: - /PWS/SAPMZYCA024
TELA(SELEÇÃO): - 100
OBJETO DE AUTORIZAÇÃO: -
(X) - ATUALIZAÇÃO DA VARIANTE DA TRANSAÇÃO STANDARD PERMITIDA
CLASSIFICAÇÃO
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
** CASO JA EXISTA UMA TRANSACAO COM ESTE NOME, EXCLUIR ATRAVES DA SE93
** E RECRIAR COM AS CARACTERISTICAS ACIMA.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109F01
...
v_koart_bi = 'C'.
v_shkzg_bi = 'D'.
endif.
endif.
perform verify_null_field using /pws/zycbe124-recrem
'D_NEWKO'
text-120.
itab_zycbe033-d_newko = /pws/zycbe124-recrem.
itab_zycbe033-d_gsber = /pws/zycbe124-gsber.
itab_zycbe033-c_gsber = /pws/zycbe124-gsber.
* >> Início da exclusão: FORM EFETUA_LANCAMENTO_RECEBIMENTO
itab_zycbe033-zterm = /pws/zycbt007-condpgvista.
* << Fim da exclusão
itab_zycbe033-vbund = /pws/zycbe124-vbund.
append itab_zycbe033.
perform preenche_partida_multipla_rec.
loop at itab_zycbt034.
perform message_store using
'/PWS/ZYCBM'
'E'
itab_zycbt034-descricao
space
space
...
...
perform verify_null_field using /pws/zycbe124-bukrs
'BUKRS'
text-092.
itab_zycbe033-bukrs = /pws/zycbe124-bukrs.
itab_zycbe033-d_gsber = /pws/zycbe124-gsber.
itab_zycbe033-c_gsber = /pws/zycbe124-gsber.
perform verify_null_field using /pws/zycbe124-waers
'WAERS'
text-091.
itab_zycbe033-waers = /pws/zycbe124-waers.
* >> Início da exclusão: FORM DESMEMBRA_DOCTO_PROVISAO_PRIN
itab_zycbe033-zterm = /pws/zycbt007-condpgvista.
* << Fim da exclusão
itab_zycbe033-wrbtr = /pws/zycbe124-vlme.
perform verify_null_field using wa_zycbt011-blart
'BLART'
text-090.
itab_zycbe033-blart = wa_zycbt011-blart.
loop at itab_zyglt321.
case itab_zyglt321-cpor3.
when 'SGTXT'.
if itab_zyglt321-cpocb = 'NRFAT'.
itab_zycbe033-c_sgtxt = /pws/zycbe124-nrfat.
...
...
endif.
itab_zycbe033-kursf = /pws/zycbe124-kursf.
itab_zycbe033-bktxt = /pws/zycbt007-bktxt.
if /pws/zycbt007-fdtdoc = 'D'.
itab_zycbe033-bldat = sy-datum.
else.
itab_zycbe033-bldat = itab_zycbe033-budat.
endif.
itab_zycbe033-d_gsber = /pws/zycbe124-gsber.
itab_zycbe033-c_gsber = /pws/zycbe124-gsber.
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR
itab_zycbe033-zterm = /pws/zycbt007-condpgvista.
* << Fim da exclusão
perform verify_null_field using wa_zycbt011-blart
'BLART'
text-090.
itab_zycbe033-blart = wa_zycbt011-blart.
perform verifica_pais_filial using /pws/zycbe124-bukrs
/pws/zycbe124-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe124-j_1bbranch.
loop at itab_zyglt321.
case itab_zyglt321-cpor3.
when 'SGTXT'.
...
...
select_value = /pws/zycbe141-tpimp
tables
valuetab = itab_valores
fields = itab_campos. "#EC *
endform.
form carrega_par_impostos.
if itab_zycat024[] is initial.
select * from /pws/zycat024 into table itab_zycat024
where bukrs = /pws/zycbe124-bukrs.
endif.
* >> Início da exclusão: FORM CARREGA_PAR_IMPOSTOS
if itab_zycat026[] is initial.
select * from /pws/zycat026 into table itab_zycat026."#EC CI_NOWHERE
endif.
* << Fim da exclusão
endform.
form salva_dados_imposto.
perform atualiza_tab_aux.
if erro_bi_irrf is initial.
delete from /pws/zycat025 where nrseq = /pws/zycbe124-nrseq
and tpimp like 'IRRF%'. "#EC CI_NOFIRST
loop at itab_zycat025 where tpimp(4) = 'IRRF'.
insert into /pws/zycat025 values itab_zycat025.
endloop.
endif.
...
...
if p_tpimp = 'PRINCIPAL'.
itab_zycbe033-budat = /pws/zycbe124-dtdocto.
else.
itab_zycbe033-budat = itab_zycat025-dtlanc.
endif.
if /pws/zycbt007-fdtdoc = 'D'.
itab_zycbe033-bldat = sy-datum.
else.
itab_zycbe033-bldat = itab_zycbe033-budat.
endif.
* >> Início da exclusão: FORM PREENCHE_GERA_CONTABEIS
itab_zycbe033-zterm = /pws/zycbt007-condpgvista.
* << Fim da exclusão
perform verifica_taxa.
perform verify_null_field using wa_zycbt011-blart
'BLART'
text-090.
itab_zycbe033-blart = wa_zycbt011-blart.
perform verify_null_field using /pws/zycbe124-bukrs
'BUKRS'
text-092.
itab_zycbe033-bukrs = /pws/zycbe124-bukrs.
perform verify_null_field using /pws/zycbe124-waers
...
...
if p_tpimp = 'PRINCIPAL'.
itab_zycbe033-budat = /pws/zycbe124-dtdocto.
else.
itab_zycbe033-budat = itab_zycat025-dtlanc.
endif.
if /pws/zycbt007-fdtdoc = 'D'.
itab_zycbe033-bldat = sy-datum.
else.
itab_zycbe033-bldat = itab_zycbe033-budat.
endif.
* >> Início da exclusão: FORM CONTABILIZA_F43
itab_zycbe033-zterm = /pws/zycbt007-condpgvista.
* << Fim da exclusão
perform verifica_taxa.
perform verify_null_field using wa_zycbt011-blart
'BLART'
text-090.
itab_zycbe033-blart = wa_zycbt011-blart.
perform verify_null_field using /pws/zycbe124-bukrs
'BUKRS'
text-092.
itab_zycbe033-bukrs = /pws/zycbe124-bukrs.
perform verify_null_field using /pws/zycbe124-waers
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109I01
...
v_dtvencto_ant = /pws/zycbe124-dtvencto.
IF /pws/zycae025-tpimp(4) = 'IRRF'.
IF itab_zycat024-altera_base IS INITIAL AND
NOT /pws/zycae025-basecalc IS INITIAL AND
NOT v_basecalc_irrf IS INITIAL AND
/pws/zycae025-basecalc NE v_basecalc_irrf.
/pws/zycae025-basecalc = v_basecalc_irrf.
MESSAGE i061 WITH /pws/zycae025-tpimp text-173 text-174.
ELSEIF itab_zycat024-altera_base IS INITIAL OR
/pws/zycae025-basecalc IS INITIAL.
* >> Início da exclusão: MODULE CONSISTE_VALORES
READ TABLE itab_zycat026 WITH KEY tpimp = /pws/zycae025-tpimp(4).
IF sy-subrc = 0 AND NOT itab_zycat026-formula IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES
if not itab_zycat024-formula is initial.
* << Fim da inclusão
PERFORM calcula_base_calculo USING /pws/zycbe124-vlme
/pws/zycae025-tpimp
* >> Início da exclusão: MODULE CONSISTE_VALORES
itab_zycat026-formula
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES
itab_zycat024-formula
* << Fim da inclusão
CHANGING /pws/zycae025-basecalc.
ELSE.
...
...
MESSAGE i061 WITH /pws/zycae025-tpimp text-173 text-174.
ELSEIF itab_zycat024-altera_base IS INITIAL OR
/pws/zycae025-basecalc IS INITIAL.
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'.
IF sy-subrc = 0 AND itab_zycat025-dedfat = 'X' AND
/pws/zycbe124-vlme => itab_zycat025-vlimpme.
v_valorme = /pws/zycbe124-vlme - itab_zycat025-vlimpme.
ELSE.
v_valorme = /pws/zycbe124-vlme.
ENDIF.
* >> Início da exclusão: MODULE CONSISTE_VALORES
READ TABLE itab_zycat026 WITH KEY tpimp = /pws/zycae025-tpimp(4).
IF sy-subrc = 0 AND NOT itab_zycat026-formula IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES
if not itab_zycat024-formula is initial.
* << Fim da inclusão
PERFORM calcula_base_calculo USING v_valorme
/pws/zycae025-tpimp
* >> Início da exclusão: MODULE CONSISTE_VALORES
itab_zycat026-formula
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES
itab_zycat024-formula
* << Fim da inclusão
CHANGING /pws/zycae025-basecalc.
ELSE.
...
...
CLEAR /pws/zycae025-reducao.
ENDIF.
IF itab_zycat024-altera_base IS INITIAL AND
NOT /pws/zycae025-basecalc IS INITIAL AND
NOT v_basecalc_iof IS INITIAL AND
/pws/zycae025-basecalc NE v_basecalc_iof.
/pws/zycae025-basecalc = v_basecalc_iof.
MESSAGE i061 WITH /pws/zycae025-tpimp text-173 text-174.
ELSEIF itab_zycat024-altera_base IS INITIAL OR
/pws/zycae025-basecalc IS INITIAL.
* >> Início da exclusão: MODULE CONSISTE_VALORES
READ TABLE itab_zycat026 WITH KEY tpimp = /pws/zycae025-tpimp(3).
IF sy-subrc = 0 AND NOT itab_zycat026-formula IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES
if not itab_zycat024-formula is initial.
* << Fim da inclusão
PERFORM calcula_base_calculo USING /pws/zycbe124-vlme
/pws/zycae025-tpimp
* >> Início da exclusão: MODULE CONSISTE_VALORES
itab_zycat026-formula
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES
itab_zycat024-formula
* << Fim da inclusão
CHANGING /pws/zycae025-basecalc.
ELSE.
...
...
( /pws/zycae025-advalorem / 100 ).
ELSEIF /pws/zycae025-tpimp(3) = 'ISS'.
IF itab_zycat024-altera_base IS INITIAL AND
NOT /pws/zycae025-basecalc IS INITIAL AND
NOT v_basecalc_iss IS INITIAL AND
/pws/zycae025-basecalc NE v_basecalc_iss.
/pws/zycae025-basecalc = v_basecalc_iss.
MESSAGE i061 WITH /pws/zycae025-tpimp text-173 text-174.
ELSEIF itab_zycat024-altera_base IS INITIAL OR
/pws/zycae025-basecalc IS INITIAL.
* >> Início da exclusão: MODULE CONSISTE_VALORES
READ TABLE itab_zycat026 WITH KEY tpimp = /pws/zycae025-tpimp(3).
IF sy-subrc = 0 AND NOT itab_zycat026-formula IS INITIAL.
PERFORM calcula_base_calculo USING /pws/zycbe124-vlme
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES
read table itab_zycat024 with key
bukrs = /pws/zycbe124-bukrs
tpimp = /pws/zycae025-tpimp
j_1bbranch = /pws/zycbe124-j_1bbranch.
if sy-subrc eq 0 and not itab_zycat024-formula is initial.
perform calcula_base_calculo using /pws/zycbe124-vlme
* << Fim da inclusão
/pws/zycae025-tpimp
* >> Início da exclusão: MODULE CONSISTE_VALORES
itab_zycat026-formula
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES
itab_zycat024-formula
* << Fim da inclusão
CHANGING /pws/zycae025-basecalc.
ELSE.
/pws/zycae025-basecalc = /pws/zycbe124-vlme.
...
...
INTO v_aliq
WHERE bukrs = /pws/zycbe124-bukrs
AND tpimp = 'ISS'.
v_advalorem = v_advalorem + v_aliq.
ENDIF.
v_advalorem2 = v_advalorem2 - /pws/zycae025-advalorem.
READ TABLE itab_zycat025 WITH KEY tpimp(6) = 'COFINS'.
IF sy-subrc = 0.
v_advalorem2 = v_advalorem2 - itab_zycat025-advalorem.
ENDIF.
* >> Início da exclusão: MODULE CONSISTE_VALORES
READ TABLE itab_zycat026 WITH KEY tpimp = /pws/zycae025-tpimp(3).
IF sy-subrc = 0 AND NOT itab_zycat026-formula IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES
if not itab_zycat024-formula is initial.
* << Fim da inclusão
PERFORM calcula_base_calculo USING /pws/zycbe124-vlme
/pws/zycae025-tpimp
* >> Início da exclusão: MODULE CONSISTE_VALORES
itab_zycat026-formula
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES
itab_zycat024-formula
* << Fim da inclusão
CHANGING /pws/zycae025-basecalc.
ELSE.
...
...
INTO v_aliq
WHERE bukrs = /pws/zycbe124-bukrs
AND tpimp = 'ISS'.
v_advalorem = v_advalorem + v_aliq.
ENDIF.
v_advalorem2 = v_advalorem2 - /pws/zycae025-advalorem.
READ TABLE itab_zycat025 WITH KEY tpimp(3) = 'PIS'.
IF sy-subrc = 0.
v_advalorem2 = v_advalorem2 - itab_zycat025-advalorem.
ENDIF.
* >> Início da exclusão: MODULE CONSISTE_VALORES
READ TABLE itab_zycat026 WITH KEY tpimp = /pws/zycae025-tpimp(6).
IF sy-subrc = 0 AND NOT itab_zycat026-formula IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES
if not itab_zycat024-formula is initial.
* << Fim da inclusão
PERFORM calcula_base_calculo USING /pws/zycbe124-vlme
/pws/zycae025-tpimp
* >> Início da exclusão: MODULE CONSISTE_VALORES
itab_zycat026-formula
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES
itab_zycat024-formula
* << Fim da inclusão
CHANGING /pws/zycae025-basecalc.
ELSE.
...
...
IF sy-subrc EQ 0 AND
( ( itab_zycat024-altera_base IS INITIAL OR
itab_zycat025-basecalc IS INITIAL ) OR
( v_control_ir EQ 1 AND
sy-tcode NE '/PWS/ZYCB109_E' ) ).
READ TABLE itab_zyglt100 WITH KEY zexit = 'REM003' BINARY SEARCH.
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ELSE.
* >> Início da exclusão: MODULE CONTROLA_IMPOSTOS
READ TABLE itab_zycat026 WITH KEY tpimp = itab_zycat025-tpimp(4).
IF sy-subrc = 0 AND NOT itab_zycat026-formula IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
if not itab_zycat024-formula is initial.
* << Fim da inclusão
PERFORM calcula_base_calculo USING /pws/zycbe124-vlme
itab_zycat025-tpimp
* >> Início da exclusão: MODULE CONTROLA_IMPOSTOS
itab_zycat026-formula
* << Fim da exclusão
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
itab_zycat024-formula
* << Fim da inclusão
CHANGING itab_zycat025-basecalc.
ELSE.
...
...
IF sy-subrc EQ 0 AND
( ( itab_zycat024-altera_base IS INITIAL OR
itab_zycat025-basecalc IS INITIAL ) OR
( v_control_io EQ 1 AND
sy-tcode NE '/PWS/ZYCB109_E' ) ).
READ TABLE itab_zyglt100 WITH KEY zexit = 'REM003' BINARY SEARCH.
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ELSE.
* >> Início da exclusão: MODULE CONTROLA_IMPOSTOS
READ TABLE itab_zycat026 WITH KEY tpimp = itab_zycat025-tpimp(3).
IF sy-subrc = 0 AND NOT itab_zycat026-formula IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
if not itab_zycat024-formula is initial.
* << Fim da inclusão
PERFORM calcula_base_calculo USING /pws/zycbe124-vlme
itab_zycat025-tpimp
* >> Início da exclusão: MODULE CONTROLA_IMPOSTOS
itab_zycat026-formula
* << Fim da exclusão
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
itab_zycat024-formula
* << Fim da inclusão
CHANGING itab_zycat025-basecalc.
ELSE.
...
...
ENDIF.
ELSE.
v_valorme = /pws/zycbe124-vlme.
v_verif = space.
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'REM003' BINARY SEARCH.
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ELSE.
* >> Início da exclusão: MODULE CONTROLA_IMPOSTOS
READ TABLE itab_zycat026 WITH KEY
tpimp = itab_zycat025-tpimp(4).
IF sy-subrc = 0 AND NOT itab_zycat026-formula IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
if not itab_zycat024-formula is initial.
* << Fim da inclusão
PERFORM calcula_base_calculo USING v_valorme
itab_zycat025-tpimp
* >> Início da exclusão: MODULE CONTROLA_IMPOSTOS
itab_zycat026-formula
* << Fim da exclusão
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
itab_zycat024-formula
* << Fim da inclusão
CHANGING itab_zycat025-basecalc.
ELSE.
...
...
ENDIF.
READ TABLE itab_zycat025 WITH KEY tpimp(3) = 'ISS'.
IF sy-subrc = 0.
v_control_is = v_control_is + 1.
READ TABLE itab_zyglt100 WITH KEY zexit = 'REM003' BINARY SEARCH.
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ELSE.
READ TABLE itab_zycat024 WITH KEY bukrs = /pws/zycbe124-bukrs
* >> Início da exclusão: MODULE CONTROLA_IMPOSTOS
tpimp = itab_zycat025-tpimp.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
tpimp = itab_zycat025-tpimp
j_1bbranch = /pws/zycbe124-j_1bbranch.
* << Fim da inclusão
IF sy-subrc EQ 0 AND
( ( itab_zycat024-altera_base IS INITIAL OR
itab_zycat025-basecalc IS INITIAL ) OR
( v_control_is EQ 1 AND
sy-tcode NE '/PWS/ZYCB109_E' ) ).
* >> Início da exclusão: MODULE CONTROLA_IMPOSTOS
READ TABLE itab_zycat026 WITH KEY
tpimp = itab_zycat025-tpimp(3).
IF sy-subrc = 0 AND NOT itab_zycat026-formula IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
if not itab_zycat024-formula is initial.
* << Fim da inclusão
PERFORM calcula_base_calculo USING /pws/zycbe124-vlme
itab_zycat025-tpimp
* >> Início da exclusão: MODULE CONTROLA_IMPOSTOS
itab_zycat026-formula
* << Fim da exclusão
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
itab_zycat024-formula
* << Fim da inclusão
CHANGING itab_zycat025-basecalc.
ELSE.
...
...
INTO v_aliq
WHERE bukrs = /pws/zycbe124-bukrs
AND tpimp = 'ISS'.
v_advalorem = v_advalorem + v_aliq.
ENDIF.
v_advalorem2 = v_advalorem2 - itab_zycat025-advalorem.
READ TABLE itab_zycat025_aux2 WITH KEY tpimp(6) = 'COFINS'.
IF sy-subrc = 0.
v_advalorem2 = v_advalorem2 - itab_zycat025_aux2-advalorem.
ENDIF.
* >> Início da exclusão: MODULE CONTROLA_IMPOSTOS
READ TABLE itab_zycat026 WITH KEY
tpimp = itab_zycat025-tpimp(3).
IF sy-subrc = 0 AND NOT itab_zycat026-formula IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
if not itab_zycat024-formula is initial.
* << Fim da inclusão
PERFORM calcula_base_calculo USING /pws/zycbe124-vlme
itab_zycat025-tpimp
* >> Início da exclusão: MODULE CONTROLA_IMPOSTOS
itab_zycat026-formula
* << Fim da exclusão
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
itab_zycat024-formula
* << Fim da inclusão
CHANGING itab_zycat025-basecalc.
ELSE.
...
...
INTO v_aliq
WHERE bukrs = /pws/zycbe124-bukrs
AND tpimp = 'ISS'.
v_advalorem = v_advalorem + v_aliq.
ENDIF.
v_advalorem2 = v_advalorem2 - itab_zycat025-advalorem.
READ TABLE itab_zycat025_aux2 WITH KEY tpimp(3) = 'PIS'.
IF sy-subrc = 0.
v_advalorem2 = v_advalorem2 - itab_zycat025_aux2-advalorem.
ENDIF.
* >> Início da exclusão: MODULE CONTROLA_IMPOSTOS
READ TABLE itab_zycat026 WITH KEY
tpimp = itab_zycat025-tpimp(6).
IF sy-subrc = 0 AND NOT itab_zycat026-formula IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
if not itab_zycat024-formula is initial.
* << Fim da inclusão
PERFORM calcula_base_calculo USING /pws/zycbe124-vlme
itab_zycat025-tpimp
* >> Início da exclusão: MODULE CONTROLA_IMPOSTOS
itab_zycat026-formula
* << Fim da exclusão
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
itab_zycat024-formula
* << Fim da inclusão
CHANGING itab_zycat025-basecalc.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109X01
...
itab_zycbt141_i_aux2
TYPE STANDARD TABLE OF t_zycbt141
WITH HEADER LINE.
DATA: BEGIN OF itab_zycat025 OCCURS 0.
INCLUDE STRUCTURE /pws/zycat025.
DATA: mark(1) TYPE c.
DATA: verificado(1) type c.
DATA: resposta(1) type c.
DATA: END OF itab_zycat025.
DATA: itab_zycbt141_aux LIKE /pws/zycbt141 OCCURS 0 WITH HEADER LINE.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycat026 OCCURS 0.
INCLUDE STRUCTURE /pws/zycat026.
DATA: END OF itab_zycat026.
* << Fim da exclusão
DATA: BEGIN OF itab_contas OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt350.
DATA: END OF itab_contas.
DATA: BEGIN OF itab_custo OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt350.
DATA: END OF itab_custo.
DATA: BEGIN OF itab_lucro OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt350.
DATA: END OF itab_lucro.
DATA: BEGIN OF itab_zycbe033 OCCURS 100.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA110F01
...
endif.
itab_zycbe033-wrbtr = /pws/zycbe031-vlme.
perform verify_null_field using /pws/zycbe031-bukrs
'BUKRS'
text-010.
itab_zycbe033-bukrs = /pws/zycbe031-bukrs.
perform verify_null_field using /pws/zycbe031-waers
'WAERS'
text-011.
itab_zycbe033-waers = /pws/zycbe031-waers.
* >> Início da exclusão: FORM CONTABILIZA_F_04_CP_REVENDA
itab_zycbe033-zterm = wa_zycbt007-condpgvista.
* << Fim da exclusão
itab_zycbe033-d_kostl = wa_zycbt124-kostl.
perform verify_null_field using wa_zycbt011-blart
'BLART'
text-012.
itab_zycbe033-blart = wa_zycbt011-blart.
select single * from /pws/zyglt009
into /pws/zyglt009
where bukrs eq /pws/zycbe031-bukrs.
if /pws/zyglt009-infpernr eq 'X'.
itab_zycbe033-pernr = wa_zycbt124-pernr.
...
...
endif.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
perform verify_null_field using /pws/zycbe031-bukrs
'BUKRS'
text-010.
itab_zycbe033-bukrs = /pws/zycbe031-bukrs.
perform verify_null_field using /pws/zycbe031-waers
'WAERS'
text-011.
itab_zycbe033-waers = /pws/zycbe031-waers.
* >> Início da exclusão: FORM DESMEMBRA_DOCTO_PROVISAO_CP
itab_zycbe033-zterm = wa_zycbt007-condpgvista.
* << Fim da exclusão
itab_zycbe033-wrbtr = itab_zycbt124_aux-vlme.
perform verify_null_field using wa_zycbt011-blart
'BLART'
text-012.
itab_zycbe033-blart = wa_zycbt011-blart.
itab_zycbe033-agkon = itab_zycbt124_aux-recrem.
perform verify_null_field using itab_zycbe033-agkon
'AGKON'
text-061.
if itab_zycbt124_aux-tpoper eq 'R'.
...
...
itab_zycbe033-agkoa = 'S'.
endif.
perform verify_null_field using itab_zycbt124_aux-bukrs
'BUKRS'
text-010.
itab_zycbe033-bukrs = itab_zycbt124_aux-bukrs.
perform verify_null_field using itab_zycbt124_aux-waers
'WAERS'
text-011.
itab_zycbe033-waers = itab_zycbt124_aux-waers.
* >> Início da exclusão: FORM COMPENSA_EMPRESA_CP
itab_zycbe033-zterm = wa_zycbt007-condpgvista.
* << Fim da exclusão
* >> Início da inclusão: FORM COMPENSA_EMPRESA_CP
if p_tpimp ne 'PRINCIPAL'.
read table itab_zycat024 with key bukrs = itab_zycbt124_aux-bukrs
tpimp = p_tpimp.
if sy-subrc eq 0.
itab_zycbe033-zterm = itab_zycat024-zterm.
endif.
endif.
* << Fim da inclusão
itab_zycbe033-dtdocto = itab_zycbe033-budat.
perform verify_null_field using wa_zycbt011-blart
'BLART'
text-012.
itab_zycbe033-blart = wa_zycbt011-blart.
itab_zycbe033-d_gsber = itab_zycbt124_aux-gsber.
loop at itab_zyglt321.
case itab_zyglt321-cpor3.
when 'SGTXT'.
if itab_zyglt321-cpocb = 'NRFAT'.
...
...
'WAERS'
text-011.
perform verify_null_field using wa_zycbt011-blart
'BLART'
text-012.
itab_zycbe033-blart = wa_zycbt011-blart.
perform verifica_pais_filial using /pws/zycbe031-bukrs
itab_zycbt124_aux-j_1bbranch.
itab_zycbe033-brnch = itab_zycbt124_aux-j_1bbranch.
if wa_zycbt124-frpagto = 'C' and p_tpimp = 'PRINCIPAL'.
* >> Início da exclusão: FORM CONTABILIZA_DOCTO_CP
itab_zycbe033-zterm = wa_zycbt007-condpgvista.
* << Fim da exclusão
elseif p_tpimp ne 'PRINCIPAL'.
read table itab_zycat025 with key nrseq = itab_zycbt124-nrseq
tpimp = p_tpimp.
if sy-subrc = 0 and itab_zycat025-frpagto_imp = 'C'.
* >> Início da exclusão: FORM CONTABILIZA_DOCTO_CP
itab_zycbe033-zterm = wa_zycbt007-condpgvista.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_DOCTO_CP
if p_tpimp(3) = 'ISS'.
read table itab_zycat024
with key bukrs = itab_zycbt124_aux-bukrs
tpimp = p_tpimp
j_1bbranch = itab_zycbt124_aux-j_1bbranch.
else.
read table itab_zycat024
with key bukrs = itab_zycbt124_aux-bukrs
tpimp = p_tpimp.
endif.
if sy-subrc = 0.
itab_zycbe033-zterm = itab_zycat024-zterm.
endif.
* << Fim da inclusão
endif.
endif.
loop at itab_zyglt321.
case itab_zyglt321-cpor3.
when 'SGTXT'.
if itab_zyglt321-cpocb = 'NRFAT'.
itab_zycbe033-c_sgtxt = itab_zycbt124_aux-nrfat.
itab_zycbe033-d_sgtxt = itab_zycbt124_aux-nrfat.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-c_sgtxt = itab_zycbt124_aux-nrcontr.
...
...
perform verify_null_field using itab_zycbe033-c_newko
'NEWKO'
text-018.
else.
perform verify_null_field using itab_zycbe033-d_newko
'NEWKO'
text-016.
endif.
itab_zycbe033-d_gsber = itab_zycbt124_aux-gsber.
itab_zycbe033-c_gsber = itab_zycbt124_aux-gsber.
* >> Início da exclusão: FORM CONTABILIZA_DOCTO_CP
move /pws/zycbt007-condpgvista to itab_zycbe033-zterm.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_DOCTO_CP
if p_tpimp ne 'PRINCIPAL'.
if p_tpimp(3) = 'ISS'.
read table itab_zycat024
with key bukrs = itab_zycbt124_aux-bukrs
tpimp = p_tpimp
j_1bbranch = itab_zycbt124_aux-j_1bbranch.
else.
read table itab_zycat024
with key bukrs = itab_zycbt124_aux-bukrs
tpimp = p_tpimp.
endif.
if sy-subrc = 0.
itab_zycbe033-zterm = itab_zycat024-zterm.
endif.
endif.
* << Fim da inclusão
move sy-repid to v_repid.
call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
exporting
i_codmod = 'F'
i_func = v_repid
tables
itab_zyglt100 = itab_zyglt100
exceptions
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
...
...
itab_zycbe033-tabela = '/PWS/ZYCBT031'.
itab_zycbe033-cpochv = /pws/zycbe031-nrseq.
itab_zycbe033-bukrs = p_bukrs.
perform determina_ano using p_dtlanc
p_bukrs
changing v_ano.
itab_zycbe033-gjahs = v_ano.
itab_zycbe033-belnr = p_belnr.
itab_zycbe033-c_valut = p_dtvencto.
itab_zycbe033-zfbdt = p_dtvencto.
* >> Início da exclusão: FORM ATUALIZA_DTVENCTO_FB02_CP
itab_zycbe033-zterm = wa_zycbt007-condpgvista.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_DTVENCTO_FB02_CP
if p_tpimp ne 'PRINCIPAL'.
if p_tpimp(3) = 'ISS'.
read table itab_zycat024
with key bukrs = itab_zycbt124_aux-bukrs
tpimp = p_tpimp
j_1bbranch = itab_zycbt124_aux-j_1bbranch.
else.
read table itab_zycat024
with key bukrs = itab_zycbt124_aux-bukrs
tpimp = p_tpimp.
endif.
if sy-subrc eq 0.
itab_zycbe033-zterm = itab_zycat024-zterm.
endif.
endif.
* << Fim da inclusão
itab_zycbe033-c_gsber = itab_zycbt124_aux-gsber.
itab_zycbe033-c_kostl = itab_zycbt124_aux-kostl.
itab_zycbe033-c_prctr = itab_zycbt124_aux-prctr.
itab_zycbe033-c_fipos = itab_zycbt124_aux-fipos.
itab_zycbe033-c_fictr = itab_zycbt124_aux-fictr.
loop at itab_zyglt321.
case itab_zyglt321-cpor3.
when 'SGTXT'.
if itab_zyglt321-cpocb = 'NRFAT'.
itab_zycbe033-c_sgtxt = /pws/zycbe124-nrfat.
...
...
itab_zycbe033-kursf = /pws/zycbe031-taxair.
endif.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
if /pws/zycbt007-fdtdoc = 'D'.
itab_zycbe033-bldat = sy-datum.
else.
itab_zycbe033-bldat = itab_zycbe033-budat.
endif.
itab_zycbe033-d_gsber = itab_zycbt124_aux-gsber.
itab_zycbe033-c_gsber = itab_zycbt124_aux-gsber.
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR_CP
itab_zycbe033-zterm = wa_zycbt007-condpgvista.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_PRINC_IR_CP
if sy-index <= 1.
itab_zycbe033-zterm = space.
else.
read table itab_zycat024 with key bukrs = itab_zycbt124_aux-bukrs
tpimp = itab_zycat025-tpimp.
if sy-subrc eq 0.
itab_zycbe033-zterm = itab_zycat024-zterm.
endif.
endif.
* << Fim da inclusão
perform verify_null_field using wa_zycbt011-blart
'BLART'
text-012.
itab_zycbe033-blart = wa_zycbt011-blart.
perform verifica_pais_filial using itab_zycbt124_aux-bukrs
itab_zycbt124_aux-j_1bbranch.
itab_zycbe033-brnch = itab_zycbt124_aux-j_1bbranch.
loop at itab_zyglt321.
case itab_zyglt321-cpor3.
when 'SGTXT'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110F01
...
'NEWKO'
text-018.
perform verify_null_field using itab_zycbt124_aux-bukrs
'BUKRS'
text-010.
itab_zycbe033-bukrs = itab_zycbt124_aux-bukrs.
perform verify_null_field using itab_zycbt124_aux-waers
'WAERS'
text-011.
itab_zycbe033-waers = itab_zycbt124_aux-waers.
* >> Início da exclusão: FORM EXECUTA_F51_CP
itab_zycbe033-zterm = wa_zycbt007-condpgvista.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51_CP
if p_tpimp ne 'PRINCIPAL'.
if p_tpimp(3) = 'ISS'.
read table itab_zycat024
with key bukrs = itab_zycbt124_aux-bukrs
tpimp = p_tpimp
j_1bbranch = itab_zycbt124_aux-j_1bbranch.
else.
read table itab_zycat024
with key bukrs = itab_zycbt124_aux-bukrs
tpimp = p_tpimp.
endif.
if sy-subrc eq 0.
itab_zycbe033-zterm = itab_zycat024-zterm.
endif.
endif.
* << Fim da inclusão
perform verify_null_field using wa_zycbt011-blart
'BLART'
text-012.
itab_zycbe033-blart = wa_zycbt011-blart.
itab_zycbe033-vbund = itab_zycbt124_aux-vbund.
if /pws/zycbt125-tprem ne 2.
call customer-function '016'
tables
t_dados = itab_zycbe033. "#EC *
append itab_zycbe033.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCAT024
***********************
* TABELA /PWS/ZYCAT024*
********************************************
Modificações efetuadas em TABD /PWS/ZYCAT024
********************************************
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCAT024
DESCRIÇÃO BREVE: CA - Parametrização do Tipo de Imposto
CARACTERÍSTICAS
CATEGORIA DA TABELA: Tabela transparente
CLASSE DE ENTREGA:
(A) - AUTUALIZAÇÃO DE TABELAS PERMITIDA
***************************************
CAMPOS NOVOS - CRIAR NO FINAL DA TABELA
***************************************
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
FORMULA /PWS/ZYGLL1357
USERNAMEC SYUNAME
DTUSERC SYDATUM
HRUSERC SYSTTIMLO
USER_SAVE /PWS/ZYGLL699
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABU TMENU01
**********************************************
* ALTERACAO NO MENU DE AREA - TRANSACAO SE43 *
**********************************************
MENU -> /PWS/ZYCB
LOCALIZAR O ITEM -> Parâmetros -> Técnicos -> /PWS/ZYCAT026
ITEM -> Fórmulas para Base de Cálculo de Impostos
* EXCLUIR O ITEM -> Fórmulas para Base de Cálculo de Impostos *
***************************************************************
----------------------------------------------------------------------------------------------------
*******************************************
* STATUS GUI DAS TELAS 0001 / 0100 / 0200 *
*******************************************
***************************
* CRIAR STATUS GUI - 0001 *
***************************
PROGRAMA - /PWS/SAPMZYCA024
STATUS - 0001
TEXTO BREVE - Posiciona Chave
CATEGORIA DE STATUS - Caixa de Dialogo
Barra de Botoes.:
*****************
1 - Código de função - ENTE
Categoria de função - Função de aplicação
Texto de função - Avançar
Nome de ícone - ICON_OKAY
2 - Código de função - BACK
Categoria de função - Função de aplicação
Texto de função - Cancelar
Nome de ícone - ICON_CANCEL
Teclas de Função.:
******************
Teclas de função reservadas
***************************
F12 - Código de função - BACK
Categoria de função - Função de aplicação
Texto de função - Cancelar
Nome de ícone - ICON_CANCEL
Definições recomendadas de teclas função
****************************************
ENTER - Código de função - ENTE
Categoria de função - Função de aplicação
Texto de função - Avançar
Nome de ícone - ICON_OKAY
***************************
* CRIAR STATUS GUI - 0100 *
***************************
PROGRAMA - /PWS/SAPMZYCA024
STATUS - 0100
TEXTO BREVE - Tela 100
CATEGORIA DE STATUS - Status Dialogo
Barra de Menu.:
***************
Barra de Botoes.:
*****************
01 - Código de função - MKAL
Categoria de função - Função de aplicação
Texto de função - Marcar tudo
Nome de ícone - ICON_SELECT_ALL
02 - Código de função - MKBL
Categoria de função - Função de aplicação
Texto de função - Marcar bloco
Nome de ícone - ICON_SELECT_BLOCK
03 - Código de função - MKLO
Categoria de função - Função de aplicação
Texto de função - Desmarcar tudo
Nome de ícone - ICON_DESELECT_ALL
04 - Incluir Linha de Separação |
05 - Código de função - DELE
Categoria de função - Função de aplicação
Texto de função - Eliminar
Nome de ícone - ICON_DELETE_ROW
Seleção direta - E
06 - Incluir Linha de Separação |
07 - Código de função - NEWL
Categoria de função - Função de aplicação
Texto de função - Entradas novas
Nome de ícone - ICON_CREATE
Texto informativo - Criar novas entradas
08 - Incluir Linha de Separação |
09 - Código de função - KOPE
Categoria de função - Função de aplicação
Texto de função - Copiar como...
Nome de ícone - ICON_SYSTEM_COPY
10 - Incluir Linha de Separação |
11 - Código de função - EXIB
Categoria de função - Função de aplicação
Texto de função - Exibir item
Nome de ícone - ICON_SELECT_DETAIL
12 - Incluir Linha de Separação |
13 - Código de função - RELE
Categoria de função - Função de aplicação
Texto de função - Gerar request
Nome de ícone - ICON_TRANSPORT
Teclas de Função.:
******************
Barra Ferram.
*************
01 - Inserir no Icone - ICON_SYSTEM_OKAY
Código de função - ENTER
Categoria de função - Função de aplicação
Texto de função - Comando enter
02 - Inserir no Icone - ICON_SYSTEM_SAVE
Código de função - SAVE
Categoria de função - Função de aplicação
Texto de função - Gravar
03 - Inserir no Icone - ICON_SYSTEM_BACK
Código de função - BACK
Categoria de função - Função de aplicação
Texto de função - Cancelar
04 - Inserir no Icone - ICON_SYSTEM_END
Código de função - ENCE
Categoria de função - E - Comando exit
Texto de função - Encerrar
09 - Inserir no Icone - ICON_FIRST_PAGE
Código de função - P--
Categoria de função - Função de aplicação
Texto de função - 1ª página
10 - Inserir no Icone - ICON_PREVIOUS_PAGE
Código de função - P-
Categoria de função - Função de aplicação
Texto de função - Página anterior
11 - Inserir no Icone - ICON_NEXT_PAGE
Código de função - P+
Categoria de função - Função de aplicação
Texto de função - Página seguinte
12 - Inserir no Icone - ICON_LAST_PAGE
Código de função - P++
Categoria de função - Função de aplicação
Texto de função - Última página
Definições recomendadas de teclas função
****************************************
F2 - Código de função - PICK
Categoria de função - Função de aplicação
Texto de função - Selecionar
Nome de ícone - ICON_SELECT_DETAIL
Seleção direta - S
Shift-F2 - Código de função - MKLO
Categoria de função - Função de aplicação
Texto de função - Desmarcar tudo
Nome de ícone - ICON_DESELECT_ALL
Shift-F4 - Código de função - DELE
Categoria de função - Função de aplicação
Texto de função - Eliminar
Nome de ícone - ICON_DELETE_ROW
Seleção direta - E
Shift-F5 - Código de função - MKBL
Categoria de função - Função de aplicação
Texto de função - Marcar bloco
Nome de ícone - ICON_SELECT_BLOCK
Teclas de função de livre definição
***********************************
F5 - Código de função - NEWL
Categoria de função - Função de aplicação
Texto de função - Entradas novas
Nome de ícone - ICON_CREATE
Texto informativo - Criar novas entradas
Shift-F1 - Código de função - MKAL
Categoria de função - Função de aplicação
Texto de função - Marcar tudo
Nome de ícone - ICON_SELECT_ALL
Shift-F6 - Código de função - EXIB
Categoria de função - Função de aplicação
Texto de função - Exibir item
Nome de ícone - ICON_SELECT_DETAIL
Shift-F9 - Código de função - RELE
Categoria de função - Função de aplicação
Texto de função - Gerar request
Nome de ícone - ICON_TRANSPORT
Ctrl-F12 - Código de função - KOPE
Categoria de função - Função de aplicação
Texto de função - Copiar como...
Nome de ícone - ICON_SYSTEM_COPY
***************************
* CRIAR STATUS GUI - 0200 *
***************************
PROGRAMA - /PWS/SAPMZYCA024
STATUS - 0200
TEXTO BREVE - Tela 200
CATEGORIA DE STATUS - Status Dialogo
Barra de Menu.:
***************
Barra de Botoes.:
*****************
01 - Código de função - FIRS
Categoria de função - Função de aplicação
Texto de função - 1° Item
Nome de ícone - ICON_TOTAL_LEFT
02 - Código de função - PRIO
Categoria de função - Função de aplicação
Texto de função - Item anterior
Nome de ícone - ICON_COLUMN_LEFT
03 - Código de função - NEXT
Categoria de função - Função de aplicação
Texto de função - Próximo item
Nome de ícone - ICON_COLUMN_RIGHT
04 - Código de função - LAST
Categoria de função - Função de aplicação
Texto de função - Último item
Nome de ícone - ICON_TOTAL_RIGHT
Teclas de Função.:
******************
Barra Ferram.
*************
01 - Inserir no Icone - ICON_SYSTEM_OKAY
Código de função - ENTER
Categoria de função - Função de aplicação
Texto de função - Avançar
02 - Inserir no Icone - ICON_SYSTEM_SAVE
Código de função - SAVE
Categoria de função - Função de aplicação
Texto de função - Gravar
03 - Inserir no Icone - ICON_SYSTEM_BACK
Código de função - BACK
Categoria de função - Função de aplicação
Texto de função - Cancelar
04 - Inserir no Icone - ICON_SYSTEM_END
Código de função - ENCE
Categoria de função - E - Comando exit
Texto de função - Encerrar
09 - Inserir no Icone - ICON_FIRST_PAGE
Código de função - P--
Categoria de função - Função de aplicação
Texto de função - 1ª página
10 - Inserir no Icone - ICON_PREVIOUS_PAGE
Código de função - P-
Categoria de função - Função de aplicação
Texto de função - Página anterior
11 - Inserir no Icone - ICON_NEXT_PAGE
Código de função - P+
Categoria de função - Função de aplicação
Texto de função - Página seguinte
12 - Inserir no Icone - ICON_LAST_PAGE
Código de função - P++
Categoria de função - Função de aplicação
Texto de função - Última página
Teclas de função de livre definição
***********************************
Ctrl-Shift-F1 - Código de função - FIRS
Categoria de função - Função de aplicação
Texto de função - 1° Item
Nome de ícone - ICON_TOTAL_LEFT
Ctrl-Shift-F2 - Código de função - PRIO
Categoria de função - Função de aplicação
Texto de função - Item anterior
Nome de ícone - ICON_COLUMN_LEFT
Ctrl-Shift-F3 - Código de função - NEXT
Categoria de função - Função de aplicação
Texto de função - Próximo item
Nome de ícone - ICON_COLUMN_RIGHT
Ctrl-Shift-F4 - Código de função - LAST
Categoria de função - Função de aplicação
Texto de função - Último item
Nome de ícone - ICON_TOTAL_RIGHT