CE PLUS - Nota 000332
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Comissão de Agente
Data/Hora da Publicação: 23/11/2005 00:00:00
Data/Hora Última Alteração: 21/02/2011 13:56:39
Descrição da Nota: AJUSTES NO VALOR DA COMISSÃO DE AGENTE
Sintoma
O Campo "Valor Total Final"(/PWS/ZYCET010-VLCOMIS), quando a comissão é salva, retorna o valor
provisionado, mesmo quando este valor é diferente.
O Rateio por valor está incorreto na pasta diferença.
Não está trazendo o fornecedor e os demais dados sugeridos na linha da pasta agente.
Solução
Considerar o valor proveniente da tabela /PWS/ZYCET002, campo VLME_R, ao invés do campo VLME.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00332 Data: 23/11/2005 Hora: 18:17:11
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00332
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00089
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00308 - 00001 - 6.0 - 00021 - ERRO AO GRAVAR OS DADOS REFERENTES AO ATO CONCESSÓRIO DE EXPORTAÇ
00321 - 00002 - 6.0 - 00021 - ERRO NA CONTABILIZAÇÃO DA COMISSÃO DE AGENTE
----------------------------------------------------------------------------------------------------
AJUSTES NO VALOR DA COMISSÃO DE AGENTE
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXPORTAÇÃO COMISSÃO DE AGENTE VALOR
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE003F02
REPS /PWS/MZYCE017F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F02
...
' '
'X'
CHANGING p_executou.
ENDFORM.
FORM okcode_cagen CHANGING p_executou TYPE c.
* >> Início da exclusão: FORM OKCODE_CAGEN
DATA: v_nrseq LIKE /pws/zycet001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM OKCODE_CAGEN
DATA: v_nrseq LIKE /pws/zycet001-nrseq,
v_j1bbranch like t001w-j_1bbranch.
* << Fim da inclusão
v_nrseq = /pws/zycee001-nrseq.
EXPORT v_nrseq TO MEMORY ID '011'.
* >> Início da inclusão: FORM OKCODE_CAGEN
if not /pws/zycee001-werks is initial.
perform busca_local_de_negocio
using /pws/zycee001-werks changing v_j1bbranch.
export v_j1bbranch to memory id 'BRANCH'.
endif.
* << Fim da inclusão
IF sy-tcode EQ c_transacao_e.
PERFORM okcode_funcao USING '/PWS/ZYCE017_E'
'COM'
' '
' '
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE017F01
...
MOVE: itab_zycet002-nrseq TO itab_zycet013-nrseq,
itab_zycet002-gsber TO itab_zycet013-gsber,
itab_zycet002-prctr TO itab_zycet013-prctr,
itab_zycet002-waers TO itab_zycet013-waers.
ENDIF.
* >> Início da exclusão: FORM RATEIO_AT_AR
MOVE: itab_saida-vlme TO itab_zycet013-vlme,
itab_zycet010-lifnr TO itab_zycet013-lifnr,
itab_saida-vlcomis TO itab_zycet013-vlagente.
* << Fim da exclusão
* >> Início da inclusão: FORM RATEIO_AT_AR
move: itab_zycet002-vlme_r to itab_zycet013-vlme,
itab_zycet010-lifnr TO itab_zycet013-lifnr,
itab_saida-vlcomis TO itab_zycet013-vlagente.
* << Fim da inclusão
COLLECT itab_zycet013.
ENDLOOP.
DELETE itab_zycet013 WHERE vlme IS initial.
* >> Início da inclusão: FORM RATEIO_AT_AR
ENDLOOP.
clear /pws/zycee313-vlme_fob.
loop at itab_zycet002 where vlme_r gt 0.
add itab_zycet002-vlme_r to /pws/zycee313-vlme_fob.
* << Fim da inclusão
ENDLOOP.
CLEAR: v_comicalc.
LOOP AT itab_zycet010.
v_comicalc = v_comicalc + itab_zycet010-vlcomicalc.
ENDLOOP.
...