CE PLUS - Nota 003509
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Relatórios
Data/Hora da Publicação: 20/04/2007 00:00:00
Data/Hora Última Alteração: 18/02/2011 15:45:17
Descrição da Nota: RELATÓRIO DE COMISSÃO DE AGENTE - LISTAR VALOR DE TODOS AGENTES
Sintoma
Quando um embarque possui mais de um agente, o relatório não exibe o valor da comissão por agente.
Exibe somente o valor de comissão de um agente.
Solução
Efetuar quebra por agente no relatório, quando um embarque possuir mais de um agente, exibindo assim
os valores de todos agentes.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03509 Data: 20/04/2007 Hora: 10:01:30
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03509
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00162
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00874 - 00001 - 6.0 - 00022 - RELATÓRIO DE COMISSÃO DE AGENTE
01866 - 00002 - 6.0 - 00024 - DUPLICAÇÃO DE VALORES DO CAMPO VLCOMIS.
01879 - 00003 - 6.0 - 00024 - REALTORIO DE COMISSÃO DE AGENTE CAMPO VLCOMIS
----------------------------------------------------------------------------------------------------
RELATÓRIO DE COMISSÃO DE AGENTE - LISTAR VALOR DE TODOS AGENTES
----------------------------------------------------------------------------------------------------
Palavras Chave:
RELATÓRIO DE COMISSÃO DE AGENTE LISTAR VALOR DE TODOS AGENTES
EMBARQUE COM MAIS DE UM AGENTE LIFNR
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBR027
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR027
...
itab_registro-dtemb = itab_zycet001-dtemb.
itab_registro-dtaverb = itab_zycet001-dtaverb.
itab_registro-dtpagto = itab_zycet010-dtpagto.
itab_registro-gsber = itab_zycbt017-gsberf.
LOOP AT itab_zycbt017 INTO wa_zycbt017
WHERE nrinvoic = itab_registro-nrseq
AND gsberf = itab_registro-gsber.
v_vlslf = v_vlslf + wa_zycbt017-vlslf.
ENDLOOP.
ON CHANGE OF itab_registro-gsber OR
* >> Início da exclusão: FORM SELEC_DADOS_010
itab_registro-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SELEC_DADOS_010
itab_registro-nrseq or
itab_registro-prctr or
itab_zycet010-lifnr.
* << Fim da inclusão
itab_registro-vlfob = itab_zycbt017-vlfob.
itab_registro-vlavinc = v_vlslf.
ENDON.
CLEAR itab_nrseq.
READ TABLE itab_nrseq WITH KEY nrseq2 = itab_zycet010-nrseq.
IF sy-subrc EQ '0' AND NOT itab_nrseq-dtpror IS INITIAL.
itab_registro-dtvencto = itab_nrseq-dtpror.
ELSE.
itab_registro-dtvencto = itab_zycet010-dtvencto.
ENDIF.
...
...
itab_registro-nremb = itab_zycet001-nremb.
itab_registro-waers = itab_zycbt017-waers.
itab_registro-dtemb = itab_zycet001-dtemb.
itab_registro-dtaverb = itab_zycet001-dtaverb.
itab_registro-dtpagto = itab_zycet013-dtpagto.
itab_registro-gsber = itab_zycet013-gsber.
itab_registro-prctr = itab_zycet013-prctr.
itab_registro-vlfob = itab_zycbt017-vlfob.
itab_registro-vlavinc = itab_zycbt017-vlavinc.
ON CHANGE OF itab_registro-nrseq OR itab_registro-gsber
* >> Início da exclusão: FORM SELEC_DADOS_013
OR itab_registro-prctr.
* << Fim da exclusão
* >> Início da inclusão: FORM SELEC_DADOS_013
OR itab_registro-prctr
or itab_zycet013-lifnr.
* << Fim da inclusão
itab_registro-vlcomis = itab_zycet013-vlme.
ENDON.
APPEND itab_registro.
AT LAST.
IF v_lin_re GT v_lin_bco.
v_index = v_index + 1.
LOOP AT itab_re FROM v_index.
itab_registro-nrre = itab_re-nrre.
CLEAR: itab_registro-vlcomis,
itab_registro-waers .
...