creo un alias (concepto0) la primera vez si lo abro 2 veces se crea otro alias (concepto1) pero no logro que trabajen independiente, si muevo el puntero en el ultimo al regresar a los anteriores se me "rellena" el browse con un único registro que es el seleccionado en este último alias.
saludos y gracias
Hola,
El browse debes indicarle que alias usaras isno cogerá el alias activo. No se q browse y version usas, pero prueba oBrw:cAlias := <el_alias_q_le_toque>
gracias Carles.
tengo asi
cAliasCon := "concepto"+cArea
Use (cFile) shared NEW ALIAS (cAliasCon) VIA "DBFCDX"
(cAliasCon)->(ORDSETFOCUS("EMPCON"))
oBrw := TxBrowse():New( oDlg )
oBrw:nHeaderLines := 1
oBrw:lAllowColSwapping :=.F.
oBrw:nColSel := 1
oBrw:nRowHeight := 18
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL
oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:lColDividerComplete := .t.
oBrw:lHScroll := .f.
oBrw:lFooter := .t.
oBrw:nFreeze := 2
oBrw:lFastEdit = .T.
oBrw:cAlias := cAliascon // donde aliascon cambia cada ve que se abre (concepto0,concepto1,concepto2)
saludos
Hola
Cuantos browses tienes ? Como ? No acabo entender bien lo que haces pero el browse siempre manejara el alias q tenga asignado.
me pidieron abrir varias veces el mismo modulo de mantenimiento de articulos
para eso cambie el dialogo a nowait
lo hice con Use (cFile) shared NEW ALIAS (aAliasCon[val(cArea)]) VIA "DBFCDX" // donde cArea se incrementa cada vez (1,2,3,4...)
pero si me muevo del 4to al 3ro o al 2do o al 1ro , el puntero se queda con el que tenga seleccionado en el 4to.
y necesitan que esten independientes uno de otro es decir que si en el 1ro tengo seleccionado el registro 40 y voy al 2do selecciono el 300, si regreso al 1ro no se mueva del registro 40.
espero haberme explicado mejor
saludos
Hola,
Yo no uso diálogos no modales, uso una clase llamada FSDI que creo que es mejor desde el punto de vista de la usabilidad de la aplicación. Tienes toda la información y ejemplos en mi blog - https://cincomundos.wordpress.com/?s=fsdi
Saludos,
function BrowseDlg( cDBF )
local oDlg, oBrw, cAlias
USE ( cDbf ) NEW SHARED ALIAS ( cAlias := cGetNewAlias( "DB" ) ) VIA "DBFCDX"
if !USED()
? "Can not open " + cDBF
return nil
endif
DEFINE DIALOG oDlg SIZE 600,400 PIXEL
@ 10,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
ALIAS cAlias AUTOCOLS CELL LINES NOBORDER FASTEDIT
WITH OBJECT oBrw
// other settings
//
:CreateFromCode()
END
ACTIVATE DIALOG oDlg NOMODAL ;
VALID ( ( cAlias )->( DBCLOSEAREA() ), .t. )
return nil#include "FiveWin.Ch"
#include "xbrowse.ch"
STATIC oWnd
STATIC nCount := 0
FUNCTION Main()
LOCAL oBar
CreateTable()
DEFINE WINDOW oWnd MDI
DEFINE BUTTONBAR oBar
DEFINE BUTTON OF oBar ACTION Dlg()
ACTIVATE WINDOW oWnd ON INIT Test()
RETU NIL
FUNCTION Dlg()
LOCAL oDlg, oBrw, cAlias
cAlias := 'MIALIAS' + ltrim(str(++nCount))
USE "xbr.dbf" SHARED NEW ALIAS (cAlias )
DEFINE DIALOG oDlg TITLE ( 'Browse => ' + cAlias )
oDlg:nStyle := nOr( WS_THICKFRAME, WS_SYSMENU, WS_MINIMIZEBOX, WS_MAXIMIZEBOX )
@ 0,0 XBROWSE oBrw OF oDlg ALIAS (cAlias) AUTOCOLS
oBrw:CreateFromCode()
oDlg:oClient := oBrw
ACTIVATE DIALOG oDlg NOMODAL ;
ON INIT ( oDlg:Move( HB_RandomInt(5) * 100 , HB_RandomInt(10) * 100 ) ) ;
VALID ( (cAlias)->(DbCloseArea()), .t. )
RETU NIL
FUNCTION Test()
LOCAL n
FOR n := 1 TO 10
Dlg()
NEXT
RETU NIL
STATIC FUNCTION CreateTable()
LOCAL n
LOCAL aFlds := { ;
{ "FLDID", "N", 3, 0 }, ;
{ "FLDNAME", "C", 10, 0 } ;
}
dbCreate( "XBR", aFlds )
Use XBR
for n := 1 to 50
dbAppend()
FIELD->FldID := n
FIELD->FldName := {'ONE','TWO','THREE','FOUR','FIVE'}[ HB_RandomInt( 5 ) ] + ' - ' + ltrim(str(n))
next
CLOSE DATA
return nilGracias por su interes
ya probé ambos y sigo igual.
¿afeca que haga el browse desde recursos? craetefromresource()
saludos
oDlg:bGotFocus := { || MsgInfo( Alias() ) }si lo he hecho, me mustra concepto1,concepto2,concepto3, etc...
gracias
Y se corresponden con los Alias que debe tener ese dialog ?
Pues ya funciona ¡loteria!
me hice un ejemplo pequeño con la ayuda de todos
function nomodales()
local oDlg, oBrw, cAlias
cFile := cPath+"\DATOS\concepto.DBF"
USE ( cFile ) NEW SHARED ALIAS ( cAlias := DinamicAlias( "CON" ) ) VIA "DBFCDX"
if !USED()
? "Can not open " + cFile
return nil
endif
DEFINE DIALOG oDlg RESOURCE "concepto2" TITLE "Catalogo de Conceptos"+cAlias Of oWnd ;
oBrw := TxBrowse():New( oDlg )
oBrw:nHeaderLines := 1
oBrw:lAllowColSwapping :=.F.
oBrw:nColSel := 1
oBrw:nRowHeight := 18
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL
oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:lColDividerComplete := .t.
oBrw:lHScroll := .f.
oBrw:lFooter := .t.
oBrw:nFreeze := 2
oBrw:lFastEdit := .T.
oBrw:cAlias := cAlias
oCol := oBrw:AddCol()
oCol:cHeader := "Clave"
oCol:bStrData := { || ( oBrw:cAlias )->clave }
oCol:nWidth := 45
oCol:nDataStrAlign:= AL_RIGHT
oCol:nHeadStrAlign:= AL_RIGHT
oCol:lAllowSizing :=.F.
oCol := oBrw:AddCol()
oCol:cHeader := "Nombre"
oCol:bStrData := { || ( oBrw:cAlias )->NOMBREEXT }
oCol:nWidth := 300
oCol:nDataStrAlign:= AL_LEFT
oCol:nHeadStrAlign:= AL_LEFT
oCol:lAllowSizing :=.F.
oBrw:CreateFromResource (101 )
oBrw:setrdd()
ACTIVATE DIALOG oDlg NOMODAL ;
VALID ( ( cAlias )->( DBCLOSEAREA() ), .t. )
return nil
muchisimas gracias
corregido!
mil gracias