CE PLUS - Nota 006027
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Relatórios
Data/Hora da Publicação: 26/02/2008 00:00:00
Data/Hora Última Alteração: 03/03/2010 17:52:09
Descrição da Nota: CODE INSPECTOR, VERIFICAÇÃO AMPLIADA, PROGRAMAS CAMBIO
Sintoma
performance e sintaxe
Solução
code inspector e verificação ampliada
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06027 Data: 26/02/2008 Hora: 10:18:18
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06027
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
----------------------------------------------------------------------------------------------------
CODE INSPECTOR, VERIFICAÇÃO AMPLIADA, PROGRAMAS CAMBIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CODE INSPECTOR, VERIFICAÇÃO AMPLIADA, PROGRAMAS CAMBIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB031F01
REPS /PWS/MZYCB031I01
REPS /PWS/MZYCB031O01
REPS /PWS/MZYCB031TOP
REPS /PWS/MZYCB031X01
REPT /PWS/SAPMZYCB031
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB031F01
...
END OF shlp_descr_t.
DATA: BEGIN OF itab_result OCCURS 0.
INCLUDE STRUCTURE ddshretval.
DATA: END OF itab_result.
DATA: BEGIN OF record_tab OCCURS 0.
INCLUDE STRUCTURE seahlpres.
DATA: END OF record_tab.
DATA: v_line LIKE sy-lilli,
l_display(1) TYPE c,
shlp_struc LIKE /pws/zycbv201,
* >> Início da exclusão: FORM GET_INVOICE
shlp_curr TYPE shlp_descr_t,
* << Fim da exclusão
* >> Início da inclusão: FORM GET_INVOICE
shlp_curr TYPE shlp_descr_t,"#EC NEEDED
* << Fim da inclusão
tdynpread LIKE dynpread OCCURS 0 WITH HEADER LINE,
wa_zycbt017a LIKE /pws/zycbt017.
CLEAR tdynpread.
REFRESH tdynpread.
CALL FUNCTION 'DYNP_GET_STEPL'
IMPORTING
povstepl = v_line.
tdynpread-fieldname = '/PWS/ZYCBE209-NRINVOIC'.
tdynpread-stepl = v_line.
APPEND tdynpread.
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
dyname = '/PWS/SAPMZYCB031'
dynumb = '0100'
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."#EC *
* << Fim da inclusão
IF sy-subrc EQ 0 AND NOT
tdynpread-fieldvalue IS INITIAL.
EXIT.
ENDIF.
IF v_status EQ '1'.
l_display = ' '.
ELSE.
l_display = 'X'.
ENDIF.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
...
...
CLEAR tdynpread.
REFRESH tdynpread.
tdynpread-fieldname = '/PWS/ZYCBE209-NRINVOIC'.
tdynpread-stepl = v_line - 1.
APPEND tdynpread.
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
dyname = '/PWS/SAPMZYCB031'
dynumb = '0100'
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."#EC *
* << 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.
...
...
WHERE nrinvoic = record_tab-string+3(15)
AND nrparcf = record_tab-string+27(2)
AND gsberf = record_tab-string+23(4).
IF sy-subrc NE 0.
SHIFT record_tab-string RIGHT BY 3 PLACES.
SELECT SINGLE * FROM /pws/zycbt017 INTO wa_zycbt017a
WHERE nrinvoic = record_tab-string+3(15)
AND nrparcf = record_tab-string+27(2)
AND gsberf = record_tab-string+23(4).
ENDIF.
* >> Início da exclusão: FORM GET_INVOICE
SELECT SINGLE pendcomm
FROM /pws/zycbt030 into /pws/zycbt030-pendcomm
* << Fim da exclusão
* >> Início da inclusão: FORM GET_INVOICE
SELECT pendcomm
FROM /pws/zycbt030
UP TO 1 ROWS
into /pws/zycbt030-pendcomm
* << Fim da inclusão
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 EQ 0 AND NOT /pws/zycbt030-pendcomm IS INITIAL.
v_line = v_line - 1.
MESSAGE i061 WITH text-049 record_tab-string+3(15) text-075.
CONTINUE.
ENDIF.
READ TABLE itab_zycbt209 WITH KEY nrinvoic = record_tab-string+3(15)
nrparcf = record_tab-string+27(2)
gsberf = record_tab-string+23(4)
* >> 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_zycbt209-nrinvoic text-067.
v_line = v_line - 1.
CONTINUE.
ENDIF.
tdynpread-fieldname = '/PWS/ZYCBE209-NRINVOIC'.
tdynpread-fieldvalue = record_tab-string+3(15).
tdynpread-stepl = v_line.
APPEND tdynpread.
itab_zycbt209-nrinvoic = tdynpread-fieldvalue.
...
...
tdynpread-stepl = v_line.
APPEND tdynpread.
itab_zycbt209-waers = tdynpread-fieldvalue.
READ TABLE tdynpread WITH KEY fieldname = '/PWS/ZYCBE209-WAERS'
stepl = v_line.
IF sy-subrc = 0.
moeda = tdynpread-fieldvalue.
ENDIF.
tdynpread-fieldname = 'V_VLSLTRANS'.
CLEAR /pws/zycbt030-vlsltrans.
* >> Início da exclusão: FORM GET_INVOICE
SELECT SINGLE vlsltrans FROM /pws/zycbt030
* << Fim da exclusão
* >> Início da inclusão: FORM GET_INVOICE
SELECT vlsltrans
FROM /pws/zycbt030
UP TO 1 ROWS
* << Fim da inclusão
INTO /pws/zycbt030-vlsltrans
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
WRITE /pws/zycbt030-vlsltrans TO tdynpread-fieldvalue(17)
CURRENCY moeda.
tdynpread-stepl = v_line.
...
...
APPEND itab_zycbt209.
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.
...
...
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."#EC *
* << 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'.
...
...
FORM proc_inclusao.
DATA: v_cpochv LIKE /pws/zycbe033-cpochv,
v_wrbtr LIKE bsid-wrbtr,
v_kurrf_bl LIKE /pws/zycet001-kurrf_bl,
v_dtliquid LIKE sy-datum,
v_dtemb LIKE /pws/zycet001-dtemb,
v_desm LIKE /pws/zycbt089-tx_desm_cli,
v_desmemb TYPE c,
v_gjahr LIKE bkpf-gjahr,
v_erro TYPE c.
* >> Início da exclusão: FORM PROC_INCLUSAO
CONSTANTS c_zero(2) TYPE c VALUE ' 0'.
* << Fim da exclusão
PERFORM verifica_data USING itab_zycbt209-dtcredext
itab_zycbt209-bukrs
itab_zycbt209-nrinvoic
'X'.
IF sy-subrc NE 0.
EXIT.
ENDIF.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCBM'
...
...
nrparcf = itab_zycbt030-nrparcf
gsberf = itab_zycbt030-gsberf.
itab_zycbt030-v_kwert =
( itab_zycbt030-kwert / itab_zycbt030-s_kwert )
* itab_zycbt209-vlme.
CLEAR v_wrbtr.
SHIFT itab_zycbt030-v_belnr(10) RIGHT DELETING TRAILING space.
TRANSLATE itab_zycbt030-v_belnr(10) USING c_zero.
SHIFT itab_zycbt030-belnr(10) RIGHT DELETING TRAILING space.
TRANSLATE itab_zycbt030-belnr(10) USING c_zero.
* >> Início da exclusão: FORM PROC_INCLUSAO
SELECT SINGLE wrbtr
* << Fim da exclusão
* >> Início da inclusão: FORM PROC_INCLUSAO
SELECT wrbtr
* << Fim da inclusão
FROM bsid
* >> Início da inclusão: FORM PROC_INCLUSAO
UP TO 1 ROWS
* << Fim da inclusão
INTO v_wrbtr
WHERE belnr = itab_zycbt030-v_belnr
AND gjahr = itab_zycbt030-budat(4)
AND kunnr = itab_zycbt030-kunag
AND bukrs = itab_zycbt209-bukrs.
* >> Início da inclusão: FORM PROC_INCLUSAO
ENDSELECT.
* << Fim da inclusão
PERFORM clear_dados_batch.
IF v_wrbtr NE itab_zycbt030-v_kwert.
PERFORM desmembra_cliente.
IF sy-subrc NE 0.
v_erro = 'X'.
CLEAR sy-subrc.
EXIT.
ENDIF.
v_desmemb = 'X'.
ELSE.
...
...
EXPORTING
bukrs = itab_zycbt209-bukrs
ktosl = 'TRE'
codaux1 = v_codaux
TABLES
account = itab_contas
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
OTHERS = 3.
* >> Início da inclusão: FORM PROC_INCLUSAO
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
READ TABLE itab_contas INDEX 1.
itab_zycbe033-d_newko = itab_contas-konts.
itab_zycbt209-hkont = itab_contas-konts.
ENDIF.
ENDIF.
PERFORM verify_null_field USING itab_zycbe033-d_newko
'NEWKO'
text-042.
itab_zycbe033-agkon = itab_zycbt030-kunag.
itab_zycbe033-agkoa = 'D'.
...
...
nrparcf = itab_zycbt209-nrparcf.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = '/PWS/ZYCBT209'.
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_zycbt209-kunnr
AND bukrs = itab_zycbt209-bukrs.
* >> Início da inclusão: FORM PROC_INCLUSAO
ENDSELECT.
* << Fim da inclusão
ELSE.
itab_zycbt036-dtdocto = itab_zycbt209-dtcredext.
ENDIF.
...
...
EXPORTING
i_codmod = 'E'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: FORM PROC_INCLUSAO
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
CLEAR itab_zyglt100.
READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ001' BINARY SEARCH.
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCBM'
...
...
IF p_field IS INITIAL.
itab_zycbt034-campo = p_fieldname.
itab_zycbt034-descricao = p_description.
APPEND itab_zycbt034.
ENDIF.
ENDFORM.
FORM command_modo.
DATA: wa_zycbt039 LIKE /pws/zycbt039.
CLEAR: itab_modo.
REFRESH: itab_modo.
* >> Início da exclusão: FORM COMMAND_MODO
SELECT * FROM /pws/zycbt039 INTO wa_zycbt039.
* << Fim da exclusão
* >> Início da inclusão: FORM COMMAND_MODO
SELECT * FROM /pws/zycbt039 INTO wa_zycbt039."#EC CI_NOWHERE
* << Fim da inclusão
itab_modo-selflag = wa_zycbt039-modo.
itab_modo-varoption = wa_zycbt039-descr.
APPEND itab_modo.
ENDSELECT.
SORT itab_modo DESCENDING.
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
not_enough_answers = 1
too_much_answers = 2
too_much_marks = 3
OTHERS = 4.
* >> Início da inclusão: FORM COMMAND_MODO
if sy-subrc = 0.
else.
endif.
* << 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 'TXFATUR'.
WHEN 'DTCREDEXT'.
v_databl = itab_zycbt209-dtcredext.
WHEN 'VIATRANS'.
CLEAR wa_zycet048.
SELECT SINGLE dtemb dtvencto viatrans dtaverb dtcruze nrseq
FROM /pws/zycet001
INTO (v_dtemb, v_dtvencto,v_viatrans, v_dtaverb2, v_dtcruze,
v_nrseq)
WHERE nrseq EQ itab_zycbt030-nrinvoic.
* >> Início da exclusão: FORM VERIFICA_DATA2
SELECT SINGLE vktra FROM /pws/zycit054
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DATA2
SELECT vktra FROM /pws/zycit054
UP TO 1 ROWS
* << Fim da inclusão
INTO (v_vktra)
WHERE vktra_ci EQ v_viatrans.
* >> Início da inclusão: FORM VERIFICA_DATA2
ENDSELECT.
* << Fim da inclusão
IF NOT v_vktra IS INITIAL.
SELECT SINGLE * FROM /pws/zycet048
INTO wa_zycet048
WHERE vktrt EQ v_vktra.
IF sy-subrc EQ 0.
IF wa_zycet048-dtvrc EQ wa_zycet048-dtvencto.
SELECT SINGLE kurrf_bl FROM /pws/zycet001
INTO itab_zycbe033-kursf
WHERE nrseq EQ itab_zycbt030-nrinvoic.
CLEAR v_databl.
ELSE.
IF wa_zycet048-dtvrc EQ 'DTBL'.
* >> Início da exclusão: FORM VERIFICA_DATA2
SELECT SINGLE dtbl FROM /pws/zycet047
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DATA2
SELECT dtbl
FROM /pws/zycet047
UP TO 1 ROWS
* << Fim da inclusão
INTO (v_databl)
WHERE nrseq EQ v_nrseq.
* >> Início da inclusão: FORM VERIFICA_DATA2
ENDSELECT.
* << Fim da inclusão
ELSEIF wa_zycet048-dtvrc EQ 'DTEMB'.
v_databl = v_dtemb.
ELSEIF wa_zycet048-dtvrc EQ 'DTAVERB'.
v_databl = v_dtaverb2.
ELSEIF wa_zycet048-dtvrc EQ 'DTCRUZE'.
v_databl = v_dtcruze.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
WHEN 'TXFAT'.
SELECT SINGLE dtemb
FROM /pws/zycet001
INTO v_dtemb
WHERE nrseq EQ itab_zycbt209-nrinvoic.
* >> Início da exclusão: FORM VERIFICA_DATA2
SELECT SINGLE belnr
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DATA2
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_zycbt209-nrinvoic AND
gsberf EQ itab_zycbt209-gsberf AND
nrparcf EQ itab_zycbt209-nrparcf.
* >> Início da inclusão: FORM VERIFICA_DATA2
ENDSELECT.
* << Fim da inclusão
IF NOT v_belnr IS INITIAL AND
NOT v_dtemb IS INITIAL.
SELECT SINGLE kursf FROM bkpf INTO itab_zycbe033-kursf
WHERE bukrs = itab_zycbt209-bukrs AND
belnr = v_belnr AND
gjahr = v_dtemb(4).
ENDIF.
CLEAR v_databl.
ENDCASE.
ENDFORM.
...
...
e_txc = p_kursf
EXCEPTIONS
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.
* >> Início da inclusão: FORM DEFINE_CAMBIO
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDFORM.
FORM desmembra_cliente.
DATA:
v_dtliquid LIKE sy-datum,
v_dtemb LIKE sy-datum,
v_kurrf_bl LIKE /pws/zycet001-kurrf_bl,
v_cpochv LIKE /pws/zycbe033-cpochv,
* >> Início da exclusão: FORM DESMEMBRA_CLIENTE
v_desm LIKE /pws/zycbt089-tx_desm_cli..
DATA: v_gjahr TYPE gjahr.
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_CLIENTE
v_desm LIKE /pws/zycbt089-tx_desm_cli.
DATA: v_gjahr TYPE gjahr. "#EC NEEDED
* << Fim da inclusão
PERFORM clear_dados_batch.
CLEAR itab_zyglt321.
REFRESH itab_zyglt321.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'FTE'
AND codeven = '023'.
itab_zycbe033-tcode = 'F-30'.
itab_zycbe033-tabela = '/PWS/ZYCBT209'.
CONCATENATE itab_zycbt030-nrinvoic itab_zycbt030-vbeln
...
...
EXPORTING
i_codmod = 'E'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: FORM DESMEMBRA_CLIENTE
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
clear itab_zyglt100.
READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ002' BINARY SEARCH.
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCBM'
...
...
EXPORTING
date = p_budat
version = v_periv
IMPORTING
period = p_monat
EXCEPTIONS
period_in_not_valid = 1
period_not_assigned = 2
version_undefined = 3
OTHERS = 4.
* >> Início da inclusão: FORM DETERMINA_PERIODO
if sy-subrc = 0.
else.
endif.
* << 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
...
...
EXIT.
ENDIF.
ENDLOOP.
IF v_agrupada EQ 'X'.
PERFORM estorna_agrupamento.
ELSE.
PERFORM estorna_sem_agrupamento.
ENDIF.
ENDFORM.
FORM estorna_agrupamento.
* >> 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:
* << 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_belnr LIKE bkpf-belnr,
v_dtbelnr LIKE sy-datum,
v_vlsltrans LIKE /pws/zycbt030-vlsltrans.
CLEAR itab_zyglt321.
REFRESH itab_zyglt321.
...
...
t_zycbt036 = itab_zycbt036
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
ENDIF.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = v_tcode
tabela = '/PWS/ZYCBT209'
cpochv = itab_zycbe033-cpochv
* >> Início da exclusão: FORM ESTORNA_AGRUPAMENTO
tpmsg = 'S'.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_AGRUPAMENTO
tpmsg = 'S'."#EC *
* << Fim da inclusão
IF sy-subrc EQ 0.
itab_zycbt030-belnr_d = itab_zycbt032-belnr.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = itab_zycbt032-msgid
msgty = itab_zycbt032-tpmsg
msgv1 = itab_zycbt032-msgv1
msgv2 = itab_zycbt032-msgv2
msgv3 = itab_zycbt032-msgv3
msgv4 = itab_zycbt032-msgv4
...
...
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 NEEDED
* << 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_belnr LIKE bkpf-belnr,
v_dtbelnr LIKE sy-datum,
v_vlsltrans LIKE /pws/zycbt030-vlsltrans,
v_last TYPE c,
v_newbs LIKE /pws/zycbe033-newbs,
...
...
INTO TABLE itab_zyglt321
WHERE ktosl = 'FTE'
AND codeven = '023'.
PERFORM clear_dados_batch.
READ TABLE itab_zycbt030 INDEX 1.
READ TABLE itab_zycbt017
WITH KEY
nrinvoic = itab_zycbt030-nrinvoic
nrparcf = itab_zycbt030-nrparcf
gsberf = itab_zycbt030-gsberf.
* >> 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_zycbt209-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/ZYCBT209'.
CONCATENATE itab_zycbt030-nrinvoic
itab_zycbt030-gsberf
itab_zycbt030-nrparcf
INTO v_cpochv.
itab_zycbe033-cpochv = v_cpochv.
...
...
ENDIF.
CLEAR v_last.
LOOP AT itab_zycbt030 WHERE nrinvoic = itab_zycbt209-nrinvoic AND
gsberf = itab_zycbt209-gsberf AND
nrparcf = itab_zycbt209-nrparcf.
IF itab_zycbt030-flag <> 'X'.
v_newbs = '01'.
ELSE.
v_newbs = '12'.
ENDIF.
* >> Início da exclusão: FORM ESTORNA_SEM_AGRUPAMENTO
AT LAST.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_SEM_AGRUPAMENTO
AT LAST."#EC *
* << Fim da inclusão
v_last = 'X'.
ENDAT.
v_line = sy-tabix - 1.
IF v_last EQ 'X'.
itab_zycbe033-wrbtr = itab_zycbt209-vlme *
itab_zycbt030-kwert /
itab_zycbt030-s_kwert.
ELSE.
itab_doctos-tabela = itab_zycbe033-tabela.
itab_doctos-tcode = itab_zycbe033-tcode.
...
...
t_doctos = itab_doctos
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
ENDIF.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = v_tcode
tabela = '/PWS/ZYCBT209'
cpochv = itab_zycbe033-cpochv
* >> Início da exclusão: FORM ESTORNA_SEM_AGRUPAMENTO
tpmsg = 'S'.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_SEM_AGRUPAMENTO
tpmsg = 'S'."#EC *
* << Fim da inclusão
IF sy-subrc EQ 0.
LOOP AT itab_zycbt030
WHERE nrinvoic = itab_zycbt209-nrinvoic AND
gsberf = itab_zycbt209-gsberf AND
nrparcf = itab_zycbt209-nrparcf.
itab_zycbt030-belnr_d = itab_zycbt032-belnr.
MODIFY itab_zycbt030 TRANSPORTING belnr_d.
ENDLOOP.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
...
...
t_doctos = itab_zycbt036
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
ENDIF.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = v_tcode
tabela = '/PWS/ZYCBT209'
cpochv = v_cpochv
* >> Início da exclusão: FORM CLEARING
tpmsg = 'S'.
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING
tpmsg = 'S'."#EC *
* << Fim da inclusão
IF sy-subrc = 0.
itab_zycbt030-belnr6 = itab_zycbt032-belnr.
itab_zycbt030-budat = p_dtbelnr.
itab_zycbt030-vlsltrans = itab_zycbt030-vlsltrans +
( itab_zycbt209-vlme *
itab_zycbt030-kwert /
itab_zycbt030-s_kwert ).
MODIFY itab_zycbt030 TRANSPORTING belnr6
budat
vlsltrans
...
...
EXPORTING
arbgb = '/PWS/ZYCBM'
msgty = 'S'
msgv1 = text-060
msgv2 = itab_zycbt209-nrinvoic
msgv3 = text-061
txtnr = '061'
zeile = v_zeile.
v_zeile = v_zeile + 1.
ENDFORM.
* >> Início da exclusão: FORM LIMPA_SALDO
FORM limpa_saldo.
* << Fim da exclusão
* >> Início da inclusão: FORM LIMPA_SALDO
FORM limpa_saldo."#EC CALLED
* << Fim da inclusão
IF /pws/zycbe209-waers ='JPY'.
CLEAR /pws/zycbe209-saldo.
ENDIF.
ENDFORM.
FORM verifica_prorrogacao.
CLEAR: v_buzei, v_zterm, v_zbd1t, v_ztag1.
* >> Início da exclusão: FORM VERIFICA_PRORROGACAO
SELECT SINGLE buzei zterm zbd1t
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PRORROGACAO
SELECT buzei zterm zbd1t
* << Fim da inclusão
FROM bsid
* >> Início da inclusão: FORM VERIFICA_PRORROGACAO
UP TO 1 ROWS
* << Fim da inclusão
INTO (v_buzei, v_zterm, v_zbd1t)
WHERE belnr = itab_zycbt030-v_belnr
AND gjahr = itab_zycbt030-budat(4)
AND kunnr = itab_zycbt030-kunag
AND bukrs = itab_zycbt209-bukrs
AND shkzg = 'S'.
* >> Início da exclusão: FORM VERIFICA_PRORROGACAO
SELECT SINGLE ztag1 FROM t052
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PRORROGACAO
ENDSELECT.
SELECT ztag1 FROM t052
UP TO 1 ROWS
* << Fim da inclusão
INTO v_ztag1
WHERE zterm = v_zterm.
* >> Início da inclusão: FORM VERIFICA_PRORROGACAO
ENDSELECT.
* << Fim da inclusão
IF v_zbd1t = 0.
IF v_ztag1 IS INITIAL.
v_zbd1t = itab_zycbt017-dtvencto - itab_zycbt017-dtbl.
ELSE.
v_zbd1t = v_ztag1.
ENDIF.
LOOP AT itab_zycbt045 WHERE nrinvoic = itab_zycbt030-nrinvoic.
v_zbd1t = v_zbd1t + itab_zycbt045-nrdias.
ENDLOOP.
ENDIF.
itab_zycbe033-zbd1t = v_zbd1t.
itab_zycbe033-ebene = v_buzei+1(2).
ENDFORM.
FORM verifica_prorrogacao_est.
CLEAR: v_buzei, v_zterm, v_zbd1t, v_ztag1.
* >> Início da exclusão: FORM VERIFICA_PRORROGACAO_EST
SELECT SINGLE buzei zterm zbd1t
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PRORROGACAO_EST
SELECT buzei zterm zbd1t
* << Fim da inclusão
FROM bsid
* >> Início da inclusão: FORM VERIFICA_PRORROGACAO_EST
UP TO 1 ROWS
* << Fim da inclusão
INTO (v_buzei, v_zterm, v_zbd1t)
WHERE belnr = itab_zycbt030-belnr
AND gjahr = itab_zycbt030-budat(4)
AND kunnr = itab_zycbt030-kunag
AND bukrs = itab_zycbt209-bukrs
AND shkzg = 'S'.
* >> Início da inclusão: FORM VERIFICA_PRORROGACAO_EST
ENDSELECT.
* << Fim da inclusão
IF sy-subrc NE 0.
* >> Início da exclusão: FORM VERIFICA_PRORROGACAO_EST
SELECT SINGLE buzei zterm zbd1t
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PRORROGACAO_EST
SELECT buzei zterm zbd1t
* << Fim da inclusão
FROM bsad
* >> Início da inclusão: FORM VERIFICA_PRORROGACAO_EST
UP TO 1 ROWS
* << Fim da inclusão
INTO (v_buzei, v_zterm, v_zbd1t)
WHERE belnr = itab_zycbt030-belnr
AND gjahr = itab_zycbt030-budat(4)
AND kunnr = itab_zycbt030-kunag
AND bukrs = itab_zycbt209-bukrs
AND shkzg = 'S'.
* >> Início da inclusão: FORM VERIFICA_PRORROGACAO_EST
ENDSELECT.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FORM VERIFICA_PRORROGACAO_EST
SELECT SINGLE ztag1 FROM t052
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PRORROGACAO_EST
SELECT ztag1 FROM t052
UP TO 1 ROWS
* << Fim da inclusão
INTO v_ztag1
WHERE zterm = v_zterm.
* >> Início da inclusão: FORM VERIFICA_PRORROGACAO_EST
ENDSELECT.
* << Fim da inclusão
v_zbd1t = v_ztag1.
LOOP AT itab_zycbt045 WHERE nrinvoic = itab_zycbt030-nrinvoic.
v_zbd1t = v_zbd1t + itab_zycbt045-nrdias.
ENDLOOP.
itab_zycbe033-zbd1t = v_zbd1t.
...
...
INTO p_j_1bbranch
WHERE werks = p_werks.
ENDIF.
SELECT SINGLE adrnr
FROM j_1bbranch
INTO v_adrnr
WHERE
bukrs = p_bukrs AND
branch = p_j_1bbranch.
IF sy-subrc = 0.
* >> Início da exclusão: FORM VALIDA_CAMPO_FILIAL
SELECT SINGLE country
* << Fim da exclusão
* >> Início da inclusão: FORM VALIDA_CAMPO_FILIAL
SELECT country
* << Fim da inclusão
FROM adrc
* >> Início da inclusão: FORM VALIDA_CAMPO_FILIAL
UP TO 1 ROWS
* << Fim da inclusão
INTO v_country
WHERE addrnumber = v_adrnr.
* >> Início da inclusão: FORM VALIDA_CAMPO_FILIAL
endselect.
* << Fim da inclusão
IF sy-subrc = 0 AND
...
...
EXPORTING
i_codmod = 'E'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: FORM BUSCA_EXIT
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB031I01
MODULE modify_line INPUT.
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.
* >> Início da exclusão: MODULE USER_COMMAND_0100
DATA: e_subrc LIKE sy-subrc,
e_exec_okcode.
CLEAR: r_okcode, e_exec_okcode, v_syrepid, v_subrc.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
DATA: e_subrc LIKE sy-subrc.
CLEAR: r_okcode,
v_syrepid,
v_subrc.
* << Fim da inclusão
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
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: MODULE USER_COMMAND_0100
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ004' 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/MZYCB031O01
...
v_oper = icon_space.
clear: /pws/zycbe209,
/pws/zycbt017,
/pws/zycbt030.
clear v_vlsltrans.
move-corresponding itab_zycbt209 to /pws/zycbe209.
select single * from /pws/zycbt017
where nrinvoic = /pws/zycbe209-nrinvoic and
nrparcf = /pws/zycbe209-nrparcf and
gsberf = /pws/zycbe209-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/zycbe209-nrinvoic and
nrparcf = /pws/zycbe209-nrparcf and
gsberf = /pws/zycbe209-gsberf.
* >> Início da inclusão: MODULE INSERT_LINE
ENDSELECT.
* << Fim da inclusão
v_vlsltrans = /pws/zycbt030-vlsltrans.
if /pws/zycbe209-dtincl is initial and
not /pws/zycbe209-nrinvoic is initial.
/pws/zycbe209-dtincl = sy-datum.
...
...
where lifnr = /pws/zycbe209-bco_receb.
endif.
v_vlavinc = /pws/zycbt017-vlavinc.
tc_liq-lines = tc_liq-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/MZYCB031TOP
PROGRAM /pws/sapmzycb031 MESSAGE-ID /pws/zycbm.
DATA: itab_zyglt100 LIKE /pws/zyglt100 OCCURS 0 WITH HEADER LINE.
INCLUDE /pws/zygli101.
* >> 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 NEEDED
* << Fim da inclusão
TABLES:
/pws/zycbt007,
/pws/zycbt089,
/pws/zycbt011,
/pws/zycbt017,
/pws/zycbt030,
* >> Início da exclusão:
/pws/zyglt364.
* << Fim da exclusão
* >> Início da inclusão:
/pws/zyglt364."#EC NEEDED
* << Fim da inclusão
INCLUDE: <icon>,
/pws/mzycb031x01,
/pws/zygli100.
DATA: BEGIN OF itab_zycbt209_ant OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt209.
DATA: vlsltrans LIKE /pws/zycbt030-vlsltrans,
oper(1) TYPE c,
mark(1) TYPE c,
v_name1 TYPE kna1-name1,
vlavinc TYPE /pws/zycbt017-vlavinc,
...
...
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.
DATA:
* >> Início da exclusão:
itab_zycbt013 LIKE /pws/zycbt013 OCCURS 10 WITH HEADER LINE.
* << Fim da exclusão
* >> Início da inclusão:
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: itab_zyglt368 LIKE /pws/zyglt368 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_zycbt017 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt017.
DATA: END OF itab_zycbt017.
DATA: BEGIN OF itab_zycbt045 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt045.
DATA: END OF itab_zycbt045.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB031X01
TABLES:
* >> Início da exclusão:
/pws/zycbt004,
/pws/zycbe005,
/pws/zycbt005,
/pws/zycbe006,
/pws/zycbt006,
* << Fim da exclusão
/pws/zycbt209,
/pws/zycbe209,
* >> Início da exclusão:
/pws/zyglt321.
DATA: BEGIN OF COMMON PART c.
* << Fim da exclusão
* >> Início da inclusão:
/pws/zyglt321."#EC *
DATA: BEGIN OF COMMON PART c."#EC PART_OK
* << Fim da inclusão
DATA: BEGIN OF itab_zycbt209 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt209.
DATA: vlsltrans LIKE /pws/zycbt030-vlsltrans,
oper(1) TYPE c,
mark(1) TYPE c,
v_name1 TYPE kna1-name1,
vlavinc TYPE /pws/zycbt017-vlavinc,
v_name_bco LIKE lfa1-name1.
DATA: END OF itab_zycbt209.
DATA: ok_code LIKE sy-ucomm,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB031
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 006
Texto: (27 caracteres)
"Esta fatura já foi incluída"
Comprimento máximo: 27
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 007
Texto: (19 caracteres)
"para processamento."
Comprimento máximo: 19
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 063
Texto: (65 caracteres)
"sem data base de Variação Cambial. Liquidação não será permitida."
Comprimento máximo: 65