Sintoma

Favor criar novo parâmetro para inclusão do Fundamento Legal do PIS/COFINS.

Solução

Criar uma tabela para armazenar parâmetros de pis/cofins.

Informações Complementares

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

Nota Número 01910 Data: 10/08/2006 Hora: 09:52:03

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

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

Nota Número              : 01910

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00126

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

Referência às notas relacionadas:

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

01520  - 00001 - 6.0    - 00023  - INCLUSÃO DA NOVA TELA PIS/COFINS NA DI

01602  - 00002 - 6.0    - 00023  - AJUSTES HOMOLOGAÇÃO DI - CÁLCULOS, DESPESAS, REGIMES

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

PARÂMETRO PARA INCLUSÃO DO FUNDAMENTO LEGAL DO PIS/COFINS

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

Palavras Chave:

PARÂMETRO -  FUNDAMENTO LEGAL- PIS/COFINS - SISCOMEX - DI

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

Objetos da nota:

DYNP /PWS/SAPMZYCI023                        0435

FUGR /PWS/ZYCIGF1

REPS /PWS/MZYCI023F04

REPS /PWS/MZYCI023I01

SHLP /PWS/ZYCIA471

TABD /PWS/ZYCIE100A

TABL /PWS/ZYCIT471

TOBJ /PWS/ZYCIT471S

TRAN /PWS/ZYCIT471

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI023                        0435

* ALTERAÇÕES FEITAS:

* Foi retirada a ajuda de pesquisa vinculada ao campo /PWS/ZYCIE100A-CODFUNLEGPISCOFI

   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

*DE:

   /PWS/ZYCIE100A-CODFUNLEGPISCOFI

      I/O        8       25       2       2       1     CHAR               Ent Off

      Chave externa, Botão EntrsPoss.stand.

      Ajuda pesquisa=/PWS/ZYCIA177

*PARA:

   /PWS/ZYCIE100A-CODFUNLEGPISCOFI

      I/O        8       25       2       2       1     CHAR               Ent Off

      Chave externa, Botão EntrsPoss.stand.

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

Modificações efetuadas em REPS /PWS/MZYCI023F04

...

  t_umpis                = itab_it-meins.

  t_umcofi               = itab_it-meins.

  t_pis                  = itab_it-qtd_iten.

  t_cofins               = itab_it-qtd_iten.

  IF NOT /pws/zycie100a-codredpiscofi IS INITIAL.

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

    PERFORM seleciona_fund_legal

* << Fim da exclusão

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

             perform seleciona_fund_legal_pc

* << Fim da inclusão

         USING /pws/zycie100a-codredpiscofi

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

                 /PWS/ZYCIE100A-CODREGTRIPISCOFI

* << Fim da inclusão

         CHANGING t_fundes_reducao /pws/zycie100a-codredpiscofi.

  ELSE.

    CLEAR t_fundes_reducao.

  ENDIF.

  IF NOT /pws/zycie100a-codfunlegpiscofi IS INITIAL.

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

    PERFORM seleciona_fund_legal

* << Fim da exclusão

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

    PERFORM seleciona_fund_legal_PC

* << Fim da inclusão

         USING /pws/zycie100a-codfunlegpiscofi

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

                 /PWS/ZYCIE100A-CODREGTRIPISCOFI

* << Fim da inclusão

         CHANGING t_fundes_regtri /pws/zycie100a-codredpiscofi.

...

...

  itab_it-cof_calculado = a_cofcalc.

  itab_it-cof_reduzido  = a_cofredu.

  itab_it-cof_devido    = a_cofdevi.

  itab_it-cof_recolher  = a_cofrec .

ENDFORM.

* >> Início da inclusão:

form seleciona_fund_legal_pc using     p_campo

                                       p_campo1

                             changing  p_texto p_campo2.

  DATA: v_descr LIKE /pws/zycit471-descr.

  SELECT SINGLE descr

      FROM /pws/zycit471 INTO v_descr

      WHERE codigo = p_campo

      and   regime = p_campo1.

  IF sy-subrc EQ 0.

    p_texto = v_descr.

  ELSE.

    CLEAR: v_descr, p_campo2.

    MESSAGE e015 WITH text-238.

  ENDIF.

endform.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI023I01

...

module user_command_0435 input.

  case sy-ucomm.

      when 'ENTE'.

        clear: T_FUNDES_REDUCAO, T_FUNDES_REGTRI.

        if not /PWS/ZYCIE100A-CODREDPISCOFI is initial.

* >> Início da exclusão: MODULE USER_COMMAND_0435

            perform seleciona_fund_legal

* << Fim da exclusão

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

             perform seleciona_fund_legal_pc

* << Fim da inclusão

                 using /PWS/ZYCIE100A-CODREDPISCOFI

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

                 /PWS/ZYCIE100A-CODREGTRIPISCOFI

* << Fim da inclusão

                 changing T_FUNDES_REDUCAO /pws/zycie100a-codredpiscofi.

        else.

          clear: T_FUNDES_REDUCAO.

        endif.

        if not /PWS/ZYCIE100A-CODFUNLEGPISCOFI is initial.

* >> Início da exclusão: MODULE USER_COMMAND_0435

            perform seleciona_fund_legal

* << Fim da exclusão

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

             perform seleciona_fund_legal_pc

* << Fim da inclusão

                 using /PWS/ZYCIE100A-CODFUNLEGPISCOFI

* >> Início da exclusão: MODULE USER_COMMAND_0435

                changing T_FUNDES_REGTRI /PWS/ZYCIE100A-CODFUNLEGPISCOFI

