CE PLUS - Nota 004751
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 18/09/2007 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:15:12
Descrição da Nota: NOTA EXIT PARA ITENS DA NF
Sintoma
Valor da NF não está sendo calculado corretamente, não considerando a suspensão dos impostos.
Solução
verificar o parâmetro da /pws/zycit062-susp_nf levando em consideração a suspensão de cada imposto
de acordo com seu regime tributário.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04751 Data: 18/09/2007 Hora: 11:03:50
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04751
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00013
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03425 - 00001 - 7.0 - 00001 - TRATAMENTO DE REGIME TRIBUTÁRIO PRÓPRIO PARA O ICMS E PIS/COFINS
----------------------------------------------------------------------------------------------------
NOTA EXIT PARA ITENS DA NF
----------------------------------------------------------------------------------------------------
Palavras Chave:
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
REPS /PWS/MZYCI078F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
ENDCASE.
ENDIF.
CLEAR /pws/zycit036.
it_zycee007-mfrpn = itab_zycit003-mfrpn.
CONCATENATE itab_zycit042-ebeln '/' itab_zycit042-ebelp
INTO it_zycee007-msg1.
IF /pws/zycit001-regime = '16'.
it_zycee007-netpr = ( it_zycee007-taxval + it_zycee007-netoth ) /
it_zycee007-menge.
CLEAR: it_zycee007-netfre , it_zycee007-netins, it_zycee007-netoth.
* >> Início da inclusão: FORM ITENS_NFNEW
ENDIF.
REFRESH itab_zyglt100.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI016'
' '.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'DNF014' BINARY SEARCH.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
* << Fim da inclusão
ENDIF.
APPEND it_zycee007.
CLEAR it_zycee007.
MOVE itab_zycit042 TO itab_zycit042_mark.
APPEND itab_zycit042_mark.
ENDFORM.
FORM itens_nfrnew.
DATA v_val_icms_r LIKE /pws/zycee007-netpr.
DATA: itab_zycit398 LIKE /pws/zycit398 OCCURS 0 WITH HEADER LINE.
it_zycee007-tcode = text-009.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI078F01
...
v_basred ) + v_impostos.
ENDIF.
ELSE.
it_zycee007-p_excbas = it_zycee007-p_excbas + itab_zycit042-vldp +
v_impostos.
ENDIF.
CLEAR /pws/zycit036.
it_zycee007-mfrpn = itab_zycit003-mfrpn.
CONCATENATE itab_zycit042-ebeln '/' itab_zycit042-ebelp
INTO it_zycee007-msg1.
* >> Início da inclusão: FORM ITENS_NFNEW
REFRESH itab_zyglt100.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI078'
' '.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'DNF014' BINARY SEARCH.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
endif.
* << Fim da inclusão
APPEND it_zycee007.
CLEAR it_zycee007.
MOVE itab_zycit042 TO itab_zycit042_mark.
APPEND itab_zycit042_mark.
ENDFORM.
FORM itens_nfrnew.
DATA v_val_icms_r LIKE /pws/zycee007-netpr.
it_zycee007-tcode = text-009.
it_zycee007-tabela = text-025.
it_zycee007-cpochv = /pws/zycie043-nfremessa.
...