== DBNAME == _fields[ [ '|soupName|, 'String ], [ '|fieldName|, 'String ], [ '|fieldType|, 'String ], [ '|indexed|, 'Boolean ], [ '|table|, 'String ], [ '|linkSoup|, 'String ], [ '|linkField|, 'String ], [ '|linkCondition|, 'code ], [ '|fieldWidth|, 'Int ], [ '|fieldFlags|, 'Int ], [ '|defaultValue|, 'String ], [ '|code|, 'code ], [ '|decimals|, 'Int ], [ '|pKey|, 'Boolean ] ]contacts	name	String	true					0	0				contacts	phone	String						0	0				contacts	address	String						0	0				contacts	city	String						0	0				contacts	state	String		states				0	0				contacts	zip	String						0	0				contacts	email	String						0	0				contacts	note	text						0	0				contacts	company	String	true					0	0				contacts	to do	String		to do				0	0		e.done := (StrLen(e.|to do|) = 0)		contacts	country	String		countries				0	0	USA			contacts	done	Boolean						0	0		if not e.done then\n\treturn nil;\nlocal tc := :Fetch("tasks", 'before, e.|to do|);\nif not tc or not tc:entry() then\n\treturn nil;\nif not e.note or StrLen(e.note) = 0 then\n\te.note := tc:entry().after && \n\tDateNTime(time())\nelse\n\te.note := e.note & chr(13) & \n\ttc:entry().after && \n\tDateNTime(time());\nif not tc:entry().next or\nStrLen(tc:entry().next) = 0 then\n\te.|to do| := "done"\nelse begin\n\te.|to do| :=  tc:entry().next;\n\te.done := StrEqual(e.|to do|, "done")\nend;\ntc := nil;		contacts	when	Date						0	0				contacts	Time	real							0			2	contacts	scheduled	Boolean							0		if not e.scheduled or not e.when then\n\treturn nil;\nlocal cs := getunionSoup("calendar");\ncs:AddToDefaultStore(\n{viewStationery: 'meeting,\nmtgStartDate: (e.when div 1440)*1440 + rinttol(e.time*60),\nmtgDuration: 60,\nmtgText: e.|to do| && e.name,\nviewBounds: nil});\ncs := nil;		== EOD ==== DBNAME == contacts[ [ '|name|, 'String ], [ '|phone|, 'String ], [ '|address|, 'String ], [ '|city|, 'String ], [ '|state|, 'String ], [ '|zip|, 'String ], [ '|email|, 'String ], [ '|note|, 'text ], [ '|company|, 'String ], [ '|to do|, 'String ], [ '|country|, 'String ], [ '|done|, 'Boolean ], [ '|when|, 'Date ], [ '|Time|, 'real ], [ '|scheduled|, 'Boolean ] ]Cecil Albrecht	210 555 1212	2345 Dawn	McAllen	TX	76204	cecil@centauri.com	developer interested in multiuser pricing	Centauri Computers	fax	USA		1/3/95	8.50	== EOD ==== DBNAME == _tables[ [ '|tblName|, 'String ], [ '|tblDisplay|, 'String ], [ '|tblStore|, 'Int ] ]states	CA	0states	NY	1states	Ontario	2states	FL	3states	MA	4states	NH	5states	TX	6states	MI	7states	VA	8states	PA	10states	MD	10states	UT	11states	OK	12states	MN	13states	Queensland	14states	MS	15states	NJ	16states	OR	17states	IA	18states	AZ	19states	NC	20states	KS	21states	IL	22states	Berkshire	23states	IN	24states	BC	25to do	mail	0to do	email	1to do	done	3to do	fax	4to do	call	5to do	send	6to do	send manual	7to do	send demo	8to do	send NFR copy	11to do	bill	13countries	USA	0countries	Germany	1countries	Canada	2countries	Australia	3countries	UK	4countries	Austria	5countries	Switzerland	6== EOD ==== DBNAME == _queries[ [ '|qName|, 'String ], [ '|soup|, 'String ] ]undone	contacts== EOD ==== DBNAME == _criteria[ [ '|Query|, 'String ], [ '|soup|, 'String ], [ '|field|, 'String ], [ '|comparison|, 'String ], [ '|value|, 'String ] ]undone	contacts	to do	\u2260\u	done== EOD ==== DBNAME == _views[ [ '|viewName|, 'String ], [ '|soup|, 'String ] ]Contacts	contacts== EOD ==== DBNAME == _columns[ [ '|view|, 'String ], [ '|column|, 'Int ], [ '|soup|, 'String ], [ '|field|, 'String ], [ '|width|, 'Int ], [ '|summary|, 'String ] ]Contacts	1	contacts	name	0	Contacts	2	contacts	phone	0	Contacts	3	contacts	state	17	noneContacts	4	contacts	note	0	== EOD ==== DBNAME == _fields[ [ '|soupName|, 'String ], [ '|fieldName|, 'String ], [ '|fieldType|, 'String ], [ '|indexed|, 'Boolean ], [ '|table|, 'String ], [ '|linkSoup|, 'String ], [ '|linkField|, 'String ], [ '|linkCondition|, 'code ], [ '|fieldWidth|, 'Int ], [ '|fieldFlags|, 'Int ], [ '|defaultValue|, 'String ], [ '|code|, 'code ], [ '|decimals|, 'Int ], [ '|pKey|, 'Boolean ] ]tasks	before	string	true	to do				0	0			0	tasks	after	string						0	0			0	tasks	next	String		to do				0	0			0	== EOD ==== DBNAME == tasks[ [ '|before|, 'String ], [ '|after|, 'String ], [ '|next|, 'String ] ]bill	billed	call	called	fax	faxed	callmail	mailed	callsend	sent	send demo	sent demo	callsend manual	sent manual	callsend update	sent update	== EOD ==== EOD ==