romfast/comun
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 10:55:38 +03:00
commit 2f59024385
1271 changed files with 820556 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

82
meniuri/achi.mn2 Normal file
View File

@@ -0,0 +1,82 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="achi.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 "Factura \<neplatita"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "\<Factura \<platita din casa"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
DEFINE BAR 3 OF Shortcut PROMPT "\<Factura platita din \<avans spre decontare"
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
DEFINE BAR 4 OF Shortcut PROMPT "\<Factura n\<esosita"
ON SELECTION BAR 4 OF Shortcut DO BAR_4_OF_Shortcut_FB2P
DEFINE BAR 5 OF Shortcut PROMPT "\<Taxare inversa"
ON SELECTION BAR 5 OF Shortcut DO BAR_5_OF_Shortcut_FB2P
DEFINE BAR 6 OF Shortcut PROMPT "\-"
ON BAR 6 OF Shortcut ACTIVATE POPUP _12u0vdvz1
*----------------------------------
DEFINE POPUP _12u0vdvz1 SHORTCUT RELATIVE
DEFINE BAR 7 OF Shortcut PROMPT "\<Repartizare valoare pe articole"
ON SELECTION BAR 7 OF Shortcut DO BAR_7_OF_Shortcut_FB2P
DEFINE BAR 8 OF Shortcut PROMPT "\-"
ON BAR 8 OF Shortcut ACTIVATE POPUP _1u30biu5i
*----------------------------------
DEFINE POPUP _1u30biu5i SHORTCUT RELATIVE
DEFINE BAR 9 OF Shortcut PROMPT "\<Materiale recuperate"
ON SELECTION BAR 9 OF Shortcut DO BAR_9_OF_Shortcut_FB2P
DEFINE BAR 10 OF Shortcut PROMPT "\-"
ON BAR 10 OF Shortcut ACTIVATE POPUP _2vc0y7gts
*----------------------------------
DEFINE POPUP _2vc0y7gts SHORTCUT RELATIVE
DEFINE BAR 11 OF Shortcut PROMPT "NIR - finalizare aprovizionare"
ON SELECTION BAR 11 OF Shortcut lans(264)
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
LANS(46)
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_2_OF_Shortcut_FB2P
LANS(44)
ENDPROC && BAR_2_OF_Shortcut_FB2P
PROCEDURE BAR_3_OF_Shortcut_FB2P
lans(45)
ENDPROC && BAR_3_OF_Shortcut_FB2P
PROCEDURE BAR_4_OF_Shortcut_FB2P
lans(47)
ENDPROC && BAR_4_OF_Shortcut_FB2P
PROCEDURE BAR_5_OF_Shortcut_FB2P
lans(101)
ENDPROC && BAR_5_OF_Shortcut_FB2P
PROCEDURE BAR_7_OF_Shortcut_FB2P
LANS(94)
ENDPROC && BAR_7_OF_Shortcut_FB2P
PROCEDURE BAR_9_OF_Shortcut_FB2P
lans(85)
ENDPROC && BAR_9_OF_Shortcut_FB2P
*</Procedures>

140
meniuri/config.mn2 Normal file
View File

