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)