CE PLUS - Nota 005743
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 24/01/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:52:16
Descrição da Nota: CRIAR OPÇÃO PARA REPLICAR ICMS DIFERIDO
Sintoma
CRIAR REPLICAÇÃO DE CAMPO PARA ICMS DIFERIDO na di.
Solução
CRIAR OPÇÃO PARA REPLICAR ICMS DIFERIDO
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05743 Data: 24/01/2008 Hora: 10:20:01
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05743
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00031
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04760 - 00001 - 7.0 - 00003 - ACRESCENTAR CAMPOS NA TELA DE REPLICAÇÃO DA DI
----------------------------------------------------------------------------------------------------
CRIAR OPÇÃO PARA REPLICAR ICMS DIFERIDO
----------------------------------------------------------------------------------------------------
Palavras Chave:
REPLICAÇÃO - ICMS DIFERIDO - DI - ITENS
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI023 0440
REPS /PWS/MZYCI023F03
REPS /PWS/MZYCI023I01
REPS /PWS/MZYCI023TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0440
*Foram criados os campos abaixo
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
S_ICDIF
Check 23 43 1 1 1 CHAR Ent Off
S_ICDIF
Check 23 45 13 13 1 CHAR
Drop-down
*Foi criado o campo ICMS DIFERIDO, na posição abaixo
....+...10....+...10....+...30....+...40....+...50....+...60....+...70..
001
002
003 Itens
004 Embarque Pedido Item
005 W __________ __________ _____
006 W __________ __________ _____
007 W __________ __________ _____
008 W __________ __________ _____
009 W __________ __________ _____
010 W __________ __________ _____
011
012
013
014 9 Método de Valoração 9 Ato Legal da Mercadoria
015 9 Regime Tributário de II 9 Ato Legal de AntiDumping
016 9 Regime Tributário de IPI 9 Ato Legal de II
017 9 Regime Tributário de PIS e Cofins 9 Ato Legal de IPI
018 9 Regime Tributário de ICMS 9 Ad Valorem II
019 9 Fundamentação Legal II 9 Ad Valorem IPI
020 9 Fundamentação Legal PIS e Cofins 9 Ad Valorem ICMS
021 9 Fundamentação Legal ICMS 9 Ad Valorem PIS
022 9 Acordo Tarifário 9 Ad Valorem COFINS
*<<Inicio Inclusão
023 9 ALADI 9 ICMS Diferido
*<<Fim Inclusão
024
025
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
IF sy-subrc EQ 0.
CALL TRANSACTION '/PWS/ZYCI020_E' AND
SKIP FIRST SCREEN. "#EC CI_CALLTA
ELSE.
MESSAGE e095(/pws/zycim) WITH '/PWS/ZYCI020_E'.
ENDIF.
ENDIF.
ENDFORM.
FORM comm_repl.
IF NOT s_ometv IS INITIAL OR
* >> Início da inclusão: FORM COMM_REPL
NOT s_icdif IS INITIAL OR
* << Fim da inclusão
NOT s_oregt IS INITIAL OR
NOT s_oregp IS INITIAL OR
NOT s_ofund IS INITIAL OR
NOT s_oacor IS INITIAL OR
NOT s_oalad IS INITIAL OR
NOT s_oexm IS INITIAL OR
NOT s_oexii IS INITIAL OR
NOT s_oexipi IS INITIAL OR
NOT s_oexad IS INITIAL OR
NOT s_oadvalipi IS INITIAL OR
...
...
ENDIF.
IF NOT s_oregicms IS INITIAL.
itab_it-codregtriicms = /pws/zycie100a-codregtriicms.
ENDIF.
IF NOT s_ofundpc IS INITIAL.
itab_it-codfunlegpiscofi = /pws/zycie100a-codfunlegpiscofi.
ENDIF.
IF NOT s_ofundic IS INITIAL.
itab_it-codfunlegicms = /pws/zycie100a-codfunlegicms.
ENDIF.
* >> Início da inclusão: FORM COMM_REPL
if not s_icdif is initial.
itab_it-icms_dif = /pws/zycie100a-icms_dif.
endif.
* << Fim da inclusão
IF NOT s_oexm IS INITIAL.
itab_it-extarif_al = /pws/zycie003-extarif_al.
itab_it-tipo_al = /pws/zycie003-tipo_al.
itab_it-orgemiss_al = /pws/zycie003-orgemiss_al.
itab_it-numero_al = /pws/zycie003-numero_al.
itab_it-anoemiss_al = /pws/zycie003-anoemiss_al.
ENDIF.
IF NOT s_oexii IS INITIAL.
itab_it-ii_extarif = /pws/zycie003-ii_extarif.
itab_it-ii_tipo = /pws/zycie003-ii_tipo.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I01
...
ENDIF.
ENDLOOP.
LEAVE TO SCREEN 0.
ENDIF.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
ENDCASE.
WHEN '0440'.
CASE sy-ucomm.
WHEN 'CHECK'.
* >> Início da exclusão: MODULE USER_COMMAND_0231
s_ometv = s_oregt = s_oregp = s_ofund =
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0231
s_icdif = s_ometv = s_oregt = s_oregp = s_ofund =
* << Fim da inclusão
s_oacor = s_oalad = s_oexm = s_oexii =
s_oexipi = s_oexad = s_oadvalipi = s_oadvalii =
s_oadvalicms = s_oadvalpis = s_oadvalcof = s_oregipc =
s_oregicms = s_ofundpc = s_ofundic = 'X'.
WHEN 'UNCHECK'.
* >> Início da exclusão: MODULE USER_COMMAND_0231
s_ometv = s_oregt = s_oregp = s_ofund =
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0231
s_icdif = s_ometv = s_oregt = s_oregp = s_ofund =
* << Fim da inclusão
s_oacor = s_oalad = s_oexm = s_oexii =
s_oexipi = s_oexad = s_oadvalipi = s_oadvalii =
s_oadvalicms = s_oadvalpis = s_oadvalcof = s_oregipc =
s_oregicms = s_ofundpc = s_ofundic = space.
WHEN 'FC_SEL'.
PERFORM fill_mark USING 'X'.
WHEN 'FC_DES'.
PERFORM fill_mark USING space.
WHEN 'ENTE'.
PERFORM comm_repl.
...
...
WHEN 'ULTI'.
PERFORM save_data_item.
DESCRIBE TABLE itab_it LINES v_ip.
READ TABLE itab_it INDEX v_ip.
PERFORM carrega_fund_legal.
t_pisbs = itab_it-basepis.
t_cofinsbs = itab_it-basecofins.
v_idx = v_ip.
WHEN 'REPL'.
IF v_ipt > 1.
* >> Início da exclusão: MODULE USER_COMMAND_0231
s_ometv = s_oregt = s_oregp = s_ofund =
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0231
s_icdif = s_ometv = s_oregt = s_oregp = s_ofund =
* << Fim da inclusão
s_oacor = s_oalad = s_oexm = s_oexii =
s_oexipi = s_oexad =
s_oregipc = s_oregicms = s_ofundpc = s_ofundic = space.
CALL SCREEN '0440' STARTING AT 5 2.
ELSE.
MESSAGE s015 WITH text-041.
ENDIF.
WHEN 'ENTE'.
PERFORM save_data_item.
WHEN 'BACK'.
...
...
IF /pws/zycie003-advalicms >= '100'.
/pws/zycie003-advalicms = '0'.
ENDIF.
v_tipop = 'T' .
PERFORM calcula_impostos USING v_tipop.
itab_it-basred = /pws/zycie003-basred.
wa_it-baseicms = itab_it-baseicms.
wa_it-vlicms = itab_it-vlicms.
wa_it-advalicms = itab_it-advalicms = /pws/zycie003-advalicms.
itab_zycit003-nrseqd = /pws/zycie003-nrseqd.
* >> Início da exclusão: MODULE CALC_VICMS
MODIFY itab_zycit003 TRANSPORTING nrseqd
* << Fim da exclusão
* >> Início da inclusão: MODULE CALC_VICMS
MODIFY itab_zycit003 TRANSPORTING nrseqd
* << Fim da inclusão
WHERE nrseq = /pws/zycie003-nrseq
AND ebeln = /pws/zycie003-ebeln
AND ebelp = /pws/zycie003-ebelp.
* >> Início da inclusão: MODULE CALC_VICMS
modify itab_it index v_ip.
* << Fim da inclusão
ENDMODULE.
MODULE load_cpfc INPUT.
PERFORM load_cpfc.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023TOP
...
DATA: identify(19),
END OF wa_ad.
DATA: BEGIN OF wa_ender.
DATA: stras LIKE t001w-spras,
ort01 LIKE t001w-ort01,
regio LIKE t001w-regio.
DATA: END OF wa_ender.
DATA:
i_desc(20),
s_ometv,
* >> Início da inclusão:
s_icdif,
* << Fim da inclusão
s_oregt,
s_oregp,
s_ofund,
s_oacor,
s_oalad,
s_oexm,
s_oexii,
s_oexipi,
s_oexad,
s_oadvalii,
...