Ponto de Entrada
Descrição: | Ponto de Entrada implementado para acrescentar regras na seleção padrão de levantamento de OS's para a 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: | Query de seleção Padrão |
Eventos: | |
Programa Fonte: | OFIOM490.PRW |
Função: | OFM490011_FilaOS() |
Retorno: | Query alterada |
Exemplo:
// Ponto de Entrada selecionado para acrescentar regras na seleção padrão de levantamento de OS's para a Fila da Oficina.
User Function OM490FOS()
Local cRet := ParamIxb[1]
cQuery :=;
"SELECT DISTINCT " +;
"CASE " +;
"WHEN VO4.VO4_DATFIN = ' ' THEN '0-EXECUCAO' " +;
"ELSE '1-PAUSA' " +;
"END AS STATSRV," +;
"CASE " +;
"WHEN VO4_DATINI <> ' ' THEN '0-SIM' " +;
"ELSE '1-NAO' " +;
"END AS INICIALIZADO, " +;
"VO1.*, " +;
"SA1.A1_COD, SA1.A1_LOJA, SA1.A1_NOME, " +;
"VO4.VO4_TIPTEM, VO4.VO4_SRVFIN, VO4.VO4_MPAUSA, VO4.VO4_CODPRO," +;
"VAI.*" +;
" FROM " + RetSQLName("VO1") + " VO1 " +;
" JOIN " + RetSQLName("VO2") + " VO2 ON VO2.VO2_FILIAL = '" + xFilial("VO2") + "' " +;
" AND VO2.VO2_NUMOSV =
VO1.VO1_NUMOSV " +;
" AND VO2.VO2_TIPREQ = 'S'
"+;
" AND VO2.D_E_L_E_T_ = ' '
" +;
" JOIN " + RetSQLName("VO4") + " VO4 ON VO4.VO4_FILIAL = '" + xFilial("VO4") + "' " +;
" AND VO4.VO4_NOSNUM =
VO2.VO2_NOSNUM " +;
" AND VO4.D_E_L_E_T_ = '
'" +;
" JOIN " + RetSQLName("VOK") + " VOK ON VOK.VOK_FILIAL = '" + xFilial("VOK") + "'" + ;
" AND VOK.VOK_TIPSER =
VO4.VO4_TIPSER " +;
" AND VOK.VOK_INCMOB NOT
IN ('5','6') " +; // Desconsidera Srvc Terceiro e Franquia
" AND VOK.D_E_L_E_T_ = '
'" +;
" JOIN " + RetSQLName("VV1") + " VV1 ON VV1.VV1_FILIAL = '" + xFilial("VV1") + "' " +;
" AND VV1.VV1_CHAINT =
VO1.VO1_CHAINT " +;
" AND VV1.D_E_L_E_T_ = '
'" +;
" LEFT JOIN " + RetSQLName("VAI") + " VAI ON VAI.VAI_FILIAL = '" + xFilial("VAI") + "' "
+;
" AND VAI.VAI_CODTEC =
VO4.VO4_CODPRO " +;
" AND VAI.D_E_L_E_T_ = '
'" +;
" LEFT JOIN " + RetSQLName("SA1") + " SA1 ON SA1.A1_FILIAL = '" + xFilial("SA1") + "' " +;
" AND SA1.A1_COD =
VV1.VV1_PROATU " +;
" AND SA1.A1_LOJA =
VV1.VV1_LJPATU " +;
" AND SA1.D_E_L_E_T_ = '
'" +;
" WHERE VO1.VO1_FILIAL = '" + xFilial("VO1") + "' " +;
" AND VO1.VO1_STATUS = 'A'" +;
" AND VO1.VO1_XSTATU IN ('2','4') " +;
" AND VO1.D_E_L_E_T_ = ' '" +;
" ORDER BY VO1.VO1_NUMOSV, VO4.VO4_TIPTEM, 2, 1"