CE PLUS - Nota 004813
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 25/09/2007 00:00:00
Data/Hora Última Alteração: 10/03/2010 17:06:39
Descrição da Nota: COMPLEMENTO DO BOLETO
Sintoma
Não está aparecendo a taxa cambial quando o campo taxa(KURSF) está sem informação e é clicado o
ENTER para buscar da OB08.
Solução
Alterada include /PWS/MZYCB110F01, Form Consiste_taxa, substituindo a fatura de importação(IP) o
evento 007+CODINT por 007F.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04813 Data: 25/09/2007 Hora: 09:58:34
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04813
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00013
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
COMPLEMENTO DO BOLETO
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO DO BOLETO - CAMPO TAXA EM BRANCO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110F01
...
ELSEIF /PWS/ZYCBT118-FRPAGTO = 'C'.
PERFORM BUSCA_TAXA USING '006DA'
'I'
/PWS/ZYCBE031-DTCREDPR
V_TAXA.
/PWS/ZYCBE031-KURSF = V_TAXA.
ENDIF.
ENDIF.
WHEN 'IP'.
IF /PWS/ZYCBE031-KURSF IS INITIAL.
* >> Início da exclusão: FORM CONSISTE_TAXA
CONCATENATE '007' ITAB_ZYCBT119-CODINT INTO V_EVENTO.
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_TAXA
V_EVENTO = '007F'.
* << Fim da inclusão
PERFORM BUSCA_TAXA USING V_EVENTO
'I'
/PWS/ZYCBE031-DTCREDPR
V_TAXA.
/PWS/ZYCBE031-KURSF = V_TAXA.
ENDIF.
WHEN 'IF'.
IF /PWS/ZYCBE031-KURSF IS INITIAL.
IF /PWS/ZYCBE031-TPPARC = 'P'.
PERFORM BUSCA_TAXA USING '001P'
...