Ponto de Entrada executado para manipulação das querys das tabelas(VS1,VO4 e VO3), no momento da Chamada da Função FG_AVALCRED, que verifica as OS e os Orçamentos em aberto do cliente. A Chamada da função FG_AVALCRED se dá de acordo com o parâmetro MV_CHKCRE:
A-Abertura, I-Importacao, P-Req.Pecas, S-Req.Serv., L-Liberacao, F-Fechamento, B- Pecas/Srv orcamento

User Function PEQRYACR()
cAliasFiltro := ParamIXB[1]
cQuery := ParamIXB[2]
cCliente := ParamIXB[3]
cLoja := ParamIXB[4]
if cAliasFiltro :== "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)

Português(Brasil)

Todas

Todos

Todas

Tabela a ser manipulada na query. (VO3 - Requisição de Peças, VO4 - Requisição de Serviços, VS1 - Orçamento). Exemplo:
ExecBlock("PEQRYACR",.f.,.f.,\{"VO4""VO4",cQuery,cCodCli,cLoja\}

cQuery - 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",cQuery,cCodCli,cLoja\}) // Ponto de entrada para manipulacao da query.
if !Empty(cRetorno)
cQuery := cRetorno
Endif
EndIf
dbUseArea( .T., "TOPCONN", TcGenQry( ,, cQuery ), cQAlVO4 , .F., .T. )

VEIFUNA