Visualização da Nota 10966

CE PLUS - Nota 010966

Módulo: CÂMBIO EXPORTAÇÃO

Funcionalidade: Captação

Data/Hora da Publicação: 17/02/2011 00:00:00

Data/Hora Última Alteração: 17/02/2011 15:34:37

Descrição da Nota: CODE INSPECTOR

Sintoma

CODE INSPECTOR

Solução

CODE INSPECTOR

Versões Tratadas

8.0

Informações Complementares

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

Nota Número 10966 Data: 17/02/2011 Hora: 14:41:14

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

Nota Número : 10966

Categoria : Melhoria

Prioridade : Média

Versão PW.CE : 8.0

Pacote : 00006

Agrupamento : 00060

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

Referência às notas relacionadas:

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

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

Texto Rápido:

CODE INSPECTOR

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

Palavras Chave:

CODE INSPECTOR

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

Objetos da nota:

REPS /PWS/MZYCA111F01

REPS /PWS/MZYCB001F01

REPS /PWS/MZYCB001F02

REPS /PWS/MZYCB001F04

REPS /PWS/MZYCB001I01

REPS /PWS/MZYCB001O01

REPS /PWS/MZYCB104F01

REPS /PWS/MZYCB106F01

REPS /PWS/MZYCM112F01

REPS /PWS/MZYGL011F01

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

Modificações efetuadas em REPS /PWS/MZYCA111F01

...

/pws/zycbe128-lifnr ne wa_zycbt128-lifnr or

/pws/zycbe128-gsber ne wa_zycbt128-gsber or

/pws/zycbe128-vbund ne wa_zycbt128-vbund or

/pws/zycbe128-kostl ne wa_zycbt128-kostl or

/pws/zycbe128-prctr ne wa_zycbt128-prctr or

/pws/zycbe128-fipos ne wa_zycbt128-fipos or

/pws/zycbe128-fictr ne wa_zycbt128-fictr or

/pws/zycbe128-tpemprest ne wa_zycbt128-tpemprest or

v_modifp eq 'X' ) and

/pws/zycbe128-statusp eq text-007.

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

move /pws/zycbe128 to /pws/zycbt128.

* << Fim da exclusão

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

move-corresponding /pws/zycbe128 to /pws/zycbt128.

* << Fim da inclusão

perform reverse_document_zycbt128.

perform save_zycbt129.

else.

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

move /pws/zycbe128 to /pws/zycbt128.

* << Fim da exclusão

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

move-corresponding /pws/zycbe128 to /pws/zycbt128.

* << Fim da inclusão

modify /pws/zycbt128.

...

/pws/zycbe128-lifnr eq wa_zycbt128-lifnr and

/pws/zycbe128-gsber eq wa_zycbt128-gsber and

/pws/zycbe128-vbund eq wa_zycbt128-vbund and

/pws/zycbe128-kostl eq wa_zycbt128-kostl and

/pws/zycbe128-prctr eq wa_zycbt128-prctr and

/pws/zycbe128-fipos eq wa_zycbt128-fipos and

/pws/zycbe128-fictr eq wa_zycbt128-fictr and

/pws/zycbe128-tpemprest eq wa_zycbt128-tpemprest and

/pws/zycbe128-statusp eq text-007 and

v_modifp ne 'X'.

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

move /pws/zycbe128 to /pws/zycbt128.

* << Fim da exclusão

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

move-corresponding /pws/zycbe128 to /pws/zycbt128.

* << Fim da inclusão

modify /pws/zycbt128.

if itab_zycbt129c[] = itab_zycbt129_ant[].

message i017.

endif.

perform save_zycbt129.

elseif /pws/zycbe128-statusp is initial or

/pws/zycbe128-statusp eq 'I'.

v_nrseq_ant = /pws/zycbe128-nrseq.

/pws/zycbe128-statusp = 'I'.

if sy-tcode eq '/PWS/ZYCB111_C' and v_controle = 0.

...

else.

loop at itab_zycbt129p where belnr ne ' '.

endloop.

if sy-subrc ne 0.

perform fill_date1_f02.

if wa_zyglt009-comp_transemp = 'C'.

perform fill_date_f04.

endif.

perform save_zycbt129.

else.

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

move /pws/zycbe128 to /pws/zycbt128.

* << Fim da exclusão

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

move-corresponding /pws/zycbe128 to /pws/zycbt128.

* << Fim da inclusão

perform reverse_document_zycbt128.

perform save_zycbt129.

endif.

endform.

form call_zycb105.

data: v_numero like /pws/zycbt128-nrseq,

v_empresa like /pws/zycbt128-bukrs,

v_divisao like /pws/zycbt128-gsber,

...

perform message_store using

'/PWS/ZYCBM'

'I'

itab_zycbt032-msg

space

'015'.

/pws/zycbe128-statusp = text-021.

/pws/zycbe128-belnr = itab_zycbt032-belnr.

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

move /pws/zycbe128 to /pws/zycbt128.

* << Fim da exclusão

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

move-corresponding /pws/zycbe128 to /pws/zycbt128.

