OXASTVO1 Ponto de Entrada para permitir identificar antes da atualização do status da OS, o seu status anterior, sua data e hora da ultima atualização

Descrição:

Ponto de Entrada chamado quando ocorre a alteração do Status da Ordem de Serviço. Chamado dentro da função FMX_GRVOSSTAT. Permite identificar antes da atualização do status da OS, o seu status anterior, sua data e hora da ultima atualização.

Eventos:

Function FMX_GRVOSSTAT(_cNumOsv,_cStatus)

Local lVO1DATSTA := VO1->(FieldPos("VO1_DATSTA")) > 0

Local lVO1HORSTA := VO1->(FieldPos("VO1_HORSTA")) > 0

Default _cNumOsv := ""

Default _cStatus := ""

If !Empty(_cNumOsv)

If Empty(_cStatus)

If ExistBlock("OXASTVO1")

ExecBlock("OXASTVO1",.f.,.f.,{_cNumOsv,_cStatus,iif(lVO1DATSTA,VO1->VO1_DATSTA,nil),iif(lVO1HORSTA,VO1->VO1_HORSTA,nil)})

Endif

_cStatus := FMX_OSSTAT( _cNumOsv )

EndIf

If _cStatus <> VO1->VO1_STATUS

DbSelectArea("VO1")

If lVO1DATSTA

VO1->VO1_DATSTA := dDataBase

EndIf

If lVO1HORSTA

VO1->VO1_HORSTA := val(left(time(),2)+substr(time(),4,2))

EndIf

EndIf

EndIf

Return _cStatus

Função:

FMX_GRVOSSTAT()