Visualização da Nota 6017

CE PLUS - Nota 006017

Módulo: CÂMBIO FINANCEIRO

Funcionalidade: Relatórios

Data/Hora da Publicação: 25/02/2008 00:00:00

Data/Hora Última Alteração: 03/03/2010 17:56:13

Descrição da Nota: CB - 442639 - CODE INSPECTOR

Sintoma

CB - 442639 - CODE INSPECTOR

Solução

CB - 442639 - CODE INSPECTOR

Versões Tratadas

7.0

Informações Complementares

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

Nota Número 06017 Data: 25/02/2008 Hora: 16:38:28

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

Nota Número : 06017

Categoria : Melhoria

Prioridade : Baixa

Versão PW.CE : 7.0

Pacote : 00004

Agrupamento : 00036

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

CB - 442639 - CODE INSPECTOR

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

Palavras Chave:

CB - 442639 - CODE INSPECTOR

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

Objetos da nota:

DYNP /PWS/SAPMZYCB030 0103

RELE F6DK958300 20080225 154328 PWSCB

REPS /PWS/MZYCB030F01

REPS /PWS/MZYCB030F02

REPS /PWS/MZYCB030F03

REPS /PWS/MZYCB030I01

REPS /PWS/MZYCB030O01

REPS /PWS/MZYCB030TOP

REPS /PWS/MZYCB030X01

REPS /PWS/MZYCB033F01

REPS /PWS/MZYCB033I01

REPS /PWS/MZYCB033O01

REPS /PWS/MZYCB033TOP

REPS /PWS/MZYCB508F01

REPS /PWS/MZYCB508TOP

REPS /PWS/MZYCB509F01

REPS /PWS/MZYCB509TOP

REPS /PWS/MZYCB510F01

REPS /PWS/MZYCB510TOP

REPS /PWS/MZYCBT133F01

REPS /PWS/MZYCBT133TOP

REPS /PWS/MZYGL032F01

REPS /PWS/MZYGL032I01

REPS /PWS/MZYGL032O01

REPS /PWS/MZYGL032TOP

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

Modificações efetuadas em DYNP /PWS/SAPMZYCB030 0103

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

Modificações efetuadas em RELE F6DK958300 20080225 154328 PWSCB

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

Modificações efetuadas em REPS /PWS/MZYCB030F01

...

client = sy-mandt

id = itab_thead-tdid

language = itab_thead-tdspras

name = itab_thead-tdname

object = itab_thead-tdobject

IMPORTING

header = itab_thead

TABLES

lines = itab_tline

EXCEPTIONS

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

id = 1

language = 2

name = 3

not_found = 4

object = 5

reference_check = 6

wrong_access_to_archive = 7

OTHERS = 8.

* << Fim da exclusão

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

id = 0

language = 0

name = 0

not_found = 0

object = 0

reference_check = 0

wrong_access_to_archive = 0

OTHERS = 0.

* << Fim da inclusão

IF v_status_s EQ '0'.

MOVE 'X' TO v_disp.

ENDIF.

CALL FUNCTION 'EDIT_TEXT'

EXPORTING

header = itab_thead

display = v_disp

TABLES

lines = itab_tline

EXCEPTIONS

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

id = 1

language = 2

linesize = 3

name = 4

object = 5

textformat = 6

communication = 7

OTHERS = 8.

* << Fim da exclusão

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

id = 0

language = 0

linesize = 0

name = 0

object = 0

textformat = 0

communication = 0

OTHERS = 0.

* << Fim da inclusão

CLEAR okcode.

ENDFORM.

FORM delete_text USING v_tdname.

CLEAR: itab_thead, itab_tline.

REFRESH: itab_thead, itab_tline.

itab_thead-tdobject = text-001.

itab_thead-tdname = v_tdname.

itab_thead-tdid = 'CB01'.

itab_thead-tdspras = 'P'.

itab_thead-tdlinesize = '070'.

CALL FUNCTION 'DELETE_TEXT'

EXPORTING

client = sy-mandt

id = itab_thead-tdid

language = itab_thead-tdspras

name = itab_thead-tdname

object = itab_thead-tdobject

EXCEPTIONS

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

not_found = 1

OTHERS = 2.

* << Fim da exclusão

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

not_found = 0

OTHERS = 0.

* << Fim da inclusão

ENDFORM.

FORM lock_record.

CHECK NOT /pws/zycbe092-nrseq IS INITIAL.

CALL FUNCTION '/PWS/ZYCB_ENQUEUE_ZYCBT092'

EXPORTING

nrseq = /pws/zycbe092-nrseq

EXCEPTIONS

foreign_lock = 1

system_failure = 2.

CASE sy-subrc.

...

v_canc_saldo = /pws/zycbe093-canc_saldo.

SELECT SINGLE * FROM /pws/zycbt094 INTO /pws/zycbe094

WHERE nrseq = v_nrseq.

IF NOT /pws/zycbe094-dtencer IS INITIAL.

v_status_s = 0.

ENDIF.

SELECT SINGLE * FROM /pws/zycbt095 INTO /pws/zycbe095

WHERE nrseq = v_nrseq.

SELECT * FROM /pws/zycbt096 INTO TABLE itab_zycbt096

WHERE nrseq = v_nrseq AND

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

ovfor = ''.

* << Fim da exclusão

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

ovfor = ''. "#EC CI_NOFIRST

* << Fim da inclusão

IF sy-subrc = 0.

v_iteov = 'X'.

ENDIF.

IF itab_zycbt096[] IS INITIAL.

SELECT * FROM /pws/zycbt096 INTO TABLE itab_zycbt096

WHERE nrseq = v_nrseq AND

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

ovfor = 'F'.

* << Fim da exclusão

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

ovfor = 'F'. "#EC CI_NOFIRST

* << Fim da inclusão

IF sy-subrc = 0.

v_itfor = 'X'.

ENDIF.

SELECT * FROM /pws/zycbt097 INTO TABLE itab_zycbt097

WHERE nrseq = v_nrseq.

SELECT * FROM /pws/zycbt098 INTO TABLE itab_zycbt098

WHERE nrseq = v_nrseq.

SELECT * FROM /pws/zycbt237 INTO TABLE itab_zycbt237

WHERE nrseq = v_nrseq.

SELECT * FROM /pws/zycbt099 INTO TABLE itab_zycbt099

WHERE nrseq = v_nrseq.

SELECT * FROM /pws/zycbt161 INTO TABLE itab_zycbt161

WHERE nrseq = v_nrseq AND

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

ovfor = ''.

* << Fim da exclusão

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

ovfor = ''. "#EC CI_NOFIRST

* << Fim da inclusão

IF sy-subrc = 0.

v_ordven = 'X'.

ENDIF.

IF itab_zycbt161[] IS INITIAL.

SELECT * FROM /pws/zycbt161 INTO TABLE itab_zycbt161

WHERE nrseq = v_nrseq AND

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

ovfor = 'F'.

* << Fim da exclusão

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

ovfor = 'F'. "#EC CI_NOFIRST

* << Fim da inclusão

IF sy-subrc = 0.

v_fornc = 'X'.

ENDIF.

IF NOT itab_zycbt096[] IS INITIAL.

IF v_ordven = 'X' OR v_iteov = 'X'.

SELECT nrseq vbeln_va vbeln_vf posnr docnum

vbeln_vl posnl aupos shkzg vlme

FROM /pws/zycet002

INTO TABLE itab_zycet002

...

CLEAR itab_nrseq.

REFRESH itab_nrseq.

LOOP AT itab_zycet001.

MOVE itab_zycet001-nrseq TO itab_nrseq-nrinvoic.

APPEND itab_nrseq.

ENDLOOP.

SELECT *

FROM /pws/zycbt005

INTO TABLE itab_zycbt005

FOR ALL ENTRIES IN itab_nrseq

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

WHERE nrinvoic EQ itab_nrseq-nrinvoic.

* << Fim da exclusão

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

WHERE nrinvoic EQ itab_nrseq-nrinvoic. "#EC CI_NOFIRST

* << Fim da inclusão

SELECT * FROM /pws/zycbt006

INTO TABLE itab_zycbt006

FOR ALL ENTRIES IN itab_nrseq

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

WHERE nrinvoic = itab_nrseq-nrinvoic.

* << Fim da exclusão

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

WHERE nrinvoic = itab_nrseq-nrinvoic. "#EC CI_NOFIRST

* << Fim da inclusão

SELECT * FROM /pws/zycbt209

...

CLEAR itab_nrseq.

REFRESH itab_nrseq.

LOOP AT itab_zycet001.

MOVE itab_zycet001-nrseq TO itab_nrseq-nrinvoic.

APPEND itab_nrseq.

ENDLOOP.

SELECT *

FROM /pws/zycbt005

INTO TABLE itab_zycbt005

FOR ALL ENTRIES IN itab_nrseq

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

WHERE nrinvoic EQ itab_nrseq-nrinvoic.

* << Fim da exclusão

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

WHERE nrinvoic EQ itab_nrseq-nrinvoic. "#EC CI_NOFIRST

* << Fim da inclusão

SELECT * FROM /pws/zycbt006

INTO TABLE itab_zycbt006

FOR ALL ENTRIES IN itab_nrseq

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

WHERE nrinvoic = itab_nrseq-nrinvoic.

* << Fim da exclusão

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

WHERE nrinvoic = itab_nrseq-nrinvoic. "#EC CI_NOFIRST

* << Fim da inclusão

SELECT * FROM /pws/zycbt209

...

dtabert = /pws/zycbe093-dtemissao

dtlimit = /pws/zycbe093-dtlimemb

dtvenc = /pws/zycbe093-dtvalneg

WHERE nrseq = itab_zycet014-nrseq.

ENDLOOP.

IF v_existe EQ 'S'.

v_existe = 'N'.

MESSAGE i061 WITH text-023 /pws/zycbe092-nrccred

text-024 /pws/zycbe092-nrseq.

ENDIF.

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

MESSAGE s205.

* << Fim da exclusão

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

MESSAGE s205. "#EC *

* << Fim da inclusão

MOVE: /pws/zycbe092 TO wa_zycbt092,

/pws/zycbe093 TO wa_zycbt093,

/pws/zycbe094 TO wa_zycbt094,

/pws/zycbe095 TO wa_zycbt095,

itab_zycbt096[] TO itab_zycbt096x[],

itab_zycbt161[] TO itab_zycbt161x[],

itab_zycbt097[] TO itab_zycbt097x[],

itab_zycbt098[] TO itab_zycbt098x[],

itab_zycbt099[] TO itab_zycbt099x[],

itab_zycbt237[] TO itab_zycbt237x[].

...

FORM popup_message USING value(p_textline1)

value(p_titel).

CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'

EXPORTING

defaultoption = 'Y'

textline1 = p_textline1

titel = p_titel

IMPORTING

answer = v_answer

EXCEPTIONS

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

OTHERS = 1.

* << Fim da exclusão

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

OTHERS = 0.

* << Fim da inclusão

ENDFORM.

FORM verifica_idioma.

IF /pws/zycbe092-spras NE v_spras.

IF /pws/zycbe092-spras IS INITIAL.

CLEAR: v_spras.

ELSE.

v_spras = /pws/zycbe092-spras.

CLEAR: /pws/zycbe092-buk_inf4, t005t.

CALL CUSTOMER-FUNCTION '001'

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

EXPORTING

bukrs = /pws/zycbe092-bukrs

spras = /pws/zycbe092-spras

IMPORTING

land1 = v_land1

EXCEPTIONS

empresa_invalida = 1.

CALL CUSTOMER-FUNCTION '002'

* << Fim da exclusão

EXPORTING

bukrs = /pws/zycbe092-bukrs

spras = /pws/zycbe092-spras

IMPORTING

land1 = v_land1

EXCEPTIONS

empresa_invalida = 1.

SELECT SINGLE landx FROM t005t

INTO /pws/zycbe092-buk_inf4

WHERE land1 EQ v_land1

...

IF sy-subrc EQ 0.

SELECT SINGLE * FROM t005t

WHERE land1 EQ lfa1-land1

AND land1 NE space

AND spras EQ /pws/zycbe092-spras.

IF sy-subrc EQ 0.

/pws/zycbe093-bneg_inf4 = t005t-landx.

ENDIF.

CLEAR: /pws/zycbe093-descr_zterm, t052u.

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

SELECT SINGLE text1 FROM t052u

* << Fim da exclusão

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

SELECT text1 FROM t052u

* << Fim da inclusão

INTO /pws/zycbe093-descr_zterm

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

UP TO 1 ROWS

* << Fim da inclusão

WHERE spras EQ /pws/zycbe092-spras

AND zterm EQ /pws/zycbe093-zterm.

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

ENDSELECT.

* << Fim da inclusão

CLEAR: /pws/zycbe095-descr_zterm, t052u.

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

SELECT SINGLE text1 FROM t052u

* << Fim da exclusão

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

SELECT text1 FROM t052u

* << Fim da inclusão

INTO /pws/zycbe095-descr_zterm

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

UP TO 1 ROWS

* << Fim da inclusão

WHERE spras EQ /pws/zycbe092-spras

AND zterm EQ /pws/zycbe095-zterm.

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

ENDSELECT.

* << Fim da inclusão

CLEAR: /pws/zycbe094-cons_inf4, t005t, kna1.

...

SELECT SINGLE * FROM t005t

WHERE land1 EQ kna1-land1

AND land1 NE space

AND spras EQ /pws/zycbe092-spras.

IF sy-subrc EQ 0.

/pws/zycbe094-cons_inf4 = t005t-landx.

ENDIF.

CLEAR: /pws/zycbe094-ship_inf4, t005t.

CALL CUSTOMER-FUNCTION '001'

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

EXPORTING

bukrs = /pws/zycbe094-shipper

spras = /pws/zycbe092-spras

IMPORTING

land1 = v_land2

EXCEPTIONS

empresa_invalida = 1.

CALL CUSTOMER-FUNCTION '002'

* << Fim da exclusão

EXPORTING

bukrs = /pws/zycbe094-shipper

spras = /pws/zycbe092-spras

IMPORTING

land1 = v_land2

EXCEPTIONS

empresa_invalida = 1.

SELECT SINGLE landx FROM t005t

INTO /pws/zycbe094-ship_inf4

WHERE land1 EQ v_land2

...

SELECT SINGLE * FROM t005t

WHERE land1 EQ lfa1-land1

AND land1 NE space

AND spras EQ /pws/zycbe092-spras.

IF sy-subrc EQ 0.

/pws/zycbe094-bsac_inf4 = t005t-landx.

ENDIF.

IF NOT /pws/zycbe094-codldes_inf IS INITIAL.

CLEAR: /pws/zycbe094-codldes_inf, t615t.

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

SELECT SINGLE bezei FROM t615t

* << Fim da exclusão

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

SELECT bezei FROM t615t

* << Fim da inclusão

INTO /pws/zycbe094-codldes_inf

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

UP TO 1 ROWS

* << Fim da inclusão

WHERE spras EQ /pws/zycbe092-spras

AND zolla EQ /pws/zycbe094-codldes.

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

ENDSELECT.

* << Fim da inclusão

ENDIF.

CLEAR: /pws/zycbe094-inco_inf, v_inco_inf, t615t, t005t.

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

SELECT SINGLE * FROM t615t

* << Fim da exclusão

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

SELECT * FROM t615t

UP TO 1 ROWS

* << Fim da inclusão

WHERE spras EQ /pws/zycbe092-spras

AND zolla EQ /pws/zycbe094-codldes.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc EQ 0.

SELECT SINGLE * FROM t005t

WHERE land1 EQ t615t-land1

AND land1 NE space

AND spras EQ /pws/zycbe092-spras.

...

/pws/zycbe092-buk_inf4 IS INITIAL ).

IF /pws/zycbe092-bukrs IS INITIAL.

CLEAR: /pws/zycbe092-buk_inf1,

/pws/zycbe092-buk_inf2,

/pws/zycbe092-buk_inf3,

/pws/zycbe092-buk_inf4,

v_bukrs,

v_land1.

ELSE.

CALL CUSTOMER-FUNCTION '001'

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

EXPORTING

bukrs = /pws/zycbe092-bukrs

spras = /pws/zycbe092-spras

IMPORTING

buk_inf1 = /pws/zycbe092-buk_inf1

buk_inf2 = /pws/zycbe092-buk_inf2

buk_inf3 = /pws/zycbe092-buk_inf3

buk_inf4 = /pws/zycbe092-buk_inf4

land1 = v_land1

EXCEPTIONS

empresa_invalida = 1.

CALL CUSTOMER-FUNCTION '002'

* << Fim da exclusão

EXPORTING

bukrs = /pws/zycbe092-bukrs

spras = /pws/zycbe092-spras

IMPORTING

buk_inf1 = /pws/zycbe092-buk_inf1

buk_inf2 = /pws/zycbe092-buk_inf2

buk_inf3 = /pws/zycbe092-buk_inf3

buk_inf4 = /pws/zycbe092-buk_inf4

land1 = v_land1

EXCEPTIONS

...

ENDIF.

IF /pws/zycbe093-zterm NE v_zterm OR

/pws/zycbe093-descr_zterm IS INITIAL.

IF /pws/zycbe093-zterm IS INITIAL.

CLEAR: /pws/zycbe093-descr_zterm,

v_zterm.

ELSE.

IF NOT /pws/zycbe092-spras IS INITIAL.

CLEAR t052u.

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

SELECT SINGLE * FROM t052u

* << Fim da exclusão

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

SELECT * FROM t052u

UP TO 1 ROWS

* << Fim da inclusão

WHERE spras EQ /pws/zycbe092-spras

AND zterm EQ /pws/zycbe093-zterm.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc EQ 0.

