CE PLUS - Nota 008189
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Encerramento Contábil
Data/Hora da Publicação: 13/03/2009 00:00:00
Data/Hora Última Alteração: 09/03/2010 16:38:22
Descrição da Nota: EMBARQUE DE SERVIÇO NÃO ESTA PERMITINDO ENCERRAR CUSTO E CONTABIL
Sintoma
Nos embarques de serviço não está sendo possível fazer o encerramento de custo e contábil
Solução
Verificar se a modalidade do embarque é serviço para efetuar os tratamentos necessários até os
encerramentos
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08189 Data: 13/03/2009 Hora: 10:09:57
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08189
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00088
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
EMBARQUE DE SERVIÇO NÃO ESTA PERMITINDO ENCERRAR CUSTO E CONTABIL
----------------------------------------------------------------------------------------------------
Palavras Chave:
ENCERRAMENTO - CUSTO - CONTABIL - SERVIÇO - NÃO - ENCERRA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003O01
REPS /PWS/MZYCI010F02
REPS /PWS/MZYCI037F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01
...
MODIFY SCREEN.
IF screen-name = 'TAB_REC'.
* >> Início da exclusão: MODULE SET_SCREEN
IF ( /pws/zycie006-tpfatura = '11' OR (
/pws/zycie006-tpfatura = '04' AND
/pws/zycie006-vinserv EQ 'X' ) ).
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
IF /pws/zycie006-tpfatura = '11'.
* << Fim da inclusão
screen-invisible = '0'.
ELSE.
screen-invisible = '1'.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
WHEN '0102' OR '0105'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F02
...
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF sy-subrc NE 0.
v_nota = 'X'.
EXIT.
ENDIF.
ENDLOOP.
SELECT * FROM /pws/zycit041 INTO TABLE itab_zycit041
WHERE nrseq = itab_zycit042-nrseqnf AND
cancel = space.
* >> Início da exclusão: FORM ENCERRAMENTO
IF sy-subrc NE 0.
* << Fim da exclusão
* >> Início da inclusão: FORM ENCERRAMENTO
IF sy-subrc NE 0 AND /pws/zycie001-modalidade NE '02'.
* << Fim da inclusão
v_nota = 'X'.
MESSAGE i015 WITH text-072.
ELSE.
LOOP AT itab_zycit041 WHERE belnr_mr1m IS initial
OR belnr_f_51 IS initial .
ENDLOOP.
IF sy-subrc = 0 AND /pws/zycie001-regime NE '14' .
SELECT * FROM /pws/zycit043 INTO TABLE itab_zycit043
WHERE nrseq = itab_zycit042-nrseqnf AND
cancel = space.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI037F01
...
MOVE it_zycit006_aux-dtlanc TO itab_docscont-bldat.
MOVE text-045 TO itab_docscont-evento.
COLLECT itab_docscont.
ENDIF.
ENDSELECT.
ENDLOOP.
ENDIF.
ELSE.
IF /pws/zycie001-modalidade = '02'.
IF NOT it_zycit263[] IS INITIAL.
* >> Início da inclusão: FORM CARREGA_NRO_DOCUMENTOS
SELECT nrseq belnr_p dtlanc FROM /pws/zycit006
INTO (v_nrseq, itab_docscont-belnr, itab_docscont-bldat)
WHERE nrseqf = /pws/zycie001-nrseq
AND eliminado NE 'X'
AND tpfatura = '04'.
IF sy-subrc EQ 0 AND NOT itab_docscont-belnr IS INITIAL.
MOVE text-045 TO itab_docscont-evento.
COLLECT itab_docscont.
ENDIF.
IF NOT /pws/zycit006-belnr_f_51 IS INITIAL.
MOVE: text-072 TO itab_docscont-evento,
/pws/zycit006-belnr_f_51 TO itab_docscont-belnr,
/pws/zycit006-dt_f_51 TO itab_docscont-bldat.
COLLECT itab_docscont.
ENDIF.
ENDSELECT.
* << Fim da inclusão
LOOP AT it_zycit263.
ENDLOOP.
SELECT nrseq dtlanc belnr_f_51
FROM /pws/zycit006 INTO TABLE it_zycit006_aux
WHERE nrseq_pgfat = it_zycit263-nrseq_pgfat
AND eliminado NE 'X'.
IF sy-subrc = 0.
LOOP AT it_zycit006_aux.
MOVE: it_zycit006_aux-belnr_f_51 TO itab_docscont-belnr,
it_zycit006_aux-dtlanc TO itab_docscont-bldat.
...