CE PLUS - Nota 006740
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 11/06/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:59:29
Descrição da Nota: VINCULAÇÃO - CONTABILIZAÇÃO COM JPY
Sintoma
O Programa não seleciona a atribuição da partida do documento e não envia o valor correto da
vinculação no desmembramento do contrato.
Solução
O Programa não seleciona a atribuição da partida do documento e não envia o valor correto da
vinculação no desmembramento do contrato.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06740 Data: 11/06/2008 Hora: 16:47:30
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06740
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00051
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03478 - 00001 - 7.0 - 00001 - VINCULAÇÃO LIQ. AUT. / LIQUIDAÇÃO - CÂMBIO PRONTO - ARBITRAGEM
----------------------------------------------------------------------------------------------------
VINCULAÇÃO - CONTABILIZAÇÃO COM JPY
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO - CONTABILIZAÇÃO COM JPY
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB009F08
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F08
...
itab_zycbe033-d_newko = wa_zycbt005-kunnr.
itab_zycbe033-agkoa = 'D'.
itab_zycbe033-awtyp = '2'.
itab_zycbe033-belnr = itab_zycbt030-v_belnr.
CONCATENATE text-375 wa_zycbt005-nrinvoic
INTO itab_zycbe033-d_zuonr
SEPARATED BY space.
SELECT SINGLE gjahr
FROM bseg
INTO v_gjahr
* >> Início da exclusão: FORM FILL_DATE6_F30_CLIENTE
WHERE belnr = itab_zycbt030-belnr AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F30_CLIENTE
WHERE belnr = itab_zycbt030-v_belnr AND
* << Fim da inclusão
bukrs = wa_zycbt005-bukrs AND
kunnr = wa_zycbt005-kunnr.
IF sy-subrc EQ 0.
SELECT SINGLE budat
FROM bkpf
INTO itab_zycbe033-dtdocto
* >> Início da exclusão: FORM FILL_DATE6_F30_CLIENTE
WHERE belnr = itab_zycbt030-belnr AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F30_CLIENTE
WHERE belnr = itab_zycbt030-v_belnr AND
* << Fim da inclusão
bukrs = wa_zycbt005-bukrs AND
gjahr = v_gjahr.
ENDIF.
PERFORM verifica_prorrogacao.
itab_zycbe033-zbd1t = v_zbd1t.
IF itab_zycbe033-wrbtr GT 0.
APPEND itab_zycbe033.
ENDIF.
itab_zycbt036-tcode = itab_zycbe033-tcode.
itab_zycbt036-tabela = itab_zycbe033-tabela.
...
...
itab_zycbe033-agkon = itab_zyglt316-konth.
itab_zycbe033-d_newko = itab_zyglt316-konth.
itab_zycbe033-newbs = '50'.
CLEAR itab_zycbe033-agums.
ELSEIF itab_zycbt005-tpcontr(01) = 'D'.
itab_zycbe033-d_newko = /pws/zycbe001-kunnr.
MOVE wa_zycbt011-agums TO itab_zycbe033-agums.
MOVE wa_zycbt011-agums TO itab_zycbe033-umskz.
itab_zycbe033-newbs = '19'.
ENDIF.
* >> Início da exclusão: FORM FILL_DATE6_F30_CP
itab_zycbe033-wrbtr = itab_zycbt005-vlme_p * itab_zycbt005-parid..
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F30_CP
SELECT *
UP TO 1 ROWS
FROM tcurx
WHERE currkey = itab_zycbt005-waers.
ENDSELECT.
IF sy-subrc <> 0.
tcurx-currdec = 2.
ENDIF.
itab_zycbe033-wrbtr =
( itab_zycbt005-vlme_p * itab_zycbt005-parid ) /
( 10 ** ( tcurx-currdec - 2 ) ).
* << Fim da inclusão
itab_zycbe033-c_gsber = wa_zycbt005-gsberf.
itab_zycbe033-d_gsber = wa_zycbt005-gsberf.
itab_zycbe033-waers = wa_zycbt005-waers_c.
* >> Início da exclusão: FORM FILL_DATE6_F30_CP
itab_zycbe033-wrbtr = itab_zycbt005-vlme_p * itab_zycbt005-parid.
* << Fim da exclusão
itab_zycbe033-agkoa = 'S'.
CLEAR itab_zycbe033-awtyp.
CASE /pws/zycbe001-fdtlanc.
WHEN 'O'.
...