MZ@ !L!This program cannot be run in DOS mode. $PELs2  *(p@@`Ppla.text)* `.rdata@.@@.dataP 2@.idata0`<@.rsrcpB@@.reloclJ@B j\h@Z@uPhxa@"@Z@+PQPiƄ h@P@Pa@SPQa@jQ9uPVa@_^[]UVtttƅ#3 PQa@rv: tOrv?VPPQa@<PQa@"P^PQa@ jAPQja@^]USEV3W@Z@h]VP w-F>"t&]؊t3P tFF>"u>"uF>t > wF>uEEPTa@E tE%PVjjPa@PP'EEEPEP ËeEPEE_d^[]̃=R@u"D$PXhR@̡|_@th P@hP@hP@hP@ËD$jjP2 ̋D$jjP ̃= S@SVt$ WuVha@Pda@S@|$\$S@u?=x_@t$=t_@9=x_@wtЃ9=x_@vhP@hP@;hP@hP@)u S@V`a@_^[VW|$t$ ;vtЃ;w_^ËL$3ҸS@ R@9t B=xT@rr$wR@ ËS@R@Árw R@R@̃|T@SVWUuLD$5la@Pjh @@jjօt/D$Pjh@@jta@t3]_^[Ë5la@|T@u-T$,uW@L$$D$ \$QL$PSQR]_^[ã|T@ux33|$(;u=X@D$ jL$ jPQj Wa@t>Ujt-D$ UL$ VPQjWa@tL$$QPD$ VPta@Vj]_^[̋D$SVWUP;-U@u 3]_^[Åu_3]_^[D$U@9(0D$=V@rD$PUa@CT@3@󫪃|$t$8D$t,Ft%33Ҋ;rT@A3F;s>uԸT@@=rU-U@MT@3@󫪋L$It1Nt*33ۊ;rU@T@B3ۊ^;s>u@rU-U@U@D$@U@U@@U@]_^I3Z[J3U@U@]_U@3^[AAÃ=U@t3]_^[ø]_^[U@D$uU@%a@uU@%a@uU@X@̋D$-w3Ɋ#@$x#@3øøøø`#@f#@l#@r#@]#@W3T@@󫪣U@U@_U@U@AAj9̋L$ WtzVSًt$|$uuo!FGIt%t)uuQt FGt/KuD$[^_tGIuulGKu[^D$_ÉIt~Ѓ3‹tބt,tt uƉ3҉3It 3IuuD$[^_UW}3AOE G8t3_UWVSu }W@xu; t.F'G8t,A<ɀ A,A<ɀ A8t43ۋ t'FG8tPS/؃%8t[^_̍B[...3D$ST$t B8tфtQu WV ؋ ~333ƃu%t%uu^_[3ËB8t6t8t't8tt8tt^_B[ÍB^_[ÍB^_[ÍB^_[USVWUjjh&@u8]_^[]ËL$AtD$T$SVWD$Pjh&@d5d%D$ Xp t.;t$$t(4v L$H |uhD@Td _^[3d y&@uQ R 9QuSQV@ SQV@MKCk Y[̋D$VWPT:P/u@_^Ãu_^Ë58W@L$ 8W@x ,W@ (W@; (W@~" (W@ I"tFt@F3ۊT@t t@F t t u˄uNPtL@FF>"t0t*3ҊT@t tF@t@F>"ut@>"uF3> t uF>|$t T$D$T$ 3>\uFE>\t>"u$ut V:"u3ۃMtt\@MutOu tF tAt7t!3ۊT@tF@@FPo3ۊT@tFFWt@|$t T$T$ ]_^[̃=@W@SVW5a@Uu6֋t @W@&a@؅t @W@3]_^[Ë|$\$=@W@u֋u 3]_^[f?tf>uf>u+jjFjjVWjjpa@tAUi؅t2jjUSVWjjpa@u S3Wa@]_^[Wa@3]_^[Ã=@W@u{ua@؅u 3]_^[Ë;tE}uE}u+EUD$uSa@3]_^[Ë|$Sa@D$]_^[3]_^[̃DSVWUhou j5p^@p_@ ;v%3ɺ NFVp^@;wD$PTa@f|$B|$DD$D0x7|;5p_@~]t^@htAEp_@ ;v 3ɈH@@ U;w;5p_@5p_@3~?t/t*Pa@tŋ̓p^@ ʉQEG;|35a@p^@;uSCtGPփt(Ua@t%+uK@uK K@KG|p_@Pa@]_^[Djhja@d^@VC20XC00USVWU] E@EEEECs {ta v|tEVUkT]^] t3x<{SkVS vjDuC T{ v4롸UkjS]]_^[]UL$)APAP]̡R@t u.=R@u%hW@th́3ɸXW@S$VWU9t A=W@r9XW@=R@_=R@u =R@Ix$hP-4a@jՅuB@$f$$+уt FJu>u+_^%a@@@runtime error TLOSS error SING error DOMAIN error R6027 - not enough space for lowio initialization R6026 - not enough space for stdio initialization R6025 - pure virtual function call R6024 - not enough space for _onexit/atexit table R6019 - unable to open console device R6018 - unexpected heap error R6017 - unexpected multithread lock error R6016 - not enough space for thread data abnormal program termination R6009 - not enough space for environment R6008 - not enough space for arguments R6002 - floating point not loaded Microsoft Visual C++ Runtime Library Runtime Error! Program: ...GetLastActivePopupGetActiveWindowMessageBoxAuser32.dllVisualFoxProRuntime.5\\Shell\Open\CommandDllOleInitDllWinMainunregserverregserver-T "P@P@ ((((( H .@        ! 5A CPR S WY l m pr   )    `y!@~ڣ @ڣ AϢ[@~QQ^ _j21~   PB@$B@ A@ A@A@xA@TA@(A@@@@@@@X@@xH@@y8@@z(@@$@@@@``d,a adaP`"eadeeb@bPbfbpbzbbbbbbbbbcc0cBcXcb.bcacccccd0dBdPd`dndzddddacjccddddeeb@bPbfbpbzbbbbbbbbbcc0cBcXcb.bcacccccd0dBdPd`dndzddddacjccdddolstrcpyAflstrcatAGetSystemDirectoryAGetCurrentDirectoryAGetProcAddressxLoadLibraryAGetModuleFileNameA__lcloseb_lopenc_lreada_llseekGetLastErrorGetFileAttributesAGetModuleHandleAGetStartupInfoAGetCommandLineA7GetVersionbExitProcessTerminateProcessGetCurrentProcessGetStringTypeABWideCharToMultiByteGetStringTypeWMultiByteToWideCharGetCPInfoGetACPGetOEMCPRtlUnwind&UnhandledExceptionFilterFreeEnvironmentStringsAGetEnvironmentStringsFreeEnvironmentStringsWGetEnvironmentStringsWSetHandleCountGetFileTypeGetStdHandleUHeapCreateOWriteFileYHeapFreeSHeapAllocuLCMapStringAvLCMapStringWKERNEL32.dllwLoadStringAMessageBoxAIwsprintfAUSER32.dllRegCloseKeyRegQueryValueARegOpenKeyAADVAPI32.dlls2(H`s2xs2s2:s2 s2 s2 s2  qt(Tu0u"( @p 90p 90p 99990p9999990p09999991p9 999999 0 999999999999999999999999999p 999999999  999999999p990pp99990990900???( 19910 0 9191991999991? (VFP.EXE VFP500.DLL VFP500.TSLMicrosoft 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.000060@0I0U0^0j0r0z0000000000&1=1V1i1v111111 222?2L2h22222223 33*3<3Z3a333334\4y444444 55(565=5J5O5\5b5j5w5|5555556 6-686>6D6O6T666666666666677<7]77777778"8,8T8n889f99::::;;; ;);2;T;u;~;;;;;;<|<<<<<<<<<<<<<<=$===>">1><>A>N>S>>>>>>>>>?? ???0?;?w?}?????????? 0#0>0C0V0z00000(1T1h1v1111112<2B2a2k2y22222222333$3/383R3Y3x3|3333333335x66"7<7E777777777788*8=8P8c8v88888888979U999:;:D:I:O:Z:::;_;D'>|>>>>>>?E?O?h?????000;0@011@1U1y11111111B2P22223(303N3l3s3333334L4P4T4X4\44465@5f5k5555556K6666666666667 7$7A7b7q7z77777778&8A8888989Y99@ 00P0002\7d7l7t7|7777777777777B8#o0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen 4 WINDOWS _2GG0VUOTT 958690951&5E WINDOWS _2GG0VUOTV 958690951Rm WINDOWS _2GG0VUOTX 9586909510BW WINDOWS _2GG0VUOV4 958690951 . = Q w WINDOWS _2GG0VUOV5 958690951 " ? COMMENT FONTINFO VERSION = 3.00formsetformsetfrsDanu1ZWindowType = 2 ReadCycle = .T. ReadLock = .T. ReleaseWindows = .T. Name = "frsDanu1" PROCEDURE Load PARAMETERS anystring, dn *- [CONVERTER] Remember environment PRIVATE m.compstat, m.currarea, m.rborder, m.talkstat IF SET("TALK") = "ON" SET TALK OFF m.talkstat = "ON" ELSE m.talkstat = "OFF" ENDIF m.compstat = SET("COMPATIBLE") SET COMPATIBLE FOXPLUS m.rborder = SET("READBORDER") SET READBORDER ON m.currarea = SELECT() ENDPROC PROCEDURE Unload *- [CONVERTER] Restore environment IF TYPE("rborder") == 'C' SET READBORDER &rborder ENDIF IF TYPE("talkstat") == 'C' IF m.talkstat = "ON" SET TALK ON ENDIF ENDIF IF TYPE("compstat") == 'C' IF m.compstat = "ON" SET COMPATIBLE ON ENDIF ENDIF IF m.cursor = "ON" SET CURSOR ON ENDIF ENDPROC formformdanufrsDanu1FontName = "Arial Narrow" FontSize = 10 Width = 335 Height = 88 Top = 0 Left = 0 AutoCenter = .T. ColorSource = 5 BackColor = 192,192,192 FillColor = 192,192,192 DisabledBackColor = 192,192,192 Caption = ("") BorderStyle = 1 Sizable = .F. MDIChild = .F. MaxButton = .F. ZoomBox = .F. Movable = .F. Closable = .F. MinButton = .F. ControlBox = .F. HalfHeightCaption = .F. Name = "danu" PROCEDURE Load PRIVATE m.cursor, m.cont IF SET("CURSOR") = "ON" m.cursor = "ON" SET CURSOR OFF ELSE m.cursor = "OFF" ENDIF m.dn = .F. m.cont = 1 ENDPROC 4 pageframe pageframe PageFrame1 frsDanu1.danuTop = 0 Left = 0 Height = 30000 Width = 30000 PageCount = 1 BorderWidth = 0 Tabs = .F. ErasePage = .F. DrawFrame = .F. Name = "PageFrame1" Page1.BackStyle = 0 Page1.Name = "Page1" textboxtextbox txtPadc_all1frsDanu1.danu.PageFrame1.Page1EFontName = "Arial Narrow" FontSize = 10 FontBold = .F. Top = 17 Left = 8 Width = 306 Height = 20 ColorSource = 3 ReleaseErase = .F. Format = "@I" Value = (PADC(ALLTRIM(m.anystring),60)) Margin = 0 Style = 1 ReadOnly = .T. TabStop = .F. BorderStyle = 0 SpecialEffect = 1 Alignment = 2 Name = "txtPadc_all1"  commandgroup commandgroupcmgCont2frsDanu1.danu.PageFrame1.Page1FontName = "MS Sans Serif" FontSize = 8 ColorSource = 3 ReleaseErase = .F. Top = 43 Left = 69 Width = 164 Height = 35 BackStyle = 0 BorderStyle = 0 ButtonCount = 2 Name = "cmgCont2" Command1.FontName = "MS Sans Serif" Command1.FontSize = 8 Command1.ColorSource = 3 Command1.SpecialEffect = 1 Command1.Enabled = .T. Command1.Default = .T. Command1.Caption = ("\ 0 _cparmstr = [WITH ] _cparmstr = _cparmstr + _aParm[1] FOR m._nctr = 2 TO PARAMETERS() _cparmstr = _cparmstr + [,] + _aParm[m._nctr] NEXT ENDIF EXTERNAL PROC danu.scx DO FORM "danu.scx" NAME _2GG0VUOU5 LINKED &_cparmstr &  ?% Ua H M - T a M T -<,UCONTDNDANUValid,111AQ2) F--m% U~5  %CCURSORvONAT ONG][T OFF T -T UCURSORCONTDNLoad,1a!A2)- M%' EU 45    %CTALKvONVG2T ONpT OFFT C COMPATIBLEvGAT C READBORDERvGj T CWU ANYSTRINGDNCOMPSTATCURRAREARBORDERTALKSTAT%CrborderbC6SET READBORDER &rborder %CtalkstatbCu% ONqG2 %CcompstatbC% ONGA % ONG] UTALKSTATCOMPSTATCURSORLoad,Unload-1a!Aaa4AQaAAQaAASaA2l)%sv$9$ 4 T anystringTdn T%CTWITH TC (CT,C danu.scx8DO FORM "danu.scx" NAME _2GG0VUOU5 LINKED &_cparmstr U ANYSTRINGDN_APARM _CPARMSTR_NCTRDANUSCXQ!QAA10 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen a WINDOWS _2GG0VUPR7 958690953&5Fo WINDOWS _2GG0VUPR8 9586909534@L^o WINDOWS _2GG0VUPRA 958690953(9J\x WINDOWS _2GG0VUPS3 958690953@P`o WINDOWS _2GG0VUPS4 958690953  E COMMENT FONTINFO %VERSION = 3.00formsetformset frsDrive1[WindowType = 2 ReadCycle = .T. ReadLock = .T. ReleaseWindows = .T. Name = "frsDrive1" PROCEDURE Load *- [CONVERTER] Remember environment PRIVATE m.compstat, m.currarea, m.rborder, m.talkstat IF SET("TALK") = "ON" SET TALK OFF m.talkstat = "ON" ELSE m.talkstat = "OFF" ENDIF m.compstat = SET("COMPATIBLE") SET COMPATIBLE FOXPLUS m.rborder = SET("READBORDER") SET READBORDER ON m.currarea = SELECT() ENDPROC PROCEDURE Unload *- [CONVERTER] Restore environment IF TYPE("rborder") == 'C' SET READBORDER &rborder ENDIF IF TYPE("talkstat") == 'C' IF m.talkstat = "ON" SET TALK ON ENDIF ENDIF IF TYPE("compstat") == 'C' IF m.compstat = "ON" SET COMPATIBLE ON ENDIF ENDIF ENDPROC formform _2GG0VUPR9 frsDrive1FontName = "MS Sans Serif" FontSize = 10 Width = 264 Height = 90 Top = 0 Left = 0 AutoCenter = .T. ColorSource = 5 BackColor = 0,255,255 FillColor = 0,255,255 DisabledBackColor = 0,255,255 Caption = ("Alegeti unitatea") BorderStyle = 1 Sizable = .F. MDIChild = .F. MaxButton = .F. ZoomBox = .F. Movable = .F. Closable = .F. MinButton = .F. ControlBox = .F. HalfHeightCaption = .F. Name = "_2GG0VUPR9" 4 pageframe pageframe PageFrame1frsDrive1._2GG0VUPR9Top = 0 Left = 0 Height = 30000 Width = 30000 PageCount = 1 BorderWidth = 0 Tabs = .F. ErasePage = .F. DrawFrame = .F. Name = "PageFrame1" Page1.BackStyle = 0 Page1.Name = "Page1" comboboxcomboboxcboDrv1%frsDrive1._2GG0VUPR9.PageFrame1.Page1>FontName = "MS Sans Serif" FontSize = 8 FontBold = .F. Top = 32 Left = 51 Width = 48 Height = 20 ColorSource = 3 ReleaseErase = .F. Style = 2 Enabled = .T. FirstElement = 1 RowSource = "A:,C:,D:,E:,F:,G:,H:" RowSourceType = 1 Value = ("A:") ControlSource = "m.drv" SpecialEffect = 1 Name = "cboDrv1"  commandgroup commandgroupcmgOk2%frsDrive1._2GG0VUPR9.PageFrame1.Page1QFontName = "MS Sans Serif" FontSize = 8 ColorSource = 3 ReleaseErase = .F. Top = 30 Left = 153 Width = 58 Height = 23 BackStyle = 0 BorderStyle = 0 ButtonCount = 1 Name = "cmgOk2" Command1.FontName = "MS Sans Serif" Command1.FontSize = 8 Command1.ColorSource = 3 Command1.SpecialEffect = 1 Command1.Enabled = .T. Command1.Caption = ("\)2PROCEDURE Valid CLEAR READ CLEAR GETS ENDPROC cmgOk3formform _2GG0VVMXZfrsDest1mHeight = 211 Width = 194 DoCreate = .T. AutoCenter = .T. BorderStyle = 1 Caption = (" Alege destinatia ") ControlBox = .F. Closable = .F. FontName = "Arial Narrow" FontSize = 10 HalfHeightCaption = .F. MaxButton = .F. MinButton = .F. Movable = .F. ZoomBox = .F. ColorSource = 5 BackColor = 192,192,192 FillColor = 192,192,192 Name = "_2GG0VVMXZ"  pageframe pageframe PageFrame1frsDest1._2GG0VVMXZErasePage = .F. PageCount = 1 BorderWidth = 0 Top = 0 Left = 0 Width = 30000 Height = 30004 Tabs = .F. Name = "PageFrame1" Page1.Caption = "Page1" Page1.BackStyle = 0 Page1.Name = "Page1" labellabel lblNume_fis4$frsDest1._2GG0VVMXZ.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Nume fisier") Height = 16 Left = 35 Top = 119 Width = 59 ReleaseErase = .F. ColorSource = 3 Name = "lblNume_fis4"  optiongroup optiongroupopgDest1$frsDest1._2GG0VVMXZ.PageFrame1.Page1ButtonCount = 5 BackStyle = 0 BorderStyle = 0 Value = 1 ControlSource = "m.dest" Enabled = .T. Height = 85 Left = 35 SpecialEffect = 1 Top = 17 Width = 129 ReleaseErase = .F. Name = "opgDest1" Option1.FontName = "MS Sans Serif" Option1.FontSize = 10 Option1.BackStyle = 0 Option1.Caption = ("Pe ecran") Option1.Value = 1 Option1.Enabled = .T. Option1.Height = 17 Option1.Left = 0 Option1.SpecialEffect = 1 Option1.TerminateRead = .F. Option1.Top = 0 Option1.Width = 129 Option1.ReleaseErase = .F. Option1.ColorSource = 3 Option1.Name = "Option1" Option2.FontName = "MS Sans Serif" Option2.FontSize = 10 Option2.BackStyle = 0 Option2.Caption = ("La imprimanta") Option2.Enabled = .T. Option2.Height = 17 Option2.Left = 0 Option2.SpecialEffect = 1 Option2.TerminateRead = .F. Option2.Top = 17 Option2.Width = 129 Option2.ReleaseErase = .F. Option2.ColorSource = 3 Option2.Name = "Option2" Option3.FontName = "MS Sans Serif" Option3.FontSize = 10 Option3.BackStyle = 0 Option3.Caption = ("La impr.condensat") Option3.Enabled = .T. Option3.Height = 17 Option3.Left = 0 Option3.SpecialEffect = 1 Option3.TerminateRead = .F. Option3.Top = 34 Option3.Width = 129 Option3.ReleaseErase = .F. Option3.ColorSource = 3 Option3.Name = "Option3" Option4.FontName = "MS Sans Serif" Option4.FontSize = 10 Option4.BackStyle = 0 Option4.Caption = ("La impr.WordPad") Option4.Enabled = .T. Option4.Height = 17 Option4.Left = 0 Option4.SpecialEffect = 1 Option4.TerminateRead = .F. Option4.Top = 51 Option4.Width = 129 Option4.ReleaseErase = .F. Option4.ColorSource = 3 Option4.Name = "Option4" Option5.FontName = "MS Sans Serif" Option5.FontSize = 10 Option5.BackStyle = 0 Option5.Caption = ("In fisier") Option5.Enabled = .T. Option5.Height = 17 Option5.Left = 0 Option5.SpecialEffect = 1 Option5.TerminateRead = .F. Option5.Top = 68 Option5.Width = 129 Option5.ReleaseErase = .F. Option5.ColorSource = 3 Option5.Name = "Option5" IPROCEDURE Valid IF m.dest = 5 SHOW GET m.denf ENABLE ENDIF ENDPROC |Arial Narrow, 0, 10, 5, 16, 13, 15, 3, 0 MS Sans Serif, 0, 10, 7, 16, 13, 14, 3, 0 MS Sans Serif, 1, 8, 6, 13, 11, 12, 2, 0 $frsDest1._2GG0VVMXZ.PageFrame1.Page1 commandgroup commandgrouptxtDenf2textboxtextbox$frsDest1._2GG0VVMXZ.PageFrame1.Page1 FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.denf" Enabled = .F. Format = "!" Height = 20 Left = 103 Margin = 0 SpecialEffect = 1 Top = 118 Width = 73 ReleaseErase = .F. ColorSource = 3 Name = "txtDenf2" 4PROCEDURE Valid RETURN NOT EMPTY(m.denf) ENDPROC ButtonCount = 2 BackStyle = 0 BorderStyle = 0 ControlSource = "m.ok" Height = 23 Left = 35 SpecialEffect = 1 Top = 157 Width = 126 ReleaseErase = .F. Name = "cmgOk3" Command1.Top = 0 Command1.Left = 0 Command1.Height = 23 Command1.Width = 60 Command1.FontBold = .T. Command1.FontName = "MS Sans Serif" Command1.FontSize = 8 Command1.Caption = ("\b  WINDOWS _2GG0VVOM5 958690969  WINDOWS _2GG0VVOM6 958690969=L[k} WINDOWS _2GG0VVOM7 962551190P<.>d COMMENT RESERVED #VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment" 11formsetformsetfrsPag1lAutoRelease = .T. WindowType = 2 ReadCycle = .T. ReadLock = .T. ReleaseWindows = .T. Name = "frsPag1" PROCEDURE Unload *- [CONVERTER] Restore environment IF TYPE("rborder") == 'C' SET READBORDER &rborder ENDIF IF TYPE("talkstat") == 'C' IF m.talkstat = "ON" SET TALK ON ENDIF ENDIF IF TYPE("compstat") == 'C' IF m.compstat = "ON" SET COMPATIBLE ON ENDIF ENDIF ENDPROC PROCEDURE Load *- [CONVERTER] Remember environment PRIVATE m.compstat, m.currarea, m.rborder, m.talkstat IF SET("TALK") = "ON" SET TALK OFF m.talkstat = "ON" ELSE m.talkstat = "OFF" ENDIF m.compstat = SET("COMPATIBLE") SET COMPATIBLE FOXPLUS m.rborder = SET("READBORDER") SET READBORDER ON m.currarea = SELECT() ENDPROC %AZPUBUValid,1QQA1/)u%{U'$BMai mare decit prima paginaUB UPENDPBEG ErrorMessage,ValidW1A21<Xo)SMS Sans Serif, 0, 10, 7, 16, 13, 14, 3, 0 MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0 :PROCEDURE Valid CLEAR READ CLEAR GETS RETURN ENDPROC frsPag1.Pag.PageFrame1.Page1labelformformPagfrsPag1LHeight = 142 Width = 432 DoCreate = .T. AutoCenter = .T. BorderStyle = 1 Caption = (" Tipul listarii ") ControlBox = .F. Closable = .F. FontName = "MS Sans Serif" FontSize = 10 HalfHeightCaption = .F. MaxButton = .F. MinButton = .F. Movable = .F. ZoomBox = .F. ColorSource = 5 BackColor = 255,255,192 Name = "Pag"  pageframe pageframe PageFrame1 frsPag1.PagErasePage = .F. PageCount = 1 BorderWidth = 0 Top = 0 Left = 0 Width = 30000 Height = 30004 Tabs = .F. Name = "PageFrame1" Page1.Caption = "Page1" Page1.BackStyle = 0 Page1.Name = "Page1" shapeshape shpShape7frsPag1.Pag.PageFrame1.Page1Top = 29 Left = 12 Height = 58 Width = 393 BackStyle = 0 FillStyle = 1 ReleaseErase = .F. SpecialEffect = 1 ColorSource = 3 Name = "shpShape7" labellabel lblPrima_pa1frsPag1.Pag.PageFrame1.Page1FontName = "MS Sans Serif" FontSize = 10 Caption = ("Prima pagina") Height = 16 Left = 184 Top = 37 Width = 92 ReleaseErase = .F. ColorSource = 3 Name = "lblPrima_pa1" label lblUltima_p2frsPag1.Pag.PageFrame1.Page1FontName = "MS Sans Serif" FontSize = 10 Caption = ("Ultima pagina") Height = 16 Left = 184 Top = 61 Width = 96 ReleaseErase = .F. ColorSource = 3 Name = "lblUltima_p2"  optiongroup optiongroupopgLtip3frsPag1.Pag.PageFrame1.Page1ButtonCount = 2 BackStyle = 0 BorderStyle = 0 Value = 1 ControlSource = "m.ltip" Enabled = .T. Height = 34 Left = 24 SpecialEffect = 1 Top = 35 Width = 108 ReleaseErase = .F. Name = "opgLtip3" Option1.FontName = "MS Sans Serif" Option1.FontSize = 8 Option1.BackStyle = 0 Option1.Caption = ("Integral ") Option1.Value = 1 Option1.Enabled = .T. Option1.Height = 17 Option1.Left = 0 Option1.SpecialEffect = 1 Option1.TerminateRead = .F. Option1.Top = 0 Option1.Width = 108 Option1.ReleaseErase = .F. Option1.ColorSource = 3 Option1.Name = "Option1" Option2.FontName = "MS Sans Serif" Option2.FontSize = 8 Option2.BackStyle = 0 Option2.Caption = ("Partial") Option2.Enabled = .T. Option2.Height = 17 Option2.Left = 0 Option2.SpecialEffect = 1 Option2.TerminateRead = .F. Option2.Top = 17 Option2.Width = 108 Option2.ReleaseErase = .F. Option2.ColorSource = 3 Option2.Name = "Option2" PROCEDURE Valid IF m.ltip = 2 SHOW GET m.pbeg ENABLE SHOW GET m.pend ENABLE ELSE SHOW GET m.pbeg DISABLE SHOW GEt m.pend DISABLE ENDIF ENDPROC )% UN% )  G  ULTIPPBEGPENDValid,11A1)textboxtextboxtxtPbeg4frsPag1.Pag.PageFrame1.Page1FontBold = .F. FontName = "MS Sans Serif" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "m.pbeg" Enabled = .F. Height = 20 Left = 311 Margin = 0 SpecialEffect = 1 Top = 36 Width = 75 ReleaseErase = .F. ColorSource = 3 Name = "txtPbeg4" textboxtextboxtxtPend5frsPag1.Pag.PageFrame1.Page1FontBold = .F. FontName = "MS Sans Serif" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "m.pend" Enabled = .F. Height = 20 Left = 311 Margin = 0 SpecialEffect = 1 Top = 60 Width = 75 ReleaseErase = .F. ColorSource = 3 Name = "txtPend5" zPROCEDURE ErrorMessage RETURN "Mai mare decit prima pagina" ENDPROC PROCEDURE Valid RETURN m.pend >= m.pbeg ENDPROC cmgOk6 commandgroup commandgroupButtonCount = 1 BackStyle = 0 BorderStyle = 0 ControlSource = "m.ok" Height = 23 Left = 176 SpecialEffect = 1 Top = 98 Width = 112 ReleaseErase = .F. Name = "cmgOk6" Command1.Top = 0 Command1.Left = 0 Command1.Height = 23 Command1.Width = 112 Command1.FontName = "MS Sans Serif" Command1.FontSize = 8 Command1.Caption = ("\FontName = "MS Sans Serif" FontSize = 10 FontBold = .F. Top = 32 Left = 15 Width = 485 Height = 20 ColorSource = 3 ReleaseErase = .F. Format = "@I" Value = (PADC(m.anystring,46)) Margin = 0 Style = 1 ReadOnly = .T. TabStop = .F. BorderStyle = 0 SpecialEffect = 1 Alignment = 2 Name = "txtPadc_m_a1" *- [CONVERTER] Parameter statement generated by Converter *- [CONVERTER] Pass these values along to the new form PARAMETERS anystring LOCAL _aParm, _cparmstr, _nctr DIMENSION _aParm[1] _aParm[1] = [anystring] _cparmstr = [] IF PARAMETERS() > 0 _cparmstr = [WITH ] _cparmstr = _cparmstr + _aParm[1] FOR m._nctr = 2 TO PARAMETERS() _cparmstr = _cparmstr + [,] + _aParm[m._nctr] NEXT ENDIF EXTERNAL PROC mesaj.scx DO FORM "mesaj.scx" NAME _2GG0VVQCH LINKED &_cparmstr % U\ 5 %CCURSORvON;T ONG]UT OFFUCURSORLoad,1a!A2~)#  %-"]U B-U45    %CTALKvONRG2T ONlT OFFT C COMPATIBLEvGAT C READBORDERvGj T CWU ANYSTRINGCOMPSTATCURRAREARBORDERTALKSTAT%CrborderbC6SET READBORDER &rborder %CtalkstatbCu% ONqG2 %CcompstatbC% ONGA % ONG] UTALKSTATCOMPSTATCURSORReadWhen,Load:Unload31q3qa!Aaa4AQaAAQaAASaA2;) %gv$9 4 T anystring T%CTWITH TC (CT,C  mesaj.scx9DO FORM "mesaj.scx" NAME _2GG0VVQCH LINKED &_cparmstr U ANYSTRING_APARM _CPARMSTR_NCTRMESAJSCXs!QAA10 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _2GW17NJ01 959750849/F] WINDOWS _2GG0VVRUV 958690974839 WINDOWS _2GG0VVRUW 959750849U a m {  WINDOWS _2GG0VVRUY 959750849HYj| WINDOWS _2GG0VVRVE 958690974er WINDOWS _2GG0VVRW9 959750849Zgt WINDOWS _2GG0VVRWA 959750849 WINDOWS _2GG0VVRWB 959750849 WINDOWS _2GG0VVRWC 959750849: WINDOWS _2GG0VVRWD 959750849'4Is WINDOWS _2GG0VVRWE 959750849R_l WINDOWS _2GG0VVRX9 959750849b3 WINDOWS _2GG0VVRXA 959750849#####%_ WINDOWS _2GG0VVRXB 958690974k)))))+L WINDOWS _2GG0VVRXC 958690974"..--6.A0 WINDOWS _2GG0VVRXD 959750849-\)M)#)0 WINDOWS _2GG0VVRXE 959750849)#9b#, WINDOWS _2GG0VVRXF 958690974*  ( WINDOWS _2GG0VVRXG 958690974 A 0  1 '. COMMENT RESERVED "<[VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment" 11formsetformset frsSelpfi1oAutoRelease = .T. WindowType = 2 ReadCycle = .T. ReadLock = .T. ReleaseWindows = .T. Name = "frsSelpfi1" PROCEDURE ReadShow IF NOT EMPTY(m.fn) SHOW GET m.oke ENABLE ELSE SHOW GET m.oke DISABLE ENDIF ENDPROC PROCEDURE Unload *- [CONVERTER] Restore environment IF TYPE("rborder") == 'C' SET READBORDER &rborder ENDIF IF TYPE("talkstat") == 'C' IF m.talkstat = "ON" SET TALK ON ENDIF ENDIF IF TYPE("compstat") == 'C' IF m.compstat = "ON" SET COMPATIBLE ON ENDIF ENDIF ENDPROC PROCEDURE Load *- [CONVERTER] Remember environment PRIVATE m.compstat, m.currarea, m.rborder, m.talkstat IF SET("TALK") = "ON" SET TALK OFF m.talkstat = "ON" ELSE m.talkstat = "OFF" ENDIF m.compstat = SET("COMPATIBLE") SET COMPATIBLE FOXPLUS m.rborder = SET("READBORDER") SET READBORDER ON m.currarea = SELECT() ENDPROC {{z%" U(%BRevenire in meniul principalU%C 0G R,:Stergere realizat!hR,Fara Stergere !T!C  UDRUFNPATHMessage,ValidX1Q2r1A!18T){4%U(%BRevenire in meniul principalU-T  T  UFNDOMMessage,ValidX1Q2QQ28T)"frsSelpfi1.Selfis.PageFrame1.Page1 cmgStge14 commandgroupformformSelfis frsSelpfi1Height = 222 Width = 323 DoCreate = .T. AutoCenter = .T. BorderStyle = 2 Caption = ("Consultare-Actualizare fisiere") ControlBox = .F. Closable = .F. FontBold = .F. FontName = "Arial Narrow" FontSize = 10 HalfHeightCaption = .F. MaxButton = .F. MinButton = .F. Movable = .F. ZoomBox = .F. ColorSource = 5 BackColor = 192,192,192 FillColor = 192,192,192 Name = "Selfis" *PROCEDURE Load *ON KEY LABEL ESC DO adesc3 SET SKIP OF PAD FERESTRE OF _MSYSMENU .F. DIMENSION f[1,1] f[1,1] = "" PRIVAT m.mss m.nrdfi = 0 m.codfis = 0 m.poz = 0 m.path = 1 m.dru = "" m.drum= m.root m.denfis = "" *PUBLIC m.fn m.fn = " " m.mss = "Selectare fisier." DO mss ENDPROC w^^% U>%dbf arh cal str XFQ  "%lst txt /  BUDOMDRUFNValid,1!!1AAQQA1)^ commandgroup"frsSelpfi1.Selfis.PageFrame1.Page1 txtMesfi10textboxtextboxtxtDom7 pageframe pageframe PageFrame1frsSelpfi1.SelfisErasePage = .F. PageCount = 1 BorderWidth = 0 Top = 0 Left = 0 Width = 30000 Height = 30004 Tabs = .F. Name = "PageFrame1" Page1.Caption = "Page1" Page1.BackStyle = 0 Page1.Name = "Page1" shapeshape shpShape9"frsSelpfi1.Selfis.PageFrame1.Page1Top = 6 Left = 8 Height = 207 Width = 305 BackStyle = 0 FillStyle = 1 ReleaseErase = .F. SpecialEffect = 1 ColorSource = 3 Name = "shpShape9" labellabellblDrum6"frsSelpfi1.Selfis.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Drum") Height = 16 Left = 48 Top = 121 Width = 48 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblDrum6" labellabellblDom8"frsSelpfi1.Selfis.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("dom") Height = 16 Left = 221 Top = 123 Width = 43 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblDom8" labellabel lblAlegeti11"frsSelpfi1.Selfis.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Alegeti") Height = 16 Left = 144 Top = 57 Width = 48 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblAlegeti11" labellabel lblBibliote12"frsSelpfi1.Selfis.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("biblioteca") Height = 16 Left = 50 Top = 79 Width = 70 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblBibliote12" labellabel lblFisierul13"frsSelpfi1.Selfis.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("fisierul") Height = 16 Left = 219 Top = 80 Width = 57 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblFisierul13" labellabel lblPermite_15"frsSelpfi1.Selfis.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("permite modificare date / structura fisier") Height = 16 Left = 53 Top = 163 Width = 209 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblPermite_15" comboboxcomboboxcboPath1"frsSelpfi1.Selfis.PageFrame1.Page1SFontBold = .T. FontName = "MS Sans Serif" FontSize = 8 RowSourceType = 1 RowSource = "ETR,LUNA,DATABA,TEXTE,SCH_STR,REPORT" Value = ("ETR") ControlSource = "m.path" Enabled = .T. FirstElement = 1 Height = 20 Left = 22 SpecialEffect = 1 Style = 2 Top = 100 Width = 109 ReleaseErase = .F. ColorSource = 3 Name = "cboPath1" PROCEDURE Message RETURN "Actualiz.fis.DBF, HLP, in databas si archiv, fis.TXT in texte, si COEF.mem" ENDPROC PROCEDURE Valid DO CASE CASE m.path = 1 m.dru = m.root dom = "dbf" CASE m.path = 2 m.dru = m.root+substr(lun[MONTH(m.datap)],1,3)+"\" dom= 'cal' CASE m.path = 3 m.dru = m.root+"DATABASE\" dom= 'arh' CASE m.path = 4 m.dru = m.root+"TEXTE\" dom = "lst" CASE m.path = 5 m.dru = m.root+"DATABASE\" dom= 'str' CASE m.path = 6 m.dru = m.root+substr(lun[MONTH(m.datap)],1,3)+"\" dom = "txt" ENDCASE DO mss SHOW GET m.denfis ENABLE SHOW GET m.anu ENABLE show get m.dru show get m.dom DO CASE CASE dom="dbf" OR dom ="arh" OR dom = "cal" OR dom = "hlp" OR dom="str" m.nrdfi = ADIR(f,m.dru+"*.dbf") CASE dom="lst" OR dom="txt" m.nrdfi = ADIR(f,m.dru+"*.??t") ENDCASE IF m.nrdfi = 0 WAIT "Nu sint fisierele cautate! ("+(dom) WINDOW fn = "" SHOW GET m.denfis DISABLE SHOW GET m.oke DISABLE RETURN ELSE FOR j = 1 TO m.nrdfi fn = f(j,1) m.denfis = fn ENDFOR SHOW GET m.denfis ENABLE SHOW GET m.oke DISABLE ENDIF SHOW GET m.stge DISABLE ENDPROC T;;%tU)&BAlegere prin tastare initialeUG %C lT CC % R    T  G% HETR.DBFG(QThlpUDENFISPOZFOKESTGEFNDOMB UNRDFIMessage,ValidYWhenW1a2a!1BAaaAA319U);%cqUGNü-T 5 T T T T T T  T T  T Selectare fisier.U FERESTREFMSSNRDFICODFISPOZPATHDRUDRUMROOTDENFISFNLoad,11q1)Arial Narrow, 0, 10, 5, 16, 13, 15, 3, 0 MS Sans Serif, 1, 8, 6, 13, 11, 12, 2, 0 MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0 Arial Narrow, 1, 10, 5, 16, 13, 15, 3, 0 "frsSelpfi1.Selfis.PageFrame1.Page1textboxcomboboxcombobox cboDenfis2"frsSelpfi1.Selfis.PageFrame1.Page1FontBold = .T. FontName = "MS Sans Serif" FontSize = 8 RowSourceType = 5 RowSource = "f" Value = 1 ControlSource = "m.denfis" Enabled = .T. Height = 20 Left = 174 SpecialEffect = 1 Style = 2 Top = 101 Width = 126 ReleaseErase = .F. ColorSource = 3 Name = "cboDenfis2" PROCEDURE Message RETURN "Alegere prin tastare initiale" ENDPROC PROCEDURE Valid SET EXACT ON IF NOT EMPTY(m.denfis) m.poz = ASCAN(f, ALLTRIM(m.denfis), 1) IF m.poz > 0 SHOW GET m.denfis ENDIF SHOW GET m.oke ENABLE SHOW GET m.stge ENABLE ELSE SHOW GET m.oke DISABLE ENDIF m.fn = m.denfis SET EXACT OFF IF m.denfis="HETR.DBF" set help to use dom ='hlp' ENDIF ENDPROC PROCEDURE When RETURN m.nrdfi>0 ENDPROC PROCEDURE Message RETURN "Revenire in meniul principal" ENDPROC PROCEDURE Valid IF FILE(m.dru+m.fn) DELE FILE(m.dru+m.fn) WAIT "Stergere realizat!" WINDOW NOWAIT ELSE WAIT "Fara Stergere !" WINDOW ENDIF _CUROBJ=OBJNUM(m.path) ENDPROC FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 0 ControlSource = "M.MESFI" Enabled = .F. Height = 36 Left = 14 Margin = 0 SpecialEffect = 1 Top = 16 Width = 281 ReleaseErase = .F. ColorSource = 3 Name = "txtMesfi10" textbox"frsSelpfi1.Selfis.PageFrame1.Page1txtDru5textbox commandgroup commandgroupcmgOke3"frsSelpfi1.Selfis.PageFrame1.Page1ButtonCount = 1 BackStyle = 0 BorderStyle = 0 ControlSource = "m.oke" Height = 23 Left = 33 SpecialEffect = 1 Top = 183 Width = 79 ReleaseErase = .F. Name = "cmgOke3" Command1.Top = 0 Command1.Left = 0 Command1.Height = 23 Command1.Width = 79 Command1.FontName = "MS Sans Serif" Command1.FontSize = 8 Command1.Caption = ("\T C  T     UPATHDRUROOTDOMLUNDATAPMSSDENFISANUNRDFIFFNOKEJSTGEMessage,Valid112111111Aq!!!B1AQAA2f)! d%*"ZU7%C  0 UFNOKE%CrborderbC6SET READBORDER &rborder %CtalkstatbCu% ONqG2 %CcompstatbC% ONGA UTALKSTATCOMPSTAT5    %CTALKvONKG2T ONeT OFFT C COMPATIBLEvGAT C READBORDERvGj T CWUCOMPSTATCURRAREARBORDERTALKSTATReadShow,UnloadpLoadC1!A2AQaAAQaAA3a!Aaa2d)%6v$996 selpfi.scx selpfi.scxJUFSELPFISCX _2GG0VVRVQu H d dbf[:T 'dbf Fisiere DATABASE pentru actualizare LST6T #txt pt. editare si listare situatii cal7T $cal LUNA CURENTA pentru actualizare  strB<T )str Schimb structura pentru luna curenta 2dT alte .. UDOMMESFIMSSmss{"4AAaAqaA2 0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen " WINDOWS _2GG0VVU76 958690977&5E# WINDOWS _2GG0VVU77 9586909772>JTd WINDOWS _2GG0VVU78 958690977 WINDOWS _2GG0VVU7C 958690977  WINDOWS _2GG0VVU7G 9586909770T WINDOWS _2GG0VVU8N 958690977 WINDOWS _2GG0VVU8O 958690977 $ WINDOWS _2GG0VVU8P 958690977#G WINDOWS _2GG0VVU8Q 958690977(5BUy WINDOWS _2GG0VVU8R 958690977>KXi WINDOWS _2GG0VVU8S 958690977MZgz WINDOWS _2GG0VVU8T 958690977bo| WINDOWS _2GG0VVU8U 958690977{ WINDOWS _2GG0VVU8V 958690977 WINDOWS _2GG0VVU8W 958690977 WINDOWS _2GG0VVU8X 958690977@ WINDOWS _2GG0VVU8Y 958690977"7[ WINDOWS _2GG0VVU8Z 958690977,9F[ WINDOWS _2GG0VVU90 958690977S`m WINDOWS _2GG0VVU91 958690977 WINDOWS _2GG0VVU92 958690977 WINDOWS _2GG0VVU93 958690977& WINDOWS _2GG0VVU94 958690977  ! 6 Z WINDOWS _2GG0VVU95 9586909776!C!P!e!! WINDOWS _2GG0VVU9G 958690977q " COMMENT FONTINFO l"&fVERSION = 3.00formsetformsetfrsInfo1ZWindowType = 2 ReadCycle = .T. ReadLock = .T. ReleaseWindows = .T. Name = "frsInfo1" PROCEDURE Load *- [CONVERTER] Remember environment PRIVATE m.compstat, m.currarea, m.rborder, m.talkstat IF SET("TALK") = "ON" SET TALK OFF m.talkstat = "ON" ELSE m.talkstat = "OFF" ENDIF m.compstat = SET("COMPATIBLE") SET COMPATIBLE FOXPLUS m.rborder = SET("READBORDER") SET READBORDER ON m.currarea = SELECT() ENDPROC PROCEDURE Unload *- [CONVERTER] Restore environment IF TYPE("rborder") == 'C' SET READBORDER &rborder ENDIF IF TYPE("talkstat") == 'C' IF m.talkstat = "ON" SET TALK ON ENDIF ENDIF IF TYPE("compstat") == 'C' IF m.compstat = "ON" SET COMPATIBLE ON ENDIF ENDIF ENDPROC formformNRfrsInfo17FontName = "MS Sans Serif" FontSize = 8 Width = 256 Height = 292 Top = 0 Left = 0 AutoCenter = .T. ColorSource = 5 Caption = (" info ") BorderStyle = 2 Sizable = .F. MDIChild = .F. MaxButton = .F. ZoomBox = .F. Movable = .T. Closable = .T. MinButton = .T. HalfHeightCaption = .F. Name = "NR" 24 pageframe pageframe PageFrame1 frsInfo1.NRTop = 0 Left = 0 Height = 30000 Width = 30000 PageCount = 1 BorderWidth = 0 Tabs = .F. ErasePage = .F. DrawFrame = .F. Name = "PageFrame1" Page1.BackStyle = 0 Page1.Name = "Page1"  commandgroup commandgroupcmgOk1frsInfo1.NR.PageFrame1.Page1SFontName = "MS Sans Serif" FontSize = 8 ColorSource = 3 ReleaseErase = .F. Top = 255 Left = 91 Width = 77 Height = 23 BackStyle = 0 BorderStyle = 0 ButtonCount = 1 Name = "cmgOk1" Command1.FontName = "MS Sans Serif" Command1.FontSize = 8 Command1.ColorSource = 3 Command1.SpecialEffect = 1 Command1.Enabled = .T. Command1.Caption = ("\5>66D> WINDOWS _2GG0VVVIC 958690979666]6\? WINDOWS _2GG0VVVID 958690979I656N. 6s@BW WINDOWS _2GG0VVVIE 958690979:.&..-HJ>E WINDOWS _2GG0VVVIF 958690979--'-NP+ WINDOWS _2GG0VVVIG 958690979- 6'SUU% WINDOWS _2GG0VVVIH 958690979"cZ|\A WINDOWS _2GG0VVVII 958690979* QF/ COMMENT RESERVED hVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment" 11formsetformset frsActcli1oAutoRelease = .T. WindowType = 2 ReadCycle = .T. ReadLock = .T. ReleaseWindows = .T. Name = "frsActcli1" PROCEDURE ReadShow SCATTER MEMVAR SHOW GET m.denmag ENDPROC PROCEDURE Unload *- [CONVERTER] Restore environment IF TYPE("rborder") == 'C' SET READBORDER &rborder ENDIF IF TYPE("talkstat") == 'C' IF m.talkstat = "ON" SET TALK ON ENDIF ENDIF IF TYPE("compstat") == 'C' IF m.compstat = "ON" SET COMPATIBLE ON ENDIF ENDIF SET SKIP OF BAR _MFI_CLOSE OF ferestre .F. ENDPROC PROCEDURE Load *- [CONVERTER] Remember environment PRIVATE m.compstat, m.currarea, m.rborder, m.talkstat IF SET("TALK") = "ON" SET TALK OFF m.talkstat = "ON" ELSE m.talkstat = "OFF" ENDIF m.compstat = SET("COMPATIBLE") SET COMPATIBLE FOXPLUS m.rborder = SET("READBORDER") SET READBORDER ON m.currarea = SELECT() ENDPROC oVV%U=:B1Marcare pt.Stergere un partener selectat anteriorU% D T a T - T - T a T -/danu.sprStergeti articolul ? %  %C+  H %C  HUSTERSINCASCHIMBSTERSFDNDANUSPRBCNC' UMessage,ValidmWhenu12AABAQA311Miw)VRArial Narrow, 0, 10, 5, 16, 13, 15, 3, 0 MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0 "frsActcli1.MISCAR.PageFrame1.Page1 cmgSterg33labelformformMISCAR frsActcli1Top = 30 Left = 6 Height = 198 Width = 448 DoCreate = .T. AutoCenter = .F. BorderStyle = 1 Caption = (" ACTUALIZARE DATE PARTENERI") ControlBox = .F. Closable = .F. FontName = "Arial Narrow" FontSize = 10 HalfHeightCaption = .F. MaxButton = .F. MinButton = .F. Movable = .F. ZoomBox = .F. ColorSource = 5 BackColor = 192,192,192 FillColor = 192,192,192 Name = "MISCAR" *PROCEDURE Load SET SKIP OF MENU _MSYSMENU .T. SET SKIP OF PAD FERESTRE OF _MSYSMENU .F. ON KEY LABEL ESC DO adesc2 SET talk off m.mesaj ="" DIMENSION mag[1,2] m.nrmag = 0 m.poz = 0 m.data = date() m.inca =.F. m.schimb =.F. m.sters =.F. m.stersf = .F. m.codmag = 0 m.codmagb = m.codmag m.denm = 0 m.denmag = "" m.dmag = "" m.dennou = "" m.denn = .F. m.codmag = 0 m.sufn = .F. m.vdebit = 0 m.vcredi = 0 m.coef = 0 DO mediv SELE mag SET ORDER TO "denmag" m.nrmag = inctab("mag", "mag", 2) m.codmag = mag[1,2] m.denmag = mag[1,1] SCATTER MEMVAR CALCULATE MAX(mag.codmag) TO m.denm RELE WINDOWS mesaj GO BOTT SET ORDER TO "codmag" m.currec = RECNO() IF NOT WEXIST("stolist" ) DEFINE WINDOW "stolist" FROM 11,0 TO 23,79 NOFLOAT NOGROW ; NOZOOM ENDIF ENDPROC y``%U>;B2Modificarea datelor unui partener urmat de salvareU% 7 T a T - T -T COT!C     = ,stolist: N 'Lista pentru modificareC U SCHIMBINCASTERSCURRECDENMAGADAUGMODIFICOKDENNOUREAFISBCNC' UMessage,ValidnWhen12Aq!211Nj)`,%e|vU52B)Comision preferential, sau 1=gest.proprieUMessage,1!1E) commandgroup commandgroup"frsActcli1.MISCAR.PageFrame1.Page1 cmgModific32 commandgroup commandgroup cmgAdaug31 pageframe pageframe PageFrame1frsActcli1.MISCARErasePage = .F. PageCount = 1 BorderWidth = 0 Top = 0 Left = 0 Width = 30000 Height = 30004 Tabs = .F. Name = "PageFrame1" Page1.Caption = "Page1" Page1.BackStyle = 0 Page1.Name = "Page1" shapeshape shpShape1"frsActcli1.MISCAR.PageFrame1.Page1Top = 83 Left = 6 Height = 70 Width = 432 BackStyle = 0 FillStyle = 1 ReleaseErase = .F. SpecialEffect = 1 ColorSource = 3 Name = "shpShape1" labellabel lblCod_fisc2"frsActcli1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("Cod fiscal") Height = 16 Left = 275 Top = 91 Width = 53 ReleaseErase = .F. ColorSource = 3 Name = "lblCod_fisc2" labellabel lblLocalita3"frsActcli1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("Localitatea") Height = 16 Left = 9 Top = 109 Width = 58 ReleaseErase = .F. ColorSource = 3 Name = "lblLocalita3" labellabel lblBanca4"frsActcli1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("Banca") Height = 16 Left = 211 Top = 109 Width = 33 ReleaseErase = .F. ColorSource = 3 Name = "lblBanca4" labellabel lblTelefon5"frsActcli1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("Telefon") Height = 16 Left = 178 Top = 0 Width = 39 ReleaseErase = .F. ColorSource = 3 Name = "lblTelefon5" labellabellblNume6"frsActcli1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("Nume") Height = 16 Left = 73 Top = 0 Width = 30 ReleaseErase = .F. ColorSource = 3 Name = "lblNume6" labellabel lblJudetul7"frsActcli1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("Judetul") Height = 16 Left = 27 Top = 91 Width = 40 ReleaseErase = .F. ColorSource = 3 Name = "lblJudetul7" labellabel lblStrada8"frsActcli1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("Strada") Height = 16 Left = 32 Top = 127 Width = 35 ReleaseErase = .F. ColorSource = 3 Name = "lblStrada8" labellabellblNou9"frsActcli1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("nou") Height = 16 Left = 10 Top = 73 Width = 21 ReleaseErase = .F. ColorSource = 3 Name = "lblNou9" labellabel lblCont10"frsActcli1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("Cont") Height = 16 Left = 218 Top = 127 Width = 26 ReleaseErase = .F. ColorSource = 3 Name = "lblCont10" labellabel lblCoeficie11"frsActcli1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("Coeficient") Height = 16 Left = 234 Top = 18 Width = 54 ReleaseErase = .F. ColorSource = 3 Name = "lblCoeficie11" labellabellblCod12"frsActcli1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("Cod") Height = 16 Left = 188 Top = 18 Width = 22 ReleaseErase = .F. ColorSource = 3 Name = "lblCod12" labellabel lblCap_soc13"frsActcli1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("Cap soc ") Height = 16 Left = 282 Top = 36 Width = 46 ReleaseErase = .F. ColorSource = 3 Name = "lblCap_soc13" label commandgroup lblNr_inreg14"frsActcli1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("Nr.Inreg.") Height = 16 Left = 282 Top = 55 Width = 46 ReleaseErase = .F. ColorSource = 3 Name = "lblNr_inreg14" comboboxcombobox cboDenmag15"frsActcli1.MISCAR.PageFrame1.Page1FontBold = .F. FontName = "MS Sans Serif" FontSize = 8 RowSourceType = 5 RowSource = "mag" Value = 1 ControlSource = "m.denmag" Enabled = .F. Height = 20 Left = 15 SpecialEffect = 1 Style = 2 Top = 33 Width = 155 ReleaseErase = .F. ColorSource = 3 Name = "cboDenmag15" PROCEDURE Message RETURN "Alegeti un Partener" ENDPROC PROCEDURE Valid IF NOT EMPTY(m.denmag) m.poz = ASCAN(mag, m.denmag, 1) IF m.poz <> 0 m.codmag = mag[ASUBSCRIPT(mag, m.poz, 1), 2] SEEK m.codmag scatter memvar show gets ENDIF SHOW GET m.dennou DISABLE IF m.schimb SHOW GET m.denmag DISABLE ENDIF ELSE IF m.inca SHOW GET m.dennou ENABLE ENDIF ENDIF ENDPROC PROCEDURE When SHOW GET m.dennou ENABLE RETURN m.nrmag > 0 ENDPROC /X.%wU2/B&Permite introducerea unui partener nouUT CO%  E T a T - T -^}(    T!C U CURRECINCASCHIMBSTERSMAGCODMAGDENMADAUGMODIFICSTERGSALVEZOKDENMAGMessage,Validb12AQQr!1B^)"frsActcli1.MISCAR.PageFrame1.Page1cmgOk30textboxtextbox txtDennou16"frsActcli1.MISCAR.PageFrame1.Page1FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 0 ControlSource = "m.dennou" Enabled = .F. Format = "!K" Height = 20 Left = 29 Margin = 0 SpecialEffect = 1 Top = 72 Width = 150 ReleaseErase = .F. ColorSource = 3 Name = "txtDennou16" rPROCEDURE ErrorMessage RETURN "Introduceti o denumire" ENDPROC PROCEDURE Valid IF NOT EMPTY(m.dennou) m.codmag = ASCAN(mag, m.dennou,1) IF m.codmag = 0 m.denm = m.denm + 1 m.codmag = m.denm m.nrmag = m.nrmag+1 DIMENSION mag[m.nrmag,2] mag[m.nrmag, 1] = m.dennou mag[m.nrmag,2] = m.codmag m.denn = .T. ELSE m.codmag = mag[ASUBSCRIPT(mag,m.codmag,1),2] SHOW GET m.dennou DISABLE ENDIF m.denmag = m.dennou m.dennou = "" SHOW GET m.denmag DISABLE SHOW GET m.dennou DISABLE SHOW GET m.salvez ENABLE ENDIF ENDPROC %Y5U74B+Terminare procedur, sterge rnduri marcateU~~= %C  9 T a3Q GN-<,T UMAGDENMAGCODMAGSTERSFMISCARMESAJMessage,Validg1A2AAAABQQQ1Gc&) commandgroup"frsActcli1.MISCAR.PageFrame1.Page1 commandgroup commandgroup"frsActcli1.MISCAR.PageFrame1.Page1 cmgAnulez29 commandgroup commandgroup cmgSalvez28textboxtextbox txtCodmag17"frsActcli1.MISCAR.PageFrame1.Page1'FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "m.codmag" Enabled = .F. Format = "K" Height = 20 Left = 182 Margin = 0 SpecialEffect = 1 Top = 35 Width = 30 ReleaseErase = .F. ColorSource = 3 Name = "txtCodmag17" textboxtextboxtxtTel18"frsActcli1.MISCAR.PageFrame1.Page1FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 0 ControlSource = "m.TEL" Enabled = .F. Format = "K" Height = 19 Left = 228 Margin = 0 SpecialEffect = 1 Top = 0 Width = 209 ReleaseErase = .F. ColorSource = 3 Name = "txtTel18" textboxtextbox txtCoef19"frsActcli1.MISCAR.PageFrame1.Page1:FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "m.coef" Enabled = .F. Format = "K" Height = 20 InputMask = "999.999" Left = 238 Margin = 0 SpecialEffect = 1 Top = 35 Width = 40 ReleaseErase = .F. ColorSource = 3 Name = "txtCoef19" PPROCEDURE Message RETURN "Comision preferential, sau 1=gest.proprie" ENDPROC ,%e|vU52B)Comision preferential, sau 1=gest.proprieUMessage,1!1E)textboxtextbox txtCapsoc20"frsActcli1.MISCAR.PageFrame1.Page1%FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "capsoc" Enabled = .F. Format = "K" Height = 20 Left = 342 Margin = 0 SpecialEffect = 1 Top = 35 Width = 55 ReleaseErase = .F. ColorSource = 3 Name = "txtCapsoc20" PPROCEDURE Message RETURN "Comision preferential, sau 1=gest.proprie" ENDPROC "frsActcli1.MISCAR.PageFrame1.Page1 commandgroup commandgroup"frsActcli1.MISCAR.PageFrame1.Page1 txtContbc27textboxtextbox"frsActcli1.MISCAR.PageFrame1.Page1 txtDenbnc26textboxtextbox txtNrinre21"frsActcli1.MISCAR.PageFrame1.Page1 FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 0 ControlSource = "nrinre" Enabled = .F. Format = "!K" Height = 20 Left = 342 Margin = 0 SpecialEffect = 1 Top = 54 Width = 96 ReleaseErase = .F. ColorSource = 3 Name = "txtNrinre21" textboxtextbox txtDenjud22"frsActcli1.MISCAR.PageFrame1.Page1 FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 0 ControlSource = "m.denjud" Enabled = .F. Format = "!K" Height = 20 Left = 67 Margin = 0 SpecialEffect = 1 Top = 90 Width = 65 ReleaseErase = .F. ColorSource = 3 Name = "txtDenjud22" textboxtextbox txtDenloc23"frsActcli1.MISCAR.PageFrame1.Page1FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 0 ControlSource = "m.denloc" Enabled = .F. Format = "!K" Height = 20 Left = 67 Margin = 0 SpecialEffect = 1 Top = 108 Width = 95 ReleaseErase = .F. ColorSource = 3 Name = "txtDenloc23" textboxtextbox txtDenstr24"frsActcli1.MISCAR.PageFrame1.Page1FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 0 ControlSource = "m.denstr" Enabled = .F. Format = "K" Height = 20 Left = 67 Margin = 0 SpecialEffect = 1 Top = 126 Width = 135 ReleaseErase = .F. ColorSource = 3 Name = "txtDenstr24" textboxtextbox txtCodfis25"frsActcli1.MISCAR.PageFrame1.Page1 FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 0 ControlSource = "m.codfis" Enabled = .F. Format = "K" Height = 20 Left = 342 Margin = 0 SpecialEffect = 1 Top = 90 Width = 75 ReleaseErase = .F. ColorSource = 3 Name = "txtCodfis25" textboxtextboxFontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 0 ControlSource = "m.denbnc" Enabled = .F. Format = "!K" Height = 20 Left = 259 Margin = 0 SpecialEffect = 1 Top = 108 Width = 150 ReleaseErase = .F. ColorSource = 3 Name = "txtDenbnc26" FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 0 ControlSource = "m.contbc" Enabled = .F. Format = "K" Height = 20 Left = 259 Margin = 0 SpecialEffect = 1 Top = 126 Width = 172 ReleaseErase = .F. ColorSource = 3 Name = "txtContbc27"  ButtonCount = 1 BackStyle = 0 BorderStyle = 0 ControlSource = "m.salvez" Height = 23 Left = 255 SpecialEffect = 1 Top = 164 Width = 54 ReleaseErase = .F. Name = "cmgSalvez28" Command1.Top = 0 Command1.Left = 0 Command1.Height = 23 Command1.Width = 54 Command1.FontName = "MS Sans Serif" Command1.FontSize = 8 Command1.Caption = ("\0 AND NOT DELETED() ENDPROC $ButtonCount = 1 BackStyle = 0 BorderStyle = 0 ControlSource = "m.anulez" Height = 23 Left = 314 SpecialEffect = 1 Top = 164 Width = 54 ReleaseErase = .F. Name = "cmgAnulez29" Command1.Top = 0 Command1.Left = 0 Command1.Height = 23 Command1.Width = 54 Command1.FontName = "MS Sans Serif" Command1.FontSize = 8 Command1.Cancel = .T. Command1.Caption = ("Anular\c%UBAlegeti un PartenerU%C T C % w"T CC  E ^ %  %  UDENMAGPOZMAGCODMAGDENNOUSCHIMBINCA B UDENNOUNRMAGMessage,ValidOWhenT12!1!QQAAAA22/K)KButtonCount = 1 BackStyle = 0 BorderStyle = 0 ControlSource = "m.ok" Height = 23 Left = 373 SpecialEffect = 1 Top = 164 Width = 48 ReleaseErase = .F. Name = "cmgOk30" Command1.Top = 0 Command1.Left = 0 Command1.Height = 23 Command1.Width = 48 Command1.FontName = "MS Sans Serif" Command1.FontSize = 8 Command1.Caption = ("\ CA% _>CA HT  T!C   T%C+C  HT!C ¿ %C' P  T -U DATASCHIMBSALVEZDMAGMAGDENMAGCODFISDENNINCAMODIFICADAUGOKSTERGValid,1!QAQQQA!1A!aAA1)ButtonCount = 1 BackStyle = 0 BorderStyle = 0 ControlSource = "m.modific" Height = 23 Left = 83 SpecialEffect = 1 Top = 164 Width = 72 ReleaseErase = .F. Name = "cmgModific32" Command1.Top = 0 Command1.Left = 0 Command1.Height = 23 Command1.Width = 72 Command1.FontName = "MS Sans Serif" Command1.FontSize = 8 Command1.Caption = ("\0 AND NOT DELETED() ENDPROC S%; U"BIntroduceti o denumireUX%C QT C % T  T  T   T  T   T a "T CC  T  T   UDENNOUCODMAGMAGDENMNRMAGDENNDENMAGSALVEZ ErrorMessage,ValidR12!1QQQ!AB17Sg) %F*TUf GNaGNü-12ESC DO adesc2G2T T T T C$ T - T - T - T -T T  T T T T  T -T  T -T T T FG(("denmag"T CmagmagT CT C^}(  <,#6G(("codmag"T CO%Cstolist _*s,stolist (OUFERESTREESCMESAJMAGNRMAGPOZDATAINCASCHIMBSTERSSTERSFCODMAGCODMAGBDENMDENMAGDMAGDENNOUDENNSUFNVDEBITVCREDICOEFMEDIVINCTABCURRECLoad,1a1qqaaQQQqA1)Je%  PU^ UDENMAG%CrborderbC6SET READBORDER &rborder %CtalkstatbCu% ONqG2 %CcompstatbC% ONGA GN%-UTALKSTATCOMPSTATFERESTRE5    %CTALKvONKG2T ONeT OFFT C COMPATIBLEvGAT C READBORDERvGj T CWUCOMPSTATCURRAREARBORDERTALKSTATReadShow,UnloadJLoad91Q2AQaAAQaAA#3a!Aaa25R)%}v$96 actcli.scx actcli.scxJUMAGACTCLISCX _2GG0VVVFF"10  mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _2I10PCG9O 962551344/F] WINDOWS _2GG0VVWF7 9586909808 WINDOWS _2GG0VVWF8 962686650@ WINDOWS _2GG0VVWFA 962686650 WINDOWS _2GG0VVWFE 958690980 WINDOWS _2GG0VVWGF 962686650 O WINDOWS _2GG0VVWGG 962686650 E WINDOWS _2GG0VVWGH 958690980cw COMMENT RESERVED VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment" 11formsetformset frsSelato1oAutoRelease = .T. WindowType = 2 ReadCycle = .T. ReadLock = .T. ReleaseWindows = .T. Name = "frsSelato1" PROCEDURE Load *- [CONVERTER] Remember environment PRIVATE m.compstat, m.currarea, m.rborder, m.talkstat IF SET("TALK") = "ON" SET TALK OFF m.talkstat = "ON" ELSE m.talkstat = "OFF" ENDIF m.compstat = SET("COMPATIBLE") SET COMPATIBLE FOXPLUS m.rborder = SET("READBORDER") SET READBORDER ON m.currarea = SELECT() ENDPROC PROCEDURE Unload *- [CONVERTER] Restore environment IF TYPE("rborder") == 'C' SET READBORDER &rborder ENDIF IF TYPE("talkstat") == 'C' IF m.talkstat = "ON" SET TALK ON ENDIF ENDIF IF TYPE("compstat") == 'C' IF m.compstat = "ON" SET COMPATIBLE ON ENDIF ENDIF *SET SKIP OF BAR _MFI_CLOSE OF ferestre .F. ENDPROC q%DdUT T T T T T T T <, U CODACODATODENCAATODENCARCODCACODCARCSSPSINICUPNRINVCAU/,B#Modificare Nr.Fp. / sau Consultare UValid,Message1!!SQ21 )Arial Narrow, 0, 10, 5, 16, 13, 15, 3, 0 Arial Narrow, 1, 11, 6, 20, 16, 17, 4, 0 Arial Narrow, 1, 10, 5, 16, 13, 15, 3, 0 MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0 cmgRn4formformcau frsSelato1_Height = 382 Width = 253 DoCreate = .T. AutoCenter = .T. BorderStyle = 1 Caption = (" Alege auto") ControlBox = .F. Closable = .F. FontName = "Arial Narrow" FontSize = 10 HalfHeightCaption = .F. MaxButton = .F. MinButton = .F. Movable = .F. ZoomBox = .F. ColorSource = 5 BackColor = 192,192,192 FillColor = 192,192,192 Name = "cau" QPROCEDURE Load SELECT ATO SET ORDER TO DENATO m.mesaj ="" m.auto=0 ENDPROC m%U7FG((DENATOT T UATODENATOMESAJAUTOLoad,1q1F) pageframe pageframe PageFrame1frsSelato1.cauErasePage = .F. PageCount = 1 BorderWidth = 0 Top = 0 Left = 0 Width = 30000 Height = 30004 Tabs = .F. Name = "PageFrame1" Page1.Caption = "Page1" Page1.BackStyle = 0 Page1.Name = "Page1" shapeshape shpShape3frsSelato1.cau.PageFrame1.Page1Top = 9 Left = 3 Height = 34 Width = 206 BackStyle = 0 FillStyle = 1 ReleaseErase = .F. SpecialEffect = 1 ColorSource = 3 Name = "shpShape3" listboxlistboxlstAuto1frsSelato1.cau.PageFrame1.Page1IFontBold = .T. FontName = "Arial Narrow" FontSize = 11 RowSourceType = 6 RowSource = "ato.denato" Value = (" ") ControlSource = "m.auto" Enabled = .T. Height = 310 Left = 9 SpecialEffect = 1 TerminateRead = .F. Top = 48 Width = 224 ReleaseErase = .F. ColorSource = 1 ItemForeColor = 0,128,128 Name = "lstAuto1" PROCEDURE When m.denato = ato.denato SHOW GET m.auto ENDPROC PROCEDURE Valid LOCA FOR m.denato = ato.denato m.denatob= m.denato m.coda = ato.codato m.codato = ato.codato m.denca = ato.dencar m.codca = ato.codcar m.cssp = ato.csspe m.sini = ato.sinit m.cup = ato.cup m.nrinv = ato.nrinv m.tau = ato.tip SET ORDER TO CODATO CLEA READ CLEA GETS RELE WINDOW cau ENDPROC PROCEDURE Message RETURN " alegeti utilaj auto " ENDPROC -%FUT  UDENATOATOAUTO- T  T T T T T  T  T  T T G((CODATO<,UDENATOATODENATOBCODACODATODENCADENCARCODCACODCARCSSPCSSPESINISINITCUPNRINVTAUTIPCAU!B alegeti utilaj auto UWhen,ValidbMessage1!21!!!!!!!!!QQ216R)textboxtextbox txtDensec2frsSelato1.cau.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.densec" Enabled = .F. Height = 20 Left = 9 Margin = 0 SpecialEffect = 1 Top = 16 Width = 192 ReleaseErase = .F. ColorSource = 1 BorderColor = 0,128,128 Name = "txtDensec2"  commandgroup commandgroupfrsSelato1.cau.PageFrame1.Page1ButtonCount = 1 BackStyle = 0 BorderStyle = 0 ControlSource = "m.rn" Height = 23 Left = 78 SpecialEffect = 1 Top = 359 Width = 82 ReleaseErase = .F. Name = "cmgRn4" Command1.Top = 0 Command1.Left = 0 Command1.Height = 23 Command1.Width = 82 Command1.FontName = "MS Sans Serif" Command1.FontSize = 8 Command1.Caption = ("Renunta") Command1.Enabled = .T. Command1.TerminateRead = .F. Command1.ReleaseErase = .F. Command1.SpecialEffect = 1 Command1.ColorSource = 3 Command1.Name = "Command1"  PROCEDURE Valid m.coda = 1 m.codato = 1 m.denca = ato.dencar m.codca = ato.codcar m.cssp = 0 m.sini = 0 m.cup = 0 m.nrinv = 1 *SET ORDER TO CODATO CLEA READ CLEA GETS RELE WINDOW cau ENDPROC PROCEDURE Message RETURN "Modificare Nr.Fp. / sau Consultare " ENDPROC H@%<U5    %CTALKvONKG2T ONeT OFFT C COMPATIBLEvGAT C READBORDERvGj T CWUCOMPSTATCURRAREARBORDERTALKSTAT%CrborderbC6SET READBORDER &rborder %CtalkstatbCu% ONqG2 %CcompstatbC% ONGA UTALKSTATCOMPSTATLoad,Unload1a!Aaa3AQaAAQaAA4Li)%vpv$9. selato.scx selato.scxJUSELATOSCX _2GG0VVWFJ!10 RmPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _2GW13SQ0C 959747139/F] WINDOWS _2GG0VVXLU 9586909818g WINDOWS _2GG0VVXLV 962682727j v ? WINDOWS _2GG0VVXLY 9626827278IZl WINDOWS _2GG0VVXM0 962682453Ubo WINDOWS _2GG0VVXLZ 958690981LXdt WINDOWS _2GG0VVXRE 962682453  ( R WINDOWS _2GG0VVXRF 962682453:!G!T!h!! WINDOWS _2GG0VVXRG 962682453W"d"q""" WINDOWS _2GG0VVXRH 962682453t##### WINDOWS _2GG0VVXRI 962682453$$$$$ WINDOWS _2GG0VVXRJ 962682453%%%%& WINDOWS _2GG0VVXRK 962682453&&''<' WINDOWS _2GG0VVXRL 962682453''((C( WINDOWS _2GG0VVXRM 962682453 ))$)9)c) WINDOWS _2GG0VVXRN 962682453)*6*C*X** WINDOWS _2GG0VVXRO 962682453i+v++++ WINDOWS _2GG0VVXRP 962682453,,,,, WINDOWS _2GG0VVXRQ 962682453----- WINDOWS _2GG0VVXRR 962682453..../ WINDOWS _2GG0VVXRS 962682453///0;0 WINDOWS _2GG0VVXRT 96268245311131]1 WINDOWS _2GG0VVXRU 962682453$212>2S2}2 WINDOWS _2GG0VVXRV 962682453L3Y3f3y33 WINDOWS _2GG0VVXRW 962682453c4p4}444 WINDOWS _2GG0VVXRX 962682453|55555 WINDOWS _2GG0VVXRY 96268245366666 WINDOWS _2GG0VVXRZ 96268245377777 WINDOWS _2GG0VVXS0 95869098188888 WINDOWS _2GG0VVXS1 958690981w99999 WINDOWS _2GG0VVXS2 962682453o:|:::: WINDOWS _2GG0VVXS3 962682453;;;;; WINDOWS _2GG0VVXS4 962682453<<<< = WINDOWS _2GG0VVXS5 962682453===>+> WINDOWS _2GG0VVXS6 962682453>??"?L? WINDOWS _2GG0VVXS7 962682453@@*@?@i@ WINDOWS _2GG0VVXS8 962682453/A-calculat dup cursa fcut gol/plin, volum transportat pe FP.UMessage,1q1Z)%[rlU+(B-consum specific pe Auto, Lt/KmUMessage,11;) pageframe pageframe PageFrame1frsActfau1.MISCARErasePage = .F. PageCount = 1 BorderWidth = 0 Top = 0 Left = 0 Width = 30000 Height = 30004 Tabs = .F. Name = "PageFrame1" Page1.Caption = "Page1" Page1.BackStyle = 0 Page1.Name = "Page1" shapeshape shpShape2"frsActfau1.MISCAR.PageFrame1.Page1Top = 186 Left = 12 Height = 70 Width = 480 BackStyle = 0 FillStyle = 1 ReleaseErase = .F. SpecialEffect = 1 ColorSource = 3 Name = "shpShape2" linelinelinLine1"frsActfau1.MISCAR.PageFrame1.Page1THeight = 0 Left = 8 Top = 74 Width = 477 ReleaseErase = .F. Name = "linLine1" labellabel lblPrestati3"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("Prestatii") Height = 16 Left = 341 Top = 64 Width = 43 ReleaseErase = .F. ColorSource = 3 ForeColor = 128,128,128 BackColor = 212,208,200 Name = "lblPrestati3" labellabel lblAlimenta4"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Alimentat") Height = 16 Left = 28 Top = 212 Width = 49 ReleaseErase = .F. ColorSource = 3 Name = "lblAlimenta4" labellabel lblRestitui5"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Restituit") Height = 16 Left = 28 Top = 230 Width = 45 ReleaseErase = .F. ColorSource = 3 Name = "lblRestitui5" labellabel lblNormat6"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Normat") Height = 16 Left = 145 Top = 212 Width = 38 ReleaseErase = .F. ColorSource = 3 Name = "lblNormat6" labellabel lblMaterial7"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Material") Height = 16 Left = 294 Top = 119 Width = 41 ReleaseErase = .F. ColorSource = 3 Name = "lblMaterial7" labellabel lblTimp_ore8"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("Timp(Ore)") Height = 16 Left = 174 Top = 64 Width = 51 ReleaseErase = .F. ColorSource = 3 ForeColor = 128,128,128 BackColor = 212,208,200 Name = "lblTimp_ore8" labellabellbl_lt_9"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("(Lt)") Height = 16 Left = 132 Top = 176 Width = 19 ReleaseErase = .F. ColorSource = 3 Name = "lbl_lt_9" labellabel lblStoc_ini10"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Stoc init.") Height = 16 Left = 29 Top = 194 Width = 48 ReleaseErase = .F. ColorSource = 3 Name = "lblStoc_ini10" labellabel lblRezervor11"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Rezervor") Height = 16 Left = 144 Top = 230 Width = 46 ReleaseErase = .F. ColorSource = 3 Name = "lblRezervor11" labellabel lblDocument12"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("Document") Height = 16 Left = 22 Top = 64 Width = 54 ReleaseErase = .F. ColorSource = 3 ForeColor = 128,128,128 BackColor = 212,208,200 Name = "lblDocument12" labellabel lblVolum_lu13"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Volum lucrare") Height = 16 Left = 294 Top = 101 Width = 72 ReleaseErase = .F. ColorSource = 3 Name = "lblVolum_lu13" labellabel lblData14"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Data") Height = 16 Left = 11 Top = 98 Width = 24 ReleaseErase = .F. ColorSource = 3 Name = "lblData14" labellabel lblEfective15"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Efective") Height = 16 Left = 133 Top = 80 Width = 42 ReleaseErase = .F. ColorSource = 3 Name = "lblEfective15" labellabel lblSchimb_l16"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Schimb loc munca") Height = 16 Left = 113 Top = 98 Width = 97 ReleaseErase = .F. ColorSource = 3 Name = "lblSchimb_l16" labellabel lblIntretin17"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Intretinere") Height = 16 Left = 128 Top = 135 Width = 55 ReleaseErase = .F. ColorSource = 3 Name = "lblIntretin17" labellabel lblReparati18"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Reparatii") Height = 16 Left = 133 Top = 153 Width = 47 ReleaseErase = .F. ColorSource = 3 Name = "lblReparati18" labellabel lblLipsa_fr19"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Lipsa front lucr.") Height = 16 Left = 113 Top = 116 Width = 84 ReleaseErase = .F. ColorSource = 3 Name = "lblLipsa_fr19" labellabel lblUtilaj20"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Utilaj") Height = 16 Left = 198 Top = 0 Width = 27 ReleaseErase = .F. ColorSource = 3 Name = "lblUtilaj20" labellabel lblMecanic21"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Mecanic") Height = 16 Left = 5 Top = 36 Width = 43 ReleaseErase = .F. ColorSource = 3 Name = "lblMecanic21" labellabellblTip22"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Tip") Height = 16 Left = 198 Top = 18 Width = 16 ReleaseErase = .F. ColorSource = 3 Name = "lblTip22" labellabellbl_23"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("<") Height = 16 Left = 285 Top = 153 Width = 6 ReleaseErase = .F. ColorSource = 3 Name = "lbl_23" labellabellbl_24"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = (">") Height = 16 Left = 483 Top = 153 Width = 6 ReleaseErase = .F. ColorSource = 3 Name = "lbl_24" labellabellbl_25"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("<") Height = 16 Left = 254 Top = 0 Width = 6 ReleaseErase = .F. ColorSource = 3 Name = "lbl_25" labellabellbl_26"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = (">") Height = 16 Left = 450 Top = 0 Width = 6 ReleaseErase = .F. ColorSource = 3 Name = "lbl_26" labellabel lblHidrauli27"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Hidraulic") Height = 16 Left = 273 Top = 230 Width = 47 ReleaseErase = .F. ColorSource = 3 Name = "lblHidrauli27" labellabel lblTransmis28"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Transmisie") Height = 16 Left = 264 Top = 212 Width = 56 ReleaseErase = .F. ColorSource = 3 Name = "lblTransmis28" labellabel lbl_ulei_mo29"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("-Ulei Motor") Height = 16 Left = 262 Top = 194 Width = 58 ReleaseErase = .F. ColorSource = 3 Name = "lbl_ulei_mo29" labellabel lbl_lich_fr30"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("-Lich.Frina") Height = 16 Left = 373 Top = 194 Width = 57 ReleaseErase = .F. ColorSource = 3 Name = "lbl_lich_fr30" labellabel lblAntigel31"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Antigel") Height = 16 Left = 377 Top = 212 Width = 37 ReleaseErase = .F. ColorSource = 3 Name = "lblAntigel31" labellabel lblSpecific32"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Specific") Height = 16 Left = 143 Top = 194 Width = 43 ReleaseErase = .F. ColorSource = 3 Name = "lblSpecific32" labellabel lblUnsoare33"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Unsoare") Height = 16 Left = 376 Top = 230 Width = 44 ReleaseErase = .F. ColorSource = 3 Name = "lblUnsoare33" labellabel lblL_u_c_r_34"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 1 Caption = ("L u c r a r e") Height = 16 Left = 332 Top = 135 Width = 58 ReleaseErase = .F. ColorSource = 3 ForeColor = 128,128,128 BackColor = 212,208,200 Name = "lblL_u_c_r_34" labellabel lblC_o_n_s_35"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("C O N S U M - d i v e r s e ") Height = 16 Left = 288 Top = 176 Width = 160 ReleaseErase = .F. ColorSource = 3 ForeColor = 128,128,128 BackColor = 212,208,200 Name = "lblC_o_n_s_35" labellabel lblBenefici36"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Beneficiar") Height = 16 Left = 289 Top = 36 Width = 53 ReleaseErase = .F. ColorSource = 3 Name = "lblBenefici36" labellabellblUm37"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Um") Height = 16 Left = 460 Top = 101 Width = 17 ReleaseErase = .F. ColorSource = 3 Name = "lblUm37" labellabel lblNr_fc_38"frsActfau1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Nr.Fc.") Height = 16 Left = 11 Top = 116 Width = 31 ReleaseErase = .F. ColorSource = 3 Name = "lblNr_fc_38" textboxtextbox txtDensec39"frsActfau1.MISCAR.PageFrame1.Page1WFontBold = .F. FontName = "Arial Narrow" FontSize = 10 BackStyle = 1 BorderStyle = 1 ControlSource = "m.densec" Enabled = .F. Height = 19 Left = 0 Margin = 0 SpecialEffect = 1 Top = 0 Width = 127 ReleaseErase = .F. ColorSource = 3 ForeColor = 128,128,128 BackColor = 212,208,200 BorderColor = 0,128,128 Name = "txtDensec39" textboxtextbox txtDenato40"frsActfau1.MISCAR.PageFrame1.Page1@FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.denato" Enabled = .T. Format = "!TK" Height = 19 Left = 262 Margin = 0 SpecialEffect = 1 Top = 0 Width = 185 ReleaseErase = .F. ColorSource = 3 ForeColor = 128,128,128 BorderColor = 0,128,64 Name = "txtDenato40" )PROCEDURE Valid IF m.denatob # m.denato ** AND NOT EMPTY(m.denato) SELECT atu SET ORDER TO DENATO SET EXACT OFF SET NEAR ON SEEK ALLTRIM(m.denato) DO afis IN proc.prg BROWSE FIELDS atu.denato,atu.nrinv,atu.codato NOAPPE NODELE NOEDIT ; WHEN reafis() WINDOW "benlist" COLOR SCHEME 10 SCATTER MEMVAR m.dena = m.denato m.coda = m.codato m.denatob= m.denato m.cssp = atu.csspe m.denca = atu.dencar m.codca = atu.codcar m.sini = atu.sinit m.ca = m.coda m.cm = 0 m.cp = 0 m.nriv=atu.nrinv SET EXACT ON SET NEAR OFF RELEASE WINDOW "benlist" SET ORDER TO CODATO SHOW GET m.denato DISABLE SHOW GET m.nriv DISABLE SELE rul ENDIF ENDPROC PROCEDURE Message RETURN " =alege, = revine, sau NOU+= partener nou" ENDPROC W%U0#T      UINREZSINITALIMRESTICSNORMValid,111R)5y%Uf %   >T   UT  UEXPLODISLOCCSNORMCSSPEValid,1A1)Lq%`wqU0-B$-stoc in rezervor la inceput de lunUMessage,11@)"frsActfau1.MISCAR.PageFrame1.Page1 commandgroup"frsActfau1.MISCAR.PageFrame1.Page1 cmgModific75textboxtextboxtxtTip41"frsActfau1.MISCAR.PageFrame1.Page1FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 0 ControlSource = "m.tip" Enabled = .F. Height = 20 Left = 229 Margin = 0 SpecialEffect = 1 Top = 17 Width = 25 ReleaseErase = .F. ColorSource = 3 Name = "txtTip41" textboxtextbox txtNriv42"frsActfau1.MISCAR.PageFrame1.Page1FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 0 ControlSource = "m.nriv" Enabled = .F. Height = 20 Left = 261 Margin = 0 SpecialEffect = 1 Top = 17 Width = 70 ReleaseErase = .F. ColorSource = 3 Name = "txtNriv42" comboboxcombobox cboDenper43"frsActfau1.MISCAR.PageFrame1.Page1GFontBold = .F. FontName = "MS Sans Serif" FontSize = 8 RowSourceType = 5 RowSource = "per" Value = 1 ControlSource = "m.denper" Enabled = .F. Height = 20 Left = 53 SpecialEffect = 1 Style = 2 Top = 33 Width = 126 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,64 BorderStyle = 1 Name = "cboDenper43" PROCEDURE When RETURN m.nrper > 0 ENDPROC PROCEDURE Valid IF NOT EMPTY(m.denper) m.poz = ASCAN(per, m.denper, 1) IF m.poz <> 0 m.codper = per[ASUBSCRIPT(per, m.poz, 1), 2] ENDIF IF m.schimb m.cp = m.codper m.cm = 0 m.ca = 0 ENDIF ENDIF ENDPROC PROCEDURE Message RETURN "Alegeti o Persoan, sau afisare pe sofer, la Modificare " ENDPROC %xUB% ;R,: Lipsa NumarT!C UNRFPValid,11a!A1`)&  ?%UP)T      $R,: Total Ore =C  ZUORETEXPLODISLOCIRETINREPARASTATIOValid,1A1u)  commandgroupcmgOk73comboboxcombobox cboDenmag44"frsActfau1.MISCAR.PageFrame1.Page1HFontBold = .F. FontName = "MS Sans Serif" FontSize = 8 RowSourceType = 5 RowSource = "mag" Value = 1 ControlSource = "m.denmag" Enabled = .F. Height = 20 Left = 357 SpecialEffect = 1 Style = 2 Top = 33 Width = 135 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,64 BorderStyle = 1 Name = "cboDenmag44" PROCEDURE When RETURN m.nrmag > 0 ENDPROC PROCEDURE Valid IF NOT EMPTY(m.denmag) m.poz = ASCAN(mag, m.denmag, 1) IF m.poz <> 0 m.codmag = mag[ASUBSCRIPT(mag, m.poz, 1), 2] ENDIF IF m.schimb m.cm=m.codmag m.cp = 0 m.ca = 0 ENDIF SHOW GET m.denmag ENDIF ENDPROC PROCEDURE Message RETURN "Alegeti o Sectie, sau afisare la Modificare" ENDPROC O66M% U8%  1 UNRFPSALVEZ1.B%Pt.Nr.fp #/= 0 -afisare Nr.fp./sectieUValid,Messagev11A21b)6{Arial Narrow, 1, 10, 5, 16, 13, 15, 3, 0 Arial Narrow, 0, 10, 5, 16, 13, 15, 3, 0 MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0  commandgroup"frsActfau1.MISCAR.PageFrame1.Page1 cmgAdaug74 commandgrouptextboxtextbox txtDatpl45"frsActfau1.MISCAR.PageFrame1.Page1GFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = { / / } ControlSource = "m.datpl" Enabled = .F. Format = "K" Height = 20 Left = 43 Margin = 0 SpecialEffect = 1 Top = 97 Width = 55 ReleaseErase = .F. ColorSource = 3 BorderColor = 128,0,64 Name = "txtDatpl45" textboxtextbox txtNrfp46"frsActfau1.MISCAR.PageFrame1.Page1;FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.nrfp" Enabled = .F. Format = "K" Height = 20 Left = 43 Margin = 0 SpecialEffect = 1 Top = 115 Width = 55 ReleaseErase = .F. ColorSource = 3 BorderColor = 128,0,64 Name = "txtNrfp46" PROCEDURE Valid IF m.nrfp # 0 SHOW GET m.salvez ENABLE ELSE SHOW GET m.salvez DISABLE ENDIF ENDPROC PROCEDURE Message RETURN "Pt.Nr.fp #/= 0 -afisare Nr.fp./sectie" ENDPROC 9PROCEDURE When RETURN RECCOUNT()>0 AND NOT DELETED() ENDPROC PROCEDURE Valid IF NOT m.schimb m.schimb=.T. m.inca =.F. m.sters =.F. ENDIF DO relau IN proc.prg DO shov DO sel IN proc.prg DO bw IN proc.prg ENDPROC PROCEDURE Message RETURN "Modificarea datelor unei persoane, urmat de salvare" ENDPROC  commandgrouptextboxtextboxtextbox txtExplo47"frsActfau1.MISCAR.PageFrame1.Page1=FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.explo" Enabled = .F. Format = "K" Height = 20 Left = 211 Margin = 0 SpecialEffect = 1 Top = 79 Width = 35 ReleaseErase = .F. ColorSource = 3 BorderColor = 128,0,64 Name = "txtExplo47" textboxtextbox txtDisloc48"frsActfau1.MISCAR.PageFrame1.Page1?FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.disloc" Enabled = .F. Format = "K" Height = 20 Left = 211 Margin = 0 SpecialEffect = 1 Top = 97 Width = 35 ReleaseErase = .F. ColorSource = 3 BorderColor = 128,0,64 Name = "txtDisloc48" textboxtextbox txtStatio49"frsActfau1.MISCAR.PageFrame1.Page1@FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.statio" Enabled = .F. Format = "K" Height = 20 Left = 211 Margin = 0 SpecialEffect = 1 Top = 115 Width = 35 ReleaseErase = .F. ColorSource = 3 BorderColor = 128,0,64 Name = "txtStatio49" textboxtextbox txtIretin50"frsActfau1.MISCAR.PageFrame1.Page1@FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.iretin" Enabled = .F. Format = "K" Height = 20 Left = 211 Margin = 0 SpecialEffect = 1 Top = 134 Width = 35 ReleaseErase = .F. ColorSource = 3 BorderColor = 128,0,64 Name = "txtIretin50" textboxtextbox txtRepara51"frsActfau1.MISCAR.PageFrame1.Page1@FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.repara" Enabled = .F. Format = "K" Height = 20 Left = 211 Margin = 0 SpecialEffect = 1 Top = 152 Width = 35 ReleaseErase = .F. ColorSource = 3 BorderColor = 128,0,64 Name = "txtRepara51" PROCEDURE Valid m.oret=m.explo+m.disloc+m.iretin+m.repara+m.statio WAIT "Total Ore ="+STR(m.oret,9,2) WINDOW NOWAIT ENDPROC PROCEDURE Valid CLEAR READ CLEAR GETS SET FILTER TO DELE FOR rul.codato=0 PACK *CLOSE DATA RELE WINDOW stolist m.mesaj="" m.au =.F. ENDPROC PROCEDURE Message RETURN "Terminare procedur, sterge rnduri marcate" ENDPROC "frsActfau1.MISCAR.PageFrame1.Page1 commandgroupcheckboxcheckboxchkTar52"frsActfau1.MISCAR.PageFrame1.Page1 Top = 78 Left = 351 Height = 17 Width = 60 FontName = "MS Sans Serif" FontSize = 8 Caption = ("Tarife") Value = 0 ControlSource = "m.tar" Enabled = .T. SpecialEffect = 1 Style = 0 TerminateRead = .F. ReleaseErase = .F. ColorSource = 3 Name = "chkTar52" PROCEDURE Valid IF m.tar#0 DO afis IN proc.prg SELECT prs if NOT m.schimb LOCA FOR prs.codato=m.ca IF FOUND() BROWSE FOR prs.codato=m.ca FIELDS denprs,tarif,codprs NOAPPE ; NODELE NOEDIT WHEN reafis() WINDOW "benlist" COLOR SCHEME 10 m.denprs = prs.denprs m.codprs = prs.codprs m.tr = prs.tarif DO CASE case m.codprs=1 or m.codprs=2 m.puk=m.tr case m.codprs=3 or m.codprs=4 or m.codprs=5 or m.codprs=6 or m.codprs=7 m.puo=m.tr case m.codprs=8 m.puz=m.tr case m.codprs=9 m.pum=m.tr ENDCASE ELSE WAIT WINDOW "-lipsa Tipuri, operato la MODIFICARE " ENDIF else LOCA FOR prs.codato=m.ca if NOT FOUND() WAIT WINDOW "-Creare Tipuri de Tarife.. " NOWAIT COPY TO tmp FOR prs.codato=1 SELE 0 USE tmp REPL ALL tmp.codato WITH m.ca USE SELE prs APPE FROM tmp.dbf endif BROWSE FOR prs.codato=m.ca FIELDS codato,denprs,tarif,codprs NOAPPE ; NODELE WHEN reafis() WINDOW "benlist" COLOR SCHEME 10 TITLE "Modificare tarife" endif RELEASE WINDOW "benlist" SHOW GET m.puk SHOW GET m.puo SELE rul ENDIF ENDPROC PROCEDURE Message RETURN "-alege tip tarif, pt.FAZ / sau MODIFICARE -tarif Nou " ENDPROC gg7%t.UT  UDENLUCBDENLUC[ % C  TFG(("denluc"GGF EC  %C4k T a T -@danu.spr%Vizualizare / Actualizare -Lucrari ?  %  T a% Jproc.prg5   ,benlist N C {}(  T  > ,   ,stolist N ^T  T T  T  T  <,G GFG(("codluc"FUDENLUCBDENLUCLUCDNDANUSPRDKEYAFISPROCPRGCOMANDACODLUCREAFISCLCPBENLISTRULQNBE=alege, =revine, sau NOU+=Rind nouUWhen,ValidUMessage12qaaAAq1RQQQ!AQ!!!aaqA31$@,42)g commandgroup"frsActfau1.MISCAR.PageFrame1.Page1 cmgAnulez72 commandgroup commandgrouptextboxtextbox txtM_puo53"frsActfau1.MISCAR.PageFrame1.Page1&FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 Value = (m.puo) Height = 20 Left = 416 Margin = 0 ReadOnly = .T. SpecialEffect = 1 TabStop = .F. Top = 79 Width = 42 ReleaseErase = .F. Style = 1 ColorSource = 3 BorderColor = 128,0,64 Name = "txtM_puo53" textboxtextbox txtVolum54"frsActfau1.MISCAR.PageFrame1.Page1=FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.volum" Enabled = .F. Format = "K" Height = 20 Left = 368 Margin = 0 SpecialEffect = 1 Top = 96 Width = 40 ReleaseErase = .F. ColorSource = 3 BorderColor = 128,0,64 Name = "txtVolum54" kPROCEDURE Valid IF m.nrfp=0 WAIT WINDOW NOWAIT "Lipsa Numar" _CUROBJ=OBJNUM(m.nrfp) ENDIF ENDPROC "frsActfau1.MISCAR.PageFrame1.Page1 cmgSalvez71 commandgroup commandgroup"frsActfau1.MISCAR.PageFrame1.Page1 txtUnsor70textbox"frsActfau1.MISCAR.PageFrame1.Page1 txtUleatg69textboxtextboxtextboxtxtUm55"frsActfau1.MISCAR.PageFrame1.Page1FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.um" Enabled = .F. Format = "A!" Height = 20 Left = 428 Margin = 0 SpecialEffect = 1 Top = 100 Width = 27 ReleaseErase = .F. ColorSource = 3 BorderColor = 128,0,64 Name = "txtUm55" textboxtextbox txtDenmat56"frsActfau1.MISCAR.PageFrame1.Page1'FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.denmat" Enabled = .F. Format = "K" Height = 20 Left = 343 Margin = 0 SpecialEffect = 1 Top = 118 Width = 113 ReleaseErase = .F. ColorSource = 3 BorderColor = 128,0,64 Name = "txtDenmat56" textboxtextbox txtDenluc57"frsActfau1.MISCAR.PageFrame1.Page1)FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.denluc" Enabled = .F. Format = "!TK" Height = 20 Left = 294 Margin = 0 SpecialEffect = 1 Top = 152 Width = 188 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,64 Name = "txtDenluc57" ?PROCEDURE When m.denlucb = m.denluc ENDPROC PROCEDURE Valid IF m.denlucb # m.denluc OR EMPTY(m.denluc) SELECT luc SET ORDER TO TAG "denluc" SET EXACT OFF SET NEAR ON SEEK(ALLTRIM(m.denluc)) if FOUND() m.dn=.T. else m.dn=.F. DO danu.spr WITH "Vizualizare / Actualizare -Lucrari ? ", m.dn if m.dn m.dn=.T. endif endif if m.dn DO dkey DO afis IN proc.prg BROWSE FIELDS luc.denluc,luc.comanda,luc.codluc NOAPPEND NODELETE NOEDIT WHEN reafis() ; WINDOW "benlist" COLOR SCHEME 10 ON KEY else CALCULATE MAX(luc.codluc) TO m.cl m.cl = m.cl + 1 APPE BLANK REPL luc.codluc WITH m.cl BROWSE fields luc.codluc,luc.denluc,luc.comanda ; NOMENU COLOR SCHEME 10 WINDOW "stolist" endif SCATTER MEMVAR m.codluc = luc.codluc m.denlucb = luc.denluc m.comanda = luc.comanda m.cl = m.codluc m.cp = 0 SHOW GET m.denluc RELE WINDOW benlist SET EXACT ON SET NEAR OFF SET ORDER TO TAG "codluc" SELE rul ENDIF ENDPROC PROCEDURE Message RETURN "=alege, =revine, sau NOU+=Rind nou" ENDPROC C**O%oUB UNRMAG%C T C % b"T CC % T  T T  UDENMAGPOZMAGCODMAGSCHIMBCMCPCA74B+Alegeti o Sectie, sau afisare la ModificareUWhen,ValidIMessage413!1!BBA2A1$@Fd)*PROCEDURE When RETURN RECCOUNT()>0 AND NOT DELETED() ENDPROC PROCEDURE Valid IF NOT m.sters m.sters = .T. m.inca = .F. m.schimb = .F. m.stersf = .T. ENDIF m.dn = .F. DO danu.spr WITH "Stergeti articolul ?", m.dn IF m.dn DELETE ENDIF IF NOT EOF() SKIP 1 IF NOT BOF() SKIP -1 ENDIF SHOW GETS ENDIF ENDPROC PROCEDURE Message RETURN "Marcare pt.Stergere o persoana selectata anterior" ENDPROC textbox"frsActfau1.MISCAR.PageFrame1.Page1 txtUlefri68textboxtextboxtextboxtextbox txtDencar58"frsActfau1.MISCAR.PageFrame1.Page1WFontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.dencar" Enabled = .F. Format = "K" Height = 20 Left = 27 Margin = 0 SpecialEffect = 1 Top = 175 Width = 75 ReleaseErase = .F. ColorSource = 3 ForeColor = 128,128,128 BackColor = 212,208,200 BorderColor = 0,128,64 Name = "txtDencar58" textboxtextbox txtSinit59"frsActfau1.MISCAR.PageFrame1.Page1SFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.sinit" Enabled = .F. Format = "K" Height = 20 InputMask = "999.99" Left = 87 Margin = 0 SpecialEffect = 1 Top = 193 Width = 40 ReleaseErase = .F. ColorSource = 3 BorderColor = 128,0,64 Name = "txtSinit59" KPROCEDURE Message RETURN "-stoc in rezervor la inceput de lun" ENDPROC "frsActfau1.MISCAR.PageFrame1.Page1 txtUleih67textboxtextbox"frsActfau1.MISCAR.PageFrame1.Page1 txtUleit66textboxtextbox"frsActfau1.MISCAR.PageFrame1.Page1textboxtextboxtextbox txtAlim60"frsActfau1.MISCAR.PageFrame1.Page1RFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.alim" Enabled = .F. Format = "K" Height = 20 InputMask = "9999.99" Left = 87 Margin = 0 SpecialEffect = 1 Top = 211 Width = 40 ReleaseErase = .F. ColorSource = 3 BorderColor = 128,0,64 Name = "txtAlim60" PROCEDURE Valid IF m.explo#0 OR m.disloc#0 m.csnorm = m.csspe * (m.explo + m.disloc) ELSE m.csnorm = 0 ENDIF SHOW GET m.csnorm ENDPROC  txtUleim65textboxLPROCEDURE Message RETURN "-este stoc final existent in rezervor" ENDPROC "frsActfau1.MISCAR.PageFrame1.Page1 txtInrez64textboxtextboxePROCEDURE Message RETURN "-calculat dup cursa fcut gol/plin, volum transportat pe FP." ENDPROC textboxtextbox txtResti61"frsActfau1.MISCAR.PageFrame1.Page1TFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.resti" Enabled = .F. Format = "K" Height = 20 InputMask = "9999.99" Left = 87 Margin = 0 SpecialEffect = 1 Top = 229 Width = 40 ReleaseErase = .F. ColorSource = 3 BorderColor = 128,0,64 Name = "txtResti61" ]PROCEDURE Valid m.inrez = m.sinit + m.alim - m.resti - m.csnorm SHOW GET m.inrez ENDPROC "frsActfau1.MISCAR.PageFrame1.Page1 txtCsnorm63textboxtextboxFPROCEDURE Message RETURN "-consum specific pe Auto, Lt/Km" ENDPROC "frsActfau1.MISCAR.PageFrame1.Page1 txtCsspe62textboxtextboxUFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.csspe" Enabled = .F. Format = "K" Height = 20 InputMask = "@999.99" Left = 203 Margin = 0 SpecialEffect = 1 Top = 193 Width = 35 ReleaseErase = .F. ColorSource = 3 BorderColor = 128,0,64 Name = "txtCsspe62" vPROCEDURE Valid IF NOT m.inca m.schimb=.F. m.inca =.T. m.sters =.F. ENDIF m.cp = 0 m.cm = 0 *DO norel *SCATTER MEMVAR BLAN m.datpl = m.datac m.nrcrs = 1 m.csspe = m.cssp m.dencar = m.denca m.codcar = m.codca m.sinit = m.sini DO shov ENDPROC PROCEDURE Message RETURN "Afisare , sau Adaugare personal din Fise fiscale AUTOMAT" ENDPROC GFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.csnorm" Enabled = .F. Format = "K9999.99" Height = 20 Left = 198 Margin = 0 SpecialEffect = 1 Top = 211 Width = 40 ReleaseErase = .F. ColorSource = 3 BorderColor = 128,0,64 Name = "txtCsnorm63"  ButtonCount = 1 BackStyle = 0 BorderStyle = 0 ControlSource = "m.sterg" Height = 23 Left = 195 SpecialEffect = 1 Top = 260 Width = 72 ReleaseErase = .F. Name = "cmgSterg76" Command1.Top = 0 Command1.Left = 0 Command1.Height = 23 Command1.Width = 72 Command1.FontName = "MS Sans Serif" Command1.FontSize = 8 Command1.Caption = ("Ste\=alege, = revine, sau NOU+= partener nouUValid,Messaged1Qraa1RQ!!!!!aaqB311#)wButtonCount = 1 BackStyle = 0 BorderStyle = 0 ControlSource = "m.ok" Height = 23 Left = 442 SpecialEffect = 1 Top = 260 Width = 48 ReleaseErase = .F. Name = "cmgOk73" Command1.Top = 0 Command1.Left = 0 Command1.Height = 23 Command1.Width = 48 Command1.FontName = "MS Sans Serif" Command1.FontSize = 8 Command1.Caption = ("\ QFtmp.dbfU    ,benlist N 'Modificare tarifeC <,benlist FUTARAFISPROCPRGPRSSCHIMBCODATOCADENPRSTARIFCODPRSREAFISTRPUKPUOPUZPUMTMPALLDBFRULB?B6-alege tip tarif, pt.FAZ / sau MODIFICARE -tarif Nou UValid,Message111q1!!!q11AA1b1AqARBqA21D,b3)%}A[U12ESC DO adesc2G2T #T T T T T T T T T T T T T C$T T T T T T T T T T T TOT  material.. T T T T T !T "T #T $T %T &T 'T ( T )- T *- T +- T ,-T - .T /T 0 1T 2 0T 3T 4T 5 4T 6T 7T 8T 9FG(("denper"T Cperper:T 6CT 7CG(("codper"FT Cmagmag:T 8CT 9C%CprsNF;F4QCprs.dbfDBFUnde e Tarif prs?;F<^T  T = >T ? @T A T B CT 0 1 0  = A%CstolistU<,stolist+s,stolist($UƾUDESCMESAJPERMAGNRPERDUMNRMAGPOZCMCPCACSSPSININRIVTTCNDDATPLNRFPORETORELEXPLOIRETINDISLOCSTATIOREPARANRCRSVOLUMUMDENMATALIMRESTICSSPECSNORMINREZCSDIFULEIMULEITULEIHULEFRIULEATGUNSORINCASCHIMBSTERSSTERSFCODATOCODATARDENATODENADENATOBCODLUCDENLUCDENLUCBCODPERDENPERCODMAGDENMAGINCTABPRSRULDENCARDENCACODCARCODCASINITTIPTAULoad,1qa1qaaraa"qBAqRbA2D)u%*3U5    %CTALKvONKG2T ONeT OFFT C COMPATIBLEvGAT C READBORDERvGj T CWUCOMPSTATCURRAREARBORDERTALKSTAT%CrborderbC6SET READBORDER &rborder %CtalkstatbCu% ONqG2 %CcompstatbC% ONGA GN%-UTALKSTATCOMPSTATFERESTRE%   ^T T T T  T      T        UINCASCHIMBDENPERPERDENCARCARDENATOATUDENMAGMAGDENMAGBNRFPDATPLCSSPECSSPCSNORMSINITINREZNRIVTIPLoad,UnloadReadShow1a!Aaa3AQaAAQaAA#4Q!!!!!B1Lik*)%!v$9> actfau.scx actfau.scxJUMAGPERACTFAUSCX _2GG0VVXPN'J(             T!C  UEXPLOIRETINDISLOCSTATIOREPARAADAUGMODIFICOKDENATODENCARDENSECCSSPECSNORMSINITINREZTIPNRIVUMDENPERshov"5qq!3 0 lmPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _2GL0J0FOP 959006343/F] WINDOWS _2GG0VVZRU 9586909848u WINDOWS _2GG0VVZRV 978034112 q . WINDOWS _2GG0VVZRY 978034112!!!!" WINDOWS _2GG0VVZRZ 959748209""" #5# WINDOWS _2GG0VVZS1 958690984###$+$ WINDOWS _2GG0VVZS2 958690984$$$$% WINDOWS _2GG0VVZS3 959748209|%%%%% WINDOWS _2GG0VVZYR 959748209,&9&F&U&& WINDOWS _2GG0VVZYS 959748209Q'^'k'}'' WINDOWS _2GG0VVZYT 958690984((((( WINDOWS _2GG0VVZYU 958690984))))) WINDOWS _2GG0VVZYV 958690984***** WINDOWS _2GG0VVZYW 959748209++++, WINDOWS _2GG0VVZYX 959748209,,, -5- WINDOWS _2GG0VVZYY 959748209..).=.g. WINDOWS _2GG0VVZYZ 959748209E/R/_/t// WINDOWS _2GG0VVZZ0 95974820900000 WINDOWS _2GG0VVZZ1 9597482091111 2 WINDOWS _2GG0VVZZ2 959748209222313 WINDOWS _2GG0VVZZ3 959748209 44%464`4 WINDOWS _2GG0VVZZ4 959748209'545A5U55 WINDOWS _2GG0VVZZ5 959748209L6Y6f6{66 WINDOWS _2GG0VVZZ6 959748209w77777 WINDOWS _2GG0VVZZ7 95974820988889 WINDOWS _2GG0VVZZ8 959748209999:/: WINDOWS _2GG0VVZZ9 959748209;;;.;X; WINDOWS _2GG0VVZZA 959748209,<9<F<Z<< WINDOWS _2GG0VVZZB 959748209a=n={=== WINDOWS _2GG0VVZZC 959748209>>>>> WINDOWS _2GG0VVZZD 959748209???@/@ WINDOWS _2GG0VVZZE 959748209 AA'Ashs WINDOWS _2GG0VW02L 962549906ttttt WINDOWS _2GG0VW02M 962549906 vv*v>vhv WINDOWS _2GG0VW02N 962549906wwwwwy| WINDOWS _2GG0VW02O 9625499064zCzRzfzz{_y WINDOWS _2GG0VW02P 962549906|||}:}p~~ WINDOWS _2GG0VW02Q 962549906$p WINDOWS _2GG0VW02R 958690984ӄ-Gl WINDOWS _2GG0VW02S 959748209· WINDOWS _2GG0VW02T 9597482090?N` WINDOWS _2GG0VW02U 959748209ƊՊ WINDOWS _2GG0VW02V 959748209>M\o WINDOWS _2GG0VW02W 959748209ԍ-KOk WINDOWS _2GG0VW02X 958690984Yhw WINDOWS _2GG0VW02Y 958690984? WINDOWS _2GG0VW02Z 959748209zӓj WINDOWS _2GG0VW030 959748209%O WINDOWS _2GG0VW031 958690984ٗ WINDOWS _2GG0VW032 958690984!0Ak WINDOWS _2GG0VW033 958690984ƚne WINDOWS _2GG0VW034 9597482094CRe WINDOWS _2GG0VW035 959748209ʞٞ#A \ WINDOWS _2GG0VW036 959748209 WINDOWS _2GG0VW037 958690984CRas WINDOWS _2GG0VW038 958690984֥/M WINDOWS _2GG0VW039 9586909844%C WINDOWS _2GG0VW03A 962549906ڧ˧q WINDOWS _2GG0VW03B 9586909843#֫+ WINDOWS _2GG0VW03C 962549906ڣˣB WINDOWS _2GG0VW03D 962549906sc2 WINDOWS _2GG0VW03E 959748209#נhc WINDOWS _2GG0VW03F 962549906Ƞ% WINDOWS _2GG0VW03G 959748209͜ WINDOWS _2GG0VW03H 962549906r WINDOWS _2GG0VW03I 962549906cT WINDOWS _2GG0VW03J 962549906\ WINDOWS _2GG0VW03K 959748209M>./ WINDOWS _2GG0VW03L 962549906 ԏ WINDOWS _2GG0VW03M 962549906ŏp WINDOWS _2GG0VW03N 959748209h WINDOWS _2GG0VW03O 958690984T@-t WINDOWS _2GG0VW03P 958690984ۃȃI WINDOWS _2GG0VW03Q 958690984vrL WINDOWS _2GG0VW03R 9586909848$r WINDOWS _2GG0VW03S 958690984r0mmVfd WINDOWS _2GG0VW03T 958690984Bf! h tT COMMENT RESERVED VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment" 11formsetformset frsActato1oAutoRelease = .T. WindowType = 2 ReadCycle = .T. ReadLock = .T. ReleaseWindows = .T. Name = "frsActato1" PROCEDURE ReadShow IF m.schimb SCATTER MEMVAR SELE car LOCA FOR m.codcar = car.codcar m.dencar = car.dencar SELE ato m.denums = sec.densec m.dentpa = tpa.dentpa ENDIF SHOW GET m.dencar SHOW GET m.denums SHOW GET m.denato SHOW GET m.dentpa SHOW GET m.csspe SHOW GET m.sinit SHOW GET m.puk SHOW GET m.puo SHOW GET m.marca ENDPROC PROCEDURE Unload *- [CONVERTER] Restore environment IF TYPE("rborder") == 'C' SET READBORDER &rborder ENDIF IF TYPE("talkstat") == 'C' IF m.talkstat = "ON" SET TALK ON ENDIF ENDIF IF TYPE("compstat") == 'C' IF m.compstat = "ON" SET COMPATIBLE ON ENDIF ENDIF SET SKIP OF BAR _MFI_CLOSE OF ferestre .F. ENDPROC PROCEDURE Load *- [CONVERTER] Remember environment PRIVATE m.compstat, m.currarea, m.rborder, m.talkstat IF SET("TALK") = "ON" SET TALK OFF m.talkstat = "ON" ELSE m.talkstat = "OFF" ENDIF m.compstat = SET("COMPATIBLE") SET COMPATIBLE FOXPLUS m.rborder = SET("READBORDER") SET READBORDER ON m.currarea = SELECT() ENDPROC [BB%UHEB<pe criterii: Total parc, Sectie, Tip auto, Auto; la ModificU T T sel.spr%  HL uT lischim T liauft T liaufcG(("denato"SET FILTER TO &cnd  G(USELFNSPRLISREPMessage,Validx1Q211a2Q1QBbbA2Xt)B`%Of`UBBarem km, Sch. UleiUMessage,11/)Lq%`wqU0-B$Km.echivalent Sold la zi cu Sch.UleiUMessage,11@)"frsActato1.MISCAR.PageFrame1.Page1 cmgList102formformMISCAR frsActato1Top = 30 Left = 6 Height = 318 Width = 580 DoCreate = .T. AutoCenter = .F. BorderStyle = 2 Caption = (" Actualizare FISA AUTO (cod < 100)") Closable = .F. FontName = "Arial Narrow" FontSize = 10 HalfHeightCaption = .F. MaxButton = .F. MinButton = .F. Movable = .T. WindowState = 0 ZoomBox = .F. ColorSource = 5 BackColor = 192,192,192 FillColor = 192,192,192 Name = "MISCAR" PROCEDURE Load SET SKIP OF MENU _MSYSMENU .T. SET SKIP OF PAD FERESTRE OF _MSYSMENU .F. ON KEY LABEL ESC DO adesc2 ON KEY LABEL F2 DO ord2 DIMENSION ato[1,2] ON KEY LABEL CTRL+END DO adesc2 PUBLIC m.cnd, m.ca, m.cm, m.cp, m.tt m.cnd = "" m.tt = "" m.ca = 0 m.cp = 0 m.cm = 0 m.crzv = 0 m.nrato = 0 m.poz = 0 m.tar = 0 m.inca =.F. m.schimb =.F. m.sters =.F. m.stersf =.F. m.codato = 0 m.codatob = m.codato m.fnc= 1 m.denm =0 m.denato ="" m.dato = "" m.dennou ="" m.denn = .F. m.sufn = .F. m.marca ="" m.paramtr="" m.capacit="" m.capcil ="" m.nrinv ="" m.tipa=1 m.mesaj ="" m.datin = m.datac m.kmtot= 0 m.kmech = 0 m.datrc1= m.datin m.kmrc1 = 0 m.kmecr1 = 0 m.datrc2= m.datin m.kmecr2 = 0 m.datrc3= m.datin m.kmrc3 = 0 m.kmecr3 = 0 m.datav = m.datin m.kmav = 0 m.datsu = m.datin m.kmecu = 0 m.denums="" m.dentpa="" m.dencar="" m.csspe = 0 m.csumot= 0 m.csuhid= 0 m.csutra= 0 m.cslfri= 0 m.cslatg= 0 m.uml='Lt' m.umu='Lt' m.umc='Lt' m.umt='Km' m.bar1= 0 m.bar2= 0 m.bar3= 0 m.bar4= 0 m.bar5= 0 m.puk = 0 m.puo = 0 m.sinit = 0 m.coda = 0 m.denca = "" m.codca = 0 m.cssp = 0 m.sini = 0 m.cup = 0 m.tau = 0 DO mediu SELE car SET ORDER TO "dencar" m.dencar = car.dencar m.dencarb= m.dencar IF USED("prs") SELECT prs ELSE SELECT 0 USE (LOCFILE("prs.dbf","DBF","Unde e Tarif prs?")); AGAIN ALIAS prs EXCLUSIVE ENDIF IF USED("tpa") SELECT tpa SET ORDER TO TAG "tip" ELSE SELECT 0 USE (LOCFILE("tpa.dbf","DBF","Unde e Tip aut?")); AGAIN ALIAS tpa ; ORDER TAG "tip" EXCLUSIVE ENDIF IF USED("sec") SELECT sec SET ORDER TO TAG "codsec" ELSE SELECT 0 USE (LOCFILE(".\database\sec.dbf","DBF","Unde e Compartim?")); AGAIN ALIAS sec ; ORDER TAG "codsec" EXCLUSIVE ENDIF SELE ato CALCULATE MAX(ato.codato) TO m.denm SET ORDER TO "denato" m.nrato = inctab("ato", "ato", 2) m.codato = ato[1,2] m.denato = ato[1,1] GO TOP SCATTER MEMVAR SET RELATION OFF INTO sec SET RELATION TO sec INTO sec ADDITIVE SET RELATION OFF INTO tpa SET RELATION TO tip INTO tpa ADDITIVE *DO whalf IF WEXIST("stolist" ) RELEASE WINDOW "stolist" ENDIF DEFINE WINDOW "stolist" FROM 20,0 TO 36,85 NOFLOAT NOGROW ; NOZOOM CLOSE ENDPROC %%U;8B/Modificarea datelor unui Auto urmat de salvareU% 7 T a T - T -T!C       -%     USCHIMBINCASTERSNRINVSALVEZADAUGMODIFICOKDENNOUSODISABCACMCPVERIFSELABCNC' UMessage,ValidkWhen12Aq!qqqA211Kg)z%+U.+B"Permite introducerea unui Auto nouU % 7 T a T - T -^}( 2T #     T T T T!C  UINCASCHIMBSTERSATOCODATODENMDENNOUADAUGMODIFICSALVEZOKVERIFCMCACPSODISABDENATOMessage,Valid^12AaQ!qqq!1>Z)h%Y%U74B+Terminare procedur, sterge rnduri marcateU"T T T T T T  T  T  T ~ %C  > C  GN-<,T UCODAATOCODATODENCADENCARCODCACODCARCSSPCSSPESINISINITCUPNRINVTAUTIPDENATOMISCARMESAJMessage,Validg1A2!!!!!!!!!AAARQQ1Gc)C**O%UBDezactivare machetU T - T - T -T T T T  * ¿,  G((denatoG(UINCASCHIMBSTERSCMCACPTTMISCARADAUGMODIFICDENUMSDENTPAOKTARDENATOMessage,ValidO12!b1/K)*C3%XoiU(%BBarem km, sch.Ulei realizat UMessage,1Q18) commandgroup pageframe pageframe PageFrame1frsActato1.MISCARErasePage = .F. PageCount = 1 BorderWidth = 0 Top = 0 Left = 0 Width = 30000 Height = 30004 Tabs = .F. Name = "PageFrame1" Page1.Caption = "Page1" Page1.BackStyle = 0 Page1.Name = "Page1" shapeshape shpShape1"frsActato1.MISCAR.PageFrame1.Page1Top = 101 Left = 3 Height = 89 Width = 560 BackStyle = 0 FillStyle = 1 ReleaseErase = .F. SpecialEffect = 1 ColorSource = 3 Name = "shpShape1" shapeshape shpShape3"frsActato1.MISCAR.PageFrame1.Page1Top = 229 Left = 3 Height = 52 Width = 568 BackStyle = 0 FillStyle = 1 ReleaseErase = .F. SpecialEffect = 1 ColorSource = 3 Name = "shpShape3" linelinelinLine4"frsActato1.MISCAR.PageFrame1.Page1VHeight = 52 Left = 136 Top = 229 Width = 0 ReleaseErase = .F. Name = "linLine4" linelinelinLine5"frsActato1.MISCAR.PageFrame1.Page1VHeight = 48 Left = 396 Top = 230 Width = 0 ReleaseErase = .F. Name = "linLine5" labellabellblNou2"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("nou") Height = 16 Left = 3 Top = 47 Width = 21 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblNou2" labellabel lblHr_1946"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("HR(194") Height = 16 Left = 463 Top = 219 Width = 38 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblHr_1946" labellabel lblLabel7"frsActato1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = (" ") Height = 16 Left = 407 Top = 273 Width = 3 ReleaseErase = .F. ColorSource = 3 Name = "lblLabel7" labellabel lblLabel8"frsActato1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = (" ") Height = 16 Left = 134 Top = 219 Width = 3 ReleaseErase = .F. ColorSource = 3 Name = "lblLabel8" labellabel lblLabel9"frsActato1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = (" ") Height = 16 Left = 134 Top = 273 Width = 3 ReleaseErase = .F. ColorSource = 3 Name = "lblLabel9" labellabel lblMotor10"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("motor") Height = 16 Left = 175 Top = 237 Width = 31 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblMotor10" labellabel lblFrin_11"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("frina") Height = 16 Left = 446 Top = 237 Width = 24 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblFrin_11" labellabel lblAntigel12"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("antigel") Height = 16 Left = 485 Top = 237 Width = 36 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblAntigel12" labellabel lblConsum_s13"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Consum specific") Height = 16 Left = 236 Top = 219 Width = 88 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblConsum_s13" labellabel lblUlei14"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Ulei") Height = 16 Left = 141 Top = 256 Width = 20 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblUlei14" labellabel lblKm_parc_15"frsActato1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("Km.parc.") Height = 16 Left = 10 Top = 146 Width = 46 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblKm_parc_15" labellabel lblSectia16"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Sectia") Height = 16 Left = 211 Top = 0 Width = 33 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblSectia16" labellabel lblData17"frsActato1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("Data") Height = 16 Left = 10 Top = 128 Width = 24 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblData17" labellabel lblIntrare18"frsActato1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("intrare") Height = 16 Left = 73 Top = 109 Width = 34 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblIntrare18" labellabel lblSch_anve19"frsActato1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("sch.anvel.") Height = 16 Left = 317 Top = 109 Width = 53 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblSch_anve19" labellabel lblStoc_ini20"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Stoc init.") Height = 16 Left = 11 Top = 200 Width = 48 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblStoc_ini20" labellabellblUm_21"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Um.") Height = 16 Left = 362 Top = 237 Width = 20 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblUm_21" labellabellblUm_22"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Um.") Height = 16 Left = 536 Top = 237 Width = 20 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblUm_22" labellabellblLt23"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Lt") Height = 16 Left = 144 Top = 200 Width = 11 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblLt23" labellabel lblNr_inv_24"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Nr.Inv.") Height = 16 Left = 209 Top = 18 Width = 35 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblNr_inv_24" labellabel lblCapacita25"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Capacitate trac.") Height = 16 Left = 398 Top = 18 Width = 82 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblCapacita25" labellabel lblTransm_26"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("transm.") Height = 16 Left = 228 Top = 237 Width = 39 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblTransm_26" labellabel lblHidrau_27"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("hidrau.") Height = 16 Left = 289 Top = 237 Width = 37 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblHidrau_27" labellabel lblKm_echiv28"frsActato1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("Km.echiv.") Height = 16 Left = 10 Top = 164 Width = 51 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblKm_echiv28" labellabel lblRep_capi29"frsActato1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("rep.capital") Height = 16 Left = 144 Top = 109 Width = 55 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblRep_capi29" labellabel lblRep_rt_230"frsActato1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("rep.RT.2") Height = 16 Left = 255 Top = 109 Width = 43 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblRep_rt_230" labellabel lblNr_ide_31"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Nr.Ide.") Height = 16 Left = 210 Top = 55 Width = 35 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblNr_ide_31" labellabel lblMarca32"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Marca") Height = 16 Left = 213 Top = 36 Width = 31 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblMarca32" labellabel lblLei_km33"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("lei/Km") Height = 16 Left = 357 Top = 200 Width = 32 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblLei_km33" labellabel lblCap_cili34"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Cap.cilindr.") Height = 16 Left = 420 Top = 0 Width = 60 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblCap_cili34" labellabel lblLichi35"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Lichi") Height = 16 Left = 406 Top = 255 Width = 26 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblLichi35" labellabellbl_36"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("<") Height = 16 Left = 204 Top = 0 Width = 6 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lbl_36" labellabellbl_37"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = (">") Height = 16 Left = 353 Top = 0 Width = 6 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lbl_37" labellabellblB138"frsActato1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("b1") Height = 16 Left = 146 Top = 149 Width = 13 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblB138" labellabellblB239"frsActato1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("b2") Height = 16 Left = 241 Top = 147 Width = 13 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblB239" labellabellblB340"frsActato1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("b3") Height = 16 Left = 411 Top = 148 Width = 13 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblB340" labellabellblB441"frsActato1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("b4") Height = 16 Left = 315 Top = 166 Width = 13 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblB441" labellabellblB542"frsActato1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("b5") Height = 16 Left = 493 Top = 148 Width = 13 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblB542" labellabellblUm43"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Um") Height = 16 Left = 86 Top = 237 Width = 17 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblUm43" labellabel lblSch_u_re44"frsActato1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("sch.U.real") Height = 16 Left = 414 Top = 109 Width = 52 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblSch_u_re44" labellabel lblSch_ulei45"frsActato1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("sch.uleiPl") Height = 16 Left = 496 Top = 109 Width = 51 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblSch_ulei45" labellabellbl_46"frsActato1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = (">") Height = 16 Left = 511 Top = 69 Width = 6 ReleaseErase = .F. ColorSource = 3 Name = "lbl_46" labellabellblTip47"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Tip") Height = 16 Left = 443 Top = 51 Width = 16 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblTip47" labellabellbl_48"frsActato1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("<") Height = 16 Left = 394 Top = 69 Width = 6 ReleaseErase = .F. ColorSource = 3 Name = "lbl_48" labellabel lblCarburan49"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Carburant") Height = 16 Left = 26 Top = 219 Width = 53 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblCarburan49" labellabel lblNr_imatr50"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Nr.Imatriculare/Nume") Height = 16 Left = 16 Top = 0 Width = 110 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblNr_imatr50" labellabel lblCap_reze51"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("cap.rezervor") Height = 16 Left = 416 Top = 36 Width = 64 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblCap_reze51" labellabellbl__52"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("<<") Height = 16 Left = 193 Top = 200 Width = 12 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lbl__52" labellabel lblLei_ore_53"frsActato1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("lei/Ore>>") Height = 16 Left = 503 Top = 200 Width = 45 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblLei_ore_53" comboboxcombobox cboDenato54"frsActato1.MISCAR.PageFrame1.Page17FontBold = .F. FontName = "MS Sans Serif" FontSize = 8 RowSourceType = 5 RowSource = "ato" Value = 1 ControlSource = "m.denato" Enabled = .T. Height = 20 Left = 10 SpecialEffect = 1 Style = 2 Top = 21 Width = 173 ReleaseErase = .F. ColorSource = 3 BorderColor = 255,128,0 Name = "cboDenato54" PROCEDURE Message RETURN "Alegeti un Auto, selectare cu Litera" ENDPROC PROCEDURE Valid IF NOT EMPTY(m.denato) m.poz = ASCAN(ato, m.denato, 1) IF m.poz <> 0 m.codato = ato[ASUBSCRIPT(ato, m.poz, 1), 2] LOCA FOR m.codato = ato.codato SCATTER MEMVAR SHOW GETS m.cm = 0 m.ca = m.codato m.cp = 0 ENDIF if m.schimb SHOW GET m.SALVEZ ENABLE ENDIF IF NOT m.inca m.dennou = m.denato SHOW GET m.list ENABLE ENDIF SHOW GET m.dennou DISABLE WAIT WINDOW "-cod auto = "+str(m.ca,5) NOWAIT ELSE IF m.inca SHOW GET m.dennou ENABLE ENDIF ENDIF ENDPROC PROCEDURE When *SHOW GET m.dennou ENABLE RETURN m.nrato > 0 ENDPROC H%2|`UVSBJ =alege, = revine, sau NOU+= partener nouUy%C rF. ,benlist N C^<,benlistF UDENCARCARAFISCODCARREAFISATOUMessage,ValidWhen+112qqQrA22fz )B%SjdU# BBarem km, Sch. AnvelopaUMessage,113) commandgroup"frsActato1.MISCAR.PageFrame1.Page1textboxtextbox txtDennou55"frsActato1.MISCAR.PageFrame1.Page1'FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.dennou" Enabled = .F. Format = "!K" Height = 20 Left = 28 Margin = 0 SpecialEffect = 1 Top = 46 Width = 165 ReleaseErase = .F. ColorSource = 3 BorderColor = 255,128,0 Name = "txtDennou55" rPROCEDURE ErrorMessage RETURN "Introduceti o denumire" ENDPROC PROCEDURE Valid IF NOT EMPTY(m.dennou) m.codato = ASCAN(ato, m.dennou,1) IF m.codato = 0 m.denm = m.denm + 1 m.codato = m.denm m.nrato = m.nrato+1 DIMENSION ato[m.nrato,2] ato[m.nrato, 1] = m.dennou ato[m.nrato,2] = m.codato m.denn = .T. ELSE m.codato = ato[ASUBSCRIPT(ato,m.codato,1),2] SHOW GET m.dennou DISABLE ENDIF m.denato = m.dennou m.dennou = "" SHOW GET m.denato DISABLE SHOW GET m.dennou DISABLE SHOW GET m.salvez ENABLE ENDIF ENDPROC <=%Ja[UBBarem km, RT2.UMessage,1q1*)`s%Ne_UBBarem km, Rep.Cap.UMessage,11.)%vU0% )UFNCSOENABSODISABValid,11qqA1B) cmgModific101 commandgrouptextboxtextbox txtDenums56"frsActato1.MISCAR.PageFrame1.Page1&FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.denums" Enabled = .F. Format = "!K" Height = 19 Left = 257 Margin = 0 SpecialEffect = 1 Top = 0 Width = 91 ReleaseErase = .F. ColorSource = 3 BorderColor = 255,128,0 Name = "txtDenums56" PROCEDURE Message RETURN " Del+Enter -alege sectia, inchide Ctrl+W" ENDPROC PROCEDURE Valid IF EMPTY(m.densec) SELECT sec DO afis IN proc.prg BROWSE FIELDS sec.densec,sec.codsec NOAPPE NODELE NOEDIT ; WHEN reafis() WINDOW "benlist" COLOR SCHEME 10 m.denums = sec.densec m.cp = sec.codsec m.ca = 0 m.cm = 0 RELEASE WINDOW "benlist" SELE ato SHOW GET m.denums ENDIF ENDPROC PROCEDURE When m.densec = m.denums ENDPROC  %mU41B( Del+Enter -alege sectia, inchide Ctrl+WU%C Fproc.prg. ,benlist N CT T T  T T <,benlistF U DENTPATPAAFISPROCPRGTIPREAFISCMCACPATOMessage,Validd12q1!!qB1D`) commandgroup"frsActato1.MISCAR.PageFrame1.Page1cmgOk99textboxtextbox txtNrinv57"frsActato1.MISCAR.PageFrame1.Page1FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.nrinv" Enabled = .F. Height = 20 Left = 257 Margin = 0 SpecialEffect = 1 Top = 17 Width = 60 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,192 Name = "txtNrinv57" textboxtextbox txtMarca58"frsActato1.MISCAR.PageFrame1.Page1$FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.marca" Enabled = .F. Format = "K" Height = 20 Left = 257 Margin = 0 SpecialEffect = 1 Top = 35 Width = 90 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,192 Name = "txtMarca58" textboxtextbox txtParamtr59"frsActato1.MISCAR.PageFrame1.Page1)FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.paramtr" Enabled = .F. Format = "K" Height = 20 Left = 257 Margin = 0 SpecialEffect = 1 Top = 54 Width = 105 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,192 Name = "txtParamtr59" textboxtextbox txtCapcil60"frsActato1.MISCAR.PageFrame1.Page1FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.capcil" Enabled = .F. Height = 19 Left = 507 Margin = 0 SpecialEffect = 1 Top = 0 Width = 50 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,192 Name = "txtCapcil60" DPROCEDURE Message RETURN "Capacitatea cilindrica cmc/lt" ENDPROC %TkeU$!BCapacit. de tractare to.UMessage,114)textboxtextbox txtCapacit61"frsActato1.MISCAR.PageFrame1.Page1(FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.capacit" Enabled = .F. Format = "K" Height = 20 Left = 507 Margin = 0 SpecialEffect = 1 Top = 17 Width = 50 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,192 Name = "txtCapacit61" ?PROCEDURE Message RETURN "Capacit. de tractare to." ENDPROC  %YpjU)&BCapacitatea cilindrica cmc/ltUMessage,1a19)textboxtextbox txtCrzv62"frsActato1.MISCAR.PageFrame1.Page1.FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.crzv" Enabled = .F. Height = 20 Left = 507 Margin = 0 SpecialEffect = 1 Top = 35 Width = 25 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,192 Name = "txtCrzv62" FPROCEDURE Message RETURN "-cantitate carburant maxim (Lt)" ENDPROC %[rlU+(B-cantitate carburant maxim (Lt)UMessage,11;)textboxtextbox txtDentpa63"frsActato1.MISCAR.PageFrame1.Page1'FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.dentpa" Enabled = .F. Format = "K" Height = 20 Left = 405 Margin = 0 SpecialEffect = 1 Top = 68 Width = 100 ReleaseErase = .F. ColorSource = 3 BorderColor = 255,128,0 Name = "txtDentpa63" PROCEDURE Message RETURN " Del+Enter -alege sectia, inchide Ctrl+W" ENDPROC PROCEDURE Valid IF EMPTY(m.dentpa) SELECT tpa DO afis IN proc.prg BROWSE FIELDS tpa.dentpa,tpa.tip NOAPPE NODELE NOEDIT ; WHEN reafis() WINDOW "benlist" COLOR SCHEME 10 m.dentpa = tpa.dentpa m.tip = tpa.tip m.cm = m.tip m.ca = 0 m.cp = 0 RELEASE WINDOW "benlist" SELE ato ENDIF ENDPROC RArial Narrow, 0, 10, 5, 16, 13, 15, 3, 0 MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0  cmgAdaug100 commandgroup commandgroup"frsActato1.MISCAR.PageFrame1.Page1 commandgroup commandgroup"frsActato1.MISCAR.PageFrame1.Page1 cmgAnulez98 commandgroup commandgroup"frsActato1.MISCAR.PageFrame1.Page1 cmgSalvez97 commandgroup commandgroup"frsActato1.MISCAR.PageFrame1.Page1txtUml96textboxtextbox txtCslatg95checkboxcheckboxchkFnc64"frsActato1.MISCAR.PageFrame1.Page1Top = 89 Left = 245 Height = 17 Width = 94 FontName = "MS Sans Serif" FontSize = 8 Caption = ("Functionare") Value = 0 ControlSource = "m.fnc" Enabled = .T. SpecialEffect = 1 Style = 0 TerminateRead = .F. ReleaseErase = .F. ColorSource = 3 Name = "chkFnc64" MPROCEDURE Valid IF m.fnc=1 DO soenab else DO sodisab endif ENDPROC FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 0 ControlSource = "m.uml" Enabled = .F. Height = 20 Left = 527 Margin = 0 SpecialEffect = 1 Top = 254 Width = 35 ReleaseErase = .F. ColorSource = 3 Name = "txtUml96" textboxtextbox txtDatin65"frsActato1.MISCAR.PageFrame1.Page10FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = { / / } ControlSource = "m.datin" Enabled = .F. Format = "K" Height = 20 Left = 58 Margin = 0 SpecialEffect = 1 Top = 127 Width = 55 ReleaseErase = .F. ColorSource = 3 Name = "txtDatin65" textboxtextbox txtKmtot66"frsActato1.MISCAR.PageFrame1.Page1%FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "m.kmtot" Enabled = .F. Format = "K" Height = 20 Left = 73 Margin = 0 SpecialEffect = 1 Top = 145 Width = 40 ReleaseErase = .F. ColorSource = 3 Name = "txtKmtot66" textboxtextbox txtKmech67"frsActato1.MISCAR.PageFrame1.Page1%FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "m.kmech" Enabled = .F. Format = "K" Height = 20 Left = 73 Margin = 0 SpecialEffect = 1 Top = 163 Width = 40 ReleaseErase = .F. ColorSource = 3 Name = "txtKmech67" textboxtextbox txtDatrc168"frsActato1.MISCAR.PageFrame1.Page13FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = { / / } ControlSource = "m.datrc1" Enabled = .F. Format = "K" Height = 20 Left = 147 Margin = 0 SpecialEffect = 1 Top = 127 Width = 55 ReleaseErase = .F. ColorSource = 3 Name = "txtDatrc168" textboxtextbox txtBar169"frsActato1.MISCAR.PageFrame1.Page1FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "m.bar1" Enabled = .F. Height = 20 Left = 167 Margin = 0 SpecialEffect = 1 Top = 146 Width = 35 ReleaseErase = .F. ColorSource = 3 Name = "txtBar169" 9PROCEDURE Message RETURN "Barem km, Rep.Cap." ENDPROC "frsActato1.MISCAR.PageFrame1.Page1textboxtextbox"frsActato1.MISCAR.PageFrame1.Page1 txtCslfri94textboxtextbox"frsActato1.MISCAR.PageFrame1.Page1textboxtextbox txtKmecr170"frsActato1.MISCAR.PageFrame1.Page1(FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "m.kmecr1" Enabled = .F. Format = "K" Height = 20 Left = 162 Margin = 0 SpecialEffect = 1 Top = 166 Width = 40 ReleaseErase = .F. ColorSource = 3 Name = "txtKmecr170" textboxtextbox txtDatrc271"frsActato1.MISCAR.PageFrame1.Page13FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = { / / } ControlSource = "m.datrc2" Enabled = .F. Format = "K" Height = 20 Left = 244 Margin = 0 SpecialEffect = 1 Top = 127 Width = 55 ReleaseErase = .F. ColorSource = 3 Name = "txtDatrc271" textboxtextbox txtBar272"frsActato1.MISCAR.PageFrame1.Page1FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "m.bar2" Enabled = .F. Height = 20 Left = 263 Margin = 0 SpecialEffect = 1 Top = 146 Width = 35 ReleaseErase = .F. ColorSource = 3 Name = "txtBar272" 5PROCEDURE Message RETURN "Barem km, RT2." ENDPROC txtUmu93textboxtextbox"frsActato1.MISCAR.PageFrame1.Page1 txtCsuhid92textboxtextbox"frsActato1.MISCAR.PageFrame1.Page1 txtCsutra91textboxtextbox txtKmecr273"frsActato1.MISCAR.PageFrame1.Page1(FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "m.kmecr2" Enabled = .F. Format = "K" Height = 20 Left = 258 Margin = 0 SpecialEffect = 1 Top = 164 Width = 40 ReleaseErase = .F. ColorSource = 3 Name = "txtKmecr273" textboxtextbox txtDatav74"frsActato1.MISCAR.PageFrame1.Page11FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = { / / } ControlSource = "m.datav" Enabled = .F. Format = "K" Height = 20 Left = 316 Margin = 0 SpecialEffect = 1 Top = 127 Width = 55 ReleaseErase = .F. ColorSource = 3 Name = "txtDatav74" textboxtextbox txtKmav75"frsActato1.MISCAR.PageFrame1.Page1$FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "m.kmav" Enabled = .F. Format = "K" Height = 20 Left = 331 Margin = 0 SpecialEffect = 1 Top = 147 Width = 40 ReleaseErase = .F. ColorSource = 3 Name = "txtKmav75" textboxtextbox txtBar476"frsActato1.MISCAR.PageFrame1.Page1FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "m.bar4" Enabled = .F. Height = 20 Left = 336 Margin = 0 SpecialEffect = 1 Top = 165 Width = 35 ReleaseErase = .F. ColorSource = 3 Name = "txtBar476" >PROCEDURE Message RETURN "Barem km, Sch. Anvelopa" ENDPROC textboxtextbox"frsActato1.MISCAR.PageFrame1.Page1 txtCsumot90textboxtextbox"frsActato1.MISCAR.PageFrame1.Page1txtUmc89textboxtextboxtextboxtextboxtextbox txtDatrc377"frsActato1.MISCAR.PageFrame1.Page13FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = { / / } ControlSource = "m.datrc3" Enabled = .F. Format = "K" Height = 20 Left = 412 Margin = 0 SpecialEffect = 1 Top = 127 Width = 55 ReleaseErase = .F. ColorSource = 3 Name = "txtDatrc377" textboxtextbox txtBar378"frsActato1.MISCAR.PageFrame1.Page1FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "m.bar3" Enabled = .F. Height = 20 Left = 432 Margin = 0 SpecialEffect = 1 Top = 147 Width = 35 ReleaseErase = .F. ColorSource = 3 Name = "txtBar378" CPROCEDURE Message RETURN "Barem km, sch.Ulei realizat " ENDPROC "frsActato1.MISCAR.PageFrame1.Page1 txtCsspe88textbox"frsActato1.MISCAR.PageFrame1.Page1 txtDencar87textboxtextbox"frsActato1.MISCAR.PageFrame1.Page1!"barem km. pt. sch.ulei realizat"textboxtextbox txtKmecr379"frsActato1.MISCAR.PageFrame1.Page1(FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "m.kmecr3" Enabled = .F. Format = "K" Height = 20 Left = 427 Margin = 0 SpecialEffect = 1 Top = 165 Width = 40 ReleaseErase = .F. ColorSource = 3 Name = "txtKmecr379" KPROCEDURE Message RETURN "Km.echivalent Sold la zi cu Sch.Ulei" ENDPROC txtPuo86textboxtextbox"frsActato1.MISCAR.PageFrame1.Page1txtPuk85textboxtextbox"frsActato1.MISCAR.PageFrame1.Page1chkTar84checkboxcheckboxtextboxtextbox txtDatsu80"frsActato1.MISCAR.PageFrame1.Page11FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = { / / } ControlSource = "m.datsu" Enabled = .F. Format = "K" Height = 20 Left = 493 Margin = 0 SpecialEffect = 1 Top = 127 Width = 55 ReleaseErase = .F. ColorSource = 3 Name = "txtDatsu80" textboxtextbox txtBar581"frsActato1.MISCAR.PageFrame1.Page1FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "m.bar5" Enabled = .F. Height = 20 Left = 513 Margin = 0 SpecialEffect = 1 Top = 147 Width = 35 ReleaseErase = .F. ColorSource = 3 Name = "txtBar581" :PROCEDURE Message RETURN "Barem km, Sch. Ulei" ENDPROC "frsActato1.MISCAR.PageFrame1.Page1 txtSinit83textboxtextbox"frsActato1.MISCAR.PageFrame1.Page1 txtKmecu82textboxtextbox&FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "m.kmecu" Enabled = .F. Format = "K" Height = 20 Left = 509 Margin = 0 SpecialEffect = 1 Top = 167 Width = 40 ReleaseErase = .F. ColorSource = 3 Name = "txtKmecu82" GFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.sinit" Enabled = .F. Height = 20 InputMask = "9999.99" Left = 65 Margin = 0 SpecialEffect = 1 Top = 199 Width = 40 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,192 Name = "txtSinit83" Top = 198 Left = 211 Height = 17 Width = 60 FontName = "MS Sans Serif" FontSize = 8 Caption = ("Tarife") Value = 0 ControlSource = "m.tar" Enabled = .T. SpecialEffect = 1 Style = 0 TerminateRead = .F. ReleaseErase = .F. ColorSource = 3 Name = "chkTar84" PROCEDURE Message RETURN "-alege tip tarif, pt.FAZ / sau MODIFICARE -tarif Nou " ENDPROC PROCEDURE Valid IF m.tar#0 DO afis IN proc.prg SELECT prs if NOT m.schimb LOCA FOR prs.codato=m.ca IF FOUND() BROWSE FOR prs.codato=m.ca FIELDS denprs,tarif,codprs NOAPPE ; NODELE NOEDIT WHEN reafis() WINDOW "benlist" COLOR SCHEME 10 m.denprs = prs.denprs m.codprs = prs.codprs m.tr = prs.tarif DO CASE case m.codprs=1 or m.codprs=2 m.puk=m.tr case m.codprs=3 or m.codprs=4 or m.codprs=5 or m.codprs=6 or m.codprs=7 m.puo=m.tr case m.codprs=8 m.puz=m.tr case m.codprs=9 m.pum=m.tr ENDCASE ELSE WAIT WINDOW "-lipsa Tipuri, operato la MODIFICARE " ENDIF else LOCA FOR prs.codato=m.ca if NOT FOUND() WAIT WINDOW "-Creare Tipuri de Tarife.. " NOWAIT COPY TO tmp FOR prs.codato=1 SELE 0 USE tmp REPL ALL tmp.codato WITH m.ca USE SELE prs APPE FROM tmp.dbf endif BROWSE FOR prs.codato=m.ca FIELDS codato,denprs,tarif,codprs NOAPPE ; NODELE WHEN reafis() WINDOW "benlist" COLOR SCHEME 10 TITLE "Modificare tarife" endif RELEASE WINDOW "benlist" SHOW GET m.puk SHOW GET m.puo SELE ato ENDIF ENDPROC ;""k%['{U+(Bscrie randul de date in fisier U% &T _% %C 4 _T T T T R,Cod auto existent !! H   T!C   %C+C 7 HT!C ¿ %C'   T -USCHIMBDATOATODENATOINCACODATOPUKPUOSINITCSSPESALVEZMODIFICADAUGOKDENNMessage,Valid[12!Q!QQAAA!1A!aBA1;W)"mTT2%U41B( Del+Enter -alege sectia, inchide Ctrl+WU%C Fproc.prg. ,benlist N CT T T T <,benlistF U DENSECSECAFISPROCPRGCODSECREAFISDENUMSCPCACMATOT  UDENSECDENUMSMessage,ValiddWhenq12q1!"qB21D`)TRFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.puk" Enabled = .F. Format = "K" Height = 20 InputMask = "9999.99" Left = 286 Margin = 0 SpecialEffect = 1 Top = 199 Width = 60 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,192 Name = "txtPuk85" FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 0 ControlSource = "m.umu" Enabled = .F. Height = 20 Left = 353 Margin = 0 SpecialEffect = 1 Top = 254 Width = 35 ReleaseErase = .F. ColorSource = 3 Name = "txtUmu93" RFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.puo" Enabled = .F. Format = "K" Height = 20 InputMask = "9999.99" Left = 429 Margin = 0 SpecialEffect = 1 Top = 199 Width = 60 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,192 Name = "txtPuo86" FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 0 ControlSource = "m.dencar" Enabled = .F. Format = "!TK" Height = 20 Left = 9 Margin = 0 SpecialEffect = 1 Top = 236 Width = 60 ReleaseErase = .F. ColorSource = 3 Name = "txtDencar87" PROCEDURE Message RETURN " =alege, = revine, sau NOU+= partener nou" ENDPROC PROCEDURE Valid IF EMPTY(m.dencar) SELECT car DO afis BROWSE FIELDS car.dencar,car.codcar NOAPPE NODELE NOEDIT ; WHEN reafis() WINDOW "benlist" COLOR SCHEME 10 SCATTER MEMVAR RELEASE WINDOW "benlist" SELE ato SHOW GET m.dencar ENDIF ENDPROC PROCEDURE When *m.dencarb = m.dencar ENDPROC S%; U"BIntroduceti o denumireUX%C QT C % T  T  T   T  T   T a "T CC  T  T   UDENNOUCODATOATODENMNRATODENNDENATOSALVEZ ErrorMessage,ValidR12!1QQQ!AB17Sg)EFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.csspe" Enabled = .F. Height = 20 InputMask = "999.99" Left = 9 Margin = 0 SpecialEffect = 1 Top = 254 Width = 40 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,192 Name = "txtCsspe88" FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 0 ControlSource = "m.umc" Enabled = .F. Height = 20 Left = 73 Margin = 0 SpecialEffect = 1 Top = 254 Width = 40 ReleaseErase = .F. ColorSource = 3 Name = "txtUmc89" IFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.csumot" Enabled = .F. Height = 20 InputMask = "999.99" Left = 172 Margin = 0 SpecialEffect = 1 Top = 254 Width = 35 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,192 Name = "txtCsumot90" IFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.csutra" Enabled = .F. Height = 20 InputMask = "999.99" Left = 228 Margin = 0 SpecialEffect = 1 Top = 254 Width = 40 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,192 Name = "txtCsutra91" IFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.cslatg" Enabled = .F. Height = 20 InputMask = "999.99" Left = 485 Margin = 0 SpecialEffect = 1 Top = 254 Width = 35 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,192 Name = "txtCslatg95" IFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.csuhid" Enabled = .F. Height = 20 InputMask = "999.99" Left = 291 Margin = 0 SpecialEffect = 1 Top = 254 Width = 35 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,192 Name = "txtCsuhid92" PROCEDURE Message RETURN "pe criterii: Total parc, Sectie, Tip auto, Auto; la Modific" ENDPROC PROCEDURE Valid m.sel=0 m.fn='' DO sel.spr if m.sel # 0 DO CASE CASE m.sel=1 && cons.parcurs m.fn='lischim' *m.fn='liausi' CASE m.sel=2 && fisa a-u tehnic m.fn='liauft' CASE m.sel=3 && fisa a-u m.fn='liaufc' ENDCASE SET ORDER TO "denato" *DO sela SET FILTER TO &cnd DO lisrep WITH (m.fn) *SET ORDER TO "codato" SET FILTER TO endif ENDPROC IFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.cslfri" Enabled = .F. Height = 20 InputMask = "999.99" Left = 441 Margin = 0 SpecialEffect = 1 Top = 254 Width = 35 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,192 Name = "txtCslfri94" Q%%SU0-B$Alegeti un Auto, selectare cu LiteraUZ%C -T C % "T CC - ^T T  T %  % T   "R,: -cod auto = C ZS% O U DENATOPOZATOCODATOCMCACPSCHIMBSALVEZINCADENNOULISTB UNRATOMessage,Valid`When12!1!1QQBAA!AA22@\} ) ButtonCount = 1 BackStyle = 0 BorderStyle = 0 ControlSource = "m.salvez" Height = 23 Left = 343 SpecialEffect = 1 Top = 288 Width = 54 ReleaseErase = .F. Name = "cmgSalvez97" Command1.Top = 0 Command1.Left = 0 Command1.Height = 23 Command1.Width = 54 Command1.FontName = "MS Sans Serif" Command1.FontSize = 8 Command1.Caption = ("\0 AND NOT DELETED() ENDPROC  ButtonCount = 1 BackStyle = 0 BorderStyle = 0 ControlSource = "m.adaug" Height = 23 Left = 8 SpecialEffect = 1 Top = 287 Width = 61 ReleaseErase = .F. Name = "cmgAdaug100" Command1.Top = 0 Command1.Left = 0 Command1.Height = 23 Command1.Width = 61 Command1.FontName = "MS Sans Serif" Command1.FontSize = 8 Command1.Caption = ("\ QFtmp.dbfU    ,benlist N 'Modificare tarifeC <,benlist FUTARAFISPROCPRGPRSSCHIMBCODATOCADENPRSTARIFCODPRSREAFISTRPUKPUOPUZPUMTMPALLDBFATOMessage,Validr1211q1!!!q11AA1b1AqARBqA1Rn) X? ? 0% z U GNaGNü-12ESC DO adesc212F2DO ord212CTRL+END DO adesc2!7     T T T T T T T T T  T - T - T - T -T T  T T T T T  T - T -T T T T T T !T "T # $T %T &T ' #T (T )T * #T +T , #T -T .T / #T 0T 1 #T 2T 3T 4T 5T 6T 7T 8T 9T :T ;T <LtT =LtT >LtT ?KmT @T AT BT CT DT ET FT GT HT IT JT KT LT MT NOFPG(("dencar"T 5P5T Q 5%Cprs7FR{F4QCprs.dbfDBFUnde e Tarif prs?R%CtpaFSG(("tip"F;QCtpa.dbfDBFUnde e Tip aut?S"tip"%CsecFTG(("codsec"zFKQC.\database\sec.dbfDBFUnde e Compartim?T"codsec"F}( G(("denato"T CatoatoUT CT C#)^ G-TG-(TT G-SG-(VS%CstolistY<,stolist+s,stolist($UƾUWFERESTREESCF2ATOCTRLENDCNDCACMCPTTCRZVNRATOPOZTARINCASCHIMBSTERSSTERSFCODATOCODATOBFNCDENMDENATODATODENNOUDENNSUFNMARCAPARAMTRCAPACITCAPCILNRINVTIPAMESAJDATINDATACKMTOTKMECHDATRC1KMRC1KMECR1DATRC2KMECR2DATRC3KMRC3KMECR3DATAVKMAVDATSUKMECUDENUMSDENTPADENCARCSSPECSUMOTCSUHIDCSUTRACSLFRICSLATGUMLUMUUMCUMTBAR1BAR2BAR3BAR4BAR5PUKPUOSINITCODADENCACODCACSSPSINICUPTAUMEDIUCARDENCARBPRSTPASECINCTABTIPLoad,1Q1rr!!qBA!qA!qAqRaaRQbA2)? %4av$9:6 actato.scx actato.scxJUATOACTATOSCX _2GG0VVZWJ;8 ,stolist: N ' Verificare CUREAFISTTG((codatoUCODATO* H  ST  m.cp = secT  pe sectie  T  m.cm = tipT  pe Tip  T  m.ca = codatoT  pe auto2T tip # 0T  pe rulaj BROWSE FOR &cnd FIELDS CODATO:R, DENATO, NRINV, MARCA, PARAMTR, CAPCIL, CAPACIT, PUK, PUO, UMT, CUP, SEC, CODCAR, DENCAR, SINIT, UMC, CSSPE, CSUMOT, CSUTRA, CSUHID, UMU, TIP NOMENU WINDOW "stolist" COLOR SCHEME 10 WHEN reafis() TITLE "Modificare(ctrl+T-sterge) "+m.tt UCPCNDTTCMCA         U KMTOTKMECHDATINKMECR1DATRC1KMECR2DATRC2KMECR3DATRC3KMECUDATSUKMAVDATAV         U KMTOTKMECHDATINKMECR1DATRC1KMECR2DATRC2KMECR3DATRC3KMECUDATSUKMAVDATAVverif}ord2selasoenab)sodisab"53211q1qaA347H Zs(&)=0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen - WINDOWS _2GG0VW1DD 958690986&5E5 WINDOWS _2GG0VW1DE 9586909862>JUeb3 WINDOWS _2GG0VW1DG 958690986/@Rf WINDOWS _2GG0VW1F6 958690986. ; H W | WINDOWS _2GG0VW1F7 9586909867 D Q ` WINDOWS _2GG0VW1F8 958690986@ M Z i WINDOWS _2GG0VW1F9 958690986I V c r WINDOWS _2GG0VW1FA 958690986R _ l { WINDOWS _2GG0VW1FB 958690986[hu WINDOWS _2GG0VW1FC 958690986er WINDOWS _2GG0VW1FD 958690986x WINDOWS _2GG0VW1FE 958690986 WINDOWS _2GG0VW1G6 958690986 WINDOWS _2GG0VW1G7 958690986)8Gl WINDOWS _2GG0VW1G8 958690986 WINDOWS _2GG0VW1G9 958690986B WINDOWS _2GG0VW1GA 958690986[jy WINDOWS _2GG0VW1GB 95869098612 WINDOWS _2GG0VW1GC 958690986k!/ WINDOWS _2GG0VW1GD 958690986 7!. WINDOWS _2GG0VW1GE 958690986!!!!!G$- WINDOWS _2GG0VW1GF 958690986$$$$"% WINDOWS _2GG0VW1GG 9586909868&G&V&d&& WINDOWS _2GG0VW1GH 958690986''''' WINDOWS _2GG0VW1GI 958690986))$)2)W) WINDOWS _2GG0VW1GJ 958690986m*|**** WINDOWS _2GG0VW1GK 958690986+++,%, COMMENT FONTINFO ;-8FVERSION = 3.00formsetformsetfrsCatd1ZWindowType = 2 ReadCycle = .T. ReadLock = .T. ReleaseWindows = .T. Name = "frsCatd1" PROCEDURE Load *- [CONVERTER] Remember environment PRIVATE m.compstat, m.currarea, m.rborder, m.talkstat IF SET("TALK") = "ON" SET TALK OFF m.talkstat = "ON" ELSE m.talkstat = "OFF" ENDIF m.compstat = SET("COMPATIBLE") SET COMPATIBLE FOXPLUS m.rborder = SET("READBORDER") SET READBORDER ON m.currarea = SELECT() ENDPROC PROCEDURE Unload *- [CONVERTER] Restore environment IF TYPE("rborder") == 'C' SET READBORDER &rborder ENDIF IF TYPE("talkstat") == 'C' IF m.talkstat = "ON" SET TALK ON ENDIF ENDIF IF TYPE("compstat") == 'C' IF m.compstat = "ON" SET COMPATIBLE ON ENDIF ENDIF ENDPROC formformcatfrsCatd1FontName = "MS Sans Serif" FontSize = 8 Width = 172 Height = 208 Top = 13 Left = 6 AutoCenter = .F. ColorSource = 5 BackColor = 192,192,192 FillColor = 192,192,192 DisabledBackColor = 192,192,192 Caption = (" Categorii Drum ") BorderStyle = 1 Sizable = .F. MDIChild = .F. MaxButton = .F. ZoomBox = .F. Movable = .T. Closable = .T. MinButton = .F. HalfHeightCaption = .F. Name = "cat"  PROCEDURE Load PRIVAT m.m, m.k, m.t, m.l, m.e, m.h, m.mk, m.kk, m.tk, m.lk, m.ek, m.hk STOR 0 TO m.mk, m.kk, m.tk, m.lk, m.ek, m.hk m.m = 0.9 m.k = 1.0 m.t = 1.1 m.l = 1.2 m.e = 1.4 m.h = 1.6 m.btra = 0 m.mk=0 SHOW GETS _CUROBJ=OBJNUM(m.mk) ENDPROC 26 pageframe pageframe PageFrame1 frsCatd1.catTop = 0 Left = 0 Height = 30000 Width = 30000 PageCount = 1 BorderWidth = 0 Tabs = .F. ErasePage = .F. DrawFrame = .F. Name = "PageFrame1" Page1.BackStyle = 0 Page1.Name = "Page1" labellabellbl__m1frsCatd1.cat.PageFrame1.Page1FontName = "MS Sans Serif" FontSize = 8 Top = 29 Left = 18 Width = 22 Height = 13 ColorSource = 3 Caption = ("1-M") ColorSource = 3 ReleaseErase = .F. Name = "lbl__m1" labellabellbl__k2frsCatd1.cat.PageFrame1.Page1FontName = "MS Sans Serif" FontSize = 8 Top = 43 Left = 18 Width = 20 Height = 13 ColorSource = 3 Caption = ("2-K") ColorSource = 3 ReleaseErase = .F. Name = "lbl__k2" labellabellbl__t3frsCatd1.cat.PageFrame1.Page1FontName = "MS Sans Serif" FontSize = 8 Top = 57 Left = 18 Width = 20 Height = 13 ColorSource = 3 Caption = ("3-T") ColorSource = 3 ReleaseErase = .F. Name = "lbl__t3" labellabellbl__l4frsCatd1.cat.PageFrame1.Page1FontName = "MS Sans Serif" FontSize = 8 Top = 72 Left = 18 Width = 19 Height = 13 ColorSource = 3 Caption = ("4-L") ColorSource = 3 ReleaseErase = .F. Name = "lbl__l4" labellabellbl__e5frsCatd1.cat.PageFrame1.Page1FontName = "MS Sans Serif" FontSize = 8 Top = 86 Left = 18 Width = 20 Height = 13 ColorSource = 3 Caption = ("5-E") ColorSource = 3 ReleaseErase = .F. Name = "lbl__e5" labellabellbl__h6frsCatd1.cat.PageFrame1.Page1FontName = "MS Sans Serif" FontSize = 8 Top = 100 Left = 18 Width = 21 Height = 13 ColorSource = 3 Caption = ("6-H") ColorSource = 3 ReleaseErase = .F. Name = "lbl__h6" labellabel lblKm_ef_7frsCatd1.cat.PageFrame1.Page1FontName = "MS Sans Serif" FontSize = 8 Top = 14 Left = 105 Width = 36 Height = 13 ColorSource = 3 Caption = ("km.ef.") ColorSource = 3 ReleaseErase = .F. Name = "lblKm_ef_7" labellabel lblCoef_8frsCatd1.cat.PageFrame1.Page1FontName = "MS Sans Serif" FontSize = 8 Top = 14 Left = 51 Width = 30 Height = 13 ColorSource = 3 Caption = ("coef.") ColorSource = 3 ReleaseErase = .F. Name = "lblCoef_8" labellabel lblBascular9frsCatd1.cat.PageFrame1.Page1FontName = "MS Sans Serif" FontSize = 8 Top = 129 Left = 12 Width = 134 Height = 13 ColorSource = 3 Caption = ("Basculare-Tractare(Km)") ColorSource = 3 ReleaseErase = .F. Name = "lblBascular9" textboxtextboxtxtMk10frsCatd1.cat.PageFrame1.Page1FontName = "MS Sans Serif" FontSize = 8 FontBold = .F. Top = 28 Left = 104 Width = 35 Height = 17 ColorSource = 3 ReleaseErase = .F. Format = "@K" Value = 0 Enabled = .T. Margin = 0 BorderStyle = 0 ControlSource = "m.mk" SpecialEffect = 1 Name = "txtMk10" textboxtextboxtxtKk11frsCatd1.cat.PageFrame1.Page1FontName = "MS Sans Serif" FontSize = 8 FontBold = .F. Top = 42 Left = 104 Width = 35 Height = 17 ColorSource = 3 ReleaseErase = .F. Format = "@K" Value = 0 Enabled = .T. Margin = 0 BorderStyle = 0 ControlSource = "m.kk" SpecialEffect = 1 Name = "txtKk11" textboxtextboxtxtTk12frsCatd1.cat.PageFrame1.Page1FontName = "MS Sans Serif" FontSize = 8 FontBold = .F. Top = 56 Left = 104 Width = 35 Height = 17 ColorSource = 3 ReleaseErase = .F. Format = "@K" Value = 0 Enabled = .T. Margin = 0 BorderStyle = 0 ControlSource = "m.tk" SpecialEffect = 1 Name = "txtTk12" textboxtextboxtxtLk13frsCatd1.cat.PageFrame1.Page1FontName = "MS Sans Serif" FontSize = 8 FontBold = .F. Top = 71 Left = 104 Width = 35 Height = 17 ColorSource = 3 ReleaseErase = .F. Format = "@K" Value = 0 Enabled = .T. Margin = 0 BorderStyle = 0 ControlSource = "m.lk" SpecialEffect = 1 Name = "txtLk13" textboxtextboxtxtEk14frsCatd1.cat.PageFrame1.Page1FontName = "MS Sans Serif" FontSize = 8 FontBold = .F. Top = 85 Left = 104 Width = 35 Height = 17 ColorSource = 3 ReleaseErase = .F. Format = "@K" Value = 0 Enabled = .T. Margin = 0 BorderStyle = 0 ControlSource = "m.ek" SpecialEffect = 1 Name = "txtEk14" textboxtextboxtxtHk15frsCatd1.cat.PageFrame1.Page1FontName = "MS Sans Serif" FontSize = 8 FontBold = .F. Top = 99 Left = 104 Width = 35 Height = 17 ColorSource = 3 ReleaseErase = .F. Format = "@K" Value = 0 Enabled = .T. Margin = 0 BorderStyle = 0 ControlSource = "m.hk" SpecialEffect = 1 Name = "txtHk15" 2PROCEDURE Valid _CUROBJ=OBJNUM(m.ok) ENDPROC  commandgroup commandgroupcmgOk16frsCatd1.cat.PageFrame1.Page1RFontName = "MS Sans Serif" FontSize = 8 ColorSource = 3 ReleaseErase = .F. Top = 172 Left = 93 Width = 54 Height = 23 BackStyle = 0 BorderStyle = 0 ButtonCount = 1 Name = "cmgOk16" Command1.FontName = "MS Sans Serif" Command1.FontSize = 8 Command1.ColorSource = 3 Command1.SpecialEffect = 1 Command1.Enabled = .T. Command1.Caption = ("\/> WINDOWS _2GG0VW2X2 958690988>>>>(? WINDOWS _2GG0VW2X3 962682683????(@ WINDOWS _2GG0VW2X4 962682683@@AAGA WINDOWS _2GG0VW2X5 962682683BB)B9BcB WINDOWS _2GG0VW2X6 958690988C+C8CFCpC WINDOWS _2GG0VW2X7 958690988D$D1D?DiD WINDOWS _2GG0VW2X8 962682683EE*E?EiE WINDOWS _2GG0VW2X9 962682683-F:FGFZFF WINDOWS _2GG0VW2XA 962682683DGQG^GsGG WINDOWS _2GG0VW2ZE 959006519fHvHHHHI WINDOWS _2GG0VW2ZF 962682683OOOOP=Q WINDOWS _2GG0VW2ZG 962682683qVVVVVW\ WINDOWS _2GG0VW2ZH 962682683[[[[[ WINDOWS _2GG0VW2ZI 962682683]]%]7]a] WINDOWS _2GG0VW2ZJ 962682683^^^^^ WINDOWS _2GG0VW2ZK 962682683`)`8`K`u`aܑ WINDOWS _2GG0VW2ZL 962682683eeeef!go WINDOWS _2GG0VW2ZM 962682683Ph`hphhhil WINDOWS _2GG0VW2ZN 958690988nnooBo WINDOWS _2GG0VW2ZO 958690988zppppp WINDOWS _2GG0VW2ZP 958690988rrr2r\r WINDOWS _2GG0VW2ZQ 958690988sssss WINDOWS _2GG0VW2ZR 958690988u.u=uPuzu WINDOWS _2GG0VW2ZS 958690988vvvvw WINDOWS _2GG0VW2ZT 958690988=xLx[xmxx WINDOWS _2GG0VW2ZU 958690988yyyz*z WINDOWS _2GG0VW2ZV 958690988X{g{v{{{ WINDOWS _2GG0VW2ZW 958690988|| }}H} WINDOWS _2GG0VW2ZX 958690988v~~~~~ WINDOWS _2GG0VW2ZY 958690988 '9c WINDOWS _2GG0VW2ZZ 962682683 WINDOWS _2GG0VW300 962682683BQ`s̄zY WINDOWS _2GG0VW301 962682683 WINDOWS _2GG0VW302 9626826834CRad WINDOWS _2GG0VW303 962682683RC3 WINDOWS _2GG0VW304 962682683؇Ό WINDOWS _2GG0VW305 962682683Ah.hh: WINDOWS _2GG0VW306 962682683gggg WINDOWS _2GG0VW307 962682683ge[pg WINDOWS _2GG0VW308 958690988]VIV6V V.C`c WINDOWS _2GG0VW309 958690988UUUUlS WINDOWS _2GG0VW30A 958690988OO~OTOL WINDOWS _2GG0VW30B 958690988@O,OONåէ# WINDOWS _2GG0VW30C 958690988 ϯ WINDOWS _2GG0VW30D 958690988 n D y WINDOWS _2GG0VW30E 9586909884 $  COMMENT RESERVED L bVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment" 11formsetformset frsActatu1oAutoRelease = .T. WindowType = 2 ReadCycle = .T. ReadLock = .T. ReleaseWindows = .T. Name = "frsActatu1" PROCEDURE Load *- [CONVERTER] Remember environment PRIVATE m.compstat, m.currarea, m.rborder, m.talkstat IF SET("TALK") = "ON" SET TALK OFF m.talkstat = "ON" ELSE m.talkstat = "OFF" ENDIF m.compstat = SET("COMPATIBLE") SET COMPATIBLE FOXPLUS m.rborder = SET("READBORDER") SET READBORDER ON m.currarea = SELECT() ENDPROC PROCEDURE Unload *- [CONVERTER] Restore environment IF TYPE("rborder") == 'C' SET READBORDER &rborder ENDIF IF TYPE("talkstat") == 'C' IF m.talkstat = "ON" SET TALK ON ENDIF ENDIF IF TYPE("compstat") == 'C' IF m.compstat = "ON" SET COMPATIBLE ON ENDIF ENDIF SET SKIP OF BAR _MFI_CLOSE OF ferestre .F. ENDPROC PROCEDURE ReadShow IF m.schimb SCATTER MEMVAR SELE car LOCA FOR m.codcar = car.codcar m.dencar = car.dencar SELE atu m.denums = sec.densec m.dentpu = tpu.dentpu ENDIF *m.coda = m.codato SHOW GET m.dencar SHOW GET m.denums SHOW GET m.denato SHOW GET m.dentpu ENDPROC S::%UT T sel.spr H9 aT liauan T liausi T liaufi T liauivG(("densec" G(("codato"USELFNSPRLISREP=:B1Marcare pt.Stergere un partener selectat anteriorUValid,MessageX11Q1Q1Q1QA31<Z):}%\smU,)B -cantitate maxima carburant (Lt)UMessage,11<)|Arial Narrow, 0, 10, 5, 16, 13, 15, 3, 0 MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0 MS Sans Serif, 0, 10, 7, 16, 13, 14, 3, 0 "frsActatu1.MISCAR.PageFrame1.Page1chkTar73formformMISCAR frsActatu1~Top = 30 Left = 6 Height = 296 Width = 518 DoCreate = .T. AutoCenter = .F. BorderStyle = 2 Caption = (" Actualizare FISA UTILAJE (cod >100)") Closable = .F. FontName = "Arial Narrow" FontSize = 10 HalfHeightCaption = .F. MaxButton = .F. MinButton = .F. Movable = .T. ZoomBox = .F. ColorSource = 5 BackColor = 192,192,192 FillColor = 192,192,192 Name = "MISCAR"  PROCEDURE Load SET SKIP OF MENU _MSYSMENU .T. SET SKIP OF PAD FERESTRE OF _MSYSMENU .F. ON KEY LABEL ESC DO adesc2 ON KEY LABEL CTRL+END DO adesc2 ON KEY LABEL F5 DO nrinv PUBLIC m.ca, m.cm, m.cp m.ca = 0 m.cp = 0 m.cm = 0 m.crzu=0 PRIVAT m.dentpu SET talk off m.mesaj ="" m.nextscr=.F. DIMENSION atu[1,2] m.nrato = 0 m.poz = 0 m.data = date() m.denums='' m.denuti='' m.dentpu=' ' m.inca =.F. m.schimb =.F. m.sters =.F. m.stersf = .F. m.codato = 0 m.codatob = m.codato m.coda = 0 m.denca = "" m.codca = 0 m.cssp =0 m.sini = 0 m.cup = 0 m.tau = 0 m.fnc= 1 m.denm = 0 m.denato = "" m.dennou = "" m.denn = .F. m.sufn = .F. m.marca = "" m.paramtr= "" m.capacit="" m.capcil ="" m.tipa=1 m.tip =0 m.nrinv = "" m.datin = {01/01/2000} m.explo = 0 m.disloc= 0 m.datrc1= m.datin m.expl1 = 0 m.datrc2= m.datin m.expl2 = 0 m.datrc3= m.datin m.expl3 = 0 m.datav = m.datin m.expla = 0 m.datsu = m.datin m.explu = 0 m.dencar=' ' m.csspe = 0 m.csumot= 0 m.csuhid= 0 m.csutra= 0 m.cslfri= 0 m.cslatg= 0 m.uml='Lt' m.umu='Lt' m.umc='Lt' m.umt='Km' m.tar = 0 m.puk = 0 m.sinit = 0 DO mediu SELE car SET ORDER TO "dencar" m.dencar = car.dencar m.dencarb= m.dencar IF USED("prs") SELECT prs ELSE SELECT 0 USE (LOCFILE("prs.dbf","DBF","Unde e Tarif prs?")); AGAIN ALIAS prs EXCLUSIVE ENDIF IF USED("tpu") SELECT tpu SET ORDER TO TAG "tip" ELSE SELECT 0 USE (LOCFILE("tpu.dbf","DBF","Unde e Tip Uti?")); AGAIN ALIAS tpu ; ORDER TAG "tip" EXCLUSIVE ENDIF IF USED("sec") SELECT sec SET ORDER TO TAG "codsec" ELSE SELECT 0 USE (LOCFILE(".\database\sec.dbf","DBF","Unde e Compartim?")); AGAIN ALIAS sec ; ORDER TAG "codsec" EXCLUSIVE ENDIF SELE atu SCAN IF EMPTY(atu.denato) OR atu.codato=0 DELE ENDIF ENDSCAN PACK SET ORDER TO "denato" m.nrato = inctab("atu", "atu", 2) m.codato = atu[1,2] m.denato = atu[1,1] SCATTER MEMVAR CALCULATE MAX(atu.codato) TO m.denm RELE WINDOWS mesaj SET ORDER TO "codato" SET RELATION OFF INTO sec SET RELATION TO sec INTO sec ADDITIVE SET RELATION OFF INTO tpu SET RELATION TO tip INTO tpu ADDITIVE GO TOP IF WEXIST("stolis" ) RELEASE WINDOW "stolis" ENDIF DEFINE WINDOW "stolis" FROM 17,0 TO 28,79 NOFLOAT NOGROW ; NOZOOM ENDPROC U% .-U% proc.prgF%  -  %C4;    ,benlist N C T T  T  H    T  G      cT   T    T  /R,%-lipsa Tipuri, operato la MODIFICARE -  %C4 &R,:-Creare Tipuri de Tarife.. (tmpF Qtmp> QFtmp.dbfU    ,benlist N 'Modificare tarifeC <,benlist FUTARAFISPROCPRGPRSSCHIMBCODATOCADENPRSTARIFCODPRSREAFISTRPUKPUOPUZPUMTMPALLDBFATOB?B6-alege tip tarif, pt.FAZ / sau MODIFICARE -tarif Nou UValid,Message111q1!!!q11AA1b1AqARBqA21D,b3)*T%VUBCNC' U% 7 T a T - T -T!C     U SCHIMBINCASTERSNRINVADAUGMODIFICOKDENNOUMODIFI>;B2Modificarea datelor unui partener urmat de salvareUWhen,ValidFMessage112Aq!q215QB`)4%-MU$T CO%  E T a T - T -^}(           T!C  UCURRECINCASCHIMBSTERSATUCODATODENMADAUGMODIFICDATINEXPLODATRC1EXPL1DATRC2EXPL2DATRC3EXPL3DATAVEXPLADATSUEXPLUOKDENATO2/B&Permite introducerea unui partener nouUValid,Message1AQQr!21q )checkboxcheckbox"frsActatu1.MISCAR.PageFrame1.Page1 cmgSterg72 commandgroup commandgroup"frsActatu1.MISCAR.PageFrame1.Page1 cmgModific71 commandgroup commandgroup pageframe pageframe PageFrame1frsActatu1.MISCARErasePage = .F. PageCount = 1 BorderWidth = 0 Top = 0 Left = 0 Width = 30000 Height = 30004 Tabs = .F. Name = "PageFrame1" Page1.Caption = "Page1" Page1.BackStyle = 0 Page1.Name = "Page1" shapeshape shpShape1"frsActatu1.MISCAR.PageFrame1.Page1Top = 101 Left = 3 Height = 70 Width = 503 BackStyle = 0 FillStyle = 1 ReleaseErase = .F. SpecialEffect = 1 ColorSource = 3 Name = "shpShape1" shapeshape shpShape3"frsActatu1.MISCAR.PageFrame1.Page1Top = 211 Left = 3 Height = 52 Width = 504 BackStyle = 0 FillStyle = 1 ReleaseErase = .F. SpecialEffect = 1 ColorSource = 3 Name = "shpShape3" linelinelinLine4"frsActatu1.MISCAR.PageFrame1.Page1VHeight = 52 Left = 242 Top = 211 Width = 0 ReleaseErase = .F. Name = "linLine4" labellabellblNou2"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("nou") Height = 16 Left = 6 Top = 39 Width = 21 ReleaseErase = .F. ColorSource = 3 Name = "lblNou2" labellabel lblLabel5"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = (" ") Height = 16 Left = 240 Top = 201 Width = 3 ReleaseErase = .F. ColorSource = 3 Name = "lblLabel5" labellabel lblLabel6"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = (" ") Height = 16 Left = 240 Top = 255 Width = 3 ReleaseErase = .F. ColorSource = 3 Name = "lblLabel6" labellabel lblMotor7"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("motor") Height = 16 Left = 299 Top = 219 Width = 31 ReleaseErase = .F. ColorSource = 3 Name = "lblMotor7" labellabel lblConsum_s8"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Consum specific") Height = 16 Left = 130 Top = 182 Width = 88 ReleaseErase = .F. ColorSource = 3 Name = "lblConsum_s8" labellabellblUlei9"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Ulei") Height = 16 Left = 263 Top = 237 Width = 20 ReleaseErase = .F. ColorSource = 3 Name = "lblUlei9" labellabel lblData10"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Data") Height = 16 Left = 5 Top = 128 Width = 24 ReleaseErase = .F. ColorSource = 3 Name = "lblData10" labellabel lblIntrare11"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("intrare") Height = 16 Left = 46 Top = 109 Width = 34 ReleaseErase = .F. ColorSource = 3 Name = "lblIntrare11" labellabel lblSch_anve12"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("sch.anvel.") Height = 16 Left = 279 Top = 108 Width = 53 ReleaseErase = .F. ColorSource = 3 Name = "lblSch_anve12" labellabel lblStoc_ini13"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Stoc init.") Height = 16 Left = 5 Top = 219 Width = 48 ReleaseErase = .F. ColorSource = 3 Name = "lblStoc_ini13" labellabellblUm_14"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Um.") Height = 16 Left = 464 Top = 219 Width = 20 ReleaseErase = .F. ColorSource = 3 Name = "lblUm_14" labellabellblLt15"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("Lt") Height = 16 Left = 63 Top = 237 Width = 11 ReleaseErase = .F. ColorSource = 3 Name = "lblLt15" labellabel lblNr_inv_16"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Nr.Inv.") Height = 16 Left = 340 Top = 0 Width = 35 ReleaseErase = .F. ColorSource = 3 Name = "lblNr_inv_16" labellabel lblTransm_17"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("transm.") Height = 16 Left = 345 Top = 219 Width = 39 ReleaseErase = .F. ColorSource = 3 Name = "lblTransm_17" labellabel lblHidrau_18"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("hidrau.") Height = 16 Left = 399 Top = 219 Width = 37 ReleaseErase = .F. ColorSource = 3 Name = "lblHidrau_18" labellabel lblRep_capi19"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("rep.capital") Height = 16 Left = 126 Top = 110 Width = 55 ReleaseErase = .F. ColorSource = 3 Name = "lblRep_capi19" labellabel lblRep_rt_220"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("rep.RT.2") Height = 16 Left = 206 Top = 109 Width = 43 ReleaseErase = .F. ColorSource = 3 Name = "lblRep_rt_220" labellabel lblNr_ide_21"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Nr.Ide.") Height = 16 Left = 340 Top = 36 Width = 35 ReleaseErase = .F. ColorSource = 3 Name = "lblNr_ide_21" labellabel lblMarca22"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Marca") Height = 16 Left = 345 Top = 18 Width = 31 ReleaseErase = .F. ColorSource = 3 Name = "lblMarca22" labellabel lblLei_ore23"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("lei/Ore ") Height = 16 Left = 465 Top = 184 Width = 36 ReleaseErase = .F. ColorSource = 3 Name = "lblLei_ore23" labellabel lblOre_parc24"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Ore.parc.") Height = 16 Left = 5 Top = 146 Width = 47 ReleaseErase = .F. ColorSource = 3 Name = "lblOre_parc24" labellabellblUm25"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("um") Height = 16 Left = 179 Top = 219 Width = 16 ReleaseErase = .F. ColorSource = 3 Name = "lblUm25" labellabel lblCons_spe26"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("cons.spe.") Height = 16 Left = 100 Top = 219 Width = 51 ReleaseErase = .F. ColorSource = 3 Name = "lblCons_spe26" labellabellbl_27"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("<") Height = 16 Left = 179 Top = 14 Width = 6 ReleaseErase = .F. ColorSource = 3 Name = "lbl_27" labellabellbl_28"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = (">") Height = 16 Left = 317 Top = 14 Width = 6 ReleaseErase = .F. ColorSource = 3 Name = "lbl_28" labellabel lblSch_ulei29"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("sch.Ulei") Height = 16 Left = 362 Top = 109 Width = 42 ReleaseErase = .F. ColorSource = 3 Name = "lblSch_ulei29" labellabel lblSch_u_pl30"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("sch.U.plan") Height = 16 Left = 432 Top = 109 Width = 56 ReleaseErase = .F. ColorSource = 3 Name = "lblSch_u_pl30" labellabellblTip31"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Tip") Height = 16 Left = 242 Top = 38 Width = 16 ReleaseErase = .F. ColorSource = 3 Name = "lblTip31" labellabellbl_32"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("<") Height = 16 Left = 187 Top = 55 Width = 6 ReleaseErase = .F. ColorSource = 3 Name = "lbl_32" labellabellbl_33"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = (">") Height = 16 Left = 308 Top = 56 Width = 6 ReleaseErase = .F. ColorSource = 3 Name = "lbl_33" labellabel lblDenumire34"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Denumirea") Height = 16 Left = 36 Top = 0 Width = 56 ReleaseErase = .F. ColorSource = 3 Name = "lblDenumire34" labellabel lblSectia35"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Sectia") Height = 16 Left = 233 Top = 0 Width = 33 ReleaseErase = .F. ColorSource = 3 Name = "lblSectia35" labellabel lblCap_reze36"frsActatu1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 BackStyle = 0 Caption = ("Cap.rezervor") Height = 16 Left = 337 Top = 57 Width = 66 ReleaseErase = .F. ColorSource = 3 Name = "lblCap_reze36" comboboxcombobox cboDenato37"frsActatu1.MISCAR.PageFrame1.Page1FontBold = .F. FontName = "MS Sans Serif" FontSize = 8 RowSourceType = 5 RowSource = "atu" Value = 1 ControlSource = "m.denato" Enabled = .T. Height = 20 Left = 7 SpecialEffect = 1 Style = 2 Top = 16 Width = 146 ReleaseErase = .F. ColorSource = 3 Name = "cboDenato37" PROCEDURE When *SHOW GET m.dennou ENABLE RETURN m.nrato > 0 ENDPROC PROCEDURE Valid IF NOT EMPTY(m.denato) m.poz = ASCAN(atu, m.denato, 1) IF m.poz <> 0 m.codato = atu[ASUBSCRIPT(atu, m.poz, 1), 2] LOCA FOR m.codato = atu.codato scatter memvar m.coda = m.codato m.cm = 0 m.ca = m.codato m.cp = 0 show gets ENDIF if m.schimb SHOW GET m.SALVEZ ENABLE ENDIF IF NOT m.inca m.dennou = m.denato ENDIF SHOW GET m.dennou DISABLE WAIT WINDOW "-cod utilaj "+str(m.ca,5) NOWAIT ELSE IF m.inca SHOW GET m.dennou ENABLE ENDIF ENDIF ENDPROC PROCEDURE Message RETURN "Alegeti un Partener" ENDPROC >%%a%UT T T T T  T  T   GN-<,T UCODAATUCODATODENATODENCADENCARCODCACODCARCSSPCSSPESINISINITTAUTIPMISCARMESAJ74B+Terminare procedur, sterge rnduri marcateUValid,MessageO1!!!!!!!RQQ2A1%Y)%"frsActatu1.MISCAR.PageFrame1.Page1 cmgAdaug70 commandgroup commandgroup"frsActatu1.MISCAR.PageFrame1.Page1cmgOk69 commandgroup commandgrouptextboxtextbox txtDennou38"frsActatu1.MISCAR.PageFrame1.Page1%FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.dennou" Enabled = .F. Format = "!K" Height = 20 Left = 6 Margin = 0 SpecialEffect = 1 Top = 55 Width = 150 ReleaseErase = .F. ColorSource = 3 BorderColor = 128,0,64 Name = "txtDennou38" rPROCEDURE Valid IF NOT EMPTY(m.dennou) m.codato = ASCAN(atu, m.dennou,1) IF m.codato = 0 m.denm = m.denm + 1 m.codato = m.denm m.nrato = m.nrato+1 DIMENSION atu[m.nrato,2] atu[m.nrato, 1] = m.dennou atu[m.nrato,2] = m.codato m.denn = .T. ELSE m.codato = atu[ASUBSCRIPT(atu,m.codato,1),2] SHOW GET m.dennou DISABLE ENDIF m.denato = m.dennou m.dennou = "" SHOW GET m.denato DISABLE SHOW GET m.dennou DISABLE SHOW GET m.salvez ENABLE ENDIF ENDPROC PROCEDURE ErrorMessage RETURN "Introduceti o denumire" ENDPROC |%6vVU T - T - T - ¿,  T T T  U INCASCHIMBSTERSMISCARADAUGMODIFICCMCACPOKTARSALVEZBDezactivare machetUValid,Message121 (D)"frsActatu1.MISCAR.PageFrame1.Page1 cmgAnulez68 commandgroup commandgroup"frsActatu1.MISCAR.PageFrame1.Page1 cmgSalvez67 commandgroup commandgrouptextboxtextbox txtDenums39"frsActatu1.MISCAR.PageFrame1.Page1'FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.denums" Enabled = .F. Format = "!K" Height = 17 Left = 189 Margin = 0 SpecialEffect = 1 Top = 16 Width = 121 ReleaseErase = .F. ColorSource = 3 BorderColor = 128,0,64 Name = "txtDenums39" wPROCEDURE Valid IF EMPTY(m.denums) SELECT sec DO afis IN proc.prg BROWSE FIELDS sec.densec,sec.codsec NOAPPE NODELE NOEDIT ; WHEN reafis() WINDOW "benlist" COLOR SCHEME 10 m.denums = sec.densec m.ca = 0 m.cm = sec.codsec m.cp = 0 RELEASE WINDOW "benlist" SELE atu SHOW GET m.denums ENDIF ENDPROC PROCEDURE Message RETURN " alege sectia" ENDPROC H%2|`UUy%C rF. ,benlist N C^<,benlistF UDENCARCARAFISCODCARREAFISATUVSBJ =alege, = revine, sau NOU+= partener nouUWhen,Valid3Message13qqQrA211%A9 W)txtUmu66textboxtextbox txtNrinv40"frsActatu1.MISCAR.PageFrame1.Page1FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.nrinv" Enabled = .F. Height = 19 Left = 383 Margin = 0 SpecialEffect = 1 Top = 0 Width = 70 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,128 Name = "txtNrinv40" textboxtextbox txtMarca41"frsActatu1.MISCAR.PageFrame1.Page1$FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.marca" Enabled = .F. Format = "K" Height = 20 Left = 383 Margin = 0 SpecialEffect = 1 Top = 17 Width = 85 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,128 Name = "txtMarca41" textboxtextbox txtParamtr42"frsActatu1.MISCAR.PageFrame1.Page1)FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.paramtr" Enabled = .F. Format = "K" Height = 20 Left = 383 Margin = 0 SpecialEffect = 1 Top = 35 Width = 105 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,128 Name = "txtParamtr42" textboxtextbox txtDentpu43"frsActatu1.MISCAR.PageFrame1.Page1&FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.dentpu" Enabled = .F. Format = "K" Height = 18 Left = 196 Margin = 0 SpecialEffect = 1 Top = 55 Width = 108 ReleaseErase = .F. ColorSource = 3 BorderColor = 128,0,64 Name = "txtDentpu43" PROCEDURE Valid IF EMPTY(m.dentpu) SELECT tpu DO afis IN proc.prg BROWSE FIELDS tpu.dentpu,tpu.tip NOAPPE NODELE NOEDIT ; WHEN reafis() WINDOW "benlist" COLOR SCHEME 10 m.dentpu = tpu.dentpu m.tip = tpu.tip IF m.schimb m.cp = m.tip m.ca = 0 m.cm = 0 ENDIF RELEASE WINDOW "benlist" SELE atu SHOW GET m.dentpu ENDIF ENDPROC PROCEDURE Message RETURN " Del+Enter -alege sectia, inchide Ctrl+W" ENDPROC 5Ε%U% &T _% C_  H_  T!C   %C+C  HT!C  ¿  %C'   T -U SCHIMBDATOATUDENATODENNSALVEZINCAMODIFICADAUGOKValid,1!QAQQA!1A!aAA1)textboxtextboxtextbox txtCrzu44"frsActatu1.MISCAR.PageFrame1.Page1FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.crzu" Enabled = .F. Height = 20 Left = 418 Margin = 0 SpecialEffect = 1 Top = 56 Width = 68 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,128 Name = "txtCrzu44" GPROCEDURE Message RETURN "-cantitate maxima carburant (Lt)" ENDPROC "frsActatu1.MISCAR.PageFrame1.Page1textbox"frsActatu1.MISCAR.PageFrame1.Page1 txtCsuhid65textboxtextbox"frsActatu1.MISCAR.PageFrame1.Page1 txtCsutra64textboxcheckboxcheckboxchkFnc45"frsActatu1.MISCAR.PageFrame1.Page1Top = 91 Left = 211 Height = 17 Width = 94 FontName = "MS Sans Serif" FontSize = 10 Caption = ("Functionare") Value = 0 ControlSource = "m.fnc" Enabled = .T. SpecialEffect = 1 Style = 0 TerminateRead = .F. ReleaseErase = .F. ColorSource = 3 Name = "chkFnc45" PROCEDURE Valid IF m.fnc=1 SHOW GET m.datin ENABLE SHOW GET m.explo ENABLE SHOW GET m.datrc1 ENABLE SHOW GET m.expl1 ENABLE SHOW GET m.datrc2 ENABLE SHOW GET m.expl2 ENABLE SHOW GET m.datrc3 ENABLE SHOW GET m.expl3 ENABLE SHOW GET m.datav ENABLE SHOW GET m.expla ENABLE SHOW GET m.datsu ENABLE SHOW GET m.explu ENABLE else SHOW GET m.datin DISABLE SHOW GET m.explo DISABLE SHOW GET m.datrc1 DISABLE SHOW GET m.expl1 DISABLE SHOW GET m.datrc2 DISABLE SHOW GET m.expl2 DISABLE SHOW GET m.datrc3 DISABLE SHOW GET m.expl3 DISABLE SHOW GET m.datav DISABLE SHOW GET m.expla DISABLE SHOW GET m.datsu DISABLE SHOW GET m.explu DISABLE endif ENDPROC aHHW%U*%          #         U FNCDATINEXPLODATRC1EXPL1DATRC2EXPL2DATRC3EXPL3DATAVEXPLADATSUEXPLUValid,11A1)Htextboxtextbox txtDatin46"frsActatu1.MISCAR.PageFrame1.Page10FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = { / / } ControlSource = "m.datin" Enabled = .F. Format = "K" Height = 20 Left = 40 Margin = 0 SpecialEffect = 1 Top = 127 Width = 68 ReleaseErase = .F. ColorSource = 3 Name = "txtDatin46" textboxtextbox txtExplo47"frsActatu1.MISCAR.PageFrame1.Page1%FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "m.explo" Enabled = .F. Format = "K" Height = 20 Left = 66 Margin = 0 SpecialEffect = 1 Top = 146 Width = 40 ReleaseErase = .F. ColorSource = 3 Name = "txtExplo47" textboxtextbox txtDatrc148"frsActatu1.MISCAR.PageFrame1.Page13FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = { / / } ControlSource = "m.datrc1" Enabled = .F. Format = "K" Height = 20 Left = 126 Margin = 0 SpecialEffect = 1 Top = 125 Width = 55 ReleaseErase = .F. ColorSource = 3 Name = "txtDatrc148" textboxtextbox txtExpl149"frsActatu1.MISCAR.PageFrame1.Page1&FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "m.expl1" Enabled = .F. Format = "K" Height = 20 Left = 141 Margin = 0 SpecialEffect = 1 Top = 146 Width = 40 ReleaseErase = .F. ColorSource = 3 Name = "txtExpl149" textboxtextbox txtDatrc250"frsActatu1.MISCAR.PageFrame1.Page13FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = { / / } ControlSource = "m.datrc2" Enabled = .F. Format = "K" Height = 20 Left = 195 Margin = 0 SpecialEffect = 1 Top = 127 Width = 67 ReleaseErase = .F. ColorSource = 3 Name = "txtDatrc250" textboxtextbox txtExpl251"frsActatu1.MISCAR.PageFrame1.Page1&FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "m.expl2" Enabled = .F. Format = "K" Height = 20 Left = 221 Margin = 0 SpecialEffect = 1 Top = 146 Width = 40 ReleaseErase = .F. ColorSource = 3 Name = "txtExpl251" textboxtextbox txtDatav52"frsActatu1.MISCAR.PageFrame1.Page11FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = { / / } ControlSource = "m.datav" Enabled = .F. Format = "K" Height = 20 Left = 278 Margin = 0 SpecialEffect = 1 Top = 126 Width = 68 ReleaseErase = .F. ColorSource = 3 Name = "txtDatav52" textboxtextbox txtExpla53"frsActatu1.MISCAR.PageFrame1.Page1&FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "m.expla" Enabled = .F. Format = "K" Height = 20 Left = 305 Margin = 0 SpecialEffect = 1 Top = 146 Width = 40 ReleaseErase = .F. ColorSource = 3 Name = "txtExpla53" textboxtextbox txtDatrc354"frsActatu1.MISCAR.PageFrame1.Page13FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = { / / } ControlSource = "m.datrc3" Enabled = .F. Format = "K" Height = 20 Left = 354 Margin = 0 SpecialEffect = 1 Top = 127 Width = 65 ReleaseErase = .F. ColorSource = 3 Name = "txtDatrc354" textboxtextbox txtExpl355"frsActatu1.MISCAR.PageFrame1.Page1&FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "m.expl3" Enabled = .F. Format = "K" Height = 20 Left = 379 Margin = 0 SpecialEffect = 1 Top = 147 Width = 40 ReleaseErase = .F. ColorSource = 3 Name = "txtExpl355" textboxtextbox txtDatsu56"frsActatu1.MISCAR.PageFrame1.Page11FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = { / / } ControlSource = "m.datsu" Enabled = .F. Format = "K" Height = 20 Left = 431 Margin = 0 SpecialEffect = 1 Top = 127 Width = 67 ReleaseErase = .F. ColorSource = 3 Name = "txtDatsu56" textboxtextbox txtExplu57"frsActatu1.MISCAR.PageFrame1.Page1&FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 0 Value = 0 ControlSource = "m.explu" Enabled = .F. Format = "K" Height = 19 Left = 455 Margin = 0 SpecialEffect = 1 Top = 146 Width = 41 ReleaseErase = .F. ColorSource = 3 Name = "txtExplu57" textboxtextboxtxtPuo58"frsActatu1.MISCAR.PageFrame1.Page1QFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.puo" Enabled = .F. Format = "K" Height = 20 InputMask = "999.99" Left = 383 Margin = 0 SpecialEffect = 1 Top = 181 Width = 72 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,128 Name = "txtPuo58" textboxtextbox txtDencar59"frsActatu1.MISCAR.PageFrame1.Page1'FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.dencar" Enabled = .F. Format = "!TK" Height = 20 Left = 45 Margin = 0 SpecialEffect = 1 Top = 200 Width = 70 ReleaseErase = .F. ColorSource = 3 BorderColor = 128,0,64 Name = "txtDencar59" PROCEDURE When *m.dencarb = m.dencar ENDPROC PROCEDURE Valid IF EMPTY(m.dencar) SELECT car DO afis BROWSE FIELDS car.dencar,car.codcar NOAPPE NODELE NOEDIT ; WHEN reafis() WINDOW "benlist" COLOR SCHEME 10 SCATTER MEMVAR RELEASE WINDOW "benlist" SELE atu SHOW GET m.dencar ENDIF ENDPROC PROCEDURE Message RETURN " =alege, = revine, sau NOU+= partener nou" ENDPROC Top = 180 Left = 311 Height = 17 Width = 60 FontName = "MS Sans Serif" FontSize = 8 Caption = ("Tarife") Value = 0 ControlSource = "m.tar" Enabled = .T. SpecialEffect = 1 Style = 0 TerminateRead = .F. ReleaseErase = .F. ColorSource = 3 Name = "chkTar73" textbox"frsActatu1.MISCAR.PageFrame1.Page1 txtCsumot63textboxtextbox"frsActatu1.MISCAR.PageFrame1.Page1txtUmc62textboxtextbox"frsActatu1.MISCAR.PageFrame1.Page1textboxtextbox txtSinit60"frsActatu1.MISCAR.PageFrame1.Page1GFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.sinit" Enabled = .F. Height = 20 InputMask = "9999.99" Left = 11 Margin = 0 SpecialEffect = 1 Top = 236 Width = 40 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,128 Name = "txtSinit60" textboxtextbox txtCsspe61GFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.csspe" Enabled = .F. Height = 20 InputMask = "999.99" Left = 101 Margin = 0 SpecialEffect = 1 Top = 236 Width = 46 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,128 Name = "txtCsspe61" FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.umc" Enabled = .F. Height = 20 Left = 163 Margin = 0 SpecialEffect = 1 Top = 236 Width = 40 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,128 Name = "txtUmc62" IFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.csumot" Enabled = .F. Height = 20 InputMask = "999.99" Left = 298 Margin = 0 SpecialEffect = 1 Top = 236 Width = 35 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,128 Name = "txtCsumot63" FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.umu" Enabled = .F. Height = 20 Left = 453 Margin = 0 SpecialEffect = 1 Top = 236 Width = 35 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,128 Name = "txtUmu66" IFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.csutra" Enabled = .F. Height = 20 InputMask = "999.99" Left = 352 Margin = 0 SpecialEffect = 1 Top = 236 Width = 40 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,128 Name = "txtCsutra64" IFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.csuhid" Enabled = .F. Height = 20 InputMask = "999.99" Left = 409 Margin = 0 SpecialEffect = 1 Top = 236 Width = 35 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,128 Name = "txtCsuhid65" J11%U%C Fproc.prg. ,benlist N CT T % T  T T <,benlistF U DENTPUTPUAFISPROCPRGTIPREAFISSCHIMBCPCACMATU41B( Del+Enter -alege sectia, inchide Ctrl+WUValid,MessageZ1q1!!AqB21[y)1 ButtonCount = 1 BackStyle = 0 BorderStyle = 0 ControlSource = "m.salvez" Height = 23 Left = 304 SpecialEffect = 1 Top = 266 Width = 54 ReleaseErase = .F. Name = "cmgSalvez67" Command1.Top = 0 Command1.Left = 0 Command1.Height = 23 Command1.Width = 54 Command1.FontName = "MS Sans Serif" Command1.FontSize = 8 Command1.Caption = ("\0 AND NOT DELETED() ENDPROC PROCEDURE Valid IF NOT m.schimb m.schimb=.T. m.inca =.F. m.sters =.F. ENDIF SHOW GETS ENABLE ONLY _CUROBJ = OBJNUM(m.nrinv) SHOW GET m.adaug DISABLE SHOW GET m.modific DISABLE SHOW GET m.ok DISABLE SHOW GET m.dennou DISABLE DO modifi ENDPROC PROCEDURE Message RETURN "Modificarea datelor unui partener urmat de salvare" ENDPROC `%r+U5    %CTALKvONKG2T ONeT OFFT C COMPATIBLEvGAT C READBORDERvGj T CWUCOMPSTATCURRAREARBORDERTALKSTAT%CrborderbC6SET READBORDER &rborder %CtalkstatbCu% ONqG2 %CcompstatbC% ONGA GN%-UTALKSTATCOMPSTATFERESTRE% k^F- T FT T     U SCHIMBCARCODCARDENCARATUDENUMSSECDENSECDENTPUTPUDENATOLoad,UnloadReadShow1a!Aaa3AQaAAQaAA#5Qq1!q!!A1Li+) ButtonCount = 1 BackStyle = 0 BorderStyle = 0 ControlSource = "m.sterg" Height = 23 Left = 190 SpecialEffect = 1 Top = 266 Width = 60 ReleaseErase = .F. Name = "cmgSterg72" Command1.Top = 0 Command1.Left = 0 Command1.Height = 23 Command1.Width = 60 Command1.FontName = "MS Sans Serif" Command1.FontSize = 8 Command1.Caption = ("\T ?T @LtT ALtT BLtT CKmT DT ET FGFHG(("dencar"T 9H9T I 9%CprsFJF4QCprs.dbfDBFUnde e Tarif prs?J%CtpuFFKG(("tip"F;QCtpu.dbfDBFUnde e Tip Uti?K"tip"%CsecFLG(("codsec"FKQC.\database\sec.dbfDBFUnde e Compartim?L"codsec"F ~U %C !  Q3G(("denato"T CatuatuMT C T !C ^}(  <, G(("codato" G-LG-(LL G-KG-(*K#)%CstolisH<,stolis)s,stolis(OUNFERESTREESCCTRLENDF5CACMCPCRZUDENTPUMESAJNEXTSCRATUNRATOPOZDATADENUMSDENUTIINCASCHIMBSTERSSTERSFCODATOCODATOBCODADENCACODCACSSPSINICUPTAUFNCDENMDENATODENNOUDENNSUFNMARCAPARAMTRCAPACITCAPCILTIPATIPNRINVDATINEXPLODISLOCDATRC1EXPL1DATRC2EXPL2DATRC3EXPL3DATAVEXPLADATSUEXPLUDENCARCSSPECSUMOTCSUHIDCSUTRACSLFRICSLATGUMLUMUUMCUMTTARPUKSINITMEDIUCARDENCARBPRSTPUSECINCTABLoad,1qQa1Qrr!!qBA!qA!qAqAAAAaaQQQQA2 ) %Y xQ:6 actatu.scx actatu.scxJUATUACTATUSCX _2GG0VW2UP4- ^T UNRINVATUCODACODATOMODIFIiFG(("denato"N ,stolis N ''Lista pentru modificare, CTRL+T -stergeCUATUUTILAJREAFISnrinv}modifi"51Q!q2q3# 7'0  mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _2I10P4UIH 962551155/F] WINDOWS _2GG0VW4K4 95869099020 WINDOWS _2GG0VW4K5 962551155o{d WINDOWS _2GG0VW4K6 962551155   + WINDOWS _2GG0VW4KO 962551155  P 9 WINDOWS _2GG0VW4L6 962551155<( } WINDOWS _2GG0VW4L7 962551155jWH$ COMMENT RESERVED VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment" 11formsetformsetfrsSel1lAutoRelease = .T. WindowType = 2 ReadCycle = .T. ReadLock = .T. ReleaseWindows = .T. Name = "frsSel1" PROCEDURE Unload *- [CONVERTER] Restore environment IF TYPE("rborder") == 'C' SET READBORDER &rborder ENDIF IF TYPE("talkstat") == 'C' IF m.talkstat = "ON" SET TALK ON ENDIF ENDIF IF TYPE("compstat") == 'C' IF m.compstat = "ON" SET COMPATIBLE ON ENDIF ENDIF ENDPROC PROCEDURE Load *- [CONVERTER] Remember environment PRIVATE m.compstat, m.currarea, m.rborder, m.talkstat IF SET("TALK") = "ON" SET TALK OFF m.talkstat = "ON" ELSE m.talkstat = "OFF" ENDIF m.compstat = SET("COMPATIBLE") SET COMPATIBLE FOXPLUS m.rborder = SET("READBORDER") SET READBORDER ON m.currarea = SELECT() ENDPROC $%gUB Terminat U B USELMessage,ValidF112RQ1&Bf)TMS Sans Serif, 0, 10, 7, 16, 13, 14, 3, 0 MS Sans Serif, 0, 12, 8, 20, 16, 16, 4, 0 frsSel1.cat.PageFrame1.Page1opgSel2 optiongroup optiongroupqPROCEDURE Message RETURN "Terminat " ENDPROC PROCEDURE Valid CLEAR READ CLEAR GETS RETU m.sel ENDPROC frsSel1.cat.PageFrame1.Page1cmgOk1 commandgroup commandgroup lblL_i_s_t_3catformformfrsSel1FHeight = 255 Width = 208 DoCreate = .T. AutoCenter = .T. BorderStyle = 1 Caption = (" Selectare") ControlBox = .F. Closable = .F. FontName = "MS Sans Serif" FontSize = 10 HalfHeightCaption = .F. MaxButton = .F. MinButton = .F. Movable = .F. ZoomBox = .F. ColorSource = 5 BackColor = 192,252,252 Name = "cat"  pageframe pageframe PageFrame1 frsSel1.catErasePage = .F. PageCount = 1 BorderWidth = 0 Top = 0 Left = 0 Width = 30000 Height = 30004 Tabs = .F. Name = "PageFrame1" Page1.Caption = "Page1" Page1.BackStyle = 0 Page1.Name = "Page1" labellabelfrsSel1.cat.PageFrame1.Page1FontBold = .T. FontName = "MS Sans Serif" FontSize = 12 BackStyle = 0 Caption = ("L i s t a r e") Height = 16 Left = 48 Top = 53 Width = 96 ReleaseErase = .F. ColorSource = 3 Name = "lblL_i_s_t_3" ButtonCount = 1 BackStyle = 0 BorderStyle = 0 ControlSource = "m.ok" Height = 46 Left = 50 SpecialEffect = 1 Top = 182 Width = 94 ReleaseErase = .F. Name = "cmgOk1" Command1.Top = 0 Command1.Left = 0 Command1.Height = 46 Command1.Width = 94 Command1.FontName = "MS Sans Serif" Command1.FontSize = 12 Command1.Caption = ("\/><>P>z> WINDOWS _2GG0VW9DV 959747628H?U?b?r?? WINDOWS _2GG0VW9DW 959747628b@o@|@@@ WINDOWS _2GG0VW9DX 959747628AAAAA WINDOWS _2GG0VW9DY 962683018BBBBB WINDOWS _2GG0VW9DZ 959747628CCC D4D WINDOWS _2GG0VW9E0 962683018D EE-EWE WINDOWS _2GG0VW9E1 9597476289FFFSFhFF WINDOWS _2GG0VW9E2 959747628vGGGGG WINDOWS _2GG0VW9E3 959006962HHHHH WINDOWS _2GG0VW9E4 959746323IIIII WINDOWS _2GG0VW9E5 962683018JJJJJ WINDOWS _2GG0VW9E8 959747628KKKKL WINDOWS _2GG0VW9E9 959747628LMM%MOM WINDOWS _2GG0VW9EA 959747628-N:NGN[NN WINDOWS _2GG0VW9GK 962548914cOrOOOO WINDOWS _2GG0VW9GL 962548914PPQ!QKQR WINDOWS _2GG0VW9GM 962548914cVrVVVVX WINDOWS _2GG0VW9GN 962548914$Z3ZBZTZ~Z WINDOWS _2GG0VW9GO 962548914[[[\-\k]g WINDOWS _2GG0VW9GP 9625489148aGaVahaabV WINDOWS _2GG0VW9GQ 962548914c dd/dYde WINDOWS _2GG0VW9GR 962548914fffg9ghk WINDOWS _2GG0VW9GS 962548914iiiijlk&c WINDOWS _2GG0VW9GT 962548914lllll>nn WINDOWS _2GG0VW9GU 962548914~ooooo%q WINDOWS _2GG0VW9GV 962683018yyzz=z{| WINDOWS _2GG0VW9GW 962548914|| }}G} WINDOWS _2GG0VW9GX 962548914~~~~~ WINDOWS _2GG0VW9GY 9590069627GWgЁ WINDOWS _2GG0VW9GZ 962548914? WINDOWS _2GG0VW9H0 962548914hwÅ WINDOWS _2GG0VW9H1 962548914#Mh WINDOWS _2GG0VW9H2 962548914ԉ/ WINDOWS _2GG0VW9H3 962548914pʋe WINDOWS _2GG0VW9H4 9625489141@O` WINDOWS _2GG0VW9H5 962548914Ϗޏ) WINDOWS _2GG0VW9H6 962548914pˑ{ WINDOWS _2GG0VW9H7 962548914bq` WINDOWS _2GG0VW9H8 959746323Ocwt WINDOWS _2GG0VW9H9 962548914#2AT~΢ _ WINDOWS _2GG0VW9HA 9625489146ETfʥX WINDOWS _2GG0VW9HB 959746323$4^j WINDOWS _2GG0VW9HC 962548914hw} WINDOWS _2GG0VW9HD 962548914O^m%| WINDOWS _2GG0VW9HE 962548914ͮа WINDOWS _2GG0VW9HF 962548914v& WINDOWS _2GG0VW9HG 962548914gYG WINDOWS _2GG0VW9HH 962548914ۦ WINDOWS _2GG0VW9HI 962548914WZ WINDOWS _2GG0VW9HJ 962548914H' WINDOWS _2GG0VW9HK 962548914ȣ_ WINDOWS _2GG0VW9HL 962683019cоT WINDOWS _2GG0VW9HM 962683019O;נT'T WINDOWS _2GG0VW9HN 962683019àNyad WINDOWS _2GG0VW9HO 962683019:&փ WINDOWS _2GG0VW9HP 962683019ƒp{ WINDOWS _2GG0VW9HQ 962683019yyya& WINDOWS _2GG0VW9HR 962548914``Z9Vzi WINDOWS _2GW14CEIA 959747628-V!V^ Y COMMENT RESERVED yVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentJLeft = 1 Top = 220 Width = 520 Height = 200 Name = "Dataenvironment" 11formsetformset frsActfaz1oAutoRelease = .T. WindowType = 2 ReadCycle = .T. ReadLock = .T. ReleaseWindows = .T. Name = "frsActfaz1" jPROCEDURE Load *- [CONVERTER] Remember environment PRIVATE m.compstat, m.currarea, m.rborder, m.talkstat IF SET("TALK") = "ON" SET TALK OFF m.talkstat = "ON" ELSE m.talkstat = "OFF" ENDIF m.compstat = SET("COMPATIBLE") SET COMPATIBLE FOXPLUS m.rborder = SET("READBORDER") SET READBORDER ON m.currarea = SELECT() ENDPROC PROCEDURE Unload *- [CONVERTER] Restore environment IF TYPE("rborder") == 'C' SET READBORDER &rborder ENDIF IF TYPE("talkstat") == 'C' IF m.talkstat = "ON" SET TALK ON ENDIF ENDIF IF TYPE("compstat") == 'C' IF m.compstat = "ON" SET COMPATIBLE ON ENDIF ENDIF SET SKIP OF BAR _MFI_CLOSE OF ferestre .F. ENDPROC PROCEDURE ReadShow m.opri = 0 m.btra = 0 IF m.schimb SCATTER MEMVAR m.denper = per.denper m.denluc = luc.denluc m.dencar = car.dencar m.denato = ato.denato m.denmag = mag.denmag SHOW GET m.denper SHOW GET m.denmag SHOW GET m.denluc SHOW GET m.dencar SHOW GET m.nrfp SHOW GET m.datpl ELSE m.csspe = m.cssp SHOW GET m.csspe ENDIF SHOW GET m.denato SHOW GET m.opri SHOW GET m.btra SHOW GET m.tip ENDPROC $  V% UQ% JT  T aT UDENATOBDENATOMESAJAUSMValid,1RQQA1) oVV%UBCNC' U% D T a T - T - T a T -/danu.sprStergeti articolul ? %  %C+  H %C  HUSTERSINCASCHIMBSTERSFDNDANUSPR=:B1Marcare pt.Stergere o persoana selectata anteriorUWhen,ValidFMessageN112AABAQA315Q_})VLq%`wqU0-B$Marcare Ulei: 0 - consum, 1 - schimbUMessage,11A)"frsActfaz1.MISCAR.PageFrame1.Page1formformMISCAR frsActfaz1Top = 30 Left = 6 Height = 332 Width = 540 DoCreate = .T. AutoCenter = .F. BorderStyle = 1 Caption = (" ACTUALIZARE DATE DIN FOI DE PARCURS") ControlBox = .F. Closable = .F. FontBold = .T. FontName = "Arial Narrow" FontSize = 10 HalfHeightCaption = .F. MaxButton = .F. MinButton = .F. Movable = .T. ZoomBox = .F. ColorSource = 5 BackColor = 192,192,192 FillColor = 192,192,192 Name = "MISCAR" xPROCEDURE Load *SET EXACT ON PUSH MENU _MSYSMENU ON KEY LABEL ESC DO adesc2 DIMENSION per[1,2], mag[1,2] *PUBLIC m.codmag PRIVAT m.iava, m.nrper, m.nrluc, m.btra, m.opri, m.poz, m.q1, m.kup SET talk off m.btra = 0 m.au = .F. m.opri = 0 m.Q1 = 0 m.iava = 0 m.kup = 0 m.kups = 0 m.mesaj ="" m.nrper = 0 m.dum=1 m.nrmag = 0 m.poz = 0 m.ca = m.coda m.cm = 0 m.cp = 0 m.tt = "" m.cnd = "" m.datpl = date() m.inca =.F. m.schimb =.F. m.sters =.F. m.stersf = .F. m.codluc = 0 m.denluc =" " m.denlucb= m.denluc m.denatob=m.denato m.denmag = "" m.denmat = "" m.codper = 0 m.denper = "" m.codmag = 0 DO inivar select per SET ORDER TO TAG "denper" m.nrper = inctab("per", "per", 2) m.codper = per[1,2] m.denper = per[1,1] SET ORDER TO TAG "codper" select mag && santiere m.nrmag = inctab("mag", "mag", 2) m.codmag = mag[1,2] m.denmag = mag[1,1] IF USED("cat") SELECT cat ELSE SELECT 0 USE (LOCFILE("cat.dbf","DBF","Unde e CAtt?")) AGAIN ALIAS cat ENDIF IF USED("tiu") SELECT tiu ELSE SELECT 0 USE (LOCFILE("tiu.dbf","DBF","Unde e TIuu?")) AGAIN ALIAS tiu ENDIF IF USED("tas") SELECT tas ELSE SELECT 0 USE (LOCFILE("tas.dbf","DBF","Unde e TAss?")) AGAIN ALIAS tas ENDIF select rul set order to tag codato m.csspe = m.cssp m.dencar = m.denca m.codcar = m.codca m.sinit = m.sini m.tip = m.tau m.cnd ="m.ca = rul.codato" SHOW GET m.csspe SHOW GET m.dencar SHOW GET m.sinit SHOW GET m.tip *DO whalf *PROCEDURE whalf IF WEXIST("stolist" ) RELEASE WINDOW "stolist" ENDIF DEFINE WINDOW "stolist" FROM 20,0 TO 36,85 NOFLOAT NOGROW ; NOZOOM CLOSE ENDPROC %FtUBCNC' U% 7 T a T - T -proc.prgproc.prgproc.prg^U SCHIMBINCASTERSRELATPROCPRGSHOVSELBW?<B3Modificarea datelor unei persoane, urmat de salvareUWhen,ValidFMessage112A1q11Q315Q<)W>>B%U% 7 T - T a T -T  T T  T  T  T  T!C  UINCASCHIMBSTERSDATPLDATACNRCRSCSSPECSSPDENCARDENCACODCARCODCASINITSINISHOVDENPERDAB8Afisare , sau Adaugare personal din Fise fiscale AUTOMATUValid,Message[1Ar!21Q)>uu}% UR>3<,T  T -URULSMFORULEIMSTOLISTMESAJAU74B+Terminare procedur, sterge rnduri marcateUValid,Message1QQA2A1 )u%> $Uf        U RCRT2SMSAULEIMULEITULEIHULEFRIULEATG41B(la nevoie operare cant.schimb realizata UValid,Message131 : )Line2 pageframe pageframe PageFrame1frsActfaz1.MISCARErasePage = .F. PageCount = 1 BorderWidth = 0 Top = 0 Left = 0 Width = 30000 Height = 30004 Tabs = .F. Name = "PageFrame1" Page1.Caption = "Page1" Page1.BackStyle = 0 Page1.Name = "Page1" linelineLine1"frsActfaz1.MISCAR.PageFrame1.Page1SHeight = 1 Left = 12 Top = 178 Width = 204 ReleaseErase = .F. Name = "Line1" shapeshapeShape3"frsActfaz1.MISCAR.PageFrame1.Page1Top = 168 Left = 312 Height = 120 Width = 216 BackStyle = 0 BorderWidth = 2 FillStyle = 1 ReleaseErase = .F. SpecialEffect = 1 ColorSource = 3 BackColor = 192,192,192 Name = "Shape3" shapeshape shpShape1"frsActfaz1.MISCAR.PageFrame1.Page1Top = 30 Left = 146 Height = 34 Width = 154 BackStyle = 0 FillStyle = 1 ReleaseErase = .F. SpecialEffect = 1 ColorSource = 3 Name = "shpShape1" shapeshape shpShape2"frsActfaz1.MISCAR.PageFrame1.Page1Top = 164 Left = 227 Height = 27 Width = 61 BackStyle = 0 FillStyle = 1 ReleaseErase = .F. SpecialEffect = 1 ColorSource = 3 Name = "shpShape2" linelinelinLine4"frsActfaz1.MISCAR.PageFrame1.Page1eBorderWidth = 2 Height = 0 Left = 5 Top = 84 Width = 523 ReleaseErase = .F. Name = "linLine4" labellabel lblNr_curse7"frsActfaz1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Nr.curse") Height = 16 Left = 344 Top = 96 Width = 44 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblNr_curse7" labellabel lblAlimenta8"frsActfaz1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Alimentat") Height = 16 Left = 35 Top = 239 Width = 49 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblAlimenta8" labellabel lblRestitui9"frsActfaz1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Restituit") Height = 16 Left = 35 Top = 266 Width = 45 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblRestitui9" labellabel lblHidrauli10"frsActfaz1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("Hidraulic") Height = 16 Left = 424 Top = 219 Width = 47 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblHidrauli10" labellabel lblTransmis11"frsActfaz1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("Transmisie") Height = 16 Left = 415 Top = 200 Width = 56 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblTransmis11" labellabel lblCu_incar12"frsActfaz1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Cu Incarc.") Height = 16 Left = 169 Top = 115 Width = 54 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblCu_incar12" labellabel lblEchivale13"frsActfaz1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Echivalent") Height = 16 Left = 169 Top = 134 Width = 55 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblEchivale13" labellabel lblSofer14"frsActfaz1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = (" Sofer") Height = 16 Left = 47 Top = 16 Width = 32 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblSofer14" labellabel lblTimp_ore15"frsActfaz1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Timp(Ore)") Height = 16 Left = 75 Top = 76 Width = 51 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblTimp_ore15" labellabel lblDeplasar16"frsActfaz1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Deplasare(Km)") Height = 16 Left = 185 Top = 76 Width = 77 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblDeplasar16" labellabel lbl_lt_17"frsActfaz1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("(Lt)") Height = 16 Left = 107 Top = 194 Width = 19 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lbl_lt_17" labellabel lblStoc_ini18"frsActfaz1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Stoc init.") Height = 16 Left = 35 Top = 216 Width = 48 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblStoc_ini18" labellabel lblRezervor19"frsActfaz1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Rezervor") Height = 16 Left = 173 Top = 266 Width = 46 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblRezervor19" labellabel lblTotal_ef20"frsActfaz1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Total Ef.") Height = 16 Left = 169 Top = 96 Width = 43 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblTotal_ef20" labellabel lblData21"frsActfaz1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Data") Height = 16 Left = 253 Top = 19 Width = 24 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblData21" labellabel lblVolum22"frsActfaz1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Volum") Height = 16 Left = 354 Top = 116 Width = 33 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblVolum22" labellabel lblBas_trac23"frsActfaz1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Bas/Trac") Height = 16 Left = 282 Top = 114 Width = 45 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblBas_trac23" labellabel lblO_p_r_i_24"frsActfaz1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("O p r i r i") Height = 16 Left = 173 Top = 213 Width = 44 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblO_p_r_i_24" labellabel lblStationa25"frsActfaz1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Stationare/Lpsf") Height = 16 Left = 26 Top = 134 Width = 82 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblStationa25" labellabel lblFunction26"frsActfaz1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Functionare/Disl") Height = 16 Left = 22 Top = 115 Width = 87 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblFunction26" labellabel lblConfirma27"frsActfaz1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Confirmate/Expl") Height = 16 Left = 25 Top = 96 Width = 84 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblConfirma27" labellabel lbl_ulei_mo28"frsActfaz1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("-Ulei Motor") Height = 16 Left = 413 Top = 179 Width = 58 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lbl_ulei_mo28" labellabel lbl_lich_fr29"frsActfaz1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("-Lich.Frina") Height = 16 Left = 414 Top = 242 Width = 57 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lbl_lich_fr29" labellabel lblAntigel30"frsActfaz1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("Antigel") Height = 16 Left = 435 Top = 265 Width = 37 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblAntigel30" labellabellblRt231"frsActfaz1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("RT2") Height = 16 Left = 331 Top = 218 Width = 20 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblRt231" labellabel lblSch_av32"frsActfaz1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("Sch.Av") Height = 16 Left = 331 Top = 239 Width = 37 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblSch_av32" labellabel lblRep_c33"frsActfaz1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("Rep.C") Height = 16 Left = 331 Top = 198 Width = 32 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblRep_c33" labellabel lblPrestati34"frsActfaz1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Prestatii") Height = 16 Left = 368 Top = 76 Width = 43 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblPrestati34" labellabel lblSch_u35"frsActfaz1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("Sch.U") Height = 16 Left = 331 Top = 178 Width = 32 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblSch_u35" labellabel lblConsum_l36"frsActfaz1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Consum(Lt)") Height = 16 Left = 404 Top = 159 Width = 63 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblConsum_l36" labellabel lblCarburan37"frsActfaz1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Carburant(Lt)") Height = 16 Left = 96 Top = 170 Width = 72 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblCarburan37" labellabellblTip38"frsActfaz1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("tip") Height = 16 Left = 466 Top = 3 Width = 14 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblTip38" labellabellbl__39"frsActfaz1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = ("<<") Height = 16 Left = 159 Top = 0 Width = 12 ReleaseErase = .F. ColorSource = 3 Name = "lbl__39" labellabellbl__40"frsActfaz1.MISCAR.PageFrame1.Page1FontName = "Arial Narrow" FontSize = 10 Caption = (">>") Height = 16 Left = 402 Top = 0 Width = 12 ReleaseErase = .F. ColorSource = 3 Name = "lbl__40" labellabel lblBenef41"frsActfaz1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Benef") Height = 16 Left = 353 Top = 38 Width = 31 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblBenef41" labellabel lblNr_doc44"frsActfaz1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Nr.Doc") Height = 16 Left = 175 Top = 19 Width = 36 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblNr_doc44" labellabel lblCons_sp89"frsActfaz1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Cons.Sp") Height = 16 Left = 235 Top = 172 Width = 46 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblCons_sp89" labellabel lblNr_aviz90"frsActfaz1.MISCAR.PageFrame1.Page1FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Caption = ("Nr.aviz") Height = 16 Left = 354 Top = 137 Width = 35 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 Name = "lblNr_aviz90" textboxtextboxtxtTip45"frsActfaz1.MISCAR.PageFrame1.Page1+FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.tip" Enabled = .F. Height = 19 Left = 490 Margin = 0 SpecialEffect = 1 Top = 3 Width = 20 ReleaseErase = .F. ColorSource = 3 BorderColor = 0,128,192 Name = "txtTip45" comboboxcombobox cboDenper46"frsActfaz1.MISCAR.PageFrame1.Page15FontBold = .F. FontName = "MS Sans Serif" FontSize = 8 RowSourceType = 5 RowSource = "per" Value = 1 ControlSource = "m.denper" Enabled = .F. Height = 20 Left = 10 SpecialEffect = 1 Style = 2 Top = 34 Width = 122 ReleaseErase = .F. ColorSource = 3 ForeColor = 0,128,192 Name = "cboDenper46" PROCEDURE When RETURN m.nrper > 0 ENDPROC PROCEDURE Valid IF NOT EMPTY(m.denper) m.poz = ASCAN(per, m.denper, 1) IF m.poz <> 0 m.codper = per[ASUBSCRIPT(per, m.poz, 1), 2] ENDIF IF m.schimb m.cp = m.codper m.cm = 0 m.ca = 0 *DO sel *DO bw ENDIF ENDIF ENDPROC PROCEDURE Message RETURN "Alegeti o Persoan, sau afisare pe sofer " ENDPROC _%@`U T - T - T - ¿,     T T T  U INCASCHIMBSTERSMISCARADAUGMODIFICSTERGOKSALVEZCPCMCACODABDezactivare machetUValid,Message121.J)lineline"frsActfaz1.MISCAR.PageFrame1.Page1textboxtextbox txtNrfp47"frsActfaz1.MISCAR.PageFrame1.Page1=FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.nrfp" Enabled = .F. Format = "K" Height = 20 Left = 156 Margin = 0 SpecialEffect = 1 Top = 37 Width = 61 ReleaseErase = .F. ColorSource = 3 BorderColor = 64,128,128 Name = "txtNrfp47" PROCEDURE Valid IF m.nrfp # 0 SHOW GET m.salvez ENABLE ELSE SHOW GET m.salvez DISABLE ENDIF ENDPROC PROCEDURE Message RETURN "Pt.Nr.fp #/= 0 -afisare Nr.fp./sectie" ENDPROC b%axrU1.B%-este stoc final existent in rezervorUMessage,11A)dBorderWidth = 2 Height = 1 Left = 12 Top = 288 Width = 276 ReleaseErase = .F. Name = "Line2"  txtDenato88textboxtextbox txtDatpl48"frsActfaz1.MISCAR.PageFrame1.Page1JFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = { / / } ControlSource = "m.datpl" Enabled = .F. Format = "K" Height = 20 Left = 225 Margin = 0 SpecialEffect = 1 Top = 37 Width = 63 ReleaseErase = .F. ColorSource = 3 BorderColor = 64,128,128 Name = "txtDatpl48" comboboxcombobox cboDenmag49"frsActfaz1.MISCAR.PageFrame1.Page16FontBold = .F. FontName = "MS Sans Serif" FontSize = 8 RowSourceType = 5 RowSource = "mag" Value = 1 ControlSource = "m.denmag" Enabled = .F. Height = 20 Left = 396 SpecialEffect = 1 Style = 2 Top = 34 Width = 120 ReleaseErase = .F. ColorSource = 3 ForeColor = 0,128,192 Name = "cboDenmag49" PROCEDURE When RETURN m.nrmag > 0 ENDPROC PROCEDURE Valid IF NOT EMPTY(m.denmag) m.poz = ASCAN(mag, m.denmag, 1) IF m.poz <> 0 m.codmag = mag[ASUBSCRIPT(mag, m.poz, 1), 2] ENDIF IF m.schimb m.cm = m.codmag m.cp = 0 m.ca = 0 *DO sel *DO bw ENDIF SHOW GET m.denmag ENDIF ENDPROC PROCEDURE Message RETURN "Alegeti un benef.." ENDPROC %zUJGB>-calculat dup cursa fcut gol/plin, volum transportat pe FP.UMessage,1q1Z)M%k|U;8B/-nr Oprire pt calculare Q1=0.25*kups/100*opr, UMessage,11K)textboxtextbox"frsActfaz1.MISCAR.PageFrame1.Page1textboxtextbox txtExplo50"frsActfaz1.MISCAR.PageFrame1.Page1?FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.explo" Enabled = .F. Format = "K" Height = 20 Left = 114 Margin = 0 SpecialEffect = 1 Top = 95 Width = 35 ReleaseErase = .F. ColorSource = 3 BorderColor = 64,128,128 Name = "txtExplo50" EPROCEDURE Message RETURN "Ore Conformate sau Exploatare " ENDPROC %WnhU'$B Tot. km. efectiv parcursi UMessage,1A17)textboxtextbox txtDisloc51"frsActfaz1.MISCAR.PageFrame1.Page1BFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.disloc" Enabled = .F. Format = "K" Height = 20 Left = 114 Margin = 0 SpecialEffect = 1 Top = 114 Width = 35 ReleaseErase = .F. ColorSource = 3 BorderColor = 64,128,128 Name = "txtDisloc51" RPROCEDURE Message RETURN "Ore functionare sau Dislocare-alt loc munca" ENDPROC Lq%`wqU0-B$-stoc in rezervor la inceput de lunUMessage,11@)textboxtextbox txtStatio52"frsActfaz1.MISCAR.PageFrame1.Page1BFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.statio" Enabled = .F. Format = "K" Height = 20 Left = 114 Margin = 0 SpecialEffect = 1 Top = 133 Width = 35 ReleaseErase = .F. ColorSource = 3 BorderColor = 64,128,128 Name = "txtStatio52" KPROCEDURE Message RETURN "Stationare sau lipsa front de lucru " ENDPROC I%_vpU/,B#-consum Specific carburant pe auto-UMessage,11?)textboxtextbox txtKmtot53"frsActfaz1.MISCAR.PageFrame1.Page1TFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.kmtot" Enabled = .F. Format = "K" Height = 20 InputMask = "99999" Left = 233 Margin = 0 SpecialEffect = 1 Top = 95 Width = 35 ReleaseErase = .F. ColorSource = 3 BorderColor = 64,128,128 Name = "txtKmtot53" BPROCEDURE Message RETURN " Tot. km. efectiv parcursi " ENDPROC Lq%`wqU0-B$Stationare sau lipsa front de lucru UMessage,11@)textboxtextbox txtKminc54"frsActfaz1.MISCAR.PageFrame1.Page1EFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.kminc" Enabled = .F. Format = "K99999" Height = 20 Left = 233 Margin = 0 SpecialEffect = 1 Top = 114 Width = 35 ReleaseErase = .F. ColorSource = 3 BorderColor = 64,128,128 Name = "txtKminc54" QPROCEDURE Message RETURN " # 0, Incadrare Kups, si calcul Echivalent" ENDPROC >%f}wU63B* # 0, Incadrare Kups, si calcul EchivalentUMessage,111F)textboxtextbox txtKmech55"frsActfaz1.MISCAR.PageFrame1.Page1EFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.kmech" Enabled = .F. Format = "K99999" Height = 20 Left = 233 Margin = 0 SpecialEffect = 1 Top = 133 Width = 35 ReleaseErase = .F. ColorSource = 3 BorderColor = 64,128,128 Name = "txtKmech55" PROCEDURE When IF m.kmtot # 0 STORE m.kminc / m.kmtot TO m.kup SELE cat GO TOP LOCA FOR m.kup < cat.lim &&coef.calculat cuprins in limite IF FOUND() DO CASE case m.cup<6.5 m.kups=0 case m.cup=6.50 OR m.cup=6 m.kups=cat.coe06 case m.cup=8.50 OR m.cup=8 m.kups=cat.coe08 case m.cup=10.00 OR m.cup=10.50 m.kups=cat.coe10 case m.cup=16.00 OR m.cup=16.50 m.kups=cat.coe16 case m.cup=18.00 m.kups=cat.coe18 case m.cup=20.00 m.kups=cat.coe20 other m.kups=cat.coe22 ENDCASE ELSE m.kups=1 ENDIF WAIT "Coef.CUPS (cup.A, Coef,) = "+str(m.cup,7,3)+STR(m.kups,7,3) WINDOW NOWAIT SELE rul ELSE WAIT " Km.tot= 0 !!" WINDOW RETU .F. ENDIF ENDPROC PROCEDURE Valid IF m.kmech=0 DO catd.spr SHOW GET m.btra if m.kminc = 0 _CUROBJ=OBJNUM(m.alim) endif ENDIF ENDPROC PROCEDURE Message RETURN "-calculat pe FP. dup categorie drum, + Bascul/tractare" ENDPROC *e%`U% hUT CC   d   ?d 6?8UT CC   d   ?d 6?8% ~% %6T C? d ?8c6T C? d ?8T    %    M% MT CC     ?6?8I-R$Lipsa Ore functionare(dislocare) !! T!C #T      UKUPSCSNORMIAVAKMECHCSSPEOPRIQ1TIPDISLOCEXPLOINREZSINITALIMRESTIFCB:Calculare Consum Normat, cu coeficientii, kup,q,btr,oprir UValid,Message11QQA11aaAqA1!AA1211){Arial Narrow, 1, 10, 5, 16, 13, 15, 3, 0 Arial Narrow, 0, 10, 5, 16, 13, 15, 3, 0 MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0  cmgSterg87 commandgroup commandgroupcmgOk84textboxtextbox txtBtra56"frsActfaz1.MISCAR.PageFrame1.Page1\FontBold = .T. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.btra" Enabled = .F. Format = "K99999" Height = 20 Left = 286 Margin = 0 SpecialEffect = 1 Top = 132 Width = 35 ReleaseErase = .F. ColorSource = 3 BackColor = 192,192,192 BorderColor = 64,128,128 Name = "txtBtra56" WPROCEDURE Message RETURN "Intrare Basculate/Tractare, Km, conform operatie" ENDPROC %l}U<9B0Intrare Basculate/Tractare, Km, conform operatieUMessage,11L)textboxtextbox txtNrcrs57"frsActfaz1.MISCAR.PageFrame1.Page1?FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.nrcrs" Enabled = .F. Format = "K" Height = 20 Left = 413 Margin = 0 SpecialEffect = 1 Top = 92 Width = 30 ReleaseErase = .F. ColorSource = 3 BorderColor = 64,128,128 Name = "txtNrcrs57" textboxtextbox txtVolum58"frsActfaz1.MISCAR.PageFrame1.Page1GFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.volum" Enabled = .F. Format = "K9999.99" Height = 20 Left = 401 Margin = 0 SpecialEffect = 1 Top = 114 Width = 40 ReleaseErase = .F. ColorSource = 3 BorderColor = 64,128,128 Name = "txtVolum58" comboboxcomboboxcboDum59"frsActfaz1.MISCAR.PageFrame1.Page17FontBold = .F. FontName = "MS Sans Serif" FontSize = 8 RowSourceType = 1 RowSource = "TO,MC,KG,HL" Value = ("TO") ControlSource = "m.dum" Enabled = .F. FirstElement = 1 Height = 20 Left = 449 SpecialEffect = 1 Style = 2 Top = 91 Width = 40 ReleaseErase = .F. ColorSource = 3 Name = "cboDum59" PROCEDURE Valid DO CASE CASE m.dum=1 m.um='TO' CASE m.dum=2 m.um='MC' CASE m.dum=3 m.um='KG' CASE m.dum=4 m.um='HL' ENDCASE SHOW GET m.um ENDPROC A%n}U8%  1 UIAVAValid,11A1])"frsActfaz1.MISCAR.PageFrame1.Page1 cmgModific86 commandgroup commandgroup cmgAdaug85textboxtextboxtxtUm60"frsActfaz1.MISCAR.PageFrame1.Page1!FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.um" Enabled = .F. Format = "A!" Height = 20 Left = 495 Margin = 0 SpecialEffect = 1 Top = 114 Width = 20 ReleaseErase = .F. ColorSource = 3 BorderColor = 64,128,128 Name = "txtUm60" textboxtextbox txtNraviz61"frsActfaz1.MISCAR.PageFrame1.Page1(FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.nraviz" Enabled = .F. Format = "K" Height = 20 Left = 413 Margin = 0 SpecialEffect = 1 Top = 135 Width = 85 ReleaseErase = .F. ColorSource = 3 BorderColor = 64,128,128 Name = "txtNraviz61" textboxtextbox txtCsspe62"frsActfaz1.MISCAR.PageFrame1.Page1EFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.csspe" Enabled = .F. Format = "999.99" Height = 20 Left = 245 Margin = 0 SpecialEffect = 1 Top = 193 Width = 35 ReleaseErase = .F. ColorSource = 3 BorderColor = 64,128,128 Name = "txtCsspe62" JPROCEDURE Message RETURN "-consum Specific carburant pe auto-" ENDPROC  %g~xU74B+Ore functionare sau Dislocare-alt loc muncaUMessage,1A1G)textboxtextbox txtDencar63"frsActfaz1.MISCAR.PageFrame1.Page19FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 1 ControlSource = "m.dencar" Enabled = .F. Format = "K" Height = 20 Left = 12 Margin = 0 SpecialEffect = 1 Top = 193 Width = 75 ReleaseErase = .F. ColorSource = 3 ForeColor = 0,0,0 BorderColor = 0,128,192 Name = "txtDencar63" textboxtextbox txtSinit64"frsActfaz1.MISCAR.PageFrame1.Page11FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.sinit" Enabled = .F. Height = 20 Left = 90 Margin = 0 SpecialEffect = 1 Top = 212 Width = 45 ReleaseErase = .F. ColorSource = 3 BorderColor = 64,128,128 Name = "txtSinit64" KPROCEDURE Message RETURN "-stoc in rezervor la inceput de lun" ENDPROC m%ZqkU*'BOre Conformate sau Exploatare UMessage,1q1:)textboxtextbox txtAlim65"frsActfaz1.MISCAR.PageFrame1.Page1=FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.alim" Enabled = .F. Format = "K" Height = 20 Left = 90 Margin = 0 SpecialEffect = 1 Top = 236 Width = 45 ReleaseErase = .F. ColorSource = 3 BorderColor = 64,128,128 Name = "txtAlim65" textboxtextbox txtResti66"frsActfaz1.MISCAR.PageFrame1.Page1?FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.resti" Enabled = .F. Format = "K" Height = 20 Left = 90 Margin = 0 SpecialEffect = 1 Top = 263 Width = 45 ReleaseErase = .F. ColorSource = 3 BorderColor = 64,128,128 Name = "txtResti66" checkboxcheckbox chkIava67"frsActfaz1.MISCAR.PageFrame1.Page1&Top = 192 Left = 160 Height = 17 Width = 56 FontName = "MS Sans Serif" FontSize = 8 Caption = ("Iarna") Value = 0 ControlSource = "m.iava" Enabled = .T. SpecialEffect = 1 Style = 0 TerminateRead = .F. ReleaseErase = .F. ColorSource = 3 ForeColor = 0,128,192 Name = "chkIava67" hPROCEDURE Valid IF m.iava=1 SHOW GET m.iava DISABLE ELSE SHOW GET m.iava DISABLE ENDIF ENDPROC PROCEDURE Valid **IF EMPTY(m.denato) IF m.denatob # m.denato CLEAR READ CLEAR GETS m.mesaj="" m.au = .T. m.sm=0 ENDIF ENDPROC "frsActfaz1.MISCAR.PageFrame1.Page1 commandgroup commandgroup commandgrouptextboxtextbox txtOpri68"frsActfaz1.MISCAR.PageFrame1.Page1@FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.opri" Enabled = .F. Format = "999" Height = 20 Left = 255 Margin = 0 SpecialEffect = 1 Top = 214 Width = 25 ReleaseErase = .F. ColorSource = 3 BorderColor = 64,128,128 Name = "txtOpri68" VPROCEDURE Message RETURN "-nr Oprire pt calculare Q1=0.25*kups/100*opr, " ENDPROC PROCEDURE Valid CLEAR READ CLEAR GETS REPL rul.sm WITH 0 FOR rul.uleim=0 PACK *CLOSE DATA RELE WINDOW stolist m.mesaj="" m.au=.F. ENDPROC PROCEDURE Message RETURN "Terminare procedur, sterge rnduri marcate" ENDPROC  commandgroup commandgroup cmgNorm69"frsActfaz1.MISCAR.PageFrame1.Page1ButtonCount = 1 BackStyle = 0 BorderStyle = 0 ControlSource = "m.norm" Height = 23 Left = 169 SpecialEffect = 1 Top = 234 Width = 48 ReleaseErase = .F. Name = "cmgNorm69" Command1.Top = 0 Command1.Left = 0 Command1.Height = 23 Command1.Width = 48 Command1.FontName = "MS Sans Serif" Command1.FontSize = 8 Command1.Caption = ("Normat") Command1.Enabled = .T. Command1.TerminateRead = .F. Command1.ReleaseErase = .F. Command1.SpecialEffect = 1 Command1.ColorSource = 3 Command1.Name = "Command1" %PROCEDURE Valid IF m.kups # 0 && pt. ierna/vara 1.1 / 1 m.csnorm =INT(IIF(m.iava=0,m.kmech*m.kups/100,m.kmech*m.kups*1.1/100)+0.5) ELSE m.csnorm=INT(IIF(m.iava=0,m.kmech*m.csspe/100,m.kmech*m.csspe*1.1/100)+0.5) ENDIF IF m.opri # 0 if m.kups # 0 m.q1 =INT((0.25 * m.kups) / 100 * m.opri + 0.5) else m.q1 =INT((0.25 * m.csnorm) / 100 * m.opri + 0.5) endif m.csnorm = m.csnorm + m.q1 ENDIF if m.tip=13 OR m.tip=14 && caz tractor if m.disloc # 0 m.csnorm=INT(IIF(m.iava=0,m.disloc*m.csspe,m.disloc*m.csspe*1.1)+0.5) else Wait "Lipsa Ore functionare(dislocare) !! " _CUROBJ=OBJNUM(m.explo) endif endif m.inrez = m.sinit+m.alim-m.resti-m.csnorm SHOW GET m.csnorm SHOW GET m.inrez ENDPROC PROCEDURE Message RETURN "Calculare Consum Normat, cu coeficientii, kup,q,btr,oprir " ENDPROC rYY% U H  1T TO UT MC yT KG T HL UDUMUMValid,11111A1)Y*T%VUB UNRMAG%C T C % b"T CC % T  T T  UDENMAGPOZMAGCODMAGSCHIMBCMCPCABAlegeti un benef..UWhen,ValidIMessage413!1!BCA21$@Rp)"frsActfaz1.MISCAR.PageFrame1.Page1 commandgroup"frsActfaz1.MISCAR.PageFrame1.Page1 cmgAnulez83textboxtextboxtextbox txtCsnorm70"frsActfaz1.MISCAR.PageFrame1.Page1HFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.csnorm" Enabled = .F. Format = "9999.99" Height = 20 Left = 235 Margin = 0 SpecialEffect = 1 Top = 236 Width = 45 ReleaseErase = .F. ColorSource = 3 BorderColor = 64,128,128 Name = "txtCsnorm70" ePROCEDURE Message RETURN "-calculat dup cursa fcut gol/plin, volum transportat pe FP." ENDPROC  commandgroup commandgroup"frsActfaz1.MISCAR.PageFrame1.Page1 cmgSalvez82 commandgroup commandgroup"frsActfaz1.MISCAR.PageFrame1.Page1 txtUleatg81textbox txtUlefri80textboxtextboxtextbox txtInrez71"frsActfaz1.MISCAR.PageFrame1.Page12FontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.inrez" Enabled = .F. Height = 20 Left = 235 Margin = 0 SpecialEffect = 1 Top = 263 Width = 45 ReleaseErase = .F. ColorSource = 3 BorderColor = 64,128,128 Name = "txtInrez71" LPROCEDURE Message RETURN "-este stoc final existent in rezervor" ENDPROC "frsActfaz1.MISCAR.PageFrame1.Page1textbox"frsActfaz1.MISCAR.PageFrame1.Page1 txtUleih79textboxtextbox"frsActfaz1.MISCAR.PageFrame1.Page1 txtUleit78textbox commandgroup commandgroupcmgMar72"frsActfaz1.MISCAR.PageFrame1.Page1ButtonCount = 1 BackStyle = 0 BorderStyle = 0 ControlSource = "m.mar" Height = 23 Left = 340 SpecialEffect = 1 Top = 260 Width = 48 ReleaseErase = .F. Name = "cmgMar72" Command1.Top = 0 Command1.Left = 0 Command1.Height = 23 Command1.Width = 48 Command1.FontName = "MS Sans Serif" Command1.FontSize = 8 Command1.Caption = ("Schimb") Command1.Enabled = .T. Command1.TerminateRead = .F. Command1.ReleaseErase = .F. Command1.SpecialEffect = 1 Command1.ColorSource = 3 Command1.Name = "Command1" EPROCEDURE Valid SHOW GET m.rc ENABLE SHOW GET m.rt2 ENABLE SHOW GET m.sm ENABLE SHOW get m.sa ENABLE SHOW GET m.uleim ENABLE SHOW GET m.uleit ENABLE SHOW GET m.uleih ENABLE SHOW get m.ulefri ENABLE SHOW get m.uleatg ENABLE ENDPROC PROCEDURE Message RETURN "la nevoie operare cant.schimb realizata " ENDPROC O66M% U8%  1 UNRFPSALVEZ1.B%Pt.Nr.fp #/= 0 -afisare Nr.fp./sectieUValid,Messagev11A21b)6textbox"frsActfaz1.MISCAR.PageFrame1.Page1 txtUleim77textboxtextboxtextboxtxtSm73"frsActfaz1.MISCAR.PageFrame1.Page1LFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.sm" Enabled = .F. Format = "K" Height = 20 Left = 372 Margin = 0 SpecialEffect = 1 Top = 176 Width = 15 ReleaseErase = .F. ColorSource = 3 BackColor = 0,0,0 BorderColor = 255,128,0 Name = "txtSm73" LPROCEDURE Message RETURN "Marcare Ulei: 0 - consum, 1 - schimb" ENDPROC textbox"frsActfaz1.MISCAR.PageFrame1.Page1txtSa76textboxtextbox"frsActfaz1.MISCAR.PageFrame1.Page1txtRt275textboxtextbox"frsActfaz1.MISCAR.PageFrame1.Page1textboxtextboxtxtRc74LFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.rc" Enabled = .F. Format = "K" Height = 20 Left = 372 Margin = 0 SpecialEffect = 1 Top = 197 Width = 15 ReleaseErase = .F. ColorSource = 3 BackColor = 0,0,0 BorderColor = 255,128,0 Name = "txtRc74" NFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.rt2" Enabled = .F. Format = "K" Height = 20 Left = 372 Margin = 0 SpecialEffect = 1 Top = 217 Width = 15 ReleaseErase = .F. ColorSource = 3 BackColor = 0,0,0 BorderColor = 255,128,0 Name = "txtRt275" LFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.sa" Enabled = .F. Format = "K" Height = 20 Left = 372 Margin = 0 SpecialEffect = 1 Top = 236 Width = 15 ReleaseErase = .F. ColorSource = 3 BackColor = 0,0,0 BorderColor = 255,128,0 Name = "txtSa76" $FontBold = .F. FontName = "Arial Narrow" FontSize = 10 BorderStyle = 0 ControlSource = "m.denato" Enabled = .T. Format = "K" Height = 19 Left = 174 Margin = 0 SpecialEffect = 1 Top = 0 Width = 222 ReleaseErase = .F. ColorSource = 3 ForeColor = 0,128,192 Name = "txtDenato88" RFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.uleim" Enabled = .F. Format = "K" Height = 20 Left = 480 Margin = 0 SpecialEffect = 1 Top = 177 Width = 35 ReleaseErase = .F. ColorSource = 3 BackColor = 0,0,0 BorderColor = 255,128,0 Name = "txtUleim77" RFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.uleit" Enabled = .F. Format = "K" Height = 20 Left = 480 Margin = 0 SpecialEffect = 1 Top = 198 Width = 35 ReleaseErase = .F. ColorSource = 3 BackColor = 0,0,0 BorderColor = 255,128,0 Name = "txtUleit78" RFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.uleih" Enabled = .F. Format = "K" Height = 20 Left = 480 Margin = 0 SpecialEffect = 1 Top = 219 Width = 35 ReleaseErase = .F. ColorSource = 3 BackColor = 0,0,0 BorderColor = 255,128,0 Name = "txtUleih79" TFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.ulefri" Enabled = .F. Format = "K" Height = 20 Left = 480 Margin = 0 SpecialEffect = 1 Top = 240 Width = 35 ReleaseErase = .F. ColorSource = 3 BackColor = 0,0,0 BorderColor = 255,128,0 Name = "txtUlefri80" GPROCEDURE When RETURN RECCOUNT()>0 AND NOT DELETED() ENDPROC PROCEDURE Valid IF NOT m.schimb m.schimb=.T. m.inca =.F. m.sters =.F. ENDIF DO relat IN proc.prg DO shov DO sel IN proc.prg DO bw IN proc.prg SCATTER MEMVAR ENDPROC PROCEDURE Message RETURN "Modificarea datelor unei persoane, urmat de salvare" ENDPROC TFontBold = .F. FontName = "Arial Narrow" FontSize = 10 Alignment = 3 BorderStyle = 1 Value = 0 ControlSource = "m.uleatg" Enabled = .F. Format = "K" Height = 20 Left = 481 Margin = 0 SpecialEffect = 1 Top = 262 Width = 35 ReleaseErase = .F. ColorSource = 3 BackColor = 0,0,0 BorderColor = 255,128,0 Name = "txtUleatg81"  ButtonCount = 1 BackStyle = 0 BorderStyle = 1 ControlSource = "m.salvez" Height = 23 Left = 302 SpecialEffect = 1 Top = 299 Width = 54 ReleaseErase = .F. Name = "cmgSalvez82" Command1.Top = 0 Command1.Left = 0 Command1.Height = 23 Command1.Width = 54 Command1.FontName = "MS Sans Serif" Command1.FontSize = 8 Command1.Caption = ("\0 AND NOT DELETED() ENDPROC PROCEDURE Valid IF NOT m.sters m.sters = .T. m.inca = .F. m.schimb = .F. m.stersf = .T. ENDIF m.dn = .F. DO danu.spr WITH "Stergeti articolul ?", m.dn IF m.dn DELETE ENDIF IF NOT EOF() SKIP 1 IF NOT BOF() SKIP -1 ENDIF SHOW GETS ENDIF ENDPROC PROCEDURE Message RETURN "Marcare pt.Stergere o persoana selectata anterior" ENDPROC  ButtonCount = 1 BackStyle = 0 BorderStyle = 1 ControlSource = "m.sterg" Height = 23 Left = 200 SpecialEffect = 1 Top = 299 Width = 72 ReleaseErase = .F. Name = "cmgSterg87" Command1.Top = 0 Command1.Left = 0 Command1.Height = 23 Command1.Width = 72 Command1.FontName = "MS Sans Serif" Command1.FontSize = 8 Command1.Caption = ("Ste\ actfaz.scx actfaz.scxJUMAGPERACTFAZSCX _2GG0VW9B7|T T T T T T T T T T  T T T T T T T T T T T T T T T UNRFPEXPLODISLOCSTATIOKMTOTKMINCKMECHNRCRSVOLUMUMALIMRESTICSEFECCSNORMINREZCSDIFULEIMULEITULEIHULEFRIULEATGRCRT2SMSA                UADAUGMODIFICOKDENCARDENSECCSSPECSNORMSINITINREZIAVABTRAUMTAURCRT2SMSAULEIMULEITULEIHULEFRIULEATGinivarshov"52q6& 8'0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _2GG0VWAE5 958690998&5F% WINDOWS _2GG0VWAE7 958690998Z  WINDOWS _2GG0VWAE9 958690998*F WINDOWS _2GG0VWAEZ 958690998  , @ m COMMENT FONTINFO VERSION = 3.00formsetformset frsAlert1oWindowType = 2 ReadCycle = .T. ReadLock = .T. ReleaseWindows = .T. ReadTimeout = 5000 Name = "frsAlert1" PROCEDURE Load PARAMETERS anystring *- [CONVERTER] Remember environment PRIVATE m.compstat, m.currarea, m.rborder, m.talkstat IF SET("TALK") = "ON" SET TALK OFF m.talkstat = "ON" ELSE m.talkstat = "OFF" ENDIF m.compstat = SET("COMPATIBLE") SET COMPATIBLE FOXPLUS m.rborder = SET("READBORDER") SET READBORDER ON m.currarea = SELECT() ENDPROC PROCEDURE Unload *- [CONVERTER] Restore environment IF TYPE("rborder") == 'C' SET READBORDER &rborder ENDIF IF TYPE("talkstat") == 'C' IF m.talkstat = "ON" SET TALK ON ENDIF ENDIF IF TYPE("compstat") == 'C' IF m.compstat = "ON" SET COMPATIBLE ON ENDIF ENDIF IF m.cursor = "ON" SET CURSOR ON ENDIF ENDPROC formform _2GG0VWAE8 frsAlert1FontName = "MS Sans Serif" FontSize = 10 Width = 400 Height = 75 Top = 0 Left = 0 AutoCenter = .T. ColorSource = 5 BackColor = 255,0,255 FillColor = 255,0,255 DisabledBackColor = 255,0,255 Caption = ("") BorderStyle = 2 Sizable = .F. MDIChild = .F. MaxButton = .F. ZoomBox = .F. Movable = .T. Closable = .F. MinButton = .F. HalfHeightCaption = .F. Name = "_2GG0VWAE8" PROCEDURE Load PRIVATE m.cursor IF SET("CURSOR") = "ON" m.cursor = "ON" SET CURSOR OFF ELSE m.cursor = "OFF" ENDIF ENDPROC 3 pageframe pageframe PageFrame1frsAlert1._2GG0VWAE8Top = 0 Left = 0 Height = 30000 Width = 30000 PageCount = 1 BorderWidth = 0 Tabs = .F. ErasePage = .F. DrawFrame = .F. Name = "PageFrame1" Page1.BackStyle = 0 Page1.Name = "Page1" textboxtextbox txtPadc_m_a1%frsAlert1._2GG0VWAE8.PageFrame1.Page1=FontName = "MS Sans Serif" FontSize = 10 FontBold = .F. Top = 25 Left = 5 Width = 376 Height = 20 ColorSource = 3 ReleaseErase = .F. Format = "@I" Value = (PADC(m.anystring,46)) Margin = 0 Style = 1 ReadOnly = .T. TabStop = .F. BorderStyle = 0 SpecialEffect = 1 Alignment = 2 Name = "txtPadc_m_a1" VMS Sans Serif, 1, 10, 8, 16, 13, 15, 3, 0 MS Sans Serif, 0, 10, 7, 16, 13, 14, 3, 0 *- [CONVERTER] Parameter statement generated by Converter *- [CONVERTER] Pass these values along to the new form PARAMETERS anystring LOCAL _aParm, _cparmstr, _nctr DIMENSION _aParm[1] _aParm[1] = [anystring] _cparmstr = [] IF PARAMETERS() > 0 _cparmstr = [WITH ] _cparmstr = _cparmstr + _aParm[1] FOR m._nctr = 2 TO PARAMETERS() _cparmstr = _cparmstr + [,] + _aParm[m._nctr] NEXT ENDIF EXTERNAL PROC alert.scx DO FORM "alert.scx" NAME _2GG0VWAEC LINKED &_cparmstr % U\ 5 %CCURSORvON;T ONG]UT OFFUCURSORLoad,1a!A2~)%} =U45    %CTALKvONRG2T ONlT OFFT C COMPATIBLEvGAT C READBORDERvGj T CWU ANYSTRINGCOMPSTATCURRAREARBORDERTALKSTAT%CrborderbC6SET READBORDER &rborder %CtalkstatbCu% ONqG2 %CcompstatbC% ONGA % ONG] UTALKSTATCOMPSTATCURSORLoad,Unload%1qa!Aaa4AQaAAQaAASaA2h)%gv$9Z 4 T anystring T%CTWITH TC (CT,C  alert.scx9DO FORM "alert.scx" NAME _2GG0VWAEC LINKED &_cparmstr U ANYSTRING_APARM _CPARMSTR_NCTRALERTSCXs!QAA1,%P9A;Q:wU1{G<, GN-U%CautFQF.QCaut.dbfDBF Unde e ATU?Sato.dbfatu.dbf& CZaut.cdxFQFQFBUAUTATODBFATUCODATOCDXI ~MOD DE OPERARE Evid.Transp.Auto@ROMAN VCU> 1, -pornire program cu comanda ETR.BAT, din directorul ETR\ 1CU ~ 2, -meniul FERESTRE oCUW -Consultare ajutor, liste, calendar, CACULATOR, operatii de salt,inchide, copiere, 5CU ~ 3, -meniul INITIALIZARE oCUW -Stabilire DATA luna curenta, sold initial an/luna, Golire rulaj lunar, Reia luna, nCUV -Sase pasi pt.inchidere de luna, prin recalcul Rest rezervor, Consum Ulei, bareme,6CU ~ 4, -meniul START OPERATIIqCUY -Permite schimbare unitate/sectie, apel Machete de operare date, Listare, Nomenclator3CU ~ 5, -meniul UTILITAR BDrCUZ -Operatii cu fisiere din BD, vizual.Coeficientii, Arhivare, Activare program, Indexare2CU ~ 6, -meniul TERMINARE kCUS -Paraseste programul si revine in sistemul de operare, cu sau fara salvare BD.  ~(b4 Versiune program U8UUG2%CruuF\F-QCruu.dbfDBF Unde e ruu? T -2danu.sprReluare date Calendar ? % &R,:Asteptati reluare... ST CT C HSET DEFAULT TO &root FQF+ *T CC  \\rul.dbf%C0 USE &fm  proc.prgF query.dbfR,: Lipsa fisier T  FQSET DEFAULT TO &fn FURUUDNDANUSPRFMFNIDATAPRULLUNCONSUPROCPRGQUERYDBFdaSELECT * FROM RUL HAVING &cnd ORDER BY RUL.CODSEC, RUL.DATPL, RUL.CODATO INTO TABLE QUERY.DBF UQNSELECT * FROM RUU HAVING &cnd ORDER BY ruu.codato,RUU.DATPL INTO table ord UO ed.mprt&/ descrie.txt GN-BUEDMPRDESCRIETXTSCREENa%Cstolist ZCs,stolist(O BƾU[%Clist T@s,list(O BƾUI%Cbenlist B+s,benlist(OƾU, H ; ` T m.cp = rul.codper T  pe sofer-mecanic  T m.cm = rul.codmagT  pe Benef  T m.ca = rul.codatoT  pe auto/utilaj2;T  rul.codato#0T  pe rulaj ..-%    !MSUM FOR &cnd rul.alim, rul.resti, rul.csnorm TO m.alim, m.resti, m.csnorm #T         R,Stoc carburant BU CPCNDTTCMCAINREZSINITALIMRESTICSNORMro      ,stolist N ' Lista ord. UCODATODATPLNRFPDENMATKMAVSAKMECR1RCKMECR2RT2KMECR3SMKMECUULEIMKMTOTKMECHMESSyvBROWSE FOR &cnd NOMENU WINDOW "stolist" COLOR SCHEME 10 WHEN reafis() TITLE "Lista pentru Modificare"+m.tt UG%Cstolis @*s,stolis($UƾUT + C+ T T T T T T  T  T  % % T  T T  % % T  T T  % "%  T T  % X%   TT   T T  % %   T   T N>     >%    m>Realiz.:%     >Calcul.> HUCODATOORDSASMRCRT2SUKMTOTKMECHKMECR1BAR1KMECR2BAR2KMECR3BAR3ULEIMKMECUBAR5KMAVBAR4DENMAT%Cato*FG(("codato"tF:QCato.dbfDBF Unde e ATO?"codato"%CatuFG(("codato"F:QCatu.dbfDBF Unde e ATU?"codato"%CcarFG(("codcar"dF:QCcar.dbfDBF Unde e CAR?"codcar"%CrulFG(("codlis"F@QCrul.dbfDBFUnde e Compartim?"codlis"UATOATUCARRULUT CSET DEFAULT TO &root %CmagPFG(("codmag"FCQCdatabase\mag.dbfDBF Unde e mag?"codmag"%ClucFG(("codluc"*FIQCdatabase\luc.dbfDBFUnde e Compartim?"codluc"%CperXFG(("codper"FCQCdatabase\per.dbfDBF Unde e Per?"codper"%CsecFG(("codsec"2FIQCdatabase\sec.dbfDBFUnde e Compartim?"codsec"SET DEFAULT TO &druu BUDRUUMAGLUCPERSECQ G-G-( G-G-( G-G-(UATOCODATOLUCCODLUCSECQ G-G-( G-G-( G-G-(UATOCODATOPERCODPERMAGCODMAGQ G-G-( G-G-( G-G-(UATUCODATOPERCODPERMAGCODMAG G-G-( G-G-( G-G-( G-G-( G-G-(  G- G-( U ATUCODATOPERCODPERLUCCODLUCSECCODSECCARCODCARMAGCODMAG G-G-( G-G-( G-G-( G-G-( G-G-( U ATOCODATOPERCODPERLUCCODLUCSECCODSECMAGCODMAG G-G-( G-G-( G-G-( G-G-( G-G-( U AUTCODATOPERCODPERLUCCODLUCSECCODSECMAGCODMAG! G- G- G-UATOPERMAGI G- G- G- G- G- G- G-UATOATUPERLUCSECCARMAG G-G-( G-G-( G-G-( G-G-( G-G-(  G- G-( U AUTCODATOPERCODPERLUCCODLUCSECCODSECCARCODCARMAGCODMAG G-G-(UAUTCODATO%T  CCC H\G( ] ~EVIDENTA TRANSPORT AUTO : CC H CCC iZ -  UDRUUROOTLUNDATAPDENBENT!C UANULEZT!C UOK{2 CTRL+PGDN %C+ 8 T - H T a %C q T - H T aR,Sfirsit12 CTRL+PGDN DO urmatorBUCTRLPGDNEOFBOF{2 CTRL+PGUP %C 9 T - H T a %C+ q T - H T aR,Inceput!12 CTRL+PGUP DO precedentBUCTRLPGUPBOFEOFTdatabase\coef.memTreports\coef.memT %C0 C0 yT  !T \windows\twges.icnT \winnt\twges.icnT \DOS\twges.icn%C0T \winnt\%C0 T  \windows\%C0GT \DOS\%   TT T Ta key.in +< x9 **T% ' T-T% @coef.mem'T  !T  !T  A  ut..den xxxxxxxxxxxxxxxxxxxxxxxx; ut..ctr xxxxxxxxxxxxxxxxxx; ud..\dr\ xxxxxxxxxxxxxxxxxx9T C < T   twges.memT C$save to &fn T   twges.icnRENAME &fn to &fm !<     %ClisbFF8QCdatabase\lis.dbfDBF Where is Lis?>Q6R,,A c c e s n e a u t o r i z a t ! ! 8u<   %Cmag CBEN E8Q database\benT C8Q%C0 6R,'in lucru Varianta cu termen Expirat .. CC$* %C0 #DR,:pregatire pt.(Re)activare calendar din men.Utilitar cu(NU) TT T Ta!  AC[xxxxxxxx_+  x9 **T%  T-T% Tdatabase\coef.mem %ClisdFF8QCdatabase\lis.dbfDBF Where is Lis?>Q6R,,A c c e s n e a u t o r i z a t ! ! 8UFMFUNRRFNFOXVXICOYVCOEFMEMDENBAZUCUADATAL1LISALLNRADATABASEBENSOLPM+#) T a T -BUBOFEOF+#6 T - T aBUBOFEOF% UINCA4 T F TC G((C' (DIMENSION &tab[d,2] $(C/C/C' ("&tab[k,1] = ALLTRIM(&tab[k,1])  G(( BUTABDOMORDNRORDERDK%4-C\UCARDENMAG= 4T T T listadest.spr% _B G<(. G;(,TTO PRINT H   12ESC DO escproc%Clist 1s,list(P N սG2% [#T ..\texte\Imagine.lst}T  Imagine.txtG*G &? reports\(9% 'C write.exe ..\texte\imagine.lst/, <,   FT T T  G* C % C G*pag.spr% TC]TC]- mesaj.sprAsteptati, se lucreaza.&? reports\(9TC.txtTC.txtT  +C   T C% r%C  $CC C \T  %C  n$%C C \j!CC C \%C  C  C C.txt<, T - %C +  >danu.spr#Imprimanta neoperativa, continuati? %  r.txtB %C!T.txtG G(!G* TC]! COPY &fn prn: >&xx DELETE FILE &xx G*G G(&.txtB %C !R,Imprimanta neoperativa. %C TPREVIEWG(&G*G ? reports\{G G* G(!- mesaj.sprAsteptati, se listeaza!TC]&? reports\(9T.txtTC]! COPY &fn prn: >&xx  <,B, mesaj.sprAsteptati, se listeazaTC]&? reports\(9T.txtTC]! COPY &fn prn: >&xx  <, !T  C .txt(R,Se listeaza in fisierul &? reports\(9TC .txt!d:\dos\etv\vizfis.exe &ff G(&G*G G<(, G;(.t&B-UFREPDESTOKDENFSPRPREVIEWESCFISROOTLISTLTIPPBEGPENDPAGFIS1MESAJHANDHAND1PNOLINIECDNDANUFNXXFF H  C,}{8danu.spr#Imprimanta neoperativa, continuati?%  kB(wX2XUDANUSPRDN%ClisFeF<QCdatabase\lis.dbfDBFWhere is Lismen?K( QT CC$H% CC$i   #T reports\coef.mem%C0DELE file &fm  R,Expirat termen.. CC$*ULISNRAZVZYFMROOT12aDO pozc WITH 'A'12bDO pozc WITH 'B'12cDO pozc WITH 'C'12dDO pozc WITH 'D'12eDO pozc WITH 'E'12fDO pozc WITH 'F'12gDO pozc WITH 'G'12hDO pozc WITH 'H'12iDO pozc WITH 'I'12jDO pozc WITH 'J'12kDO pozc WITH 'K'12lDO pozc WITH 'L'12mDO pozc WITH 'M'12nDO pozc WITH 'N'12oDO pozc WITH 'O'12pDO pozc WITH 'P'12qDO pozc WITH 'Q'12rDO pozc WITH 'R'12sDO pozc WITH 'S'12tDO pozc WITH 'T'12uDO pozc WITH 'U'12vDO pozc WITH 'V'12xDO pozc WITH 'X'12yDO pozc WITH 'Y'12zDO pozc WITH 'Z'12wDO pozc WITH 'W'UABCDEFGHIJKLMNOPQRSTUVXYZWescproc,comu1aformaAexipexprultccoNsuRordonedix wfoool wfool afisE sel afisch bw whalf[calschimediu&mediv'relrelarelurelaurelatrelutnorenorelrelati/relaut schimbNadesc2adesc1&urmatorC precedent'escp inceput(sfirsit(reafis )inctab/)pozc/*lisrepe*myerr44nav4dkey 62QQaQQ2!qAAAqAqAqA3aRb2!"A3A23a!qA!aA1qAA1qAQqAAaqA333qQqqQA2q2A2AA2qA2111A1AA23c3aA3!2QqAA1QqAA1!#BA1QqAA1QqAAqqAAAA2!qA!qA!qA"qA3!q3A!qA!q3A!qAA22222222222R3!2!2QAAQA2QAAQA2aAAAAAA!AAQQqA1qQ!qAAaAAQAAAAAAaAA!AA!qAAaAAAAA4QQA2QQA2QA2qAq!A3qaQ3qA1AAQAAa11Aaaa2qBa1AaaQqqAAAQAAAAAA11AAAAAAQaqa1aaq1AAAqaaaaqaaAaQA1bAqaaQr5aAAAA3!qAA1AA21   *<,$?-7 BQ P hSc pU i x^} + b> f R jc euw'QYaB!i#U!"w."$9,$}$=$M%Ea%&R'X'Ul'L(Yh(([((]()o)**333Y4=4`P4r4g46l6X66wFF?G%PGH3HLF%kgvm Q:7   %C HCC$H {= mesaj.spr'Efectuati Urgent Initializare lunara !!T  T GY(GY1s " \ NALT+I:s "\"# ! H$G(C% &lischit {$'per.mprordordT !T G(#6+C T !"T " + " C >"# ! H$1R,'Urmeaza Lista cu Schimb Ulei efectuat..!G("* C+HC,H &likmauG( Z$'per.mprordord#)+C+ T " H% " C+  HT "T "T "T "T "N>          HF G(("denato"t -,list N '$Fisa Auto cu KM de Schimb actualizat#)&LINECE $'per.mprordordT !T G(#6+C *T !"T " + " C &>"# ! H$4R,*Urmeaza Lista cu Reparatii, RT2 efectuat..!G(". C+HC,H &likrepG(/per.mprU0TIMEDIVMEDIUMESSCNDFMWFOOOLPROCPRGWFOOLRULTCORDONATOCODATOKMTOTKMECHKMECR1KMECR2KMECR3KMECUKMAVIMECR1IMECR2IMECR3IMECUIMAVBAR1BAR2BAR3BAR4BAR5CALSCHIAFISCHKMTORDKMINCRELADENMATLISREPDESCHPERMPRSMDATPLDATACDENATORT2SMEN4T "%per luc ,%per%CpereFF=QC..\database\per.dbfDBFWhere is Peer?(%ClucF$F=QC..\database\luc.dbfDBFWhere is Luuc?Nper.mprproc.prg F %rul8%ato actato.spr4%atu actatu.spr0L ,list N 'Fisier pt.modificare , CTRL+(N-nou,T-sterg)W 12F2DO sumt IN per.mprT T proc.prg selato.sprFG((codlis %   2G( |  ,list N '/[F2]-sumare, Actualizare Date,(ctrl+T =sterge)  -C' %C4 T !a:danu.sprRevenire,D sau / Stergere,N ? !% ! 3:.T #$#T %$%&fautsS%CautdF'G(("codato"F;QCaut.dbfDBF Unde e Auut?'"codato";F(proc.prg '),list N '>[F2]-sumare, VIZUALIZARE rulaj Auto-Utilaje (ctrl+T -sterge) 3*per.mpr<,+BU,DOMMESAJPERLUCDESCHMPRMEDIVPROCPRGWFOOLACTATOSPRACTATUF2DENATOCODAMEDIUSELATORULCODLISRELACODATOCODPERNRFPDATPLEXPLODISLOCKMTOTKMECHALIMRESTICSNORMINREZDNDANUKMECR2ATOKMECULISREPAUTRELUTULEIMSMENLIST4T T  Auto ... T  Consum ...T T T  T aproc.prg proc.prg Hf-     selato.spr% F+ % /g% Jc actfaz.spr% a actato.spr proc.prgFG(9 ,list N '[F2]-sumare, Consultare rulaj  F+ | actfau.spr% ax actatu.spr proc.prg @FQFQ%CaveFG(("codato" F=QCave.dbfDBFUnde e Avelope?"codato" '-proba Anvelopa.. S fper.mprB-UTCODADENATODENCACODCACSSPSINIAUMEDIVPROCPRGMEDIUSELATOSPRRULACTFAZACTATONORELWFOOLACTFAUACTATUATUAVESMENPERMPR%4proc.prgproc.prgT T T T T  T CC H G( H T T  Sectie ... logscr.spr<,F% \G((codrulG( fazilG((codatoT T fauts GNaGNü-  selato.sprF % {FT  T  T ! !G((codatoG( fautosK(  "G((codatoF-oruld 1ru.dbfT T fazcen T T  Sectie ... logscr.spr<,T T % iF'R, cod sec, cod ato,C Z6orulc1ru.dbfFQF#* ,list N 'Consultare rulaj #3%futis actatu.sprFG( futizG(   <,G('per.mprB-U*TMEDIVPROCPRGMEDIURELATDENATODENCARSINICODADATAPDATACLUNALUNWFOOLPARTDENSECLOGSCRSPRLOGRULRELAOKCODRULCODSCODSECLISREPCODATOKMECR2KMECUFERESTRESELATOATOKMECR3SINITRUDBFRELAUACTATUSMENPERMPR T -Ddanu.sprArhivati fisierele din CC H ? % eB%C ..\pkzip.exe0 'R,Lipseste programul pkzip.exe.B-R,:"Inpachetare cu PKZIP ! asteptati..BTpeCCC HZ 0CCCC iZ 0\T.zip%C0W TC]/!..\PKZIP -a &denarh *.dbf *.cdx *.mem >&xx /danu.sprSalvati pe discheta? % BTA: drive.sprC T C T CCT C \SET DEFAULT TO &drv T C(SET DEFAULT TO &crtdrv % )R,Insuficient spatiu pe discheta.:T7R,:,Aveti rabdare, se copiaza arhiva pe dischetaCOPY FILE &denarh TO &dest  T - +a6danu.sprSalvati pe inca o discheta? % ! drive.sprSET default TO &drv T C(SET DEFAULT TO &crtdrv T% C)R,Insuficient spatiu pe discheta.T7R,:,Aveti rabdare, se copiaza arhiva pe dischetaCOPY FILE &denarh TO &dest DELETE FILE &xx BUDNDANUSPRLUNDATAPDENARHXXDRVDRIVEFFSCRTDCRTDRVDSDESTT C$T  datar.spr% DB%C HC H8R,.Atentie, Reluati Luna DORITA la initializari !B T -Fdanu.sprRestaurati fisierele din CC H ? %  B%C..\pkunzip.exe0 _)R,Lipseste programul pkunzip.exe.BTC]TA: drive.sprR,Introduceti dischetaBT peCCC HZ 0CCCC iZ 0\T  .zipT    +C 0 Pdanu.spr5Nu exista fisierul de arhiva pe discheta, continuati? %  B T CT C \T C:   !COPY &denarhl &crt > &xx TC]<'Aveti rabdare, se restaureaza fisierele!!..\PKUNZIP /o &denarh > &xx DELETE FILE &xx BU DATAROKSPRDATAPDNDANULUNXXDRVDRIVEDENARHDENARHLCRT 4G GNaGNü-%Clist /s,list(Y N T fn+C  SET DEFAULT TO &root  selpfi.spr H txtATC\ ed.mpr/TEXTE\ ,0 dbf arh cal B ,' Fisierul  T a1danu.sprStergeti rnd marcat ? % >3 T -<danu.spr!Atentie Golire fisier!! (Da / Nu) % :S hlpGTG( ' Fisierul  T a1danu.sprStergeti rnd marcat ? % 3GT GT(pers.dbf str# 'Structura Noua Fis. T a1danu.sprModificare structura ? % o/ST  \APPE FROM &xx  3COPY TO &xx QQT SET DEFA TO &druu  GN-BUDOMNOMFERESTREFNSELPFISPREDMPRLISTDNDANUPERSDBFXXDRUUT  \ruu.dbf USE &fn SQT  \ord.dbf USE &fn SQGTG( GY( UFNDRUUROOTS T -Edanu.spr*Actualizare Parametrii-Data luna curenta ? % LRR,HIn luna 12, pt.Initializare An, punem Ia=.T., rezulta fis.Aut-cu sold anSET DEFAULT TO &root %CbenF1F6QCdatabase\ben.dbfDBF Unde e Ben?#)>'4Schimb , , #)T T T T T % -%   T -Idanu.spr.Schimb DATA Luna CURENTA+param.? (IA=.T.-sold) % %T  \database\data.memT  T  save to &fn !R,Schimbare parametrii !!> #'R,Creare fis.AUT-sold init-an!!%C H  %CatolF G(("denato"FIQCdatabase\ato.dbfDBFUnde e ATo-comun? "denato"$T  \database\aut.dbfCOPY TO &fn STRU QF >-FQproc.prgUDNDANUSPRBENPNAPGINOUIADATACFNROOTDATAPATOSCHIMBPROCPRG T -Ldanu.spr1Doriti Golire fisier rulaje FP. pe luna curenta ? % %CrulFF0QCrul.dbfDBFUnde e rulaj ?J ,list N '0Rulaj FP. dun luna curenta pt. stergere (ctrl+w) T -=danu.spr"Golire rulaje FP.pe luna curenta ? % zSUDNDANUSPRWFOOLRUL T -4danu.sprActualizare Sold anual ? % %Cato{FQF5QCato.dbfDBFUnde e ato-sold-ia? ReCapRT2SchUlei Ul.Plan SchAv   Si.anSi.lun,list N ',Actualizare Ore/Km, Sold Initial An (ctrl+w)QUDNDANUSPRWFOOLATODENATOIMECR1IMECR2IMECR3IMECUIMAVKMTOTKMECHNRINVSISINIT T -Ldanu.spr1Ati Initializat Consumul ???, (pt.init An.ia=.T.) % Z%C HC H #T CCC H\T database%C\rul.dbf0T   datar.spr%C HC HN3R,:(S-a efectuat deja Initializarea lunar !%C H zT T C H% C H)R,:Asteptati, Creare baza date !#T  CCC H\T 0%C \rul.dbf0C \ato.dbf0 ?R,:4In mod normal copiem noua baza de date centralizat ! T -Bdanu.spr'Exista fisiere, faceti recopiere date ? % T &R,:Initializare Luna NOUA... !F@QCato.dbfDBFUnde e ATo-comun? "denato"F/QCrul.dbfDBF Unde e Rulaj? G( orulato C QC QCQCQCQCQCQCQCQCQ     1ru.dbf 'Rulaj Cumulat ..-J(      'J(     F Q@R,:5Recalculare Stoc in Rezervor(fis. database\ATO.dbf) !F6QCdatabase\ben.dbfDBF Unde e Bem?#)T > % ahT % T  2R,(Pregatire fis.sinit-an, in Database !!! >-F %T  database\aut.dbfCOPY TO &fu STRU F QFQT  T  *\ato.dbf(\ato.dbf*\ato.cdx(\ato.cdx*\ave.dbf(\ave.dbf*\ave.cdx(\ave.cdx% *\atu.dbf( \atu.dbf*\atu.cdx( \atu.cdx*\aut.dbf( \aut.dbf*\aut.cdx( \aut.cdx*\rul.dbf( \rul.dbf*\rul.cdx( \rul.cdx*\rul.dbf( \ruu.dbf*\car.dbf( \car.dbf*\car.cdx( \car.cdx*\cns.dbf( \cns.dbf*\cns.cdx( \cns.cdx*\cat.dbf( \cat.dbf*\mac.dbf( \mac.dbf*\ord.dbf( \ord.dbf*\pet.dbf( \pet.dbf*\tar.dbf( \tar.dbf*\tar.cdx( \tar.cdx*\tpa.dbf( \tpa.dbf*\tpa.cdx( \tpa.cdx*\tpu.dbf( \tpu.dbf*\tpu.cdx( \tpu.cdx*\tiu.dbf( \tiu.dbf*\tas.dbf( \tas.dbf*\rel.dbf( \rel.dbfFFQCdatabase\ato.dbfDBFUnde e db\ATO? "codato"% 'Stoc init luna Curenta ..F#)+C+  ^F -   %C4^ $>     />       %R,Negasit cod ato C ZFH2R,:Sinit cumulat in db\ato.dbf C ZF % a > & 'Stoc init luna Urmatoare..Q*\ato.dbf( \ato.dbf*\ato.cdx( \ato.cdxFFQCdatabase\ave.dbfDBFUnde e db\Ave?!"codato"F#)+C+ DT T F!(>!"!" ! FHQF!Q*\ave.dbf( \ave.dbf*\ave.cdx( \ave.cdx&T  database\data.memsave to &fn $proc.prg'proc.prgF/QCrul.dbfDBF Unde e Rulaj? T -7danu.sprGolire Rulaj luna curenta..  % SQ(per.mpr(R,Stop !, Data luna Incorect !'R,Atentie ! Fisier inexistent !V.R,$Atentie ! Reveniti pe Luna Curenta !=R,3Atentie ! Efectuati initializare Consum-schimburi !U+DNDANUSPRDATACDATAPFMROOTLUNFDDATARNRLFNATORULCODATOKMTOTKMECHULEIMULEITULEIHULEFRIULEATGALIMRESTICSNORMSINITRUDBFBENIAFUALLSIAVEKMAVEFORNAVPROCPRGSCHIMBSMENPERMPR T -;danu.spr Doriti Schimbare Luna in lucru ? % T C$ datar.spr1T  CCC H\\rul.dbf%C0%C HC H:R,0Atentie, Reluare Luna DIFERITA de LUNA curenta !>'R,Atentie, Reluare Luna CURENTAT  T  coef.memSAVE TO &f  PROC.prg 3R,Atentie, Lipsa fisiere pe luna CC HZper.mprUDNDANUSPRDATARFNROOTLUNDATACDATAPFSCHIMBPROCPRGEMPTYREZSMENPERMPR(T  liste.prg UCODLISTEPRG(T  liste.prg UCODLISTEPRGper.mpratoUACTUPERMPRper.mpratuUACTUPERMPRr&R,Actualizare SOFER - MEcanic SET DEFAULT TO &root %Cper^FF7QCdatabase\per.dbfDBF Unde e Perr?#)& '-Verificare lista personal T -3danu.sprModific DATE personal ?  % M*' Schimb , Qproc.prgUPERDNDANUSPRSCHIMBPROCPRGsCR,:8Consultare fis.CAT, TAS, TIU (sau in Modificare fisiere)F Qcat. 'Verific categorii Kups/ tonaj C& Qtas/ 'Verific Tonaj-km /tip Drum ! ..C& Qtiu0 ' Verific timp Util la soferi ! ..C& Qtpa2 '"Verific tip Auto in folosinta ! ..C& Qtpu0 ' Verific tip Utilaj existent ! ..C&QUCATTASTIUTPATPU T -@danu.spr%Doriti inlocuire si Reindexare ,CDX ? % &T C#T CCC H\SET DEFAULT TO &root FCQCdatabase\ato.dbfDBF Unde e ato? "codato"S\ATO.dbfQFCQCdatabase\atu.dbfDBF Unde e atu? "codato"S\ATU.dbfQFCQCdatabase\aut.dbfDBF Unde e aut? "codato"SQFCQCdatabase\rul.dbfDBF Unde e rul? "codrul"S\rul.dbfQ-.\DATABASE\ATO.dbf(\ATO.dbf-.\DATABASE\ATU.dbf(\ATU.dbf-.\DATABASE\ATO.cdx(\ATO.cdx-.\DATABASE\ATU.cdx(\ATU.cdx-.\DATABASE\CAR.CDX(\CAR.CDX-.\DATABASE\rul.dbf(\rul.dbf-.\DATABASE\rul.cdx(\rul.cdx-.\DATABASE\AVE.cdx(\AVE.cdx-.\DATABASE\cns.cdx(\cns.cdx-.\DATABASE\tar.cdx(\tar.cdxFCQCdatabase\mag.dbfDBF Unde e mag? "codmag"G((codmag;CQCdatabase\per.dbfDBF Unde e per?"codper"G((codper;CQCdatabase\luc.dbfDBF Unde e luc?"codluc"G((codluc;SET DEFAULT TO &druu = mesaj.spr' Asteptati, se reindexeaza baza de dateF G((codato;~ %C   3QF G((codato;~ %C    3QFG((codcar;F G((codrul;F;QCcns.dbfDBF Unde e \Cns?"codcns";F<QCave.dbfDBF Unde e \avee?"codato";F=QCaut.dbfDBFUnde e \autot? "codato";F=QCtar.dbfDBFUnde e \tarr ?"codato";F9QCtpa.dbfDBF Unde e \tpa ?"tip";F9QCtpu.dbfDBF Unde e \tpu ?"tip";per.mpr<,U!EMPTYREZDNDANUSPRDRUUFNROOTLUNDATACATOATUAUTRULMAGCODMAGPERCODPERLUCCODLUCMESAJMEDIUCODATODENATOCARCODCARCODRULCNSAVETARTPATPUSMENMPRIR,:>Prelungire termen de functionare program daca mesaj(Expirat..) T -?danu.spr$Activare Sesiune de lucru(limitat) ? % %  T   T..\reports\coef.memSAVE TO &fm UDNDANUSPRNRRECFMmCR,:3Cereti parola de activare(0265 252950, 0740690038) CC$* T -Idanu.spr.Activare Calendar (repornire prog.cu parola) ? % f T -Ndanu.spr3alege DA, numai Daca ati cerut parola de Activare  % b!T..\database\coef.memSAVE TO &fm T a8UDNDANUSPRFMTERM]R,:RConsultare fis.LUNAR ATO/ATU, CAR, TAR, MAG/SEC (sau in meniul Modificare fisiere)F Qato$ 'Verific lista AUTO C& Qatu( 'Verific lista UTILAJE ..C& Qcar6 '&Verific lista Carburant/Lubrifianti ..C& Qprs0 ' Verific lista Tarife prestatii..C& Qmag6 '&Verific lista Beneficiari/ Parteneri..C& Qsec) 'Verific lista Sectiilor..C&QUATOATUCARPRSMAGSEC<, T aT  \ruu.dbf USE &fn SQT  \ord.dbf USE &fn SQG( proc.prg Ca@8UBVMTERMFNDRUUROOTNAVPROCPRGsmenemptyrez sumtdesch[SCHIM8actu9actfaz#lisver(arhL.restu3arhidocI7 _2l317qkbw; _2l317qkbxD< _2l317qkby@ _2l317qkbzB _2l317qkc6D _2l317qkc7IV _2l317qkcgX _2l317qkchX _2l317qkci)Y _2l317qkcj[Y _2l317qkckY _2l317qkcr*[ _2l317qkcs\ _2l317qkd1e _2l317qkd2f _2l317qkd3Oh _2l317qkd48j 1QbAqjab"qqQ!"qqQ!qa1"1QaA"!aqa"qqqa!1A1"AaaQ":1a!qAQ3QAAAA43RbAAq3qaqqQ11113Q!!!!!!!!!!!!1A1Q!!!AAqA2AaQ!!!AAq1a2AQ!A!!!!!AAAqCQ11AaQ!!!AAqA1aB!q4q!A!qA!qAAA1qAAAAA1qqAAQA!!!A!qAAq1%EAAQ!A3q111q11AAq1AAqaqA1q1AA1qAqA!qA22CQ"q3q11qqqa1qq1A!!A1q1rr"!!A1"qr1B11rqeqAq1Aq!qA!aA222BaQ!q3AAAqAAQ"QAAAaqQqCaAAqQqCA1A21AAAAaAAAAR!QAAAQ14A4QaRQBA1QAQqqAAAAAaaAAaA1QAAAAAAAQAQA1QAAAAarQA1Qr!!qbAQR!!!!!aQ#!AAqb"qAAAAqABqA2rA1qr!qAAAqB1Aqr!qAAR BqB11q1Q1A1!AAbR qqAbQ!!1A!qQABqAqA1BcQrQQq1AQAqA!ArAAaAcrQ!!qqAAAqAc12qAAA!AAqqAAA1qqA1q1A!qB1a1a111ra!qrAQa1AA1q11!A1qQ12AqA2AqA2AA2AqA2A2A2AAqqAAAAAAqAAAAAAqArAAAAAAAQ!11aAA11QQQAAA1qAaaAs 1QQQAAAA1B1f"W#qm##{#$~$%%M2_2o:Q:{??G0*GiM'{MQUQ}ZZ^u^ggm,mr r>$֓?QWeؚ8yPȡ9Qe`qqxD\QiK%   fa95<,GAG2G] GGGG> G GG.G G GERMANG G8YG8(leiGB G<(,G>(Q 7 TIanuarieT FebruarieTMartieTAprilieTMaiTIunieTIulieTAugustT  SeptembrieT  OctombrieT  NoiembrieT  Decembrie7                             !T T T T T T T T T T T T T !T T Lucrarea.... T  Consult.... T TCSYSMENUvG+(proc.prgGT GT(pers.dbf%12ctrl+zdo exip IN proc.prg%12ctrl+ADO edix IN proc.prgT) w+/w,gr+/nset color to &ko T *19520103CC$*T +CC *gCC$HCC$% 8T ,CC + ZT ,C ,\ T - T Ca?T  T - T - T -T CSET DEFAULT TO &root T T -proc.prgF7QCdatabase\ben.dbfDBF Unde e Ben?.#)T . T . T .T .T .T .T .T  T . T !.!< w Cod operator: 9999999- ./ %C4T . T 0proc.prg logscr.spr% [G( 8per.mpr5proc.prgT 6 liste.prg 6 9*C8G+(GTG(G. G2 G GY(G( {G>G @, Ca@SET SYSMENU &menu U9COMMANDGERMANLUNTERMTOBEDONEMENUDATACDATAPROOTFNDENBENKKCODBENNRRECNRRINOUPGDENOPECODADENAPUKPUOCODSDENSECSINICUPTAUDRUUPNAOKCODFIRTV1TV2PROCPRGPERSDBFCTRLZAKOZVXVYVESCPBENSOLPMNAVLOGSCRSPRPERMPRSCHIMBCODLISTE MYHANDLER35  % %BaB-UTEMPXTERM myhandler AQQaaaaaaaaaaaaaaau baQQrB1qQ!!!!!!!!!A1!AQ11AA1aaaaaaaqaaQQQqQ2qAq1 a %I_ f$9x 4 5   %CTALKvONNG2T ONhT OFFT C COMPATIBLEvGA%Clis CCLIS fLIS.PJX CCLIS fLIS.SCX CCLIS fLIS.MNX CCLIS fLIS.PRG CCLIS fLIS.FRX CCLIS fLIS.QPR ]s, 5@ MS Sans Serif AB ?' Proceduri z,12ESC DO adesc1 GNaGNü-G25   T T T T %ClisJFF8QCdatabase\lis.dbfDBF Where is lis?-   %C4xT  G(   ( )C  6( T CT CT C B-%Clis t, t,()#  @ 3,0 GET m.list PICTURE "@&N" FROM lis SIZE 12,52 DEFAULT 1 WHEN _1k615pkvj() VALID _1k615pkvk() MESSAGE "SUBMENIU cu proceduri, alegere cu ENTER " COLOR SCHEME 10 b  @*HN \ Q%CsecF G(("codsec"DFKQC.\database\sec.dbfDBFUnde e Compartim? "codsec" s " %Clog t, t,L  B( p癙<C@ Luna curenta@ Arial Narrow AB>$ Data zilei@ Arial Narrow AB@  Firma activa@ Arial Narrow AB' 癙(A 癙@C< P33Operator@ Arial Narrow ABK ff @ Arial Narrow 5^I ?ffffff.@H /C$@ Arial Narrow 5^I ?0@S ff @ Arial Narrow ?333333E@@KK癙 @ Arial Narrow ?E@ 0 ff @ MS Sans SerifABM?"~*@?@*HN \ ENTER " D`33 Alege Sectia @ Arial Narrow AB%Clog t,9<,< SET READBORDER &rborder % ONmG2 % ONGA  24 5   %CTALKvONG2T ON T OFFT C COMPATIBLEvGA%Clog CCLOG fLOG.PJX CCLOG fLOG.SCX CCLOG fLOG.MNX CCLOG fLOG.PRG CCLOG fLOG.FRX CCLOG fLOG.QPR $ Os,(G N' Start ETR 2005  ver:1.0 GNaGNü-12ESC DO adesc1SET PATH TO &root %Cmen F F:QC.\database\men.dbfDBF Unde e Meen?> Q%Csec! F G(("codsec"| FKQC.\database\sec.dbfDBFUnde e Compartim? "codsec" s" %Clog t, t,* =7 Ŀ   (=( 53 Luna curenta 1' Data zilei 3 Firma activa ( ENTER " COLOR SCHEME 9 7 Alege Sectia %Clog /t,9<,<% ONcG2 % ONGA UCURRAREATALKSTATCOMPSTATRBORDERLOGFERESTREESCDATACLISNRASECPART _2GG0UGZ02DENSECDENBENDENOPEOK _2GG0UGZ05MEN _2GG0UGZ1Z _2GG0UGZ22P% info.sprIT <,UOKINFOSPRCODSLOG^U^- T T T <,UDENSECSECCODSCODSECCODFIRLOGa% info.sprZT <, GN-UOKINFOSPRCODSLOG^Uo- T T T <, GN-UDENSECSECCODSCODSECCODFIRLOG _2gg0ugz05^ _2gg0ug