FiveTech Software tech support forums

Hola Amigos.

Tengo una DBF que tiene 2 campos:
Tip_Lin = Tipo de Linea
Det_Lin = Detalle de la Linea

Lo que necesito es usar 2 tipos de Font por Filas en XBROWSE, un Font cuando Tip_Lin = "T" y otro para = "D"

Desde ya muchas gracias.

Muchos Saludos.
Antonio.

... es como se vcrea el archivo BtkServer_RT.xml yo uso libreria Mysql doplphin


Ejemplo de como crear el archvi .xml


Function AvLxlms()

Local alineas := {}
Local cFile :="BtkServer_RT.xml "
local cString := ""

** cargamos a un arreglo al estructura del "BtkServer_RT.xml "

AAdd( alineas ...

... 4]:bLClickHeader := {|nRow, nCol| ShowPopup( nRow, nCol, 244,"tipo" ,oLbx) }

el dialogo y xbrowse y llenado
function ShowPopup( nRow, nCol, lin,nFiltro,oLbx)
LOcal oDlg
local oWnd, aData := {}, i, oBrw, oBtn
Local cFiltro,nEstado
Local lAceptar:=.F.

AAdd(aData,"< Seleccionar Todos >" )

Do ...

... mi duda ahora es, como puedo saber el nombre de cada columna de cada tabla ??
oCat:Tables( i ):Columns( j ):Name ?????

Con que instruccion puedo ahora extraer la informacion de la tabla y los campos campo que necesito ????, por ejemplo
Tabla: INVE01
Campos: CVE_ART, DESCR, LIN_PROD

Gracias por todo

... varios Dialogos NOWAIT, dentro de la Ventana oWndIva

Se presentan todos correctamente PERO al final se activa un VALID OBRA() del Dialogo oDDAbmLin
que llamo desde la Funcion Lineas() que no he llamado AUN

Ya he probado a simplificar el problema es decir no llamar a todos para ver si hay ...

... PIXEL TITLE "Select a Value" ; FONT oFontOption @ 5,10 XBROWSE oBrwCambi SIZE 150,90 PIXEL OF oDlgOption ; DATASOURCE aCambi AUTOCOLS ; CELL LINES NOBORDER oBrwCambi:aCols&#91;1&#93;:cHeader := i18n&#40;"Valuta1"&#41; oBrwCambi:aCols&#91;1&#93;:nWidth := 50 oBrwCambi:aCols&#91;2&#93;:cHeader ...

... WINDOW.PRG => _FWH( 3234 )
Called from: => SHOWWINDOW( 0 )
Called from: .\\source\\classes\\WINDOW.PRG => TWINDOW:ACTIVATE( 986 )
Called from: anexo\\planning.prg => e_PLANNING( 184 )

Y e_Planning 184 es:

lin 183 ACTIVATE WINDOW oWnd ;
lin 184 MAXIMIZED


No consigo reproducirlo.

Muy agradcida

... MEMO OF oWndACTIVATE DIALOG oWndRETURN NILFUNCTION CREATE_TXT&#40;&#41;LOCAL cString := ""LOCAL iFOR i := 1 TO 500 cString := cString + "This is the line #" + STR&#40; i &#41; + " This is the line #" + STR&#40; i &#41; + "This is the line #" + STR&#40; i &#41; + crlfNEXT imemowrit&#40; "filetocopy ...

... INSERT INTO gopmult (ctrl, nombre1) VALUES ('" + cCtrl + "', '" + cDato + "')")
oServer:Query("SET @r := 0")
oServer:Query("UPDATE gopmult SET lin := (@r := @r + 1) ORDER BY ctrl")
oServer:Query("SELECT * FROM gopmult ORDER BY ctrl")

oQuery:Refresh()
oLbx:Refresh()
Return nil

Voy a subir un ...

... Recordemos que la tabla principal tiene un indice no PK, y al mostrar el brw con los datos recien agregados, estos no se muestran ordenados por lin (¿que pasa con el indice? Hago un mal uso de él?, Si lo hago PRIMARY KEY no me permitiría claves duplicadas.

Creo que hay una pequeña confucion ...

... tabla y... "nacaradas conchas". Sigue igual.
oServer:Query("CREATE TABLE IF NOT EXISTS gopmult(" +;
"idgopmult INTEGER UNSIGNED NOT NULL AUTO_INCREMENT," +;
"CTRL CHAR(10) NOT NULL DEFAULT '' COMMENT 'control lineas'," +;
"LIN DECIMAL(10,0) NOT NULL DEFAULT '0' COMMENT 'control lineas'," +
Saludos.

Francisco,

Al parecer el detalle es en la estructura de la tabla.

"LIN DECIMAL(10,0) NOT NULL DEFAULT '0' COMMENT 'control lineas'

Prueba asi porfavor.

Saludos

Francisco,

Prueba a poner el campo LIN como DECIMAL(10,0)

Saludos

Willi.
Inserta las filas pero sin No.en columna LIN (solo 0), ya que da un msg que dice: data truncated for column lin. Este mismo msg me da con el codigo de Raymundo.
Saludos.

oServer:Query&#40;"CREATE TABLE IF NOT EXISTS gopmult(" +; "idgopmult INTEGER UNSIGNED NOT NULL AUTO_INCREMENT," +; "CTRL ...

... si continúas insertando siempre toma "11". No es el comportamiento deseado:
//--------------------------//
Function InsGopMult(oLbx,oQuery)
LOCAL cLin := oQuery:lin //lin actualmente seleccionada
local cDetalle:= "HOLALALAL "+oQuery:lin

if cLin = "" //sin esto y si la tabla esta vacía, inserta ...