XBROWSE CON TREE DE 2 TABLAS

[joseluisysturiz]

Saludos, se que de esto hay un monton, pero de verdad ando en relacion al tema mas perdido que Adan el dia de las madres...

Tengo 2 tablas en mysql, una tengo un producto por lo llamarlo COMPUESTO y en otra tabla los productos que lo componen...Eje...
- PASTEL (compuesto por) - TABLA 1
* harina
* huevos <-- TABLA 2
* leche
* etc.

necesito mostrar en un xBrowse el producto PASTEL y con un TREE los productos que lo componen con sus respectivas cantidades y costo de cada componente y que me de el total de costo del PASTEL mostrando o no los productos que lo componen, espero haberme explicado, necesito la punta del hilo para iniciar con esto, saludos...gracias...

[Marcelo Via Giglio]

Hola,

me imagino que puedes trabajar sobre un join de las dos tablas, asi tienes los productos y sus recetas

saludos

Marcelo

[joseluisysturiz]

Hola,

me imagino que puedes trabajar sobre un join de las dos tablas, asi tienes los productos y sus recetas

saludos

Marcelo

Marcelo, creo no entendistes el tema, con las tablas no tengo ningun problema, lo que necesito es mostrar la informacion en un xBrowse con oTree, ejemplo:

codigo ! descripcion !
---------------------------------
001 ! TORTA ! <--- PRODUCTO COMPUESTO
---------------------------------
!-> azucar <--- componente 1
---------------------------------
!-> harina <--- componente 2
---------------------------------
!-> leche <--- componente 3
---------------------------------
002 ! xPRODUCTO !


haber si asi me explico un poco mejor...gracias...

[joseluisysturiz]

Hola,

me imagino que puedes trabajar sobre un join de las dos tablas, asi tienes los productos y sus recetas

saludos

Marcelo

Marcelo, creo no entendistes el tema, con las tablas no tengo ningun problema, lo que necesito es mostrar la informacion en un xBrowse con oTree, ejemplo:

codigo ! descripcion !
---------------------------------
001 ! TORTA ! <--- PRODUCTO COMPUESTO
---------------------------------
!-> azucar <--- componente 1
---------------------------------
!-> harina <--- componente 2
---------------------------------
!-> leche <--- componente 3
---------------------------------
002 ! xPRODUCTO !


haber si asi me explico un poco mejor...gracias...

[cmsoft]

Hola Jose:
Yo no lo uso con tree, lo uso con dos browses, pero tal vez te sirva como inicio..

Code: Select all  Expand view  RUN

...
REDEFINE XBROWSE oBrw DATASOURCE oQry;
              COLUMNS "ticomp","numcomp","cuota","cuotot","fecha","saldo","pagado","saldonue";
              HEADERS "Tipo","Nro. Compr.","Cuota","De","Fecha","Saldo","Pagado","Nuevo Saldo" ;
             FOOTERS;
              SIZES 45,115,40,40,80,100,100,100 ID 120 OF oDlg ON CHANGE Actuali()
REDEFINE XBROWSE oBrwDet DATASOURCE oQryDet;
              COLUMNS "codart","detart","cantidad","punit","preciotot";
              HEADERS "Codigo","Detalle","Cant","P.Unit","P.Total";
              PICTURE "99999999","@!","9999","999999.999","999999.999";
              SIZES 80,270,65,95,95 ID 105 OF oDlg
.....
***********************************************
** Busca los articulos vendidos en cada factura
STATIC FUNCTION Actuali()
LOCAL cWhere
cWhere := "nrofac = " + ClipValue2Sql(oQry:ticomp+oQry:numcomp)
oQryDet:SetNewFilter(SET_WHERE,cWhere,.t.)
oBrwDet:Refresh()
RETURN .t.
 

Es muy basico, pero funciona....
Espero te sirva

[joseluisysturiz]

Hola Jose:
Yo no lo uso con tree, lo uso con dos browses, pero tal vez te sirva como inicio..

Code: Select all  Expand view  RUN

...
REDEFINE XBROWSE oBrw DATASOURCE oQry;
              COLUMNS "ticomp","numcomp","cuota","cuotot","fecha","saldo","pagado","saldonue";
              HEADERS "Tipo","Nro. Compr.","Cuota","De","Fecha","Saldo","Pagado","Nuevo Saldo" ;
             FOOTERS;
              SIZES 45,115,40,40,80,100,100,100 ID 120 OF oDlg ON CHANGE Actuali()
REDEFINE XBROWSE oBrwDet DATASOURCE oQryDet;
              COLUMNS "codart","detart","cantidad","punit","preciotot";
              HEADERS "Codigo","Detalle","Cant","P.Unit","P.Total";
              PICTURE "99999999","@!","9999","999999.999","999999.999";
              SIZES 80,270,65,95,95 ID 105 OF oDlg
.....
***********************************************
** Busca los articulos vendidos en cada factura
STATIC FUNCTION Actuali()
LOCAL cWhere
cWhere := "nrofac = " + ClipValue2Sql(oQry:ticomp+oQry:numcomp)
oQryDet:SetNewFilter(SET_WHERE,cWhere,.t.)
oBrwDet:Refresh()
RETURN .t.
 

Es muy basico, pero funciona....
Espero te sirva

CMSOFT, asi como me indicas tambien lo tengo hecho en otro sistema, pero la idea es reducir espacio de controles en pantalla por la cantidad de informacion que muestro, por eso lo ideal es el xBROWSE con TREE, ya que haria en un solo objeto lo que me sugieres hacer en 2 y que ya tengo hecho, igual gracias por la sugerencia, seguro a alguien mas le servira...saludos...gracias...

[nageswaragunupudi]

viewtopic.php?f=3&t=35744&p=213000#p213000