CE PLUS - Nota 002218
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Adiantamento
Data/Hora da Publicação: 05/10/2006 00:00:00
Data/Hora Última Alteração: 21/02/2011 17:15:39
Descrição da Nota: PRESTAÇÃO DE CONTAS NÃO ENCONTRA O ADIANTAMENTO APROVADO
Sintoma
Ao aprovar uma prestação de contas, o programa informa que o "adiantamento não foi pago", quando o
mesmo foi pago de fato.
Solução
O programa de aprovação de adiantamento foi ajustado para considerar os valores do resumo para
documentos que possuam códigos parametrizados como condição "FOB" na /PWS/ZYCET156.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02218 Data: 05/10/2006 Hora: 14:16:36
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02218
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
PRESTAÇÃO DE CONTAS NÃO ENCONTRA O ADIANTAMENTO APROVADO
----------------------------------------------------------------------------------------------------
Palavras Chave:
PRESTAÇÃO DE CONTAS ADIANTAMENTO APROVAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE006F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE006F01
...
REFRESH: it_zycbe033, it_zycbt032, it_zycbt034, it_relat,
it_export, it_export_aux, itab_zycet005,itab_zycee005,
itab_zycet004.
ENDFORM.
FORM select_valores.
* >> Início da exclusão: FORM SELECT_VALORES
IF it_tab-codmod = 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_VALORES
DATA: r_codigos_fob TYPE RANGE OF /pws/zycet008-codigo
WITH HEADER LINE.
SELECT codigo AS low
INTO CORRESPONDING FIELDS OF TABLE r_codigos_fob[]
FROM /pws/zycet156
WHERE bukrs = /pws/zycee018-bukrs
AND codmod = 'X'
AND proccond = 'FOB'.
SORT r_codigos_fob BY low.
DELETE ADJACENT DUPLICATES FROM r_codigos_fob COMPARING low.
r_codigos_fob-sign = 'I'.
r_codigos_fob-option = 'EQ'.
MODIFY r_codigos_fob
TRANSPORTING sign option
WHERE NOT low IS initial.
IF it_tab-codmod = 'X' AND NOT r_codigos_fob[] IS INITIAL.
* << Fim da inclusão
SELECT * FROM /pws/zycet008
INTO TABLE it_zycet008
FOR ALL ENTRIES IN it_zycet002
WHERE nrseq = it_zycet002-nrseq
* >> Início da exclusão: FORM SELECT_VALORES
AND codigo = '000001'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_VALORES
AND codigo IN r_codigos_fob[].
* << Fim da inclusão
ENDIF.
PERFORM soma_embarque.
ENDFORM.
FORM select_totemb.
IF it_tab-codmod EQ 'X'.
...