* << Fim da inclusão

modify /pws/zycbt128.

commit work.

else.

loop at itab_zycbt032.

perform message_store using

'/PWS/ZYCBM'

'E'

itab_zycbt032-msg

space

...

v_codeven

space

'254'.

endloop.

v_erro_exclusao = 'X'.

endif.

perform clear_date_batch.

endloop.

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

move /pws/zycbe128 to /pws/zycbt128.

* << Fim da exclusão

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

move-corresponding /pws/zycbe128 to /pws/zycbt128.

* << Fim da inclusão

modify /pws/zycbt128.

endform.

form clearing_conta_banco.

data v_flag.

clear: v_flag, v_nrdias.

v_nrdias = wa_zycbt128-dtvencto - v_data_inicial_old.

perform get_parameters_111_clear.

itab_zycbe033-mandt = sy-mandt.

itab_zycbe033-tcode = text-095.

itab_zycbe033-tabela = text-008.

...

perform message_store using

'/PWS/ZYCBM'

'I'

itab_zycbt032-msg

space

'015'.

/pws/zycbe128-statusp = text-021.

/pws/zycbe128-belnr_comp = itab_zycbt032-belnr.

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

move /pws/zycbe128 to /pws/zycbt128.

* << Fim da exclusão

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

move-corresponding /pws/zycbe128 to /pws/zycbt128.

* << Fim da inclusão

modify /pws/zycbt128.

commit work.

else.

loop at itab_zycbt032.

perform message_store using

'/PWS/ZYCBM'

'E'

itab_zycbt032-msg

v_codeven

space

...

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

Modificações efetuadas em REPS /PWS/MZYCB001F01

...

ENDLOOP.

LOOP AT itab_zycbt002.

itab_zycbt002-nrseqc = /pws/zycbe001-nrseqc.

MODIFY itab_zycbt002.

ENDLOOP.

ENDFORM.

FORM save_zycbt001.

DATA: v_ok,

v_dtvincul LIKE /pws/zycbt005-dtvincul,

v_alt_soc_parc(1) TYPE c.

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

MOVE /pws/zycbe001 TO /pws/zycbt001.

* << Fim da exclusão

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

move-corresponding /pws/zycbe001 to /pws/zycbt001.

* << Fim da inclusão

CLEAR t_zycbt003_ant.

REFRESH t_zycbt003_ant.

SELECT *

FROM /pws/zycbt003

INTO TABLE t_zycbt003_ant

WHERE nrseqc EQ /pws/zycbt001-nrseqc.

SELECT *

FROM /pws/zycbt005

UP TO 1 ROWS

WHERE nrseqc = /pws/zycbt001-nrseqc.

...

PERFORM reverse_document_zycbt_alt USING wa_zycbt001-belnr2

wa_zycbt001-dtvincul

wa_zycbt001-vlme

'/PWS/ZYCBT001'.

ENDIF.

PERFORM save_zycbt002.

PERFORM save_zycbt003.

MOVE /pws/zycbe001 TO wa_zycbt001.

MOVE /pws/zycbe074 TO wa_zycbt074.

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

/pws/zycbt001 = wa_zycbt001.

* << Fim da exclusão

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

move-corresponding wa_zycbt001 to /pws/zycbt001 .

* << Fim da inclusão

MODIFY /pws/zycbt001.

ELSE.

MOVE wa_zycbt001 TO /pws/zycbe001.

MOVE /pws/zycbe074 TO wa_zycbt074.

ENDIF.

PERFORM data_efetiva.

ENDFORM.

FORM save_zycbt002.

DATA: BEGIN OF itab_zycbt002_j_ant OCCURS 0.

...

IF NOT /pws/zycbe001-tpcontr(1) CA 'PS'.

CLEAR /pws/zycbt074-dtcont.

SELECT SINGLE dtcont

FROM /pws/zycbt074

INTO (/pws/zycbt074-dtcont)

WHERE nrseqc = wa_zycbt001-nrseqc.

ENDIF.

PERFORM verif_dt_lancto.

IF v_lanc NE 'S'.

MOVE wa_zycbt001 TO /pws/zycbe001.

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

MOVE /pws/zycbe001 TO /pws/zycbt001.

* << Fim da exclusão

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

move-corresponding /pws/zycbe001 to /pws/zycbt001.

* << Fim da inclusão

MODIFY /pws/zycbt001.

EXIT.

ENDIF.

IF wa_zycbt089-comp_trans EQ 'C'

AND /pws/zycbe001-tpcontr(1) NE 'T'.

IF /pws/zycbt001-tpcontr(1) = 'P' OR

/pws/zycbt001-tpcontr(1) = 'S'.

PERFORM estorno_pre_f04.

IF NOT itab_zycbt002p-belnr_comp IS INITIAL.

EXIT.

...

PERFORM fill_date1_f02.

ENDIF.

PERFORM save_zycbt221.

ENDIF.

ELSE.

LOOP AT itab_zycbt032.

MESSAGE i015 WITH itab_zycbt032-msg+0(50)

