romfast/roadef
2
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 Opus 5 (1M context) <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_015husoVS24ewJZr21ZoVR3v
This commit is contained in:
Marius Mutu
2026-08-23 18:00:57 +03:00
commit 77e98d73e9
94 changed files with 62872 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

167
Meniuri/blocaredel.mn2 Normal file
View File

@@ -0,0 +1,167 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="blocaredel.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 "\<Blocare de luna"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "\<Situatia lunilor blocate"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
sele calendar
loca for nl=m.nl and an=m.an
if smf
do mesaj with 'Luna '+m.nl+' '+m.an+' este inchisa!',''
else
oi=crea('danuinchid')
oi.show(1)
if buton=1
sele calendar
loca for nl=m.nl and an=m.an
repl smf with .t.
luna_inchisa=.t.
endif
endif
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_2_OF_Shortcut_FB2P
Store 0 To lnprogram,lnfirma,lncalendar
Store {//} To lddata
Store '' To lcfirma,lcprogram
Store '' To poLista1
Store '' To poLista2
Store '' To poLista3
Store '' To pcselect
*///////////////////////////////////////////////////////////////////////////////////
*-----------
*!* pcSchema=['']
*!* pcSelect=[select id_program,denumire from contafin_oracle.nom_programe where 1=2]
*!* pcOrder=[denumire]
*!* pcFiltru = [1=1]
*!* llAfiseaza = .F.
*!* gencursor('poLista1','crsprograme',pcSelect,pcFiltru,pcSchema,pcOrder,llAfiseaza)
*!* poLista1.ca_baza1.afisare()
*--------
lcsql = "select id_program,denumire from contafin_oracle.nom_programe order by denumire"
*STRTOFILE(lcsql,'c:\seleprograme.txt')
lnSucces=goExecutor.oExecute(lcsql,'crsprograme')
If lnSucces<0
aMESSAGEBOX(goExecutor.cEroare,16,"Eroare")
Return
Endif
Select crsprograme
Go Top
lnprogram=id_program
lcprogram=Alltrim(denumire)
*///////////////////////////////////////////////////////////////////////////////////
*///////////////////////////////////////////////////////////////////////////////////
*---------
*!* pcSchema=['']
*!* pcSelect=['select id_firma,schema from contafin_oracle.nom_firme ]
*!* pcOrder=[schema]
*!* pcFiltru = []
*!* llAfiseaza = .F.
*!* gencursor('poLista2','crsfirme',pcSelect,pcFiltru,pcSchema,pcOrder,llAfiseaza)
*!* poLista2.ca_baza1.afisare()
*---------
lcsql = "select id_firma,schema from contafin_oracle.nom_firme order by firma"
*STRTOFILE(lcsql,'c:\selefirme.txt')
lnSucces=goExecutor.oExecute(lcsql,'crsfirme')
If lnSucces<0
aMESSAGEBOX(goExecutor.cEroare,16,"Eroare")
Return
Endif
Select crsfirme
Go Top
lnfirma=id_firma
lcfirma=Alltrim(schema)
*///////////////////////////////////////////////////////////////////////////////////
*///////////////////////////////////////////////////////////////////////////////////
* se face un update la tabela de blocari
lcsql= " select id_calendar,nl,an from "+lcfirma+".calendar where ( id_calendar not in "+;
" (select id_calendar from "+lcfirma+".blocatprogramluni where id_program ="+Alltrim(Str(lnprogram))+" ) )"
lnSucces=goExecutor.oExecute(lcsql,'crsplusluni')
If lnSucces<0
aMESSAGEBOX(goExecutor.cEroare,16,"Eroare")
Return
Endif
Select crsplusluni
*brow
If Reccount()>0
*MESSAGEBOX("intrat in scan ! ")
Scan
lcsql=" insert into "+lcfirma+".blocatprogramluni(id_program,id_calendar,blocat,lunaan)"+;
" values ( "+Alltrim(Str(lnprogram))+","+Alltrim(Str(id_calendar))+",0,"+;
" to_date("+Alltrim(nl)+"||'/'||"+Alltrim(an)+",'mm/yyyy') )"
Strtofile(lcsql,'c:\insertluni.txt')
lnSucces=goExecutor.oExecute(lcsql)
If lnSucces<0
aMESSAGEBOX(goExecutor.cEroare,16,"Eroare")
Return
Endif
Select crsplusluni
Endscan
Endif
*-----------
*!* pcSchema=['']
*!* pcSelect=['select lunaan,blocat from ]+lcfirma+[.blocatprogramluni where 1=2']
*!* pcOrder=[lunaan]
*!* pcFiltru = [id_program=]+ALLTRIM(STR(lnprogram))
*!* llAfiseaza = .F.
*!* gencursor('poLista3','crslunian',pcSelect,pcFiltru,pcSchema,pcOrder,llAfiseaza)
*!* poLista.ca_baza1.afisare()
*-----------
lcsql = " select lunaan,blocat,id_calendar from "+lcfirma+".blocatprogramluni where "+;
" id_program="+Alltrim(Str(lnprogram))+"order by lunaan "
*STRTOFILE(lcsql,'c:\selelunianblocat.txt')
lnSucces=goExecutor.oExecute(lcsql,'crslunian')
If lnSucces<0
aMESSAGEBOX(goExecutor.cEroare,16,"Eroare")
Return
Endif
Select crslunian
*///////////////////////////////////////////////////////////////////////////////////
ovizblocate=Createobject('frm_viz_blocate')
ovizblocate.Show(1)
ENDPROC && BAR_2_OF_Shortcut_FB2P
*</Procedures>

18
Meniuri/calculatoare.mn2 Normal file
View File

@@ -0,0 +1,18 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="calculatoare.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 "Nomenclator Calculatoare"
ON SELECTION BAR 1 OF Shortcut do def_calculatoare in oproceduri_roadef.prg
DEFINE BAR 2 OF Shortcut PROMPT "Setari Calculatoare"
ON SELECTION BAR 2 OF Shortcut do set_calculatoare in oproceduri_roadef.prg
ACTIVATE POPUP Shortcut
*</MenuCode>

14
Meniuri/calend.mn2 Normal file
View File

@@ -0,0 +1,14 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="calend.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 _MST_DIARY OF Shortcut PROMPT "\<Calendar"
ACTIVATE POPUP Shortcut
*</MenuCode>

37
Meniuri/coeficientilunari.mn2 Normal file
View File

@@ -0,0 +1,37 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="coeficientilunari.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 "Cote TVA"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "Plafoane casa"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
lnAn = gnAn
lnLuna = gnLuna
DO viz_cote_tva WITH gcs,lnAn,lnLuna
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_2_OF_Shortcut_FB2P
lnAn = gnAn
lnLuna = gnLuna
DO viz_plafon_casa WITH gcs,lnAn,lnLuna IN onomenclatoare.prg
*!* oc=crea('coef')
*!* oc.show(1)
ENDPROC && BAR_2_OF_Shortcut_FB2P
*</Procedures>

61
Meniuri/editscurt.mn2 Normal file
View File

@@ -0,0 +1,61 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="editscurt.mnx" CPID="1250" /> (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 _med_copy OF Shortcut PROMPT "\<Copiaza"
DEFINE BAR _med_paste OF Shortcut PROMPT "Re\<da"
DEFINE BAR 3 OF Shortcut PROMPT "LLL"
ON BAR 3 OF Shortcut ACTIVATE POPUP LLL
*----------------------------------
DEFINE POPUP LLL SHORTCUT RELATIVE
DEFINE BAR 1 OF LLL PROMPT "PPPPPP"
ON BAR 1 OF LLL ACTIVATE POPUP PPPPPP
*----------------------------------
DEFINE POPUP PPPPPP SHORTCUT RELATIVE
DEFINE BAR 2 OF LLL PROMPT "JJJJJ"
ON BAR 2 OF LLL ACTIVATE POPUP JJJJJ
*----------------------------------
DEFINE POPUP JJJJJ SHORTCUT RELATIVE
DEFINE BAR 3 OF LLL PROMPT "KKKKKKKK"
ON BAR 3 OF LLL ACTIVATE POPUP KKKKKKKK
*----------------------------------
DEFINE POPUP KKKKKKKK SHORTCUT RELATIVE
DEFINE BAR 1 OF KKKKKKKK PROMPT "IIIIII"
ON BAR 1 OF KKKKKKKK ACTIVATE POPUP IIIIII
*----------------------------------
DEFINE POPUP IIIIII SHORTCUT RELATIVE
DEFINE BAR 2 OF KKKKKKKK PROMPT "OOOOOO"
ON BAR 2 OF KKKKKKKK ACTIVATE POPUP OOOOOO
*----------------------------------
DEFINE POPUP OOOOOO SHORTCUT RELATIVE
DEFINE BAR 3 OF KKKKKKKK PROMPT "PPPPPP"
ON BAR 3 OF KKKKKKKK ACTIVATE POPUP _09f0no8qv
*----------------------------------
DEFINE POPUP _09f0no8qv SHORTCUT RELATIVE
DEFINE BAR 4 OF KKKKKKKK PROMPT "LLLLLL"
ON BAR 4 OF KKKKKKKK ACTIVATE POPUP LLLLLL
*----------------------------------
DEFINE POPUP LLLLLL SHORTCUT RELATIVE
DEFINE BAR 5 OF KKKKKKKK PROMPT "MMMMMM"
ON BAR 5 OF KKKKKKKK ACTIVATE POPUP MMMMMM
*----------------------------------
DEFINE POPUP MMMMMM SHORTCUT RELATIVEACTIVATE POPUP Shortcut
*</MenuCode>

29
Meniuri/entitati.mn2 Normal file
View File

@@ -0,0 +1,29 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="entitati.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 "\<Entitati"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "\<Entitati - Conturi"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
DO viz_parteneri IN onomenclatoare.prg
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_2_OF_Shortcut_FB2P
DO viz_entitati_conturi IN onomenclatoare.prg
ENDPROC && BAR_2_OF_Shortcut_FB2P
*</Procedures>

323
Meniuri/firmanoua.mn2 Normal file
View File

@@ -0,0 +1,323 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="firmanoua.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 "\<Deschidere de firma"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "\-"
ON BAR 2 OF Shortcut ACTIVATE POPUP NewItem
*----------------------------------
DEFINE POPUP NewItem SHORTCUT RELATIVE
DEFINE BAR 3 OF Shortcut PROMPT "\<Preluare de date"
ON BAR 3 OF Shortcut ACTIVATE POPUP _1mj0sbbn6
*----------------------------------
DEFINE POPUP _1mj0sbbn6 SHORTCUT RELATIVE
DEFINE BAR 1 OF _1mj0sbbn6 PROMPT "Situatii \<analitice"
ON BAR 1 OF _1mj0sbbn6 ACTIVATE POPUP _1mj0sbjsk
*----------------------------------
DEFINE POPUP _1mj0sbjsk SHORTCUT RELATIVE
DEFINE BAR 1 OF _1mj0sbjsk PROMPT "\<Furnizori"
ON SELECTION BAR 1 OF _1mj0sbjsk DO BAR_1_OF__1mj0sbjsk_FB2P
DEFINE BAR 2 OF _1mj0sbjsk PROMPT "\<Clienti"
ON SELECTION BAR 2 OF _1mj0sbjsk DO BAR_2_OF__1mj0sbjsk_FB2P
DEFINE BAR 3 OF _1mj0sbjsk PROMPT "Cr\<editori"
ON SELECTION BAR 3 OF _1mj0sbjsk DO BAR_3_OF__1mj0sbjsk_FB2P
DEFINE BAR 4 OF _1mj0sbjsk PROMPT "\<Debitori"
ON SELECTION BAR 4 OF _1mj0sbjsk DO BAR_4_OF__1mj0sbjsk_FB2P
DEFINE BAR 5 OF _1mj0sbjsk PROMPT "\<Achizitori"
ON SELECTION BAR 5 OF _1mj0sbjsk DO BAR_5_OF__1mj0sbjsk_FB2P
DEFINE BAR 6 OF _1mj0sbjsk PROMPT "Act\<ionari"
ON SELECTION BAR 6 OF _1mj0sbjsk DO BAR_6_OF__1mj0sbjsk_FB2P
DEFINE BAR 2 OF _1mj0sbbn6 PROMPT "\-"
ON BAR 2 OF _1mj0sbbn6 ACTIVATE POPUP _1mj0sbpef
*----------------------------------
DEFINE POPUP _1mj0sbpef SHORTCUT RELATIVE
DEFINE BAR 3 OF _1mj0sbbn6 PROMPT "\<Balanta"
ON SELECTION BAR 3 OF _1mj0sbbn6 DO BAR_3_OF__1mj0sbbn6_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
*!* ll2=m.nl
*!* aa2=m.an
*!* do form startfirma
*!* IF buton=2
*!* m.an=aa2
*!* m.nl=ll2
*!* endif
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_1_OF__1mj0sbjsk_FB2P
*!* sele act
*!* copy struct to &loc\&nfscurt\tempo\ytemp WITH CDX
*!* sele 0
*!* use &loc\&nfscurt\tempo\ytemp alias ytemp
*!* sele ytemp
*!* BUTON=1
*!* mmm=crea('modiffact')
*!* mmm.decare='FURN'
*!* MMM.SHOW(1)
*!* IF BUTON=2
*!* DO STERGE
*!* USE IN YTEMP
*!* RETURN
*!* ENDIF
*!* SELE YTEMP
*!* SCAN
*!* SCAT MEMV
*!* SELE ACT
*!* IF FLOCK()
*!* appe blan
*!* gath memv
*!* endif
*!* unlock
*!* SELE ACTan
*!* IF FLOCK()
*!* appe blan
*!* gath memv
*!* endif
*!* unlock
*!* endscan
*!* USE IN YTEMP
*!* wait wind 'Se inregistreaza in analiticul de furnizori...' nowait
*!* DO TOTV
*!* DO REFBAL
*!* DO REFFURNIZOR
*!* wait wind 'Se inregistreaza in registrul de cumparari...' nowait
*!* DO TOTV
*!* DO REFCUMP
*!* wait wind 'Se inregistreaza in situatia facturilor de furnizori...' nowait
*!* do totv
*!* DO REFCUMPLUN
*!* DO TOTV
*!* wait clear
ENDPROC && BAR_1_OF__1mj0sbjsk_FB2P
PROCEDURE BAR_2_OF__1mj0sbjsk_FB2P
*!* sele act
*!* copy struct to &loc\&nfscurt\tempo\ytemp WITH CDX
*!* sele 0
*!* use &loc\&nfscurt\tempo\ytemp alias ytemp
*!* sele ytemp
*!* BUTON=1
*!* mmm=crea('modiffact')
*!* mmm.decare='CLI'
*!* MMM.SHOW(1)
*!* IF BUTON=2
*!* DO STERGE
*!* USE IN YTEMP
*!* RETURN
*!* ENDIF
*!* SELE YTEMP
*!* SCAN
*!* SCAT MEMV
*!* SELE ACT
*!* IF FLOCK()
*!* appe blan
*!* gath memv
*!* endif
*!* unlock
*!* SELE ACTan
*!* IF FLOCK()
*!* appe blan
*!* gath memv
*!* endif
*!* unlock
*!* endscan
*!* USE IN YTEMP
*!* wait wind 'Se inregistreaza in analiticul de clienti...' nowait
*!* DO TOTV
*!* DO REFBAL
*!* DO REFCLIENTI
*!* wait wind 'Se inregistreaza in registrul de vanzari...' nowait
*!* DO TOTV
*!* DO REFVANZ
*!* wait wind 'Se inregistreaza in situatia facturilor de clienti...' nowait
*!* do totv
*!* DO REFVANZLUN
*!* DO TOTV
*!* wait clear
ENDPROC && BAR_2_OF__1mj0sbjsk_FB2P
PROCEDURE BAR_3_OF__1mj0sbjsk_FB2P
*!* LOCAL m.SUM1,M.SUM2,M.SUM3
*!* SELECT CREDITOR
*!* SET FILTER TO !DELETED()
*!* sum LUAT,DAT to m.SUM1,M.SUM2
*!* M.SUM3=M.SUM1-M.SUM2
*!* SELE BAL
*!* SEEK '462 '
*!* SCATTER MEMVAR
*!* IF M.SOLDcred # M.SUM3
*!* do mesajval with 'Diferenta soldului cont.462 este de: ',M.SOLDCRED-M.SUM3
*!* endif
*!*
*!* m.cont='462 '
*!* cn=m.cont
*!* SELECT CREDITOR.NUME,CREDITOR.luat as deb,CREDITOR.dat as cred;
*!* from CREDITOR where !deleted() ;
*!* into TABLE &LOC\&nfscurt\tempo\xtemp
*!*
*!* * rename column luat TO deb;
*!* * rename column dat TO cred;
*!* if file('&LOC\&nfscurt\tempo\xtemp.dbf')
*!* sele xtemp
*!* alter table xtemp ADD COLUMN CONT C(4)
*!* repl all cont with m.cont
*!* sele xtemp
*!* index on nume tag nume of &LOC\&nfscurt\tempo\xtemp
*!* OVIZ=CREATEOBJECT("afsitanalitX")
*!* WITH OVIZ
*!* .command5.visible=.f.
*!* .LABEL10.CAPTION='SITUATIA ANALITICA - CREDITORI'
*!* .GRID1.COLUMN2.VISIBLE=.F.
*!* .GRID1.COLUMN2.WIDTH=0
*!* .GRID1.COLUMN8.VISIBLE=.F.
*!* .GRID1.COLUMN8.WIDTH=0
*!* ENDWITH
*!* OVIZ.SHOW(1)
*!* use in xtemp
*!* endif
ENDPROC && BAR_3_OF__1mj0sbjsk_FB2P
PROCEDURE BAR_4_OF__1mj0sbjsk_FB2P
*!* SELECT debitor
*!* SET FILTER TO !DELETED()
*!* SELECT debitor
*!* sum LUAT,DAT to m.SUM1,M.SUM2
*!* M.SUM3=M.SUM1-M.SUM2
*!* SELE BAL
*!* SEEK '461 '
*!* SCATTER MEMVAR
*!* IF M.SOLDDEB # M.SUM3
*!* do mesajval with 'Diferenta soldului cont.461 este de: ',M.SOLDDEB-M.SUM3
*!* endif
*!* SELECT debitor.NUME,debitor.luat as deb,debitor.dat as cred;
*!* from debitor where !deleted() ;
*!* into TABLE &LOC\&nfscurt\tempo\xtemp
*!* *alter table xtemp;
*!* * rename column luat TO DEB;
*!* * rename column dat TO CRED;
*!* sele xtemp
*!* index on nume tag nume of &LOC\&nfscurt\tempo\xtemp
*!* do creaT_analitX with 'SITUATIE ANALITICA - DEBITORI','Incasat','Restituit'
*!* use in xtemp
ENDPROC && BAR_4_OF__1mj0sbjsk_FB2P
PROCEDURE BAR_5_OF__1mj0sbjsk_FB2P
*!* local m.sum1,m.sum2,m.sum3
*!* set safety off
*!* SELECT ACHIT542
*!* SET FILTER TO !DELETED()
*!* sum LUAT,DAT to m.SUM1,M.SUM2
*!* M.SUM3=M.SUM1-M.SUM2
*!* SELE BAL
*!* SEEK '542 '
*!* SCATTER MEMVAR
*!* IF M.SOLDDEB # M.SUM3
*!* ot=createobj('textval')
*!* ot.label2.caption= 'Diferenta soldului este de: '
*!* ot.valoare=M.SOLDDEB-M.SUM3
*!* ot.show(1)
*!* ENDIF
*!* m.cont='542 '
*!* cn=m.cont
*!*
*!* SELECT ACHIT542.NUME_2 as nume,achit542.luat as deb,achit542.dat as cred;
*!* from achit542 where !deleted();
*!* into TABLE &LOC\&nfscurt\tempo\xtemp
*!* ** rename column nume_2 TO nume;
*!* * rename column luat TO deb;
*!* * rename column dat TO cred;
*!*
*!* if file('&LOC\&nfscurt\tempo\xtemp.dbf')
*!* sele xtemp
*!* alter table xtemp ADD COLUMN CONT C(4)
*!* repl all cont with m.cont
*!* index on nume tag nume of &LOC\&nfscurt\tempo\xtemp
*!* OVIZ=CREATEOBJECT("afsitanalitX")
*!* WITH OVIZ
*!* .command5.visible=.f.
*!* .LABEL10.CAPTION='SITUATIA ANALITICA - ACHIZITORI'
*!* .GRID1.COLUMN2.VISIBLE=.F.
*!* .GRID1.COLUMN2.WIDTH=0
*!* .GRID1.COLUMN8.VISIBLE=.F.
*!* .GRID1.COLUMN8.WIDTH=0
*!* ENDWITH
*!* OVIZ.SHOW(1)
*!* use in xtemp
*!* endif
ENDPROC && BAR_5_OF__1mj0sbjsk_FB2P
PROCEDURE BAR_6_OF__1mj0sbjsk_FB2P
*!* SELECT actionar
*!* SET FILTER TO !DELETED()
*!* sum LUAT,DAT to m.SUM1,M.SUM2
*!* M.SUM3=M.SUM1-M.SUM2
*!*
*!* SELECT actionar.NUME,actionar.luat as deb,actionar.dat as cred;
*!* from actionar where !deleted() ;
*!* into TABLE &LOC\&nfscurt\tempo\xtemp
*!* *alter table xtemp;
*!* * rename column luat TO deb;
*!* * rename column dat TO cred;
*!* sele xtemp
*!* index on nume tag nume of &LOC\&nfscurt\tempo\xtemp
*!* do creaT_analitX with 'SITUATIE ANALITICA - ACTIONARI','Luat','Dat'
*!* use in xtemp
ENDPROC && BAR_6_OF__1mj0sbjsk_FB2P
PROCEDURE BAR_3_OF__1mj0sbbn6_FB2P
*!* sele bal
*!* do form afisbalx
ENDPROC && BAR_3_OF__1mj0sbbn6_FB2P
*</Procedures>

18
Meniuri/impozitar.mn2 Normal file
View File

@@ -0,0 +1,18 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="impozitar.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 "Lunar"
ON SELECTION BAR 1 OF Shortcut do impozit_luna with .f. in oproceduri_roadef_sal.prg
DEFINE BAR 2 OF Shortcut PROMPT "Anual"
ON SELECTION BAR 2 OF Shortcut do impozit_luna with .t. in oproceduri_roadef_sal.prg
ACTIVATE POPUP Shortcut
*</MenuCode>

85
Meniuri/listenomenclatoare.mn2 Normal file
View File

@@ -0,0 +1,85 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="listenomenclatoare.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 "\<Tipuri documente"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "S\<ucursale"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
DEFINE BAR 3 OF Shortcut PROMPT "\<Sectii"
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
DEFINE BAR 4 OF Shortcut PROMPT "\<Gestiuni"
ON SELECTION BAR 4 OF Shortcut DO BAR_4_OF_Shortcut_FB2P
DEFINE BAR 5 OF Shortcut PROMPT "\<Venituri/Cheltuieli"
ON SELECTION BAR 5 OF Shortcut DO BAR_5_OF_Shortcut_FB2P
DEFINE BAR 6 OF Shortcut PROMPT "\<Lucrari"
ON SELECTION BAR 6 OF Shortcut DO BAR_6_OF_Shortcut_FB2P
DEFINE BAR 7 OF Shortcut PROMPT "\<Responsabili"
ON SELECTION BAR 7 OF Shortcut DO BAR_7_OF_Shortcut_FB2P
DEFINE BAR 8 OF Shortcut PROMPT "\<Judete"
ON SELECTION BAR 8 OF Shortcut DO BAR_8_OF_Shortcut_FB2P
DEFINE BAR 9 OF Shortcut PROMPT "\<Localitati"
ON SELECTION BAR 9 OF Shortcut DO BAR_9_OF_Shortcut_FB2P
DEFINE BAR 10 OF Shortcut PROMPT "Valut\<e"
ON SELECTION BAR 10 OF Shortcut DO BAR_10_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
DO VIZ_FDOC IN ONOMENCLATOARE.PRG
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_2_OF_Shortcut_FB2P
DO viz_sucursale IN ONOMENCLATOARE.PRG
ENDPROC && BAR_2_OF_Shortcut_FB2P
PROCEDURE BAR_3_OF_Shortcut_FB2P
DO viz_sectii IN ONOMENCLATOARE.PRG
ENDPROC && BAR_3_OF_Shortcut_FB2P
PROCEDURE BAR_4_OF_Shortcut_FB2P
DO VIZ_GESTIUNI IN ONOMENCLATOARE.PRG
ENDPROC && BAR_4_OF_Shortcut_FB2P
PROCEDURE BAR_5_OF_Shortcut_FB2P
DO viz_venchel IN onomenclatoare.prg
ENDPROC && BAR_5_OF_Shortcut_FB2P
PROCEDURE BAR_6_OF_Shortcut_FB2P
DO viz_lucrari IN onomenclatoare.prg
ENDPROC && BAR_6_OF_Shortcut_FB2P
PROCEDURE BAR_7_OF_Shortcut_FB2P
DO VIZ_RESPONSABILI IN ONOMENCLATOARE.PRG
ENDPROC && BAR_7_OF_Shortcut_FB2P
PROCEDURE BAR_8_OF_Shortcut_FB2P
DO VIZ_JUDETE IN ONOMENCLATOARE.PRG
ENDPROC && BAR_8_OF_Shortcut_FB2P
PROCEDURE BAR_9_OF_Shortcut_FB2P
DO VIZ_LOCALITATI IN ONOMENCLATOARE.PRG
ENDPROC && BAR_9_OF_Shortcut_FB2P
PROCEDURE BAR_10_OF_Shortcut_FB2P
DO viz_valute IN onomenclatoare.prg
ENDPROC && BAR_10_OF_Shortcut_FB2P
*</Procedures>

75
Meniuri/nomenclatoare.mn2 Normal file
View File

@@ -0,0 +1,75 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="nomenclatoare.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 "Nomenclator deduceri"
ON SELECTION BAR 1 OF Shortcut do nom_limded in oproceduri_roadef_sal.prg
DEFINE BAR 2 OF Shortcut PROMPT "\-="
ON BAR 2 OF Shortcut ACTIVATE POPUP _1js0sa0gs
*----------------------------------
DEFINE POPUP _1js0sa0gs SHORTCUT RELATIVE
DEFINE BAR 3 OF Shortcut PROMPT "Sectii"
ON SELECTION BAR 3 OF Shortcut DO viz_sectii IN onomenclatoare.prg
DEFINE BAR 4 OF Shortcut PROMPT "Formatii"
ON SELECTION BAR 4 OF Shortcut do nom_formatii in oproceduri_roadef_sal.prg
DEFINE BAR 5 OF Shortcut PROMPT "Meserii"
ON SELECTION BAR 5 OF Shortcut do nom_meserii in oproceduri_roadef_sal.prg
DEFINE BAR 6 OF Shortcut PROMPT "Transe"
ON SELECTION BAR 6 OF Shortcut do nom_transe in oproceduri_roadef_sal.prg
DEFINE BAR 7 OF Shortcut PROMPT "Clase de salarizare"
ON SELECTION BAR 7 OF Shortcut do nom_clasesal in oproceduri_roadef_sal.prg
DEFINE BAR 8 OF Shortcut PROMPT "Tipuri de contract"
ON SELECTION BAR 8 OF Shortcut do nom_tipctr in oproceduri_roadef_sal.prg
DEFINE BAR 9 OF Shortcut PROMPT "Cursuri de calificare"
ON SELECTION BAR 9 OF Shortcut do nom_curscal in oproceduri_roadef_sal.prg
DEFINE BAR 10 OF Shortcut PROMPT "\-"
ON BAR 10 OF Shortcut ACTIVATE POPUP _1iy0x213n
*----------------------------------
DEFINE POPUP _1iy0x213n SHORTCUT RELATIVE
DEFINE BAR 11 OF Shortcut PROMPT "Grupe de munca"
ON SELECTION BAR 11 OF Shortcut do nom_grpmun in oproceduri_roadef_sal.prg
DEFINE BAR 12 OF Shortcut PROMPT "Grad handicap"
ON SELECTION BAR 12 OF Shortcut do nom_grdhand in oproceduri_roadef_sal.prg
DEFINE BAR 13 OF Shortcut PROMPT "Tipuri intretinere"
ON SELECTION BAR 13 OF Shortcut do nom_tipintret in oproceduri_roadef_sal.prg
DEFINE BAR 14 OF Shortcut PROMPT "Case de asigurari"
ON SELECTION BAR 14 OF Shortcut do caseasig in oproceduri_roadef_sal.prg
DEFINE BAR 15 OF Shortcut PROMPT "\-"
ON BAR 15 OF Shortcut ACTIVATE POPUP _1iy0x213o
*----------------------------------
DEFINE POPUP _1iy0x213o SHORTCUT RELATIVE
DEFINE BAR 16 OF Shortcut PROMPT "Grila sporuri de vechime"
ON SELECTION BAR 16 OF Shortcut do nom_tabvechimi in oproceduri_roadef_sal.prg
DEFINE BAR 17 OF Shortcut PROMPT "Grila zile CO"
ON SELECTION BAR 17 OF Shortcut do nom_grilaco in oproceduri_roadef_sal.prg
DEFINE BAR 18 OF Shortcut PROMPT "Nomenclator ore"
ON SELECTION BAR 18 OF Shortcut do nom_ore in oproceduri_roadef_sal.prg
DEFINE BAR 19 OF Shortcut PROMPT "Tipuri CM"
ON SELECTION BAR 19 OF Shortcut do nom_tipcm in oproceduri_roadef_sal.prg
ACTIVATE POPUP Shortcut
*</MenuCode>

37
Meniuri/optiuni.mn2 Normal file
View File

@@ -0,0 +1,37 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="optiuni.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 "Optiuni \<Default"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "Optiuni \<Firma"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
DEFINE BAR 3 OF Shortcut PROMPT "\<Exceptii"
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
DO viz_optiuni IN oinit_optiuni.prg WITH gcs
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_2_OF_Shortcut_FB2P
DO viz_optiuni WITH gcS IN oinit_optiuni.prg
ENDPROC && BAR_2_OF_Shortcut_FB2P
PROCEDURE BAR_3_OF_Shortcut_FB2P
LLL = GCS
DO viz_exceptii WITH lll
ENDPROC && BAR_3_OF_Shortcut_FB2P
*</Procedures>

24
Meniuri/rapoarte.mn2 Normal file
View File

@@ -0,0 +1,24 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="rapoarte.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 "Organizarea punctului de lucru"
ON SELECTION BAR 1 OF Shortcut do list_utilizatori in oproceduri_roadef.prg
DEFINE BAR 2 OF Shortcut PROMPT "Organizarea calculatoarelor"
ON SELECTION BAR 2 OF Shortcut do list_calculatoare in oproceduri_roadef.prg
DEFINE BAR 3 OF Shortcut PROMPT "Organizarea gestiunilor"
ON SELECTION BAR 3 OF Shortcut do list_gestiuni in oproceduri_roadef.prg
DEFINE BAR 4 OF Shortcut PROMPT "Organizarea utilizatorilor"
ON SELECTION BAR 4 OF Shortcut do list_org_util in oproceduri_roadef.prg
ACTIVATE POPUP Shortcut
*</MenuCode>

134
Meniuri/roadef.mn2 Normal file
View File

@@ -0,0 +1,134 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="roadef.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" ;
MESSAGE 'Instrumente utile: calculator, calendar, bloc-notes; iesirea din program.'
ON PAD _000000001 OF _msysmenu ACTIVATE POPUP Utile
*----------------------------------
DEFINE POPUP Utile MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Utile PROMPT "I\<ntrare..."
ON SELECTION BAR 1 OF Utile DO BAR_1_OF_Utile_FB2P
DEFINE BAR 2 OF Utile PROMPT "\-"
ON BAR 2 OF Utile ACTIVATE POPUP _0dg0s4tx8
*----------------------------------
DEFINE POPUP _0dg0s4tx8 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 3 OF Utile PROMPT "\<Calculator" ;
MESSAGE 'Deschide un calculator.'
ON SELECTION BAR 3 OF Utile DO BAR_3_OF_Utile_FB2P
DEFINE BAR 4 OF Utile PROMPT "\<Notepad" ;
MESSAGE 'Deschide un carnetel.'
ON SELECTION BAR 4 OF Utile DO BAR_4_OF_Utile_FB2P
DEFINE BAR 5 OF Utile PROMPT "\-"
ON BAR 5 OF Utile ACTIVATE POPUP _s9r16veuj
*----------------------------------
DEFINE POPUP _s9r16veuj MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 6 OF Utile PROMPT "\<Iesire" ;
KEY F2, "F2" ;
MESSAGE 'Iesire din program.'
ON SELECTION BAR 6 OF Utile DO BAR_6_OF_Utile_FB2P
DEFINE PAD _000000002 OF _msysmenu PROMPT "\<Editare" COLOR SCHEME 3 ;
KEY ALT+E, "" ;
MESSAGE 'Comenzi de editare.'
ON PAD _000000002 OF _msysmenu ACTIVATE POPUP Editare
*----------------------------------
DEFINE POPUP Editare MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _med_undo OF Editare PROMPT "\<Anuleaza" ;
KEY CTRL+Z, "Ctrl+Z" ;
MESSAGE 'Anuleaza ultima comanda de editare.'
DEFINE BAR _med_redo OF Editare PROMPT "\<Refa" ;
KEY CTRL+R, "Ctrl+R" ;
MESSAGE 'Repeta ultima comanda anulata.'
DEFINE BAR _med_sp100 OF Editare PROMPT "\-"
DEFINE BAR _med_cut OF Editare PROMPT "\<Taie si retine" ;
KEY CTRL+X, "Ctrl+X" ;
MESSAGE 'Copiaza in memorie textul selectat si apoi il sterge din ecran.'
DEFINE BAR _med_copy OF Editare PROMPT "\<Copiaza" ;
KEY CTRL+C, "Ctrl+C" ;
MESSAGE 'Copiaza in memorie textul selectat.'
DEFINE BAR _med_paste OF Editare PROMPT "Re\<da" ;
KEY CTRL+V, "Ctrl+V" ;
MESSAGE 'Reda din memorie textul retinut cu comanda <Copiaza>.'
DEFINE PAD _000000003 OF _msysmenu PROMPT "A\<jutor" COLOR SCHEME 3 ;
KEY ALT+J, "ALT+J" ;
MESSAGE 'Instructiuni de utilizare, informatii despre acest program.'
ON PAD _000000003 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 _1wc0p4yd8
*----------------------------------
DEFINE POPUP _1wc0p4yd8 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 3 OF Ajutor PROMPT "\<Jurnal modificari"
ON SELECTION BAR 3 OF Ajutor DO BAR_3_OF_Ajutor_FB2P
DEFINE BAR 4 OF Ajutor PROMPT "\<Despre program..." ;
MESSAGE 'Informatii despre program'
ON SELECTION BAR 4 OF Ajutor DO BAR_4_OF_Ajutor_FB2P
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Utile_FB2P
*!* do form start00
DO start_firma IN ostartfirma.prg
ENDPROC && BAR_1_OF_Utile_FB2P
PROCEDURE BAR_3_OF_Utile_FB2P
Do apeleaza_calc In oproceduri_comune.prg
ENDPROC && BAR_3_OF_Utile_FB2P
PROCEDURE BAR_4_OF_Utile_FB2P
Do apeleaza_notepad In oproceduri_comune.prg
ENDPROC && BAR_4_OF_Utile_FB2P
PROCEDURE BAR_6_OF_Utile_FB2P
ies=.t.
DO IESIRE
ENDPROC && BAR_6_OF_Utile_FB2P
PROCEDURE BAR_1_OF_Ajutor_FB2P
Do arata_manual In oproceduri_comune.prg
ENDPROC && BAR_1_OF_Ajutor_FB2P
PROCEDURE BAR_3_OF_Ajutor_FB2P
DO arata_modificari IN oproceduri_comune.prg
ENDPROC && BAR_3_OF_Ajutor_FB2P
PROCEDURE BAR_4_OF_Ajutor_FB2P
DO arata_versiune IN oproceduri_comune.prg
ENDPROC && BAR_4_OF_Ajutor_FB2P
*</Procedures>

18
Meniuri/utilizatori.mn2 Normal file
View File

@@ -0,0 +1,18 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="utilizatori.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 "Grupuri Utilizatori"
ON SELECTION BAR 1 OF Shortcut do grupuri_util in oproceduri_roadef.prg
DEFINE BAR 2 OF Shortcut PROMPT "Utilizatorii companiei"
ON SELECTION BAR 2 OF Shortcut do util_rol_intern in oproceduri_roadef.prg
ACTIVATE POPUP Shortcut
*</MenuCode>