CE PLUS - Nota 006357
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 09/04/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 13:53:40
Descrição da Nota: PROCESSAR BOLETO - ERRO COMISSÃO DE AGENTE SEM REGISTRO NA /PWS/ZYCET010
Sintoma
Ao tentar processar o boleto de uma comissão de agente de carga, onde não tem registro na
/pws/zycet013, a mesma não aparece.
Solução
Se não tiver registro na /pws/zycet010, buscar data de vencimento da tabela /pws/zycet001.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06357 Data: 09/04/2008 Hora: 15:34:14
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06357
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00042
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02175 - 00001 - 6.0 - 00025 - ROTINA DE PAGAMENTO - CAMPO DATA "DE" "ATÉ"
04741 - 00002 - 7.0 - 00003 - EXPORTAÇÃO ROTINA DE PAGAMENTO PROCESSAR BOLETO
----------------------------------------------------------------------------------------------------
PROCESSAR BOLETO - ERRO COMISSÃO DE AGENTE SEM REGISTRO NA /PWS/ZYCET010
----------------------------------------------------------------------------------------------------
Palavras Chave:
PROCESSAR BOLETO - ERRO COMISSÃO DE AGENTE SEM REGISTRO NA /PWS/ZYCET010
/PWS/ZYCET013 DTVENCTO DATA DE VENCIMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYGLR002
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR002
...
ENDLOOP.
IF itab_zycbt028[] IS INITIAL AND
itab_zycbt156[] IS INITIAL AND
v_control2 IS INITIAL AND
NOT p_credit IS INITIAL.
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 inclusão: FORM SELECIONA_COMISSAO
DATA: v_flag_exibir(01) TYPE c.
* << Fim da inclusão
SELECT * FROM /pws/zycet037 INTO TABLE itab_zycet037.
IF data-high IS INITIAL.
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.
...
...
CLEAR itab_selreg.
ENDLOOP.
ENDIF.
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
AND nrseq IN invoice.
IF sy-subrc = 0.
* >> Início da inclusão: FORM SELECIONA_COMISSAO
SELECT * FROM /pws/zycet001 INTO TABLE itab_zycet001
FOR ALL ENTRIES IN itab_zycet013
WHERE nrseq = itab_zycet013-nrseq.
* << Fim da inclusão
IF data-high IS INITIAL.
SELECT * FROM /pws/zycet010 INTO TABLE itab_zycet010
FOR ALL ENTRIES IN itab_zycet013
WHERE nrseq EQ itab_zycet013-nrseq
AND dtvencto LE v_data.
ELSE.
SELECT * FROM /pws/zycet010 INTO TABLE itab_zycet010
FOR ALL ENTRIES IN itab_zycet013
WHERE nrseq EQ itab_zycet013-nrseq
AND dtvencto IN data.
...
...
ENDIF.
IF ( itab_zycbt017-parvw EQ 'CG' OR
itab_zycbt017-parvw EQ 'AD' OR
itab_zycbt017-parvw EQ 'DA' ) AND
/pws/zycbt007-comis NE 'R'.
MOVE 'N' TO itab_selreg-fcamb.
ELSE.
MOVE 'S' TO itab_selreg-fcamb.
ENDIF.
IF NOT itab_zycet010-dtvencto IS INITIAL.
* >> Início da inclusão: FORM SELECIONA_COMISSAO
APPEND itab_selreg.
ELSE.
READ TABLE itab_zycet001 WITH KEY nrseq = itab_zycet013-nrseq.
IF sy-subrc = 0 AND NOT itab_zycet001-dtvencto IS INITIAL.
itab_selreg-dtvencto = itab_zycet001-dtvencto.
* << Fim da inclusão
APPEND itab_selreg.
* >> Início da inclusão: FORM SELECIONA_COMISSAO
ENDIF.
* << Fim da inclusão
ENDIF.
CLEAR itab_selreg.
ENDLOOP.
ENDIF.
CLEAR: v_tipo, v_taxa_dia, itab_zycbt017, itab_zycbt037,
itab_selreg.
...