Visualização da Nota 11656

CE PLUS - Nota 011656

Módulo: CÂMBIO EXPORTAÇÃO

Funcionalidade: Liquidação em Andamento

Data/Hora da Publicação: 23/11/2011 16:00:03

Data/Hora Última Alteração: 23/11/2011 16:00:03

Descrição da Nota: LIQUIDAÇÃO EM ANDAMENTO - TRILHA AUDITORIA

Sintoma

Liquidação em Andamento - Trilha Auditoria

Solução

Liquidação em Andamento - Trilha Auditoria

Versões Tratadas

8.0

Pré-Requisitos

Produto:

Nota

Descrição

Nota 7107

LIQUIDAÇÃO EM ANDAMENTO CRIAR - BOTÕES VINCULAR TOTAL SELECIONAR FATURAS

Nota 6027

CODE INSPECTOR, VERIFICAÇÃO AMPLIADA, PROGRAMAS CAMBIO

Nota 2323

LIQUIDAÇÃO EM ANDAMENTO - DUMP AO SALVAR SEM PRESSIONAR ENTER

Nota 4958

FATURA/VINCULAÇÃO/LIQUIDAÇÃO - COMMODITIES

Nota 3864

LIQUIDAÇÃO EM ANDAMENTO - EXIT LIQ011 - NOME FUNCIONALIDADE

Nota 10889

VINCULAÇÃO/LIQUIDAÇÃO ARBITRAGEM-MOEDA SEM CASAS DECIMAIS, CENTAVOS

Nota 582

271323 EXIT LIQUIDAÇÃO EM ANDAMENTO VNC009, LIQ011 E LI

Nota 4276

LIQUIDAÇÃO EM ANDAMENTO - MENSAGEM DE ERRO NA CONTABILIZAÇÃO

Nota 3529

LIQUIDAÇÃO EM ANDAMENTO TOTAL - FBRA INCORRETA APÓS ERRO F-30

Nota 1219

INSERÇÃO DOS PONTOS DE EXIT NOS PROGRAMAS DO PRODUTO

Nota 4432

TRADUÇÃO DO PW.CE CÂMBIO PARA ESPANHOL.

Nota 11506

TRILHA DE AUDITORIA

Nota 10203

SOCIEDADE PARCEIRA LIQUIDAÇÃO EM ANDAMENTO

Nota 1163

LIQUIDAÇÃO EM ANDAMENTO - VLME VLSALDO ESTORNO

Nota 197

MATCHCODE DINÂMICO VINCULAÇÃO E LIQUIDAÇÃO EM ANDAMENTO

Informações Complementares

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

Nota Número 11656 Data: 23/11/2011 Hora: 14:50:42

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

Nota Número : 11656

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

00197 - 00001 - 6.0 - 00021 - MATCHCODE DINÂMICO VINCULAÇÃO E LIQUIDAÇÃO EM ANDAMENTO

00582 - 00002 - 6.0 - 00022 - 271323 EXIT LIQUIDAÇÃO EM ANDAMENTO VNC009, LIQ011 E LI

00693 - 00003 - 6.0 - 00022 - TRADUÇÃO PW.CE CÂMBIO

01163 - 00004 - 6.0 - 00023 - LIQUIDAÇÃO EM ANDAMENTO - VLME VLSALDO ESTORNO

01219 - 00005 - 6.0 - 00023 - INSERÇÃO DOS PONTOS DE EXIT NOS PROGRAMAS DO PRODUTO

02323 - 00006 - 6.0 - 00025 - LIQUIDAÇÃO EM ANDAMENTO - DUMP AO SALVAR SEM PRESSIONAR ENTER

03529 - 00007 - 7.0 - 00001 - LIQUIDAÇÃO EM ANDAMENTO TOTAL - FBRA INCORRETA APÓS ERRO F-30

03864 - 00008 - 7.0 - 00001 - LIQUIDAÇÃO EM ANDAMENTO - EXIT LIQ011 - NOME FUNCIONALIDADE

04276 - 00009 - 7.0 - 00002 - LIQUIDAÇÃO EM ANDAMENTO - MENSAGEM DE ERRO NA CONTABILIZAÇÃO

04432 - 00010 - 7.0 - 00002 - TRADUÇÃO DO PW.CE CÂMBIO PARA ESPANHOL.

04958 - 00011 - 7.0 - 00003 - FATURA/VINCULAÇÃO/LIQUIDAÇÃO - COMMODITIES

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

07107 - 00013 - 7.0 - 00006 - LIQUIDAÇÃO EM ANDAMENTO CRIAR - BOTÕES VINCULAR TOTAL SELECIONAR F

10203 - 00014 - 8.0 - 00003 - SOCIEDADE PARCEIRA LIQUIDAÇÃO EM ANDAMENTO

