tdolphin y xbrowse

[kpidata]

Estimados amigos, favor me pueden ayudar.

Estoy trabajando y probando la clase tdolphin y hasta el momento, voy avanzado.. pisando piedras pero ya avanzo, pero me quede pillado en lo siguiente, favor e darme una idea para saber que pasa

a) si trabajo con un dialogo basado en coordenadas con xbrowse, me abre y opera bien, pero si trato de abrir ese xbrowse, formando parte de recursoo, me rechaza y me bota indicando que la ventana no existe, o que el numero de identificacion del recurso donde debe abrir el xbrowse, no existe... esto en FWH y DBF. ningun problema.

Esto bien...

@ 30, 10 XBROWSE oLbx FIELDS oProducto:Cod,oProducto:Detalle;
HEADERS "Producto","Detalle del Producto" ;
FIELDSIZES 100,400;
AUTOCOLS AUTOSORT LINES OF oWChld


Esto rechaza...

REDEFINE XBROWSE oLbx FIELDS oProducto:cod, oProducto:detalle;
HEADERS "Codigo","Detalle";
JUSTIFY .T.,.F.;
FIELDSIZES 70,400;
ID 1000 OF oDlg ON DBLCLICK ( msginfo("entro") )

SetDolphin( oLbx, oProducto,.f. )

oLbx:nMarqueeStyle := MARQSTYLE_HIGHLROW
oLbx:nColDividerStyle := LINESTYLE_RAISED
oLbx:nRowDividerStyle := LINESTYLE_RAISED
oLbx:bClrSelFocus := {|| { CLR_WHITE, RGB(24, 116, 205) } }
oLbx:lColDividerComplete := .t.
oLbx:nHeaderLines := 1
oLbx:lRecordSelector := .t.
oLbx:lAllowRowSizing := .F.
oLbx:l2007 := .T.

oLbx:CreateFromCode()


B) con ADO, si ingresaba un valor que era de parte de la primary key, al usar una funcion find, me decia que ya estaba, como lo hago con Tdolphin


Con ADO..

STATIC FUNCTION B_A(cArticulo)
LOCAL nRegAct := 0
IF EMPTY(cArticulo)
MsgStop("Debe registrar la clave que identifica a la unidad de medida !")
RETURN(.F.)
ENDIF
IF oProducto:BOF .AND. oProducto:EOF
RETURN(.T.)
ELSE
nRegAct := oProducto:BookMark

oProducto:MoveFirst()
oProducto:Find("cod_art = " + "'" + cArticulo + "'" )
IF ! oProducto:EOF
MsgInfo("Clave de unidad de medida ya registrada !")
oProducto:BookMark := nRegAct
RETURN(.F.)
ENDIF
oProducto:BookMark := nRegAct
ENDIF
RETURN(.T.)


c) Yo quiero trabajar con formato Xbrowse usando Mysql con Tdolphin, de la forma como con dbf, pero no veo ejemplos y no me sale al escribir, ya que por el problema del punto A), me limita..

Esto quiero pero en Mysql con Tdolphin

oBrw:=TxBrowse():New(oDlg)
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW // Con cursor de todo el renglón
oBrw:nColDividerStyle := LINESTYLE_RAISED
oBrw:nRowDividerStyle := LINESTYLE_RAISED
oBrw:bClrSelFocus := {|| { nRGB( 0, 0, 0), nRGB(128,255,128) } } // para barra de linea selecc cuando el control tiene el foco
oBrw:lColDividerComplete := (.t.) // (.T.) Mantiene siempre llena la pantalla
oBrw:nHeaderHeight := 35 // Altura de los encabezados
oBrw:nRowHeight := 25 // Altura del renglón
oBrw:nHeaderLines := 3 // Número de líneas de encabezados
oBrw:nDataLines := 2 // Número de líneas de detalle
oBrw:nFooterHeight := 20 // Altura del footer
oBrw:nFooterLines := 2 // Número de líneas en el footer
oBrw:lFooter := (.T.) // Sí queremos línea de footer
oBrw:lHScroll := (.T.) // Quitamos el scroll horizontal
oBrw:bClrHeader := {|| { nRGB(000,000,000), nRGB(128,255,128) } }
oBrw:bClrStd := { || If( oBrw:KeyNo() % 2 == 0, { CLR_BLACK, RGB( 224, 236, 255 ) }, { CLR_BLACK, RGB( 189, 211, 253 ) } ) }
oBrw:bClrFooter := {|| { nRGB(000,000,000), nRGB(150,200,200) } }
oBrw:bClrSel := {|| { nRGB(000,000,000), nRGB(128,255,128) } } // para barra de linea selecc cuando el control no tiene el foco
oBrw:nStretchCol := STRETCHCOL_WIDEST
oBrw:oFont := oFont2

