FiveTech Support Forums

SET FILTER TO FIELD->EXPEDICION = cVariable

Un saludo

Hola

Ya probé como me dices pero nada, sólo me funciona cuando como te digo, utilizo directamente el valor

Saludos

Jose Luis

SET FILTER TO "expedicion == '" + cvariable + "'"

SET FILTER TO "expedicion = '000410001330'"

SET FILTER TO "expedicion='" + comienzo + "'"

Application
===========
Path and name: C:\fuentes\xharbour\GESPAQ08\gespaqn.Exe (32 bits)
Size: 1,012,736 bytes
Time from start: 0 hours 0 mins 24 secs
Error occurred at: 22/06/08, 19:56:51
Error description: Error ADODB.Recordset/16389 E_FAIL: MOVEFIRST
Args:

Stack Calls
===========
Called from: win32ole.prg => TOLEAUTO:MOVEFIRST(0)
Called from: => ADO_SKIPRAW(383)
Called from: => DBSKIP(0)
Called from: wbrowse.prg => TWBROWSE:PAINT(1048)
Called from: wbrowse.prg => TWBROWSE:DISPLAY(2880)
Called from: CONTROL.PRG => TWBROWSE:HANDLEEVENT(0)[/list:u]

El codigo fuente de todo es:
Code: Select all Collapse

#include "FiveWin.ch"
#include "adordd.ch"
#include "btnget.ch"

REQUEST ADORDD
Memvar Publicas
function access()
local oDlg,olbx
local Titulo:="Paquetes mecanizados"
local base:="Registro.mdb"
local comienzo:=space(12),final,oini,ofin,oboton,oboton1
local continua:=.F.,i,osay

  DEFINE DIALOG oDlg RESOURCE "DESDEFEHORA" BRUSH Publicas:oBrush1 TRANSPARENT Font Publicas:oWPpal:ofont
  for i = 10 to 11
    REDEFINE SAY osay ID i OF oDlg
  next i
  REDEFINE BTNGET oini VAR comienzo ID 101 OF oDlg
  REDEFINE BTNGET ofin VAR final ID 102 OF oDlg
  REDEFINE BUTTON oboton ID 550 OF oDlg PROMPT "Aceptar" ;
				ACTION (Continua := .T., oDlg:End())
  REDEFINE BUTTON oboton1 ID 551 OF oDlg PROMPT "Cancelar" ;
                                ACTION (oDlg:End()) CANCEL
  ACTIVATE DIALOG oDlg CENTERED

if Continua
  USE (Publicas:rMDB+base) VIA "ADORDD" alias paquetes NEW TABLE "UltimoRegistro" 
if paquetes->(Recno())>=1
  //SET FILTER TO "expedicion = '000410001330'"
   SET FILTER TO "expedicion='" + comienzo + "'"
  DEFINE DIALOG oDlg FROM 1, 1 TO 25, 79 
  oDlg:cTitle:=titulo
  @ 1, 1 LISTBOX oLbx FIELDS paquetes->UFecha,;  
  paquetes->Expedicion                            ,;
  paquetes->UPeso          ,;
  (paquetes->UVolumen),;
  paquetes->Bulto                                   ;
  HEADERS "Fecha","Codigo","Peso","Volumen","Bulto"; 
  FIELDSIZES 80,200,80,80,80; 
  SIZE 284, 137 OF oDlg 
  oLbx:nLineStyle := 1
  oLbx:nClrBackHead := RGB(248,191,36)
  oLbx:bTextColor:= {|nRow,nCol,nStyle| If( nStyle==0 .and. nCol==8,CLR_HRED, ) }
  oLbx:nClrPane:={||iIF((oLbx:cAlias)->(OrdKeyNo())%2==0,nRGB(242,247,252),nRGB(226,226,208))}

  @154,08  BTNBMP LEFT PROMPT " Agregar"   SIZE 50,19 OF oDlg RESOURCE "grabasql" // ACTION (Descarga(aAlias),oDlg:End())
  @154,67  BTNBMP LEFT PROMPT " Modificar" SIZE 50,19 OF oDlg RESOURCE "modifisql" ACTION oDlg:End() 
  @154,125 BTNBMP LEFT PROMPT " Borrar"    SIZE 50,19 OF oDlg RESOURCE "borrasql"  //ACTION BorraU(oLbx ) 
  @154,184 BTNBMP LEFT PROMPT " Buscar"    SIZE 50,19 OF oDlg RESOURCE "buscasql"  //ACTION BuscaU(oLbx,3,"Color") 
  @154,242 BTNBMP LEFT PROMPT " Salir"     SIZE 50,19 OF oDlg RESOURCE "salirsql"  ACTION (oDlg:End())

  ACTIVATE DIALOG oDlg CENTERED 
else
 msgstop("No hay Datos","ATENCION")
endif
set filter to
paquetes->(Dbclosearea())
endif
return nil



Que puede ser?

Saludos

Jose Luis

Jose Luis,

Prueba a llamar a la función directamente en vez de usar el comando:

dbSetFilter( <{exp}>, <"exp"> )

Posiblemente el fallo viene del preprocesado. Mira el fichero PPO generado al usar el comando, compilando con /p

Prueba asi tambien:

cCondicion = "expedicion='" + comienzo + "'"

SET FILTER TO cCondicion