Sintoma

DA

Solução

Desenvolvimento para Exibir uma Mensagem Avisando que a Exportação Temporária está próxima do

vencimento, de acordo com parâmetro da Tabela /pws/zycet312.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 08366 Data: 04/05/2009 Hora: 15:08:06

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 08366

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00009

Agrupamento              : 00096

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

----------------------------------------------------------------------------------------------------

MENSAGEM DE VENCIMENTO DA EXPORTAÇÃO TEMPORÁRIA

----------------------------------------------------------------------------------------------------

Palavras Chave:

MENSAGEM AVISO VENCIMENTO  EXPORTAÇÃO TEMPORÁRIA

----------------------------------------------------------------------------------------------------

Objetos da nota:

DTEL /PWS/ZYCEL859

DYNP /PWS/SAPMZYCE312                        0101

REPS /PWS/MZYCE003F01

REPS /PWS/MZYCE003F02

REPS /PWS/MZYCE312F01

REPT /PWS/SAPMZYCE003

TABD /PWS/ZYCET312

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DTEL /PWS/ZYCEL859

------------------------------------------------------------------------

Elemento de dados incluído: /PWS/ZYCEL859

Classe de desenvolvimento: /PWS/ZYCE

Idioma original: PT

Descrição breve incluída: (47 caracteres), idioma: PT

"GL - Parâmetro Vencimento Exportação Temporária"

Categoria de dados: Domínio

Domínio: NUMC3

ID parâmetro:

Nome componente default:

Documentar modificações: NÃO

Nome da ajuda de pesquisa:

Parâmetro da ajuda de pesquisa:

Comprimento máximo do denominador breve: 10

Denominador breve incluído (9 caracteres), idioma: PT

"Exp. Temp"

Comprimento máximo do denominador médio: 16

Denominador médio incluído (16 caracteres), idioma: PT

"Venc. Exp. Temp."

Comprimento máximo do denominador longo: 35

Denominador longo incluído (35 caracteres), idioma: PT

"Vencimento da Exportação Temporária"

Comprimento máximo do título: 35

Título incluído (35 caracteres), idioma: PT

"Vencimento da Exportação Temporária"

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DYNP /PWS/SAPMZYCE312                        0101

MODIFICAR CARACTERÍSTICAS DA SUB-TELA 0101

Altura atual (linhas)    26

INCLUIR CAMPO TEXTO "/PWS/ZYCET312-VENC_EXP_TEMP"

Comprimento Visível      3

Linha                    25

Coluna                   45

Formato                  NUMC

Linhas mínimas           3

Texto                    ___

INCLUIR TEXTO "/PWS/ZYCET312-VENC_EXP_TEMP"

Comprimento Visível      16

Linha                    25

Coluna                   3

Formato                  CHAR

Texto                    Venc. Exp. Temp.

Código função

MODIFICAR FRAME "FRM2"

Altura                   6

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCE003F01

...

  CLEAR wa_alterados.

   */pws/zycee001 = /pws/zycee001.

  PERFORM bloqueia_embarque.

  CLEAR wa_controle-nivel_tela.

  PERFORM seleciona_dados_embarque_pw.

  PERFORM refresh_embarque USING 'X'.

  ts_embarque-activetab  = 'T/01'.

  CLEAR wa_controle-item_atual.

  PERFORM emite_mensagem.

  PERFORM verifica_drawback.

* >> Início da inclusão: FORM SELECIONA_EMBARQUE

  PERFORM verifica_exp_temporaria.

* << Fim da inclusão

  CALL SCREEN '0010'.

ENDFORM.

FORM verifica_embarque.

  DATA: v_nrseq_temp TYPE /pws/zycee001-nrseq,              "#EC NEEDED

        v_tipo_emb   TYPE /pws/zycee001-tipo_emb,

        v_sta1       TYPE /pws/zycee001-sta1.

  SELECT SINGLE nrseq

                tipo_emb

                sta1

         FROM /pws/zycet001

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCE003F02

...

            viatrans        = _viatrans.

    IF NOT sy-subrc IS INITIAL.

      /pws/zycee001-navio = */pws/zycee001-navio.

      MESSAGE e016 WITH text-646

                        itab_zycet047-tp_conhecimento

                        text-647

                        /pws/zycee001-viatrans.

    ENDIF.

  ENDIF.

ENDFORM.

* >> Início da inclusão:

