romfast/roaimob
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Browse Source 
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
Marius Mutu
2026-07-16 11:37:36 +03:00
commit 34aed0c4d7
236 changed files with 145556 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
Meniuri/Vechi/editscurt.MNT Normal file
View File

Binary file not shown.

BIN
Meniuri/Vechi/editscurt.mnx Normal file
View File

Binary file not shown.

135
Meniuri/Vechi/listcorp.mn2 Normal file
View File

@@ -0,0 +1,135 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="listcorp.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>4</MenuType>
*<MenuLocation>REPLACE</MenuLocation>
*<MenuCode>
DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF Shortcut PROMPT "Cu Total \<General"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "Cu Totaluri pe \<Luni"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
DEFINE BAR 3 OF Shortcut PROMPT "Cu Totaluri pe \<Grupe"
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
DEFINE BAR 4 OF Shortcut PROMPT "Cu Totaluri pe Sectie"
ON SELECTION BAR 4 OF Shortcut DO BAR_4_OF_Shortcut_FB2P
DEFINE BAR 5 OF Shortcut PROMPT "\-"
ON BAR 5 OF Shortcut ACTIVATE POPUP _11d0uc7oo
*----------------------------------
DEFINE POPUP _11d0uc7oo SHORTCUT RELATIVE
DEFINE BAR 6 OF Shortcut PROMPT "\<Lista fiselor"
ON SELECTION BAR 6 OF Shortcut DO BAR_6_OF_Shortcut_FB2P
DEFINE BAR 7 OF Shortcut PROMPT "\-"
ON BAR 7 OF Shortcut ACTIVATE POPUP _1600p8xqz
*----------------------------------
DEFINE POPUP _1600p8xqz SHORTCUT RELATIVE
DEFINE BAR 8 OF Shortcut PROMPT "Lista de inventar"
ON BAR 8 OF Shortcut ACTIVATE POPUP Listadeinv
*----------------------------------
DEFINE POPUP Listadeinv SHORTCUT RELATIVE
DEFINE BAR 1 OF Listadeinv PROMPT "Model1"
ON SELECTION BAR 1 OF Listadeinv DO BAR_1_OF_Listadeinv_FB2P
DEFINE BAR 2 OF Listadeinv PROMPT "Model2"
ON SELECTION BAR 2 OF Listadeinv DO BAR_2_OF_Listadeinv_FB2P
DEFINE BAR 9 OF Shortcut PROMPT "Evidenta MF"
ON SELECTION BAR 9 OF Shortcut DO BAR_9_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
DO list_corp_general
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_2_OF_Shortcut_FB2P
DO list_corp_peluni
ENDPROC && BAR_2_OF_Shortcut_FB2P
PROCEDURE BAR_3_OF_Shortcut_FB2P
DO list_corp_pegrup
ENDPROC && BAR_3_OF_Shortcut_FB2P
PROCEDURE BAR_4_OF_Shortcut_FB2P
DO list_corp_peSECTII
ENDPROC && BAR_4_OF_Shortcut_FB2P
PROCEDURE BAR_6_OF_Shortcut_FB2P
DO lista_fiselor_corp_istoric
ENDPROC && BAR_6_OF_Shortcut_FB2P
PROCEDURE BAR_1_OF_Listadeinv_FB2P
DO caut_alf WITH 'Numegest','numegest','NUMELE GESTIUNII','M.NUMEGEST'
IF buton=2
RETURN
ENDIF
SELE numegest
LOCATE FOR numegest=m.numegest
SCATTER MEMVAR
SELE mf
IF m.gest=-1
SET FILTER TO fel=" " AND !CASAT AND !INACTIV
ELSE
SET FILTER TO gest=m.gest AND fel=" " AND !CASAT AND !INACTIV
ENDIF
SET ORDER TO scdden
REPORT FORM listmf_inv TO PRINTER PROMPT PREVIEW
SELECT mf
SET FILTER TO
ENDPROC && BAR_1_OF_Listadeinv_FB2P
PROCEDURE BAR_2_OF_Listadeinv_FB2P
PRIVATE pddata
ldatacrt = "01/" + m.nl + "/" + m.an
pddata = GOMONTH(CTOD(ldatacrt),1) - 1
DO caut_alf WITH 'Numegest','numegest','NUMELE GESTIUNII','M.NUMEGEST'
IF buton=2
RETURN
ENDIF
SELE numegest
LOCATE FOR numegest=m.numegest
SCATTER MEMVAR
SELE mf
IF m.gest=-1
SET FILTER TO fel=" " AND !CASAT AND !INACTIV
ELSE
SET FILTER TO gest=m.gest AND fel=" " AND !CASAT AND !INACTIV
ENDIF
*SET ORDER TO scdden
Index On str(gest,4)+Str(Val(nrinv)) Tag SCDNRINV Of &LOC\&NFSCURT\TEMPO\mfi Ascending
REPORT FORM nota_inv2005 TO PRINTER PROMPT PREVIEW
SET INDEX TO
SELECT mf
SET FILTER TO
ENDPROC && BAR_2_OF_Listadeinv_FB2P
PROCEDURE BAR_9_OF_Shortcut_FB2P
DO evidenta_mf
ENDPROC && BAR_9_OF_Shortcut_FB2P
*</Procedures>

