CE PLUS - Nota 001194
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 12/04/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:19:28
Descrição da Nota: SELEÇÃO DE ALÍQUOTAS DE PIS E COFINS POR REGIME
Sintoma
O programa precisa selecionar alíquotas especificas para certos regimes
Solução
inserido novo campo de regime na tabela de alicotas de Pis e Cofins.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01194 Data: 12/04/2006 Hora: 15:42:38
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01194
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00109
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
SELEÇÃO DE ALÍQUOTAS DE PIS E COFINS POR REGIME
----------------------------------------------------------------------------------------------------
Palavras Chave:
PIS - COFINS - ALÍQUOTAS - REGIME
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUGR /PWS/ZYCIGF1
REPS /PWS/MZYCI023F01
TABD /PWS/ZYCIT405
TABD /PWS/ZYCIT406
TABD /PWS/ZYCIT407
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUGR /PWS/ZYCIGF1
Gerar visão de atualização das tabelas abaixo:
/PWS/ZYCIT405
/PWS/ZYCIT406
/PWS/ZYCIT407
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
ENDIF.
ENDIF.
SELECT SINGLE matnr FROM ekpo INTO v_matnr
WHERE ebeln EQ itab_it-ebeln
AND ebelp EQ itab_it-ebelp.
* >> Início da inclusão: FORM FILL_ITABIT
IF itab_it-basredpis IS INITIAL.
SELECT SINGLE * FROM /pws/zycit406 INTO wa_zycit406
WHERE pais EQ 'BR'
AND matnr EQ v_matnr
AND tributos EQ 'PIS'
and regime eq itab_zycit001-regime.
IF sy-subrc EQ 0.
itab_it-basredpis = wa_zycit406-basred .
itab_it-advalpis = wa_zycit406-aliquotas.
ELSE.
SELECT SINGLE * FROM /pws/zycit405 INTO wa_zycit405
WHERE pais EQ 'BR'
AND ncm EQ itab_it-j_1bnbm
AND tributos EQ 'PIS'
and regime eq itab_zycit001-regime.
.
IF sy-subrc EQ 0.
itab_it-basredpis = wa_zycit405-basred .
itab_it-advalpis = wa_zycit405-aliquotas.
ELSE.
SELECT SINGLE * FROM /pws/zycit407 INTO wa_zycit407
WHERE pais EQ 'BR'
AND tributos EQ 'PIS'
and regime eq itab_zycit001-regime.
IF sy-subrc EQ 0.
itab_it-basredpis = wa_zycit407-basred .
itab_it-advalpis = wa_zycit407-aliquotas.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
IF itab_it-basredpis IS INITIAL.
SELECT SINGLE * FROM /pws/zycit406 INTO wa_zycit406
WHERE pais EQ 'BR'
AND matnr EQ v_matnr
AND tributos EQ 'PIS'.
...
...
itab_it-advalpis = wa_zycit407-aliquotas.
ELSE.
itab_it-basredpis = 100.
CLEAR : itab_it-advalpis,
itab_it-vlpis .
* >> Início da inclusão: FORM FILL_ITABIT
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM FILL_ITABIT
IF itab_it-basredcof IS INITIAL.
SELECT SINGLE * FROM /pws/zycit406 INTO wa_zycit406
WHERE pais EQ 'BR'
AND matnr EQ v_matnr
AND tributos EQ 'COFINS'
and regime eq itab_zycit001-regime.
IF sy-subrc EQ 0.
itab_it-basredcof = wa_zycit406-basred .
itab_it-advalcofins = wa_zycit406-aliquotas.
ELSE.
SELECT SINGLE * FROM /pws/zycit405 INTO wa_zycit405
WHERE pais EQ 'BR'
AND ncm EQ itab_it-j_1bnbm
AND tributos EQ 'COFINS'
and regime eq itab_zycit001-regime.
IF sy-subrc EQ 0.
itab_it-basredcof = wa_zycit405-basred .
itab_it-advalcofins = wa_zycit405-aliquotas.
ELSE.
SELECT SINGLE * FROM /pws/zycit407 INTO wa_zycit407
WHERE pais EQ 'BR'
AND tributos EQ 'COFINS'
and regime eq itab_zycit001-regime.
IF sy-subrc EQ 0.
itab_it-basredcof = wa_zycit407-basred .
itab_it-advalcofins = wa_zycit407-aliquotas.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM FILL_ITABIT
endif.
* << Fim da inclusão
IF itab_it-basredcof IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT405
INSERIR CAMPO REGIME NA TABELA, FICANDO DA SEGUINTE MANEIRA
CAMPO ELEM.DADOS
MANDT MANDT Chave
PAIS LAND1 Chave
TRIBUTOS /PWS/ZYCIL089 Chave
NCM J_1BNBMCO1 Chave
REGIME /PWS/ZYCIL062 Chave
ALIQUOTAS J_1BTXRATE
BASRED /PWS/ZYCIL041
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT406
CAMPO ELEM.DADOS
MANDT MANDT Chave
PAIS LAND1 Chave
TRIBUTOS /PWS/ZYCIL089 Chave
MATNR MATNR Chave
REGIME /PWS/ZYCIL062 Chave
ALIQUOTAS J_1BTXRATE
BASRED /PWS/ZYCIL041
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT407
CAMPO ELEM.DADOS
MANDT MANDT Chave
PAIS LAND1 Chave
TRIBUTOS /PWS/ZYCIL089 Chave
REGIME /PWS/ZYCIL062 Chave
ALIQUOTAS J_1BTXRATE
BASRED /PWS/ZYCIL041