cease_delivery_confirmation
cREVGeneral revUniqueID 1402576581574 cease_delivery_confirmation @ X fld_cease_delivery_confirmation ih y d A cREVTable currentview cREVGeneral revUniqueID 1402576581575 X ,fld_link_to_cease_and_delivery_confirmation h P\y7 E cREVTable currentview cREVGeneral revUniqueID 1402576581576 X $add_cease_and_delivery_confirmation bB v " X cREVGeneral scripteditorvscroll 0 revUniqueID 1402576702318scripteditorselection 0 X )download_cease_and_delivery_confirmation bB v " X cREVGeneral revUniqueID 1402576581697scripteditorvscroll 0scripteditorselection 0 Button-7171 P $ mgClass Button ?# MobGUI iOS7 Button Control on mouseUp put the dgHilitedLines of group "Detection" into theLine if theLine is empty then answer "You must select a line." exit mouseup end if put the dgDataOfLine[theLine] of group "Detection" into theData put theData["account"] into fld "fld_account" of card "timeline" go to cd "timeline" end mouseUp # Search for behavior on preOpenControl local tBehavior put the behavior of me into tBehavior if tBehavior = empty or not exists(tBehavior) then put format("button \"S21-Button\" of card \"MobGUI\" of stack \"" & the mainStack of this stack & "\"") into tBehavior if exists(tBehavior) then set the behavior of me to tBehavior end if end if pass preOpenControl end preOpenControl )AdminPanel mgData mgpTheme mgTheme-iOS7 cREVGeneral revUniqueID 1401917730046scripteditorvscroll 2scripteditorselection 56 mgProps fontName HelveticatouchBackgroundColor 240,240,240 borderColor 230,230,230touchTextColor 179,179,179backgroundColor 240,240,240 showBorder false borderSize 0 fontSize 16 textColor 0,128,255 mgcBg KA P $ cREVGeneral revUniqueID 1401917729982 mgcGradient CA P $ ! 0 ( (, % cREVGeneral revUniqueID 1401917735306 mgcLabel PP $ cREVGeneral revUniqueID 1401917735307 cREVTable currentview Button Edit Timeline Button-7171 P $ mgClass Button B# MobGUI iOS7 Button Control on mouseUp put the dgHilitedLines of group "Objection" into theLine if theLine is empty then answer "You must select a line." exit mouseup end if put the dgDataOfLine[theLine] of group "Objection" into theData put theData["account"] into fld "fld_account" of card "timeline" go to cd "timeline" end mouseUp # Search for behavior on preOpenControl local tBehavior put the behavior of me into tBehavior if tBehavior = empty or not exists(tBehavior) then put format("button \"S21-Button\" of card \"MobGUI\" of stack \"" & the mainStack of this stack & "\"") into tBehavior if exists(tBehavior) then set the behavior of me to tBehavior end if end if pass preOpenControl end preOpenControl )AdminPanel mgData mgpTheme mgTheme-iOS7 cREVGeneral scripteditorvscroll 2 revUniqueID 1401917788281scripteditorselection 56 mgProps fontName HelveticatouchBackgroundColor 240,240,240 borderColor 230,230,230 showBorder falsebackgroundColor 240,240,240touchTextColor 179,179,179 borderSize 0 fontSize 16 textColor 0,128,255 mgcBg KA P $ cREVGeneral revUniqueID 1401917868336 mgcGradient CA P $ ! 0 ( (, % cREVGeneral revUniqueID 1401917788282 mgcLabel PP $ cREVGeneral revUniqueID 1401917868337 cREVTable currentview Button Edit Timeline Button-7171 P $ mgClass Button 9# MobGUI iOS7 Button Control on mouseUp put the dgHilitedLines of group "Switch" into theLine if theLine is empty then answer "You must select a line." exit mouseup end if put the dgDataOfLine[theLine] of group "Switch" into theData put theData["account"] into fld "fld_account" of card "timeline" go to cd "timeline" end mouseUp # Search for behavior on preOpenControl local tBehavior put the behavior of me into tBehavior if tBehavior = empty or not exists(tBehavior) then put format("button \"S21-Button\" of card \"MobGUI\" of stack \"" & the mainStack of this stack & "\"") into tBehavior if exists(tBehavior) then set the behavior of me to tBehavior end if end if pass preOpenControl end preOpenControl )AdminPanel mgData mgpTheme mgTheme-iOS7 cREVGeneral scripteditorvscroll 0 revUniqueID 1401917792000scripteditorselection 56 mgProps fontName HelveticatouchBackgroundColor 240,240,240 borderColor 230,230,230 showBorder falsebackgroundColor 240,240,240touchTextColor 179,179,179 borderSize 0 fontSize 16 textColor 0,128,255 mgcBg KA P $ cREVGeneral revUniqueID 1401918001231 mgcGradient CA P $ ! 0 ( (, % cREVGeneral revUniqueID 1401918001232 ! mgcLabel PP $ cREVGeneral revUniqueID 1401918001233 cREVTable currentview Button Edit Timeline " Button-7171 P $ mgClass Button @# MobGUI iOS7 Button Control on mouseUp put the dgHilitedLines of group "Validation" into theLine if theLine is empty then answer "You must select a line." exit mouseup end if put the dgDataOfLine[theLine] of group "Validation" into theData put theData["account"] into fld "fld_account" of card "timeline" go to cd "timeline" end mouseUp # Search for behavior on preOpenControl local tBehavior put the behavior of me into tBehavior if tBehavior = empty or not exists(tBehavior) then put format("button \"S21-Button\" of card \"MobGUI\" of stack \"" & the mainStack of this stack & "\"") into tBehavior if exists(tBehavior) then set the behavior of me to tBehavior end if end if pass preOpenControl end preOpenControl )AdminPanel mgData mgpTheme mgTheme-iOS7 cREVGeneral scripteditorvscroll 0 revUniqueID 1401917795384scripteditorselection 56 mgProps fontName HelveticatouchBackgroundColor 240,240,240 borderColor 230,230,230 showBorder falsebackgroundColor 240,240,240touchTextColor 179,179,179 borderSize 0 fontSize 16 textColor 0,128,255 # mgcBg KA P $ cREVGeneral revUniqueID 1401918001906 $ mgcGradient CA P $ ! 0 ( (, % cREVGeneral revUniqueID 1401918001907 % mgcLabel PP $ cREVGeneral revUniqueID 1401918001908 cREVTable currentview Button Edit Timeline & Button-7171 P $ mgClass Button <# MobGUI iOS7 Button Control on mouseUp put the dgHilitedLines of group "Inactive" into theLine if theLine is empty then answer "You must select a line." exit mouseup end if put the dgDataOfLine[theLine] of group "Inactive" into theData put theData["account"] into fld "fld_account" of card "timeline" go to cd "timeline" end mouseUp # Search for behavior on preOpenControl local tBehavior put the behavior of me into tBehavior if tBehavior = empty or not exists(tBehavior) then put format("button \"S21-Button\" of card \"MobGUI\" of stack \"" & the mainStack of this stack & "\"") into tBehavior if exists(tBehavior) then set the behavior of me to tBehavior end if end if pass preOpenControl end preOpenControl )AdminPanel mgData mgpTheme mgTheme-iOS7 cREVGeneral scripteditorvscroll 0 revUniqueID 1401917798277scripteditorselection 248 mgProps fontName HelveticatouchBackgroundColor 240,240,240 borderColor 230,230,230 showBorder falsebackgroundColor 240,240,240touchTextColor 179,179,179 borderSize 0 fontSize 16 textColor 0,128,255 ' mgcBg KA P $ cREVGeneral revUniqueID 1401918002919 ( mgcGradient CA P $ ! 0 ( (, % cREVGeneral revUniqueID 1401918002920 ) mgcLabel PP $ cREVGeneral revUniqueID 1401918002921 cREVTable currentview Button Edit Timeline W account i @v B cREVGeneral revUniqueID 1402080314573 Label Field * ` d cREVTable currentview Email: cREVGeneral revUniqueID 1402081193348 Email: fld_email )h a cREVTable currentview mbrenner583@gmail.com cREVGeneral revUniqueID 1402081193349 phoenix52581@gmail.com Label Field D ~ cREVTable currentview Account ID: cREVGeneral revUniqueID 1402081193350 Account ID: fld_account )h F d cREVGeneral revUniqueID 1402081193351 CB4611 Account Status: z | cREVTable currentview Account Status: cREVGeneral revUniqueID 1402081193352 Account Status: mnu_Active +e | % Active Active Inactive cREVGeneral revUniqueID 1402081193353scripteditorvscroll 0scripteditorselection 0 mnu_phase +e % Detection &Detection Objection Switch Validation cREVGeneral revUniqueID 1402081193354 mnu_status +e % New Customer 9New Customer Need Statements Not Yet Breakable Breakable cREVGeneral revUniqueID 1402081193355scripteditorvscroll 0scripteditorselection 0 fld_link_to_account )h FL link_to_account x cREVGeneral revUniqueID 1402081193356 Bhttps://www.cellbreaker.com/admin/accounts/Y3e3JinibbMbcbDKZLArrQ fld_given_email ih a j cREVTable currentview cREVGeneral revUniqueID 1402081193357 Button bB @on mouseUp launch URL fld "fld_link_to_account" end mouseUp B D 2 o cREVGeneral scripteditorvscroll 0 revUniqueID 1402081193358scripteditorselection 34 R Label Field x cREVTable currentview Statements found: cREVGeneral revUniqueID 1403204692538 Statements found: S Statment Count +` * cREVGeneral revUniqueID 1403204692539 4 T Stmt e` B < View Statements cREVGeneral scripteditorvscroll 0 revUniqueID 1403204692602scripteditorselection 0 U fld_last_action ih z last_action cREVGeneral revUniqueID 1403204708331 V Label Field y ` d cREVTable currentview Given Email: cREVGeneral revUniqueID 1403204723020 Given Email: W Label Field y x d cREVTable currentview Last Action: cREVGeneral revUniqueID 1403204869681 Last Action: "Q Save M` H b & cREVGeometry Master,moveVObjectSide bottom Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster trueMaster,scaletopObjectRef 1403700624437Master,moveVObjectRef card Master,scaleBottomObjectRef cardMaster,moveVAbsolute trueMaster,scaleBottomAbsolute true Master,moveV trueMaster,scaleBottom trueMaster,scaletopObjectSide bottomMaster,expectedRect 840,624,938,662Master,scalebottomDistance -18Master,movevDistance -37Master,scalerightDistance Master,scaletopAbsolute trueMaster,scaletop trueMaster,cardRanking 2Master,scaleleftDistance Master,scaletopDistance 12 cREVGeneral scripteditorvscroll 0 revUniqueID 1402083035873scripteditorselection 0 Ε All h @@@@@@ H on mousedoubleUp put the dgHilitedLines of me into theLine put the dgDataOfLine[theLine] of me into theData put theData["link_to_account"] into theURL launch URL theURL end mousedoubleUp column properties email label Email sort type text min width @D max width @@ encoding mac width @rP resizable true sort direction ascending $sort is case sensitive false visible true alignment left Phase label Phase sort type text min width @D max width @@ encoding mac width @Y resizable true sort direction ascending $sort is case sensitive false visible true alignment left link_to_account sort type text min width @D max width @@ width @Y sort direction ascending resizable true $sort is case sensitive false visible false alignment left Active label Active sort type text min width @D max width @@ encoding mac width @X resizable true sort direction ascending $sort is case sensitive false visible true alignment left status label Status sort type text min width @D max width @@ encoding mac width @b@ resizable true sort direction ascending $sort is case sensitive false visible true alignment left account label Account sort type text min width @D max width @@ encoding mac width @Y resizable true sort direction ascending $sort is case sensitive false visible true alignment left revDataGridLibrary cREVGeometry Master,movevDistance falseMaster,scalebottomDistance -13Master,expectedRect 10,66,1016,600 Master,scaleBottomObjectSide Bottom Master,scaleBottomscaleBottom trueMaster,movehDistance falseMaster true Master,scaleBottomObjectRef cardMaster,scalerightDistance Master,cardRanking 1Master,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,scaletopDistance Master,scaleleftDistance cGlx2TimeStamp checksum ُ B~ dgCache sequencing data dgProps %scrollbar corner offset 0scrollbar width auto auto hilite true corner color 232,232,232show vscrollbar trueshow hscrollbar truecolumn margins dim on focusOut true row template Jgroup id 1084 of card id 1083 of stack "Data Grid Templates 1390682063191" data can be represented as text true!scroll when hscrollbar is hidden falseheader background color 219,219,219 188,188,188allow column resizing truecolumn widths header margins header divider threed color 227,227,227 control type Data Gridcolumn divider color 217,217,217sort by column emailstyle tablecolumns 1account link_to_account email Active Phase statusfixed row height truealternate row colors true show header true scroll selections into view truebackground color multiple lines falsepersistent data trueallow editing false header background hilite color 194,207,221 125,147,148 row color row height 24!scroll when vscrollbar is hidden falseheader divider color 168,168,168alternate row color cache controls false hilite color cREVGeneral scripteditorvscroll 0 revUniqueID 1401912734766scripteditorselection 199 Ι dgTrackDragDrop ` 9 s ( revDataGridLibrary u cGlx2TimeStamp checksum ُ B~ cREVGeneral revUniqueID 1401912734664 Κ dgAlternatingRows d % 0 ` ^ 0 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1401912736806 Λ dgEventCatcher `@* I cGlx2TimeStamp checksum cREVGeneral revUniqueID 1401912736807 Θ Μ dgBackground k@ I cGlx2TimeStamp checksum ُ B~ cREVGeneral revUniqueID 1401912736808 Ν dgAlternatingRowsMask h \ cGlx2TimeStamp checksum cREVGeneral revUniqueID 1401912736809 Ξ dgAlternatingRows K@ Κ \ cGlx2TimeStamp checksum cREVGeneral revUniqueID 1401912736810 Ο dgListMask i \ cGlx2TimeStamp checksum cREVGeneral revUniqueID 1401912736811 Π dgHighlights i cGlx2TimeStamp checksum cREVGeneral revUniqueID 1401912736812 ι dgList i \ $ revDataGridLibrary cGlx2TimeStamp checksum ُ B~ cREVGeneral revUniqueID 1401912736813 account i \ d $ yrevDataGridLibrary cREVGeneral revUniqueID 1405468959842 link_to_account a \ $ yrevDataGridLibrary cREVGeneral revUniqueID 1405468959867 email i m \% $ yrevDataGridLibrary cREVGeneral revUniqueID 1405468959868 Active i \ ` $ yrevDataGridLibrary cREVGeneral revUniqueID 1405468959893 Phase i \ d $ yrevDataGridLibrary cREVGeneral revUniqueID 1405468959918 status i V \ $ yrevDataGridLibrary cREVGeneral revUniqueID 1405468959943 dgDividers i \ cGlx2TimeStamp checksum cREVGeneral revUniqueID 1401912736814 [ l \ cREVGeneral revUniqueID 1405468959968 [ \ cREVGeneral revUniqueID 1405468959969 [ \ cREVGeneral revUniqueID 1405468959970 [ \ cREVGeneral revUniqueID 1405468959971 [ U \ cREVGeneral revUniqueID 1405468959972 [ \ cREVGeneral revUniqueID 1405468959973 dgDropIndicator q r81 $ hrevDataGridLibrary cGlx2TimeStamp checksum ُ B~ cREVGeneral revUniqueID 1401912736815 dgOval [D r8 h cGlx2TimeStamp checksum cREVGeneral revUniqueID 1401912736816 dgLine [ y<* {>> cGlx2TimeStamp checksum cREVGeneral revUniqueID 1401912736817 dgHeaderComponents i I cGlx2TimeStamp checksum cREVGeneral revUniqueID 1401912736818 dgHeaderMask h I $ revDataGridLibrary cGlx2TimeStamp checksum ُ B~ cREVGeneral revUniqueID 1401912736819 dgBackground K@ @@@@@@ I ! 1 I \ d I cGlx2TimeStamp checksum cREVGeneral revUniqueID 1401912736820 dgHeader i I $ *revDataGridLibrary cGlx2TimeStamp checksum cREVGeneral revUniqueID 1401912736821 account i I d $ revDataGridLibrary cREVGeneral revUniqueID 1405468959974 Background C@ I d ! 1 I \ I } cREVGeneral revUniqueID 1405468959975 HeaderLabel @ I d cREVGeneral revUniqueID 1405468959976 Θ Account LeftHilite K@ I cREVGeneral revUniqueID 1405468959977 RightHilite K@ l I cREVGeneral revUniqueID 1405468959978 SortArrow `A _ N cREVGeneral revUniqueID 1405468959979 link_to_account a m I d $ revDataGridLibrary cREVGeneral revUniqueID 1405468959980 Background C@ m I d ! 1 m I m \ I } cREVGeneral revUniqueID 1405468959981 HeaderLabel @ m I d cREVGeneral revUniqueID 1405468959982 Θ link_to_account LeftHilite K@ m I cREVGeneral revUniqueID 1405468959983 RightHilite K@ I cREVGeneral revUniqueID 1405468959984 SortArrow `A N cREVGeneral revUniqueID 1405468959985 email i m I% $ revDataGridLibrary cREVGeneral revUniqueID 1405468959986 Background K@ m I% ! 1 m I m \ I } cREVGeneral revUniqueID 1405468959987 HeaderLabel @ m I cREVGeneral revUniqueID 1405468959988 Θ Email LeftHilite K@ m I cREVGeneral revUniqueID 1405468959989 RightHilite K@ I cREVGeneral revUniqueID 1405468959990 SortArrow bC N \ cREVGeneral revUniqueID 1405468959991 Active i I ` $ revDataGridLibrary cREVGeneral revUniqueID 1405468959992 Background C@ I ` ! 1 I \ I } cREVGeneral revUniqueID 1405468959993 HeaderLabel @ I ` cREVGeneral revUniqueID 1405468959994 Θ Active LeftHilite K@ I cREVGeneral revUniqueID 1405468959995 RightHilite K@ I cREVGeneral revUniqueID 1405468959996 SortArrow `A N cREVGeneral revUniqueID 1405468959997 Phase i I d $ revDataGridLibrary cREVGeneral revUniqueID 1405468959998 Background C@ I d ! 1 I \ I } cREVGeneral revUniqueID 1405468959999 HeaderLabel @ I d cREVGeneral revUniqueID 1405468960000 Θ Phase LeftHilite K@ I cREVGeneral revUniqueID 1405468960001 RightHilite K@ U I cREVGeneral revUniqueID 1405468960002 SortArrow `A H N cREVGeneral revUniqueID 1405468960003 status i V I $ revDataGridLibrary cREVGeneral revUniqueID 1405468960004 Background C@ V I ! 1V IV \ I } cREVGeneral revUniqueID 1405468960005 HeaderLabel @V I cREVGeneral revUniqueID 1405468960006 Θ Status LeftHilite K@ V I cREVGeneral revUniqueID 1405468960007 RightHilite K@ I cREVGeneral revUniqueID 1405468960008 SortArrow `A N cREVGeneral revUniqueID 1405468960009 * dgHeaderBottomBorder K @@@@@@ [ cGlx2TimeStamp checksum cREVGeneral revUniqueID 1401912736822 + dgHorizontalComponents i ) cGlx2TimeStamp checksum cREVGeneral revUniqueID 1401912736823 , dgHScrollbar Ia ) $ zrevDataGridLibrary 989 cGlx2TimeStamp checksum ُ B~ cREVGeneral revUniqueID 1401912736824 - dgCornerPiece K@ @@@@@@ ) cGlx2TimeStamp checksum cREVGeneral revUniqueID 1401912736825 . dgScrollbar I` \ $ frevDataGridLibrary 461 cGlx2TimeStamp checksum ُ B~ cREVGeneral revUniqueID 1401912736826scripteditorvscroll 0scripteditorselection 0 Η Button-7171 P $ mgClass Button 2# MobGUI iOS7 Button Control on mouseUp put the dgHilitedLines of group "All" into theLine if theLine is empty then answer "You must select a line." exit mouseup end if put the dgDataOfLine[theLine] of group "All" into theData put theData["account"] into fld "fld_account" of card "timeline" go to cd "timeline" end mouseUp # Search for behavior on preOpenControl local tBehavior put the behavior of me into tBehavior if tBehavior = empty or not exists(tBehavior) then put format("button \"S21-Button\" of card \"MobGUI\" of stack \"" & the mainStack of this stack & "\"") into tBehavior if exists(tBehavior) then set the behavior of me to tBehavior end if end if pass preOpenControl end preOpenControl )AdminPanel mgData mgpTheme mgTheme-iOS7 cREVGeneral revUniqueID 1401917798277scripteditorvscroll 0scripteditorselection 238 mgProps fontName HelveticatouchBackgroundColor 240,240,240 borderColor 230,230,230touchTextColor 179,179,179backgroundColor 240,240,240 showBorder false borderSize 0 fontSize 16 textColor 0,128,255 2 mgcBg KA P $ cREVGeneral revUniqueID 1401918002919 3 mgcGradient CA P $ ! 0 ( (, % cREVGeneral revUniqueID 1401918002920 4 mgcLabel PP $ cREVGeneral revUniqueID 1401918002921 cREVTable currentview Button Edit Timeline Button-7171 J $ mgClass Button # MobGUI iOS7 Button Control on mouseUp if the disabled of btn "Save" is false then answer "Do you wish to save the changes?" with "Yes" and "No" if it is "Yes" then Save_Me end if end if go back end mouseUp # Search for behavior on preOpenControl local tBehavior put the behavior of me into tBehavior if tBehavior = empty or not exists(tBehavior) then put format("button \"S21-Button\" of card \"MobGUI\" of stack \"" & the mainStack of this stack & "\"") into tBehavior if exists(tBehavior) then set the behavior of me to tBehavior end if end if pass preOpenControl end preOpenControl )AdminPanel mgData mgpTheme mgTheme-iOS7 cREVGeneral revUniqueID 1401918271431scripteditorvscroll 0scripteditorselection 204 mgProps fontName HelveticatouchBackgroundColor 240,240,240 borderColor 230,230,230touchTextColor 179,179,179backgroundColor 240,240,240 showBorder false borderSize 0 fontSize 16 textColor 0,128,255 mgcBg KA J $ cREVGeneral revUniqueID 1401918278097 mgcGradient CA J $ ! 0 ? & ? I &, % cREVGeneral revUniqueID 1401918278098 mgcLabel P J $ cREVGeneral revUniqueID 1401918278099 cREVTable currentview Button Back X document_text_down_32.png @ S E PNG IHDR szz tEXtSoftware Adobe ImageReadyqe< CIDATx0@F ~ #@78BwØĄC g AIoH5N DE* ,PBh 2E1, cBEt ɀ1&zWf tkҷ` EqSbH9@Y{7- zBy lQ-٣ 'й NiXR"N`mO ʁې"F |T,Kw;uO{D:,[NBpI @@)A xf | N .F$O[1'ϑ?[ $nw @۾# IENDB` cREVGeneral revUniqueID 1402522585221 X document_sans_down_32.png @ Y M PNG IHDR szz tEXtSoftware Adobe ImageReadyqe< /IDATx 0 @ND7 nFtFH7id$Ǵ% D0y Ϡ b1.' " AH!T"Y1ds#0 {$'qR^a w 0cawڑeؒ5-[mm2i-;}5 Ƴe˼.9QP:jS]lm%vC1 8N)T`u ݎ*"ޫ$'\f1F ,݃TQ&'0>&>2Lue ў:Ե^+ F0 G$Ғ% IENDB` cREVGeneral revUniqueID 1402522585222 X document_sans_add_32.png @ Y O PNG IHDR szz tEXtSoftware Adobe ImageReadyqe< :IDATx @C1#0#QGt@x9Xj?]Ny ! tΆ !@\ U ]h 1 д%tp N Ξ Ӭ^Rqm6-]o1qL wf LKx $aH䖺i '0I,iԒmy2Avf =R^ V`Yw^ߙ[º!(78Yz 9ʘW-g~NhP(.E CHc8 @IGiMK V<(mGhu 艹wL. zC IENDB` cREVGeneral revUniqueID 1402522585240 X document_text_add_32.png @ S G PNG IHDR szz tEXtSoftware Adobe ImageReadyqe< ]IDATxVm0 A=B6 $#(!UR$q؆i:y%\{0j!* 5$R@U3p%8SГ!EȘ7. ELФs] ջlqΈTxF ZNOȸ |1~X JlIR2UTRqYE6ȴ?@D ,ݡ1"> vA\jݓynCj1܇9HA8ȝ1DžmXk8l6 T ^!7t09 x+$-ʛ r 9k[ IENDB` cREVGeneral revUniqueID 1402522585256 U Button ep N on mouseUp if fld "Status" is empty then go to card "Stats" end mouseUp H nj x $ Old AdminPanel cREVGeneral scripteditorvscroll 0 revUniqueID 1402925949041scripteditorselection 64 V Button ep O on mouseUp if fld "Status" is empty then go to cd "Detection" end mouseUp H j x & TimeLine cREVGeneral revUniqueID 1402926023207scripteditorvscroll 0scripteditorselection 48 Status (t * cREVTable currentview ,Wait for Database Initialiation to complete. cREVGeneral revUniqueID 1402927312807 o link.png @ < PNG IHDR 0 0 W iTXtXML:com.adobe.xmpYou can edit the "Row Template" group on this card to customize the look and feel of your data grid form or table. To begin, select the "Row Template" group and choose Object > Edit Group menu item.
cREVGeneral revUniqueID 1236872189019 You can edit the "Row Template" group on this card to customize the look and feel of your data grid form or table. To begin, select the "Row Template" group and choose Object > Edit Group menu item. Row Template i 3 ) Data Grid Templates 1390682063191 ~ cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236088553682 Background K@ > cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559392 Label I ~ cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559393 Behavior Script Ep <-- This script defines the behavior of your data grid's custom template. This behavior -- only applies to 'forms' and not 'tables'. on FillInData pDataArray -- This message is sent when the Data Grid needs to populate -- this template with the data from a record. pDataArray is an -- an array containing the records data. -- You do not need to resize any of your template's controls in -- this message. All resizing should be handled in resizeControl. -- Example: set the text of field "Label" of me to pDataArray["label 1"] end FillInData on LayoutControl pControlRect local theFieldRect -- This message is sent when you should layout your template's controls. -- This is where you resize the 'Background' graphic, resize fields and -- position objects. -- For fixed height data grid forms you can use items 1 through 4 of pControlRect as -- boundaries for laying out your controls. -- For variable height data grid forms you can use items 1 through 3 of pControlRect as -- boundaries, expanding the height of your control as needed. -- Example: put the rect of field "Label" of me into theFieldRect put item 3 of pControlRect - 5 into item 3 of theFieldRect set the rect of field "Label" of me to theFieldRect set the rect of graphic "Background" of me to pControlRect end LayoutControl on ResetData -- Sent when data is being emptied because the control is no longer being used to display data set the text of field "Label" of me to empty end ResetData on PreFillInData -- Sent right before new data is going to replace existing data in the control end PreFillInData setprop dgHilite pBoolean -- This custom property is set when the highlight of your custom template has -- changed. By default the "Background" graphic will be highlighted for you. -- You only add script here if you want to further customize the highlight. -- Example: if pBoolean then set the foregroundColor of me to the dgProp["hilited text color"] of the dgControl of me else set the foregroundColor of me to empty end if end dgHilite getprop dgDataControl -- Required by library so that it can locate your control. return the long ID of me end dgDataControl on mouseDoubleUp pMouseBtnNum local theKey -- Example of how to edit the contents of a field. -- By passing the index of the record associated with copy of this template being displayed and -- a key (array key) the data grid will automatically save the changes the user -- makes and refresh the UI by calling FillInData and resizeControl. if pMouseBtnNum is 1 then if the dgProps["allow editing"] of the dgControl of me then switch the short name of the target case "Label" put "Label 1" into theKey EditFieldText the long ID of the target, the dgIndex of me, theKey break end switch end if end if pass mouseDoubleUp end mouseDoubleUp R Row Template i 3 ) Data Grid Templates 1390682063191 z cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236088553682 Background K@ < cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559392 Label I z cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559393 Behavior Script Ep <-- This script defines the behavior of your data grid's custom template. This behavior -- only applies to 'forms' and not 'tables'. on FillInData pDataArray -- This message is sent when the Data Grid needs to populate -- this template with the data from a record. pDataArray is an -- an array containing the records data. -- You do not need to resize any of your template's controls in -- this message. All resizing should be handled in resizeControl. -- Example: set the text of field "Label" of me to pDataArray["label 1"] end FillInData on LayoutControl pControlRect local theFieldRect -- This message is sent when you should layout your template's controls. -- This is where you resize the 'Background' graphic, resize fields and -- position objects. -- For fixed height data grid forms you can use items 1 through 4 of pControlRect as -- boundaries for laying out your controls. -- For variable height data grid forms you can use items 1 through 3 of pControlRect as -- boundaries, expanding the height of your control as needed. -- Example: put the rect of field "Label" of me into theFieldRect put item 3 of pControlRect - 5 into item 3 of theFieldRect set the rect of field "Label" of me to theFieldRect set the rect of graphic "Background" of me to pControlRect end LayoutControl on ResetData -- Sent when data is being emptied because the control is no longer being used to display data set the text of field "Label" of me to empty end ResetData on PreFillInData -- Sent right before new data is going to replace existing data in the control end PreFillInData setprop dgHilite pBoolean -- This custom property is set when the highlight of your custom template has -- changed. By default the "Background" graphic will be highlighted for you. -- You only add script here if you want to further customize the highlight. -- Example: if pBoolean then set the foregroundColor of me to the dgProp["hilited text color"] of the dgControl of me else set the foregroundColor of me to empty end if end dgHilite getprop dgDataControl -- Required by library so that it can locate your control. return the long ID of me end dgDataControl on mouseDoubleUp pMouseBtnNum local theKey -- Example of how to edit the contents of a field. -- By passing the index of the record associated with copy of this template being displayed and -- a key (array key) the data grid will automatically save the changes the user -- makes and refresh the UI by calling FillInData and resizeControl. if pMouseBtnNum is 1 then if the dgProps["allow editing"] of the dgControl of me then switch the short name of the target case "Label" put "Label 1" into theKey EditFieldText the long ID of the target, the dgIndex of me, theKey break end switch end if end if pass mouseDoubleUp end mouseDoubleUp R Row Template i 3 ) Data Grid Templates 1390682063191 x cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236088553682 Background K@ 8 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559392 Label I | cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559393 Behavior Script Ep <-- This script defines the behavior of your data grid's custom template. This behavior -- only applies to 'forms' and not 'tables'. on FillInData pDataArray -- This message is sent when the Data Grid needs to populate -- this template with the data from a record. pDataArray is an -- an array containing the records data. -- You do not need to resize any of your template's controls in -- this message. All resizing should be handled in resizeControl. -- Example: set the text of field "Label" of me to pDataArray["label 1"] end FillInData on LayoutControl pControlRect local theFieldRect -- This message is sent when you should layout your template's controls. -- This is where you resize the 'Background' graphic, resize fields and -- position objects. -- For fixed height data grid forms you can use items 1 through 4 of pControlRect as -- boundaries for laying out your controls. -- For variable height data grid forms you can use items 1 through 3 of pControlRect as -- boundaries, expanding the height of your control as needed. -- Example: put the rect of field "Label" of me into theFieldRect put item 3 of pControlRect - 5 into item 3 of theFieldRect set the rect of field "Label" of me to theFieldRect set the rect of graphic "Background" of me to pControlRect end LayoutControl on ResetData -- Sent when data is being emptied because the control is no longer being used to display data set the text of field "Label" of me to empty end ResetData on PreFillInData -- Sent right before new data is going to replace existing data in the control end PreFillInData setprop dgHilite pBoolean -- This custom property is set when the highlight of your custom template has -- changed. By default the "Background" graphic will be highlighted for you. -- You only add script here if you want to further customize the highlight. -- Example: if pBoolean then set the foregroundColor of me to the dgProp["hilited text color"] of the dgControl of me else set the foregroundColor of me to empty end if end dgHilite getprop dgDataControl -- Required by library so that it can locate your control. return the long ID of me end dgDataControl on mouseDoubleUp pMouseBtnNum local theKey -- Example of how to edit the contents of a field. -- By passing the index of the record associated with copy of this template being displayed and -- a key (array key) the data grid will automatically save the changes the user -- makes and refresh the UI by calling FillInData and resizeControl. if pMouseBtnNum is 1 then if the dgProps["allow editing"] of the dgControl of me then switch the short name of the target case "Label" put "Label 1" into theKey EditFieldText the long ID of the target, the dgIndex of me, theKey break end switch end if end if pass mouseDoubleUp end mouseDoubleUp R Row Template i 3 ) Data Grid Templates 1390682063191 | cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236088553682 Background K@ > cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559392 Label I x cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559393 Behavior Script Ep <-- This script defines the behavior of your data grid's custom template. This behavior -- only applies to 'forms' and not 'tables'. on FillInData pDataArray -- This message is sent when the Data Grid needs to populate -- this template with the data from a record. pDataArray is an -- an array containing the records data. -- You do not need to resize any of your template's controls in -- this message. All resizing should be handled in resizeControl. -- Example: set the text of field "Label" of me to pDataArray["label 1"] end FillInData on LayoutControl pControlRect local theFieldRect -- This message is sent when you should layout your template's controls. -- This is where you resize the 'Background' graphic, resize fields and -- position objects. -- For fixed height data grid forms you can use items 1 through 4 of pControlRect as -- boundaries for laying out your controls. -- For variable height data grid forms you can use items 1 through 3 of pControlRect as -- boundaries, expanding the height of your control as needed. -- Example: put the rect of field "Label" of me into theFieldRect put item 3 of pControlRect - 5 into item 3 of theFieldRect set the rect of field "Label" of me to theFieldRect set the rect of graphic "Background" of me to pControlRect end LayoutControl on ResetData -- Sent when data is being emptied because the control is no longer being used to display data set the text of field "Label" of me to empty end ResetData on PreFillInData -- Sent right before new data is going to replace existing data in the control end PreFillInData setprop dgHilite pBoolean -- This custom property is set when the highlight of your custom template has -- changed. By default the "Background" graphic will be highlighted for you. -- You only add script here if you want to further customize the highlight. -- Example: if pBoolean then set the foregroundColor of me to the dgProp["hilited text color"] of the dgControl of me else set the foregroundColor of me to empty end if end dgHilite getprop dgDataControl -- Required by library so that it can locate your control. return the long ID of me end dgDataControl on mouseDoubleUp pMouseBtnNum local theKey -- Example of how to edit the contents of a field. -- By passing the index of the record associated with copy of this template being displayed and -- a key (array key) the data grid will automatically save the changes the user -- makes and refresh the UI by calling FillInData and resizeControl. if pMouseBtnNum is 1 then if the dgProps["allow editing"] of the dgControl of me then switch the short name of the target case "Label" put "Label 1" into theKey EditFieldText the long ID of the target, the dgIndex of me, theKey break end switch end if end if pass mouseDoubleUp end mouseDoubleUp R Row Template i 3 ) Data Grid Templates 1390682063191 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236088553682 Background K@ [ cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559392 Label I cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559393 Behavior Script Ep <-- This script defines the behavior of your data grid's custom template. This behavior -- only applies to 'forms' and not 'tables'. on FillInData pDataArray -- This message is sent when the Data Grid needs to populate -- this template with the data from a record. pDataArray is an -- an array containing the records data. -- You do not need to resize any of your template's controls in -- this message. All resizing should be handled in resizeControl. -- Example: set the text of field "Label" of me to pDataArray["label 1"] end FillInData on LayoutControl pControlRect local theFieldRect -- This message is sent when you should layout your template's controls. -- This is where you resize the 'Background' graphic, resize fields and -- position objects. -- For fixed height data grid forms you can use items 1 through 4 of pControlRect as -- boundaries for laying out your controls. -- For variable height data grid forms you can use items 1 through 3 of pControlRect as -- boundaries, expanding the height of your control as needed. -- Example: put the rect of field "Label" of me into theFieldRect put item 3 of pControlRect - 5 into item 3 of theFieldRect set the rect of field "Label" of me to theFieldRect set the rect of graphic "Background" of me to pControlRect end LayoutControl on ResetData -- Sent when data is being emptied because the control is no longer being used to display data set the text of field "Label" of me to empty end ResetData on PreFillInData -- Sent right before new data is going to replace existing data in the control end PreFillInData setprop dgHilite pBoolean -- This custom property is set when the highlight of your custom template has -- changed. By default the "Background" graphic will be highlighted for you. -- You only add script here if you want to further customize the highlight. -- Example: if pBoolean then set the foregroundColor of me to the dgProp["hilited text color"] of the dgControl of me else set the foregroundColor of me to empty end if end dgHilite getprop dgDataControl -- Required by library so that it can locate your control. return the long ID of me end dgDataControl on mouseDoubleUp pMouseBtnNum local theKey -- Example of how to edit the contents of a field. -- By passing the index of the record associated with copy of this template being displayed and -- a key (array key) the data grid will automatically save the changes the user -- makes and refresh the UI by calling FillInData and resizeControl. if pMouseBtnNum is 1 then if the dgProps["allow editing"] of the dgControl of me then switch the short name of the target case "Label" put "Label 1" into theKey EditFieldText the long ID of the target, the dgIndex of me, theKey break end switch end if end if pass mouseDoubleUp end mouseDoubleUp R Row Template i 3 ) Data Grid Templates 1390682063191 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236088553682 Background K@ Y cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559392 Label I cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559393 Behavior Script Ep <-- This script defines the behavior of your data grid's custom template. This behavior -- only applies to 'forms' and not 'tables'. on FillInData pDataArray -- This message is sent when the Data Grid needs to populate -- this template with the data from a record. pDataArray is an -- an array containing the records data. -- You do not need to resize any of your template's controls in -- this message. All resizing should be handled in resizeControl. -- Example: set the text of field "Label" of me to pDataArray["label 1"] end FillInData on LayoutControl pControlRect local theFieldRect -- This message is sent when you should layout your template's controls. -- This is where you resize the 'Background' graphic, resize fields and -- position objects. -- For fixed height data grid forms you can use items 1 through 4 of pControlRect as -- boundaries for laying out your controls. -- For variable height data grid forms you can use items 1 through 3 of pControlRect as -- boundaries, expanding the height of your control as needed. -- Example: put the rect of field "Label" of me into theFieldRect put item 3 of pControlRect - 5 into item 3 of theFieldRect set the rect of field "Label" of me to theFieldRect set the rect of graphic "Background" of me to pControlRect end LayoutControl on ResetData -- Sent when data is being emptied because the control is no longer being used to display data set the text of field "Label" of me to empty end ResetData on PreFillInData -- Sent right before new data is going to replace existing data in the control end PreFillInData setprop dgHilite pBoolean -- This custom property is set when the highlight of your custom template has -- changed. By default the "Background" graphic will be highlighted for you. -- You only add script here if you want to further customize the highlight. -- Example: if pBoolean then set the foregroundColor of me to the dgProp["hilited text color"] of the dgControl of me else set the foregroundColor of me to empty end if end dgHilite getprop dgDataControl -- Required by library so that it can locate your control. return the long ID of me end dgDataControl on mouseDoubleUp pMouseBtnNum local theKey -- Example of how to edit the contents of a field. -- By passing the index of the record associated with copy of this template being displayed and -- a key (array key) the data grid will automatically save the changes the user -- makes and refresh the UI by calling FillInData and resizeControl. if pMouseBtnNum is 1 then if the dgProps["allow editing"] of the dgControl of me then switch the short name of the target case "Label" put "Label 1" into theKey EditFieldText the long ID of the target, the dgIndex of me, theKey break end switch end if end if pass mouseDoubleUp end mouseDoubleUp R Row Template i 3 ) Data Grid Templates 1390682063191 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236088553682 Background K@ [ cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559392 Label I cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559393 Behavior Script Ep <-- This script defines the behavior of your data grid's custom template. This behavior -- only applies to 'forms' and not 'tables'. on FillInData pDataArray -- This message is sent when the Data Grid needs to populate -- this template with the data from a record. pDataArray is an -- an array containing the records data. -- You do not need to resize any of your template's controls in -- this message. All resizing should be handled in resizeControl. -- Example: set the text of field "Label" of me to pDataArray["label 1"] end FillInData on LayoutControl pControlRect local theFieldRect -- This message is sent when you should layout your template's controls. -- This is where you resize the 'Background' graphic, resize fields and -- position objects. -- For fixed height data grid forms you can use items 1 through 4 of pControlRect as -- boundaries for laying out your controls. -- For variable height data grid forms you can use items 1 through 3 of pControlRect as -- boundaries, expanding the height of your control as needed. -- Example: put the rect of field "Label" of me into theFieldRect put item 3 of pControlRect - 5 into item 3 of theFieldRect set the rect of field "Label" of me to theFieldRect set the rect of graphic "Background" of me to pControlRect end LayoutControl on ResetData -- Sent when data is being emptied because the control is no longer being used to display data set the text of field "Label" of me to empty end ResetData on PreFillInData -- Sent right before new data is going to replace existing data in the control end PreFillInData setprop dgHilite pBoolean -- This custom property is set when the highlight of your custom template has -- changed. By default the "Background" graphic will be highlighted for you. -- You only add script here if you want to further customize the highlight. -- Example: if pBoolean then set the foregroundColor of me to the dgProp["hilited text color"] of the dgControl of me else set the foregroundColor of me to empty end if end dgHilite getprop dgDataControl -- Required by library so that it can locate your control. return the long ID of me end dgDataControl on mouseDoubleUp pMouseBtnNum local theKey -- Example of how to edit the contents of a field. -- By passing the index of the record associated with copy of this template being displayed and -- a key (array key) the data grid will automatically save the changes the user -- makes and refresh the UI by calling FillInData and resizeControl. if pMouseBtnNum is 1 then if the dgProps["allow editing"] of the dgControl of me then switch the short name of the target case "Label" put "Label 1" into theKey EditFieldText the long ID of the target, the dgIndex of me, theKey break end switch end if end if pass mouseDoubleUp end mouseDoubleUp R Row Template i 3 ) Data Grid Templates 1390682063191 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236088553682 Background K@ _ cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559392 Label I cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559393 Behavior Script Ep <-- This script defines the behavior of your data grid's custom template. This behavior -- only applies to 'forms' and not 'tables'. on FillInData pDataArray -- This message is sent when the Data Grid needs to populate -- this template with the data from a record. pDataArray is an -- an array containing the records data. -- You do not need to resize any of your template's controls in -- this message. All resizing should be handled in resizeControl. -- Example: set the text of field "Label" of me to pDataArray["label 1"] end FillInData on LayoutControl pControlRect local theFieldRect -- This message is sent when you should layout your template's controls. -- This is where you resize the 'Background' graphic, resize fields and -- position objects. -- For fixed height data grid forms you can use items 1 through 4 of pControlRect as -- boundaries for laying out your controls. -- For variable height data grid forms you can use items 1 through 3 of pControlRect as -- boundaries, expanding the height of your control as needed. -- Example: put the rect of field "Label" of me into theFieldRect put item 3 of pControlRect - 5 into item 3 of theFieldRect set the rect of field "Label" of me to theFieldRect set the rect of graphic "Background" of me to pControlRect end LayoutControl on ResetData -- Sent when data is being emptied because the control is no longer being used to display data set the text of field "Label" of me to empty end ResetData on PreFillInData -- Sent right before new data is going to replace existing data in the control end PreFillInData setprop dgHilite pBoolean -- This custom property is set when the highlight of your custom template has -- changed. By default the "Background" graphic will be highlighted for you. -- You only add script here if you want to further customize the highlight. -- Example: if pBoolean then set the foregroundColor of me to the dgProp["hilited text color"] of the dgControl of me else set the foregroundColor of me to empty end if end dgHilite getprop dgDataControl -- Required by library so that it can locate your control. return the long ID of me end dgDataControl on mouseDoubleUp pMouseBtnNum local theKey -- Example of how to edit the contents of a field. -- By passing the index of the record associated with copy of this template being displayed and -- a key (array key) the data grid will automatically save the changes the user -- makes and refresh the UI by calling FillInData and resizeControl. if pMouseBtnNum is 1 then if the dgProps["allow editing"] of the dgControl of me then switch the short name of the target case "Label" put "Label 1" into theKey EditFieldText the long ID of the target, the dgIndex of me, theKey break end switch end if end if pass mouseDoubleUp end mouseDoubleUp R Row Template i 3 ) Data Grid Templates 1390682063191 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236088553682 Background K@ ] cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559392 Label I cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559393 name i d d 3 ) !Data Grid Templates 1390682063191 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1393691324594 _ColumnData_ I d d ? cGlx2TimeStamp checksum cREVGeneral revUniqueID 1393691324594 name Behavior Script Ep <-- This script defines the behavior of your data grid's custom template. This behavior -- only applies to 'forms' and not 'tables'. on FillInData pDataArray -- This message is sent when the Data Grid needs to populate -- this template with the data from a record. pDataArray is an -- an array containing the records data. -- You do not need to resize any of your template's controls in -- this message. All resizing should be handled in resizeControl. -- Example: set the text of field "Label" of me to pDataArray["label 1"] end FillInData on LayoutControl pControlRect local theFieldRect -- This message is sent when you should layout your template's controls. -- This is where you resize the 'Background' graphic, resize fields and -- position objects. -- For fixed height data grid forms you can use items 1 through 4 of pControlRect as -- boundaries for laying out your controls. -- For variable height data grid forms you can use items 1 through 3 of pControlRect as -- boundaries, expanding the height of your control as needed. -- Example: put the rect of field "Label" of me into theFieldRect put item 3 of pControlRect - 5 into item 3 of theFieldRect set the rect of field "Label" of me to theFieldRect set the rect of graphic "Background" of me to pControlRect end LayoutControl on ResetData -- Sent when data is being emptied because the control is no longer being used to display data set the text of field "Label" of me to empty end ResetData on PreFillInData -- Sent right before new data is going to replace existing data in the control end PreFillInData setprop dgHilite pBoolean -- This custom property is set when the highlight of your custom template has -- changed. By default the "Background" graphic will be highlighted for you. -- You only add script here if you want to further customize the highlight. -- Example: if pBoolean then set the foregroundColor of me to the dgProp["hilited text color"] of the dgControl of me else set the foregroundColor of me to empty end if end dgHilite getprop dgDataControl -- Required by library so that it can locate your control. return the long ID of me end dgDataControl on mouseDoubleUp pMouseBtnNum local theKey -- Example of how to edit the contents of a field. -- By passing the index of the record associated with copy of this template being displayed and -- a key (array key) the data grid will automatically save the changes the user -- makes and refresh the UI by calling FillInData and resizeControl. if pMouseBtnNum is 1 then if the dgProps["allow editing"] of the dgControl of me then switch the short name of the target case "Label" put "Label 1" into theKey EditFieldText the long ID of the target, the dgIndex of me, theKey break end switch end if end if pass mouseDoubleUp end mouseDoubleUp R ! name Behavior Ep -- This script defines the behavior of a table column's custom template. on FillInData pData -- This message is sent when the Data Grid needs to populate -- this template with the column data. pData is the value to be displayed. -- Example: set the text of field 1 of me to pData end FillInData on LayoutControl pControlRect -- This message is sent when you should layout your template's controls if your template is a group. -- If your template is not a group then there is no work to do here. -- You can use items 1 through 4 of pControlRect as boundaries for laying out your controls. -- Example: set the rect of field 1 of me to pControlRect end LayoutControl on ResetData -- Sent when column data is being emptied because the control is no longer being used to display data set the text of field 1 of me to empty end ResetData on PreFillInData -- Sent right before new data is going to replace existing data in the column end PreFillInData setprop dgHilite pBoolean -- This custom property is set when the highlight of your column template has -- changed. You only add script here if you want to customize the highlight. if pBoolean then set the foregroundColor of me to the dgProp["hilited text color"] of the dgControl of me else set the foregroundColor of me to empty end if end dgHilite getprop dgDataControl -- Required by library so that it can locate your control. return the long ID of me end dgDataControl -- Data grid will call EditValue if a user action asks to edit cell content. command EditValue -- if there is a field 1 of me then -- EditFieldText the long ID of field 1 of me, the dgIndex of me, the dgColumn of me -- end if end EditValue on mouseDoubleUp pMouseBtnNum -- Example of how to edit the contents of a field (assuming the column template this is -- associated with is a field). -- By passing the index of the record linked to the copy of this template and the name of the -- column being edited the data grid will automatically save the changes the user -- makes and refresh the UI by calling FillInData and resizeControl. if pMouseBtnNum is 1 then if word 1 of the target is "field" then ## word 1 to -2 because of unique numbers (i.e. 0001, 0002) that the data grid adds to each ## copy of this template that is made. if the dgProps["allow editing"] of the dgControl of me \ and the dgColumnIsEditable[the dgColumn of me] of the dgControl of me then EditCellOfIndex the dgColumn of me, the dgIndex of me exit mouseDoubleUp end if end if end if pass mouseDoubleUp end mouseDoubleUp + cREVGeneral scripteditorvscroll 1101scripteditorselection 1811 # Row Template i 3 ) &Data Grid Templates 1390682063191 ; cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236088553682 $ Background K@ } cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559392 % Label I ; cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559393 " & Behavior Script Ep <-- This script defines the behavior of your data grid's custom template. This behavior -- only applies to 'forms' and not 'tables'. on FillInData pDataArray -- This message is sent when the Data Grid needs to populate -- this template with the data from a record. pDataArray is an -- an array containing the records data. -- You do not need to resize any of your template's controls in -- this message. All resizing should be handled in resizeControl. -- Example: set the text of field "Label" of me to pDataArray["label 1"] end FillInData on LayoutControl pControlRect local theFieldRect -- This message is sent when you should layout your template's controls. -- This is where you resize the 'Background' graphic, resize fields and -- position objects. -- For fixed height data grid forms you can use items 1 through 4 of pControlRect as -- boundaries for laying out your controls. -- For variable height data grid forms you can use items 1 through 3 of pControlRect as -- boundaries, expanding the height of your control as needed. -- Example: put the rect of field "Label" of me into theFieldRect put item 3 of pControlRect - 5 into item 3 of theFieldRect set the rect of field "Label" of me to theFieldRect set the rect of graphic "Background" of me to pControlRect end LayoutControl on ResetData -- Sent when data is being emptied because the control is no longer being used to display data set the text of field "Label" of me to empty end ResetData on PreFillInData -- Sent right before new data is going to replace existing data in the control end PreFillInData setprop dgHilite pBoolean -- This custom property is set when the highlight of your custom template has -- changed. By default the "Background" graphic will be highlighted for you. -- You only add script here if you want to further customize the highlight. -- Example: if pBoolean then set the foregroundColor of me to the dgProp["hilited text color"] of the dgControl of me else set the foregroundColor of me to empty end if end dgHilite getprop dgDataControl -- Required by library so that it can locate your control. return the long ID of me end dgDataControl on mouseDoubleUp pMouseBtnNum local theKey -- Example of how to edit the contents of a field. -- By passing the index of the record associated with copy of this template being displayed and -- a key (array key) the data grid will automatically save the changes the user -- makes and refresh the UI by calling FillInData and resizeControl. if pMouseBtnNum is 1 then if the dgProps["allow editing"] of the dgControl of me then switch the short name of the target case "Label" put "Label 1" into theKey EditFieldText the long ID of the target, the dgIndex of me, theKey break end switch end if end if pass mouseDoubleUp end mouseDoubleUp R ( Row Template i 3 ) +Data Grid Templates 1390682063191 9 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236088553682 ) Background K@ y cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559392 * Label I = cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559393 ' + Behavior Script Ep <-- This script defines the behavior of your data grid's custom template. This behavior -- only applies to 'forms' and not 'tables'. on FillInData pDataArray -- This message is sent when the Data Grid needs to populate -- this template with the data from a record. pDataArray is an -- an array containing the records data. -- You do not need to resize any of your template's controls in -- this message. All resizing should be handled in resizeControl. -- Example: set the text of field "Label" of me to pDataArray["label 1"] end FillInData on LayoutControl pControlRect local theFieldRect -- This message is sent when you should layout your template's controls. -- This is where you resize the 'Background' graphic, resize fields and -- position objects. -- For fixed height data grid forms you can use items 1 through 4 of pControlRect as -- boundaries for laying out your controls. -- For variable height data grid forms you can use items 1 through 3 of pControlRect as -- boundaries, expanding the height of your control as needed. -- Example: put the rect of field "Label" of me into theFieldRect put item 3 of pControlRect - 5 into item 3 of theFieldRect set the rect of field "Label" of me to theFieldRect set the rect of graphic "Background" of me to pControlRect end LayoutControl on ResetData -- Sent when data is being emptied because the control is no longer being used to display data set the text of field "Label" of me to empty end ResetData on PreFillInData -- Sent right before new data is going to replace existing data in the control end PreFillInData setprop dgHilite pBoolean -- This custom property is set when the highlight of your custom template has -- changed. By default the "Background" graphic will be highlighted for you. -- You only add script here if you want to further customize the highlight. -- Example: if pBoolean then set the foregroundColor of me to the dgProp["hilited text color"] of the dgControl of me else set the foregroundColor of me to empty end if end dgHilite getprop dgDataControl -- Required by library so that it can locate your control. return the long ID of me end dgDataControl on mouseDoubleUp pMouseBtnNum local theKey -- Example of how to edit the contents of a field. -- By passing the index of the record associated with copy of this template being displayed and -- a key (array key) the data grid will automatically save the changes the user -- makes and refresh the UI by calling FillInData and resizeControl. if pMouseBtnNum is 1 then if the dgProps["allow editing"] of the dgControl of me then switch the short name of the target case "Label" put "Label 1" into theKey EditFieldText the long ID of the target, the dgIndex of me, theKey break end switch end if end if pass mouseDoubleUp end mouseDoubleUp R - Row Template i 3 ) 0Data Grid Templates 1390682063191 = cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236088553682 . Background K@ cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559392 / Label I 9 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559393 , 0 Behavior Script Ep <-- This script defines the behavior of your data grid's custom template. This behavior -- only applies to 'forms' and not 'tables'. on FillInData pDataArray -- This message is sent when the Data Grid needs to populate -- this template with the data from a record. pDataArray is an -- an array containing the records data. -- You do not need to resize any of your template's controls in -- this message. All resizing should be handled in resizeControl. -- Example: set the text of field "Label" of me to pDataArray["label 1"] end FillInData on LayoutControl pControlRect local theFieldRect -- This message is sent when you should layout your template's controls. -- This is where you resize the 'Background' graphic, resize fields and -- position objects. -- For fixed height data grid forms you can use items 1 through 4 of pControlRect as -- boundaries for laying out your controls. -- For variable height data grid forms you can use items 1 through 3 of pControlRect as -- boundaries, expanding the height of your control as needed. -- Example: put the rect of field "Label" of me into theFieldRect put item 3 of pControlRect - 5 into item 3 of theFieldRect set the rect of field "Label" of me to theFieldRect set the rect of graphic "Background" of me to pControlRect end LayoutControl on ResetData -- Sent when data is being emptied because the control is no longer being used to display data set the text of field "Label" of me to empty end ResetData on PreFillInData -- Sent right before new data is going to replace existing data in the control end PreFillInData setprop dgHilite pBoolean -- This custom property is set when the highlight of your custom template has -- changed. By default the "Background" graphic will be highlighted for you. -- You only add script here if you want to further customize the highlight. -- Example: if pBoolean then set the foregroundColor of me to the dgProp["hilited text color"] of the dgControl of me else set the foregroundColor of me to empty end if end dgHilite getprop dgDataControl -- Required by library so that it can locate your control. return the long ID of me end dgDataControl on mouseDoubleUp pMouseBtnNum local theKey -- Example of how to edit the contents of a field. -- By passing the index of the record associated with copy of this template being displayed and -- a key (array key) the data grid will automatically save the changes the user -- makes and refresh the UI by calling FillInData and resizeControl. if pMouseBtnNum is 1 then if the dgProps["allow editing"] of the dgControl of me then switch the short name of the target case "Label" put "Label 1" into theKey EditFieldText the long ID of the target, the dgIndex of me, theKey break end switch end if end if pass mouseDoubleUp end mouseDoubleUp R 2 Row Template i 3 ) 5Data Grid Templates 1390682063191 ; cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236088553682 3 Background K@ { cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559392 4 Label I ; cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559393 1 5 Behavior Script Ep <-- This script defines the behavior of your data grid's custom template. This behavior -- only applies to 'forms' and not 'tables'. on FillInData pDataArray -- This message is sent when the Data Grid needs to populate -- this template with the data from a record. pDataArray is an -- an array containing the records data. -- You do not need to resize any of your template's controls in -- this message. All resizing should be handled in resizeControl. -- Example: set the text of field "Label" of me to pDataArray["label 1"] end FillInData on LayoutControl pControlRect local theFieldRect -- This message is sent when you should layout your template's controls. -- This is where you resize the 'Background' graphic, resize fields and -- position objects. -- For fixed height data grid forms you can use items 1 through 4 of pControlRect as -- boundaries for laying out your controls. -- For variable height data grid forms you can use items 1 through 3 of pControlRect as -- boundaries, expanding the height of your control as needed. -- Example: put the rect of field "Label" of me into theFieldRect put item 3 of pControlRect - 5 into item 3 of theFieldRect set the rect of field "Label" of me to theFieldRect set the rect of graphic "Background" of me to pControlRect end LayoutControl on ResetData -- Sent when data is being emptied because the control is no longer being used to display data set the text of field "Label" of me to empty end ResetData on PreFillInData -- Sent right before new data is going to replace existing data in the control end PreFillInData setprop dgHilite pBoolean -- This custom property is set when the highlight of your custom template has -- changed. By default the "Background" graphic will be highlighted for you. -- You only add script here if you want to further customize the highlight. -- Example: if pBoolean then set the foregroundColor of me to the dgProp["hilited text color"] of the dgControl of me else set the foregroundColor of me to empty end if end dgHilite getprop dgDataControl -- Required by library so that it can locate your control. return the long ID of me end dgDataControl on mouseDoubleUp pMouseBtnNum local theKey -- Example of how to edit the contents of a field. -- By passing the index of the record associated with copy of this template being displayed and -- a key (array key) the data grid will automatically save the changes the user -- makes and refresh the UI by calling FillInData and resizeControl. if pMouseBtnNum is 1 then if the dgProps["allow editing"] of the dgControl of me then switch the short name of the target case "Label" put "Label 1" into theKey EditFieldText the long ID of the target, the dgIndex of me, theKey break end switch end if end if pass mouseDoubleUp end mouseDoubleUp R 7 Row Template i 3 ) :Data Grid Templates 1390682063191 ? cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236088553682 8 Background K@ y cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559392 9 Label I ? cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559393 6 : Behavior Script Ep <-- This script defines the behavior of your data grid's custom template. This behavior -- only applies to 'forms' and not 'tables'. on FillInData pDataArray -- This message is sent when the Data Grid needs to populate -- this template with the data from a record. pDataArray is an -- an array containing the records data. -- You do not need to resize any of your template's controls in -- this message. All resizing should be handled in resizeControl. -- Example: set the text of field "Label" of me to pDataArray["label 1"] end FillInData on LayoutControl pControlRect local theFieldRect -- This message is sent when you should layout your template's controls. -- This is where you resize the 'Background' graphic, resize fields and -- position objects. -- For fixed height data grid forms you can use items 1 through 4 of pControlRect as -- boundaries for laying out your controls. -- For variable height data grid forms you can use items 1 through 3 of pControlRect as -- boundaries, expanding the height of your control as needed. -- Example: put the rect of field "Label" of me into theFieldRect put item 3 of pControlRect - 5 into item 3 of theFieldRect set the rect of field "Label" of me to theFieldRect set the rect of graphic "Background" of me to pControlRect end LayoutControl on ResetData -- Sent when data is being emptied because the control is no longer being used to display data set the text of field "Label" of me to empty end ResetData on PreFillInData -- Sent right before new data is going to replace existing data in the control end PreFillInData setprop dgHilite pBoolean -- This custom property is set when the highlight of your custom template has -- changed. By default the "Background" graphic will be highlighted for you. -- You only add script here if you want to further customize the highlight. -- Example: if pBoolean then set the foregroundColor of me to the dgProp["hilited text color"] of the dgControl of me else set the foregroundColor of me to empty end if end dgHilite getprop dgDataControl -- Required by library so that it can locate your control. return the long ID of me end dgDataControl on mouseDoubleUp pMouseBtnNum local theKey -- Example of how to edit the contents of a field. -- By passing the index of the record associated with copy of this template being displayed and -- a key (array key) the data grid will automatically save the changes the user -- makes and refresh the UI by calling FillInData and resizeControl. if pMouseBtnNum is 1 then if the dgProps["allow editing"] of the dgControl of me then switch the short name of the target case "Label" put "Label 1" into theKey EditFieldText the long ID of the target, the dgIndex of me, theKey break end switch end if end if pass mouseDoubleUp end mouseDoubleUp R < Row Template i 3 ) ?Data Grid Templates 1390682063191 = cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236088553682 = Background K@ } cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559392 > Label I 9 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1236188559393 ; ? Behavior Script Ep <-- This script defines the behavior of your data grid's custom template. This behavior -- only applies to 'forms' and not 'tables'. on FillInData pDataArray -- This message is sent when the Data Grid needs to populate -- this template with the data from a record. pDataArray is an -- an array containing the records data. -- You do not need to resize any of your template's controls in -- this message. All resizing should be handled in resizeControl. -- Example: set the text of field "Label" of me to pDataArray["label 1"] end FillInData on LayoutControl pControlRect local theFieldRect -- This message is sent when you should layout your template's controls. -- This is where you resize the 'Background' graphic, resize fields and -- position objects. -- For fixed height data grid forms you can use items 1 through 4 of pControlRect as -- boundaries for laying out your controls. -- For variable height data grid forms you can use items 1 through 3 of pControlRect as -- boundaries, expanding the height of your control as needed. -- Example: put the rect of field "Label" of me into theFieldRect put item 3 of pControlRect - 5 into item 3 of theFieldRect set the rect of field "Label" of me to theFieldRect set the rect of graphic "Background" of me to pControlRect end LayoutControl on ResetData -- Sent when data is being emptied because the control is no longer being used to display data set the text of field "Label" of me to empty end ResetData on PreFillInData -- Sent right before new data is going to replace existing data in the control end PreFillInData setprop dgHilite pBoolean -- This custom property is set when the highlight of your custom template has -- changed. By default the "Background" graphic will be highlighted for you. -- You only add script here if you want to further customize the highlight. -- Example: if pBoolean then set the foregroundColor of me to the dgProp["hilited text color"] of the dgControl of me else set the foregroundColor of me to empty end if end dgHilite getprop dgDataControl -- Required by library so that it can locate your control. return the long ID of me end dgDataControl on mouseDoubleUp pMouseBtnNum local theKey -- Example of how to edit the contents of a field. -- By passing the index of the record associated with copy of this template being displayed and -- a key (array key) the data grid will automatically save the changes the user -- makes and refresh the UI by calling FillInData and resizeControl. if pMouseBtnNum is 1 then if the dgProps["allow editing"] of the dgControl of me then switch the short name of the target case "Label" put "Label 1" into theKey EditFieldText the long ID of the target, the dgIndex of me, theKey break end switch end if end if pass mouseDoubleUp end mouseDoubleUp R TemplateLib @ n m pFeeOnly <%S_First%> <%S_Last%> <%S_Street1%> <%S_City%>, <%S_State%> <%S_Zip%> <%ObjLetterDate%> Certified Mail Return Receipt Requested <%P_To%> Attn: <%P_Attn%> <%P_Street%> <%P_City%>, <%P_State%> <%P_Zip%> Re: Account Number: <%S_Account%> Dear <%P_To%>: I am writing this letter regarding my cellular phone service with your company. In comparing my current statement, dated <%Curr_Stmt%>, to my previous statement, I noticed that <%Provider%> has changed the following on my account. <%FeeStmt%> I consider any changes in price to be material, and <%ChangesIsAre%> materially adverse to me. So, pursuant to the terms of the customer agreement, I wish to object to these changes for each line on my account that is affected. Please contact me at the address above or by email at <%S_Email%>. if you have any questions or need any additional information. Sincerely, <%S_First%> <%S_Last%> pFeeTerms <%S_First%> <%S_Last%> <%S_Street1%> <%S_City%>, <%S_State%> <%S_Zip%> <%ObjLetterDate%> Certified Mail Return Receipt Requested <%P_To%> Attn: <%P_Attn%> <%P_Street%> <%P_City%>, <%P_State%> <%P_Zip%> Re: Account Number: <%S_Account%> Dear Correspondence Team: I am writing this letter regarding my cellular phone service with your company. In comparing my current statement, dated <%Curr_Stmt%>, to my previous statement, I noticed that <%Provider%> has changed the following on my account. <%FeeStmt%> The following notice appeared on my <%Curr_Stmt%> statement: <%Terms%> I consider any changes in price or terms to be material, and these changes are materially adverse to me. So, pursuant to the terms of the terms of service, I wish to object to these changes. Please contact me at the address above or by email at <%S_Email%> if you have any questions or need any additional information. Sincerely, <%S_First%> <%S_Last%>pFeeRestatement <%S_First%> <%S_Last%> <%S_Street1%> <%S_City%>, <%S_State%> <%S_Zip%> <%RestatementLetterDate%> Certified Mail Return Receipt Requested <%P_To%> Attn: <%P_Attn%> <%P_Street%> <%P_City%>, <%P_State%> <%S_Zip%> Re: Account Number: <%S_Account%> Dear Correspondence Team: I am writing this letter regarding my cellular phone service with your company. In comparing my statement dated <%Curr_Stmt%>, to my previous statement , I noticed that <%Provider%> has changed the following on my account. <%FeeStmt%> I consider any changes in price to be material, and <%ChangesIsAre%> materially adverse to me. So, pursuant to the terms of the customer agreement, I mailed Verizon a letter dated <%ObjLetterDate%>, objecting to these changes. I have received no response from Verizon regarding my objection to the changes. Further, Verizon has not reversed the fee increases to which I had objected. I waited, regularly checking my account, to see if Verizon had reversed the fee increase. Verizon did not. So, pursuant to the terms of the customer agreement, I canceled the lines affected by the materially adverse fee increase. Weeks later, I received a bill that included an early termination fee for canceling these lines. This, of course, is an invalid charge. Here is why: 1. I objected in writing to Verizon to the materially adverse fee increase.. 2. Verizon failed to reverse the fee increase. 3. I was therefore entitled to cancel the affected line with no early termination fee liability. I demand that the early termination fee be rescinded from my account immediately. I have documented my case, including my compliance with the terms of the customer agreement, and I am prepared to enforce my position accordingly. Please contact me at the address above or by email at <%S_Email%> if you have any questions or need any additional information. Sincerely, <%S_First%> <%S_Last%> pFeeSentence EMy <%FeeName%> has increased <%PInc%>% from $<%PFee%> to $<%CFee%>. pTermsOnly .<%S_First%> <%S_Last%> <%S_Street1%> <%S_City%>, <%S_State%> <%S_Zip%> <%ObjLetterDate%> Certified Mail Return Receipt Requested <%P_To%> Attn: <%P_Attn%> <%P_Street%> <%P_City%>, <%P_State%> <%P_Zip%> Re: Account Number: <%S_Account%> Dear Correspondence Team: I am writing this letter regarding my cellular phone service with your company. The following notice appeared on my <%Curr_Stmt%> statement: <%Terms%> I consider any changes in terms to be material, and <%ChangesIsAre%> materially adverse to me. So, pursuant to the terms of the customer agreement, I wish to object to these changes for each line on my account that is affected. Please contact me at the address above or by email at <%S_Email%> if you have any questions or need any additional information. Sincerely, <%S_First%> <%S_Last%>pFeeTermsRestatement <%S_First%> <%S_Last%> <%S_Street1%> <%S_City%>, <%S_State%> <%S_Zip%> <%ObjLetterDate%> Certified Mail Return Receipt Requested <%P_To%> Attn: <%P_Attn%> <%P_Street%> <%P_City%>, <%P_State%> <%S_Zip%> Re: Account Number: <%S_Account%> Dear Correspondence Team: I am writing this letter regarding my cellular phone service with your company. In comparing my statement dated <%Curr_Stmt%>, to my previous statement , I noticed that <%Provider%> has changed the following on my account. <%FeeStmt%> The following notice appeared on my <%Curr_Stmt%> statement: <%Terms%> I consider any changes in price to be material, and these changes are materially adverse to me. So, pursuant to the terms of the customer agreement, I mailed Verizon a letter dated <%ObjLetterDate%>, objecting to these changes. I have received no response from Verizon regarding my objection to the changes. Further, Verizon has not reversed the fee increases to which I had objected. I waited, regularly checking my account, to see if Verizon had reversed the fee increase. Verizon did not. So, pursuant to the terms of the customer agreement, I canceled the lines affected by the materially adverse fee increase. Weeks later, I received a bill that included an early termination fee for canceling these lines. This, of course, is an invalid charge. Here is why: 1. I objected in writing to Verizon to the materially adverse fee increase.. 2. Verizon failed to reverse the fee increase. 3. I was therefore entitled to cancel the affected line with no early termination fee liability. I demand that the early termination fee be rescinded from my account immediately. I have documented my case, including my compliance with the terms of the customer agreement, and I am prepared to enforce my position accordingly. Please contact me at the address above or by email at <%S_Email%> if you have any questions or need any additional information. Sincerely, <%S_First%> <%S_Last%> pAGletter pCeaseAndDesist <%S_First%> <%S_Last%> <%S_Street1%> <%S_City%>, <%S_State%> <%S_Zip%> <%CandDDate%> Certified Mail Return Receipt Requested <%Provider%> <%P_Street%> <%P_City%>, <%P_State%> <%P_Zip%> Re: Account Number: <%S_Account%> Notice to Cease and Desist and Verify Debt Dear <%Provider%>: This will serve as your legal notice under the federal and/or <%S_State%> Fair Debt CollectionPractices Act (FDCPA) to cease all communication with me in regard to the debt referenced above. Except for such requested information listed below, do not contact me, or any third parties regarding this debt. Furthermore, I formally dispute the validity of this debt. Receipt of this formal dispute letter requires you to provide me with documentation that sufficiently supports your assertions that the above-referenced debt belongs to me and that I owe the exact amount alleged. Please send me copies of the original contract for this account, any signatures associated with this account, any bills associated with this account, etc. You are also notified that should you furnish any derogatory or inaccurate information to any credit reporting agencies, appropriate actions will be taken pursuant to the Fair Credit Reporting Act and the Fair Debt Collection Practices Act. Please be aware that I will continue to document all attempts to communicate with me with respect to the alleged debt, and that any further such attempts may constitute a violation of the Fair Debt Collection Practices Act at the Federal or State level. I will not hesitate to report violations of the law to my State Attorney General, the Federal Trade Commission and the Better Business Bureau. Thank you for your prompt attention to this matter. Sincerely, <%S_First%> <%S_Last%> pFCCletter pObjectionEmailRalph,
A Break Analysis detected that your carrier changed a price and term without your permission. The terms of service allow you to cancel affected lines when your carrier makes a unilateral change that has a materially adverse affect on you.
In this context, "material" means important enough to warrant attention and of a nature that would affect your decision-making. Price and provisions are classic material components of any agreement. Your carrier increased your price and proposes to sell your privacy, and such changes would affect a reasonable person's decision-making.
We'll cancel in three steps: objection, cure, and port. You'll be able to port to a new carrier in as few as 6-7 days from the date you mail the attached letter.
1. Objection
Attached you'll find a prepared objection letter. Print, sign, and mail this letter via certified mail with return receipt requested to the given carrier address. Once mailed, email me the tracking number so we can fully document your compliance with the terms of service. This will serve as your formal, written objection to the change.
2. Cure
The next step will be to wait for the carrier to cure the change or respond to your letter within a reasonable period of time (three days from delivery). Usually, however, the carrier does not cure the change; and sometimes the carrier doesn't even respond. No worries. All we must do is allow your carrier enough time to respond. On average, this amount of time is about three days from delivery and six days from the date you mail the letter--assuming the postal service delivers the letter with normal swiftness.
3. Port
After the cure/response period passes, we'll be ready to cancel your account by porting your numbers to a new carrier. Do you have a new carrier in mind?
While we move through these three steps, here's a few things to keep in mind:
Do NOT correspond with your carrier via phone. They'll try to rope you into a phone conversation--for reasons explained here--but do not relent. Only correspond in writing. If they call you, do not engage. Insist that they write you a letter.
We'll maintain a thorough record of your compliance with the terms of service. Carriers often try to intimidate consumers by threatening early termination fees. This is normal and something we're quite accustomed to. No worries though. We have a 100% success rate at getting our customers out of contracts with no early termination fees.
Lastly, here are some general rules we encourage all of our customers to keep in mind. We think they're a helpful reference for you to understand what we do, how we do it, and why carriers behave the way they do.
Feel free to reach out if you have any questions. We're happy to help. We'll look for a message from you with that tracking number.
The CellBreaker Team
pBBBletter pTermsRestatement 5<%S_First%> <%S_Last%> <%S_Street1%> <%S_City%>, <%S_State%> <%S_Zip%> <%RestatementLetterDate%> Certified Mail Return Receipt Requested <%P_To%> Attn: <%P_Attn%> <%P_Street%> <%P_City%>, <%P_State%> <%S_Zip%> Re: Account Number: <%S_Account%> Dear Correspondence Team: I am writing this letter regarding my cellular phone service with your company. The following notice appeared on my <%Curr_Stmt%> statement: <%Terms%> I consider any changes in price to be material, and <%ChangesIsAre%> materially adverse to me. So, pursuant to the terms of the customer agreement, I mailed Verizon a letter dated <%ObjLetterDate%>, objecting to these changes. I have received no response from Verizon regarding my objection to the changes. Further, Verizon has not reversed the fee increases to which I had objected. I waited, regularly checking my account, to see if Verizon had reversed the fee increase. Verizon did not. So, pursuant to the terms of the customer agreement, I canceled the lines affected by the materially adverse fee increase. Weeks later, I received a bill that included an early termination fee for canceling these lines. This, of course, is an invalid charge. Here is why: 1. I objected in writing to Verizon to the materially adverse fee increase.. 2. Verizon failed to reverse the fee increase. 3. I was therefore entitled to cancel the affected line with no early termination fee liability. I demand that the early termination fee be rescinded from my account immediately. I have documented my case, including my compliance with the terms of the customer agreement, and I am prepared to enforce my position accordingly. Please contact me at the address above or by email at <%S_Email%> if you have any questions or need any additional information. Sincerely, <%S_First%> <%S_Last%> &X/* Letter Objection Type Terms S_First Justin S_Last Carlin S_Street1 2950 Lake James Drive S_City Fuquay Varina S_State NC S_Zip 27526-3919 S_Country USA S_Account 534081455025 S_Email CarlinJD82@gmail.com LetterDate November 12, 2013 Provider AT&T Contract_Start April 30, 2012 Prev_Stmt September 9, 2013 Curr_Stmt October 9, 2013 FeeName1 Federal Universal Service Charge PFee1 $1.71 CFee1 $1.84 PInc1 7.00 FeeName2 Dumb Service Charge PFee2 $1.71 CFee2 $1.84 PInc2 7.00 Terms This is a term Breach. TermCount 1 ObjLetterDate 1/1/13 */ local theText local Parm Function getLetter theParm put theParm into Parm Switch Parm["Letter"] case "Objection" Objection_Letter break case "Restatement" Restatement_Letter break case "CandD" CandD_Letter break case "AG" CandD_Letter break case "FCC" CandD_Letter break case "BBB" CandD_Letter break end Switch return theText end getLetter on Objection_Letter Switch Parm["Type"] case "Fee" -- get the Fee Only letter template --put the pFeeOnly of stack "TemplateLib" into thetext put _GetTemplateBody ("FeeOnly") into thetext Fee_Only_Letter break case "Terms" -- get the Fee Only letter template --put the pTermsOnly of stack "TemplateLib" into thetext put _GetTemplateBody ("TermsOnly") into thetext Terms_Only_Letter break case "FeeTerms" -- the Fee and Terms letter template -- put the pFeeTerms of stack "TemplateLib" into theText put _GetTemplateBody ("FeeTerms") into thetext Fee_And_Terms_Letter break default put -1 into theText end Switch end Objection_Letter on Restatement_Letter Switch Parm["Type"] case "Fee" -- get the Fee Only Restatement letter template --put the pFeeRestatement of stack "TemplateLib" into thetext put _GetTemplateBody ("FeeRestatement") into thetext Restatement_Fee_Only_Letter break case "Terms" -- get the Fee Only Restatement letter template --put the pTermsRestatement of stack "TemplateLib" into thetext put _GetTemplateBody ("TermsRestatement") into thetext Restatement_Terms_Only_Letter break case "FeeTerms" -- get the Fee and Terms Restatement letter template --put the pFeeTermsRestatement of stack "TemplateLib" into theText put _GetTemplateBody ("FeeTermsRestatement") into thetext Restatement_Fee_And_Terms_Letter break default put -1 into theText end Switch end Restatement_Letter ON CandD_Letter --put the pCeaseAndDesist of stack "TemplateLib" into theText put _GetTemplateBody ("CeaseAndDesist") into theText setupCarrier BuildIt theText end CandD_Letter on AG -- put the pAGletter of stack "TemplateLib" into theText put _GetTemplateBody ("AGletter") into theText setupCarrier BuildIt theText end AG on FCC --put the pFCCletter of stack "TemplateLib" into theText put _GetTemplateBody ("FCCletter") into theText setupCarrier BuildIt theText end FCC on BBB --put the ppBBBletter of stack "TemplateLib" into theText put _GetTemplateBody ("BBBletter") into theText setupCarrier BuildIt theText end BBB on Fee_Only_Letter SetupFees checkSecondStreet setupCarrier BuildIt thetext end Fee_Only_Letter on Terms_Only_Letter checkSecondStreet setupCarrier -- adjust tence for the number of terms if Parm["TermCount"] > 1 then put "these changes are" into Parm["ChangesIsAre"] else put "this changes is" into Parm["ChangesIsAre"] end if BuildIt end Terms_Only_Letter on Fee_And_Terms_Letter SetupFees checkSecondStreet setupCarrier BuildIt end Fee_And_Terms_Letter on Restatement_Fee_Only_Letter Fee_Only_Letter end Restatement_Fee_Only_Letter on Restatement_Terms_Only_Letter Terms_Only_Letter end Restatement_Terms_Only_Letter on Restatement_Fee_And_Terms_Letter Fee_And_Terms_Letter end Restatement_Fee_And_Terms_Letter Function strip x return word 1 to -1 of x end strip function displayArrayData pArray, pIndent # create the variable that loops through the keys in the array local tKey if pArray is an array then # print information to indicate that we are entering a new nested level of the array get "Array" & return # print full stops that allow the reader to track the depth of an element put "." after pIndent # create the indentation put tab after pIndent repeat for each key tKey in pArray # call displayArrayData with a nested array put format("%s[%s] => %s\n", pIndent, tKey, displayArrayData (pArray[tKey], pIndent)) after it end repeat delete the last char of it return it else return pArray end if end displayArrayData on subsInFld @myArray,myFieldID,strForEmpty -- replaces each marker <%key%> -- with the content of myArray["key"] in the field wich ID is myFieldID. -- If myArray["key"] is empty, it replaces the marker with the optional strForEmpty. put the HTMLText of fld id myFieldID of stack "TemplateLib" into myText put the keys of myArray into klist repeat for each line kk in klist put empty into t1 if myArray[kk] is not empty then replace ("<%" & kk & "%>") with myArray[kk] in myText else replace ("<%" & kk & "%>") with strForEmpty in myText end if end repeat set the htmltext of fld id myFieldID of stack "TemplateLib" to myText end subsInFld -- set up Carrier address on setupCarrier put Parm["Provider"] into jump replace "&" with "-" in jump switch jump case "AT-T" put "AT&T" into Parm["P_To"] put "Correspondence Team" into Parm["P_Attn"] put "PO Box 755" into Parm["P_Street"] put "Atwater" into Parm["P_City"] Put "CA" into Parm["P_State"] Put "95301-0755" into Parm["P_Zip"] break case "T-Mobile" put "T-Mobile" into Parm["P_To"] put "T-Mobile Customer Relations" into Parm["P_Attn"] put "PO Box 37380" into Parm["P_Street"] put "Albuquerque" into Parm["P_City"] Put "NM" into Parm["P_State"] put "87176-7380" into Parm["P_Zip"] break case "Sprint" put "Sprint Customer Service" into Parm["P_To"] put "Correspondence Team" into Parm["P_Attn"] put "PO Box 8077" into Parm["P_Street"] put "London" into Parm["P_City"] put "KY" into Parm["P_State"] put "40742" into Parm["P_Zip"] break case "Verizon" put "Verizon Wireless" into Parm["P_To"] put "Attn: Correspondence Team" into Parm["P_Attn"] put "PO Box 5029" into Parm["P_Street"] put "Wallingford" into Parm["P_City"] Put "CT" into Parm["P_State"] put "06492" into Parm["P_Zip"] break end switch end setupCarrier on setupFees put 0 into counter put empty into FeeList put empty into tArray put empty into Parm["FeeStmt"] repeat with i = 1 to 5 -- Build the correct pointers to the fee data put "FeeName" & i into FeeName put "PInc" & i into PInc put "CFee" & i into Cfee put "PFee" & i into Pfee if PInc is among the lines the keys of Parm then if Parm[PInc] is not empty then -- make sure that we only have numbers replace "%" with empty in Parm[PInc] replace "$" with empty in Parm[CFee] replace "$" with empty in Parm[PFee] if parm[PInc] <= 0 then exit repeat -- Build a array of fee sentences that have values included --put the pFeeSentence of stack "TemplateLib" into fld "Working" of card "top" of stack "TemplateLib" get _GetTemplateBody ("FeeSentence") set the htmlText of fld "Working" of card "top" of stack "TemplateLib" to it put parm[FeeName] into tArray["FeeName"] put parm[PInc] into tArray["PInc"] put parm[Cfee] into tArray["CFee"] put parm[Pfee] into tArray["PFee"] put the id of fld "working" of card "top" of stack "TemplateLib" into workingID subsInFld tArray, workingID, "##@@##" add 1 to counter put fld "working" of card "top" of stack "TemplateLib" after Parm["FeeStmt"] end if end if end repeat if counter = 0 then answer "Fee Data Missing" exit to top end if -- adjust tence for the number of fees if counter > 1 then put "these changes are" into Parm["ChangesIsAre"] else put "this changes is" into Parm["ChangesIsAre"] end if end setupFees on checkSecondStreet -- Add the second street if it is not supplied if "S_Street2" is among the lines of the keys of Parm then replace "<%S_Street1%>" with ("<%S_Street1%>" & return & "<%S_Street2%>") in theText end if end checkSecondStreet on BuildIt set the htmlText of field "Working" of card "top" of stack "TemplateLib" to theText put the id of field "Working" of card "top" of stack "TemplateLib" into myFieldID subsInFld Parm,myFieldID,"##@@##" put field "Working" of card "top" of stack "TemplateLib" into theText if offset( "##@@##", theText) <> 0 then answer ("Missing Data" & return & theText) exit to top end if end BuildIt = cREVGeneral breakpointconditions scripteditorvscroll 6582scripteditorselection 599 breakpoints breakpointstates top @ : Working )` ( &8@ cREVGeneral revUniqueID 1391017593188 Michael Doub 6704 Pauline Drive Chapel Hill, NC 27514 March 17, 2014 Certified Mail Return Receipt Requested AT&T PO Box 755 Atwater, CA 95301-0755 !Re: Account Number: 534120946048 +Notice to Cease and Desist and Verify Debt Dear AT&T: (This will serve as your legal notice under the federal and/or NC Fair Debt CollectionPractices Act (FDCPA) to cease all communication with me in regard to the debt referenced above. Except for such requested information listed below, do not contact me, or any third parties regarding this debt. Furthermore, I formally dispute the validity of this debt. Receipt of this formal dispute letter requires you to provide me with documentation that sufficiently supports your assertions that the above-referenced debt belongs to me and that I owe the exact amount alleged. Please send me copies of the original contract for this account, any signatures associated with this account, any bills associated with this account, etc. You are also notified that should you furnish any derogatory or inaccurate information to any credit reporting agencies, appropriate actions will be taken pursuant to the Fair Credit Reporting Act and the Fair Debt Collection Practices Act. Please be aware that I will continue to document all attempts to communicate with me with respect to the alleged debt, and that any further such attempts may constitute a violation of the Fair Debt Collection Practices Act at the Federal or State level. I will not hesitate to report violations of the law to my State Attorney General, the Federal Trade Commission and the Better Business Bureau. 4Thank you for your prompt attention to this matter. Sincerely, Michael Doub ` O ' > PDF @ d pageContent filepath 4/Users/mike/Dropbox/CellBreaker Info/pdfcmd/test.pdf ;local nextPage local pagesToPrint local theContent local theLetter on openstack put the pageContent of this stack into theContent if theContent is not empty then send "doPrint" to me in 30 ticks end if end openstack on closestack set the pageContent of this stack to empty end closestack on doPrint put 1 into nextPage put empty into pagesToPrint put the pageContent of this stack into theContent put numToChar(12) into pBreak set itemdel to pBreak if the number of items in theContent <= 1 then put theContent into theLetter doLetter else put item 1 of theContent into theLetter doLetter doRestofPages end if printArray close this stack end doPrint on doLetter set the htmltext of Fld "PDF" to theLetter if the formattedheight of fld "PDF" < the height of fld "PDF" then repeat until the formattedheight of fld "PDF" > (the height of fld "PDF" * .77) put return before fld "PDF" end repeat put the htmltext of fld "PDF" into pagesToPrint[1] else set the htmltext of Fld "PDF" to theLetter delete line (lineoffset("Please contact",fld "PDF" )) to -1 of fld "PDF" put the htmlText of fld "PDF" into pagesToPrint[nextpage] add 1 to nextPage -- set the htmltext of fld "PDF" to pagesToPrint [nextpage -1] -- if the formattedheight of fld "PDF" > the height of fld "PDF" then answer "Check Letter Tempate for Size" -- put line (lineoffset("Please contact",theLetter )) to -1 of theLetter into fld "PDF" set the htmltext of Fld "PDF" to theLetter delete line 1 to (lineoffset("Please contact",fld "PDF" ) -1) of fld "PDF" put the htmlText of fld "PDF" into pagesToPrint[nextpage] add 1 to nextPage end if end doLetter on doRestofPages Delete item 1 of theContent set the htmltext of fld Fld "PDF" to theContent put fld "PDF" into theContent put empty into fld "PDF" repeat for each item x in theContent put x after fld "PDF" if the formattedheight of fld "PDF" < the height of fld "PDF" then delete the last line of fld "PDF" put fld "PDF" into pagesToPrint[nextpage] add 1 to nextpage put x into fld "PDF" end if end repeat if fld "PDF" <> empty then put fld "PDF" into pagesToPrint[nextpage] end if end doRestofPages on PrintArray put the filepath of this stack into theName if theName is "None" then exit PrintArray set the printMargins to 0,0,0,0 open printing to pdf theName put the number of lines in the keys of pagesToPrint into totalpages repeat with i = 1 to totalpages set the htmlText of fld "PDF" to pagesToPrint[i] print card "PDF" if i <> totalpages then print break end repeat close printing end PrintArray = U Times New Roman U Dancing Script cREVGeneral scripteditorvscroll 738breakpointconditions breakpoints scripteditorselection 0breakpointstates debugParameters debugEntryHandler M,openstack cREVGeometryCache stackID 1005 PDF @ d : cREVGeometryCacheIDs 1384979881595 1004 cREVGeometrycache order total 1 PDF )H 2 @ 6 cREVTable currentview c1 2 3 4 5 6 7 8 9 10 1 2 3 4 5 6 7 8 9 20 1 2 3 4 5 6 7 8 9 30 1 2 3 4 5 6 7 8 9 40 1 2 3 4 5 6 7 8 cREVGeneral revUniqueID 1384979881595 Justin Carlin 2950 Lake James Drive Fuquay Varina, NC 27526-3919 November 12, 2013 Certified Mail Return Receipt Requested AT&T Attn: Correspondence Team PO Box 755 Atwater, CA 95301-0755 "Re: Account Number: 534081455025 Dear Correspondence Team: I am writing this letter regarding my cellular phone service with your company. The following notice appeared on my October 9, 2013 statement: This is a term Breach. I consider any changes in terms to be material, and this changes is materially adverse to me. So, pursuant to the terms of the customer agreement, I wish to object to these changes for each line on my account that is affected. Please contact me at the address above or by email at CarlinJD82@gmail.com if you have any questions or need any additional information. Sincerely, Justin Carlin Justin Carlin DateTime 2 @ |u ctRevID 1249863732cDefaultStack DateTime l--> all handlers -- PadShortDate(pDate, [2000]) -- -- PadShortDate() -- PadShortDate(,2000) -- PadShortDate("1/3/2003") -- PadShortDate("1/3/13") -- PadShortDate("1/3/13",2000) -- PadShortDate("1/3/13",1900) -- -- Pads a English date (m/d/y) to mm/dd/yyyyy. yy is also supported. -- If no date is specified, it will return the current date -- function PadShortDate pDate,pYear if pDate is empty then put the english date into pDate set itemdel to slash put format ("%2d", item 1 of pdate) into item 1 of pDate put format ("%2d", item 2 of pdate) into item 2 of pDate if pYear is not empty then if item 3 of pdate < 100 then add pYear to item 3 of pdate end if end if replace space with "0" in pDate return pdate end PadShortDate -- englishToSystemDate([pDate], [showLong]) -- -- englishToSystemDate() -- englishToSystemDate("12/31/2003") -- englishToSystemDate(,showLong) -- -- Converts English date (m/d/y) to the system date format. -- If no date is specified, it will return the current date in the system format. -- The optional 2nd parameter allows specification of long or short date -- with the short format being the default. -- function englishToSystemDate pDate, pUseLong if pDate is empty then put the english date into pDate if pUseLong = "showLong" then convert pDate from english date to long system date else convert pDate from english date to short system date end if return pDate end englishToSystemDate -- systemToEnglishDate([pDate], [showLong]) -- -- systemToEnglishDate() -- systemToEnglishDate(,showLong) -- systemToEnglishDate(,padded) -- -- Converts the system date to the English date format (m/d/y). -- If no date is specified, it will return the current date in English format. -- The optional 2nd parameter allows specification of long or short date -- with the short format being the default. -- function systemToEnglishDate pDate, pUseLong if pDate is empty then put the system date into pDate if pUseLong = "showLong" then convert pDate from system date to long english date else convert pDate from system date to short english date end if return pDate end systemToEnglishDate -- isLeapYear([pYear]) -- -- isLeapYear() -- isLeapYear(2000) -- -- Returns true if the specified year is a leap year and false if not. -- If no year is specified, it will calculate for the current year. -- function isLeapYear pYear if pYear is empty or pYear is not a number then put the seconds into tNow convert tNow to dateItems put item 1 of tNow into pYear end if if (pYear mod 400 = 0) or (pYear mod 100 <> 0) and (pYear mod 4 = 0) then return true else return false end if end isLeapYear -- totalDaysInYear([pYear]) -- -- totalDaysInYear() -- totalDaysInYear(2001) -- -- Clever function for determining the number of days in a year -- allowing for leap years. It works by setting the dateItems to -- the day before the 1st March. When converted back to date format, -- the internal handlers automatically convert this to 29th or 28th February -- allowing you to check for a leap year. -- The single optional parameter is a year. If none is specified, the current year is used. -- Thanks to ric Chatonet for this function. -- function totalDaysInYear pYear if pYear is empty or pYear is not a number then put the seconds into tDate convert tDate to dateItems put 3 into item 2 of tDate put 0 into item 3 of tDate else put pYear & "3,0,12,0,0,0" into tDate end if convert tDate to dateItems if item 3 of tDate = 29 then return "366" else return "365" end totalDaysInYear -- numericDate([pDate]) -- -- numericDate() -- numericDate("12/31/03") -- -- Returns the date in yyyymmdd format for the specified date. -- If no date is specified, it will return the current year. -- This has the advantage of being sortable both numerically and alphabetically. -- If supplied, the date must be in English format (use the systemToEnglishDate function if necessary). -- function numericDate pDate if pDate is empty or pDate is not a date then put the short english date into pDate convert pDate from short english date to dateItems put item 2 of pDate into tMonth if tMonth < 10 then put "0" before tMonth put item 3 of pDate into tDay if tDay < 10 then put "0" before tDay return item 1 of pDate & tMonth & tDay end numericDate -- yearNum([pDate]) -- -- yearNum() -- yearNum("6/3/03") -- -- Returns the 4 digit year number for the specified date. -- If no date is specified, it will return the current year. -- If supplied, the date must be in English format (use the systemToEnglishDate function if necessary). -- function yearNum pDate if pDate is empty or pDate is not a date then put the short english date into pDate convert pDate from short english date to dateItems return item 1 of pDate end yearNum -- monthName([pMonthNum], [abbrev], [useSystem]) -- -- monthName() -- monthName(7) -- monthName(,abbrev) -- monthName(3,useSystem) -- -- Returns the month name for a specific month number. -- If no month is specified, it will return the current month's name. -- The other parameters allows specification of long or short names -- with the long names being the default and specification of system or default names -- with the system names being the default. The order of these extra parameters does -- not matter, but the month number must be first. If no month number is specified, -- an empty parameter must be first. -- function monthName pMonthNum if pMonthNum is empty then put the seconds into tNow convert tNow to dateItems put item 2 of tNow into pMonthNum else if pMonthNum is not a number then return pMonthNum end if put false into pAbbrev put false into pUseSystemNames put the paramcount into pCount repeat for each item p in the params if p contains "abbrev" then put true into pAbbrev if p contains "useSystem" then put true into pUseSystemNames end repeat if pAbbrev = true then if pUseSystemNames = false then return line pMonthNum of the abbrev monthnames else return line pMonthNum of the abbrev system monthnames end if else if pUseSystemNames = false then return line pMonthNum of the monthnames else return line pMonthNum of the system monthnames end if end if end monthName -- monthNum([pMonth]) -- -- monthNum() -- monthNum("Dec") -- monthNum("January") -- -- Returns the month number for a specific month name, with either long or short month names being allowed. -- It will work if the system names or the default names for the months are used. -- If no month is specified, it will return the current month's number. -- If no match is found, the result will be 0. -- function monthNum pMonth if pMonth is empty then put the seconds into tNow convert tNow to dateItems return item 2 of tNow else get lineoffset(pMonth, the abbrev system monthNames) if it = 0 then get lineoffset(pMonth, the system monthNames) if it = 0 then get lineoffset(pMonth, the abbrev monthNames) if it = 0 then get lineoffset(pMonth, the monthNames) return it end if end monthNum -- daysInMonth([pMonth], [pYear]) -- -- daysInMonth() -- daysInMonth("Dec") -- daysInMonth(2,2000) -- -- Returns the number of days in a specific month. -- The month can be entered as a number or a name with either long or short month names being allowed. -- System or default month names are both allowed. -- If no month is specified, it will return the current month's number. -- If a name is used, this function calls the monthNum() function, so don't separate them if copying this script into another stack. -- function daysInMonth pMonth, pYear if pMonth is empty or pYear is empty then put the seconds into tNow convert tNow to dateItems if pMonth is empty then put item 2 of tNow into pMonth if pYear is empty then put item 1 of tNow into pYear end if if pMonth is not a number then put monthNum(pMonth) into pMonth if (pMonth is in "1,3,5,7,8,10") or (pMonth = 12) then return 31 else if (pMonth is in "4,6,9,11") then return 30 else if (pYear mod 400 = 0) or (pYear mod 100 <> 0) and (pYear mod 4 = 0) then return 29 -- leap year else return 28 end daysInMonth -- weekNum([pDate]) -- -- weekNum() -- weekNum("12/31/2002") -- -- Returns the absolute week number for a specific date. -- If supplied, the date must be in English format (use the systemToEnglishDate function if necessary). -- If no date is specified, the current week number is returned -- This is not the ISO week number where week 1 is the week beginning on a Monday that contains -- 4th January, but the absolute week where week 1 starts on January 1st. -- December 31st will always be in week 53 and December 30th will vary with leap years. -- function weekNum pDate if pDate is empty or pDate is not a date then put the short english date into pDate put pDate into startYearDate set itemdelimiter to "/" put 1 into item 1 of startYearDate put 1 into item 2 of startYearDate convert pDate from short english date to seconds convert startYearDate from short english date to seconds put pDate - startYearDate into secsThisYear put secsThisYear / (24*60*60) into daysThisYear return (daysThisYear div 7) + 1 end weekNum -- weekNumISO([pDate], [pBeginningDay]) -- -- weekNumISO() -- weekNumISO("30/3/2002") -- weekNumISO(,"Sunday") -- weekNumISO("12/31/2000") -- weekNumISO("12/31/2000", "Sunday") -- -- Returns the number of the current week according to ISO: -- first Thursday of the year is always in the first week of the year. -- If supplied, the date must be in English format (use the systemToEnglishDate function if necessary). -- If no date is specified, the current date is used. -- The second optional parameter is "Sunday" or "Monday" and indicates the first week day displayed. -- If no beginning date is specified, "Monday" is used as the default (ISO standard). -- This function calls the dayInYear() function, so don't separate them if copying this script into another stack. -- -- Thanks to ric Chatonet for this function. -- function weekNumISO pDate, pBeginningDay if pBeginningDay <> "Sunday" then put "Monday" into pBeginningDay if pDate is empty or pDate is not a date then put the short english date into pDate -- computing the number of days in current week: convert pDate from short english date to dateItems put last item of pDate into tDay if pBeginningDay = "Sunday" then put tDay into tNumOfDaysInCurrentWeek else if tDay = 1 then put 7 into tNumOfDaysInCurrentWeek else put tDay - 1 into tNumOfDaysInCurrentWeek end if -- computing the days of first & last day of year put pDate into firstDayOfYear put 1 into item 2 of firstDayOfYear put 1 into item 3 of firstDayOfYear convert firstDayOfYear to dateItems put last item of firstDayOfYear into firstDay put pDate into lastDateOfYear put 12 into item 2 of lastDateOfYear put 31 into item 3 of lastDateOfYear convert lastDateOfYear to dateItems put last item of lastDateOfYear into lastDay -- computing the number of days in first week of the year: if pBeginningDay = "Sunday" then put (firstDay is not in "67") into tThursdayIsInFirstWeek else put (firstDay is not in "167") into tThursdayIsInFirstWeek end if if pBeginningDay = "Sunday" then put 8 - (firstDay) into tNumOfDaysInFirstWeek else if firstDay = 1 then put 1 into tNumOfDaysInFirstWeek else put 9 - firstDay into tNumOfDaysInFirstWeek end if -- computing the week number and returning the result: put pDate into tEnglishDate convert tEnglishDate from dateItems to short english date put dayInYear(tEnglishDate) into tDayNum if tThursdayIsInFirstWeek then if tDayNum <= tNumOfDaysInFirstWeek then return "1" else if (tDayNum > tNumOfDaysInFirstWeek) and \ (tDayNum <= tNumOfDaysInFirstWeek + tNumOfDaysInCurrentWeek) then return "2" else put ((tDayNum - (tNumOfDaysInFirstWeek + tNumOfDaysInCurrentWeek)) / 7) + 2 into tWeekNum -- check for going over to the next year if tWeekNum = 53 then -- if last day of the year is after Thursday, go to next year if lastDay < 5 then return 1 else return 53 else if tWeekNum = 54 then return 1 else return tWeekNum end if end if else if tDayNum <= tNumOfDaysInFirstWeek then if (firstDay < 4 and pBeginningDay = "Sunday") or \ (tDayNum <> 1 and tDayNum < 4 and pBeginningDay = "Monday") then return 1 else subtract 1 from item 1 of lastDateOfYear return weekNum(lastDateOfYear, pBeginningDay) -- recursive end if else if (tDayNum > tNumOfDaysInFirstWeek) and \ (tDayNum <= tNumOfDaysInFirstWeek + tNumOfDaysInCurrentWeek) then return "1" else return ((tDayNum - (tNumOfDaysInFirstWeek + tNumOfDaysInCurrentWeek)) / 7 ) + 1 end if end weekNumISO -- dayName([pDate], [abbrev], [useSystem]) -- -- dayName() -- dayName("9/30/2020") -- dayName(,abbrev) -- dayName(,useSystem) -- -- Returns the weekday name for a specific date. -- If no date is specified, it will use the current date. -- If supplied, the date must be in English format (use the systemToEnglishDate function if necessary). -- The other parameters allows specification of long or short names -- with the long names being the default and specification of system or default names -- with the system names being the default. The order of these extra parameters does -- not matter, but the date must be first. If no date is specified, -- an empty parameter must be first. -- function dayName pDate if pDate is empty then put the short english date into pDate else if pDate is not a date then return empty put false into pAbbrev put false into pUseSystemsNames put the paramcount into pCount repeat for each item p in the params if p contains "abbrev" then put true into pAbbrev if p contains "useSystem" then put true into pUseSystemsNames end repeat convert pDate from short english date to dateItems put last item of pdate into dayInYear if pAbbrev = true then if pUseSystemsNames = false then return line dayInYear of the abbrev weekdaynames else return line dayInYear of the abbrev system weekdaynames end if else if pUseSystemsNames = false then return line dayInYear of the weekdaynames else return line dayInYear of the system weekdaynames end if end if end dayName -- dayInYear -- -- dayInYear() -- dayInYear("12/31/2004") -- -- Returns the day number within the year for a specific date. -- If no date is specified, it will use the current date. -- If supplied, the date must be in English format (use the systemToEnglishDate function if necessary). -- Thanks to ric Chatonet for this function. -- function dayInYear pDate if pDate is empty or pDate is not a date then put the short english date into pDate put pDate into tJanuaryFirst convert tJanuaryFirst from short english date to dateItems put 1 into item 2 of tJanuaryFirst put 1 into item 3 of tJanuaryFirst convert tJanuaryFirst to seconds convert pDate to seconds return round((pDate - tJanuaryFirst) / 86400) + 1 end dayInYear -- daysBetween(date1, [date2]) -- -- daysBetween("9/28/03") -- daysBetween("1/1/2002", "1/1/2003") -- -- Returns the number of days between 2 dates. -- If only one date is specified, it will use the current date for the second. -- The dates must be in English format (use the systemToEnglishDate function if necessary). -- It doesn't matter whether the most recent date is first or last. -- function daysBetween pDate1, pDate2 if pDate2 is empty then put the short english date into pDate2 if pDate1 is not a date or pDate2 is not a date then return empty convert pDate1 from short english date to dateItems convert pDate2 from short english date to dateItems repeat with i = 4 to 7 put 0 into item i of pDate1 put 0 into item i of pDate2 end repeat convert pDate1 from dateItems to seconds convert pDate2 from dateItems to seconds put abs(pDate1 - pDate2) into tDiff put tDiff / (60 * 60 * 24) into temp if temp contains "." then set itemdel to "." return item 1 of temp + 1 else return temp end if end daysBetween -- monthNumber -- -- monthNumber() -- monthNumber("12/31/2004") -- monthNumber() - monthNumber("1/1/2004") -- -- returns a numeric value for the months in a given date so month comparisons can be made -- If no date is specified, it will use the current date. -- If supplied, the date must be in English format (use the systemToEnglishDate function if necessary). -- function monthNumber pDate if pDate is empty or pDate is not a date then put the short english date into pDate convert pDate to dateItems put item 1 of pDate into tYears put item 2 of pDate into tMonths put item 3 of pDate into tDay if tDay > 15 then add 1 to tMonths return (tYears * 12) + tMonths end monthNumber -- timeZone() -- -- timeZone() -- -- Returns the time zone according to the current system settings -- using +/-hhmm format. -- function timeZone put the internet date into tNow put last word of tNow into tZone return tZone end timeZone -- militaryClock([showSecs]) -- -- militaryClock() -- militaryClock(showSecs) -- -- Returns the time in 24 hour format, regardless of current system settings. -- The normal preferences will remain unchanged. -- The optional parameter can be used to specify that the time be shown with seconds, -- without seconds is the default. -- function militaryClock pShowSeconds put the twelvehourtime into oldSet set the twelvehourtime to false if pShowSeconds = "showSecs" then put the long system time into tNow else put the system time into tNow end if set the twelvehourtime to oldSet return tNow end militaryClock -- twelveHourClock([showSecs]) -- -- twelveHourClock() -- twelveHourClock(showSecs) -- -- Returns the time in 12 hour format showing am or pm, regardless of current system settings. -- The normal preferences will remain unchanged. -- The optional parameter can be used to specify that the time be shown with seconds, -- without seconds is the default. -- function twelveHourClock pShowSeconds put the twelvehourtime into oldSet set the twelvehourtime to true if pShowSeconds = "showSecs" then put the long system time into tNow else put the system time into tNow end if set the twelvehourtime to oldSet return tNow end twelveHourClock -- titleCase(pString) -- -- titleCase("wednesday") -- titleCase("janvier") -- -- Changes the first letter of the supplied string to uppercase. -- Apparently, the system monthNames and system weekdayNames in some -- languages, return the names all in lower case, which may need correcting. -- function titleCase pString put toupper(char 1 of pString) into char 1 of pString return pString end titleCase -- dateOfEaster(pYear) -- -- dateOfEaster() -- dateOfEaster(2000) -- dateOfEaster(1500) -- -- This funcion calculates the date of Easter for a given year. -- If no year is specified, the current year is used. -- It cannot calculate Easter for years before 1583, so will return empty for any years earlier than that. -- The date is returned in short English format (use the systemToEnglishDate function to convert if necessary). -- function dateOfEaster pYear if pYear is empty or pYear is not a number then put the seconds into tNow convert tNow to dateItems put item 1 of tNow into pYear end if if pYear < 1583 then return empty put 0 into wCorrection if( pYear < 1700 ) then put 4 into wCorrection else if pYear < 1800 then put 5 into wCorrection else if pYear < 1900 then put 6 into wCorrection else if pYear < 2100 then put 0 into wCorrection else if pYear < 2200 then put 1 into wCorrection else if pYear < 2300 then put 2 into wCorrection else if pYear < 2500 then put 3 into wCorrection put (19 * (pYear mod 19) + 24) mod 30 into wDay put 22 + wDay + ((2 * (pYear mod 4) + 4 * (pYear mod 7) + 6 * wDay + 5 + wCorrection) mod 7) into wDay -- jump to next month if wDay > 31 then put 4 into wMonth subtract 31 from wDay else put 3 into wMonth end if return wMonth & "/" & wDay & "/" & pYear end dateOfEaster -- relativeDate(pIndex, pDay, pMonth, pYear) -- -- relativeDate("First", "Tues", "November", "2004") -- relativeDate("Last", "Wednesday", "January", "2000") -- relativeDate(2, "Sunday", 5, "2002") -- -- This function calculates exact dates from relative dates -- like "the last Monday in May 2000" or "the 2nd Saturday in October 2004". -- pIndex can be: First, Second, Third, Fourth, Last -- or +1, +2, +3, +4, +5, -1 (the + is optional). -- pDay is a day name in long or abbreviated system form. -- pMonth can be a number or a month name and pYear must be a number. -- The resulting date is returned in short English format (use the systemToEnglishDate function to convert if necessary). -- function relativeDate pIndex, pDay, pMonth, pYear -- extract the day name & convert to a number put char 1 to 3 of pDay into tDayName put the abbrev system weekdaynames into tDayList get lineoffset(tDayName, tDayList) if it = 0 then return empty put it into tDayNum if pMonth is not a number then put monthNum(pMonth) into pMonth if char 1 of pIndex = "+" then delete char 1 of pIndex -- find first whatever day in the month put pMonth & "/1/" & pYear into firstDate convert firstDate from short english date to dateItems put last item of firstDate into firstDayNum put tDayNum - firstDayNum into dayDiff if dayDiff < 0 then add 7 to dayDiff add dayDiff to item 3 of firstDate convert firstDate to seconds convert firstDate to dateItems -- add weeks as necessary switch pIndex case "First" case "1" break case "Second" case "2" add 7 to item 3 of firstDate break case "Third" case "3" add 14 to item 3 of firstDate break case "Fourth" case "4" add 21 to item 3 of firstDate break case "Fifth" case "5" add 28 to item 3 of firstDate break case "Last" case "-1" -- try week 5 and if that doesn't work, use week 4 put firstDate into testDate add 28 to item 3 of testDate convert testDate to seconds convert testDate to dateItems if item 2 of testDate = pMonth then put testDate into firstDate else add 21 to item 3 of firstDate end if break default return empty end switch convert firstDate to seconds convert firstDate to dateItems put item 2 of firstDate into newM put item 3 of firstDate into newD return pMonth & "/" & newD & "/" & pYear end relativeDate -- dateTimeToJulian(pYear, pMonth, pDate, [pHour], [pMins], [pSecs]) -- -- dateTimeToJulian() -- dateTimeToJulian(2004,3,22) -- dateTimeToJulian(2004,3,22,12,2) -- dateTimeToJulian(2004,3,22,12,5,45) -- -- This function returns the date and time in Julian date format. -- If no date is specified, it will use the current date. -- If supplied, the date must be in date items format: year, month, day, hour, minutes, seconds -- This is because the internal date conversions may not work for early dates. -- The time parameters are optional and seconds need not be specified. -- -- Julian dates (abbreviated JD) are simply a continuous count of days and fractions -- since noon Universal Time on January 1, 4713 BCE (on the Julian calendar). -- Almost 2.5 million days have transpired since this date. -- Julian dates are widely used as time variables within astronomical software. -- Typically, a 64-bit floating point (double precision) variable can represent -- an epoch expressed as a Julian date to about 1 millisecond precision. -- Note that the time scale that is the basis for Julian dates is Universal Time, -- and that 0h UT corresponds to a Julian date fraction of 0.5. -- -- It is assumed that 7-day weeks have formed an uninterrupted sequence since ancient times. -- Thus, the day of the week can be obtained from the remainder of the division of -- the Julian date by 7. -- -- This function is copyright 2004 Mark Wieder and Ah, Software -- function dateTimeToJulian pYear, pMonth, pDate, pHour, pMins, pSecs if the paramcount < 3 then put the seconds into tNow convert tNow to dateItems put item 1 of tNow into pYear put item 2 of tNow into pMonth put item 3 of tNow into pDate put item 4 of tNow into pHour put item 5 of tNow into pMins put item 6 of tNow into pSecs end if if pHour is empty then put 0 into pHour if pMins is empty then put 0 into pMins if pSecs is empty then put 0 into pSecs -- calculate date part of Julian number put 100 * pYear + pMonth - 190002.5 into extra put 367 * pYear into julianDate subtract trunc(7.0 * (pYear + trunc((pMonth + 9) / 12)) / 4) from julianDate add trunc(275 * pMonth / 9 ) to julianDate add pDate to julianDate -- now add the time as a fractional day add (pHour + (pMins + pSecs / 60) / 60) / 24 to julianDate add 1721013.5 to julianDate subtract .5 * extra / abs(extra) from julianDate -- compensate for the fact the UTC starts at noon add .5 to julianDate return julianDate end dateTimeToJulian -- JulianToDateTime(pJulian) -- -- JulianToDateTime(2453086.5) -- JulianToDateTime(2453087.001389) -- JulianToDateTime(2453087.003993) -- -- This function returns the date in short English date format. -- If the supplied Julian time includes a time component, -- it returns the time in either long or short 24 hour format, -- depending on whether the seconds are zero or not. -- See dateTimeToJulian for more notes about Julian dates. -- -- This function is copyright 2004 Mark Wieder and Ah, Software -- function JulianToDateTime pJulian put trunc(pJulian + .5) into jd0 if (jd0 < 2299161) then put jd0 + 1524 into c else put trunc((jd0 - 1867216.25) / 36524.25) into b put jd0 + (b - trunc(b/4)) + 1525 into c end if put trunc((c - 122.1)/365.25) into d put 365 * d + trunc(d/4) into e put trunc((c-e) / 30.6001) into f put trunc(c - e + .5) - trunc(30.6001 * f) into tDate put f - 1 - 12 * trunc(f/14) into tMonth put d - 4715 - trunc((7 + tMonth) /10) into tYear put 24 * (pJulian + .5 - jd0) into tempHour put trunc(tempHour * 60 + .5) / 60 into tHour put trunc(tHour) into tHour put (60 * (tempHour - tHour)) into tempMin put trunc(tempMin) into tMin put round(60 * (tempMin - tMin)) into tSec if tHour < 10 then put "0" before tHour if tMin < 10 then put "0" before tMin if tSec < 10 then put "0" before tSec if tHour = 0 and tMin = 0 and tSec = 0 then put tMonth & "/" & trunc(tDate) & "/" & tYear into tResult else if tSec = 0 then put tMonth & "/" & trunc(tDate) & "/" & tYear && tHour & ":" & tMin into tResult else put tMonth & "/" & trunc(tDate) & "/" & tYear && tHour & ":" & tMin & ":" & tSec into tResult end if return tResult end JulianToDateTime() -- englishToSQLdate([pDate]) -- -- englishToSQLdate() -- englishToSQLdate("6/3/09") -- -- Converts a short English date into an SQL format date (YYYY-MM-DD) -- If no date is specified, it will use the current date. -- If supplied, the date must be in English format (use the systemToEnglishDate function if necessary). -- function englishToSQLdate pDate if pDate is empty then put the short english date into pDate convert pDate from short english date to dateItems put item 2 of pDate into m if m < 10 then put "0" before m put item 3 of pDate into d if d < 10 then put "0" before d return item 1 of pDate & "-" & m & "-" & d end englishToSQLdate() -- SQLToEnglishDate([pDate], [pFourDigitYear]) -- -- SQLToEnglishDate() -- SQLToEnglishDate("2009-08-30") -- SQLToEnglishDate("2009-01-15", true) -- -- Converts an SQL format date (YYYY-MM-DD) into a short English date. -- If no date is specified, it will use the current date. -- The optional parameter pFourDigityear allows you to specify that the short date will show the year in 4 digits. -- function SQLToEnglishDate pDate, pFourDigitYear if pDate is empty then return the short english date replace "-" with comma in pDate put ",12,0,0,0" after pDate convert pDate from dateItems to short english date if pFourDigitYear = true then set the itemdel to "/" put last item of pDate into y if the number of chars in y = 4 then return pDate end if if y > 80 and y < 100 then put "19" before last item of pDate else if y < 2000 then put "20" before last item of pDate end if return pDate end SQLToEnglishDate() -- timeStamp([pSecs]) -- -- timeStamp() -- timeStamp(1249865187) -- -- Converts the time in seconds into a standard timestamp format: YYYYMMDDHHMMSS -- This is very useful to transferring times across different time zones, -- and gives a readable as well as sortable time/date indicator. -- If no time in seconds is specified, it will use the current seconds. -- function timeStamp pSecs if the length of pSecs = 14 and pSecs is a number then return pSecs -- already converted if pSecs is not empty and pSecs is not a number then return pSecs -- not valid seconds if pSecs is empty then put the seconds into tNow else put pSecs into tNow end if convert tNow to dateItems put item 1 of tNow into tStamp repeat with x = 2 to 6 put char -2 to -1 of ("00" & item x of tNow) after tStamp end repeat return tStamp end timeStamp() -- timeStampToSeconds([pStamp]) -- -- timeStampToSeconds(20090810104945) -- timeStampToSeconds(20060630140000) -- -- Converts the time in timestamp format (YYYYMMDDHHMMSS) back into time in seconds. -- If using a timeStamp, this allows you to convert it back to seconds for temporary use. -- function timeStampToSeconds pStamp if pStamp is empty then return the seconds put char 1 to 4 of pStamp & comma into tSecs put char 5 to 6 of pStamp & comma after tSecs put char 7 to 8 of pStamp & comma after tSecs put char 9 to 10 of pStamp & comma after tSecs put char 11 to 12 of pStamp & comma after tSecs put char 13 to 14 of pStamp & comma & 0 after tSecs convert tSecs from dateItems to seconds return tSecs end timeStampToSeconds() -- timeStampToShortDate([pStamp]) -- -- timeStampToShortDate(20090810104945) -- timeStampToShortDate(20060630140000) -- -- Converts the time in timestamp format (YYYYMMDDHHMMSS) to the short English date. -- This ignores the time portion of the timeStamp but is useful for display purposes. -- function timeStampToShortDate pStamp if pStamp is empty then return the short english date put char 1 to 4 of pStamp into tYear put char 5 to 6 of pStamp into tMonth put char 7 to 8 of pStamp into tDay if char 1 of tMonth = "0" then delete char 1 of tMonth if char 1 of tDay = "0" then delete char 1 of tDay put tYear & comma & tMonth & comma & tDay & ",12,0,0,0" into tDate convert tDate from dateItems to short english date return tDate end timeStampToShortDate() -- timeStampToShortTime([pStamp]) -- -- timeStampToShortTime(20090810104945) -- timeStampToShortTime(20060630140000) -- -- Converts the time in timestamp format (YYYYMMDDHHMMSS) to the shortime, -- converting from 24 to 12 hour time. -- This ignores the date portion of the timeStamp but is useful for display purposes. -- function timeStampToShortTime pStamp if pStamp is empty then return the short time put char 9 to 10 of pStamp into tHour put char 11 to 12 of pStamp into tMins if tHour > 12 then subtract 12 from tHour put "pm" into tSuffix else if tHour = 12 then put "pm" into tSuffix else put "am" into tSuffix end if -- allow for midnight if tHour = "00" then put 12 into tHour put "am" into tSuffix end if return tHour & ":" & tMins && tSuffix end timeStampToShortTime -- DateOffset (date, offsetdays) -- -- DateOffset(,7) -- DateOffset(,-7) -- DateOffset("1/1/2013",7) -- DateOffset("1/1/2013",-7) -- -- returns the date (m/d/yyyy) after the offset in days has been computed -- If no date is specified, it will use the current date. -- function DateOffset pDate, pOffset local pYear, pMonth,pDay set itemdel to slash if pDate is empty then put the system date into pDate put yearNum() into item 3 of pDate end if put item 1 of pDate into pDay put item 2 of pDate into pMonth put item 3 of pDate into pYear put libDate_DayNumber (pYear,pMonth,pDay) into theNbr add pOffset to theNbr put FromDayNum (theNbr) into pDate return pDate end DateOffset -- toDayNum -- -- toDayNum() -- toDayNum("12/31/2004") -- -- Converts the date format (m/d/yyyy) to the day number. -- If no date is specified, it will use the current date. -- -- taken from http://alcor.concordia.ca/~gpkatch/gdate-algorithm.html -- function toDayNum pDate local pYear, pMonth,pDay set itemdel to slash if pDate is empty then put the system date into pDate put yearNum() into item 3 of pDate end if put item 1 of pDate into pDay put item 2 of pDate into pMonth put item 3 of pDate into pYear return libDate_DayNumber (pYear,pMonth,pDay) end toDayNum -- FromDayNum -- -- FromDayNum("735540") -- -- Converts the daynumber to mm/dd/yyyy -- If no date is specified, it will use the current date. -- -- taken from http://alcor.concordia.ca/~gpkatch/gdate-algorithm.html -- function FromDayNum pNumber local pYear, pMonth,pDay put libDate_dateFromNumber(pNumber) into tDate set itemdel to comma put (item 2 of tDate & slash & item 3 of tDate & slash & item 1 of tDate) into tDate return tDate end FromDayNum function libDate_DayNumber pYear,pMonth,pDay put (pMonth + 9) mod 12 into pMonth put pYear - pMonth div 10 into pYear return 365*pYear + pYear div 4 - pYear div 100 + pYear div 400 + (pMonth*306 + 5) div 10 + ( pDay - 1 ) end libDate_DayNumber function libDate_dateFromNumber pNumber local tYear,tMonth,tDay,tDays,tMonths put (10000*pNumber + 14780) div 3652425 into tYear put pNumber - (365*tYear + tYear div 4 - tYear div 100 + tYear div 400) into tDays if (tDays < 0) then put tYear - 1 into tYear put pNumber - (365* tYear + tYear div 4 - tYear div 100 + tYear div 400) into tDays end if put (100*tDays + 52) div 3060 into tMonths put (tMonths + 2) mod 12 + 1 into tMonth put tYear + (tMonths + 2) div 12into tYear put tDays - (tMonths*306 + 5) div 10 + 1 into tDay return tYear, tMonth, tDay end libDate_dateFromNumber Z Date & Time Library U Arial U Arial W Arial U Arial U Arial Black U Arial U Lucida Grande W Lucida Grande @U Lucida Grande cGlx2General !CompilesForArchive 4cExplicitVariables falsecIndentSwitch truecHscrollHandlers 0 cFontSize 11 cHtmlScript =ksF+KFD .'U9;U+R{{$bׯy(N%Wwk~MOV6++]GG''J Vy}{S^Fds5Toÿ |E/IY:{{f 3벸USZ- Lg@5jn Z:kNۥ*JnkUo<_z1Tys{mUtt0@kiV*-jUZ7B^vy@\LFU -A< yvE -Ŝu0L Z#ێʗ܈sMCl¬}>pQ_Y Jy1*!:@FU%bz!G$njyL^XE:ɕd1542˨OhIh="QwfFvE4 :@2F z92`@ꪭF #w3^-3*o$ xͳ| ;HU,?;/uYH,뙮"Z9а ey_k "oɵ%("$إbLʺ\hB5 ^sͯvЖj HI31ލO,X$Vo]蒋$$iQʮ :/ U @&%ud.;Z1O[X֨iE0+dqԶ4=&ueT*/ ; r$B{fm V;'9+0]@tz гjU`Jr[