CE PLUS - Nota 009685
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Frete Internacional
Data/Hora da Publicação: 13/01/2010 00:00:00
Data/Hora Última Alteração: 22/02/2011 15:52:46
Descrição da Nota: FATURA FRETE INFORMA QUE FORNECEDOR É SUJEITO A IR INDEVIDAMENTE.
Sintoma
Ao criar uma fatura de frete é exibida a mensagem "Fatura para fornecedor com IR. Fazer por
Prestação", porém o IR não está marcado para retenção.
Solução
Ajustada verificação para exibir mensagem apenas quando IR estiver marcado para retenção.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09685 Data: 13/01/2010 Hora: 16:35:02
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09685
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00004
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07255 - 00001 - 7.0 - 00006 - REMOVIDA VERIF. DE FORNEC. NACIONAL PARA FATURAS CONTAB. PELA MIR
----------------------------------------------------------------------------------------------------
FATURA FRETE INFORMA QUE FORNECEDOR É SUJEITO A IR INDEVIDAMENTE.
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA - FRETE - IR - FORNECEDOR - PRESTAÇÃO - MENSAGEM - PARAMETRIZAVEL
/PWS/SAPMZYCI003
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
ENDIF.
IF NOT /pws/zycie006-lifnr IS INITIAL.
SELECT SINGLE land1 INTO v_land1
FROM lfa1 WHERE lifnr EQ /pws/zycie006-lifnr.
IF v_land1 EQ t001-land1 AND
/pws/zycit477 IS INITIAL.
SELECT SINGLE * FROM lfbw WHERE lifnr = /pws/zycie006-lifnr
AND bukrs = /pws/zycie006-bukrs
AND witht NE space
AND wt_withcd NE space.
* >> Início da exclusão: FORM CONSISTE_CAMPOS_OBRIGATORIOS
IF sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_CAMPOS_OBRIGATORIOS
IF sy-subrc EQ 0 AND lfbw-wt_subjct EQ 'X'.
* << Fim da inclusão
SELECT SINGLE *
FROM /pws/zyglt217
WHERE arbgb EQ '/PWS/ZYCIM' AND
( msgnr EQ '47' OR msgnr EQ '047' ).
IF sy-subrc EQ 0 AND NOT /pws/zyglt217-msgtp IS INITIAL.
MESSAGE ID '/PWS/ZYCIM' TYPE /pws/zyglt217-msgtp NUMBER '047'.
IF /pws/zyglt217-msgtp = 'E'.
EXIT.
ENDIF.
ELSEIF sy-subrc NE 0.
...