Visualização da Nota 10017

CE PLUS - Nota 010017

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: DI

Data/Hora da Publicação: 26/03/2010 00:00:00

Data/Hora Última Alteração: 22/02/2011 14:14:31

Descrição da Nota: GRAVAR AS ALTERAÇÕES DAS CONDIÇÕES DOS IMPOSTOS DA ANA

Sintoma

Depois de criar a ANA ao entrar no detalhe do item e alterar a condição de pagado para garantizado e

retornar para a pasta carga 3 o programa não atualiza os valores mesmo após clicar no botão

atualizar.

Solução

Ajustado programa para exibir todos os registro existentes para a pasta Carga 3 e ajustado programa

para não reiniciar as condições ao clicar no botão atualizar.

Versões Tratadas

8.0

Pré-Requisitos

Produto:

Nota

Descrição

Nota 9954

AJUSTES PARA TRATAMENTO AMERICA LATINA

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 10017 Data: 26/03/2010 Hora: 14:46:27

----------------------------------------------------------------------------------------------------

Nota Número : 10017

Categoria : Erro de Programa

Prioridade : Média

Versão PW.CE : 8.0

Pacote : 00003

Agrupamento : 00014

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

09954 - 00001 - 8.0 - 00002 - AJUSTES PARA TRATAMENTO AMERICA LATINA

----------------------------------------------------------------------------------------------------

GRAVAR AS ALTERAÇÕES DAS CONDIÇÕES DOS IMPOSTOS DA ANA

----------------------------------------------------------------------------------------------------

Palavras Chave:

CONDIÇÃO - ITEM - ANA - ALTERAR - ADUANA - ATUALIZAR

/PWS/SAPMZYCI059

----------------------------------------------------------------------------------------------------

Objetos da nota:

DYNP /PWS/SAPMZYCI059 0133

DYNP /PWS/SAPMZYCI059 0433

REPS /PWS/MZYCI059F01

REPS /PWS/MZYCI059F03

REPS /PWS/MZYCI059I01

REPS /PWS/MZYCI059O01

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DYNP /PWS/SAPMZYCI059 0133

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0133

process before output.

module: set_screen_padrao,

propoe_taxa_sisco.

loop at itab_zycit403t with control tc_tribc.

module: carrega_zycie403_t.

endloop.

process after input.

module clear_variavel.

loop at itab_zycit403t.

endloop.

* >> Início da inclusão:

CHAIN.

FIELD /pws/zycie085-taxasicomex MODULE mod_sisc ON CHAIN-REQUEST.

ENDCHAIN.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DYNP /PWS/SAPMZYCI059 0433

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE403-CONDICOES" em tbl.contr./tabstr.

Código função ENTER

MODIFICAR CAIXA DE VERIFICAÇÃO "/PWS/ZYCIE403-CREDITAR" em tbl.contr./ta

Código função ENTER

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI059F01

...

WHERE nrseq = /pws/zycie085-nrseqdi.

IF NOT itab_zycit049[] IS INITIAL.

SELECT SINGLE land1 FROM t001 INTO t001-land1

WHERE bukrs EQ /pws/zycie085-bukrs.

SELECT * FROM /pws/zycit019 INTO TABLE itab_zycit019

FOR ALL ENTRIES IN itab_zycit049 WHERE

regio = v_region AND

tpdesp = itab_zycit049-tpdesp AND

land1 = t001-land1.

ENDIF.

* >> Início da exclusão: FORM LOADING_ALL

IF sy-subrc NE 0.

IF NOT itab_zycit049[] IS INITIAL.

* << Fim da exclusão

SELECT SINGLE land1 FROM t001 INTO t001-land1

WHERE bukrs EQ /pws/zycie085-bukrs.

SELECT * FROM /pws/zycit019 INTO TABLE itab_zycit019

* >> Início da exclusão: FORM LOADING_ALL

FOR ALL ENTRIES IN itab_zycit049 WHERE

* << Fim da exclusão

* >> Início da inclusão: FORM LOADING_ALL

WHERE

* << Fim da inclusão

regio = space AND

* >> Início da exclusão: FORM LOADING_ALL

tpdesp = itab_zycit049-tpdesp AND

* << Fim da exclusão

