CE PLUS - Nota 009970
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Contrato
Data/Hora da Publicação: 17/03/2010 00:00:00
Data/Hora Última Alteração: 18/02/2011 16:58:07
Descrição da Nota: CAPTAÇAO - ACC C/ PRÉ -CONTRATO DE DP - PROBLEMA BI
Sintoma
Captaçao - Acc c/ pré -contrato de DP - problema BI - segunda contablização do BI não encontra campo
GSBER na tela
Solução
Ajuste na função das transação para ler corretamente os campos que existem ou não na tela do BI.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09970 Data: 17/03/2010 Hora: 15:07:27
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09970
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00003
Agrupamento : 00012
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01622 - 00001 - 6.0 - 00024 - LIQUIDAÇÃO ACC/DP - CAMPO BSEG-ZFBDT
06236 - 00002 - 7.0 - 00005 - CAPTAÇÃO - CAMPO ZFBDT
08930 - 00003 - 7.0 - 00010 - CAPTAÇÃO - LIQUIDAÇÃO DAS CAPTAÇÕES DE PRÉ-PAGAMENTO E SECURITIZA
09062 - 00004 - 8.0 - 00001 - DESVINCULAÇÃO LIQUIDAÇÃO ATUALIZAÇÃO INCORRETA 001-DTVINCUL E 005
09923 - 00005 - 8.0 - 00002 - VERIFICAÇÃO PERÍODO ABERTO/FECHADO NÃO FUNCIONA - IMPACTO PELO NE
----------------------------------------------------------------------------------------------------
CAPTAÇAO - ACC C/ PRÉ -CONTRATO DE DP - PROBLEMA BI
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAPTAÇAO - ACC C/ PRÉ -CONTRATO DE DP - PROBLEMA BI
SEGUNDA CONTABLIZAÇÃO DO BI NÃO ENCONTRA CAMPO GSBER NA TELA
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCB_TRANSACAO_F_30_F
FUNC /PWS/ZYCB_TRANSACAO_F_30_P
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_30_F
...
v_monat = v_periodo2.
v_gjahr = v_date.
PERFORM check_periodo USING '+'
t_dados-bukrs
CHANGING v_budat
v_ok
v_monat
v_gjahr.
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_F
if t_dados-newbs = '50' or
t_dados-newbs = '40'.
v_cconta = t_dados-d_newko.
else.
* << Fim da inclusão
SELECT SINGLE akont FROM knb1
INTO knb1-akont
WHERE kunnr = t_dados-d_newko
AND bukrs = t_dados-bukrs.
SELECT SINGLE plcontas FROM /pws/zycbt007
INTO /pws/zycbt007-plcontas
WHERE bukrs EQ t_dados-bukrs.
IF NOT t_dados-umskz IS INITIAL.
SELECT SINGLE skont FROM t074
INTO v_cconta
WHERE ktopl = /pws/zycbt007-plcontas
AND koart = 'D'
AND hkont = knb1-akont.
IF sy-subrc NE 0.
v_cconta = knb1-akont.
ENDIF.
ELSE.
v_cconta = knb1-akont.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_F
ENDIF.
* << Fim da inclusão
ENDIF.
PERFORM determina_string USING t_dados-newbs
t_dados-bukrs
v_cconta
CHANGING v_string_credito.
CLEAR itab_oculto.
REFRESH itab_oculto.
PERFORM trata_string_credito TABLES t_dados
t_campo
itab_oculto
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_30_P
...
'BDC_OKCODE' '=PI'.
endif.
perform bdc_screen using 'SAPDF05X' '3100'.
perform bdc_field using 'BDC_CURSOR' 'RF05A-ABPOS'.
perform bdc_field using 'BDC_OKCODE' '=Z+'.
perform bdc_screen using 'SAPDF05X' '3100'.
if t_dados-flag_nc eq 'X'.
perform bdc_field using: 'BDC_OKCODE' '=BU'.
else.
perform bdc_field using: 'BDC_OKCODE' '=BS'.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_P
perform bdc_field using: 'BDC_OKCODE' '=BU'.
* << Fim da inclusão
endif.
perform verifica_empresas using t_dados-bukrs
'UMBUCHNG'
t_dados-d_newko
v_agkoa.
if v_linhas eq 1
and v_dp eq 'X'.
v_linhas = v_linhas + 1.
endif.
move t_dados-brnch to c_brnch.
...