CE PLUS - Nota 003860
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 06/06/2007 00:00:00
Data/Hora Última Alteração: 04/03/2010 13:43:48
Descrição da Nota: COMPLEMENTO DO BOLETO - DTCREDPR - PERIODO FECHADO
Sintoma
Programa não esta atualizando o campo DTCREDPR, quando o periodo esta fechado, tornarndo impossivel
o estorno do documento.
Solução
Ajuste efetuado inserido tratamento para que o campo DTCREDPR assuma o valor do campo digitado pelo
usuário quando o periodo estiver fechado.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03860 Data: 06/06/2007 Hora: 14:43:59
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03860
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00027
Agrupamento : 00169
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
COMPLEMENTO DO BOLETO - DTCREDPR - PERIODO FECHADO
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO DO BOLETO - DT.LANÇTO.PRIN SALVO EM PERIODO FECHADO
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCM_TRANSACAO_F_43C
REPS /PWS/MZYCM110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCM_TRANSACAO_F_43C
...
v_msgid LIKE t100-arbgb,
v_msgno LIKE t100-msgnr,
v_koart LIKE t001b-mkoar,
v_monat LIKE t001b-frpe1,
v_bukrs LIKE t001-bukrs,
v_conta LIKE lfb1-akont,
v_date LIKE t009b-bdatj,
v_tela LIKE sy-dynnr,
v_data_doc_char(10) TYPE c,
v_data_lanc_char(10) TYPE c,
* >> Início da inclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_43C
v_data_lanc_char_ant(10) TYPE c,
* << Fim da inclusão
v_data_val_char(10) TYPE c,
v_zfbdt_char(10) TYPE c,
v_kursf(9) TYPE c,
v_wrbtr(16) TYPE c,
v_transacao(4) TYPE c,
v_mode TYPE c,
v_update TYPE c,
v_nrmsg TYPE i VALUE 0,
v_linhas TYPE i,
wa_tbsl LIKE tbsl,
...
...
FROM /pws/zycbt007
INTO /pws/zycbt007-fdivisao
WHERE bukrs EQ t_dados-bukrs.
WRITE: t_dados-bukrs TO v_bukrs,
t_dados-bldat TO v_data_doc_char,
t_dados-budat TO v_data_lanc_char,
t_dados-kursf TO v_kursf.
v_monat = t_dados-budat+4(2).
v_gjahr = v_date.
v_koart = 'K'.
* >> Início da inclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_43C
v_data_lanc_char_ant = v_data_lanc_char.
* << Fim da inclusão
PERFORM check_periodo USING v_koart
v_monat
v_bukrs
v_gjahr
CHANGING v_data_lanc_char
v_ok.
CONCATENATE '0' v_data_lanc_char+3(2) INTO v_monat.
MOVE v_data_lanc_char+6(4) TO v_gjahr.
* >> Início da inclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_43C
t_dados-budat(4) = v_data_lanc_char+6(4).
t_dados-budat+4(2) = v_data_lanc_char+3(2).
t_dados-budat+6(2) = v_data_lanc_char(2).
* << Fim da inclusão
PERFORM bdc_screen USING 'SAPMF05A' '0100'.
PERFORM bdc_field USING:
'BKPF-BLDAT' v_data_doc_char,
'BKPF-BLART' t_dados-blart,
'BKPF-BUKRS' t_dados-bukrs,
'BKPF-BUDAT' v_data_lanc_char,
'BKPF-MONAT' t_dados-budat+4(2),
'BKPF-WAERS' t_dados-waers,
'BKPF-BRNCH' t_dados-brnch,
'BKPF-KURSF' v_kursf,
'BKPF-XBLNR' t_dados-xblnr,
'BKPF-BKTXT' t_dados-bktxt,
'RF05A-NEWBS' t_dados-newbs1,
'RF05A-NEWKO' t_dados-c_newko,
'BDC_OKCODE' '/00'.
* >> Início da inclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_43C
WRITE: t_dados-wrbtr TO v_wrbtr CURRENCY t_dados-waers.
IF v_data_lanc_char_ant <> v_data_lanc_char.
v_zfbdt_char = v_data_lanc_char.
ELSE.
WRITE: t_dados-zfbdt TO v_zfbdt_char.
ENDIF.
* << Fim da inclusão
* >> Início da exclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_43C
WRITE: t_dados-wrbtr TO v_wrbtr CURRENCY t_dados-waers,
t_dados-zfbdt TO v_zfbdt_char.
* << Fim da exclusão
MOVE: t_dados-newbs1 TO v_newbs,
t_dados-d_newko TO v_agkon.
PERFORM define_tela USING t_dados-tcode
t_dados-bukrs
v_agkon
v_newbs
CHANGING v_umskz
v_tela.
PERFORM bdc_screen USING 'SAPMF05A' v_tela.
IF NOT t_item-zterm IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM110F01
...
periodo_fechado = 2
OTHERS = 3.
ENDIF.
ENDIF.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = v_tcode
tabela = '/PWS/ZYCBT031'
cpochv = /pws/zycbe031-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
* >> Início da inclusão: FORM FILL_DATE_F-63_IA
/pws/zycbe031-dtcredpr = itab_zycbe033-budat.
* << Fim da inclusão
IF v_tcode EQ 'F-63'.
MESSAGE i057 WITH itab_zycbt032-belnr.
ELSE.
MESSAGE i223 WITH itab_zycbt032-belnr.
ENDIF.
wa_zycbt117-statusp = 'P'.
/pws/zycbe031-statusp = 'P'.
wa_zycbt117-belnr_p = itab_zycbt032-belnr.
/pws/zycbe031-belnr_p = itab_zycbt032-belnr.
wa_zycbt117-dtpagto = /pws/zycbe031-dtcredpr.
...