CE PLUS - Nota 004883
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 02/10/2007 00:00:00
Data/Hora Última Alteração: 10/03/2010 17:07:58
Descrição da Nota: IMPRESSÃO DO BOLETO
Sintoma
Quando imprimimos o complemento do boleto de processos em que a moeda é JPY (IENE) o valor em reais
é multiplicado por mil.
Solução
Alterações na include /PWS/MZYGL110F01, programa /PWS/ZYCBR107 e /PWS/ZYCBI102.
Verificando se é boleto de fatura importação.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04883 Data: 02/10/2007 Hora: 15:39:38
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04883
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00015
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
IMPRESSÃO DO BOLETO
----------------------------------------------------------------------------------------------------
Palavras Chave:
IMPRESSÃO DO BOLETO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYGL110F01
REPS /PWS/ZYCBR102
REPS /PWS/ZYCBR107
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110F01
...
i_zexit_nao_encontrado = 3
OTHERS = 4.
IF sy-subrc EQ 0.
READ TABLE itab_zyglt100 WITH KEY zexit ='CMP007'.
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
ENDIF.
IF v_programa IS INITIAL.
* >> Início da exclusão: FORM IMPRIME_BOLETO
IF itab_zycbt031-mdcorresp EQ 'IP' AND sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: FORM IMPRIME_BOLETO
IF itab_zycbt031-mdcorresp EQ 'IP'.
* << Fim da inclusão
SUBMIT /pws/zycbr107 AND RETURN.
ELSE.
SUBMIT /pws/zycbr105 AND RETURN.
ENDIF.
ELSE.
SUBMIT (v_programa) AND RETURN.
ENDIF.
CLEAR: ok_code, w_ok.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR102
...
i_zexit_nao_encontrado = 3
OTHERS = 4.
IF sy-subrc EQ 0.
READ TABLE itab_zyglt100 WITH KEY zexit ='PBE002'.
IF sy-subrc EQ 0.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
ENDIF.
IF v_programa IS INITIAL.
* >> Início da exclusão: FORM IMPRIME_BOLETO
IF itab_selreg_aux-fmd EQ 'IP' AND sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: FORM IMPRIME_BOLETO
IF itab_selreg_aux-fmd EQ 'IP'.
* << Fim da inclusão
SUBMIT /pws/zycbr107 AND RETURN.
ELSE.
SUBMIT /pws/zycbr105 AND RETURN.
ENDIF.
ELSE.
SUBMIT (v_programa) AND RETURN.
ENDIF.
ELSE.
MESSAGE i015 WITH text-133 /pws/zycbt031-nrseq.
IF NOT sy-binpt IS INITIAL.
...
...
SELECT SINGLE * FROM /pws/zycit006 INTO /pws/zycit006
WHERE nrseq EQ wa_line-docto
AND nrseq_pgfat EQ v_nrpgfat.
IF NOT sy-binpt IS INITIAL.
IMPORT itab_boleto[] FROM MEMORY ID 'AGIL'.
itab_boleto-nrseq = /pws/zycbt031-nrseq.
APPEND itab_boleto.
EXPORT itab_boleto[] TO MEMORY ID 'AGIL'.
ENDIF.
IF v_programa IS INITIAL.
* >> Início da exclusão: FORM IMPRIME_PREVIA_BOLETO
IF itab_selreg_aux-fmd EQ 'IP' AND sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: FORM IMPRIME_PREVIA_BOLETO
IF itab_selreg_aux-fmd EQ 'IP'.
* << Fim da inclusão
SUBMIT /pws/zycbr107 AND RETURN.
ELSE.
SUBMIT /pws/zycbr105 AND RETURN.
ENDIF.
ELSE.
SUBMIT (v_programa) AND RETURN.
ENDIF.
CLEAR itab_tline[].
EXPORT itab_tline[] TO MEMORY ID 'E020'.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR107
...
SKIP 1.
RESERVE 2 LINES.
WRITE:/001 text-036,
014 text-037,
026 text-038,
040 text-039,
056 text-040,
069 text-041.
WRITE:/001 /pws/zycbt048-dtcontr,
014 /pws/zycbt031-kursf RIGHT-JUSTIFIED,
* >> Início da exclusão: FORM EXIBE_DADOS
022 /pws/zycbt031-vlmi
CURRENCY /pws/zycbt119-waers RIGHT-JUSTIFIED,
* << Fim da exclusão
* >> Início da inclusão: FORM EXIBE_DADOS
022 /pws/zycbt031-vlmi RIGHT-JUSTIFIED,
* << Fim da inclusão
041 v_despesa,
056 /pws/zycbt031-dtcredpr.
IF NOT /pws/zycbt031-belnr_p IS INITIAL.
WRITE: 068 /pws/zycbt031-vlme
CURRENCY /pws/zycbt119-waers RIGHT-JUSTIFIED.
ELSE.
WRITE: 068 0 CURRENCY /pws/zycbt119-waers RIGHT-JUSTIFIED.
ENDIF.
ENDFORM.
FORM imprime_numero_embarque.
...