CE PLUS - Nota 004976
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DSI
Data/Hora da Publicação: 11/10/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:58:18
Descrição da Nota: DSI - REGIME DE TRIBUTAÇÃO PIS/COFINS - IPI
Sintoma
O sistema não está gravando o regime de tributação escolhido para PIS/COFINS.
O IPI está suspenso porém na pasta pagamento está mostrando o valor devido.
Solução
Ajustar o programa para gravar o regime selecionado e os valores na Pasta Pagamento.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04976 Data: 11/10/2007 Hora: 15:40:37
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04976
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00016
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04713 - 00001 - 7.0 - 00002 - MULTIPLAS MOEDAS, RATEIO DE DESPESAS, REGIME TRIBUTÁRIO NA DSI
----------------------------------------------------------------------------------------------------
DSI - REGIME DE TRIBUTAÇÃO PIS/COFINS - IPI
----------------------------------------------------------------------------------------------------
Palavras Chave:
REGIME DE TRIBUTAÇÃO; PIS/COFINS; IPI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI058F01
REPS /PWS/MZYCI058F03
REPS /PWS/MZYCI058I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F01
...
IF sy-subrc <> 0.
tcurx-currdec = 2.
ENDIF.
/pws/zycie085-vlfre = /pws/zycie085-vlfre * ( 10 ** ( tcurx-currdec -
2 ) ).
IF v_dit = 'S' AND /pws/zycie093-meiotransp NE 'PS'.
t_vlii = /pws/zycie085-vlii.
t_vlipi = /pws/zycie085-vlipi.
t_vlicms = /pws/zycie085-vlicms.
ENDIF.
* >> Início da inclusão: FORM CALC_ITAB
IF /pws/zycie100a-codregtri EQ '5'.
CLEAR: t_vlipi, t_tot.
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM adic_list.
CLEAR: it_adi[], itab_itb.
REFRESH: it_adi[].
PERFORM data_sort.
v_adic = 1.
CLEAR: v_tabix.
LOOP AT itab_it.
v_tabix = sy-tabix.
itab_it-adicao = v_adic.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F03
...
itab_it-codregtri = /pws/zycie100a-codregtri = '1'.
ELSE.
itab_it-codregtri = /pws/zycie100a-codregtri.
ENDIF.
ENDIF.
ENDIF.
IF /pws/zycie100a-codregtriipi IS INITIAL.
/pws/zycie100a-codregtriipi = '4'.
itab_it-codregtriipi = '4'.
ENDIF.
* >> Início da exclusão: FORM SET_CODREGTRI
IF /pws/zycie100a-codregtripiscofi IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM SET_CODREGTRI
IF /pws/zycie100a-codregtripiscofi IS INITIAL AND
itab_it-codregtripiscofi IS INITIAL.
* << Fim da inclusão
/pws/zycie100a-codregtripiscofi = '1'.
itab_it-codregtripiscofi = '1'.
ENDIF.
ENDFORM.
FORM relatorio.
SELECT * FROM /pws/zycet079 INTO TABLE itab_report_cliente
WHERE codmod EQ 'D'
AND func EQ 'DSI'.
READ TABLE itab_report_cliente.
IF itab_report_cliente-transacao IS INITIAL.
...
...
wa_zycet050-tplogonb
INTO v_param.
IF v_string_ex IS INITIAL.
MESSAGE s061 WITH text-140 text-141 text-142 text-137.
EXIT.
ENDIF.
DATA: v_tam TYPE i.
CLEAR: v_tam.
CALL FUNCTION 'GUI_GET_FILE_INFO'
EXPORTING
* >> Início da exclusão: FORM SEND
fname = text-139
* << Fim da exclusão
* >> Início da inclusão: FORM SEND
fname = v_string_ex
* << Fim da inclusão
IMPORTING
file_size = v_tam
EXCEPTIONS
fileinfo_error = 1
OTHERS = 2.
IF v_tam LT 0.
MESSAGE i015 WITH text-143 text-144 text-145 text-146.
LEAVE TO SCREEN '0100'.
ELSE.
CALL FUNCTION 'WS_EXECUTE'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058I01
...
WHEN 'LEAV'.
LEAVE PROGRAM.
ENDCASE.
WHEN '0170' OR '0181' OR '0440' OR '0360' OR '0190'.
CASE sy-ucomm.
WHEN 'BACK' OR 'LEAV'.
LEAVE TO SCREEN 0.
ENDCASE.
WHEN '0300'.
CASE sy-ucomm.
* >> Início da exclusão: MODULE USER_COMMAND_EXIT
WHEN 'BACK' OR 'LEAV'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_EXIT
WHEN 'LEAV'.
* << Fim da inclusão
PERFORM save_adic.
CLEAR: editor.
CALL METHOD editcontainer->free.
CALL METHOD cl_gui_cfw=>flush.
LEAVE TO SCREEN 0.
ENDCASE.
WHEN '0100' OR '0200'.
CASE sy-ucomm.
WHEN 'BACK' OR 'LEAV'.
v_comm = sy-ucomm.
...
...
CLEAR v_dsi_int.
LEAVE TO SCREEN '0010'.
ELSE.
CLEAR v_dsi_int.
LEAVE PROGRAM.
ENDIF.
ENDIF.
ENDCASE.
WHEN '0231' OR '0400'.
CASE sy-ucomm.
* >> Início da exclusão: MODULE USER_COMMAND_EXIT
WHEN 'BACK' OR 'LEAV'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_EXIT
WHEN 'LEAV'.
* << Fim da inclusão
PERFORM: save_data_item,
calc_itab,
fill_receitas.
LOOP AT itab_it WHERE NOT mark IS initial.
itab_it-mark = space.
MODIFY itab_it INDEX sy-tabix TRANSPORTING mark.
ENDLOOP.
IF sy-dynnr = '0231'.
LEAVE TO SCREEN '0200'.
ELSE.
...
...
adicao = it_adir-adicao.
LOOP AT itab_zycit121c.
itab_zycit121c-adicao = it_adir-adicao.
MOVE itab_zycit121c TO itab_zycit121.
APPEND itab_zycit121.
ENDLOOP.
ENDIF.
ENDLOOP.
LEAVE TO SCREEN 0.
ENDIF.
* >> Início da inclusão: MODULE USER_COMMAND_0231
WHEN 'BACK'.
LEAVE TO SCREEN 0.
* << Fim da inclusão
ENDCASE.
WHEN '0440'.
CASE sy-ucomm.
WHEN 'FC_SEL'.
s_ometv = s_oregt = s_oregp = s_ofund =
s_oacor = s_oalad = s_oexm = s_oexii =
s_oexipi = s_oexad = 'X'.
WHEN 'FC_DES'.
s_ometv = s_oregt = s_oregp = s_ofund =
s_oacor = s_oalad = s_oexm = s_oexii =
s_oexipi = s_oexad = space.
WHEN 'CHECK'.
PERFORM fill_mark USING 'X'.
WHEN 'UNCHECK'.
PERFORM fill_mark USING space.
WHEN 'ENTE'.
PERFORM comm_repl.
* >> Início da inclusão: MODULE USER_COMMAND_0231
WHEN 'BACK'.
SET SCREEN 0.
LEAVE SCREEN.
* << Fim da inclusão
ENDCASE.
WHEN OTHERS.
CASE sy-ucomm.
WHEN 'PRIM'.
PERFORM save_data_item.
v_ip = v_idx = 1.
READ TABLE itab_it INDEX v_ip.
WHEN 'ANTE'.
IF v_ip > 1.
PERFORM save_data_item.
...
...
IF v_ipt > 1.
s_ometv = s_oregt = s_oregp = s_ofund =
s_oacor = s_oalad = s_oexm = s_oexii =
s_oexipi = s_oexad = space.
CALL SCREEN '0440' STARTING AT 5 2.
ELSE.
MESSAGE s015 WITH text-041.
ENDIF.
WHEN 'ENTE'.
PERFORM save_data_item.
* >> Início da inclusão: MODULE USER_COMMAND_0231
WHEN 'BACK'.
PERFORM: save_data_item,
calc_itab,
fill_receitas.
LOOP AT itab_it WHERE NOT mark IS initial.
itab_it-mark = space.
MODIFY itab_it INDEX sy-tabix TRANSPORTING mark.
ENDLOOP.
CLEAR sy-ucomm.
IF sy-dynnr = '0231'.
LEAVE TO SCREEN '0200'.
ELSE.
LEAVE TO SCREEN '0200'.
ENDIF.
* << Fim da inclusão
ENDCASE.
ENDCASE.
CLEAR sy-ucomm.
ENDMODULE.
MODULE load_regt INPUT.
IF sy-dynnr = '0431'.
CLEAR: /pws/zycie085-ntimp.
PERFORM load_regt USING /pws/zycie100a-codregtri
/pws/zycie085-ntimp '1'
CHANGING t_regdes.
...