10889 - 00015 - 8.0 - 00006 - VINCULAÇÃO/LIQUIDAÇÃO ARBITRAGEM-MOEDA SEM CASAS DECIMAIS, CENTAVO

11506 - 00016 - 8.0 - 00009 - TRILHA DE AUDITORIA

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

Texto Rápido:

LIQUIDAÇÃO EM ANDAMENTO - TRILHA AUDITORIA

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

Palavras Chave:

LIQUIDAÇÃO EM ANDAMENTO - TRILHA AUDITORIA

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

Objetos da nota:

CUAD /PWS/SAPMZYCB031

RELE F6DK980164 20111111 165656 PWSCB

REPS /PWS/MZYCB031F01

REPS /PWS/MZYCB031I01

REPS /PWS/MZYCB031TOP

REPS /PWS/SAPMZYCB031

REPT /PWS/SAPMZYCB031

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

Modificações efetuadas em CUAD /PWS/SAPMZYCB031

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/MZYCB031F01

...

elseif wa_cols-screen-group1 eq 'ALT'.

wa_cols-screen-input = v_status.

endif.

modify tc_liq-cols from wa_cols.

endloop.

endform.

form set_status.

data: begin of itab_pf occurs 10,

fcode like rsmpe-func,

end of itab_pf.

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

data: v_trilha_auditoria type /pws/zyglt009-trilha_auditoria.

* << Fim da inclusão

clear ok_code.

if v_line_ini = 0.

v_line_ini = 1.

endif.

if v_status eq '0'.

itab_pf-fcode = 'MARK'.

append itab_pf.

itab_pf-fcode = 'DMARK'.

append itab_pf.

itab_pf-fcode = 'EXCL'.

...

itab_pf-fcode = 'MODO'.

append itab_pf.

itab_pf-fcode = 'SELE'.

append itab_pf.

itab_pf-fcode = 'TOTAL'.

append itab_pf.

else.

itab_pf-fcode = 'AEND'.

append itab_pf.

endif.

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

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 eq c_transacao_c.

itab_pf-fcode = 'LOG_TRILHA'.

append itab_pf.

endif.

* << Fim da inclusão

set pf-status '0100' excluding itab_pf.

if v_status eq '0'.

v_descricao = text-011.

else.

if sy-tcode eq c_transacao_c.

v_descricao = text-009.

else.

v_descricao = text-010.

endif.

...

modify itab_zycbt030.

update /pws/zycbt030 set belnr6 = itab_zycbt030-belnr6

budat = itab_zycbt030-budat

vlsltrans = itab_zycbt030-vlsltrans

belnr_t = itab_zycbt030-belnr_t

budat_t = itab_zycbt030-budat_t

where nrinvoic = itab_zycbt209-nrinvoic and

gsberf = itab_zycbt209-gsberf and

nrparcf = itab_zycbt209-nrparcf and

vbeln = itab_zycbt030-vbeln.

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

concatenate itab_zycbt209-nrinvoic

itab_zycbt209-nrparcf

itab_zycbt209-gsberf into v_identific.

move-corresponding itab_zycbt030 to /pws/zycbt030.

perform carrega_log using '/PWS/ZYCBT030'

'U'

sy-tcode

'/PWS/SAPMZYCB005'

v_identific.

* << Fim da inclusão

endloop.

itab_zycbt209-saldo = itab_zycbt209-vlme.

itab_zycbt209-dtbelnr = itab_zycbt209-dtcredext.

itab_zycbt209-status = 'C'.

itab_zycbt209-vlsltrans = itab_zycbt209-vlsltrans -

itab_zycbt209-vlme.

move itab_zycbt209 to /pws/zycbt209.

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

select * from /pws/zycbt209

into table itab_zycbt209_aud

where bukrs = itab_zycbt209-bukrs

and nrinvoic = itab_zycbt209-nrinvoic

and belnr = itab_zycbt209-belnr

and dtincl = itab_zycbt209-dtincl.

* << Fim da inclusão

modify /pws/zycbt209.

clear itab_zycbt209-oper.

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

concatenate itab_zycbt209-nrinvoic

itab_zycbt209-nrparcf

itab_zycbt209-gsberf into v_identific.

if itab_zycbt209_aud[] is initial.

move-corresponding itab_zycbt209 to /pws/zycbt209.

perform carrega_log using '/PWS/ZYCBT209'

'I'

sy-tcode

sy-repid

v_identific.

else.

move-corresponding itab_zycbt209 to /pws/zycbt209.

perform carrega_log using '/PWS/ZYCBT209'

'U'

sy-tcode

sy-repid

v_identific.

endif.

* << Fim da inclusão

call function 'MESSAGE_STORE'

exporting

arbgb = itab_zycbt032-msgid

msgty = itab_zycbt032-tpmsg

msgv1 = itab_zycbt032-msgv1