/pws/zycbe093-descr_zterm = t052u-text1.

ENDIF.

v_zterm = /pws/zycbe093-zterm.

...

/pws/zycbe094-ship_inf4 IS INITIAL ).

IF /pws/zycbe094-shipper IS INITIAL.

CLEAR: /pws/zycbe094-ship_inf1,

/pws/zycbe094-ship_inf2,

/pws/zycbe094-ship_inf3,

/pws/zycbe094-ship_inf4,

v_shipper,

v_land2.

ELSE.

CALL CUSTOMER-FUNCTION '001'

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

EXPORTING

bukrs = /pws/zycbe094-shipper

spras = /pws/zycbe092-spras

IMPORTING

buk_inf1 = /pws/zycbe094-ship_inf1

buk_inf2 = /pws/zycbe094-ship_inf2

buk_inf3 = /pws/zycbe094-ship_inf3

buk_inf4 = /pws/zycbe094-ship_inf4

land1 = v_land2

EXCEPTIONS

empresa_invalida = 1.

CALL CUSTOMER-FUNCTION '002'

* << Fim da exclusão

EXPORTING

bukrs = /pws/zycbe094-shipper

spras = /pws/zycbe092-spras

IMPORTING

buk_inf1 = /pws/zycbe094-ship_inf1

buk_inf2 = /pws/zycbe094-ship_inf2

buk_inf3 = /pws/zycbe094-ship_inf3

buk_inf4 = /pws/zycbe094-ship_inf4

land1 = v_land2

EXCEPTIONS

...

/pws/zycbe094-inco_inf IS INITIAL OR

/pws/zycbe094-codldes NE v_codldes OR

/pws/zycbe094-codldes_inf IS INITIAL.

IF /pws/zycbe094-incoterm IS INITIAL.

CLEAR: /pws/zycbe094-inco_inf,

v_incoterm,

v_inco_inf.

ELSE.

IF NOT /pws/zycbe092-spras IS INITIAL.

CLEAR: t615t, t005t.

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

SELECT SINGLE * FROM t615t

* << Fim da exclusão

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

SELECT * FROM t615t

UP TO 1 ROWS

* << Fim da inclusão

WHERE spras EQ /pws/zycbe092-spras

AND zolla EQ /pws/zycbe094-codldes.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc EQ 0.

SELECT SINGLE * FROM t005t

WHERE land1 EQ t615t-land1

AND land1 NE space

AND spras EQ /pws/zycbe092-spras.

...

ENDIF.

IF /pws/zycbe095-zterm NE v_zterm2 OR

/pws/zycbe095-descr_zterm IS INITIAL.

IF /pws/zycbe095-zterm IS INITIAL.

CLEAR: /pws/zycbe095-descr_zterm,

v_zterm2.

ELSE.

IF NOT /pws/zycbe092-spras IS INITIAL.

CLEAR t052u.

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

SELECT SINGLE * FROM t052u

* << Fim da exclusão

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

SELECT * FROM t052u

UP TO 1 ROWS

* << Fim da inclusão

WHERE spras EQ /pws/zycbe092-spras

AND zterm EQ /pws/zycbe095-zterm.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc EQ 0.

/pws/zycbe095-descr_zterm = t052u-text1.

ENDIF.

v_zterm2 = /pws/zycbe095-zterm.

...

NOT itab_zycbt161-nrseqtr IS INITIAL.

READ TABLE itab_discrep WITH KEY nrdes = '03'.

IF sy-subrc NE 0.

itab_discrep-nrdes = '03'.

itab_discrep-descr = text-d03.

APPEND itab_discrep.

ENDIF.

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

SELECT SINGLE * FROM /pws/zycet108

* << Fim da exclusão

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

SELECT * FROM /pws/zycet108

UP TO 1 ROWS

* << Fim da inclusão

WHERE vbeln_va EQ itab_zycbt161-vbeln_va.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc EQ 0.

IF /pws/zycbe094-ptransb EQ 'N'.

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

SELECT SINGLE * FROM /pws/zycet103

* << Fim da exclusão

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

SELECT * FROM /pws/zycet103

UP TO 1 ROWS

* << Fim da inclusão

WHERE nrseqtr EQ /pws/zycet108-nrseqtr

AND nrrota_tr EQ /pws/zycet108-nrrota_tr

AND tpemb EQ 'I'.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc EQ 0.

READ TABLE itab_discrep WITH KEY nrdes = '06'.

IF sy-subrc NE 0.

itab_discrep-nrdes = '06'.

itab_discrep-descr = text-d06.

APPEND itab_discrep.

ENDIF.

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

SELECT SINGLE * FROM /pws/zycet103

* << Fim da exclusão

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

SELECT * FROM /pws/zycet103

UP TO 1 ROWS

* << Fim da inclusão

WHERE nrseqtr EQ /pws/zycet108-nrseqtr

AND nrrota_tr EQ /pws/zycet108-nrrota_tr

AND tpemb EQ 'E'.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc EQ 0.

IF /pws/zycet103-codprt NE /pws/zycbe094-codlemb.

READ TABLE itab_discrep WITH KEY nrdes = '20'.

IF sy-subrc NE 0.

itab_discrep-nrdes = '20'.

itab_discrep-descr = text-d20.

APPEND itab_discrep.

ENDIF.

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

SELECT SINGLE * FROM /pws/zycet103

* << Fim da exclusão

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

SELECT * FROM /pws/zycet103

UP TO 1 ROWS

* << Fim da inclusão

WHERE nrseqtr EQ /pws/zycet108-nrseqtr

AND nrrota_tr EQ /pws/zycet108-nrrota_tr

AND tpemb EQ 'D'.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc EQ 0.

IF /pws/zycet103-codprt NE /pws/zycbe094-codldes.

READ TABLE itab_discrep WITH KEY nrdes = '14'.

IF sy-subrc NE 0.

...

NOT itab_zycbt161-nrseqtr IS INITIAL.

READ TABLE itab_discrep WITH KEY nrdes = '03'.

IF sy-subrc NE 0.

itab_discrep-nrdes = '03'.

itab_discrep-descr = text-d03.

APPEND itab_discrep.

ENDIF.

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

SELECT SINGLE * FROM /pws/zycet108

* << Fim da exclusão

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

SELECT * FROM /pws/zycet108

UP TO 1 ROWS

* << Fim da inclusão

WHERE vbeln_va EQ itab_zycbt161-vbeln_va.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc EQ 0.

IF /pws/zycbe094-ptransb EQ 'N'.

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

SELECT SINGLE * FROM /pws/zycet103

* << Fim da exclusão

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

SELECT * FROM /pws/zycet103

UP TO 1 ROWS

* << Fim da inclusão

WHERE nrseqtr EQ /pws/zycet108-nrseqtr

AND nrrota_tr EQ /pws/zycet108-nrrota_tr

AND tpemb EQ 'I'.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc EQ 0.

READ TABLE itab_discrep WITH KEY nrdes = '06'.

IF sy-subrc NE 0.

itab_discrep-nrdes = '06'.

itab_discrep-descr = text-d06.

APPEND itab_discrep.

ENDIF.

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

SELECT SINGLE * FROM /pws/zycet103

* << Fim da exclusão

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

SELECT * FROM /pws/zycet103

UP TO 1 ROWS

* << Fim da inclusão

WHERE nrseqtr EQ /pws/zycet108-nrseqtr

AND nrrota_tr EQ /pws/zycet108-nrrota_tr

AND tpemb EQ 'E'.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc EQ 0.

IF /pws/zycet103-codprt NE /pws/zycbe094-codlemb.

READ TABLE itab_discrep WITH KEY nrdes = '20'.

IF sy-subrc NE 0.

itab_discrep-nrdes = '20'.

itab_discrep-descr = text-d20.

APPEND itab_discrep.

ENDIF.

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

SELECT SINGLE * FROM /pws/zycet103

* << Fim da exclusão

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

SELECT * FROM /pws/zycet103

UP TO 1 ROWS

* << Fim da inclusão

WHERE nrseqtr EQ /pws/zycet108-nrseqtr

AND nrrota_tr EQ /pws/zycet108-nrrota_tr

AND tpemb EQ 'D'.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc EQ 0.

IF /pws/zycet103-codprt NE /pws/zycbe094-codldes.

READ TABLE itab_discrep WITH KEY nrdes = '14'.

IF sy-subrc NE 0.

...

WHEN '0102'.

IF itab_zyglt100[] IS INITIAL.

MOVE sy-repid TO v_repid.

CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

EXPORTING

i_codmod = 'E'

i_func = v_repid

TABLES

itab_zyglt100 = itab_zyglt100

EXCEPTIONS

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

i_codmod_nao_encontrado = 1

i_func_nao_encontrado = 2

i_zexit_nao_encontrado = 3

OTHERS = 4.

* << Fim da exclusão

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

i_codmod_nao_encontrado = 0

i_func_nao_encontrado = 0

i_zexit_nao_encontrado = 0

OTHERS = 0.

* << Fim da inclusão

ENDIF.

READ TABLE itab_zyglt100 WITH KEY zexit = 'CCT003'.

IF sy-subrc EQ '0' AND

NOT itab_zyglt100-zexit_ativa IS INITIAL.

PERFORM (itab_zyglt100-formulario)

IN PROGRAM (itab_zyglt100-programa)

USING okcode

CHANGING e_subrc.

IF e_subrc NE 0.

EXIT.

...

NOT itab_zycbt096-nrseqtr IS INITIAL.

READ TABLE itab_discrep WITH KEY nrdes = '03'.

IF sy-subrc NE 0.

itab_discrep-nrdes = '03'.

itab_discrep-descr = text-d03.

APPEND itab_discrep.

ENDIF.

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

SELECT SINGLE * FROM /pws/zycet108

* << Fim da exclusão

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

SELECT * FROM /pws/zycet108

UP TO 1 ROWS

* << Fim da inclusão

WHERE vbeln_va EQ itab_zycbt096-vbeln_va.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc EQ 0.

IF /pws/zycbe094-ptransb EQ 'N'.

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

SELECT SINGLE * FROM /pws/zycet103

* << Fim da exclusão

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

SELECT * FROM /pws/zycet103

UP TO 1 ROWS

* << Fim da inclusão

WHERE nrseqtr EQ /pws/zycet108-nrseqtr

AND nrrota_tr EQ /pws/zycet108-nrrota_tr

AND tpemb EQ 'I'.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc EQ 0.

READ TABLE itab_discrep WITH KEY nrdes = '06'.

IF sy-subrc NE 0.

itab_discrep-nrdes = '06'.

itab_discrep-descr = text-d06.

APPEND itab_discrep.

ENDIF.

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

SELECT SINGLE * FROM /pws/zycet103

* << Fim da exclusão

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

SELECT * FROM /pws/zycet103

UP TO 1 ROWS

* << Fim da inclusão

WHERE nrseqtr EQ /pws/zycet108-nrseqtr

AND nrrota_tr EQ /pws/zycet108-nrrota_tr

AND tpemb EQ 'E'.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc EQ 0.

IF /pws/zycet103-codprt NE /pws/zycbe094-codlemb.

READ TABLE itab_discrep WITH KEY nrdes = '20'.

IF sy-subrc NE 0.

itab_discrep-nrdes = '20'.

itab_discrep-descr = text-d20.

APPEND itab_discrep.

ENDIF.

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

SELECT SINGLE * FROM /pws/zycet103

* << Fim da exclusão

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

SELECT * FROM /pws/zycet103

UP TO 1 ROWS

* << Fim da inclusão

WHERE nrseqtr EQ /pws/zycet108-nrseqtr

AND nrrota_tr EQ /pws/zycet108-nrrota_tr

AND tpemb EQ 'D'.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc EQ 0.

IF /pws/zycet103-codprt NE /pws/zycbe094-codldes.

READ TABLE itab_discrep WITH KEY nrdes = '14'.

IF sy-subrc NE 0.

...

NOT itab_zycbt096-nrseqtr IS INITIAL.

READ TABLE itab_discrep WITH KEY nrdes = '03'.

IF sy-subrc NE 0.

itab_discrep-nrdes = '03'.

itab_discrep-descr = text-d03.

APPEND itab_discrep.

ENDIF.

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

SELECT SINGLE * FROM /pws/zycet108

* << Fim da exclusão

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

SELECT * FROM /pws/zycet108

* << Fim da inclusão

WHERE vbeln_vl EQ itab_zycbt096-vbeln_va.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc EQ 0.

IF /pws/zycbe094-ptransb EQ 'N'.

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

SELECT SINGLE * FROM /pws/zycet103

* << Fim da exclusão

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

SELECT * FROM /pws/zycet103

UP TO 1 ROWS

* << Fim da inclusão

WHERE nrseqtr EQ /pws/zycet108-nrseqtr

AND nrrota_tr EQ /pws/zycet108-nrrota_tr

AND tpemb EQ 'I'.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc EQ 0.

READ TABLE itab_discrep WITH KEY nrdes = '06'.

IF sy-subrc NE 0.

itab_discrep-nrdes = '06'.

itab_discrep-descr = text-d06.

APPEND itab_discrep.

ENDIF.

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

SELECT SINGLE * FROM /pws/zycet103

* << Fim da exclusão

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

SELECT * FROM /pws/zycet103

UP TO 1 ROWS

* << Fim da inclusão

WHERE nrseqtr EQ /pws/zycet108-nrseqtr

AND nrrota_tr EQ /pws/zycet108-nrrota_tr

AND tpemb EQ 'E'.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc EQ 0.

IF /pws/zycet103-codprt NE /pws/zycbe094-codlemb.

READ TABLE itab_discrep WITH KEY nrdes = '20'.

IF sy-subrc NE 0.

itab_discrep-nrdes = '20'.

itab_discrep-descr = text-d20.

APPEND itab_discrep.

ENDIF.

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

SELECT SINGLE * FROM /pws/zycet103

* << Fim da exclusão

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

SELECT * FROM /pws/zycet103

UP TO 1 ROWS

* << Fim da inclusão

WHERE nrseqtr EQ /pws/zycet108-nrseqtr

AND nrrota_tr EQ /pws/zycet108-nrrota_tr

AND tpemb EQ 'D'.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc EQ 0.

IF /pws/zycet103-codprt NE /pws/zycbe094-codldes.

READ TABLE itab_discrep WITH KEY nrdes = '14'.

IF sy-subrc NE 0.

...

CONCATENATE /pws/zycbe092-nrseq 'LD_OBS' v_iddoc INTO v_tdname.

PERFORM delete_text USING v_tdname.

CONCATENATE /pws/zycbe092-nrseq 'LD_TXTFO' v_iddoc INTO v_tdname.

PERFORM delete_text USING v_tdname.

CONCATENATE /pws/zycbe092-nrseq 'LD_TXTFI' v_iddoc INTO v_tdname.

PERFORM delete_text USING v_tdname.

DELETE itab_zycbt099.

ENDLOOP.

ENDFORM.

FORM user_command_0100.

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

DATA: e_exec_okcode.

* << Fim da exclusão

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

DATA: e_exec_okcode. "#EC *

* << Fim da inclusão

CLEAR: r_okcode, e_exec_okcode, v_syrepid.

CALL METHOD cl_gui_cfw=>dispatch.

IF NOT r_okcode IS INITIAL.

okcode = r_okcode.

ENDIF.

CLEAR itab_zyglt100.

IF itab_zyglt100[] IS INITIAL.

v_syrepid = sy-repid.

CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

EXPORTING

i_codmod = 'E'

i_func = v_syrepid

TABLES

itab_zyglt100 = itab_zyglt100

EXCEPTIONS

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

i_codmod_nao_encontrado = 1

i_func_nao_encontrado = 2

i_zexit_nao_encontrado = 3

OTHERS = 4.

* << Fim da exclusão

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

i_codmod_nao_encontrado = 0

i_func_nao_encontrado = 0

i_zexit_nao_encontrado = 0

OTHERS = 0.

* << Fim da inclusão

ENDIF.

READ TABLE itab_zyglt100 WITH KEY zexit = 'CCT001' BINARY SEARCH.

IF sy-subrc EQ 0.

IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

PERFORM (itab_zyglt100-formulario)

IN PROGRAM (itab_zyglt100-programa)

USING okcode

CHANGING e_subrc.

IF e_subrc NE 0.

EXIT.

...

ELSEIF itab_zycbt097-marg_var LT 0.

v_margvar = itab_zycbt097-marg_var * ( -1 ).

IF v_margvar GT itab_zycbt097-var_neg.

itab_zycbt097-f_divitem = 'X'.

ENDIF.

MODIFY itab_zycbt097.

ENDLOOP.

ENDFORM.

FORM delete_lc.

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

SELECT SINGLE * FROM /pws/zycbt156

* << Fim da exclusão

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

SELECT * FROM /pws/zycbt156

UP TO 1 ROWS

* << Fim da inclusão

WHERE nrseq EQ /pws/zycbe092-nrseq.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc EQ 0.

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

MESSAGE i292.

* << Fim da exclusão

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

MESSAGE i292. "#EC *

* << Fim da inclusão

ELSE.

PERFORM popup_message USING text-021 text-022.

IF v_answer EQ 'J'.

DELETE /pws/zycbt092 FROM /pws/zycbe092.

IF sy-subrc EQ 0.

DELETE FROM /pws/zycbt093 WHERE nrseq EQ /pws/zycbe092-nrseq.

DELETE FROM /pws/zycbt094 WHERE nrseq EQ /pws/zycbe092-nrseq.

DELETE FROM /pws/zycbt095 WHERE nrseq EQ /pws/zycbe092-nrseq.

IF v_ordven = 'X' OR v_iteov = 'X'.

DELETE FROM /pws/zycbt096

...

ENDFORM.

FORM busca_denominacao.

SELECT SINGLE landx

