CE PLUS - Nota 011665
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Valores Mantidos no Exterior
Data/Hora da Publicação: 24/11/2011 15:11:49
Data/Hora Última Alteração: 24/11/2011 15:11:49
Descrição da Nota: VALORES MANTIDOS NO EXTERIOR - VME - SML - TRILHA AUDITORIA
Sintoma
Valores Mantidos no Exterior - VME - SML - Trilha Auditoria
Solução
Valores Mantidos no Exterior - VME - SML - Trilha Auditoria
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11665 Data: 23/11/2011 Hora: 17:02:12
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11665
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
07931 - 00001 - 7.0 - 00008 - DA - SISTEMA DE PAGAMENTOS EM MOEDA LOCAL E ASSOCIAÇÃO(SML)
09369 - 00002 - 8.0 - 00001 - VALORES MANTIDOS NO EXTERIOR , SISTEMA DE MOEDA LOCAL -AJUDA DE P
10852 - 00003 - 8.0 - 00006 - VALORES MANTIDOS NO EXTERIOR - PROBLEMA NAS MSGS AO EFETUAR CG
11065 - 00004 - 8.0 - 00007 - VALORES MANTIDOS NO EXTERIOR
11151 - 00005 - 8.0 - 00007 - COMISSÃO AGENTE
11168 - 00006 - 8.0 - 00007 - VME - DISPONIBILIDADE FATURAS - VINCULAÇÃO - BLOQUEIO DE FATURAS
11203 - 00007 - 8.0 - 00007 - SML - ESTORNO DE VÁRIAS FATURAS E RAZÃO ESPECIAL DE PAGAMENTO ANT
11506 - 00008 - 8.0 - 00009 - TRILHA DE AUDITORIA
----------------------------------------------------------------------------------------------------
VALORES MANTIDOS NO EXTERIOR - VME - SML - TRILHA AUDITORIA
----------------------------------------------------------------------------------------------------
Palavras Chave:
VALORES MANTIDOS NO EXTERIOR - VME - SML - TRILHA AUDITORIA
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCB034
REPS /PWS/MZYCB034F01
REPS /PWS/MZYCB034TOP
REPS /PWS/SAPMZYCB034
REPT /PWS/SAPMZYCB034
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCB034
Alterar STATUS-GUI 0100
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/MZYCB034F01
...
preenche_itab_status_exc 'SEL_DEVOL'.
endif.
endif.
END-OF-DEFINITION.
TYPES: BEGIN OF t_s_status_exc,
fcode TYPE rsmpe-func,
END OF t_s_status_exc,
t_t_status_exc TYPE TABLE OF t_s_status_exc WITH DEFAULT KEY.
DATA: wa_status_exc TYPE t_s_status_exc,
itab_status_exc TYPE t_t_status_exc.
* >> Início da inclusão: FORM STATUS_GUI
data: v_trilha_auditoria type /pws/zyglt009-trilha_auditoria.
* << Fim da inclusão
DEFINE preenche_itab_status_exc.
wa_status_exc-fcode = &1.
append wa_status_exc to itab_status_exc.
END-OF-DEFINITION.
CASE sy-dynnr.
WHEN '0002'.
SET PF-STATUS '0001' EXCLUDING 'SPOS'.
IF sy-tcode = c_transacao_c.
SET TITLEBAR '0100' WITH '- '(020) 'Criar'(015).
ELSEIF sy-tcode = c_trans_sml_c.
...
...
WHEN c_transacao_c
OR c_trans_sml_c.
preenche_itab_status_exc 'AEND'.
preenche_itab_status_exc 'ESTORNO'.
preenche_itab_status_exc 'NOOP'.
preenche_itab_status_exc 'MOVE_DATA'.
preenche_itab_status_exc 'SEL_DEVOL'.
IF opt_origem_embarque IS INITIAL.
preenche_itab_status_exc 'SELE'.
ENDIF.
* >> Início da inclusão: FORM STATUS_GUI
preenche_itab_status_exc 'LOG_TRILHA'.
* << Fim da inclusão
WHEN c_transacao_a
OR c_trans_sml_a.
verifica_devolucao.
preenche_itab_status_exc 'AEND'.
IF sy-ucomm EQ 'MOVE_DATA' OR
sy-ucomm EQ 'P-' OR
sy-ucomm EQ 'P+' .
ELSE.
preenche_itab_status_exc 'RECEB_TOT'.
ENDIF.
preenche_itab_status_exc 'SELE'.
* >> Início da inclusão: FORM 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.
preenche_itab_status_exc 'LOG_TRILHA'.
endif.
* << Fim da inclusão
WHEN c_transacao_e
OR c_trans_sml_e.
verifica_devolucao.
preenche_itab_status_exc 'RECEB_TOT'.
preenche_itab_status_exc 'MOVE_DATA'.
preenche_itab_status_exc 'ESTORNO'.
preenche_itab_status_exc 'NOOP'.
preenche_itab_status_exc 'MARK'.
preenche_itab_status_exc 'UNMARK'.
preenche_itab_status_exc 'DEL_LINE'.
preenche_itab_status_exc 'SAVE'.
preenche_itab_status_exc 'SELE'.
* >> Início da inclusão: FORM 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.
preenche_itab_status_exc 'LOG_TRILHA'.
endif.
* << Fim da inclusão
ENDCASE.
SET PF-STATUS '0100' EXCLUDING itab_status_exc.
define_titulo.
WHEN '0200'.
CASE sy-tcode.
WHEN c_transacao_e
OR c_trans_sml_e.
preenche_itab_status_exc 'NOVO'.
preenche_itab_status_exc 'SALVAR'.
preenche_itab_status_exc 'ELIMINAR'.
...
...
ENDIF.
WHEN 'TAB100_00'.
IF itab_disp_00[] IS INITIAL.
ts_principal-activetab = wa_controle-ts_atual.
ELSE.
ts_principal-activetab = ok_code.
ENDIF.
WHEN 'SELE'.
SET SCREEN '0201'.
LEAVE TO SCREEN '0201'.
* >> Início da inclusão: FORM USER_COMMAND_0100
when 'LOG_TRILHA'.
read table itab_zycbt226 into wa_zycbt226 with key mark = 'X'.
if sy-subrc = 0.
perform log_trilha using sy-repid
wa_zycbt226-nrseq
' '.
elseif sy-subrc ne 0.
message i061 with text-m55.
endif.
* << Fim da inclusão
WHEN OTHERS.
IF ok_code(6) EQ 'TAB100'.
ts_principal-activetab = ok_code.
ELSEIF ok_code(6) EQ 'TAB130'.
ts_70-activetab = ok_code.
ENDIF.
ENDCASE.
ENDFORM.
FORM seleciona_parametros.
IF wa_controle-parametros_carregados IS INITIAL.
...
...
ENDIF.
IF wa_zycbt030-vlsltrans < 0.
v_wrbtr = wa_zycbt030-vlsltrans * ( -1 ).
CLEAR wa_zycbt030-vlsltrans.
ENDIF.
UPDATE /pws/zycbt030
SET vlsltrans = wa_zycbt030-vlsltrans
WHERE nrinvoic = wa_zycbt030-nrinvoic
AND nrparcf = wa_zycbt030-nrparcf
AND gsberf = wa_zycbt030-gsberf.
* >> Início da inclusão: FORM DOC_OP
concatenate wa_zycbt030-nrinvoic
wa_zycbt030-nrparcf
wa_zycbt030-gsberf into v_identific.
if sy-subrc eq 0.
move-corresponding wa_zycbt030 to /pws/zycbt030.
perform carrega_log using '/PWS/ZYCBT030'
'U'
sy-tcode
'/PWS/SAPMZYCB005'
v_identific.
endif.
* << Fim da inclusão
ENDIF.
ENDIF.
* >> Início da inclusão: FORM DOC_OP
clear: wa_zycbt226_aud.
select single * from /pws/zycbt226
into wa_zycbt226_aud
where nrseq = <fs_op>-nrseq.
* << Fim da inclusão
IF <fs_op>-tipo_op = 'P'.
<fs_op>-status = 'C'.
ENDIF.
MOVE-CORRESPONDING <fs_op> TO wa_tab_op.
MODIFY /pws/zycbt226 FROM wa_tab_op.
* >> Início da inclusão: FORM DOC_OP
if not wa_zycbt226_aud is initial.
v_operacao = 'U'.
else.
v_operacao = 'I'.
endif.
move-corresponding wa_tab_op to /pws/zycbt226.
perform carrega_log using '/PWS/ZYCBT226'
v_operacao
sy-tcode
sy-repid
wa_tab_op-nrseq.
* << Fim da inclusão
ELSE.
<fs_op>-belnr_op = wa_zycbt032-belnr.
IF <fs_op>-tipo_op = 'E'.
<fs_op>-status = 'I'.
ELSEIF <fs_op>-tipo_op = 'P'.
<fs_op>-status = 'C'.
ENDIF.
UPDATE /pws/zycbt226
SET belnr_op = <fs_op>-belnr_op
status = <fs_op>-status
WHERE nrseq = <fs_op>-nrseq
AND nrinvoic = <fs_op>-nrinvoic
AND nrparcf = <fs_op>-nrparcf
AND gsberf = <fs_op>-gsberf.
* >> Início da inclusão: FORM DOC_OP
if sy-subrc eq 0.
move-corresponding <fs_op> to /pws/zycbt226.
perform carrega_log using '/PWS/ZYCBT226'
'U'
sy-tcode
sy-repid
<fs_op>-nrseq.
endif.
* << Fim da inclusão
ENDIF.
PERFORM message_store
USING '/PWS/ZYCBM'
'I'
v_titulo
'-'
<fs_op>-nrseq
space
'061'.
PERFORM message_store
...
...
<fs_op>-destino NE wa_anterior-destino.
UPDATE /pws/zycbt226
SET bco_recebedor = <fs_op>-bco_recebedor
ref_op = <fs_op>-ref_op
obs = <fs_op>-obs
destino = <fs_op>-destino
WHERE nrseq = <fs_op>-nrseq
AND nrinvoic = <fs_op>-nrinvoic
AND nrparcf = <fs_op>-nrparcf
AND gsberf = <fs_op>-gsberf.
* >> Início da inclusão: FORM ATUALIZA_DADOS_OP
if sy-subrc eq 0.
move-corresponding <fs_op> to /pws/zycbt226.
perform carrega_log using '/PWS/ZYCBT226'
'U'
sy-tcode
sy-repid
<fs_op>-nrseq.
endif.
* << Fim da inclusão
PERFORM message_store USING '/PWS/ZYCBM'
'I'
space
space
space
space
'008'.
ENDIF.
ENDIF.
ENDFORM.
...
...
<fs_zycbt030>-budat_t = <fs_zycbt030>-budat.
ENDIF.
UPDATE /pws/zycbt030
SET belnr6 = <fs_zycbt030>-belnr6
budat = <fs_zycbt030>-budat
belnr_t = <fs_zycbt030>-belnr_t
budat_t = <fs_zycbt030>-budat_t
WHERE nrinvoic = <fs_zycbt030>-nrinvoic
AND nrparcf = <fs_zycbt030>-nrparcf
AND gsberf = <fs_zycbt030>-gsberf.
* >> Início da inclusão: FORM DOC_DESM_CLIENTE
concatenate <fs_zycbt030>-nrinvoic
<fs_zycbt030>-nrparcf
<fs_zycbt030>-gsberf into v_identific.
if sy-subrc eq 0.
move-corresponding <fs_zycbt030> to /pws/zycbt030.
perform carrega_log using '/PWS/ZYCBT030'
'U'
sy-tcode
'/PWS/SAPMZYCB005'
v_identific.
endif.
* << Fim da inclusão
<fs_op>-belnr_desm_cli = wa_zycbt032-belnr.
UPDATE /pws/zycbt226
SET belnr_desm_cli = <fs_op>-belnr_desm_cli
WHERE nrseq = <fs_op>-nrseq
AND nrinvoic = <fs_op>-nrinvoic
AND nrparcf = <fs_op>-nrparcf
AND gsberf = <fs_op>-gsberf.
* >> Início da inclusão: FORM DOC_DESM_CLIENTE
if sy-subrc eq 0.
move-corresponding <fs_op> to /pws/zycbt226.
perform carrega_log using '/PWS/ZYCBT226'
'U'
sy-tcode
sy-repid
<fs_op>-nrseq.
endif.
* << Fim da inclusão
PERFORM message_store
USING wa_zycbt032-msgid
wa_zycbt032-tpmsg
wa_zycbt032-msgv1
wa_zycbt032-msgv2
wa_zycbt032-msgv3
wa_zycbt032-msgv4
wa_zycbt032-nrmsg.
ELSE.
LOOP AT itab_zycbt032 INTO wa_zycbt032
...
...
UPDATE /pws/zycbt209
SET saldo = <fs_zycbt209>-saldo
belnr2 = <fs_zycbt209>-belnr2
dtbelnr = <fs_zycbt209>-dtbelnr
WHERE bukrs = <fs_zycbt209>-bukrs
AND nrinvoic = <fs_zycbt209>-nrinvoic
AND belnr = <fs_zycbt209>-belnr
AND dtincl = <fs_zycbt209>-dtincl
AND gsberf = <fs_zycbt209>-gsberf
AND nrparcf = <fs_zycbt209>-nrparcf.
* >> Início da inclusão: FORM DOC_DESM_LIQ_AND
concatenate <fs_zycbt209>-nrinvoic
<fs_zycbt209>-nrparcf
<fs_zycbt209>-gsberf into v_identific.
if sy-subrc eq 0.
move-corresponding <fs_zycbt209> to /pws/zycbt209.
perform carrega_log using '/PWS/ZYCBT209'
'U'
sy-tcode
'/PWS/SAPMZYCB031'
v_identific.
endif.
* << Fim da inclusão
wa_zycbt225-nrseq = <fs_op>-nrseq.
wa_zycbt225-bukrs = <fs_zycbt209>-bukrs.
wa_zycbt225-nrinvoic = <fs_zycbt209>-nrinvoic.
wa_zycbt225-belnr = <fs_zycbt209>-belnr.
wa_zycbt225-dtincl = <fs_zycbt209>-dtincl.
wa_zycbt225-gsberf = <fs_zycbt209>-gsberf.
wa_zycbt225-nrparcf = <fs_zycbt209>-nrparcf.
wa_zycbt225-belnr_desmliqand = wa_zycbt032-belnr.
wa_zycbt225-vlme = wa_zycbt036-residuo.
MODIFY TABLE itab_zycbt225 FROM wa_zycbt225.
IF sy-subrc NE 0.
APPEND wa_zycbt225 TO itab_zycbt225.
ENDIF.
* >> Início da inclusão: FORM DOC_DESM_LIQ_AND
clear: wa_zycbt225_aud.
select single * from /pws/zycbt225
into wa_zycbt225_aud
where nrseq = wa_zycbt225-nrseq
and bukrs = wa_zycbt225-bukrs
and nrinvoic = wa_zycbt225-nrinvoic
and belnr = wa_zycbt225-belnr
and dtincl = wa_zycbt225-dtincl.
* << Fim da inclusão
MODIFY /pws/zycbt225 FROM wa_zycbt225.
* >> Início da inclusão: FORM DOC_DESM_LIQ_AND
if not wa_zycbt225_aud is initial.
v_operacao = 'U'.
else.
v_operacao = 'I'.
endif.
move-corresponding wa_zycbt225 to /pws/zycbt225.
perform carrega_log using '/PWS/ZYCBT225'
v_operacao
sy-tcode
sy-repid
wa_zycbt225-nrseq.
* << Fim da inclusão
IF v_ultimo = 'X'.
<fs_op>-belnr_desmliqand = wa_zycbt032-belnr.
UPDATE /pws/zycbt226
SET belnr_desmliqand = <fs_op>-belnr_desmliqand
WHERE nrseq = <fs_op>-nrseq
AND nrinvoic = <fs_op>-nrinvoic
AND nrparcf = <fs_op>-nrparcf
AND gsberf = <fs_op>-gsberf.
* >> Início da inclusão: FORM DOC_DESM_LIQ_AND
if sy-subrc eq 0.
move-corresponding <fs_op> to /pws/zycbt226.
perform carrega_log using '/PWS/ZYCBT226'
'U'
sy-tcode
sy-repid
<fs_op>-nrseq.
endif.
* << Fim da inclusão
ENDIF.
PERFORM message_store
USING wa_zycbt032-msgid
wa_zycbt032-tpmsg
wa_zycbt032-msgv1
wa_zycbt032-msgv2
wa_zycbt032-msgv3
wa_zycbt032-msgv4
wa_zycbt032-nrmsg.
ELSE.
...
...
IF sy-subrc EQ 0.
<fs_op>-belnr_compens = wa_zycbt032-belnr.
<fs_op>-status = 'C'.
UPDATE /pws/zycbt226
SET belnr_compens = <fs_op>-belnr_compens
status = <fs_op>-status
WHERE nrseq = <fs_op>-nrseq
AND nrinvoic = <fs_op>-nrinvoic
AND nrparcf = <fs_op>-nrparcf
AND gsberf = <fs_op>-gsberf.
* >> Início da inclusão: FORM DOC_COMPENSACAO
if sy-subrc eq 0.
move-corresponding <fs_op> to /pws/zycbt226.
perform carrega_log using '/PWS/ZYCBT226'
'U'
sy-tcode
sy-repid
<fs_op>-nrseq.
endif.
* << Fim da inclusão
PERFORM message_store
USING wa_zycbt032-msgid
wa_zycbt032-tpmsg
wa_zycbt032-msgv1
wa_zycbt032-msgv2
wa_zycbt032-msgv3
wa_zycbt032-msgv4
wa_zycbt032-nrmsg.
ELSE.
LOOP AT itab_zycbt032 INTO wa_zycbt032
...
...
AND nrparcf = p_zycbt225-nrparcf.
ENDCASE.
ENDFORM.
FORM apaga_registros.
DATA v_nrseq_op TYPE /pws/zycbt226-nrseq.
CHECK <fs_op>-belnr_op IS INITIAL AND
<fs_op>-belnr_desm_cli IS INITIAL AND
<fs_op>-belnr_desmliqand IS INITIAL AND
<fs_op>-belnr_compens IS INITIAL.
v_nrseq_op = <fs_op>-nrseq.
* >> Início da inclusão: FORM APAGA_REGISTROS
clear: wa_zycbt226_aud,
itab_zycbt225_aud,
itab_zycbt209_aud,
itab_zycbt030_aud.
refresh: itab_zycbt225_aud,
itab_zycbt209_aud,
itab_zycbt030_aud.
select * from /pws/zycbt209
into table itab_zycbt209_aud
for all entries in itab_zycbt209
where bukrs = itab_zycbt209-bukrs
and nrinvoic = itab_zycbt209-nrinvoic
and belnr = itab_zycbt209-belnr
and dtincl = itab_zycbt209-dtincl.
select * from /pws/zycbt030
into table itab_zycbt030_aud
for all entries in itab_zycbt030
where nrinvoic = itab_zycbt030-nrinvoic
and nrparcf = itab_zycbt030-nrparcf
and vbeln = itab_zycbt030-vbeln
and gsberf = itab_zycbt030-gsberf.
select single * from /pws/zycbt226
into wa_zycbt226_aud
where nrseq = v_nrseq_op.
select * from /pws/zycbt225
into table itab_zycbt225_aud
where nrseq = v_nrseq_op.
* << Fim da inclusão
MODIFY /pws/zycbt209 FROM TABLE itab_zycbt209.
PERFORM atualiza_saldos_sml USING 'X'.
MODIFY /pws/zycbt030 FROM TABLE itab_zycbt030.
* >> Início da inclusão: FORM APAGA_REGISTROS
loop at itab_zycbt209 into wa_zycbt209_aud.
read table itab_zycbt209_aud with key
bukrs = wa_zycbt209_aud-bukrs
nrinvoic = wa_zycbt209_aud-nrinvoic
belnr = wa_zycbt209_aud-belnr
dtincl = wa_zycbt209_aud-dtincl.
concatenate wa_zycbt209_aud-nrinvoic
wa_zycbt209_aud-nrparcf
wa_zycbt209_aud-gsberf into v_identific.
if sy-subrc eq 0.
v_operacao = 'U'.
else.
v_operacao = 'I'.
endif.
move-corresponding wa_zycbt209_aud to /pws/zycbt209.
perform carrega_log using '/PWS/ZYCBT209'
v_operacao
sy-tcode
'/PWS/SAPMZYCB031'
v_identific.
endloop.
loop at itab_zycbt030 into wa_zycbt030_aud.
read table itab_zycbt030_aud with key
nrinvoic = wa_zycbt030_aud-nrinvoic
nrparcf = wa_zycbt030_aud-nrparcf
vbeln = wa_zycbt030_aud-vbeln
gsberf = wa_zycbt030_aud-gsberf.
concatenate wa_zycbt030_aud-nrinvoic
wa_zycbt030_aud-nrparcf
wa_zycbt030_aud-gsberf into v_identific.
if sy-subrc eq 0.
v_operacao = 'U'.
else.
v_operacao = 'I'.
endif.
move-corresponding wa_zycbt030_aud to /pws/zycbt030.
perform carrega_log using '/PWS/ZYCBT030'
v_operacao
sy-tcode
'/PWS/SAPMZYCB005'
v_identific.
endloop.
if not wa_zycbt226_aud is initial.
move-corresponding wa_zycbt226_aud to /pws/zycbt226.
perform carrega_log using '/PWS/ZYCBT226'
'D'
sy-tcode
sy-repid
v_nrseq_op.
endif.
loop at itab_zycbt225_aud into /pws/zycbt225.
concatenate /pws/zycbt225-nrinvoic
/pws/zycbt225-nrparcf
/pws/zycbt225-gsberf into v_identific.
perform carrega_log using '/PWS/ZYCBT225'
'D'
sy-tcode
sy-repid
v_identific.
endloop.
* << Fim da inclusão
DELETE itab_zycbt226 WHERE nrseq = v_nrseq_op.
DELETE FROM /pws/zycbt226 WHERE nrseq = v_nrseq_op.
DELETE itab_zycbt225 WHERE nrseq = v_nrseq_op.
DELETE FROM /pws/zycbt225 WHERE nrseq = v_nrseq_op.
ENDFORM.
FORM f02_reversa
CHANGING p_belnr_est_f02 TYPE /pws/zycbt226-belnr_op
p_dtlancto_est_f02 TYPE /pws/zycbt226-dtlancto.
DATA: wa_zycbt032 TYPE t_s_zycbt032,
wa_zycbe033 TYPE t_s_zycbe033,
...
...
ENDCASE.
ENDFORM.
FORM salvar_dados_disp
CHANGING p_disp TYPE t_disponibilidade.
DATA:
v_msg TYPE t_mensagem-msg.
CHECK NOT p_disp-operacao IS INITIAL.
CASE p_disp-operacao.
WHEN c_novo.
INSERT INTO /pws/zycbt238 VALUES p_disp.
* >> Início da inclusão: FORM SALVAR_DADOS_DISP
if sy-subrc eq 0.
move-corresponding p_disp to /pws/zycbt238.
perform carrega_log using '/PWS/ZYCBT238'
'I'
sy-tcode
sy-repid
p_disp-nrseq.
endif.
* << Fim da inclusão
WHEN c_alterado.
UPDATE /pws/zycbt238 FROM p_disp.
* >> Início da inclusão: FORM SALVAR_DADOS_DISP
if sy-subrc eq 0.
move-corresponding p_disp to /pws/zycbt238.
perform carrega_log using '/PWS/ZYCBT238'
'U'
sy-tcode
sy-repid
p_disp-nrseq.
endif.
* << Fim da inclusão
WHEN c_excluido.
* >> Início da inclusão: FORM SALVAR_DADOS_DISP
clear: wa_zycbt238_aud.
select single * from /pws/zycbt238
into wa_zycbt238_aud
where nrseq = p_disp-nrseq
and destino = p_disp-destino
and dtdisp = p_disp-dtdisp.
if not wa_zycbt238_aud is initial.
move-corresponding wa_zycbt238_aud to /pws/zycbt238.
perform carrega_log using '/PWS/ZYCBT238'
'D'
sy-tcode
sy-repid
wa_zycbt238_aud-nrseq.
endif.
* << Fim da inclusão
DELETE FROM /pws/zycbt238
WHERE nrseq = p_disp-nrseq
AND destino = p_disp-destino
AND dtdisp = p_disp-dtdisp.
ENDCASE.
SHIFT v_msg LEFT DELETING LEADING '0'.
IF sy-subrc EQ 0.
CASE p_disp-operacao.
WHEN c_novo.
APPEND p_disp TO itab_disp_ant.
...
...
ENDFORM.
FORM salvar_dados_contrato
CHANGING p_contrato TYPE t_contrato.
DATA:
v_msg TYPE t_mensagem-msg,
v_msg2 TYPE t_mensagem-msg.
CHECK NOT p_contrato-operacao IS INITIAL.
CASE p_contrato-operacao.
WHEN c_novo.
INSERT INTO /pws/zycbt239 VALUES p_contrato.
* >> Início da inclusão: FORM SALVAR_DADOS_CONTRATO
if sy-subrc eq 0.
move-corresponding p_contrato to /pws/zycbt239.
perform carrega_log using '/PWS/ZYCBT239'
'I'
sy-tcode
sy-repid
p_contrato-nrseq.
endif.
* << Fim da inclusão
WHEN c_alterado.
UPDATE /pws/zycbt239 FROM p_contrato.
* >> Início da inclusão: FORM SALVAR_DADOS_CONTRATO
if sy-subrc eq 0.
move-corresponding p_contrato to /pws/zycbt239.
perform carrega_log using '/PWS/ZYCBT239'
'U'
sy-tcode
sy-repid
p_contrato-nrseq.
endif.
* << Fim da inclusão
WHEN c_excluido.
* >> Início da inclusão: FORM SALVAR_DADOS_CONTRATO
clear: wa_zycbt239_aud.
select single * from /pws/zycbt239
into wa_zycbt239_aud
where nrseq = p_contrato-nrseq
and destino = p_contrato-destino
and dtdisp = p_contrato-dtdisp.
if not wa_zycbt239_aud is initial.
move-corresponding wa_zycbt239_aud to /pws/zycbt239.
perform carrega_log using '/PWS/ZYCBT239'
'D'
sy-tcode
sy-repid
wa_zycbt239_aud-nrseq.
endif.
* << Fim da inclusão
DELETE FROM /pws/zycbt239
WHERE nrseq = p_contrato-nrseq
AND destino = p_contrato-destino
AND dtdisp = p_contrato-dtdisp. "#EC CI_NOFIRST
ENDCASE.
IF sy-subrc EQ 0.
CASE p_contrato-operacao.
WHEN c_novo.
APPEND p_contrato TO itab_contrato_ant.
v_msg = p_contrato-nrseq.
...
...
<fs_zycbt017>-vlslf =
<fs_zycbt017>-vlslf - p_disp-vldisp.
ENDCASE.
UPDATE /pws/zycbt017
SET vlslf = <fs_zycbt017>-vlslf
fvinc = <fs_zycbt017>-fvinc
WHERE nrinvoic = <fs_zycbt017>-nrinvoic
AND nrparcf = <fs_zycbt017>-nrparcf
AND gsberf = <fs_zycbt017>-gsberf.
COMMIT WORK .
* >> Início da inclusão: FORM ATUALIZA_SALDO_ZYCBT017
concatenate <fs_zycbt017>-nrinvoic
<fs_zycbt017>-nrparcf
<fs_zycbt017>-gsberf into v_identific.
if sy-subrc eq 0.
move-corresponding <fs_zycbt017> to /pws/zycbt017.
perform carrega_log using '/PWS/ZYCBT017'
'U'
sy-tcode
'/PWS/SAPMZYCB005'
v_identific.
endif.
* << Fim da inclusão
WHEN c_pagamento_antecipado.
LOOP AT itab_zycbt227 INTO wa_zycbt227
WHERE nrseq = <fs_op>-nrseq.
READ TABLE itab_zycbt017 ASSIGNING <fs_zycbt017>
WITH KEY nrinvoic = wa_zycbt227-nrinvoic
nrparcf = wa_zycbt227-nrparcf
gsberf = wa_zycbt227-gsberf.
CHECK <fs_zycbt017> IS ASSIGNED.
CASE p_disp-operacao.
WHEN c_excluido.
...
...
ELSE.
<fs_zycbt017>-vlslf =
<fs_zycbt017>-vlslf - wa_zycbt227-saldo.
ENDIF.
ENDCASE.
UPDATE /pws/zycbt017
SET vlslf = <fs_zycbt017>-vlslf
WHERE nrinvoic = <fs_zycbt017>-nrinvoic
AND nrparcf = <fs_zycbt017>-nrparcf
AND gsberf = <fs_zycbt017>-gsberf.
* >> Início da inclusão: FORM ATUALIZA_SALDO_ZYCBT017
concatenate <fs_zycbt017>-nrinvoic
<fs_zycbt017>-nrparcf
<fs_zycbt017>-gsberf into v_identific.
if sy-subrc eq 0.
move-corresponding <fs_zycbt017> to /pws/zycbt017.
perform carrega_log using '/PWS/ZYCBT017'
'U'
sy-tcode
'/PWS/SAPMZYCB005'
v_identific.
endif.
* << Fim da inclusão
ENDLOOP.
ENDCASE.
ENDFORM.
FORM atualiza_saldo_zycbt030
USING p_disp TYPE t_disponibilidade
p_tipo_op TYPE /pws/zycbe226-tipo_op.
DATA:
wa_disp TYPE t_disponibilidade,
wa_zycbt227 TYPE t_zycbt227.
FIELD-SYMBOLS:
...
...
WHEN c_novo.
<fs_zycbt030>-vlslliq =
<fs_zycbt030>-vlslliq - p_disp-vldisp.
ENDCASE.
UPDATE /pws/zycbt030
SET vlslliq = <fs_zycbt030>-vlslliq
WHERE nrinvoic = <fs_zycbt030>-nrinvoic
AND nrparcf = <fs_zycbt030>-nrparcf
AND gsberf = <fs_zycbt030>-gsberf
AND vbeln = <fs_zycbt030>-vbeln.
* >> Início da inclusão: FORM ATUALIZA_SALDO_ZYCBT030
concatenate <fs_zycbt030>-nrinvoic
<fs_zycbt030>-nrparcf
<fs_zycbt030>-gsberf into v_identific.
if sy-subrc eq 0.
move-corresponding <fs_zycbt030> to /pws/zycbt030.
perform carrega_log using '/PWS/ZYCBT030'
'U'
sy-tcode
'/PWS/SAPMZYCB005'
v_identific.
endif.
* << Fim da inclusão
WHEN c_pagamento_antecipado.
LOOP AT itab_zycbt227 INTO wa_zycbt227
WHERE nrseq = <fs_op>-nrseq.
READ TABLE itab_zycbt030 ASSIGNING <fs_zycbt030>
WITH KEY nrinvoic = wa_zycbt227-nrinvoic
nrparcf = wa_zycbt227-nrparcf
gsberf = wa_zycbt227-gsberf.
CHECK <fs_zycbt030> IS ASSIGNED.
CASE p_disp-operacao.
WHEN c_excluido.
...
...
<fs_zycbt030>-vlslliq =
<fs_zycbt030>-vlslliq - wa_zycbt227-saldo.
ENDIF.
ENDCASE.
UPDATE /pws/zycbt030
SET vlslliq = <fs_zycbt030>-vlslliq
WHERE nrinvoic = <fs_zycbt030>-nrinvoic
AND nrparcf = <fs_zycbt030>-nrparcf
AND gsberf = <fs_zycbt030>-gsberf
AND vbeln = <fs_zycbt030>-vbeln.
* >> Início da inclusão: FORM ATUALIZA_SALDO_ZYCBT030
concatenate <fs_zycbt030>-nrinvoic
<fs_zycbt030>-nrparcf
<fs_zycbt030>-gsberf into v_identific.
if sy-subrc eq 0.
move-corresponding <fs_zycbt030> to /pws/zycbt030.
perform carrega_log using '/PWS/ZYCBT030'
'U'
sy-tcode
'/PWS/SAPMZYCB005'
v_identific.
endif.
* << Fim da inclusão
ENDLOOP.
ENDCASE.
ENDFORM.
FORM atualiza_saldo_zycbt226
USING p_disp TYPE t_disponibilidade.
FIELD-SYMBOLS:
<fs_zycbt226> LIKE LINE OF itab_zycbt226.
CHECK NOT p_disp-operacao IS INITIAL.
READ TABLE itab_zycbt226 ASSIGNING <fs_zycbt226>
WITH KEY nrseq = p_disp-nrseq.
...
...
<fs_zycbt226>-sld_exterior + p_disp-vldisp.
WHEN c_novo.
<fs_zycbt226>-sld_exterior =
<fs_zycbt226>-sld_exterior - p_disp-vldisp.
ENDCASE.
UPDATE /pws/zycbt226
SET sld_exterior = <fs_zycbt226>-sld_exterior
belnr_op2 = <fs_zycbt226>-belnr_op2
dtlancto2 = <fs_zycbt226>-dtlancto2
WHERE nrseq = <fs_zycbt226>-nrseq.
* >> Início da inclusão: FORM ATUALIZA_SALDO_ZYCBT226
if sy-subrc eq 0.
move-corresponding <fs_zycbt226> to /pws/zycbt226.
perform carrega_log using '/PWS/ZYCBT226'
'U'
sy-tcode
sy-repid
<fs_zycbt226>-nrseq.
endif.
* << Fim da inclusão
ENDFORM.
FORM atualiza_saldo_zycbt227
USING p_disp TYPE t_disponibilidade
p_tipo_op TYPE /pws/zycbe226-tipo_op.
FIELD-SYMBOLS:
<fs_zycbt227> LIKE LINE OF itab_zycbt227.
CHECK NOT p_disp-operacao IS INITIAL.
CHECK p_tipo_op EQ c_pagamento_antecipado.
LOOP AT itab_zycbt227 ASSIGNING <fs_zycbt227>
WHERE nrseq = <fs_op>-nrseq.
...
...
CLEAR <fs_zycbt227>-saldo.
ENDIF.
ENDCASE.
UPDATE /pws/zycbt227
SET saldo = <fs_zycbt227>-saldo
WHERE nrseq = <fs_zycbt227>-nrseq
AND nrinvoic = <fs_zycbt227>-nrinvoic
AND nrparcf = <fs_zycbt227>-nrparcf
AND gsberf = <fs_zycbt227>-gsberf
AND dtassoc = <fs_zycbt227>-dtassoc.
* >> Início da inclusão: FORM ATUALIZA_SALDO_ZYCBT227
concatenate <fs_zycbt227>-nrinvoic
<fs_zycbt227>-nrparcf
<fs_zycbt227>-gsberf into v_identific.
if sy-subrc eq 0.
move-corresponding <fs_zycbt227> to /pws/zycbt227.
perform carrega_log using '/PWS/ZYCBT227'
'U'
sy-tcode
'/PWS/SAPMZYCB035'
v_identific.
endif.
* << Fim da inclusão
ENDLOOP.
ENDFORM.
FORM atualiza_tc_rendimentos
USING p_itab_rendimentos TYPE t_t_rendimentos
p_tc TYPE cxtab_control.
DATA:
wa_rend TYPE t_rendimentos.
MOVE-CORRESPONDING:
/pws/zycbe240 TO wa_rend.
MOVE:
...
...
<fs_rend> TYPE t_rendimentos.
IF v_nrseqr IS INITIAL.
SELECT MAX( nrseqr ) FROM /pws/zycbt240
INTO v_nrseqr. "#EC CI_NOWHERE
ENDIF.
LOOP AT itab_rendimentos_ant ASSIGNING <fs_rend>.
READ TABLE itab_rendimentos
WITH KEY nrseqr = <fs_rend>-nrseqr
TRANSPORTING NO FIELDS.
IF sy-subrc NE 0.
* >> Início da inclusão: FORM SALVA_RENDIMENTOS
clear: wa_zycbt240_aud.
select single * from /pws/zycbt240
into wa_zycbt240_aud
where nrseqr = <fs_rend>-nrseqr.
if not wa_zycbt240_aud is initial.
move-corresponding wa_zycbt240_aud to /pws/zycbt240.
perform carrega_log using '/PWS/ZYCBT240'
'D'
sy-tcode
sy-repid
<fs_rend>-nrseqr.
endif.
* << Fim da inclusão
DELETE FROM /pws/zycbt240 WHERE nrseqr = <fs_rend>-nrseqr.
DELETE itab_rendimentos_ant WHERE nrseqr = <fs_rend>-nrseqr.
ENDIF.
ENDLOOP.
LOOP AT itab_rendimentos ASSIGNING <fs_rend>.
IF <fs_rend>-nrseqr IS INITIAL.
v_nrseqr = v_nrseqr + 1.
<fs_rend>-nrseqr = v_nrseqr.
ENDIF.
READ TABLE itab_rendimentos_ant
WITH KEY nrseqr = <fs_rend>-nrseqr
TRANSPORTING NO FIELDS.
IF sy-subrc NE 0.
INSERT INTO /pws/zycbt240 VALUES <fs_rend>.
* >> Início da inclusão: FORM SALVA_RENDIMENTOS
if sy-subrc eq 0.
move-corresponding <fs_rend> to /pws/zycbt240.
perform carrega_log using '/PWS/ZYCBT240'
'I'
sy-tcode
sy-repid
<fs_rend>-nrseqr.
endif.
* << Fim da inclusão
ENDIF.
ENDLOOP.
* >> Início da inclusão: FORM SALVA_RENDIMENTOS
clear: itab_zycbt240_aud.
refresh: itab_zycbt240_aud.
select * from /pws/zycbt240
into table itab_zycbt240_aud
where nrseqr <> space.
* << Fim da inclusão
IF sy-subrc NE 0 AND sy-tcode NE c_transacao_c
AND sy-tcode NE c_trans_sml_c.
* >> Início da inclusão: FORM SALVA_RENDIMENTOS
loop at itab_zycbt240_aud into /pws/zycbt240.
read table itab_rendimentos with key
nrseqr = itab_zycbt240_aud-nrseqr
transporting no fields.
if sy-subrc ne 0.
move-corresponding itab_zycbt240_aud to /pws/zycbt240.
perform carrega_log using '/PWS/ZYCBT240'
'D'
sy-tcode
sy-repid
itab_zycbt240_aud-nrseqr.
endif.
endloop.
* << Fim da inclusão
DELETE FROM /pws/zycbt240 WHERE nrseqr <> space. "#EC CI_NOFIELD
REFRESH itab_rendimentos_ant.
ENDIF.
MODIFY /pws/zycbt240 FROM TABLE itab_rendimentos.
* >> Início da inclusão: FORM SALVA_RENDIMENTOS
loop at itab_rendimentos assigning <fs_rend>.
read table itab_zycbt240_aud with key nrseqr = <fs_rend>-nrseqr.
if sy-subrc eq 0.
v_operacao = 'U'.
else.
v_operacao = 'I'.
endif.
move-corresponding <fs_rend> to /pws/zycbt240.
perform carrega_log using '/PWS/ZYCBT240'
v_operacao
sy-tcode
sy-repid
<fs_rend>-nrseqr.
endloop.
* << Fim da inclusão
ENDFORM.
FORM user_command_0140.
CASE ok_code.
WHEN 'MARK'.
PERFORM preenche_campo_itab
USING 'MARK'
'X'
CHANGING itab_rendimentos.
WHEN 'UNMARK'.
PERFORM preenche_campo_itab
...
...
CHECK NOT p_devolucao-belnr_comp IS INITIAL.
PERFORM salvar_dados_devolucao
CHANGING p_devolucao.
CLEAR:
p_devolucao-operacao.
ENDFORM.
FORM salvar_dados_devolucao
CHANGING p_devolucao TYPE t_devolucao.
CASE p_devolucao-operacao.
WHEN c_excluido.
* >> Início da inclusão: FORM SALVAR_DADOS_DEVOLUCAO
clear: wa_zycbt242_aud.
select single * from /pws/zycbt242
into wa_zycbt242_aud
where nrseq = p_devolucao-nrseq.
if not wa_zycbt242_aud is initial.
move-corresponding wa_zycbt242_aud to /pws/zycbt242.
perform carrega_log using '/PWS/ZYCBT242'
'D'
sy-tcode
sy-repid
wa_zycbt242_aud-nrseq.
endif.
* << Fim da inclusão
<fs_op>-sld_associar =
<fs_op>-sld_associar + p_devolucao-vldevolucao.
DELETE FROM /pws/zycbt242 WHERE nrseq = p_devolucao-nrseq.
WHEN c_novo.
<fs_op>-sld_associar =
<fs_op>-sld_associar - p_devolucao-vldevolucao.
INSERT INTO /pws/zycbt242 VALUES p_devolucao.
* >> Início da inclusão: FORM SALVAR_DADOS_DEVOLUCAO
if sy-subrc eq 0.
move-corresponding p_devolucao to /pws/zycbt242.
perform carrega_log using '/PWS/ZYCBT242'
'I'
sy-tcode
sy-repid
p_devolucao-nrseq.
endif.
* << Fim da inclusão
ENDCASE.
IF p_devolucao-belnr_desm_op IS INITIAL.
<fs_op>-belnr_assoc = p_devolucao-belnr_comp.
ELSE.
<fs_op>-belnr_assoc = p_devolucao-belnr_desm_op.
ENDIF.
<fs_op>-dt_assoc = p_devolucao-dtdevolucao.
UPDATE /pws/zycbt226
SET sld_associar = <fs_op>-sld_associar
belnr_assoc = <fs_op>-belnr_assoc
dt_assoc = <fs_op>-dt_assoc
WHERE nrseq = <fs_op>-nrseq.
* >> Início da inclusão: FORM SALVAR_DADOS_DEVOLUCAO
if sy-subrc eq 0.
move-corresponding <fs_op> to /pws/zycbt226.
perform carrega_log using '/PWS/ZYCBT226'
'U'
sy-tcode
sy-repid
<fs_op>-nrseq.
endif.
* << Fim da inclusão
COMMIT WORK.
ENDFORM.
FORM busca_sequencial_devolucao
CHANGING p_nrseq.
DATA:
v_ano(3) TYPE c,
v_nrseq TYPE /pws/zycbt242-nrseq.
CONCATENATE '%' sy-datum+2(2) INTO v_ano.
SELECT MAX( nrseq ) INTO v_nrseq
FROM /pws/zycbt242
...
...
MODIFY itab_zycbt030 FROM wa_zycbt030
TRANSPORTING vlslliq
WHERE nrinvoic EQ wa_zycbt030-nrinvoic
AND gsberf EQ wa_zycbt030-gsberf
AND nrparcf EQ wa_zycbt030-nrparcf.
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
concatenate wa_zycbt030-nrinvoic
wa_zycbt030-nrparcf
wa_zycbt030-gsberf into v_identific.
if sy-subrc eq 0.
move-corresponding wa_zycbt030 to /pws/zycbt030.
perform carrega_log using '/PWS/ZYCBT030'
'U'
sy-tcode
'/PWS/SAPMZYCB005'
v_identific.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zycbt017 WITH KEY nrinvoic = <fs_op>-nrinvoic
nrparcf = <fs_op>-nrparcf
gsberf = <fs_op>-gsberf
INTO wa_zycbt017.
IF sy-subrc = 0.
wa_zycbt017-vlslf = wa_zycbt017-vlslf - <fs_op>-vlr_exterior.
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
concatenate wa_zycbt017-nrinvoic
wa_zycbt017-nrparcf
wa_zycbt017-gsberf into v_identific.
if sy-subrc eq 0.
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
ENDIF.
v_wrbtr = <fs_op>-vlr_exterior.
LOOP AT itab_zycbt209 INTO wa_zycbt209
WHERE nrinvoic = <fs_op>-nrinvoic
AND nrparcf = <fs_op>-nrparcf
AND gsberf = <fs_op>-gsberf.
wa_zycbt209-saldo = wa_zycbt209-saldo - v_wrbtr.
IF wa_zycbt209-saldo < 0.
v_wrbtr = wa_zycbt209-saldo * ( -1 ).
CLEAR wa_zycbt209-saldo.
...
...
CLEAR v_wrbtr.
ENDIF.
UPDATE /pws/zycbt209
SET saldo = wa_zycbt209-saldo
WHERE bukrs = wa_zycbt209-bukrs
AND nrinvoic = wa_zycbt209-nrinvoic
AND belnr = wa_zycbt209-belnr
AND dtincl = wa_zycbt209-dtincl
AND nrparcf = wa_zycbt209-nrparcf
AND gsberf = wa_zycbt209-gsberf.
* >> Início da inclusão: FORM ATUALIZA_SALDOS_SML
concatenate wa_zycbt209-nrinvoic
wa_zycbt209-nrparcf
wa_zycbt209-gsberf into v_identific.
if sy-subrc eq 0.
move-corresponding wa_zycbt209 to /pws/zycbt209.
perform carrega_log using '/PWS/ZYCBT209'
'U'
sy-tcode
'/PWS/SAPMZYCB031'
v_identific.
endif.
* << Fim da inclusão
ENDLOOP.
ELSE.
READ TABLE itab_zycbt030 WITH KEY nrinvoic = <fs_op>-nrinvoic
nrparcf = <fs_op>-nrparcf
gsberf = <fs_op>-gsberf
INTO wa_zycbt030.
IF sy-subrc EQ '0'.
wa_zycbt030-vlslliq = wa_zycbt030-vlslliq +
<fs_op>-vlr_exterior.
MODIFY itab_zycbt030 FROM wa_zycbt030
TRANSPORTING vlslliq
WHERE nrinvoic EQ wa_zycbt030-nrinvoic
AND gsberf EQ wa_zycbt030-gsberf
AND nrparcf EQ wa_zycbt030-nrparcf.
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
concatenate wa_zycbt030-nrinvoic
wa_zycbt030-nrparcf
wa_zycbt030-gsberf into v_identific.
if sy-subrc eq 0.
move-corresponding wa_zycbt030 to /pws/zycbt030.
perform carrega_log using '/PWS/ZYCBT030'
'U'
sy-tcode
'/PWS/SAPMZYCB005'
v_identific.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zycbt017 WITH KEY nrinvoic = <fs_op>-nrinvoic
nrparcf = <fs_op>-nrparcf
gsberf = <fs_op>-gsberf
INTO wa_zycbt017.
IF sy-subrc = 0.
wa_zycbt017-vlslf = wa_zycbt017-vlslf +
<fs_op>-vlr_exterior.
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
concatenate wa_zycbt017-nrinvoic
wa_zycbt017-nrparcf
wa_zycbt017-gsberf into v_identific.
if sy-subrc eq 0.
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
ENDIF.
CLEAR v_wrbtr.
LOOP AT itab_zycbt209 INTO wa_zycbt209
WHERE nrinvoic = <fs_op>-nrinvoic
AND nrparcf = <fs_op>-nrparcf
AND gsberf = <fs_op>-gsberf.
IF v_wrbtr > 0.
wa_zycbt209-saldo = wa_zycbt209-saldo +
v_wrbtr.
ELSE.
...
...
wa_zycbt209-saldo = wa_zycbt209-vlme.
ENDIF.
UPDATE /pws/zycbt209
SET saldo = wa_zycbt209-saldo
WHERE bukrs = wa_zycbt209-bukrs
AND nrinvoic = wa_zycbt209-nrinvoic
AND belnr = wa_zycbt209-belnr
AND dtincl = wa_zycbt209-dtincl
AND nrparcf = wa_zycbt209-nrparcf
AND gsberf = wa_zycbt209-gsberf.
* >> Início da inclusão: FORM ATUALIZA_SALDOS_SML
concatenate wa_zycbt209-nrinvoic
wa_zycbt209-nrparcf
wa_zycbt209-gsberf into v_identific.
if sy-subrc eq 0.
move-corresponding wa_zycbt209 to /pws/zycbt209.
perform carrega_log using '/PWS/ZYCBT209'
'U'
sy-tcode
'/PWS/SAPMZYCB031'
v_identific.
endif.
* << Fim da inclusão
ENDLOOP.
ENDIF.
ENDFORM.
FORM liquida_comissao_agente.
CHECK v_desm_cli = 'X' OR
v_desm_liqand = 'X'.
CLEAR: itab_selreg,
itab_zycet010,
itab_zycet013.
REFRESH: itab_zycet010,
...
...
READ TABLE itab_zycbe033 INTO wa_zycbe033
WITH KEY cpochv = v_chave.
wa_zycbt030-budat = wa_zycbe033-budat.
MODIFY /pws/zycbt030 FROM wa_zycbt030.
UPDATE /pws/zycbt030 SET: belnr6 = wa_zycbt032-belnr
budat = wa_zycbe033-budat
WHERE nrinvoic = itab_aux-nrinvoic
AND nrparcf = itab_aux-nrparcf
AND vbeln = itab_aux-vbeln
AND gsberf = itab_aux-gsberf.
* >> Início da inclusão: FORM LIQUIDA_COMIS_TRANS
concatenate itab_aux-nrinvoic
itab_aux-nrparcf
itab_aux-gsberf into v_identific.
if sy-subrc eq 0.
move-corresponding itab_aux to /pws/zycbt030.
perform carrega_log using '/PWS/ZYCBT030'
'U'
sy-tcode
'/PWS/SAPMZYCB005'
v_identific.
endif.
* << Fim da inclusão
IF /pws/zycet037-comis_provisao IS INITIAL OR
/pws/zycet037-comis_provisao EQ 0.
IF <fs_op>-status <> 'E'.
itab_zycet010-status = 'C'.
itab_zycet010-belnr_p = wa_zycbt032-belnr.
MODIFY itab_zycet010 TRANSPORTING status belnr_p dtpagto
WHERE nrseq = itab_zycet010-nrseq
AND lifnr = itab_zycet010-lifnr
AND dtvencto = itab_zycet010-dtvencto.
ELSE.
itab_zycet010-belnr = wa_zycbt032-belnr.
itab_zycet010-status = space.
itab_zycet010-dtpagto = '00000000'.
MODIFY itab_zycet010 TRANSPORTING belnr status dtpagto
WHERE nrseq = itab_zycet010-nrseq
AND lifnr = itab_zycet010-lifnr
AND dtvencto = itab_zycet010-dtvencto.
ENDIF.
* >> Início da inclusão: FORM LIQUIDA_COMIS_TRANS
clear: wa_zycet010_aud.
select single * from /pws/zycet010
into wa_zycet010_aud
where nrseq = itab_zycet010-nrseq
and lifnr = itab_zycet010-lifnr
and dtvencto = itab_zycet010-dtvencto.
* << Fim da inclusão
MODIFY /pws/zycet010 FROM itab_zycet010.
* >> Início da inclusão: FORM LIQUIDA_COMIS_TRANS
if not wa_zycet010_aud is initial.
v_operacao = 'U'.
else.
v_operacao = 'I'.
endif.
move-corresponding itab_zycet010 to /pws/zycet010.
perform carrega_log using '/PWS/ZYCET010'
v_operacao
sy-tcode
'/PWS/SAPMZYCE017'
itab_zycet010-nrseq.
* << Fim da inclusão
ELSE.
IF <fs_op>-status <> 'E'.
itab_zycet013-status = 'C'.
itab_zycet013-belnr_c = wa_zycbt032-belnr.
MODIFY itab_zycet013 TRANSPORTING status
belnr_c
dtpagto
WHERE nrseq = itab_zycet013-nrseq
AND lifnr = itab_zycet013-lifnr
AND gsber = itab_zycet013-gsber
...
...
itab_zycet013-status = space.
itab_zycet013-dtpagto = '00000000'.
MODIFY itab_zycet013 TRANSPORTING status
belnr
dtpagto
WHERE nrseq = itab_zycet013-nrseq
AND lifnr = itab_zycet013-lifnr
AND gsber = itab_zycet013-gsber
AND prctr = itab_zycet013-prctr.
ENDIF.
* >> Início da inclusão: FORM LIQUIDA_COMIS_TRANS
clear: wa_zycet013_aud.
select single * from /pws/zycet013
into wa_zycet013_aud
where nrseq = itab_zycet013-nrseq
and lifnr = itab_zycet013-lifnr
and gsber = itab_zycet013-gsber
and prctr = itab_zycet013-prctr.
* << Fim da inclusão
MODIFY /pws/zycet013 FROM itab_zycet013.
* >> Início da inclusão: FORM LIQUIDA_COMIS_TRANS
if not wa_zycet013_aud is initial.
v_operacao = 'U'.
else.
v_operacao = 'I'.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM LIQUIDA_COMIS_TRANS
move-corresponding itab_zycet013 to /pws/zycet013.
perform carrega_log using '/PWS/ZYCET013'
v_operacao
sy-tcode
'/PWS/SAPMZYCE017'
itab_zycet013-nrseq.
endif.
* << Fim da inclusão
MOVE wa_zycbt032 TO itab_zycbt032a.
MOVE wa_zycbe033-budat TO itab_zycbt032a-budat.
APPEND itab_zycbt032a.
CLEAR itab_doc_f02.
MOVE wa_zycbt032-belnr TO itab_doc_f02-docto.
APPEND itab_doc_f02.
v_status_f30 = 'S'.
IF v_vinculacao IS INITIAL.
COMMIT WORK.
ENDIF.
...
...
MODIFY itab_zycet010 TRANSPORTING belnr
dtlanc
status
dtpagto
belnr51
belnr_p
WHERE nrseq = itab_zycet010-nrseq AND
lifnr = itab_zycet010-lifnr AND
dtvencto = itab_zycet010-dtvencto.
ENDIF.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
clear: wa_zycet010_aud.
select single * from /pws/zycet010
into wa_zycet010_aud
where nrseq = itab_zycet010-nrseq
and lifnr = itab_zycet010-lifnr
and dtvencto = itab_zycet010-dtvencto.
* << Fim da inclusão
MODIFY /pws/zycet010 FROM itab_zycet010.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
if not wa_zycet010_aud is initial.
v_operacao = 'U'.
else.
v_operacao = 'I'.
endif.
move-corresponding itab_zycet010 to /pws/zycet010.
perform carrega_log using '/PWS/ZYCET010'
v_operacao
sy-tcode
'/PWS/SAPMZYCE017'
itab_zycet010-nrseq.
* << Fim da inclusão
ELSE.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
clear: itab_zycet013_aud.
refresh: itab_zycet013_aud.
select * from /pws/zycet013
into table itab_zycet013_aud
for all entries in itab_zycet013
where nrseq = itab_zycet013-nrseq
and lifnr = itab_zycet013-lifnr
and gsber = itab_zycet013-gsber
and prctr = itab_zycet013-prctr.
* << Fim da inclusão
IF <fs_op>-operacao <> 'E'.
LOOP AT itab_zycet013 WHERE nrseq EQ <fs_op>-nrinvoic .
itab_zycet013-belnr_cl = wa_zycbt032-belnr.
MODIFY itab_zycet013 TRANSPORTING belnr_cl
WHERE nrseq = itab_zycet013-nrseq
AND gsber = itab_zycet013-gsber
AND lifnr = itab_zycet013-lifnr
AND prctr = itab_zycet013-prctr.
MODIFY /pws/zycet013 FROM itab_zycet013 .
COMMIT WORK.
...
...
dtpagto
belnr_cl
belnr_c
WHERE nrseq = itab_zycet013-nrseq
AND gsber = itab_zycet013-gsber
AND lifnr = itab_zycet013-lifnr
AND prctr = itab_zycet013-prctr.
MODIFY /pws/zycet013 FROM itab_zycet013 .
COMMIT WORK.
ENDLOOP.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
endif.
loop at itab_zycet013 where nrseq eq <fs_op>-nrinvoic.
read table itab_zycet013_aud with key
nrseq = itab_zycet013-nrseq
lifnr = itab_zycet013-lifnr
gsber = itab_zycet013-gsber
prctr = itab_zycet013-prctr.
if sy-subrc eq 0.
v_operacao = 'U'.
else.
v_operacao = 'I'.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
move-corresponding itab_zycet013 to /pws/zycet013.
perform carrega_log using '/PWS/ZYCET013'
v_operacao
sy-tcode
'/PWS/SAPMZYCE017'
itab_zycet013-nrseq.
endloop.
* << Fim da inclusão
ENDIF.
UPDATE /pws/zycbt226 SET status = <fs_op>-status
WHERE nrseq = <fs_op>-nrseq
AND nrinvoic = <fs_op>-nrinvoic
AND nrparcf = <fs_op>-nrparcf
AND gsberf = <fs_op>-gsberf.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
if sy-subrc eq 0.
move-corresponding <fs_op> to /pws/zycbt226.
perform carrega_log using '/PWS/ZYCBT226'
'U'
sy-tcode
sy-repid
<fs_op>-nrseq.
endif.
* << Fim da inclusão
COMMIT WORK.
ENDIF.
ELSE.
LOOP AT itab_zycbt034 INTO wa_zycbt034.
PERFORM message_store
USING '/PWS/ZYCBM'
'E'
'Campo não está preenchido.'(m13)
wa_zycbt034-campo
'-'
...
...
AND nrparcf = itab_aux-nrparcf
AND vbeln = itab_aux-vbeln
AND gsberf = itab_aux-gsberf.
UPDATE /pws/zycbt030 SET: belnr6 = wa_zycbt032-belnr
budat = wa_zycbe033-budat
vlslliq = v_vlslliq
WHERE nrinvoic = itab_aux-nrinvoic
AND nrparcf = itab_aux-nrparcf
AND vbeln = itab_aux-vbeln
AND gsberf = itab_aux-gsberf.
* >> Início da inclusão: FORM FILL_DATE_F30_COMISSAO
concatenate itab_aux-nrinvoic
itab_aux-nrparcf
itab_aux-gsberf into v_identific.
if sy-subrc eq 0.
move-corresponding itab_aux to /pws/zycbt030.
perform carrega_log using '/PWS/ZYCBT030'
'U'
sy-tcode
'/PWS/SAPMZYCB005'
v_identific.
endif.
* << Fim da inclusão
IF /pws/zycet037-comis_provisao IS INITIAL OR
/pws/zycet037-comis_provisao EQ 0.
IF <fs_op>-status <> 'E'.
itab_zycet010-status = 'C'.
itab_zycet010-belnr_p = wa_zycbt032-belnr.
itab_zycet010-dtpagto = v_dtpagto.
MODIFY itab_zycet010 TRANSPORTING status belnr_p dtpagto
WHERE nrseq = itab_zycet010-nrseq
AND lifnr = itab_zycet010-lifnr
AND dtvencto = itab_zycet010-dtvencto.
ELSE.
itab_zycet010-belnr = wa_zycbt032-belnr.
itab_zycet010-status = space.
itab_zycet010-dtpagto = '00000000'.
MODIFY itab_zycet010 TRANSPORTING belnr status dtpagto
WHERE nrseq = itab_zycet010-nrseq
AND lifnr = itab_zycet010-lifnr
AND dtvencto = itab_zycet010-dtvencto.
ENDIF.
* >> Início da inclusão: FORM FILL_DATE_F30_COMISSAO
clear: wa_zycet010_aud.
select single * from /pws/zycet010
into wa_zycet010_aud
where nrseq = itab_zycet010-nrseq
and lifnr = itab_zycet010-lifnr
and dtvencto = itab_zycet010-dtvencto.
* << Fim da inclusão
MODIFY /pws/zycet010 FROM itab_zycet010.
COMMIT WORK.
* >> Início da inclusão: FORM FILL_DATE_F30_COMISSAO
if not wa_zycet010_aud is initial.
v_operacao = 'U'.
else.
v_operacao = 'I'.
endif.
move-corresponding itab_zycet010 to /pws/zycet010.
perform carrega_log using '/PWS/ZYCET010'
v_operacao
sy-tcode
'/PWS/SAPMZYCE017'
itab_zycet010-nrseq.
* << Fim da inclusão
ELSE.
IF <fs_op>-status <> 'E'.
LOOP AT itab_zycet013 WHERE nrseq EQ <fs_op>-nrinvoic .
itab_zycet013-status = 'C'.
itab_zycet013-belnr_c = wa_zycbt032-belnr.
itab_zycet013-dtpagto = v_dtpagto.
MODIFY itab_zycet013 TRANSPORTING status
belnr_c
dtpagto
WHERE nrseq = itab_zycet013-nrseq
...
...
itab_zycet013-dtpagto = '00000000'.
MODIFY itab_zycet013 TRANSPORTING status
belnr
dtpagto
WHERE nrseq = itab_zycet013-nrseq
AND lifnr = itab_zycet013-lifnr
AND gsber = itab_zycet013-gsber
AND prctr = itab_zycet013-prctr.
ENDLOOP.
ENDIF.
* >> Início da inclusão: FORM FILL_DATE_F30_COMISSAO
clear: wa_zycet013_aud.
select single * from /pws/zycet013
into wa_zycet013_aud
where nrseq = itab_zycet013-nrseq
and lifnr = itab_zycet013-lifnr
and gsber = itab_zycet013-gsber
and prctr = itab_zycet013-prctr.
* << Fim da inclusão
MODIFY /pws/zycet013 FROM itab_zycet013.
COMMIT WORK.
* >> Início da inclusão: FORM FILL_DATE_F30_COMISSAO
if not wa_zycet013_aud is initial.
v_operacao = 'U'.
else.
v_operacao = 'I'.
endif.
move-corresponding itab_zycet013 to /pws/zycet013.
perform carrega_log using '/PWS/ZYCET013'
v_operacao
sy-tcode
'/PWS/SAPMZYCE017'
itab_zycet013-nrseq.
* << Fim da inclusão
ENDIF.
MOVE wa_zycbt032 TO itab_zycbt032a.
MOVE wa_zycbe033-budat TO itab_zycbt032a-budat.
APPEND itab_zycbt032a.
v_status_f30 = 'S'.
PERFORM message_store
USING '/PWS/ZYCBM'
'I'
'DOC. COMISSÃO DE AGENTE.'(064)
'-'
...
...
IF sy-subrc = 0.
IF /pws/zycet037-comis_provisao IS INITIAL OR
/pws/zycet037-comis_provisao EQ 0.
itab_zycet010-belnr = wa_zycbt032-belnr.
itab_zycet010-status = space.
itab_zycet010-dtpagto = '00000000'.
MODIFY itab_zycet010 TRANSPORTING belnr status dtpagto
WHERE nrseq = itab_zycet010-nrseq
AND lifnr = itab_zycet010-lifnr
AND dtvencto = itab_zycet010-dtvencto.
* >> Início da inclusão: FORM FILL_DATE6_F22_COMISSAO
clear: wa_zycet010_aud.
select single * from /pws/zycet010
into wa_zycet010_aud
where nrseq = itab_zycet010-nrseq
and lifnr = itab_zycet010-lifnr
and dtvencto = itab_zycet010-dtvencto.
* << Fim da inclusão
MODIFY /pws/zycet010 FROM itab_zycet010.
* >> Início da inclusão: FORM FILL_DATE6_F22_COMISSAO
if not wa_zycet010_aud is initial.
v_operacao = 'U'.
else.
v_operacao = 'I'.
endif.
move-corresponding itab_zycet010 to /pws/zycet010.
perform carrega_log using '/PWS/ZYCET010'
v_operacao
sy-tcode
'/PWS/SAPMZYCE017'
itab_zycet010-nrseq.
* << Fim da inclusão
ELSE.
LOOP AT itab_zycet013 WHERE nrseq EQ <fs_op>-nrinvoic .
itab_zycet013-belnr = wa_zycbt032-belnr.
itab_zycet013-status = space.
itab_zycet013-dtpagto = '00000000'.
MODIFY itab_zycet013 TRANSPORTING status
belnr
dtpagto
WHERE nrseq = itab_zycet013-nrseq
AND lifnr = itab_zycet013-lifnr
AND gsber = itab_zycet013-gsber
AND prctr = itab_zycet013-prctr.
* >> Início da inclusão: FORM FILL_DATE6_F22_COMISSAO
clear: wa_zycet013_aud.
select single * from /pws/zycet013
into wa_zycet013_aud
where nrseq = itab_zycet013-nrseq
and lifnr = itab_zycet013-lifnr
and gsber = itab_zycet013-gsber
and prctr = itab_zycet013-prctr.
* << Fim da inclusão
MODIFY /pws/zycet013 FROM itab_zycet013.
* >> Início da inclusão: FORM FILL_DATE6_F22_COMISSAO
if not wa_zycet013_aud is initial.
v_operacao = 'U'.
else.
v_operacao = 'I'.
endif.
move-corresponding itab_zycet013 to /pws/zycet013.
perform carrega_log using '/PWS/ZYCET013'
v_operacao
sy-tcode
'/PWS/SAPMZYCE017'
itab_zycet013-nrseq.
* << Fim da inclusão
ENDLOOP.
ENDIF.
MOVE wa_zycbt032 TO itab_zycbt032a.
itab_zycbt032a-budat = wa_zycbe033-budat.
APPEND itab_zycbt032a.
itab_contabil-nrinvoic = wa_zycbt030-nrinvoic.
itab_contabil-nrparcf = wa_zycbt030-nrparcf.
itab_contabil-vbeln = wa_zycbt030-vbeln.
itab_contabil-gsberf = wa_zycbt030-gsberf.
itab_contabil-docto = wa_zycbt032-belnr.
...
...
wa_zycbt030-vlslliq = wa_zycbt030-vlslliq + v_vlme .
MODIFY itab_zycbt030 FROM wa_zycbt030
TRANSPORTING belnr6 budat vlslliq
WHERE nrinvoic = itab_aux-nrinvoic AND
nrparcf = itab_aux-nrparcf AND
vbeln = itab_aux-vbeln AND
gsberf = itab_aux-gsberf.
MODIFY itab_zycbt030 FROM wa_zycbt030
TRANSPORTING belnr6 budat
WHERE belnr6 = v_belnr6.
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
clear: itab_zycbt030_aud.
refresh: itab_zycbt030_aud.
select * from /pws/zycbt030
into table itab_zycbt030_aud
for all entries in itab_zycbt030
where nrinvoic = itab_zycbt030-nrinvoic
and nrparcf = itab_zycbt030-nrparcf
and vbeln = itab_zycbt030-vbeln
and gsberf = itab_zycbt030-gsberf.
* << Fim da inclusão
MODIFY /pws/zycbt030 FROM TABLE itab_zycbt030.
COMMIT WORK.
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
loop at itab_zycbt030 into wa_zycbt030_aud.
read table itab_zycbt030_aud with key
nrinvoic = wa_zycbt030_aud-nrinvoic
nrparcf = wa_zycbt030_aud-nrparcf
vbeln = wa_zycbt030_aud-vbeln
gsberf = wa_zycbt030_aud-gsberf.
concatenate wa_zycbt030_aud-nrinvoic
wa_zycbt030_aud-nrparcf
wa_zycbt030_aud-gsberf into v_identific.
if sy-subrc eq 0.
v_operacao = 'U'.
else.
v_operacao = 'I'.
endif.
move-corresponding wa_zycbt030_aud to /pws/zycbt030.
perform carrega_log using '/PWS/ZYCBT030'
v_operacao
sy-tcode
'/PWS/SAPMZYCB005'
v_identific.
endloop.
* << Fim da inclusão
IF /pws/zycet037-comis_provisao IS INITIAL OR
/pws/zycet037-comis_provisao EQ 0.
CLEAR :itab_zycet010-belnr_p .
MODIFY itab_zycet010 TRANSPORTING belnr_p
WHERE nrseq = itab_zycet010-nrseq
AND lifnr = itab_zycet010-lifnr
AND dtvencto = itab_zycet010-dtvencto.
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
clear: wa_zycet010_aud.
select single * from /pws/zycet010
into wa_zycet010_aud
where nrseq = itab_zycet010-nrseq
and lifnr = itab_zycet010-lifnr
and dtvencto = itab_zycet010-dtvencto.
* << Fim da inclusão
MODIFY /pws/zycet010 FROM itab_zycet010.
COMMIT WORK.
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
if not wa_zycet010_aud is initial.
v_operacao = 'U'.
* << Fim da inclusão
ELSE.
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
v_operacao = 'I'.
endif.
move-corresponding itab_zycet010 to /pws/zycet010.
perform carrega_log using '/PWS/ZYCET010'
v_operacao
sy-tcode
'/PWS/SAPMZYCE017'
itab_zycet010-nrseq.
else.
* << Fim da inclusão
LOOP AT itab_zycet013 WHERE nrseq EQ <fs_op>-nrinvoic.
CLEAR: itab_zycet013-belnr_c ,
itab_zycet013-belnr_cl .
MODIFY itab_zycet013 TRANSPORTING belnr_c
belnr_cl
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
where nrseq = itab_zycet013-nrseq
and lifnr = itab_zycet013-lifnr
and gsber = itab_zycet013-gsber
and prctr = itab_zycet013-prctr.
clear: wa_zycet013_aud.
select single * from /pws/zycet013
into wa_zycet013_aud
* << Fim da inclusão
WHERE nrseq = itab_zycet013-nrseq
AND lifnr = itab_zycet013-lifnr
AND gsber = itab_zycet013-gsber
AND prctr = itab_zycet013-prctr.
MODIFY /pws/zycet013 FROM itab_zycet013.
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
if not wa_zycet013_aud is initial.
v_operacao = 'U'.
else.
v_operacao = 'I'.
endif.
move-corresponding itab_zycet013 to /pws/zycet013.
perform carrega_log using '/PWS/ZYCET013'
v_operacao
sy-tcode
'/PWS/SAPMZYCE017'
itab_zycet013-nrseq.
* << Fim da inclusão
ENDLOOP.
ENDIF.
itab_aux-belnr6 = wa_zycbt032-belnr.
itab_aux-budat = wa_zycbe033-budat.
MODIFY itab_aux TRANSPORTING belnr6
WHERE belnr6 = v_belnr6.
itab_contabil-nrinvoic = itab_aux-nrinvoic.
itab_contabil-nrparcf = itab_aux-nrparcf.
itab_contabil-vbeln = itab_aux-vbeln.
itab_contabil-gsberf = itab_aux-gsberf.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034TOP
...
skb1,
bsid,
bkpf,
j_1bbranch,
adrc,
/pws/zycet002,
/pws/zycet020,
/pws/zycet037,
/pws/zycbt226,
/pws/zycbt089,
* >> Início da exclusão:
tcurx.
* << Fim da exclusão
* >> Início da inclusão:
tcurx,
/pws/zycet010,
/pws/zycet013,
/pws/zycbt225,
/pws/zycbt227,
/pws/zycbt238,
/pws/zycbt239,
/pws/zycbt240,
/pws/zycbt242,
/pws/zycbt209,
/pws/zycbt017.
* << Fim da inclusão
CONTROLS:
ts_70 TYPE TABSTRIP,
ts_principal TYPE TABSTRIP,
tc_op TYPE TABLEVIEW USING SCREEN '0110',
tc_30 TYPE TABLEVIEW USING SCREEN '0120',
tc_70 TYPE TABLEVIEW USING SCREEN '0131',
tc_contrato TYPE TABLEVIEW USING SCREEN '0132',
tc_00 TYPE TABLEVIEW USING SCREEN '0150',
tc_rendimentos TYPE TABLEVIEW USING SCREEN '0140',
tc_devolucao TYPE TABLEVIEW USING SCREEN '0200'.
...
...
DATA : mark(1) TYPE c,
operacao(1) TYPE c,
bloqueado(1) TYPE c,
acesso_emp(1) TYPE c,
drilldown(1) TYPE c.
DATA: END OF itab_zycbt226_aux .
DATA: BEGIN OF itab_zycbt226_all OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt226.
DATA: END OF itab_zycbt226_all.
DATA: wa_zyglt316_cg TYPE t_s_zyglt316.
* >> Início da inclusão:
data: begin of itab_zycet013_aud occurs 0.
include structure /pws/zycet013.
data: end of itab_zycet013_aud.
data: begin of itab_zycbt030_aud occurs 0.
include structure /pws/zycbt030.
data: end of itab_zycbt030_aud.
data: begin of itab_zycbt209_aud occurs 0.
include structure /pws/zycbt209.
data: end of itab_zycbt209_aud.
data: begin of itab_zycbt225_aud occurs 0.
include structure /pws/zycbt225.
data: end of itab_zycbt225_aud.
data: begin of itab_zycbt240_aud occurs 0.
include structure /pws/zycbt240.
data: end of itab_zycbt240_aud.
data: wa_zycet010_aud type /pws/zycet010,
wa_zycet013_aud type /pws/zycet013,
wa_zycbt030_aud type /pws/zycbt030,
wa_zycbt209_aud type /pws/zycbt209,
wa_zycbt225_aud type /pws/zycbt225,
wa_zycbt226_aud type /pws/zycbt226,
wa_zycbt238_aud type /pws/zycbt238,
wa_zycbt239_aud type /pws/zycbt239,
wa_zycbt240_aud type /pws/zycbt240,
wa_zycbt242_aud type /pws/zycbt242.
data: v_identific(25) type c,
v_operacao(1) type c.
* << Fim da inclusão
INCLUDE /pws/mzycb034x01.
SELECTION-SCREEN BEGIN OF SCREEN 0001.
SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-011.
SELECT-OPTIONS: s_bukrs FOR /pws/zycbe226-bukrs,
s_nrseq FOR /pws/zycbe226-nrseq
MATCHCODE OBJECT /pws/zycba297,
s_invoic FOR /pws/zycbe226-nrinvoic,
s_gsber FOR /pws/zycbe226-gsberf,
s_nrparc FOR /pws/zycbe226-nrparcf,
s_kunag FOR /pws/zycbe017-kunag,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCB034
* >> Início da exclusão:
INCLUDE /pws/mzycb034top .
* << Fim da exclusão
* >> Início da inclusão:
INCLUDE /pws/mzycb034top.
* << Fim da inclusão
INCLUDE /pws/mzycb034i01.
INCLUDE /pws/mzycb034o01.
INCLUDE /pws/mzycb034f01.
INCLUDE /pws/mzycb034h01.
* >> Início da inclusão:
include /pws/zygllog.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB034
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: M55
Texto: (28 caracteres)
"Nenhum registro selecionado."
Comprimento máximo: 28