CE PLUS - Nota 001265
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 28/04/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:30:31
Descrição da Nota: AO CRIAR A NF O VALOR REFERENTE A *OUTRA BASE* DO IPI NÃO ESTÁ CRIANDO
Sintoma
1 -Ao criar DSI (courrier), o CE não traz a base de cálculo do IPI, PIS, Cofins.
2 - Ao criar a nota fiscal o valor referente a *outra base* do IPI não está sendo alimentado.
3 -Hoje no ambiente de produção as bases de cálculo de PIS e Cofins são editáveis (campos abertos),
e o CE está trazendo estes campos fechados.
Solução
Ajuste no ITENS_NFNEW calculo da base do IPI para meio embarque = PS.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01265 Data: 28/04/2006 Hora: 18:21:27
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01265
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00111
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00941 - 00001 - 6.0 - 00022 - VALOR DE ``BASE DE CÁLCULO DO ICMS`` INCORRETO PARA
----------------------------------------------------------------------------------------------------
AO CRIAR A NF O VALOR REFERENTE A *OUTRA BASE* DO IPI NÃO ESTÁ CRIANDO
----------------------------------------------------------------------------------------------------
Palavras Chave:
NF, IPI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
it_bdc-fval = p_fval.
ENDIF.
APPEND it_bdc.
ENDFORM.
FORM itens_nfnew.
* >> Início da exclusão: FORM ITENS_NFNEW
DATA v_val_icms LIKE /pws/zycee007-netpr.
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NFNEW
DATA: v_val_icms LIKE /pws/zycee007-netpr,
v_base_ps like /pws/zycee007-base.
* << Fim da inclusão
it_zycee007-tcode = text-065.
it_zycee007-tabela = text-014.
it_zycee007-cpochv = /pws/zycie041-nfglobal.
it_zycee007-itmtyp = itab_zycit033-tpmat.
READ TABLE itab_ekpo WITH KEY ebeln = itab_zycit042-ebeln
...
...
ENDIF.
v_base_dif = v_base_dif + v_base2.
ENDIF.
it_zycee007-base = v_base.
it_zycee007-c_excbas = v_excbas .
* >> Início da inclusão: FORM ITENS_NFNEW
if /pws/zycit001-meioemba = 'PS'
and not itab_zycit100-codregtri eq '7'.
v_base_ps = it_zycee007-base + it_zycee007-c_excbas.
endif.
* << Fim da inclusão
WHEN 2.
PERFORM verifica_montante.
v_montante1 = itab_zycit100-baseicms.
it_zycee007-c_excbas = v_montante1.
CLEAR: it_zycee007-taxval.
...
...
IF /pws/zycit062-flag_icms = 'X'.
it_zycee007-c_excbas = it_zycee007-c_excbas
- itab_zycit100-vlicms.
ENDIF.
v_base_dif = v_base_dif + itab_zycit100-baseicms.
* >> Início da inclusão: FORM ITENS_NFNEW
ENDIF.
if /pws/zycit001-meioemba = 'PS'
and not itab_zycit100-codregtri eq '7'.
v_base_ps = it_zycee007-c_excbas.
* << Fim da inclusão
ENDIF.
WHEN 3.
PERFORM verifica_montante.
v_montante1 = itab_zycit100-baseicms.
v_othbas = v_montante1 .
...
...
- itab_zycit100-vlicms.
v_base_dif = v_base_dif + itab_zycit100-baseicms.
ENDIF.
it_zycee007-othbas = v_othbas.
it_zycee007-c_excbas = v_excbas.
* >> Início da inclusão: FORM ITENS_NFNEW
if /pws/zycit001-meioemba = 'PS'
and not itab_zycit100-codregtri eq '7'.
v_base_ps = it_zycee007-othbas + it_zycee007-c_excbas.
endif.
* << Fim da inclusão
ENDCASE.
CLEAR: v_base, v_othbas.
CLEAR itab_zycit036.
READ TABLE itab_zycit036 WITH KEY nrseq = itab_zycit042-nrseq
ebeln = itab_zycit042-ebeln
...
...
PERFORM verifica_montante.
v_montante1 = itab_zycit100-baseipi.
it_zycee007-base2 = v_montante1.
IF itab_zycit100-codregtri = '5'.
it_zycee007-base2 = it_zycee007-base2 - itab_zycit100-vlii.
* >> Início da inclusão: FORM ITENS_NFNEW
ENDIF.
if /pws/zycit001-meioemba = 'PS'
and not itab_zycit100-codregtri eq '7'.
it_zycee007-base2 = it_zycee007-base2 +
v_base_ps - it_zycee007-taxval.
* << Fim da inclusão
ENDIF.
WHEN 2.
PERFORM verifica_montante.
v_montante1 = itab_zycit100-baseipi.
it_zycee007-p_excbas = v_montante1.
IF itab_zycit100-codregtri = '5'.
it_zycee007-p_excbas = it_zycee007-p_excbas -
itab_zycit100-vlii.
ENDIF.
CLEAR it_zycee007-taxval2.
* >> Início da inclusão: FORM ITENS_NFNEW
if /pws/zycit001-meioemba = 'PS'
and not itab_zycit100-codregtri eq '7'.
it_zycee007-p_excbas = it_zycee007-p_excbas + v_base_ps -
it_zycee007-taxval.
endif.
* << Fim da inclusão
WHEN 3.
PERFORM verifica_montante.
v_montante1 = itab_zycit100-baseipi.
it_zycee007-othbas2 = v_montante1.
IF itab_zycit100-codregtri = '5'.
it_zycee007-othbas2 = it_zycee007-othbas2 - itab_zycit100-vlii.
* >> Início da inclusão: FORM ITENS_NFNEW
ENDIF.
if /pws/zycit001-meioemba = 'PS'
and not itab_zycit100-codregtri eq '7'.
it_zycee007-othbas2 = it_zycee007-othbas2 +
v_base_ps - it_zycee007-taxval.
* << Fim da inclusão
ENDIF.
ENDCASE.
DATA: itab_zycit398 LIKE /pws/zycit398 OCCURS 0 WITH HEADER LINE.
SELECT * FROM /pws/zycit398
INTO TABLE itab_zycit398
...
...
PERFORM verifica_montante.
v_montante1 = itab_zycit100-basecofins.
it_zycee007-othbas_cof = v_montante1.
ENDCASE.
ENDIF.
* >> Início da inclusão: FORM ITENS_NFNEW
IF /pws/zycit062-flag_icms = 'X' and /pws/zycit001-meioemba ne 'PS'.
* << Fim da inclusão
* >> Início da exclusão: FORM ITENS_NFNEW
IF /pws/zycit062-flag_icms = 'X'.
* << Fim da exclusão
IF NOT v_basred IS INITIAL.
it_zycee007-p_excbas = it_zycee007-p_excbas +
itab_zycit042-vldp + ( ( it_zycee007-taxval * 100 ) /
v_basred ) + v_impostos.
ELSE.
v_basred = '100'.
it_zycee007-p_excbas = it_zycee007-p_excbas +
itab_zycit042-vldp + ( ( it_zycee007-taxval * 100 ) /
v_basred ) + v_impostos.
ENDIF.
* >> Início da exclusão: FORM ITENS_NFNEW
ELSE.
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NFNEW
ELSEif /pws/zycit001-meioemba ne 'PS'.
* << Fim da inclusão
it_zycee007-p_excbas = it_zycee007-p_excbas + itab_zycit042-vldp +
v_impostos.
* >> Início da inclusão: FORM ITENS_NFNEW
else.
if not itab_zycit100-codregtri eq '7'.
it_zycee007-p_excbas = it_zycee007-p_excbas +
itab_zycit042-vldp + it_zycee007-taxval.
endif.
* << Fim da inclusão
ENDIF.
CLEAR /pws/zycit036.
it_zycee007-mfrpn = itab_zycit003-mfrpn.
CONCATENATE itab_zycit042-ebeln '/' itab_zycit042-ebelp
INTO it_zycee007-msg1.
...