41
Meniuri/Vechi/listincurs.mn2 Normal file
View File

@@ -0,0 +1,41 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="listincurs.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>4</MenuType>
*<MenuLocation>REPLACE</MenuLocation>
*<MenuCode>
DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF Shortcut PROMPT "Model1"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "Model2"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
Select mf
Set Filter To Upper(fel)="C" And !CASAT
*INDEX ON ALLTRIM(nrinv)+DTOS(dataact) TAG datapif of &loc\&nfscurt\tempo\mfi
Index On Padr(scd,4," ")+Str(Val(nrinv)) Tag SCDNRINV Of &LOC\&NFSCURT\TEMPO\mfi Ascending
Report Form listimobcurs To Printer Prompt Preview
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_2_OF_Shortcut_FB2P
PRIVATE pddata
ldatacrt = "01/" + m.nl + "/" + m.an
pddata = GOMONTH(CTOD(ldatacrt),1) - 1
Select mf
Set Filter To Upper(fel)="C" And !CASAT
*INDEX ON ALLTRIM(nrinv)+DTOS(dataact) TAG datapif of &loc\&nfscurt\tempo\mfi
Index On str(gest,4)+Str(Val(nrinv)) Tag SCDNRINV Of &LOC\&NFSCURT\TEMPO\mfi Ascending
Report Form nota_inv2005 To Printer Prompt Preview
ENDPROC && BAR_2_OF_Shortcut_FB2P
*</Procedures>

126
Meniuri/Vechi/listnecorp.mn2 Normal file
View File