@@ -0,0 +1,140 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="config.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 "\<Gestiuni"
ON BAR 1 OF Shortcut ACTIVATE POPUP Gestiuni
*----------------------------------
DEFINE POPUP Gestiuni SHORTCUT RELATIVE
DEFINE BAR 1 OF Gestiuni PROMPT "G\<rupe de gestiuni"
ON SELECTION BAR 1 OF Gestiuni DO BAR_1_OF_Gestiuni_FB2P
DEFINE BAR 2 OF Gestiuni PROMPT "Generare \<Gestiuni"
ON SELECTION BAR 2 OF Gestiuni DO BAR_2_OF_Gestiuni_FB2P
DEFINE BAR 3 OF Gestiuni PROMPT "\<Drepturi de acces pe gestiuni"
ON SELECTION BAR 3 OF Gestiuni DO BAR_3_OF_Gestiuni_FB2P
DEFINE BAR 4 OF Gestiuni PROMPT "\<Tipuri de gestiuni"
ON SELECTION BAR 4 OF Gestiuni DO BAR_4_OF_Gestiuni_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "\-"
ON BAR 2 OF Shortcut ACTIVATE POPUP _10g12e0yr
*----------------------------------
DEFINE POPUP _10g12e0yr SHORTCUT RELATIVE
DEFINE BAR 3 OF Shortcut PROMPT "\<Catalog de materiale si marfuri"
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
DEFINE BAR 4 OF Shortcut PROMPT "G\<rupe de articole"
ON SELECTION BAR 4 OF Shortcut DO BAR_4_OF_Shortcut_FB2P
DEFINE BAR 5 OF Shortcut PROMPT "Generatoare"
ON BAR 5 OF Shortcut ACTIVATE POPUP Generatoar
*----------------------------------
DEFINE POPUP Generatoar SHORTCUT RELATIVE
DEFINE BAR 1 OF Generatoar PROMPT "Coduri materiale"
ON SELECTION BAR 1 OF Generatoar DO BAR_1_OF_Generatoar_FB2P
DEFINE BAR 2 OF Generatoar PROMPT "Coduri de bare"
ON SELECTION BAR 2 OF Generatoar DO BAR_2_OF_Generatoar_FB2P
DEFINE BAR 6 OF Shortcut PROMPT "\-"
ON BAR 6 OF Shortcut ACTIVATE POPUP _2720kcsj4
*----------------------------------
DEFINE POPUP _2720kcsj4 SHORTCUT RELATIVE
DEFINE BAR 7 OF Shortcut PROMPT "Curs \<valutar"
ON SELECTION BAR 7 OF Shortcut DO BAR_7_OF_Shortcut_FB2P
DEFINE BAR 8 OF Shortcut PROMPT "\<Serii"
ON SELECTION BAR 8 OF Shortcut DO BAR_8_OF_Shortcut_FB2P
DEFINE BAR 9 OF Shortcut PROMPT "\-"
ON BAR 9 OF Shortcut ACTIVATE POPUP _1ts0yv3ro
*----------------------------------
DEFINE POPUP _1ts0yv3ro SHORTCUT RELATIVE
DEFINE BAR 10 OF Shortcut PROMPT "Configurare \<analitice"
ON BAR 10 OF Shortcut ACTIVATE POPUP Configurar
*----------------------------------
DEFINE POPUP Configurar SHORTCUT RELATIVE
DEFINE BAR 1 OF Configurar PROMPT "Configurare \<analitice pe gestiuni, articole, sectii"
ON SELECTION BAR 1 OF Configurar DO BAR_1_OF_Configurar_FB2P
DEFINE BAR 2 OF Configurar PROMPT "Configurare analitice pe \<grupuri utilizatori"
ON SELECTION BAR 2 OF Configurar DO BAR_2_OF_Configurar_FB2P
DEFINE BAR 3 OF Configurar PROMPT "Configurare analitice conturi TVA"
ON SELECTION BAR 3 OF Configurar DO BAR_3_OF_Configurar_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Gestiuni_FB2P
DO viz_config_grupe_gestiuni WITH 1 IN oproceduri_configurare.prg
ENDPROC && BAR_1_OF_Gestiuni_FB2P
PROCEDURE BAR_2_OF_Gestiuni_FB2P
DO viz_config_grupe_gestiuni WITH 2 IN oproceduri_configurare.prg
ENDPROC && BAR_2_OF_Gestiuni_FB2P
PROCEDURE BAR_3_OF_Gestiuni_FB2P
DO viz_config_grupe_gestiuni WITH 3 IN oproceduri_configurare.prg
ENDPROC && BAR_3_OF_Gestiuni_FB2P
PROCEDURE BAR_4_OF_Gestiuni_FB2P
DO viz_config_tipuri_gestiuni IN oproceduri_configurare.prg
ENDPROC && BAR_4_OF_Gestiuni_FB2P
PROCEDURE BAR_3_OF_Shortcut_FB2P
DO viz_catalog_articole IN oproceduri_articole.prg
ENDPROC && BAR_3_OF_Shortcut_FB2P
PROCEDURE BAR_4_OF_Shortcut_FB2P
DO viz_grupe_subgr_articole IN oproceduri_articole
ENDPROC && BAR_4_OF_Shortcut_FB2P
PROCEDURE BAR_1_OF_Generatoar_FB2P
DO config_codmat IN oproceduri_articole.prg
ENDPROC && BAR_1_OF_Generatoar_FB2P
PROCEDURE BAR_2_OF_Generatoar_FB2P
DO config_codbare IN oproceduri_articole.prg
ENDPROC && BAR_2_OF_Generatoar_FB2P
PROCEDURE BAR_7_OF_Shortcut_FB2P
DO vizualizeaza_curs IN oproceduri_curs.prg WITH Ttod(get_ora())
ENDPROC && BAR_7_OF_Shortcut_FB2P
PROCEDURE BAR_8_OF_Shortcut_FB2P
DO viz_config_serii_complet IN oserii_numere.prg
ENDPROC && BAR_8_OF_Shortcut_FB2P
PROCEDURE BAR_1_OF_Configurar_FB2P
DO configurare_analitice IN omeniu_initializari.prg
ENDPROC && BAR_1_OF_Configurar_FB2P
PROCEDURE BAR_2_OF_Configurar_FB2P
DO configurare_analitice_gruputil IN omeniu_initializari.prg
ENDPROC && BAR_2_OF_Configurar_FB2P
PROCEDURE BAR_3_OF_Configurar_FB2P
DO configurare_analitice_tva IN omeniu_initializari.prg
ENDPROC && BAR_3_OF_Configurar_FB2P
*</Procedures>

73
meniuri/consum2.mn2 Normal file
View File

@@ -0,0 +1,73 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="consum2.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 "\<Dare in folosinta si inregistrare cheltuiala" ;
MESSAGE '603=303'
ON SELECTION BAR 1 OF Shortcut lans(55)
DEFINE BAR 2 OF Shortcut PROMPT "\-"
ON BAR 2 OF Shortcut ACTIVATE POPUP _5z10vmbw6
*----------------------------------
DEFINE POPUP _5z10vmbw6 SHORTCUT RELATIVE
DEFINE BAR 3 OF Shortcut PROMPT "Dare in folosinta si inregistrare \<transfer" ;
MESSAGE '303=303'
ON SELECTION BAR 3 OF Shortcut lans(273)
DEFINE BAR 4 OF Shortcut PROMPT "Iesire din folosinta si inregistrare \<cheltuiala" ;
MESSAGE '603=303'
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 _5z10vm4hj
*----------------------------------
DEFINE POPUP _5z10vm4hj SHORTCUT RELATIVE
DEFINE BAR 6 OF Shortcut PROMPT "\<Casare ob. inv. noi" ;
MESSAGE '603=303'
ON SELECTION BAR 6 OF Shortcut LANS(72)
DEFINE BAR 7 OF Shortcut PROMPT "\-"
ON BAR 7 OF Shortcut ACTIVATE POPUP _5z10v9pb1
*----------------------------------
DEFINE POPUP _5z10v9pb1 SHORTCUT RELATIVE
DEFINE BAR 8 OF Shortcut PROMPT "\<Retur la magazie (ob. in folosinta > ob. noi)"
ON SELECTION BAR 8 OF Shortcut LANS(71)
DEFINE BAR 9 OF Shortcut PROMPT "Ca\<sare ob. inv. in folosinta"
ON SELECTION BAR 9 OF Shortcut LANS(70)
DEFINE BAR 10 OF Shortcut PROMPT "\<Imputare ob. inv. in folosinta"
ON SELECTION BAR 10 OF Shortcut DO BAR_10_OF_Shortcut_FB2P
DEFINE BAR 11 OF Shortcut PROMPT "\-"
ON BAR 11 OF Shortcut ACTIVATE POPUP _12m0lcqna
*----------------------------------
DEFINE POPUP _12m0lcqna SHORTCUT RELATIVE
DEFINE BAR 12 OF Shortcut PROMPT "\<Vanzare din stoc (en gros)"
ON SELECTION BAR 12 OF Shortcut initializeaza_vanzare_din_stoc(73)
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_4_OF_Shortcut_FB2P
LANS(274)
DO listare_casare
ENDPROC && BAR_4_OF_Shortcut_FB2P
PROCEDURE BAR_10_OF_Shortcut_FB2P
LANS(104)
DO listare_casare
ENDPROC && BAR_10_OF_Shortcut_FB2P
*</Procedures>

