Histórico da Página

Ponto de Entrada

Descrição:	Ponto de Entrada utilizado para fazer validações no momento da Inicialização da OS na Fila da Oficina. Atenção: a rotina Fila de O.S. (OFIOM490) se encontra em homologação. Assim que a mesma for aprovada e disponibilizada, este aviso será removido e a documentação para implementação da mesma será disponibilizada no TDN.
Parâmetros:	1o) tamanho da matriz da OS 2o) tamanho da matriz do Produtivo
Eventos:	Static Function OFM490014_IniciarOS() Local cNumOsv Local cNumOsRet Local cCodVAI Local cTipTem := "" Local lExistPE := ExistBlock("OM490PRO") If Len(oLBoxProdutivo:aArray) <= 0 ShowHelpDlg ( "OFM490SEMPRODUT", { "Não existe produtivo disponível para iniciar trabalho." }) Return EndIf If Len(oLBoxFilaOS:aArray) <= 0 ShowHelpDlg ( "OFM490SEMOS", { "Não existe ordem de serviço na fila." }) Return EndIf cNumOsv := oLBoxFilaOS:aArray[1,OS_NUMOSV] cTipTem := oLBoxFilaOS:aArray[1,OS_TIPTEM] cCodVAI := oLBoxProdutivo:aArray[1,2] cNumOsRet := cNumOsv If lExistPE cNumOsRet := ExecBlock("OM490PRO",.f.,.f.) // EndIf If Empty(cNumOsRet) Return Endif If cNumOsRet <> cNumOsv cNumOsv := cNumOsRet nPos := Ascan(oLBoxFilaOS:aArray,{\|x\| x[1] == cNumOsv}) cTipTem := oLBoxFilaOS:aArray[1,OS_TIPTEM] Endif
Programa Fonte:	OFIOM490.PRW
Função:	OFM490014_IniciarOS()
Retorno:	Numero da OS

Exemplo:

// Ponto de Entrada utilizado para fazer validações no momento da Inicialização da OS na Fila da Oficina.

// Autor: MIL

User Function OM490PRO()

Local nTamMatrizOS := PARAMIXB[1] // tamanho da Matriz da OS

Local nTamMatrizPr := PARAMIXB[2] // tamanho da Matriz do Produtivo

Local ni := 0

Local lRet := .f.

//Busca a habilidade do Produtivo x OS

For ni := 1 to Len(oLBoxFilaOS:aArray)

If Empty(oLBoxFilaOS:aArray[ni,nTamMatrizOS+1]) .or. oLBoxFilaOS:aArray[ni,nTamMatrizOS+1] ==

oLBoxProdutivo:aArray[1,nTamMatrizPr+1]

lRet := .t.

exit

Endif

Return(oLBoxFilaOS:aArray[ni,1]) // retorna o Numero da OS

Else

MsgStop("Não Existe OS com Habilidade para este Produtivo! Favor falar com o Gestor da Fila para que o mesmo faça

o processo manualmente!")

Return("")

Endif