Adequação obrigatória das customizações que utilizam informações de Provisão(RH)

Tempo aproximado para leitura: 05 min

01. DADOS GERAIS

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.