CE PLUS - Nota 008612
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 30/06/2009 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:36:43
Descrição da Nota: EXIBIÇAO DOS VALORES FOB DOS INSUMOS NACIONAIS NA PASTA CABEÇALHO
Sintoma
Foram incluidos na pasta de cabeçalho os valores totais de FOB realizado e planejado dos insumos
nacionais.
Solução
Foram incluidos na pasta de cabeçalho os valores totais de FOB realizado e planejado dos insumos
nacionais.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08612 Data: 30/06/2009 Hora: 16:58:13
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08612
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00103
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08573 - 00001 - 7.0 - 00010 - AJUSTES REFERENTES AO DRAWBACK INTEGRADO
----------------------------------------------------------------------------------------------------
EXIBIÇAO DOS VALORES FOB DOS INSUMOS NACIONAIS NA PASTA CABEÇALHO
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIBIÇÃO - VALOR - FOB - INSUMO - NACIONAL - PASTA - CABEÇALHO
/PWS/SAPMZYCI040 - ATO - CONCESSÓRIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI040 0200
DYNP /PWS/SAPMZYCI040 0201
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0200
MODIFICAR CARACTERÍSTICAS DA TELA 0200
Altura atual (linhas) 28
MODIFICAR ÁREA DE SUB-TELA "SS_SUB1_2" em tbl.contr./tabstr.
Altura 21
MODIFICAR TABSTRIP "TS_CABEC2"
Altura 24
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0201
MODIFICAR FRAME "%#AUTOTEXT001"
Altura 9
MODIFICAR CAIXA DE VERIFICAÇÃO "/PWS/ZYCIE244-CICMS"
Linha 22
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE244-IMPORTACAO"
Linha 21
MODIFICAR TEXTO "/PWS/ZYCIE244-IMPORTACAO"
Linha 21
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE244-MODALIDADE"
Linha 16
MODIFICAR TEXTO "/PWS/ZYCIE244-MODALIDADE"
Linha 16
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE244-OPER_IND"
Linha 20
MODIFICAR TEXTO "/PWS/ZYCIE244-OPER_IND"
Linha 20
MODIFICAR TEXTO "/PWS/ZYCIE244-TIPO"
Linha 17
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE244-TIPO2"
Linha 17
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE244-TIPOEMP"
Linha 19
MODIFICAR TEXTO "/PWS/ZYCIE244-TIPOEMP"
Linha 19
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE244-VERD_AMA"
Linha 18
MODIFICAR TEXTO "/PWS/ZYCIE244-VERD_AMA"
Linha 18
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE245-NETPR_T"
Linha 18
MODIFICAR TEXTO "/PWS/ZYCIE245-NETPR_T"
Linha 18
INCLUIR CAMPO TEXTO "/PWS/ZYCIE245-SDOCOMP_T"
Altura 16
Comprimento Visível 31
Linha 17
Coluna 59
Formato CURR
Campo referência /PWS/ZYCIE245-WAERS
Grupo 1 NEX
Grupo 2 NAC
Linhas mínimas 23
Colunas mínimas 2
Texto ______________________________V
INCLUIR TEXTO "/PWS/ZYCIE245-SDOCOMP_T"
Comprimento Visível 13
Linha 17
Coluna 41
Formato CHAR
Grupo 1 NEX
Grupo 2 NAC
Texto FOB Nacional:
Código função
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE245-VL_FRETE_T"
Linha 19
MODIFICAR TEXTO "/PWS/ZYCIE245-VL_FRETE_T"
Linha 19
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE245-VL_SEG_T"
Linha 20
MODIFICAR TEXTO "/PWS/ZYCIE245-VL_SEG_T"
Linha 20
INCLUIR CAMPO TEXTO "/PWS/ZYCIE246-I_VLCIF_ME"
Altura 16
Comprimento Visível 31
Linha 17
Coluna 100
Formato CURR
Campo referência /PWS/ZYCIE246-I_WAERSCIFME
Grupo 1 NEX
Grupo 2 NAC
Linhas mínimas 23
Colunas mínimas 2
Texto ______________________________V
INCLUIR TEXTO "/PWS/ZYCIE246-I_VLCIF_ME"
Comprimento Visível 13
Linha 17
Coluna 82
Formato CHAR
Grupo 1 NEX
Grupo 2 NAC
Texto FOB Nacional:
Código função
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-VLFRETE"
Linha 19
MODIFICAR TEXTO "/PWS/ZYCIE246-VLFRETE"
Linha 19
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-VLSEG"
Linha 20
MODIFICAR TEXTO "/PWS/ZYCIE246-VLSEG"
Linha 20
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-VLTOT"
Linha 18
MODIFICAR TEXTO "/PWS/ZYCIE246-VLTOT"
Linha 18
MODIFICAR CAMPO TEXTO "LINHA"
Linha 15
Coluna 29
MODIFICAR TEXTO "TEXT_CICMS"
Linha 22
MODIFICAR TEXTO "VTEXT10"
Linha 21
MODIFICAR CAMPO TEXTO "V_ICOICMS"
Linha 22
MODIFICAR FRAME "V_QUAD3_0201"
Altura 9
MODIFICAR FRAME "V_QUAD4_0201"
Altura 10
Comprimento Visível 36
MODIFICAR TEXTO "V_TEXT11"
Linha 21
MODIFICAR CAMPO TEXTO "V_VARIACAO_PLAN2"
Linha 21
MODIFICAR CAMPO TEXTO "V_VARIACAO_REAL2"
Linha 21
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
screen-input = 1.
ENDIF.
screen-invisible = 0.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF screen-name EQ 'LINHA'.
IF /pws/zycie244-modalidade EQ 'I'.
screen-invisible = 0.
ELSE.
* >> Início da inclusão: FORM CHECK_FIELD_0201
IF NOT /pws/zycie244-verd_ama IS INITIAL.
screen-invisible = 0.
screen-active = 1.
ELSE.
screen-invisible = 1.
screen-active = 0.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF screen-group2 EQ 'NAC'.
IF NOT /pws/zycie244-verd_ama IS INITIAL.
screen-invisible = 0.
screen-active = 1.
ELSE.
* << Fim da inclusão
screen-invisible = 1.
* >> Início da inclusão: FORM CHECK_FIELD_0201
screen-active = 0.
* << Fim da inclusão
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
DATA v_valor TYPE p DECIMALS 2.
IF NOT /pws/zycie244-nrforecast IS INITIAL.
...
...
itab_zycit245-vl_seg_t.
/pws/zycie245-vl_frete_t = /pws/zycie245-vl_frete_t +
itab_zycit245-vl_frete_t.
IF itab_zycit245-nritem < 90000.
wa_zycit245-netpr_t = wa_zycit245-netpr_t +
itab_zycit245-netpr_t.
wa_zycit245-vl_seg_t = wa_zycit245-vl_seg_t +
itab_zycit245-vl_seg_t.
wa_zycit245-vl_frete_t = wa_zycit245-vl_frete_t +
itab_zycit245-vl_frete_t.
* >> Início da inclusão: FORM APURA_TOTAIS_0201
ELSE.
wa_zycit245-sdocomp_t = wa_zycit245-sdocomp_t +
itab_zycit245-netpr_t.
* << Fim da inclusão
ENDIF.
/pws/zycie244-t_segimp = wa_zycit245-vl_seg_t.
/pws/zycie244-t_freimp = wa_zycit245-vl_frete_t.
ENDLOOP.
LOOP AT itab_zycit247.
/pws/zycie247-netpr_t = /pws/zycie247-netpr_t +
itab_zycit247-netpr_t.
/pws/zycie247-vl_comis_t = /pws/zycie247-vl_comis_t +
itab_zycit247-vl_comis_t.
ENDLOOP.
...
...
itab_zycit246_final-vlfrete.
/pws/zycie246-vlseg = /pws/zycie246-vlseg +
itab_zycit246_final-vlseg.
IF itab_zycit246_final-nritem < 90000.
wa_zycit246-vltot = wa_zycit246-vltot +
itab_zycit246_final-vltot.
wa_zycit246-vlfrete = wa_zycit246-vlfrete +
itab_zycit246_final-vlfrete.
wa_zycit246-vlseg = wa_zycit246-vlseg +
itab_zycit246_final-vlseg.
* >> Início da inclusão: FORM APURA_TOTAIS_0201
ELSE.
wa_zycit246-i_vlcif_me = wa_zycit246-i_vlcif_me +
itab_zycit246_final-vltot.
* << Fim da inclusão
ENDIF.
ENDLOOP.
LOOP AT itab_zycit248_final.
/pws/zycie248-vlfob = /pws/zycie248-vlfob +
itab_zycit248_final-vlfob.
/pws/zycie248-vlcomis = /pws/zycie248-vlcomis +
itab_zycit248_final-vlcomis.
ENDLOOP.
LOOP AT itab_zycit371.
/pws/zycie248-vlfob = /pws/zycie248-vlfob + itab_zycit371-vlfob.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040I01
...
WHEN 'T_ADITIVO'.
SELECT SINGLE uname cpf FROM /pws/zycet184
INTO (/pws/zycet184-uname, /pws/zycet184-cpf)
WHERE uname EQ sy-uname.
IF sy-subrc EQ 0.
PERFORM trans_aditivo.
ELSE.
MESSAGE i015 WITH text-293 text-294.
ENDIF.
WHEN 'VERDE_AM'.
* >> Início da inclusão: MODULE USER_COMMAND_0200
WHEN 'MODALID'.
IF /pws/zycie244-modalidade EQ 'I'.
CLEAR: /pws/zycie244-verd_ama.
ENDIF.
* << Fim da inclusão
ENDCASE.
CLEAR ok_code2.
ENDMODULE.
...