CE PLUS - Nota 001164
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Captação
Data/Hora da Publicação: 06/04/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 15:06:19
Descrição da Nota: POP UP REFERENTE A PERÍODO FECHADO NÃO EXIBIDO
Sintoma
Ao criar uma captação e salvar e sem sair, ir em modificar e depois alterar alguma informação
relevante para a contabilização, e fechar o período, o programa não avisa que o periodo está fechado
através do Pop Up, e nem pergunta em qual data deverá ser contabilizado, sendo assim, o programa
entra na F-30 com a data no período fechado e ocorre um erro, ocasionando a parada do BI.
Solução
Inclusão do refresh na função antes de sua chamada. Ajuste no tratamento da nova data de lançamento
informada.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01164 Data: 06/04/2006 Hora: 13:45:45
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01164
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00108
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
POP UP REFERENTE A PERÍODO FECHADO NÃO EXIBIDO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAPTAÇÃO, PERÍODO ABERTO, PERÍODO FECHADO, POP UP NÃO É EXIBIDO
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCB_TRANSACAO_F_30_W
REPS /PWS/LZYCBGF2F01
REPS /PWS/LZYCBGF2TOP
REPS /PWS/MZYCB001F01
REPS /PWS/MZYCB001F02
REPS /PWS/MZYCB001F04
REPT /PWS/SAPLZYCBGF2
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_30_W
MODIFICAR MÓDULO DE FUNÇÃO: /PWS/ZYCB_TRANSACAO_F_30_W
CARACTERÍSTICAS
* >> Incluir o parâmetro de exportação
EXPORTAÇÃO:
NOME PARAM. ATRIB. TIPO REFERÊNCIA TRANSF. TEXTO BREVE
V_DTLANC LIKE /PWS/ZYCBE033-BUDAT x Data de Lançamento do documento
...
v_gjahr
CHANGING v_budat
v_ok.
MOVE v_date TO v_gjahr.
MOVE v_monat+1(2) TO v_periodo.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W
WRITE t_dados-budat TO v_dtdocto.
IF v_budat NE v_dtdocto.
SELECT SINGLE datfm FROM usr01 INTO usr01-datfm
WHERE bname = sy-uname.
IF usr01-datfm = 1 OR sy-subrc NE 0.
CONCATENATE v_budat+6(4) v_budat+3(2) v_budat(2)
INTO v_dtlanc.
ELSE.
CONCATENATE v_budat+6(4) v_budat(2) v_budat+3(2)
INTO v_dtlanc.
ENDIF.
ENDIF.
CLEAR v_dtdocto.
* << Fim da inclusão
IF t_dados-wrbtr IS INITIAL.
PERFORM bdc_screen USING 'SAPMF05A' '0122'.
PERFORM bdc_field USING:
'BKPF-BLDAT' v_bldat,
'BKPF-BLART' t_dados-blart,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCBGF2F01
...
ENDIF.
p_novadata = v_novadata.
ENDFORM.
FORM entrar_nova_data CHANGING value(p_resposta)
value(p_novadata).
* >> Início da exclusão: FORM ENTRAR_NOVA_DATA
CALL FUNCTION 'POPUP_TO_GET_ONE_VALUE'
* << Fim da exclusão
* >> Início da inclusão: FORM ENTRAR_NOVA_DATA
DATA: v_data_ TYPE d.
WHILE v_data_ IS INITIAL or
v_data_ EQ '00000000'.
if sy-index > 1.
message i061(/pws/zycbm) with text-051.
endif.
CALL FUNCTION 'TR_POPUP_INPUT_DATE'
* << Fim da inclusão
EXPORTING
* >> Início da exclusão: FORM ENTRAR_NOVA_DATA
textline1 = text-010
textline2 = text-011
titel = text-012
valuelength = 10
* << Fim da exclusão
* >> Início da inclusão: FORM ENTRAR_NOVA_DATA
iv_title = text-012
iv_description1 = text-010
iv_description2 = text-011
iv_date = v_data_
* << Fim da inclusão
IMPORTING
* >> Início da exclusão: FORM ENTRAR_NOVA_DATA
answer = p_resposta
value1 = p_novadata
* << Fim da exclusão
* >> Início da inclusão: FORM ENTRAR_NOVA_DATA
ev_date = v_data_
* << Fim da inclusão
EXCEPTIONS
* >> Início da exclusão: FORM ENTRAR_NOVA_DATA
titel_too_long = 1
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: FORM ENTRAR_NOVA_DATA
action_aborted_by_user = 1
value_not_changed = 2
OTHERS = 3.
WRITE v_data_ TO p_novadata.
ENDWHILE.
* << Fim da inclusão
ENDFORM.
FORM trata_string_credito2 TABLES p_t_dados STRUCTURE /pws/zycbe033
p_t_campo STRUCTURE /pws/zycbt034
p_itab_oculto2 LIKE itab_oculto2[]
USING value(p_string)
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCBGF2TOP
...
tables: skb1,
lfbw,
lfb1,
knb1,
t001,
* >> Início da inclusão:
usr01,
* << Fim da inclusão
/pws/zycbt011,
/pws/zycbt007,
/pws/zycbt009,
j_1bam,
/pws/zycet036,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F01
...
PERFORM determina_periodo USING itab_zycbe033-budat
CHANGING v_monat.
PERFORM determina_ano USING itab_zycbe033-budat /pws/zycbe001-bukrs
CHANGING v_ano.
CLEAR v_fechado.
* >> Início da inclusão: FORM FILL_DATE1_F02
PERFORM period_refresh.
* << Fim da inclusão
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = /pws/zycbe001-bukrs
i_gjahr = v_ano
i_koart = '+'
...
...
EXCEPTIONS
error_period = 1
error_period_acc = 2
OTHERS = 3.
IF sy-subrc NE 0.
* >> Início da exclusão: FORM FILL_DATE1_F02
IF /pws/zycbe001-status IS INITIAL OR /pws/zycbe001-status EQ 'I'.
* << Fim da exclusão
WRITE: itab_zycbe033-budat TO v_budat,
sy-datum TO v_datum.
CONCATENATE text-220 v_budat+3(7) text-221 text-222 v_datum+3(7)
text-223 INTO mensagem SEPARATED BY space.
PERFORM popup_message USING mensagem text-219.
...
...
/pws/zycbe001-dtvincul = sy-datum.
ELSE.
EXIT.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM FILL_DATE1_F02
ENDIF.
* << Fim da exclusão
IF wa_zycbt007-fdtdoc = 'D'.
itab_zycbe033-bldat = sy-datum.
ELSE.
itab_zycbe033-bldat = itab_zycbe033-budat.
ENDIF.
...
...
PERFORM determina_periodo USING itab_zycbe033-budat
CHANGING v_monat.
PERFORM determina_ano USING itab_zycbe033-budat
itab_zycbe033-bukrs
CHANGING v_ano.
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT001_DEL
PERFORM period_refresh.
* << Fim da inclusão
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = itab_zycbe033-bukrs
i_gjahr = v_ano
i_koart = '+'
...
...
PERFORM determina_periodo USING itab_zycbe033-budat
CHANGING v_monat.
PERFORM determina_ano USING itab_zycbe033-budat
/pws/zycbe001-bukrs
CHANGING v_ano.
* >> Início da inclusão: FORM FILL_DATE1_F02_P
PERFORM period_refresh.
* << Fim da inclusão
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = /pws/zycbe001-bukrs
i_gjahr = v_ano
i_koart = '+'
...
...
CHANGING v_monat.
PERFORM determina_ano USING itab_zycbe033-budat
/pws/zycbe001-bukrs
CHANGING v_ano.
CLEAR v_fechado.
* >> Início da inclusão: FORM FILL_DATE1_F02_NP
PERFORM period_refresh.
* << Fim da inclusão
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = /pws/zycbe001-bukrs
i_gjahr = v_ano
i_koart = '+'
...
...
PERFORM determina_periodo USING itab_zycbe033-budat
CHANGING v_monat.
PERFORM determina_ano USING itab_zycbe033-budat
itab_zycbe033-bukrs
CHANGING v_ano.
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT001_ME
PERFORM period_refresh.
* << Fim da inclusão
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = itab_zycbe033-bukrs
i_gjahr = v_ano
i_koart = '+'
...
...
PERFORM determina_periodo USING itab_zycbe033-budat
CHANGING v_monat.
PERFORM determina_ano USING itab_zycbe033-budat
itab_zycbe033-bukrs
CHANGING v_ano.
* >> Início da inclusão: FORM FILL_08_PRE_PAGAMENTO21
PERFORM period_refresh.
* << Fim da inclusão
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = itab_zycbe033-bukrs
i_gjahr = itab_zycbe033-budat+0(4)
i_koart = '+'
...
...
PERFORM determina_periodo USING itab_zycbe033-budat
CHANGING v_monat.
PERFORM determina_ano USING itab_zycbe033-budat
itab_zycbe033-bukrs
CHANGING v_ano.
* >> Início da inclusão: FORM CARREGA_ITAB_ZYCBE033
PERFORM period_refresh.
* << Fim da inclusão
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = itab_zycbe033-bukrs
i_gjahr = v_ano
i_koart = '+'
...
...
PERFORM determina_periodo USING itab_zycbe033-budat
CHANGING v_monat.
PERFORM determina_ano USING itab_zycbe033-budat
itab_zycbe033-bukrs
CHANGING v_ano.
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT_ALT
PERFORM period_refresh.
* << Fim da inclusão
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = itab_zycbe033-bukrs
i_gjahr = v_ano
i_koart = '+'
...
...
PERFORM determina_periodo USING v_budat
CHANGING v_monat.
PERFORM determina_ano USING v_budat
/pws/zycbe001-bukrs
CHANGING v_ano.
* >> Início da inclusão: FORM VERIF_DT_LANCTO
PERFORM period_refresh.
* << Fim da inclusão
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = wa_zycbt001-bukrs
i_gjahr = v_ano
i_koart = '+'
...
...
PERFORM determina_periodo USING itab_zycbe033-bldat
CHANGING v_monat.
PERFORM determina_ano USING itab_zycbe033-bldat
itab_zycbe033-bukrs
CHANGING v_ano.
* >> Início da inclusão: FORM FB08_F04_DESP
PERFORM period_refresh.
* << Fim da inclusão
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = itab_zycbe033-bukrs
i_gjahr = v_ano
i_koart = '+'
...
...
FORM verifica_periodo_dev_dp.
DATA:
v_budat(10) TYPE c,
v_datum(10) TYPE c,
v_mensagem(90) TYPE c.
* >> Início da inclusão: FORM VERIFICA_PERIODO_DEV_DP
PERFORM period_refresh.
* << Fim da inclusão
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = /pws/zycbe001-bukrs
i_gjahr = v_ano
i_koart = '+'
...
...
MOVE: /pws/zycbe001-nrseqc TO /pws/zycbt221-nrseqc.
INSERT /pws/zycbt221.
ENDLOOP.
itab_zycbt221_ant[] = wa_zycbt221[].
ENDFORM.
* >> Início da inclusão:
FORM period_refresh.
CALL FUNCTION 'FI_PERIOD_REFRESH'.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F02
...
PERFORM determina_periodo USING itab_zycbe033-budat
CHANGING v_monat.
PERFORM determina_ano USING itab_zycbe033-budat
wa_zycbt001_pre-bukrs
CHANGING v_ano.
* >> Início da inclusão: FORM DESMEMBRA_ACC
PERFORM period_refresh.
* << Fim da inclusão
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = wa_zycbt001_pre-bukrs
i_gjahr = v_ano
i_koart = '+'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F04
...
PERFORM determina_periodo USING itab_zycbe033-budat
CHANGING v_monat.
PERFORM determina_ano USING itab_zycbe033-budat
/pws/zycbe001-bukrs
CHANGING v_ano.
* >> Início da inclusão: FORM CONTABILIZA_CANCELAMENTO
PERFORM period_refresh.
* << Fim da inclusão
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = /pws/zycbe001-bukrs
i_gjahr = v_ano
i_koart = '+'
...
...
itab_zycbe033-budat = wa_zycbt001-dtcred.
ENDCASE.
itab_zycbe033-gjahs = itab_zycbe033-budat+0(4).
PERFORM determina_periodo USING itab_zycbe033-budat
CHANGING v_monat.
* >> Início da inclusão: FORM EST_CANC154
PERFORM period_refresh.
* << Fim da inclusão
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = itab_zycbe033-bukrs
i_gjahr = itab_zycbe033-budat+0(4)
i_koart = '+'
...
...
CHANGING v_monat.
PERFORM determina_ano USING itab_zycbe033-budat
/pws/zycbe001-bukrs
CHANGING v_ano.
itab_zycbe033-gjahs = v_ano.
* >> Início da inclusão: FORM ESTORNA_CANCELAMENTO
PERFORM period_refresh.
* << Fim da inclusão
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = itab_zycbe033-bukrs
i_gjahr = itab_zycbe033-gjahs
i_koart = '+'
...
...
PERFORM determina_periodo USING itab_zycbe033-bldat
CHANGING v_monat.
PERFORM determina_ano USING itab_zycbe033-bldat
itab_zycbe033-bukrs
CHANGING v_ano.
* >> Início da inclusão: FORM DATA_LANCAMENTO
PERFORM period_refresh.
* << Fim da inclusão
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = itab_zycbe033-bukrs
i_gjahr = v_ano
i_koart = '+'
...
...
PERFORM determina_periodo USING itab_zycbe033-budat
CHANGING v_monat.
PERFORM determina_ano USING itab_zycbe033-budat
itab_zycbe033-bukrs
CHANGING v_ano.
* >> Início da inclusão: FORM MAPEIA_TRANSACAO
PERFORM period_refresh.
* << Fim da inclusão
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = itab_zycbe033-bukrs
i_gjahr = v_ano
i_koart = 'S'
...
...
PERFORM determina_periodo_desp USING itab_zycbe033-budat
/pws/zycbe004-bukrs
CHANGING v_monat.
itab_zycbe033-gjahs = v_date_est.
ENDIF.
* >> Início da inclusão: FORM ESTORNA_APROV_DESP
PERFORM period_refresh.
* << Fim da inclusão
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = itab_zycbe033-bukrs
i_gjahr = v_date_est
i_koart = 'S'
...
...
PERFORM determina_periodo USING itab_zycbe033-budat
CHANGING v_monat.
PERFORM determina_ano USING itab_zycbe033-budat /pws/zycbe001-bukrs
CHANGING v_ano.
CLEAR v_fechado.
* >> Início da inclusão: FORM FILL_DATE_1_F30
PERFORM period_refresh.
* << Fim da inclusão
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = /pws/zycbe001-bukrs
i_gjahr = v_ano
i_koart = '+'
...
...
IF itab_zycbt034 IS INITIAL.
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_W'
EXPORTING
v_modo = v_modo_bi
v_vinc_tot = 'X'
* >> Início da inclusão: FORM ALTERA_CAB_PT
IMPORTING
v_dtlanc = v_dtlanc
* << Fim da inclusão
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_partidas = itab_partidas
...
...
MESSAGE i015 WITH text-447 itab_zycbt032-belnr.
ELSE.
MESSAGE i015 WITH text-385 itab_zycbt032-belnr.
ENDIF.
v_belnr = itab_zycbt032-belnr.
* >> Início da inclusão: FORM ALTERA_CAB_PT
IF v_dtlanc NE itab_zycbe033-budat.
/pws/zycbt074-dtcont = /pws/zycbe074-dtcont = v_dtlanc.
MODIFY /pws/zycbt074 from /pws/zycbt074.
ENDIF.
* << Fim da inclusão
estorno_ok = 'S'.
IF /pws/zycbe001-capital EQ 'X' AND
wa_zycbt007-fprovisao EQ 'C'.
PERFORM clearing_juros USING v_belnr.
ELSEIF wa_zycbt007-fprovisao EQ 'C'.
...
...
PERFORM determina_periodo USING itab_zycbe033-budat
CHANGING v_monat.
PERFORM determina_ano USING itab_zycbe033-budat /pws/zycbe001-bukrs
CHANGING v_ano.
CLEAR v_fechado.
* >> Início da inclusão: FORM FILL_DATE_F30_PT
PERFORM period_refresh.
* << Fim da inclusão
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = /pws/zycbe001-bukrs
i_gjahr = v_ano
i_koart = '+'
...
...
itab_zycbe033-budat = wa_zycbt001-dtcred.
ENDCASE.
ENDIF.
itab_zycbe033-bldat = itab_zycbe033-budat.
itab_zycbe033-belnr = p_belnr.
* >> Início da inclusão: FORM VOLTA_PART_BANCO
IF NOT /pws/zycbt074-dtcont IS INITIAL.
itab_zycbe033-dtdocto = /pws/zycbt074-dtcont.
ELSE.
* << Fim da inclusão
itab_zycbe033-dtdocto = itab_zycbe033-budat.
* >> Início da inclusão: FORM VOLTA_PART_BANCO
ENDIF.
* << Fim da inclusão
PERFORM determina_periodo USING itab_zycbe033-budat
CHANGING v_monat.
PERFORM determina_ano USING itab_zycbe033-budat
itab_zycbe033-bukrs
CHANGING v_ano.
* >> Início da inclusão: FORM VOLTA_PART_BANCO
PERFORM period_refresh.
* << Fim da inclusão
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = itab_zycbe033-bukrs
i_gjahr = v_ano
i_koart = '+'
...
...
PERFORM determina_periodo USING itab_zycbe033-budat
CHANGING v_monat.
PERFORM determina_ano USING itab_zycbe033-budat /pws/zycbe001-bukrs
CHANGING v_ano.
CLEAR v_fechado.
* >> Início da inclusão: FORM FILL_DATA_F02_COMISSAO
PERFORM period_refresh.
* << Fim da inclusão
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = /pws/zycbe001-bukrs
i_gjahr = v_ano
i_koart = '+'
...
...
ENDCASE.
itab_zycbe033-gjahs = itab_zycbe033-budat+0(4).
PERFORM determina_periodo
USING itab_zycbe033-budat
CHANGING v_monat.
* >> Início da inclusão: FORM FILL_DATA_FB08_COMISSAO
PERFORM period_refresh.
* << Fim da inclusão
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = itab_zycbe033-bukrs
i_gjahr = itab_zycbe033-budat+0(4)
i_koart = '+'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPLZYCBGF2
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 051
Texto: (40 caracteres)
"Obrigatório informar data de lançamento."
Comprimento máximo: 40