CE PLUS - Nota 000651
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Remessa
Data/Hora da Publicação: 12/01/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 11:38:25
Descrição da Nota: TRATAMENTO DO CAMPO ELEMENTO PEP NA F-63 REMESSA FINANCEIRA
Sintoma
Ao criar uma remessa Financiera e colocar os impostos, o sistema esta chamando na transação F-63 o
Capo COBL_PS-POSID (Elemento PEP) na tela e não temos configuração em FI para esta campo na tela.
Teremos que remover este campo obrigatório no programa pois a Arno não irá utilizar esta campo e não
quer nem colocar na tela.
Solução
Inserido verificação na tabela de campos ocultos através da chave de lançamento D/C para a remessa
financeira.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00651 Data: 12/01/2006 Hora: 16:25:16
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00651
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00096
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
TRATAMENTO DO CAMPO ELEMENTO PEP NA F-63 REMESSA FINANCEIRA
----------------------------------------------------------------------------------------------------
Palavras Chave:
ELEMENTO PEP F-63 CAMPO OCULTO REMESSA FINANCEIRA
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCA_TRANSACAO_F_63R
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_63R
...
v_newko(10) TYPE c,
v_newko_aux(10) TYPE c,
v_tamanho(2) TYPE n,
v_pep LIKE prps-posid,
v_konto LIKE t001b-vkont,
* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
v_deb_cred(1) TYPE c VALUE 'C'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
v_deb_cred(1) TYPE c VALUE 'C',
wa_tbsl TYPE tbsl.
* << Fim da inclusão
READ TABLE t_dados INDEX 1.
CHECK t_dados-tcode = 'F-63'.
IF ( t_dados-bukrs = space ).
t_campo-mandt = t_dados-mandt.
t_campo-campo = 'BKPF-BUKRS'.
...
...
chave = v_deb_cred.
IF sy-subrc <> 0 AND NOT t_dados-c_gsber IS INITIAL.
PERFORM bdc_field USING 'BSEG-GSBER' t_dados-c_gsber.
ENDIF.
ELSEIF t_dados-newbs = '50' OR t_dados-newbs = '40'.
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
SELECT SINGLE * FROM tbsl
INTO wa_tbsl
WHERE bschl = t_debito-bschl.
IF wa_tbsl-shkzg EQ 'S'.
v_deb_cred = 'D'.
ELSE.
v_deb_cred = 'C'.
ENDIF.
CLEAR itab_oculto. REFRESH itab_oculto.
IF v_deb_cred = 'C'.
PERFORM determina_string USING t_debito-bschl
t_dados-bukrs
v_conta
CHANGING v_string_credito.
PERFORM trata_string_credito3 TABLES t_debito
t_campo
itab_oculto
USING v_string_credito.
ELSE.
PERFORM determina_string USING t_debito-bschl
t_dados-bukrs
v_conta
CHANGING v_string_debito.
PERFORM trata_string_debito2 TABLES t_debito
t_campo
itab_oculto
USING v_string_debito.
ENDIF.
* << Fim da inclusão
PERFORM bdc_screen USING 'SAPLF040' '0300'.
PERFORM bdc_field USING:
'BSEG-WRBTR' v_wrbtr,
'BSEG-ZUONR' t_dados-c_zuonr,
'RF05V-NEWBS' t_debito-bschl,
...
...
'BDC_OKCODE' '/00'.
IF NOT t_debito-newum IS INITIAL.
PERFORM bdc_field USING:
'RF05V-NEWUM' t_debito-newum.
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
READ TABLE itab_oculto WITH KEY campo = 'BSEG-VALUT' chave = 'C'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
READ TABLE itab_oculto WITH KEY campo = 'BSEG-VALUT'
chave = v_deb_cred.
* << Fim da inclusão
IF sy-subrc NE 0 AND NOT v_data_valut IS INITIAL.
PERFORM bdc_field USING 'BSEG-VALUT' v_data_valut.
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
READ TABLE itab_oculto WITH KEY campo = 'BSEG-SGTXT' chave = 'C'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
READ TABLE itab_oculto WITH KEY campo = 'BSEG-SGTXT'
chave = v_deb_cred.
* << Fim da inclusão
IF sy-subrc NE 0 AND NOT t_dados-c_sgtxt IS INITIAL.
PERFORM bdc_field USING 'BSEG-SGTXT' t_dados-c_sgtxt.
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
READ TABLE itab_oculto WITH KEY campo = 'BSEG-ZFBDT' chave = 'C'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
READ TABLE itab_oculto WITH KEY campo = 'BSEG-ZFBDT'
chave = v_deb_cred.
* << Fim da inclusão
IF sy-subrc NE 0 AND NOT v_database IS INITIAL.
PERFORM bdc_field USING 'BSEG-ZFBDT' v_database.
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
READ TABLE itab_oculto WITH KEY campo = 'BSEG-BUPLA' chave = 'C'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
READ TABLE itab_oculto WITH KEY campo = 'BSEG-BUPLA'
chave = v_deb_cred.
* << Fim da inclusão
IF sy-subrc NE 0 AND NOT t_dados-brnch IS INITIAL.
PERFORM bdc_field USING 'BSEG-BUPLA' t_dados-brnch.
ENDIF.
PERFORM bdc_screen USING 'SAPLKACB' '0002'.
* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
READ TABLE itab_oculto WITH KEY campo = 'COBL-AUFNR' chave = 'C'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
READ TABLE itab_oculto WITH KEY campo = 'COBL-AUFNR'
chave = v_deb_cred.
* << Fim da inclusão
IF sy-subrc <> 0 AND NOT t_dados-aufnr IS INITIAL.
PERFORM bdc_field USING 'COBL-AUFNR' t_dados-aufnr.
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
READ TABLE itab_oculto WITH KEY campo = 'COBL-GSBER' chave = 'C'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
READ TABLE itab_oculto WITH KEY campo = 'COBL-GSBER'
chave = v_deb_cred.
* << Fim da inclusão
IF sy-subrc <> 0 AND NOT t_dados-c_gsber IS INITIAL.
PERFORM bdc_field USING 'COBL-GSBER' t_dados-c_gsber.
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
READ TABLE itab_oculto WITH KEY campo = 'COBL-KOSTL' chave = 'C'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
READ TABLE itab_oculto WITH KEY campo = 'COBL-KOSTL'
chave = v_deb_cred.
* << Fim da inclusão
IF sy-subrc <> 0 AND NOT t_dados-c_kostl IS INITIAL.
PERFORM bdc_field USING 'COBL-KOSTL' t_dados-c_kostl.
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
READ TABLE itab_oculto WITH KEY campo = 'COBL-PRCTR' chave = 'C'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
READ TABLE itab_oculto WITH KEY campo = 'COBL-PRCTR'
chave = v_deb_cred.
* << Fim da inclusão
IF sy-subrc <> 0 AND NOT t_dados-c_prctr IS INITIAL.
PERFORM bdc_field USING 'COBL-PRCTR' t_dados-c_prctr.
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
READ TABLE itab_oculto WITH KEY campo = 'COBL-FIPOS' chave = 'C'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
READ TABLE itab_oculto WITH KEY campo = 'COBL-FIPOS'
chave = v_deb_cred.
* << Fim da inclusão
IF sy-subrc <> 0 AND NOT t_dados-c_fipos IS INITIAL.
PERFORM bdc_field USING 'COBL-FIPOS' t_dados-c_fipos.
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
READ TABLE itab_oculto WITH KEY campo = 'COBL-FISTL' chave = 'C'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
READ TABLE itab_oculto WITH KEY campo = 'COBL-FISTL'
chave = v_deb_cred.
* << Fim da inclusão
IF sy-subrc <> 0 AND NOT t_dados-c_fictr IS INITIAL.
PERFORM bdc_field USING 'COBL-FISTL' t_dados-c_fictr.
ENDIF.
READ TABLE itab_oculto WITH KEY
* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
campo = 'COBL-PS_PSP_PNR' chave = 'C'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
campo = 'COBL-PS_PSP_PNR' chave = v_deb_cred.
* << Fim da inclusão
IF sy-subrc <> 0.
IF NOT t_debito-ps_psp_pnr IS INITIAL.
CALL FUNCTION 'CONVERSION_EXIT_KONPR_OUTPUT'
EXPORTING
input = t_dados-ps_psp_pnr
IMPORTING
output = v_pep.
PERFORM bdc_field USING:
'COBL-PS_PSP_PNR' v_pep.
* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
ENDIF.
* << Fim da exclusão
IF t_dados-ps_posid = '00000000'.
PERFORM bdc_field USING: 'COBL-PS_POSID' ' '.
ELSE.
PERFORM bdc_field USING: 'COBL-PS_POSID' t_dados-ps_posid.
ENDIF.
ENDIF.
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
ENDIF.
* << Fim da inclusão
PERFORM bdc_field USING: 'BDC_OKCODE' '=ENTE'.
ENDIF.
ENDIF.
IF t_debito-bschl = '40' OR t_debito-bschl = '50'.
IF t_debito-bschl = '40'.
...