msgv2 = itab_zycbt032-msgv2

msgv3 = itab_zycbt032-msgv3

msgv4 = itab_zycbt032-msgv4

txtnr = itab_zycbt032-nrmsg

zeile = v_zeile.

...

txtnr = itab_zycbt032-nrmsg

zeile = v_zeile.

v_zeile = v_zeile + 1.

v_belnr = itab_zycbt032-belnr.

v_dtbelnr = itab_zycbe033-budat.

perform clear_dados_batch.

perform clearing using v_belnr

v_dtbelnr

space

space.

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

if sy-subrc eq 0.

select single *

from /pws/zycbt209

into wa_zycbt209_aud

where bukrs = itab_zycbt209-bukrs and

nrinvoic = itab_zycbt209-nrinvoic and

gsberf = itab_zycbt209-gsberf and

nrparcf = itab_zycbt209-nrparcf and

dtincl = itab_zycbt209-dtincl and

belnr = itab_zycbt209-belnr.

concatenate itab_zycbt209-nrinvoic

itab_zycbt209-nrparcf

itab_zycbt209-gsberf into v_identific.

* << Fim da inclusão

if sy-subrc eq 0.

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

move-corresponding wa_zycbt209_aud to /pws/zycbt209.

perform carrega_log using '/PWS/ZYCBT209'

'D'

sy-tcode

sy-repid

v_identific.

endif.

* << Fim da inclusão

delete from /pws/zycbt209

where bukrs = itab_zycbt209-bukrs and

nrinvoic = itab_zycbt209-nrinvoic and

gsberf = itab_zycbt209-gsberf and

nrparcf = itab_zycbt209-nrparcf and

dtincl = itab_zycbt209-dtincl and

belnr = itab_zycbt209-belnr.

delete itab_zycbt209

where bukrs = itab_zycbt209-bukrs and

nrinvoic = itab_zycbt209-nrinvoic and

...

perform clearing using v_belnr

v_dtbelnr

'X'

v_total.

if sy-subrc ne 0.

v_subrc = 4.

exit.

endif.

endloop.

if v_subrc eq 0.

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

select single *

from /pws/zycbt209

into wa_zycbt209_aud

where bukrs = itab_zycbt209-bukrs and

nrinvoic = itab_zycbt209-nrinvoic and

gsberf = itab_zycbt209-gsberf and

nrparcf = itab_zycbt209-nrparcf and

dtincl = itab_zycbt209-dtincl and

belnr = itab_zycbt209-belnr.

concatenate itab_zycbt209-nrinvoic

itab_zycbt209-nrparcf

itab_zycbt209-gsberf into v_identific.

if sy-subrc eq 0.

move-corresponding wa_zycbt209_aud to /pws/zycbt209.

perform carrega_log using '/PWS/ZYCBT209'

'D'

sy-tcode

sy-repid

v_identific.

endif.

* << Fim da inclusão

delete from /pws/zycbt209

where bukrs = itab_zycbt209-bukrs and

nrinvoic = itab_zycbt209-nrinvoic and

gsberf = itab_zycbt209-gsberf and

nrparcf = itab_zycbt209-nrparcf and

dtincl = itab_zycbt209-dtincl and

belnr = itab_zycbt209-belnr.

delete itab_zycbt209

where bukrs = itab_zycbt209-bukrs and

nrinvoic = itab_zycbt209-nrinvoic and

...

gsberf = itab_zycbt030-gsberf and

nrparcf = itab_zycbt030-nrparcf and

vbeln = itab_zycbt030-vbeln.

update /pws/zycbt030 set belnr6 = itab_zycbt030-belnr6

budat = itab_zycbt030-budat

vlsltrans = itab_zycbt030-vlsltrans

where nrinvoic = itab_zycbt030-nrinvoic and

gsberf = itab_zycbt030-gsberf and

nrparcf = itab_zycbt030-nrparcf and

vbeln = itab_zycbt030-vbeln.

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

concatenate itab_zycbt030-nrinvoic

itab_zycbt030-nrparcf

itab_zycbt030-gsberf into v_identific.

move-corresponding itab_zycbt030 to /pws/zycbt030.

perform carrega_log using '/PWS/ZYCBT030'

'U'

sy-tcode

'/PWS/SAPMZYCB005'

v_identific.

* << Fim da inclusão

call function 'MESSAGE_STORE'

exporting

arbgb = itab_zycbt032-msgid

msgty = itab_zycbt032-tpmsg

msgv1 = itab_zycbt032-msgv1

msgv2 = itab_zycbt032-msgv2

msgv3 = itab_zycbt032-msgv3

msgv4 = itab_zycbt032-msgv4

txtnr = itab_zycbt032-nrmsg

zeile = v_zeile.

...

itab_zycbt209-ref_ordem eq itab_zycbt209_ant-ref_ordem.

