CE PLUS - Nota 004760
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 19/09/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:50:28
Descrição da Nota: ACRESCENTAR CAMPOS NA TELA DE REPLICAÇÃO DA DI
Sintoma
Acrescentar campos na tela de replicação da DI
Solução
criar campos na tela de replicação.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04760 Data: 19/09/2007 Hora: 11:45:18
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04760
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00013
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01099 - 00001 - 6.0 - 00023 - REPLICADOR DE DADOS DA DI COM BOTÕES INVERTIDOS.
02325 - 00002 - 6.0 - 00025 - TRATAMENTO PARA SUSPENSÃO DE ICMS NA DI POR REGIÃO
----------------------------------------------------------------------------------------------------
ACRESCENTAR CAMPOS NA TELA DE REPLICAÇÃO DA DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAMPOS - TELA - REPLICAÇÃO DA DI - FUNDAMENTO LEGAL.
REGIME TRIBUTÁRIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI023 0440
REPS /PWS/MZYCI023F03
REPS /PWS/MZYCI023I01
REPS /PWS/MZYCI023TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0440
*LAYOUT MUDOU DE
001
002
003 Itens
004 Embarque Pedido Item
005 W __________ __________ _____
006 W __________ __________ _____
007 W __________ __________ _____
008 W __________ __________ _____
009 W __________ __________ _____
010 W __________ __________ _____
011
012
013 9 Método de Valoração
014 9 Regime Tributário de II
015 9 Regime Tributário de IPI
016 9 Fundamentação Legal
017 9 Acordo Tarifário
018 9 ALADI
019 9 Ato Legal da Mercadoria
020 9 Ato Legal de II
021 9 Ato Legal de IPI
022 9 Ato Legal de AntiDumping
023 9 Ad Valorem II
024 9 Ad Valorem IPI
025 9 Ad Valorem ICMS
026 9 Ad Valorem PIS
027 9 Ad Valorem COFINS
*PARA
....+...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
023 9 ALADI
024
025
*os seguintes pontos foram modificados
*DE:
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
BOT_SELE
Push 2 4 4 2 1 CHAR
FC_SEL
Ícn.=ICON_SELECT_ALL
BOT_DES
Push 2 7 4 2 1 CHAR
FC_DES
Ícn.=ICON_DESELECT_ALL
+ TC_IREP
Tabel 3 3 39 39 9
Seleção linha=Múltipla, Seleção coluna=Nenh.
TabEntr., C/título, Com título, Coluna marc., LSep.horiz., LnhSep.vert.
- TXTTIT
Texto 1 0 5 32 1 CHAR
Tít.TC
- TXTTT01
Texto 1 1 8 13 1 CHAR
Título de coluna TC, Col.fixa TC
- TXTTT02
Texto 1 2 6 12 1 CHAR
Título de coluna TC, Col.fixa TC
- TXTTT03
Texto 1 3 4 8 1 CHAR
Título de coluna TC, Col.fixa TC
- WA_ITB-MARK
Check 1 0 1 1 1 CHAR Ent Off
Coluna marc.TC
- WA_ITB-NRSEQ
I/O 1 1 10 13 1 CHAR Off
Elem.TC, Col.fixa TC
- WA_ITB-EBELN
I/O 1 2 10 12 1 CHAR Off
Elem.TC, Col.fixa TC
- WA_ITB-EBELP
I/O 1 3 5 8 1 NUMC Off
Elem.TC, Col.fixa TC
S_OMETV
Check 13 3 1 1 1 CHAR Ent Off
S_OMETV
Check 13 5 19 19 1 CHAR
S_OREGT
Check 14 3 1 1 1 CHAR Ent Off
S_OREGT
Check 14 5 23 23 1 CHAR
S_OREGP
Check 15 3 1 1 1 CHAR Ent Off
S_OREGP
Check 15 5 24 24 1 CHAR
S_OFUND
Check 16 3 1 1 1 CHAR Ent Off
S_OFUND
Check 16 5 19 19 1 CHAR
S_OACOR
Check 17 3 1 1 1 CHAR Ent Off
S_OACOR
Check 17 5 16 16 1 CHAR
S_OALAD
Check 18 3 1 1 1 CHAR Ent Off
S_OALAD
Check 18 5 5 5 1 CHAR
S_OEXM
Check 19 3 1 1 1 CHAR Ent Off
S_OEXM
Check 19 5 23 23 1 CHAR
S_OEXII
Check 20 3 1 1 1 CHAR Ent Off
S_OEXII
Check 20 5 15 15 1 CHAR
S_OEXIPI
Check 21 3 1 1 1 CHAR Ent Off
S_OEXAD
Check 22 3 1 1 1 CHAR Ent Off
S_OEXAD
Check 22 5 24 24 1 CHAR
S_OADVALII
Check 23 3 1 1 1 CHAR Ent Off
S_OADVALII
Check 23 5 13 13 1 CHAR
S_OADVALIPI
Check 24 3 1 1 1 CHAR Ent Off
S_OADVALIPI
Check 24 5 14 14 1 CHAR
S_OADVALICMS
Check 25 3 1 1 1 CHAR Ent Off
S_OADVALICMS
Check 25 5 15 15 1 CHAR
S_OADVALPIS
Check 26 3 1 1 1 CHAR Ent Off
S_OADVALPIS
Check 26 5 14 14 1 CHAR
S_OADVALCOF
Check 27 5 17 17 1 CHAR
OK
*PARA
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
BOT_SELE
Push 2 13 4 2 1 CHAR
FC_SEL
Ícn.=ICON_SELECT_ALL
BOT_DES
Push 2 16 4 2 1 CHAR
FC_DES
Ícn.=ICON_DESELECT_ALL
+ TC_IREP
Tabel 3 12 39 39 9
Seleção linha=Múltipla, Seleção coluna=Nenh.
TabEntr., C/título, Com título, Coluna marc., LSep.horiz., LnhSep.vert.
- TXTTIT
Texto 1 0 5 32 1 CHAR
Tít.TC
- TXTTT01
Texto 1 1 8 13 1 CHAR
Título de coluna TC, Col.fixa TC
- TXTTT02
Texto 1 2 6 12 1 CHAR
Título de coluna TC, Col.fixa TC
- TXTTT03
Texto 1 3 4 8 1 CHAR
Título de coluna TC, Col.fixa TC
- WA_ITB-MARK
Check 1 0 1 1 1 CHAR Ent Off
Coluna marc.TC
- WA_ITB-NRSEQ
I/O 1 1 10 13 1 CHAR Off
Elem.TC, Col.fixa TC
- WA_ITB-EBELN
I/O 1 2 10 12 1 CHAR Off
Elem.TC, Col.fixa TC
- WA_ITB-EBELP
I/O 1 3 5 8 1 NUMC Off
Elem.TC, Col.fixa TC
Quadr 13 1 70 70 1 CHAR
S_OMETV
Check 14 3 1 1 1 CHAR Ent Off
S_OMETV
Check 14 5 19 19 1 CHAR
S_OEXM
Check 14 43 1 1 1 CHAR Ent Off
S_OEXM
Check 14 45 23 23 1 CHAR
S_OREGT
Check 15 3 1 1 1 CHAR Ent Off
S_OREGT
Check 15 5 23 23 1 CHAR
S_OEXAD
Check 15 43 1 1 1 CHAR Ent Off
S_OEXAD
Check 15 45 24 24 1 CHAR
S_OREGP
Check 16 3 1 1 1 CHAR Ent Off
S_OREGP
Check 16 5 24 24 1 CHAR
S_OEXII
Check 16 43 1 1 1 CHAR Ent Off
S_OEXII
Check 16 45 15 15 1 CHAR
S_OREGIPC
Check 17 3 1 1 1 CHAR Ent Off
S_OREGIPC
Check 17 5 33 33 1 CHAR
S_OEXIPI
Check 17 43 1 1 1 CHAR Ent Off
S_OEXIPI
Check 17 45 16 16 1 CHAR
S_OREGICMS
Check 18 3 1 1 1 CHAR Ent Off
S_OREGICMS
Check 18 5 25 25 1 CHAR
S_OADVALII
Check 18 43 1 1 1 CHAR Ent Off
S_OADVALII
Check 18 45 13 13 1 CHAR
S_OFUND
Check 19 3 1 1 1 CHAR Ent Off
S_OFUND
Check 19 5 22 22 1 CHAR
S_OADVALIPI
Check 19 43 1 1 1 CHAR Ent Off
S_OADVALIPI
Check 19 45 14 14 1 CHAR
S_OFUNDPC
Check 20 3 1 1 1 CHAR Ent Off
S_OFUNDPC
Check 20 5 32 32 1 CHAR
S_OADVALICMS
Check 20 43 1 1 1 CHAR Ent Off
S_OADVALICMS
Check 20 45 15 15 1 CHAR
S_OFUNDIC
Check 21 3 1 1 1 CHAR Ent Off
S_OFUNDIC
Check 21 5 24 24 1 CHAR
S_OADVALPIS
Check 21 43 1 1 1 CHAR Ent Off
S_OADVALPIS
Check 21 45 14 14 1 CHAR
S_OACOR
Check 22 3 1 1 1 CHAR Ent Off
S_OACOR
Check 22 5 16 16 1 CHAR
S_OADVALCOF
Check 22 43 1 1 1 CHAR Ent Off
S_OADVALCOF
Check 22 45 17 17 1 CHAR
S_OALAD
Check 23 3 1 1 1 CHAR Ent Off
S_OALAD
Check 23 5 5 5 1 CHAR
OK
*os seguintes pontos foram inseridos
S_OFUNDIC
Check 21 3 1 1 1 CHAR Ent Off
S_OFUNDIC
Check 21 5 24 24 1 CHAR
S_OFUNDPC
Check 20 5 32 32 1 CHAR
S_OFUNDPC
Check 20 3 1 1 1 CHAR Ent Off
S_OREGICMS
Check 18 3 1 1 1 CHAR Ent Off
S_OREGICMS
Check 18 5 25 25 1 CHAR
S_OREGIPC
Check 17 3 1 1 1 CHAR Ent Off
S_OREGIPC
Check 17 5 33 33 1 CHAR
Quadr 13 1 70 70 1 CHAR
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
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
NOT s_oadvalicms IS INITIAL OR
NOT s_oadvalii IS INITIAL OR
NOT s_oadvalpis IS INITIAL OR
* >> Início da exclusão: FORM COMM_REPL
NOT s_oadvalcof IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM COMM_REPL
NOT s_oadvalcof IS INITIAL OR
NOT s_oregipc IS INITIAL OR
NOT s_oregicms IS INITIAL OR
NOT s_ofundpc IS INITIAL OR
NOT s_ofundic IS INITIAL .
* << Fim da inclusão
MOVE itab_it TO wa_itb.
LOOP AT itab_itc WHERE NOT mark IS initial.
READ TABLE itab_it WITH KEY
nrseq = itab_itc-nrseq
ebeln = itab_itc-ebeln
ebelp = itab_itc-ebelp.
IF sy-subrc EQ 0.
IF NOT s_ometv IS INITIAL.
itab_it-codmat = /pws/zycie100a-codmat.
ENDIF.
...
...
itab_it-advalii = /pws/zycie003-advalii.
ENDIF.
IF NOT s_oadvalicms IS INITIAL.
itab_it-advalicms = /pws/zycie003-advalicms.
ENDIF.
IF NOT s_oadvalpis IS INITIAL.
itab_it-advalpis = /pws/zycie100a-advalpis.
ENDIF.
IF NOT s_oadvalcof IS INITIAL.
itab_it-advalcofins = /pws/zycie100a-advalcofins.
* >> Início da inclusão: FORM COMM_REPL
ENDIF.
IF NOT s_oregipc IS INITIAL.
itab_it-codregtripiscofi = /pws/zycie100a-codregtripiscofi.
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.
* << Fim da inclusão
ENDIF.
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.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I01
...
ENDIF.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
ENDCASE.
WHEN '0440'.
CASE sy-ucomm.
WHEN 'CHECK'.
s_ometv = s_oregt = s_oregp = s_ofund =
s_oacor = s_oalad = s_oexm = s_oexii =
s_oexipi = s_oexad = s_oadvalipi = s_oadvalii =
* >> Início da exclusão: MODULE USER_COMMAND_0231
s_oadvalicms = s_oadvalpis = s_oadvalcof = 'X'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0231
s_oadvalicms = s_oadvalpis = s_oadvalcof = s_oregipc =
s_oregicms = s_ofundpc = s_ofundic = 'X'.
* << Fim da inclusão
WHEN 'UNCHECK'.
s_ometv = s_oregt = s_oregp = s_ofund =
s_oacor = s_oalad = s_oexm = s_oexii =
s_oexipi = s_oexad = s_oadvalipi = s_oadvalii =
* >> Início da exclusão: MODULE USER_COMMAND_0231
s_oadvalicms = s_oadvalpis = s_oadvalcof = space.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0231
s_oadvalicms = s_oadvalpis = s_oadvalcof = s_oregipc =
s_oregicms = s_ofundpc = s_ofundic = space.
* << Fim da inclusão
WHEN 'FC_SEL'.
PERFORM fill_mark USING 'X'.
WHEN 'FC_DES'.
PERFORM fill_mark USING space.
WHEN 'ENTE'.
PERFORM comm_repl.
SET SCREEN 0.
LEAVE SCREEN.
WHEN 'BACK'.
SET SCREEN 0.
...
...
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.
s_ometv = s_oregt = s_oregp = s_ofund =
s_oacor = s_oalad = s_oexm = s_oexii =
* >> Início da exclusão: MODULE USER_COMMAND_0231
s_oexipi = s_oexad = space.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0231
s_oexipi = s_oexad =
s_oregipc = s_oregicms = s_ofundpc = s_ofundic = space.
* << Fim da inclusão
CALL SCREEN '0440' STARTING AT 5 2.
ELSE.
MESSAGE s015 WITH text-041.
ENDIF.
WHEN 'ENTE'.
PERFORM save_data_item.
WHEN 'BACK'.
PERFORM: save_data_item,
calc_itab,
fill_receitas.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023TOP
...
s_agen(18) TYPE c,
s_msg1(40),
s_fbsn(3),
s_mmod(3),
s_tr3(3),
s_opf(3),
s_doct(18),
s_opcb(18),
s_cont(16),
s_conu(23),
* >> Início da inclusão:
s_oregipc,
s_oregicms,
S_OFUNDpc,
S_OFUNDic,
* << Fim da inclusão
t_fundes_reducao(120),
t_fundes_regtri(120),
t_fundes_icms(120),
s_tpa(15),
s_mod(34),
s_setor(35),
stxt_id(17),
stxt_embloc(17),
stxt_embdat(16),
s_iddes(120),
...