INTO v_bandeira

FROM t005t

WHERE land1 EQ /pws/zycbe098-land1

AND land1 NE space

AND spras EQ sy-langu.

ENDFORM.

FORM busca_documento.

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

SELECT SINGLE iddoc

* << Fim da exclusão

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

SELECT iddoc

* << Fim da inclusão

INTO /pws/zycbe099-iddoc

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

UP TO 1 ROWS

* << Fim da inclusão

FROM /pws/zycet072

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

WHERE descricao EQ v_descricao.

* << Fim da exclusão

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

WHERE descricao EQ v_descricao. "#EC CI_NOFIELD

ENDSELECT.

* << Fim da inclusão

IF sy-subrc NE 0 AND NOT v_descricao IS INITIAL.

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

MESSAGE w293 WITH v_descricao.

* << Fim da exclusão

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

MESSAGE w293 WITH v_descricao. "#EC *

* << Fim da inclusão

ENDIF.

ENDFORM.

FORM busca_bandeira.

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

SELECT SINGLE land1

* << Fim da exclusão

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

SELECT land1

* << Fim da inclusão

INTO /pws/zycbe098-land1

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

UP TO 1 ROWS

* << Fim da inclusão

FROM t005t

WHERE landx EQ v_bandeira

AND land1 NE space.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc NE 0 AND NOT v_bandeira IS INITIAL.

MESSAGE w293 WITH v_bandeira.

ENDIF.

ENDFORM.

FORM criar_modelo.

v_nrseq = /pws/zycbe092-nrseq.

v_nrseq1 = v_modelo.

WRITE v_nrseq1 RIGHT-JUSTIFIED TO v_nrseq1.

OVERLAY v_nrseq1 WITH '00000000'.

v_modelo = v_nrseq1.

...

v_status_s = '1'.

SELECT SINGLE * FROM /pws/zycbt093 INTO /pws/zycbe093

WHERE nrseq = v_modelo.

SELECT SINGLE * FROM /pws/zycbt094 INTO /pws/zycbe094

WHERE nrseq = v_modelo.

SELECT SINGLE * FROM /pws/zycbt095 INTO /pws/zycbe095

WHERE nrseq = v_modelo.

IF v_ordven = 'X' OR v_iteov = 'X'.

SELECT * FROM /pws/zycbt096 INTO TABLE itab_zycbt096

WHERE nrseq = v_modelo AND

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

ovfor = ''.

* << Fim da exclusão

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

ovfor = ''. "#EC CI_NOFIRST

* << Fim da inclusão

SELECT * FROM /pws/zycbt161 INTO TABLE itab_zycbt161

WHERE nrseq = v_modelo AND

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

ovfor = ''.

* << Fim da exclusão

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

ovfor = ''. "#EC CI_NOFIRST

* << Fim da inclusão

ELSE.

SELECT * FROM /pws/zycbt096 INTO TABLE itab_zycbt096

WHERE nrseq = v_modelo AND

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

ovfor = 'F'.

* << Fim da exclusão

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

ovfor = 'F'. "#EC CI_NOFIRST

* << Fim da inclusão

SELECT * FROM /pws/zycbt161 INTO TABLE itab_zycbt161

WHERE nrseq = v_modelo AND

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

ovfor = 'F'.

* << Fim da exclusão

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

ovfor = 'F'. "#EC CI_NOFIRST

* << Fim da inclusão

ENDIF.

SELECT * FROM /pws/zycbt097 INTO TABLE itab_zycbt097

...

ELSE.

MESSAGE w039.

ENDIF.

ENDFORM.

FORM verifica_permissao.

SELECT SINGLE * FROM /pws/zycbt159 WHERE usuario EQ sy-uname.

IF sy-subrc NE 0.

IF sy-tcode EQ c_transacao_a OR

( sy-tcode EQ c_transacao_e AND

okcode EQ 'MODIF' ).

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

SELECT SINGLE * FROM /pws/zycbt159.

* << Fim da exclusão

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

SELECT * FROM /pws/zycbt159

UP TO 1 ROWS.

ENDSELECT.

* << Fim da inclusão

IF sy-subrc NE 0.

/pws/zycbt159-geral = 'X'.

ELSE.

MESSAGE i061 WITH text-061 sy-uname text-062.

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

sy-tcode = c_transacao_e.

* << Fim da exclusão

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

sy-tcode = c_transacao_e."#EC *

* << Fim da inclusão

v_tcode = c_transacao_e.

ENDIF.

ENDFORM.

FORM atualiza.

DATA: v_fkimg LIKE vbrp-fkimg,

v_netwr LIKE vbrp-netwr.

IF v_ordven = 'X' OR v_iteov = 'X'.

IF NOT itab_zycbt096[] IS INITIAL.

...

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

Modificações efetuadas em REPS /PWS/MZYCB030F02

FORM nrseq_desp.

DATA:

v_nrseq LIKE /pws/zycbt156-nrseq,

v_count(6) TYPE n,

v_ano(3).

CONCATENATE '%' sy-datum+2(2) INTO v_ano.

SELECT MAX( nrseqd ) INTO (v_nrseq) FROM /pws/zycbt156

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

WHERE nrseqd LIKE v_ano.

* << Fim da exclusão

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

WHERE nrseqd LIKE v_ano."#EC CI_NOFIRST

* << Fim da inclusão

v_count = v_nrseq+0(6) + 1.

CONCATENATE v_count sy-datum+2(2) INTO /pws/zycbe156-nrseqd.

wa_zycbt156-nrseqd = /pws/zycbe156-nrseqd.

ENDFORM.

FORM seleciona_despesa.

CLEAR: v_ftaxab, v_ftaxag, v_ftaxam, /pws/zycbe156.

SELECT SINGLE *

FROM /pws/zycbt156

INTO /pws/zycbe156

WHERE nrseqd = itab_zycbt156_aux2-nrseqd

...

WHERE nrseqd = /pws/zycbe156-nrseqd

AND tpdesp = /pws/zycbe156-tpdesp

AND dtincl = /pws/zycbe156-dtincl

AND dtpagto = /pws/zycbe156-dtpagto.

PERFORM inicializa_156.

MESSAGE s018.

CLEAR v_alt_desp.

MOVE /pws/zycbe156 TO wa_zycbt156.

ENDIF.

ELSE.

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

SELECT SINGLE * FROM /pws/zycbt031

* << Fim da exclusão

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

SELECT * FROM /pws/zycbt031

UP TO 1 ROWS

* << Fim da inclusão

WHERE nrcorresp = /pws/zycbe156-nrseqd

AND mdcorresp = 'EC'.

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

ENDSELECT.

* << Fim da inclusão

IF /pws/zycbe156-dtpagto EQ '00000000' AND

/pws/zycbt031-nrseq IS INITIAL.

DELETE FROM /pws/zycbt156

WHERE nrseqd = /pws/zycbe156-nrseqd

AND tpdesp = /pws/zycbe156-tpdesp

...

CALL FUNCTION 'POPUP_TO_DECIDE_LIST'

EXPORTING

textline1 = text-047

textline2 = text-048

titel = text-049

IMPORTING

answer = v_modo_bi

TABLES

t_spopli = itab_modo

EXCEPTIONS

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

not_enough_answers = 1

too_much_answers = 2

too_much_marks = 3

OTHERS = 4.

* << Fim da exclusão

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

not_enough_answers = 0

too_much_answers = 0

too_much_marks = 0

OTHERS = 0.

* << Fim da inclusão

IF v_modo_bi EQ '1' OR v_modo_bi EQ 'A'.

v_modo_bi = 'N'.

ELSEIF v_modo_bi EQ '3'.

v_modo_bi = 'A'.

ELSEIF v_modo_bi EQ '2'.

v_modo_bi = 'E'.

ENDIF.

ENDFORM.

FORM carrega_itab_zycbe033.

IF v_pagto = 'X' AND v_est_aprov = 'N'.

...

SELECT SINGLE periv FROM t001

INTO v_periv

WHERE bukrs EQ /pws/zycbe092-bukrs.

CALL FUNCTION 'DETERMINE_PERIOD'

EXPORTING

date = p_budat

version = v_periv

IMPORTING

period = p_monat

EXCEPTIONS

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

period_in_not_valid = 1

period_not_assigned = 2

version_undefined = 3

OTHERS = 4.

* << Fim da exclusão

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

period_in_not_valid = 0

period_not_assigned = 0

version_undefined = 0

OTHERS = 0.

* << Fim da inclusão

ENDFORM.

FORM determina_ano USING p_budat

p_bukrs

CHANGING p_ano.

CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

EXPORTING

v_bukrs = p_bukrs

v_date = p_budat

IMPORTING

v_year = p_ano.

...

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

Modificações efetuadas em REPS /PWS/MZYCB030F03

FORM programa_substituicao.

CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'

EXPORTING

defaultoption = 'Y'

textline1 = text-055

textline2 = text-056

titel = text-057

IMPORTING

answer = v_answer

EXCEPTIONS

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

OTHERS = 1.

* << Fim da exclusão

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

OTHERS = 0.

* << Fim da inclusão

IF v_answer = 'J'.

CLEAR: v_tdname, v_exec, v_errosubs.

CONCATENATE /pws/zycbe092-nrseq 'F06' INTO v_tdname.

PERFORM substitui USING v_tdname.

IF v_errosubs EQ 'X'.

MESSAGE i061 WITH text-059 text-060.

ELSE.

IF v_exec EQ 'X'.

MESSAGE i061 WITH text-069 text-058.

ENDIF.

...

APPEND itab_subst1.

MOVE ' ' TO itab_tline-tdline(7).

CONDENSE itab_tline-tdline.

ELSE.

EXIT.

ENDIF.

ENDDO.

ENDLOOP.

DELETE ADJACENT DUPLICATES FROM itab_subst1.

LOOP AT itab_subst1.

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

READ TABLE itab_zycbt097 WITH KEY item_lc = itab_subst1-item.

* << Fim da exclusão

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

READ TABLE itab_zycbt097 WITH KEY item_lc = itab_subst1-item."#EC *

* << Fim da inclusão

IF sy-subrc EQ 0.

itab_subst1-qtde = itab_zycbt097-qtde_real.

MODIFY itab_subst1.

ENDIF.

ENDLOOP.

CLEAR v_index2.

LOOP AT itab_subst2.

IF v_index2 NE itab_subst2-index.

CLEAR itab_subst4.

MOVE itab_subst2-index TO itab_subst4-index.

...

FORM verifica_status.

IF sy-tcode EQ c_transacao_a.

SELECT SINGLE status_fin INTO v_altst

FROM /pws/zycbt093

WHERE nrseq EQ /pws/zycbe093-nrseq.

IF v_altst EQ 'A' AND

/pws/zycbe093-status_fin NE 'A'.

IF NOT itab_zycbt096[] IS INITIAL.

LOOP AT itab_zycbt096.

IF v_ordven = 'X' OR v_iteov = 'X'.

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

SELECT SINGLE nrseq INTO /pws/zycet002-nrseq

* << Fim da exclusão

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

SELECT nrseq INTO /pws/zycet002-nrseq

* << Fim da inclusão

FROM /pws/zycet002

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

UP TO 1 ROWS

* << Fim da inclusão

WHERE vbeln_va EQ itab_zycbt096-vbeln_va.

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

ENDSELECT.

* << Fim da inclusão

ELSE.

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

SELECT SINGLE nrseq INTO /pws/zycet002-nrseq

* << Fim da exclusão

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

SELECT nrseq INTO /pws/zycet002-nrseq

UP TO 1 ROWS

* << Fim da inclusão

FROM /pws/zycet002

WHERE vbeln_vl EQ itab_zycbt096-vbeln_va.

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

ENDSELECT.

* << Fim da inclusão

ENDIF.

IF sy-subrc EQ 0.

MOVE 'X' TO v_scarta.

EXIT.

ENDIF.

ENDLOOP.

ELSEIF NOT itab_zycbt161[] IS INITIAL.

LOOP AT itab_zycbt161.

IF v_ordven = 'X' OR v_iteov = 'X'.

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

SELECT SINGLE nrseq INTO /pws/zycet002-nrseq

* << Fim da exclusão

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

SELECT nrseq INTO /pws/zycet002-nrseq

UP TO 1 ROWS

* << Fim da inclusão

FROM /pws/zycet002

WHERE vbeln_va EQ itab_zycbt161-vbeln_va.

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

ENDSELECT.

* << Fim da inclusão

ELSE.

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

SELECT SINGLE nrseq INTO /pws/zycet002-nrseq

* << Fim da exclusão

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

SELECT nrseq INTO /pws/zycet002-nrseq

UP TO 1 ROWS

* << Fim da inclusão

FROM /pws/zycet002

WHERE vbeln_vl EQ itab_zycbt161-vbeln_va.

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

ENDSELECT.

* << Fim da inclusão

ENDIF.

IF sy-subrc EQ 0.

MOVE 'X' TO v_scarta.

EXIT.

ENDIF.

...

ELSE.

CLEAR itab_zycbt161-mark.

CLEAR itab_zycbt161_aux-mark.

ENDIF.

MODIFY itab_zycbt161 INDEX v_index TRANSPORTING mark.

MODIFY itab_zycbt161_aux INDEX v_index TRANSPORTING mark.

MOVE-CORRESPONDING /pws/zycbe161 TO itab_zycbt161.

MOVE: sy-mandt TO itab_zycbt161-mandt,

/pws/zycbe092-nrseq TO itab_zycbt161-nrseq.

CLEAR /pws/zycbt161.

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

SELECT SINGLE * FROM /pws/zycbt161

* << Fim da exclusão

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

SELECT * FROM /pws/zycbt161

UP TO 1 ROWS

* << Fim da inclusão

WHERE vbeln_va = /pws/zycbe161-vbeln_va.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc EQ 0 AND /pws/zycbt161-nrseq NE /pws/zycbe092-nrseq.

CLEAR: v_msg, v_msg2.

IF v_ordven = 'X' OR v_iteov = 'X'.

MOVE text-078 TO v_msg.

ELSE.

MOVE text-114 TO v_msg.

...

DELETE itab_zycet014

WHERE nrseq EQ itab_zycet002-nrseq.

ENDIF.

ENDLOOP.

DELETE itab_zycet002

WHERE vbeln_va = itab_zycbt161-vbeln_va.

ENDLOOP.

ENDFORM.

FORM verifica_estrategia_liberacao.

DATA: v_frgzu LIKE /pws/zycbt031-frgzu,

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

v_codcamb LIKE /pws/zyglt340-codmod,

v_vlmi LIKE /pws/zycbt118-vlme,

* << Fim da exclusão

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

v_codcamb LIKE /pws/zyglt340-codmod, "#EC *

v_vlmi LIKE /pws/zycbt118-vlme, "#EC *

* << Fim da inclusão

v_totdep LIKE /pws/zyglt342-valorinc,

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

v_lib(1) TYPE c,

v_erro(1) TYPE c.

* << Fim da exclusão

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

v_lib(1) TYPE c, "#EC *

v_erro(1) TYPE c. "#EC *

* << Fim da inclusão

SELECT SINGLE * FROM /pws/zyglt340

...

frggrp = /pws/zyglt343-frggrp

frggrs = /pws/zyglt343-frggrs

frggrt = /pws/zyglt343-frggrt

frggrqa = /pws/zyglt343-frggrqa

frggrqi = /pws/zyglt343-frggrqi

TABLES

t_contas = itab_contas

t_custo = itab_custo

t_lucro = itab_lucro

EXCEPTIONS

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

estrategia_invalida = 1

parametros_invalidos = 2

OTHERS = 3.

* << Fim da exclusão

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

estrategia_invalida = 0

parametros_invalidos = 0

OTHERS = 0.

* << Fim da inclusão

CHECK /pws/zycbe156-frpagto EQ 'C'.

IF sy-subrc EQ 1.

MESSAGE i061 WITH text-080 text-081.

v_erro = 'X'.

EXIT.

ELSEIF sy-subrc EQ 2.

MESSAGE i061 WITH text-082 text-081.

v_erro = 'X'.

EXIT.

ENDIF.

...

i_montante = /pws/zycbe156-vlme

i_demoeda = /pws/zycbe156-waers

i_paramoeda = /pws/zycbt007-waersb

i_ctmoeda = itab_zycbt009-kurst

i_dtbase = /pws/zycbe156-dtincl

IMPORTING

e_txc = v_txest

TABLES

t_ctgmoeda = itab_zycbt009

EXCEPTIONS

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

i_demoeda_nao_encontrado = 1

i_paramoeda_nao_encontrado = 2

i_ctmoeda_nao_encontrado = 3

i_dtbase_nao_encontrada = 4

taxa_nao_encontrada = 5

fator_nao_encontrado = 6

i_montante_nao_encontrado = 7

tabela_categ_nao_configurada = 8

OTHERS = 9.

* << Fim da exclusão

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

i_demoeda_nao_encontrado = 0

i_paramoeda_nao_encontrado = 0

i_ctmoeda_nao_encontrado = 0

i_dtbase_nao_encontrada = 0

taxa_nao_encontrada = 0

fator_nao_encontrado = 0

i_montante_nao_encontrado = 0

tabela_categ_nao_configurada = 0

OTHERS = 0.

* << Fim da inclusão

ENDFORM.

FORM preenche_contas_custo_lucro.

CLEAR: itab_contas, itab_custo, itab_lucro, v_area.

REFRESH: itab_contas, itab_custo, itab_lucro.

IF NOT /pws/zycbe156-kostl IS INITIAL.

itab_custo-kostl = /pws/zycbe156-kostl.

APPEND itab_custo.

ENDIF.

IF NOT /pws/zycbe156-prctr IS INITIAL.

itab_lucro-prctr = /pws/zycbe156-prctr.

