CE PLUS - Nota 001229
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 19/04/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:18:38
Descrição da Nota: VALOR DO FRETE RODOVIÁRIO ESTÁ ENTRANDO NAS DESPESAS DE NOTA FISCAL.
Sintoma
Valor do frete rodoviário mencionado nas pastas despesas da DI está entrando na despesa da Nota
fiscal.
Solução
Atualização do programa de NF para retirar a excessão para tratamento de frete rodoviário que estava
entrando na despesa com base de II, mesmo quando dedução.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01229 Data: 19/04/2006 Hora: 18:29:07
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01229
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00110
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
VALOR DO FRETE RODOVIÁRIO ESTÁ ENTRANDO NAS DESPESAS DE NOTA FISCAL.
----------------------------------------------------------------------------------------------------
Palavras Chave:
FRETE RODOVIÁRIO - DESPESAS - NOTA FISCAL - DI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
v_tot_vldp = v_tot_vldp + v_vldp.
itab_zycit042_d-vldp = itab_zycit042_d-vldp + v_vldp.
CLEAR v_vldp.
ENDIF.
MODIFY itab_zycit042_d.
* >> Início da exclusão: FORM SELECIONA_DESPESAS
ELSE.
IF itab_zycit049_a-tpdesp EQ /pws/zycit000-flagfreten.
READ TABLE itab_zycit020 WITH KEY
codigo = itab_zycit019-codigo.
READ TABLE itab_zycit039 WITH KEY
codigo = itab_zycit020-codigo.
IF itab_zycit049_a-waers NE /pws/zycbt007-waersb.
PERFORM taxa_converte USING itab_zycit049_a-waers
/pws/zycit085-dttax
CHANGING v_taxa_desp.
itab_zycit049_a-vldp = itab_zycit049_a-vldp *
v_taxa_desp.
itab_zycit049_a-waers = /pws/zycbt007-waersb.
ENDIF.
IF v_lines = v_tabix.
v_vldp = itab_zycit049_a-vldp - v_tot_vldp.
itab_zycit042_d-vldp = itab_zycit042_d-vldp + v_vldp.
CLEAR v_vldp.
ELSE.
IF itab_zycit039-divabs = 'X'.
v_vldp = itab_zycit049_a-vldp / v_lines.
ELSEIF itab_zycit039-peso = 'X'.
v_vldp = itab_zycit049_a-vldp * itab_zycit003-ntgew /
v_tot_ntgew.
ELSEIF itab_zycit039-proporplan = 'X'.
IF NOT itab_zycit003-qtd_itend IS INITIAL.
v_vldp = itab_zycit049_a-vldp *
( itab_zycit003-netpr *
itab_zycit003-qtd_itend / v_tot_plan ).
ELSE.
v_vldp = itab_zycit049_a-vldp *
( itab_zycit003-netpr *
itab_zycit003-qtd_iten / v_tot_plan ).
ENDIF.
ELSE.
IF NOT itab_zycit003-qtd_itend IS INITIAL.
v_vldp = itab_zycit049_a-vldp *
( itab_zycit003-vlreal *
itab_zycit003-qtd_itend / v_tot_real ).
ELSE.
v_vldp = itab_zycit049_a-vldp *
( itab_zycit003-vlreal *
itab_zycit003-qtd_iten / v_tot_real ).
ENDIF.
ENDIF.
v_tot_vldp = v_tot_vldp + v_vldp.
itab_zycit042_d-vldp = itab_zycit042_d-vldp + v_vldp.
CLEAR v_vldp.
ENDIF.
MODIFY itab_zycit042_d.
ENDIF.
* << Fim da exclusão
ENDIF.
ENDLOOP.
ENDIF.
ENDLOOP.
LOOP AT itab_zycit042_d.
...
...
CLEAR: itab_zycit039, itab_zycit020, itab_zycit019.
READ TABLE itab_zycit019 WITH KEY
tpdesp = itab_zycit049-tpdesp.
IF itab_zycit019-tipo EQ 'A' OR
itab_zycit019-tipo IS INITIAL.
* >> Início da exclusão: FORM SELECIONA_DESPESAS
READ TABLE itab_zycit020 WITH KEY
codigo = itab_zycit019-codigo.
READ TABLE itab_zycit039 WITH KEY
codigo = itab_zycit020-codigo.
IF itab_zycit049-waers NE /pws/zycbt007-waersb.
PERFORM taxa_converte USING itab_zycit049-waers
/pws/zycit085-dttax
CHANGING v_taxa_desp.
itab_zycit049-vldp = itab_zycit049-vldp *
v_taxa_desp.
itab_zycit049-waers = /pws/zycbt007-waersb.
ENDIF.
IF v_lines = v_tabix.
v_vldp = itab_zycit049-vldp - v_tot_vldp.
itab_zycit042-vldp = itab_zycit042-vldp + v_vldp.
CLEAR v_vldp.
ELSE.
IF itab_zycit039-divabs = 'X'.
v_vldp = itab_zycit049-vldp / v_lines.
ELSEIF itab_zycit039-peso = 'X'.
v_vldp = itab_zycit049-vldp * itab_zycit003-ntgew /
v_tot_ntgew.
ELSEIF itab_zycit039-proporplan = 'X'.
IF NOT itab_zycit003-qtd_itend IS INITIAL.
v_vldp = itab_zycit049-vldp *
( itab_zycit003-netpr *
itab_zycit003-qtd_itend / v_tot_plan ).
ELSE.
v_vldp = itab_zycit049-vldp *
( itab_zycit003-netpr *
itab_zycit003-qtd_iten / v_tot_plan ).
ENDIF.
ELSE.
IF NOT itab_zycit003-qtd_itend IS INITIAL.
v_vldp = itab_zycit049-vldp *
( itab_zycit003-vlreal *
itab_zycit003-qtd_itend / v_tot_real ).
ELSE.
v_vldp = itab_zycit049-vldp *
( itab_zycit003-vlreal *
itab_zycit003-qtd_iten / v_tot_real ).
ENDIF.
ENDIF.
v_tot_vldp = v_tot_vldp + v_vldp.
itab_zycit042-vldp = itab_zycit042-vldp + v_vldp.
CLEAR v_vldp.
ENDIF.
MODIFY itab_zycit042.
ELSE.
IF itab_zycit049-tpdesp EQ /pws/zycit000-flagfreten.
* << Fim da exclusão
READ TABLE itab_zycit020 WITH KEY
codigo = itab_zycit019-codigo.
READ TABLE itab_zycit039 WITH KEY
codigo = itab_zycit020-codigo.
IF itab_zycit049-waers NE /pws/zycbt007-waersb.
...
...
v_tot_vldp = v_tot_vldp + v_vldp.
itab_zycit042-vldp = itab_zycit042-vldp + v_vldp.
CLEAR v_vldp.
ENDIF.
MODIFY itab_zycit042.
* >> Início da exclusão: FORM SELECIONA_DESPESAS
ENDIF.
* << Fim da exclusão
ENDIF.
ENDLOOP.
ENDIF.
ENDLOOP.
IF NOT /pws/zycit000-flag_txsisc IS INITIAL.
...