CE PLUS - Nota 002705
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DSI
Data/Hora da Publicação: 15/12/2006 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:56:23
Descrição da Nota: AJUSTE NA DSI PARA FECHAR CAMPOS AO EMITIR A NOTA FISCAL
Sintoma
O campo "regime tributação" na pasta 1 do detalhe do ítem está fechado; As alíquotas dos impostos na
pasta 3 estão com o campo advalorem fechados; Estes campos só devem estar fechados após a emissão da
nota fiscal e não no momento de gerar a DSI.
Ao criar a DSI não consigo alterar a alíquota do ICMS, altero no detalhe do item, mas quando retorno
para a DI, os valores são trocados e quando retorno ao detalhe do item, alíquota volta ao original.
(
Solução
Atualização do programa de DSI para permitir alteração das alíquotas de impostos.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02705 Data: 15/12/2006 Hora: 09:10:46
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02705
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00144
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02022 - 00001 - 6.0 - 00024 - AJUSTES DSI MUNDANÇA SISCOMEX
02362 - 00002 - 6.0 - 00025 - DSI VALOR DO SISCOMEX ZERADO
02718 - 00003 - 6.0 - 00025 - DSI VALORES SE MODIFICAM TODA ATUALIZAÇÃO
----------------------------------------------------------------------------------------------------
AJUSTE NA DSI PARA FECHAR CAMPOS AO EMITIR A NOTA FISCAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
ITAB_ZYCIT042, /PWS/ZYCIE100A-CODREGTRI, ADVALIPI, ADVALII, ADVALICMS
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI058 0232
DYNP /PWS/SAPMZYCI058 0234
REPS /PWS/MZYCI058F04
REPS /PWS/MZYCI058O01
REPS /PWS/MZYCI058TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI058 0232
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
*Antigo
/PWS/ZYCIE100A-CODREGTRI
I/O 3 20 24 26 1 CHAR X X Off
AC MED REQ
Chave externa, Botão EntrsPoss.temp, Drop-down, Caixa listagem
*Novo
/PWS/ZYCIE100A-CODREGTRI
I/O 3 20 24 26 1 CHAR X X Ent Off
AC MED REQ
Chave externa, Botão EntrsPoss.temp, Drop-down, Caixa listagem
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI058 0234
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
*Antigo
/PWS/ZYCIE003-ADVALICMS
I/O 3 78 8 8 1 DEC X X Off
AC
Alinh.à dir.
/PWS/ZYCIE003-ADVALII
I/O 9 34 8 8 1 DEC X Off
AC
Alinh.à dir.
/PWS/ZYCIE003-ADVALIPI
I/O 9 78 8 8 1 DEC X Off
AC
Alinh.à dir.
*Novo
/PWS/ZYCIE003-ADVALICMS
I/O 3 78 8 8 1 DEC X X Ent Off
AC
Alinh.à dir.
/PWS/ZYCIE003-ADVALII
I/O 9 34 8 8 1 DEC X Ent Off
AC
Alinh.à dir.
/PWS/ZYCIE003-ADVALIPI
I/O 9 78 8 8 1 DEC X Ent Off
AC
Alinh.à dir.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F01
...
t_ivadu = t_ivmle + t_ivdesp + t_ivfre + t_ivseg.
t_vmle2 = t_vmle.
ENDCASE.
itab_it-vlmerc_ad = t_vmle2.
t_ivmle2 = t_vmle_d2 * /pws/zycie085-ukursfob .
v_tmle_d2 = v_tmle_d2 + t_ivmle2 .
ENDFORM.
FORM load_iii USING p_tipo.
IF /pws/zycie093-meiotransp = 'PS' AND /pws/zycie085-tpdi EQ 'S'.
/pws/zycie003-advalii = '60'.
* >> Início da exclusão: FORM LOAD_III
/pws/zycie003-advalicms = '18'.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_III
CLEAR: /pws/zycie003-advalipi.
* << Fim da inclusão
ENDIF.
t_iibas = t_ivmle + t_ivseg + t_ivfre + t_ivdesp.
a_iicalc = ( ( /pws/zycie003-advalii / 100 ) * t_iibas ).
CASE /pws/zycie100a-codregtri.
WHEN '1' OR '3' OR '4' OR '5' OR '7' OR '8'.
IF /pws/zycie085-ntimp NE '09' AND /pws/zycie085-ntimp NE '11'.
IF NOT a_iiredu IS INITIAL.
t_iirec = a_iiredu.
ELSE.
IF /pws/zycie100a-acordo EQ '2'.
t_iirec = a_iiredu = a_iiacor.
ELSE.
* >> Início da exclusão: FORM LOAD_III
IF NOT /pws/zycie001-meioemba = 'PS'.
* << Fim da exclusão
t_iirec = a_iicalc.
* >> Início da exclusão: FORM LOAD_III
ENDIF.
* << Fim da exclusão
ENDIF.
ENDIF.
IF NOT /pws/zycie100a-percreduz IS INITIAL.
t_iirec = t_iirec *
( ( 100 - /pws/zycie100a-percreduz ) / 100 ).
a_iidevi = a_iicalc.
...
...
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.
ENDFORM.
FORM adic_list.
* >> Início da exclusão: FORM ADIC_LIST
CLEAR: it_adi[], /pws/zycie100a, itab_itb.
* << Fim da exclusão
* >> Início da inclusão: FORM ADIC_LIST
CLEAR: it_adi[], itab_itb.
* << Fim da inclusão
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.
MODIFY itab_it INDEX sy-tabix TRANSPORTING adicao.
it_adi-adicao = v_adic.
it_adi-nrseqdi = /pws/zycie085-nrseqdi.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F04
...
screen-input = '0'.
ELSE.
IF screen-name EQ '/PWS/ZYCIE100A-CODREGTRI'
AND /pws/zycie001-regime EQ '09'.
screen-input = '0'.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-CODFUNLEG' AND
/pws/zycie001-regime EQ '09'.
screen-input = '1'.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM SET_SCREEN_0232
READ TABLE itab_zycit042 WITH KEY nrseq = /pws/zycie100a-nrseq.
IF screen-name EQ '/PWS/ZYCIE100A-CODREGTRI'
AND NOT itab_zycit042-docnum IS INITIAL.
screen-input = '0'.
ENDIF.
* << Fim da inclusão
MODIFY SCREEN.
ENDLOOP.
ENDFORM.
FORM set_screen_0223.
LOOP AT SCREEN.
IF screen-group1 EQ 'AC'.
screen-input = '0'.
IF v_acto EQ 'A'.
screen-input = '1'.
IF screen-group4 EQ 'REQ'.
...
...
/pws/zycie003-advalipi,
a_ipidevi ,
t_ipirec .
IF screen-name EQ '/PWS/ZYCIE003-ADVALIPI'.
screen-input = 0.
ENDIF.
ELSEIF /pws/zycie100a-codregtri EQ '5'.
CLEAR: t_iirec ,
t_ipirec.
ENDIF.
* >> Início da inclusão: FORM SET_SCREEN_0234
READ TABLE itab_zycit042 WITH KEY nrseq = /pws/zycie100a-nrseq.
IF ( screen-name EQ '/PWS/ZYCIE003-ADVALIPI'
OR screen-name EQ '/PWS/ZYCIE003-ADVALII'
OR screen-name EQ '/PWS/ZYCIE003-ADVALICMS' )
AND NOT itab_zycit042-docnum IS INITIAL.
screen-input = 0.
ENDIF.
* << Fim da inclusão
IF /pws/zycie093-meiotransp = 'PS'.
IF screen-name = '/PWS/ZYCIE003-ADVALICMS'.
screen-input = 1.
ELSEIF screen-name = '/PWS/ZYCIE003-ADVALII'.
/pws/zycie003-advalii = '60'.
* >> Início da inclusão: FORM SET_SCREEN_0234
screen-input = '0'.
ELSEIF screen-name = '/PWS/ZYCIE003-ADVALIPI'.
* << Fim da inclusão
screen-input = '0'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058O01
...
MODIFY itab_it INDEX sy-tabix.
ENDIF.
IF itab_it-advalicms NE /pws/zycie003-advalicms.
itab_it-advalicms = /pws/zycie003-advalicms .
MODIFY itab_it INDEX sy-tabix.
ENDIF.
ENDIF.
ENDIF.
ENDMODULE.
MODULE verif_nf OUTPUT.
* >> Início da exclusão: MODULE VERIF_NF
DATA: itab_zycit042 LIKE /pws/zycit042 OCCURS 0 WITH HEADER LINE.
* << Fim da exclusão
CLEAR : itab_zycit041, itab_zycit042, v_nf041.
REFRESH: itab_zycit041, itab_zycit042.
READ TABLE itab_zycit001 INDEX 1.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycit042 INTO TABLE itab_zycit042
WHERE nrseq EQ itab_zycit001-nrseq.
IF NOT itab_zycit042[] IS INITIAL.
SELECT * FROM /pws/zycit041 INTO TABLE itab_zycit041
FOR ALL ENTRIES IN itab_zycit042
WHERE nrseq EQ itab_zycit042-nrseqnf.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058TOP
...
rtextesp LIKE tline OCCURS 0 WITH HEADER LINE,
rtextcompl LIKE tline OCCURS 0 WITH HEADER LINE,
itab_ekpo LIKE ekpo OCCURS 0 WITH HEADER LINE,
itab_bdc LIKE bdcdata OCCURS 0 WITH HEADER LINE,
itab_msg TYPE msg_struc OCCURS 5 WITH HEADER LINE,
itab_stxl LIKE stxl OCCURS 0 WITH HEADER LINE,
itab_makt LIKE makt OCCURS 0 WITH HEADER LINE,
rtext LIKE tline OCCURS 50 WITH HEADER LINE,
rtextc LIKE tline OCCURS 50 WITH HEADER LINE,
rtexti LIKE tline OCCURS 50 WITH HEADER LINE,
* >> Início da exclusão:
rtexta LIKE tline OCCURS 50 WITH HEADER LINE.
* << Fim da exclusão
* >> Início da inclusão:
rtexta LIKE tline OCCURS 50 WITH HEADER LINE,
itab_zycit042 LIKE /pws/zycit042 OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
DATA: itab_zycit003_t LIKE /pws/zycit003 OCCURS 0 WITH HEADER LINE,
itab_zycit078_t LIKE /pws/zycit078 OCCURS 0 WITH HEADER LINE,
itab_zycit085_t LIKE /pws/zycit085 OCCURS 0 WITH HEADER LINE,
itab_zycit100_t LIKE /pws/zycit100 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_nrdi OCCURS 1,
sign(1) TYPE c,
option(2) TYPE c,
low LIKE /pws/zycie085-nrseqdi,
high LIKE /pws/zycie085a-nrseqdi,
END OF itab_nrdi.
...