...

REFRESH: itab_zyglt100.

IF itab_zyglt100[] IS INITIAL.

v_syrepid = sy-repid.

CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

EXPORTING

i_codmod = 'E'

i_func = v_syrepid

TABLES

itab_zyglt100 = itab_zyglt100

EXCEPTIONS

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

i_codmod_nao_encontrado = 1

i_func_nao_encontrado = 2

i_zexit_nao_encontrado = 3

OTHERS = 4.

* << Fim da exclusão

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

i_codmod_nao_encontrado = 0

i_func_nao_encontrado = 0

i_zexit_nao_encontrado = 0

OTHERS = 0.

* << Fim da inclusão

ENDIF.

READ TABLE itab_zyglt100 WITH KEY zexit = 'CCT002' BINARY SEARCH.

IF sy-subrc EQ 0.

IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

PERFORM (itab_zyglt100-formulario)

IN PROGRAM (itab_zyglt100-programa)

CHANGING e_subrc.

IF e_subrc NE 0.

EXIT.

ENDIF.

...

tabela = '/PWS/ZYCBT156'

cpochv = /pws/zycbe156-nrseqd

tpmsg = 'S'.

IF sy-subrc EQ 0.

SELECT SINGLE * FROM bkpf

WHERE bukrs EQ itab_zycbe033-bukrs

AND belnr EQ /pws/zycbe156-belnr

AND gjahr EQ sy-datum+0(4)

AND bstat EQ 'V'.

IF sy-subrc EQ 0.

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

MESSAGE i248.

* << Fim da exclusão

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

MESSAGE i248. "#EC *

* << Fim da inclusão

EXIT.

ENDIF.

MESSAGE i211 WITH /pws/zycbe156-belnr.

ELSE.

v_erro_bi = 'X'.

LOOP AT itab_zycbt032.

MESSAGE i015 WITH itab_zycbt032-msg+0(50)

itab_zycbt032-msg+50(50).

ENDLOOP.

ENDIF.

ENDFORM.

FORM get_parameters_desp_ec.

REFRESH itab_zycbt013.

SELECT * FROM /pws/zycbt013

INTO TABLE itab_zycbt013

WHERE tabela = '/PWS/ZYCBT156'.

CLEAR wa_zycbt011.

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

SELECT SINGLE * FROM /pws/zycbt011

* << Fim da exclusão

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

SELECT * FROM /pws/zycbt011

* << Fim da inclusão

INTO wa_zycbt011

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

UP TO 1 ROWS

* << Fim da inclusão

WHERE codeven = '006'

AND codmod = 'E'.

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

ENDSELECT.

* << Fim da inclusão

CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'

...

t_zycbt032 = itab_zycbt032

EXCEPTIONS

campo_em_branco = 1

OTHERS = 2.

IF sy-subrc = 0.

READ TABLE itab_zycbt032 WITH KEY tcode = 'FBV0'

tabela = '/PWS/ZYCBT156'

cpochv = /pws/zycbe156-nrseqd

tpmsg = 'S'.

IF sy-subrc EQ 0.

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

MESSAGE i062 WITH /pws/zycbe156-belnr.

* << Fim da exclusão

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

MESSAGE i062 WITH /pws/zycbe156-belnr. "#EC *

* << Fim da inclusão

CLEAR /pws/zycbe156-belnr.

MODIFY /pws/zycbt156 FROM /pws/zycbe156.

ELSE.

LOOP AT itab_zycbt032.

MESSAGE i015 WITH itab_zycbt032-msg+0(50)

itab_zycbt032-msg+50(50).

ENDLOOP.

v_erro_bi = 'X'.

ENDIF.

ELSE.

...

ENDIF.

ENDFORM.

FORM ano_contabil_estorna.

CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

EXPORTING

v_bukrs = itab_zycbe033-bukrs

v_date = itab_zycbe033-budat

IMPORTING

v_year = v_ano

EXCEPTIONS

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

variante_de_exercicio = 1

data_nao_encontrada = 2

empresa_nao_encontrada = 3

period_in_not_valid = 4

period_not_assigned = 5

version_undefined = 6

OTHERS = 7.

* << Fim da exclusão

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

variante_de_exercicio = 0

data_nao_encontrada = 0

empresa_nao_encontrada = 0

period_in_not_valid = 0

period_not_assigned = 0

version_undefined = 0

OTHERS = 0.

* << Fim da inclusão

ENDFORM.

FORM determina_periodo_desp USING value(p_budat)

value(p_bukrs)

CHANGING p_monat.

DATA: v_periv(2).

SELECT SINGLE periv FROM t001

INTO v_periv

WHERE bukrs EQ p_bukrs.

CALL FUNCTION 'DETERMINE_PERIOD'

EXPORTING

date = p_budat

version = v_periv

IMPORTING

period = p_monat

EXCEPTIONS

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

period_in_not_valid = 1

period_not_assigned = 2

version_undefined = 3

OTHERS = 4.

* << Fim da exclusão

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

period_in_not_valid = 0

period_not_assigned = 0

version_undefined = 0

OTHERS = 0.

* << Fim da inclusão

ENDFORM.

FORM exibir_modificar.

CLEAR v_answer.

IF v_status_s = 0 AND

/pws/zycbe094-dtencer IS INITIAL.

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

IF sy-subrc = 0.

PERFORM lock_record.

CLEAR v_tcode.

PERFORM verifica_permissao.

IF v_tcode NE c_transacao_e.

v_tcode = c_transacao_a.

v_status_s = '1'.

ENDIF.

ELSE.

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

MESSAGE i120 WITH text-094.

* << Fim da exclusão

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

MESSAGE i120 WITH text-094. "#EC *

* << Fim da inclusão

ENDIF.

ELSE.

IF ( /pws/zycbe092 NE wa_zycbt092 ) OR

( /pws/zycbe093 NE wa_zycbt093 ) OR

( /pws/zycbe094 NE wa_zycbt094 ) OR

( /pws/zycbe095 NE wa_zycbt095 ) OR

( itab_zycbt096[] NE itab_zycbt096x[] ) OR

( itab_zycbt161[] NE itab_zycbt161x[] ) OR

( itab_zycbt097[] NE itab_zycbt097x[] ) OR

( itab_zycbt098[] NE itab_zycbt098x[] ) OR

...

v_status_s = 0.

ENDIF.

ENDFORM.

FORM verifica_pais_filial USING p_bukrs

p_brnch.

SELECT SINGLE adrnr FROM j_1bbranch INTO j_1bbranch-adrnr

WHERE bukrs = p_bukrs

AND branch = p_brnch.

IF sy-subrc = 0.

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

SELECT SINGLE country FROM adrc INTO adrc-country

* << Fim da exclusão

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

SELECT country FROM adrc INTO adrc-country

UP TO 1 ROWS

* << Fim da inclusão

WHERE addrnumber = j_1bbranch-adrnr.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc = 0 AND

adrc-country NE 'BR' AND adrc-country NE 'TW'.

CLEAR p_brnch.

ENDIF.

ENDFORM.

...

FORM estorno_encerramento.

CLEAR /pws/zycbe094-dtencer.

v_status_s = 1.

MESSAGE i015 WITH text-110.

ENDFORM.

FORM valida_variacao_lc.

DATA: v_vlordem LIKE /pws/zycbt096-vlordem,

v_vlfatur LIKE /pws/zycbt096-vlfaturam,

v_varpos LIKE /pws/zycbt095-vlccred,

v_varneg LIKE /pws/zycbt095-vlccred,

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

v_transp LIKE /pws/zycbt096-nrseqtr,

* << Fim da exclusão

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

v_transp LIKE /pws/zycbt096-nrseqtr, "#EC *

* << Fim da inclusão

v_qtordem LIKE /pws/zycbt096-qtordem,

v_qtfatur LIKE /pws/zycbt096-qtfaturam.

v_valida = 'X'.

SORT itab_zycbt096 BY item_lc vbeln_va posnr.

SORT itab_zycbt096x BY item_lc vbeln_va posnr.

CLEAR: v_valor, v_varpos, v_varneg, v_transp,

v_saldo_zero.

LOOP AT itab_zycbt096.

v_vlordem = v_vlordem + itab_zycbt096-vlordem.

v_vlfatur = v_vlfatur + itab_zycbt096-vlfaturam.

...

ENDIF.

LOOP AT itab_zycbt209 WHERE nrinvoic = itab_zycbt006-nrinvoic.

v_vlliq = v_vlliq + itab_zycbt209-vlme.

ENDLOOP.

IF sy-subrc NE '0'.

LOOP AT itab_zycbt209.

v_vlliq = v_vlliq + itab_zycbt209-vlme.

ENDLOOP.

ENDIF.

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

IF v_vlliq >= v_vlliq_ext.

* << Fim da exclusão

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

IF v_vlliq >= v_vlliq_ext. "#EC PORTABLE

* << Fim da inclusão

v_vlliq_tot = v_vlliq.

ELSE.

v_vlliq_tot = v_vlliq_ext.

ENDIF.

ENDFORM.

FORM atualiza_discrepancia.

PERFORM consiste_campos.

ENDFORM.

FORM exclui_linha_114.

LOOP AT itab_zycbt096 WHERE mark = 'X'.

...

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

Modificações efetuadas em REPS /PWS/MZYCB030I01

...

CLEAR v_nrseqd.

WRITE : v_valor TO v_nrseqd RIGHT-JUSTIFIED.

OVERLAY v_nrseqd WITH '00000000'.

CLEAR v_nrseqd.

WRITE : v_valor TO v_nrseqd RIGHT-JUSTIFIED.

OVERLAY v_nrseqd WITH '00000000'.

READ TABLE itab_zycbt156_aux2 WITH KEY

nrseq = /pws/zycbe092-nrseq

nrseqd = v_nrseqd.

CLEAR: /pws/zycbe156, wa_zycbt156.

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

SELECT SINGLE * FROM /pws/zycbt156

* << Fim da exclusão

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

SELECT * FROM /pws/zycbt156

* << Fim da inclusão

INTO /pws/zycbe156

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

UP TO 1 ROWS

* << Fim da inclusão

WHERE nrseq EQ /pws/zycbe092-nrseq

AND nrseqd EQ itab_zycbt156_aux2-nrseqd.

MOVE-CORRESPONDING /pws/zycbe156 TO wa_zycbt156.

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

ENDSELECT.

* << Fim da inclusão

IF sy-tcode = '/PWS/ZYCB030_A'.

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

SELECT SINGLE * FROM /pws/zycbt031

* << Fim da exclusão

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

SELECT * FROM /pws/zycbt031

UP TO 1 ROWS

* << Fim da inclusão

WHERE nrcorresp EQ /pws/zycbe156-nrseqd

AND nrseq_de EQ /pws/zycbe156-nrseq

AND tpdesp EQ /pws/zycbe156-tpdesp

AND dtincl EQ /pws/zycbe156-dtincl

AND mdcorresp EQ 'EC'.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc NE 0.

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

SELECT SINGLE * FROM /pws/zycbt064

* << Fim da exclusão

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

SELECT * FROM /pws/zycbt064

UP TO 1 ROWS

* << Fim da inclusão

WHERE nrchave EQ /pws/zycbe156-nrseqd

AND tpdesp EQ /pws/zycbe156-tpdesp

AND dtincl EQ /pws/zycbe156-dtincl

AND mdcorresp EQ 'EC'.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc EQ 0 OR

( NOT /pws/zycbe094-dtencer IS INITIAL ).

v_status_s = '0'.

ELSE.

v_status_s = '1'.

ENDIF.

ELSE.

v_status_s = '0'.

ENDIF.

...

CLEAR itab_nrseq.

REFRESH itab_nrseq.

LOOP AT itab_zycet001.

MOVE itab_zycet001-nrseq TO itab_nrseq-nrinvoic.

APPEND itab_nrseq.

ENDLOOP.

SELECT *

FROM /pws/zycbt005

INTO TABLE itab_zycbt005

FOR ALL ENTRIES IN itab_nrseq

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

WHERE nrinvoic EQ itab_nrseq-nrinvoic.

* << Fim da exclusão

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

WHERE nrinvoic EQ itab_nrseq-nrinvoic. "#EC CI_NOFIRST

* << Fim da inclusão

SELECT * FROM /pws/zycbt006

INTO TABLE itab_zycbt006

FOR ALL ENTRIES IN itab_nrseq

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

WHERE nrinvoic = itab_nrseq-nrinvoic.

* << Fim da exclusão

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

WHERE nrinvoic = itab_nrseq-nrinvoic. "#EC CI_NOFIRST

* << Fim da inclusão

SELECT * FROM /pws/zycbt209

...

CLEAR itab_nrseq.

REFRESH itab_nrseq.

LOOP AT itab_zycet001.

MOVE itab_zycet001-nrseq TO itab_nrseq-nrinvoic.

APPEND itab_nrseq.

ENDLOOP.

SELECT *

FROM /pws/zycbt005

INTO TABLE itab_zycbt005

FOR ALL ENTRIES IN itab_nrseq

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

WHERE nrinvoic EQ itab_nrseq-nrinvoic.

* << Fim da exclusão

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

WHERE nrinvoic EQ itab_nrseq-nrinvoic. "#EC CI_NOFIRST

* << Fim da inclusão

SELECT * FROM /pws/zycbt006

INTO TABLE itab_zycbt006

FOR ALL ENTRIES IN itab_nrseq

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

WHERE nrinvoic = itab_nrseq-nrinvoic.

* << Fim da exclusão

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

WHERE nrinvoic = itab_nrseq-nrinvoic. "#EC CI_NOFIRST

* << Fim da inclusão

SELECT * FROM /pws/zycbt209

...

MODULE user_command_0003 INPUT.

CASE sy-ucomm.

WHEN 'OK' OR 'ENTE'.

SET SCREEN 0.

LEAVE SCREEN.

ENDCASE.

ENDMODULE.

MODULE consiste_bcoavisa INPUT.

IF sy-ucomm NE 'LIST' AND sy-ucomm NE 'BACK'.

IF /pws/zycbe156-bcoavisa IS INITIAL.

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

MESSAGE e272 WITH text-097.

* << Fim da exclusão

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

MESSAGE e272 WITH text-097. "#EC *

* << Fim da inclusão

ENDIF.

ENDMODULE.

MODULE consiste_item_lc INPUT.

CHECK NOT /pws/zycbe096-item_lc IS INITIAL.

SELECT SINGLE * FROM /pws/zycbt097

WHERE nrseq = /pws/zycbe092-nrseq

AND item_lc = /pws/zycbe096-item_lc.

IF sy-subrc NE 0.

MESSAGE e061 WITH text-108 /pws/zycbe096-item_lc text-109.

...

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

Modificações efetuadas em REPS /PWS/MZYCB030O01

...

endif.

ENDIF.

ELSE.

IF v_tcode EQ c_transacao_c AND v_status_s NE '0'.

PERFORM find_nrseq.

PERFORM lock_record.

ENDIF.

ENDMODULE.

MODULE parametros OUTPUT.

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

SELECT SINGLE empresa

* << Fim da exclusão

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

SELECT empresa

* << Fim da inclusão

FROM /pws/zyglt364

INTO /pws/zyglt364-empresa

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

UP TO 1 ROWS

* << Fim da inclusão

WHERE usuario EQ sy-uname.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc IS INITIAL.

...

ENDMODULE.

MODULE status_0002 OUTPUT.

SET PF-STATUS '0002'.

SET TITLEBAR '0002'.

ENDMODULE.

MODULE permissao OUTPUT.

MOVE /pws/zycbe093-vlccred TO /pws/zycbe095-vlccred.

MOVE /pws/zycbe093-vlccred TO wa_zycbt095-vlccred.

SELECT SINGLE * FROM /pws/zycbt159 WHERE usuario EQ sy-uname.

IF sy-subrc NE 0.

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

SELECT SINGLE * FROM /pws/zycbt159.

* << Fim da exclusão

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

SELECT * FROM /pws/zycbt159

UP TO 1 ROWS.

ENDSELECT.

* << Fim da inclusão

IF sy-subrc NE 0.

/pws/zycbt159-geral = 'X'.

ENDIF.

IF NOT /pws/zycbt159-geral IS INITIAL.

EXIT.

ENDIF.

CASE sy-dynnr.

WHEN '0100'.

IF /pws/zycbt159-cabec IS INITIAL.

...

MODIFY SCREEN.

ENDIF.

ENDCASE.

ENDLOOP.

ENDMODULE.

MODULE preenche_campos OUTPUT.

MOVE-CORRESPONDING /pws/zycbe092 TO wa_zycbt092_aux.

ENDMODULE.

MODULE status_0003 OUTPUT.

SET PF-STATUS 'STATUS_0003'.

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

SET TITLEBAR 'TITLE_0003'.

* << Fim da exclusão

ENDMODULE.

MODULE carrega_dados_estr OUTPUT.

PERFORM verifica_estrategia_liberacao.

CONCATENATE /pws/zyglt343-frggrp /pws/zyglt343-frggrs

/pws/zyglt343-frggrt /pws/zyglt343-frggrqa

/pws/zyglt343-frggrqi

INTO rm06b-anzfv SEPARATED BY space.

CONCATENATE /pws/zycbe156-frgsx1 /pws/zycbe156-frgsx2

/pws/zycbe156-frgsx3 /pws/zycbe156-frgsx4

/pws/zycbe156-frgsx5

...

MODULE load_html_help OUTPUT.

IF my_container IS INITIAL.

CREATE OBJECT my_container

EXPORTING

container_name = 'CC_HTML_HELP'

EXCEPTIONS

others = 1.

CASE sy-subrc.

WHEN 0.

WHEN OTHERS.

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

RAISE cntl_error.