itab_zycbt032-msg+50(50).

ENDLOOP.

PERFORM clear_date_batch.

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

MOVE: wa_zycbt001 TO /pws/zycbe001,

wa_zycbt001 TO /pws/zycbt001.

* << Fim da exclusão

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

move-corresponding wa_zycbt001 to /pws/zycbe001.

move-corresponding wa_zycbt001 to /pws/zycbt001.

* << Fim da inclusão

MODIFY /pws/zycbt001.

SELECT SINGLE *

FROM /pws/zycbt001

INTO /pws/zycbe001

WHERE nrseqc = /pws/zycbe001-nrseqc.

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

MOVE /pws/zycbe001 TO wa_zycbt001.

* << Fim da exclusão

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

move-corresponding /pws/zycbe001 to wa_zycbt001.

* << Fim da inclusão

ENDIF.

ENDFORM.

FORM update_itab_zycbt002p.

DATA:

v_lines(4) TYPE n.

IF v_nrdias_aux2 GE v_periodo

AND NOT v_nrdias_aux2 IS INITIAL

AND NOT v_periodo IS INITIAL.

MESSAGE i015 WITH text-036.

...

ENDIF.

IF /pws/zycbe004 NE wa_zycbt004 AND NOT wa_zycbt004 IS INITIAL

AND /pws/zycbe004-frgzu = '2' AND /pws/zycbe004-frpagto = 'C'.

CLEAR: /pws/zycbe004-frgsx1, /pws/zycbe004-frgsx2,

/pws/zycbe004-frgsx3, /pws/zycbe004-frgsx4,

/pws/zycbe004-frgsx5, /pws/zycbe004-estrat,

/pws/zycbe004-bname, /pws/zycbe004-frgzu.

ENDIF.

CLEAR v_erro_bi.

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

MOVE /pws/zycbe004 TO /pws/zycbt004.

* << Fim da exclusão

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

move-corresponding /pws/zycbe004 to /pws/zycbt004.

* << Fim da inclusão

IF /pws/zycbe004-tpdesp EQ wa_zycbt004-tpdesp AND

/pws/zycbe004-bukrs EQ wa_zycbt004-bukrs AND

/pws/zycbe004-werks EQ wa_zycbt004-werks AND

/pws/zycbe004-j_1bbranch EQ wa_zycbt004-j_1bbranch AND

/pws/zycbe004-gsber EQ wa_zycbt004-gsber AND

/pws/zycbe004-benefic EQ wa_zycbt004-benefic AND

/pws/zycbe004-waers EQ wa_zycbt004-waers AND

/pws/zycbe004-vlme EQ wa_zycbt004-vlme AND

/pws/zycbe004-frpagto EQ wa_zycbt004-frpagto AND

/pws/zycbe004-txcneg EQ wa_zycbt004-txcneg AND

/pws/zycbe004-kostl EQ wa_zycbt004-kostl AND

/pws/zycbe004-prctr EQ wa_zycbt004-prctr AND

/pws/zycbe004-fipos EQ wa_zycbt004-fipos AND

/pws/zycbe004-status NE 'I' AND

NOT /pws/zycbe004-belnr IS INITIAL.

MESSAGE i017.

v_msg = 'X'.

ELSEIF NOT /pws/zycbe004-dtpagto IS INITIAL.

MESSAGE i040.

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

MOVE wa_zycbt004 TO /pws/zycbe004.

* << Fim da exclusão

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

move-corresponding wa_zycbt004 to /pws/zycbe004.

* << Fim da inclusão

ELSE.

/pws/zycbt004-status = 'I'.

IF NOT wa_zycbt004 IS INITIAL.

IF /pws/zycbe004-tpdesp EQ wa_zycbt004-tpdesp OR

/pws/zycbe004-nrparc EQ wa_zycbt004-nrparc OR

/pws/zycbe004-dtincl EQ wa_zycbt004-dtincl OR

/pws/zycbe004-dtliquid EQ wa_zycbt004-dtliquid OR

/pws/zycbe004-tpjuros EQ wa_zycbt004-tpjuros.

DELETE FROM /pws/zycbt004 WHERE nrseqc = /pws/zycbe004-nrseqc

AND tpdesp = wa_zycbt004-tpdesp

...

AND dtincl = wa_zycbt004-dtincl.

ADD /pws/zycbt005-vlvinc TO v_vlvinc.

ENDSELECT.

IF sy-subrc <> 0.

/pws/zycbt004-slvinc = /pws/zycbe004-vlme.

MODIFY /pws/zycbt004 FROM /pws/zycbt004.

MESSAGE s008.

ELSE.

/pws/zycbt004-slvinc = /pws/zycbt004-vlme - v_vlvinc.

IF /pws/zycbt004-slvinc < 0.

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

MOVE wa_zycbt004 TO /pws/zycbe004.

* << Fim da exclusão

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

move-corresponding wa_zycbt004 to /pws/zycbe004.

* << Fim da inclusão

MESSAGE i095.

ELSE.

MODIFY /pws/zycbt004 FROM /pws/zycbt004.

