CE PLUS - Nota 005036
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 19/10/2007 00:00:00
Data/Hora Última Alteração: 18/02/2011 13:55:54
Descrição da Nota: PROCESSAR BOLETO - EXPORTAÇÃO - COMISSÃO DE AGENTE - COLUNA PAGTO.FAT
Sintoma
Ao processar boleto de 1 comissão de agente, o campo Pagto. Fat. aparece flegado. Se processar sem
filtro, para esta mesma comissão de agente, não aparece mais o flag.
Solução
Considerar a tabela /pws/zycet013 para ler a tabela /pws/zycet002.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05036 Data: 19/10/2007 Hora: 17:17:55
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05036
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00017
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04598 - 00001 - 7.0 - 00003 - PROCESSAR BOLETO
----------------------------------------------------------------------------------------------------
PROCESSAR BOLETO - EXPORTAÇÃO - COMISSÃO DE AGENTE - COLUNA PAGTO.FAT
----------------------------------------------------------------------------------------------------
Palavras Chave:
PROCESSAR BOLETO EXPORTAÇÃO COMISSÃO DE AGENTE COLUNA PAGTO.FAT
/PWS/ZYCET010 /PWS/ZYCET013 /PWS/ZYCET002
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYGLR002
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR002
...
ENDFORM.
FORM verifica_fatura.
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'.
IF NOT itab_zycbt089-liq_com_ar EQ 'N'.
MOVE 'X' TO itab_selreg-controle.
ENDIF.
READ TABLE itab_zycet002 WITH KEY nrseq = itab_zycet010-nrseq.
* >> Início da inclusão: FORM VERIFICA_FATURA
IF sy-subrc NE 0.
READ TABLE itab_zycet002 WITH KEY nrseq = itab_zycet013-nrseq.
ENDIF.
* << Fim da inclusão
IF sy-subrc EQ 0.
READ TABLE itab_bkpf WITH KEY bukrs = itab_zycet002-bukrs
awkey = itab_zycet002-vbeln_vf
awtyp = 'VBRK'
awsys = ' '.
IF sy-subrc EQ 0.
READ TABLE itab_bsid WITH KEY bukrs = itab_bkpf-bukrs
gjahr = itab_bkpf-gjahr
belnr = itab_bkpf-belnr.
IF sy-subrc NE 0.
...