Problema con indices en un listbox
Posted: Wed Jun 13, 2007 11:22 pm
Hola a Todos...
Tengo un problema que no eh podido resolver.. Cuando habro 2 indices de un archivo .DBF me toma el 2º indice a que le hic referencia.... como haria con esto ¿¿??
*------------------------*
FUNCTION lista_productos()
*------------------------*
local oDlg7
DEFINE DIALOG oDlg7 TITLE "Folders" SIZE 240, 350 PIXEL STYLE nOr( WS_POPUP, WS_VISIBLE )
@ 2 , 40 SAY "Productos" OF oDlg7 SIZE 60, 13 PIXEL FONT oFont
@ 15 , -3 FOLDER oFld PROMPTS " X Tipos "," Favoritos "," Todos " SIZE 249, 300 PIXEL
// 1 = Pagina listado por tipo de productos //////////////////////////////////////////////////////////////////////////////////
Select MTIPO
@ 3 , 2 LISTBOX oBrw71 FIELDS MTIPO->NOMBRE;
COLSIZES 35 PIXEL OF oFld:aDialogs[ 1 ] HEADERS " Tipos ";
SIZE 120,115; //FONT oFont
ON DBLCLICK tipo_producto()
@ 124, 1 BUTTON "Volver" ACTION oDlg7:End() OF oFld:aDialogs[ 1 ] SIZE 60 , 12 PIXEL FONT oFont
// 2 = Pagina listado de productos Favoritos ////////////////////////////////////////////////////////////////////////////////
Select MINVEN
MINVEN->(ORDSETFOCUS("FAVORITO"))
MINVEN->(DBGOTOP())
@ 3 , 2 LISTBOX oBrw72 FIELDS MINVEN->CODIGO,MINVEN->DESCRIP,STR(MINVEN->PRECIO,8,2);
COLSIZES 35,135,30 PIXEL OF oFld:aDialogs[ 2 ] HEADERS " Cod"," Productos Favoritos"," Precio" SIZE 120,115;
ON DBLCLICK cantidad()
@ 124, 1 BUTTON "Volver" ACTION oDlg7:End() OF oFld:aDialogs[ 2 ] SIZE 60 , 12 PIXEL FONT oFont
// 3 = Paagina listado de todos los productos ///////////////////////////////////////////////////////////////////////////////
MINVEN->(ORDSETFOCUS("CODIGO"))
MINVEN->(DBGOTOP())
@ 3 , 2 redefine LISTBOX oBrw73 FIELDS MINVEN->CODIGO,MINVEN->DESCRIP,STR(MINVEN->PRECIO,8,2);
COLSIZES 35,135,30 PIXEL OF oFld:aDialogs[ 3 ] HEADERS " Cod"," Producto"," Precio";
SIZE 120,115;
ON DBLCLICK cantidad()
@ 124, 1 BUTTON "Volver" ACTION oDlg7:End() OF oFld:aDialogs[ 3 ] SIZE 60 , 12 PIXEL FONT oFont
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
ACTIVATE DIALOG oDlg7 CENTERED
return ni
Tengo un problema que no eh podido resolver.. Cuando habro 2 indices de un archivo .DBF me toma el 2º indice a que le hic referencia.... como haria con esto ¿¿??
*------------------------*
FUNCTION lista_productos()
*------------------------*
local oDlg7
DEFINE DIALOG oDlg7 TITLE "Folders" SIZE 240, 350 PIXEL STYLE nOr( WS_POPUP, WS_VISIBLE )
@ 2 , 40 SAY "Productos" OF oDlg7 SIZE 60, 13 PIXEL FONT oFont
@ 15 , -3 FOLDER oFld PROMPTS " X Tipos "," Favoritos "," Todos " SIZE 249, 300 PIXEL
// 1 = Pagina listado por tipo de productos //////////////////////////////////////////////////////////////////////////////////
Select MTIPO
@ 3 , 2 LISTBOX oBrw71 FIELDS MTIPO->NOMBRE;
COLSIZES 35 PIXEL OF oFld:aDialogs[ 1 ] HEADERS " Tipos ";
SIZE 120,115; //FONT oFont
ON DBLCLICK tipo_producto()
@ 124, 1 BUTTON "Volver" ACTION oDlg7:End() OF oFld:aDialogs[ 1 ] SIZE 60 , 12 PIXEL FONT oFont
// 2 = Pagina listado de productos Favoritos ////////////////////////////////////////////////////////////////////////////////
Select MINVEN
MINVEN->(ORDSETFOCUS("FAVORITO"))
MINVEN->(DBGOTOP())
@ 3 , 2 LISTBOX oBrw72 FIELDS MINVEN->CODIGO,MINVEN->DESCRIP,STR(MINVEN->PRECIO,8,2);
COLSIZES 35,135,30 PIXEL OF oFld:aDialogs[ 2 ] HEADERS " Cod"," Productos Favoritos"," Precio" SIZE 120,115;
ON DBLCLICK cantidad()
@ 124, 1 BUTTON "Volver" ACTION oDlg7:End() OF oFld:aDialogs[ 2 ] SIZE 60 , 12 PIXEL FONT oFont
// 3 = Paagina listado de todos los productos ///////////////////////////////////////////////////////////////////////////////
MINVEN->(ORDSETFOCUS("CODIGO"))
MINVEN->(DBGOTOP())
@ 3 , 2 redefine LISTBOX oBrw73 FIELDS MINVEN->CODIGO,MINVEN->DESCRIP,STR(MINVEN->PRECIO,8,2);
COLSIZES 35,135,30 PIXEL OF oFld:aDialogs[ 3 ] HEADERS " Cod"," Producto"," Precio";
SIZE 120,115;
ON DBLCLICK cantidad()
@ 124, 1 BUTTON "Volver" ACTION oDlg7:End() OF oFld:aDialogs[ 3 ] SIZE 60 , 12 PIXEL FONT oFont
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
ACTIVATE DIALOG oDlg7 CENTERED
return ni