Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

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


EndIf

EndIf


Return _cStatus

Programa Fonte:

OFIXFUNA.PRW

Função:

FMX_GRVOSSTAT()

Parâmetros:
NomeTipoDescriçã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