31
meniuri/consum2_obinvfol.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="consum2_obinvfol.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 "Casare (din folosinta)"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "Imputare"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
LANS(70)
DO listare_casare
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_2_OF_Shortcut_FB2P
LANS(104)
DO listare_casare
ENDPROC && BAR_2_OF_Shortcut_FB2P
*</Procedures>

16
meniuri/editscurt.mn2 Normal file
View File

@@ -0,0 +1,16 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="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 _med_copy OF Shortcut PROMPT "\<Copiaza"
DEFINE BAR _med_paste OF Shortcut PROMPT "Re\<da"
ACTIVATE POPUP Shortcut
*</MenuCode>

114
meniuri/introdgen.mn2 Normal file
View File

@@ -0,0 +1,114 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="introdgen.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 "LISTA INVENTAR"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "\<Nota de inventariere si constatare diferente"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
DEFINE BAR 3 OF Shortcut PROMPT "\<Nota inventariere obiecte inventar 8039"
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
Do lista_inventar In ointroduceri.prg
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_2_OF_Shortcut_FB2P
DO nota_inventar IN ointroduceri.prg
*!* buton=2
*!* If File('&loc\&nfscurt\tempo\difstoc.DBF')
*!* Do danu With 'Doriti sa continuati nota inceputa?'
*!* Endif
*!* If buton=1
*!* Use &loc\&nfscurt\tempo\difstoc.Dbf In 0 Exclusive Alias difstoc
*!* Else
*!* Do stoc_data In PROCEDURI.PRG
*!* Use &loc\&nfscurt\tempo\inloc In 0 Alias inloc
*!* Select *,cants+cant-cante As stocf,cants-cants As Dif,pret*0 As valdif;
*!* FROM inloc Into Table &loc\&nfscurt\tempo\difstoc.Dbf Order By denumire
*!* Endif
*!* Do sterge
*!* buton=2
*!* PRIVATE PcNrgrupa
*!* STORE '' TO PcNrgrupa
*!* Select difstoc
*!* Do Form difinventar
*!* If buton=2
*!* IF USED('inloc')
*!* Use In inloc
*!* endif
*!* Use In difstoc
*!* Return
*!* Endif
*!* Do codare
*!* m.id_set=90101
*!* Select * From difstoc Where Dif#0 Into Table &loc\&nfscurt\tempo\aaa.Dbf
*!* *SELECT aaa
*!* Replace All cante With Dif
*!* Select iesiri
*!* Zap
*!* Append From &loc\&nfscurt\tempo\aaa.Dbf
*!* m.nnir=ALLTRIM(STR(m.NRACT))
*!* Select iesiri
*!* Replace All nnir With m.nnir,cod With m.cod,dataact With m.dataact,dataout WITH m.dataact
*!* *BROWSE
*!* *Do contabilizeaza_ana With m.scd,m.scc,m.ascd,m.ascc,m.suma
*!* IF USED('actactan')
*!* USE IN actactan
*!* ENDIF
*!* SELECT ACT
*!* COPY STRUCTURE TO &loc\&nfscurt\tempo\actactan WITH CDX
*!* USE &loc\&nfscurt\tempo\actactan IN 0 SHARED ALIAS ACTACTAN
*!* SELECT ACTACTAN
*!* APPEND BLANK
*!* GATHER MEMVAR
*!* DO FORM verificare
*!* IF buton = 1
*!* SCRIE_IN_FISIERE('BON')
*!* ENDIF
*!* Use In difstoc
*!* Use In aaa
*!* IF USED('inloc')
*!* Use In inloc
*!* ENDIF
*!* IF USED('actactan')
*!* USE IN actactan
*!* ENDIF
ENDPROC && BAR_2_OF_Shortcut_FB2P
PROCEDURE BAR_3_OF_Shortcut_FB2P
DO nota_inventar WITH .T. IN ointroduceri.prg
ENDPROC && BAR_3_OF_Shortcut_FB2P
*</Procedures>

407
meniuri/list2.mn2 Normal file
View File

