CE PLUS - Nota 004298
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Comissão de Agente
Data/Hora da Publicação: 30/07/2007 00:00:00
Data/Hora Última Alteração: 04/03/2010 10:52:32
Descrição da Nota: ATUALIZAÇÃO DA DATA DE LANÇAMENTO AO CONTABILIZAR A COMISSÃO DE AGENTE
Sintoma
Ao executar a contabilização da Comissão de Agente, caso não haja valor provisionado, a data de
lançamento (/pws/zycet013-dtlanc ou /pws/zycet010-dtlanc) é atualizada com a data do Embarque e,
caso esta não esteja preechida com a data do dia, independente do campo parametrizado na tabela
/PWS/ZYGLT321.
Solução
Ajuste na atualização da data a ser gravada.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04298 Data: 30/07/2007 Hora: 15:24:38
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04298
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00006
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ATUALIZAÇÃO DA DATA DE LANÇAMENTO AO CONTABILIZAR A COMISSÃO DE AGENTE
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMISSÃO, AGENTE, DATA, LANÇAMENTO, AVERBAÇÃO, DLTANC
PROVISIONADO, CAMPO, /PWS/ZYGLT321
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE017F01
REPS /PWS/MZYCE017I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE017F01
...
IF sy-subrc = 0.
CALL CUSTOMER-FUNCTION '015'.
READ TABLE t_zycbt032 WITH KEY tcode = text-115
tabela = text-116
cpochv = /pws/zycee001-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
it013_aux-belnr = t_zycbt032-belnr.
MODIFY it013_aux INDEX v_index.
itab_zycet013-belnr = t_zycbt032-belnr.
* >> Início da exclusão: FORM F02_SEM_VALOR_PROVISAO
IF NOT itab_zycet001-dtemb IS INITIAL.
itab_zycet013-dtlanc = itab_zycet001-dtemb.
ELSE.
itab_zycet013-dtlanc = sy-datlo.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM F02_SEM_VALOR_PROVISAO
itab_zycet013-dtlanc = t_dados-budat.
* << Fim da inclusão
itab_zycet013-status = 'C'.
* >> Início da exclusão: FORM F02_SEM_VALOR_PROVISAO
MODIFY itab_zycet013 TRANSPORTING belnr dtlanc
* << Fim da exclusão
* >> Início da inclusão: FORM F02_SEM_VALOR_PROVISAO
MODIFY itab_zycet013 TRANSPORTING belnr dtlanc status
* << Fim da inclusão
WHERE lifnr = it013_aux-lifnr
AND gsber = it013_aux-gsber.
MODIFY /pws/zycet001 FROM /pws/zycee001.
PERFORM busca_exit USING 'COM004'.
DELETE FROM /pws/zycet010 WHERE nrseq = /pws/zycee001-nrseq.
* >> Início da inclusão: FORM F02_SEM_VALOR_PROVISAO
DELETE FROM /pws/zycet013 WHERE nrseq = /pws/zycee001-nrseq.
* << Fim da inclusão
COMMIT WORK.
MODIFY /pws/zycet010 FROM TABLE itab_zycet010.
MODIFY /pws/zycet013 FROM TABLE itab_zycet013.
COMMIT WORK.
MOVE itab_zycet013[] TO itab_zycet013_ant[].
ELSE.
LOOP AT t_zycbt032.
MESSAGE i001 WITH t_zycbt032-msg.
ENDLOOP.
PERFORM estorna_documento.
...
...
IF sy-subrc = 0.
CALL CUSTOMER-FUNCTION '017'.
READ TABLE itab_zycbt032 WITH KEY tcode = text-117
tabela = text-116
cpochv = /pws/zycee001-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
it013_aux-belnr = itab_zycbt032-belnr.
MODIFY it013_aux INDEX v_index.
itab_zycet013-belnr = itab_zycbt032-belnr.
* >> Início da exclusão: FORM F43_SEM_VALOR_PROVISAO
IF NOT itab_zycet001-dtemb IS INITIAL.
itab_zycet013-dtlanc = itab_zycet001-dtemb.
ELSE.
itab_zycet013-dtlanc = sy-datlo.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM F43_SEM_VALOR_PROVISAO
itab_zycet013-dtlanc = itab_zycbe033-budat.
* << Fim da inclusão
itab_zycet013-status = 'C'.
* >> Início da exclusão: FORM F43_SEM_VALOR_PROVISAO
MODIFY itab_zycet013 TRANSPORTING belnr dtlanc
* << Fim da exclusão
* >> Início da inclusão: FORM F43_SEM_VALOR_PROVISAO
MODIFY itab_zycet013 TRANSPORTING belnr dtlanc status
* << Fim da inclusão
WHERE lifnr = it013_aux-lifnr
AND gsber = it013_aux-gsber.
MODIFY /pws/zycet001 FROM /pws/zycee001.
PERFORM busca_exit USING 'COM004'.
* >> Início da exclusão: FORM F43_SEM_VALOR_PROVISAO
DELETE FROM /pws/zycet010 WHERE nrseq = /pws/zycee001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM F43_SEM_VALOR_PROVISAO
DELETE FROM /pws/zycet010 WHERE nrseq = /pws/zycee001-nrseq.
DELETE FROM /pws/zycet013 WHERE nrseq = /pws/zycee001-nrseq.
* << Fim da inclusão
COMMIT WORK.
MODIFY /pws/zycet010 FROM TABLE itab_zycet010.
* >> Início da exclusão: FORM F43_SEM_VALOR_PROVISAO
COMMIT WORK.
* << Fim da exclusão
MODIFY /pws/zycet013 FROM TABLE itab_zycet013.
COMMIT WORK.
MOVE itab_zycet013[] TO itab_zycet013_ant[].
SELECT * INTO TABLE itab_zycbt017
FROM /pws/zycbt017
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE017I01
...
tpmsg = 'S'.
IF sy-subrc = 0.
itab_zycet010-belnr = itab_zycbt032-belnr.
itab_zycet010-dtlanc = itab_zycbe033-budat.
itab_zycet010-status = 'C'.
MODIFY itab_zycet010 INDEX v_tab.
MODIFY /pws/zycet001 FROM /pws/zycee001.
PERFORM busca_exit USING 'COM004'.
DELETE FROM /pws/zycet010
WHERE nrseq = /pws/zycee001-nrseq.
* >> Início da inclusão: MODULE USER_COMMAND_0200
DELETE FROM /pws/zycet013
WHERE nrseq = /pws/zycee001-nrseq.
* << Fim da inclusão
COMMIT WORK.
MODIFY /pws/zycet010 FROM TABLE itab_zycet010.
MODIFY /pws/zycet013 FROM TABLE itab_zycet013.
COMMIT WORK.
MOVE itab_zycet013[] TO itab_zycet013_ant[].
SELECT * INTO TABLE itab_zycbt017
FROM /pws/zycbt017
WHERE nrinvoic = /pws/zycee001-nrseq.
IF sy-subrc = 0.
itab_zycbt017-parvw = /pws/zycee001-parvw.
...