Page 1 of 1

FW Lookup function (where to find)

PostPosted: Sat May 02, 2020 2:42 pm
by Marc Venken
There is a FW lookup function introduced, but can't find it anymore ? Seen it ?

Now I try this (works for returning 1 field : Code )

XBROWSER "acties" TITLE "Selecteer de campagne" SETUP ( oBrw:cHeaders := { "Code", "Lijst","Titel" } ) SELECT cData := oBrw:code:Value

But I want more field as data to return (Code, Lijst, Titel)

XBROWSER "acties" TITLE "Selecteer de campagne" SETUP ( oBrw:cHeaders := { "Code", "Lijst","Titel" } ) SELECT aResult := oBrw

This is giving me all data, but inside is a lot of data from Xbrowse and have to figer out where the data is.

Re: FW Lookup function (where to find)

PostPosted: Sat May 02, 2020 5:07 pm
by Silvio.Falconi
perhaps on yunus.prg

Re: FW Lookup function (where to find)

PostPosted: Sat May 02, 2020 6:13 pm
by Marc Venken
It is

FW_DBFLOOKUP()

Re: FW Lookup function (where to find)

PostPosted: Sat May 02, 2020 6:41 pm
by Marc Venken
With this code, not working because multi dim. arrays are not easy for me, I want to find all values of the selected record

Result shoud be the values of the folowing fields...

aData[1,1] = Code .or. aData[1] = code
aData[1,2] = Naam
..... rest of all the fieldnames = Value

Code: Select all  Expand view

function Testobj()
   local cText,oXmlDoc,oXmlIter,oTagActual
   local nDepth, nDone:=0, cData:=""
   local cVeld:="", aData:={}, aResult:={}


   use acties

  XBROWSER "acties" TITLE "Selecteer de campagne" SETUP ( oBrw:cHeaders := { "Code", "Lijst","Titel" } ) SELECT aResult := oBrw
  xbrowse(aResult)

  aNew := ArrTranspose( aResult )


  //aData := aNew[ 4 ]   Acols is on pos 4 in the object that I see (AResult)

// trying to look for the data
  for i = 1 to len(aNew)
     xbrowse(aNew[1,I])
  next

  close all
return

 

Re: FW Lookup function (where to find)

PostPosted: Sun May 03, 2020 7:33 am
by nageswaragunupudi
SELECT aResult := { oBrw:Code:Value, oBrw:Lijst:Value, oBrw:Titel:Value }

Re: FW Lookup function (where to find)

PostPosted: Sun May 03, 2020 12:09 pm
by Marc Venken
It can be so simple .... Thanks