@@ -0,0 +1,407 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="list2.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 "N.I.R.-uri"
ON BAR 1 OF Shortcut ACTIVATE POPUP NIRuri
*----------------------------------
DEFINE POPUP NIRuri SHORTCUT RELATIVE
DEFINE BAR 1 OF NIRuri PROMPT "\<NIR de la numar la numar"
ON SELECTION BAR 1 OF NIRuri DO BAR_1_OF_NIRuri_FB2P
DEFINE BAR 2 OF NIRuri PROMPT "NIR-uri \<pe Gestiuni"
ON SELECTION BAR 2 OF NIRuri DO BAR_2_OF_NIRuri_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "\-"
ON BAR 2 OF Shortcut ACTIVATE POPUP _1790wd1yu
*----------------------------------
DEFINE POPUP _1790wd1yu SHORTCUT RELATIVE
DEFINE BAR 3 OF Shortcut PROMPT "Bonuri"
ON BAR 3 OF Shortcut ACTIVATE POPUP _1790wcrcu
*----------------------------------
DEFINE POPUP _1790wcrcu SHORTCUT RELATIVE
DEFINE BAR 1 OF _1790wcrcu PROMPT "\<De la numar la numar"
ON SELECTION BAR 1 OF _1790wcrcu DO BAR_1_OF__1790wcrcu_FB2P
DEFINE BAR 2 OF _1790wcrcu PROMPT "Pe comenzi"
ON SELECTION BAR 2 OF _1790wcrcu DO BAR_2_OF__1790wcrcu_FB2P
DEFINE BAR 3 OF _1790wcrcu PROMPT "Pe gestiuni"
ON SELECTION BAR 3 OF _1790wcrcu DO BAR_3_OF__1790wcrcu_FB2P
DEFINE BAR 4 OF Shortcut PROMPT "Casare obiecte noi"
ON BAR 4 OF Shortcut ACTIVATE POPUP Casareobie
*----------------------------------
DEFINE POPUP Casareobie SHORTCUT RELATIVE
DEFINE BAR 1 OF Casareobie PROMPT "\<De la numar la numar"
ON SELECTION BAR 1 OF Casareobie DO BAR_1_OF_Casareobie_FB2P
DEFINE BAR 5 OF Shortcut PROMPT "Retur"
ON SELECTION BAR 5 OF Shortcut DO BAR_5_OF_Shortcut_FB2P
DEFINE BAR 6 OF Shortcut PROMPT "Transferuri"
ON BAR 6 OF Shortcut ACTIVATE POPUP _13c0v6fki
*----------------------------------
DEFINE POPUP _13c0v6fki SHORTCUT RELATIVE
DEFINE BAR 1 OF _13c0v6fki PROMPT "\<Catre o gestiune la pret de achizitie"
ON SELECTION BAR 1 OF _13c0v6fki DO BAR_1_OF__13c0v6fki_FB2P
DEFINE BAR 2 OF _13c0v6fki PROMPT "\<Catre o gestiune la pret de vanzare"
ON SELECTION BAR 2 OF _13c0v6fki DO BAR_2_OF__13c0v6fki_FB2P
DEFINE BAR 3 OF _13c0v6fki PROMPT "\-"
ON BAR 3 OF _13c0v6fki ACTIVATE POPUP _5z60klg1g
*----------------------------------
DEFINE POPUP _5z60klg1g SHORTCUT RELATIVE
DEFINE BAR 4 OF _13c0v6fki PROMPT "Transfer obiecte inventar in folosinta dupa numar"
ON SELECTION BAR 4 OF _13c0v6fki DO BAR_4_OF__13c0v6fki_FB2P
DEFINE BAR 5 OF _13c0v6fki PROMPT "Transfer obiecte inventar in folosinta dupa numar - durata ramasa"
ON SELECTION BAR 5 OF _13c0v6fki DO BAR_5_OF__13c0v6fki_FB2P
DEFINE BAR 7 OF Shortcut PROMPT "\-"
ON SELECTION BAR 7 OF Shortcut
DEFINE BAR 8 OF Shortcut PROMPT "Stocuri"
ON SELECTION BAR 8 OF Shortcut DO BAR_8_OF_Shortcut_FB2P
DEFINE BAR 9 OF Shortcut PROMPT "\-"
ON BAR 9 OF Shortcut ACTIVATE POPUP _5z60kpwf5
*----------------------------------
DEFINE POPUP _5z60kpwf5 SHORTCUT RELATIVE
DEFINE BAR 10 OF Shortcut PROMPT "Bon dare in folosinta ob. inv."
ON SELECTION BAR 10 OF Shortcut DO BAR_10_OF_Shortcut_FB2P
DEFINE BAR 11 OF Shortcut PROMPT "Casare ob. inv. din folosinta"
ON SELECTION BAR 11 OF Shortcut DO BAR_11_OF_Shortcut_FB2P
DEFINE BAR 12 OF Shortcut PROMPT "Iesire ob. inv. din folosinta din gestiune"
ON SELECTION BAR 12 OF Shortcut DO BAR_12_OF_Shortcut_FB2P
DEFINE BAR 13 OF Shortcut PROMPT "\-"
ON BAR 13 OF Shortcut ACTIVATE POPUP _5z60kxb6d
*----------------------------------
DEFINE POPUP _5z60kxb6d SHORTCUT RELATIVE
DEFINE BAR 14 OF Shortcut PROMPT "Fisa de \<magazie"
ON BAR 14 OF Shortcut ACTIVATE POPUP _5z60kp6dv
*----------------------------------
DEFINE POPUP _5z60kp6dv SHORTCUT RELATIVE
DEFINE BAR 1 OF _5z60kp6dv PROMPT "Listare"
ON SELECTION BAR 1 OF _5z60kp6dv DO fisa_ob_inventar_gest WITH gnTipGest, .F. IN orapoarte.prg
DEFINE BAR 2 OF _5z60kp6dv PROMPT "Excel"
ON SELECTION BAR 2 OF _5z60kp6dv DO fisa_ob_inventar_gest WITH gnTipGest, .T. IN orapoarte.prg
DEFINE BAR 15 OF Shortcut PROMPT "Fisa de evidenta a \<ob. inv. in folosinta"
ON BAR 15 OF Shortcut ACTIVATE POPUP _5z60kp9jl
*----------------------------------
DEFINE POPUP _5z60kp9jl SHORTCUT RELATIVE
DEFINE BAR 1 OF _5z60kp9jl PROMPT "Rulaje"
ON BAR 1 OF _5z60kp9jl ACTIVATE POPUP NewItem
*----------------------------------
DEFINE POPUP NewItem SHORTCUT RELATIVE
DEFINE BAR 1 OF NewItem PROMPT "Listare"
ON SELECTION BAR 1 OF NewItem DO fisa_ob_inventar_resp WITH .F. IN orapoarte.prg
DEFINE BAR 2 OF NewItem PROMPT "Excel"
ON SELECTION BAR 2 OF NewItem DO fisa_ob_inventar_resp WITH .T. IN orapoarte.prg
DEFINE BAR 2 OF _5z60kp9jl PROMPT "Cantitati cumulate"
ON BAR 2 OF _5z60kp9jl ACTIVATE POPUP _5z60ks57s
*----------------------------------
DEFINE POPUP _5z60ks57s SHORTCUT RELATIVE
DEFINE BAR 1 OF _5z60ks57s PROMPT "Listare"
ON SELECTION BAR 1 OF _5z60ks57s DO fisa_ob_inventar_resp_stoc WITH .F. IN orapoarte.prg
DEFINE BAR 2 OF _5z60ks57s PROMPT "Excel"
ON SELECTION BAR 2 OF _5z60ks57s DO fisa_ob_inventar_resp_stoc WITH .T. IN orapoarte.prg
DEFINE BAR 16 OF Shortcut PROMPT "Fisa de lichidare (Echipament in evidenta)"
ON SELECTION BAR 16 OF Shortcut DO fisa_lichidare && IN oproceduri_obinv.prg
DEFINE BAR 17 OF Shortcut PROMPT "Fisa de lichidare"
ON BAR 17 OF Shortcut ACTIVATE POPUP _5z60kpgtb
*----------------------------------
DEFINE POPUP _5z60kpgtb SHORTCUT RELATIVE
DEFINE BAR 1 OF _5z60kpgtb PROMPT "Fisa echipament uzat"
ON SELECTION BAR 1 OF _5z60kpgtb DO fisa_echip_uzat_pred_imputat WITH 1 && IN oproceduri_obinv.prg
DEFINE BAR 2 OF _5z60kpgtb PROMPT "Fisa echipament predat"
ON SELECTION BAR 2 OF _5z60kpgtb DO fisa_echip_uzat_pred_imputat WITH 2 && IN oproceduri_obinv.prg
DEFINE BAR 3 OF _5z60kpgtb PROMPT "Fisa echipament imputat"
ON SELECTION BAR 3 OF _5z60kpgtb DO fisa_echip_uzat_pred_imputat WITH 3 && IN oproceduri_obinv.prg
DEFINE BAR 18 OF Shortcut PROMPT "\-"
ON BAR 18 OF Shortcut ACTIVATE POPUP _5z60kxb6e
*----------------------------------
DEFINE POPUP _5z60kxb6e SHORTCUT RELATIVE
DEFINE BAR 19 OF Shortcut PROMPT "Necesar echipamente"
ON SELECTION BAR 19 OF Shortcut DO necesar_echipamente IN orapoarte.prg
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_NIRuri_FB2P
*!* 13.01.2015
*!* PRIVATE pnNr
*!* STORE 0 TO pnNr
*!* DO FORM frm_cere_text WITH 'Numarul NIR-ului','pnNr','Numarul NIR-ului' TO lnNr
*!* IF gnButon = 1
*!* lnTip = gnTipGest
*!* DO listare_nir WITH pnNr, lnTip
*!* ENDIF
PRIVATE pnNr1, pnNr2
LOCAL lnTip, lnNr1, lnNr2
pnNr1 = 0
pnNr2 = 0
lnTip = gnTipGest
DO FORM frm_cere_text WITH 'Numar NIR 1','pnNr1','Numar NIR 1' TO lnNr1
IF gnButon = 1
pnNr2 = m.pnNr1
DO FORM frm_cere_text WITH 'Numar NIR 2','pnNr2','Numar NIR 2' TO lnNr2
*!* DO listare_bon_tot WITH m.pnNr1, m.pnNr2, m.lnTip
DO listare_nir_tot WITH m.pnNr1, m.pnNr2, m.lnTip
ENDIF
*!* 13.01.2015 ^
ENDPROC && BAR_1_OF_NIRuri_FB2P
PROCEDURE BAR_2_OF_NIRuri_FB2P
lnTip = gnTipGest
DO list_total_NIR WITH lnTip && in oproceduri_listari.prg
ENDPROC && BAR_2_OF_NIRuri_FB2P
PROCEDURE BAR_1_OF__1790wcrcu_FB2P
PRIVATE pnNr1, pnNr2
LOCAL lnTip, lnNr1, lnNr2
pnNr1 = 0
pnNr2 = 0
lnTip = gnTipGest
DO FORM frm_cere_text WITH 'Numar BON 1','pnNr1','Numar BON 1' TO lnNr1
IF gnButon = 1
pnNr2 = m.pnNr1
DO FORM frm_cere_text WITH 'Numar BON 2','pnNr2','Numar BON 2' TO lnNr2
DO listare_bon_tot WITH m.pnNr1, m.pnNr2, m.lnTip
ENDIF
ENDPROC && BAR_1_OF__1790wcrcu_FB2P
PROCEDURE BAR_2_OF__1790wcrcu_FB2P
DO list_bon_pe_lucrare WITH gnTipGest
ENDPROC && BAR_2_OF__1790wcrcu_FB2P
PROCEDURE BAR_3_OF__1790wcrcu_FB2P
lnTip = gnTipGest
DO list_total_BON WITH lnTip && in oproceduri_listari.prg
*!* PRIVATE M.T
*!* SET SAFETY OFF
*!* do caut_alfa_cursor with "NUMEGEST","NUMEGEST","NUMELE GESTIUNII","M.NUMEGEST"
*!* SELE NUMEGEST
*!* SCAN
*!* IF NUMEGEST==M.NUMEGEST
*!* SCATTER MEMVAR
*!* EXIT
*!* ENDIF
*!* ENDSCAN
*!* M.T='BONURI'
*!* select DISTINCT rull.denumire,rull.dataact,rull.um,rull.cant,rull.cante,rull.pret,rull.gest,rull.nnir,rull.codmat,;
*!* act.nume,act.fdoc,act.nract,act.dataireg;
*!* from act,rull;
*!* where act.cod=rull.cod;
*!* into cursor ra
*!* SELE Ra
*!* SET FILTER TO GEST=M.GEST AND CANTE # 0
*!* INDEX ON str(GEST,2)+NNIR TO &loc\&nfscurt\tempo\FFF
*!* REPORT FORMAT NIRRUL2.FRX TO PRINTER PROMPT PREVIEW
*!* USE IN RA
ENDPROC && BAR_3_OF__1790wcrcu_FB2P
PROCEDURE BAR_1_OF_Casareobie_FB2P
PRIVATE pnNr1, pnNr2
LOCAL lnTip, lnNr1, lnNr2, lcListaIdSet
pnNr1 = 0
pnNr2 = 0
lcListaIdSet = '72'
lnTip = gnTipGest
DO FORM frm_cere_text WITH 'Numar BON 1','pnNr1','Numar BON 1' TO lnNr1
IF gnButon = 1
pnNr2 = m.pnNr1
DO FORM frm_cere_text WITH 'Numar BON 2','pnNr2','Numar BON 2' TO lnNr2
DO listare_bon_tot WITH m.pnNr1, m.pnNr2, m.lnTip, m.lcListaIdSet
ENDIF
ENDPROC && BAR_1_OF_Casareobie_FB2P
PROCEDURE BAR_5_OF_Shortcut_FB2P
PRIVATE pnNr
STORE 0 TO pnNr
DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de retur' TO lnNr
IF gnButon = 1
lnTip = gnTipGest
DO LISTARE_RETUR WITH pnNr, lnTip
ENDIF
*!* PUBLIC M.T
*!* public m.nract1,m.nract2
*!* store 0 to m.nract1,m.nract2
*!* Ointre=CREATEOBJECT("CAUTintre")
*!* WITH Ointre
*!* .CAPTION="Numarul actului"
*!* .label1.caption="Nr.retur:"
*!* .label2.visible=.f.
*!* .text1.controlsource="m.nract1"
*!* .text2.visible=.f.
*!* endwith
*!* ointre.show(1)
*!*
ENDPROC && BAR_5_OF_Shortcut_FB2P
PROCEDURE BAR_1_OF__13c0v6fki_FB2P
PRIVATE pnNr
STORE 0 TO pnNr
DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de transfer' TO lnNr
IF gnButon = 1
lnTip = gnTipGest
DO LISTARE_TRANSFER WITH pnNr, lnTip
ENDIF
*!* store 0 to m.nract1
*!* Ointre=CREATEOBJECT("CAUTintre")
*!* WITH Ointre
*!* .CAPTION="Numarul notei de transfer"
*!* .label1.caption="Nr. nota:"
*!* .label2.visible=.f.
*!* .text1.controlsource="m.nract1"
*!* .text2.visible=.f.
*!* endwith
*!* ointre.show(1)
*!* DO LIST_TRANSFER WITH M.NRACT1,17
ENDPROC && BAR_1_OF__13c0v6fki_FB2P
PROCEDURE BAR_2_OF__13c0v6fki_FB2P
PRIVATE pnNr
STORE 0 TO pnNr
DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de transfer' TO lnNr
IF gnButon = 1
lnTip = 6
DO LISTARE_TRANSFER WITH pnNr, lnTip
ENDIF
*!* store 0 to m.nract1
*!* Ointre=CREATEOBJECT("CAUTintre")
*!* WITH Ointre
*!* .CAPTION="Numarul notei de transfer"
*!* .label1.caption="Nr. nota:"
*!* .label2.visible=.f.
*!* .text1.controlsource="m.nract1"
*!* .text2.visible=.f.
*!* endwith
*!* ointre.show(1)
*!* DO LIST_TRANSFER WITH M.NRACT1,18
ENDPROC && BAR_2_OF__13c0v6fki_FB2P
PROCEDURE BAR_4_OF__13c0v6fki_FB2P
PRIVATE pnNr
STORE 0 TO pnNr
DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de transfer' TO lnNr
IF gnButon = 1
lnTip = gnTipGest
DO LISTARE_TRANSFER WITH pnNr, lnTip, 'VRUL_OBINV'
ENDIF
ENDPROC && BAR_4_OF__13c0v6fki_FB2P
PROCEDURE BAR_5_OF__13c0v6fki_FB2P
PRIVATE pnNr
STORE 0 TO pnNr
DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de transfer' TO lnNr
IF gnButon = 1
lnTip = gnTipGest
DO LISTARE_TRANSFER WITH pnNr, 10, 'VRUL_OBINV'
ENDIF
ENDPROC && BAR_5_OF__13c0v6fki_FB2P
PROCEDURE BAR_8_OF_Shortcut_FB2P
ostoc=CREATEOBJECT('frm_raport_stoc')
ostoc.show(1)
ENDPROC && BAR_8_OF_Shortcut_FB2P
PROCEDURE BAR_10_OF_Shortcut_FB2P
PRIVATE pnNr1, pnNr2
LOCAL lnTip, lnNr1, lnNr2
pnNr1 = 0
pnNr2 = 0
lnTip = gnTipGest
DO FORM frm_cere_text WITH 'Numar BON 1','pnNr1','Numar BON 1' TO lnNr1
IF gnButon = 1
pnNr2 = m.pnNr1
DO FORM frm_cere_text WITH 'Numar BON 2','pnNr2','Numar BON 2' TO lnNr2
DO listare_bon_tot WITH m.pnNr1, m.pnNr2, m.lnTip
ENDIF
ENDPROC && BAR_10_OF_Shortcut_FB2P
PROCEDURE BAR_11_OF_Shortcut_FB2P
PRIVATE pnNr
STORE 0 TO pnNr
DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de casare' TO lnNr
IF gnButon = 1
DO listare_casare WITH pnNr
ENDIF
ENDPROC && BAR_11_OF_Shortcut_FB2P
PROCEDURE BAR_12_OF_Shortcut_FB2P
PRIVATE pnNr
STORE 0 TO pnNr
DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei' TO lnNr
IF gnButon = 1
DO listare_casare WITH pnNr, 274
ENDIF
ENDPROC && BAR_12_OF_Shortcut_FB2P
*</Procedures>

