Função auxiliar – GetLastQuery()

Blog Advpl - Share knowledge

Função auxiliar – GetLastQuery()

Após a abertura do cursor, no alias especificado, a função GetLastQuery() retorna um array, com 5 elementos, onde estão disponíveis as seguintes informações sobre a query executada.

[1] cAlias – Alias usado para abrir o cursor.
[2] cQuery – Query executada.
[3] aCampos – Array de campos com critério de conversão especificados.
[4] lNoParser – Caso verdadeiro (.T.), não foi utilizada a função ChangeQuery() na string original.
[5] nTimeSpend – Tempo, em segundos, utilizado para abertura do cursor.

 

BeginSql alias 'E2TEMP'   
    column E2_EMISSAO as Date, E2_VALOR as Numeric(tam_cp,2)   
    column  QEK_SKLDOC As Logical          %noparser%   
    SELECT SE2.E2_PREFIXO,
        SE2.E2_NUM, 
        SE2.E2_FORNECE, 
        SE2.E2_LOJA,
        SE2.E2_VALOR, 
        SE2.D_E_L_E_T_ DEL1, 
        QEK.D_E_L_E_T_ DEL2 , 
        QEK.QEK_SKLDOC, 
        SE2.R_E_C_N_O_ SE2RECNO    
    FROM %table:SE2% SE2,%table:qeK% QEK           
    WHERE SE2.E2_FILIAL= %xfilial:SE2% 
    AND qek.%notDel%  
    AND SE2.E2_PREFIXO<> %exp:cPrefixo% 
    AND SE2.E2_NUM<> %exp:(cAlias)->M0_CODIGO% 
    AND SE2.E2_NUM<>45        
    AND SE2.E2_FORNECE=%exp:Space(Len(SE2->E2_FORNECE))% 
    AND SE2.E2_EMISSAO<>%exp:MV_PAR06% 
    AND SE2.E2_LOJA<>%exp:MV_PAR05% 
    AND SE2.E2_VALOR<>%exp:MV_PAR04% 
    AND qek.QEK_SKLDOC<>%exp:MV_PAR03%   
    AND SE2.%notDel%   
    ORDER BY %Order:SE2,1% 
EndSql

————————————————————–

Código-fonte gerado pelo pré-compilador (PPO) 
__execSql('E2TEMP'
,' SELECT SE2.E2_PREFIXO
,SE2.E2_NUM
, SE2.E2_FORNECE
, SE2.E2_LOJA
,SE2.E2_VALOR
, SE2.D_E_L_E_T_ DEL1
, QEK.D_E_L_E_T_ DEL2 
, QEK.QEK_SKLDOC
, SE2.R_E_C_N_O_ SE2RECNO 
FROM '+RetSqlName('SE2')+' SE2
, '+RetSqlName('QEK')+' QEK 
WHERE SE2.E2_FILIAL= '' +xFilial ('SE2')+ '' 
AND qek.D_E_L_E_T_= ' ' 
and SE2.E2_PREFIXO<> '+___SQLGetValue(CPREFIXO)+' 
AND SE2.E2_NUM<> '+___SQLGetValue((CALIAS) ->M0_CODIGO)+ ' 
AND SE2.E2_NUM<>45 
AND SE2.E2_FORNECE= '+___SQLGetValue(SPACE(LEN(SE2->E2_FORNECE)))+' 
AND SE2.E2_EMISSAO<> '+___SQLGetValue(MV_PAR06)+ ' 
AND SE2.E2_LOJA<> '+___SQLGetValue(MV_PAR05)+' 
AND SE2.E2_VALOR<> '+___SQLGetValue(MV_PAR04)+' 
AND qek.QEK_SKLDOC<> ' +___SQLGetValue(MV_PAR03)+' And SE2.D_E_L_E_T_= ' ' 
ORDER BY '+ SqlOrder(SE2->(IndexKey(1))),{{'E2_EMISSAO','D',8,0}, {'E2_VALOR','N',tam_cp,2},{'QEK_SKLDOC','L',1,0}},.T.)

 

 

Português Português Español Español English English