MESSAGE s008.

ENDIF.

ELSE.

/pws/zycbt004-slvinc = /pws/zycbe004-vlme.

MODIFY /pws/zycbt004 FROM /pws/zycbt004.

IF sy-subrc EQ 0.

MESSAGE s008.

ENDIF.

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

MOVE /pws/zycbe004 TO wa_zycbt004.

* << Fim da exclusão

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

move-corresponding /pws/zycbe004 to wa_zycbt004.

* << Fim da inclusão

CHECK v_erro_bi IS INITIAL.

IF /pws/zycbe004-frpagto = 'C'.

IF /pws/zycbe004-belnr IS INITIAL.

PERFORM verifica_estrategia_liberacao.

IF /pws/zycbe004-frgzu = '1'.

MODIFY /pws/zycbt004 FROM /pws/zycbe004.

ENDIF.

CHECK v_erro_bi IS INITIAL.

IF /pws/zycbe004-frgzu = '2'.

PERFORM contabiliza_despesa.

...

CLEAR v_answer.

IF v_status_s = '0'.

AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD c_transacao_a.

IF sy-subrc = 0.

IF v_reg_usado IS INITIAL.

v_status_s = '1'.

SELECT SINGLE *

FROM /pws/zycbt001

INTO /pws/zycbe001

WHERE nrseqc = /pws/zycbe001-nrseqc.

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

MOVE: /pws/zycbe001 TO wa_zycbt001,

/pws/zycbe001 TO /pws/zycbt001.

* << Fim da exclusão

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

move-corresponding /pws/zycbe001 to wa_zycbt001.

move-corresponding /pws/zycbe001 to /pws/zycbt001.

* << Fim da inclusão

MOVE /pws/zycbe001 TO wa_zycbe001_ant.

IF /pws/zycbe001-tpcontr(1) CA 'PS' AND

/pws/zycbe001-ffrcalc = 'F'.

REFRESH itab_jurosfixo_ant.

itab_jurosfixo_ant[] = itab_zycbt002[].

ENDIF.

ELSE.

MESSAGE i120 WITH text-185.

ENDIF.

...

ENDIF.

MODIFY itab_zycbt002p TRANSPORTING v_flag

WHERE belnr = itab_zycbt002p_ant-belnr.

ENDLOOP.

itab_zycbt002p-v_flag = 'I'.

MODIFY itab_zycbt002p TRANSPORTING v_flag

WHERE v_flag = ' '.

IF sy-subrc = 0.

v_estorna = 'S'.

ENDIF.

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

MOVE /pws/zycbe001 TO /pws/zycbt001.

MOVE /pws/zycbe074 TO wa_zycbt074.

* << Fim da exclusão

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

move-corresponding /pws/zycbe001 to /pws/zycbt001.

move-corresponding /pws/zycbe074 to wa_zycbt074.

* << Fim da inclusão

IF /pws/zycbe001-fdtlanc = 'O'.

MOVE /pws/zycbe001-dtcontr TO v_data2.

MOVE wa_zycbt001-dtcontr TO v_data3.

ELSEIF /pws/zycbe001-fdtlanc = 'D'.

MOVE /pws/zycbe001-dtdesem TO v_data2.

MOVE wa_zycbt001-dtdesem TO v_data3.

ELSEIF /pws/zycbe001-fdtlanc = 'C'.

MOVE /pws/zycbe001-dtcred TO v_data2.

MOVE wa_zycbt001-dtcred TO v_data3.

ENDIF.

...

LOOP AT itab_zycbt032.

MESSAGE i015 WITH itab_zycbt032-msg+0(50)

itab_zycbt032-msg+50(50).

ENDLOOP.

ENDIF.

ELSE.

LOOP AT itab_zycbt034.

MESSAGE i016 WITH itab_zycbt034-descricao.

ENDLOOP.

PERFORM clear_date_batch.

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

MOVE: wa_zycbt001 TO /pws/zycbe001,

wa_zycbt001 TO /pws/zycbt001.

* << Fim da exclusão

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

move-corresponding wa_zycbt001 to /pws/zycbe001.

move-corresponding wa_zycbt001 to /pws/zycbt001.

* << Fim da inclusão

MODIFY /pws/zycbt001.

SELECT SINGLE * FROM /pws/zycbt001

INTO /pws/zycbe001

WHERE nrseqc = /pws/zycbe001-nrseqc.

MOVE /pws/zycbe001 TO wa_zycbt001.

ENDIF.

ENDFORM.

FORM calc_paridade USING value(p_moeda)

value(p_valor)

...

nrparc = itab_zycbt002p_ant-nrparc.

IF sy-subrc EQ 0.

IF itab_zycbt002p-vlme NE itab_zycbt002p_ant-vlme.

v_alt_princ = 'S'.

ENDIF.

ELSE.

v_alt_princ = 'S'.

ENDIF.

ENDLOOP.

ENDIF.

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

MOVE /pws/zycbe001 TO /pws/zycbt001.

* << Fim da exclusão

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

