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...