Ponto de Entrada
Descrição: | Este Ponto de Entrada está localizado na rotina de Consulta de Peças por Aplicação, e será executado após montar o SQL que levanta os registros do SB1 relacionados a Aplicação posicionada no listbox. Finalidade: Pode ser utilizado para incrementar o SQL com mais filtros desejados. Exemplo: Return(" AND SB1.B1_GRUPO<>'X') |
Eventos: | cQuery := "SELECT DISTINCT SB1.B1_GRUPO , SB1.B1_CODITE , SB1.R_E_C_N_O_ RECSB1 " cQuery += "FROM "+RetSqlName("VQQ")+" VQQ " cQuery += "JOIN "+RetSqlName("SB1")+" SB1 ON ( SB1.B1_FILIAL='"+xFilial("SB1")+"' AND SB1.B1_COD=VQQ.VQQ_CODSB1 AND SB1.D_E_L_E_T_=' ' ) " cQuery += "WHERE VQQ.VQQ_FILIAL='"+xFilial("VQQ")+"' AND " If !lFamApl cQuery += "VQQ.VQQ_CODFAM='"+cFamAplSel+"' AND " EndIf If !lMarVei cQuery += "VQQ.VQQ_CODMAR='"+cMarVeiSel+"' AND " EndIf If !lTSGr .and. !lFamApl // SubGrupo cQuery += " ( " For nPos1 := 1 to len(aSGrApl) If aSGrApl[nPos1,1] cQuery += " VQQ.VQQ_SUBGRU='"+aSGrApl[nPos1,4]+"' OR " EndIf Next cQuery := left(cQuery,len(cQuery)-4)+" ) AND " EndIf If !lTMod .and. !lMarVei // Marca / Modelo cQuery += " ( " For nPos1 := 1 to len(aAux) cQuery += " VQQ.VQQ_MODVEI IN (' ',"+aAux[nPos1,3]+") OR " Next cQuery := left(cQuery,len(cQuery)-4)+" ) AND " EndIf // cQuery += "VQQ.VQQ_ANOINI='"+left(aAplFil[nLinha,1],4)+"' AND VQQ.VQQ_MESINI='"+right(aAplFil[nLinha,1],2)+"' AND " cQuery += "VQQ.VQQ_ANOFIN='"+left(aAplFil[nLinha,2],4)+"' AND VQQ.VQQ_MESFIN='"+right(aAplFil[nLinha,2],2)+"' AND " cQuery += "VQQ.VQQ_QTDPOR='"+aAplFil[nLinha,3]+"' AND " cQuery += "VQQ.VQQ_POTMOT="+Alltrim(str(aAplFil[nLinha,4]))+" AND " cQuery += "VQQ.VQQ_CMPMOT='"+aAplFil[nLinha,5]+"' AND " cQuery += "VQQ.VQQ_COMBUS='"+aAplFil[nLinha,6]+"' AND " cQuery += "VQQ.VQQ_OBSERV='"+aAplFil[nLinha,7]+"' AND " cQuery += "VQQ.D_E_L_E_T_=' ' " // If ExistBlock("OXC09SQL") cQuery += ExecBlock("OXC09SQL",.F.,.F.) EndIf cQuery += "ORDER BY SB1.B1_GRUPO , SB1.B1_CODITE" // |
Programa Fonte: | OFIXC009 |
Função: | FS_LEVANTA |
Retorno: | cQueryRet - Incremento do SQL |
Exemplo:
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³ OXC09SQL º Autor ³ Andre Luis Almeida º Data ³ 21/06/16 º±±
±±ÌÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDescricao³ Ponto de Entrada executado apos montar o SQL que levanta os º±±
±±º ³ registros do SB1 relacionados a Aplicação posicionada no º±±
±±º ³ listbox. Pode ser utilizado para incrementar o SQL com mais º±±
±±º ³ filtros desejados. Exemplo: Return(" AND SB1.B1_GRUPO<>'X') º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function OXC09SQL()
Local cQueryRet := ""
MsgAlert("Ponto de Entrada OXC09SQL executado com sucesso!")
Return(cQueryRet)