DT_OXC09SQL_Incrementa_o_SQL_com_filtros_desejados

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"

//

Função:

FS_LEVANTA