194
meniuri/list2_obinvfol.mn2 Normal file
View File

@@ -0,0 +1,194 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="list2_obinvfol.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 "Transferuri"
ON BAR 1 OF Shortcut ACTIVATE POPUP _13c0v6fki
*----------------------------------
DEFINE POPUP _13c0v6fki SHORTCUT RELATIVE
DEFINE BAR 1 OF _13c0v6fki PROMPT "Transfer obiecte inventar in folosinta dupa numar"
ON SELECTION BAR 1 OF _13c0v6fki DO BAR_1_OF__13c0v6fki_FB2P
DEFINE BAR 2 OF _13c0v6fki PROMPT "Transfer obiecte inventar in folosinta dupa numar - durata ramasa"
ON SELECTION BAR 2 OF _13c0v6fki DO BAR_2_OF__13c0v6fki_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "\-"
ON SELECTION BAR 2 OF Shortcut
DEFINE BAR 3 OF Shortcut PROMPT "Casare din folosinta"
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
DEFINE BAR 4 OF Shortcut PROMPT "\-"
ON BAR 4 OF Shortcut ACTIVATE POPUP _34v0qkf04
*----------------------------------
DEFINE POPUP _34v0qkf04 SHORTCUT RELATIVE
DEFINE BAR 5 OF Shortcut PROMPT "Fisa de \<magazie"
ON BAR 5 OF Shortcut ACTIVATE POPUP Fisademaga
*----------------------------------
DEFINE POPUP Fisademaga SHORTCUT RELATIVE
DEFINE BAR 1 OF Fisademaga PROMPT "Listare"
ON SELECTION BAR 1 OF Fisademaga DO BAR_1_OF_Fisademaga_FB2P
DEFINE BAR 2 OF Fisademaga PROMPT "Excel"
ON SELECTION BAR 2 OF Fisademaga DO BAR_2_OF_Fisademaga_FB2P
DEFINE BAR 6 OF Shortcut PROMPT "Fisa de evidenta a \<ob. inv. in folosinta"
ON BAR 6 OF Shortcut ACTIVATE POPUP Fisadeevid
*----------------------------------
DEFINE POPUP Fisadeevid SHORTCUT RELATIVE
DEFINE BAR 1 OF Fisadeevid PROMPT "Rulaje"
ON BAR 1 OF Fisadeevid ACTIVATE POPUP Rulaje
*----------------------------------
DEFINE POPUP Rulaje SHORTCUT RELATIVE
DEFINE BAR 1 OF Rulaje PROMPT "Listare"
ON SELECTION BAR 1 OF Rulaje DO BAR_1_OF_Rulaje_FB2P
DEFINE BAR 2 OF Rulaje PROMPT "Excel"
ON SELECTION BAR 2 OF Rulaje DO BAR_2_OF_Rulaje_FB2P
DEFINE BAR 2 OF Fisadeevid PROMPT "Cantitati cumulate"
ON BAR 2 OF Fisadeevid ACTIVATE POPUP Cantitatic
*----------------------------------
DEFINE POPUP Cantitatic SHORTCUT RELATIVE
DEFINE BAR 1 OF Cantitatic PROMPT "Listare"
ON SELECTION BAR 1 OF Cantitatic DO BAR_1_OF_Cantitatic_FB2P
DEFINE BAR 2 OF Cantitatic PROMPT "Excel"
ON SELECTION BAR 2 OF Cantitatic DO BAR_2_OF_Cantitatic_FB2P
DEFINE BAR 7 OF Shortcut PROMPT "\-"
ON BAR 7 OF Shortcut ACTIVATE POPUP _13c0psb52
*----------------------------------
DEFINE POPUP _13c0psb52 SHORTCUT RELATIVE
DEFINE BAR 8 OF Shortcut PROMPT "Fisa de lichidare (Echipament in evidenta)"
ON SELECTION BAR 8 OF Shortcut DO BAR_8_OF_Shortcut_FB2P
DEFINE BAR 9 OF Shortcut PROMPT "Fisa de lichidare"
ON BAR 9 OF Shortcut ACTIVATE POPUP Fisadelich
*----------------------------------
DEFINE POPUP Fisadelich SHORTCUT RELATIVE
DEFINE BAR 1 OF Fisadelich PROMPT "Fisa echipament uzat"
ON SELECTION BAR 1 OF Fisadelich DO BAR_1_OF_Fisadelich_FB2P
DEFINE BAR 2 OF Fisadelich PROMPT "Fisa echipament predat"
ON SELECTION BAR 2 OF Fisadelich DO BAR_2_OF_Fisadelich_FB2P
DEFINE BAR 3 OF Fisadelich PROMPT "Fisa echipament imputat"
ON SELECTION BAR 3 OF Fisadelich DO BAR_3_OF_Fisadelich_FB2P
DEFINE BAR 10 OF Shortcut PROMPT "\-"
ON BAR 10 OF Shortcut ACTIVATE POPUP _1xl0nz3zh
*----------------------------------
DEFINE POPUP _1xl0nz3zh SHORTCUT RELATIVE
DEFINE BAR 11 OF Shortcut PROMPT "Necesar echipamente"
ON SELECTION BAR 11 OF Shortcut DO BAR_11_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF__13c0v6fki_FB2P
PRIVATE pnNr
STORE 0 TO pnNr
DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de transfer' TO lnNr
IF gnButon = 1
lnTip = gnTipGest
DO LISTARE_TRANSFER WITH pnNr, lnTip, 'VRUL_OBINV'
ENDIF
ENDPROC && BAR_1_OF__13c0v6fki_FB2P
PROCEDURE BAR_2_OF__13c0v6fki_FB2P
PRIVATE pnNr
STORE 0 TO pnNr
DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de transfer' TO lnNr
IF gnButon = 1
lnTip = gnTipGest
DO LISTARE_TRANSFER WITH pnNr, 10, 'VRUL_OBINV'
ENDIF
ENDPROC && BAR_2_OF__13c0v6fki_FB2P
PROCEDURE BAR_3_OF_Shortcut_FB2P
PRIVATE pnNr
STORE 0 TO pnNr
DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de casare' TO lnNr
IF gnButon = 1
DO listare_casare WITH pnNr
ENDIF
ENDPROC && BAR_3_OF_Shortcut_FB2P
PROCEDURE BAR_1_OF_Fisademaga_FB2P
LOCAL llExcel
llExcel = .F.
DO fisa_ob_inventar_gest WITH gnTipGest, llExcel IN orapoarte.prg
ENDPROC && BAR_1_OF_Fisademaga_FB2P
PROCEDURE BAR_2_OF_Fisademaga_FB2P
LOCAL llExcel
llExcel = .T.
DO fisa_ob_inventar_gest WITH gnTipGest, llExcel IN orapoarte.prg
ENDPROC && BAR_2_OF_Fisademaga_FB2P
PROCEDURE BAR_1_OF_Rulaje_FB2P
LOCAL llExcel
llExcel = .F.
DO fisa_ob_inventar_resp WITH llExcel IN orapoarte.prg
ENDPROC && BAR_1_OF_Rulaje_FB2P
PROCEDURE BAR_2_OF_Rulaje_FB2P
LOCAL llExcel
llExcel = .T.
DO fisa_ob_inventar_resp WITH llExcel IN orapoarte.prg
ENDPROC && BAR_2_OF_Rulaje_FB2P
PROCEDURE BAR_1_OF_Cantitatic_FB2P
LOCAL llExcel
llExcel = .F.
DO fisa_ob_inventar_resp_stoc WITH llExcel IN orapoarte.prg
ENDPROC && BAR_1_OF_Cantitatic_FB2P
PROCEDURE BAR_2_OF_Cantitatic_FB2P
LOCAL llExcel
llExcel = .T.
DO fisa_ob_inventar_resp_stoc WITH llExcel IN orapoarte.prg
ENDPROC && BAR_2_OF_Cantitatic_FB2P
PROCEDURE BAR_8_OF_Shortcut_FB2P
DO fisa_lichidare && IN oproceduri_obinv.prg
ENDPROC && BAR_8_OF_Shortcut_FB2P
PROCEDURE BAR_1_OF_Fisadelich_FB2P
DO fisa_echip_uzat_pred_imputat WITH 1 && IN oproceduri_obinv.prg
ENDPROC && BAR_1_OF_Fisadelich_FB2P
PROCEDURE BAR_2_OF_Fisadelich_FB2P
DO fisa_echip_uzat_pred_imputat WITH 2 && IN oproceduri_obinv.prg
ENDPROC && BAR_2_OF_Fisadelich_FB2P
PROCEDURE BAR_3_OF_Fisadelich_FB2P
DO fisa_echip_uzat_pred_imputat WITH 3 && IN oproceduri_obinv.prg
ENDPROC && BAR_3_OF_Fisadelich_FB2P
PROCEDURE BAR_11_OF_Shortcut_FB2P
DO necesar_echipamente IN orapoarte.prg
ENDPROC && BAR_11_OF_Shortcut_FB2P
*</Procedures>

