MZ@ !L!This program cannot be run in DOS mode. $7RY[RY[RY[@[TY[RX[yY[ő@[QY[őD[SY[ő[SY[őE[^Y[ő[SY[őd[SY[RichRY[PEL);    @P d@ .text0   `.rdata @@.data0@.rsrc@@@UEPjh @t3VWu=8 @Ph0@P< @EPPPuE @u @t3-tP @YtF>uVu 3@_^UVh0@Vu52@ @u 0@^]UiS2@;Vj\1@V @YYuPh4 @ W+WVP @ =_5< @h(0@PuMPP֍jP @YY^uPS8 @[UV3FV4=3@SW3@Sh,0@3= @tjSׅYYt %3@Vz=3@uvhP0 @tN =D5< @h(0@PjPP֍jPׅYYuPS8 @=3@u 3@Pu_[^US( @VWjjuӋ3}쫫fEH;|D=, @+jFPujEPuE=t =uE:E tEH;}3(+ujFFVujEPuEu%0@3@_^[Vjh1@ @u^WjAV~j W @YYȊ"4@Eu&Fj"V @YYte'Vh3@8 @w3t!V3@W8 @WYt1@ut F1@}uux1@4@i2@P @1@tW5 @hP0@PhD0@51@օۣ2@t1t-Mt j QW,uPjjW2@34@6_^[% @jlh @3S= @f8MZuH<ȁ9PEuA= t= t]'v39ytv39E]jL @Y 4@ 4@H @ 1@P @ 1@` @4@`90@u h@d @Yh 0@h0@ht@1@EEP51@EPEPEPl @h0@h0@~(p @0uЀ>"u:FuЊ:t<"u>"uFuЊ:t< v]EP@ @EtE> vFuj XPVSSPu9]uVt @x @-E MPQ(YYËeu}uV @ @M%| @=4@u%T @h4@h4@t$  t$YHj h @E @} @s"eEt 3@ËeMEj h @TE @} @s"eEt 3@ËeMEV%h @hhWYY3h*@dPd%D$l$l$+SVWEePEEEËMd Y_^[Q% @%X @%\ @v$$h$$########r#f#Z#$##".#8#F#""""""""~"t"^"R"<"H"0"&" #"B$4$P$@@]@a@@@!h"H p!&$ "\$ `!$ v$$h$$########r#f#Z#$##".#8#F#""""""""~"t"^"R"<"H"0"&" #"B$4$P$isspace_access_mbsncpy_mbsrchrstrlen_mbsicmp}_mbschrMSVCR70.dll_c_exit_exitK_XcptFilter_cexitexit_acmdlne__getmainargs3_initterm__setusermatherr_adjust_fdivx__p__commode}__p__fmode__set_app_typeb__dllonexit_onexit_controlfp_except_handler3glstrcatAplstrcpyAGetCurrentDirectoryAGetSystemDirectoryAd_lreadb_llseek`_lclosec_lopenqGetProcAddressLoadLibraryAPGetModuleFileNameARGetModuleHandleAGetStartupInfoAKERNEL32.dllLoadStringAMessageBoxAwsprintfAUSER32.dllRegCloseKeyRegQueryValueARegOpenKeyAADVAPI32.dll\Shell\Open\Command\VisualFoxProRuntime.7DllOleInitDllWinMainunregserverregserver-T "(H`x:     A(HBXE0E"( 19910 0 9191991999991?( @90  90 99990999999 099999990999999909 999999990 999999999999999999999999999999 91990 90999 90 9 0????????( VFP7.EXE VFP7R.DLL VFP7T.DLLMicrosoft Visual FoxPro:Cannot locate the Microsoft Visual FoxPro support library."The %s file is invalid or damaged.)Cannot run the file %s. Error code 0xlX. k~Ԣ0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _09Q0SSDWY 697264954/F]ox WINDOWS _09Q0SSDWZ 922963322 WINDOWS _09Q0SSDY3 922963322,, WINDOWS _1A20PE7Q8 820540801 WINDOWS _09Q0SSDWY 9229633229 H W d q 6 ( WINDOWS _09Q0SSDWY 9147880284AN\i WINDOWS _09Q0SXS4Y 914788028 - WINDOWS _09Q0T0GCG 914788028 WINDOWS _09Q0SSDWY 914788028 & WINDOWS _09Q0SSDWY 922963322 WINDOWS _09Q0SSDWY 922963322"""""r#K WINDOWS _1A20PE7QG 922963322$$$$$_%| WINDOWS _1A20PM2UH 922963322h&w&&&&h' WINDOWS _09Q0SSDWY 922963322Y&J&=&0&** WINDOWS _1ZP0YG6NN 914788028!&}$p$c$+ WINDOWS _09Q0SSDWY 914788028V$I$& % WINDOWS _1ZP0YG6NO 914788028  # COMMENT RESERVED v /VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentKLeft = 87 Top = 369 Width = 520 Height = 200 Name = "Dataenvironment" cursorcursorCursor1DataenvironmentuLeft = 10 Top = 20 Width = 90 Height = 90 Alias = "promptinfo" CursorSource = promptinfo.dbf Name = "Cursor1" 21formformForm1Height = 475 Width = 456 DoCreate = .T. AutoCenter = .T. BorderStyle = 1 Caption = "ParameteRR Value Entry" ControlBox = .T. Closable = .T. MaxButton = .F. MinButton = .F. Icon = allblue.ico Name = "Form1" /PROCEDURE posttypevalue SELECT promptinfo cDataType = datatype cDataValue = RTRIM(currentval) DO CASE CASE cDataType = "T" tCurrData = CTOT(cDataValue) replace currdttmvl WITH tCurrData CASE cDataType = "L" lCurrData = IIF(UPPER(LEFT(cDataValue, 1)) = "T", .T., .F.) replace currlogivl WITH lCurrData CASE cDataType = "D" dCurrData = CTOD(cDataValue) replace currdatavl WITH dCurrData CASE cDataType = "N" nCurrData = VAL(cDataValue) replace currnumbvl WITH nCurrData CASE cDataType = "C" cCurrData = cDataValue replace currtextvl WITH cCurrData ENDCASE ENDPROC PROCEDURE Destroy CLEAR EVENTS ENDPROC PROCEDURE Init thisform.list1.ListItemId = 1 thisform.list2.ListItemId = 1 thisform.Refresh ENDPROC  %VoiU UTHISFORM POSTTYPEVALUE LostFocus,12-) Z%Ct ^UT#T#TC  %C#TC  U NLISTIDTHISFORMLIST2 LISTITEMIDLIST1TEXT1VALUELISTITEM LISTINDEX POSTTYPEVALUEREFRESHInteractiveChange,1111Q1A2})lArial, 0, 9, 5, 15, 12, 32, 3, 0 MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0 Arial, 0, 14, 8, 23, 18, 51, 4, 1 Form1Label2labellabelForm1t*posttypevalue Interprets the data type of the parameter being selected and posts the value into the correct field shapeshapeShape1Form1TTop = 192 Left = 6 Height = 240 Width = 444 SpecialEffect = 0 Name = "Shape1" listboxlistboxList1Form1FontName = "MS Sans Serif" RowSourceType = 3 RowSource = "select longname from promptinfo into cursor pi01" Height = 150 Left = 12 TabIndex = 2 Top = 30 Width = 228 Name = "List1" >PROCEDURE InteractiveChange nListID = thisform.list1.listItemID goto record thisform.list1.listItemID thisform.list2.ListItemId = nListID IF ISNULL(thisform.text1.Value) THEN thisform.text1.Value = thisform.list2.ListItem(thisform.list2.ListIndex) ENDIF thisform.posttypevalue thisform.refresh ENDPROC  %Pe_U UTHISFORMRELEASEClick,12#) Ҥ%\qkUpickprompts.scxU PICKPROMPTSSCXClick,1q2*)Label1labellabelLabelBForm1FontName = "MS Sans Serif" Caption = "Current value:" Height = 17 Left = 264 Top = 12 Width = 108 TabIndex = 3 Name = "LabelB" labellabelLabelAForm1FontName = "MS Sans Serif" Caption = "Select ParameteRR to modify:" Height = 17 Left = 12 Top = 12 Width = 168 TabIndex = 1 Name = "LabelA" editboxeditboxEdit1Form1FontName = "MS Sans Serif" Height = 204 Left = 12 ScrollBars = 0 SpecialEffect = 0 TabIndex = 6 Top = 216 Width = 187 BackColor = 192,192,192 BorderColor = 255,255,255 ControlSource = "promptinfo.comment" Name = "Edit1" labellabelLabelCForm1FontName = "MS Sans Serif" Caption = "Comments / Instructions" Height = 17 Left = 12 Top = 196 Width = 120 TabIndex = 5 Name = "LabelC"  commandbutton commandbuttonCommand1Form1Top = 444 Left = 96 Height = 24 Width = 60 FontName = "MS Sans Serif" Caption = "\  +>  FE  %C4hC>  5>  5>  FFQFQFQ<C5/n t:\abrasu~1\programs\rrw\rrwrun.exe rrwrunin.dbf 1CChecks Reprintedx !U" REPRINTHIST REPRINTTRAK CMPGRPCKNO PAYGRPCKNO PROMPTINFOAPARAMSCPCCUSERCIDDCURRDTCCURRTMCCOMPCPAYGPCCHKBEGCCHKENDPRCKHISTCOMPANYPAYGROUP CHKNUMBERCEMPEMPNOCCHK REPRINTID REPRINTDTE REPRINTTME REPRINTUSR REPRINTPC REPRINTCMP REPRINTPGP REPRINTEMP REPRINTCHK REPRINTCNTTHISFORMRELEASEClick,1!r1aaaarsQQt1QQQArArArArA46) commandbutton commandbuttonCommand2Form1Top = 444 Left = 300 Height = 24 Width = 60 FontName = "MS Sans Serif" Caption = "\ L#TCCC=fTa-6 > DT C# >  NT Cg >  C) T  > U PROMPTINFO CDATATYPEDATATYPE CDATAVALUE CURRENTVAL TCURRDATA CURRDTTMVL LCURRDATA CURRLOGIVL DCURRDATA CURRDATAVL NCURRDATA CURRNUMBVL CCURRDATA CURRTEXTVLU3TT UTHISFORMLIST1 LISTITEMIDLIST2REFRESH posttypevalue,Destroy Init1q!!1!!!A3Q3112$)S%6#TC%TC%T9?T9? T9a)T9Liveware Parameter ControlG G G{G.GG&(GYTC" C]C" SET DEFAULT TO &pCurr 1quitpromptinput.scx9U NWIDTHNHEIGHTWIDTHHEIGHT AUTOCENTERCAPTIONPCURR PROMPTINPUTSCXAQbaaaaaarQ10mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _0AF18JJVM 908886552/F]nw WINDOWS _1ZP0YW8J5 914784931 WINDOWS _0AF18JJVN 914784931 WINDOWS _0AF18ZPDJ 908886756M\kx> WINDOWS _0AF18JJVM 707307147hu WINDOWS _0AF18JJVM 908886756,AQ^ WINDOWS _0AF1BISS0 908886659   % WINDOWS _0AF1BISS1 914780761 e WINDOWS _0AF1BISS2 908886776t 8  WINDOWS _0AF1BISS3 908886659Wl WINDOWS _0AF1BYGRH 707310310F4'0 WINDOWS _0AF1BYGRI 707310310   WINDOWS _0AF1C19RJ 908886733[N@3 COMMENT RESERVED tVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentJLeft = 1 Top = 220 Width = 520 Height = 200 Name = "Dataenvironment" cursorcursorCursor1DataenvironmentuLeft = 10 Top = 20 Width = 90 Height = 90 Alias = "promptinfo" CursorSource = promptinfo.dbf Name = "Cursor1" 21formformForm1Height = 337 Width = 245 DoCreate = .T. AutoCenter = .T. Caption = "Prompted Fields" MaxButton = .F. MinButton = .F. Icon = allblue.ico Name = "Form1" listboxlistboxList1Form1FontName = "MS Sans Serif" RowSourceType = 2 RowSource = "promptinfo" ControlSource = "promptinfo.inpitmname" Height = 190 Left = 5 Top = 24 Width = 152 Name = "List1" PROCEDURE InteractiveChange nListID = thisform.list1.listItemID goto record thisform.list1.listItemID SELECT promptinfo thisform.label4.Caption = defaultval thisform.refresh ENDPROC  E%YrhU#) UTHISFORMREFRESHClick,1AQ24)JArial, 0, 9, 5, 15, 12, 32, 3, 0 MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0 Form1Label4labellabellabellabelLabel1Form1rFontName = "MS Sans Serif" Caption = "\