CE PLUS - Nota 009751
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 29/01/2010 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:55:53
Descrição da Nota: VINC DP AUTOMÁTICA-MSG DOC. COMPEN/NÃO AUTOM ERRO BI-ERRO /PWS/ZYGL007
Sintoma
1 - Ao efetuar uma vinculação de DP com liquidação automática, após ida e estorno, na nova
vinculação
exibe mensagem de documento compensado ou não existente, mas o mesmo esta ok.
2 - Ao efetuar uma vinculação de DP sem liquidação automática, se perde no BI, parando na tela sem
ok_code.
3 - Erro no parametro geral de Exportação / Down Payment, onde não esta permitindo alterar campos da
tela, voltando sempre para o que já estava flegado.
Solução
1- Buscar o documento 030-BELNR6 pela data 030-BUDAT
2- Prever intercompany e mapear corretamente o BI. Efetuar duplo clique na segunda partida, que é a
que precisa ser ajustada.
3- Retirar o on chain-request da tela.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09751 Data: 29/01/2010 Hora: 16:38:29
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09751
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00006
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08208 - 00001 - 7.0 - 00009 - LIQUIDAÇÃO - NA VINCULAÇÃO COM LIQ. AUTOMATICA - MENSAGEM DE ERRO
09100 - 00002 - 8.0 - 00001 - CAPTAÇÃO - DP DOWN PAYMENT - ORDEM DE VENDA
----------------------------------------------------------------------------------------------------
VINC DP AUTOMÁTICA-MSG DOC. COMPEN/NÃO AUTOM ERRO BI-ERRO /PWS/ZYGL007
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO DP AUTOMÁTICA-MSG DOC. COMPENSADO/NÃO AUTOMÁTICA SE PERDE BI
/PWS/ZYGL007
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYGL007 0119
FUNC /PWS/ZYCB_TRANSACAO_F_30
FUNC /PWS/ZYCB_TRANSACAO_F_30_Q
REPS /PWS/MZYCB004F03
REPS /PWS/MZYCB009F04
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYGL007 0119
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0119
process before output.
module: set_screen,
set_campos_119.
process after input.
Chain.
field : v_ctrl_ov1,
v_ov_obrig1,
v_ctrl_ov2,
v_ov_obrig2
* >> Início da exclusão:
module set_campos_119 ON CHAIN-REQUEST.
* << Fim da exclusão
* >> Início da inclusão:
module set_campos_119.
* << Fim da inclusão
Endchain.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_30
...
PERFORM bdc_field USING 'BDC_CURSOR' 'RF05A-ABPOS'.
PERFORM bdc_field USING 'RF05A-ABPOS' '1'.
PERFORM bdc_field USING 'BDC_OKCODE' '=REST'.
PERFORM bdc_screen USING 'SAPDF05X' '3100'.
PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPDF05X'.
PERFORM bdc_field USING 'RF05A-ABPOS' '1'.
PERFORM bdc_field USING: 'BDC_CURSOR' 'DF05B-PSDIF(01)',
'BDC_OKCODE' '=PI'.
PERFORM bdc_screen USING 'SAPDF05X' '3100'.
PERFORM bdc_field USING: 'BDC_OKCODE' '=BU'.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30
perform verifica_empresas using t_dados-bukrs
'UMBUCHNG'
t_dados-agkon
t_dados-agkoa.
* << Fim da inclusão
PERFORM bdc_screen USING 'SAPMF05A' '0700'.
PERFORM bdc_field USING:
'BDC_CURSOR' 'RF05A-AZEI1(01)',
'BDC_OKCODE' '=PI'.
WRITE: t_dados-d_valut TO v_valut.
MOVE: t_dados-umskz TO v_umskz,
t_dados-newbs TO v_newbs,
t_dados-d_newko TO v_agkon.
IF NOT v_newbs IS INITIAL.
PERFORM define_tela USING t_dados-tcode
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_30_Q
...
PERFORM bdc_field USING 'RF05A-ABPOS' '1'.
PERFORM bdc_screen USING 'SAPDF05X' '3100'.
PERFORM bdc_field USING 'BDC_OKCODE' '=BU'.
PERFORM bdc_field USING: 'BDC_CURSOR' 'DF05B-PSDIF(01)'.
PERFORM bdc_field USING 'RF05A-ABPOS' '1'.
PERFORM verifica_empresas USING t_dados-bukrs
'UMBUCHNG'
t_dados-agkon
t_dados-agkoa.
PERFORM bdc_screen USING 'SAPMF05A' '0700'.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_Q
if wa_tbsl-koart ne 'S'.
* << Fim da inclusão
PERFORM bdc_field USING:
'BDC_CURSOR' 'RF05A-AZEI1(01)',
'BDC_OKCODE' '=PI'.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_Q
else.
perform bdc_field using:
'BDC_CURSOR' 'RF05A-AZEI1(02)',
'BDC_OKCODE' '=PI'.
endif.
* << Fim da inclusão
WRITE: t_dados-d_valut TO v_valut.
PERFORM bdc_screen USING 'SAPMF05A' v_tela2.
PERFORM bdc_field USING:
'BDC_OKCODE' '=BU'.
IF NOT v_zbd1t IS INITIAL.
IF wa_tbsl-koart NE 'S'.
PERFORM bdc_field USING 'BSEG-ZBD1T' v_zbd1t.
ENDIF.
ENDIF.
IF NOT t_dados-d_valut IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F03
...
<fs_zycbt017>-bukrs
<fs_belnr>
<fs_budat>
'S'.
endif.
read table itab_zycbt030 with key nrinvoic = p_vinculacao-nrinvoic
nrparcf = p_vinculacao-nrparcf
gsberf = p_vinculacao-gsberf.
if itab_zycbt030-vlsltrans > 0.
if not <fs_zycbt030>-budat_t is initial
* >> Início da exclusão: FORM DOCUMENTO_FATURA
and <fs_zycbt030>-budat_t > <fs_zycbt030>-budat.
* << Fim da exclusão
* >> Início da inclusão: FORM DOCUMENTO_FATURA
and <fs_zycbt030>-budat_t > <fs_zycbt030>-budat
and <fs_zycbt030>-belnr ne <fs_zycbt030>-belnr6.
* << Fim da inclusão
assign <fs_zycbt030>-budat_t to <fs_budat>.
else.
assign <fs_zycbt030>-budat to <fs_budat>.
endif.
if <fs_zycbt030>-belnr6 is initial.
assign <fs_zycbt030>-belnr to <fs_belnr>.
else.
assign <fs_zycbt030>-belnr6 to <fs_belnr>.
endif.
perform adiciona_documentos
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F04
...
check not p_itab_fatura is initial.
select
bukrs nrinvoic belnr dtincl gsberf nrparcf saldo belnr2 dtbelnr
from /pws/zycbt209
into table p_itab_zycbt209
for all entries in p_itab_fatura
where
nrinvoic eq p_itab_fatura-nrinvoic and
gsberf eq p_itab_fatura-gsberf and
nrparcf eq p_itab_fatura-nrparcf and
* >> Início da exclusão: FORM SELECIONA_LIQUIDACAO_ANDAMENTO
saldo gt 0. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_LIQUIDACAO_ANDAMENTO
saldo gt 0. "#EC CI_NOFIRST
* << Fim da inclusão
endform.
form documento_contrato.
field-symbols:
<fs_belnr> type bseg-belnr,
<fs_dtdocto> type bseg-augdt.
data:
v_dtcont type bseg-augdt.
if /pws/zycbe001-belnr2 is initial.
assign /pws/zycbe001-belnr to <fs_belnr>.
else.
...
...
<fs_zycbt017>-bukrs
<fs_belnr>
<fs_budat>
'S'.
endif.
read table itab_zycbt030 with key nrinvoic = p_fatura-nrinvoic
nrparcf = p_fatura-nrparcf
gsberf = p_fatura-gsberf.
if itab_zycbt030-vlsltrans > 0.
if not <fs_zycbt030>-budat_t is initial
* >> Início da exclusão: FORM DOCUMENTO_FATURA
and <fs_zycbt030>-budat_t > <fs_zycbt030>-budat.
* << Fim da exclusão
* >> Início da inclusão: FORM DOCUMENTO_FATURA
and <fs_zycbt030>-budat_t > <fs_zycbt030>-budat
and <fs_zycbt030>-belnr ne <fs_zycbt030>-belnr6.
* << Fim da inclusão
assign <fs_zycbt030>-budat_t to <fs_budat>.
else.
assign <fs_zycbt030>-budat to <fs_budat>.
endif.
if <fs_zycbt030>-belnr6 is initial.
assign <fs_zycbt030>-belnr to <fs_belnr>.
else.
assign <fs_zycbt030>-belnr6 to <fs_belnr>.
endif.
perform adiciona_documentos
...