* << Fim da exclusão

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

RAISE cntl_error."#EC *

* << Fim da inclusão

ENDCASE.

ENDIF.

IF html_control IS INITIAL.

CREATE OBJECT html_control

EXPORTING

parent = my_container.

IF sy-subrc NE 0.

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

RAISE cntl_error.

* << Fim da exclusão

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

RAISE cntl_error."#EC *

* << Fim da inclusão

ENDIF.

alignment = html_control->align_at_left +

html_control->align_at_right +

html_control->align_at_top +

html_control->align_at_bottom.

CALL METHOD html_control->set_alignment

EXPORTING

alignment = alignment.

myevent-eventid = html_control->m_id_sapevent.

myevent-appl_event = 'X'.

...

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

Modificações efetuadas em REPS /PWS/MZYCB030TOP

PROGRAM /pws/sapmzycb030 MESSAGE-ID /pws/zycbm NO STANDARD PAGE HEADING.

INCLUDE /pws/zygli100.

INCLUDE /pws/zygli101.

DATA: itab_zyglt100 LIKE /pws/zyglt100 OCCURS 0 WITH HEADER LINE.

* >> Início da exclusão:

DATA v_tela_help LIKE sy-dynnr VALUE '0052'.

* << Fim da exclusão

* >> Início da inclusão:

DATA v_tela_help LIKE sy-dynnr VALUE '0052'."#EC *

* << Fim da inclusão

TABLES:

/pws/zycbt007,

/pws/zycbt039,

/pws/zycet108,

/pws/zycet103,

/pws/zycet101,

/pws/zycbt031,

* >> Início da exclusão:

/pws/zycbt064,

* << Fim da exclusão

* >> Início da inclusão:

/pws/zycbt064,"#EC *

* << Fim da inclusão

/pws/zycbt237,

/pws/zycbe237,

tcurt,

tgsbt,

* >> Início da exclusão:

bkpf,

* << Fim da exclusão

* >> Início da inclusão:

bkpf,"#EC *

* << Fim da inclusão

rm06b,

t16fe,

t001w,

/pws/zyglt340,

/pws/zyglt343,

/pws/zycbt159,

/pws/zyglt364,

j_1bbranch,

adrc.

* >> Início da exclusão:

DATA: itab_thead LIKE thead OCCURS 50 WITH HEADER LINE,

* << Fim da exclusão

* >> Início da inclusão:

DATA: itab_thead LIKE thead OCCURS 50 WITH HEADER LINE,"#EC *

* << Fim da inclusão

itab_tline LIKE tline OCCURS 50 WITH HEADER LINE,

* >> Início da exclusão:

itab_tline_ant LIKE tline OCCURS 50 WITH HEADER LINE.

* << Fim da exclusão

* >> Início da inclusão:

itab_tline_ant LIKE tline OCCURS 50 WITH HEADER LINE."#EC *

* << Fim da inclusão

TABLES:

kna1,

t005t,

...

itab_vbak LIKE vbak OCCURS 10 WITH HEADER LINE,

itab_vbpa LIKE vbpa OCCURS 10 WITH HEADER LINE,

itab_vbrp LIKE vbrp OCCURS 10 WITH HEADER LINE,

itab_vbrk LIKE vbrk OCCURS 10 WITH HEADER LINE,

itab_zycet108 LIKE /pws/zycet108 OCCURS 10 WITH HEADER LINE,

itab_zycet103 LIKE /pws/zycet103 OCCURS 10 WITH HEADER LINE,

itab_vbap_aux LIKE vbap OCCURS 10 WITH HEADER LINE.

DATA: itab_likp LIKE likp OCCURS 10 WITH HEADER LINE,

itab_lips LIKE lips OCCURS 10 WITH HEADER LINE,

itab_lips_aux LIKE lips OCCURS 10 WITH HEADER LINE.

* >> Início da exclusão:

DATA: BEGIN OF itab_vbfa OCCURS 0,

* << Fim da exclusão

* >> Início da inclusão:

DATA: BEGIN OF itab_vbfa OCCURS 0,"#EC *

* << Fim da inclusão

vbelv LIKE vbfa-vbelv,

posnv LIKE vbfa-posnv,

vbeln LIKE vbfa-vbeln,

posnn LIKE vbfa-posnn.

* >> Início da exclusão:

DATA: END OF itab_vbfa.

* << Fim da exclusão

* >> Início da inclusão:

DATA: END OF itab_vbfa."#EC *

* << Fim da inclusão

DATA: itab_vbap2 LIKE vbap OCCURS 10 WITH HEADER LINE.

DATA: BEGIN OF itab_pf_status OCCURS 10,

fcode LIKE rsmpe-func,

END OF itab_pf_status.

DATA: BEGIN OF itab_modo OCCURS 10.

INCLUDE STRUCTURE spopli.

DATA: END OF itab_modo.

DATA: BEGIN OF itab_subst1 OCCURS 10,

item(10) TYPE c,

qtde LIKE /pws/zycbt097-qtde_real,

...

okcoded LIKE sy-ucomm,

v_nrseq LIKE /pws/zycbe092-nrseq,

v_nrseq1(8),

v_tdname LIKE thead-tdname,

v_disp(1) TYPE c,

v_status_s,

v_answer,

v_index TYPE i,

v_msg(50) TYPE c,

v_msg2(50) TYPE c,

* >> Início da exclusão:

v_tabix TYPE i,

* << Fim da exclusão

* >> Início da inclusão:

v_tabix TYPE i,"#EC *

* << Fim da inclusão

moeda LIKE tcurt-ltext,

v_nrseqcview(9) TYPE c,

v_ftaxam,

v_ftaxag,

v_ftaxab,

* >> Início da exclusão:

divisao LIKE tgsbt-gtext,

* << Fim da exclusão

* >> Início da inclusão:

divisao LIKE tgsbt-gtext,"#EC *

* << Fim da inclusão

nome_desp LIKE /pws/zycbt015-txtdesc,

v_erro(30) TYPE c,

v_campo(22),

v_export(10) TYPE c VALUE 'EMB_REL',

v_valor(20),

v_pos LIKE sy-index,

v_linha TYPE i,

v_iddoc LIKE /pws/zycbt099-iddoc,

v_nrseq_em LIKE /pws/zycbt237-nrseq_em,

i_belnr LIKE bkpf-belnr,

i_bukrs LIKE bkpf-bukrs,

i_gjahr LIKE bkpf-gjahr,

v_itab(4) TYPE c,

v_vbeln_va LIKE vbak-vbeln,

v_existe(1) VALUE 'N',

v_nrseq_ant LIKE /pws/zycbt092-nrseq,

v_descricao LIKE /pws/zycet072-descricao,

v_bandeira LIKE t005t-landx,

v_modo_bi,

* >> Início da exclusão:

v_alt_desp,

* << Fim da exclusão

* >> Início da inclusão:

v_alt_desp,"#EC *

* << Fim da inclusão

v_pagto(1),

v_est_aprov TYPE c,

v_beln LIKE /pws/zycbt156-belnr,

v_monat LIKE t001b-frpe1,

v_ano LIKE t009b-bdatj,

v_inco_inf LIKE /pws/zycbe094-inco_inf,

v_countline(3) TYPE n VALUE '001',

v_erro_bi(1),

v_modelo LIKE /pws/zycbe092-nrseq,

v_errosubs,

...

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

Modificações efetuadas em REPS /PWS/MZYCB030X01

...

shkzg LIKE /pws/zycet002-shkzg,

vlme LIKE /pws/zycet002-vlme,

END OF itab_zycet002.

DATA: BEGIN OF itab_zycbt161 OCCURS 0.

INCLUDE STRUCTURE /pws/zycbt161.

DATA: mark(1).

DATA: END OF itab_zycbt161.

DATA: itab_zycbt096c LIKE itab_zycbt096 OCCURS 10 WITH HEADER LINE,

itab_zycbt096_aux LIKE itab_zycbt096 OCCURS 10 WITH HEADER LINE,

itab_zycbt096_aux2 LIKE itab_zycbt096 OCCURS 10 WITH HEADER LINE,

* >> Início da exclusão:

itab_zycbt096_del LIKE itab_zycbt096 OCCURS 10 WITH HEADER LINE,

* << Fim da exclusão

* >> Início da inclusão:

itab_zycbt096_del LIKE itab_zycbt096 OCCURS 10 WITH HEADER LINE,"#EC *

* << Fim da inclusão

itab_zycbt096x LIKE itab_zycbt096 OCCURS 10 WITH HEADER LINE,

itab_zycbt161c LIKE itab_zycbt096 OCCURS 10 WITH HEADER LINE,

itab_zycbt161_aux LIKE itab_zycbt161 OCCURS 10 WITH HEADER LINE,

itab_zycbt161_aux2 LIKE itab_zycbt161 OCCURS 10 WITH HEADER LINE,

itab_zycbt161_del LIKE itab_zycbt161 OCCURS 10 WITH HEADER LINE,

* >> Início da exclusão:

itab_zycbt161x LIKE itab_zycbt161 OCCURS 10 WITH HEADER LINE,

* << Fim da exclusão

* >> Início da inclusão:

itab_zycbt161x LIKE itab_zycbt161 OCCURS 10 WITH HEADER LINE,"#EC *

* << Fim da inclusão

itab_zycbt097_aux LIKE itab_zycbt097 OCCURS 10 WITH HEADER LINE,

* >> Início da exclusão:

itab_zycbt097x LIKE itab_zycbt097 OCCURS 10 WITH HEADER LINE,

* << Fim da exclusão

* >> Início da inclusão:

itab_zycbt097x LIKE itab_zycbt097 OCCURS 10 WITH HEADER LINE,"#EC *

* << Fim da inclusão

itab_zycbt098_aux LIKE itab_zycbt098 OCCURS 10 WITH HEADER LINE,

* >> Início da exclusão:

itab_zycbt098x LIKE itab_zycbt098 OCCURS 10 WITH HEADER LINE,

* << Fim da exclusão

* >> Início da inclusão:

itab_zycbt098x LIKE itab_zycbt098 OCCURS 10 WITH HEADER LINE,"#EC *

* << Fim da inclusão

itab_zycbt099_aux LIKE itab_zycbt099 OCCURS 10 WITH HEADER LINE,

* >> Início da exclusão:

itab_zycbt099x LIKE itab_zycbt099 OCCURS 10 WITH HEADER LINE,

* << Fim da exclusão

* >> Início da inclusão:

itab_zycbt099x LIKE itab_zycbt099 OCCURS 10 WITH HEADER LINE,"#EC *

* << Fim da inclusão

itab_zycbt237_aux LIKE itab_zycbt237 OCCURS 10 WITH HEADER LINE,

* >> Início da exclusão:

itab_zycbt237x LIKE itab_zycbt237 OCCURS 10 WITH HEADER LINE.

* << Fim da exclusão

* >> Início da inclusão:

itab_zycbt237x LIKE itab_zycbt237 OCCURS 10 WITH HEADER LINE."#EC *

* << Fim da inclusão

Data: okcode LIKE sy-ucomm.

DATA: itab_likp_aux LIKE likp OCCURS 10 WITH HEADER LINE.

DATA: itab_vbak_aux LIKE vbak OCCURS 10 WITH HEADER LINE.

DATA: BEGIN OF itab_zycet001 OCCURS 0.

INCLUDE STRUCTURE /pws/zycet001.

DATA: END OF itab_zycet001.

DATA: END OF COMMON PART.

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

Modificações efetuadas em REPS /PWS/MZYCB033F01

...

CHECK sy-subrc NE 0.

READ TABLE itab_zycbt219 WITH KEY oper = 'A'.

CHECK sy-subrc NE 0.

READ TABLE itab_zycbt219 WITH KEY oper = 'E'.

ENDFORM.

FORM get_invoice.

DATA: BEGIN OF itab_result OCCURS 0.

INCLUDE STRUCTURE ddshretval.

DATA: END OF itab_result.

DATA: v_line LIKE sy-lilli.

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

DATA: shlp_struc LIKE /pws/zycbv201.

* << Fim da exclusão

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

DATA: shlp_struc LIKE /pws/zycbv201. "#EC *

* << Fim da inclusão

DATA: tdynpread LIKE dynpread OCCURS 0 WITH HEADER LINE.

DATA: l_display(1) TYPE c.

DATA: BEGIN OF record_tab OCCURS 0.

INCLUDE STRUCTURE seahlpres.

DATA: END OF record_tab.

IF v_status EQ '1'.

l_display = ' '.

ELSE.

l_display = 'X'.

ENDIF.

CLEAR tdynpread.

REFRESH tdynpread.

CALL FUNCTION 'DYNP_GET_STEPL'

IMPORTING

povstepl = v_line.

tdynpread-fieldname = '/PWS/ZYCBE219-NRINVOIC'.

tdynpread-stepl = v_line.

APPEND tdynpread.

CALL FUNCTION 'DYNP_VALUES_READ'

EXPORTING

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

dyname = '/PWS/SAPMZYCB033'

dynumb = '0100'

* << Fim da exclusão

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

dyname = '/PWS/SAPMZYCB033'

dynumb = '0100'

* << Fim da inclusão

TABLES

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

dynpfields = tdynpread.

* << Fim da exclusão

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

dynpfields = tdynpread

EXCEPTIONS

invalid_abapworkarea = 0

invalid_dynprofield = 0

invalid_dynproname = 0

invalid_dynpronummer = 0

invalid_request = 0

no_fielddescription = 0

invalid_parameter = 0

undefind_error = 0

double_conversion = 0

stepl_not_found = 0

OTHERS = 0.

* << Fim da inclusão

IF sy-subrc EQ 0 AND NOT

tdynpread-fieldvalue IS INITIAL.

EXIT.

ENDIF.

CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'

EXPORTING

tabname = '/PWS/ZYCBE219'

fieldname = 'NRINVOIC'

searchhelp = '/PWS/ZYCBA249'

multiple_choice = 'X'

...

IMPORTING

povstepl = v_line.

DO v_line TIMES.

CLEAR tdynpread.

REFRESH tdynpread.

tdynpread-fieldname = '/PWS/ZYCBE219-NRINVOIC'.

tdynpread-stepl = v_line - 1.

APPEND tdynpread.

CALL FUNCTION 'DYNP_VALUES_READ'

EXPORTING

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

dyname = '/PWS/SAPMZYCB033'

dynumb = '0100'

* << Fim da exclusão

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

dyname = '/PWS/SAPMZYCB033'

dynumb = '0100'

* << Fim da inclusão

TABLES

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

dynpfields = tdynpread.

* << Fim da exclusão

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

dynpfields = tdynpread

EXCEPTIONS

invalid_abapworkarea = 0

invalid_dynprofield = 0

invalid_dynproname = 0

invalid_dynpronummer = 0

invalid_request = 0

no_fielddescription = 0

invalid_parameter = 0

undefind_error = 0

double_conversion = 0

stepl_not_found = 0

OTHERS = 0.

* << Fim da inclusão

IF sy-subrc EQ 0 AND

tdynpread-fieldvalue IS INITIAL AND

tdynpread-stepl GT 0.

v_line = tdynpread-stepl.

ELSEIF sy-subrc EQ 0 AND

NOT tdynpread-fieldvalue IS INITIAL.

EXIT.

ENDIF.

ENDDO.

CLEAR tdynpread.

REFRESH tdynpread.

LOOP AT record_tab.

IF sy-tabix > 1.

v_line = v_line + 1.

ENDIF.

clear itab_zycbt219.

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

SELECT SINGLE vlsltrans pendcomm FROM /pws/zycbt030

* << Fim da exclusão

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

SELECT vlsltrans pendcomm FROM /pws/zycbt030

UP TO 1 ROWS

* << Fim da inclusão

INTO (/pws/zycbt030-vlsltrans, /pws/zycbt030-pendcomm)

WHERE nrinvoic = record_tab-string+3(15)

AND nrparcf = record_tab-string+27(2)

AND gsberf = record_tab-string+23(4).

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc NE 0.

SHIFT record_tab-string RIGHT BY 3 PLACES.

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

SELECT SINGLE vlsltrans pendcomm FROM /pws/zycbt030

* << Fim da exclusão

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

SELECT vlsltrans pendcomm FROM /pws/zycbt030

UP TO 1 ROWS

* << Fim da inclusão

INTO (/pws/zycbt030-vlsltrans, /pws/zycbt030-pendcomm)

WHERE nrinvoic = record_tab-string+3(15)

AND nrparcf = record_tab-string+27(2)

AND gsberf = record_tab-string+23(4).

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

ENDSELECT.

* << Fim da inclusão

ENDIF.

IF NOT /pws/zycbt030-pendcomm IS INITIAL.

v_line = v_line - 1.

MESSAGE i061 WITH text-049 record_tab-string+3(15) text-060.

CONTINUE.

ENDIF.

READ TABLE itab_zycbt219 WITH KEY nrinvoic = record_tab-string+3(15)

gsberf = record_tab-string+23(4)

nrparcf = record_tab-string+27(2)

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

belnr = space.

* << Fim da exclusão

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

belnr = space."#EC *

* << Fim da inclusão

IF sy-subrc EQ 0.

MESSAGE i061 WITH text-049 itab_zycbt219-nrinvoic text-059.

v_line = v_line - 1.

CONTINUE.

ENDIF.

tdynpread-fieldname = '/PWS/ZYCBE219-NRINVOIC'.

tdynpread-fieldvalue = record_tab-string+3(15).

itab_zycbt219-nrinvoic = tdynpread-fieldvalue.

tdynpread-stepl = v_line.

APPEND tdynpread.

...

APPEND itab_zycbt219.

ENDIF.

ENDLOOP.

CALL FUNCTION 'DYNP_VALUES_UPDATE'

EXPORTING

