Este Ponto de Entrada permite manipular as Querys das tabelas (VS1,VO4 e VO3).

VEIFUNA

PEQRYACR - Manipulação das Querys das Tabelas ( [ VO3 ], [ VO4 ], [ VS1 ] ) --> cQuery

cQuery(caracter)
• Retornar o conteudo da query.

cQuery := "SELECT VOK.R_E_C_N_O_ VOKRECNO , VO4.R_E_C_N_O_ VO4RECNO , VO4.VO4_NUMOSV , VO4.VO4_TIPTEM , VO4.VO4_FILIAL , VO4.VO4_TIPSER , VO4.VO4_GRUSER , VO4.VO4_CODSER , VOK.VOK_INCMOB , VOK.VOK_INCTEM , VO2.R_E_C_N_O_ VO2RECNO FROM "+RetSqlName("VO4")+" VO4 "	cQuery += "INNER JOIN "+RetSQLName("VO2")+" VO2 ON VO2.VO2_FILIAL = VO4.VO4_FILIAL AND VO2.VO2_NOSNUM = VO4.VO4_NOSNUM AND VO2.D_E_L_E_T_=' ' "	cQuery += "INNER JOIN "+RetSQLName("VOK")+" VOK ON VOK.VOK_FILIAL = "+Iif(Empty(xFilial("VOK")),"'"+xFilial("VOK")+"'","VO4.VO4_FILIAL")+" AND VOK.VOK_TIPSER = VO4.VO4_TIPSER AND VOK.D_E_L_E_T_=' ' "	cQuery += "INNER JOIN "+RetSQLName("VOI")+" VOI ON VOI.VOI_FILIAL = "+Iif(Empty(xFilial("VOI")),"'"+xFilial("VOI")+"'","VO4.VO4_FILIAL")+" AND VOI.VOI_TIPTEM = VO4.VO4_TIPTEM AND VOI.D_E_L_E_T_=' ' "	cQuery += "WHERE VO4.VO4_FILIAL IN "+FormatIN(FM_ALLFIL("VO4"),",")+" AND "	cQuery += "VO4.VO4_FATPAR='"+cCodCli+"' AND "	If cCreCli == "L"		cQuery += "VO4.VO4_LOJA='"+cLoja+"' AND "	EndIf                                                                                                  	cQuery += "VO4.VO4_DATFEC='"+space(8)+"' AND VO4.VO4_DATCAN='"+space(8)+"' AND "	cQuery += "VOI.VOI_SITTPO='1' AND "	cQuery += "VO4.D_E_L_E_T_=' ' "	cQuery += "ORDER BY VO4.VO4_NUMOSV, VO4.VO4_TIPTEM, VO4.VO4_TIPSER , VO4.VO4_GRUSER , VO4.VO4_CODSER, VO4.VO4_SEQUEN "	If ExistBlock("PEQRYACR")		cRetorno := ExecBlock("PEQRYACR",.f.,.f.,{"VO4"}) // Ponto de entrada para manipulacao da query.	    if !Empty(cRetorno)			cQuery := cRetorno		Endif	EndIf	dbUseArea( .T., "TOPCONN", TcGenQry( ,, cQuery ), cQAlVO4 , .F., .T. )