.

* << Fim da exclusão

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

                 /PWS/ZYCIE100A-CODREGTRIPISCOFI

               changing t_fundes_regtri /pws/zycie100a-codfunlegpiscofi.

* << Fim da inclusão

        else.

            clear: T_FUNDES_REGTRI.

        endif.

  endcase.

endmodule.

...

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

Modificações efetuadas em SHLP /PWS/ZYCIA471

*Criada a ajuda de pesquisa /PWS/ZYCIA471

MODIFICAR AJUDA DE PESQUISA:  /PWS/ZYCIA471

DESCRIÇÃO BREVE: CI - REGIME FUNDAMENTO

DEFINIÇÃO

OBTENÇÃO DE DADOS

MÉTODO DE SELEÇÃO: /PWS/ZYCIT471

COMPORTAMENTO DE DIÁLOGO:

TIPO DE DIÁLOGO: Exibição de valores imediatos

PARÂMETROS:

PARAM.    IMP EXP POSL ISEL EXAJ ELEM. DADOS  MOD  VALOR PROPOSTO

ORIGEM     X       0    0        /PWS/ZYCIL231

TPNI       X       0    0        /PWS/ZYCIL232

REGIME     X       0    0        /PWS/ZYCEL088

CODIGO         X   1    1        /PWS/ZYCIL203

DESCR              2    2        /PWS/ZYCEL263

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

Modificações efetuadas em TABD /PWS/ZYCIE100A

*MODIFICAR ESTRUTURA: /PWS/ZYCIE100A

*COMPONENTES ALTERADOS

Nome de campo      CODFUNLEGPISCOFI

Nome ajuda pesq.   /PWS/ZYCIA471

Par.AjPesq Tabela conexão Cpo.conexão ajuda p/pesquisa

CODIGO     /PWS/ZYCIE100A CODFUNLEGPISCOFI

REGIME     /PWS/ZYCIE100A CODREGTRIPISCOFI

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

Modificações efetuadas em TABL /PWS/ZYCIT471

*Criada tabela /PWS/ZYCIT471

MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCIT471

DESCRIÇÃO BREVE: CI - SISCOMEX - Regime Fundamento Legal PIS/Cofins

CARACTERÍSTICAS

CATEGORIA DA TABELA: TABELA TRANSPARENTE

CLASSE DE ENTREGA:   A

(X) - ATUALIZAÇÃO DE TABELAS PERMITIDA

CAMPOS NOVOS

CAMPOS:         TP. CAMPO      CH: INI: TAB.VERIF.:    TAB.REF.:     CPO.RE

MANDT           MANDT    X    X

ORIGEM         /PWS/ZYCIL231   X    X

TPNI            /PWS/ZYCIL232   X    X

REGIME         /PWS/ZYCEL088   X    X

CODIGO         /PWS/ZYCIL203   X    X

DESCR           /PWS/ZYCEL263

USERNAMEC   SYUNAME

DTUSERC   SYDATUM

HRUSERC   SYSTTIMLO

OPÇÕES TÉCNICAS

TIPO DE DADOS: APPL0

CATEGOR. TAMANHO: 0

(X) - AR. BUFFER NÃO PERMITIDO

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

Modificações efetuadas em TOBJ /PWS/ZYCIT471S

*GERADA VISÃO DE ATUALIZAÇÃO DA TABELA /PWS/ZYCIT471

MODIFICAR VISÃO DA TABELA /PWS/ZYCIT471

INDICAÇÕES TÉCNICAS PARA DIÁLOGO

GRUPO DE AUTORIZAÇÃO: ZYCE

OBJETO AUTORIZAÇÃO:   S_TABU_DIS

GRUPO DE FUNÇÕES:     /PWS/ZYCIGF1

CL. DESENVOLVIMENTO:  /PWS/ZYCI

TELAS DE ATUALIZAÇÃO

CTG. ATUALIZAÇÃO:      (X) - NÍVEL ÚNICO

Nº TELA AUTORIZAÇÃO:   TELA SÍNTESE:    471

INDICAÇÕES PARA TRASNPORTE DE DADOS DE DIÁLOGO

ROTINA DE REGISTRO:    (X) - ROTINA REG. STANDARD

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

Modificações efetuadas em TRAN /PWS/ZYCIT471

CÓDIGO DE TRANSAÇÃO: /PWS/ZYCIT471

ATRIBUTOS DA TRANSAÇÃO

TEXTO BREVE: CI - Parâm.Fund Legal PIS/Cofins

OBJETO DE EXECUÇÃO

(X) - TRANSAÇÃO C/ PARÂMETROS (TRANSAÇÃO DE PARÂMETROS)

TEXTO DA TRANSAÇÃO: CI - Parâm.Fund Legal PIS/Cofins

VALOR PROPOSTO PARA

(X) - TRANSAÇÃO   SM30   (X) - OMITIR 1ºTELA

CLASSIFICAÇÃO

CLASSIFICAÇÃO DE TRANSAÇÃO:

(X) - TRANSAÇÃO PROFESSIONAL USER

CAPACIDADE GUI:

(X) SAP GUI PARA HTML

(X) SAP GUI PARA JAVA

(X) SAP GUI PARA WINDOWS

VALORES PROPOSTOS

NOME DO CAMPO DA TELA              VALOR

UPDATE                             X

VIEWNAME                           /PWS/ZYCIT471

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

Modificações efetuadas em TRAN /PWS/ZYCI

* Acrescentado transação /PWS/ZYCIT471 no menu de área /PWS/ZYCI --> Parâmetros --> Siscomex