32
meniuri/rap_listfactav_centr.mn2 Normal file
View File

@@ -0,0 +1,32 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="rap_listfactav_centr.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 "Centralizator documente"
ON SELECTION BAR 1 OF Shortcut do rap_factav_doc in oproceduri_rapoarte_fact.prg
DEFINE BAR 2 OF Shortcut PROMPT "Centralizator documente grupate"
ON SELECTION BAR 2 OF Shortcut do rap_factav_grupate_doc in oproceduri_rapoarte_fact.prg
DEFINE BAR 3 OF Shortcut PROMPT "Centralizator articole"
ON SELECTION BAR 3 OF Shortcut do rap_factav_art in oproceduri_rapoarte_fact.prg
DEFINE BAR 4 OF Shortcut PROMPT "Centralizator transferuri articole pe gestiuni"
ON SELECTION BAR 4 OF Shortcut do rap_transf_art in oproceduri_rapoarte_fact.prg
DEFINE BAR 5 OF Shortcut PROMPT "\-"
ON BAR 5 OF Shortcut ACTIVATE POPUP _3d60u211t
*----------------------------------
DEFINE POPUP _3d60u211t SHORTCUT RELATIVE
DEFINE BAR 6 OF Shortcut PROMPT "Borderou trimiteri recomandate cu AR"
ON SELECTION BAR 6 OF Shortcut do rap_borderou_ar in oproceduri_rapoarte_fact.prg
ACTIVATE POPUP Shortcut
*</MenuCode>

