CE PLUS - Nota 001249
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Remessa
Data/Hora da Publicação: 25/04/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 13:22:39
Descrição da Nota: ELEMENTO PEP OS_POSID - REMESSA F63 COMPLEMENTO
Sintoma
1) Ao criar uma remessa de pagamento com forma de pagamento à pagar competência e com impostos
(também com forma de pagamento à pagar competência) e preenchi tanto para o principal como para os
impostos o campo ELEMENTO PEP (PS_POSID), mas ao salvar, na F-63 o programa está levando uma
informação errada no batch input e para o campo errado, pois no batch input aparecem dois elementos
PEP, mas apenas um deles é o PS_POSID (que é o primeiro que aparece), mas o programa está
preenchendo o segundo Elemento PEP e com uma informação diferente da informada no campo Elemento PEP
na pasta de contabilização.
2) Ao criar uma remessa de pagamento com forma de pagamento - Regime de caixa (para principal e
impostos) e preenchi também o Elemento PEP para o principal e impostos. Ao salvar o complemento do
boleto, na F-63 o programa não está preenchendo o campo (PS_POSID) com o elemento PEP informado na
criação da remessa - pasta de contabilização. O programa está preenchendo o campo (P_PSP_PNR ) com
uma informação incorreta. O correto seria preencher o campo (PS_POSID) com o elemento PEP informado
na pasta de contabilização da remessa.
Solução
Ajustes efetuados nos programas de Remessa e Complemento de Boleto para preenchimento correto do
Elemento PEP PS_POSID, e tratamento na Função F63 para o mesmo campo.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01249 Data: 25/04/2006 Hora: 16:33:30
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01249
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00111
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00242 - 00001 - 6.0 - 00021 - AJUSTES BATCH INPUT REMESSA - ELEMENTO PEP E DIAGRAMA DE REDE
----------------------------------------------------------------------------------------------------
ELEMENTO PEP OS_POSID - REMESSA F63 COMPLEMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ELEMENTO PEP OS_POSID - REMESSA F63 COMPLEMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCA_TRANSACAO_F_63R
REPS /PWS/MZYCA109F01
REPS /PWS/MZYCA110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_63R
...
input = t_dados-ps_psp_pnr
IMPORTING
output = v_pep.
PERFORM bdc_field USING:
'COBL-PS_PSP_PNR' v_pep.
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
ENDIF.
ENDIF.
READ TABLE itab_oculto WITH KEY
campo = 'COBL-PS_POSID' chave = v_deb_cred.
IF sy-subrc <> 0.
* << Fim da inclusã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 exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
ENDIF.
* << Fim da exclusã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'.
...
...
input = t_debito-ps_psp_pnr
IMPORTING
output = v_pep.
PERFORM bdc_field USING:
'COBL-PS_PSP_PNR' v_pep.
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
READ TABLE itab_oculto WITH KEY
campo = 'COBL-PS_POSID'
chave = v_deb_cred.
IF sy-subrc <> 0.
* << Fim da inclusão
IF t_debito-ps_posid = '00000000'.
PERFORM bdc_field USING: 'COBL-PS_POSID' ' '.
ELSE.
PERFORM bdc_field USING: 'COBL-PS_POSID' t_debito-ps_posid.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109F01
...
itab_zycbe035-tabela = '/PWS/ZYCBT141'.
itab_zycbe035-bschl = '50'.
itab_zycbe035-c_newko = itab_zycbt141-saknr1.
itab_zycbe035-c_kostl = itab_zycbt141-kostl.
itab_zycbe035-aufnr = itab_zycbt141-aufnr.
* >> Início da exclusão: FORM PREENCHE_PARTIDA_MULTIPLA_REC
itab_zycbe035-ps_psp_pnr = itab_zycbt141-ps_posid.
* << Fim da exclusão
itab_zycbe035-c_prctr = itab_zycbt141-prctr.
itab_zycbe035-d_gsber = /pws/zycbe124-gsber.
itab_zycbe035-c_gsber = /pws/zycbe124-gsber.
itab_zycbe035-d_fictr = itab_zycbt141-fictr.
itab_zycbe035-c_fictr = itab_zycbt141-fictr.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA110F01
...
itab_zycbe035-bschl = '50'.
ENDIF.
itab_zycbe035-d_kostl = itab_zycbt141-kostl.
itab_zycbe035-c_kostl = itab_zycbt141-kostl.
itab_zycbe035-aufnr = itab_zycbt141-aufnr.
* >> Início da exclusão: FORM LANCAMENTO_MULTIPLO
itab_zycbe035-ps_psp_pnr = itab_zycbt141-ps_posid.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_MULTIPLO
itab_zycbe035-ps_posid = itab_zycbt141-ps_posid.
* << Fim da inclusão
itab_zycbe035-d_prctr = itab_zycbt141-prctr.
itab_zycbe035-d_gsber = wa_zycbt124-gsber.
itab_zycbe035-c_gsber = wa_zycbt124-gsber.
itab_zycbe035-d_fictr = itab_zycbt141-fictr.
itab_zycbe035-c_fictr = itab_zycbt141-fictr.
...