CE PLUS - Nota 005619
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Relatórios
Data/Hora da Publicação: 11/01/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 11:42:28
Descrição da Nota: RELATÓRIO DE COMISSÃO DE AGENTE - DUPLICADE DO VALOR DA FATURA E DO FOB.
Sintoma
Ao entrar no relatório de comissão de agente (/PWS/ZYCBR027), selecionar valores pagos,
para os embarques que tem mais de um agente os campos FOB e VL TOTAL DA FATURA,
não estão sendo preenchidos corretamente, pois estão duplicando os valores
Solução
Alterado programa /PWS/ZYCBR027 verificando duplicidade de valores VLFOB e VLAVINC para mesma
fatura.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05619 Data: 11/01/2008 Hora: 16:16:17
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05619
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00029
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03509 - 00002 - 7.0 - 00001 - RELATÓRIO DE COMISSÃO DE AGENTE - LISTAR VALOR DE TODOS AGENTES
05129 - 00001 - 7.0 - 00003 - COMISSÃO DE AGENTE - SALDO FATURA
----------------------------------------------------------------------------------------------------
RELATÓRIO DE COMISSÃO DE AGENTE - DUPLICADE DO VALOR DA FATURA E DO FOB.
----------------------------------------------------------------------------------------------------
Palavras Chave:
RELATÓRIO DE COMISSÃO DE AGENTE - DUPLICADE DO VALOR DA FATURA E DO FOB.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBR027
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR027
...
itab_zycet003 TYPE STANDARD TABLE OF t_zycet003
WITH HEADER LINE,
itab_zycet010 TYPE STANDARD TABLE OF t_zycet010
WITH HEADER LINE,
itab_zycet013 TYPE STANDARD TABLE OF t_zycet013
WITH HEADER LINE,
itab_registro TYPE STANDARD TABLE OF t_registro
WITH HEADER LINE,
itab_registro2 TYPE STANDARD TABLE OF t_registro
WITH HEADER LINE,
* >> Início da inclusão:
itab_registroA TYPE STANDARD TABLE OF t_registro
WITH HEADER LINE,
* << Fim da inclusão
itab_excel TYPE STANDARD TABLE OF t_excel
WITH HEADER LINE,
itab_moedas TYPE STANDARD TABLE OF t_moedas
WITH HEADER LINE,
rs_result TYPE STANDARD TABLE OF t_result
WITH HEADER LINE,
i_result TYPE STANDARD TABLE OF t_result
WITH HEADER LINE.
...
...
itab_registro-kunag = itab_zycbt017-kunag.
itab_registro-bukrs = itab_zycbt017-bukrs.
itab_registro-nrseq = itab_zycet001-nrseq.
itab_registro-nremb = itab_zycet001-nremb.
itab_registro-vlcomis = itab_zycet010-vlcomis.
itab_registro-waers = itab_zycbt017-waers.
itab_registro-dtemb = itab_zycet001-dtemb.
itab_registro-dtaverb = itab_zycet001-dtaverb.
itab_registro-dtpagto = itab_zycet010-dtpagto.
itab_registro-gsber = itab_zycbt017-gsberf.
* >> Início da inclusão: FORM SELEC_DADOS_010
READ TABLE itab_registroA WITH KEY nrseq = itab_zycet001-nrseq
vlfob = itab_zycbt017-vlavinc
vlavinc = itab_zycbt017-vlfob.
IF sy-subrc NE 0.
* << Fim da inclusão
itab_registro-vlavinc = itab_zycbt017-vlavinc.
* >> Início da inclusão: FORM SELEC_DADOS_010
ENDIF.
* << Fim da inclusão
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
itab_registro-nrseq or
itab_registro-prctr or
itab_zycet010-lifnr.
* >> Início da inclusão: FORM SELEC_DADOS_010
READ TABLE itab_registroA WITH KEY nrseq = itab_zycet001-nrseq
vlfob = itab_zycbt017-vlavinc
vlavinc = itab_zycbt017-vlfob.
IF sy-subrc NE 0.
* << Fim da inclusão
itab_registro-vlfob = itab_zycbt017-vlfob.
* >> Início da inclusão: FORM SELEC_DADOS_010
ENDIF.
* << Fim da inclusão
itab_registro-vlslf = 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.
...
...
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 .
APPEND itab_registro.
ENDLOOP.
ENDIF.
ENDAT.
* >> Início da inclusão: FORM SELEC_DADOS_010
itab_registroA[] = itab_registro[].
* << Fim da inclusão
CLEAR itab_registro.
CLEAR itab_zycet010-vlcomis.
CLEAR v_vlslf.
ENDLOOP.
ENDLOOP.
ENDLOOP.
ENDFORM.
FORM selec_dados_013.
DATA: v_slpagar LIKE /pws/zycbt005-slpagar,
v_lin_re TYPE i,
...
...
itab_registro-kunag = itab_zycbt017-kunag.
itab_registro-bukrs = itab_zycbt017-bukrs.
itab_registro-nrseq = itab_zycet001-nrseq.
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.
* >> Início da inclusão: FORM SELEC_DADOS_013
READ TABLE itab_registroA WITH KEY nrseq = itab_zycet001-nrseq
vlfob = itab_zycbt017-vlavinc
vlavinc = itab_zycbt017-vlfob.
IF sy-subrc NE 0.
* << Fim da inclusão
itab_registro-vlfob = itab_zycbt017-vlfob.
itab_registro-vlavinc = itab_zycbt017-vlavinc.
* >> Início da inclusão: FORM SELEC_DADOS_013
ENDIF.
* << Fim da inclusão
ON CHANGE OF itab_registro-nrseq OR itab_registro-gsber
OR itab_registro-prctr
or itab_zycet013-lifnr.
itab_registro-vlcomis = itab_zycet013-vlme.
ENDON.
...
...
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 .
APPEND itab_registro.
ENDLOOP.
ENDIF.
ENDAT.
* >> Início da inclusão: FORM SELEC_DADOS_013
itab_registroA[] = itab_registro[].
* << Fim da inclusão
CLEAR itab_registro.
CLEAR itab_zycet010-vlcomis.
ENDLOOP.
ENDLOOP.
ENDLOOP.
ENDFORM.
FORM impri_dados.
DATA: v_flag(1) TYPE c,
v_subtot LIKE /pws/zycbt017-vlcomis,
v_waers LIKE /pws/zycbt017-waers,
...