move-corresponding /pws/zycbe001 to /pws/zycbt001.

* << Fim da inclusão

IF /pws/zycbe001-fdtlanc = 'O'.

MOVE /pws/zycbe001-dtcontr TO v_data2.

MOVE wa_zycbt001-dtcontr TO v_data3.

ELSEIF /pws/zycbe001-fdtlanc = 'D'.

MOVE /pws/zycbe001-dtdesem TO v_data2.

MOVE wa_zycbt001-dtdesem TO v_data3.

ELSEIF /pws/zycbe001-fdtlanc = 'C'.

MOVE /pws/zycbe001-dtcred TO v_data2.

MOVE wa_zycbt001-dtcred TO v_data3.

ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCB001F02

FORM lanca_pre_pagamento_acc.

CLEAR: itab_erro,

itab_acerto,

itab_contabil.

REFRESH: itab_erro,

itab_acerto,

itab_contabil.

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

MOVE /pws/zycbe001 TO /pws/zycbt001.

* << Fim da exclusão

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

move-corresponding /pws/zycbe001 to /pws/zycbt001.

* << Fim da inclusão

IF /pws/zycbe001-fdtlanc = 'O'.

MOVE /pws/zycbe001-dtcontr TO v_data2.

MOVE wa_zycbt001-dtcontr TO v_data3.

ELSEIF /pws/zycbe001-fdtlanc = 'D'.

MOVE /pws/zycbe001-dtdesem TO v_data2.

MOVE wa_zycbt001-dtdesem TO v_data3.

ELSEIF /pws/zycbe001-fdtlanc = 'C'.

MOVE /pws/zycbe001-dtcred TO v_data2.

MOVE wa_zycbt001-dtcred TO v_data3.

ENDIF.

...

/pws/zycbe074-rkaufnr_or EQ wa_zycbt074-rkaufnr_or AND

/pws/zycbe074-spart_or EQ wa_zycbt074-spart_or AND

/pws/zycbe074-versi_or EQ wa_zycbt074-versi_or AND

/pws/zycbe074-vkorg_or EQ wa_zycbt074-vkorg_or AND

/pws/zycbe074-vrgar_or EQ wa_zycbt074-vrgar_or AND

/pws/zycbe074-werks_or EQ wa_zycbt074-werks_or AND

/pws/zycbe074-vtweg_or EQ wa_zycbt074-vtweg_or AND

( /pws/zycbe001-ftxt EQ 'X' AND

/pws/zycbe001-txtinf EQ wa_zycbt001-txtinf ) AND

/pws/zycbe001-status EQ 'C'.

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

MOVE /pws/zycbe001 TO /pws/zycbt001.

MOVE /pws/zycbe074 TO wa_zycbt074.

* << Fim da exclusão

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

move-corresponding /pws/zycbe001 to /pws/zycbt001.

move-corresponding /pws/zycbe074 to wa_zycbt074.

* << Fim da inclusão

IF wa_zycbt007-cfm = 'X'.

SELECT SINGLE *

FROM /pws/zycbt001

INTO wa_zycbt001_log

WHERE nrseqc = /pws/zycbe001-nrseqc.

ENDIF.

MODIFY /pws/zycbt001.

IF wa_zycbt007-cfm = 'X'.

PERFORM monta_log_cfm USING /pws/zycbt001

'/PWS/ZYCBT001'

...

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

Modificações efetuadas em REPS /PWS/MZYCB001F04

...

PERFORM reverse_document_zycbt_alt USING wa_zycbt001-belnr2

wa_zycbt001-dtvincul

wa_zycbt001-vlme

'/PWS/ZYCBT001'.

ENDIF.

PERFORM save_zycbt002.

PERFORM save_zycbt003.

MOVE /pws/zycbe001 TO wa_zycbt001.

MOVE /pws/zycbe074 TO wa_zycbt074.

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

/pws/zycbt001 = wa_zycbt001.

* << Fim da exclusão

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

move-corresponding wa_zycbt001 to /pws/zycbt001.

* << Fim da inclusão

MODIFY /pws/zycbt001.

ELSE.

MOVE wa_zycbt001 TO /pws/zycbe001.

MOVE /pws/zycbe074 TO wa_zycbt074.

ENDIF.

PERFORM data_efetiva.

ENDFORM.

FORM fill_date_fb02 USING p_pt_st.

PERFORM clear_date_batch.

itab_zycbe033-mandt = sy-mandt.

...

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

Modificações efetuadas em REPS /PWS/MZYCB001I01

...

wa_log

'A'.

ENDSELECT.

ENDIF.

MOVE-CORRESPONDING /pws/zycbe004 TO wa_zycbe004_d.

CLEAR: /pws/zycbe004.

MOVE-CORRESPONDING wa_zycbe004_d TO /pws/zycbe004.

MESSAGE s018.

CLEAR v_alt_desp.

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

MOVE /pws/zycbe004 TO wa_zycbt004.

* << Fim da exclusão

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

move-corresponding /pws/zycbe004 to wa_zycbt004.

* << Fim da inclusão

ENDIF.

ELSE.

