CE PLUS - Nota 002806
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 04/01/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:39:24
Descrição da Nota: SISTEMA NÃO MANTÉM INFORMAÇÕES ALTERADAS NA DI
Sintoma
DI - Redução de impostos - O sistema não está mantendo a informação de Redução ou Reduzida que é
inserida na tela Tributos para II e IPI.
E ao colocar redução do IPI não abre o campo reduzida.
Ao criar a DI não está propondo o regime tributário 3 para o IPI que é o recolhimento integral.
Solução
atualização informações da DI ao alterar itens.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02806 Data: 04/01/2007 Hora: 09:49:44
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02806
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00146
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01846 - 00001 - 6.0 - 00024 - NA DI, QUANDO FLEGO ICMS DIFERIDO O PROGRAMA APAGA O FLEG.
02325 - 00002 - 6.0 - 00025 - TRATAMENTO PARA SUSPENSÃO DE ICMS NA DI POR REGIÃO
02472 - 00003 - 6.0 - 00025 - PROGRAMA NÃO ACEITA ALTERAR REGIME TRIBUTÁRIO DOS IMPOSTOS NA DI.
----------------------------------------------------------------------------------------------------
SISTEMA NÃO MANTÉM INFORMAÇÕES ALTERADAS NA DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
ALTERAR INFORMAÇÕES - DI - TRIBUTOS - REDUÇÃO DE IMPOSTOS
II E IPI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F04
REPS /PWS/MZYCI023I01
REPS /PWS/MZYCI023O01
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F04
...
/pws/zycie003-ipi_tipo,
/pws/zycie003-ipi_orgemiss,
/pws/zycie003-ipi_numero,
/pws/zycie003-ipi_anoemiss,
/pws/zycie100a-unit_valor,
/pws/zycie100a-unit_meins,
/pws/zycie100a-unit_qtde,
/pws/zycie100a-unit_reccapac,
/pws/zycie100a-unit_rectipo.
ELSE.
* >> Início da exclusão: FORM SET_SCREEN_0432
IF ( screen-name = '/PWS/ZYCIE100A-REDUZIDAIPI' AND
/pws/zycie100a-codregtriipi NE '2' ) OR
( screen-group2 = 'EX' AND
/pws/zycie100a-codregtriipi EQ '4' ).
* << Fim da exclusão
* >> Início da inclusão: FORM SET_SCREEN_0432
IF screen-name = '/PWS/ZYCIE100A-REDUZIDAIPI' .
IF /pws/zycie100a-codregtriipi EQ '4' .
screen-input = '1'.
ELSE.
* << Fim da inclusão
screen-input = '0'.
* >> Início da inclusão: FORM SET_SCREEN_0432
ENDIF.
* << Fim da inclusão
ELSEIF screen-name EQ '/PWS/ZYCIE003-ADVALIPI' OR
screen-name EQ '/PWS/ZYCIE100A-NOTATIPI'.
IF NOT /pws/zycie100a-unit_valor IS INITIAL OR
NOT /pws/zycie100a-unit_meins IS INITIAL OR
NOT /pws/zycie100a-unit_qtde IS INITIAL OR
NOT /pws/zycie100a-unit_reccapac IS INITIAL OR
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I01
...
MODULE calc_vii INPUT.
* >> Início da inclusão: MODULE CALC_VII
move-corresponding /pws/zycie100a to itab_it.
* << Fim da inclusão
...
...
MODULE calc_vipi INPUT.
* >> Início da inclusão: MODULE CALC_VIPI
move-corresponding /pws/zycie100a to itab_it.
* << Fim da inclusão
...
...
MODULE calc_vicms INPUT.
* >> Início da inclusão: MODULE CALC_VICMS
move-corresponding /pws/zycie100a to itab_it.
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023O01
...
* >> Início da exclusão: MODULE DATA_CLEAN_IPI
IF /pws/zycie100a-codregtriipi NE '2'.
* << Fim da exclusão
* >> Início da inclusão: MODULE DATA_CLEAN_IPI
IF /pws/zycie100a-codregtriipi NE '4'.
* << Fim da inclusão
CLEAR: /pws/zycie100a-reduzidaipi.
ENDIF.
ENDMODULE.
...
...
IF itab_it-pproc IS INITIAL.
READ TABLE itab_zycit003 WITH KEY nrseq = itab_it-nrseq
ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
itab_it-pproc = /pws/zycie100a-pproc = itab_zycit003-paisfab.
ENDIF.
IF itab_it-codregtri IS INITIAL.
itab_it-codregtri = /pws/zycie100a-codregtri = '1'.
ENDIF.
IF /pws/zycie100a-codregtriipi IS INITIAL.
* >> Início da exclusão: MODULE LOAD_DATA_BLITEM
/pws/zycie100a-codregtriipi = '4'.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA_BLITEM
/pws/zycie100a-codregtriipi = '3'.
* << Fim da inclusão
ENDIF.
MOVE itab_it TO wa_it.
MOVE-CORRESPONDING: itab_it TO /pws/zycie100a,
itab_it TO /pws/zycie003.
v_idx = v_ip.
PERFORM: load_ifre USING 'T',
load_itax USING 'T'.
PERFORM calcula_impostos USING 'T'.
IF v_dit = 'N'.
PERFORM fill_it115b.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
FORM set_codregtri.
IF sy-tcode = '/PWS/ZYCI023_C'.
IF itab_it-codregtri IS INITIAL.
MOVE 1 TO itab_it-codregtri.
ENDIF.
IF itab_it-codregtriipi IS INITIAL.
* >> Início da exclusão: FORM SET_CODREGTRI
MOVE 4 TO itab_it-codregtriipi.
* << Fim da exclusão
* >> Início da inclusão: FORM SET_CODREGTRI
MOVE 3 TO itab_it-codregtriipi.
* << Fim da inclusão
ENDIF.
ENDIF.
IF itab_it-modalidade = 'S'.
MOVE 5 TO itab_it-codregtri.
MOVE 5 TO itab_it-codregtriipi.
ELSEIF itab_it-modalidade = 'I'.
MOVE 3 TO itab_it-codregtri.
MOVE 1 TO itab_it-codregtriipi.
ENDIF.
ENDFORM.
...