Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de entrada que permite aplicar um De/Para no Status da OS. OBS: O sistema continuará efetuando as validações com os Status padrão.

Localização:

Atualizações \ Mov Oficina \ Req. Peças

Eventos:

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿

//³Valida se a Ordem de Servico esta aberta.³

//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

if iif(lOm020Ast,ExecBlock("OM020AST",.F.,.F.,{VO1->VO1_STATUS}),VO1->VO1_STATUS) # "A"

Help(" ",1,"OSNABERTA")


DbSelectArea("VO1")

DbSetOrder(1)

// Eval(bFiltraBrw)


Return


EndIf

Programa Fonte:

OFIOM020.PRW

Função:

OFIOM020()

Parâmetros:
NomeTipoDescrição

cStatus

Caractere

ParamIXB[1] - Status da Ordem de Serviço(VO1_STATUS)

Retorno:
NomeTipoDescrição

cStatus

Caractere

Status da Ordem de Serviço(VO1_STATUS)

Exemplo:

Include totvs.ch

#include "Protheus.ch"


User function OM020AST()

Local cStatus := ""


cStatus := ParamIXB[1]


Return(cStatus)