FORM verifica_exp_temporaria.

  DATA: v_date  TYPE /pws/zycet116-dtincl,

        v_date1 TYPE /pws/zycet116-dtincl,

        v_param TYPE i,

        v_dias  TYPE i.

  CHECK /pws/zycee001-tipo_emb = 'T'.

  IF NOT itab_zycet116[] IS INITIAL.

    SORT itab_zycet116[] DESCENDING BY dtincl.

    READ TABLE itab_zycet116 INDEX 1 TRANSPORTING dtincl.

    v_date = itab_zycet116-dtincl.

    SORT itab_zycet116[] BY nrseqre.

  ENDIF.

  IF v_date IS INITIAL.

    SORT itab_zycet003[] DESCENDING BY dtlibanu.

    READ TABLE itab_zycet003 INDEX 1.

    v_date = itab_zycet003-dtlibanu.

    SORT itab_zycet003[] BY nrseqre.

  ENDIF.

  v_param = itab_zycet312-venc_exp_temp.

  CHECK NOT v_date IS INITIAL AND NOT v_param IS INITIAL.

  v_date1 = v_date + 365.

  v_dias  = v_date1 - sy-datlo.

  IF v_dias <= v_param AND v_dias > 0.

    MESSAGE i001 WITH text-650 v_dias text-651.

  ENDIF.

ENDFORM.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCE312F01

...

ENDFORM.

FORM salvar_registros.

  DATA v_name LIKE /pws/zycet312-username.

  CLEAR v_name.

  PERFORM buscar_usuario_rede CHANGING v_name.

  /pws/zycet312-username    = v_name.

  /pws/zycet312-usernamec   = sy-uname.

  /pws/zycet312-dtuserc     = sy-datum.

  /pws/zycet312-hruserc     = sy-uzeit.

  UPDATE /pws/zycet312 SET

* >> Início da exclusão: FORM SALVAR_REGISTROS

         loc_emb     = /pws/zycet312-loc_emb

         tp_emb      = /pws/zycet312-tp_emb

         emb_consig  = /pws/zycet312-emb_consig

         tp_emb_temp = /pws/zycet312-tp_emb_temp

         wrbtr_dse   = /pws/zycet312-wrbtr_dse

         waers_dse   = /pws/zycet312-waers_dse

         kurst_dse   = /pws/zycet312-kurst_dse

         transporte  = /pws/zycet312-transporte

         bot_espec   = /pws/zycet312-bot_espec

         part_lote   = /pws/zycet312-part_lote

         rateio_aut  = /pws/zycet312-rateio_aut

         username    = /pws/zycet312-username

         usernamec   = /pws/zycet312-usernamec

         dtuserc     = /pws/zycet312-dtuserc

         hruserc     = /pws/zycet312-hruserc

         tpcalc      = /pws/zycet312-tpcalc

         rc_manual   = /pws/zycet312-rc_manual.        "#EC CI_NOWHERE

* << Fim da exclusão

* >> Início da inclusão: FORM SALVAR_REGISTROS

         loc_emb       = /pws/zycet312-loc_emb

         tp_emb        = /pws/zycet312-tp_emb

         emb_consig    = /pws/zycet312-emb_consig

         tp_emb_temp   = /pws/zycet312-tp_emb_temp

         wrbtr_dse     = /pws/zycet312-wrbtr_dse

         waers_dse     = /pws/zycet312-waers_dse

         kurst_dse     = /pws/zycet312-kurst_dse

         transporte    = /pws/zycet312-transporte

         bot_espec     = /pws/zycet312-bot_espec

         part_lote     = /pws/zycet312-part_lote

         rateio_aut    = /pws/zycet312-rateio_aut

         username      = /pws/zycet312-username

         usernamec     = /pws/zycet312-usernamec

         dtuserc       = /pws/zycet312-dtuserc

         hruserc       = /pws/zycet312-hruserc

         tpcalc        = /pws/zycet312-tpcalc

         rc_manual     = /pws/zycet312-rc_manual

         venc_exp_temp = /pws/zycet312-venc_exp_temp."#EC CI_NOWHERE

* << Fim da inclusão

  IF sy-subrc NE 0.

    INSERT /pws/zycet312 FROM /pws/zycet312.

  ENDIF.

  DELETE FROM /pws/zycet316 CLIENT SPECIFIED WHERE mandt = sy-mandt.

  MODIFY /pws/zycet316 FROM TABLE itab_zycet316.

  DELETE FROM /pws/zycet317 CLIENT SPECIFIED WHERE mandt = sy-mandt.

  MODIFY /pws/zycet317 FROM TABLE itab_zycet317.

  COMMIT WORK.

  IF sy-subrc EQ 0.

    /pws/zycet312-username  = v_name.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPT /PWS/SAPMZYCE003

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 650

Texto: (6 caracteres)

"Faltam"

Comprimento máximo: 6

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 651

Texto: (50 caracteres)

" dias para o Encerramento da Exportação Temporária"

Comprimento máximo: 50

----------------------------------------------------------------------------------------------------

Modificações efetuadas em TABD /PWS/ZYCET312

Nome de campo Chv Elem.dados     Tab.verif. N CtDt  Comp. Grupo

...

USERNAMEC         SYUNAME                     CHAR    12

DTUSERC           SYDATUM                     DATS     8

HRUSERC           SYSTTIMLO                   TIMS     6

TPCALC            /PWS/ZYCEL317               CHAR     3

RC_MANUAL         /PWS/ZYCEL718               CHAR     3

* >> Início da inclusão:

VENC_EXP_TEMP     /PWS/ZYCEL859               NUMC     3

* << Fim da inclusão