Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Despesas
Data/Hora da Publicação: 06/02/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:06:32
Descrição da Nota: SISTEMA NÃO REALIZA A FATURA EM ALGUNS EMBARQUES.
Sintoma
Sistema não realiza a fatura em alguns embarques.Efetuando o recebimento e estonando o valor
continua zerado na coluna realizado do custo efetivo.
Solução
Incluido tratamento para custear despesas FOB, C&F or CIF.
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00811 Data: 06/02/2006 Hora: 14:04:22
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00811
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00099
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
SISTEMA NÃO REALIZA A FATURA EM ALGUNS EMBARQUES.
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA - EMBARQUE - CUSTO EFETIVO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
PERFORM gravar_cambio.
ELSEIF /pws/zycie006-fhcambio = 'X'.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM ROTINA_DE_CONTABILIZACAO
if ( not v_contabilizou is initial and
( /pws/zycie006-belnr_p ne wa_zycie006_ini-belnr_p or
( itab_zycit132[] ne itab_zycit132_ini[] and
( itab_zycit132_ini[] is initial or
v_par = 'X' ) ) ) )
or ( /pws/zycie006-frpagto = 'A' ).
perform custeando_despesa_inco.
elseif ( /pws/zycie006-tpfatura = '01'
or /pws/zycie006-tpfatura = '11' ).
.
perform fill_nrseq_pgfat.
perform calc_vlreal.
endif.
commit work.
* << Fim da inclusão
IF /pws/zycie006-tpfatura EQ '11'.
IF v_parcela NE 'X'.
PERFORM cria_remessa.
ELSE.
LOOP AT itab_zycit132 WHERE status = 'C' OR status = space.
...
...
IF sy-subrc = 0.
v_par = 'X'.
ENDIF.
PERFORM verifica_associacao.
CLEAR v_parcela.
* >> Início da exclusão: FORM ROTINA_DE_CONTABILIZACAO
IF ( NOT v_contabilizou IS INITIAL AND
( /pws/zycie006-belnr_p NE wa_zycie006_ini-belnr_p OR
( itab_zycit132[] NE itab_zycit132_ini[] AND
( itab_zycit132_ini[] IS INITIAL OR
v_par = 'X' ) ) ) )
OR ( /pws/zycie006-frpagto = 'A' ).
PERFORM custeando_despesa_inco.
ELSEIF ( /pws/zycie006-tpfatura = '01'
OR /pws/zycie006-tpfatura = '11' ).
PERFORM fill_nrseq_pgfat.
PERFORM calc_vlreal.
ENDIF.
* << Fim da exclusão
REFRESH itab_matuse.
IF /pws/zycie006-flagdesc NE wa_zycie006_ini-flagdesc OR
/pws/zycie006-bcofav NE wa_zycie006_ini-bcofav OR
wa_zycbt078_ini IS INITIAL.
/pws/zycbt078-nrseq = /pws/zycie006-nrseq.
...