CE PLUS - Nota 003377
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 02/04/2007 00:00:00
Data/Hora Última Alteração: 08/03/2010 20:26:24
Descrição da Nota: DI ESTÁ QUEBRANDO OS ITENS EM MAIS ADIÇÕES DO QUE NECESSÁRIO
Sintoma
DI ESTÁ QUEBRANDO OS ITENS EM MAIS ADIÇÕES DO QUE NECESSÁRIO.
Solução
Atualização do programa da DI para que o sistema realize a quebra de adições dos ítens corretamente.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03377 Data: 02/04/2007 Hora: 17:17:30
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03377
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00027
Agrupamento : 00160
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
DI ESTÁ QUEBRANDO OS ITENS EM MAIS ADIÇÕES DO QUE NECESSÁRIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ERRO NA QUEBRA DAS ADIÇÕES DA DI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F02
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
PERFORM trata_decimais USING /pws/zycie085-waersfre
/pws/zycie085-vlfre.
/pws/zycie085-vlfobr = s_fbvr.
ENDFORM.
FORM adic_list.
CLEAR: it_adi[], /pws/zycie100a, itab_itb.
REFRESH: it_adi[].
CLEAR: itab_it_aux[].
REFRESH: itab_it_aux[].
MOVE itab_it[] TO itab_it_aux[].
* >> Início da inclusão: FORM ADIC_LIST
PERFORM data_sort.
* << Fim da inclusão
IF itab_zycit001-flag_adicao EQ 'X'.
v_adic = 0.
ELSE.
v_adic = 1.
ENDIF.
CLEAR: v_tabix, v_cont.
LOOP AT itab_it_aux.
IF sy-tabix = 1.
MOVE-CORRESPONDING itab_it_aux TO itab_itb.
ENDIF.
...
...
/pws/zycie085-dttax
CHANGING /pws/zycie085-ukursseg,
load_sevl.
ENDIF.
DESCRIBE TABLE itab_zycit116 LINES v_ipa.
PERFORM fill_taxasiscomex USING v_ipa.
SORT itab_it BY nrseq ebeln ebelp.
PERFORM calc_itab.
IF NOT itab_it[] IS INITIAL.
PERFORM adic_list.
* >> Início da exclusão: FORM REFRESH_ALL
PERFORM data_sort.
* << Fim da exclusão
CLEAR v_pos.
LOOP AT it_alist.
v_pos = v_pos + 1.
PERFORM: adic_change,
adic_load,
calc_itab_adic,
save_adic.
ENDLOOP.
ENDIF.
ELSE.
...
...
/pws/zycie085-dttax
CHANGING /pws/zycie085-ukursseg,
load_sgvl.
ENDIF.
LOOP AT itab_it WHERE NOT waersbem IS initial AND
waersbem NE wa_zycbt007-waersb.
PERFORM: taxa_converte USING itab_it-waersbem /pws/zycie085-dttax
CHANGING itab_it-dttaxbem.
MODIFY itab_it INDEX sy-tabix TRANSPORTING dttaxbem.
ENDLOOP.
* >> Início da exclusão: FORM REFRESH_ALL
SORT itab_it BY nrseq ebeln ebelp.
* << Fim da exclusão
PERFORM calc_itab.
* >> Início da inclusão: FORM REFRESH_ALL
SORT itab_it BY nrseq ebeln ebelp.
* << Fim da inclusão
ENDIF.
PERFORM propoe_banco.
ENDFORM.
FORM update_item.
CLEAR: itab_zycit003.
REFRESH: itab_zycit003.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
...
load_sewa,
load_sgvl,
load_blag,
load_blitens,
load_reg,
calc_itab.
PERFORM concatena_empresa.
PERFORM atualiza_peso_desemb.
PERFORM: adic_list,
adic_li_data.
* >> Início da exclusão: FORM LOAD_BL
PERFORM data_sort.
* << Fim da exclusão
ELSE.
MESSAGE i015 WITH text-017 text-018.
ENDIF.
ENDIF.
ENDFORM.
FORM load_timp.
PERFORM texto_dominio USING '/PWS/ZYCID056' /pws/zycie085-tpimp
CHANGING t_imptip.
ENDFORM.
FORM load_nimp.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
itab_it-baseicms = t_icmsbs.
itab_it-vlicms = t_icms.
itab_it-vlpis = v_vlpisrec .
itab_it-vlcofins = v_vlcofrec.
t_pisbs = itab_it-basepis.
t_cofinsbs = itab_it-basecofins.
v_vlpisrec = t_pis .
v_vlcofrec = t_cofins.
ENDFORM.
FORM data_sort.
* >> Início da inclusão: FORM DATA_SORT
SORT itab_it_aux BY
* << Fim da inclusão
* >> Início da exclusão: FORM DATA_SORT
SORT itab_it BY
* << Fim da exclusão
j_1bnbm fabric lifnrfabr lifnr advalii
advalipi naladi naladincca codregtri codregtriipi
zterm meinsest pproc nrseqli aplicacao
condmerc inco1 codmat cacl codfunleg
acordo acordorate reduzida percreduz notatipi
reduzidaipi unit_valor unit_meins unit_reccapac unit_rectipo
waersbem dttaxbem antidrate extarif_al tipo_al
orgemiss_al numero_al anoemiss_al ii_extarif ii_tipo
ii_orgemiss ii_numero ii_anoemiss ipi_extarif ipi_tipo
ipi_orgemiss ipi_numero ipi_anoemiss ad_extarif ad_tipo
...
...
FORM comm_idel.
IF /pws/zycie085-dtreg IS INITIAL.
LOOP AT itab_it WHERE NOT mark IS initial.
DELETE itab_it INDEX sy-tabix.
ENDLOOP.
ENDIF.
ENDFORM.
FORM comm_adic.
IF NOT itab_it[] IS INITIAL.
PERFORM adic_list.
* >> Início da exclusão: FORM COMM_ADIC
PERFORM data_sort.
* << Fim da exclusão
DO.
CALL SCREEN '0170' STARTING AT 5 2.
IF sy-ucomm = 'ENTE'.
PERFORM adic_load.
ELSE.
EXIT.
ENDIF.
ENDDO.
ENDIF.
ENDFORM.
...