CE PLUS - Nota 004598
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 03/09/2007 00:00:00
Data/Hora Última Alteração: 10/03/2010 16:53:23
Descrição da Nota: PROCESSAR BOLETO
Sintoma
O flag de pagamento e faturamento não está aparecendo, mesmo sendo quitação do tatal da fatura.
Solução
Foi ajustado o flag da fatura trocando de 'X' para 'N', permitindo que seja exibido no campo pagto
fat se a fatura foi paga ou não.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04598 Data: 03/09/2007 Hora: 09:14:50
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04598
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00010
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PROCESSAR BOLETO
----------------------------------------------------------------------------------------------------
Palavras Chave:
BOLETO, PAGAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYGLR002
REPS /PWS/ZYCBR102
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR002
...
PERFORM verifica_fatura.
IF itab_selreg-fat_liq IS INITIAL.
CONTINUE.
ENDIF.
ENDIF.
ELSEIF itab_zycbt089-liq_com_ar EQ 'A'.
PERFORM verifica_fatura_baixada.
IF v_fat = 'X'.
CONTINUE.
ENDIF.
* >> Início da exclusão: FORM SELECIONA_COMISSAO
ELSEIF itab_zycbt089-liq_com_ar EQ 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_COMISSAO
ELSEIF itab_zycbt089-liq_com_ar EQ 'N'.
* << Fim da inclusão
PERFORM verifica_fatura.
* >> Início da exclusão: FORM SELECIONA_COMISSAO
PERFORM verifica_fatura_baixada.
IF v_fat = 'X'.
CONTINUE.
ENDIF.
* << Fim da exclusão
ENDIF.
IF itab_zycbt089-ver_averb = 'X'.
PERFORM verifica_averbacao.
IF v_averb = 'X'.
CONTINUE.
...
...
PERFORM verifica_fatura.
IF itab_selreg-fat_liq IS INITIAL.
CONTINUE.
ENDIF.
ENDIF.
ELSEIF itab_zycbt089-liq_com_ar EQ 'A'.
PERFORM verifica_fatura_baixada.
IF v_fat = 'X'.
CONTINUE.
ENDIF.
* >> Início da exclusão: FORM SELECIONA_COMISSAO
ELSEIF itab_zycbt089-liq_com_ar EQ 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_COMISSAO
ELSEIF itab_zycbt089-liq_com_ar EQ 'N'.
* << Fim da inclusão
PERFORM verifica_fatura.
PERFORM verifica_fatura_baixada.
IF v_fat = 'X'.
CONTINUE.
ENDIF.
ENDIF.
IF itab_zycbt089-ver_averb = 'X'.
PERFORM verifica_averbacao.
IF v_averb = 'X'.
CONTINUE.
...
DATA: v_vlliq LIKE /pws/zycbt006-vlme.
CLEAR: itab_selreg-fat_liq, itab_selreg-controle.
READ TABLE itab_t001 WITH KEY bukrs = itab_zycbt017-bukrs.
IF itab_t001-land1 NE 'BR'. "Exterior
* >> Início da exclusão: FORM VERIFICA_FATURA
MOVE 'X' TO itab_selreg-controle.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_FATURA
IF NOT itab_zycbt089-liq_com_ar EQ 'N'.
MOVE 'X' TO itab_selreg-controle.
ENDIF.
* << Fim da inclusão
...
ENDIF.
ENDIF.
ELSEIF itab_t001-land1 EQ 'BR'.
* >> Início da exclusão: FORM VERIFICA_FATURA
MOVE 'X' TO itab_selreg-controle.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_FATURA
IF NOT itab_zycbt089-liq_com_ar EQ 'N'. "Chamado 404427
MOVE 'X' TO itab_selreg-controle.
ENDIF. "Chamado 404427
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR102
...
v_ult_nrseq = /pws/zycbe031-nrseq.
ENDIF.
EXPORT v_pri_nrseq TO MEMORY ID '001'.
EXPORT v_ult_nrseq TO MEMORY ID '002'.
CALL TRANSACTION '/PWS/ZYCB110'.
CLEAR: itab_boleto.
REFRESH: itab_boleto.
WHEN 'PROC'.
PERFORM seleciona_selreg_aux.
LOOP AT itab_selreg_aux.
* >> Início da exclusão: FORM USER_COMMAND
IF itab_selreg_aux-controle NE 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM USER_COMMAND
IF itab_selreg_aux-controle EQ 'X' AND
itab_selreg_aux-fat_liq NE 'X'.
* << Fim da inclusão
MESSAGE i061 WITH itab_selreg_aux-nrchave
text-150 text-169 text-151.
DELETE itab_selreg_aux.
ENDIF.
ENDLOOP.
PERFORM execute.
PERFORM apaga_registros_impressos.
WHEN 'VOLTAR'.
CLEAR p_varian.
LEAVE TO LIST-PROCESSING.
...