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
Next
If lRet
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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas