DT_OM490ASV_Substituicao_dos_conteudos_da_Matriz_de_Servicos_por_OS_na_Fila_da_Oficina

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