Know the exactly field from xbrowse

[Silvio.Falconi]

If I have a xbrowse I must populate 3 array

Local nLen := Len( oGrid:aCols )
Local aCampos [ nLen ]
Local aTitulos[ nLen ]
Local aTipos [ nLen ]

FOR n = 1 TO nLen
aCampos [ n ]:= alltrim( cValToChar( (oGrid:cAlias)->( Fieldname( oGrid:aCols[ n ]:nCreationOrder ) ) ))
aTitulos [ n ]:= oGrid:aCols[ n ]:cHeader
aTipos [ n ]:= oGrid:aCols[ n ]:cDataType
NEXT

For the aCampos array it run bad because it take fields of database from first field
If I have 14 colums on xbrowse it take the first 14 fields and not the exactly fields of relative column

How I can to save on aCampos array the fileds right ?

[vensanto]

Hello Silvio

Local R:=oBRW:nArrayAt // rigo array
Local Z:=oBRW:nCOLSEL // colonna selezionata
Local oCOL:=oBRW:aCols[Z] // txcolonna
Local C:=oCOL:nArrayCol // indice colonna array - come ARR_X[R][H]
Local nDATO:=oCOL:Value() // dato dentro la cella

Local nDATO:=ARR_X[R][C]

Best Regards
Santo

[Silvio.Falconi]

Hello Santo,
I call a function ang give to this function only the object of xbrowse
sample test1(ogrid)

on this function I must create the array for fields, header and type
I hope you understood


In italian
devo sapere quali sono i nomi dei campi delle colonne della tabella passata alla funzione
il comando alltrim( cValToChar( (oGrid:cAlias)->( Fieldname( oGrid:aCols[ n ]:nCreationOrder ) ) ))
restituisce i campi partendo dall'inizio cioè dal primo campo del database
se i campi che ho nella tabella sono 14 lui prende solo i primi 14 campi e non quelli effettivamente posti in tabella

[nageswaragunupudi]

oCol:cExpr gives the fieldname.

Note: If you created xbrowse with full command syntax

[Silvio.Falconi]

I'm creating a filter function to create filters string

I created xbrowse with

Code: Select all  Expand view

Function test()

aCampi := { "CODCF", "RAGSOC", "RAGSOC1", "INDIR" }
aNomi:= {"Codice","Ragione Sociale","Ragione Sociale2","Indirizzo Legale"}
aSizes:= {50,250 ,200,100 }

USE CLIENTI ALIAS CLIENTI NEW

LookUp("Clienti",aCampi,aNomi,aSizes,35.7,105,"Anagrafica clienti")

RETURN NIL



ON lookup function there is a xbrowse and a buttonbar


@ 15.6, 0 XBROWSE oBrw OF oDlgLook SIZE -1,-20 PIXEL ;
DATASOURCE cdbf ;
COLUMNS aCampi HEADERS aNomi COLSIZES aSizes

[nageswaragunupudi]

Yes, in this case, oCol:cExpr returns the fieldname

[Silvio.Falconi]

thanks now run ok