CE PLUS - Nota 009617
Módulo: DRAWBACK
Funcionalidade: Forecast
Data/Hora da Publicação: 23/12/2009 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:47:37
Descrição da Nota: IMPLEMENTAÇÃO DRAWBACK TIPO EMBARCAÇÃO
Sintoma
Os programas do drawback não estão preparados para atender os processos de drawback embarcação.
Solução
Desenvolvida as novas modalidades de drawback embarcação.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09617 Data: 23/12/2009 Hora: 14:20:10
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09617
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02602 - 00001 - 6.0 - 00026 - AJUSTES PARA PREENCHIMENTO DOS CAMPOS AREA DE NEGÓCIO E CENTRO PR
07841 - 00002 - 7.0 - 00008 - PROGRAMA ESTÁ ELIMINANDO INSUMOS QUANDO O FORECAST É POR AGRUPAME
----------------------------------------------------------------------------------------------------
IMPLEMENTAÇÃO DRAWBACK TIPO EMBARCAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
FORECAST - TIPO - EMBARCAÇÃO
/PWS/SAPMZYCI063
----------------------------------------------------------------------------------------------------
Objetos da nota:
DOMD /PWS/ZYGLD604
DYNP /PWS/SAPMZYCI063 0100
REPS /PWS/MZYCI063F01
REPS /PWS/MZYCI063I01
REPS /PWS/MZYCI063O01
REPS /PWS/MZYCI063X01
REPT /PWS/SAPMZYCI063
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMD /PWS/ZYGLD604
------------------------------------------------------------------------
Domínio modificado: /PWS/ZYGLD604
-Valores individuais
Incluído valor fixo "E"
Texto incluído, idioma: EN (13 caracteres):
"Common Vessel"
Texto incluído, idioma: PT (16 caracteres):
"Embarcação Comum"
Incluído valor fixo "D"
Texto incluído, idioma: EN (14 caracteres):
"Generic Vessel"
Texto incluído, idioma: PT (19 caracteres):
"Embarcação Genérico"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI063 0100
MODIFICAR BOTÃO "FS_EXPORT" em tbl.contr./tabstr.
Comprimento Visível 20
Texto ____________________
*Marcar opção campo de saida
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI063F01
...
v_null = 'N'.
LOOP AT itab_exp.
IF itab_exp-qtd_iten IS INITIAL.
v_null = 'S'.
ELSEIF itab_exp-netpr IS INITIAL.
v_null = 'S'.
ENDIF.
ENDLOOP.
IF v_null EQ 'S'.
* >> Início da inclusão: FORM TRATA_TAB_COMP
IF /pws/zycie238-tipo CA 'GC'.
* << Fim da inclusão
MESSAGE w015 WITH text-072 text-073.
* >> Início da inclusão: FORM TRATA_TAB_COMP
ELSE.
MESSAGE w015 WITH text-072 text-212.
ENDIF.
* << Fim da inclusão
EXIT.
ENDIF.
LOOP AT itab_exp WHERE mark = 'X'.
v_marcados2 = v_marcados2 + 1.
ENDLOOP.
IF v_marcados2 > 1.
MESSAGE s015 WITH text-016.
EXIT.
ENDIF.
READ TABLE itab_exp WITH KEY mark = 'X'.
IF sy-subrc NE 0.
CLEAR: v_indicatu.
* >> Início da inclusão: FORM TRATA_TAB_COMP
IF /pws/zycie238-tipo CA 'GC'.
* << Fim da inclusão
MESSAGE s015 WITH text-015.
* >> Início da inclusão: FORM TRATA_TAB_COMP
ELSE.
MESSAGE s015 WITH text-295.
ENDIF.
* << Fim da inclusão
EXIT.
ENDIF.
PERFORM verifica_componentes.
READ TABLE itab_exp WITH KEY mark = 'X'.
...
...
v_null = 'N'.
LOOP AT itab_exp.
IF itab_exp-qtd_iten IS INITIAL.
v_null = 'S'.
ELSEIF itab_exp-netpr IS INITIAL.
v_null = 'S'.
ENDIF.
ENDLOOP.
IF v_null EQ 'S'.
IF ok_code EQ 'VERIC'.
* >> Início da inclusão: FORM VERIFICA_COMPONENTES
IF /pws/zycie238-tipo CA 'GC'.
* << Fim da inclusão
MESSAGE w015 WITH text-072 text-073.
* >> Início da inclusão: FORM VERIFICA_COMPONENTES
ELSE.
MESSAGE w015 WITH text-072 text-212.
ENDIF.
* << Fim da inclusão
ENDIF.
EXIT.
ENDIF.
CLEAR: v_subrc1, v_subrc2.
...
...
v_null = 'N'.
LOOP AT itab_exp.
IF itab_exp-qtd_iten IS INITIAL.
v_null = 'S'.
ELSEIF itab_exp-netpr IS INITIAL.
v_null = 'S'.
ENDIF.
ENDLOOP.
IF v_null EQ 'S'.
* >> Início da inclusão: FORM TRATA_TAB_VIAB
IF /pws/zycie238-tipo CA 'GC'.
* << Fim da inclusão
MESSAGE w015 WITH text-072 text-073.
* >> Início da inclusão: FORM TRATA_TAB_VIAB
ELSE.
MESSAGE w015 WITH text-072 text-212.
ENDIF.
* << Fim da inclusão
EXIT.
ENDIF.
LOOP AT itab_exp WHERE mark = 'X'.
v_marcados2 = v_marcados2 + 1.
ENDLOOP.
IF v_marcados2 > 1.
MESSAGE s015 WITH text-016.
EXIT.
ENDIF.
READ TABLE itab_exp WITH KEY mark = 'X'.
IF sy-subrc NE 0.
CLEAR: v_indicatu.
* >> Início da inclusão: FORM TRATA_TAB_VIAB
IF /pws/zycie238-tipo CA 'GC'.
* << Fim da inclusão
MESSAGE s015 WITH text-015.
* >> Início da inclusão: FORM TRATA_TAB_VIAB
ELSE.
MESSAGE s015 WITH text-295.
ENDIF.
* << Fim da inclusão
EXIT.
ENDIF.
MOVE: sy-tabix TO v_indicatu.
IF NOT itab_exp-qtd_aditiv IS INITIAL.
...
...
FORM check_fields_screen_0101.
LOOP AT SCREEN.
IF screen-group1 NE 'NEX'.
* >> Início da inclusão: FORM CHECK_FIELDS_SCREEN_0101
screen-input = v_status.
MODIFY SCREEN.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE238-SUBTIPO'.
IF /pws/zycie238-tipo CA 'DE'.
screen-input = '0'.
ELSE.
* << Fim da inclusão
screen-input = v_status.
* >> Início da inclusão: FORM CHECK_FIELDS_SCREEN_0101
ENDIF.
* << Fim da inclusão
MODIFY SCREEN.
ENDIF.
ENDLOOP.
IF itab_centros[] IS INITIAL.
btn1 = '@1F@'.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI063I01
...
MODULE user_command_0101 INPUT.
* >> Início da inclusão: MODULE USER_COMMAND_0101
IF /pws/zycie238-tipo CA 'DE'.
CLEAR /pws/zycie238-subtipo.
ENDIF.
* << Fim da inclusão
CASE ok_code.
WHEN 'SELE'.
PERFORM trata_selecao.
WHEN 'ENTE'.
PERFORM seleciona_correspondente.
ENDCASE.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI063O01
...
PERFORM trata_botoes.
PERFORM carrega_icone.
SET PF-STATUS 'ST0100' EXCLUDING itab_botoes[].
IF v_tcode EQ '/PWS/ZYCI040_P'.
SET TITLEBAR 'TITLE1' WITH text-017.
ELSEIF v_tcode EQ '/PWS/ZYCI040_N'.
SET TITLEBAR 'TITLE1' WITH text-018.
ELSEIF v_tcode EQ '/PWS/ZYCI040_R'.
SET TITLEBAR 'TITLE1' WITH text-019.
ENDIF.
* >> Início da inclusão: MODULE STATUS_0100
IF /pws/zycie238-tipo CA 'GC'.
fs_export = text-224.
else.
fs_export = text-208.
ENDIF.
* << Fim da inclusão
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI063X01
...
tc_exp TYPE TABLEVIEW USING SCREEN '0102',
tc_compn TYPE TABLEVIEW USING SCREEN '0104',
tc_compi TYPE TABLEVIEW USING SCREEN '0105',
tc_centros TYPE TABLEVIEW USING SCREEN '0106',
tc_itn TYPE TABLEVIEW USING SCREEN '0107',
tc_iti TYPE TABLEVIEW USING SCREEN '0107',
tc_viab TYPE TABLEVIEW USING SCREEN '0108',
tc_res TYPE TABLEVIEW USING SCREEN '0109',
tc_areas TYPE TABLEVIEW USING SCREEN '0110',
tc_forms TYPE TABLEVIEW USING SCREEN '0500'.
* >> Início da inclusão:
DATA: BEGIN OF COMMON PART a.
* << Fim da inclusão
DATA: ok_code LIKE sy-ucomm ,
v_tcode LIKE sy-tcode ,
v_status(1) TYPE c VALUE '1' ,
pressed_tab LIKE sy-ucomm VALUE 'FS_CABEC' ,
pressed_tab2 LIKE sy-ucomm VALUE 'FS_NAC' ,
modul(30) TYPE c VALUE '/PWS/SAPMZYCI063' ,
dynpronr(4) TYPE c VALUE '0101' ,
dynpronr2(4) TYPE c VALUE '0104' ,
v_ico1 TYPE icons-text ,
v_icone TYPE iconname ,
...
...
* >> Início da inclusão:
data FS_EXPORT(20) type c.
DATA: END OF COMMON PART a.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI063
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 295
Texto: (49 caracteres)
"Marcar uma linha válida na pasta Mercado Interno!"
Comprimento máximo: 49