CE PLUS - Nota 013435
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 21/11/2013 16:10:13
Data/Hora Última Alteração: 21/11/2013 16:10:13
Descrição da Nota: NA CRIAÇÃO, NÃO GRAVA ALIQUOTA DE PIS E COFINS ALTERADA
Sintoma
Na criação, não grava aliquota de Pis e Cofins alterada . Ao dar refresh, retorna à alíquota
proposta.
Solução
Atualizado programa para propor as alíquotas apenas uma vez não sobrepondo as alíquotas alteradas
pelo usuário
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13435 Data: 21/11/2013 Hora: 15:55:49
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13435
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00006
Agrupamento : 00166
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
13226 - 00001 - 9.0 - 00006 - TABELAS DE ALIQUOTA DE PIS E COFINS NÃO VERIFICA VIGENCIA NA DI
----------------------------------------------------------------------------------------------------
NA CRIAÇÃO, NÃO GRAVA ALIQUOTA DE PIS E COFINS ALTERADA
----------------------------------------------------------------------------------------------------
Palavras Chave:
ALIQUOTA - PIS - COFINS - ZYCIT405 - ZYCIT406 - REFRESH.
DI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F05
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F05
...
FORM load_aliqpiscof.
LOOP AT itab_it.
v_idx = sy-tabix.
READ TABLE itab_zycit003 WITH KEY
ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
* >> Início da inclusão: FORM LOAD_ALIQPISCOF
IF itab_it-advalpis IS INITIAL .
* << Fim da inclusão
IF itab_it-basredpis IS INITIAL.
READ TABLE itab_zycit406
WITH KEY matnr = itab_zycit003-matnr
regime = itab_zycit001-regime
tributos = 'PIS'.
IF sy-subrc EQ 0 AND itab_zycit406-vigencia LE /pws/zycie085-dttax.
itab_it-basredpis = itab_zycit406-basred .
itab_it-pis_alorig =
itab_it-advalpis = itab_zycit406-aliquotas.
ELSE.
...
...
itab_it-pis_alorig =
itab_it-advalpis = itab_zycit407-aliquotas.
ELSE.
itab_it-basredpis = itab_it-advalpis.
CLEAR : itab_it-advalpis,
itab_it-vlpis .
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM LOAD_ALIQPISCOF
ENDIF.
IF itab_it-advalcofins IS INITIAL .
* << Fim da inclusão
IF itab_it-basredcof IS INITIAL.
READ TABLE itab_zycit406
WITH KEY matnr = itab_zycit003-matnr
regime = itab_zycit001-regime
tributos = 'COFINS'.
IF sy-subrc EQ 0 AND
itab_zycit406-vigencia LE /pws/zycie085-dttax.
itab_it-basredcof = itab_zycit406-basred .
itab_it-cof_alorig =
itab_it-advalcofins = itab_zycit406-aliquotas.
...
...
ELSE.
READ TABLE itab_zycit407 WITH KEY tributos = 'COFINS'.
IF sy-subrc EQ 0.
itab_it-basredcof = itab_zycit407-basred .
itab_it-cof_alorig =
itab_it-advalcofins = itab_zycit407-aliquotas.
ELSE.
itab_it-basredcof = itab_it-advalcofins.
CLEAR : itab_it-advalcofins,
itab_it-vlcofins .
* >> Início da inclusão: FORM LOAD_ALIQPISCOF
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
ENDIF.
MODIFY itab_it INDEX v_idx.
ENDLOOP.
ENDFORM.
...