CE PLUS - Nota 001716
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 12/07/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:34:00
Descrição da Nota: AJUSTES NO DETALHE DO ITEM / ADIÇÃO DA DI
Sintoma
No detalhe do item, pasta Tributos - PIS/COFINS, o fundamento legal está sendo preenchido
automaticamente com Drawback, mas não existe processo de Drawback vinculado; consequentemente na
Adição, pasta Tributos PIS/COFINS, o fundamento legal está como Drawback.
Na adição da DI, Pasta Produto 1, o programa não está levando corretamente as alíquotas de II e IPI.
Para DI's onde existe apenas uma Adição para mais de um item, na adição, pasta Tributos -
PIS/COFINS, o valor da base de cálculo está levando de apenas um item e as quantidade também estão
sendo apresentadas como de apenas um item.
Solução
Atualizações para as quebras e preenchimento da adição da DI.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01716 Data: 12/07/2006 Hora: 14:31:01
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01716
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00122
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01602 - 00001 - 6.0 - 00023 - AJUSTES HOMOLOGAÇÃO DI - CÁLCULOS, DESPESAS, REGIMES
----------------------------------------------------------------------------------------------------
AJUSTES NO DETALHE DO ITEM / ADIÇÃO DA DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
DETALHE DO ITEM - DI - ADIÇÃO - ALIQUOTAS
PROCESSO COM DRAWBACK
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023O01
REPS /PWS/MZYCI023X01
DYNP 0346
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
IF v_flag_quebra IS INITIAL AND v_cont > 80.
PERFORM adic_next.
ENDIF.
itab_it-adicao = v_adic.
MODIFY itab_it INDEX sy-tabix TRANSPORTING adicao.
* >> Início da exclusão: FORM ADIC_LIST
it_adi-adicao = v_adic.
* << Fim da exclusão
* >> Início da inclusão: FORM ADIC_LIST
it_adi-adicao = v_adic.
* << Fim da inclusão
it_adi-nrseqdi = /pws/zycie085-nrseqdi.
it_adi-nrseq = itab_it-nrseq .
it_adi-ebeln = itab_it-ebeln .
it_adi-ebelp = itab_it-ebelp .
it_adi-nrseqli = itab_it-nrseqli .
...
...
a_ipitdevi, a_ipitreco, v_tot_seg, v_tseg,
a_pistcalc, a_pistredu, a_pistdevi, a_pistreco,
a_coftcalc, a_coftredu, a_coftdevi, a_coftreco,
v_tfre, v_tot_fre, v_tfrefat,
a_addevi, a_adreco, a_icdevi, a_icreco,
* >> Início da exclusão: FORM CALC_ITAB_ADIC
/pws/zycie116-baseii, v_tot_plan.
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_ITAB_ADIC
/pws/zycie116-baseii, v_tot_plan,
a_basepc.
* << Fim da inclusão
.
LOOP AT itab_it.
v_tntgew = v_tntgew + itab_it-ntgew.
ENDLOOP.
LOOP AT itab_itb.
...
...
a_adreco = a_addevi = a_addevi + ( itab_itb-baseantid * (
itab_itb-antidrate / 100 ) ) + ( itab_itb-vlantid *
itab_itb-qtdeantid ).
a_baseii = a_baseii + itab_itb-baseii.
a_baseipi = a_baseipi + itab_itb-baseipi .
* >> Início da inclusão: FORM CALC_ITAB_ADIC
a_basepc = a_basepc + itab_itb-basepis.
* << Fim da inclusão
a_iitcalc = a_iitcalc + itab_itb-ii_calculado.
a_iitredu = a_iitredu + itab_itb-ii_reduzido .
a_iitdevi = a_iitdevi + itab_itb-ii_devido .
a_iitreco = a_iitreco + itab_itb-ii_recolher .
a_ipitdevi = a_ipitdevi + itab_itb-ipi_devido .
...
...
/pws/zycie116-ii_recolher = a_iitreco.
/pws/zycie116-ipi_devido = a_ipitdevi.
/pws/zycie116-ipi_recolher = a_ipitreco.
/pws/zycie116-ad_devido = a_addevi.
/pws/zycie116-ad_recolher = a_adreco.
* >> Início da exclusão: FORM CALC_ITAB_ADIC
/pws/zycie116-basepis = itab_itb-basepis.
* << Fim da exclusão
/pws/zycie116-PIS_CALCULADO = a_pistcalc.
/pws/zycie116-pis_reduzido = a_pistredu.
/pws/zycie116-pis_devido = a_pistdevi.
/pws/zycie116-pis_recolher = a_pistreco.
* >> Início da exclusão: FORM CALC_ITAB_ADIC
/pws/zycie116-basecofi = itab_itb-basepis.
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_ITAB_ADIC
/pws/zycie116-basecofi = /pws/zycie116-basepis = a_basepc.
* << Fim da inclusão
/pws/zycie116-cofi_CALCULADO = a_coftcalc.
/pws/zycie116-cofi_reduzido = a_coftredu.
/pws/zycie116-cofi_devido = a_coftdevi.
/pws/zycie116-cofi_recolher = a_coftreco.
* >> Início da exclusão: FORM CALC_ITAB_ADIC
.
* << Fim da exclusão
ENDFORM.
FORM fill_taxasiscomex USING p_adics.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie085-bukrs.
SELECT SINGLE * FROM /pws/zycit000 WHERE land1 EQ t001-land1.
SELECT SINGLE * FROM /pws/zycbt007 INTO wa_zycbt007
...
...
FORM adic_load.
CLEAR: itab_itb, itab_zycit114b, itab_zycit115b,
itab_zycit118b, itab_zycit121b, itab_zycit121c,
itab_zycit124b, itab_zycit049b, itab_zycit049c,
itab_zycit195, itab_zycit200b,
a_vlrtot, a_qtdeest, a_uqtde,
a_vmler, a_adbase, rtextx,
a_vladu ,
v_ttad_plan, v_itad_plan,
* >> Início da inclusão: FORM ADIC_LOAD
v_qtd_pis, v_qtd_cof.
* << Fim da inclusão
REFRESH: itab_itb, itab_zycit114b, itab_zycit115b,
itab_zycit118b, itab_zycit121b, itab_zycit121c,
itab_zycit124b, itab_zycit049b, itab_zycit049c,
itab_zycit195, itab_zycit200b,
rtextx.
LOOP AT itab_it WHERE adicao = wa_it-adicao.
CASE s_inco1_ci.
WHEN 'C&F'.
itab_it-vlreal_aux2 =
( ( ( itab_it-vlreal * itab_it-qtd_iten ) + itab_it-vldiffob +
itab_it-vlfre_me ) / itab_it-qtd_iten ) -
( itab_it-frn / itab_it-qtd_iten ) .
WHEN 'CIF'.
...
...
a_qtdeest = a_qtdeest + itab_itb-qtdeumest.
a_uqtde = a_uqtde + itab_itb-unit_qtde.
a_adbase = a_adbase + itab_itb-baseantid.
LOOP AT itab_zycit115 WHERE nrseq = itab_itb-nrseq AND
ebeln = itab_itb-ebeln AND
ebelp = itab_itb-ebelp.
APPEND itab_zycit115 TO itab_zycit115b.
ENDLOOP.
PERFORM text_adic_fill.
* >> Início da inclusão: FORM ADIC_LOAD
if not itab_itb-qtd_itend is initial.
v_qtd_pis = v_qtd_cof = v_qtd_pis + itab_itb-qtd_itend .
else.
v_qtd_pis = v_qtd_cof = v_qtd_pis + itab_itb-qtd_iten .
endif.
* << Fim da inclusão
ENDLOOP.
READ TABLE rtextx INDEX 1.
a_espe2 = rtextx-tdline.
LOOP AT itab_zycit114 WHERE adicao = wa_it-adicao.
APPEND itab_zycit114 TO itab_zycit114b.
ENDLOOP.
LOOP AT itab_zycit118 WHERE adicao = wa_it-adicao.
APPEND itab_zycit118 TO itab_zycit118b.
ENDLOOP.
IF itab_zycit118b[] IS INITIAL.
v_ncm01 = 1.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023O01
...
ENDMODULE.
MODULE load_data_blitem OUTPUT.
IF sy-ucomm EQ 'DETA'.
READ TABLE itab_it INDEX v_ip.
ENDIF.
* >> Início da exclusão: MODULE LOAD_DATA_BLITEM
MOVE wa_it-pproc TO itab_it-pproc.
* << Fim da exclusão
IF itab_it NE wa_it.
PERFORM fill_itabitc.
SELECT SINGLE embarca FROM /pws/zycit001 INTO t_embarc WHERE
nrseq = itab_it-nrseq.
READ TABLE itab_zycit003 WITH KEY nrseq = itab_it-nrseq
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023X01
...
a_vladu like t_icms,
a_vmler LIKE t_icms,
a_itfre LIKE t_icms,
a_itseg LIKE t_icms,
a_baseii LIKE /pws/zycie116-baseii,
* >> Início da inclusão:
a_basepc LIKE /pws/zycie116-basepis,
* << Fim da inclusão
a_iitcalc LIKE t_icms,
a_iitredu LIKE t_icms,
a_iitdevi LIKE t_icms,
a_iitreco LIKE t_icms,
a_ipitdevi LIKE t_icms,
...
...
DATA: v_xa LIKE t_icms,
v_xb LIKE t_icms,
v_xc LIKE t_icms,
v_fatx TYPE p DECIMALS 8,
v_faty TYPE p DECIMALS 8,
v_tot_real LIKE /pws/zycie003-vlreal,
v_fatpc LIKE t_icms,
v_nova,
* >> Início da inclusão:
V_ITAD_PLAN LIKE /PWS/ZYCIT003-NETPR,
V_TTAD_PLAN LIKE /PWS/ZYCIT003-NETPR ,
v_qtd_pis like /pws/zycie003-qtd_iten ,
v_qtd_cof like /pws/zycie003-qtd_iten .
* << Fim da inclusão
* Work Áreas
data: wa_it000 LIKE /pws/zycit000,
wa_zycit078 like /pws/zycit078.
data: end of common part.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP 0346
*O seguinte campo foi inserido
Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
A_BASEPC
I/O 1 56 20 20 1 DEC Off
V_QTD_PIS
I/O 16 23 17 17 1 DEC Off
Alinh.à dir.
V_QTD_COF
I/O 16 64 17 17 1 DEC Off
Alinh.à dir.
*Os seguintes campos foram eliminados
Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
WA_IT-BASEPIS
I/O 1 56 16 16 1 DEC Off
Alinh.à dir.
T_PIS
I/O 16 24 16 16 1 DEC Off
Alinh.à dir.
T_COFINS
I/O 16 65 16 16 1 DEC Off
Alinh.à dir.