CE PLUS - Nota 009638
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 29/12/2009 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:35:13
Descrição da Nota: NÃO REAPURAR INSUMOS QUANDO JÁ EXISTIR VINCULAÇÃO.
Sintoma
Ao incluir ou excluir um item na pasta de materiais o programa está reapurando os insumos mesmo
quando já foi utilizado parte do saldo dos insumos.
Solução
Ajustado programa para não realizar a reapuração dos insumos se já existir vinculação para os
insumos do ato concessório.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09638 Data: 29/12/2009 Hora: 09:23:37
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09638
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
09564 - 00001 - 8.0 - 00001 - CORREÇÃO DO TRATAMENTO DE REAPURAÇÃO DOS INSUMOS.
09618 - 00002 - 8.0 - 00002 - IMPLEMENTAÇÃO DRAWBACK TIPO EMBARCAÇÃO
----------------------------------------------------------------------------------------------------
NÃO REAPURAR INSUMOS QUANDO JÁ EXISTIR VINCULAÇÃO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
ATO - CONCESSÓRIO - INSUMO - REAPURAR - VINCULADO - LI - PEDIDO -
/PWS/SAPMZYCI040 - RECEBIMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040F03
REPS /PWS/MZYCI040X01
REPT /PWS/SAPMZYCI040
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
PERFORM lock_record2.
ENDIF.
IF v_otheruser IS INITIAL.
ENDIF.
wa_zycit244 = /pws/zycie244.
PERFORM carrega_tabela279.
PERFORM move_realiz.
PERFORM sel_iterm_import.
REFRESH: itab_zycit245t.
itab_zycit245t[] = itab_zycit245[].
* >> Início da inclusão: FORM TRATA_BUTTON_ENTE2
PERFORM verifica_vinc.
* << Fim da inclusão
itab_zycit245_save[] = itab_zycit245[].
itab_zycit246_save[] = itab_zycit246_final[].
itab_zycit247_save[] = itab_zycit247[].
itab_zycit248_save[] = itab_zycit248_final[].
itab_centros2_save[] = itab_centros2[].
itab_vencto2_save[] = itab_vencto2[].
PERFORM le_textos.
IF /pws/zycie244-modalidade EQ 'S' AND
/pws/zycie244-tipo CA 'NGDF'
OR /pws/zycit321-c_comum EQ 'X'
...
...
text_button_2 = text-042
default_button = '1'
display_cancel_button = 'X'
IMPORTING
answer = v_confirm
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
IF v_confirm EQ '1'.
DELETE itab_zycit247.
* >> Início da inclusão: FORM TRATA_BUTTON_EXCLM_M
v_verificp2 = 'N'.
* << Fim da inclusão
ELSE.
EXIT.
ENDIF.
ELSE.
IF /pws/zycit321-c_comum NE 'X'.
LOOP AT itab_zycit371 WHERE codigo EQ itab_zycit247-mat_int.
MESSAGE e104 WITH text-349 text-351.
EXIT.
ENDLOOP.
ELSE.
...
...
CHECK /pws/zycie244-tipo NA 'GDF'.
IF /pws/zycie244-tipo EQ 'N' AND /pws/zycie244-modalidade EQ 'S'.
CHECK v_tcode2 NE '/PWS/ZYCI040_E'.
IF v_verificp2_merc EQ 'S'.
* >> Início da inclusão: FORM VERIFICA_COMPONENTES2
EXIT.
ENDIF.
IF v_statusv EQ 'X'.
MESSAGE i015 WITH text-360 text-361.
v_verificp2 =
v_verificp2_merc = 'S'.
* << Fim da inclusão
EXIT.
ENDIF.
v_verificp2_temp = v_verificp2.
v_verificp2 = v_verificp2_merc.
IF v_verificp2_merc EQ 'N'.
PERFORM confirm_expl_bom2 CHANGING v_flag.
v_verificp2_merc = v_verificp2.
v_verificp2 = v_verificp2_temp.
IF v_flag EQ 'N'.
v_verificp2_merc = 'S'.
...
...
ENDLOOP.
v_verificp2_merc = 'S'.
MESSAGE s015 WITH text-023.
ELSE.
IF itab_zycit247[] IS INITIAL.
EXIT.
ENDIF.
CHECK v_tcode2 NE '/PWS/ZYCI040_E'.
DESCRIBE TABLE itab_zycit247 LINES v_ilinhas.
IF v_verificp2 EQ 'S'.
* >> Início da inclusão: FORM VERIFICA_COMPONENTES2
EXIT.
ENDIF.
IF v_statusv EQ 'X'.
MESSAGE i015 WITH text-360 text-361.
v_verificp2 =
v_verificp2_merc = 'S'.
* << Fim da inclusão
EXIT.
ENDIF.
IF v_verificp2 EQ 'N' AND v_verifiit2 EQ v_ilinhas.
PERFORM confirm_expl_bom2 CHANGING v_flag.
IF v_flag EQ 'N'.
v_verificp2 = 'S'.
EXIT.
ENDIF.
ENDIF.
CLEAR: it_stpox, it_stpox2, itab_zycit245.
...
...
qtd_iten LIKE /pws/zycit245-qtd_iten ,
qtd_tot LIKE /pws/zycit245-qtd_tot,
END OF itab_zycit245_collect.
CHECK /pws/zycie244-tipo NA 'GD'.
CLEAR v_nritem.
CHECK v_tcode2 NE '/PWS/ZYCI040_E'.
DESCRIBE TABLE itab_zycit247 LINES v_ilinhas.
DESCRIBE TABLE itab_zycit427 LINES v_ilinhas3.
IF v_verificp2 EQ 'S' AND
v_verificp2_merc EQ 'S'.
* >> Início da inclusão: FORM VERIFICA_COMPONENTES_AGRUP
EXIT.
ENDIF.
IF v_statusv EQ 'X'.
MESSAGE i015 WITH text-360 text-361.
v_verificp2 =
v_verificp2_merc = 'S'.
* << Fim da inclusão
EXIT.
ENDIF.
IF ( v_verificp2 EQ 'N' AND v_verifiit2 EQ v_ilinhas ) OR
( v_verificp2_merc EQ 'N' AND v_verifiit3 EQ v_ilinhas3 ).
PERFORM confirm_expl_bom2 CHANGING v_flag.
IF v_flag EQ 'N'.
v_verificp2 = 'S'.
v_verificp2_merc = 'S'.
EXIT.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F03
...
* >> Início da inclusão:
FORM verifica_vinc.
DATA: wa_zycit376 TYPE /pws/zycit376,
wa_zycit078 TYPE /pws/zycit078.
v_statusv = 'X'.
CHECK itab_zycit279_ap[] IS INITIAL.
SELECT SINGLE * FROM /pws/zycit376 INTO wa_zycit376
WHERE nrseqd EQ /pws/zycie244-nrseqd. "#EC CI_NOFIRST
CHECK sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycit078 INTO wa_zycit078
WHERE nrseqd EQ /pws/zycie244-nrseqd. "#EC CI_NOFIELD
CHECK sy-subrc NE 0.
CLEAR v_statusv.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040X01
...
* >> Início da inclusão:
data: v_statusv type c.
* << Fim da inclusão
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI040
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 360
Texto: (29 caracteres)
"There are entailed component."
Comprimento máximo: 34
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 360
Texto: (34 caracteres)
"Existem componentes já vinculados."
Comprimento máximo: 34
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 361
Texto: (39 caracteres)
"Will not be held recalculated the items"
Comprimento máximo: 39
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 361
Texto: (39 caracteres)
"Não será realizada reapuração de saldo."
Comprimento máximo: 39