IF /pws/zycbe004-dtpagto EQ '00000000'

AND /pws/zycbt031-nrseq IS INITIAL.

IF /pws/zycbe004-frpagto NE 'C'.

DELETE FROM /pws/zycbt004 WHERE

nrseqc = /pws/zycbe004-nrseqc

AND tpdesp = /pws/zycbe004-tpdesp

AND nrparc = /pws/zycbe004-nrparc

AND dtincl = /pws/zycbe004-dtincl

...

WHERE nrseqc = /pws/zycbe004-nrseqc

AND dtvincul = /pws/zycbe004-dtincl

AND nrparc = /pws/zycbe004-nrparc.

COMMIT WORK.

ENDIF.

MOVE-CORRESPONDING /pws/zycbe004 TO wa_zycbe004_d.

CLEAR: /pws/zycbe004.

MOVE-CORRESPONDING wa_zycbe004_d TO /pws/zycbe004.

MESSAGE s018.

CLEAR v_alt_desp.

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

MOVE /pws/zycbe004 TO wa_zycbt004.

* << Fim da exclusão

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

move-corresponding /pws/zycbe004 to wa_zycbt004.

* << Fim da inclusão

ELSE.

IF NOT /pws/zycbe004-belnr IS INITIAL.

PERFORM estorna_despesa.

ENDIF.

IF /pws/zycbe004-belnr IS INITIAL.

DELETE FROM /pws/zycbt004 WHERE

nrseqc = /pws/zycbe004-nrseqc

AND tpdesp = /pws/zycbe004-tpdesp

AND nrparc = /pws/zycbe004-nrparc

AND dtincl = /pws/zycbe004-dtincl

...

WHERE nrseqc = /pws/zycbe004-nrseqc

AND dtvincul = /pws/zycbe004-dtincl

AND nrparc = /pws/zycbe004-nrparc.

COMMIT WORK.

ENDIF.

MOVE-CORRESPONDING /pws/zycbe004 TO wa_zycbe004_d.

CLEAR: /pws/zycbe004.

MOVE-CORRESPONDING wa_zycbe004_d TO /pws/zycbe004.

MESSAGE s018.

CLEAR v_alt_desp.

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

MOVE /pws/zycbe004 TO wa_zycbt004.

* << Fim da exclusão

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

move-corresponding /pws/zycbe004 to wa_zycbt004.

* << Fim da inclusão

ENDIF.

ELSE.

MESSAGE i187.

ENDIF.

CLEAR v_pagto.

PERFORM clear_date_batch.

CLEAR /pws/zycbe004.

WHEN 'AEND'.

...

ELSE.

MESSAGE i120 WITH text-185.

ENDIF.

ELSE.

IF /pws/zycbe004 NE wa_zycbt004.

PERFORM popup_message USING text-024 text-025.

IF v_answer EQ 'J'.

PERFORM save_zycbt004.

ENDIF.

ELSE.

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

MOVE wa_zycbt004 TO /pws/zycbe004.

* << Fim da exclusão

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

move-corresponding wa_zycbt004 to /pws/zycbe004.

* << Fim da inclusão

ENDIF.

v_status_s200 = '0'.

ENDIF.

WHEN 'BACK'.

IF v_status_s200 NE 0.

IF /pws/zycbe004 NE wa_zycbt004.

PERFORM popup_message USING text-024 text-025.

IF v_answer EQ 'J'.

PERFORM save_zycbt004.

ENDIF.

...

ENDMODULE.

MODULE user_command_0206_exit INPUT.

LEAVE TO SCREEN 0.

ENDMODULE.

MODULE user_command_0206 INPUT.

CASE okcode.

WHEN 'ENTER'.

PERFORM move_zycbt004.

LEAVE TO SCREEN 0.

WHEN 'CANCEL'.

* >> Início da exclusão: MODULE USER_COMMAND_0206

MOVE wa_zycbt004 TO /pws/zycbe004.

* << Fim da exclusão

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

move-corresponding wa_zycbt004 to /pws/zycbe004.

* << Fim da inclusão

ENDCASE.

ENDMODULE.

MODULE soma_juros_esc INPUT.

PERFORM soma_juros_esc.

ENDMODULE.

MODULE user_command_0114 INPUT.

CASE okcode.

WHEN 'MARK'.

LOOP AT itab_zycbt216.

itab_zycbt216-mark = 'X'.

...

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

Modificações efetuadas em REPS /PWS/MZYCB001O01

...

/pws/zycbe004-nrseqc = /pws/zycbe001-nrseqc.

/pws/zycbe004-dtincl = sy-datum.

/pws/zycbe004-nrcontr = /pws/zycbe001-nrcontr .

/pws/zycbe004-tpcontr = /pws/zycbe001-tpcontr .

/pws/zycbe004-bconegoc = /pws/zycbe001-bconegoc.

/pws/zycbe004-bcofinan = /pws/zycbe001-bcofinan.

/pws/zycbe004-bukrs = /pws/zycbe001-bukrs.

/pws/zycbe004-gsber = /pws/zycbe001-gsber.

