Memo Fields

[martinwcole]

Re: Memo Fields

Hi Raymond,

The main idea behind the approach is that since all memos are maintained in a single file, and since when the file corrupts and "baloons," one runs the risk of losing the entire file, i.e., all the memos. Therefore, this approach has each individual memo record in a single "backup" textfile.

For an RTF memo, here is an example of a single record saved to a text file. The name of the text file is such that it relates to a particular pareent. In the following example, the name of the text file is "PR_CM6000219"

{\rtf1\ansi \deff0{\colortbl;\red0\green0\blue0;}{\fonttbl{\f0\fswiss Tahoma;}{\f1\fnil Tahoma;}}{\s696 {\f1 \cf1 \fs16 Terrance Pysh\tab \tab \tab GSA\tab \tab \tab 817.978.7114\tab [email protected]\par \s14637 Bill Zorka\tab \tab \tab \tab DHS\tab \tab \tab 214.334.5894\tab [email protected]\par \s88 David LaMascus\tab \tab \tab USBP\tab \tab \tab 830.278.7133\par \s88 Matthew Lieurance\tab \tab \tab USBP Del Rio\tab \tab 830.778.7101\tab [email protected]\par \s28261 Rudy Arredondo\tab \tab \tab USBP Del Rio\tab \tab 830.778.7937\tab [email protected]\par \s8 Richard Juarez\tab \tab \tab DHS\tab \tab \tab 830.778.7911\tab [email protected]\par \s13 Roberto Benavides\tab \tab \tab USBP Del Rio\tab \tab 830.778.7000\tab [email protected]\par \s8224 John Luedecke\tab \tab \tab USBP Owner Rep\tab \tab 830.703.9791\tab [email protected]\par \s88 Jeff Gandy\tab \tab \tab USBP\tab \tab \tab 830.778.7062\tab [email protected]\par \s25961 Ron Miler\tab \tab \tab \tab USBP\tab \tab \tab 830.278.7133\tab [email protected]\par \s696 John Ferencak\tab \tab \tab Goetting & Assoc.\tab \tab 210.530.7000\tab j}{\f1 \cf1 \fs16 [email protected]\par \s30034 John Mills\tab \tab \tab \tab Goetting & Assoc.\tab \tab 210.530.7000\tab [email protected]\par \s32125 Al Hajka\tab \tab \tab \tab Walter P. Moore\tab \tab 512.330.1297\tab [email protected]\par \s30034 Sam Morris\tab \tab \tab Richter Architects\tab \tab 361.882.1288\tab [email protected]\par \s30034 Lonnie Gatlin\tab \tab \tab Richter Architects\tab \tab 361.882.1288\tab [email protected]\par \s696 }{\ul \f1 \cf1 \fs16 David Richter\tab \tab \tab Richter Architects\tab \tab 361.882.1288\tab [email protected]\par \s112662144 \par \s696 }{\b \ul \f1 \cf1 \fs16 Architectural \par \s112662144 }{\ul \f1 \cf1 \fs16 \par \s696 }{\f1 \cf1 \fs16 Bill Zorka commented on the status of the different portions of the project Scope of Work:}{\ul \f1 \cf1 \fs16 \par \s696 }{\f1 \cf1 \fs16 1. }{\f1 \cf1 \fs16 }{\f1 \cf1 \fs16 E}{\f1 \cf1 \fs16 agle Pass is pending GSA authorization\par \s29281 2. Del Rio is pending GSA authorization\par \s816 3. Uvalde is authorized and under-way\par \s112647584 \par \s696 }{\f1 \cf1 \fs16 Terrance Pysh briefly described the Uvalde Scope of Work:\par \s29281 1. Scope includes two new metal building structures.\par \s29281 a\) 6000 SF Processing Center\par \s29281 b\) 6000 SF Administration Building\par \s29281 c\) Both structures to include fire sprinkler system\par \s29281 2. Scope includes the renovation of the existing Administration Building\par \s29281 3. Documents submittal dates are as follows:\par \s29281 a\) 2-14-08 at 9:00 am - DID for Review\par \s29281 b\) 3-18-08 at 9:00 am DID 95% \par \s29281 c\) Final Design intent documents are due NLT 7 calendar days from receipt of Final Government comments.\par \s112689160 \par \s29281 Ron Miller indicated that project time line included:\par \s29281 1. Completion of new structures in December 2008\par \s696 2. Completion of }{\f1 \cf1 \fs16 existing}{\f1 \cf1 \fs16 }{\f1 \cf1 \fs16 Administration}{\f1 \cf1 \fs16 Building renovation on or before February 18, 2009\par \s111962760 \par \s29281 Bill Zorka indicated that GSA will utilize an interior designer for coordination of all new furniture selection at new and renovated structures.\par \s111962760 \par \s29281 Existing 6,000 gallon gasoline storage tank shall be converted to diesel.\par \s111962760 \par \s29281 Current operations include 4 daily work shifts.\par \s111962760 \par \s29281 Scope of Work shall include general exterior cleaning and repairs to existing Administration building. and associated structures.\par \s29281 1. Power wash existing sidewalks\par \s29281 2. Repair and/or dress cracks in existing stucco.\par \s696 3. Remove and replace perimeter sealant }{\f1 \cf1 \fs16 at all}{\f1 \cf1 \fs16 existing exterior windows and doors.\par \s29281 4. Replace damaged or deficient exterior doors. Refinish those to remain.\par \s29281 5. Coordinate new and existing keying with existing system.\par \s111962760 \par \s29281 Two new emergency generators are included in Scope of Work:\par \s29281 1. One shall power the two new 6,000 Sf buildings.\par \s29281 2. One shall power the existing renovated Administration Building\par \s696 3. Each }{\f1 \cf1 \fs16 generator}{\f1 \cf1 \fs16 shall incorporate 16 hour run time fuel }{\f1 \cf1 \fs16 reservoirs}{\f1 \cf1 \fs16 ,\par \s29281 4. Each shall include fuel tank and engine block heaters.\par \s111962760 \par \s696 The Scope of Work shall include new site lighting throughout. ADA upgrades are required in the }{\f1 \cf1 \fs16 renovation}{\f1 \cf1 \fs16 of the existing Administration building.\par \s111962760 \par \s696 An automatic car wash }{\f1 \cf1 \fs16 station shall be }{\f1 \cf1 \fs16 included as a project Bid Option. Utility requirements as such, shall be defined accordingly. Wash station shall include oil/solids separator, canopy and lighting.\par \s111962760 \par \s576 OIT systems raceways between structures shall be included and shall incorporate conduit and pull stings only. The existing data/com service entry room shall be expanded at existing Administration Building.\par \s111962760 \par \s576 It was noted that the existing Haile building resides on leased property.\par \s111962760 \par \s696 New pre-}{\f1 \cf1 \fs16 engineered}{\f1 \cf1 \fs16 metal structures should utilize a roof slope in the range of 1/2\" per liner foot.\par \s111962760 \par \s696 9'-0\" ceiling heights are }{\f1 \cf1 \fs16 preferable}{\f1 \cf1 \fs16 in offices and meeting rooms.\par \s111962760 \par \s576 Utility Contacts are as follows:\par \s111962760 \par \s576 Security - Jeff Gandy\par \s696 }{\f1 \cf1 \fs16 Property}{\f1 \cf1 \fs16 Line }{\f1 \cf1 \fs16 Survey}{\f1 \cf1 \fs16 - Ron Miller\par \s576 Water and Gas - City of Uvalde \(John Hanell\)\par \s10200 Electric Power - AEP\par \s111962760 \par \s10200 Radio Communications can utilize existing LAN/Telecom Room For 2'x2'x6' cabinet}{\f1 \cf1 \fs16 \par \s111962760 \par \s10200 Renovations to existing Administration building shall include:\par \s27709 1. 400 SF Conference Training Room\par \s27709 2. 25 total offices\par \s27709 3. 150 SF File Room\par \s27709 4. K-9 Supervisor Office\par \s27709 5. Replacement suspension acoustical ceilings\par \s27709 6. Replacement flooring\par \s27709 7. Replacement light fixtures\par \s27709 8. Replacement ADA compliant door hardware\par \s696 9. New wall finisher }{\f1 \cf1 \fs16 throughout}{\f1 \cf1 \fs16 \par \s27709 10. Accessible parking stalls\par \s112464160 \par \s432 All site landscaping will be provided by the Owner.\par \s112464160 \par \s432 Contractors warranty for all aspects of the project shall include:\par \s696 1. 2 year on new }{\f1 \cf1 \fs16 construction}{\f1 \cf1 \fs16 and renovation.\par \s432 2. 10 year minimum Roof warranty\par \s696 3. All new }{\f1 \cf1 \fs16 construction}{\f1 \cf1 \fs16 shall comply with IBC code requirements adopted by the City of Uvalde\par \s111969632 \par \s696 }{\b \ul \f1 \cf1 \fs16 Mechanical & Electrical\par \s111969632 \par \s696 }{\f1 \cf1 \fs16 Design effort is a 35% design with a target project completion of December.\par \s111969632 \par \s912 Richard Juarez is the P.O.C. for Electronics at \(830\)778-7911.\par \s111990872 \par \s912 The existing 6000 gallon fuel tank is replenished on 10 to 14 day intervals.\par \s111990872 \par \s912 The security system is a must. Terrance Pysh would like to include it as an option.\par \s112062792 \par \s696 GSA will have an interior }{\f1 \cf1 \fs16 designer}{\f1 \cf1 \fs16 that will assist with the selection of furniture.\par \s112062792 \par \s912 DID is an add-on to the solicitation. A/E needs to furnish a cost estimate.\par \s14157144 \par \s912 A new 12,000 gallon fuel tank is requested with four dispensers.\par \s14157112 \par \s912 Priorities as requested by CBP are:\par \s912 a. Sally Port\par \s696 b. }{\f1 \cf1 \fs16 Security}{\f1 \cf1 \fs16 System\par \s912 c. 12,000 gal fuel system\par \s912 d. Move and Upgrade existing fuel dispensing system\par \s912 e. Car Wash Facility\par \s912 f. Include Furniture Moveout\par \s912 g. Exterior Restoration\par \s14156968 \par \s696 Generators are to }{\f1 \cf1 \fs16 supply}{\f1 \cf1 \fs16 full loading excepting the pole lights. Two generators are requested. One to supply the New Building and one to supply existing buildings. It was determined that supplying the existing main building and the modulars on one generator and providing one generator }{\f1 \cf1 \fs16 for}{\f1 \cf1 \fs16 }{\f1 \cf1 \fs16 the}{\f1 \cf1 \fs16 Heil building is preferable since the Heil building currently has a single phase service. The only work on the Heil Building is the generator addition.\par \s14156936 \par \s696 Generator tank shall be sized for 16 hours full loading and shall be }{\f1 \cf1 \fs16 diesel}{\f1 \cf1 \fs16 with tank and block heaters.\par \s14156904 \par \s912 Security scope is to include Surveillance, Intrusion detection and Access Control.\par \s14156872 \par \s912 HVAC Furnace are approximately 5 years old.\par \s14156840 \par \s912 Base bid shall include Pole Lighting and Cameras, but remainder of the security systems are to be optional.\par \s14156808 \par \s912 Security system Identified by the CBP is a GE Infographics system, Diamond II.\par \s14156776 \par \s912 P.O.C. for security work is Jeff \(See Sign-in\).\par \s14156744 \par \s696 AEP is the area's }{\f1 \cf1 \fs16 electric}{\f1 \cf1 \fs16 utility. A good point of contact at the City of Uvalde is Tom Austin, \(830\)591-2524\par \s14156712 \par \s912 Access control requirements are: All exterior doors, Armory, Evidence Room, IT and Canine.\par \s14156680 \par \s912 OIT needs includes infrastructure between buildings.\par \s14156648 \par \s696 GSA will be able to provide an updated environmental }{\f1 \cf1 \fs16 assessment}{\f1 \cf1 \fs16 report in March.\par \s14156616 \par \s912 Team is directed to use 9 foot ceilings with 1/2\" per foot on roof to provide for clearances.\par \s14156584 \par \s912 4-lamp T12 fixtures were observed in use at the building.\par \s14156552 \par \s912 The existing smoke detection system \(Line Voltage Alarms\) did not appear to have a tie to the Fire Alarm System.\par \s14156520 \par \s912 On-site personnel indicates that the generator on the site currently runs only egress lighting. G&A observed that a specific desk outlet and radios were also placed on the generator.\par \s14156488 \par \s912 Batteries were observed in egress lighting and exit signage, making the backup redundant in the building.\par \s14156456 \par \s696 }{\b \ul \f1 \cf1 \fs16 Civil\par \s14156424 \par \s696 }{\f1 \cf1 \fs16 The new modular buildings shall have the FF floor elevation set so that flooding from overland storm water flow does not flood the building. WPMA suggested that 1 ft above the existing or proposed finished grade be established.\par \s14156392 \par \s912 Terry Pysh stated that the utility corridor and alignments need to be coordinated with all existing utilities in the street and on the campus site.\par \s14156360 \par \s912 WPMA suggested that the sanitary line run along the existing drive so that each building and the proposed car wash grease trap can be tied in easily.\par \s14156328 \par \s696 WPM stated they would be meeting with City Departments this day to gather utility information. New power is to be placed underground }{\f1 \cf1 \fs16 from}{\f1 \cf1 \fs16 the closest Power source.\par \s112267376 \par \s696 All gas, water and sanitary is }{\f1 \cf1 \fs16 provided}{\f1 \cf1 \fs16 by the City of Uvalde.\par \s14156264 \par \s912 Existing swale and drainage will have to be enhanced to handle additional overland flow and detain as necessary on site.}{\f1 \cf1 \fs16 \par \s912 \par \s16240 \par \s14156200 \par \s14156184 }{\f1 \cf1 \fs24 }\par}}

here is an example of code that fires when a user pushes a button to edit an rtf memo:

on error goto errors
t=table.get("mfieldreports")
dim shared temp as c
dim global rnum as n
dim true1 as L=.f.
temp=t.meetingid
rnum=t.recno()
'browsefr.commit()
parentform.commit()
if t.recno() <> rnum
 t.fetch_goto(rnum) 'if it jumps
end if 
if t.is_record_locked()
 msgbox("Sorry","This record is currently in use.",48)
 end 
end if 
parentform.Allow_Change(.t.)
true1=.f.
t=table.get("mfieldmemos")
if t.meetingid="" 'record missing or destroyed - this is a 1 to 1 table
 t2=table.current(1)
 t.enter_begin()
  t.prproject=t2.prproject 
  t.meetingid=t2.MEETINGID
  t.comments="  "
  t.observations="  "
  t.trades_working="  "
 t.enter_end(.t.)
end if 
n=t.recno()
t=table.open("mfieldmemos",FILE_RW_SHARED)
t.fetch_goto(n)
dim r as p
r = rtf.create("")
f = t.field_get("observations")
if rtf_field_to_text("observations") = ""
  ''Change the RTF memo
 vChoice = a5_rtf_editor(r,"Observations")
 IF vChoice = "save" THEN
  true1=.t.
  observations.refresh()
  t.change_begin()
   f.value_put(r.binary_text)
  t.change_end(.t.)
 end if
else
 dim r as p
 r = rtf.create("")
 f = t.field_get("observations")
 rtfbinary = f.value_get()
 r.binary_text = rtfbinary
 result = a5_rtf_editor(r,"Edit")
 if result = "save" then
  true1=.t.
  observations.refresh()
  t.change_begin()
   f.value_put(r.binary_text)
  t.change_end(.t.)
 end if
end if
if true1=.t. 'if they made any changes
 if a5.Get_Master_Path()> ""
  bpath=a5.Get_Master_Path() + chr(92) + "memorecords"
 else
  bpath=a5.Get_Path() + chr(92) + "memorecords"
 end if 
 app_path=bpath
 rtf_text=*bin_to_rtf(t.observations)
 filename=app_path + chr(92) + "FR_OB" + alltrim(t.meetingid) + ".txt"
 [B][COLOR=red]file.from_string(filename,rtf_text)[/COLOR][/B]
end if 
t.close()
parentform.resynch()
xbasic_wait_for_idle()
parentform:observations.refresh()
parentform.Refresh_Layout()
xbasic_wait_for_idle()
end

Here is a button that restores the file. Note that when and if this would happen, the client would call me, and I would first find which memo file is corrupt, and from the associated backup text files, find which record or records that were bad, and remove those particular text files. Note that this memo file contains 3 different rtf memo fields that it is restoring.

on error goto errors
indexes_rebuild2() 'first rebuild the indexes
if a5.Get_Master_Path()> ""
 bpath=a5.Get_Master_Path() + chr(92) + "memorecords"
else
 bpath=a5.Get_Path() + chr(92) + "memorecords"
end if 
app_path=bpath 'find the subfolder containing the text files
on error goto errors2
t1=table.open("mfieldreports",FILE_RW_EXCLUSIVE)
t2=table.open("mfieldmemos",FILE_RW_EXCLUSIVE)
t2.zap(.t.)
t2.pack()
t2.close()
'first, go back and create an empty memo for each record
t2=table.open("mfieldmemos",FILE_RW_EXCLUSIVE)
on error goto errors
t1.fetch_first()
while .not. t1.fetch_eof() 'first create a "blank" memo for each parent
 t2.enter_begin()
  t2.Meetingid=t1.Meetingid
  t2.comments="  "
  t2.Observations="  "
  t2.Trades_working="  "
  t2.Prproject=t1.Prproject
 t2.enter_end()
 t1.fetch_next()
end while
t1.close()
t2.close()
on error goto errors2
t2=table.open("mfieldmemos",FILE_RW_EXCLUSIVE)
on error goto errors
list=filefind.get(app_path + chr(92) + "FR_CM*.txt")
n=w_count(list,crlf())
t2.fetch_first()
t2.index_primary_put("Meetingid")
for i=1 to n 
 temp=word(list,i,crlf())
 temp=alltrim(temp)
 m=len(temp)
 m=m-5
 tid=right(temp,m)
 rec=t2.fetch_find(tid)
 if rec > 0
  textget=file.to_string(app_path + chr(92) + temp)
  t2.change_begin()
   t2.comments=*rtf_to_bin(textget)
  t2.change_end()
 end if 
next
t2.close()
on error goto errors2
t2=table.open("mfieldmemos",FILE_RW_EXCLUSIVE)
on error goto errors
list=filefind.get(app_path + chr(92) + "FR_OB*.txt")
n=w_count(list,crlf())
t2.fetch_first()
t2.index_primary_put("Meetingid")
for i=1 to n 
 temp=word(list,i,crlf())
 temp=alltrim(temp)
 m=len(temp)
 m=m-5
 tid=right(temp,m)
 rec=t2.fetch_find(tid)
 if rec > 0
  textget=file.to_string(app_path + chr(92) + temp)
  t2.change_begin()
   t2.observations=*rtf_to_bin(textget)
  t2.change_end()
 end if 
next
t2.close()
on error goto errors2
t2=table.open("mfieldmemos",FILE_RW_EXCLUSIVE)
on error goto errors
list=filefind.get(app_path + chr(92) + "FR_TR*.txt")
n=w_count(list,crlf())
t2.fetch_first()
t2.index_primary_put("Meetingid")
for i=1 to n 
 temp=word(list,i,crlf())
 temp=alltrim(temp)
 m=len(temp)
 m=m-5
 tid=right(temp,m)
 rec=t2.fetch_find(tid)
 if rec > 0
  textget=file.to_string(app_path + chr(92) + temp)
  t2.change_begin()
   t2.trades_working=*rtf_to_bin(textget)
  t2.change_end()
 end if 
next
t2.close()
indexes_rebuild2()
end 
errors:
err_msg = error_text_get(error_code_get())
line = error_line_number_get()
script = error_script_get()
ui_msg_box("Error", err_msg+" Error occurred at line "+alltrim(str(line,4,0))+ " in script: "+script,16)
end
errors2: 
msgbox("Error","This requires exclusive access to the table. Be sure no one else is using the network, and re-run this script! - the program will now close.",16)
a5.close()
end

I have never needed to use this, although I assure you I have tested it many times.

The same appraoch, albeit much simple, can be used for regular memos.

[martinwcole]

Re: Memo Fields

Sorry, Peter, didn't mean to imply one can save a google map, just that they complain that they can't.

The newer HTML memo is more porwerful , but not useful for capturing data from a user, at least not from a typical user. And, ironically enough, when users copy and paste from word, the RTF memo is much more accurate than an HTML memo.

[Peter.Greulich]

Re: Memo Fields

Ok, thanks Martin. I just was able to insert a BMP image into an RTML memo using the popup's Insert Image icon. That worked good. BUT, you can't see the image in a form or browse - only in the popup.

[Peter.Greulich]

Re: Memo Fields

And if I insert a jpg in the same record, right after the bmp, both display correctly in the popup, and only the jpg in a browse or form. Weird.

[Peter.Greulich]

Re: Memo Fields

Ditto for gifs (they display).

[Peter.Greulich]

Re: Memo Fields

Ok, I'm going a little nuts here. Pasting a word doc (actually from OO), into a memo - text ok, an RTF, a big blank "rectangle", and into an HTML, unformatted teensy text.

[Peter.Greulich]

Re: Memo Fields

The plot thickens. Pasting the word.doc from OO into a regular memo, when you actually save the record, the inserted text disappears!

I guess this is what Alex was referring to. :(

CORRECTION: it's not when you save it, since the record won't acknowledge that the paste occurred, you don't even get the save icon activated. Instead, when you move to the next field, the text then magically vaporises (I think the CIA could use this feature).

[Tom Cone Jr]

Re: Memo Fields

Guys, the memo field format was developed when DOS was king. They'd never heard about the clipboard, copying / pasting, word formatted documents, google maps, gif, jpg, none of that stuff ... it's designed for plain ascii text. If one needs to support something else use a different tool or a different field datatype in the table structure.

[martinwcole]

Re: Memo Fields

I can successfully copy and paste from Word to an RTF memo, provided I know not to copy certain things - if you got a big rectangle, you most likely copied something besides plain text.

[Tom Cone Jr]

Re: Memo Fields

Martin, an RTF memo field is a different beast than the classic memo field.

[martinwcole]

Re: Memo Fields

Yes, I know - must have misread - though Peter was talking about pasting to RTF's when he got the big rectangle.

[Tom Cone Jr]

Re: Memo Fields

Agreed, unless we're all careful with our language we can cause a lot of confusion, after all an RTF memo field is a memo field, sort of, any way. :)

[martinwcole]

Re: Memo Fields

true, true