CE PLUS - Nota 000807
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 03/02/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 14:00:27
Descrição da Nota: PROCESSAR BOLETO - COMISSÕES DE FATURAS LIQUIDADAS
Sintoma
As comissões de agente de faturas liquidadas não são trazidas pelo processar boleto quando o sistema
está parametrizado para o pagamento de comissão somente quando a fatura estiver liquidada.
(/PWS/ZYGL007).
Solução
O programa foi ajustado para exibir as comissões de agente de faturas totalmente liquidadas.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00807 Data: 03/02/2006 Hora: 17:17:13
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00807
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00099
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PROCESSAR BOLETO - COMISSÕES DE FATURAS LIQUIDADAS
----------------------------------------------------------------------------------------------------
Palavras Chave:
PROCESSAR BOLETO COMISSÃO AGENTE FATURA LIQUIDADAS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYGLR002
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR002
...
dtpagtoir LIKE /pws/zycbt002-dtpagtoir.
DATA: END OF itab_zycbt002.
DATA: BEGIN OF itab_zycbt157 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt157.
DATA: END OF itab_zycbt157.
* >> Início da inclusão:
DATA: BEGIN OF itab_zycet037 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet037.
DATA: END OF itab_zycet037.
* << Fim da inclusão
DATA: BEGIN OF itab_zycet013 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet013.
DATA: END OF itab_zycet013.
DATA: BEGIN OF itab_zycet001 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet001.
...
...
MESSAGE i061 WITH text-047 text-048.
ENDIF.
CLEAR: v_tipo, v_taxa_dia, itab_zycbt156, itab_zycbt015, itab_selreg.
ENDFORM.
FORM seleciona_comissao.
* >> Início da exclusão: FORM SELECIONA_COMISSAO
SELECT SINGLE * FROM /pws/zycet037 WHERE bukrs IN empresa.
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycet037 WHERE bukrs EQ space.
ENDIF.
SELECT SINGLE * FROM /pws/zycbt007 WHERE bukrs IN empresa.
IF /pws/zycet037-comis_provisao EQ '0' OR
/pws/zycet037-comis_provisao IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_COMISSAO
SELECT * FROM /pws/zycet037 INTO TABLE itab_zycet037.
* << Fim da inclusão
SELECT * FROM /pws/zycet010 INTO TABLE itab_zycet010
WHERE ( dtpagto EQ '00000000' OR dtpagto EQ ' ' )
AND ( belnr NE space AND belnr NE '0000000000'
AND belnr NE ' ' )
AND dtvencto LE v_data
AND lifnr IN fornece
AND waers IN moeda
AND nrseq IN invoice.
* >> Início da inclusão: FORM SELECIONA_COMISSAO
IF SY-SUBRC EQ 0.
* << Fim da inclusão
SORT itab_zycet010 BY nrseq lifnr belnr.
REFRESH itab_nrinvoic.
LOOP AT itab_zycet010.
itab_nrinvoic-nrinvoic = itab_zycet010-nrseq.
APPEND itab_nrinvoic.
...
...
ENDIF.
ENDIF.
READ TABLE itab_zycet001 WITH KEY nrseq = itab_zycet010-nrseq.
IF sy-subrc = 0.
MOVE itab_zycet001-nremb TO itab_selreg-docto.
* >> Início da inclusão: FORM SELECIONA_COMISSAO
ENDIF.
READ TABLE itab_zycet037 WITH KEY bukrs
= itab_zycbt017-bukrs.
IF sy-subrc NE 0 AND
itab_zycet037-comis_provisao EQ '1'.
CLEAR itab_selreg.
CONTINUE.
* << Fim da inclusão
ENDIF.
MOVE:
text-032 TO itab_selreg-mod,
itab_zycet010-nrseq TO itab_selreg-nrchave,
'/PWS/ZYCET010' TO itab_selreg-tab,
...
...
MOVE 'S' TO itab_selreg-fcamb.
ENDIF.
APPEND itab_selreg.
CLEAR itab_selreg.
ENDLOOP.
* >> Início da exclusão: FORM SELECIONA_COMISSAO
ELSEIF /pws/zycet037-comis_provisao = '1'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_COMISSAO
ENDIF.
* << Fim da inclusão
SELECT * FROM /pws/zycet013 INTO TABLE itab_zycet013
WHERE ( dtpagto EQ '00000000' OR dtpagto EQ ' ' )
AND belnr NE space
AND lifnr IN fornece
AND waers IN moeda
...
...
INTO TABLE itab_bsid
FOR ALL ENTRIES IN itab_bkpf
WHERE bukrs EQ itab_bkpf-bukrs
AND gjahr EQ itab_bkpf-gjahr
AND belnr EQ itab_bkpf-belnr.
* >> Início da exclusão: FORM SELECIONA_COMISSAO
ENDIF.
* << Fim da exclusão
ENDIF.
ENDIF.
ENDIF.
SORT itab_zycet013 BY nrseq lifnr gsber belnr.
REFRESH itab_nrinvoic.
...
...
ENDIF.
ENDIF.
CLEAR itab_zycet010.
READ TABLE itab_zycet010 WITH KEY nrseq = itab_zycet013-nrseq
lifnr = itab_zycet013-lifnr.
* >> Início da inclusão: FORM SELECIONA_COMISSAO
READ TABLE itab_zycet037 WITH KEY bukrs
= itab_zycbt017-bukrs.
IF sy-subrc NE 0 AND
( itab_zycet037-comis_provisao EQ '0' OR
itab_zycet037-comis_provisao IS INITIAL ).
CLEAR itab_selreg.
CONTINUE.
ENDIF.
* << Fim da inclusão
MOVE:
text-032 TO itab_selreg-mod,
itab_zycet013-nrseq TO itab_selreg-nrchave,
itab_zycet013-nrseq TO itab_selreg-docto,
'/PWS/ZYCET013' TO itab_selreg-tab,
...