/pws/zycbe004-werks = /pws/zycbe001-werks.

/pws/zycbe004-j_1bbranch = /pws/zycbe001-j_1bbranch.

* >> Início da exclusão: MODULE LOAD_DATA_ZYCBE004

wa_zycbt004 = /pws/zycbe004.

* << Fim da exclusão

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

move-corresponding /pws/zycbe004 to wa_zycbt004.

* << Fim da inclusão

endif.

if not wa_zycbt007-fltxt is initial.

/pws/zycbe004-ftxt = 'X'.

endif.

endmodule.

module status_0200 output.

if v_status_s200 = 0.

itab_pf_status-fcode = 'DELE'.

append itab_pf_status.

v_fcode = 'ANLE'.

...

select max( nrseql )

from /pws/zycbt091

into (maior)

where nrseqc = /pws/zycbe091-nrseqc.

/pws/zycbe091-nrseql = maior + 1.

v_altval = 'X'.

endif.

endmodule.

module teste output.

loop at itab_zycbt004.

* >> Início da exclusão: MODULE TESTE

/pws/zycbe004 = itab_zycbt004.

* << Fim da exclusão

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

move-corresponding itab_zycbt004 to /pws/zycbe004.

* << Fim da inclusão

endloop.

modify screen.

endmodule.

module verif_boleto output.

select single * from /pws/zycbt031

where nrcorresp eq itab_zycbt136-nrseqc and

nrparc eq itab_zycbt136-nrparc and

tpdesp eq 'PR'.

if sy-subrc eq 0.

loop at screen.

...

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

Modificações efetuadas em REPS /PWS/MZYCB104F01

...

v_existe = 'S'.

endwhile.

if v_existe eq 'S'.

v_existe = 'N'.

message i061 with text-017 text-018 /pws/zycbe117-nrseq.

endif.

else.

delete from /pws/zycmt020 where nrseq = /pws/zycbe117-nrseq and

codmod = 'PA'.

modify /pws/zycmt020 from table itab_zycmt020.

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

move /pws/zycbe117 to /pws/zycbt117.

* << Fim da exclusão

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

move-corresponding /pws/zycbe117 to /pws/zycbt117.

* << Fim da inclusão

modify /pws/zycbt117.

endif.

if sy-subrc eq 0.

v_gravado117 = v_gravado117 + 1.

endif.

perform salva_dados_bancarios.

if itab_zyglt100[] is initial.

v_syrepid = sy-repid.

call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

exporting

...

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

Modificações efetuadas em REPS /PWS/MZYCB106F01

...

where nrseq = /pws/zycbe119-nrpagto.

if not /pws/zycbe119-nrdi is initial and sy-subrc = 0.

v_nrdi = /pws/zycbe119-nrdi.

clear /pws/zycbe119-nrdi.

modify /pws/zycbt119 from /pws/zycbe119.

/pws/zycbe119-nrdi = v_nrdi.

else.

modify /pws/zycbt119 from /pws/zycbe119.

endif.

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

wa_zycbt119 = /pws/zycbe119.

* << Fim da exclusão

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

move-corresponding /pws/zycbe119 to wa_zycbt119.

* << Fim da inclusão

if sy-subrc eq 0.

v_gravado = v_gravado + 1.

endif.

loop at itab_zycbt123.

move 'P' to itab_zycbt123-tpdoc.

modify itab_zycbt123 index sy-tabix.

endloop.

if not itab_zycbt123_del[] is initial.

delete /pws/zycbt123 from table itab_zycbt123_del.

endif.

...

if sy-subrc eq 0 and v_gravado eq 3.

if ok_code eq 'SAVE'.

message s061 with text-013 /pws/zycbe119-nrseq

text-015 /pws/zycbe119-bukrs.

v_status_s = '0'.

endif.

/pws/zycbe119-nrseq = v_temp.

clear itab_zycbt119_aux.

refresh itab_zycbt119_aux.

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

move /pws/zycbe119 to itab_zycbt119_aux.

* << Fim da exclusão

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

move-corresponding /pws/zycbe119 to itab_zycbt119_aux.

* << Fim da inclusão

if sy-tcode eq '/PWS/ZYCB106_C'.

perform grava_dias_cond_pagto.

set parameter id '/PWS/ZYCBP344' field /pws/zycbe119-nrseq.

if sy-binpt is initial.

leave to transaction '/PWS/ZYCB106_E' and skip first screen.

endif.

if sy-tcode eq '/PWS/ZYCB106_C'.

free: itab_zycbt119, itab_zycbt123, itab_zycbt115,

itab_zycit130, itab_zycit130_ci.

...

if sy-tcode eq '/PWS/ZYCB106_A' and

/pws/zycbt108-slfat is initial

and not /pws/zycbe119-dtpagto is initial.

message i015 with text-098 text-099.

sy-tcode = '/PWS/ZYCB106_E'. "#EC *

v_status_s = 0.

endif.

move /pws/zycbe119 to wa_zycbt119.

move /pws/zycbe119 to itab_zycbt119_aux.