oCol := oBrw:AddCol()
oCol:bStrData := { || Tab_Fam->Cod_Fam }
oCol:cHeader := "Codigo"
oCol:nHeadStrAlign := AL_CENTER //LEFT
oCol:nDataStrAlign := AL_LEFT //LEFT
oCol:nWidth := 100
ocol:cToolTip :="Haga doble Click para ordenar por código"

oCol := oBrw:AddCol()
oCol:bStrData := { || Tab_Fam->Nom_Fam }
oCol:cHeader := "Nombre"
oCol:nHeadStrAlign := AL_CENTER //LEFT
oCol:nDataStrAlign := AL_LEFT //LEFT
oCol:nWidth := 300
ocol:cToolTip :="Haga doble Click para ordenar por Nombre"

oBrw:bLDblClick := {|| Add_Fam(.F.) }


Favor si me guian, se agradece...

[cnavarro]

Paso a paso
Para utilizar XBrowse con recursos no puedes utilizar CreateFromCode, has de utilizar CreateFromResource( nID )

[kpidata]

Estimado, uno mira, pero no ve.... ok, coloque lo indicado.

hay la corrección, pero el problema siguiente es que me muestra todos los campos de la tabla... y yo solo quiero que me muestre 3 o 4,

como se ve asi, pero al colocarlo no me toma...

oCol:= oLbx:AddCol()
oCol:bStrData:= { || IF(oProducto:BOF() .AND. oProducto:EOF(),SPACE(1),ADOField(oProducto,"rut_cte")) }
oCol:cHeader := 'RUT'
oCol:nWidth := 100
oCol:nHeadStrAlign:= AL_CENTER

oCol:= oLbx:AddCol()
oCol:bStrData:= { || IF(oProducto:BOF() .AND. oProducto:EOF(),SPACE(1),ADOField(oProducto,"nom_cte")) }
oCol:cHeader := 'Nombre Cliente'
oCol:nWidth := 400
oCol:nHeadStrAlign:= AL_CENTER

/---------------------------------------------------------------------------------------------------------------------------------------

ACA EL XBROWSE QUE FUNCIONA BIEN,,, PERO NECESITO INSERTA LO DE ARRIBA Y NO ME LO HACE.. LO DE ARRIBA ESTA EN ADO, Y ESO QUIERO
HACER TDOLPHIN.... DISCULPEN LAS MAYUSCULAS PERO ES PARA DAR ENFASIS A LOS TEXTOS.


oBrw:=TxBrowse():New(oDlg)
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW // Con cursor de todo el renglón
oBrw:nColDividerStyle := LINESTYLE_RAISED
oBrw:nRowDividerStyle := LINESTYLE_RAISED
oBrw:bClrSelFocus := {|| { nRGB( 0, 0, 0), nRGB(128,255,128) } } // para barra de linea selecc cuando el control tiene el foco
oBrw:lColDividerComplete := (.t.) // (.T.) Mantiene siempre llena la pantalla
oBrw:nHeaderHeight := 35 // Altura de los encabezados
oBrw:nRowHeight := 25 // Altura del renglón
oBrw:nHeaderLines := 3 // Número de líneas de encabezados
oBrw:nDataLines := 2 // Número de líneas de detalle
oBrw:nFooterHeight := 20 // Altura del footer
oBrw:nFooterLines := 2 // Número de líneas en el footer
oBrw:lFooter := (.T.) // Sí queremos línea de footer
oBrw:lHScroll := (.T.) // Quitamos el scroll horizontal
oBrw:bClrHeader := {|| { nRGB(000,000,000), nRGB(128,255,128) } }
oBrw:bClrStd := {|| If( oBrw:KeyNo() % 2 == 0, { CLR_BLACK, RGB( 224, 236, 255 ) }, { CLR_BLACK, RGB( 189, 211, 253 ) } ) }
oBrw:bClrFooter := {|| { nRGB(000,000,000), nRGB(150,200,200) } }
oBrw:bClrSel := {|| { nRGB(000,000,000), nRGB(128,255,128) } } // para barra de linea selecc cuando el control no tiene el foco
oBrw:l2007:=.T.
oBrw:lAutoSort:=.T.
oBrw:SetDolphin(oProducto,.T.,.T.)
oBrw:bLDblClick := {|| GetArticulo2( .F.,oBrw), oProducto:Refresh() }
oBrw:bRClicked := { | nRow, nCol | pantalla() }
oBrw:oFont := oFont2
oBrw:CreateFromResource( 1000 )


hay

[cnavarro]

Para resaltar el texto utiliza el tipo de letra negrita ( bold ) o subrayado
Si te es posible, usa "Code" o "Quote" cuando escribas los posts para que sean más sencillos de leer
Gracias