CE PLUS - Nota 006082
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Relatórios
Data/Hora da Publicação: 29/02/2008 00:00:00
Data/Hora Última Alteração: 03/03/2010 17:45:06
Descrição da Nota: CB - 444269 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
Sintoma
CB - 444269 - Code Inspector e Verificação Ampliada
Solução
CB - 444269 - Code Inspector e Verificação Ampliada
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06082 Data: 29/02/2008 Hora: 16:38:15
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06082
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00004
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
CB - 444269 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
----------------------------------------------------------------------------------------------------
Palavras Chave:
CB - 444269 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
----------------------------------------------------------------------------------------------------
Objetos da nota:
RELE F6DK958693 20080229 163017 PWSCB
REPS /PWS/MZYCB001F01
REPS /PWS/MZYCB001F02
REPS /PWS/MZYCB001F04
REPS /PWS/MZYCB001I01
REPT /PWS/SAPMZYCB001
----------------------------------------------------------------------------------------------------
Modificações efetuadas em RELE F6DK958693 20080229 163017 PWSCB
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F01
...
WHERE nrseqc EQ /pws/zycbt001-nrseqc.
SELECT *
FROM /pws/zycbt005
UP TO 1 ROWS
WHERE nrseqc = /pws/zycbt001-nrseqc.
ENDSELECT.
MOVE /pws/zycbe001-vlme TO: /pws/zycbe001-slreserv,
/pws/zycbt001-slreserv.
IF sy-subrc NE '0'.
SELECT SINGLE * FROM /pws/zycbt061
* >> Início da exclusão: FORM SAVE_ZYCBT001
WHERE nrseq_c EQ /pws/zycbt001-nrseqc.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT001
WHERE nrseq_c EQ /pws/zycbt001-nrseqc."#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc NE 0.
MOVE /pws/zycbe001-vlme
TO: /pws/zycbe001-slvinc, /pws/zycbt001-slvinc.
ENDIF.
ENDIF.
IF /pws/zycbe001-fdtlanc = 'O'.
MOVE /pws/zycbe001-dtcontr TO v_data2.
MOVE wa_zycbt001-dtcontr TO v_data3.
ELSEIF /pws/zycbe001-fdtlanc = 'D'.
MOVE /pws/zycbe001-dtdesem TO v_data2.
...
...
UP TO 1 ROWS
WHERE nrseqc = /pws/zycbe001-nrseqc.
p_ok = 'N'.
ENDSELECT.
IF sy-subrc EQ 0.
MESSAGE i033 WITH text-232.
ENDIF.
ENDIF.
SELECT nrseq INTO (nrseqpre)
FROM /pws/zycbt061 UP TO 1 ROWS
* >> Início da exclusão: FORM REFRESH_DEPENDENT_TABLES
WHERE nrseq_c = /pws/zycbe001-nrseqc.
* << Fim da exclusão
* >> Início da inclusão: FORM REFRESH_DEPENDENT_TABLES
WHERE nrseq_c = /pws/zycbe001-nrseqc."#EC CI_NOFIRST
* << Fim da inclusão
p_ok = 'N'.
ENDSELECT.
IF sy-subrc EQ 0.
MESSAGE i033 WITH text-281.
ENDIF.
CHECK p_ok NE 'N'.
CHECK p_okcode NE 'DELE'.
PERFORM refresh_zycbt004.
ENDFORM.
FORM refresh_zycbt004.
...
...
EXIT.
ENDIF.
PERFORM define_przcontr.
IF /pws/zycbe001-f_pre EQ 'X'.
PERFORM lanca_pre_pagamento_acc.
ELSEIF /pws/zycbe001-tpcontr(1) <> 'P' AND
/pws/zycbe001-tpcontr(1) <> 'S' AND
/pws/zycbe001-tpcontr(1) <> 'T'.
IF v_opccme = 'X'.
IF itab_zycbt226[] IS INITIAL.
* >> Início da exclusão: FORM SAVE_CHANGES
ts_contr = 'FC_ORDPAG'.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_CHANGES
ts_contr-activetab = 'FC_ORDPAG'.
* << Fim da inclusão
MESSAGE i307.
EXIT.
ELSE.
CLEAR: v_soma_vo, v_bco_dif, v_bco_aux.
LOOP AT itab_zycbt226.
v_soma_vo = v_soma_vo + itab_zycbt226-vlr_ord.
IF v_bco_aux IS INITIAL.
v_bco_aux = itab_zycbt226-bco_me.
ENDIF.
IF v_bco_aux <> itab_zycbt226-bco_me.
v_bco_dif = 1.
ENDIF.
v_bco_aux = itab_zycbt226-bco_me.
ENDLOOP.
IF v_bco_dif = 1.
* >> Início da exclusão: FORM SAVE_CHANGES
ts_contr = 'FC_ORDPAG'.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_CHANGES
ts_contr-activetab = 'FC_ORDPAG'.
* << Fim da inclusão
MESSAGE i015 WITH text-466.
EXIT.
ENDIF.
IF v_soma_vo <> /pws/zycbe001-vlme.
* >> Início da exclusão: FORM SAVE_CHANGES
ts_contr = 'FC_ORDPAG'.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_CHANGES
ts_contr-activetab = 'FC_ORDPAG'.
* << Fim da inclusão
MESSAGE i015 WITH text-464 text-465.
EXIT.
ENDIF.
ENDIF.
ENDIF.
PERFORM save_zycbt001.
ELSEIF /pws/zycbe001-tpcontr(1) EQ 'T'.
PERFORM save_zycbt001_tr.
ELSE.
PERFORM save_zycbt001_pre.
...
...
/pws/zycbe004-ftaxa = 'G'.
ENDIF.
MOVE /pws/zycbe004-ftaxa TO v_kurst.
CONVERT DATE /pws/zycbe004-dtincl INTO INVERTED-DATE v_gdatu.
SELECT *
FROM tcurr
INTO TABLE itab_tcurr
WHERE kurst EQ v_kurst
AND fcurr EQ /pws/zycbe004-waers
AND tcurr EQ wa_zycbt007-waersb
* >> Início da exclusão: FORM SAVE_ZYCBT004
AND gdatu GE v_gdatu.
IF sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT004
AND gdatu GE v_gdatu."#EC PORTABLE
IF sy-subrc EQ 0."#EC PORTABLE
* << Fim da inclusão
READ TABLE itab_tcurr INDEX 1.
MOVE itab_tcurr-ukurs TO /pws/zycbe004-txcneg.
ELSE.
MOVE 1 TO /pws/zycbe004-txcneg.
ENDIF.
ELSE.
CLEAR /pws/zycbe004-ftaxa.
ENDIF.
IF /pws/zycbe004-vlme NE wa_zycbt004-vlme AND
* >> Início da exclusão: FORM SAVE_ZYCBT004
wa_zycbt004-vlme > 0.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT004
wa_zycbt004-vlme > 0."#EC PORTABLE
* << Fim da inclusão
/pws/zycbe004-fcalcjur = 'X'.
UPDATE /pws/zycbt005 SET fcalcjur = 'X'
vljur = /pws/zycbe004-vlme
WHERE nrseqc = /pws/zycbe004-nrseqc
AND dtvincul = /pws/zycbe004-dtincl
AND nrparc = /pws/zycbe004-nrparc.
IF wa_zycbt007-cfm = 'X'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
...
...
ENDIF.
COMMIT WORK.
ENDLOOP.
DELETE /pws/zyglt209 FROM TABLE itab_excluido.
COMMIT WORK.
v_status_107 = '0'.
ENDFORM.
FORM verifica_banco_conta.
SELECT SINGLE banka INTO (bnka-banka)
FROM bnka
* >> Início da exclusão: FORM VERIFICA_BANCO_CONTA
WHERE bankl = /pws/zygle209-bcofav.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_BANCO_CONTA
WHERE bankl = /pws/zygle209-bcofav."#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
v_descbanc = bnka-banka.
ELSE.
CLEAR v_descbanc.
ENDIF.
ENDFORM.
FORM carrega_zyglt209.
SELECT * FROM /pws/zyglt209
INTO TABLE itab_zyglt209
WHERE nrseq = /pws/zycbe001-nrseqc.
...
...
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM save_zycbt226.
CLEAR: v_vlr_ord,
v_vlr_ord_aux,
v_dif_fat.
SELECT *
INTO TABLE itab_zycbt227
* >> Início da exclusão: FORM SAVE_ZYCBT226
FROM /pws/zycbt227.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT226
FROM /pws/zycbt227."#EC CI_NOWHERE
* << Fim da inclusão
LOOP AT itab_zycbt226.
CLEAR v_ver_227.
READ TABLE itab_zycbt227 WITH KEY nrseq = itab_zycbt226-nrseq.
IF sy-subrc EQ 0.
CLEAR v_saldo.
SELECT SUM( saldo )
INTO v_saldo
FROM /pws/zycbt227
WHERE nrseq = itab_zycbt226-nrseq.
IF v_saldo NE 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F02
...
FROM bkpf
INTO itab_zycbe033-dtdocto
WHERE bukrs = wa_zycbt001_pre-bukrs
AND belnr = itab_zycbt061-belnr_d
AND gjahr = v_year.
PERFORM verify_null_field USING conta_acc
'AGKON'
text-015.
itab_zycbe033-d_newko = conta_acc.
itab_zycbe033-newbs = '50'.
* >> Início da exclusão: FORM DESMEMBRA_ACC
CONCATENATE 'Des.' /pws/zycbe001-nrseqc
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_ACC
CONCATENATE text-467 /pws/zycbe001-nrseqc
* << Fim da inclusão
INTO itab_zycbe033-d_zuonr
SEPARATED BY space.
itab_zycbt036-tcode = itab_zycbe033-tcode.
itab_zycbt036-tabela = itab_zycbe033-tabela.
itab_zycbt036-cpochv = itab_zycbe033-cpochv.
itab_zycbt036-residuo = itab_zycbe033-wrbtr.
itab_zycbt036-zuonr = itab_zycbe033-d_zuonr.
APPEND itab_zycbt036.
itab_zycbe033-belnr = itab_zycbt061-belnr_d.
APPEND itab_zycbe033.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F04
...
IF /pws/zycbe001-tpcontr(1) CA 'PS'.
itab_acerto-msg = text-434.
ELSE.
itab_acerto-msg = text-407.
ENDIF.
APPEND itab_acerto.
itab_acerto-msg = sy-uline.
APPEND itab_acerto.
ENDIF.
IF NOT p_belnr IS INITIAL AND okcode NE 'DELE'.
* >> Início da exclusão: FORM MENSAGENS
CONCATENATE 'Docto Contábil do Contrato:' p_belnr
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS
CONCATENATE text-468 p_belnr
* << Fim da inclusão
INTO itab_acerto-msg SEPARATED BY space.
APPEND itab_acerto.
ELSEIF okcode EQ 'DELE' AND v_primeiro IS INITIAL..
IF /pws/zycbe001-capital EQ 'X'.
CONCATENATE text-447 p_belnr
INTO itab_acerto-msg SEPARATED BY space.
ELSE.
* >> Início da exclusão: FORM MENSAGENS
CONCATENATE 'Parcelas de Principal estornadas pelo documento:'
p_belnr INTO itab_acerto-msg SEPARATED BY space.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS
CONCATENATE text-469 p_belnr
INTO itab_acerto-msg SEPARATED BY space.
* << Fim da inclusão
ENDIF.
APPEND itab_acerto.
ENDIF.
IF v_primeiro IS INITIAL AND okcode NE 'DELE'.
itab_acerto-msg = text-408.
APPEND itab_acerto.
WRITE text-409 TO v_texto+0(17).
WRITE text-087 TO v_texto+25(8).
WRITE text-181 TO v_texto+36(12).
itab_acerto-msg = v_texto.
APPEND itab_acerto.
v_primeiro = 'X'.
ENDIF.
IF okcode EQ 'DELE' AND v_primeiro EQ 'X'.
IF /pws/zycbe001-capital EQ 'X'.
CONCATENATE text-446 itab_zycbt032-belnr
INTO itab_acerto-msg SEPARATED BY space.
ELSE.
* >> Início da exclusão: FORM MENSAGENS
CONCATENATE 'Docto Contábil do Contrato foi estornado pelo documento:'
p_belnr INTO itab_acerto-msg SEPARATED BY space.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS
CONCATENATE text-470 p_belnr INTO itab_acerto-msg SEPARATED BY space.
* << Fim da inclusão
ENDIF.
APPEND itab_acerto.
ENDIF.
IF okcode EQ 'DELE'.
v_primeiro = 'X'.
ENDIF.
LOOP AT itab_contabil.
CLEAR: itab_acerto, v_texto.
WRITE itab_contabil-nrparc TO v_texto+0(17).
WRITE itab_contabil-vlme TO v_texto+20(13)
...
...
p_tabela
CHANGING p_wa_log.
DATA: t_prog(72) TYPE c OCCURS 1000 WITH HEADER LINE,
w_prog LIKE trdir-name.
CLEAR: t_prog, wa_log.
REFRESH: t_prog.
APPEND 'report sy-repid. ' TO t_prog.
APPEND 'form log using p_dados ' TO t_prog.
APPEND ' p_tabela ' TO t_prog.
APPEND ' CHANGING P_WA_LOG. ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
IF sy-saprl(3) GE '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
IF sy-saprl(3) GE '620' OR sy-saprl(2) EQ '47'."#EC PORTABLE
* << Fim da inclusão
APPEND 'tables: dd03l. ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND 'DATA: BEGIN OF binary_tab OCCURS 0, ' TO t_prog.
APPEND ' default(200) TYPE c, ' TO t_prog.
APPEND ' END OF binary_tab. ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-471 TO t_prog.
APPEND text-472 TO t_prog.
APPEND text-473 TO t_prog.
* << Fim da inclusão
APPEND 'data: v_tam type dd03l-leng, ' TO t_prog.
APPEND ' v_valor(50) type c, ' TO t_prog.
APPEND ' v_xstring type xstring. ' TO t_prog.
APPEND 'FIELD-SYMBOLS: <VALOR> TYPE ANY. ' TO t_prog.
APPEND 'do. ' TO t_prog.
APPEND ' ASSIGN COMPONENT SY-INDEX OF STRUCTURE ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND ' p_dados TO <VALOR>. ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-474 TO t_prog.
* << Fim da inclusão
APPEND ' if sy-subrc ne 0. ' TO t_prog.
APPEND ' exit. ' TO t_prog.
APPEND ' endif. ' TO t_prog.
APPEND ' select single * from dd03l ' TO t_prog.
APPEND ' where tabname = p_tabela ' TO t_prog.
APPEND ' and position = sy-index. ' TO t_prog.
MOVE text-451 TO t_prog.
APPEND t_prog.
MOVE text-452 TO t_prog.
APPEND t_prog.
APPEND ' clear v_valor. ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND ' v_valor = <VALOR>. ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-475 TO t_prog.
* << Fim da inclusão
MOVE text-453 TO t_prog.
APPEND t_prog.
APPEND ' condense v_valor no-gaps. ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND ' SHIFT v_valor(dd03l-leng) RIGHT ' TO t_prog.
APPEND ' DELETING TRAILING space. ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-476 TO t_prog.
APPEND text-477 TO t_prog.
* << Fim da inclusão
MOVE text-454 TO t_prog.
APPEND t_prog.
APPEND ' v_xstring = v_valor. ' TO t_prog.
MOVE text-455 TO t_prog.
APPEND t_prog.
APPEND ' EXPORTING ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND ' BUFFER = v_xstring ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-478 TO t_prog.
* << Fim da inclusão
APPEND ' TABLES ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND ' BINARY_TAB = binary_tab. ' TO t_prog.
APPEND ' move binary_tab(dd03l-intlen) to ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-479 TO t_prog.
APPEND text-480 TO t_prog.
* << Fim da inclusão
APPEND ' p_wa_log+v_tam(dd03l-intlen). ' TO t_prog.
APPEND ' v_tam = v_tam + dd03l-intlen. ' TO t_prog.
APPEND ' else. ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND ' p_wa_log+v_tam(dd03l-leng) = <VALOR>. ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-481 TO t_prog.
* << Fim da inclusão
APPEND ' v_tam = v_tam + dd03l-leng. ' TO t_prog.
APPEND ' endif. ' TO t_prog.
APPEND 'enddo. ' TO t_prog.
ELSE.
APPEND 'p_wa_log = p_dados. ' TO t_prog.
ENDIF.
APPEND 'endform. ' TO t_prog.
GENERATE SUBROUTINE POOL t_prog NAME w_prog.
IF sy-subrc = 0.
PERFORM log IN PROGRAM (w_prog) USING p_dados
...
...
FORM estorna_dp_ccme.
CLEAR: v_vlr_ord,
v_vlr_ord_aux,
v_dif_fat.
SELECT *
INTO TABLE itab_zycbt241
FROM /pws/zycbt241
WHERE nrseqc = /pws/zycbe001-nrseqc.
SELECT *
INTO TABLE itab_zycbt227
* >> Início da exclusão: FORM ESTORNA_DP_CCME
FROM /pws/zycbt227.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_DP_CCME
FROM /pws/zycbt227."#EC CI_NOWHERE
* << Fim da inclusão
LOOP AT itab_zycbt241.
v_vlr_ord = itab_zycbt241-vlr_ord.
v_vlr_ord_aux = v_vlr_ord.
UPDATE /pws/zycbt226
SET sld_exterior = sld_exterior + v_vlr_ord
WHERE nrseq = itab_zycbt241-nrseq.
READ TABLE itab_zycbt227 WITH KEY nrseq = itab_zycbt241-nrseq.
IF sy-subrc EQ 0.
v_vlr_ord = itab_zycbt241-vlr_ord.
LOOP AT itab_zycbt227 WHERE nrseq = itab_zycbt241-nrseq.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001I01
...
PERFORM salva_texto USING v_idioma.
PERFORM clear_structures.
CLEAR: v_nrseqc, v_nrseqcview, v_callscr, v_status_s,
v_salvo_aux.
WHEN 'N'.
PERFORM clear_structures.
CLEAR: v_nrseqc, v_nrseqcview, v_callscr, v_status_s,
v_salvo_aux.
ENDCASE.
ELSE.
* >> Início da exclusão: MODULE USER_COMMAND_CB001
MESSAGE i299 WITH text-185.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_CB001
MESSAGE i299 WITH text-185."#EC *
* << Fim da inclusão
ENDIF.
WHEN 'AEND'.
PERFORM lock_record.
PERFORM change_status.
okcode_old = okcode.
CLEAR okcode.
WHEN 'DESP'.
IF v_status_s = '1' OR
v_status_s IS INITIAL.
v_status_s200 = '1'.
...
...
MOVE-CORRESPONDING /pws/zycbe002 TO itab_zycbt002.
MODIFY itab_zycbt002 INDEX /pws/zycbe002-nrparc
TRANSPORTING kostl prctr fipos fictr.
WHEN '0114'.
PERFORM update_itab_zycbt216.
WHEN '0117'.
PERFORM update_itab_zycbt226.
WHEN '0207'.
PERFORM verifica_ordem.
IF v_tipo = 1.
* >> Início da exclusão: MODULE MODIFY_LINE
MESSAGE i061 WITH 'Tipo da OV não parametrizado.'
'Ordem' v_ordem 'não inclusa.'.
* << Fim da exclusão
* >> Início da inclusão: MODULE MODIFY_LINE
MESSAGE i061 WITH text-482 text-483 v_ordem text-484.
* << Fim da inclusão
ENDIF.
IF v_pagador = 1.
* >> Início da exclusão: MODULE MODIFY_LINE
MESSAGE i061 WITH 'Pagador diverge do Cliente informado.'
'Ordem' v_ordem 'não inclusa.'.
* << Fim da exclusão
* >> Início da inclusão: MODULE MODIFY_LINE
MESSAGE i061 WITH text-485 text-483 v_ordem text-484.
* << Fim da inclusão
ENDIF.
...
...
/pws/zycbe004-tpcontr = /pws/zycbe001-tpcontr .
/pws/zycbe004-bconegoc = /pws/zycbe001-bconegoc.
/pws/zycbe004-bcofinan = /pws/zycbe001-bcofinan.
/pws/zycbe004-bukrs = /pws/zycbe001-bukrs.
/pws/zycbe004-gsber = /pws/zycbe001-gsber.
/pws/zycbe004-werks = /pws/zycbe001-werks.
/pws/zycbe004-j_1bbranch = /pws/zycbe001-j_1bbranch.
v_status_s200 = '1'.
CLEAR v_altdesp.
ELSE.
* >> Início da exclusão: MODULE USER_COMMAND_0200
MESSAGE i299 WITH text-230.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
MESSAGE i299 WITH text-230."#EC *
* << Fim da inclusão
ENDIF.
WHEN 'DELE'.
CLEAR: v_erro_bi,
/pws/zycbt031.
SELECT SINGLE * FROM /pws/zycbt031
WHERE nrcorresp EQ /pws/zycbe004-nrseqc
AND tpdesp EQ /pws/zycbe004-tpdesp
AND nrparc EQ /pws/zycbe004-nrparc
AND dtincl EQ /pws/zycbe004-dtincl
AND mdcorresp EQ 'ED'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB001
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 467
Texto: (4 caracteres)
"Des."
Comprimento máximo: 4
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 468
Texto: (27 caracteres)
"Docto Contábil do Contrato:"
Comprimento máximo: 27
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 469
Texto: (48 caracteres)
"Parcelas de Principal estornadas pelo documento:"
Comprimento máximo: 48
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 470
Texto: (56 caracteres)
"Docto Contábil do Contrato foi estornado pelo documento:"
Comprimento máximo: 56
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 471
Texto: (35 caracteres)
"DATA: BEGIN OF binary_tab OCCURS 0,"
Comprimento máximo: 35
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 472
Texto: (20 caracteres)
"default(200) TYPE c,"
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 473
Texto: (19 caracteres)
" END OF binary_tab."
Comprimento máximo: 19
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 474
Texto: (20 caracteres)
" p_dados TO <VALOR>."
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 475
Texto: (18 caracteres)
"v_valor = <VALOR>."
Comprimento máximo: 18
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 476
Texto: (31 caracteres)
"SHIFT v_valor(dd03l-leng) RIGHT"
Comprimento máximo: 31
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 477
Texto: (24 caracteres)
"DELETING TRAILING space."
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 478
Texto: (22 caracteres)
"BUFFER = v_xstring"
Comprimento máximo: 22
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 479
Texto: (24 caracteres)
"BINARY_TAB = binary_tab."
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 480
Texto: (32 caracteres)
"move binary_tab(dd03l-intlen) to"
Comprimento máximo: 32
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 481
Texto: (37 caracteres)
"p_wa_log+v_tam(dd03l-leng) = <VALOR>."
Comprimento máximo: 37
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 482
Texto: (29 caracteres)
"Tipo da OV não parametrizado."
Comprimento máximo: 132
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 483
Texto: (5 caracteres)
"Ordem"
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 484
Texto: (12 caracteres)
"não inclusa."
Comprimento máximo: 12
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 485
Texto: (37 caracteres)
"Pagador diverge do Cliente informado."
Comprimento máximo: 37