CE PLUS - Nota 010961
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 17/02/2011 00:00:00
Data/Hora Última Alteração: 20/06/2011 11:57:23
Descrição da Nota: ALTERAR MENSAGEM NO RECEBIMENTO (F-02)
Sintoma
Na nota fiscal, o COFINS não foi destacado pois não existe parametrização na tabela /pws/zycit398.
Sendo assim, no recebimento, o sistema não localiza a conta a ser utilizada na F-02.
Ao fazer o recebimento, aparece a seguinte mensagem: "o campo conta débito não está preenchido".
Solução
Como o problema está no parâmetro /pws/zycit398 e não na conta débito, alterar a mensagem informando
que "não existe parametrização na classificação de nota fiscal".
Versões Tratadas
8.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10961 Data: 17/02/2011 Hora: 09:56:54
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10961
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00006
Agrupamento : 00060
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
----------------------------------------------------------------------------------------------------
ALTERAR MENSAGEM NO RECEBIMENTO (F-02)
----------------------------------------------------------------------------------------------------
Palavras Chave:
RECEBIMENTO DE COFINS - FALTA PARÂMETRO NA TABELA /PWS/ZYCIT398 F-02
PARAMETRIZAR A TABELA DE CLASSIFICAÇÃO DE NF
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F02
REPT /PWS/SAPMZYCI017
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
ENDIF.
ELSE.
MOVE: itab_matuse-j_1bmatuse TO itab_zycbt035_aux-matuse,
space TO itab_zycbt035_aux-bklas .
ENDIF.
CLEAR itab_zycit033.
READ TABLE itab_zycit033 WITH KEY regio = v_region
tpnf = itab_global-tpnf.
IF sy-subrc NE 0.
READ TABLE itab_zycit033 WITH KEY tpnf = itab_global-tpnf.
* >> Início da inclusão: FORM LANCAMENTO_IMPOSTOS
IF sy-subrc NE 0.
CLEAR: okcode.
MESSAGE e015 WITH text-117.
ENDIF.
* << Fim da inclusão
ENDIF.
itab_zycbt035_aux-werks = itab_zycit003-werks.
itab_zycbt035_aux-d_gsber = itab_zycit003-gsber.
itab_zycbt035_aux-tribicms = itab_zycit033-tribicms.
itab_zycbt035_aux-tribipi = itab_zycit033-tribipi.
itab_zycbt035_aux-lei102 = itab_zycit033-lei102.
IF /pws/zycit000-clucro_ia = 'X'.
PERFORM verifica_centro_l.
ENDIF.
LOOP AT itab_j1bnfstx.
...
...
centro_lucro = itab_zycbt035_aux-d_prctr.
itab_zycbt035_aux-c_prctr = itab_zycbt035_aux-d_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
IF sy-subrc EQ 0.
* << Fim da inclusão
itab_zycbt035_aux-lei102 = itab_zycit398-lei102.
itab_zycbt035_aux-imposto = 'PIS'.
itab_zycbt035_aux-debcred = itab_zycit398-creditar.
vl_pis_5 = vl_pis_5 + ABS( itab_zycit100-vlpis ).
IF v_tabix EQ v_cont.
itab_zycbt035_aux-wrbtr = vl_pis_5 - vl_pis_2.
ELSE.
itab_zycbt035_aux-wrbtr = abs( itab_zycit100-vlpis ).
vl_pis_2 = vl_pis_2 + ABS( itab_zycit100-vlpis ).
ENDIF.
itab_zycbt035_aux-bschl = '40'.
APPEND itab_zycbt035_aux.
itab_zycbt035_aux-bschl = '50'.
APPEND itab_zycbt035_aux.
* >> Início da inclusão: FORM ADICIONA_OUTROS_IMPOSTOS
ELSE.
CLEAR: okcode.
MESSAGE e015 WITH text-117.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM ADICIONA_OUTROS_IMPOSTOS
ENDIF.
* << Fim da inclusão
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
IF sy-subrc EQ 0.
* << Fim da inclusão
itab_zycbt035_aux-lei102 = itab_zycit398-lei102.
itab_zycbt035_aux-imposto = 'COFI'.
itab_zycbt035_aux-debcred = itab_zycit398-creditar.
vl_cofins_5 = vl_cofins_5 + ABS( itab_zycit100-vlcofins ).
IF v_tabix EQ v_cont.
itab_zycbt035_aux-wrbtr = vl_cofins_5 - vl_cofins_2.
ELSE.
itab_zycbt035_aux-wrbtr = abs( itab_zycit100-vlcofins ).
vl_cofins_2 = vl_cofins_2 + ABS( itab_zycit100-vlcofins ).
ENDIF.
itab_zycbt035_aux-bschl = '40'.
APPEND itab_zycbt035_aux.
itab_zycbt035_aux-bschl = '50'.
APPEND itab_zycbt035_aux.
* >> Início da inclusão: FORM ADICIONA_OUTROS_IMPOSTOS
ELSE.
CLEAR: okcode.
MESSAGE e015 WITH text-117.
ENDIF.
* << Fim da inclusão
ENDIF.
CLEAR: itab_zycbt035_aux-lei102.
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'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI017
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 117
Texto: (45 caracteres)
"Parametrizar a tabela de Classificação de NF."
Comprimento máximo: 45