CE PLUS - Nota 004735
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Financiamento
Data/Hora da Publicação: 14/09/2007 00:00:00
Data/Hora Última Alteração: 18/02/2011 09:51:19
Descrição da Nota: FINANCIAMENTO - RELATÓRIO DE MENSAGENS DE CONTABILIZAÇÃO
Sintoma
O programa está mostrando muitos Pop-ups com as mensagens de contabilização
Solução
Os pop-ups foram colocados em um relatório de mensagens.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04735 Data: 14/09/2007 Hora: 16:44:09
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04735
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00012
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02946 - 00001 - 6.0 - 00026 - PARÂMETRO /PWS/ZYGL007 CFM SIM - DUMP VERSÃO 4.7 OU SUPERIOR
03340 - 00002 - 6.0 - 00026 - FINANCIAMENTO - EXCLUSÃO PARCELAS DE COMISSÃO
----------------------------------------------------------------------------------------------------
FINANCIAMENTO - RELATÓRIO DE MENSAGENS DE CONTABILIZAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
FINANCIAMENTO - RELATÓRIO DE MENSAGENS DE CONTABILIZAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCM101F01
REPS /PWS/MZYCM101I01
REPS /PWS/SAPMZYCM101
REPS /PWS/ZYCBR148
REPS /PWS/ZYCBR148X01
REPT /PWS/SAPMZYCM101
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM101F01
...
WHERE nrseq < text-118
AND nrseq LIKE v_ano.
v_count = v_nrseqc+0(8) + 1.
CONCATENATE v_count sy-datum+2(2) INTO /pws/zycbe112-nrseq.
v_nrseqc = /pws/zycbe112-nrseq.
v_nrseqcview = /pws/zycbe112-nrseq.
ENDFORM.
FORM save_changes.
DATA: v_tabix LIKE sy-tabix,
v_min LIKE v_soma_vlme,
* >> Início da inclusão: FORM SAVE_CHANGES
wa_mensagem LIKE LINE OF itab_mensagem,
* << Fim da inclusão
v_comissao(01) TYPE c.
CLEAR wa_zycbt007.
SELECT SINGLE * FROM /pws/zycbt007
INTO wa_zycbt007
WHERE bukrs EQ /pws/zycbe112-bukrs.
v_soma_vlme = 0.
v_min = 5 / 100.
LOOP AT itab_zycbt113c.
v_soma_vlme = v_soma_vlme + itab_zycbt113c-vlme.
v_tabix = sy-tabix.
...
...
ENDLOOP.
IF /pws/zycbe112-nrseq+0(1) NE '5' AND sy-tcode = '/PWS/ZYCB101_C'
AND itab_zycmt023[] IS INITIAL.
LOOP AT itab_zycbt113p WHERE belnr NE space.
EXIT.
ENDLOOP.
IF sy-subrc = 0.
PERFORM associar_faturas.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM SAVE_CHANGES
MESSAGE i061 WITH text-239 /pws/zycbe112-nrseq text-240.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_CHANGES
wa_mensagem-tpmsg = c_sucesso.
concatenate text-239
/pws/zycbe112-nrseq
text-240
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM SAVE_CHANGES
IF NOT itab_mensagem IS INITIAL.
v_nome_programa = 'Financiamento de Importação'(253).
EXPORT v_nome_programa TO MEMORY ID 'NOME_PROGRAMA'.
EXPORT itab_mensagem TO MEMORY ID 'ITAB_MENSAGEM'.
SUBMIT /PWS/ZYCBR148.
REFRESH itab_mensagem.
ENDIF.
* << Fim da inclusão
CLEAR itab_zycbt131.
REFRESH itab_zycbt131.
SELECT * FROM /pws/zycbt131
INTO TABLE itab_zycbt131
WHERE nrseq = /pws/zycbe112-nrseq
AND mdcorresp = 'IF'.
IF sy-subrc = 0.
EXPORT itab_zycbt131 TO MEMORY ID 'M101'.
SUBMIT /pws/zycbr357 AND RETURN.
ENDIF.
...
...
WHERE nrcorrep = itab_zycbt115_ant-nrseq.
ENDLOOP.
ENDIF.
COMMIT WORK.
LOOP AT itab_zycbt115.
MODIFY /pws/zycbt115 FROM itab_zycbt115.
ENDLOOP.
COMMIT WORK.
ENDFORM.
FORM reverse_document_zycbt112.
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT112
DATA:
wa_mensagem LIKE LINE OF itab_mensagem.
* << Fim da inclusão
DATA: v_monat LIKE t001b-frpe1.
CLEAR /pws/zycbe112-fassoc.
SELECT SINGLE fassoc FROM /pws/zycbt112
INTO /pws/zycbe112-fassoc
WHERE nrseq EQ /pws/zycbe112-nrseq.
IF /pws/zycbe112-fassoc EQ 'X'.
PERFORM recontabiliza_parcelas.
EXIT.
ENDIF.
IF NOT itab_excluidos[] IS INITIAL.
...
...
t_zycbt032 = itab_zycbt032
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'FB08'
tabela = text-008
cpochv = /pws/zycbe112-nrseq
tpmsg = 'S'.
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT112
wa_mensagem-tpmsg = c_sucesso.
concatenate text-115
itab_zycbt113p-belnr
text-116
itab_zycbt032-belnr
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
* >> Início da exclusão: FORM REVERSE_DOCUMENT_ZYCBT112
MESSAGE i030 WITH itab_zycbt113p-belnr.
* << Fim da exclusão
PERFORM clear_date_batch.
CLEAR : itab_zycbt113p-belnr, itab_zycbt113p-belnr_lp,
itab_zycbt113p-ftransf.
MODIFY itab_zycbt113p.
UPDATE /pws/zycbt113 SET belnr = space
belnr_lp = space
ftransf = space
WHERE nrseq EQ /pws/zycbe112-nrseq
AND nrparc EQ itab_zycbt113p-nrparc
AND tpparc EQ 'P'.
...
...
AND tpparc EQ 'P'.
PERFORM monta_log_cfm USING wa_zycbt113_log
'/PWS/ZYCBT113'
CHANGING wa_log.
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'A'.
ENDIF.
ELSE.
LOOP AT itab_zycbt032.
* >> Início da exclusão: FORM REVERSE_DOCUMENT_ZYCBT112
MESSAGE i015 WITH itab_zycbt032-msg.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT112
wa_mensagem-tpmsg = c_erro.
wa_mensagem-msg = itab_zycbt032-msg.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
ENDLOOP.
PERFORM clear_date_batch.
ENDIF.
ENDIF.
ENDLOOP.
IF NOT /pws/zycbe112-belnr IS INITIAL.
CLEAR /pws/zycbt131.
SELECT nrseq FROM /pws/zycbt131
INTO /pws/zycbt131-nrseq
WHERE mdcorresp EQ 'IF'
...
...
itab_zycbt032,
itab_item.
REFRESH:
itab_zycbt034,
itab_zycbe033,
itab_zycbt032,
itab_item.
ENDFORM.
FORM fill_date1_f48.
DATA: v_mensagem(90) TYPE c,
* >> Início da inclusão: FORM FILL_DATE1_F48
wa_mensagem LIKE LINE OF itab_mensagem,
* << Fim da inclusão
v_data(10) TYPE c.
IF NOT /pws/zycbe112-belnr IS INITIAL.
EXIT.
ENDIF.
CLEAR v_nrdias.
CLEAR v_retorno.
IF sy-tcode EQ '/PWS/ZYCB101_A' AND
NOT wa_zycbt112-dtcont IS INITIAL.
PERFORM periodo_contabil
USING wa_zycbt112-dtcont
...
...
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
USING okcode
CHANGING e_subrc.
IF e_subrc NE 0.
EXIT.
ENDIF.
ENDIF.
ENDIF.
LOOP AT itab_zycbt034.
* >> Início da exclusão: FORM FILL_DATE1_F48
MESSAGE i269 WITH itab_zycbt034-descricao
'FIN'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F48
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-250
text-251
'FIN'
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
* << Fim da inclusão
v_erro_bi = 'X'.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL.
IF /pws/zycmt019-contabiliza EQ ' '.
CALL FUNCTION '/PWS/ZYCM_TRANSACAO_F_48'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
...
...
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
ENDIF.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = v_tcode
tabela = text-008
cpochv = /pws/zycbe112-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
* >> Início da inclusão: FORM FILL_DATE1_F48
wa_mensagem-tpmsg = c_sucesso.
CONCATENATE text-058
itab_zycbt032-msg
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
* >> Início da exclusão: FORM FILL_DATE1_F48
MESSAGE i015 WITH text-058 itab_zycbt032-msg.
* << Fim da exclusão
/pws/zycbe112-statusp = text-007.
itab_zycbt113p-belnr = itab_zycbt032-belnr.
itab_zycbt113p-belnr_ori = itab_zycbt032-belnr.
IF v_prazo EQ 'L'.
itab_zycbt113p-belnr_lp = itab_zycbt032-belnr.
itab_zycbt113p-ftransf = 'L'.
ELSE.
itab_zycbt113p-ftransf = 'S'.
ENDIF.
MODIFY itab_zycbt113p.
...
...
belnr_lp = itab_zycbt113p-belnr_lp
ftransf = itab_zycbt113p-ftransf
belnr_ori = itab_zycbt032-belnr
WHERE nrseq = /pws/zycbe112-nrseq
AND nrparc = itab_zycbt113p-nrparc
AND tpparc = 'P'.
MOVE-CORRESPONDING /pws/zycbe112 TO wa_zycbt112.
CLEAR v_erro_bi.
ELSE.
LOOP AT itab_zycbt032.
* >> Início da exclusão: FORM FILL_DATE1_F48
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F48
wa_mensagem-tpmsg = c_erro.
wa_mensagem-msg = itab_zycbt032-msg.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
v_erro_bi = 'X'.
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
* >> Início da exclusão: FORM FILL_DATE1_F48
MESSAGE i254 WITH itab_zycbt034-descricao
v_codeven.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F48
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-247
text-248
v_codeven
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
v_erro_bi = 'X'.
ENDLOOP.
ENDIF.
ENDIF.
PERFORM clear_date_batch.
ENDLOOP.
ENDFORM.
FORM get_parameters_112.
CONCATENATE text-019 /pws/zycbe112-codint INTO v_codeven.
CLEAR wa_zycbt007.
...
...
ENDIF.
ENDIF.
/pws/zycbe112-nrparc = wa_zycbt114-nrparc.
/pws/zycbe112-tpcomis = wa_zycbt114-tpcomis.
/pws/zycbe112-tptaxa = wa_zycbt114-tptaxa.
/pws/zycbe112-percomis = wa_zycbt114-percomis.
/pws/zycbe115-rof = wa_zycbt114-rof.
ENDIF.
ENDFORM.
FORM delete_zycbt112.
* >> Início da inclusão: FORM DELETE_ZYCBT112
DATA:
wa_mensagem LIKE LINE OF itab_mensagem.
* << Fim da inclusão
LOOP AT itab_zycbt113p WHERE ftransf EQ 'C'.
ENDLOOP.
IF sy-subrc EQ 0.
MESSAGE i015 WITH text-119 text-120.
EXIT.
ENDIF.
SELECT SINGLE * FROM /pws/zycbt118
INTO /pws/zycbt118
WHERE nrref EQ /pws/zycbe112-nrseq
AND dtpagto NE '00000000'
...
...
PERFORM reverse_document_zycbt113.
PERFORM exclui_financiamento.
ENDIF.
ENDIF.
PERFORM exclui_item_pedido.
ENDIF.
ENDIF.
ENDIF.
IF v_erro_estorno IS INITIAL.
PERFORM exclui_dados_bancarios.
* >> Início da inclusão: FORM DELETE_ZYCBT112
wa_mensagem-tpmsg = c_sucesso.
CONCATENATE text-239
/pws/zycbe112-nrseq
text-241
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
IF NOT itab_mensagem IS INITIAL.
v_nome_programa = 'Financiamento de Importação'(253).
EXPORT v_nome_programa TO MEMORY ID 'NOME_PROGRAMA'.
EXPORT itab_mensagem TO MEMORY ID 'ITAB_MENSAGEM'.
SUBMIT /PWS/ZYCBR148.
REFRESH itab_mensagem.
ENDIF.
* << Fim da inclusão
* >> Início da exclusão: FORM DELETE_ZYCBT112
MESSAGE i061 WITH text-239 /pws/zycbe112-nrseq text-241.
* << Fim da exclusão
LEAVE TO SCREEN 0.
ENDIF.
ENDFORM.
FORM verifica_faturas.
SELECT SINGLE * FROM /pws/zycbt108
WHERE nrcorresp EQ v_nrseqc
AND tpdoc EQ 'I'
AND fassoc EQ 'S'.
IF sy-subrc EQ 0.
v_apagar = 'N'.
...
...
LOOP AT itab_zycbt116.
UPDATE /pws/zycbt113 SET: dtpagto = '00000000'
txtinf = space
refinanc = space
WHERE nrseq EQ itab_zycbt116-nrfinanc
AND tpparc EQ itab_zycbt116-tpparc
AND nrparc EQ itab_zycbt116-nrparc.
ENDLOOP.
ENDFORM.
FORM estorna_documento_zycbt112.
* >> Início da inclusão: FORM ESTORNA_DOCUMENTO_ZYCBT112
DATA:
wa_mensagem LIKE LINE OF itab_mensagem.
* << Fim da inclusão
DATA: v_monat LIKE t001b-frpe1.
CLEAR v_erro_estorno.
LOOP AT itab_zycbt113p.
CHECK NOT itab_zycbt113p-belnr IS INITIAL.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'FB08'.
itab_zycbe033-tabela = text-008.
itab_zycbe033-cpochv = /pws/zycbe112-nrseq.
itab_zycbe033-belnr = itab_zycbt113p-belnr.
itab_zycbe033-bukrs = /pws/zycbe112-bukrs.
...
...
t_zycbt032 = itab_zycbt032
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'FB08'
tabela = text-008
cpochv = /pws/zycbe112-nrseq
tpmsg = 'S'.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM ESTORNA_DOCUMENTO_ZYCBT112
MESSAGE i030 WITH itab_zycbt113p-belnr.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_DOCUMENTO_ZYCBT112
wa_mensagem-tpmsg = c_sucesso.
concatenate text-115
itab_zycbt113p-belnr
text-116
itab_zycbt032-belnr
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
PERFORM clear_date_batch.
ELSE.
v_erro_estorno = 'X'.
LOOP AT itab_zycbt032.
* >> Início da exclusão: FORM ESTORNA_DOCUMENTO_ZYCBT112
MESSAGE i015 WITH itab_zycbt032-msg.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_DOCUMENTO_ZYCBT112
wa_mensagem-tpmsg = c_erro.
wa_mensagem-msg = itab_zycbt032-msg.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
ENDLOOP.
PERFORM clear_date_batch.
CLEAR sy-ucomm.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
FORM exclui_despesas.
LOOP AT itab_zycbt118.
v_pos_itab = sy-tabix.
...
...
/pws/zycbe112-fpagto_c NE 'D'.
PERFORM fill_date_f02.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
CLEAR itab_zycbt113c_exc.
REFRESH itab_zycbt113c_exc.
ENDFORM.
FORM fill_date_f02.
* >> Início da inclusão: FORM FILL_DATE_F02
DATA:
wa_mensagem LIKE LINE OF itab_mensagem.
* << Fim da inclusão
LOOP AT itab_zycbt113c WHERE belnr_c EQ ' '.
PERFORM get_parameters_113.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = text-050.
itab_zycbe033-tabela = text-051.
CONCATENATE itab_zycbt113c-nrseq itab_zycbt113c-tpparc
itab_zycbt113c-nrparc INTO itab_zycbe033-cpochv.
CASE wa_zycbt007-fdtdoc.
WHEN 'D'.
itab_zycbe033-bldat = sy-datum.
...
...
IN PROGRAM (itab_zyglt100-programa)
USING okcode
CHANGING e_subrc.
IF e_subrc NE 0.
EXIT.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
LOOP AT itab_zycbt034.
* >> Início da exclusão: FORM FILL_DATE_F02
MESSAGE i254 WITH itab_zycbt034-descricao
v_codeven.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F02
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-247
text-248
v_codeven
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
CALL FUNCTION '/PWS/ZYCM_TRANSACAO_F_02'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
EXCEPTIONS
...
...
IF sy-subrc = 0.
LOOP AT itab_zycbt113c WHERE belnr_c EQ ' '.
v_pos_itab = sy-tabix.
CONCATENATE itab_zycbt113c-nrseq itab_zycbt113c-tpparc
itab_zycbt113c-nrparc INTO v_cpochv.
READ TABLE itab_zycbt032 WITH KEY tcode = text-050
tabela = text-051
cpochv = v_cpochv
tpmsg = 'S'.
IF sy-subrc = 0.
* >> Início da exclusão: FORM FILL_DATE_F02
MESSAGE i015 WITH text-053 itab_zycbt032-msg.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F02
wa_mensagem-tpmsg = c_sucesso.
CONCATENATE text-053
itab_zycbt032-msg
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
itab_zycbt113c-belnr_c = itab_zycbt032-belnr.
itab_zycbt113c-status = text-007.
MOVE itab_zycbt113c TO /pws/zycbt113.
MODIFY itab_zycbt113c INDEX v_pos_itab.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt113
INTO wa_zycbt113_log
WHERE nrseq = /pws/zycbt113-nrseq
AND tpparc = /pws/zycbt113-tpparc
...
...
'C'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'A'.
ENDIF.
ENDIF.
COMMIT WORK.
ELSE.
LOOP AT itab_zycbt032 WHERE cpochv = v_cpochv.
* >> Início da exclusão: FORM FILL_DATE_F02
MESSAGE i015 WITH itab_zycbt032-msg.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F02
wa_mensagem-tpmsg = c_erro.
wa_mensagem-msg = itab_zycbt032-msg.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
ENDLOOP.
ENDIF.
ENDLOOP.
ELSE.
LOOP AT itab_zycbt034.
* >> Início da exclusão: FORM FILL_DATE_F02
MESSAGE i254 WITH itab_zycbt034-descricao
v_codeven.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F02
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-247
text-248
v_codeven
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
ENDLOOP.
ENDIF.
ENDIF.
PERFORM clear_date_batch.
ENDFORM.
FORM get_parameters_113.
CONCATENATE text-019 text-021 INTO v_codeven.
CLEAR wa_zycbt007.
SELECT SINGLE * FROM /pws/zycbt007
INTO wa_zycbt007
...
...
ENDIF.
PERFORM verify_null_field USING itab_zycbe033-d_newko
'NEWKO'
text-017.
PERFORM verify_null_field USING itab_zycbe033-c_newko
'NEWKO'
text-018.
ENDFORM.
FORM reverse_document_zycbt113.
DATA: v_monat LIKE t001b-frpe1,
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT113
wa_mensagem LIKE LINE OF itab_mensagem,
* << Fim da inclusão
v_f02.
IF okcode <> 'DELL'.
LOOP AT itab_zycbt113_ant WHERE belnr_c NE ' '.
ENDLOOP.
CHECK sy-subrc EQ 0.
ENDIF.
LOOP AT itab_zycbt113_ant WHERE belnr_c NE ' '
AND belnr_p EQ ' '.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'FB08'.
...
...
IF sy-subrc = 0.
LOOP AT itab_zycbt113_ant WHERE belnr_p EQ ' '.
CHECK NOT itab_zycbt113_ant-belnr_c IS INITIAL.
CONCATENATE itab_zycbt113_ant-nrseq itab_zycbt113_ant-tpparc
itab_zycbt113_ant-nrparc INTO v_cpochv.
READ TABLE itab_zycbt032 WITH KEY tcode = 'FB08'
tabela = text-051
cpochv = v_cpochv
tpmsg = 'S'.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM REVERSE_DOCUMENT_ZYCBT113
MESSAGE i030 WITH itab_zycbt113_ant-belnr_c.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT113
wa_mensagem-tpmsg = c_sucesso.
CONCATENATE text-115
itab_zycbt113_ant-belnr_c
text-116
itab_zycbt032-BELNR
into WA_MENSAGEM
SEPARATED BY space.
APPEND wa_mensagem TO itab_mensagem.
* << Fim da inclusão
CLEAR itab_zycbt113c-belnr_c.
MODIFY itab_zycbt113c TRANSPORTING belnr_c
WHERE nrparc = itab_zycbt113_ant-nrparc.
UPDATE /pws/zycbt113 SET belnr_c = itab_zycbt113c-belnr_c
WHERE nrseq = itab_zycbt113_ant-nrseq
AND tpparc = 'C'
AND nrparc = itab_zycbt113_ant-nrparc.
v_f02 = 'X'.
ELSE.
LOOP AT itab_zycbt032 WHERE cpochv = v_cpochv.
* >> Início da exclusão: FORM REVERSE_DOCUMENT_ZYCBT113
MESSAGE i015 WITH itab_zycbt032-msg.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT113
wa_mensagem-tpmsg = c_erro.
wa_mensagem-msg = itab_zycbt032-msg.
APPEND wa_mensagem TO itab_mensagem.
* << Fim da inclusão
ENDLOOP.
PERFORM popup_message USING text-009 text-006.
IF v_answer = 'J'.
CLEAR itab_zycbt113c-belnr_c.
MODIFY itab_zycbt113c TRANSPORTING belnr_c
WHERE nrparc = itab_zycbt113_ant-nrparc.
v_f02 = 'X'.
ELSE.
LOOP AT itab_zycbt113c
WHERE nrparc EQ itab_zycbt113_ant-nrparc.
...
...
diagnosetext1 = text-060
diagnosetext2 = text-078
textline1 = text-061
titel = text-062
IMPORTING
answer = v_answer
EXCEPTIONS
OTHERS = 1.
ENDFORM.
FORM modify_zycbt112.
* >> Início da inclusão: FORM MODIFY_ZYCBT112
DATA:
wa_mensagem LIKE LINE OF itab_mensagem.
* << Fim da inclusão
v_nrseq_ant = /pws/zycbe112-nrseq.
IF sy-tcode EQ '/PWS/ZYCB101_C' AND v_existe NE 'S'.
INSERT INTO /pws/zycbt112 VALUES /pws/zycbe112.
IF wa_zycbt007-cfm = 'X'.
IF sy-subrc EQ 0.
SELECT SINGLE *
FROM /pws/zycbt112
INTO wa_zycbt112_log
WHERE nrseq = /pws/zycbe112-nrseq.
PERFORM monta_log_cfm USING wa_zycbt112_log
...
...
'/PWS/ZYCBT112'
CHANGING wa_log.
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'C'.
ENDIF.
ENDIF.
v_existe = 'S'.
ENDWHILE.
IF v_existe = 'S'.
* >> Início da exclusão: FORM MODIFY_ZYCBT112
MESSAGE i061 WITH text-064 /pws/zycbe112-nrfinanc
text-065 /pws/zycbe112-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM MODIFY_ZYCBT112
wa_mensagem-tpmsg = c_sucesso.
CONCATENATE text-064
/pws/zycbe112-nrfinanc
text-065
/pws/zycbe112-nrseq
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem TO itab_mensagem.
* << Fim da inclusão
ENDIF.
ELSE.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt112
INTO wa_zycbt112_log
WHERE nrseq = /pws/zycbe112-nrseq.
PERFORM monta_log_cfm USING /pws/zycbe112
'/PWS/ZYCBT112'
CHANGING wa_log.
...
...
MODIFY itab_zycbt113j TRANSPORTING nrseq
WHERE nrseq = v_nrseq_ant.
itab_zycbt113p_aux-nrseq = /pws/zycbe112-nrseq.
MODIFY itab_zycbt113p_aux TRANSPORTING nrseq
WHERE nrseq = v_nrseq_ant.
itab_zycbt115-nrcorrep = /pws/zycbe112-nrseq.
MODIFY itab_zycbt115 TRANSPORTING nrcorrep
WHERE nrcorrep = v_nrseq_ant.
ENDFORM.
FORM fill_date_f02_refin.
* >> Início da inclusão: FORM FILL_DATE_F02_REFIN
DATA:
wa_mensagem LIKE LINE OF itab_mensagem.
* << Fim da inclusão
CLEAR v_txc_f02.
CLEAR : itab_totais_aux, itab_totais.
REFRESH : itab_totais_aux, itab_totais.
LOOP AT itab_zycbt116.
MOVE-CORRESPONDING itab_zycbt116 TO itab_totais_aux.
APPEND itab_totais_aux.
ENDLOOP.
LOOP AT itab_totais_aux.
COLLECT itab_totais_aux INTO itab_totais.
ENDLOOP.
...
...
IN PROGRAM (itab_zyglt100-programa)
USING okcode
CHANGING e_subrc.
IF e_subrc NE 0.
EXIT.
ENDIF.
ENDIF.
ENDIF.
LOOP AT itab_zycbt034.
IF itab_zycbt034-campo EQ 'C_NEWKO'.
* >> Início da exclusão: FORM FILL_DATE_F02_REFIN
MESSAGE i254 WITH itab_zycbt034-descricao
v_codeven_f.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F02_REFIN
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-247
text-248
v_codeven_f
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
v_erro_bi = 'X'.
ELSEIF itab_zycbt034-campo EQ 'D_NEWKO'.
* >> Início da exclusão: FORM FILL_DATE_F02_REFIN
MESSAGE i254 WITH itab_zycbt034-descricao
v_codeven_r.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F02_REFIN
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-247
text-248
v_codeven_r
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
v_erro_bi = 'X'.
ELSE.
* >> Início da exclusão: FORM FILL_DATE_F02_REFIN
MESSAGE i254 WITH itab_zycbt034-descricao
v_codeven_rd.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F02_REFIN
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-247
text-248
v_codeven_rd
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
v_erro_bi = 'X'.
ENDIF.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL.
CALL FUNCTION '/PWS/ZYCM_TRANSACAO_F_02B'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
...
...
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = text-050
tabela = text-008
cpochv = /pws/zycbe112-nrseq
tpmsg = 'S'.
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM FILL_DATE_F02_REFIN
wa_mensagem-tpmsg = c_sucesso.
CONCATENATE text-059
itab_zycbt032-msg
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem TO itab_mensagem.
* << Fim da inclusão
* >> Início da exclusão: FORM FILL_DATE_F02_REFIN
MESSAGE i015 WITH text-059 itab_zycbt032-msg.
* << Fim da exclusão
/pws/zycbe112-statusp = text-007.
/pws/zycbe112-belnr = itab_zycbt032-belnr.
/pws/zycbe112-fassoc = 'X'.
UPDATE /pws/zycbt112 SET statusp = /pws/zycbe112-statusp
belnr = /pws/zycbe112-belnr
fassoc = 'X'
WHERE nrseq = /pws/zycbe112-nrseq.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt112
...
...
CHANGING wa_log.
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'A'.
ENDIF.
MOVE-CORRESPONDING /pws/zycbe112 TO wa_zycbt112.
PERFORM grava_data_pagamento.
PERFORM fill_date_f51_refin.
ELSE.
LOOP AT itab_zycbt032.
* >> Início da exclusão: FORM FILL_DATE_F02_REFIN
MESSAGE i015 WITH itab_zycbt032-msg.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F02_REFIN
wa_mensagem-tpmsg = c_erro.
wa_mensagem-msg = itab_zycbt032-msg.
APPEND wa_mensagem TO itab_mensagem.
* << Fim da inclusão
v_erro_bi = 'X'.
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
IF itab_zycbt034-campo EQ 'C_NEWKO'.
* >> Início da exclusão: FORM FILL_DATE_F02_REFIN
MESSAGE i254 WITH itab_zycbt034-descricao
v_codeven_f.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F02_REFIN
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-247
text-248
v_codeven_f
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
v_erro_bi = 'X'.
ELSEIF itab_zycbt034-campo EQ 'D_NEWKO'.
* >> Início da exclusão: FORM FILL_DATE_F02_REFIN
MESSAGE i254 WITH itab_zycbt034-descricao
v_codeven_r.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F02_REFIN
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-247
text-248
v_codeven_r
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
v_erro_bi = 'X'.
ELSE.
* >> Início da inclusão: FORM FILL_DATE_F02_REFIN
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-247
text-248
v_codeven_rd
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
* >> Início da exclusão: FORM FILL_DATE_F02_REFIN
MESSAGE i254 WITH itab_zycbt034-descricao
v_codeven_rd.
* << Fim da exclusão
v_erro_bi = 'X'.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
PERFORM clear_date_batch.
CLEAR: itab_zycbt035,
itab_zycbt036.
REFRESH: itab_zycbt035,
itab_zycbt036.
...
...
OTHERS = 4.
IF v_modo_bi EQ '3'.
v_modo_bi = 'A'.
ELSEIF v_modo_bi EQ '2'.
v_modo_bi = 'E'.
ELSEIF v_modo_bi EQ '1'.
v_modo_bi = 'N'.
ENDIF.
ENDFORM.
FORM fill_date_f51_refin.
* >> Início da inclusão: FORM FILL_DATE_F51_REFIN
DATA:
wa_mensagem LIKE LINE OF itab_mensagem.
* << Fim da inclusão
DATA: v_slrefin LIKE /pws/zycbt112-slrefin.
LOOP AT itab_zycbt035 WHERE bschl EQ '40'.
PERFORM clear_date_batch.
CLEAR itab_zycbt036.
REFRESH itab_zycbt036.
CLEAR: v_txc_f51, v_slrefin.
READ TABLE itab_zycbt112 WITH KEY nrseq = itab_zycbt035-d_zuonr.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = text-083.
itab_zycbe033-tabela = text-008.
...
...
'BLART'
text-014.
itab_zycbe033-blart = wa_zycbt011_rd-blart.
itab_zycbe033-d_zuonr = itab_zycbt035-d_zuonr.
itab_zycbe033-c_zuonr = itab_zycbt035-d_zuonr.
itab_zycbe033-d_gsber = /pws/zycbe112-gsber.
itab_zycbe033-c_gsber = /pws/zycbe112-gsber.
APPEND itab_zycbe033.
LOOP AT itab_zycbt034.
IF itab_zycbt034-campo EQ 'AGKON'.
* >> Início da exclusão: FORM FILL_DATE_F51_REFIN
MESSAGE i254 WITH itab_zycbt034-descricao
v_codeven_r.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F51_REFIN
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-247
text-248
v_codeven_r
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
ELSE.
* >> Início da inclusão: FORM FILL_DATE_F51_REFIN
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-247
text-248
v_codeven_rd
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
* >> Início da exclusão: FORM FILL_DATE_F51_REFIN
MESSAGE i254 WITH itab_zycbt034-descricao
v_codeven_rd.
* << Fim da exclusão
ENDIF.
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
CALL FUNCTION '/PWS/ZYCM_TRANSACAO_F_51E'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
...
...
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = text-083
tabela = text-008
cpochv = itab_zycbt112-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
* >> Início da exclusão: FORM FILL_DATE_F51_REFIN
MESSAGE i043 WITH itab_zycbt032-belnr.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F51_REFIN
wa_mensagem-tpmsg = c_sucesso.
CONCATENATE text-115
itab_zycbt032-belnr
text-252
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
UPDATE /pws/zycbt112 SET slrefin = v_slrefin
sldesem = itab_zycbt112-sldesem
fassoc = 'X'
WHERE nrseq = itab_zycbt112-nrseq.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt112
INTO wa_zycbt112_log
WHERE nrseq = itab_zycbt112-nrseq.
PERFORM monta_log_cfm USING wa_zycbt112_log
...
...
AND nrparc = itab_zycbt116-nrparc.
PERFORM monta_log_cfm USING wa_zycbt113_log
'/PWS/ZYCBT113'
CHANGING wa_log.
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'A'.
ENDIF.
ELSE.
LOOP AT itab_zycbt032.
* >> Início da exclusão: FORM FILL_DATE_F51_REFIN
MESSAGE i015 WITH itab_zycbt032-msg(50)
itab_zycbt032-msg+50(50).
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F51_REFIN
wa_mensagem-tpmsg = c_erro.
wa_mensagem-msg = itab_zycbt032-msg.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
IF itab_zycbt034-campo EQ 'AGKON'.
MESSAGE i254 WITH itab_zycbt034-descricao
v_codeven_r.
* >> Início da inclusão: FORM FILL_DATE_F51_REFIN
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-247
text-248
v_codeven_r
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM FILL_DATE_F51_REFIN
MESSAGE i254 WITH itab_zycbt034-descricao
v_codeven_rd.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F51_REFIN
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-247
text-248
v_codeven_rd
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDLOOP.
IF NOT /pws/zycbe112-belnr IS INITIAL.
PERFORM clear_date_batch.
REFRESH itab_zycbt036.
CLEAR itab_zycbt036.
itab_zycbt036-tcode = text-083.
...
...
start_row = 3
text_object = '/PWS/ZSAPMZYCM101_TXT'
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE i015 WITH text-117.
ENDIF.
ENDFORM.
FORM reverse_document_zycbt112_cab.
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT112_CAB
DATA:
wa_mensagem LIKE LINE OF itab_mensagem.
* << Fim da inclusão
PERFORM clear_date_batch.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'FB08'.
itab_zycbe033-tabela = text-008.
itab_zycbe033-cpochv = /pws/zycbe112-nrseq.
itab_zycbe033-belnr = /pws/zycbe112-belnr.
itab_zycbe033-bukrs = wa_zycbt112-bukrs.
itab_zycbe033-budat = wa_zycbt112-dtdesem.
itab_zycbe033-gjahs = wa_zycbt112-dtdesem+0(4).
v_monat = itab_zycbe033-budat+2(2).
...
...
t_zycbt032 = itab_zycbt032
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'FB08'
tabela = text-008
cpochv = /pws/zycbe112-nrseq
tpmsg = 'S'.
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT112_CAB
wa_mensagem-tpmsg = c_sucesso.
CONCATENATE text-115
/pws/zycbe112-belnr
text-116
itab_zycbt032-belnr
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
* >> Início da exclusão: FORM REVERSE_DOCUMENT_ZYCBT112_CAB
MESSAGE i030 WITH /pws/zycbe112-belnr.
* << Fim da exclusão
PERFORM clear_date_batch.
CLEAR /pws/zycbe112-belnr.
UPDATE /pws/zycbt112 SET belnr = space
WHERE nrseq EQ /pws/zycbe112-nrseq.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt112
INTO wa_zycbt112_log
WHERE nrseq EQ /pws/zycbe112-nrseq.
PERFORM monta_log_cfm USING wa_zycbt112_log
'/PWS/ZYCBT112'
CHANGING wa_log.
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'A'.
ENDIF.
ELSE.
LOOP AT itab_zycbt032.
* >> Início da exclusão: FORM REVERSE_DOCUMENT_ZYCBT112_CAB
MESSAGE i015 WITH itab_zycbt032-msg.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT112_CAB
wa_mensagem-tpmsg = c_erro.
wa_mensagem-msg = itab_zycbt032-msg.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
ENDLOOP.
PERFORM clear_date_batch.
ENDIF.
ENDIF.
ENDFORM.
FORM estorna_parcelas_excluidas.
* >> Início da inclusão: FORM ESTORNA_PARCELAS_EXCLUIDAS
DATA:
wa_mensagem LIKE LINE OF itab_mensagem.
* << Fim da inclusão
LOOP AT itab_excluidos.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'FB08'.
itab_zycbe033-tabela = text-008.
itab_zycbe033-cpochv = /pws/zycbe112-nrseq.
itab_zycbe033-belnr = itab_excluidos-belnr.
itab_zycbe033-bukrs = wa_zycbt112-bukrs.
IF NOT wa_zycbt112-dtcont IS INITIAL.
itab_zycbe033-budat = wa_zycbt112-dtcont.
ELSE.
...
...
t_zycbt032 = itab_zycbt032
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'FB08'
tabela = text-008
cpochv = /pws/zycbe112-nrseq
tpmsg = 'S'.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM ESTORNA_PARCELAS_EXCLUIDAS
MESSAGE i030 WITH itab_excluidos-belnr.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_PARCELAS_EXCLUIDAS
wa_mensagem-tpmsg = c_sucesso.
CONCATENATE text-115
itab_excluidos-belnr
text-116
itab_zycbt032-belnr
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
PERFORM clear_date_batch.
ELSE.
LOOP AT itab_zycbt032.
* >> Início da exclusão: FORM ESTORNA_PARCELAS_EXCLUIDAS
MESSAGE i015 WITH itab_zycbt032-msg.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_PARCELAS_EXCLUIDAS
wa_mensagem-tpmsg = c_erro.
wa_mensagem-msg = itab_zycbt032-msg.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
ENDLOOP.
PERFORM clear_date_batch.
ENDIF.
ENDIF.
ENDLOOP.
REFRESH itab_excluidos.
CLEAR itab_excluidos.
ENDFORM.
FORM recontabiliza_parcelas.
* >> Início da inclusão: FORM RECONTABILIZA_PARCELAS
DATA:
wa_mensagem LIKE LINE OF itab_mensagem.
* << Fim da inclusão
REFRESH itab_zycbt036.
CLEAR itab_zycbt036.
PERFORM busca_parametros_f_51_clear.
CLEAR: v_vlres, v_errof.
LOOP AT itab_zycbt113pa WHERE dtpagto EQ ' ' OR
dtpagto EQ '00000000'.
READ TABLE itab_zycbt113p WITH KEY nrparc = itab_zycbt113pa-nrparc.
IF itab_zycbt113p-vlme EQ itab_zycbt113pa-vlme AND
itab_zycbt113p-dtvecto EQ itab_zycbt113pa-dtvecto AND
itab_zycbt113p-belnr EQ itab_zycbt113pa-belnr.
...
...
IF e_subrc NE 0.
EXIT.
ENDIF.
ENDIF.
ENDIF.
CLEAR /pws/zyglt009-dacc.
SELECT SINGLE dacc FROM /pws/zyglt009
INTO /pws/zyglt009-dacc
WHERE bukrs EQ /pws/zycbe112-bukrs.
LOOP AT itab_zycbt034.
* >> Início da exclusão: FORM RECONTABILIZA_PARCELAS
MESSAGE i254 WITH itab_zycbt034-descricao
v_codeven.
* << Fim da exclusão
* >> Início da inclusão: FORM RECONTABILIZA_PARCELAS
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-247
text-248
v_codeven
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
MOVE 'X' TO v_errof.
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
CALL FUNCTION '/PWS/ZYCM_TRANSACAO_F_51J'
EXPORTING
v_modo = v_modo_bi
v_dacc = /pws/zyglt009-dacc
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
...
...
itab_zycbt036-cpochv = /pws/zycbe112-nrseq.
itab_zycbt036-belnr = itab_zycbt032-belnr.
SELECT SINGLE awkey FROM bkpf
INTO itab_zycbt036-awkey
WHERE belnr EQ itab_zycbt032-belnr
AND bukrs EQ /pws/zycbe112-bukrs
AND gjahr EQ /pws/zycbe112-dtdesem(4).
APPEND itab_zycbt036.
ELSE.
LOOP AT itab_zycbt032.
* >> Início da exclusão: FORM RECONTABILIZA_PARCELAS
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
* << Fim da exclusão
* >> Início da inclusão: FORM RECONTABILIZA_PARCELAS
wa_mensagem-tpmsg = c_erro.
wa_mensagem-msg = itab_zycbt032-msg.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
* >> Início da exclusão: FORM RECONTABILIZA_PARCELAS
MESSAGE i254 WITH itab_zycbt034-descricao
v_codeven.
* << Fim da exclusão
* >> Início da inclusão: FORM RECONTABILIZA_PARCELAS
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-247
text-248
v_codeven
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
MOVE 'X' TO v_errof.
ENDLOOP.
ENDIF.
ENDIF.
PERFORM clear_date_batch.
ENDLOOP.
IF v_errof EQ 'X'.
EXIT.
ENDIF.
LOOP AT itab_zycbt113pa WHERE ftransf EQ 'C'.
...
...
IF sy-subrc EQ 0.
READ TABLE itab_zyglt316 INDEX 1.
v_newkof = itab_zyglt316-konth.
ENDIF.
PERFORM verify_null_field USING v_newkof
'C_NEWKO'
text-018.
ENDFORM.
FORM gera_novas_parcelas.
DATA : v_flag.
* >> Início da inclusão: FORM GERA_NOVAS_PARCELAS
DATA:
wa_mensagem LIKE LINE OF itab_mensagem.
* << Fim da inclusão
CLEAR : v_flag, v_nrdias.
LOOP AT itab_zycbt113p .
PERFORM get_parameters_112.
IF itab_zycbt113p-dtpagto NE ' ' AND
itab_zycbt113p-dtpagto NE '00000000'.
CONTINUE.
ENDIF.
READ TABLE itab_zycbt113pa WITH KEY nrparc = itab_zycbt113p-nrparc.
IF itab_zycbt113p-vlme EQ itab_zycbt113pa-vlme AND
itab_zycbt113p-dtvecto EQ itab_zycbt113pa-dtvecto AND
...
...
IF e_subrc NE 0.
EXIT.
ENDIF.
ENDIF.
ENDIF.
CLEAR /pws/zyglt009.
SELECT SINGLE dacc FROM /pws/zyglt009
INTO /pws/zyglt009-dacc
WHERE bukrs EQ /pws/zycbe112-bukrs.
LOOP AT itab_zycbt034.
* >> Início da exclusão: FORM GERA_NOVAS_PARCELAS
MESSAGE i254 WITH itab_zycbt034-descricao
v_codeven.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_NOVAS_PARCELAS
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-247
text-248
v_codeven
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
CALL FUNCTION '/PWS/ZYCM_TRANSACAO_F_51I'
EXPORTING
v_modo = v_modo_bi
v_zuonr = v_zuonr
v_dacc = /pws/zyglt009-dacc
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
...
...
t_zycbt032 = itab_zycbt032
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = text-083
tabela = text-008
cpochv = /pws/zycbe112-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
* >> Início da inclusão: FORM GERA_NOVAS_PARCELAS
wa_mensagem-tpmsg = c_sucesso.
* << Fim da inclusão
* >> Início da exclusão: FORM GERA_NOVAS_PARCELAS
MESSAGE i015 WITH text-058 itab_zycbt032-msg.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_NOVAS_PARCELAS
CONCATENATE text-058
itab_zycbt032-msg
INTO wa_mensagem-msg
SEPARATED BY space.
* << Fim da inclusão
REFRESH itab_zycbt036.
itab_zycbt036-tcode = text-083.
itab_zycbt036-tabela = text-008.
itab_zycbt036-cpochv = /pws/zycbe112-nrseq.
itab_zycbt036-belnr = itab_zycbt032-belnr.
SELECT SINGLE awkey FROM bkpf
INTO itab_zycbt036-awkey
WHERE belnr EQ itab_zycbt032-belnr
AND bukrs EQ /pws/zycbe112-bukrs
AND gjahr EQ /pws/zycbe112-dtdesem(4).
...
...
ENDIF.
MODIFY itab_zycbt113p.
UPDATE /pws/zycbt113 SET belnr = itab_zycbt032-belnr
belnr_lp = itab_zycbt113p-belnr_lp
ftransf = itab_zycbt113p-ftransf
WHERE nrseq = /pws/zycbe112-nrseq
AND nrparc = itab_zycbt113p-nrparc
AND tpparc = 'P'.
ELSE.
LOOP AT itab_zycbt032.
* >> Início da exclusão: FORM GERA_NOVAS_PARCELAS
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_NOVAS_PARCELAS
wa_mensagem-tpmsg = c_erro.
wa_mensagem-msg = itab_zycbt032-msg.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
ENDLOOP.
CLEAR itab_zycbt113p-belnr.
MODIFY itab_zycbt113p.
UPDATE /pws/zycbt113 SET belnr = ' '
belnr_lp = ' '
ftransf = itab_zycbt113p-ftransf
WHERE nrseq = /pws/zycbe112-nrseq
AND nrparc = itab_zycbt113p-nrparc
AND tpparc = 'P'.
ENDIF.
ELSE.
CLEAR itab_zycbt113p-belnr.
MODIFY itab_zycbt113p.
UPDATE /pws/zycbt113 SET belnr = ' '
belnr_lp = ' '
ftransf = itab_zycbt113p-ftransf
WHERE nrseq = /pws/zycbe112-nrseq
AND nrparc = itab_zycbt113p-nrparc
AND tpparc = 'P'.
LOOP AT itab_zycbt034.
* >> Início da exclusão: FORM GERA_NOVAS_PARCELAS
MESSAGE i254 WITH itab_zycbt034-descricao
v_codeven.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_NOVAS_PARCELAS
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-247
text-248
v_codeven
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
ENDLOOP.
ENDIF.
ENDIF.
PERFORM clear_date_batch.
ENDLOOP.
MOVE /pws/zycbe112 TO /pws/zycbt112.
MODIFY /pws/zycbt112.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt112
...
...
CLEAR : itab_zycbt113pa.
REFRESH : itab_zycbt113pa.
SELECT *
FROM /pws/zycbt113
INTO TABLE itab_zycbt113pa
WHERE nrseq EQ /pws/zycbe112-nrseq
AND tpparc EQ 'P'.
PERFORM recontabiliza_parcelas.
ENDFORM.
FORM reclassifica_financ_original.
* >> Início da inclusão: FORM RECLASSIFICA_FINANC_ORIGINAL
DATA:
wa_mensagem LIKE LINE OF itab_mensagem.
* << Fim da inclusão
DATA : v_flag.
CLEAR: v_flag, v_nrdias, v_zuonr.
REFRESH itab_zycbt116a.
CLEAR itab_zycbt116a.
SELECT * FROM /pws/zycbt116
INTO TABLE itab_zycbt116a
WHERE nrrefin EQ /pws/zycbe112-nrseq.
LOOP AT itab_zycbt116a.
CLEAR wa_zycbt113.
SELECT SINGLE * FROM /pws/zycbt113
...
...
IF e_subrc NE 0.
EXIT.
ENDIF.
ENDIF.
ENDIF.
CLEAR /pws/zyglt009.
SELECT SINGLE dacc FROM /pws/zyglt009
INTO /pws/zyglt009-dacc
WHERE bukrs EQ wa_zycbt112r-bukrs.
LOOP AT itab_zycbt034.
* >> Início da exclusão: FORM RECLASSIFICA_FINANC_ORIGINAL
MESSAGE i254 WITH itab_zycbt034-descricao
v_codeven.
* << Fim da exclusão
* >> Início da inclusão: FORM RECLASSIFICA_FINANC_ORIGINAL
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-247
text-248
v_codeven
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
CALL FUNCTION '/PWS/ZYCM_TRANSACAO_F_51I'
EXPORTING
v_modo = v_modo_bi
v_zuonr = v_zuonr
v_dacc = /pws/zyglt009-dacc
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
...
...
t_zycbt032 = itab_zycbt032
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = text-083
tabela = text-008
cpochv = wa_zycbt112r-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
* >> Início da inclusão: FORM RECLASSIFICA_FINANC_ORIGINAL
wa_mensagem-tpmsg = c_sucesso.
CONCATENATE text-058
itab_zycbt032-msg
INTO wa_mensagem-msg
SEPARATED BY space.
* << Fim da inclusão
* >> Início da exclusão: FORM RECLASSIFICA_FINANC_ORIGINAL
MESSAGE i015 WITH text-058 itab_zycbt032-msg.
* << Fim da exclusão
REFRESH itab_zycbt036.
itab_zycbt036-tcode = text-083.
itab_zycbt036-tabela = text-008.
itab_zycbt036-cpochv = wa_zycbt112r-nrseq.
itab_zycbt036-belnr = itab_zycbt032-belnr.
APPEND itab_zycbt036.
CLEAR v_zuonr.
IF NOT v_flag IS INITIAL.
CONCATENATE wa_zycbt112r-nrseq 'R' INTO v_zuonr.
ENDIF.
...
...
AND tpparc = 'P'.
PERFORM monta_log_cfm USING wa_zycbt113_log
'/PWS/ZYCBT113'
CHANGING wa_log.
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'A'.
ENDIF.
ELSE.
LOOP AT itab_zycbt032.
* >> Início da exclusão: FORM RECLASSIFICA_FINANC_ORIGINAL
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
* << Fim da exclusão
* >> Início da inclusão: FORM RECLASSIFICA_FINANC_ORIGINAL
wa_mensagem-tpmsg = c_erro.
wa_mensagem-msg = itab_zycbt032-msg.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
* >> Início da exclusão: FORM RECLASSIFICA_FINANC_ORIGINAL
MESSAGE i254 WITH itab_zycbt034-descricao
v_codeven.
* << Fim da exclusão
* >> Início da inclusão: FORM RECLASSIFICA_FINANC_ORIGINAL
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-247
text-248
v_codeven
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
ENDLOOP.
ENDIF.
ENDIF.
PERFORM clear_date_batch.
ENDLOOP.
MOVE wa_zycbt112r TO /pws/zycbt112.
MODIFY /pws/zycbt112.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt112
...
...
CONCATENATE '%' sy-datum+2(2) INTO v_ano.
SELECT MAX( nrseq ) INTO (v_nrseq)
FROM /pws/zycbt112
WHERE nrseq LIKE v_ano
AND nrseq LT text-118.
v_count = v_nrseq+0(8) + 1.
CONCATENATE v_count sy-datum+2(2) INTO v_nrseq_aux.
ENDFORM.
FORM finaliza_processo_contabil.
DATA : v_flag.
* >> Início da inclusão: FORM FINALIZA_PROCESSO_CONTABIL
DATA:
wa_mensagem LIKE LINE OF itab_mensagem.
* << Fim da inclusão
SORT itab_zycbt113p BY nrparc DESCENDING.
LOOP AT itab_zycbt113p WHERE belnr NE ' '.
REFRESH itab_zycbt036.
itab_zycbt036-tcode = text-083.
itab_zycbt036-tabela = text-008.
itab_zycbt036-cpochv = /pws/zycbe112-nrseq.
itab_zycbt036-belnr = itab_zycbt113p-belnr.
SELECT SINGLE awkey FROM bkpf
INTO itab_zycbt036-awkey
WHERE belnr EQ itab_zycbt113p-belnr
...
...
IF e_subrc NE 0.
EXIT.
ENDIF.
ENDIF.
ENDIF.
CLEAR /pws/zyglt009.
SELECT SINGLE dacc FROM /pws/zyglt009
INTO /pws/zyglt009-dacc
WHERE bukrs EQ /pws/zycbe112-bukrs.
LOOP AT itab_zycbt034.
* >> Início da exclusão: FORM FINALIZA_PROCESSO_CONTABIL
MESSAGE i254 WITH itab_zycbt034-descricao
v_codeven.
* << Fim da exclusão
* >> Início da inclusão: FORM FINALIZA_PROCESSO_CONTABIL
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-247
text-248
v_codeven
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
CALL FUNCTION '/PWS/ZYCM_TRANSACAO_F_51I'
EXPORTING
v_modo = v_modo_bi
v_zuonr = v_zuonr
v_dacc = /pws/zyglt009-dacc
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
...
...
t_zycbt032 = itab_zycbt032
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = text-083
tabela = text-008
cpochv = /pws/zycbe112-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
* >> Início da exclusão: FORM FINALIZA_PROCESSO_CONTABIL
MESSAGE i015 WITH text-058 itab_zycbt032-msg.
* << Fim da exclusão
* >> Início da inclusão: FORM FINALIZA_PROCESSO_CONTABIL
wa_mensagem-tpmsg = c_sucesso.
CONCATENATE text-058
itab_zycbt032-msg
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem TO itab_mensagem.
* << Fim da inclusão
REFRESH itab_zycbt036.
itab_zycbt036-tcode = text-083.
itab_zycbt036-tabela = text-008.
itab_zycbt036-cpochv = /pws/zycbe112-nrseq.
itab_zycbt036-belnr = itab_zycbt032-belnr.
SELECT SINGLE awkey FROM bkpf
INTO itab_zycbt036-awkey
WHERE belnr EQ itab_zycbt032-belnr
AND bukrs EQ /pws/zycbe112-bukrs
AND gjahr EQ /pws/zycbe112-dtdesem(4).
...
...
ENDIF.
MODIFY itab_zycbt113p.
UPDATE /pws/zycbt113 SET belnr = itab_zycbt032-belnr
belnr_lp = itab_zycbt113p-belnr_lp
ftransf = itab_zycbt113p-ftransf
WHERE nrseq = /pws/zycbe112-nrseq
AND nrparc = itab_zycbt113p-nrparc
AND tpparc = 'P'.
ELSE.
LOOP AT itab_zycbt032.
* >> Início da exclusão: FORM FINALIZA_PROCESSO_CONTABIL
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
* << Fim da exclusão
* >> Início da inclusão: FORM FINALIZA_PROCESSO_CONTABIL
wa_mensagem-tpmsg = c_erro.
wa_mensagem-msg = itab_zycbt032-msg.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
ENDLOOP.
CLEAR itab_zycbt113p-belnr.
MODIFY itab_zycbt113p.
UPDATE /pws/zycbt113 SET belnr = ' '
belnr_lp = ' '
ftransf = itab_zycbt113p-ftransf
WHERE nrseq = /pws/zycbe112-nrseq
AND nrparc = itab_zycbt113p-nrparc
AND tpparc = 'P'.
ENDIF.
ELSE.
CLEAR itab_zycbt113p-belnr.
MODIFY itab_zycbt113p.
UPDATE /pws/zycbt113 SET belnr = ' '
belnr_lp = ' '
ftransf = itab_zycbt113p-ftransf
WHERE nrseq = /pws/zycbe112-nrseq
AND nrparc = itab_zycbt113p-nrparc
AND tpparc = 'P'.
LOOP AT itab_zycbt034.
* >> Início da exclusão: FORM FINALIZA_PROCESSO_CONTABIL
MESSAGE i254 WITH itab_zycbt034-descricao
v_codeven.
* << Fim da exclusão
* >> Início da inclusão: FORM FINALIZA_PROCESSO_CONTABIL
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-247
text-248
v_codeven
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
ENDLOOP.
ENDIF.
ENDIF.
PERFORM clear_date_batch.
ENDLOOP.
MOVE /pws/zycbe112 TO /pws/zycbt112.
MODIFY /pws/zycbt112.
MOVE /pws/zycbt112 TO wa_zycbt112.
ENDFORM.
FORM busca_conta_financ.
...
...
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
OTHERS = 7.
ENDFORM.
FORM exclui_financiamento_assoc_fat.
DATA: v_mensagem(90) TYPE c,
* >> Início da inclusão: FORM EXCLUI_FINANCIAMENTO_ASSOC_FAT
wa_mensagem LIKE LINE OF itab_mensagem,
* << Fim da inclusão
v_data(10) TYPE c.
PERFORM clear_date_batch.
CLEAR v_erro_bi.
IF NOT /pws/zycbe112-belnr IS INITIAL.
EXIT.
ENDIF.
CLEAR v_nrdias.
CLEAR v_retorno.
IF sy-tcode EQ '/PWS/ZYCB101_A' AND
NOT wa_zycbt112-dtcont IS INITIAL.
...
...
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
USING okcode
CHANGING e_subrc.
IF e_subrc NE 0.
EXIT.
ENDIF.
ENDIF.
ENDIF.
LOOP AT itab_zycbt034.
* >> Início da exclusão: FORM EXCLUI_FINANCIAMENTO_ASSOC_FAT
MESSAGE i269 WITH itab_zycbt034-descricao
'FIN'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_FINANCIAMENTO_ASSOC_FAT
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-250
text-251
'FIN'
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
* << Fim da inclusão
v_erro_bi = 'X'.
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
CALL FUNCTION '/PWS/ZYCM_TRANSACAO_F_02A'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = text-050
tabela = text-008
cpochv = /pws/zycbe112-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
* >> Início da exclusão: FORM EXCLUI_FINANCIAMENTO_ASSOC_FAT
MESSAGE i061 WITH text-201 itab_zycbt032-belnr text-202.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_FINANCIAMENTO_ASSOC_FAT
wa_mensagem-tpmsg = c_sucesso.
concatenate text-201
itab_zycbt032-belnr
text-202
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
ELSE.
LOOP AT itab_zycbt032.
* >> Início da exclusão: FORM EXCLUI_FINANCIAMENTO_ASSOC_FAT
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_FINANCIAMENTO_ASSOC_FAT
wa_mensagem-tpmsg = c_erro.
wa_mensagem-msg = itab_zycbt032-msg.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
v_erro_bi = 'X'.
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
* >> Início da exclusão: FORM EXCLUI_FINANCIAMENTO_ASSOC_FAT
MESSAGE i254 WITH itab_zycbt034-descricao
v_codeven.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_FINANCIAMENTO_ASSOC_FAT
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-247
text-248
v_codeven
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
v_erro_bi = 'X'.
ENDLOOP.
ENDIF.
ENDIF.
PERFORM clear_date_batch.
ENDLOOP.
IF v_erro_bi IS INITIAL.
PERFORM executa_f51f_estorno.
ENDIF.
IF v_erro_bi IS INITIAL.
PERFORM exclui_financiamento.
PERFORM exclui_dados_bancarios.
* >> Início da inclusão: FORM EXCLUI_FINANCIAMENTO_ASSOC_FAT
IF NOT itab_mensagem IS INITIAL.
v_nome_programa = 'Financiamento de Importação'(253).
EXPORT v_nome_programa TO MEMORY ID 'NOME_PROGRAMA'.
EXPORT itab_mensagem TO MEMORY ID 'ITAB_MENSAGEM'.
SUBMIT /PWS/ZYCBR148.
REFRESH itab_mensagem.
ENDIF.
* << Fim da inclusão
LEAVE TO SCREEN 0.
ENDIF.
ENDFORM.
FORM get_parameters_112_estorno.
CONCATENATE text-019 /pws/zycbe112-codint INTO v_codeven.
CLEAR wa_zycbt007.
SELECT SINGLE * FROM /pws/zycbt007
INTO wa_zycbt007
WHERE bukrs EQ /pws/zycbe112-bukrs.
REFRESH itab_zyglt321.
...
...
IF sy-subrc EQ 0.
READ TABLE itab_zyglt316 INDEX 1.
itab_zycbe033-d_newko = itab_zyglt316-konth.
ENDIF.
PERFORM verify_null_field USING itab_zycbe033-d_newko
'D_NEWKO'
text-017.
ENDFORM.
FORM executa_f51f_estorno.
DATA: v_taxacambial LIKE /pws/zycbt112-kursf,
* >> Início da inclusão: FORM EXECUTA_F51F_ESTORNO
wa_mensagem LIKE LINE OF itab_mensagem,
* << Fim da inclusão
v_codeven LIKE /pws/zycbt011-codeven.
PERFORM clear_date_batch.
PERFORM get_parameters_f_51_estorno.
CLEAR itab_zycbt036.
REFRESH itab_zycbt036.
itab_zycbt036-tcode = text-083.
itab_zycbt036-tabela = text-008.
itab_zycbt036-cpochv = /pws/zycbe112-nrseq.
itab_zycbt036-belnr = /pws/zycbe112-belnr_as.
SELECT SINGLE budat awkey FROM bkpf
...
...
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
USING okcode
CHANGING e_subrc.
IF e_subrc NE 0.
EXIT.
ENDIF.
ENDIF.
ENDIF.
LOOP AT itab_zycbt034.
* >> Início da exclusão: FORM EXECUTA_F51F_ESTORNO
MESSAGE i016(/pws/zycmm) WITH itab_zycbt034-descricao.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51F_ESTORNO
wa_mensagem-tpmsg = 'E'.
CONCATENATE text-246
itab_zycbt034-descricao
text-247
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem TO itab_mensagem.
* << Fim da inclusão
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
CALL FUNCTION '/PWS/ZYCM_TRANSACAO_F_51F'
EXPORTING
v_modo = v_modo_bi
v_conta_lp = v_conta_lp
v_conta_cp = v_conta_cp
v_conta_sp = v_conta_sp
TABLES
t_dados = itab_zycbe033
...
...
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-51'
tabela = text-008
cpochv = /pws/zycbe112-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
* >> Início da exclusão: FORM EXECUTA_F51F_ESTORNO
MESSAGE i061 WITH text-201 itab_zycbt032-belnr text-202.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51F_ESTORNO
wa_mensagem-tpmsg = c_sucesso.
concatenate text-201
itab_zycbt032-belnr
text-202
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
ELSE.
LOOP AT itab_zycbt032.
* >> Início da exclusão: FORM EXECUTA_F51F_ESTORNO
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51F_ESTORNO
wa_mensagem-tpmsg = c_erro.
wa_mensagem-msg = itab_zycbt032-msg.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
v_erro_bi = 'X'.
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
* >> Início da exclusão: FORM EXECUTA_F51F_ESTORNO
MESSAGE i254 WITH itab_zycbt034-descricao
v_codeven.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51F_ESTORNO
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-247
text-248
v_codeven
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
v_erro_bi = 'X'.
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
* >> Início da exclusão: FORM EXECUTA_F51F_ESTORNO
MESSAGE i254 WITH itab_zycbt034-descricao
v_codeven.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51F_ESTORNO
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-247
text-248
v_codeven
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem to itab_mensagem.
* << Fim da inclusão
v_erro_bi = 'X'.
ENDLOOP.
ENDIF.
ENDIF.
ENDFORM.
FORM get_parameters_f_51_estorno.
CLEAR: v_conta_lp, v_conta_cp, v_conta_sp.
CONCATENATE text-019 /pws/zycbe112-codint INTO v_codeven.
CLEAR wa_zycbt007.
SELECT SINGLE * FROM /pws/zycbt007
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM101I01
...
/pws/zycbe112-slassoc < wa_zycbt112-vlme.
MESSAGE i015 WITH text-199 text-200.
ELSEIF NOT /pws/zycbe112-dtassoc IS INITIAL AND
/pws/zycbe112-slassoc EQ wa_zycbt112-vlme.
PERFORM exclui_financiamento_assoc_fat.
ELSE.
PERFORM delete_zycbt112.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE USER_COMMAND_0100
IF NOT itab_mensagem IS INITIAL.
v_nome_programa = 'Financiamento de Importação'(253).
EXPORT v_nome_programa TO MEMORY ID 'NOME_PROGRAMA'.
EXPORT itab_mensagem TO MEMORY ID 'ITAB_MENSAGEM'.
SUBMIT /PWS/ZYCBR148.
REFRESH itab_mensagem.
ENDIF.
* << Fim da inclusão
WHEN 'ENTE'.
PERFORM calcula_comissao.
WHEN 'MODO'.
PERFORM modo_batch_input.
WHEN 'AEND'.
PERFORM exibir_modificar.
WHEN 'BACK'.
PERFORM texto_informativo.
IF v_obrig EQ 'X' AND
/pws/zycbe112-txtinf IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCM101
INCLUDE /pws/mzycm101top.
* >> Início da inclusão:
INCLUDE /pws/zycbr148x01.
* << Fim da inclusão
INCLUDE /pws/mzycm101x01.
INCLUDE /pws/mzycm101o01.
INCLUDE /pws/mzycm101i01.
INCLUDE /pws/mzycm101f01.
INCLUDE /pws/mzycm101h01.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR148
* >> Início da inclusão: Simbolos de texto
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 001
Texto: (29 caracteres)
"Relatório de Contabilizações:"
Comprimento máximo: 29
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 002
Texto: (22 caracteres)
"Lançamentos Efetuados:"
Comprimento máximo: 22
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 003
Texto: (18 caracteres)
"Erros encontrados:"
Comprimento máximo: 18
* << Fim da inclusão
* >> Início da inclusão:
*-----------------------------------------------------------------------
* PROCWORK Software
* Produto: ASPEN CE
* Módulo: Pw.CE
* Descrição: CB - Relatório de Mensagens
* Help Desk: 11-5504-0270
*-----------------------------------------------------------------------
* ESTE PROGRAMA NÃO DEVE SER ALTERADO SEM PRÉVIA CONSULTA
*-----------------------------------------------------------------------
* Nome Data Descrição
* Andre Dobashi 13.09.2007 Codificação Inicial
*-----------------------------------------------------------------------
* Chamado Data Descrição
*-----------------------------------------------------------------------
*-----------------------------------------------------------------------
REPORT /pws/zycbr148 MESSAGE-ID /pws/zycbm
NO STANDARD PAGE HEADING.
INCLUDE /pws/zycbr148x01.
DATA:
wa_mensagem LIKE LINE OF itab_mensagem.
*-----------------------------------------------------------------------
* Tabelas
*-----------------------------------------------------------------------
*-----------------------------------------------------------------------
* Tabelas internas
*-----------------------------------------------------------------------
*-----------------------------------------------------------------------
* Variáveis
*-----------------------------------------------------------------------
*-----------------------------------------------------------------------
* Processamento
*-----------------------------------------------------------------------
TOP-OF-PAGE.
END-OF-PAGE.
START-OF-SELECTION.
IMPORT v_nome_programa FROM MEMORY ID 'NOME_PROGRAMA'.
EXPORT space TO MEMORY ID 'NOME_PROGRAMA'.
IMPORT itab_mensagem FROM MEMORY ID 'ITAB_MENSAGEM'.
EXPORT space TO MEMORY ID 'ITAB_MENSAGEM'.
PERFORM imprime_relatorio USING itab_mensagem.
END-OF-SELECTION.
*---------------------------------------------------------------------*
* FORM imprime_relatorio *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
* --> P_MENSAGEM *
*---------------------------------------------------------------------*
FORM imprime_relatorio
USING p_mensagem TYPE t_t_mensagem.
WRITE: 'Relatório de Contabilizações:'(001), v_nome_programa.
WRITE: sy-uline.
READ TABLE p_mensagem WITH KEY tpmsg = c_sucesso
TRANSPORTING NO FIELDS.
IF sy-subrc EQ 0.
WRITE: / '-',
'Lançamentos Efetuados:'(002).
LOOP AT p_mensagem INTO wa_mensagem
WHERE tpmsg = c_sucesso.
WRITE: / ' ',
wa_mensagem-msg.
ENDLOOP.
ENDIF.
READ TABLE p_mensagem WITH KEY tpmsg = c_erro
TRANSPORTING NO FIELDS.
IF sy-subrc EQ 0.
WRITE: / '-',
'Erros encontrados:'(003).
LOOP AT p_mensagem INTO wa_mensagem
WHERE tpmsg = c_erro.
WRITE: / ' ',
wa_mensagem-msg.
ENDLOOP.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR148X01
* >> Início da inclusão:
*-----------------------------------------------------------------------
* PROCWORK Software
* Produto: ASPEN CE
* Módulo: Pw.CE
* Descrição: CB - Include com os dados utilizados no relatório.
* Help Desk: 11-5504-0270
*-----------------------------------------------------------------------
* ESTE PROGRAMA NÃO DEVE SER ALTERADO SEM PRÉVIA CONSULTA
*-----------------------------------------------------------------------
* Nome Data Descrição
* Andre Dobashi 13.09.2007 Codificação Inicial
*-----------------------------------------------------------------------
* Chamado Data Descrição
*-----------------------------------------------------------------------
*-----------------------------------------------------------------------
*----------------------------------------------------------------------*
* INCLUDE /PWS/ZYCBR148X01 *
*----------------------------------------------------------------------*
CONSTANTS:
c_erro TYPE /pws/zycbt032-tpmsg VALUE 'E',
c_sucesso TYPE /pws/zycbt032-tpmsg VALUE 'S'.
TYPES:
BEGIN OF t_mensagem,
tpmsg TYPE /pws/zycbt032-tpmsg,
msg TYPE /pws/zycbt032-msg,
END OF t_mensagem,
t_t_mensagem TYPE STANDARD TABLE OF t_mensagem
WITH NON-UNIQUE DEFAULT KEY.
DATA:
itab_mensagem TYPE t_t_mensagem,
v_nome_programa TYPE /pws/zycbt032-msg.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCM101
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 246
Texto: (5 caracteres)
"Campo"
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 247
Texto: (19 caracteres)
"não está preenchido"
Comprimento máximo: 19
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 248
Texto: (9 caracteres)
"no evento"
Comprimento máximo: 9
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 249
Texto: (32 caracteres)
"! Lançamento não será realizado."
Comprimento máximo: 32
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 250
Texto: (15 caracteres)
"não encontrado."
Comprimento máximo: 15
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 251
Texto: (14 caracteres)
"Chave Operação"
Comprimento máximo: 14
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 252
Texto: (15 caracteres)
"foi compensado."
Comprimento máximo: 15
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 253
Texto: (27 caracteres)
"Financiamento de Importação"
Comprimento máximo: 27