422 lines
13 KiB
Plaintext
422 lines
13 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="mfix2000.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*<MenuType>1</MenuType>
|
|
*<MenuLocation>REPLACE</MenuLocation>
|
|
|
|
*<MenuCode>
|
|
DEFINE MENU _msysmenu BAR
|
|
DEFINE PAD _000000001 OF _msysmenu PROMPT "\<Utile" COLOR SCHEME 3 ;
|
|
NEGOTIATE LEFT, NONE ;
|
|
KEY ALT+U, "ALT+U"
|
|
|
|
ON PAD _000000001 OF _msysmenu ACTIVATE POPUP Utile
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Utile MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 1 OF Utile PROMPT "\<Optiuni Sistem" ;
|
|
MESSAGE 'Optiuni Sistem'
|
|
ON BAR 1 OF Utile ACTIVATE POPUP OptiuniSis
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP OptiuniSis MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 1 OF OptiuniSis PROMPT "\<Parola"
|
|
ON SELECTION BAR 1 OF OptiuniSis DO BAR_1_OF_OptiuniSis_FB2P
|
|
|
|
DEFINE BAR 2 OF OptiuniSis PROMPT "\<Redirectionare"
|
|
ON SELECTION BAR 2 OF OptiuniSis DO BAR_2_OF_OptiuniSis_FB2P
|
|
|
|
DEFINE BAR 3 OF OptiuniSis PROMPT "\-"
|
|
ON SELECTION BAR 3 OF OptiuniSis
|
|
|
|
DEFINE BAR 4 OF OptiuniSis PROMPT "\Inchid fundalul"
|
|
ON SELECTION BAR 4 OF OptiuniSis goApp.ReleaseForm
|
|
|
|
DEFINE BAR 2 OF Utile PROMPT "\-"
|
|
ON BAR 2 OF Utile ACTIVATE POPUP _rap18gw4b
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _rap18gw4b MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 3 OF Utile PROMPT "\<Reindexare"
|
|
ON SELECTION BAR 3 OF Utile DO BAR_3_OF_Utile_FB2P
|
|
|
|
DEFINE BAR 4 OF Utile PROMPT "\-"
|
|
ON BAR 4 OF Utile ACTIVATE POPUP _0x60jnn96
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0x60jnn96 MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 5 OF Utile PROMPT "\<Calculator"
|
|
ON SELECTION BAR 5 OF Utile DO BAR_5_OF_Utile_FB2P
|
|
|
|
DEFINE BAR 6 OF Utile PROMPT "C\<alendar"
|
|
ON SELECTION BAR 6 OF Utile DO BAR_6_OF_Utile_FB2P
|
|
|
|
DEFINE BAR 7 OF Utile PROMPT "\<Notepad"
|
|
ON SELECTION BAR 7 OF Utile DO BAR_7_OF_Utile_FB2P
|
|
|
|
DEFINE BAR 8 OF Utile PROMPT "\-"
|
|
ON BAR 8 OF Utile ACTIVATE POPUP _0310yhezd
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0310yhezd MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 9 OF Utile PROMPT "\<Iesire" ;
|
|
KEY F2, "F2" ;
|
|
MESSAGE "Quits Visual FoxPro"
|
|
ON SELECTION BAR 9 OF Utile DO BAR_9_OF_Utile_FB2P
|
|
|
|
DEFINE PAD _000000002 OF _msysmenu PROMPT "\<Editare" COLOR SCHEME 3 ;
|
|
KEY ALT+E, "ALT+E"
|
|
|
|
ON PAD _000000002 OF _msysmenu ACTIVATE POPUP Editare
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Editare MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR _med_copy OF Editare PROMPT "\<Copiaza" ;
|
|
KEY CTRL+C, "Ctrl+C" ;
|
|
MESSAGE "Copies the selection onto the Clipboard"
|
|
|
|
DEFINE BAR _med_paste OF Editare PROMPT "\<Reda" ;
|
|
KEY CTRL+V, "Ctrl+V" ;
|
|
MESSAGE "Pastes the contents of the Clipboard"
|
|
|
|
DEFINE PAD _000000003 OF _msysmenu PROMPT "\<Initializare" COLOR SCHEME 3 ;
|
|
KEY ALT+I, "ALT+I"
|
|
|
|
ON PAD _000000003 OF _msysmenu ACTIVATE POPUP Initializa
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Initializa MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 1 OF Initializa PROMPT "\<Seria periodica" ;
|
|
SKIP FOR !LUNA_NEPLATITA OR !glimobIndependent or luna_inchisa
|
|
ON SELECTION BAR 1 OF Initializa DO BAR_1_OF_Initializa_FB2P
|
|
|
|
DEFINE BAR 2 OF Initializa PROMPT "\<Activare RON" ;
|
|
SKIP FOR verific_rolronsnr(calefirma)
|
|
ON SELECTION BAR 2 OF Initializa do form frm_activare_ron
|
|
|
|
DEFINE BAR 3 OF Initializa PROMPT "\-"
|
|
ON BAR 3 OF Initializa ACTIVATE POPUP _0mc0k9eoa
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0mc0k9eoa MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 4 OF Initializa PROMPT "\<Deschidere de luna noua" ;
|
|
SKIP FOR luna_neplatita OR !ultima_luna OR !glimobIndependent or luna_inchisa
|
|
ON SELECTION BAR 4 OF Initializa DO BAR_4_OF_Initializa_FB2P
|
|
|
|
DEFINE BAR 5 OF Initializa PROMPT "\<Redeschidere de luna" ;
|
|
SKIP FOR luna_inchisa
|
|
ON SELECTION BAR 5 OF Initializa DO BAR_5_OF_Initializa_FB2P
|
|
|
|
DEFINE BAR 6 OF Initializa PROMPT "\<Firma noua" ;
|
|
SKIP FOR luna_neplatita OR !ultima_luna OR !glimobIndependent
|
|
ON SELECTION BAR 6 OF Initializa DO BAR_6_OF_Initializa_FB2P
|
|
|
|
DEFINE BAR 7 OF Initializa PROMPT "\-"
|
|
ON BAR 7 OF Initializa ACTIVATE POPUP _11d0uufgm
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _11d0uufgm MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 8 OF Initializa PROMPT "\<Blocare de luna"
|
|
ON BAR 8 OF Initializa ACTIVATE POPUP Blocaredel
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Blocaredel MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 1 OF Blocaredel PROMPT "\<Situatia lunilor blocate"
|
|
ON SELECTION BAR 1 OF Blocaredel DO BAR_1_OF_Blocaredel_FB2P
|
|
|
|
DEFINE BAR 9 OF Initializa PROMPT "\-"
|
|
ON BAR 9 OF Initializa ACTIVATE POPUP _1gh0lyccd
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _1gh0lyccd MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 10 OF Initializa PROMPT "\<Gestiuni"
|
|
ON SELECTION BAR 10 OF Initializa DO BAR_10_OF_Initializa_FB2P
|
|
|
|
DEFINE BAR 11 OF Initializa PROMPT "\<Sectii"
|
|
ON SELECTION BAR 11 OF Initializa DO BAR_11_OF_Initializa_FB2P
|
|
|
|
DEFINE BAR 12 OF Initializa PROMPT "\-"
|
|
ON BAR 12 OF Initializa ACTIVATE POPUP _0750xicgr
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0750xicgr MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 13 OF Initializa PROMPT "\<Conversie conturi"
|
|
ON SELECTION BAR 13 OF Initializa DO BAR_13_OF_Initializa_FB2P
|
|
|
|
DEFINE BAR 14 OF Initializa PROMPT "\<Conturi de amortizare"
|
|
ON SELECTION BAR 14 OF Initializa DO BAR_14_OF_Initializa_FB2P
|
|
|
|
DEFINE BAR 15 OF Initializa PROMPT "\<Conversie coduri 2005"
|
|
ON SELECTION BAR 15 OF Initializa DO BAR_15_OF_Initializa_FB2P
|
|
|
|
DEFINE BAR 16 OF Initializa PROMPT "\-"
|
|
ON BAR 16 OF Initializa ACTIVATE POPUP _1il0l5woq
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _1il0l5woq MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 17 OF Initializa PROMPT "Optiuni"
|
|
ON SELECTION BAR 17 OF Initializa DO BAR_17_OF_Initializa_FB2P
|
|
|
|
DEFINE PAD _000000004 OF _msysmenu PROMPT "\<Ajutor" COLOR SCHEME 3 ;
|
|
KEY ALT+A, "ALT+A"
|
|
|
|
ON PAD _000000004 OF _msysmenu ACTIVATE POPUP Ajutor
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Ajutor MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 1 OF Ajutor PROMPT "\<Instructiuni de utilizare"
|
|
ON SELECTION BAR 1 OF Ajutor DO BAR_1_OF_Ajutor_FB2P
|
|
|
|
DEFINE BAR 2 OF Ajutor PROMPT "\-"
|
|
ON BAR 2 OF Ajutor ACTIVATE POPUP _1gf0kwo4s
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _1gf0kwo4s MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 3 OF Ajutor PROMPT "\<Grupe de amortizare"
|
|
ON SELECTION BAR 3 OF Ajutor DO BAR_3_OF_Ajutor_FB2P
|
|
|
|
DEFINE BAR 4 OF Ajutor PROMPT "\<Grupe de amortizare - 2005"
|
|
ON SELECTION BAR 4 OF Ajutor DO BAR_4_OF_Ajutor_FB2P
|
|
|
|
DEFINE BAR 5 OF Ajutor PROMPT "\-"
|
|
ON BAR 5 OF Ajutor ACTIVATE POPUP _0030m57rm
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0030m57rm MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 6 OF Ajutor PROMPT "\<Despre program..."
|
|
ON SELECTION BAR 6 OF Ajutor DO BAR_6_OF_Ajutor_FB2P
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_1_OF_OptiuniSis_FB2P
|
|
OSC=CREATE('schimbparola')
|
|
OSC.SHOW(1)
|
|
ENDPROC && BAR_1_OF_OptiuniSis_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_OptiuniSis_FB2P
|
|
OP=CREATE('parola')
|
|
OP.SHOW(1)
|
|
|
|
if corect
|
|
or=create('redirect')
|
|
or.show(1)
|
|
endif
|
|
|
|
ENDPROC && BAR_2_OF_OptiuniSis_FB2P
|
|
|
|
PROCEDURE BAR_3_OF_Utile_FB2P
|
|
DO reindexare.prg WITH ['GCAPPPATH'$UPPER(CALEALFA)]
|
|
ENDPROC && BAR_3_OF_Utile_FB2P
|
|
|
|
PROCEDURE BAR_5_OF_Utile_FB2P
|
|
do case
|
|
case file('C:\WINDOWS\CALC.EXE')
|
|
run /N C:\WINDOWS\CALC.EXE
|
|
case file('C:\WINDOWS\SYSTEM32\CALC.EXE')
|
|
run /N C:\WINDOWS\SYSTEM32\CALC.EXE
|
|
case file('C:\WINnt\system32\CALC.EXE')
|
|
run /N C:\WINnt\system32\CALC.EXE
|
|
otherwise
|
|
do mesajatent with 'Aplicatia "Calculator" nu este instalata','pe acest sistem!'
|
|
endcase
|
|
ENDPROC && BAR_5_OF_Utile_FB2P
|
|
|
|
PROCEDURE BAR_6_OF_Utile_FB2P
|
|
ocal=crea('diary')
|
|
ocal.show(1)
|
|
ENDPROC && BAR_6_OF_Utile_FB2P
|
|
|
|
PROCEDURE BAR_7_OF_Utile_FB2P
|
|
do case
|
|
case file('C:\WINDOWS\NOTEPAD.EXE')
|
|
run /N C:\WINDOWS\NOTEPAD.EXE
|
|
case file('C:\WINnt\system32\NOTEPAD.EXE')
|
|
run /N C:\WINnt\system32\NOTEPAD.EXE
|
|
otherwise
|
|
do mesajatent with 'Aplicatia "NOTEPAD" nu este instalata','pe acest sistem!'
|
|
endcase
|
|
|
|
ENDPROC && BAR_7_OF_Utile_FB2P
|
|
|
|
PROCEDURE BAR_9_OF_Utile_FB2P
|
|
quit
|
|
ENDPROC && BAR_9_OF_Utile_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Initializa_FB2P
|
|
LOCAL LL,AA
|
|
LL=M.NL
|
|
AA=M.AN
|
|
|
|
osp=crea('seriaper')
|
|
osp.show(1)
|
|
|
|
M.AN=AA
|
|
M.NL=LL
|
|
*OSTART.SHOW(1)
|
|
ENDPROC && BAR_1_OF_Initializa_FB2P
|
|
|
|
PROCEDURE BAR_4_OF_Initializa_FB2P
|
|
|
|
PRIVATE pnLunaMax,pnAnMax,pnLunaNew,pnAnNew,pcLunaMax,pcAnMax,pcLunaNew,pcAnNew,pcNumeLuna
|
|
LOCAL lcAnCrt, lcLunaCrt
|
|
|
|
lcAnCrt = m.an
|
|
lcLunaCrt = m.nl
|
|
|
|
SELE CALENDAR
|
|
GOTO BOTTOM
|
|
|
|
pcLunaMax = nl
|
|
pcAnMax = AN
|
|
pnLunaMax=VAL(pcLunaMax)
|
|
pnAnMax=VAL(pcAnMax)
|
|
|
|
IF pnLunaMax = 12 THEN
|
|
pnAnNew = pnAnMax+1
|
|
pnLunaNew = 1
|
|
pcAnNew = ALLTRIM(STR(pnAnNew))
|
|
pcLunaNew = '01'
|
|
ELSE
|
|
pnAnNew = pnAnMax
|
|
pnLunaNew = pnLunaMax + 1
|
|
pcAnNew = pcAnMax
|
|
pcLunaNew = PADL(ALLTRIM(STR(pnLunaNew)),2,'0')
|
|
ENDIF
|
|
|
|
SELE lunilean
|
|
SEEK(pcLunaNew)
|
|
pcNumeLuna = ALLTRIM(numeluna)
|
|
|
|
oT=CREATEOBJ("TEXTR")
|
|
oT.LABEL2.CAPTION = "Deschidere de luna noua:"
|
|
oT.label3.CAPTION = 'Se deschide luna ' + pcNumeLuna + ' ' + pcAnNew + '?'
|
|
oT.label3.FONTBOLD= .T.
|
|
oT.SHOW(1)
|
|
|
|
IF BUTON=2
|
|
m.an = lcAnCrt
|
|
m.nl = lcLunaCrt
|
|
RETURN
|
|
ENDIF
|
|
|
|
*DO DESCHIDL.PRG
|
|
DO deschid_luna_noua WITH pcAnNew, pcLunaNew IN redeschidere.prg
|
|
DO redeschid_luna WITH pcAnNew, pcLunaNew IN redeschidere.prg
|
|
|
|
luna_neplatita=.T.
|
|
|
|
OT1=CREATEOBJ("TEXT")
|
|
OT1.LABEL2.CAPTION= "Am deschis luna:"
|
|
OT1.label3.CAPTION= pcNumeLuna + ' ' + pcAnNew
|
|
OT1.label3.FONTBOLD=.T.
|
|
OT1.SHOW(1)
|
|
|
|
lcFscurt = ALLTRIM(nfscurt)
|
|
lcFisS = "start_meniuri"
|
|
lcFisF = "sfirma"
|
|
adfirmaluna(lcFscurt,pcAnNew,pcLunaNew,lcFisS)
|
|
adfirmaluna(lcFscurt,pcAnNew,pcLunaNew,lcFisF)
|
|
|
|
NUMEFIRMA=UPPER(RTRIM(m.flung))
|
|
capapl = gcAppCaption + " Firma "+ NUMEFIRMA + "- Luna contabila: "+ pcNumeLuna + ' ' + pcAnNew
|
|
goApp.SetCaption(capapl)
|
|
|
|
DO totv
|
|
|
|
|
|
|
|
|
|
ENDPROC && BAR_4_OF_Initializa_FB2P
|
|
|
|
PROCEDURE BAR_5_OF_Initializa_FB2P
|
|
*do redeschid
|
|
DO redeschid_luna IN redeschidere.prg
|
|
ENDPROC && BAR_5_OF_Initializa_FB2P
|
|
|
|
PROCEDURE BAR_6_OF_Initializa_FB2P
|
|
do form startfirma
|
|
ENDPROC && BAR_6_OF_Initializa_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Blocaredel_FB2P
|
|
*!* orp=CREATE('parola')
|
|
*!* orp.SHOW(1)
|
|
*!* IF buton=3
|
|
SELECT calendar
|
|
GO BOTTOM
|
|
DO FORM inchidluni
|
|
*!* ENDIF
|
|
|
|
|
|
ENDPROC && BAR_1_OF_Blocaredel_FB2P
|
|
|
|
PROCEDURE BAR_10_OF_Initializa_FB2P
|
|
oge=create('afgest')
|
|
oge.show(1)
|
|
ENDPROC && BAR_10_OF_Initializa_FB2P
|
|
|
|
PROCEDURE BAR_11_OF_Initializa_FB2P
|
|
ose=create('nom_sectii')
|
|
ose.show(1)
|
|
ENDPROC && BAR_11_OF_Initializa_FB2P
|
|
|
|
PROCEDURE BAR_13_OF_Initializa_FB2P
|
|
DO FORM conversie
|
|
ENDPROC && BAR_13_OF_Initializa_FB2P
|
|
|
|
PROCEDURE BAR_14_OF_Initializa_FB2P
|
|
DO FORM contamort
|
|
ENDPROC && BAR_14_OF_Initializa_FB2P
|
|
|
|
PROCEDURE BAR_15_OF_Initializa_FB2P
|
|
DO FORM conversie_2005
|
|
ENDPROC && BAR_15_OF_Initializa_FB2P
|
|
|
|
PROCEDURE BAR_17_OF_Initializa_FB2P
|
|
opt = CREATEOBJECT('frm_optiuni')
|
|
opt.show(1)
|
|
ENDPROC && BAR_17_OF_Initializa_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Ajutor_FB2P
|
|
*!* *oh=create('help_leg')
|
|
*!* *oh.show(1)
|
|
*!* IF FILE('&dirgen\imob2003\help\ajutor_imob.exe')
|
|
*!* CD &dirgen\imob2003\help
|
|
*!* RUN /n ajutor_imob.exe
|
|
*!* ELSE
|
|
*!* DO mesaj WITH 'Programul de ajutor nu a fost instalat',''
|
|
*!* endif
|
|
LOCAL cSite
|
|
cSite = ADDBS(dirgen)+"manual\prezentare_imob.htm"
|
|
IF !FILE(csite)
|
|
DO mesaj WITH "Nu a fost instalat manualul de utilizare",""
|
|
RETURN
|
|
ENDIF
|
|
oBrowser=CREATEOBJECT("internetexplorer.application")
|
|
oBrowser.Navigate(cSite)
|
|
oBrowser.Visible = .T.
|
|
ENDPROC && BAR_1_OF_Ajutor_FB2P
|
|
|
|
PROCEDURE BAR_3_OF_Ajutor_FB2P
|
|
SELE norma
|
|
SCATTER NAME onorma BLANK
|
|
otr=CREATEOBJECT('normatree')
|
|
*otr.cmdtermin1.caption='\<TERMINAT'
|
|
otr.show(1)
|
|
ENDPROC && BAR_3_OF_Ajutor_FB2P
|
|
|
|
PROCEDURE BAR_4_OF_Ajutor_FB2P
|
|
SELE norma_2005
|
|
SCATTER NAME onorma BLANK
|
|
otr=CREATEOBJECT('normatree_2005')
|
|
otr.show(1)
|
|
ENDPROC && BAR_4_OF_Ajutor_FB2P
|
|
|
|
PROCEDURE BAR_6_OF_Ajutor_FB2P
|
|
DO FORM FRM_ABOUT
|
|
ENDPROC && BAR_6_OF_Ajutor_FB2P
|
|
|
|
*</Procedures>
|