Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • PL790QRY - Modificação de Filtro da Query

Ponto-de-Entrada: PL790QRY - Modificação de Filtro da Query
Versões: Microsiga Protheus 8.11
Compatível Países: Todos
Sistemas Operacionais: Todos
Idiomas: Espanhol , Inglês
Descrição: 
Ponto de entrada que permite ao cliente modificar o filtro da query que carrega os procedimentos que estão em auditoria.
Eventos

Programa Fonte 
PLSA790.PRW
Sintaxe

PL790QRY - Modificação de Filtro da Query ( < cSQL1> , < cSQL3> , < cSQL5> ) --> aRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
cSQL1 Caracter Filtro ("Where") da primeira Query. (Relacionamento entre as tabelas BE2 e BEA) X
cSQL3 Caracter Filtro ("Where") da segunda Query. (Relacionamento entre as tabelas BQV e BEA) X
cSQL5 Caracter Filtro ("Where") da terceira Query. (Relacionamento entre as tabelas B44, B45 e BR8) X
Retorno
    aRet(array_of_record)
  • Retorna um array com os filtros passados como parâmetro modificados. Ex: aRet[1] deve conter o filtro da primeira Query, aRet[2] deve conter o filtro da segunda Query e, por fim, aRet[3] deve conter o filtro da terceira Query.
Observações

Exemplos 
User Function PL790QRY()LOCAL aQRY	:= {}LOCAL cSQL1 := Paramixb[1]LOCAL cSQL2 := Paramixb[2]LOCAL cSQL3	:= Paramixb[3]cSQL1 := " WHERE BE2_FILIAL = '"+xFilial("BE2")+"' "cSQL1 += "   AND BE2_AUDITO = '1' "   cSQL1 += "   AND BE2_STATUS = '0' " cSQL1 += "   AND "+RetSQLName("BE2")+".D_E_L_E_T_ = ' ' "cSQL1 += "   AND BEA_FILIAL 	= '"+xFilial("BEA")+"' "cSql1 += "	AND BEA_FILIAL  = BE2_FILIAL "cSQL1 += "   AND BEA_OPEMOV 	= BE2_OPEMOV "cSQL1 += "   AND BEA_ANOAUT	= BE2_ANOAUT "cSQL1 += "   AND BEA_MESAUT 	= BE2_MESAUT "cSQL1 += "   AND BEA_NUMAUT 	= BE2_NUMAUT "cSQL1 += "   AND "+RetSQLName("BEA")+".D_E_L_E_T_ = ' ' "cSQL1 += cFilBE2       aAdd(aQRY, cSQL1)cSQL2 := " WHERE BQV_FILIAL 	= '"+xFilial("BQV")+"' "cSQL2 += "   AND BQV_AUDITO 	= '1' "   cSQL2 += "   AND BQV_STATUS 	= '0' "   cSQL2 += "   AND "+RetSQLName("BQV")+".D_E_L_E_T_ = ' ' "cSQL2 += "   AND BEA_FILIAL 	= '"+xFilial("BEA")+"' "cSql2 += "	AND BEA_FILIAL  = BQV_FILIAL "cSQL2 += "   AND BEA_OPEINT 	= BQV_CODOPE "cSQL2 += "   AND BEA_ANOINT	= BQV_ANOINT "cSQL2 += "   AND BEA_MESINT 	= BQV_MESINT "cSQL2 += "   AND BEA_NUMINT 	= BQV_NUMINT "cSQL2 += "   AND "+RetSQLName("BEA")+".D_E_L_E_T_ = ' ' "aAdd(aQRY, cSQL2)	cSQL3 := " WHERE B45_FILIAL 	= '"+xFilial("B45")+"' "cSQL3 += "   AND B45_AUDITO = '1'"cSQL3 += "   AND B45_STATUS 	= '0' "cSQL3 += "   AND "+RetSQLName("B44")+".D_E_L_E_T_ = ' ' "cSQL3 += "   AND B44_FILIAL 	= '"+xFilial("B44")+"' "cSQL3 += "   AND B44_OPEMOV 	= B45_OPEMOV "cSQL3 += "   AND B44_ANOAUT	= B45_ANOAUT "cSQL3 += "   AND B44_MESAUT 	= B45_MESAUT "cSQL3 += "   AND B44_NUMAUT 	= B45_NUMAUT "    cSQL3 += "   AND BR8_FILIAL 	= B45_FILIAL "cSQL3 += "   AND BR8_CODPAD 	= B45_CODPAD "cSQL3 += "   AND BR8_CODPSA 	= B45_CODPRO "cSQL3 += "   AND "+RetSQLName("B45")+".D_E_L_E_T_ = ' ' "cSQL3 += "   AND "+RetSQLName("BR8")+".D_E_L_E_T_ = ' ' "aAdd(aQRY, cSQL3)Return(aQRY)