Histórico da Página
Ponto de Entrada
Descrição: | Ponto de Entrada utilizado para substituir os conteúdos da Matriz de Serviços por Ordem de Serviço 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: | Numero da OS Tipo de Tempo Codigo do Serviço |
Eventos: | Local nPos := Ascan(aSrvsOS,{|x| x[1]+x[2] == oLBoxFilaOS:aArray[nPosLbFOS,OS_NUMOSV]+oLBoxFilaOS:aArray[nPosLbFOS,OS_TIPTEM]}) Local lPEASrvOs := ExistBlock("OM490ASV") |
aOSSrvc := {} |
For ni := nPos to Len(aSrvsOS) If aSrvsOS[ni,1]+aSrvsOS[ni,2] == oLBoxFilaOS:aArray[nPosLbFOS,OS_NUMOSV]+oLBoxFilaOS:aArray[nPosLbFOS,OS_TIPTEM] If lPEASrvOs ExecBlock("OM490ASV",.f.,.f.,{ oLBoxFilaOS:aArray[nPosLbFOS,OS_NUMOSV] ,; // Nro da OS oLBoxFilaOS:aArray[nPosLbFOS,OS_TIPTEM] ,; // Tipo de Tempo aSrvsOS[ni,3] }) // Coódigo do Serviço Else aadd(aOSSrvc,{ aSrvsOS[ni,3], aSrvsOS[ni,4] } ) Endif Else Exit Endif Next |
oLBoxOSSrvc:SetArray(aOSSrvc) oLBoxOSSrvc:Refresh() |
return |
Programa Fonte: | OFIOM490.PRW |
Função: | OFM49029_OSSrvc() |
Retorno: | Query alterada |
Exemplo:
User Function OM490ASV()
Local cSVNumOsv := ParamIXB[1]
Local cSVTipTem := ParamIXB[2]
Local cSVCodSer := ParamIXB[3]
Local cQrySrv := ""
cQrySrv := ;
"SELECT VO4_VALSER, VST_DESINC " +;
" FROM " + RetSQLName("VO4") + " VO4 " +;
" JOIN " + RetSQLName("VST") + " VST ON " +;
" VST.VST_FILIAL = '" + xFilial("VST") + "'" +;
" AND VST.VST_TIPO = '2'" +;
" AND VST.VST_CODIGO = VO4.VO4_NUMOSV" +;
" AND VST.VST_SEQINC = VO4.VO4_SEQINC" +;
" AND VST.D_E_L_E_T_ = ' ' " +;
" WHERE VO4.VO4_FILIAL = '" + xFilial("VO4") + "'" +;
" AND VO4.VO4_NUMOSV = '" + cSVNumOsv + "'" +;
" AND VO4.VO4_TIPTEM = '" + cSVTipTem + "'" +;
" AND VO4.VO4_CODSER = '" + cSVCodSer + "'" +;
" AND VO4.D_E_L_E_T_ = ' '"
dbUseArea( .T., "TOPCONN", TcGenQry( ,, cQrySrv ), cAuxSrvcAlias, .F., .T. )
dbSelectArea(cAuxSrvcAlias)
While !(cAuxSrvcAlias)->(Eof())
aadd(aOSSrvc,{ Left( (cAuxSrvcAlias)->(VST_DESINC) , 40 ) , (cAuxSrvcAlias)->(VO4_VALSER) , cSVTipTem } )
DbSkip()
Enddo
DbCloseArea()
Return