CE PLUS - Nota 012468
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 13/03/2014 10:12:20
Data/Hora Última Alteração: 13/03/2014 10:12:20
Descrição da Nota: ACRESCENTAR CAMPO DE ALÍQUOTA REDUZIDA DE ICMS PARA REPLICAR
Sintoma
Acrescentar campo de alíquota reduzida de ICMS na tela para replicar
Solução
Acrescentar opção de replicar campo .
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12468 Data: 28/08/2012 Hora: 15:44:48
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12468
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00001
Agrupamento : 00127
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06484 - 00001 - 7.0 - 00005 - NECESSÁRIO ACRESCENTAR CAMPOS DA PASTA ANTIDUMPING NO REPLICADOR
07672 - 00002 - 7.0 - 00007 - DESENVOLVIMENTO PARA MELHORIA NA NAVEGABILIDADE NA DI E NA DSI
----------------------------------------------------------------------------------------------------
ACRESCENTAR CAMPO DE ALÍQUOTA REDUZIDA DE ICMS PARA REPLICAR
----------------------------------------------------------------------------------------------------
Palavras Chave:
ICMS - ALIQUOTA - DI - REPLICAR
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI023 0440
REPS /PWS/MZYCI023F03
REPS /PWS/MZYCI023I01
REPS /PWS/MZYCI023TOP
REPS /PWS/MZYCI023X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0440
MODIFICAR CARACTERÍSTICAS DA TELA 0440
Altura atual (linhas) 28
*Acrescentar o campo "S_ALREDICMS" abaixo do campo S_ICDIF
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_ALREDICMS
Check 19 64 1 1 1 CHAR Ent Off
S_ALREDICMS
Check 19 66 22 22 1 CHAR
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
NOT s_alredpis IS INITIAL OR
NOT s_alesppis IS INITIAL OR
NOT s_alredcof IS INITIAL OR
NOT s_alespcof IS INITIAL OR
NOT s_bcicms IS INITIAL OR
NOT s_nttipi IS INITIAL OR
NOT s_radbs IS INITIAL OR
NOT s_radrate IS INITIAL OR
NOT s_radvl IS INITIAL OR
NOT s_radum IS INITIAL OR
* >> Início da inclusão: FORM COMM_REPL
NOT s_alredicms IS INITIAL OR
* << Fim da inclusão
NOT s_radqtad IS INITIAL .
MOVE itab_it TO wa_itb.
MOVE itab_mercosul[] TO itab_mercosul_aux[].
MOVE itab_zycit115b[] TO itab_zycit115_aux[].
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.
v_tabix = sy-tabix.
...
...
* >> Início da inclusão: FORM COMM_REPL
IF NOT s_alredicms IS INITIAL.
itab_it-aliqicmsr = /pws/zycie100a-aliqicmsr .
ENDIF.
* << Fim da inclusão
IF NOT s_otipo IS INITIAL.
DELETE itab_zycit115 WHERE ebeln = itab_itc-ebeln
AND ebelp = itab_itc-ebelp .
LOOP AT itab_zycit115_aux.
MOVE itab_zycit115_aux TO itab_zycit115.
itab_zycit115-ebeln = itab_itc-ebeln .
itab_zycit115-ebelp = itab_itc-ebelp .
APPEND itab_zycit115.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I01
...
s_oexipi = s_oexad = s_oadvalipi = s_oadvalii =
s_oadvalicms = s_oadvalpis = s_oadvalcof = s_oregipc =
s_oregicms = s_ofundpc = s_ofundic =
s_onaladi = s_onalinca = s_oespec = s_otipo =
s_onum = s_tpcert = s_reduz = s_reduc = s_tribipi =
s_redipi = s_unitval = s_unmeins = s_qtdun =
s_uncap = s_tpuni = s_percredu = s_redbase =
s_fdlgpc = s_alredpis = s_alesppis = s_alredcof =
s_alespcof = s_bcicms = s_nttipi =
s_radbs = s_radrate = s_radvl = s_radum =
* >> Início da exclusão: MODULE USER_COMMAND_0231
s_radqtad = 'X'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0231
s_radqtad = s_alredicms = 'X'.
* << Fim da inclusão
WHEN 'UNCHECK'.
s_icdif = s_ometv = s_oregt = s_oregp = s_ofund =
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 =
s_onaladi = s_onalinca = s_oespec = s_otipo =
s_onum = s_tpcert = s_reduz = s_reduc = s_tribipi =
s_redipi = s_unitval = s_unmeins = s_qtdun =
s_uncap = s_tpuni = s_percredu = s_redbase =
s_fdlgpc = s_alredpis = s_alesppis = s_alredcof =
s_alespcof = s_bcicms = s_nttipi =
s_radbs = s_radrate = s_radvl = s_radum = s_radqtad =
* >> Início da exclusão: MODULE USER_COMMAND_0231
space.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0231
s_alredicms = space.
* << Fim da inclusão
WHEN 'FC_SEL'.
PERFORM fill_mark USING 'X'.
WHEN 'FC_DES'.
PERFORM fill_mark USING space.
WHEN 'ENTE'.
LOOP AT itab_itc WHERE mark EQ 'X' .
EXIT.
ENDLOOP.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-012.
...
...
s_oacor = s_oalad = s_oexm = s_oexii =
s_oexipi = s_oexad =
s_oregipc = s_oregicms = s_ofundpc = s_ofundic =
s_onaladi = s_onalinca = s_oespec = s_otipo =
s_onum = s_tpcert = s_reduz = s_reduc = s_tribipi =
s_redipi = s_unitval = s_unmeins = s_qtdun =
s_uncap = s_tpuni = s_percredu = s_redbase =
s_fdlgpc = s_alredpis = s_alesppis = s_alredcof =
s_alespcof = s_bcicms = s_nttipi =
s_radbs = s_radrate = s_radvl = s_radum = s_radqtad =
* >> Início da exclusão: MODULE USER_COMMAND_0231
space.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0231
s_alredicms = 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/MZYCI023X01
...
* >> Início da inclusão:
DATA: s_alredicms.
* << Fim da inclusão
data: end of common part.