FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Folders con browses
Posts: 131
Joined: Tue Dec 26, 2006 04:50 PM
Folders con browses
Posted: Fri Jan 29, 2010 03:50 PM
Hola a todos, estoy teniendo un pequeño problema, dado el código:
Code (fw): Select all Collapse
      define dialog oDial2rr resource "dlgrefs" of oventprinc
         picfile=pathr+"pictures\"+nfp// Esta variable nfp es una entrada por parte del usuario, debo buscar el archivo .JPG correspondiente)
         redefine image oImage ID 0 of odial2rr file "&picfile" adjust
      redefine folder oFld prompts "Tab1","Tab2","Tab3","Tab4" dialogs "tab1","tab2","Tab3","Tab4" ID 1 of odial2rr
*Tabulador 1
      redefine say prompt provee ID 20 of oFld:aDialogs[1]
      redefine say prompt comms ID 21 of oFld:aDialogs[1]
*Tabulador 2
      redefine say prompt exis ID 71 of oFld:adialogs[2]
      redefine listbox oLbx3rr fields asigna->tech, str(asigna->bal), dtoc(asigna->fecha);
      id 81 of oFld:adialogs[2];
      headers "Campo1","Campo2","Campo3"
*Tabulador 3
      redefine say prompt exis ID 72 of oFld:adialogs[3]
      redefine listbox oLbx3rr fields solic->tech, solic->quan,solic->reci,solic->backo, dtoc(solic->or_date),solic->comms;
      id 82 of oFld:adialogs[3];
      headers "Campo1","Campo2","Campo3","Campo4","Campo5","Campo6"
*Tabulador 4
      redefine say prompt exis ID 73 of oFld:adialogs[4]
      redefine listbox oLbx3rr fields pedid->order_no, pedid->quantity,pedid->recibido,pedid->backo, dtoc(pedid->order_date),pedid->comms;
      id 83 of oFld:adialogs[4];
      headers "campo1","Campo2","Campo3","Campo4","Campo5","Campo6"
  activate dialog odial2rr center
  return

Cuando activo el díalogo me marca el error de que el alias "solic" no existe, esto debido obviamente a que no esta activo ese alias en ese momento, la pregunta es: Como debo manejar este tipo de control? Es decir como constryo el dialogo cuando se crea por primera vez y como puedo activar y desactivar el alias cada que hago cambio de folder (Cada browse usa un DBF diferente)?

Adicionalmente tengo el problema de como llamar a una imagen que se presenta en el mismo díalogo (aunque fuera de los folders), tengo la variable con el nombre del archivo:
(picfile=pathr+"pictures\"+nfp
redefine image oImage ID 0 of odial2rr file "&picfile" adjust
, pero siempre me muestra el espacio en blanco, no esta encontrando la imagen, a pesar de que la variable esta construida y me lleva hacia la ruta correcta

Alguna idea con estos problemas?

De antemano muchas gracias
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Folders con browses
Posted: Fri Jan 29, 2010 04:00 PM
Mario:

Por lo que hace a la primera pregunta, creo que te hace falta especificar el Alias en cada LISTBOX

Code (fw): Select all Collapse
oLbx3rr:cAlias := EL alias de la DBF


Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 131
Joined: Tue Dec 26, 2006 04:50 PM
Re: Folders con browses
Posted: Fri Jan 29, 2010 04:22 PM
Armando, muchas gracias por tu pronta respuesta, hice lo que me sugeriste y ahora me aparece el error de que la variable "asigna", que es el nombre del alias no existe, pero es raro el error ya que se trata de un alias, no de una variable, para quitarme la duda defini la variable publica (Public asigna) y al ejecutar la pliacación ahora aparece el error de que el alias "asigna" no existe (cosa que me parece ya mas logica) pero sigo teniendo el error de todos modos.


Code (fw): Select all Collapse
   function inforef()
      local oDial2rr, oImagen, oTab, cNombre, cDir1, cDir2, cDir3, cTelef := 0
      Public oLbx1rr, oLbx2rr, oLbx3rr
      Public asigna, solic, pedid
.......(mas instrucciones).....
      redefine listbox oLbx1rr fields asigna->tech_id, str(asigna->new_bal), dtoc(asigna->fechaua);
      alias asigna id 81 of oFld:adialogs[2];
      headers "Tecnico","Cantidad asignada","Ultima asignación"
      *oLbx1rr:cAlias := asigna  //Usé este método tambien mismo resultado :-(

Alguna otra idea?
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Folders con browses
Posted: Fri Jan 29, 2010 04:49 PM
Mario:

Prueba así:

Code (fw): Select all Collapse
oLbx3rr:cAlias := (Asigna)


Me olvide, ojalá pudieras poner como abres las DBFs y que browse usas.

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Continue the discussion