dyname = sy-cprog

dynumb = '0100'

TABLES

dynpfields = tdynpread

EXCEPTIONS

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

OTHERS = 8.

* << Fim da exclusão

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

OTHERS = 0.

* << Fim da inclusão

ENDFORM.

FORM command_aend.

DATA: v_answer(1) TYPE c.

IF v_status EQ '0'.

AUTHORITY-CHECK OBJECT 'S_TCODE'

ID 'TCD'

FIELD c_transacao_a.

IF sy-subrc = 0.

v_status = '1'.

ELSE.

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

MESSAGE i120 WITH text-008.

* << Fim da exclusão

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

MESSAGE i120 WITH text-008. "#EC *

* << Fim da inclusão

ENDIF.

ELSE.

PERFORM verifica_alteracoes.

IF sy-subrc EQ 0.

CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'

EXPORTING

defaultoption = 'Y'

textline1 = text-013

titel = text-012

cancel_display = space

IMPORTING

answer = v_answer

EXCEPTIONS

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

OTHERS = 1.

* << Fim da exclusão

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

OTHERS = 0.

* << Fim da inclusão

CASE v_answer.

WHEN 'J'.

PERFORM command_proc.

v_status = '0'.

WHEN 'N'.

WHEN 'A'.

ENDCASE.

ELSE.

v_status = '0'.

ENDIF.

...

nrparcf = itab_zycbt030_aux-nrparcf.

CHECK sy-subrc EQ 0.

MOVE-CORRESPONDING: itab_zycbt017 TO itab_zycbt030,

itab_zycbt030_aux TO itab_zycbt030.

IF itab_zycbt030-belnr6 IS INITIAL.

itab_zycbt030-v_belnr = itab_zycbt030-belnr.

ELSE.

itab_zycbt030-v_belnr = itab_zycbt030-belnr6.

ENDIF.

IF itab_zycbt030-shkzg IS INITIAL.

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

SELECT SINGLE *

* << Fim da exclusão

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

SELECT *

* << Fim da inclusão

FROM /pws/zycet002

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

UP TO 1 ROWS

* << Fim da inclusão

INTO wa_zycet002

WHERE nrseq = itab_zycbt030-nrinvoic

AND vbeln_vf = itab_zycbt030-vbeln.

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

ENDSELECT.

* << Fim da inclusão

IF wa_zycet002-shkzg EQ 'X'.

itab_zycbt030-shkzg = 'X'.

itab_zycbt030-flag = 'X'.

ELSE.

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

SELECT SINGLE *

* << Fim da exclusão

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

SELECT *

* << Fim da inclusão

FROM /pws/zycet020

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

UP TO 1 ROWS

* << Fim da inclusão

INTO wa_zycet020

WHERE auart EQ wa_zycet002-auart.

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

ENDSELECT.

* << Fim da inclusão

IF wa_zycet020-tipodoc = 'OC'.

...

itab_zycbt030-s_kwert = itab_total-kwert.

MODIFY itab_zycbt030.

ENDIF.

ENDLOOP.

ENDFORM.

FORM proc_inclusao.

DATA: v_cpochv LIKE /pws/zycbe033-cpochv,

v_kurrf_bl LIKE /pws/zycet001-kurrf_bl,

v_dtemb LIKE /pws/zycet001-dtemb,

v_desm LIKE /pws/zycbt089-tx_desm_cli,

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

v_desmemb TYPE c,

* << Fim da exclusão

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

v_desmemb TYPE c, "#EC *

* << Fim da inclusão

v_gjahr LIKE bkpf-gjahr,

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

e_subrc LIKE sy-subrc,

v_erro TYPE c.

* << Fim da exclusão

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

e_subrc LIKE sy-subrc, "#EC *

v_erro TYPE c. "#EC *

* << Fim da inclusão

DATA: BEGIN OF itab_contas OCCURS 0.

...

itab_zycbt219-umskz = /pws/zycbt011-agums.

itab_zycbt219-hkont = itab_zycbt219-kunnr.

CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'

EXPORTING

bukrs = itab_zycbt219-bukrs

ktosl = 'CPT'

codaux1 = 'DR'

TABLES

account = itab_contas

EXCEPTIONS

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

key_not_found = 1

rules_not_found = 2

OTHERS = 3.

* << Fim da exclusão

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

key_not_found = 0

rules_not_found = 0

OTHERS = 0.

* << Fim da inclusão

READ TABLE itab_contas INDEX 1.

itab_zycbe033-d_newko = itab_contas-konts.

itab_zycbt219-hkont = itab_contas-konts.

PERFORM verify_null_field USING itab_zycbe033-d_newko

'NEWKO'

text-042.

itab_zycbe033-augtx = /pws/zycbt011-txtdesc.

itab_zycbe033-d_sgtxt = /pws/zycbt011-txtdesc.

LOOP AT itab_zycbt030 WHERE nrinvoic = itab_zycbt219-nrinvoic AND

gsberf = itab_zycbt219-gsberf AND

nrparcf = itab_zycbt219-nrparcf.

itab_zycbt036-tcode = 'F-02'.

itab_zycbt036-tabela = '/PWS/ZYCBT219'.

itab_zycbt036-cpochv = itab_zycbe033-cpochv.

itab_zycbt036-belnr = itab_zycbt030-belnr_d.

IF itab_zycbt030-belnr_d EQ itab_zycbt030-belnr OR

itab_zycbt030-belnr_d EQ itab_zycbt030-belnr6.

v_gjahr = itab_zycbt030-budat(4).

itab_zycbt036-dtdocto = itab_zycbt030-budat.

CLEAR itab_zycbe033-c_zuonr.

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

SELECT SINGLE wrbtr FROM bsid INTO itab_zycbe033-wrbtr

* << Fim da exclusão

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

SELECT wrbtr FROM bsid

UP TO 1 ROWS

INTO itab_zycbe033-wrbtr

* << Fim da inclusão

WHERE belnr = itab_zycbt030-belnr_d

AND gjahr = v_gjahr

AND kunnr = itab_zycbt219-kunnr

AND bukrs = itab_zycbt219-bukrs.

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

ENDSELECT.

* << Fim da inclusão

ELSE.

itab_zycbt036-dtdocto = itab_zycbt219-dtcredext.

ENDIF.

...

REFRESH: itab_zyglt100.

IF itab_zyglt100[] IS INITIAL.

v_syrepid = sy-repid.

CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

EXPORTING

i_codmod = 'E'

i_func = v_syrepid

TABLES

itab_zyglt100 = itab_zyglt100

EXCEPTIONS

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

i_codmod_nao_encontrado = 1

i_func_nao_encontrado = 2

i_zexit_nao_encontrado = 3

OTHERS = 4.

* << Fim da exclusão

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

i_codmod_nao_encontrado = 0

i_func_nao_encontrado = 0

i_zexit_nao_encontrado = 0

OTHERS = 0.

* << Fim da inclusão

ENDIF.

READ TABLE itab_zyglt100 WITH KEY zexit = 'DES002' BINARY SEARCH.

IF sy-subrc EQ 0.

IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

PERFORM (itab_zyglt100-formulario)

IN PROGRAM (itab_zyglt100-programa)

USING ok_code

CHANGING e_subrc.

IF e_subrc NE 0.

EXIT.

...

CALL FUNCTION 'POPUP_TO_DECIDE_LIST'

EXPORTING

textline1 = text-036

textline2 = text-037

titel = text-038

IMPORTING

answer = v_modo_bi

TABLES

t_spopli = itab_modo

EXCEPTIONS

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

not_enough_answers = 1

too_much_answers = 2

too_much_marks = 3

OTHERS = 4.

* << Fim da exclusão

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

not_enough_answers = 0

too_much_answers = 0

too_much_marks = 0

OTHERS = 0.

* << Fim da inclusão

IF v_modo_bi EQ '1' OR v_modo_bi EQ 'A'.

v_modo_bi = 'N'.

ELSEIF v_modo_bi EQ '3'.

v_modo_bi = 'A'.

ELSEIF v_modo_bi EQ '2'.

v_modo_bi = 'E'.

ENDIF.

ENDFORM.

FORM clear_dados_batch.

CLEAR: itab_zycbe033,

...

WHEN 'DTFECH1'.

v_data_aux = itab_zycbt219-dtincl.

v_data_aux+6(2) = '01'.

v_databl = v_data_aux.

WHEN 'DTLANC'.

v_databl = p_dtlanc.

WHEN 'TXFATUR'.

WHEN 'DTCREDEXT'.

v_databl = itab_zycbt219-dtcredext.

WHEN 'TXFAT'.

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

SELECT SINGLE dtemb

* << Fim da exclusão

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

SELECT dtemb

* << Fim da inclusão

FROM /pws/zycet001

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

UP TO 1 ROWS

* << Fim da inclusão

INTO v_dtemb_aux

WHERE nrseq EQ itab_zycbt219-nrinvoic.

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

SELECT SINGLE belnr

* << Fim da exclusão

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

ENDSELECT.

SELECT belnr

* << Fim da inclusão

FROM /pws/zycbt030

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

UP TO 1 ROWS

* << Fim da inclusão

INTO v_belnr

WHERE nrinvoic EQ itab_zycbt219-nrinvoic AND

gsberf EQ itab_zycbt219-gsberf AND

nrparcf EQ itab_zycbt219-nrparcf.

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

ENDSELECT.

* << Fim da inclusão

IF NOT v_belnr IS INITIAL AND

NOT v_dtemb_aux IS INITIAL.

SELECT SINGLE kursf FROM bkpf INTO itab_zycbe033-kursf

WHERE bukrs = itab_zycbt219-bukrs AND

belnr = v_belnr AND

gjahr = v_dtemb_aux(4).

ENDIF.

CLEAR v_databl.

ENDCASE.

ENDFORM.

...

CALL FUNCTION '/PWS/ZYCB_MONTANTE_CONVERTE'

EXPORTING

i_montante = '1'

i_demoeda = p_moedae

i_paramoeda = p_moedal

i_ctmoeda = wa_zycbt009-kurst

i_dtbase = p_data

IMPORTING

e_txc = p_kursf

EXCEPTIONS

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

i_demoeda_nao_encontrado = 1

i_paramoeda_nao_encontrado = 2

i_ctmoeda_nao_encontrado = 3

i_dtbase_nao_encontrada = 4

taxa_nao_encontrada = 5

fator_nao_encontrado = 6

i_montante_nao_encontrado = 7

OTHERS = 8.

* << Fim da exclusão

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

i_demoeda_nao_encontrado = 0

i_paramoeda_nao_encontrado = 0

i_ctmoeda_nao_encontrado = 0

i_dtbase_nao_encontrada = 0

taxa_nao_encontrada = 0

fator_nao_encontrado = 0

i_montante_nao_encontrado = 0

OTHERS = 0.

* << Fim da inclusão

ENDFORM.

FORM determina_periodo USING p_budat

p_bukrs

CHANGING p_monat.

DATA: v_periv(2).

SELECT SINGLE periv

FROM t001

INTO v_periv

WHERE bukrs EQ p_bukrs.

CALL FUNCTION 'DETERMINE_PERIOD'

EXPORTING

date = p_budat

version = v_periv

IMPORTING

period = p_monat

EXCEPTIONS

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

period_in_not_valid = 1

period_not_assigned = 2

version_undefined = 3

OTHERS = 4.

* << Fim da exclusão

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

period_in_not_valid = 0

period_not_assigned = 0

version_undefined = 0

OTHERS = 0.

* << Fim da inclusão

ENDFORM.

FORM determina_ano USING p_budat

p_bukrs

CHANGING p_ano.

CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

EXPORTING

v_bukrs = p_bukrs

v_date = p_budat

IMPORTING

v_year = p_ano.

ENDFORM.

FORM verifica_data USING value(p_data)

value(p_bukrs)

value(p_nrinv)

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

value(p_mensg).

* << Fim da exclusão

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

value(p_mensg). "#EC *

* << Fim da inclusão

DATA: v_monat LIKE t001b-frpe1,

v_ano TYPE gjahr.

PERFORM determina_periodo USING p_data

p_bukrs

CHANGING v_monat.

PERFORM determina_ano USING p_data

p_bukrs

CHANGING v_ano.

CALL FUNCTION 'FI_PERIOD_CHECK'

EXPORTING

...

FORM proc_estorno.

DATA: v_agrupada TYPE c,

v_saldo_liq LIKE /pws/zycbt219-saldo_liq.

SELECT SINGLE saldo_liq FROM /pws/zycbt219 INTO v_saldo_liq

WHERE bukrs = itab_zycbt219-bukrs AND

nrinvoic = itab_zycbt219-nrinvoic AND

belnr = itab_zycbt219-belnr AND

dtincl = itab_zycbt219-dtincl AND

gsberf = itab_zycbt219-gsberf AND

nrparcf = itab_zycbt219-nrparcf.

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

SELECT SINGLE * FROM /pws/zycbt006

* << Fim da exclusão

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

SELECT * FROM /pws/zycbt006

UP TO 1 ROWS

* << Fim da inclusão

WHERE nrinvoic EQ itab_zycbt219-nrinvoic.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc NE 0.

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

SELECT SINGLE * FROM /pws/zycbt005

* << Fim da exclusão

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

SELECT * FROM /pws/zycbt005

UP TO 1 ROWS

* << Fim da inclusão

WHERE nrinvoic EQ itab_zycbt219-nrinvoic.

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

ENDSELECT.

* << Fim da inclusão

ENDIF.

IF sy-subrc EQ 0.

IF itab_zycbt219-saldo NE itab_zycbt219-vlme AND

v_saldo_liq EQ 0.

CALL FUNCTION 'MESSAGE_STORE'

EXPORTING

...

IF v_agrupada EQ 'X'.

PERFORM estorna_agrupamento.

ELSE.

PERFORM estorna_sem_agrupamento.

ENDIF.

ENDFORM.

FORM estorna_agrupamento.

DATA: BEGIN OF itab_contas OCCURS 0.

INCLUDE STRUCTURE /pws/zyglt316.

DATA: END OF itab_contas.

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

DATA: v_subrc LIKE sy-subrc,

* << Fim da exclusão

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

DATA: v_subrc LIKE sy-subrc, "#EC *

* << Fim da inclusão

v_dtliquid LIKE sy-datum,

v_dtemb LIKE sy-datum,

v_kurrf_bl LIKE /pws/zycet001-kurrf_bl,

v_cpochv LIKE /pws/zycbe033-cpochv,

v_desm LIKE /pws/zycbt089-tx_desm_cli,

v_vlsltrans LIKE /pws/zycbt030-vlsltrans.

CLEAR itab_zyglt321.

REFRESH itab_zyglt321.

SELECT * FROM /pws/zyglt321

INTO TABLE itab_zyglt321

...

ENDIF.

itab_zycbe033-wrbtr = itab_zycbt219-vlme.

CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'

EXPORTING

bukrs = itab_zycbt219-bukrs

ktosl = 'CPT'

codaux1 = 'DR'

TABLES

account = itab_contas

EXCEPTIONS

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

key_not_found = 1

rules_not_found = 2

OTHERS = 3.

* << Fim da exclusão

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

key_not_found = 0

rules_not_found = 0

OTHERS = 0.

* << Fim da inclusão

READ TABLE itab_contas INDEX 1.

itab_zycbe033-d_newko = itab_contas-konts.

IF itab_zycbt030-flag <> 'X'.

itab_zycbe033-newbs = '50'.

ELSE.

itab_zycbe033-newbs = '12'.

ENDIF.

itab_zycbe033-zumsk = /pws/zycbt011-agums.

itab_zycbe033-augtx = /pws/zycbt011-txtdesc.

itab_zycbe033-d_sgtxt = /pws/zycbt011-txtdesc.

...

v_zeile = v_zeile + 1.

ENDLOOP.

v_subrc = 4.

ENDIF.

ELSE.

v_subrc = 4.

ENDIF.

ENDFORM.

FORM estorna_sem_agrupamento.

DATA: v_subrc LIKE sy-subrc,

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

v_wrbtr LIKE bsid-wrbtr,

* << Fim da exclusão

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

v_wrbtr LIKE bsid-wrbtr, "#EC *

* << Fim da inclusão

v_dtliquid LIKE sy-datum,

v_dtemb LIKE sy-datum,

v_kurrf_bl LIKE /pws/zycet001-kurrf_bl,

v_cpochv LIKE /pws/zycbe033-cpochv,

v_desm LIKE /pws/zycbt089-tx_desm_cli,

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

v_belnr LIKE bkpf-belnr,

v_dtbelnr LIKE sy-datum,

* << Fim da exclusão

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

v_belnr LIKE bkpf-belnr, "#EC *

v_dtbelnr LIKE sy-datum, "#EC *

* << Fim da inclusão

v_vlsltrans LIKE /pws/zycbt030-vlsltrans,

v_last TYPE c,

v_newbs LIKE /pws/zycbe033-newbs,

v_line LIKE sy-tabix,

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

v_total TYPE c.

* << Fim da exclusão

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

v_total TYPE c. "#EC *

* << Fim da inclusão

DATA: BEGIN OF itab_doctos OCCURS 0.

INCLUDE STRUCTURE /pws/zycbt036.

DATA: END OF itab_doctos.

CLEAR itab_zyglt321.

REFRESH itab_zyglt321.

SELECT * FROM /pws/zyglt321

INTO TABLE itab_zyglt321

WHERE ktosl = 'FTE'

AND codeven = '027'.

PERFORM clear_dados_batch.

READ TABLE itab_zycbt030 INDEX 1.

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

SELECT SINGLE wrbtr

* << Fim da exclusão

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

SELECT wrbtr

* << Fim da inclusão

FROM bsid

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

UP TO 1 ROWS

* << Fim da inclusão

