Tempo aproximado para leitura: 05 min

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus
Segmento:RH
Módulo:SIGAGPE
Função:

GPEA070

Issue:DRHPAG-24117


02. SITUAÇÃO/REQUISITO

A partir da release 12.1.25 o alias TPR (arquivo temporário onde são gravados valores de provisão) deixará de ser utilizado, de modo que será preciso utilizar a variável pública cTBLXPROV que contém o Alias utilizado pelas rotinas de provisão. 

Esta alteração tem reflexos em alguns pontos de entrada, desta forma as customizações precisam ser ajustadas. Os principais pontos de entrada são: 

GP070FIM,GP070ANT,GP070VEN,GP070V13,GP070VIF,GP070PRO,GP070P13,GP070PIF,GP070BIF,GP090DEC,GP090DIF,GP090F13,GP090BIF,GP090B13,GP070CHK,GP070GRV

Todos os pontos de entradas que fizerem uso do alias TPR devem ser ajustados para uso da variável pública cTBLXPROV (exemplificações abaixo).


03. EXEMPLOS

Exemplificaremos a seguir o uso do ponto de entrada GP070GRV com ajuste do alias.

Abaixo demonstramos a customização no formato antigo, onde era referenciado o arquivo temporário de médias através do alias TPR:

Function GP070GRV()
Local aArea := GetArea()
Local cFilial := PARAMIXB[1]
Local cMat := PARAMIXB[2]
Local nTpProv := PARAMIXB[3]

If  TPR->PR_SITFOLH == "D" 
IF RecLock( "SRT" , .F. )
SRT->(dbdelete())
SRT->( MsUnlock() )
EndIF
EndIf
RestArea( aArea )
Return


Agora, a mesma customização com a substituição do alias TPR pelo novo alias (cTBLXPROV ):

Function GP070GRV()
Local aArea := GetArea()
Local cFilial := PARAMIXB[1]
Local cMat := PARAMIXB[2]
Local nTpProv := PARAMIXB[3]

If  (cTBLXPROV)->PR_SITFOLH == "D" 
IF RecLock( "SRT" , .F. ) 
SRT->(dbdelete())
SRT->( MsUnlock() ) 
EndIF
EndIf 
RestArea( aArea )
Return


As customizações Rdmakes que executam funções e utilizam informações de provisões devem ser ajustadas com o mesmo procedimento, substituindo o alias TPR pelo novo alias (cTBLXPROV ) conforme exemplo citado.


a) As adaptações nas customizações serão obrigatórias para clientes que estiverem atualizados com o release 12.1.25 em diante, no entanto, as mesmas já podem ser executadas em releases anteriores (12.1.17 / 12.1.23), planejamento esse que aconselhamos nossos clientes a seguirem desde já desde de que cumpram os pré-requisitos abaixo:

ProgramaVersão a partir de:
GPEM070.PRX

18/03/2019 

GPEM110.PRX18/03/2019
GPEM630.PRX18/03/2019
GPER070.PRX18/03/2019
GPEXFUN1.PRX18/03/2019
RHLIBLCK.PRX18/03/2019


b) Obedecendo ao ciclo de vida dos releases Protheus, o último release no qual ainda será possível utilizar as customizações sem a revitalização será o 12.1.23, o qual tem ciclo de vida previsto para encerramento em Agosto/2020, ou seja, essa é a data máxima para que todas as customizações tenham sido revitalizadas para os clientes que estiverem utilizando o release 12.1.23.





<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>