perform calcula_moeda_interna.

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

move /pws/zycbe119 to wa_zycbt119.

move /pws/zycbe119 to itab_zycbt119_aux.

* << Fim da exclusão

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

move-corresponding /pws/zycbe119 to wa_zycbt119.

move-corresponding /pws/zycbe119 to itab_zycbt119_aux.

* << Fim da inclusão

/pws/zycbe119-nrseq = v_exibe.

wa_zycbt119-nrseq = v_exibe.

if sy-tcode eq '/PWS/ZYCB106_E'.

v_status_s = '0'.

elseif sy-tcode eq '/PWS/ZYCB106_A'.

v_status_s = '1'.

endif.

if sy-tcode eq '/PWS/ZYCB106_C'.

authority-check object 'F_BKPF_BUK' id 'BUKRS'

dummy

...

wa_zycbt119-nrseq = /pws/zycbe119-nrseq.

if /pws/zycbe119 ne wa_zycbt119.

perform popup_message using text-014 text-006.

endif.

case v_answer.

when 'J'.

perform salvar_dados.

v_status_s = '0'.

v_tcode = '/PWS/ZYCB106_E'.

when 'N'.

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

move wa_zycbt119 to /pws/zycbe119.

* << Fim da exclusão

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

move-corresponding wa_zycbt119 to /pws/zycbe119.

* << Fim da inclusão

v_status_s = '0'.

v_tcode = '/PWS/ZYCB106_E'.

when 'A' .

v_status_s = '1'.

v_tcode = '/PWS/ZYCB106_A'.

when others.

v_status_s = '0'.

v_tcode = '/PWS/ZYCB106_E'.

endcase.

perform unlock_record.

...

tpmsg = 'S'.

if sy-subrc = 0.

message i223 with itab_zycbt032-belnr.

/pws/zycbe119-statusp = 'I'.

clear /pws/zycit006.

select single nrseq from /pws/zycit006

into /pws/zycit006-nrseq

where nrseq eq /pws/zycbe119-nrpagto.

if sy-subrc ne 0.

endif.

* >> Início da exclusão: FORM FILL_DATE_F-43

move /pws/zycbe119 to /pws/zycbt119.

* << Fim da exclusão

* >> Início da inclusão: FORM FILL_DATE_F-43

move-corresponding /pws/zycbe119 to /pws/zycbt119.

* << Fim da inclusão

modify /pws/zycbt119.

* >> Início da exclusão: FORM FILL_DATE_F-43

move /pws/zycbe119 to wa_zycbt119.

* << Fim da exclusão

* >> Início da inclusão: FORM FILL_DATE_F-43

move-corresponding /pws/zycbe119 to wa_zycbt119.

* << Fim da inclusão

commit work.

else.

loop at itab_zycbt032.

...

perform ver_alter_item.

if /pws/zycbe119 = wa_zycbt119 and

sy-subrc ne 0.

v_answer = 'N'.

else.

perform popup_message using text-014 text-006.

endif.

if v_answer = 'J'.

perform salvar_dados.

elseif v_answer = 'N'.

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

move wa_zycbt119 to /pws/zycbe119.

* << Fim da exclusão

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

move-corresponding wa_zycbt119 to /pws/zycbe119.

* << Fim da inclusão

else.

leave to screen '0100'.

endif.

perform unlock_record.

endif.

endform.

form retorna_processa.

select nrseq

from /pws/zycbt031

...

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

Modificações efetuadas em REPS /PWS/MZYCM112F01

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

Modificações efetuadas em REPS /PWS/MZYGL011F01

...

form save_eventos.

delete from /pws/zycbt011 where bukrs = d_bukrs

and codeven = itab_opers-codeven

and codmod = itab_opers-codmod.

modify /pws/zycbt011 from /pws/zycbe011. "#EC ENHOK

commit work and wait.

if sy-subrc eq 0.

message s000 with text-027.

clear: itab_zycbt011_cr, v_confirm.

refresh itab_zycbt011_cr.

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

move /pws/zycbe011 to itab_zycbt011_cr.

* << Fim da exclusão

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

move-corresponding /pws/zycbe011 to itab_zycbt011_cr.

* << Fim da inclusão

append itab_zycbt011_cr.

perform gera_request.

else.

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

endif.

wa_zycbt011_save = /pws/zycbe011.

endform.

form comm_prior.

perform verifica_alteracao.

if not v_confirm eq 'A'.

...

text_button_1 = text-021

text_button_2 = text-022

default_button = '2'

display_cancel_button = ' '

importing

answer = v_confirm

exceptions

text_not_found = 1

others = 2.

if v_confirm = '1'.

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

move /pws/zycbe011 to itab_zycbt011_cr.

* << Fim da exclusão

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

move-corresponding /pws/zycbe011 to itab_zycbt011_cr.

* << Fim da inclusão

append itab_zycbt011_cr.

perform gera_request.

endif.

leave to screen 0100.

endif.

endform.

form busca_grupo.

if /pws/zygle309 is initial.

select *

from /pws/zyglt313

...