INTO v_wrbtr

WHERE belnr = itab_zycbt030-belnr6 AND

gjahr = itab_zycbt030-budat(4) AND

bukrs = itab_zycbt219-bukrs.

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

ENDSELECT.

* << Fim da inclusão

IF sy-subrc NE 0.

v_total = 'X'.

ENDIF.

itab_zycbe033-tcode = 'F-30'.

itab_zycbe033-tabela = '/PWS/ZYCBT219'.

CONCATENATE itab_zycbt030-nrinvoic

itab_zycbt030-gsberf

itab_zycbt030-nrparcf

INTO v_cpochv.

itab_zycbe033-cpochv = v_cpochv.

...

/pws/zycbt007-waersb

itab_zycbe033-kursf.

ENDIF.

itab_zycbe033-d_newko = itab_zycbt030-kunag.

IF itab_zycbt030-flag <> 'X'.

itab_zycbe033-newbs = '01'.

ELSE.

itab_zycbe033-newbs = '12'.

ENDIF.

CLEAR v_last.

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

LOOP AT itab_zycbt030 WHERE nrinvoic = itab_zycbt219-nrinvoic AND

gsberf = itab_zycbt219-gsberf AND

nrparcf = itab_zycbt219-nrparcf.

* << Fim da exclusão

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

LOOP AT itab_zycbt030.

CHECK itab_zycbt030-nrinvoic = itab_zycbt219-nrinvoic AND

itab_zycbt030-gsberf = itab_zycbt219-gsberf AND

itab_zycbt030-nrparcf = itab_zycbt219-nrparcf.

* << Fim da inclusão

IF itab_zycbt030-flag <> 'X'.

v_newbs = '09'.

ELSE.

v_newbs = '12'.

ENDIF.

AT LAST.

v_last = 'X'.

ENDAT.

v_line = sy-tabix - 1.

IF v_last EQ 'X'.

...

tdynpread-fieldname = 'S_NPARC-LOW'.

tdynpread-fieldvalue = shlp_struc-nrparcf.

APPEND tdynpread.

CALL FUNCTION 'DYNP_VALUES_UPDATE'

EXPORTING

dyname = sy-cprog

dynumb = '0001'

TABLES

dynpfields = tdynpread

EXCEPTIONS

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

OTHERS = 8.

* << Fim da exclusão

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

OTHERS = 0.

* << Fim da inclusão

ENDFORM.

FORM f4_for_nrinv_high.

DATA: shlp_struc LIKE /pws/zycbv213.

DATA: tdynpread LIKE dynpread OCCURS 0 WITH HEADER LINE.

CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'

EXPORTING

tabname = ' '

fieldname = 'S_NRINV-HIGH'

searchhelp = '/PWS/ZYCBA272'

EXCEPTIONS

...

tdynpread-fieldname = 'S_NPARC-HIGH'.

tdynpread-fieldvalue = shlp_struc-nrparcf.

APPEND tdynpread.

CALL FUNCTION 'DYNP_VALUES_UPDATE'

EXPORTING

dyname = sy-cprog

dynumb = '0001'

TABLES

dynpfields = tdynpread

EXCEPTIONS

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

OTHERS = 8.

* << Fim da exclusão

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

OTHERS = 0.

* << Fim da inclusão

ENDFORM.

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

Modificações efetuadas em REPS /PWS/MZYCB033I01

...

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 exclusão: MODULE USER_COMMAND_0100

e_exec_okcode.

* << Fim da exclusão

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

e_exec_okcode."#EC *

* << Fim da inclusão

CLEAR: r_okcode, e_exec_okcode, v_syrepid.

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.

CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

EXPORTING

i_codmod = 'E'

i_func = v_syrepid

TABLES

itab_zyglt100 = itab_zyglt100

EXCEPTIONS

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

i_codmod_nao_encontrado = 1

i_func_nao_encontrado = 2

i_zexit_nao_encontrado = 3

OTHERS = 4.

* << Fim da exclusão

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

i_codmod_nao_encontrado = 0

i_func_nao_encontrado = 0

i_zexit_nao_encontrado = 0

OTHERS = 0.

* << Fim da inclusão

ENDIF.

READ TABLE itab_zyglt100 WITH KEY zexit = 'DES001' BINARY SEARCH.

IF sy-subrc EQ 0.

IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

PERFORM (itab_zyglt100-formulario)

IN PROGRAM (itab_zyglt100-programa)

USING ok_code

CHANGING e_subrc.

IF e_subrc NE 0.

EXIT.

...

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

Modificações efetuadas em REPS /PWS/MZYCB033O01

...

MODULE insert_line OUTPUT.

v_oper = icon_space.

CLEAR: /pws/zycbe219,

/pws/zycbt017,

/pws/zycbt030.

MOVE-CORRESPONDING itab_zycbt219 TO /pws/zycbe219.

SELECT SINGLE * FROM /pws/zycbt017

WHERE nrinvoic = /pws/zycbe219-nrinvoic AND

nrparcf = /pws/zycbe219-nrparcf AND

gsberf = /pws/zycbe219-gsberf.

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

SELECT SINGLE * FROM /pws/zycbt030

* << Fim da exclusão

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

SELECT * FROM /pws/zycbt030

UP TO 1 ROWS

* << Fim da inclusão

WHERE nrinvoic = /pws/zycbe219-nrinvoic AND

nrparcf = /pws/zycbe219-nrparcf AND

gsberf = /pws/zycbe219-gsberf.

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

ENDSELECT.

* << Fim da inclusão

v_vlsltrans = /pws/zycbt030-vlsltrans.

IF /pws/zycbe219-dtincl IS INITIAL AND

NOT /pws/zycbe219-nrinvoic IS INITIAL.

/pws/zycbe219-dtincl = sy-datum.

...

SELECT SINGLE name1 FROM kna1 INTO v_name1

WHERE kunnr = /pws/zycbe219-kunnr.

v_vlavinc = /pws/zycbt017-vlavinc.

tc_desrec-lines = tc_desrec-top_line + sy-srows - 2.

CLEAR ok_code.

ENDMODULE.

MODULE set_screen_tc OUTPUT.

PERFORM set_screen_tc.

ENDMODULE.

MODULE carrega_parametros OUTPUT.

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

SELECT SINGLE empresa

* << Fim da exclusão

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

SELECT empresa

* << Fim da inclusão

FROM /pws/zyglt364

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

UP TO 1 ROWS

* << Fim da inclusão

INTO /pws/zyglt364-empresa

WHERE usuario EQ sy-uname.

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

ENDSELECT.

* << Fim da inclusão

SELECT SINGLE *

...

MODULE load_html_help OUTPUT.

IF my_container IS INITIAL.

CREATE OBJECT my_container

EXPORTING

container_name = 'CC_HTML_HELP'

EXCEPTIONS

others = 1.

CASE sy-subrc.

WHEN 0.

WHEN OTHERS.

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

RAISE cntl_error.

* << Fim da exclusão

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

RAISE cntl_error. "#EC *

* << Fim da inclusão

ENDCASE.

ENDIF.

IF html_control IS INITIAL.

CREATE OBJECT html_control

EXPORTING

parent = my_container.

IF sy-subrc NE 0.

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

RAISE cntl_error.

* << Fim da exclusão

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

RAISE cntl_error."#EC *

* << Fim da inclusão

ENDIF.

alignment = html_control->align_at_left +

html_control->align_at_right +

html_control->align_at_top +

html_control->align_at_bottom.

CALL METHOD html_control->set_alignment

EXPORTING

alignment = alignment.

myevent-eventid = html_control->m_id_sapevent.

myevent-appl_event = 'X'.

...

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

Modificações efetuadas em REPS /PWS/MZYCB033TOP

PROGRAM /pws/sapmzycb031 MESSAGE-ID /pws/zycbm.

INCLUDE <icon>.

INCLUDE /pws/mzycb033x01.

INCLUDE /pws/zygli100.

INCLUDE /pws/zygli101.

DATA: itab_zyglt100 LIKE /pws/zyglt100 OCCURS 0 WITH HEADER LINE.

* >> Início da exclusão:

DATA v_tela_help LIKE sy-dynnr VALUE '0052'.

* << Fim da exclusão

* >> Início da inclusão:

DATA v_tela_help LIKE sy-dynnr VALUE '0052'."#EC *

* << Fim da inclusão

TABLES:

/pws/zycbt007,

/pws/zycbt089,

/pws/zycbt011,

/pws/zycbt017,

/pws/zycbt030,

* >> Início da exclusão:

/pws/zyglt364,

/pws/zycbt006,

/pws/zycbt005.

* << Fim da exclusão

* >> Início da inclusão:

/pws/zyglt364,"#EC *

/pws/zycbt006,"#EC *

/pws/zycbt005."#EC *

* << Fim da inclusão

DATA: BEGIN OF itab_zycbt219_ant OCCURS 0.

INCLUDE STRUCTURE /pws/zycbt219.

DATA: vlsltrans LIKE /pws/zycbt030-vlsltrans,

oper(1) TYPE c,

mark(1) TYPE c,

v_name1 TYPE kna1-name1,

vlavinc TYPE /pws/zycbt017-vlavinc.

DATA: END OF itab_zycbt219_ant.

DATA: BEGIN OF itab_zycbt030 OCCURS 0.

INCLUDE STRUCTURE /pws/zycbt030.

...

werks LIKE /pws/zycbt017-werks,

v_belnr LIKE /pws/zycbt030-belnr,

s_kwert LIKE /pws/zycbt030-kwert,

v_kwert LIKE /pws/zycbt030-kwert,

v_kwert2 LIKE /pws/zycbt030-kwert,

belnr7 LIKE /pws/zycbt030-belnr,

flag(1) TYPE c,

belnr_d LIKE /pws/zycbt030-belnr,

status_d(1).

DATA: END OF itab_zycbt030.

* >> Início da exclusão:

DATA: itab_zycbt013 LIKE /pws/zycbt013 OCCURS 10 WITH HEADER LINE.

* << Fim da exclusão

* >> Início da inclusão:

DATA: itab_zycbt013 LIKE /pws/zycbt013 OCCURS 10 WITH HEADER LINE."#EC *

* << Fim da inclusão

DATA: BEGIN OF itab_modo OCCURS 0.

INCLUDE STRUCTURE spopli.

DATA: END OF itab_modo.

DATA: BEGIN OF itab_zyglt321 OCCURS 0.

INCLUDE STRUCTURE /pws/zyglt321.

DATA: END OF itab_zyglt321.

* >> Início da exclusão:

DATA: itab_zyglt368 LIKE /pws/zyglt368 OCCURS 0 WITH HEADER LINE.

* << Fim da exclusão

* >> Início da inclusão:

DATA: itab_zyglt368 LIKE /pws/zyglt368 OCCURS 0 WITH HEADER LINE."#EC *

* << Fim da inclusão

CONSTANTS: c_transacao_c(14) VALUE '/PWS/ZYCB033_C',

c_transacao_a(14) VALUE '/PWS/ZYCB033_A',

c_transacao_e(14) VALUE '/PWS/ZYCB033_E'.

CONSTANTS: c_no_modify(1) VALUE 'X'.

CONTROLS: tc_desrec TYPE TABLEVIEW USING SCREEN '0100'.

DATA:

v_oper LIKE icons-text,

v_status(1) TYPE c VALUE '1',

v_vlsltrans LIKE /pws/zycbt030-vlsltrans,

v_line_ini TYPE i VALUE 1,

...

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

Modificações efetuadas em REPS /PWS/MZYCB508F01

...

if sy-subrc eq 0 and v_resposta eq 'J'.

perform salva_dados.

endif.

if v_resposta eq 'A'.

exit.

endif.

leave program.

endform.

form calcula_saldos.

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

data: v_vldif like /pws/zycbe005-vlslf,

* << Fim da exclusão

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

DATA: v_vldif LIKE /pws/zycbe005-vlslf,"#EC *

* << Fim da inclusão

v_vldif_fat like /pws/zycbe005-vlslf,

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

v_slvinc like /pws/zycbe001-slvinc,

* << Fim da exclusão

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

v_slvinc LIKE /pws/zycbe001-slvinc,"#EC *

* << Fim da inclusão

v_vlslf like /pws/zycbe005-vlslf.

read table itab_zycbt509_aux

with key nrinvoic = /pws/zycbe509-nrinvoic

...

itab_zycbt514-status ne 'I' .

v_vldif_fat = ( itab_zycbt514_aux-vlvinc -

itab_zycbt514-vlvinc ).

elseif itab_zycbt514-status = 'I' and

not v_sbu is initial and

itab_zycbt509-vlslf eq itab_zycbt514-vlvinc.

v_vldif_fat = ( 0 - itab_zycbt514-vlvinc ).

endif.

v_vlslf = itab_zycbt509-vlslf + v_vldif_fat.

if v_vlslf lt 0.

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

message i011(pc) with text-004.

* << Fim da exclusão

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

MESSAGE i011(pc) WITH text-004."#EC *

* << Fim da inclusão

clear: /pws/zycbe514-vlvinc.

itab_zycbt514-vlvinc = itab_zycbt514_aux-vlvinc.

itab_zycbt514-slpagar = itab_zycbt514_aux-vlvinc.

clear v_ind_mudanca.

modify itab_zycbt514 index tc_fat_sbu-current_line

transporting vlvinc slpagar.

else.

itab_zycbt509-vlslf = itab_zycbt509-vlslf + v_vldif_fat.

modify itab_zycbt509 index tc_fat_sbu-current_line

transporting vlslf.

...

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

Modificações efetuadas em REPS /PWS/MZYCB508TOP

PROGRAM /PWS/SAPMZYCB508 MESSAGE-ID /pws/zycbm.

tables: /pws/zycbe514,

/pws/zycbe509,

* >> Início da exclusão:

/pws/zycbt005.

* << Fim da exclusão

* >> Início da inclusão:

/pws/zycbt005."#EC *

* << Fim da inclusão

CONTROLS:

tc_fat_sbu TYPE TABLEVIEW USING SCREEN '0100'.

DATA: BEGIN OF itab_zycbt509 OCCURS 0.

INCLUDE STRUCTURE /pws/zycbt509.

data: v_sbu.

DATA: END OF itab_zycbt509.

* >> Início da exclusão:

DATA: BEGIN OF itab_zycbt511 OCCURS 0.

* << Fim da exclusão

* >> Início da inclusão:

DATA: BEGIN OF itab_zycbt511 OCCURS 0."#EC *

* << Fim da inclusão

INCLUDE STRUCTURE /pws/zycbt511.

* >> Início da exclusão:

DATA: END OF itab_zycbt511.

* << Fim da exclusão

* >> Início da inclusão:

DATA: END OF itab_zycbt511."#EC *

* << Fim da inclusão

DATA: BEGIN OF itab_ZYCBT514 OCCURS 0.

INCLUDE STRUCTURE /pws/ZYCBT514.

data: change,

...

data: change,

status.

DATA: END OF itab_ZYCBT514_aux.

DATA: BEGIN OF itab_zycbt005 OCCURS 0.

INCLUDE STRUCTURE /pws/zycbt005.

DATA: END OF itab_zycbt005.

data: v_nrseqc like /pws/ZYCBT005-nrseqc ,

v_dtvincul like /pws/ZYCBT005-dtvincul,

v_inicio ,

v_index TYPE i,

* >> Início da exclusão:

ok_code LIKE sy-ucomm,

* << Fim da exclusão

* >> Início da inclusão:

ok_code LIKE sy-ucomm,"#EC *

* << Fim da inclusão

v_resposta(1) TYPE c,

v_sbu,

* >> Início da exclusão:

v_ind_mudanca TYPE c,

* << Fim da exclusão

* >> Início da inclusão:

v_ind_mudanca TYPE c,"#EC *

* << Fim da inclusão

v_primeiro type i,

v_line type i.

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

Modificações efetuadas em REPS /PWS/MZYCB509F01

...

/pws/zycbe511-vlme = itab_zycbt514-slpagar.

/pws/zycbe511-nrseqc = v_nrseqc.

/pws/zycbe511-dtpagto = v_dtpagto.

/pws/zycbe511-dtpagext = v_dtpagext.

/pws/zycbe511-f_liq = 'X'.

v_sbu = 'X'.

ENDIF.

ENDFORM.

FORM calcula_saldos.

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

DATA: v_vldif LIKE /pws/zycbt005-vlme_p,

* << Fim da exclusão

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

DATA: v_vldif LIKE /pws/zycbt005-vlme_p,"#EC *

* << Fim da inclusão

v_vldif_fat LIKE /pws/zycbt005-vlme_p,

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

v_slvinc LIKE /pws/zycbt001-slvinc,

* << Fim da exclusão

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

v_slvinc LIKE /pws/zycbt001-slvinc,"#EC *

* << Fim da inclusão

v_vlslf LIKE /pws/zycbt005-vlme_p.

READ TABLE itab_zycbt514_aux

WITH KEY nrinvoic = /pws/zycbe514-nrinvoic

...

itab_zycbt511-status NE 'I'.

v_vldif_fat = ( itab_zycbt511_aux-vlme -

itab_zycbt511-vlme ).

ELSEIF itab_zycbt511-status = 'I' AND

NOT v_sbu IS INITIAL AND

itab_zycbt514-slpagar EQ itab_zycbt511-vlme.

v_vldif_fat = ( 0 - itab_zycbt511-vlme ).

ENDIF.

v_vlslf = itab_zycbt514-slpagar + v_vldif_fat.

IF v_vlslf LT 0.

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

MESSAGE i011(pc) WITH text-004.

* << Fim da exclusão

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

MESSAGE i011(pc) WITH text-004."#EC *

* << Fim da inclusão

CLEAR: /pws/zycbe511-vlme.

