https://dataflex.wiki/api.php?action=feedcontributions&feedformat=atom&user=217.10.26.4 DataFlex Wiki - User contributions [en] 2026-05-02T22:40:48Z User contributions MediaWiki 1.43.8 https://dataflex.wiki/index.php?title=Character_Mode_Cookbook&diff=571 Character Mode Cookbook 2007-10-09T09:49:15Z <p>217.10.26.4: </p> <hr /> <div>=Keys and commands=<br /> <br /> on_key KCLEAR : F5<br /> on_key KCANCEL Send Cancel : Esc<br /> on_key KENTER : Enter<br /> on_key KSAVE_RECORD Send Do_Report : F2<br /> <br /> Promt commands<br /> df32<br /> dfcomp ex.src -pfv1 p=precompile<br /> dfcomp ex.src -fv1 fv1 creates prn-file (check errors)<br /> dfrun ex<br /> dfruncon ex with mouse support<br /> <br /> =Declaration=<br /> ==Properties and variables==<br /> property integer piCount public 0<br /> set piCount To (piCount(current_object)+1)<br /> <br /> ==Move==<br /> local integer liNumber<br /> move 0 To liNumber<br /> <br /> Move (key+1) to key key = key++ //Dont forget to use paratheses (a+(b*c))&lt;&gt;a+b*c<br /> <br /> ==Set/Get==<br /> Set value of (oPop(current_object)) item 0 to sVar // item[0] = sVar<br /> Get Value item 0 to sVar // sVar = item[0]<br /> <br /> ==Be aware of the difference==<br /> Set A of object to B A=B<br /> Get A of object to B B=A<br /> Move A to B<br /> <br /> You can only use Get and Set on properties<br /> <br /> =Functions and Procedures=<br /> get myFunc of (oObj(current_object)) &quot;tmp&quot; to sAnswer // sAnswer = oObj-&gt;myFunc(&quot;tmp&quot;)<br /> --------------<br /> SET<br /> value of OBJ ITEM to VAL<br /> location X Y [ABSOLUTE/RELATIVE]<br /> focus_mode to POINTER_ONLY<br /> --------------<br /> Procedure MyProcedure<br /> <br /> End_Procedure<br /> <br /> Send MyProcedure<br /> ------------------<br /> Procedure DisplayResult String lsValue1 String lsValue2 String lsValue3<br /> set value of (oOutput(self)) item 0 to lsValue1<br /> set value of (oOutput(self)) item 1 to lsValue2<br /> set value of (oOutput(self)) item 2 to lsValue3<br /> end_procedure<br /> send DisplayResult lsValue1 &quot;&quot; &quot;&quot;<br /> --------------<br /> Procedure_Section // used in reports to handle paging in a smarter way<br /> --------------<br /> <br /> Function MyFunction integer i returns Integer<br /> <br /> End_Function<br /> <br /> get MyFunction(self) as iRet<br /> --------------<br /> function myFunc string test returns string<br /> local string lsRval<br /> move test to lsRval<br /> function_return lsRval<br /> end_function<br /> <br /> get myFunc of (oObj(current_object)) &quot;tmp string&quot; to sAnswer<br /> <br /> =Start &quot;windows/console&quot;=<br /> start_ui // starts a new console<br /> ui_accept // has a return value<br /> activate_scope // opens a new &quot;window&quot;<br /> <br /> =Content layout=<br /> --------------<br /> /Answer.hdr<br /> +--------------------+<br /> /Answer.dat<br /> ¦ Answer:_________ ¦<br /> +--------------------+<br /> /*<br /> register_object oAnswer<br /> Object oAnswer is a Client Answer.hdr<br /> Set location 7 30 ABSOLUTE<br /> On_Key kcancel Send cancel <br /> <br /> Object oAnswData is a Form Answer.dat<br /> Set location 1 0 RELATIVE<br /> Set focus_mode to POINTER_ONLY<br /> item_list<br /> On_Item &quot;&quot; Send none<br /> end_item_list<br /> End_Object<br /> <br /> Procedure OpenAnswerForm string sValue<br /> local Integer iRval<br /> Set value of (oAnswData(current_object)) item 0 to sValue<br /> ui_accept current_object to iRval<br /> End_Procedure<br /> <br /> End_Object<br /> <br /> Send OpenAnswerForm to (oAnswer(current_object)) &quot;test string&quot;<br /> --------------<br /> <br /> =Reports=<br /> /oReportView1.SectionName<br /> __________________________________________________________________________<br /> /oReportView1.body<br /> ____________________ ______________________<br /> /*<br /> <br /> <br /> //Activate_View Activate_Report1 for oReportView<br /> Object oReportView1 is a Report_View NO_IMAGE<br /> <br /> Object oMainReport is a seq.Report NO_IMAGE<br /> <br /> Set Main_File to customer.file_number<br /> //set Ordering to 2 // Order by name<br /> Set Report_Title to &quot;Report 1 - Show position of sections&quot;<br /> <br /> set Page_End to 18 // Page length set to screen length<br /> <br /> Procedure _PrintSectionName String lsValue<br /> Print lsValue to oReportView1.SectionName.1<br /> Output_Pagecheck oReportView1.SectionName<br /> End_Procedure<br /> <br /> // Procedures Page_Top thru Page_Bottom ONLY get used by the outermost report<br /> // object... All other objects delegate messages to this ultimate parent.<br /> // creating these procedures in child reports will have NO effect.<br /> <br /> // Procedure_Section Page_Top as oReportView1.SectionName<br /> // Procedure_Section Report_Header as oReportView1.SectionName<br /> // Procedure_Section Page_Header as oReportView1.SectionName<br /> // Procedure_Section Page_Title as oReportView1.SectionName<br /> // Procedure_Section Page_Total as oReportView1.SectionName<br /> // Procedure_Section Page_Footer as oReportView1.SectionName<br /> // Procedure_Section Report_Footer as oReportView1.SectionName<br /> Procedure_Section Page_Bottom as oReportView1.SectionName<br /> Send _PrintSectionName &quot;Page_Bottom (last thing printed on every page)&quot;<br /> End_Procedure<br /> <br /> Procedure_Section Body as oReportView1.body // or Procedure_Section Body<br /> Print customer.name to oReportView1.body.1 // Sets the data fields<br /> Print customer.city to oReportView1.body.2<br /> Output_Pagecheck oReportView1.body // Prints the data to screen<br /> End_Procedure<br /> <br /> //Procedure_Section Total as oReportView1.SectionName<br /> <br /> End_Object<br /> <br /> Procedure run_report<br /> send run_report to (oMainReport(self))<br /> End_Procedure<br /> End_Object<br /> <br /> procedure Activate_Report_View_1<br /> send run_report to (oReportView1(self))<br /> end_procedure<br /> <br /> ---------------------------------------------------------------<br /> <br /> =Objects=<br /> Object oOrder is a Entry_View_Client oOrder.hdr<br /> Set location 5 8 ABSOLUTE <br /> <br /> Object Orderhea_DD is a Data_Set NO_IMAGE<br /> Set main_file to Orderhea.file_number<br /> End_Object <br /> <br /> Object Orderdtl_DD is a Data_Set NO_IMAGE<br /> Set main_file to Orderdtl.file_number <br /> Send attach_server (Orderhea_DD(current_object))<br /> //Set constrain_file to orderhea.file_number<br /> begin_constraints <br /> Constrain orderdtl relates to orderhea<br /> end_constraints<br /> End_Object <br /> <br /> Object oForm is a Entry_Form oOrder.frm<br /> Set location 1 0 RELATIVE<br /> Set Server to (Orderhea_DD(current_object)) <br /> <br /> item_list<br /> Entry_Item ORDERHEA.ORDER_NUMBER { AutoClear AutoFind }<br /> Entry_Item ORDERHEA.ORDER_DATE { AutoClear NoEnter }<br /> Entry_Item ORDERHEA.SHIP_VIA { AutoClear NoEnter }<br /> Entry_Item ORDERHEA.ORDERED_BY { AutoClear NoEnter }<br /> Entry_Item ORDERHEA.ORDER_TOTAL { AutoClear NoEnter } <br /> end_item_list<br /> <br /> End_Object<br /> <br /> Object oList is a Selection_List oOrder.lst<br /> Set location 13 0 RELATIVE<br /> Set Server to (Orderdtl_DD(current_object))<br /> <br /> Begin_Row <br /> Entry_Item ORDERDTL.DETAIL_NUMBER { AutoClear AutoFind NoPut}<br /> Entry_Item ORDERDTL.ITEM_ID { AutoClear }<br /> Entry_Item ORDERDTL.QTY_ORDERED { AutoClear }<br /> Entry_Item ORDERDTL.PRICE { AutoClear }<br /> Entry_Item ORDERDTL.EXTENDED_PRICE { AutoClear }<br /> End_Row<br /> <br /> End_Object<br /> <br /> End_Object<br /> <br /> <br /> <br /> [[Category:Basics]]<br /> [[Category:Cookbook]]</div> 217.10.26.4 https://dataflex.wiki/index.php?title=WikiPlayGround&diff=550 WikiPlayGround 2007-10-01T12:40:57Z <p>217.10.26.4: </p> <hr /> <div>you can write stuff here. (just press edit). You should also take a look at [[Getting started with wiki]]<br /> <br /> Really, just like that? Surely no...</div> 217.10.26.4 https://dataflex.wiki/index.php?title=Character_Mode_Cookbook&diff=106 Character Mode Cookbook 2007-08-17T13:26:39Z <p>217.10.26.4: </p> <hr /> <div> property integer piCount public 0<br /> set piCount To (piCount+1)<br /> <br /> local integer liNumber<br /> move 0 To liNumber<br /> <br /> on_key KCLEAR : F5<br /> on_key KCANCEL Send Cancel : Esc<br /> on_key KENTER : Enter<br /> on_key KSAVE_RECORD Send Do_Report : F2<br /> <br /> Promt commands<br /> df32<br /> dfcomp ex.src -pfv1 p=precompile<br /> dfcomp ex.src -fv1 fv1 creates prn-file (check errors)<br /> dfrun ex<br /> dfruncon ex with mouse support<br /> <br /> Move (key+1) to key key = key++ //Dont forget to use paratheses (a+(b*c))&lt;&gt;a+b*c<br /> <br /> Set value of (oPop(current_object)) item 0 to sVar // item[0] = sVar<br /> Get Value item 0 to sVar // sVar = item[0]<br /> <br /> <br /> Set A to B A=B<br /> Get A to B B=A<br /> <br /> get myFunc of (oObj(current_object)) &quot;tmp&quot; to sAnswer // sAnswer = oObj-&gt;myFunc(&quot;tmp&quot;)<br /> --------------<br /> SET<br /> value of OBJ ITEM to VAL<br /> location X Y [ABSOLUTE/RELATIVE]<br /> focus_mode to POINTER_ONLY<br /> --------------<br /> Procedure MyProcedure<br /> <br /> End_Procedure<br /> <br /> Send MyProcedure<br /> ------------------<br /> Procedure DisplayResult String lsValue1 String lsValue2 String lsValue3<br /> set value of (oOutput(self)) item 0 to lsValue1<br /> set value of (oOutput(self)) item 1 to lsValue2<br /> set value of (oOutput(self)) item 2 to lsValue3<br /> end_procedure<br /> send DisplayResult lsValue1 &quot;&quot; &quot;&quot;<br /> --------------<br /> Procedure_Section // used in reports to handle paging in a smarter way<br /> --------------<br /> <br /> Function MyFunction integer i returns Integer<br /> <br /> End_Function<br /> <br /> get MyFunction(self) as iRet<br /> --------------<br /> function myFunc string test returns string<br /> local string lsRval<br /> move test to lsRval<br /> function_return lsRval<br /> end_function<br /> <br /> get myFunc of (oObj(current_object)) &quot;tmp string&quot; to sAnswer<br /> --------------<br /> start_ui // starts a new console<br /> ui_accept // has a return value<br /> activate_scope // opens a new &quot;window&quot;<br /> <br /> --------------<br /> /Answer.hdr<br /> +--------------------+<br /> /Answer.dat<br /> ¦ Answer:_________ ¦<br /> +--------------------+<br /> /*<br /> register_object oAnswer<br /> Object oAnswer is a Client Answer.hdr<br /> Set location 7 30 ABSOLUTE<br /> On_Key kcancel Send cancel <br /> <br /> Object oAnswData is a Form Answer.dat<br /> Set location 1 0 RELATIVE<br /> Set focus_mode to POINTER_ONLY<br /> item_list<br /> On_Item &quot;&quot; Send none<br /> end_item_list<br /> End_Object<br /> <br /> Procedure OpenAnswerForm string sValue<br /> local Integer iRval<br /> Set value of (oAnswData(current_object)) item 0 to sValue<br /> ui_accept current_object to iRval<br /> End_Procedure<br /> <br /> End_Object<br /> <br /> Send OpenAnswerForm to (oAnswer(current_object)) &quot;test string&quot;<br /> --------------<br /> <br /> /oReportView1.SectionName<br /> __________________________________________________________________________<br /> /oReportView1.body<br /> ____________________ ______________________<br /> /*<br /> <br /> <br /> //Activate_View Activate_Report1 for oReportView<br /> Object oReportView1 is a Report_View NO_IMAGE<br /> <br /> Object oMainReport is a seq.Report NO_IMAGE<br /> <br /> Set Main_File to customer.file_number<br /> //set Ordering to 2 // Order by name<br /> Set Report_Title to &quot;Report 1 - Show position of sections&quot;<br /> <br /> set Page_End to 18 // Page length set to screen length<br /> <br /> Procedure _PrintSectionName String lsValue<br /> Print lsValue to oReportView1.SectionName.1<br /> Output_Pagecheck oReportView1.SectionName<br /> End_Procedure<br /> <br /> // Procedures Page_Top thru Page_Bottom ONLY get used by the outermost report<br /> // object... All other objects delegate messages to this ultimate parent.<br /> // creating these procedures in child reports will have NO effect.<br /> <br /> // Procedure_Section Page_Top as oReportView1.SectionName<br /> // Procedure_Section Report_Header as oReportView1.SectionName<br /> // Procedure_Section Page_Header as oReportView1.SectionName<br /> // Procedure_Section Page_Title as oReportView1.SectionName<br /> // Procedure_Section Page_Total as oReportView1.SectionName<br /> // Procedure_Section Page_Footer as oReportView1.SectionName<br /> // Procedure_Section Report_Footer as oReportView1.SectionName<br /> Procedure_Section Page_Bottom as oReportView1.SectionName<br /> Send _PrintSectionName &quot;Page_Bottom (last thing printed on every page)&quot;<br /> End_Procedure<br /> <br /> Procedure_Section Body as oReportView1.body // or Procedure_Section Body<br /> Print customer.name to oReportView1.body.1 // Sets the data fields<br /> Print customer.city to oReportView1.body.2<br /> Output_Pagecheck oReportView1.body // Prints the data to screen<br /> End_Procedure<br /> <br /> //Procedure_Section Total as oReportView1.SectionName<br /> <br /> End_Object<br /> <br /> Procedure run_report<br /> send run_report to (oMainReport(self))<br /> End_Procedure<br /> End_Object<br /> <br /> procedure Activate_Report_View_1<br /> send run_report to (oReportView1(self))<br /> end_procedure<br /> <br /> ---------------------------------------------------------------<br /> <br /> Object oOrder is a Entry_View_Client oOrder.hdr<br /> Set location 5 8 ABSOLUTE <br /> <br /> Object Orderhea_DD is a Data_Set NO_IMAGE<br /> Set main_file to Orderhea.file_number<br /> End_Object <br /> <br /> Object Orderdtl_DD is a Data_Set NO_IMAGE<br /> Set main_file to Orderdtl.file_number <br /> Send attach_server (Orderhea_DD(current_object))<br /> //Set constrain_file to orderhea.file_number<br /> begin_constraints <br /> Constrain orderdtl relates to orderhea<br /> end_constraints<br /> End_Object <br /> <br /> Object oForm is a Entry_Form oOrder.frm<br /> Set location 1 0 RELATIVE<br /> Set Server to (Orderhea_DD(current_object)) <br /> <br /> item_list<br /> Entry_Item ORDERHEA.ORDER_NUMBER { AutoClear AutoFind }<br /> Entry_Item ORDERHEA.ORDER_DATE { AutoClear NoEnter }<br /> Entry_Item ORDERHEA.SHIP_VIA { AutoClear NoEnter }<br /> Entry_Item ORDERHEA.ORDERED_BY { AutoClear NoEnter }<br /> Entry_Item ORDERHEA.ORDER_TOTAL { AutoClear NoEnter } <br /> end_item_list<br /> <br /> End_Object<br /> <br /> Object oList is a Selection_List oOrder.lst<br /> Set location 13 0 RELATIVE<br /> Set Server to (Orderdtl_DD(current_object))<br /> <br /> Begin_Row <br /> Entry_Item ORDERDTL.DETAIL_NUMBER { AutoClear AutoFind NoPut}<br /> Entry_Item ORDERDTL.ITEM_ID { AutoClear }<br /> Entry_Item ORDERDTL.QTY_ORDERED { AutoClear }<br /> Entry_Item ORDERDTL.PRICE { AutoClear }<br /> Entry_Item ORDERDTL.EXTENDED_PRICE { AutoClear }<br /> End_Row<br /> <br /> End_Object<br /> <br /> End_Object</div> 217.10.26.4 https://dataflex.wiki/index.php?title=Character_Mode_Cookbook&diff=105 Character Mode Cookbook 2007-08-17T13:04:19Z <p>217.10.26.4: </p> <hr /> <div> on_key KCLEAR : F5<br /> on_key KCANCEL Send Cancel : Esc<br /> on_key KENTER : Enter<br /> on_key KSAVE_RECORD Send Do_Report : F2<br /> <br /> Promt commands<br /> df32<br /> dfcomp ex.src -pfv1 p=precompile<br /> dfcomp ex.src -fv1 fv1 creates prn-file (check errors)<br /> dfrun ex<br /> dfruncon ex with mouse support<br /> <br /> Move (key+1) to key key = key++ //Dont forget to use paratheses (a+(b*c))&lt;&gt;a+b*c<br /> <br /> Set value of (oPop(current_object)) item 0 to sVar // item[0] = sVar<br /> Get Value item 0 to sVar // sVar = item[0]<br /> <br /> <br /> Set A to B A=B<br /> Get A to B B=A<br /> <br /> get myFunc of (oObj(current_object)) &quot;tmp&quot; to sAnswer // sAnswer = oObj-&gt;myFunc(&quot;tmp&quot;)<br /> --------------<br /> SET<br /> value of OBJ ITEM to VAL<br /> location X Y [ABSOLUTE/RELATIVE]<br /> focus_mode to POINTER_ONLY<br /> --------------<br /> Procedure MyProcedure<br /> <br /> End_Procedure<br /> <br /> Send MyProcedure<br /> ------------------<br /> Procedure DisplayResult String lsValue1 String lsValue2 String lsValue3<br /> set value of (oOutput(self)) item 0 to lsValue1<br /> set value of (oOutput(self)) item 1 to lsValue2<br /> set value of (oOutput(self)) item 2 to lsValue3<br /> end_procedure<br /> send DisplayResult lsValue1 &quot;&quot; &quot;&quot;<br /> --------------<br /> Procedure_Section // used in reports to handle paging in a smarter way<br /> --------------<br /> <br /> Function MyFunction integer i returns Integer<br /> <br /> End_Function<br /> <br /> get MyFunction(self) as iRet<br /> --------------<br /> function myFunc string test returns string<br /> local string lsRval<br /> move test to lsRval<br /> function_return lsRval<br /> end_function<br /> <br /> get myFunc of (oObj(current_object)) &quot;tmp string&quot; to sAnswer<br /> --------------<br /> start_ui // starts a new console<br /> ui_accept // has a return value<br /> activate_scope // opens a new &quot;window&quot;<br /> <br /> --------------<br /> /Answer.hdr<br /> +--------------------+<br /> /Answer.dat<br /> ¦ Answer:_________ ¦<br /> +--------------------+<br /> /*<br /> register_object oAnswer<br /> Object oAnswer is a Client Answer.hdr<br /> Set location 7 30 ABSOLUTE<br /> On_Key kcancel Send cancel <br /> <br /> Object oAnswData is a Form Answer.dat<br /> Set location 1 0 RELATIVE<br /> Set focus_mode to POINTER_ONLY<br /> item_list<br /> On_Item &quot;&quot; Send none<br /> end_item_list<br /> End_Object<br /> <br /> Procedure OpenAnswerForm string sValue<br /> local Integer iRval<br /> Set value of (oAnswData(current_object)) item 0 to sValue<br /> ui_accept current_object to iRval<br /> End_Procedure<br /> <br /> End_Object<br /> <br /> Send OpenAnswerForm to (oAnswer(current_object)) &quot;test string&quot;<br /> --------------<br /> <br /> /oReportView1.SectionName<br /> __________________________________________________________________________<br /> /oReportView1.body<br /> ____________________ ______________________<br /> /*<br /> <br /> <br /> //Activate_View Activate_Report1 for oReportView<br /> Object oReportView1 is a Report_View NO_IMAGE<br /> <br /> Object oMainReport is a seq.Report NO_IMAGE<br /> <br /> Set Main_File to customer.file_number<br /> //set Ordering to 2 // Order by name<br /> Set Report_Title to &quot;Report 1 - Show position of sections&quot;<br /> <br /> set Page_End to 18 // Page length set to screen length<br /> <br /> Procedure _PrintSectionName String lsValue<br /> Print lsValue to oReportView1.SectionName.1<br /> Output_Pagecheck oReportView1.SectionName<br /> End_Procedure<br /> <br /> // Procedures Page_Top thru Page_Bottom ONLY get used by the outermost report<br /> // object... All other objects delegate messages to this ultimate parent.<br /> // creating these procedures in child reports will have NO effect.<br /> <br /> // Procedure_Section Page_Top as oReportView1.SectionName<br /> // Procedure_Section Report_Header as oReportView1.SectionName<br /> // Procedure_Section Page_Header as oReportView1.SectionName<br /> // Procedure_Section Page_Title as oReportView1.SectionName<br /> // Procedure_Section Page_Total as oReportView1.SectionName<br /> // Procedure_Section Page_Footer as oReportView1.SectionName<br /> // Procedure_Section Report_Footer as oReportView1.SectionName<br /> Procedure_Section Page_Bottom as oReportView1.SectionName<br /> Send _PrintSectionName &quot;Page_Bottom (last thing printed on every page)&quot;<br /> End_Procedure<br /> <br /> Procedure_Section Body as oReportView1.body // or Procedure_Section Body<br /> Print customer.name to oReportView1.body.1 // Sets the data fields<br /> Print customer.city to oReportView1.body.2<br /> Output_Pagecheck oReportView1.body // Prints the data to screen<br /> End_Procedure<br /> <br /> //Procedure_Section Total as oReportView1.SectionName<br /> <br /> End_Object<br /> <br /> Procedure run_report<br /> send run_report to (oMainReport(self))<br /> End_Procedure<br /> End_Object<br /> <br /> procedure Activate_Report_View_1<br /> send run_report to (oReportView1(self))<br /> end_procedure<br /> <br /> ---------------------------------------------------------------<br /> <br /> Object oOrder is a Entry_View_Client oOrder.hdr<br /> Set location 5 8 ABSOLUTE <br /> <br /> Object Orderhea_DD is a Data_Set NO_IMAGE<br /> Set main_file to Orderhea.file_number<br /> End_Object <br /> <br /> Object Orderdtl_DD is a Data_Set NO_IMAGE<br /> Set main_file to Orderdtl.file_number <br /> Send attach_server (Orderhea_DD(current_object))<br /> //Set constrain_file to orderhea.file_number<br /> begin_constraints <br /> Constrain orderdtl relates to orderhea<br /> end_constraints<br /> End_Object <br /> <br /> Object oForm is a Entry_Form oOrder.frm<br /> Set location 1 0 RELATIVE<br /> Set Server to (Orderhea_DD(current_object)) <br /> <br /> item_list<br /> Entry_Item ORDERHEA.ORDER_NUMBER { AutoClear AutoFind }<br /> Entry_Item ORDERHEA.ORDER_DATE { AutoClear NoEnter }<br /> Entry_Item ORDERHEA.SHIP_VIA { AutoClear NoEnter }<br /> Entry_Item ORDERHEA.ORDERED_BY { AutoClear NoEnter }<br /> Entry_Item ORDERHEA.ORDER_TOTAL { AutoClear NoEnter } <br /> end_item_list<br /> <br /> End_Object<br /> <br /> Object oList is a Selection_List oOrder.lst<br /> Set location 13 0 RELATIVE<br /> Set Server to (Orderdtl_DD(current_object))<br /> <br /> Begin_Row <br /> Entry_Item ORDERDTL.DETAIL_NUMBER { AutoClear AutoFind NoPut}<br /> Entry_Item ORDERDTL.ITEM_ID { AutoClear }<br /> Entry_Item ORDERDTL.QTY_ORDERED { AutoClear }<br /> Entry_Item ORDERDTL.PRICE { AutoClear }<br /> Entry_Item ORDERDTL.EXTENDED_PRICE { AutoClear }<br /> End_Row<br /> <br /> End_Object<br /> <br /> End_Object</div> 217.10.26.4 https://dataflex.wiki/index.php?title=Character_Mode_Cookbook&diff=104 Character Mode Cookbook 2007-08-17T13:00:35Z <p>217.10.26.4: New page: on_key KCLEAR : F5 on_key KCANCEL Send Cancel : Esc on_key KENTER : Enter on_key KSAVE_RECORD Send Do_Report : F2 Promt commands df32 dfc...</p> <hr /> <div>on_key KCLEAR : F5<br /> on_key KCANCEL Send Cancel : Esc<br /> on_key KENTER : Enter<br /> on_key KSAVE_RECORD Send Do_Report : F2<br /> <br /> Promt commands<br /> df32<br /> dfcomp ex.src -pfv1 p=precompile<br /> dfcomp ex.src -fv1 fv1 creates prn-file (check errors)<br /> dfrun ex<br /> dfruncon ex with mouse support<br /> <br /> Move (key+1) to key key = key++ //Dont forget to use paratheses (a+(b*c))&lt;&gt;a+b*c<br /> <br /> Set value of (oPop(current_object)) item 0 to sVar // item[0] = sVar<br /> Get Value item 0 to sVar // sVar = item[0]<br /> <br /> <br /> Set A to B A=B<br /> Get A to B B=A<br /> <br /> get myFunc of (oObj(current_object)) &quot;tmp&quot; to sAnswer // sAnswer = oObj-&gt;myFunc(&quot;tmp&quot;)<br /> --------------<br /> SET<br /> value of OBJ ITEM to VAL<br /> location X Y [ABSOLUTE/RELATIVE]<br /> focus_mode to POINTER_ONLY<br /> --------------<br /> Procedure MyProcedure<br /> <br /> End_Procedure<br /> <br /> Send MyProcedure<br /> ------------------<br /> Procedure DisplayResult String lsValue1 String lsValue2 String lsValue3<br /> set value of (oOutput(self)) item 0 to lsValue1<br /> set value of (oOutput(self)) item 1 to lsValue2<br /> set value of (oOutput(self)) item 2 to lsValue3<br /> end_procedure<br /> send DisplayResult lsValue1 &quot;&quot; &quot;&quot;<br /> --------------<br /> Procedure_Section // used in reports to handle paging in a smarter way<br /> --------------<br /> <br /> Function MyFunction integer i returns Integer<br /> <br /> End_Function<br /> <br /> get MyFunction(self) as iRet<br /> --------------<br /> function myFunc string test returns string<br /> local string lsRval<br /> move test to lsRval<br /> function_return lsRval<br /> end_function<br /> <br /> get myFunc of (oObj(current_object)) &quot;tmp string&quot; to sAnswer<br /> --------------<br /> start_ui // starts a new console<br /> ui_accept // has a return value<br /> activate_scope // opens a new &quot;window&quot;<br /> <br /> --------------<br /> /Answer.hdr<br /> +--------------------+<br /> /Answer.dat<br /> ¦ Answer:_________ ¦<br /> +--------------------+<br /> /*<br /> register_object oAnswer<br /> Object oAnswer is a Client Answer.hdr<br /> Set location 7 30 ABSOLUTE<br /> On_Key kcancel Send cancel<br /> <br /> Object oAnswData is a Form Answer.dat<br /> Set location 1 0 RELATIVE<br /> Set focus_mode to POINTER_ONLY<br /> item_list<br /> On_Item &quot;&quot; Send none<br /> end_item_list<br /> End_Object<br /> <br /> Procedure OpenAnswerForm string sValue<br /> local Integer iRval<br /> Set value of (oAnswData(current_object)) item 0 to sValue<br /> ui_accept current_object to iRval<br /> End_Procedure<br /> <br /> End_Object<br /> <br /> Send OpenAnswerForm to (oAnswer(current_object)) &quot;test string&quot;<br /> --------------<br /> <br /> /oReportView1.SectionName<br /> __________________________________________________________________________<br /> /oReportView1.body<br /> ____________________ ______________________<br /> /*<br /> <br /> <br /> //Activate_View Activate_Report1 for oReportView<br /> Object oReportView1 is a Report_View NO_IMAGE<br /> <br /> Object oMainReport is a seq.Report NO_IMAGE<br /> <br /> Set Main_File to customer.file_number<br /> //set Ordering to 2 // Order by name<br /> Set Report_Title to &quot;Report 1 - Show position of sections&quot;<br /> <br /> set Page_End to 18 // Page length set to screen length<br /> <br /> Procedure _PrintSectionName String lsValue<br /> Print lsValue to oReportView1.SectionName.1<br /> Output_Pagecheck oReportView1.SectionName<br /> End_Procedure<br /> <br /> // Procedures Page_Top thru Page_Bottom ONLY get used by the outermost report<br /> // object... All other objects delegate messages to this ultimate parent.<br /> // creating these procedures in child reports will have NO effect.<br /> <br /> // Procedure_Section Page_Top as oReportView1.SectionName<br /> // Procedure_Section Report_Header as oReportView1.SectionName<br /> // Procedure_Section Page_Header as oReportView1.SectionName<br /> // Procedure_Section Page_Title as oReportView1.SectionName<br /> // Procedure_Section Page_Total as oReportView1.SectionName<br /> // Procedure_Section Page_Footer as oReportView1.SectionName<br /> // Procedure_Section Report_Footer as oReportView1.SectionName<br /> Procedure_Section Page_Bottom as oReportView1.SectionName<br /> Send _PrintSectionName &quot;Page_Bottom (last thing printed on every page)&quot;<br /> End_Procedure<br /> <br /> Procedure_Section Body as oReportView1.body // or Procedure_Section Body<br /> Print customer.name to oReportView1.body.1 // Sets the data fields<br /> Print customer.city to oReportView1.body.2<br /> Output_Pagecheck oReportView1.body // Prints the data to screen<br /> End_Procedure<br /> <br /> //Procedure_Section Total as oReportView1.SectionName<br /> <br /> End_Object<br /> <br /> Procedure run_report<br /> send run_report to (oMainReport(self))<br /> End_Procedure<br /> End_Object<br /> <br /> procedure Activate_Report_View_1<br /> send run_report to (oReportView1(self))<br /> end_procedure<br /> <br /> ---------------------------------------------------------------<br /> <br /> Object oOrder is a Entry_View_Client oOrder.hdr<br /> Set location 5 8 ABSOLUTE <br /> <br /> Object Orderhea_DD is a Data_Set NO_IMAGE<br /> Set main_file to Orderhea.file_number<br /> End_Object <br /> <br /> Object Orderdtl_DD is a Data_Set NO_IMAGE<br /> Set main_file to Orderdtl.file_number <br /> Send attach_server (Orderhea_DD(current_object))<br /> //Set constrain_file to orderhea.file_number<br /> begin_constraints <br /> Constrain orderdtl relates to orderhea<br /> end_constraints<br /> End_Object <br /> <br /> Object oForm is a Entry_Form oOrder.frm<br /> Set location 1 0 RELATIVE<br /> Set Server to (Orderhea_DD(current_object)) <br /> <br /> item_list<br /> Entry_Item ORDERHEA.ORDER_NUMBER { AutoClear AutoFind }<br /> Entry_Item ORDERHEA.ORDER_DATE { AutoClear NoEnter }<br /> Entry_Item ORDERHEA.SHIP_VIA { AutoClear NoEnter }<br /> Entry_Item ORDERHEA.ORDERED_BY { AutoClear NoEnter }<br /> Entry_Item ORDERHEA.ORDER_TOTAL { AutoClear NoEnter } <br /> end_item_list<br /> <br /> End_Object<br /> <br /> Object oList is a Selection_List oOrder.lst<br /> Set location 13 0 RELATIVE<br /> Set Server to (Orderdtl_DD(current_object))<br /> <br /> Begin_Row <br /> Entry_Item ORDERDTL.DETAIL_NUMBER { AutoClear AutoFind NoPut}<br /> Entry_Item ORDERDTL.ITEM_ID { AutoClear }<br /> Entry_Item ORDERDTL.QTY_ORDERED { AutoClear }<br /> Entry_Item ORDERDTL.PRICE { AutoClear }<br /> Entry_Item ORDERDTL.EXTENDED_PRICE { AutoClear }<br /> End_Row<br /> <br /> End_Object<br /> <br /> End_Object</div> 217.10.26.4