CE PLUS - Nota 001046
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Encerramento de Custo
Data/Hora da Publicação: 16/03/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:22:34
Descrição da Nota: DATA DE ENCERRAMENTO DO EMBARQUE NAO ESTA ATUALIZANDO
Sintoma
o programa não está achando os documentos de Encerramento de custo, quando eu clico em encerramento
contábil.
Solução
atualizar data de encerramento no embarque ao fazer o encerramento de custo.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01046 Data: 03/16/2006 Hora: 21:34:43
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01046
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00105
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
DATA DE ENCERRAMENTO DO EMBARQUE NAO ESTA ATUALIZANDO
----------------------------------------------------------------------------------------------------
Palavras Chave:
DATA DE ENCERRAMENTO DO EMBARQUE - ENCERRAMENTO DE CUSTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F03
REPS /PWS/MZYCI001I01
REPS /PWS/MZYCI010F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F03
...
PERFORM recuperando_itens.
ELSE.
MESSAGE i015 WITH text-026.
ENDIF.
endform.
* >> Início da inclusão:
form atualiza_encer.
select SINGLE dtencer status status_e from /PWS/ZYCIT001
into (/PWS/ZYCIE001-DTENCER,
/PWS/ZYCIE001-STATUS, /PWS/ZYCIE001-STATUS_E )
WHERE NRSEQ EQ /PWS/ZYCIE001-NRSEQ.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001I01
...
SELECT SINGLE land1 FROM t001 INTO v_land1 WHERE
bukrs = /pws/zycie001-bukrs.
IF v_land1 EQ 'BR' AND /pws/zycie001-j_1bbranch IS INITIAL.
MESSAGE e013 WITH text-221.
ENDIF.
* >> Início da inclusão: MODULE TRATA_FILIAL
Set parameter ID 'BKR' field /pws/zycie001-bukrs.
* << Fim da inclusão
ENDMODULE.
MODULE user_command_0110 INPUT.
MOVE: v_tot_qtd_baixa TO itab_zycit374-qtd_baixa.
/pws/zycie374-slqtde = /pws/zycie374-qtd_iten - v_tot_qtd_baixa.
ENDMODULE.
...
...
FIELD '/PWS/ZYCI037_L'.
IF sy-subrc EQ 0.
PERFORM unlock_encerra.
PERFORM valida_trans USING '/PWS/ZYCI037_L' 'skip'.
PERFORM lock_record.
* >> Início da inclusão: MODULE USER_COMMAND_0050
perform atualiza_encer.
* << Fim da inclusão
ELSE.
MESSAGE e015 WITH text-160 text-161.
ENDIF.
ELSE.
SET PARAMETER ID '/PWS/ZYCIP201' FIELD /pws/zycie001-nrseq.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F02
...
/pws/zycie001-status = 'EN'.
/pws/zycie001-status_e = 'E'.
MODIFY /pws/zycit001 FROM /pws/zycie001.
PERFORM fill_encerramento USING '1'.
PERFORM fill_diferencas.
* >> Início da inclusão: FORM ENCERRAMENTO
COMMIT WORK AND WAIT.
* << Fim da inclusão
PERFORM call_encerramento.
ENDIF.
ELSE.
EXIT.
ENDIF.
...
...
UPDATE /pws/zycit001 SET dtencer = /pws/zycie001-dtencer
status = /pws/zycie001-status
status_e = /pws/zycie001-status_e
WHERE nrseq = /pws/zycie001-nrseq.
PERFORM fill_encerramento USING '2'.
* >> Início da inclusão: FORM ENCERRAMENTO
COMMIT WORK AND WAIT.
* << Fim da inclusão
PERFORM call_encerramento.
ENDIF.
ENDFORM.
FORM fill_date_f_02.
DATA: v_nrseq LIKE /pws/zycit001-nrseq.
...