| Alpha Software Mobile Development Tools: Alpha Anywhere | Alpha TransForm |     |
'Displaying Data from a Set
'This script demonstrates how you can use an Xdialog box to display data from a set. It shows data from the invoice.set in the AlphaSports sample application.
'The Main Script
'First, dimension variables and open the set. Exit if the set cannot be found.
dim shared vInvId as c =""
'vInvId ="000001" 'for test
dim setname as C
dim vl as P
dim s as P
dim line_number as N
dim invoice_number as C
dim invoice_date as D
dim customer as C
dim lastname as C
dim firstname as C
dim address1 as C
dim address2 as C
dim city as C
dim state as C
dim zip as C
dim items as C
dim direction as C
dim title_bar as C
setname = "invoice_set.set"
'setname = a5.Get_Exe_Path()+ chr(92) + "samples\alphasports\invoice_set.set"
'if file.exists(setname) = .f. then
' ui_msg_box("Error","Cannot run this script because '"+setname+"' not found.")
' end
'end if
vl = local_variables()
on error goto set_did_not_open
s = set.open_session(setname)
'Next, open the parent invoice_header table and the child invoice_items table. Initialize variables.
on error goto 0
'get pointer to invoice_header table
tih = s.invoice_header
tih.index_primary_put("")
tih.fetch_first()
'get pointer to invoice_items table
tii = s.invoice_item
line_number = 1
items = ""
direction = ""
invoice_number = ""
'Start creating the Xdialog with the navigation buttons. Note that the {can_exit} command allows you to close the dialog by clicking the X button at the upper right corner of the dialog. The {startup} command fires the init event, which displays the first records from the parent and child tables.
'How to insert the Check image at title bar? '{stickto=Center}{image=$$generic.check}{sort_order}
title_bar = "{F=Arial,8,B}{C=Dark Blue,White,Dark Blue}{B=White,Dark Blue,Blue White}{I:'$$generic.check'}{T=0.25}Quantity{T=0.75}Description{T=3.25}Price{T=4.00}Total"
'[%O={@@};D%.90,1^#title_bar?.f.];
'[%O={@@};D%.90,5line_number^#items];
';;;
'Want to see the xml browse at here. F9 Save records otherwise will not save it;
ui_modeless_dlg_box("Invoice",<<%dlg%
{can_exit=close}{startup=init}
{region0}
<%B=T;T=First;I=$a5_record_first;%!first>
<%B=T;T=Previous;I=$a5_record_previous;%!prev>
<%B=T;T=Next;I=$a5_record_next;%!next>
<%B=T;T=Last;I=$a5_record_last;%!last>
<%B=T;T=Find;I=$a5_find_by_key;%!find>
;
Create the fields to display the records from the parent table;
and the list box to display the records from the child table.
{endregion0};
{line=1,0};
{region}
Invoice Number: |[.20invoice_number];
Date: |[.20invoice_date];
Customer:|[.55customer];
Name:|[.20firstname] [.32lastname];;
Address1:|[.55address1];
Address2:|[.55address2];
City, ST Zip: |[.31city] [.5state] [.12zip];
{endregion};
{lf};
{embedded=150,15:Browse in Xdialog}
{line=1,0};
{region}
<10&Close!close> ;
{endregion}
%dlg%,<<%code%
'This final block of the main script contains the event handling code, the error handler, and the end command.. Note how the INLIST()function is used to isolate the navigation events in a If ... END IF block.
if a_dlg_button = "init" then
get_header_variables(vl)
line_number = 1
'after get the table value, refresh the number
vInvId = eval("vInvId")
'call the childDlg, "Browse in Xdialog"
xml_showInvitem(vInvId)
ui_modeless_dlg_refresh("Browse in Xdialog")
end if
if a_dlg_button = "find" then
find_invoice(vl)
line_number = 1
end if
if a_dlg_button = "close" then
s.close()
ui_modeless_dlg_close("invoice")
end if
if inlist(a_dlg_button,"first","next","prev","last") then
if a_dlg_button = "first" then
direction = "first"
else if a_dlg_button = "prev" then
direction = "prev"
else if a_dlg_button = "next" then
direction = "next"
else if a_dlg_button = "last" then
direction = "last"
end if
fetch_next(vl)
line_number = 1
end if
%code%)
end
set_did_not_open:
ui_msg_box("Error",setname + " not found, or could not be opened.")
'Supporting Functions
'The fetch_next function retrieves the appropriate invoice_header record, ignoring child records (because the fetch level is set to 1). It retrieves the record's field values with the get_header_variables function.
function fetch_next as C (vars as P)
with vars
if direction = "next" then
tih.fetch_next(1)
else if direction = "prev" then
tih.fetch_prev(1)
else if direction = "last" then
tih.fetch_last(1)
else if direction = "first" then
tih.fetch_first(1)
end if
get_header_variables(vl)
end with
end function
'The get_header_variables function reads the current invoice_header record and assigns the values to the fields of the Xdialog with the get_items function.
function get_header_variables as v (vars as P)
with vars
vInvId = tih.eval("invoice_number")
invoice_number = tih.eval("invoice_number")
invoice_date = tih.eval("Date")
lastname = tih.eval("customer->lastname")
firstname = tih.eval("customer->firstname")
company = tih.eval("customer->company")
address1 = tih.eval("customer->Bill_Address_1")
address2 = tih.eval("customer->Bill_Address_2")
city = tih.eval("customer->Bill_City")
state = tih.eval("customer->Bill_State_Region")
zip = tih.eval("customer->Bill_Postal_Code")
get_items(vl)
'msgbox("what is Invoice?",vInvId)
'InvoiceItem_ShowXml(vInvId,local_variables())
'invoiceItem_xml_2(vInvId) 'Restrict
xml_showInvitem(vInvid)
ui_modeless_dlg_refresh("Invoice")
end with
end function
'The get_items function builds a list of child records for the current invoice_header record. The function applies the formatting to the list that the Xdialog list box control requires with the A5_OWNER_DRAW_LIST_FMT()function.
function get_items as C (vars as P)
with vars
items = ""
tii.fetch_first()
while .not. tii.fetch_eof()
items = items + tii.eval("quantity + '|'+description+'|'+ price + '|' + alltrim(str((quantity*price),12,2,'$'))")+ crlf()
tii.fetch_next()
end while
Dim format as P
Format.tab_stops=".5,3,3.75"
Format.odd_row_color="White"
Format.even_row_color="Blue White"
Format.odd_selected_color="Dark Blue"
Format.even_selected_color="Dark Blue"
Format.font="Arial,8"
Format.font_color_unselected="Black"
Format.font_color_selected="White"
Format.lastbutton="OK"
Format.group_size=1
Format.number_rows=.t.
Format.alternating_bands=.t.
'Apply 'owner draw' formatting information to the list
items = a5_owner_draw_list_fmt(items,Format)
end with
end function
'The find_invoice displays a popup menu of search alternatives. It then displays an Xdialog that accepts the search parameter. Depending on the user's choice, it sets the order of records using either the <TBL>.INDEX_PRIMARY_PUT()or <TBL>.ORDER()methods. It then finds the next matching record using either the <TBL>.FETCH_GOTO()or <TBL>.FETCH_FIND()methods. It uses the get_header_variables function to display the results. [Picture]
function find_invoice as C (vars as P)
with vars
menu_choices = <<%list%
Record Number
Invoice Number
Lastname
%list%
result = ui_popup_menu(menu_choices)
text_prompt = alltrim(result) + ":"
find_what = ""
if result = "" then
exit function
end if
find_result = ui_dlg_box("Find Invoice by " + result,<<%dlg%
{on_key=enter}
{lf};
{text=25,1:text_prompt} [.20find_what] {sp};;
{lf};
{line=1,0};
<10&Find!find?.not.(find_what="")> <10&Cancel!cancel>;
%dlg%)
if (find_result = "find") .or. (find_result = "enter") then
if (find_what <> "") then
if result = "record number" then
tih.index_primary_put("")
tih.fetch_goto(val(find_what))
get_header_variables(vl)
else if result = "invoice number" then
tih.order("invoice_number")
tih.fetch_find(find_what)
get_header_variables(vl)
else if result = "lastname" then
tih.order("customer->lastname")
tih.fetch_find(find_what)
get_header_variables(vl)
end if
end if
end if
end with
end function
'xml browse
FUNCTION xml_showInvitem AS C (vInvhdrId AS C )
dim dlg_title as c
dim dlg_body as c
dim dlg_event as c
dim browseObj1_browse_definition as c
dim browseObj1_tablename as c
browseObj1_tablename = "invoice_item.dbf"
dim flagIsActiveLinkTable as l
flagIsActiveLinkTable = a5_is_activelinktable("invoice_item.dbf")
'If the browse is based on an ActiveLink table then it is necessary to include
'the {statusarea} directive in the Xdialog definition. This is where progress is reported
'when the active-link table is fetching records from the server.
dim StatusAreaCommand as c = ""
if flagIsActiveLinkTable then
StatusAreaCommand = "{sp=.5}{statusarea=100,1};"
end if
dlg_title = "Browse in Xdialog"
dlg_body = <<%dlg%
'If you include the {removecomments} command, any line that starts with an single quote will be treated as a comment.
{removecomments}
{can_exit=close}
{startup=init}
{xmargin=0}{ymargin=0}
{stretch=height,width}
{watch=browseObj1.mode_get()!modechange}
{card=150,20BrowseCard_browseObj1};
{stretch=}
{stickto=bottom,left}
__StatusArea__;
<%T=Go to first record;B=T;I=$$navigate.first%!browseObj1_NavigateFirst>
<%T=Go to previous record;B=T;I=$$navigate.prev%!browseObj1_NavigatePrevious>
<%T=Go to next record;B=T;I=$$navigate.next%!browseObj1_NavigateNext>
<%T=Go to last record;B=T;I=$$navigate.last%!browseObj1_NavigateLast>
{sp=3}
<%T=Find by key;B=T;I=$a5_find_by_key%!browseObj1_FindByKey>
{sp=3}
<%T=Sort in ascending order;B=T;I=$$sort%!browseObj1_SortAscending>
<%T=Sort in descending order;B=T;I=$$sort.descending%!browseObj1_SortDescending>
{sp=3}
<%T=Save record;B=T;I=$a5_save%!browseObj1_SaveRecord?.not.(browseObj1.mode_get()="view")>
{sp=3}
<%T=Refresh;B=T;I=$$generic.refresh.color%!browseObj1_RefreshRecord?(browseObj1.mode_get()="view")>
;
{stickto=bottom,right}
{justify=right}
;;;
<10&Close!close>;
%dlg%
dlg_body = stritran(dlg_body,"__StatusArea__",StatusAreaCommand)
dlg_event = <<%code%
if a_dlg_button = "close" then
ui_modeless_dlg_close(dlg_title)
end if
if a_dlg_button = "init"
a_dlg_button = ""
browseObj1 = a5_XdialogDefaultBrowse(dlg_title,"Browsecard_browseObj1",browseObj1_tablename,"browseObj1_browse_definition")
'The status bar is only shown if the browse is based on an active-link table.
'When the browse is fetching data from the server, the status bar displays progress.
'However, when the browse is not fetching from the server, if the 'status_format' is not set to null, then
'the status bar will display 'Record x'. Since we don't want any display, we set the status_format to null.
'Note that the status_format can be set to any expression that evaluates in the context of the current record.
'e.g. "Record for" + lastname
browseObj1.Status_format = "\"\""
'find the records
browseObj1.queryrun("invoice_number="+quote(vInvhdrId))
end if
if a_dlg_button = "browseObj1_NavigateFirst" then
a_dlg_button = ""
browseObj1.Fetch_First()
else if a_dlg_button = "browseObj1_NavigateNext" then
a_dlg_button = ""
browseObj1.Fetch_Next()
else if a_dlg_button = "browseObj1_NavigatePrevious" then
a_dlg_button = ""
browseObj1.Fetch_Prev()
else if a_dlg_button = "browseObj1_NavigateLast" then
a_dlg_button = ""
browseObj1.Fetch_Last()
else if a_dlg_button = "browseObj1_FindByKey" then
a_dlg_button = ""
browseObj1.Find()
else if a_dlg_button = "browseObj1_SortAscending" then
a_dlg_button = ""
browseObj1.command("SORT_ASCENDING")
else if a_dlg_button = "browseObj1_SortDescending" then
a_dlg_button = ""
browseObj1.command("SORT_DESCENDING")
else if a_dlg_button = "browseObj1_SaveRecord" then
a_dlg_button = ""
browseObj1.commit()
else if a_dlg_button = "browseObj1_RefreshRecord" then
a_dlg_button = ""
browseObj1.command("REFRESH")
end if
%code%
browseObj1_browse_definition = <<%xml%
<browse width="1294" height="698" gridline_horizontal="yes" gridline_vertical="yes" restrict_split="yes" data_entry_style="default" row_height="16">
<title showtitles="yes" color="#155,176,252" accent_color="White" fill_style="Gradient Horizontal Glass" line_style="solid" line_color="#96,95,149" top="2" onclick_behaviour="Select">
<font color="Black" name="Tahoma" size="8" bold="yes"/>
<flyover color="#224,244,244" accent_color="#195,195,195" fill_style="Gradient Horizontal"/>
<selected color="#214,224,254" accent_color="#155,176,252" fill_style="Gradient Horizontal Middle" font_color="Black"/>
<focused color="#214,224,254" accent_color="#155,176,252" fill_style="Gradient Horizontal Middle" font_color="Black"/>
</title>
<background color="White" accent_color="Black" fill_style="Transparent"/>
<row_selector color="#178,198,250" accent_color="Black" fill_style="Solid" line_style="solid" line_color="#96,95,149">
<selected color="#214,224,254" accent_color="#178,198,250" fill_style="Transparent"/>
<focused color="#214,224,254" accent_color="Black" fill_style="Transparent"/>
</row_selector>
<splitter color="#178,198,250"/>
<horizontal line_color="#215,226,253" line_style="solid"/>
<vertical line_color="#215,226,253" line_style="solid"/>
<separator_top line_style="default"/>
<separator_left line_style="default"/>
<separator_right line_style="default"/>
<cells>
<cell color="#255,255,255" accent_color="#0,0,0" fill_style="Solid" font_color="#0,0,0" count="1"/>
<cell color="#215,226,253" accent_color="#249,251,255" fill_style="Gradient Horizontal Middle" font_color="#0,0,0" count="1"/>
</cells>
<selected color="System-Highlight" accent_color="Black" fill_style="Transparent" font_color="System-HighlightText"/>
<focused color="System-Highlight" accent_color="Black" fill_style="Transparent" font_color="System-HighlightText"/>
<currentrow color="System-Highlight" accent_color="Black" fill_style="Transparent" font_color="System-HighlightText"/>
<currentcolumn color="System-Highlight" accent_color="Black" fill_style="Transparent" font_color="System-HighlightText"/>
<new_record_appearance color="Win3D" accent_color="Black" fill_style="Transparent"/>
<font name="Tahoma" size="2"/>
<font name="Tahoma" size="2"/>
<columns>
<column name="Invoice_Number" align="Left" text_format="None">
<font color="Wintext" name="Tahoma" size="8"/>
<border color="Black" style="No border" width="1" has_left_edge="yes" has_right_edge="yes" has_top_edge="yes" has_bottom_edge="yes"/>
<fill color="<default>" accent_color="<default>" style="Transparent"/>
<shadow style="None"/>
<entry name="invoice_item->INVOICE_NUMBER" width="6"/>
<object name="Invoice_Number" column_title="Invoice Number" width="1.010416666666667"/>
</column>
<column name="Quantity" align="Left" text_format="None">
<font color="<default>" name="Tahoma" size="8"/>
<border color="Black" style="No border" has_left_edge="yes" has_right_edge="yes" has_top_edge="yes" has_bottom_edge="yes"/>
<fill color="<default>" accent_color="White" style="Transparent"/>
<shadow style="None"/>
<entry name="invoice_item->QUANTITY" width="5"/>
<object name="Quantity" column_title="Quantity" width="0.541666666666667"/>
</column>
<column name="Product_Id" align="Left" text_format="None">
<font color="<default>" name="Tahoma" size="8"/>
<border color="Black" style="No border" has_left_edge="yes" has_right_edge="yes" has_top_edge="yes" has_bottom_edge="yes"/>
<fill color="<default>" accent_color="White" style="Transparent"/>
<shadow style="None"/>
<entry name="invoice_item->PRODUCT_ID" width="12"/>
<object name="Product_Id" column_title="Product Id" width="3.03125"/>
</column>
<column name="Retail_Price" align="Right" text_format="None">
<font color="<default>" name="Tahoma" size="8"/>
<border color="Black" style="No border" has_left_edge="yes" has_right_edge="yes" has_top_edge="yes" has_bottom_edge="yes"/>
<fill color="<default>" accent_color="White" style="Transparent"/>
<shadow style="None"/>
<entry name="invoice_item->PRICE" width="8" dec="2" format=",B"/>
<object name="Retail_Price" column_title="Retail Price" width="0.760416666666667"/>
</column>
<column name="Extension" align="Right" text_format="None">
<font color="<default>" name="Tahoma" size="8"/>
<border color="Black" style="No border" has_left_edge="yes" has_right_edge="yes" has_top_edge="yes" has_bottom_edge="yes"/>
<fill color="<default>" accent_color="White" style="Transparent"/>
<shadow style="None"/>
<entry name="invoice_item->EXTENSION" width="9" dec="2" format=",B"/>
<object name="Extension" column_title="Extension" width="0.885416666666667"/>
</column>
</columns>
</browse>
%xml%
'Now, display the Xdialog.
ui_modeless_dlg_box(dlg_title,dlg_body,dlg_event)
END FUNCTION
function get_header_variables as v (vars as P)
with vars
vInvId = tih.eval("invoice_number")
invoice_number = tih.eval("invoice_number")
browseObj1.queryrun("invoice_number="+quote(vInvhdrId))
Comment