CE PLUS - Nota 002529
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 28/11/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:51:45
Descrição da Nota: ERRO NA COMPENSAÇÃO DA VARIAÇÃO CAMBIAL DA DI
Sintoma
DI com Variação Cambial - Ao fazer a reclassificação da IA Ocorre erro no batch input, mais
precisamente na contabilização da Compensação.
Solução
Atualização do programa da DI para quando houver valores zerados não considerar compensação e
verificar fatura de frete e seguro.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02529 Data: 28/11/2006 Hora: 10:22:44
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02529
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00142
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01602 - 00001 - 6.0 - 00023 - AJUSTES HOMOLOGAÇÃO DI - CÁLCULOS, DESPESAS, REGIMES
----------------------------------------------------------------------------------------------------
ERRO NA COMPENSAÇÃO DA VARIAÇÃO CAMBIAL DA DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
VARIAÇÃO CAMBIAL - DI - RECLASSIFICAÇÃO DE IA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
text-158.
itab_zycbe033-waers = wa_zycbt007-waersb.
PERFORM verify_null_field USING wa_zycbt011-blart
'BLART'
text-159.
itab_zycbe033-blart = wa_zycbt011-blart.
itab_zycbe033-brnch = /pws/zycie085-j_1bbranch.
APPEND itab_zycbe033.
LOOP AT itab_zycit006 INTO wa_zycit006
WHERE belnr_p NE space.
* >> Início da inclusão: FORM FILL_DATE_F_51_VARIACAO
read table itab_di index 1.
if wa_zycit006-tpfatura eq '02' and itab_di-vlfre is initial.
continue.
elseif wa_zycit006-tpfatura eq '03' and itab_di-vlseg is initial.
continue.
endif.
* << Fim da inclusão
UNPACK itab_matuse_aux2-hkont TO itab_matuse_aux2-hkont.
UNPACK wa_zycit006-belnr_p TO wa_zycit006-belnr_p.
READ TABLE itab_bsis INTO wa_bsis
WITH KEY hkont = itab_matuse_aux2-hkont
belnr = wa_zycit006-belnr_p.
IF sy-subrc = 0.
itab_zycbt036-mandt = sy-mandt.
itab_zycbt036-tcode = 'F-51'.
itab_zycbt036-tabela = '/PWS/ZYCIT044'.
itab_zycbt036-cpochv = /pws/zycie085-nrseqdi.
...
...
IF itab_zycbe033-tcode = 'F-51'
AND NOT v_belnr IS INITIAL.
PERFORM: move_lanctos USING itab_di-vldi,
calcula_diferenca.
ELSEIF itab_zycbe033-tcode = 'F-51'.
PERFORM move_lanctos USING itab_di-vldi.
ELSEIF itab_zycbe033-tcode = 'F-05'.
PERFORM move_lanctos_f05.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM LANCTOS_VARIACAO
ELSEIF itab_bsis_aux-tpfatura = '02'.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCTOS_VARIACAO
ELSEIF itab_bsis_aux-tpfatura = '02'
and not itab_di-vlfre is initial.
* << Fim da inclusão
IF NOT /pws/zycit000-provfre IS INITIAL.
CONTINUE.
ENDIF.
PERFORM get_parameters_f_51_variacao USING '001VF'.
READ TABLE itab_zycbt012 WITH KEY
codaux = itab_matuse_aux2-j_1bmatuse.
vl_variacao = itab_di-vlfre - itab_bsis_aux-dmbtr.
IF itab_zycbe033-tcode = 'F-51'.
PERFORM move_lanctos USING itab_di-vlfre.
ELSEIF itab_zycbe033-tcode = 'F-05'.
PERFORM move_lanctos_f05.
ENDIF.
* >> Início da exclusão: FORM LANCTOS_VARIACAO
ELSEIF itab_bsis_aux-tpfatura = '03'.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCTOS_VARIACAO
ELSEIF itab_bsis_aux-tpfatura = '03'
and not itab_di-vlfre is initial.
* << Fim da inclusão
IF NOT /pws/zycit000-provseg IS INITIAL.
CONTINUE.
ENDIF.
PERFORM get_parameters_f_51_variacao USING '001VS'.
READ TABLE itab_zycbt012 WITH KEY
codaux = itab_matuse_aux2-j_1bmatuse.
vl_variacao = itab_di-vlseg - itab_bsis_aux-dmbtr.
IF itab_zycbe033-tcode = 'F-51'.
PERFORM move_lanctos USING itab_di-vlseg.
ELSEIF itab_zycbe033-tcode = 'F-05'.
...