Drop Down Browse variable

[betty]

Does the drop down browse have a variable name? IOW; I use the drop down browse to display records for a specific customer on screen. Now I want to do something with those records that I've already selected and looked at.

When the drop down browse is used to query; is it setting a variable for that query and if so - what is that variable?

[Stan Mathews]

Re: Drop Down Browse variable

Better post a sample of what you're doing. I'm not familiar with "the drop down browse".

When a filter has been applied to the primary table in a session you can obtain the filter expression with CURRENT_FILTER_EXPN().

If you have filtered for a specific customer you could refer to those records with the expression

"customer = "+quote(customer.value)

if customer is the identifying field in the table and customer is the object name of the field on the form that supplies the dropown.

[betty]

Re: Drop Down Browse variable

Here's what I am trying to do.

I have a table called "To Be Invoiced" that contains the line detail of things to be invoiced (these records are items that were purchased, labor that has been imported from another table, and sales receipts previously processed elsewhere).

I am using the drop-down-browse to filter by customer.

I display these on screen for review and manually add additional line items.

I now want to create an invoice (header transaction) for these records and print an invoice document ... but only this customer.

I have it working using this code - but it processes all records and I need to have only the one that I am looking at.

'THIS PROCESS:
'Records are imported from AC time tracking and purchases made
'Reads existing records from the "tobinvoiced" table (detail / tDET)
'Filter records by Customer
'Create a new customer order in "accttrans" table (header /tHDR) for those records and update records with the correct trans_num

dim thiscustomer as C
dim thisorder as C
dim thisline as N
dim tDET as P
dim tHDR as P

tDET = table.open("tobinvoiced",FILE_RW_SHARED)
tHDR = table.open("accttrans",FILE_RW_SHARED)

'Query the order table for all that have not been assigned to a header - ie po_created is false
'Also order the queried records by Customer in prep for creating header records
tDET.query_create("N",".not. Billed .AND. isblank('Reference')","Customer")

'go to the first record in the query of the order table
tDET.fetch_first()

'
'while the order table is on the first record the Customer name is saved to a variable
' and a header record is created.
'The header Customer field is set to the saved Customer value
'the trans_num of the newly created header record is saved to a variable
while .not. tDET.fetch_eof()
thiscustomer = tDET.Customer
tHDR.enter_begin()
tHDR.Trans_date = date()
tHDR.Due_Date = date() + val(right(tHDR.Terms,2))
tHDR.Name = thiscustomer
tHDR.Trans_Type = "Income"
tHDR.Event = "Invoice"
tHDR.Entered_by = getusername()
tHDR.Date_entered = date()
tHDR.enter_end()
thisorder = tHDR.Trans_num

'while the current order record's Customer value is equal to the saved Customer value
'the record is updated with the saved trans_num and Po_created is set to true.
'in this while section teh next record is fetched and as long as the Customer name is
'the same the record gets the same trans_num.
'as soon as the Customer name is different to the value saved in the variable
'this while loop is exited and the code continues with the outer while loop
'which creates a new header record etc.
while (.not. tDET.fetch_eof()) .and. (tDET.customer = thiscustomer)
tDET.change_begin()
tDET.trans_num = thisorder
tDET.line_num =padl(ltrim(str(thisline,3,0)),3,"0")
tDET.Billed = .t.
tDET.change_end()
tDET.fetch_next()
thisline=thisline+1
end while
end while
tDET.close()
tHDR.close()

[Stan Mathews]

Re: Drop Down Browse variable

it processes all records and I need to have only the one that I am looking at

IT being the invoice printing?

The filter for the invoice would seem to me to be

customer = var->thiscustomer .and. trans_num = var->thisorder

but I'm probably overlooking something.

You will need to change

dim thiscustomer as C
dim thisorder as C
to
dim global thiscustomer as C
dim global thisorder as C

for the invoice (report?) to be able to "see" the variables.