Sintoma

Ao tentar incluir um novo registro na tabela de Parâmetro de Tipo de Imposto da Remessa, o sistema

apresenta a tela com os campos fechados impossibilitando criar novos registros.

Solução

Quando o campo da empresa ainda está em branco, o sistema não verifica a permissão de acesso. Nestes

casos esta verificação se dará no momento da gravação do registro, pois aí o sistema já possui todas

as informações.

Informações Complementares

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

Nota Número 12057 Data: 22/03/2012 Hora: 15:01:07

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

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

Nota Número              : 12057

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00011

Agrupamento              : 00108

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

Referência às notas relacionadas:

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

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

PARÂMETRO TIPO DE IMPOSTO DE REMESSAS

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

Palavras Chave:

PARÂMETRO TIPO DE IMPOSTO DE REMESSAS

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

Objetos da nota:

REPS /PWS/MZYCA024I01

REPS /PWS/MZYCA024O01

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

Modificações efetuadas em REPS /PWS/MZYCA024I01

...

        LEAVE TO SCREEN 0.

      ENDIF.

    WHEN 'BACK'.

      LEAVE TO SCREEN 0.

  ENDCASE.

  CLEAR ok_code.

ENDMODULE.

MODULE user_command_0200 INPUT.

  CASE ok_code.

    WHEN 'SAVE'.

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

      authority-check object 'F_BKPF_BUK' id 'BUKRS' field

                                          /pws/zycat024-bukrs

                                          id 'ACTVT' field '02'.

      if sy-subrc ne 0.

        message e083(f5) with /pws/zycat024-bukrs.

      endif.

* << Fim da inclusão

      PERFORM salvar_dados.

      PERFORM salvar_exclusao.

    WHEN 'BACK'.

      PERFORM limpa_dados.

      v_first = 'X'.

      LEAVE TO SCREEN 0.

    WHEN 'FIRS' OR 'PRIO' OR 'NEXT' OR 'LAST'.

      PERFORM controla_navegacao.

  ENDCASE.

  CLEAR ok_code.

...

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

Modificações efetuadas em REPS /PWS/MZYCA024O01

...

                   modify screen.

                endif.

        endcase.

     endif.

  endloop.

endmodule.

module verifica_acesso output.

       authority-check object 'F_BKPF_BUK' id 'BUKRS' field

                                           /pws/zycat024-bukrs

                                           id 'ACTVT' field '02'.

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

       check not /pws/zycat024-bukrs is initial.

* << Fim da inclusão

       if sy-subrc ne 0.

          loop at screen.

               screen-input = '0'.

               modify screen.

          endloop.

       else.

          loop at screen.

               if v_tcode = 'E'.

                  screen-input = '0'.

                  modify screen.

...