boa tarde! Sera que alguem tem algum material sobre Query dinamica estou querendo saber o que é e como utilizar, pois ja escutei falar que ganha-se muito utilizando este tipo de Query. abraços Mdefarias
segue um exemplo: DEFINE VARIABLE wh_query AS WIDGET-HANDLE NO-UNDO. DEFINE VARIABLE ch_query-prepare AS CHARACTER NO-UNDO. wh_query = SEUBROWSE:query. ch_query-prepare = "FOR EACH tabela" + " WHERE tabela.nome = " + " ' " + nome + " ' " + " AND tabela.valor >= " + string( valor). wh_query:query-prepare(c-query-prepare). wh_query:query-open(). outro exemplo: def var qh-teste as handle. def var bh-teste as handle. CREATE BUFFER bh-teste FOR TABLE "emitente". CREATE QUERY qh-teste. qh-teste:SET-BUFFERS(bh-teste). qh-teste:QUERY-PREPARE("for each emitente no-lock"). /* clausula WHERE vai aqui */ qh-teste:QUERY-OPEN(). REPEAT: qh-teste:GET-NEXT(). IF qh-teste:QUERY-OFF-END THEN LEAVE. disp bh-teste:BUFFER-FIELD("nome-abrev"):BUFFER-VALUE. END.
