CE PLUS - Nota 006382
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 14/04/2008 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:21:11
Descrição da Nota: REAPURAÇÃO DOS SALDOS, USAGEM, ITEM
Sintoma
O programa está solicitando a confirmação de reapuração de saldos no momento da criação do Ato
Concessório.
Solução
Atualização da rotina de reapuração dos saldos do Ato Concessório.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06382 Data: 14/04/2008 Hora: 08:57:48
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06382
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00042
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06320 - 00001 - 7.0 - 00005 - ATO CONCESSÓRIO INTERMEDIARIO-IMPORTAÇÃO POR AGRUPAMENTO
----------------------------------------------------------------------------------------------------
REAPURAÇÃO DOS SALDOS, USAGEM, ITEM
----------------------------------------------------------------------------------------------------
Palavras Chave:
REAPURAÇÃO DOS SALDOS, USAGEM, ITEM
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI040 0225
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040F03
REPS /PWS/MZYCI040TOP2
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0225
MODIFICAR TEXTO "/PWS/ZYCIE427-ITEM" em tbl.contr./tabstr.
Comprimento Visível 4
Texto Item
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE427-USAGEM" em tbl.contr./tabstr.
Grupo 2 MAT
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
codcomp LIKE /pws/zycit245-codcomp ,
meins LIKE /pws/zycit245-meins,
werks LIKE /pws/zycit245-werks,
proced LIKE /pws/zycit245-proced ,
qtd_iten LIKE /pws/zycit245-qtd_iten ,
qtd_tot LIKE /pws/zycit245-qtd_tot,
END OF itab_zycit245_collect.
CLEAR v_nritem.
CHECK v_tcode2 NE '/PWS/ZYCI040_E'.
DESCRIBE TABLE itab_zycit247 LINES v_ilinhas.
* >> Início da inclusão: FORM VERIFICA_COMPONENTES_AGRUP
DESCRIBE TABLE itab_zycit427 LINES v_ilinhas3.
* << Fim da inclusão
IF v_verificp2 EQ 'S' AND
v_verificp2_merc EQ 'S'.
EXIT.
ENDIF.
* >> Início da exclusão: FORM VERIFICA_COMPONENTES_AGRUP
IF v_verificp2 EQ 'N' OR
v_verificp2_merc EQ 'N'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_COMPONENTES_AGRUP
IF ( v_verificp2 EQ 'N' AND v_verifiit2 EQ v_ilinhas ) OR
( v_verificp2_merc EQ 'N' AND v_verifiit3 EQ v_ilinhas3 ).
* << Fim da inclusão
PERFORM confirm_expl_bom2 CHANGING v_flag.
IF v_flag EQ 'N'.
v_verificp2 = 'S'.
v_verificp2_merc = 'S'.
EXIT.
ELSE.
REFRESH: itab_zycit245.
ENDIF.
ENDIF.
IF /pws/zycie244-tipo EQ 'N' AND /pws/zycie244-modalidade EQ 'S'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F03
...
ELSEIF itab_zycit247-netpr IS INITIAL.
v_null2 = 'S'.
ENDIF.
ENDLOOP.
IF v_null2 EQ 'S'.
MESSAGE w015 WITH text-072 text-073.
EXIT.
ENDIF.
CHECK v_verificp2 EQ 'N'.
CLEAR v_flag.
* >> Início da exclusão: FORM TRATA_TAB_IMP2_MERC
IF v_verificp2 EQ 'N'.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TAB_IMP2_MERC
DESCRIBE TABLE itab_zycit247 LINES v_ilinhas.
DESCRIBE TABLE itab_zycit427 LINES v_verifiit3.
IF v_verificp2 EQ 'N' AND v_verifiit2 EQ v_ilinhas.
* << Fim da inclusão
PERFORM confirm_expl_bom2 CHANGING v_flag.
IF v_flag EQ 'N'.
v_verificp2 = 'S'.
EXIT.
ENDIF.
* >> Início da inclusão: FORM TRATA_TAB_IMP2_MERC
ELSE.
v_flag = 'S'.
* << Fim da inclusão
ENDIF.
...
...
itab_zycit427-qtd_ncm.
ENDIF.
ENDIF.
COLLECT itab_zycit427.
ENDLOOP.
ENDLOOP.
LOOP AT itab_zycit427.
itab_zycit427-item = sy-tabix * 10.
MODIFY itab_zycit427 TRANSPORTING item.
ENDLOOP.
* >> Início da inclusão: FORM TRATA_TAB_IMP2_MERC
DESCRIBE TABLE itab_zycit247 LINES v_verifiit2.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM busca_comprov_intermed.
DATA: BEGIN OF itab_temp OCCURS 0.
DATA: refkey LIKE j_1bnflin-refkey,
refitm LIKE j_1bnflin-refitm.
DATA: END OF itab_temp.
DATA: itab_vbrp LIKE vbrp OCCURS 0 WITH HEADER LINE,
v_valor227_temp LIKE itab_zycit427-vlfob .
IF ok_code2 EQ 'ATUALIZ'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040TOP2
...
marc_rrm(1) TYPE c ,
tt_pis_dicp LIKE /pws/zycie260d-vlpis ,
tt_cofins_dicp LIKE /pws/zycie260d-vlcofins ,
tt_ii_dicp LIKE /pws/zycie260d-i_vlii ,
tt_ipi_dicp LIKE /pws/zycie260d-i_vlipi ,
tt_icms_dicp LIKE /pws/zycie260d-i_vlicms ,
tt_afrmm_dicp LIKE /pws/zycie260d-i_vlicms ,
v_verificp2_merc TYPE c VALUE 'S' ,
v_null2(1) TYPE c ,
v_verifiit2 TYPE i ,
* >> Início da inclusão:
v_verifiit3 TYPE i ,
v_ilinhas3 type i ,
* << Fim da inclusão
v_ex_enc ,
v_pbt_0203 LIKE /pws/zycie245-brgew ,
v_plt_0203 LIKE /pws/zycie245-ntgewt ,
v_pbt_0206 LIKE /pws/zycie247-brgew ,
v_plt_0206 LIKE /pws/zycie247-ntgew ,
v_ndtmp TYPE tv_nodekey ,
v_vltot227 LIKE /pws/zycie373-vl_itnf ,
v_qtd_tot227 LIKE /pws/zycie373-qtd_iten ,
v_vlsaldo227 LIKE /pws/zycie373-vl_itnf ,
v_saldo227 LIKE /pws/zycie373-qtd_iten ,
...