@@ -0,0 +1,126 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="listnecorp.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>4</MenuType>
*<MenuLocation>REPLACE</MenuLocation>
*<MenuCode>
DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF Shortcut PROMPT "Cu Total \<General"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "Cu Totaluri pe \<Luni"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
DEFINE BAR 3 OF Shortcut PROMPT "Cu Totaluri pe \<Grupe"
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
DEFINE BAR 4 OF Shortcut PROMPT "Cu Totaluri pe Sectie"
ON SELECTION BAR 4 OF Shortcut DO BAR_4_OF_Shortcut_FB2P
DEFINE BAR 5 OF Shortcut PROMPT "\-"
ON BAR 5 OF Shortcut ACTIVATE POPUP _11d0ud149
*----------------------------------
DEFINE POPUP _11d0ud149 SHORTCUT RELATIVE
DEFINE BAR 6 OF Shortcut PROMPT "\<Lista fiselor"
ON SELECTION BAR 6 OF Shortcut DO BAR_6_OF_Shortcut_FB2P
DEFINE BAR 7 OF Shortcut PROMPT "\-"
ON BAR 7 OF Shortcut ACTIVATE POPUP _1600pa0of
*----------------------------------
DEFINE POPUP _1600pa0of SHORTCUT RELATIVE
DEFINE BAR 8 OF Shortcut PROMPT "\<Lista de inventar"
ON BAR 8 OF Shortcut ACTIVATE POPUP Listadeinv
*----------------------------------
DEFINE POPUP Listadeinv SHORTCUT RELATIVE
DEFINE BAR 1 OF Listadeinv PROMPT "Model1"
ON SELECTION BAR 1 OF Listadeinv DO BAR_1_OF_Listadeinv_FB2P
DEFINE BAR 2 OF Listadeinv PROMPT "Model2"
ON SELECTION BAR 2 OF Listadeinv DO BAR_2_OF_Listadeinv_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
DO list_necorp_general
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_2_OF_Shortcut_FB2P
DO list_necorp_peluni
ENDPROC && BAR_2_OF_Shortcut_FB2P
PROCEDURE BAR_3_OF_Shortcut_FB2P
DO list_necorp_pegrup
ENDPROC && BAR_3_OF_Shortcut_FB2P
PROCEDURE BAR_4_OF_Shortcut_FB2P
DO list_corp_peSECTII WITH 'N'
ENDPROC && BAR_4_OF_Shortcut_FB2P
PROCEDURE BAR_6_OF_Shortcut_FB2P
DO lista_fiselor_necorp
ENDPROC && BAR_6_OF_Shortcut_FB2P
PROCEDURE BAR_1_OF_Listadeinv_FB2P
DO caut_alf WITH 'Numegest','numegest','NUMELE GESTIUNII','M.NUMEGEST'
IF buton=2
RETURN
ENDIF
SELE numegest
LOCATE FOR numegest=m.numegest
SCATTER MEMVAR
SELE mf
IF m.gest=-1
SET FILTER TO UPPER(fel)='N' AND !CASAT AND !INACTIV
ELSE
SET FILTER TO gest=m.gest AND UPPER(fel)='N' AND !CASAT AND !INACTIV
ENDIF
SET ORDER TO scdden
REPORT FORM listmf_inv TO PRINTER PROMPT PREVIEW
SELECT mf
SET FILTER TO
ENDPROC && BAR_1_OF_Listadeinv_FB2P
PROCEDURE BAR_2_OF_Listadeinv_FB2P
Private pddata
ldatacrt = "01/" + m.nl + "/" + m.an
pddata = Gomonth(Ctod(ldatacrt),1) - 1
Do caut_alf With 'Numegest','numegest','NUMELE GESTIUNII','M.NUMEGEST'
If buton=2
Return
Endif
Sele numegest
Locate For numegest=m.numegest
Scatter Memvar
Sele mf
If m.gest=-1
Set Filter To fel="N" And !CASAT AND !INACTIV
Else
Set Filter To gest=m.gest And fel="N" And !CASAT AND !INACTIV
Endif
Set Order To scdden
Report Form nota_inv2005 To Printer Prompt Preview
Select mf
Set Filter To
ENDPROC && BAR_2_OF_Listadeinv_FB2P
*</Procedures>

421
Meniuri/Vechi/mfix2000.mn2 Normal file
View File

@@ -0,0 +1,421 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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>

31
Meniuri/Vechi/sitana.mn2 Normal file
View File

@@ -0,0 +1,31 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="sitana.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>4</MenuType>
*<MenuLocation>REPLACE</MenuLocation>
*<MenuCode>
DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF Shortcut PROMPT "Inchidere Mijloace Fixe" ;
SKIP FOR e_independent
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "Inchidere Imobilizari necorporale" ;
SKIP FOR e_independent
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
DO list_inchid_amortizari
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_2_OF_Shortcut_FB2P
DO list_inchid_amortizari_nec
ENDPROC && BAR_2_OF_Shortcut_FB2P
*</Procedures>