CE PLUS - Nota 011662
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Associação Ordem de Pagamento
Data/Hora da Publicação: 24/11/2011 15:09:29
Data/Hora Última Alteração: 24/11/2011 15:09:29
Descrição da Nota: ASSOCIAÇÃO VME / SML - TRILHA AUDITORIA
Sintoma
Associação VME / SML - Trilha Auditoria
Solução
Associação VME / SML - Trilha Auditoria
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11662 Data: 23/11/2011 Hora: 15:58:26
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11662
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00009
Agrupamento : 00095
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03270 - 00001 - 6.0 - 00026 - DESENVOLVIMENTO ADICIONAL COMPLETO - ORDEM DE PAGAMENTO
09503 - 00002 - 8.0 - 00001 - ASSOCIAÇÃO - ERRO NA MODIFICAÇÃO DA ASSOCIAÇÃO DE ORDEM DE PAGAME
10304 - 00003 - 8.0 - 00004 - EXPORTAÇÃO - SIST. PAGTO MOEDA LOCAL - ASSOCIAÇÃO ORD.DE PAGTO
11070 - 00004 - 8.0 - 00007 - SISTEMA DE PAGAMENTOS EM MOEDA LOCAL
11080 - 00005 - 8.0 - 00007 - ASSOCIAÇÃO DE ORDENS DE PAGAMENTO SML SALDO A ASSOCIAR
11123 - 00006 - 8.0 - 00007 - ASSOCIAÇÃO DE ORDENS DE PAGAMENTO, CRIAÇÃO DE EXIT
11229 - 00007 - 8.0 - 00007 - CODE INSPECTOR
11361 - 00008 - 8.0 - 00008 - VME ASSOCIAÇÃO DE ORDEM DE PAGAMENTO BLOQUEIO DE CONTA
11386 - 00009 - 8.0 - 00008 - ASSOCIAÇÃO ORDEM PAGAMENTO - F110 - BLOQUEIO CONTAS
11506 - 00010 - 8.0 - 00009 - TRILHA DE AUDITORIA
11518 - 00011 - 8.0 - 00009 - ASSOCIAÇÃO ORDEM DE PAGAMENTO
----------------------------------------------------------------------------------------------------
ASSOCIAÇÃO VME / SML - TRILHA AUDITORIA
----------------------------------------------------------------------------------------------------
Palavras Chave:
ASSOCIAÇÃO VME / SML - TRILHA AUDITORIA
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCB035
REPS /PWS/MZYCB035F01
REPS /PWS/MZYCB035F02
REPS /PWS/MZYCB035F03
REPS /PWS/MZYCB035TOP
REPS /PWS/SAPMZYCB035
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCB035
Alterar STATUS-GUI 0010
Incluir BOTÃO ESTÁTICO (Barra de Botões)
CÓDIGO DE FUNÇÃO: LOG_TRILHA
CATEGORIA DE FUNÇÃO: ' '
TEXTOS DE FUNÇÃO ESTÁTICOS
TEXTO DE FUNÇÃO: Log de Modificação
NOME DE ÍCONE: ICON_PHIO_CLASS
TEXTO DE ÍCONE: ' '
TEXTO INFORMATIVO: ' '
SELEÇÃO DIRETA: ' '
TECLA DE ATALHO: Ctrl+F12
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035F01
...
BEGIN OF t_s_botoes,
func TYPE rsmpe-func,
END OF t_s_botoes,
t_t_botoes TYPE STANDARD TABLE OF t_s_botoes
WITH NON-UNIQUE DEFAULT KEY.
DATA:
itab_botoes TYPE t_t_botoes,
wa_botoes LIKE LINE OF itab_botoes,
v_titulo TYPE rsmpe-titcode,
v_pfkey TYPE sy-pfkey.
* >> Início da inclusão: FORM CARREGA_STATUS_GUI
data: v_trilha_auditoria type /pws/zyglt009-trilha_auditoria.
* << Fim da inclusão
CASE sy-dynnr.
WHEN '0001' OR '0010'.
v_pfkey = sy-dynnr.
CASE sy-tcode.
WHEN c_transacao_a.
v_titulo = '001A'.
WHEN c_transacao_c.
v_titulo = '001C'.
WHEN c_transacao_e.
v_titulo = '001E'.
...
...
PERFORM status_custom.
WHEN OTHERS.
CLEAR: v_titulo, v_pfkey.
ENDCASE.
IF sy-dynnr = '0001' AND
( sy-tcode = c_transacao_c OR
sy-tcode = c_trans_sml_c ).
wa_botoes-func = 'NOVO'.
APPEND wa_botoes TO itab_botoes.
ENDIF.
* >> Início da inclusão: FORM CARREGA_STATUS_GUI
clear v_trilha_auditoria.
select trilha_auditoria from /pws/zyglt009
into v_trilha_auditoria
up to 1 rows
where bukrs = space.
endselect.
if v_trilha_auditoria is initial or
sy-tcode = c_transacao_c or
sy-tcode = c_trans_sml_c.
wa_botoes-func = 'LOG_TRILHA'.
append wa_botoes to itab_botoes.
endif.
* << Fim da inclusão
IF NOT v_titulo IS INITIAL.
SET TITLEBAR v_titulo.
ENDIF.
IF NOT v_pfkey IS INITIAL.
SET PF-STATUS v_pfkey EXCLUDING itab_botoes.
ENDIF.
ENDFORM.
FORM loop_at_screen.
FIELD-SYMBOLS
<fs_tabname> TYPE t_s_tabstrip-tabname.
...
...
ELSE.
MESSAGE w261(sf) WITH <fs_drilldown>-tcode.
ENDIF.
ELSE.
MESSAGE w256(00). "#EC *
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM user_command_0010.
* >> Início da inclusão: FORM USER_COMMAND_0010
data: v_identificador type /pws/zyglt390-identificador.
* << Fim da inclusão
CASE ok_code.
WHEN 'MODO_BI'.
PERFORM seleciona_modo_bi.
WHEN 'SAVE'.
PERFORM salva_dados.
* >> Início da inclusão: FORM USER_COMMAND_0010
when 'LOG_TRILHA'.
if btn_embarque = 'X'.
concatenate /pws/zycbe227a-nrinvoic /pws/zycbe227a-nrparcf
/pws/zycbe227a-gsberf into v_identificador.
elseif btn_remessa = 'X'.
move /pws/zycbe229a-nrseq to v_identificador.
endif.
perform log_trilha using sy-repid
v_identificador
' '.
* << Fim da inclusão
ENDCASE.
ENDFORM.
FORM user_command_0102.
DATA
v_linhas TYPE sy-tabix.
field-symbols:
<fs_zycbe226_del> like line of itab_zycbt226_del.
CASE ok_code.
WHEN 'P--' OR 'P-' OR 'P++' OR 'P+'.
DESCRIBE TABLE itab_zycbt228a LINES v_linhas.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035F02
...
perform atualiza_dados_fatura_remessa.
perform atualiza_dados_ordem_pagto.
perform atualiza_dados_associacao.
endform.
form atualiza_dados_fatura_remessa.
if wa_controle-processo = c_flag_embarque.
if wa_zycbt030-belnr_t is initial.
wa_zycbt030-belnr_t = wa_zycbt030-belnr6.
wa_zycbt030-budat_t = wa_zycbt030-budat.
endif.
* >> Início da inclusão: FORM ATUALIZA_DADOS_FATURA_REMESSA
clear: wa_zycbt030_aud.
select single * from /pws/zycbt030
into wa_zycbt030_aud
where nrinvoic = /pws/zycbe227a-nrinvoic and
nrparcf = /pws/zycbe227a-nrparcf and
gsberf = /pws/zycbe227a-gsberf.
* << Fim da inclusão
update /pws/zycbt030
set
vlslliq = wa_zycbt030-vlslliq
vlsltrans = wa_zycbt030-vlsltrans
belnr6 = wa_zycbt030-belnr6
budat = wa_zycbt030-budat
belnr_t = wa_zycbt030-belnr_t
budat_t = wa_zycbt030-budat_t
where
nrinvoic = /pws/zycbe227a-nrinvoic and
nrparcf = /pws/zycbe227a-nrparcf and
gsberf = /pws/zycbe227a-gsberf.
* >> Início da inclusão: FORM ATUALIZA_DADOS_FATURA_REMESSA
if sy-subrc eq 0.
concatenate /pws/zycbe227a-nrinvoic
/pws/zycbe227a-nrparcf
/pws/zycbe227a-gsberf into v_identific.
move-corresponding wa_zycbt030_aud to /pws/zycbt030.
perform carrega_log using '/PWS/ZYCBT030'
'U'
sy-tcode
'/PWS/SAPMZYCB005'
v_identific.
endif.
* << Fim da inclusão
update /pws/zycbt017
set
vlslf = wa_zycbt017-vlslf
where
nrinvoic = /pws/zycbe227a-nrinvoic and
nrparcf = /pws/zycbe227a-nrparcf and
gsberf = /pws/zycbe227a-gsberf.
* >> Início da inclusão: FORM ATUALIZA_DADOS_FATURA_REMESSA
if sy-subrc eq 0.
concatenate /pws/zycbe227a-nrinvoic
/pws/zycbe227a-nrparcf
/pws/zycbe227a-gsberf into v_identific.
move-corresponding /pws/zycbe227a to /pws/zycbt017.
perform carrega_log using '/PWS/ZYCBT017'
'U'
sy-tcode
'/PWS/SAPMZYCB005'
v_identific.
endif.
* << Fim da inclusão
update /pws/zycbt238 from table itab_disponibilidade.
update /pws/zycbt241 from table itab_zycbt241.
* >> Início da inclusão: FORM ATUALIZA_DADOS_FATURA_REMESSA
loop at itab_disponibilidade assigning <fs_disp_aud>.
move-corresponding <fs_disp_aud> to /pws/zycbt238.
perform carrega_log using '/PWS/ZYCBT238'
'U'
sy-tcode
sy-repid
<fs_disp_aud>-nrseq.
endloop.
loop at itab_zycbt241 assigning <fs_zycbt241_aud>.
move-corresponding <fs_zycbt241_aud> to /pws/zycbt241.
perform carrega_log using '/PWS/ZYCBT241'
'U'
sy-tcode
sy-repid
<fs_zycbt241_aud>-nrseq.
endloop.
* << Fim da inclusão
perform atualiza_dados_liq_and.
else.
update /pws/zycbt124
set
dtpagto = wa_zycbt124-dtpagto
sld_associar = wa_zycbt124-sld_associar
belnr_assoc = wa_zycbt124-belnr_assoc
dtassoc = wa_zycbt124-dtassoc
where nrseq = /pws/zycbe229a-nrseq.
* >> Início da inclusão: FORM ATUALIZA_DADOS_FATURA_REMESSA
if sy-subrc eq 0.
move-corresponding /pws/zycbe229a to /pws/zycbt124.
perform carrega_log using '/PWS/ZYCBT124'
'U'
sy-tcode
'/PWS/SAPMZYCA109'
/pws/zycbe229a-nrseq.
* << Fim da inclusão
endif.
* >> Início da inclusão: FORM ATUALIZA_DADOS_FATURA_REMESSA
endif.
* << Fim da inclusão
endform.
form atualiza_dados_ordem_pagto.
data
itab_zycbt226_at type sorted table of /pws/zycbt226
with unique key nrseq.
field-symbols:
...
...
read table itab_zycbt226_at
with table key nrseq = <fs_zycbt226>-nrseq
assigning <fs_zycbt226_at>.
if sy-subrc = 0.
<fs_zycbt226_at>-sld_associar = <fs_zycbt226>-sld_associar.
<fs_zycbt226_at>-belnr_assoc = <fs_zycbt226>-belnr_assoc.
<fs_zycbt226_at>-dt_assoc = <fs_zycbt226>-dt_assoc.
endif.
endloop.
update /pws/zycbt226 from table itab_zycbt226_at.
* >> Início da inclusão: FORM ATUALIZA_DADOS_ORDEM_PAGTO
loop at itab_zycbt226_at assigning <fs_zycbt226_at>.
move-corresponding <fs_zycbt226_at> to /pws/zycbt226.
perform carrega_log using '/PWS/ZYCBT226'
'U'
sy-tcode
'/PWS/SAPMZYCB034'
<fs_zycbt226_at>-nrseq.
endloop.
* << Fim da inclusão
endform.
form atualiza_dados_associacao.
data:
itab_zycbt227_i like itab_zycbt227,
itab_zycbt227_a like itab_zycbt227,
itab_zycbt227_e like itab_zycbt227,
itab_zycbt228_i like itab_zycbt228,
itab_zycbt228_a like itab_zycbt228,
itab_zycbt228_e like itab_zycbt228,
itab_zycbt229_i like itab_zycbt229,
...
...
itab_zycbt228_i
itab_zycbt228_a
itab_zycbt228_e
itab_zycbt229_i
itab_zycbt229_a
itab_zycbt229_e
itab_zycbt230_i
itab_zycbt230_a
itab_zycbt230_e.
endloop.
* >> Início da inclusão: FORM ATUALIZA_DADOS_ASSOCIACAO
clear: v_operacao,
itab_zycbt227_aud,
itab_zycbt228_aud,
itab_zycbt229_aud,
itab_zycbt230_aud.
refresh: itab_zycbt227_aud,
itab_zycbt228_aud,
itab_zycbt229_aud,
itab_zycbt230_aud.
* << Fim da inclusão
if not itab_zycbt227_e is initial.
* >> Início da inclusão: FORM ATUALIZA_DADOS_ASSOCIACAO
select * from /pws/zycbt227
into table itab_zycbt227_aud
for all entries in itab_zycbt227_e
where nrseq = itab_zycbt227_e-nrseq
and nrinvoic = itab_zycbt227_e-nrinvoic
and nrparcf = itab_zycbt227_e-nrparcf
and gsberf = itab_zycbt227_e-gsberf
and dtassoc = itab_zycbt227_e-dtassoc.
endif.
if not itab_zycbt228_e is initial.
select * from /pws/zycbt228
into table itab_zycbt228_aud
for all entries in itab_zycbt228_e
where nrseq = itab_zycbt228_e-nrseq
and nrinvoic = itab_zycbt228_e-nrinvoic
and nrparcf = itab_zycbt228_e-nrparcf
and gsberf = itab_zycbt228_e-gsberf
and dtincl = itab_zycbt228_e-dtincl
and dtassoc = itab_zycbt228_e-dtassoc
and bukrs = itab_zycbt228_e-bukrs
and belnr = itab_zycbt228_e-belnr
and gjahr = itab_zycbt228_e-gjahr.
endif.
if not itab_zycbt229_e is initial.
select * from /pws/zycbt229
into table itab_zycbt229_aud
for all entries in itab_zycbt229_e
where nrseq = itab_zycbt229_e-nrseq
and nrseq_remessa = itab_zycbt229_e-nrseq_remessa
and dtassoc = itab_zycbt229_e-dtassoc.
endif.
if not itab_zycbt230_e is initial.
select * from /pws/zycbt230
into table itab_zycbt230_aud
for all entries in itab_zycbt230_e
where nrseq = itab_zycbt230_e-nrseq
and nrseq_remessa = itab_zycbt230_e-nrseq_remessa
and dtassoc = itab_zycbt230_e-dtassoc
and bukrs = itab_zycbt230_e-bukrs
and belnr = itab_zycbt230_e-belnr
and gjahr = itab_zycbt230_e-gjahr.
endif.
if not itab_zycbt227_e is initial.
v_operacao = 'X'.
loop at itab_zycbt227_aud assigning <fs_zycbt227_aud>.
concatenate <fs_zycbt227_aud>-nrinvoic
<fs_zycbt227_aud>-nrparcf
<fs_zycbt227_aud>-gsberf into v_identific.
move-corresponding <fs_zycbt227_aud> to /pws/zycbt227.
perform carrega_log using '/PWS/ZYCBT227'
'D'
sy-tcode
sy-repid
v_identific.
endloop.
loop at itab_zycbt228_aud assigning <fs_zycbt228_aud>.
concatenate <fs_zycbt228_aud>-nrinvoic
<fs_zycbt228_aud>-nrparcf
<fs_zycbt228_aud>-gsberf into v_identific.
move-corresponding <fs_zycbt228_aud> to /pws/zycbt228.
perform carrega_log using '/PWS/ZYCBT228'
'D'
sy-tcode
sy-repid
v_identific.
endloop.
* << Fim da inclusão
delete /pws/zycbt227 from table itab_zycbt227_e.
delete /pws/zycbt228 from table itab_zycbt228_e.
endif.
if not itab_zycbt227_a is initial.
update /pws/zycbt227 from table itab_zycbt227_a.
update /pws/zycbt228 from table itab_zycbt228_a.
* >> Início da inclusão: FORM ATUALIZA_DADOS_ASSOCIACAO
loop at itab_zycbt227_a assigning <fs_zycbt227_aud>.
concatenate <fs_zycbt227_aud>-nrinvoic
<fs_zycbt227_aud>-nrparcf
<fs_zycbt227_aud>-gsberf into v_identific.
move-corresponding <fs_zycbt227_aud> to /pws/zycbt227.
perform carrega_log using '/PWS/ZYCBT227'
'U'
sy-tcode
sy-repid
v_identific.
endloop.
loop at itab_zycbt228_a assigning <fs_zycbt228_aud>.
concatenate <fs_zycbt228_aud>-nrinvoic
<fs_zycbt228_aud>-nrparcf
<fs_zycbt228_aud>-gsberf into v_identific.
move-corresponding <fs_zycbt228_aud> to /pws/zycbt228.
perform carrega_log using '/PWS/ZYCBT228'
'U'
sy-tcode
sy-repid
v_identific.
endloop.
* << Fim da inclusão
endif.
if not itab_zycbt227_i is initial.
insert /pws/zycbt227 from table itab_zycbt227_i.
insert /pws/zycbt228 from table itab_zycbt228_i.
* >> Início da inclusão: FORM ATUALIZA_DADOS_ASSOCIACAO
loop at itab_zycbt227_i assigning <fs_zycbt227_aud>.
concatenate <fs_zycbt227_aud>-nrinvoic
<fs_zycbt227_aud>-nrparcf
<fs_zycbt227_aud>-gsberf into v_identific.
move-corresponding <fs_zycbt227_aud> to /pws/zycbt227.
perform carrega_log using '/PWS/ZYCBT227'
'I'
sy-tcode
sy-repid
v_identific.
endloop.
loop at itab_zycbt228_i assigning <fs_zycbt228_aud>.
concatenate <fs_zycbt228_aud>-nrinvoic
<fs_zycbt228_aud>-nrparcf
<fs_zycbt228_aud>-gsberf into v_identific.
move-corresponding <fs_zycbt228_aud> to /pws/zycbt228.
perform carrega_log using '/PWS/ZYCBT228'
'I'
sy-tcode
sy-repid
v_identific.
endloop.
* << Fim da inclusão
endif.
if not itab_zycbt229_e is initial.
* >> Início da inclusão: FORM ATUALIZA_DADOS_ASSOCIACAO
loop at itab_zycbt229_aud assigning <fs_zycbt229_aud>.
move-corresponding <fs_zycbt229_aud> to /pws/zycbt229.
perform carrega_log using '/PWS/ZYCBT229'
'D'
sy-tcode
sy-repid
<fs_zycbt229_aud>-nrseq_remessa.
endloop.
loop at itab_zycbt230_aud assigning <fs_zycbt230_aud>.
move-corresponding <fs_zycbt230_aud> to /pws/zycbt230.
perform carrega_log using '/PWS/ZYCBT230'
'D'
sy-tcode
sy-repid
<fs_zycbt230_aud>-nrseq_remessa.
endloop.
* << Fim da inclusão
delete /pws/zycbt229 from table itab_zycbt229_e.
delete /pws/zycbt230 from table itab_zycbt230_e.
endif.
if not itab_zycbt229_a is initial.
update /pws/zycbt229 from table itab_zycbt229_a.
update /pws/zycbt230 from table itab_zycbt230_a.
* >> Início da inclusão: FORM ATUALIZA_DADOS_ASSOCIACAO
loop at itab_zycbt229_a assigning <fs_zycbt229_aud>.
move-corresponding <fs_zycbt229_aud> to /pws/zycbt229.
perform carrega_log using '/PWS/ZYCBT229'
'U'
sy-tcode
sy-repid
<fs_zycbt229_aud>-nrseq_remessa.
endloop.
loop at itab_zycbt230_a assigning <fs_zycbt230_aud>.
move-corresponding <fs_zycbt230_aud> to /pws/zycbt230.
perform carrega_log using '/PWS/ZYCBT230'
'U'
sy-tcode
sy-repid
<fs_zycbt230_aud>-nrseq_remessa.
endloop.
* << Fim da inclusão
endif.
if not itab_zycbt229_i is initial.
insert /pws/zycbt229 from table itab_zycbt229_i.
insert /pws/zycbt230 from table itab_zycbt230_i.
* >> Início da inclusão: FORM ATUALIZA_DADOS_ASSOCIACAO
loop at itab_zycbt229_i assigning <fs_zycbt229_aud>.
move-corresponding <fs_zycbt229_aud> to /pws/zycbt229.
perform carrega_log using '/PWS/ZYCBT229'
'I'
sy-tcode
sy-repid
<fs_zycbt229_aud>-nrseq_remessa.
endloop.
loop at itab_zycbt230_i assigning <fs_zycbt230_aud>.
move-corresponding <fs_zycbt230_aud> to /pws/zycbt230.
perform carrega_log using '/PWS/ZYCBT230'
'I'
sy-tcode
sy-repid
<fs_zycbt230_aud>-nrseq_remessa.
endloop.
* << Fim da inclusão
endif.
if <fs_zycbt228a>-oper = 'D' and
<fs_zycbt228a>-mark = 'X'.
* >> Início da inclusão: FORM ATUALIZA_DADOS_ASSOCIACAO
if v_operacao is initial.
loop at itab_zycbt228_aud assigning <fs_zycbt228_aud>.
concatenate <fs_zycbt228_aud>-nrinvoic
<fs_zycbt228_aud>-nrparcf
<fs_zycbt228_aud>-gsberf into v_identific.
move-corresponding <fs_zycbt228_aud> to /pws/zycbt228.
perform carrega_log using '/PWS/ZYCBT228'
'D'
sy-tcode
sy-repid
v_identific.
endloop.
endif.
* << Fim da inclusão
delete /pws/zycbt228 from table itab_zycbt228_e.
commit work.
v_erro = 'X'.
endif.
endform.
form verifica_ordem
using value(p_wa_zycbt226) like line of itab_zycbt226
changing p_excecao type c.
types
c_12(12) type c.
...
...
gsberf = <fs_zycbt209>-gsberf
nrparcf = <fs_zycbt209>-nrparcf
assigning <fs_zycbt209_at>.
if sy-subrc = 0.
<fs_zycbt209_at>-saldo = <fs_zycbt209>-saldo.
<fs_zycbt209_at>-belnr2 = <fs_zycbt209>-belnr2.
<fs_zycbt209_at>-dtbelnr = <fs_zycbt209>-dtbelnr.
endif.
endloop.
update /pws/zycbt209 from table itab_zycbt209_at.
* >> Início da inclusão: FORM ATUALIZA_DADOS_LIQ_AND
loop at itab_zycbt209_at assigning <fs_zycbt209_at>.
concatenate <fs_zycbt209_at>-nrinvoic
<fs_zycbt209_at>-nrparcf
<fs_zycbt209_at>-gsberf into v_identific.
move-corresponding <fs_zycbt209_at> to /pws/zycbt209.
perform carrega_log using '/PWS/ZYCBT209'
'U'
sy-tcode
'/PWS/SAPMZYCB031'
v_identific.
endloop.
* << Fim da inclusão
endform.
form verifica_dados
changing p_excecao type c.
data:
v_periodo type frper,
v_ano type gjahr,
v_periodo_fechado(1) type c,
v_mensagens type sy-tabix.
field-symbols:
<fs_bukrs> type bukrs,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035F03
...
wa_zycbt030-vlslliq = wa_zycbt030-vlslliq -
<fs_zycbt228>-vlr_associado.
wa_zycbt017-vlslf = wa_zycbt017-vlslf -
<fs_zycbt228>-vlr_associado.
elseif p_oper = c_eliminado.
wa_zycbt030-vlslliq = wa_zycbt030-vlslliq +
<fs_zycbt228>-vlr_associado.
wa_zycbt017-vlslf = wa_zycbt017-vlslf +
<fs_zycbt228>-vlr_associado.
endif.
* >> Início da inclusão: FORM ATUALIZA_SALDOS_SML
clear: wa_zycbt030_aud.
select single * from /pws/zycbt030
into wa_zycbt030_aud
where nrinvoic = wa_zycbt030-nrinvoic and
nrparcf = wa_zycbt030-nrparcf and
gsberf = wa_zycbt030-gsberf.
* << Fim da inclusão
update /pws/zycbt030
set vlslliq = wa_zycbt030-vlslliq
where nrinvoic = wa_zycbt030-nrinvoic
and nrparcf = wa_zycbt030-nrparcf
and gsberf = wa_zycbt030-gsberf.
* >> Início da inclusão: FORM ATUALIZA_SALDOS_SML
if sy-subrc eq 0.
concatenate wa_zycbt030-nrinvoic
wa_zycbt030-nrparcf
wa_zycbt030-gsberf into v_identific.
move-corresponding wa_zycbt030_aud to /pws/zycbt030.
perform carrega_log using '/PWS/ZYCBT030'
'U'
sy-tcode
'/PWS/SAPMZYCB005'
v_identific.
endif.
* << Fim da inclusão
update /pws/zycbt017
set vlslf = wa_zycbt017-vlslf
where nrinvoic = wa_zycbt017-nrinvoic
and nrparcf = wa_zycbt017-nrparcf
and gsberf = wa_zycbt017-gsberf.
* >> Início da inclusão: FORM ATUALIZA_SALDOS_SML
if sy-subrc eq 0.
concatenate wa_zycbt017-nrinvoic
wa_zycbt017-nrparcf
wa_zycbt017-gsberf into v_identific.
move-corresponding wa_zycbt017 to /pws/zycbt017.
perform carrega_log using '/PWS/ZYCBT017'
'U'
sy-tcode
'/PWS/SAPMZYCB005'
v_identific.
endif.
* << Fim da inclusão
endloop.
endform.
form carga_paridade.
data: begin of itab_zycbt227 occurs 0.
include structure /pws/zycbt227.
data: end of itab_zycbt227.
data: begin of itab_zycbt229 occurs 0.
include structure /pws/zycbt229.
data: end of itab_zycbt229.
select * from /pws/zycbt227 into table itab_zycbt227. "#EC CI_NOWHERE
...
...
loop at itab_zycbt227 where not parid > 0.
itab_zycbt227-parid = 1.
itab_zycbt227-vlr_assoc_fat = itab_zycbt227-vlr_associado.
update /pws/zycbt227 set parid = itab_zycbt227-parid
vlr_assoc_fat = itab_zycbt227-vlr_assoc_fat
where nrseq = itab_zycbt227-nrseq
and nrinvoic = itab_zycbt227-nrinvoic
and nrparcf = itab_zycbt227-nrparcf
and gsberf = itab_zycbt227-gsberf
and dtassoc = itab_zycbt227-dtassoc.
* >> Início da inclusão: FORM CARGA_PARIDADE
if sy-subrc eq 0.
concatenate itab_zycbt227-nrinvoic
itab_zycbt227-nrparcf
itab_zycbt227-gsberf into v_identific.
move-corresponding itab_zycbt227 to /pws/zycbt227.
perform carrega_log using '/PWS/ZYCBT227'
'U'
sy-tcode
sy-repid
v_identific.
endif.
* << Fim da inclusão
endloop.
loop at itab_zycbt229 where not parid > 0.
itab_zycbt229-parid = 1.
itab_zycbt229-vlr_assoc_fat = itab_zycbt229-vlr_associado.
update /pws/zycbt229 set parid = itab_zycbt229-parid
vlr_assoc_fat = itab_zycbt229-vlr_assoc_fat
where nrseq = itab_zycbt229-nrseq
and nrseq_remessa = itab_zycbt229-nrseq_remessa
and dtassoc = itab_zycbt229-dtassoc.
* >> Início da inclusão: FORM CARGA_PARIDADE
if sy-subrc eq 0.
move-corresponding itab_zycbt229 to /pws/zycbt229.
perform carrega_log using '/PWS/ZYCBT229'
'U'
sy-tcode
sy-repid
itab_zycbt229-nrseq_remessa.
endif.
* << Fim da inclusão
endloop.
commit work.
endform.
form busca_valor_mi using p_bukrs
p_belnr
p_data
p_valor_me
p_moeda
changing p_valor_mi.
field-symbols:
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035TOP
...
types:
end of t_s_zycbt241,
t_t_zycbt241 type standard table of t_s_zycbt241
with non-unique default key,
t_t_dynpread type standard table of dynpread
with non-unique default key.
tables:
/pws/zycbe227a,
/pws/zycbe228a,
/pws/zycbe229a,
* >> Início da exclusão:
bkpf.
* << Fim da exclusão
* >> Início da inclusão:
bkpf,
/pws/zycbt030,
/pws/zycbt017,
/pws/zycbt124,
/pws/zycbt209,
/pws/zycbt226,
/pws/zycbt227,
/pws/zycbt228,
/pws/zycbt229,
/pws/zycbt230,
/pws/zycbt238,
/pws/zycbt241.
* << Fim da inclusão
data:
btn_embarque(1) type c value 'X',
btn_remessa(1) type c value space,
v_nr_ordem type string,
ok_code type sy-ucomm.
data: v_erro(1) type c.
controls:
tc_ordens type tableview using screen 0102.
data:
itab_tabstrip type t_t_tabstrip,
...
...
wa_tabstrip like line of itab_tabstrip. "#EC NEEDED
data: v_decimais_f type tcurx-currdec,
v_decimais_o type tcurx-currdec,
v_defator type tcurf-ffact,
v_parafator type tcurf-tfact,
v_moeda_assoc type /pws/zycbt227-waers.
data: begin of itab_zyglt316 occurs 0.
include structure /pws/zyglt316.
data: end of itab_zyglt316.
field-symbols: <fs_zycbt034> like line of itab_zycbt034.
* >> Início da inclusão:
data: v_identific(25) type c,
v_operacao(1) type c,
wa_zycbt030_aud type /pws/zycbt030.
data: itab_zycbt227_aud like itab_zycbt227,
itab_zycbt228_aud like itab_zycbt228,
itab_zycbt229_aud like itab_zycbt229,
itab_zycbt230_aud like itab_zycbt230.
field-symbols: <fs_zycbt227_aud> like line of itab_zycbt227,
<fs_zycbt228_aud> like line of itab_zycbt228,
<fs_zycbt229_aud> like line of itab_zycbt229,
<fs_zycbt230_aud> like line of itab_zycbt230,
<fs_disp_aud> type t_s_disponibilidade,
<fs_zycbt241_aud> type t_s_zycbt241.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCB035
INCLUDE:
/pws/mzycb035top,
/pws/mzycb035o01,
/pws/mzycb035i01,
/pws/mzycb035f01,
/pws/mzycb035f02,
/pws/mzycb035f03.
* >> Início da inclusão:
include /pws/zygllog.
* << Fim da inclusão