CE PLUS - Nota 001745
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 14/07/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:47:47
Descrição da Nota: NÃO VERIFICAR O RECEBIMENTO AO FAZER O ENCERRAMENTO
Sintoma
O botão Recebimento Físico estava disponível mesmo com Regime 16 e nesse regime não se aplica.
Ao tentamos realizar o recebimetno o programa chama a transação MIRO, mas como os itens já foram
recebidos emite mensagem de erro.
Solução
O botão Recebimento Físico não fica disponível quando Regime for 16.
Ajustes feito para não verificar o recebimento ao fazer o encerramento quando regime for '16' e tipo
de declaração 'DI'.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01745 Data: 14/07/2006 Hora: 10:33:03
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01745
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00122
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01422 - 00001 - 6.0 - 00023 - VALOR QUE FOI LEVADO PARA O ENCER. DE CUSTOS ESTA MAIOR DO QUE DE
----------------------------------------------------------------------------------------------------
NÃO VERIFICAR O RECEBIMENTO AO FAZER O ENCERRAMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
REGIME 16, TIPO DE DECLARAÇÃO DI. ENCERRAMENTO, FILL_DATE_F_02
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001O01
REPS /PWS/MZYCI010F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001O01
...
ENDIF.
IF /pws/zycie001-tpdecl EQ 'DSI' .
it_code-fcode = 'DA'. APPEND it_code.
ENDIF.
IF /pws/zycie001-regime EQ '16' .
* >> Início da inclusão: MODULE STATUS_0050
it_code-fcode = 'RECEB'. APPEND it_code.
* << Fim da inclusão
it_code-fcode = 'BL'. APPEND it_code.
ENDIF.
SELECT SINGLE land1 INTO v_land1 FROM t001
WHERE bukrs = /pws/zycie001-bukrs.
SET PF-STATUS '0100' EXCLUDING it_code.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F02
...
v_nota = 'X'.
MESSAGE i015 WITH text-072.
ELSE.
LOOP AT itab_zycit041 WHERE belnr_mr1m IS initial.
ENDLOOP.
* >> Início da exclusão: FORM ENCERRAMENTO
IF sy-subrc = 0 and /pws/zycie001-regime ne '14'.
* << Fim da exclusão
* >> Início da inclusão: FORM ENCERRAMENTO
IF sy-subrc = 0 AND /pws/zycie001-regime NE '14' .
* << Fim da inclusão
SELECT * FROM /pws/zycit043 INTO TABLE itab_zycit043
WHERE nrseq = itab_zycit042-nrseqnf AND
cancel = space.
IF sy-subrc = 0.
LOOP AT itab_zycit043 WHERE belnr_mr1m IS initial.
...
...
IF sy-subrc EQ 0.
v_nota = 'X'.
MESSAGE i015 WITH text-073.
ENDIF.
ELSE.
* >> Início da inclusão: FORM ENCERRAMENTO
if ( /pws/zycie001-regime ne '16' and
/pws/zycie001-TPDECL eq 'DI' ).
* << Fim da inclusão
v_nota = 'X'.
MESSAGE i015 WITH text-073.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM ENCERRAMENTO
ENDIF.
* << Fim da inclusão
IF v_vldif EQ 0 AND NOT /pws/zycie001-belnr_mr22 IS INITIAL
AND /pws/zycie001-belnr_f_02 IS INITIAL.
SELECT SINGLE nrseqenc FROM /pws/zycit202
INTO /pws/zycit202-nrseqenc
WHERE belnr_mr22 EQ /pws/zycie001-belnr_mr22.
...
...
CLEAR /pws/zycie001-belnr_mr22.
PERFORM get_parameters_mr22.
ENDIF.
PERFORM multiplos_lancamentos_f_02.
PERFORM get_parameters_f-02.
* >> Início da exclusão: FORM ENCERRAMENTO
indx-aedat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM ENCERRAMENTO
indx-aedat = sy-datlo.
* << Fim da inclusão
indx-usera = sy-uname.
EXPORT: itab_zycbt035_aux[] TO MEMORY ID 'I007A',
itab_zycbt035[] TO MEMORY ID 'I007B',
itab_zycie031_aux[] TO MEMORY ID 'I007C',
itab_zycie031[] TO MEMORY ID 'I007D'.
...
...
NOT /pws/zycie001-belnr_f_02 IS INITIAL ) OR
( NOT /pws/zycie001-belnr_mr22 IS INITIAL AND
/pws/zycie001-belnr_f_02 IS INITIAL AND
v_mr22 IS INITIAL ) AND
v_conta NE 'X' ).
* >> Início da exclusão: FORM ENCERRAMENTO
/pws/zycie001-dtencer = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM ENCERRAMENTO
/pws/zycie001-dtencer = sy-datlo.
* << Fim da inclusão
/pws/zycie001-status = 'EN'.
/pws/zycie001-status_e = 'E'.
MODIFY /pws/zycit001 FROM /pws/zycie001.
PERFORM fill_encerramento USING '1'.
PERFORM fill_diferencas.
...
...
ENDIF.
ELSE.
EXIT.
ENDIF.
ELSEIF v_nota IS INITIAL.
* >> Início da exclusão: FORM ENCERRAMENTO
/pws/zycie001-dtencer = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM ENCERRAMENTO
/pws/zycie001-dtencer = sy-datlo.
* << Fim da inclusão
/pws/zycie001-status = 'EN'.
/pws/zycie001-status_e = 'E'.
UPDATE /pws/zycit001 SET dtencer = /pws/zycie001-dtencer
status = /pws/zycie001-status
status_e = /pws/zycie001-status_e
...
...
PERFORM clear_date_batch.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'F-02'.
itab_zycbe033-tabela = '/PWS/ZYCIT003'.
itab_zycbe033-cpochv = /pws/zycie001-nrseq.
* >> Início da exclusão: FORM FILL_DATE_F_02
itab_zycbe033-bldat = sy-datum.
itab_zycbe033-d_valut = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02
itab_zycbe033-bldat = sy-datlo.
itab_zycbe033-d_valut = sy-datlo.
* << Fim da inclusão
* >> Início da exclusão: FORM FILL_DATE_F_02
itab_zycbe033-budat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02
itab_zycbe033-budat = sy-datlo.
* << Fim da inclusão
itab_zycbe033-bktxt = /pws/zycbt007-bktxt.
LOOP AT itab_zycbt035.
CLEAR: v_zuonr, v_zuonr, v_sgtxt, itab_zycbe033-xblnr.
CALL FUNCTION '/PWS/ZYCI_TEXTOS_CONTABEIS'
EXPORTING
...
...
e_all_productive = v_werks.
IF NOT v_werks IS INITIAL.
CLEAR itab_zycie033-werks.
ENDIF.
itab_zycie033-bukrs = /pws/zycie001-bukrs.
* >> Início da exclusão: FORM FILL_DATE_MR22
itab_zycie033-budat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_MR22
itab_zycie033-budat = sy-datlo.
* << Fim da inclusão
LOOP AT itab_zycbt035.
CLEAR: v_zuonr, v_sgtxt, itab_zycbe033-xblnr.
CALL FUNCTION '/PWS/ZYCI_TEXTOS_CONTABEIS'
EXPORTING
v_nrseq = /pws/zycie001-nrseq
...
...
ELSE.
MESSAGE s018 WITH /pws/zycie001-embarca /pws/zycie001-nrseq.
ENDIF.
ENDFORM.
FORM imprime_relatorio TABLES p_itab_custos STRUCTURE itab_zycit036.
* >> Início da exclusão: FORM IMPRIME_RELATORIO
indx-aedat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM IMPRIME_RELATORIO
indx-aedat = sy-datlo.
* << Fim da inclusão
indx-usera = sy-uname.
EXPORT p_itab_custos[] TO MEMORY ID 'I010P1'.
DATA: v_waers_plan LIKE /pws/zycie001-waers,
v_waers_real LIKE /pws/zycie001-waers,
v_waers_mov LIKE /pws/zycie001-waers,
...