CE PLUS - Nota 002915
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 18/01/2007 00:00:00
Data/Hora Última Alteração: 20/05/2010 00:00:00
Descrição da Nota: ADICIONADO PARAMETRO LEI 102 PARA PIS E COFINS
Sintoma
Adicionado parametro lei 102 na tabela /pws/zycit398 e ajustado o programa de recebimento para
buscar as contas de lançamento de PIS e COFINS de acordo com está parametrização.
Solução
Adicionado parametro lei 102 na tabela /pws/zycit398 e ajustado o programa de recebimento para
buscar as contas de lançamento de PIS e COFINS de acordo com está parametrização.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02915 Data: 18/01/2007 Hora: 09:29:42
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02915
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00149
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ADICIONADO PARAMETRO LEI 102 PARA PIS E COFINS
----------------------------------------------------------------------------------------------------
Palavras Chave:
PIS - COFINS - RECEBIMENTO - LEI 102
/PWS/SAPMZYCI017
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUGR /PWS/ZYCIGF1
REPS /PWS/MZYCI017F02
TABD /PWS/ZYCIT398
TOBJ /PWS/ZYCIT398S
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUGR /PWS/ZYCIGF1
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
itab_zycbt035_aux-d_prctr = itab_aufk-prctr.
itab_zycbt035_aux-c_prctr = itab_aufk-prctr.
ENDIF.
MOVE: itab_matuse-j_1bmatuse TO itab_zycbt035_aux-matuse.
itab_zycbt035_aux-werks = itab_zycit003-werks.
itab_zycbt035_aux-d_gsber = itab_zycit003-gsber.
IF NOT itab_zycit100-vlpis IS INITIAL.
CLEAR itab_zycit398.
READ TABLE itab_zycit398 WITH KEY tpnf = itab_global-tpnf
tributos = 'PIS'.
* >> Início da inclusão: FORM ADICIONA_OUTROS_IMPOSTOS
itab_zycbt035_aux-lei102 = itab_zycit398-lei102.
* << Fim da inclusão
itab_zycbt035_aux-imposto = 'PIS'.
itab_zycbt035_aux-debcred = itab_zycit398-creditar.
itab_zycbt035_aux-wrbtr = abs( itab_zycit100-vlpis ).
itab_zycbt035_aux-bschl = '40'.
APPEND itab_zycbt035_aux.
itab_zycbt035_aux-bschl = '50'.
APPEND itab_zycbt035_aux.
ENDIF.
IF NOT itab_zycit100-vlcofins IS INITIAL.
CLEAR itab_zycit398.
READ TABLE itab_zycit398 WITH KEY tpnf = itab_global-tpnf
tributos = 'COFINS'.
* >> Início da inclusão: FORM ADICIONA_OUTROS_IMPOSTOS
itab_zycbt035_aux-lei102 = itab_zycit398-lei102.
* << Fim da inclusão
itab_zycbt035_aux-imposto = 'COFI'.
itab_zycbt035_aux-debcred = itab_zycit398-creditar.
itab_zycbt035_aux-wrbtr = abs( itab_zycit100-vlcofins ).
itab_zycbt035_aux-bschl = '40'.
APPEND itab_zycbt035_aux.
itab_zycbt035_aux-bschl = '50'.
APPEND itab_zycbt035_aux.
ENDIF.
* >> Início da inclusão: FORM ADICIONA_OUTROS_IMPOSTOS
clear: itab_zycbt035_aux-lei102.
* << Fim da inclusão
CLEAR itab_zycit398.
READ TABLE itab_zycit398 WITH KEY tpnf = itab_global-tpnf
tributos = 'PIS'.
IF sy-subrc EQ 0 AND itab_zycit398-creditar EQ 'S'.
IF NOT itab_zycit100-vlpis IS INITIAL.
itab_zycbt035_aux-imposto = 'BPIS'.
itab_zycbt035_aux-wrbtr = abs( itab_zycit100-basepis ).
itab_zycbt035_aux-bschl = '40'.
APPEND itab_zycbt035_aux.
itab_zycbt035_aux-bschl = '50'.
...
...
IF itab_zycbt035_aux-bschl EQ '40'.
CLEAR itab_cta. REFRESH itab_cta.
PERFORM seek_account_number
TABLES itab_cta
USING wa_nf-bukrs
'PIR'
itab_zycbt035_aux-werks
space
itab_zycbt035_aux-matuse
itab_zycbt035_aux-debcred
* >> Início da exclusão: FORM ADICIONA_OUTROS_IMPOSTOS
space.
* << Fim da exclusão
* >> Início da inclusão: FORM ADICIONA_OUTROS_IMPOSTOS
itab_zycbt035_aux-lei102.
* << Fim da inclusão
READ TABLE itab_cta INDEX 1.
PERFORM verify_null_field USING itab_cta-konts 'D_NEWKO' text-016.
itab_zycbt035_aux2-d_newko = itab_cta-konts.
ELSEIF itab_zycbt035_aux-bschl EQ '50'.
CLEAR itab_cta. REFRESH itab_cta.
PERFORM seek_account_number
TABLES itab_cta
USING wa_nf-bukrs
'PIP'
itab_zycbt035_aux-werks
space
itab_zycbt035_aux-matuse
itab_zycbt035_aux-debcred
* >> Início da exclusão: FORM ADICIONA_OUTROS_IMPOSTOS
space.
* << Fim da exclusão
* >> Início da inclusão: FORM ADICIONA_OUTROS_IMPOSTOS
itab_zycbt035_aux-lei102.
* << Fim da inclusão
READ TABLE itab_cta INDEX 1.
PERFORM verify_null_field USING itab_cta-konth 'D_NEWKO' text-069.
itab_zycbt035_aux2-d_newko = itab_cta-konth.
ENDIF.
COLLECT itab_zycbt035_aux2.
ENDLOOP.
LOOP AT itab_zycbt035_aux WHERE imposto EQ 'COFI'.
CLEAR itab_zycbt035_aux2.
MOVE: itab_zycbt035_aux-bschl TO itab_zycbt035_aux2-bschl ,
itab_zycbt035_aux-imposto TO itab_zycbt035_aux2-imposto,
...
...
IF itab_zycbt035_aux-bschl EQ '40'.
CLEAR itab_cta. REFRESH itab_cta.
PERFORM seek_account_number
TABLES itab_cta
USING wa_nf-bukrs
'COR'
itab_zycbt035_aux-werks
space
itab_zycbt035_aux-matuse
itab_zycbt035_aux-debcred
* >> Início da exclusão: FORM ADICIONA_OUTROS_IMPOSTOS
space.
* << Fim da exclusão
* >> Início da inclusão: FORM ADICIONA_OUTROS_IMPOSTOS
itab_zycbt035_aux-lei102.
* << Fim da inclusão
READ TABLE itab_cta INDEX 1.
PERFORM verify_null_field USING itab_cta-konts 'D_NEWKO' text-016.
itab_zycbt035_aux2-d_newko = itab_cta-konts.
ELSEIF itab_zycbt035_aux-bschl EQ '50'.
CLEAR itab_cta. REFRESH itab_cta.
PERFORM seek_account_number
TABLES itab_cta
USING wa_nf-bukrs
'COP'
itab_zycbt035_aux-werks
space
itab_zycbt035_aux-matuse
itab_zycbt035_aux-debcred
* >> Início da exclusão: FORM ADICIONA_OUTROS_IMPOSTOS
space.
* << Fim da exclusão
* >> Início da inclusão: FORM ADICIONA_OUTROS_IMPOSTOS
itab_zycbt035_aux-lei102.
* << Fim da inclusão
READ TABLE itab_cta INDEX 1.
PERFORM verify_null_field USING itab_cta-konth 'D_NEWKO' text-069.
itab_zycbt035_aux2-d_newko = itab_cta-konth.
ENDIF.
COLLECT itab_zycbt035_aux2.
ENDLOOP.
LOOP AT itab_zycbt035_aux WHERE imposto EQ 'BPIS'.
CLEAR itab_zycbt035_aux2.
MOVE: itab_zycbt035_aux-bschl TO itab_zycbt035_aux2-bschl ,
itab_zycbt035_aux-imposto TO itab_zycbt035_aux2-imposto,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT398
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp. Grupo
...
CREDITAR /PWS/ZYCIL638 CHAR 1
TAXTYP J_1BTAXTYP J_1BAJ CHAR 4
* >> Início da inclusão:
LEI102 /PWS/ZYCIL039 CHAR 1
* >> Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TOBJ /PWS/ZYCIT398S
*Gerar novamente a tela de atulzação da tabela.
*Gerar novamente a tela de atulzação da tabela.