land1 = t001-land1.

* >> Início da exclusão: FORM LOADING_ALL

ENDIF.

* << Fim da exclusão

IF itab_zycit029[] IS INITIAL.

SELECT SINGLE land1

FROM t001

INTO t001-land1

WHERE bukrs EQ /pws/zycie085-bukrs.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI059F03

...

MOVE itab_zycit402-creditar TO itab_zycit403-creditar.

MOVE itab_zycit402-base TO itab_zycit403-basered.

ENDIF.

READ TABLE itab_zycit403_t WITH KEY

codigo = itab_zycit403-codigo

ebeln = itab_zycit403-ebeln

ebelp = itab_zycit403-ebelp.

IF sy-subrc EQ 0.

* >> Início da exclusão: FORM CARREGA_TRIBUTOS

MOVE

itab_zycit403_t-percentual TO itab_zycit403-percentual.

* << Fim da exclusão

* >> Início da inclusão: FORM CARREGA_TRIBUTOS

MOVE:

itab_zycit403_t-percentual TO itab_zycit403-percentual,

itab_zycit403_t-condicoes TO itab_zycit403-condicoes,

itab_zycit403_t-creditar TO itab_zycit403-creditar.

* << Fim da inclusão

ELSE.

MOVE itab_zycit403-advalorem TO itab_zycit403-percentual.

ENDIF.

v_index = v_index + 1.

READ TABLE itab_zycit403 INTO wa_zycit403 INDEX v_index.

v_valtot = v_valtot + wa_zycit403-valorcalc.

ENDIF.

ENDWHILE.

MOVE: itab_it-nrseqdi TO itab_zycit403-nrseqdi,

itab_it-ebeln TO itab_zycit403-ebeln,

...

MOVE itab_zycit402-creditar TO itab_zycit403-creditar.

MOVE itab_zycit402-base TO itab_zycit403-basered.

ENDIF.

READ TABLE itab_zycit403_t WITH KEY

codigo = itab_zycit403-codigo

ebeln = itab_zycit403-ebeln

ebelp = itab_zycit403-ebelp.

IF sy-subrc EQ 0.

* >> Início da exclusão: FORM CARREGA_TRIBUTOS

MOVE

itab_zycit403_t-percentual TO itab_zycit403-percentual.

* << Fim da exclusão

* >> Início da inclusão: FORM CARREGA_TRIBUTOS

MOVE:

itab_zycit403_t-percentual TO itab_zycit403-percentual,

itab_zycit403_t-condicoes TO itab_zycit403-condicoes,

itab_zycit403_t-creditar TO itab_zycit403-creditar.

* << Fim da inclusão

ELSE.

MOVE itab_zycit403-advalorem TO itab_zycit403-percentual.

ENDIF.

itab_zycit403-valorcalc =

itab_zycit403-base * itab_zycit403-percentual / 100.

IF itab_zycit403-valorcalc < itab_zycit399-vlmin AND

NOT itab_zycit399-vlmin IS INITIAL.

itab_zycit403-valorcalc = itab_zycit399-vlmin.

ENDIF.

IF itab_zycit403-valorcalc > itab_zycit399-vlmax AND

...

ELSE.

SORT itab_zycit403 BY codigo.

CLEAR itab_zycit403t.

REFRESH itab_zycit403t.

LOOP AT itab_zycit403.

MOVE-CORRESPONDING itab_zycit403 TO itab_zycit403t.

COLLECT itab_zycit403t.

ENDLOOP.

ENDIF.

* >> Início da inclusão: FORM CARREGA_TRIBUTOS

SORT itab_zycit403t BY codigo condicoes.

* << Fim da inclusão

ENDFORM.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI059I01

...

ENDIF.

itab_zycit403_i-base = itab_zycit403_i-base + itab_trib-t_ivdesp.

ENDLOOP.

ENDIF.

IF ( itab_zycit403_i-codigo EQ '000415' OR

itab_zycit403_i-codigo EQ '000422' OR

itab_zycit403_i-codigo EQ '000429' ) AND

t001-land1 EQ 'AR'.

itab_zycit403_i-base = itab_zycit403_i-base

+ itab_it-vlicms.

* >> Início da inclusão: MODULE CARREGA_ZYCIT403

