Sintoma

Melhoria nas mensagens do modo Batch Input Via Shift F9.

Solução

Inserida verificação de consistencia para verificar autorização quando

o usuario tentar ultilizar o Shift F9.

Informações Complementares

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

Nota Número 00876 Data: 14/02/2006 Hora: 14:25:28

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

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

Nota Número              : 00876

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00022

Agrupamento              : 00100

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

00827  - 00001 - 6.0    - 00022  - A FUNCIONALIDADE DE SHIFT+F9 DEVERÁ SER DEFINIDA POR USUÁRIO

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

VERIFICAÇÃO DE AUTORIZAÇÃO PARA EXECUTAR BATCH VIA SHFT F9.

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

Palavras Chave:

AUTORIZAÇÃO - BATCH - INPUT - SHIFT - F9.

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

Objetos da nota:

FUGR /PWS/ZYGLGF1

REPS /PWS/MZYCI012I01

TABU TDDAT

TABU TVDIR

TOBJ /PWS/ZYGLT384S

TRAN /PWS/ZYGLT384

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

Modificações efetuadas em FUGR /PWS/ZYGLGF1

Criado o Modulo de Função abaixo:

* >> Inicio da Inclusão

FUNCTION /pws/zygl_autoriza_modo_batch.

*"----------------------------------------------------------------------

*"*"Interface local:

*"  IMPORTING

*"     REFERENCE(CODMOD) LIKE  /PWS/ZYGLT384-CODMOD

*"     REFERENCE(USUARIO) LIKE  /PWS/ZYGLT384-USUARIO

*"     REFERENCE(FUNC) LIKE  /PWS/ZYGLT384-FUNC

*"  EXPORTING

*"     REFERENCE(AUTORIZA) TYPE  FELD

*"----------------------------------------------------------------------

  TABLES: /pws/zyglt384.

  SELECT SINGLE * FROM /pws/zyglt384

  WHERE codmod  EQ codmod   AND

        usuario EQ usuario  AND

        func    EQ func.

  IF sy-subrc EQ 0.

    autoriza = 'X'.

  ELSE.

    CLEAR autoriza.

  ENDIF.

ENDFUNCTION.

* >> Fim da Inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI012I01

...

      CALL METHOD html_control->go_back.

    WHEN 'CLOSE'.

      PERFORM set_the_flag.

    WHEN 'AVAN'.

      CALL METHOD html_control->go_forward.

* >> Início da inclusão: MODULE USER_COMMAND_0050

      WHEN 'MODO'.

        DATA: v_autoriza TYPE feld.

        CALL FUNCTION '/PWS/ZYGL_AUTORIZA_MODO_BATCH'

             EXPORTING

                  codmod   = 'D'

                  usuario  = sy-uname

                  func     = 'ADT'

             IMPORTING

                  autoriza = v_autoriza.

* << Fim da inclusão

* >> Início da exclusão: MODULE USER_COMMAND_0050

    WHEN 'MODO'.

* << Fim da exclusão

* >> Início da inclusão: MODULE USER_COMMAND_0050

        IF v_autoriza = 'X'.

* << Fim da inclusão

      PERFORM modo_batch_input.

* >> Início da inclusão: MODULE USER_COMMAND_0050

        ELSE.

          MESSAGE w013 WITH text-105 text-106.

        ENDIF.

* << Fim da inclusão

    WHEN 'APROV'.

      IF /pws/zycie008-frgzu NE 2.

        IF sy-binpt IS INITIAL.

          MESSAGE i046.

        ELSE.

...

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

Modificações efetuadas em TABU TDDAT

Foi criado o Dominio: /PWS/ZYCID542

Descrição: GL - Funcionalidade Importação

Categoria dados  CHAR

Núm.posições          5

Decimais              0

Comprim.saída         5

Rotina conversão

Arvores de Valores:

Vl Fixo  Descrição

FAT Fatura

ADT Adiantamento

PDC Prestação de Contas

DI Variação Cambial na DI

NFG Nota Fiscal Global

NFR Nota Fiscal Remessa

NFC Nota Fiscal Complementar

REC Recebimento

ENC Encerramento

VC Variação Cambial na Exportação

CA Comissão de Agente

RV Receita de Vendas

LA Liquidação em Andamento

CD Captação / Despesa

VIN Vinculação

LF Liquidação de Faturas

DR Desconto de Recebíveis

PJ Pagamento de Juros

LJ Letra de Juros

CC Carta de Crédito

RP Rotina de Pagamento

RM Rotina Mensal

FIN Financiamento

PA Pagamento Antecipado

ASS Assunção

ASF Associação de Faturas

DES Despesas

EMP Empréstimo

REM Remessas

DC Debito em Conta

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

Modificações efetuadas em TABU TVDIR

Foi Criado o Elemento de Dados: /PWS/ZYCIL833

Descrição: GL - Funcionalidade Importação

Dominio - X - /PWS/ZYCID542

Denominação do campo:

   Comprim Denominador de campo

Breve             15      Funcional.

Médio             15      Funcionalidade

longa             50      Código da Funcionalidade

Título            50      Código da Funcionalidade

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

Modificações efetuadas em TOBJ /PWS/ZYGLT384S

*Criada a visão de atualização de tabela

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

Modificações efetuadas em TRAN /PWS/ZYGLT384

Foi criada a tabela /PWS/ZYGLT384:

Descrição :GL - Autorização de usuário para Batch Input

         Chave

MANDT     XX     Type    MANDT

CODMOD    XX     Type    /PWS/ZYCIL090

USUARIO   XX     Type    UNAME

FUNC      XX     Type    /PWS/ZYCIL833

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

Criar transação: /PWS/ZYGLT384

Caracteristicas da transação /PWS/ZYGLT384:

Tipo:                  Transação com parametros(transação de parametro)

Texto da transação:    Autorização usuários p/ Batch

Transação:             SM30

Omitir 1ª tela:        X

*Nome do campo da tela   Valor

 VIEWNAME           /PWS/ZYGLT384

 UPDATE           X