CE PLUS - Nota 002818
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 05/01/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:39:29
Descrição da Nota: AJUSTADA SELEÇÃO DOS TEXTOS DOS REGIMES TRIBUTARIOS.
Sintoma
Atualizada DI para pegar corretamente o regime de tributação da tabela /pws/zycit167.
Solução
Ajustada seleção dos textos dos regimes tributarios.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02818 Data: 05/01/2007 Hora: 09:13:33
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02818
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00146
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02325 - 00001 - 6.0 - 00025 - TRATAMENTO PARA SUSPENSÃO DE ICMS NA DI POR REGIÃO
----------------------------------------------------------------------------------------------------
AJUSTADA SELEÇÃO DOS TEXTOS DOS REGIMES TRIBUTARIOS.
----------------------------------------------------------------------------------------------------
Palavras Chave:
ZYCIT167, ZYCIT471, FORM LOAD_REGT, DESCRICAO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
...
FORM load_regt USING p_codreg p_natureza p_imposto
CHANGING p_text.
CLEAR p_text.
IF v_region IS INITIAL.
PERFORM find_region.
ENDIF.
SELECT SINGLE descricao FROM /pws/zycit167 INTO p_text
* >> Início da exclusão: FORM LOAD_REGT
WHERE ntimp = p_natureza AND
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_REGT
WHERE
* << Fim da inclusão
tipo = p_imposto AND
codreg = p_codreg AND
regio = v_region .
IF sy-subrc NE 0.
SELECT SINGLE descricao FROM /pws/zycit167 INTO p_text
* >> Início da exclusão: FORM LOAD_REGT
WHERE ntimp = p_natureza AND
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_REGT
WHERE
* << Fim da inclusão
tipo = p_imposto AND
codreg = p_codreg.
IF sy-subrc NE 0 AND NOT /pws/zycie100a-codregtri IS INITIAL
AND NOT /pws/zycie100a-codregtriipi IS INITIAL.
v_msg = 'X'.
MESSAGE i015 WITH text-152.
EXIT.
ENDIF.
ENDIF.
IF p_imposto = '1'.
...