Im looking to add a XUserSlect to a layout  "dispatch" looking up the customers name from the "customer" layout. my question is my customer select field is HUGE, is there a way to type the first few letters of the customers name in the primary field to reduce the size of the user select field?


I kinda feel like the boy who found a genie in a bottle, Im afraid to waste any of my three wishes on stupid questions.

Yes, it can be done easily using xuserselectr function. There was quite a discussion about it on this forum. I will look up the thread and post it here. I use this all quite extensively.

I think this is WAY over my head at the present time. thank you for the direction.

Probably you already know that x-family of commands and functions cannot be tested in the Preview mode. You are better of saving your application appended by test or reconciling it first. I prefer the first method. If it is Customer.dsr, I save the application as Customertest.db.  When everything works as you want, you may reconcile it to customer.db

See if this helps.

oh my it works!!! I been working on it to long, I was forgeting to put the dot dot on the end of it! your good! thank you so very much for the help!

I found that out about if you know the code it doesnt waste time on the pick list. Only thing is when I type " ..abc.." it pulls up the whole list "abc.." works nice and "..abc" seems to work. but im not complaining, im too happy about getting past this first hurdle. thanks for the time and all the help!

no, i did not. and when I did (put it in global) it made an error on evevry xlookup and all other functions in program. strange

I have implemented abc..  and ..abc..
I do not see any value of ..abc if both above are working.

Global Code
______________

var vFieldName as String
var vStart as String
var vEnd as String


// Finds all values in vVals that contain vMatch. Returns matching
// values as a semicolon separated list.
Function FilterValueList(var vVals as String, vMatch as String) as String
var vList as String
var vItem as String

vList = ""
While @Len(vVals) > 0
{
  vItem = Split(vVals, ";")
  If @Instr(vItem, vMatch) > 0
  {
   If @Len(vList) > 0 
   {
    vList = vList + ";"
   }
   vList = vList + vItem
  }
}
return(vList)
End Function


var vApplication as String
var vTarget as String
var vDisplay as string

//For PickList

Subroutine PickList_choose( )
var vVals as String
var vFinalList as String
var vSearch as String

If @Right (vfieldName, 2) = ".." and @Left (vFieldName, 2) <> ".." then
     {
     
           vStart = @left (vFieldName, @in (vFieldName, "..") - 1) + @chr (1)
           vEnd = @left (vFieldName,   @in (vFieldName, "..") - 1) + "zzzzzzz"

     }

If @left (@(vFieldName), 2) = ".." and @Right (@(vFieldName), 2) = ".." then
     {
           vSearch = @replace (@(vFieldName), "..", "")
           vFinalList = ""
           vVals = @XListValues(vApplication, vDisplay) 
           vFinalList = FilterValueList(vVals, vSearch)
           @(vFieldName) = @UserSelect(vFinalList)
        
         If @in (@(vFieldName), "/") > 0 then
           @(vFieldName) = @Replace (@(vFieldName), "/", "//")
           //writeln (@(vFieldName))                  
           
           @(vFieldName) = @xlookup (vApplication, @(vFieldName), "Display1", vTarget)

     }

End Subroutine

======================

Dx1  on element exit event    (Dx1 is the name of element)
____________

If @left (Dx1, 2) = ".." and @right (Dx1, 2) = ".." then

     {
           vApplication = "data\diag.db"
           vTarget = "DiagCode"
           vDisplay = "Diag!Display1"
           vFieldName = "Dx1"
           picklist_choose ( )
           
     }

if @Right (Dx1, 2) = ".." and @Left (Dx1, 2) <> ".." then

     {
           vFieldName = Dx1
           picklist_choose ( )
           
           Dx1 = @xUserselectR ("data\Diag.db", "Diag!Display", "DiagCode", vStart, vEnd)
     }