CE PLUS - Nota 000999
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Remessa
Data/Hora da Publicação: 09/03/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 11:40:23
Descrição da Nota: PAGAMENTO DO BOLETO DE REMESSA FINANCEIRA, DEDUZINDO O IRRF
Sintoma
No Complemento do Boleto não está sendo deduzido o valor do IR para as Remessas Financeiras quando a
Moeda é Euro e a remessa é com origem.
Solução
Foi efetuado a seleção dos registros nas tabelas standard e também na tabela da Remessa para efetuar
o cálculo correto quando o programa precisa deduzir o valor do IRRF do principal.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00999 Data: 09/03/2006 Hora: 14:00:02
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00999
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00104
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PAGAMENTO DO BOLETO DE REMESSA FINANCEIRA, DEDUZINDO O IRRF
----------------------------------------------------------------------------------------------------
Palavras Chave:
REMESSA COM ORIGEM IRRF DEDUZ FATURA COMPLEMENTO BOLETO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA110F01
...
WHERE nrseq = itab_zycbt124_aux-nrseq.
CLEAR v_total_mi.
LOOP AT itab_zycbt124_aux.
SELECT SINGLE dmbtr FROM bseg INTO bseg-dmbtr
WHERE bukrs = itab_zycbt124_aux-bukrs
* >> Início da inclusão: FORM GRAVA_REG_COMPET_CP
AND belnr = itab_zycbt124_aux-belnr_f51p
AND gjahr = itab_zycbt124_aux-dtdocto(4)
AND shkzg = 'H'.
IF sy-subrc = 0.
v_total_mi = v_total_mi + bseg-dmbtr.
else.
SELECT SINGLE dmbtr FROM bseg INTO bseg-dmbtr
WHERE bukrs = itab_zycbt124_aux-bukrs
AND belnr = itab_zycbt124_aux-BELNR_F51
AND gjahr = itab_zycbt124_aux-dtdocto(4)
AND shkzg = 'H'.
IF sy-subrc = 0.
v_total_mi = v_total_mi + bseg-dmbtr.
else.
SELECT SINGLE dmbtr FROM bseg INTO bseg-dmbtr
WHERE bukrs = itab_zycbt124_aux-bukrs
* << Fim da inclusão
AND belnr = itab_zycbt124_aux-belnr
AND gjahr = itab_zycbt124_aux-dtdocto(4)
AND shkzg = 'H'.
IF sy-subrc = 0.
v_total_mi = v_total_mi + bseg-dmbtr.
* >> Início da inclusão: FORM GRAVA_REG_COMPET_CP
endif.
endif.
* << Fim da inclusão
ENDIF.
SELECT SINGLE kursf FROM bkpf INTO bkpf-kursf
WHERE bukrs = itab_zycbt124_aux-bukrs
AND belnr = itab_zycbt124_aux-belnr
AND gjahr = itab_zycbt124_aux-dtdocto(4).
...