CE PLUS - Nota 008651
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 08/07/2009 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:20:10
Descrição da Nota: FATURA DE MERCADORIA COM DATA PLANEJADA NA OBBO PARA DATA BASE
Sintoma
Ao criar uma Fatura de Mercadoria com Data Base Planejada na OBBO pela condição de Pagto. Ele não
estava atualizando o Cambio com a Data de Vencto calculada
Solução
Atualizar o Cambio com a Data Vencto Calculada pelo parâmetro na OBBO conforme condição de Pagamento
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08651 Data: 08/07/2009 Hora: 10:59:28
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08651
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00104
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08265 - 00001 - 7.0 - 00009 - FATURA DE MERCADORIA IMPLEMENTAR TRATAMENTO PARA CALCULO DA DATA
----------------------------------------------------------------------------------------------------
FATURA DE MERCADORIA COM DATA PLANEJADA NA OBBO PARA DATA BASE
----------------------------------------------------------------------------------------------------
Palavras Chave:
DATA - BASE - VENCTO - VENCIMENTO - DTVENCTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
CLEAR: itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'FAT010' BINARY SEARCH.
e_subrc = '0'.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
IF e_subrc EQ 0.
* >> Início da inclusão: FORM ROTINA_DE_CONTABILIZACAO
IF /pws/zycie006-tpfatura <> '11' OR
( /pws/zycie006-tpfatura = '11' AND
/pws/zycie006-belnr_p IS INITIAL ).
PERFORM montar_dtvencto.
ENDIF.
* << Fim da inclusão
PERFORM gravar_cambio.
ENDIF.
ENDLOOP.
ENDIF.
ELSE.
IF NOT /pws/zycie006-tpfatura EQ '11'
AND e_subrc NE '8'.
IF /pws/zycie006-fhcambio = ' '.
REFRESH itab_zyglt100.
PERFORM verifica_exit USING 'D'
...
...
CLEAR: itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'FAT010' BINARY SEARCH.
e_subrc = '0'.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
IF e_subrc EQ 0.
* >> Início da inclusão: FORM ROTINA_DE_CONTABILIZACAO
IF /pws/zycie006-tpfatura <> '11' OR
( /pws/zycie006-tpfatura = '11' AND
/pws/zycie006-belnr_p IS INITIAL ).
PERFORM montar_dtvencto.
ENDIF.
* << Fim da inclusão
PERFORM gravar_cambio.
ENDIF.
ELSEIF /pws/zycie006-fhcambio = 'X'.
ENDIF.
ENDIF.
ENDIF.
IF v_recebi NE 'X'.
IF /pws/zycie006-tpfatura EQ '11'
AND e_subrc NE '8'.
PERFORM cria_remessa.
...