Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: PEQRYACR - Manipulação das Querys das Tabelas
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
Descrição: 
Este Ponto de Entrada permite manipular as Querys das Tabelas (VS1,VO4 e VO3).
Eventos
 User Function PEQRYACR()   
    cRet := ParamIXB[1]
    cQuery := ""
    if cRet == "VO4"
cQuery := "SELECT  VO4_TIPSER , VO4.VO4_GRUSER , VO4.VO4_CODSER FROM "+RetSqlName("VO4")+" VO4 "
cQuery += "WHERE VO4.VO4_FILIAL IN "+FormatIN(FM_ALLFIL("VO4"),",")+" AND "
cQuery += "VO4.D_E_L_E_T_=' ' "
    Endif
Return(cQuery)
Programa Fonte 
VEIFUNA
Sintaxe

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

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
VO3 Caracter Requisição de Peças
VO4 Caracter Requisição de Serviços
VS1 Caracter Orçamento
Retorno
    cQuery(caracter)
  • Retornar o conteudo da query.
Observações
 
Exemplos 
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. )
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não