Upload
rafaelmcp
View
72
Download
15
Embed Size (px)
Citation preview
ESPECIFICAÇÃO TÉCNICA
Informações Gerais
Projeto U&M – Implantação ECC 6.0Título do desenvolvimento Regra de Substituição/Regra de ValidaçãoMódulo FIConsultor Abap Bruno José MoreiraConsultor Funcional Rodrigo Campolina SantosPrioridade AltaComplexidade BaixaTipo de Programa ReportData documentação 01/10/2007Data desenvolvimento 27/09/2007Change Request UMDK900680/UMDK900401Previsão Horas 40
Notações
REPORT: ZRGGBS000/ ZRGGBR000TRANSAÇÃO: F-43
Definição
Deverá ser criada uma regra de Substituição que não permita que o campo Divisão (BSEG-GSBER) seja diferente do campo local de negócios (BSEG-BUPLA). Para isso foi necessária a cópia do programa Standard RGGBS000 para ZRGGBS000. E também foi necessária a parametrização na transação GCX2, e também a criação da regra de validação na transação OBBH, onde a regra foi inserida no momento 2 (item do documento).Deverá ser criada uma regra de Validação que não permita que campo local de negócios (BSEG-BUPLA) seja inicial. Para isso foi necessária a cópia do programa Standard RGGBR000 para ZRGGBR000. E também foi necessária a parametrização na transação GCX2, e também a criação da regra de validação na transação OB28, onde a regra foi inserida no momento 2 (item do documento).
8/4/2023 - 09:091
ESPECIFICAÇÃO TÉCNICA
Lógica principal
1. Lógica
SubstituiçãoAppend na tabela de exits: exits-name = 'BUPLA'. exits-param = c_exit_param_none. exits-title = 'Validação para Campo Divisão'. APPEND exits.
Foi inserido o seguinte FORM no program ZRGGBS000. Regra de Substituição*---------------------------------------------------------------------** Form BUPLA **---------------------------------------------------------------------** USER-EXIT para substituição do Local de Negócios **---------------------------------------------------------------------*FORM bupla.
CHECK sy-tcode EQ 'ABAON' OR sy-tcode EQ 'ABAVN' OR sy-tcode EQ 'ABGL' OR sy-tcode EQ 'ABUMN' OR sy-tcode EQ 'ABZON' OR sy-tcode EQ 'AFAB' OR sy-tcode EQ 'AJAB' OR sy-tcode EQ 'F-02' OR sy-tcode EQ 'F-22' OR sy-tcode EQ 'F-27' OR sy-tcode EQ 'F-41' OR sy-tcode EQ 'F-43' OR sy-tcode EQ 'F-48' OR sy-tcode EQ 'F-63' OR sy-tcode EQ 'F-64' OR sy-tcode EQ 'F-65' OR sy-tcode EQ 'F-66' OR sy-tcode EQ 'F-67' OR sy-tcode EQ 'F-90' OR sy-tcode EQ 'FB01' OR sy-tcode EQ 'FB50' OR sy-tcode EQ 'FB60' OR sy-tcode EQ 'FB70' OR sy-tcode EQ 'FB75' OR sy-tcode EQ 'FBA7' OR sy-tcode EQ 'FBAZ' OR sy-tcode EQ 'FBV1' OR sy-tcode EQ 'MIRO' OR sy-tcode EQ 'VF01' OR sy-tcode EQ 'VF02'.
CHECK bseg-bukrs EQ 'A001'. IF NOT bseg-bupla IS INITIAL. IF bseg-bupla NE bseg-gsber. bseg-gsber = bseg-bupla. ENDIF. ELSE. IF bseg-bupla NE bseg-gsber. bseg-bupla = bseg-gsber. ENDIF.
8/4/2023 - 09:092
ESPECIFICAÇÃO TÉCNICA
ENDIF.
ENDFORM. "BUPLA
ValidaçãoAppend na tabela de exits: exits-name = 'LONE'. exits-param = c_exit_param_none. "Complete data used in exit. exits-title = text105. "Obrigatoriedade do campo local de neg. APPEND exits.
Foi inserido o seguinte FORM no program ZRGGBR000. Regra de Validação*----------------------------------------------------------------------** FORM LONE **----------------------------------------------------------------------** Exit para obrigatoriedade do campo local de negócios ** This exit can be used in FI for callup points 1,2 or 3. **----------------------------------------------------------------------** <-- B_RESULT T = True F = False **----------------------------------------------------------------------*FORM lone USING b_result.
*Verifica transações aonde não há necesidade da validação CHECK sy-tcode NE '' AND sy-tcode NE 'F110' AND sy-tcode NE 'FB08' AND sy-tcode NE 'FBRA' AND sy-tcode NE 'FBZ2' AND sy-tcode NE 'FBZ4' AND sy-tcode NE 'FCH8'.
*Verifica se a empresa é A001 CHECK bkpf-bukrs = 'A001'.*Obrigatoriedade do campo local de negócios IF bseg-bupla IS INITIAL. b_result = c_false. ELSE. b_result = c_true. ENDIF.
ENDFORM. "LONE
8/4/2023 - 09:093
ESPECIFICAÇÃO TÉCNICA
2. Inclusão de Campos na Regra de Validação Os campos BUPLA e GSBER foram inseridos na regra de validação através do programa abaixo , conforme apresentado nas telas. Após as telas está o código fonte do programa. Obs.: Esta inclusão dos campos deve ser realizada antes do passo 3.
8/4/2023 - 09:094
ESPECIFICAÇÃO TÉCNICA
************************************************************************* ** ******************************************** ** * Confidencial e Proprietário * ** * Copyright 2007, U&M Mineração * ** * Projeto U&M * ** ******************************************** ** ************************************************************************** ASPEN PROCWORK - Unidade de Negócios SAP **************************************************************************& PROGRAMA : ZFIR002 **& AUTOR : Bruno José Moreira **& DATA : 26.09.2007 **& CHANGE REQUEST : UMDK900716 **& DESCRIÇÃO : Modificação tab.GB01, p/ativar campos substituição* **&---------------------------------------------------------------------** HISTÓRICO DE ALTERAÇÕES **----------------------------------------------------------------------** AUTOR : ** DATA : ** CHANGE REQUEST : ** DESCRIÇÃO : **----------------------------------------------------------------------*REPORT zfir005.
TABLES: gb01.
8/4/2023 - 09:095
ESPECIFICAÇÃO TÉCNICA
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-100.PARAMETERS: p_alt RADIOBUTTON GROUP outp DEFAULT 'X', p_incl RADIOBUTTON GROUP outp, p_excl RADIOBUTTON GROUP outp.
PARAMETERS: p_bool LIKE gb01-boolclass , "Classe booleana. p_class LIKE gb01-classtype. "Ctg.de classe: ler ou escrever.SELECTION-SCREEN SKIP 1 .
PARAMETERS: p_bclta LIKE gb01-bcltab, "Nome de tabela . p_bcfie LIKE gb01-bclfield. "Campo que pertence a esta classeSELECTION-SCREEN SKIP 1.
PARAMETERS: p_bexcl LIKE gb01-bexclude. "Código: campo não pode ser utilizadoSELECTION-SCREEN SKIP 1 .SELECTION-SCREEN END OF BLOCK blk1 .
IF NOT p_alt IS INITIAL. SELECT * INTO gb01 FROM gb01 WHERE boolclass EQ p_bool AND classtype EQ p_class AND bcltab EQ p_bclta AND bclfield EQ p_bcfie .
IF sy-subrc EQ 0. gb01-bexclude = p_bexcl. MODIFY gb01. ENDIF. ENDSELECT.
ELSEIF NOT p_incl IS INITIAL. gb01-boolclass = p_bool. gb01-classtype = p_class. gb01-bcltab = p_bclta. gb01-bclfield = p_bcfie. gb01-bexclude = p_bexcl. INSERT gb01.
ELSE. DELETE FROM gb01 WHERE boolclass EQ p_bool AND classtype EQ p_class AND bcltab EQ p_bclta AND bclfield EQ p_bcfie AND bexclude EQ p_bexcl.
ENDIF. .
8/4/2023 - 09:096
ESPECIFICAÇÃO TÉCNICA
3. Regeração de Códigos Obs: Para que as regras acima fossem ativadas pelo SAP dois programas de regeração de códigos ABAP tiveram que ser rodados, de acordo com as figuras abaixo, rodar preferencialmente em monousuário.
Programa : RGUGBR01
8/4/2023 - 09:097
ESPECIFICAÇÃO TÉCNICA
Programa: RGUGBR00
8/4/2023 - 09:098
ESPECIFICAÇÃO TÉCNICA
Plano de Teste Específico
Conferência dos dados mestres realizada pelo consultor funcional responsável pelo desenvolvimento.
Informações Adicionais
Históricos das Revisões
Data Descrição
Aprovação da Especificação
Fica estabelecido que as definições identificadas através desta especificação, servirão como fonte única de referência para a realização do(s) serviço(s) relacionado(s), no projeto acima citado.
Responsáveis:
____________________________, aprovado em ____ de ______________ de 2007.Cliente
____________________________, aprovado em ____ de ______________ de 2007.Consultor Funcional
____________________________, aprovado em ____ de ______________ de 2007.Analista / Consultor ABAP
8/4/2023 - 09:099