Le dim 16/11/2003 Ã 07:43, Melvin Cox a Ãcrit : -- snip -- > > Problem Two: Placing the current time into a field > ------------------ > > Just prior to an insert or update of any row, I wish to populate the form's > Last_update field with a datetime value reflecting the current date and time > (ie. "2003-11-14 13:17:39.250"). > > How can this best be implemented? >
Pick in the basic procs below the way in witch i'm inserting datetime refs (french format, to be changed for you) in my inserted/updated records (in sending the queries to PostgreSQL via a piped shell comand). > function parsesql s > global PgPath > repeat for each char c in s > try > if chartonum(c) > 223 > then put "&#" & chartonum(c) & ";" after t > else if chartonum(c) > 191 > then put "&#" & chartonum(c) & ";" after t > else put c after t > catch errornum > if c is not char 1 of s > then if c is not char -1 of s > then put "_" after t > end try > end repeat > replace "\" with "" in t > replace "[" with "&" in t > replace "]" with "\" in t > return shell("echo" && quote & t & quote && "|" && PgPath) > end parsesql > > > > function presave r > set itemdel to "Â" > put item 1 of r into s > put item 2 of r into t > set itemdel to "&" > replace numtochar(10) with "##10;#" in s > replace "\'" with "##11;#" in s > replace numtochar(34) with "##34;#" in s > replace "##11;###11;#" with "" in s > if "NRC=insert" is in s then put item itemoffset("rneetabl=",s) of s & return into > datatosave > repeat for each item i in s > if char 1 to 4 of i is t then put i & return after datatosave > end repeat > repeat for each char c in datatosave > try > if c is "_" > then put " " after datatosavec > else if chartonum(c) > 223 > then put "&#" & chartonum(c) & ";" after datatosavec > else if chartonum(c) > 191 > then put "&#" & chartonum(c) & ";" after datatosavec > else if chartonum(c) = 39 > then put "&#" & chartonum(c) & ";" after datatosavec > else put c after datatosavec > catch errornum > if c is not char 1 of datatosave > then if c is not char -1 of datatosave > then put "_" after datatosavec > end try > end repeat > set itemdelimiter to "/" > put item 2 of the short date & "/" & item 1 of the short date & "/" & item 3 of > the short date into aa > if length(item 1 of aa) = 1 then put "0" before item 1 of aa > if length(item 2 of aa) = 1 then put "0" before item 2 of aa > put "20" before item 3 of aa > if "rneetabl" is in datatosavec then > put " ( " into insertcolnames > put " values ( " into insertcoldatas > repeat for each line l in datatosavec > if l is line -1 of datatosavec then > put char 1 to 8 of l && ") " after insertcolnames > put "'" & aa & "' ) " after insertcoldatas > else > put char 1 to 8 of l && ", " after insertcolnames > put "'" & char 10 to -1 of l & "' , " after insertcoldatas > end if > end repeat > put insertcolnames && insertcoldatas into updatecols > else > repeat for each line l in datatosavec > if l is line -1 of datatosavec then put char 1 to 8 of l && "= '" & aa & "'" > after updatecols > else put char 1 to 8 of l && "= '" & the char 10 to -1 of l & "' , " after > updatecols > end repeat > end if > return updatecols > end presave > > Problem Three: Forcing All Caps > -------------------- > > To insure data integrity, my application design requires entry of data into > the "Pid" field in UPPER CASE format. > > While I have been successful in limiting the length of the data entered in > this field to ten (10) characters or less, my attempts to force > CAPITALIZATION have to date failed. The following script is currently > applied to the field: >From within Rev, just use the toUpper(x) transcript build-in function. Hope this help, > > =================================== > > on keyDown theKey > if the length of me >= 10 then beep > else pass keyDown > end keyDown > > =================================== > > Any assistance in these areas is most sincerely appreciated. > > > > Melvin Cox > BCM Productions > > _________________________________________________________________ > Frustrated with dial-up? Get high-speed for as low as $26.95. > https://broadband.msn.com (Prices may vary by service area.) > > _______________________________________________ > use-revolution mailing list > [EMAIL PROTECTED] > http://lists.runrev.com/mailman/listinfo/use-revolution -- Bien cordialement, Pierre Sahores 100, rue de Paris F - 77140 Nemours [EMAIL PROTECTED] GSM: +33 6 03 95 77 70 Pro: +33 1 41 60 52 68 Dom: +33 1 64 45 05 33 Fax: +33 1 64 45 05 33 Inspection acadÃmique de Seine-Saint-Denis Applications et SGBD ACID SQL (WEB et PGI) Penser et produire "delta de productivitÃ" _______________________________________________ use-revolution mailing list [EMAIL PROTECTED] http://lists.runrev.com/mailman/listinfo/use-revolution