Histórico da Página

Programa Fonte TMSA310.PRW

Retorno lRet(logico)
//O Retorno do Ponto de Entrada deverá ser lógico  

//Exemplos 
User Function TMA310DTW()

Local cFilOri 	:= ParamIxb[2]
Local cViagem 	:= ParamIxb[3]
Local cAtivSai	:= GetMv('MV_ATIVSAI',,'')  

DTW->(DbSetOrder(4))
If DTW->(DBSeek(xFilial("DTW") +  cFilOri +  cViagem  + cAtivSai))
	    Reclock('DTW',.F.)
	    DTW->DTW_DATINI   := Date()
	dDataBase
    DTW->DTW_HORINI   := SubStr(Time()
	),1,2) + SubStr(Time(),4,2)
    DTW->DTW_DATREA   := Date()
	dDataBase
    DTW->DTW_HORREA   := SubStr(Time(),1,2) + SubStr(Time
	(),4,2)
    DTW->DTW_STATUS   := StrZero(2, Len(DTW->DTW_STATUS))
	    MsUnLock()
EndIf  

Return .T.