Histórico da Página

Ponto de Entrada

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.

Localização:

Atualizações / Mov Oficina / Liberação OS

Atualizações / Mov Oficina / Cancelamento OS

Atualizações / Mov Oficina / Fechamento OS Mod2

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

Return _cStatus

Programa Fonte:

OFIXFUNA.PRW

Função:

FMX_GRVOSSTAT()

Parâmetros:

Nome	Tipo	Descrição
cNumOsv	Caracter	ParamIXB[1] - Numero da Ordem de Serviço
cStatusA	Caracter	ParamIXB[2] - Status atual da Ordem de Serviço
cStatusN	Caracter	ParamIXB[3] - Status novo da Ordem de Serviço
cVO1DATSTA	Caracter	ParamIXB[4] - Data da ultima alteração do Status da Ordem de Serviço
cVO1HORSTA	Caracter	Hora da ultima alteração do Status da Ordem de Serviço

Retorno:

N/A

Exemplo:

Include totvs.ch

#include "Protheus.ch"

User Function OXASTVO1()

Local cNumOsv := ""

Local cStatusA := ""

Local cStatusN := ""

Local cVO1DATSTA := ""

Local cVO1HORSTA := ""

cNumOsv := ParamIXB[1]

cStatusA := ParamIXB[2]

cStatusN := ParamIXB[3]

cVO1DATSTA := ParamIXB[4]

cVO1HORSTA := ParamIXB[5]

return

Árvore de páginas

Versões comparadas

Versão antiga 30

Nova versão 31

Chave

Ponto de Entrada