ELSEIF wa_zycit477-land EQ t001-land1.

READ TABLE itab_zycit020

WITH KEY codigo = 'SISC'

baseii = 'X'.

IF sy-subrc EQ 0.

itab_zycit403_i-base = itab_zycit403_i-base

+ itab_it-vlicms.

* << Fim da inclusão

ENDIF.

* >> Início da inclusão: MODULE CARREGA_ZYCIT403

ENDIF.

* << Fim da inclusão

CLEAR v_valtot.

IF itab_zycit403_i-codigo EQ '000010' OR

itab_zycit403_i-codigo EQ '000011' OR

itab_zycit403_i-codigo EQ 'DERECH'.

READ TABLE itab_zycit082 WITH KEY ebeln = itab_zycit403_i-ebeln

ebelp = itab_zycit403_i-ebelp.

...

* >> Início da inclusão:

MODULE mod_sisc INPUT.

DATA v_okcodetmp TYPE sy-ucomm.

v_okcodetmp = ok_code.

CLEAR ok_code.

ok_code = 'REFR'.

PERFORM: refresh_all.

CLEAR v_mudou.

ok_code = v_okcodetmp.

ENDMODULE.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI059O01

...

IF t002-spras IS INITIAL.

t002-spras = 'P'.

ENDIF.

SORT itab_zycit403 BY codigo.

CLEAR itab_zycit403t.

REFRESH itab_zycit403t.

LOOP AT itab_zycit403.

MOVE-CORRESPONDING itab_zycit403 TO itab_zycit403t.

COLLECT itab_zycit403t.

ENDLOOP.

* >> Início da inclusão: MODULE LOAD_DATA

SORT itab_zycit403t BY codigo condicoes.

* << Fim da inclusão

IF /pws/zycie085-nrseqdi IS INITIAL.

CLEAR /pws/zycie085-ntimp.

IMPORT wa_zycie085 FROM MEMORY ID rimc4.

IF sy-subrc EQ 0.

MOVE wa_zycie085 TO /pws/zycie085.

CLEAR: /pws/zycie085-dtuserc, /pws/zycie085-dtusera,

/pws/zycie085-usernamec, /pws/zycie085-usernamea.

ENDIF.

/pws/zycie085-gewei_l = 'KG '.

/pws/zycie085-tpimp = '1'.

...

ENDIF.

/pws/zycie403-base = /pws/zycie403-base + itab_trib-t_ivdesp.

ENDLOOP.

ENDIF.

IF ( /pws/zycie403-codigo EQ '000415' OR

/pws/zycie403-codigo EQ '000422' OR

/pws/zycie403-codigo EQ '000429' ) AND

t001-land1 EQ 'AR'.

/pws/zycie403-base = /pws/zycie403-base

+ itab_it-vlicms.

* >> Início da inclusão: MODULE CARREGA_ZYCIE403

ELSEIF wa_zycit477-land EQ t001-land1.

READ TABLE itab_zycit020

WITH KEY codigo = 'SISC'

baseii = 'X'.

IF sy-subrc EQ 0.

/pws/zycie403-base = /pws/zycie403-base

+ itab_it-vlicms.

ENDIF.

* << Fim da inclusão

ENDIF.

CLEAR v_valtot.

IF /pws/zycie403-codigo EQ '000010' OR

/pws/zycie403-codigo EQ '000011' OR

/pws/zycie403-codigo EQ 'DERECH'.

READ TABLE itab_zycit082 WITH KEY ebeln = /pws/zycie403-ebeln

ebelp = /pws/zycie403-ebelp.

IF sy-subrc EQ 0 AND itab_zycit082-doc NE space.

CLEAR: /pws/zycie403-percentual, /pws/zycie403-basered.

ENDIF.

...

MODULE propoe_taxa_sisco OUTPUT.

IF /pws/zycie085-taxasicomex IS INITIAL.

/pws/zycie085-taxasicomex = wa_it000-txsis_fix.

ENDIF.

* >> Início da inclusão: MODULE PROPOE_TAXA_SISCO

DESCRIBE TABLE itab_zycit403t LINES tc_tribc-lines.

* << Fim da inclusão

ENDMODULE.

...