Data de Vigência do Tratamento

 Características do Requisito

HSM24MSO 

Descrição

Ponto de Entrada par manipular data de Vigência do tratamento.

||Observações|| 
||Exemplos||User Function HSFUSVIG() 
Local aArea := GetArea()
Local dVigIni := CTOD("")   
Local dVigFim := CTOD("")
DbSelectArea("SCJ")
DbSetOrder(1)
If DBSeek(xFilial("SCJ") + ParamIxb[1]) .AND. HS_ExisDic({{"C", "CJ_DICLTRA"}},.F.)
 dVigIni := SCJ->CJ_DICLTRA
 dVigFim := SCJ->CJ_DFCLTRA
EndIf

RestArea(aArea)
Return({dVigIni, dVigFim})

||Updates|| 
||Parâmetros|| Array of Record   {aSCJ,SA1->A1_COD}
Ascj SCJ_NUM Numero do Contrato
SA1->A1_COD Código do Cliente
||Retorno|| aVigOrc
Data Vigencia Inicial
Data Vigencia Final
||Eventos de chamada do Ponto de Entrada|| 
||Variáveis|| 
||Programa Fonte|| HSPAHM57.PRW HSPFUNCS.PRW