35
meniuri/transfer2.mn2 Normal file
View File

@@ -0,0 +1,35 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="transfer2.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 "Catre o gestiune la pret de \<achizitie"
ON SELECTION BAR 1 OF Shortcut lans(74)
DEFINE BAR 2 OF Shortcut PROMPT "Catre o gestiune la pret de \<vanzare"
ON SELECTION BAR 2 OF Shortcut lans(75)
DEFINE BAR 3 OF Shortcut PROMPT "\-"
ON BAR 3 OF Shortcut ACTIVATE POPUP _5z60kfz7l
*----------------------------------
DEFINE POPUP _5z60kfz7l SHORTCUT RELATIVE
DEFINE BAR 4 OF Shortcut PROMPT "Transfer ob. inv. in folosinta intre persoane"
ON SELECTION BAR 4 OF Shortcut lans(89)
DEFINE BAR 5 OF Shortcut PROMPT "Transfer intre magazii ob. inv. in folosinta"
ON SELECTION BAR 5 OF Shortcut lans(212)
DEFINE BAR 6 OF Shortcut PROMPT "Transfer din magazie ob. inv. in folosinta catre un responsabil"
ON SELECTION BAR 6 OF Shortcut lans(210)
DEFINE BAR 7 OF Shortcut PROMPT "Transfer de pe un responsabil catre o magazie ob. inv. in folosinta"
ON SELECTION BAR 7 OF Shortcut lans(211)
ACTIVATE POPUP Shortcut
*</MenuCode>

29
meniuri/transfer2_obinvfol.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="transfer2_obinvfol.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 "Transfer intre persoane"
ON SELECTION BAR 1 OF Shortcut lans(89)
DEFINE BAR 2 OF Shortcut PROMPT "\-"
ON BAR 2 OF Shortcut ACTIVATE POPUP _1rf0xykoe
*----------------------------------
DEFINE POPUP _1rf0xykoe SHORTCUT RELATIVE
DEFINE BAR 3 OF Shortcut PROMPT "Transfer intre magazii ob. inv. in folosinta"
ON SELECTION BAR 3 OF Shortcut lans(212)
DEFINE BAR 4 OF Shortcut PROMPT "Transfer din magazie ob. inv. in folosinta catre un responsabil"
ON SELECTION BAR 4 OF Shortcut lans(210)
DEFINE BAR 5 OF Shortcut PROMPT "Transfer de pe un responsabil catre o magazie ob. inv. in folosinta"
ON SELECTION BAR 5 OF Shortcut lans(211)
ACTIVATE POPUP Shortcut
*</MenuCode>