Linha Microsiga Protheus

Árvore de páginas

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"