CE PLUS - Nota 008303
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Contrato
Data/Hora da Publicação: 15/04/2009 00:00:00
Data/Hora Última Alteração: 18/02/2011 16:58:35
Descrição da Nota: AJUSTE LIQUIDAÇÃO, CAPTAÇÃO, HISTÓRICO CONTÁBIL, PAGAMENTO DE JUROS
Sintoma
Na liquidação, a fatura foi liquidada em 3 datas diferentes de pagto do exterior.
Os cálculos dos juros foram calculados, conf. tabela 004, porem com o mesmo numero de parcela de
juros. Como consequencia, o programa permite apenas o pagto de umas das parcelas gravadas, devido
estarem com o mesmo número da parcela de juros. O programa de pagto de
juros olha a tabela 044, como nao existe o campo DTPAGEXT para diferenciar os juros, o programa acha
que os juros seguintes estão pagos.
Solução
Ajuste tela de Liquidação, Captação, Histórico Contábil e tela de Pagamento de Juros.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08303 Data: 15/04/2009 Hora: 10:54:40
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08303
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00094
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02462 - 00001 - 6.0 - 00025 - PAGAMENTO DE JUROS - MATCHCODE
06005 - 00002 - 7.0 - 00004 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
06037 - 00003 - 7.0 - 00004 - CB - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
07819 - 00004 - 7.0 - 00008 - FLEXIBILIZAR AS CONTAS DE BANCO NO PROGRAMA DE PAGAMENTO DE JUROS
08164 - 00005 - 7.0 - 00008 - DA - DATA CREDITO NO EXTERIOR NA VINCULAÇÃO- PRÉ-PAGAMENTO SECURI
----------------------------------------------------------------------------------------------------
AJUSTE LIQUIDAÇÃO, CAPTAÇÃO, HISTÓRICO CONTÁBIL, PAGAMENTO DE JUROS
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO, CAPTAÇÃO, HISTÓRICO CONTÁBIL, PAGAMENTO DE JUROS
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCB012 0100
FUNC /PWS/ZYCB_TRANSACAO_F_30_W
REPS /PWS/MZYCB004F01
REPS /PWS/MZYCB004F02
REPS /PWS/MZYCB004F03
REPS /PWS/MZYCB012F01
REPS /PWS/MZYCB012I01
REPS /PWS/ZZYCBGF3U02
SHLD /PWS/ZYCBA016
TABD /PWS/ZYCBE044
TABD /PWS/ZYCBT044
VIED /PWS/ZYCBV044
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB012 0100
***********************************************************************************
* *
* ATENÇÃO.: SOLICITAR ARQUIVO DA TELA /PWS/SAPMZYCB012 - 0100 PARA O PRODUTO *
* (11) 5504 - 0170. *
* O ARQUIVO DA TELA 8303_sapmzycb012_Tela_0100.txt TAMBEM ESTA ANEXADO *
* NO CHAMADO *
* *
***********************************************************************************
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_30_W
...
cpochv LIKE /pws/zycbe033-cpochv,
tcode LIKE /pws/zycbe033-tcode,
agkoa LIKE /pws/zycbe033-agkoa,
agkon LIKE /pws/zycbe033-agkon,
agums LIKE /pws/zycbe033-agums,
shkzg LIKE /pws/zycbe033-shkzg,
END OF itab_parts.
DATA: itab_t041t LIKE t041t OCCURS 0 WITH HEADER LINE.
DATA: wa_zycbt089 LIKE /pws/zycbt089.
data: v_n_budat type /pws/zycbt006-dtpagto.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W
DATA: v_intercompany TYPE c.
* << Fim da inclusão
WRITE:
c_vl_min TO v_vl_min,
c_vl_max TO v_vl_max.
SELECT SINGLE selps FROM t021r
INTO v_xpos1
WHERE event = 'SL-AG'
AND feldn = 'BELNR'.
ADD 1 TO v_xpos1.
SHIFT v_xpos1 LEFT DELETING LEADING '0'.
CONCATENATE 'RF05A-XPOS1(' v_xpos1 ')' INTO v_xpos.
...
...
v_tela = '0301'.
ELSE.
PERFORM define_tela2 USING itab_parts-tcode
t_dados-bukrs
itab_parts-agkoa
CHANGING itab_parts-agums
v_tela.
ENDIF.
IF v_emp_p <> t_dados-bukrs.
AT FIRST.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W
IF v_intercompany IS INITIAL.
* << Fim da inclusão
PERFORM verifica_empresas USING t_dados-bukrs
'UMBUCHNG'
t_dados-agkon
'D'.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W
ENDIF.
v_intercompany = 'X'.
* << Fim da inclusão
ENDAT.
ENDIF.
...
...
t_campo
itab_oculto
USING v_string_debito.
ENDIF.
ADD 1 TO v_linhas.
IF v_agkoa IS INITIAL.
MOVE: itab_parts-agkoa TO v_agkoa,
itab_parts-agkon TO v_agkon_emp.
ENDIF.
AT FIRST.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W
IF v_intercompany IS INITIAL.
* << Fim da inclusão
PERFORM verifica_empresas USING t_dados-bukrs
'UMBUCHNG'
v_agkon_emp
v_agkoa.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W
ENDIF.
v_intercompany = 'X'.
* << Fim da inclusão
ENDAT.
PERFORM bdc_screen USING 'SAPMF05A' '0700'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
and nrparc = itab_zycbt006-nrparc
and dtincl = itab_zycbt006-dtincl
and nrinvoic = itab_zycbt006-nrinvoic
and nrparcf = itab_zycbt006-nrparcf
and gsberf = itab_zycbt006-gsberf
and dtvincul = itab_zycbt006-dtvincul
and dtvencto = itab_zycbt006-dtvencto.
endif.
endloop.
modify /pws/zycbt005 from table itab_zycbt005.
* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES
itab_zycbt005-dtpagext = /pws/zycbe006-dtpagext.
MODIFY itab_zycbt005 TRANSPORTING dtpagext
WHERE nrseqc = /pws/zycbe001-nrseqc.
* << Fim da inclusão
call customer-function '002'
importing
v_subrc = v_subrc.
loop at itab_zycbt006.
itab_zycbt006-vljur_acc = itab_zycbt006-vljur_acc *
( 10 ** ( tcurx-currdec - 2 ) ).
itab_zycbt006-vljur_ace = itab_zycbt006-vljur_ace *
( 10 ** ( tcurx-currdec - 2 ) ).
itab_zycbt006-vljur = itab_zycbt006-vljur *
( 10 ** ( tcurx-currdec - 2 ) ).
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
and nrparc = itab_zycbt006-nrparc
and dtincl = itab_zycbt006-dtincl
and nrinvoic = itab_zycbt006-nrinvoic
and nrparcf = itab_zycbt006-nrparcf
and gsberf = itab_zycbt006-gsberf
and dtvincul = itab_zycbt006-dtvincul
and dtvencto = itab_zycbt006-dtvencto.
endif.
endloop.
modify /pws/zycbt005 from table itab_zycbt005.
* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2
itab_zycbt005-dtpagext = /pws/zycbe006-dtpagext.
MODIFY itab_zycbt005 TRANSPORTING dtpagext
WHERE nrseqc = /pws/zycbe001-nrseqc.
* << Fim da inclusão
modify /pws/zycbt074 from table itab_zycbt074.
modify /pws/zycbt231 from table itab_zycbt231.
call customer-function '002'
importing
v_subrc = v_subrc.
loop at itab_zycbt006.
read table itab_zycbt005 with key
nrseqc = itab_zycbt006-nrseqc
nrinvoic = itab_zycbt006-nrinvoic
dtvincul = itab_zycbt006-dtvincul
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F03
...
and nrparc = itab_zycbt006-nrparc
and dtincl = itab_zycbt006-dtincl
and nrinvoic = itab_zycbt006-nrinvoic
and nrparcf = itab_zycbt006-nrparcf
and gsberf = itab_zycbt006-gsberf
and dtvincul = itab_zycbt006-dtvincul
and dtvencto = itab_zycbt006-dtvencto.
endif.
endloop.
modify /pws/zycbt005 from table itab_zycbt005.
* >> Início da inclusão: FORM CONSISTE_SALDOS_ERRO
itab_zycbt005-dtpagext = /pws/zycbe006-dtpagext.
MODIFY itab_zycbt005 TRANSPORTING dtpagext
WHERE nrseqc = /pws/zycbe001-nrseqc.
* << Fim da inclusão
modify /pws/zycbt001 from /pws/zycbe001.
endform.
form oculta_deduz_juros.
if /pws/zycbt005-dtpagext is initial.
select dtpagext
up to 1 rows
from /pws/zycbt005
into /pws/zycbt005-dtpagext
where nrseqc = /pws/zycbe001-nrseqc.
endselect.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB012F01
...
/pws/zycbe044-waers TO itab_zycbt044-waers,
/pws/zycbe044-vlme TO itab_zycbt044-vlme,
/pws/zycbe044-nrcontr TO itab_zycbt044-nrcontr,
/pws/zycbe044-nrinvoic TO itab_zycbt044-nrinvoic,
/pws/zycbe044-nrparcf TO itab_zycbt044-nrparcf,
/pws/zycbe044-bconegoc TO itab_zycbt044-bconegoc,
/pws/zycbe044-bukrs TO itab_zycbt044-bukrs,
/pws/zycbe044-dtliquid TO itab_zycbt044-dtliquid,
/pws/zycbe044-gsberf TO itab_zycbt044-gsberf,
/pws/zycbe044-vlmi TO itab_zycbt044-vlmi,
* >> Início da exclusão: FORM ALTERA_ITAB_ZYCBT044
/pws/zycbe044-tpjuros TO itab_zycbt044-tpjuros.
* << Fim da exclusão
* >> Início da inclusão: FORM ALTERA_ITAB_ZYCBT044
/pws/zycbe044-tpjuros to itab_zycbt044-tpjuros,
/pws/zycbe044-dtpagext to itab_zycbt044-dtpagext.
* << Fim da inclusão
IF tc_juros-current_line = 1.
v_bconegoc = /pws/zycbe044-bconegoc.
ELSE.
IF v_bconegoc <> /pws/zycbe044-bconegoc.
IF NOT /pws/zycbe044-bconegoc IS INITIAL.
v_bco_dif = 'X'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
...
...
REFRESH itab_zycbt044_verif.
SELECT * FROM /pws/zycbt044
INTO TABLE itab_zycbt044_verif
FOR ALL ENTRIES IN itab_zycbt044
WHERE nrpagto <> itab_zycbt044-nrpagto
AND nrseqc = itab_zycbt044-nrseqc
AND tpdesp = itab_zycbt044-tpdesp
AND nrparc = itab_zycbt044-nrparc
AND tpjuros = itab_zycbt044-tpjuros
AND dtincl = itab_zycbt044-dtincl
* >> Início da exclusão: FORM GRAVA_TABELAS
AND dtliquid = itab_zycbt044-dtliquid. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
and dtliquid = itab_zycbt044-dtliquid "#EC CI_NOFIRST
and dtpagext = itab_zycbt044-dtpagext.
* << Fim da inclusão
IF sy-subrc EQ 0.
LOOP AT itab_zycbt044_verif.
SELECT * FROM /pws/zycbt004
UP TO 1 ROWS
WHERE nrseqc EQ itab_zycbt044_verif-nrseqc
AND tpdesp EQ itab_zycbt044_verif-tpdesp
AND nrparc EQ itab_zycbt044_verif-nrparc
AND tpjuros EQ itab_zycbt044_verif-tpjuros
AND dtincl EQ itab_zycbt044-dtincl
* >> Início da exclusão: FORM GRAVA_TABELAS
AND dtliquid EQ itab_zycbt044-dtliquid.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
and dtliquid eq itab_zycbt044-dtliquid
and dtpagext eq itab_zycbt044-dtpagext.
* << Fim da inclusão
ENDSELECT.
IF sy-subrc EQ 0.
IF /pws/zycbt004-dtpagto EQ space OR
/pws/zycbt004-dtpagto EQ '00000000'.
MESSAGE i061 WITH text-140 itab_zycbt044_verif-nrseqc
text-141.
ELSE.
MESSAGE i061 WITH text-140 itab_zycbt044_verif-nrseqc
text-142.
ENDIF.
...
...
CHANGING wa_log.
SELECT *
FROM /pws/zycbt044
UP TO 1 ROWS
INTO wa_zycbt044_log
WHERE nrpagto = itab_zycbt044-nrpagto
AND nrseqc = itab_zycbt044-nrseqc
AND tpdesp = itab_zycbt044-tpdesp
AND nrparc = itab_zycbt044-nrparc
AND dtincl = itab_zycbt044-dtincl
* >> Início da exclusão: FORM GRAVA_TABELAS
AND dtliquid = itab_zycbt044-dtliquid.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
and dtliquid = itab_zycbt044-dtliquid
and dtpagext = itab_zycbt044-dtpagext.
* << Fim da inclusão
ENDSELECT.
IF sy-subrc EQ 0.
PERFORM grava_log USING '/PWS/ZYCBT044'
wa_log
'A'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT044'
wa_log
'C'.
ENDIF.
...
...
SELECT *
FROM /pws/zycbt044
INTO wa_zycbt044_log
WHERE tpdesp = itab_zycbt044_del-tpdesp
AND nrparc = itab_zycbt044_del-nrparc
AND dtvencto = itab_zycbt044_del-dtvencto
AND waers = itab_zycbt044_del-waers
AND vlme = itab_zycbt044_del-vlme
AND nrcontr = itab_zycbt044_del-nrcontr
AND nrinvoic = itab_zycbt044_del-nrinvoic
* >> Início da exclusão: FORM GRAVA_TABELAS
AND dtliquid = itab_zycbt044_del-dtliquid. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
and dtliquid = itab_zycbt044_del-dtliquid "#EC CI_NOFIRST
and dtpagext = itab_zycbt044_del-dtpagext.
* << Fim da inclusão
PERFORM monta_log_cfm USING wa_zycbt044_log
'/PWS/ZYCBT044'
CHANGING wa_log.
PERFORM grava_log USING '/PWS/ZYCBT044'
wa_log
'E'.
ENDSELECT.
ENDIF.
DELETE FROM /pws/zycbt044
WHERE tpdesp = itab_zycbt044_del-tpdesp
AND nrparc = itab_zycbt044_del-nrparc
AND dtvencto = itab_zycbt044_del-dtvencto
AND waers = itab_zycbt044_del-waers
AND vlme = itab_zycbt044_del-vlme
AND nrcontr = itab_zycbt044_del-nrcontr
AND nrinvoic = itab_zycbt044_del-nrinvoic
AND nrparcf = itab_zycbt044_del-nrparcf
AND dtliquid = itab_zycbt044_del-dtliquid
* >> Início da exclusão: FORM GRAVA_TABELAS
AND tpjuros = itab_zycbt044_del-tpjuros. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
and tpjuros = itab_zycbt044_del-tpjuros "#EC CI_NOFIRST
and dtpagext = itab_zycbt044_del-dtpagext.
* << Fim da inclusão
DELETE itab_zycbt044_del.
CLEAR itab_zycbt044_del.
ENDLOOP.
MOVE itab_zycbt044[] TO itab_zycbt044_aux[].
MESSAGE s205. "#EC *
SET PARAMETER ID '/PWS/ZYCBP001' FIELD /pws/zycbe043-nrpagto.
LEAVE TO TRANSACTION '/PWS/ZYCB012_E' AND SKIP FIRST SCREEN.
ENDFORM.
FORM exibe_modifca.
AUTHORITY-CHECK OBJECT 'S_TCODE'
...
...
CLEAR wa_zycbt044_log.
SELECT *
FROM /pws/zycbt044
UP TO 1 ROWS
INTO wa_zycbt044_log
WHERE nrpagto = itab_zycbt044-nrpagto
AND nrseqc = itab_zycbt044-nrseqc
AND tpdesp = itab_zycbt044-tpdesp
AND nrparc = itab_zycbt044-nrparc
AND dtincl = itab_zycbt044-dtincl
* >> Início da exclusão: FORM FILL_DATE_F-02
AND dtliquid = itab_zycbt044-dtliquid.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-02
and dtliquid = itab_zycbt044-dtliquid
and dtpagext = itab_zycbt044-dtpagext.
* << Fim da inclusão
ENDSELECT.
IF sy-subrc EQ 0.
PERFORM grava_log USING '/PWS/ZYCBT044'
wa_log
'A'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT044'
wa_log
'C'.
ENDIF.
...
...
ENDIF.
ELSE.
READ TABLE itab_zyglt316 INDEX 1.
MOVE itab_zyglt316-konts TO itab_zycbe033-d_newko1.
itab_contas-conta = itab_zycbe033-d_newko1.
APPEND itab_contas.
ENDIF.
PERFORM verify_null_field USING itab_zycbe033-d_newko1
'NEWKO'
text-016.
* >> Início da inclusão: FORM GET_PARAMETERS_F-02
else.
* << Fim da inclusão
MOVE v_contrazao TO itab_zycbe033-d_newko1.
itab_contas-conta = v_contrazao.
APPEND itab_contas.
ENDIF.
ELSEIF /pws/zycbt004-tpcontr = 'E'.
IF wa_zycbt007-fprovisao = ' '.
v_ktosl = 'DSE'.
CLEAR v_codaux1.
IF /pws/zyglt009-provjur_moeda = 'X' AND
/pws/zycbt004-waers = wa_zycbt007-waersa.
...
...
itab_zycbt032.
CLEAR itab_zycbt034.
ENDFORM.
FORM seleciona_dados_despesa.
SELECT * FROM /pws/zycbt004
INTO TABLE itab_zycbt004
WHERE nrseqc EQ itab_zycbt044-nrseqc
AND tpdesp EQ itab_zycbt044-tpdesp
AND nrparc EQ itab_zycbt044-nrparc
AND dtliquid EQ itab_zycbt044-dtliquid
* >> Início da exclusão: FORM SELECIONA_DADOS_DESPESA
AND tpjuros EQ itab_zycbt044-tpjuros.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_DESPESA
and tpjuros eq itab_zycbt044-tpjuros
and dtpagext eq itab_zycbt044-dtpagext.
* << Fim da inclusão
ENDFORM.
FORM atualiza_dados.
CLEAR: v_valorjme, v_valordme, v_vlme.
PERFORM atualiza_zycbt044.
LOOP AT itab_zycbt044.
IF itab_zycbt044-tpdesp EQ 'J' OR itab_zycbt044-tpdesp EQ 'D'.
v_valorjme = v_valorjme + itab_zycbt044-vlme.
ELSE.
v_valordme = v_valordme + itab_zycbt044-vlme.
ENDIF.
...
...
CLEAR wa_zycbt044_log.
SELECT *
FROM /pws/zycbt044
UP TO 1 ROWS
INTO wa_zycbt044_log
WHERE nrpagto = itab_zycbt044-nrpagto
AND nrseqc = itab_zycbt044-nrseqc
AND tpdesp = itab_zycbt044-tpdesp
AND nrparc = itab_zycbt044-nrparc
AND dtincl = itab_zycbt044-dtincl
* >> Início da exclusão: FORM REVERSE_DOCUMENT_FB08
AND dtliquid = itab_zycbt044-dtliquid.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_FB08
and dtliquid = itab_zycbt044-dtliquid
and dtpagext = itab_zycbt044-dtpagext.
* << Fim da inclusão
ENDSELECT.
PERFORM monta_log_cfm USING wa_zycbt044_log
'/PWS/ZYCBT044'
CHANGING wa_log.
PERFORM grava_log USING '/PWS/ZYCBT044'
wa_log
'A'.
ENDLOOP.
ENDIF.
MODIFY /pws/zycbt044 FROM TABLE itab_zycbt044.
...
...
IF itab_zycbt044-vlme IS INITIAL.
SELECT vlme
FROM /pws/zycbt004
UP TO 1 ROWS
INTO (v_vlme)
WHERE nrseqc = itab_zycbt044-nrseqc AND
tpdesp = itab_zycbt044-tpdesp AND
nrparc = itab_zycbt044-nrparc AND
dtincl = itab_zycbt044-dtincl AND
dtliquid = itab_zycbt044-dtliquid AND
* >> Início da exclusão: FORM ATUALIZA_ZYCBT044
tpjuros = itab_zycbt044-tpjuros.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_ZYCBT044
tpjuros = itab_zycbt044-tpjuros and
dtpagext = itab_zycbt044-dtpagext.
* << Fim da inclusão
ENDSELECT.
IF NOT /pws/zycbe043-kursf IS INITIAL.
itab_zycbt044-vlmi = v_vlme * /pws/zycbe043-kursf.
ENDIF.
MOVE v_vlme TO itab_zycbt044-vlme.
MODIFY itab_zycbt044.
CLEAR v_vlme.
ENDIF.
ENDLOOP.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB012I01
MODULE altera_itab_zycbt044 INPUT.
IF NOT /pws/zycbe044-bukrs IS INITIAL.
READ TABLE itab_zycbt044_aux
WITH KEY nrseqc = /pws/zycbe044-nrseqc
tpdesp = /pws/zycbe044-tpdesp
nrparc = /pws/zycbe044-nrparc
dtincl = /pws/zycbe044-dtincl
dtliquid = /pws/zycbe044-dtliquid
* >> Início da exclusão: MODULE ALTERA_ITAB_ZYCBT044
tpjuros = /pws/zycbe044-tpjuros.
* << Fim da exclusão
* >> Início da inclusão: MODULE ALTERA_ITAB_ZYCBT044
tpjuros = /pws/zycbe044-tpjuros
dtpagext = /pws/zycbe044-dtpagext.
* << Fim da inclusão
IF sy-subrc EQ 0.
MESSAGE w061 WITH text-108 /pws/zycbe044-nrparc
text-109 /pws/zycbe044-nrseqc.
v_parjur = 'X'.
EXIT.
ELSE.
PERFORM altera_itab_zycbt044.
CLEAR itab_zycbt044_aux.
MOVE itab_zycbt044 TO itab_zycbt044_aux.
APPEND itab_zycbt044_aux.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZZYCBGF3U02
TABLES: /pws/zycbt064, /pws/zycbt004, /pws/zycbt006, /pws/zycbt044.
"#EC *
DATA: BEGIN OF itab_valores OCCURS 0,
nrseqc TYPE /pws/zycbt004-nrseqc,
tpdesp TYPE /pws/zycbt004-tpdesp,
nrparc TYPE /pws/zycbt004-nrparc,
* >> Início da exclusão:
tpjuros TYPE /pws/zycbt004-tpjuros,
bukrs TYPE /pws/zycbt004-bukrs,
* << Fim da exclusão
* >> Início da inclusão:
dtpagext type /pws/zycbt004-dtpagext,
* << Fim da inclusão
dtvencto TYPE /pws/zycbt004-dtvencto,
* >> Início da exclusão:
waers TYPE /pws/zycbt004-waers,
vlme TYPE /pws/zycbt004-vlme,
nrcontr TYPE /pws/zycbt004-nrcontr,
* << Fim da exclusão
nrinvoic TYPE /pws/zycbt005-nrinvoic,
nrparcf TYPE /pws/zycbt005-nrparcf,
bconegoc TYPE /pws/zycbt005-bconegoc,
* >> Início da inclusão:
nrcontr type /pws/zycbt004-nrcontr,
* << Fim da inclusão
dtincl TYPE /pws/zycbt004-dtincl,
* >> Início da inclusão:
bukrs type /pws/zycbt004-bukrs,
* << Fim da inclusão
dtliquid TYPE /pws/zycbt004-dtliquid,
gsberf TYPE /pws/zycbt004-gsberf,
* >> Início da inclusão:
tpjuros type /pws/zycbt004-tpjuros,
vlme type /pws/zycbt004-vlme,
waers type /pws/zycbt004-waers,
* << Fim da inclusão
vlir TYPE /pws/zycbt004-vlir,
END OF itab_valores.
DATA: v_fieldname TYPE dfies-lfieldname,
v_tabix TYPE sy-tabix.
FIELD-SYMBOLS: <fs_shlp> LIKE LINE OF shlp_tab,
<fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr.
DATA: wa_zycbt005 LIKE /pws/zycbt005.
DATA: v_string LIKE record_tab-string, "#EC *
v_subrc TYPE c.
CHECK callcontrol-step = 'DISP'.
CALL CUSTOMER-FUNCTION '001'
IMPORTING
v_subrc = v_subrc.
CLEAR callcontrol-maxrecords.
READ TABLE shlp_tab INDEX 1 ASSIGNING <fs_shlp>.
CHECK <fs_shlp> IS ASSIGNED.
LOOP AT <fs_shlp>-fielddescr ASSIGNING <fs_fielddescr>.
CHECK: <fs_fielddescr>-fieldname = 'NRSEQC' OR
<fs_fielddescr>-fieldname = 'TPDESP' OR
<fs_fielddescr>-fieldname = 'NRPARC' OR
* >> Início da exclusão:
<fs_fielddescr>-fieldname = 'TPJUROS' OR
<fs_fielddescr>-fieldname = 'BUKRS' OR
* << Fim da exclusão
* >> Início da inclusão:
<fs_fielddescr>-fieldname = 'DTPAGEXT' or
* << Fim da inclusão
<fs_fielddescr>-fieldname = 'DTVENCTO' OR
* >> Início da exclusão:
<fs_fielddescr>-fieldname = 'WAERS' OR
<fs_fielddescr>-fieldname = 'VLME' OR
<fs_fielddescr>-fieldname = 'NRCONTR' OR
* << Fim da exclusão
<fs_fielddescr>-fieldname = 'NRINVOIC' OR
<fs_fielddescr>-fieldname = 'NRPARCF' OR
<fs_fielddescr>-fieldname = 'BCONEGOC' OR
* >> Início da inclusão:
<fs_fielddescr>-fieldname = 'NRCONTR' or
* << Fim da inclusão
<fs_fielddescr>-fieldname = 'DTINCL' OR
* >> Início da inclusão:
<fs_fielddescr>-fieldname = 'BUKRS' or
* << Fim da inclusão
<fs_fielddescr>-fieldname = 'DTLIQUID' OR
<fs_fielddescr>-fieldname = 'GSBERF' OR
* >> Início da inclusão:
<fs_fielddescr>-fieldname = 'TPJUROS' or
<fs_fielddescr>-fieldname = 'VLME' or
<fs_fielddescr>-fieldname = 'WAERS' or
* << Fim da inclusão
<fs_fielddescr>-fieldname = 'VLIR'.
v_fieldname = <fs_fielddescr>-fieldname.
CALL FUNCTION 'F4UT_PARAMETER_VALUE_GET'
EXPORTING
parameter = <fs_fielddescr>-fieldname
fieldname = v_fieldname
TABLES
shlp_tab = shlp_tab
record_tab = record_tab
results_tab = itab_valores
...
...
ENDIF.
LOOP AT itab_valores.
v_tabix = sy-tabix.
SELECT * FROM /pws/zycbt044
UP TO 1 ROWS
WHERE nrseqc EQ itab_valores-nrseqc
AND tpdesp EQ itab_valores-tpdesp
AND nrparc EQ itab_valores-nrparc
AND dtincl EQ itab_valores-dtincl
AND dtliquid EQ itab_valores-dtliquid
* >> Início da exclusão:
AND tpjuros EQ itab_valores-tpjuros. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão:
and tpjuros eq itab_valores-tpjuros "#EC CI_NOFIRST
and dtpagext eq itab_valores-dtpagext.
* << Fim da inclusão
ENDSELECT.
IF sy-subrc EQ 0.
DELETE itab_valores INDEX v_tabix.
DELETE record_tab INDEX v_tabix.
CONTINUE.
ENDIF.
SELECT tpcontr vlir FROM /pws/zycbt004
INTO (/pws/zycbt004-tpcontr, /pws/zycbt004-vlir)
UP TO 1 ROWS
WHERE nrseqc EQ itab_valores-nrseqc
AND tpdesp EQ itab_valores-tpdesp
AND nrparc EQ itab_valores-nrparc
AND dtincl EQ itab_valores-dtincl
* >> Início da exclusão:
AND dtliquid EQ itab_valores-dtliquid.
* << Fim da exclusão
* >> Início da inclusão:
and dtliquid eq itab_valores-dtliquid
and dtpagext eq itab_valores-dtpagext.
* << Fim da inclusão
ENDSELECT.
IF sy-subrc EQ 0 AND
NOT /pws/zycbt004-vlir IS INITIAL AND
/pws/zycbt004-tpcontr(1) EQ 'D'.
DELETE itab_valores INDEX v_tabix.
DELETE record_tab INDEX v_tabix.
CONTINUE.
ENDIF.
SELECT * FROM /pws/zycbt064
UP TO 1 ROWS
...
...
ENDIF.
LOOP AT itab_valores.
v_tabix = sy-tabix.
SELECT * FROM /pws/zycbt044
UP TO 1 ROWS
WHERE nrseqc EQ itab_valores-nrseqc
AND tpdesp EQ itab_valores-tpdesp
AND nrparc EQ itab_valores-nrparc
AND dtincl EQ itab_valores-dtincl
AND dtliquid EQ itab_valores-dtliquid
* >> Início da exclusão:
AND tpjuros EQ itab_valores-tpjuros. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão:
and tpjuros eq itab_valores-tpjuros "#EC CI_NOFIRST
and dtpagext eq itab_valores-dtpagext.
* << Fim da inclusão
ENDSELECT.
IF sy-subrc EQ 0.
DELETE itab_valores INDEX v_tabix.
DELETE record_tab INDEX v_tabix.
CONTINUE.
ENDIF.
SELECT tpcontr vlir FROM /pws/zycbt004
INTO (/pws/zycbt004-tpcontr, /pws/zycbt004-vlir)
UP TO 1 ROWS
WHERE nrseqc EQ itab_valores-nrseqc
AND tpdesp EQ itab_valores-tpdesp
AND nrparc EQ itab_valores-nrparc
AND dtincl EQ itab_valores-dtincl
* >> Início da exclusão:
AND dtliquid EQ itab_valores-dtliquid.
* << Fim da exclusão
* >> Início da inclusão:
and dtliquid eq itab_valores-dtliquid
and dtpagext eq itab_valores-dtpagext.
* << Fim da inclusão
ENDSELECT.
IF sy-subrc EQ 0 AND NOT /pws/zycbt004-vlir IS INITIAL AND
/pws/zycbt004-tpcontr(1) EQ 'D'.
DELETE itab_valores INDEX v_tabix.
DELETE record_tab INDEX v_tabix.
CONTINUE.
ENDIF.
SELECT * FROM /pws/zycbt064
UP TO 1 ROWS
WHERE nrchave EQ itab_valores-nrseqc
...
----------------------------------------------------------------------------------------------------
********************
* AJUDA DE PESQUISA*
********************************************
Modificações efetuadas em SHLD /PWS/ZYCBA016
********************************************
MODIFICAR AJUDA DE PESQUISA: /PWS/ZYCBA016
DESCRIÇÃO BREVE: CB - Parcelas de Despesas
DEFINIÇÃO
OBTENÇÃO DE DADOS
MÉTODO DE SELEÇÃO: /PWS/ZYCBV044
COMPORTAMENTO DE DIÁLOGO:
TIPO DE DIÁLOGO: Exibição de valores imediata
HOT KEY: ____
EXIT AJUD. PESQUISA: /PWS/EXIT_ZYCBA016
*****************
PARÂMETROS NOVOS:
*****************
PARAM. IMP EXP POSL ISEL EXAJ ELEM. DADOS MOD VALOR PROPOSTO
DTPAGEXT X 4 4 /PWS/ZYCBL289
**********************************
ALTERAÇÃO NA ORDEM DOS PARÂMETROS:
**********************************
PARAM. IMP EXP POSL ISEL EXAJ ELEM. DADOS MOD VALOR PROPOSTO
NRSEQC X 1 1 /PWS/ZYCBL019
TPDESP X 2 2 /PWS/ZYCBL014
NRPARC X 3 3 /PWS/ZYCBL047
DTPAGEXT X 4 4 /PWS/ZYCBL289
DTVENCTO X 5 5 /PWS/ZYCBL034
NRINVOIC X 6 6 /PWS/ZYCBL084
NRPARCF X 7 7 RATNR
BCONEGOC X 8 8 /PWS/ZYCBL021
NRCONTR X 9 9 /PWS/ZYCBL020
DTINCL X 10 10 /PWS/ZYCBL033
BUKRS X 11 11 BUKRS
DTLIQUID X 12 12 /PWS/ZYCBL036
GSBERF X 13 13 GSBER
TPJUROS X 14 14 /PWS/ZYCBL451 X
VLME 15 15 WRBTR
WAERS X 16 16 WAERS
----------------------------------------------------------------------------------------------------
*****************************
* ESTRUTURA DA /PWS/ZYCBE044*
********************************************
Modificações efetuadas em TABD /PWS/ZYCBE044
********************************************
MODIFICAR ESTRUTURA: /PWS/ZYCBE044
DESCRIÇÃO BREVE: CB - Pagamento de Juros - Itens
*****************
COMPONENTES NOVOS
*****************
COMPONENTE: TP. COMP: TAB.REF.: CPO.REF.: AJUD. PESQU.
DTPAGEXT /PWS/ZYCBL289
************************************
ORDEM DOS COMPONENTES APOS ALTERAÇÃO
************************************
MANDT
NRPAGTO
NRSEQC
TPDESP
NRPARC
DTINCL
DTLIQUID
DTPAGEXT
TPJUROS
BUKRS
DTVENCTO
WAERS
VLME
NRCONTR
NRINVOIC
NRPARCF
GSBERF
BCONEGOC
BELNR_P
STATUSP
DTPAGTO
VLMI
MARK
----------------------------------------------------------------------------------------------------
***********************
* TABELA /PWS/ZYCBT044*
********************************************
Modificações efetuadas em TABD /PWS/ZYCBT044
********************************************
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCBT044
DESCRIÇÃO BREVE: CB - Pagamento de Juros - Itens
CARACTERÍSTICAS
CATEGORIA DA TABELA: Tabela transparente
CLASSE DE ENTREGA:
(A) - AUTUALIZAÇÃO DE TABELAS PERMITIDA
************
CAMPOS NOVOS
************
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
DTPAGEXT /PWS/ZYCBL289 X X
***************
OPÇÕES TÉCNICAS
***************
TIPO DE DADOS: APPL0
CATEGOR. TAMANHO: 3
(X) - AR. BUFFER NÃO PERMITIDO
(_) - AR. BUFFER PERMITIDO, MAS DESATIVADO
(_) - AR. BUFFER ATIVADO
(_) - RGSTS. IND ARMAZENADOS
(_) - ÁREA GEN ARMAZENADA EM BUFFER Nº DE CPOS CHAVE: ______
(_) - TOTALMENTE ARMAZENADO
(_) - REGISTRAR MODIFICS. DDS. EM LOG.
*******************************
ORDEM DOS CAMPOS APOS ALTERAÇÃO
*******************************
MANDT
NRPAGTO
NRSEQC
TPDESP
NRPARC
DTINCL
DTLIQUID
DTPAGEXT
TPJUROS
BUKRS
DTVENCTO
WAERS
VLME
NRCONTR
NRINVOIC
NRPARCF
GSBERF
BCONEGOC
BELNR_P
STATUSP
DTPAGTO
VLMI
----------------------------------------------------------------------------------------------------
********************************************
Modificações efetuadas em VIED /PWS/ZYCBV044
********************************************
MODIFICAR VISAO : /PWS/ZYCBV044
DESCRIÇÃO BREVE: CB - Cadastro de Faturas com Nome Cliente
**********************
TABELAS/CONDIÇÕES JOIN
**********************
TABELAS: CONDIÇÕES JOIN:
TABELA NOME CPO = TABELA NOME CPO
/PWS/ZYCBT004 /PWS/ZYCBT004 MANDT = /PWS/ZYCBT005 MANDT
/PWS/ZYCBT005 /PWS/ZYCBT004 NRSEQC = /PWS/ZYCBT005 NRSEQC
/PWS/ZYCBT004 NRPARC = /PWS/ZYCBT005 NRPARC
/PWS/ZYCBT004 DTINCL = /PWS/ZYCBT005 DTVINCUL
/PWS/ZYCBT004 NRINVOIC = /PWS/ZYCBT005 NRINVOIC
/PWS/ZYCBT004 GSBERF = /PWS/ZYCBT005 GSBERF
*******************
NOVO CAMPO DA VISÃO
*******************
CAMPO VISÃO: NOME TAB: NOME CAMPO: MOD:
DTPAGEXT /PWS/ZYCBT004 DTPAGEXT
*******************************************
ORDENAÇÃO DOS CPOS. DA VISÃO APOS ALTERACAO
*******************************************
CAMPO VISÃO: NOME TAB: NOME CAMPO: MOD:
MANDT /PWS/ZYCBT004 MANDT
NRSEQC /PWS/ZYCBT004 NRSEQC
TPDESP /PWS/ZYCBT004 TPDESP
NRPARC /PWS/ZYCBT004 NRPARC
BUKRS /PWS/ZYCBT005 BUKRS
DTINCL /PWS/ZYCBT004 DTINCL
NRCONTR /PWS/ZYCBT004 NRCONTR
DTVENCTO /PWS/ZYCBT004 DTVENCTO
NRINVOIC /PWS/ZYCBT005 NRINVOIC
NRPARCF /PWS/ZYCBT005 NRPARCF
BELNR /PWS/ZYCBT004 BELNR
DTPAGTO /PWS/ZYCBT004 DTPAGTO
DTLIQUID /PWS/ZYCBT004 DTLIQUID
GSBERF /PWS/ZYCBT004 GSBERF
BCONEGOC /PWS/ZYCBT005 BCONEGOC
DTVINCUL /PWS/ZYCBT005 DTVINCUL
TPJUROS /PWS/ZYCBT004 TPJUROS
VLME /PWS/ZYCBT004 VLME
VLIR /PWS/ZYCBT004 VLIR
WAERS /PWS/ZYCBT004 WAERS
DTPAGEXT /PWS/ZYCBT004 DTPAGEXT
********************
CONDIÇÕES DE SELEÇÃO
********************
TABELA: NOME CPO.: OPERADOR: VL COMP: AND/OR
/PWS/ZYCBT004 DTPAGTO EQ '00000000'
*********
STATUS AT.
*********
ACESSO:
(X) - SÓ LER
(_) - LER E MODIFICAR
(_) - LER E MODIFICAR