exit.

endif.

update /pws/zycbt209 set bco_receb = itab_zycbt209-bco_receb

ref_ordem = itab_zycbt209-ref_ordem

where bukrs = itab_zycbt209-bukrs and

nrinvoic = itab_zycbt209-nrinvoic and

belnr = itab_zycbt209-belnr and

dtincl = itab_zycbt209-dtincl .

commit work.

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

concatenate itab_zycbt209-nrinvoic

itab_zycbt209-nrparcf

itab_zycbt209-gsberf into v_identific.

move-corresponding itab_zycbt209 to /pws/zycbt209.

perform carrega_log using '/PWS/ZYCBT209'

'U'

sy-tcode

sy-repid

v_identific.

* << Fim da inclusão

call function 'MESSAGE_STORE'

exporting

arbgb = '/PWS/ZYCBM'

msgty = 'S'

msgv1 = text-060

msgv2 = itab_zycbt209-nrinvoic

msgv3 = text-061

txtnr = '061'

zeile = v_zeile.

v_zeile = v_zeile + 1.

...

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

Modificações efetuadas em REPS /PWS/MZYCB031I01

...

PERFORM modify_line.

ENDMODULE.

MODULE verifica_linhas INPUT.

PERFORM verifica_linhas.

ENDMODULE.

MODULE get_invoice INPUT.

PERFORM get_invoice.

ENDMODULE.

MODULE user_command_0100 INPUT.

DATA: e_subrc LIKE sy-subrc.

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

data: v_identificador type /pws/zyglt390-identificador.

* << Fim da inclusão

CLEAR: r_okcode,

v_syrepid,

v_subrc.

CALL METHOD cl_gui_cfw=>dispatch.

IF NOT r_okcode IS INITIAL.

ok_code = r_okcode.

ENDIF.

CLEAR itab_zyglt100.

IF itab_zyglt100[] IS INITIAL.

v_syrepid = sy-repid.

...

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

PERFORM command_page.

tc_liq-top_line = v_line_ini.

WHEN 'MODO'.

PERFORM command_modo.

WHEN 'SELE'.

SET SCREEN '0200'.

LEAVE TO SCREEN '0200'.

WHEN 'TOTAL'.

PERFORM vincular_total.

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

when 'LOG_TRILHA'.

read table itab_zycbt209 with key mark = 'X'.

if sy-subrc = 0.

concatenate itab_zycbt209-nrinvoic itab_zycbt209-nrparcf

itab_zycbt209-gsberf

into v_identificador.

perform log_trilha using sy-repid

v_identificador

' '.

else.

message i015 with text-001 text-079.

endif.

* << Fim da inclusão

ENDCASE.

ENDMODULE.

MODULE user_command_exit INPUT.

PERFORM exit_command.

ENDMODULE.

MODULE user_command_0051 INPUT.

CASE ok_code.

WHEN 'BC'.

CALL METHOD html_control->go_back.

CLEAR ok_code.

...

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

Modificações efetuadas em REPS /PWS/MZYCB031TOP

...

data: begin of itab_nrsd occurs 1,

sign(1) type c,

option(2) type c,

low like /pws/zycbe017-nrsd,

high like /pws/zycbe017a-nrsd,

end of itab_nrsd.

data: begin of itab_zycbt017_aux occurs 0.

include structure /pws/zycbt017.

data: v_fsaldo type c,

end of itab_zycbt017_aux.

* >> Início da inclusão:

data: begin of itab_zycbt209_aud occurs 0.

include structure /pws/zycbt209.

data: end of itab_zycbt209_aud.

data: wa_zycbt209_aud like /pws/zycbt209,

v_identific(25) type c.

* << Fim da inclusão

selection-screen begin of screen 0001.

select-options: s_nrinv for /pws/zycbt209-nrinvoic

matchcode object /pws/zygla288,

s_bukrs for /pws/zycbt209-bukrs,

s_gsber for /pws/zycbt209-gsberf,

s_werks for /pws/zycbt209-werks,

s_nparc for /pws/zycbt209-nrparcf,

s_kunnr for /pws/zycbt209-kunnr,

s_dtinc for /pws/zycbt209-dtincl.

selection-screen end of screen 0001.

...

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

Modificações efetuadas em REPS /PWS/SAPMZYCB031

INCLUDE /PWS/MZYCB031TOP.

INCLUDE /PWS/MZYCB031F01.

INCLUDE /PWS/MZYCB031O01.

INCLUDE /PWS/MZYCB031I01.

INCLUDE /PWS/MZYCB031H01.

* >> Início da inclusão:

include /pws/zygllog.

* << Fim da inclusão

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

Modificações efetuadas em REPT /PWS/SAPMZYCB031

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 079

Texto: (15 caracteres)

"exibição do log"

Comprimento máximo: 15