CE PLUS - Nota 006204
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 19/03/2008 00:00:00
Data/Hora Última Alteração: 11/03/2010 09:39:00
Descrição da Nota: COMPLEMENTO DO BOLETO
Sintoma
O programa deve comparar a taxa de PRINCIPAL com a da ob08. A taxa maior deve preencher o campo
(KURSF) do IRRF.
Solução
Alteradas includes /PWS/MZYCB110F01 e /PWS/MZYGL110X01 para que o programa verifique se a taxa de
PRINCIPAL é maior que a da ob08, e caso seja considere a taxa de PRINCIPAL.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06204 Data: 19/03/2008 Hora: 14:20:14
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06204
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00038
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
COMPLEMENTO DO BOLETO
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO DO BOLETO - COMPARA TAXA PRINCIPAL COM OB08 PARA IR REMESSA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB110F01
REPS /PWS/MZYGL110X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110F01
...
'F'
itab_dados_tc-dtlanc
itab_dados_tc-kursf.
MODIFY itab_dados_tc.
ELSEIF itab_dados_tc-tpimp = 'IRRF'
AND itab_dados_tc-kursf IS INITIAL.
PERFORM busca_taxa USING '004I'
'F'
itab_dados_tc-dtlanc
itab_dados_tc-kursf.
* >> Início da inclusão: FORM CONSISTE_TAXA
itab_dados_tc_aux_t[] = itab_dados_tc[].
READ TABLE itab_dados_tc_aux_t WITH KEY tpimp = 'PRINCIPAL'.
IF sy-subrc = 0.
IF itab_dados_tc_aux_t-kursf GT itab_dados_tc-kursf.
itab_dados_tc-kursf = itab_dados_tc_aux_t-kursf.
ENDIF.
ENDIF.
CLEAR: itab_dados_tc_aux_t.
REFRESH: itab_dados_tc_aux_t.
* << Fim da inclusão
MODIFY itab_dados_tc.
ELSEIF itab_dados_tc-tpimp = 'COFINS'
AND itab_dados_tc-kursf IS INITIAL.
PERFORM busca_taxa USING '004CO'
'F'
itab_dados_tc-dtlanc
itab_dados_tc-kursf.
MODIFY itab_dados_tc.
ELSEIF itab_dados_tc-tpimp = 'IOF'
AND itab_dados_tc-kursf IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110X01
...
bcooper LIKE /pws/zycbt031-bcooper,
dtlanc LIKE /pws/zycbt031-dtcredpr,
vlded LIKE /pws/zycbt031-vlme,
zlsch LIKE /pws/zycbt145-zlsch,
pagtoirrf LIKE /pws/zycbt031-pagtoirrf,
belnr LIKE /pws/zycbt031-belnr_p,
belnrpag LIKE /pws/zycbt031-belnr_p,
mark(1),
END OF itab_dados_tc.
DATA: itab_dados_tc_aux LIKE itab_dados_tc OCCURS 0 WITH HEADER LINE.
* >> Início da inclusão:
DATA: itab_dados_tc_aux_t LIKE itab_dados_tc OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
DATA: BEGIN OF itab_zycbt064 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt064.
DATA: END OF itab_zycbt064.
DATA: BEGIN OF itab_zycbt064b OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt064.
DATA: END OF itab_zycbt064b.
DATA: BEGIN OF itab_zycbt124 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt124.
DATA: END OF itab_zycbt124.
...