itab_zycbt511-vlme = itab_zycbt511_aux-vlme.

CLEAR v_ind_mudanca.

MODIFY itab_zycbt511 INDEX tc_fat_sbu-current_line

TRANSPORTING vlme .

ELSE.

itab_zycbt514-slpagar = itab_zycbt514-slpagar + v_vldif_fat.

MODIFY itab_zycbt514 INDEX tc_fat_sbu-current_line

TRANSPORTING slpagar.

ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCB509TOP

PROGRAM /PWS/SAPMZYCB509 MESSAGE-ID /pws/zycbm.

tables: /pws/zycbe511,

/pws/zycbe514,

* >> Início da exclusão:

/pws/zycbt005.

* << Fim da exclusão

* >> Início da inclusão:

/pws/zycbt005."#EC *

* << Fim da inclusão

CONTROLS:

tc_fat_sbu TYPE TABLEVIEW USING SCREEN '0100'.

* >> Início da exclusão:

DATA: BEGIN OF itab_zycbt509 OCCURS 0.

* << Fim da exclusão

* >> Início da inclusão:

DATA: BEGIN OF itab_zycbt509 OCCURS 0."#EC *

* << Fim da inclusão

INCLUDE STRUCTURE /pws/zycbt509.

* >> Início da exclusão:

DATA: END OF itab_zycbt509.

* << Fim da exclusão

* >> Início da inclusão:

DATA: END OF itab_zycbt509."#EC *

* << Fim da inclusão

DATA: BEGIN OF itab_ZYCBT514 OCCURS 0.

INCLUDE STRUCTURE /pws/ZYCBT514.

data: v_sbu.

DATA: END OF itab_ZYCBT514.

DATA: BEGIN OF itab_ZYCBT511 OCCURS 0.

INCLUDE STRUCTURE /pws/ZYCBT511.

data: change,

status.

DATA: END OF itab_ZYCBT511.

* >> Início da exclusão:

DATA: BEGIN OF itab_zycbt509_aux OCCURS 0.

* << Fim da exclusão

* >> Início da inclusão:

DATA: BEGIN OF itab_zycbt509_aux OCCURS 0."#EC *

* << Fim da inclusão

INCLUDE STRUCTURE /pws/zycbt509.

* >> Início da exclusão:

DATA: END OF itab_zycbt509_aux.

* << Fim da exclusão

* >> Início da inclusão:

DATA: END OF itab_zycbt509_aux."#EC *

* << Fim da inclusão

DATA: BEGIN OF itab_ZYCBT514_aux OCCURS 0.

INCLUDE STRUCTURE /pws/ZYCBT514.

data: v_sbu.

...

DATA: END OF itab_zycbt005.

data: v_nrseqc like /pws/ZYCBt005-nrseqc ,

v_dtpagto like /pws/ZYCBt006-dtpagto,

v_dtpagext like /pws/ZYCBt006-dtpagext,

v_dtvincul like /pws/ZYCBt005-dtvincul,

v_inicio ,

v_index TYPE i,

ok_code LIKE sy-ucomm,

v_resposta(1) TYPE c,

v_sbu,

* >> Início da exclusão:

v_ind_mudanca TYPE c,

* << Fim da exclusão

* >> Início da inclusão:

v_ind_mudanca TYPE c,"#EC *

* << Fim da inclusão

v_primeiro type i,

v_line type i.

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

Modificações efetuadas em REPS /PWS/MZYCB510F01

FORM SALVA_DADOS.

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

DATA: V_DTRECEB LIKE /PWS/ZYCBT051-DTRECEB,

V_TPDEV LIKE /PWS/ZYCBT051-TPDEV.

* << Fim da exclusão

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

DATA: V_DTRECEB LIKE /PWS/ZYCBT051-DTRECEB,"#EC *

V_TPDEV LIKE /PWS/ZYCBT051-TPDEV."#EC *

* << Fim da inclusão

DATA: BEGIN OF ITAB_ZYCBT513_SAVE OCCURS 0.

INCLUDE STRUCTURE /PWS/ZYCBT513.

DATA: END OF ITAB_ZYCBT513_SAVE.

DATA: BEGIN OF ITAB_ZYCBT513_DELETE OCCURS 0.

INCLUDE STRUCTURE /PWS/ZYCBT513.

DATA: END OF ITAB_ZYCBT513_DELETE.

DATA: BEGIN OF ITAB_ZYCBT512_SAVE OCCURS 0.

INCLUDE STRUCTURE /PWS/ZYCBT512.

DATA: END OF ITAB_ZYCBT512_SAVE.

DATA: BEGIN OF ITAB_ZYCBT512_DELETE OCCURS 0.

...

NRPARCF = ITAB_ZYCBT513-NRPARCF AND

GSBERF = ITAB_ZYCBT513-GSBERF AND

SBU = ITAB_ZYCBT513-SBU AND

DTRECEB = ITAB_ZYCBT513-DTRECEB AND

TPDEV = ITAB_ZYCBT513-TPDEV .

ENDIF.

ENDLOOP.

ENDIF.

ENDFORM.

FORM CALCULA_SALDOS.

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

DATA: V_VLDIF LIKE /PWS/ZYCBT005-VLME_P,

* << Fim da exclusão

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

DATA: V_VLDIF LIKE /PWS/ZYCBT005-VLME_P,"#EC *

* << Fim da inclusão

V_VLDIF_FAT LIKE /PWS/ZYCBT005-VLME_P,

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

V_SLVINC LIKE /PWS/ZYCBT001-SLVINC,

* << Fim da exclusão

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

V_SLVINC LIKE /PWS/ZYCBT001-SLVINC,"#EC *

* << Fim da inclusão

V_VLSLF LIKE /PWS/ZYCBT005-VLME_P,

v_sldevol like /pws/zycbt512-sldevol.

READ TABLE ITAB_ZYCBT513_AUX

...

/PWS/ZYCBE513-KUNNR = ITAB_ZYCBT513-KUNNR.

/PWS/ZYCBE513-WAERS = ITAB_ZYCBT513-WAERS.

/PWS/ZYCBE513-VLME_FAT = ITAB_ZYCBT513-VLME_FAT.

V_SBU_TC = ITAB_ZYCBT513-V_SBU.

/PWS/ZYCBE513-V_RECEB = ITAB_ZYCBT513-V_RECEB.

/PWS/ZYCBE513-TPDEV = ITAB_ZYCBT513-TPDEV.

/PWS/ZYCBE513-DTRECEB = ITAB_ZYCBT513-DTRECEB.

/pws/zycbe512-sldevol = ITAB_ZYCBT512-sldevol.

ENDFORM.

FORM CALCULA_SALDOS_DEV.

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

DATA: V_VLDIF LIKE /PWS/ZYCBT005-VLME_P,

* << Fim da exclusão

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

DATA: V_VLDIF LIKE /PWS/ZYCBT005-VLME_P,"#EC *

* << Fim da inclusão

V_VLDIF_FAT LIKE /PWS/ZYCBT005-VLME_P,

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

V_SLVINC LIKE /PWS/ZYCBT001-SLVINC,

* << Fim da exclusão

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

V_SLVINC LIKE /PWS/ZYCBT001-SLVINC,"#EC *

* << Fim da inclusão

V_VLSLF LIKE /PWS/ZYCBT005-VLME_P.

READ TABLE ITAB_ZYCBT512_AUX

WITH KEY NRINVOIC = /PWS/ZYCBE512-NRINVOIC

...

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

Modificações efetuadas em REPS /PWS/MZYCB510TOP

PROGRAM /PWS/SAPMZYCB510 MESSAGE-ID /pws/zycbm.

* >> Início da exclusão:

tables: /pws/zycbe509,

* << Fim da exclusão

* >> Início da inclusão:

tables: /pws/zycbe509,"#EC *

* << Fim da inclusão

/pws/zycbe514,

/pws/zycbe513,

/pws/zycbt514,

/pws/zycbe512,

* >> Início da exclusão:

/pws/zycbt005.

* << Fim da exclusão

* >> Início da inclusão:

/pws/zycbt005."#EC *

* << Fim da inclusão

CONTROLS:

tc_fat_sbu TYPE TABLEVIEW USING SCREEN '0202',

tc_devol TYPE TABLEVIEW USING SCREEN '0201',

tb_devol TYPE TABSTRIP.

* >> Início da exclusão:

DATA: BEGIN OF itab_zycbt005 OCCURS 0.

* << Fim da exclusão

* >> Início da inclusão:

DATA: BEGIN OF itab_zycbt005 OCCURS 0."#EC *

* << Fim da inclusão

INCLUDE STRUCTURE /pws/zycbt005.

* >> Início da exclusão:

DATA: END OF itab_zycbt005.

* << Fim da exclusão

* >> Início da inclusão:

DATA: END OF itab_zycbt005."#EC *

* << Fim da inclusão

DATA: BEGIN OF itab_zycbt514 OCCURS 0.

INCLUDE STRUCTURE /pws/zycbt514.

DATA: END OF itab_zycbt514.

...

data: change,

v_sbu,

status.

DATA: END OF itab_zycbt513_aux.

DATA: BEGIN OF itab_zycbt051 OCCURS 0.

INCLUDE STRUCTURE /pws/zycbt051.

DATA: END OF itab_zycbt051.

DATA: wa_zycbt050 like /pws/zycbt050.

data: wa_zycbt512 like /pws/zycbt512.

data: v_inicio,

* >> Início da exclusão:

v_dtvincul like /pws/zycbt005-dtvincul,

* << Fim da exclusão

* >> Início da inclusão:

v_dtvincul like /pws/zycbt005-dtvincul,"#EC *

* << Fim da inclusão

v_primeiro,

* >> Início da exclusão:

v_flag,

* << Fim da exclusão

* >> Início da inclusão:

v_flag,"#EC *

* << Fim da inclusão

ok_code LIKE sy-ucomm,

v_sbu,

v_resposta(1) TYPE c,

v_selecao,

v_sbu_tc,

v_index TYPE i,

v_line type i,

* >> Início da exclusão:

v_ind_mudanca TYPE c,

* << Fim da exclusão

* >> Início da inclusão:

v_ind_mudanca TYPE c,"#EC *

* << Fim da inclusão

v_primeiro_tc type i,

v_primeiro_dev type i,

* >> Início da exclusão:

v_sldevol like /pws/zycbt512-sldevol.

* << Fim da exclusão

* >> Início da inclusão:

v_sldevol like /pws/zycbt512-sldevol."#EC *

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCBT133F01

...

V_TCODE = '/PWS/ZYCBT133'.

ENDIF.

CLEAR OKCODE.

ENDCASE.

endform.

form DATA_UNLOCK.

call function '/PWS/ZYGL_DEQUEUE_ZYCBT133'

EXPORTING

MANDT = SY-MANDT

EXCEPTIONS

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

OTHERS = 1.

* << Fim da exclusão

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

OTHERS = 0.

* << Fim da inclusão

endform.

form DATA_LOCK.

call function '/PWS/ZYGL_ENQUEUE_ZYCBT133'

EXPORTING

MANDT = SY-MANDT

EXCEPTIONS

FOREIGN_LOCK = 1

SYSTEM_FAILURE = 2

OTHERS = 3.

if sy-subrc = 1.

...

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

Modificações efetuadas em REPS /PWS/MZYCBT133TOP

...

V_DUPLICATA TYPE I,

V_COMECO(4) TYPE C,

V_FIM(4) TYPE C,

V_LINE TYPE I,

V_LINES TYPE I,

V_ALT TYPE I,

V_RESPOSTA(1) TYPE C,

V_MARCA LIKE SY-TABIX,

V_MARCA_ULT LIKE SY-TABIX.

data: v_field(40) type c,

* >> Início da exclusão:

v_linha type i,

* << Fim da exclusão

* >> Início da inclusão:

v_linha type i,"#EC *

* << Fim da inclusão

v_offset type i.

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

Modificações efetuadas em REPS /PWS/MZYGL032F01

...

ELSE.

screen-input = '0'.

ENDIF.

IF v_novo = 'X'.

screen-input = '1'.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

CLEAR v_novo.

ENDFORM.

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

FORM salva_registro.

* << Fim da exclusão

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

FORM salva_registro."#EC *

* << Fim da inclusão

CLEAR itab_zycbt214_aux.

REFRESH itab_zycbt214_aux.

SELECT * FROM /pws/zycbt214

INTO TABLE itab_zycbt214_aux

WHERE tpcontr = itab_zycbt214-tpcontr.

LOOP AT itab_zycbt214_aux.

MOVE itab_zycbt214-tp_conta TO itab_zycbt214_aux-tp_conta.

MODIFY itab_zycbt214_aux.

CLEAR /pws/zycbt214.

MOVE-CORRESPONDING itab_zycbt214_aux TO /pws/zycbt214.

...

FORM popup_message USING value(p_textline1)

value(p_titel).

CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'

EXPORTING

defaultoption = 'Y'

textline1 = p_textline1

titel = p_titel

IMPORTING

answer = v_answer

EXCEPTIONS

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

OTHERS = 1.

* << Fim da exclusão

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

OTHERS = 0.

* << Fim da inclusão

ENDFORM.

FORM save_changes.

IF /pws/zycbe214 NE wa_zycbt214.

UPDATE /pws/zycbt214

SET: tp_conta = /pws/zycbe214-tp_conta

cod_cli = /pws/zycbe214-cod_cli

WHERE tpcontr = /pws/zycbe214-tpcontr.

IF sy-subrc NE 0 .

INSERT INTO /pws/zycbt214 VALUES /pws/zycbe214.

COMMIT WORK.

...

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

Modificações efetuadas em REPS /PWS/MZYGL032I01

...

ENDCASE.

CLEAR okcode.

ENDIF.

ENDMODULE.

MODULE user_command_0001_exit INPUT.

CASE okcode.

WHEN 'ABORT'.

PERFORM call_ucomm_abort.

ENDCASE.

ENDMODULE.

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

MODULE user_command_0003 INPUT.

* << Fim da exclusão

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

MODULE user_command_0003 INPUT. "#EC *

* << Fim da inclusão

CASE okcode.

WHEN 'BACK'.

PERFORM call_ucomm_back.

WHEN 'AEND'.

PERFORM change_status.

WHEN 'DELE'.

PERFORM exclui_reg.

WHEN 'SAVE'.

PERFORM save_changes.

WHEN 'NOVO'.

PERFORM criar.

ENDCASE.

CLEAR okcode.

ENDMODULE.

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

MODULE carrega_campos INPUT.

* << Fim da exclusão

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

MODULE carrega_campos INPUT."#EC *

* << Fim da inclusão

READ TABLE itab_zycbt214 WITH KEY tpcontr = node-node_key.

MOVE itab_zycbt214 TO /pws/zycbt214.

ENDMODULE.

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

Modificações efetuadas em REPS /PWS/MZYGL032O01

...

MODULE set_objects OUTPUT.

PERFORM load_tree_control.

if sy-ucomm ne 'ENTE'.

MOVE /pws/zycbe214 TO wa_zycbt214.

endif.

ENDMODULE.

MODULE status_0003 OUTPUT.

PERFORM trata_campos.

v_tela = 'X'.

ENDMODULE.

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

MODULE carrega_campos OUTPUT.

* << Fim da exclusão

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

MODULE carrega_campos OUTPUT. "#EC *

* << Fim da inclusão

READ TABLE itab_zycbt214 WITH KEY tpcontr = node-node_key.

MOVE itab_zycbt214 TO /pws/zycbt214.

ENDMODULE.

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

Modificações efetuadas em REPS /PWS/MZYGL032TOP

...

TABLES : /pws/zycbt214, /pws/zycbe214.

DATA: BEGIN OF itab_zycbt214 OCCURS 0.

INCLUDE STRUCTURE /pws/zycbt214.

DATA: END OF itab_zycbt214.

DATA: BEGIN OF itab_zycbt016 OCCURS 0.

INCLUDE STRUCTURE /pws/zycbt016.

DATA: END OF itab_zycbt016.

DATA: BEGIN OF itab_zycbt214_aux OCCURS 0.

INCLUDE STRUCTURE /pws/zycbt214.

DATA: END OF itab_zycbt214_aux.

* >> Início da exclusão:

DATA: BEGIN OF it_botoes OCCURS 0,

* << Fim da exclusão

* >> Início da inclusão:

DATA: BEGIN OF it_botoes OCCURS 0, "#EC NEEDED

* << Fim da inclusão

nome(35) TYPE c,

* >> Início da exclusão:

END OF it_botoes.

* << Fim da exclusão

* >> Início da inclusão:

END OF it_botoes. "#EC needed

* << Fim da inclusão

DATA: wa_zycbt214 LIKE /pws/zycbt214.

DATA:

g_custom_container TYPE REF TO cl_gui_custom_container,

g_tree TYPE REF TO cl_gui_simple_tree ,

node_table LIKE node_str OCCURS 0 ,

node LIKE mtreesnode ,

events TYPE cntl_simple_events ,

event TYPE cntl_simple_event ,

okcode LIKE sy-ucomm ,

okcode_aux LIKE sy-ucomm ,

dynpronr LIKE sy-dynnr VALUE '0002' ,

* >> Início da exclusão:

v_linha TYPE i ,

v_pos TYPE i ,

v_visivel ,

* << Fim da exclusão

* >> Início da inclusão:

v_linha TYPE i ,"#EC *

v_pos TYPE i ,"#EC *

v_visivel ,"#EC *

* << Fim da inclusão

v_status_s ,

v_answer ,

v_tela ,

v_novo .

CLASS lcl_event_click DEFINITION.

PUBLIC SECTION.

CLASS-METHODS:

select_item FOR EVENT selection_changed OF cl_gui_simple_tree

IMPORTING node_key.

ENDCLASS.

...