CE PLUS - Nota 004809
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Despesas
Data/Hora da Publicação: 24/09/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 15:48:40
Descrição da Nota: CÁLCULO DOS IMPOSTOS NA FATURA DE DESPESAS - AMÉRICA LA
Sintoma
Mensagem de Erro " M8 534 - Saldo difetente de zero ..."
Solução
Foi corrigido o rateio dos impostos
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04809 Data: 24/09/2007 Hora: 17:51:40
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04809
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00013
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04650 - 00001 - 7.0 - 00003 - AJUST ENO CALCULO DO IVA PARA A BAP DA MIRO.
----------------------------------------------------------------------------------------------------
CÁLCULO DOS IMPOSTOS NA FATURA DE DESPESAS - AMÉRICA LA
----------------------------------------------------------------------------------------------------
Palavras Chave:
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
IF NOT itab_zycit399-codigo IS INITIAL.
IF itab_zycit403[] IS INITIAL.
MESSAGE i015 WITH text-176.
ENDIF.
DELETE itab_zycit403 WHERE valorrec EQ space.
LOOP AT itab_zycit403.
itab_zycit403a-codigo = itab_zycit403-codigo.
itab_zycit403a-valorrec = itab_zycit403-valorrec.
COLLECT itab_zycit403a.
ENDLOOP.
* >> Início da inclusão: FORM MIRO_AM_LA
describe table itab_zycit003 lines v_line.
* << Fim da inclusão
CLEAR: v_erro.
LOOP AT itab_zycit047 WHERE vldp > 0.
READ TABLE itab_zycit019 WITH KEY
tpdesp = itab_zycit047-tpdesp.
READ TABLE itab_zycit399 WITH KEY codigo = itab_zycit019-codigo.
IF sy-subrc EQ 0.
READ TABLE itab_zycit403a WITH KEY
codigo = itab_zycit019-codigo.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-177 itab_zycit047-descr.
v_erro = 'X'.
EXIT.
ENDIF.
ELSE.
CONTINUE.
ENDIF.
* >> Início da exclusão: FORM MIRO_AM_LA
CLEAR: v_vlaux.
* << Fim da exclusão
* >> Início da inclusão: FORM MIRO_AM_LA
CLEAR: v_vlaux, v_indice.
* << Fim da inclusão
LOOP AT itab_zycit403 WHERE codigo = itab_zycit019-codigo.
* >> Início da inclusão: FORM MIRO_AM_LA
v_indice = v_indice + 1.
* << Fim da inclusão
READ TABLE itab_zycit003
WITH KEY ebeln = itab_zycit403-ebeln
ebelp = itab_zycit403-ebelp.
CLEAR: itab_zycit031.
itab_zycit031-tcode = itab_zycie033-tcode .
itab_zycit031-tabela = itab_zycie033-tabela .
itab_zycit031-cpochv = itab_zycie033-cpochv .
itab_zycit031-ebeln = itab_zycit003-ebeln .
itab_zycit031-ebelp = itab_zycit003-ebelp .
itab_zycit031-meins = itab_zycit003-meins .
itab_zycit031-mwskz = itab_zycie033-mwskz .
itab_zycit031-menge = itab_zycit003-qtd_iten.
itab_zycit031-wrbtr = itab_zycit047-vldp *
( itab_zycit403-valorrec / itab_zycit403a-valorrec ).
v_vlaux = v_vlaux + itab_zycit031-wrbtr.
* >> Início da inclusão: FORM MIRO_AM_LA
if v_line = v_indice.
v_vlaux = itab_zycit047-vldp - v_vlaux.
itab_zycit031-wrbtr = itab_zycit031-wrbtr + v_vlaux.
endif.
* << Fim da inclusão
CLEAR: itab_zycit030.
READ TABLE itab_zycit030 WITH KEY
codigo = itab_zycit019-codigo.
itab_zycit031-lgort = itab_zycit030-kschl.
READ TABLE itab_zycit047a WITH KEY
tpdesp = itab_zycit047-tpdesp.
IF sy-subrc EQ 0.
itab_zycit031-sernp = 'X'.
ENDIF.
CLEAR: itab_ekko_a.
...
...
ENDLOOP.
ENDIF.
COLLECT itab_zycit031.
IF itab_zycit031-lgort IS INITIAL.
itab_zycit031-menge = itab_zycit003-qtd_iten.
MODIFY itab_zycit031 TRANSPORTING menge
WHERE ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp.
ENDIF.
ENDLOOP.
* >> Início da exclusão: FORM MIRO_AM_LA
v_vlaux = itab_zycit047-vldp - v_vlaux.
itab_zycit031-wrbtr = itab_zycit031-wrbtr + v_vlaux.
MODIFY itab_zycit031 TRANSPORTING wrbtr
WHERE ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp
AND lgort EQ itab_zycit031-lgort.
* << Fim da exclusão
ENDLOOP.
IF v_erro EQ 'X'.
EXIT.
ENDIF.
ENDIF.
ELSEIF /pws/zycie006-tpfatura EQ '02'.
READ TABLE itab_zycit030 WITH KEY codigo = 'FRETEI'.
LOOP AT itab_zycit003.
READ TABLE itab_contas_aux WITH KEY ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
...