romfast/roacont
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
ea977c7bfc14a6125a897b546145f20186f6b888
roacont/Meniuri/cont2000_.mn2

1757 lines
44 KiB
Plaintext
Raw Blame History

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="cont2000_.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 "\Optiuni sistem" ;
SKIP FOR m.nivel>1 ;
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 "\Reasignare" ;
SKIP FOR m.nivel#0
ON SELECTION BAR 2 OF Optiunisis DO BAR_2_OF_Optiunisis_FB2P
DEFINE BAR 3 OF Optiunisis PROMPT "\-"
ON BAR 3 OF Optiunisis ACTIVATE POPUP _01p0vy9yv
*----------------------------------
DEFINE POPUP _01p0vy9yv MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 4 OF Optiunisis PROMPT "\Culori"
ON SELECTION BAR 4 OF Optiunisis DO BAR_4_OF_Optiunisis_FB2P
DEFINE BAR 2 OF Utile PROMPT "\-"
ON BAR 2 OF Utile ACTIVATE POPUP _0jl0u5xe0
*----------------------------------
DEFINE POPUP _0jl0u5xe0 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 3 OF Utile PROMPT "\Configurare"
ON SELECTION BAR 3 OF Utile DO BAR_3_OF_Utile_FB2P
DEFINE BAR 4 OF Utile PROMPT "\Administrare"
ON SELECTION BAR 4 OF Utile DO BAR_4_OF_Utile_FB2P
DEFINE BAR 5 OF Utile PROMPT "\Reindexare"
ON BAR 5 OF Utile ACTIVATE POPUP Reindexare
*----------------------------------
DEFINE POPUP Reindexare MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Reindexare PROMPT "\<Toate fisierele"
ON SELECTION BAR 1 OF Reindexare DO BAR_1_OF_Reindexare_FB2P
DEFINE BAR 2 OF Reindexare PROMPT "\<Fisiere locale"
ON SELECTION BAR 2 OF Reindexare DO BAR_2_OF_Reindexare_FB2P
DEFINE BAR 6 OF Utile PROMPT "\-"
ON BAR 6 OF Utile ACTIVATE POPUP _rap18gw4b
*----------------------------------
DEFINE POPUP _rap18gw4b MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 7 OF Utile PROMPT "\<Calculator" ;
MESSAGE 'Deschide un calculator.'
ON SELECTION BAR 7 OF Utile DO BAR_7_OF_Utile_FB2P
DEFINE BAR 8 OF Utile PROMPT "C\<alendar" ;
MESSAGE 'Deschide un calendar.'
ON SELECTION BAR 8 OF Utile DO BAR_8_OF_Utile_FB2P
DEFINE BAR 9 OF Utile PROMPT "\<Notepad" ;
MESSAGE 'Deschide un carnetel.'
ON SELECTION BAR 9 OF Utile DO BAR_9_OF_Utile_FB2P
DEFINE BAR 10 OF Utile PROMPT "\-"
ON BAR 10 OF Utile ACTIVATE POPUP _s9r16veuj
*----------------------------------
DEFINE POPUP _s9r16veuj MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 11 OF Utile PROMPT "\<Iesire" ;
KEY F2, "F2" ;
MESSAGE 'Iesire din program.'
ON SELECTION BAR 11 OF Utile DO BAR_11_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 BAR _med_sp200 OF Editare PROMPT "\-"
DEFINE BAR _med_slcta OF Editare PROMPT "\<Selecteaza tot" ;
KEY CTRL+A, "Ctrl+A" ;
MESSAGE 'Selecteaza tot textul din celula activa.'
DEFINE PAD _000000003 OF _msysmenu PROMPT "I\<nitializare" COLOR SCHEME 3 ;
KEY ALT+N, "ALT+N" ;
MESSAGE 'Comenzi de initializare a sesiunii de lucru.'
ON PAD _000000003 OF _msysmenu ACTIVATE POPUP Initializa
*----------------------------------
DEFINE POPUP Initializa MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Initializa PROMPT "\Intrare..." ;
MESSAGE 'Intrare in luna contabila dorita.'
ON SELECTION BAR 1 OF Initializa DO BAR_1_OF_Initializa_FB2P
DEFINE BAR 2 OF Initializa PROMPT "\Seria periodica" ;
SKIP FOR !LUNA_NEPLATITA
ON SELECTION BAR 2 OF Initializa DO BAR_2_OF_Initializa_FB2P
DEFINE BAR 3 OF Initializa PROMPT "\-"
ON BAR 3 OF Initializa ACTIVATE POPUP _s89079igs
*----------------------------------
DEFINE POPUP _s89079igs MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 4 OF Initializa PROMPT "\<Deschidere de luna noua" ;
SKIP FOR glLuna_neplatita OR !glUltimaLuna or m.nivel>1 ;
MESSAGE 'Inceperea unei noi luni contabile.'
ON SELECTION BAR 4 OF Initializa DO BAR_4_OF_Initializa_FB2P
DEFINE BAR 5 OF Initializa PROMPT "\<Redeschidere de luna" ;
SKIP FOR glLunaInchisa or m.nivel>1 ;
MESSAGE 'Actualizarea cu date modificate din luna precedenta, aparute ulterior deschiderii lunii contabile curente.'
ON SELECTION BAR 5 OF Initializa DO BAR_5_OF_Initializa_FB2P
DEFINE BAR 6 OF Initializa PROMPT "\Blocare de luna" ;
SKIP FOR m.nivel>1 ;
MESSAGE 'Inchidere de luna.'
ON BAR 6 OF Initializa ACTIVATE POPUP Blocaredel
*----------------------------------
DEFINE POPUP Blocaredel MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Blocaredel PROMPT "\<Blocare de luna"
ON SELECTION BAR 1 OF Blocaredel DO BAR_1_OF_Blocaredel_FB2P
DEFINE BAR 2 OF Blocaredel PROMPT "\<Situatia lunilor blocate"
ON SELECTION BAR 2 OF Blocaredel DO BAR_2_OF_Blocaredel_FB2P
DEFINE BAR 7 OF Initializa PROMPT "\-"
ON BAR 7 OF Initializa ACTIVATE POPUP _s3n16gukq
*----------------------------------
DEFINE POPUP _s3n16gukq MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 8 OF Initializa PROMPT "\Datele firmei" ;
SKIP FOR m.nivel>3
ON SELECTION BAR 8 OF Initializa DO BAR_8_OF_Initializa_FB2P
DEFINE BAR 9 OF Initializa PROMPT "\Firma noua" ;
MESSAGE 'Deschiderea unei firme noi.'
ON BAR 9 OF Initializa ACTIVATE POPUP Firmanoua
*----------------------------------
DEFINE POPUP Firmanoua MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Firmanoua PROMPT "\<Deschidere de firma" ;
SKIP FOR luna_neplatita OR !ultima_luna
ON SELECTION BAR 1 OF Firmanoua DO BAR_1_OF_Firmanoua_FB2P
DEFINE BAR 2 OF Firmanoua PROMPT "\-"
ON BAR 2 OF Firmanoua ACTIVATE POPUP _0980yqnzq
*----------------------------------
DEFINE POPUP _0980yqnzq MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 3 OF Firmanoua PROMPT "\<Preluare de date" ;
SKIP FOR luna_neplatita
ON BAR 3 OF Firmanoua ACTIVATE POPUP Preluarede
*----------------------------------
DEFINE POPUP Preluarede MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Preluarede PROMPT "Situatii \<analitice"
ON BAR 1 OF Preluarede ACTIVATE POPUP _0980v14qn
*----------------------------------
DEFINE POPUP _0980v14qn MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _0980v14qn PROMPT "\<Furnizori"
ON SELECTION BAR 1 OF _0980v14qn DO BAR_1_OF__0980v14qn_FB2P
DEFINE BAR 2 OF _0980v14qn PROMPT "\<Clienti"
ON SELECTION BAR 2 OF _0980v14qn DO BAR_2_OF__0980v14qn_FB2P
DEFINE BAR 3 OF _0980v14qn PROMPT "Cr\<editori"
ON SELECTION BAR 3 OF _0980v14qn DO BAR_3_OF__0980v14qn_FB2P
DEFINE BAR 4 OF _0980v14qn PROMPT "\<Debitori"
ON SELECTION BAR 4 OF _0980v14qn DO BAR_4_OF__0980v14qn_FB2P
DEFINE BAR 5 OF _0980v14qn PROMPT "\<Achizitori"
ON SELECTION BAR 5 OF _0980v14qn DO BAR_5_OF__0980v14qn_FB2P
DEFINE BAR 6 OF _0980v14qn PROMPT "Act\<ionari"
ON SELECTION BAR 6 OF _0980v14qn DO BAR_6_OF__0980v14qn_FB2P
DEFINE BAR 2 OF Preluarede PROMPT "\-"
ON BAR 2 OF Preluarede ACTIVATE POPUP _0980v1qoe
*----------------------------------
DEFINE POPUP _0980v1qoe MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 3 OF Preluarede PROMPT "\<Balanta"
ON SELECTION BAR 3 OF Preluarede DO BAR_3_OF_Preluarede_FB2P
DEFINE BAR 10 OF Initializa PROMPT "\-"
ON BAR 10 OF Initializa ACTIVATE POPUP _0y30reu0z
*----------------------------------
DEFINE POPUP _0y30reu0z MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 11 OF Initializa PROMPT "\Coeficienti lunari" ;
SKIP FOR m.nivel>1 ;
MESSAGE 'Modificarea coeficientilor: TVA, etc.'
ON SELECTION BAR 11 OF Initializa DO BAR_11_OF_Initializa_FB2P
DEFINE BAR 12 OF Initializa PROMPT "C\<onfigurare note"
ON SELECTION BAR 12 OF Initializa DO BAR_12_OF_Initializa_FB2P
DEFINE BAR 13 OF Initializa PROMPT "\-"
ON BAR 13 OF Initializa ACTIVATE POPUP _0lr0ye5vn
*----------------------------------
DEFINE POPUP _0lr0ye5vn MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 14 OF Initializa PROMPT "\<Liste nomenclatoare"
ON BAR 14 OF Initializa ACTIVATE POPUP Listenomen
*----------------------------------
DEFINE POPUP Listenomen MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Listenomen PROMPT "\<Tipuri documente"
ON SELECTION BAR 1 OF Listenomen DO BAR_1_OF_Listenomen_FB2P
DEFINE BAR 2 OF Listenomen PROMPT "\<Sectii"
ON SELECTION BAR 2 OF Listenomen DO BAR_2_OF_Listenomen_FB2P
DEFINE BAR 3 OF Listenomen PROMPT "\<Gestiuni"
ON SELECTION BAR 3 OF Listenomen DO BAR_3_OF_Listenomen_FB2P
DEFINE BAR 4 OF Listenomen PROMPT "\<Venituri/Cheltuieli"
ON SELECTION BAR 4 OF Listenomen DO BAR_4_OF_Listenomen_FB2P
DEFINE BAR 5 OF Listenomen PROMPT "\<Lucrari"
ON SELECTION BAR 5 OF Listenomen DO BAR_5_OF_Listenomen_FB2P
DEFINE BAR 6 OF Listenomen PROMPT "\<Responsabili"
ON SELECTION BAR 6 OF Listenomen DO BAR_6_OF_Listenomen_FB2P
DEFINE BAR 7 OF Listenomen PROMPT "\<Judete"
ON SELECTION BAR 7 OF Listenomen DO BAR_7_OF_Listenomen_FB2P
DEFINE BAR 8 OF Listenomen PROMPT "\<Localitati"
ON SELECTION BAR 8 OF Listenomen DO BAR_8_OF_Listenomen_FB2P
DEFINE BAR 15 OF Initializa PROMPT "\<Plan conturi"
ON SELECTION BAR 15 OF Initializa DO BAR_15_OF_Initializa_FB2P
DEFINE BAR 16 OF Initializa PROMPT "\<Entitati" ;
SKIP FOR m.nivel>0
ON SELECTION BAR 16 OF Initializa DO BAR_16_OF_Initializa_FB2P
DEFINE BAR 17 OF Initializa PROMPT "\-"
ON BAR 17 OF Initializa ACTIVATE POPUP _18y0kqcw7
*----------------------------------
DEFINE POPUP _18y0kqcw7 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 18 OF Initializa PROMPT "\<Optiuni" ;
SKIP FOR m.nivel>1
ON BAR 18 OF Initializa ACTIVATE POPUP Optiuni
*----------------------------------
DEFINE POPUP Optiuni MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Optiuni PROMPT "Optiuni \<Default"
ON SELECTION BAR 1 OF Optiuni DO BAR_1_OF_Optiuni_FB2P
DEFINE BAR 2 OF Optiuni PROMPT "Optiuni \<Firma"
ON SELECTION BAR 2 OF Optiuni DO BAR_2_OF_Optiuni_FB2P
DEFINE PAD _000000004 OF _msysmenu PROMPT "Ac\<tualizari" COLOR SCHEME 3 ;
KEY ALT+T, "ALT+T" ;
SKIP FOR luna_inchisa ;
MESSAGE 'Diverse analize'
ON PAD _000000004 OF _msysmenu ACTIVATE POPUP _1bs12qror
*----------------------------------
DEFINE POPUP _1bs12qror MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _1bs12qror PROMPT "\Verificari" ;
SKIP FOR m.nivel>1 ;
MESSAGE 'Diverse verificari'
ON SELECTION BAR 1 OF _1bs12qror DO BAR_1_OF__1bs12qror_FB2P
DEFINE BAR 2 OF _1bs12qror PROMPT "\Refaceri" ;
SKIP FOR luna_inchisa or m.nivel>1 ;
MESSAGE 'Refacerea balantei, registrelor, analiticelor, pe baza registrului jurnal'
ON SELECTION BAR 2 OF _1bs12qror DO BAR_2_OF__1bs12qror_FB2P
DEFINE BAR 3 OF _1bs12qror PROMPT "\Modificare libera" ;
SKIP FOR m.nivel#0
ON SELECTION BAR 3 OF _1bs12qror DO BAR_3_OF__1bs12qror_FB2P
DEFINE BAR 4 OF _1bs12qror PROMPT "\Initializare facturi/solduri" ;
SKIP FOR luna_inchisa or m.nivel>1
ON BAR 4 OF _1bs12qror ACTIVATE POPUP _0ln0qf60i
*----------------------------------
DEFINE POPUP _0ln0qf60i MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _0ln0qf60i PROMPT "Furnizori -> Facturi Cumparari"
ON SELECTION BAR 1 OF _0ln0qf60i DO BAR_1_OF__0ln0qf60i_FB2P
DEFINE BAR 2 OF _0ln0qf60i PROMPT "Clienti -> Facturi Vanzari"
ON SELECTION BAR 2 OF _0ln0qf60i DO BAR_2_OF__0ln0qf60i_FB2P
DEFINE BAR 3 OF _0ln0qf60i PROMPT "\-"
ON BAR 3 OF _0ln0qf60i ACTIVATE POPUP _0rb0tndj4
*----------------------------------
DEFINE POPUP _0rb0tndj4 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 4 OF _0ln0qf60i PROMPT "Facturi Cumparari->Furnizori"
ON SELECTION BAR 4 OF _0ln0qf60i DO BAR_4_OF__0ln0qf60i_FB2P
DEFINE BAR 5 OF _0ln0qf60i PROMPT "Facturi Vanzari -> Clienti"
ON SELECTION BAR 5 OF _0ln0qf60i DO BAR_5_OF__0ln0qf60i_FB2P
DEFINE BAR 5 OF _1bs12qror PROMPT "\-"
ON BAR 5 OF _1bs12qror ACTIVATE POPUP _0wt0ymzyk
*----------------------------------
DEFINE POPUP _0wt0ymzyk MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 6 OF _1bs12qror PROMPT "\Alte actualizari"
ON BAR 6 OF _1bs12qror ACTIVATE POPUP NewItem
*----------------------------------
DEFINE POPUP NewItem MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF NewItem PROMPT "Adaptarea textului in balanta cf. planului de conturi"
ON SELECTION BAR 1 OF NewItem DO BAR_1_OF_NewItem_FB2P
DEFINE BAR 2 OF NewItem PROMPT "Completarea nomenclatorului de materiale pe baza stocului"
ON SELECTION BAR 2 OF NewItem DO BAR_2_OF_NewItem_FB2P
DEFINE BAR 3 OF NewItem PROMPT "\-"
ON BAR 3 OF NewItem ACTIVATE POPUP _16a0jfcmp
*----------------------------------
DEFINE POPUP _16a0jfcmp MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 4 OF NewItem PROMPT "\Sincronizare nume - balante analitice, registru jurnal"
ON SELECTION BAR 4 OF NewItem DO BAR_4_OF_NewItem_FB2P
DEFINE BAR 5 OF NewItem PROMPT "\-"
ON BAR 5 OF NewItem ACTIVATE POPUP _1770wos9a
*----------------------------------
DEFINE POPUP _1770wos9a MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 6 OF NewItem PROMPT "Actualizare solduri facturi in valuta la 31.12.NN"
ON SELECTION BAR 6 OF NewItem do actualizare_facturi_valuta.prg
DEFINE BAR 7 OF _1bs12qror PROMPT "\-"
ON BAR 7 OF _1bs12qror ACTIVATE POPUP _0ms0u7t1l
*----------------------------------
DEFINE POPUP _0ms0u7t1l MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 8 OF _1bs12qror PROMPT "\Serii" ;
SKIP FOR m.nivel#0
ON BAR 8 OF _1bs12qror ACTIVATE POPUP Serii
*----------------------------------
DEFINE POPUP Serii MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Serii PROMPT "\<Codul" ;
SKIP FOR m.nivel#0
ON SELECTION BAR 1 OF Serii DO BAR_1_OF_Serii_FB2P
DEFINE BAR 2 OF Serii PROMPT "\<Nir" ;
SKIP FOR m.nivel#0
ON SELECTION BAR 2 OF Serii DO BAR_2_OF_Serii_FB2P
DEFINE BAR 3 OF Serii PROMPT "\<Bon" ;
SKIP FOR m.nivel#0
ON SELECTION BAR 3 OF Serii DO BAR_3_OF_Serii_FB2P
DEFINE BAR 9 OF _1bs12qror PROMPT "\-"
ON BAR 9 OF _1bs12qror ACTIVATE POPUP _s4a0z4oi2
*----------------------------------
DEFINE POPUP _s4a0z4oi2 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 10 OF _1bs12qror PROMPT "\Actualizari fisiere" ;
SKIP FOR m.nivel#0
ON BAR 10 OF _1bs12qror ACTIVATE POPUP Actualizar
*----------------------------------
DEFINE POPUP Actualizar MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Actualizar PROMPT "\<General"
ON SELECTION BAR 1 OF Actualizar DO BAR_1_OF_Actualizar_FB2P
DEFINE BAR 2 OF Actualizar PROMPT "\-"
ON BAR 2 OF Actualizar ACTIVATE POPUP _09x0pyhbo
*----------------------------------
DEFINE POPUP _09x0pyhbo MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 3 OF Actualizar PROMPT "\<Act -> Actan"
ON SELECTION BAR 3 OF Actualizar DO BAR_3_OF_Actualizar_FB2P
DEFINE BAR 4 OF Actualizar PROMPT "\<Rull -> Rul"
ON SELECTION BAR 4 OF Actualizar DO BAR_4_OF_Actualizar_FB2P
DEFINE BAR 5 OF Actualizar PROMPT "\-"
ON BAR 5 OF Actualizar ACTIVATE POPUP _07q180bx4
*----------------------------------
DEFINE POPUP _07q180bx4 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 6 OF Actualizar PROMPT "Pereche \<Cumparari"
ON SELECTION BAR 6 OF Actualizar DO BAR_6_OF_Actualizar_FB2P
DEFINE BAR 7 OF Actualizar PROMPT "Pereche \<Vanzari"
ON SELECTION BAR 7 OF Actualizar DO BAR_7_OF_Actualizar_FB2P
DEFINE BAR 8 OF Actualizar PROMPT "Pereche \<Actan -> Act"
ON SELECTION BAR 8 OF Actualizar DO BAR_8_OF_Actualizar_FB2P
DEFINE BAR 9 OF Actualizar PROMPT "\-"
ON BAR 9 OF Actualizar ACTIVATE POPUP _07q17tw62
*----------------------------------
DEFINE POPUP _07q17tw62 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 10 OF Actualizar PROMPT "\<Total cumparari"
ON SELECTION BAR 10 OF Actualizar DO BAR_10_OF_Actualizar_FB2P
DEFINE BAR 11 OF Actualizar PROMPT "T\<otal vanzari"
ON SELECTION BAR 11 OF Actualizar DO BAR_11_OF_Actualizar_FB2P
DEFINE BAR 12 OF Actualizar PROMPT "\-"
ON BAR 12 OF Actualizar ACTIVATE POPUP _09x0raa35
*----------------------------------
DEFINE POPUP _09x0raa35 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 13 OF Actualizar PROMPT "\<Neimpozabil"
ON SELECTION BAR 13 OF Actualizar DO BAR_13_OF_Actualizar_FB2P
DEFINE BAR 14 OF Actualizar PROMPT "\-"
ON BAR 14 OF Actualizar ACTIVATE POPUP _0cm0tezha
*----------------------------------
DEFINE POPUP _0cm0tezha MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 15 OF Actualizar PROMPT "\<Responsabili"
ON BAR 15 OF Actualizar ACTIVATE POPUP Responsabi
*----------------------------------
DEFINE POPUP Responsabi MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Responsabi PROMPT "\<In luna curenta"
ON SELECTION BAR 1 OF Responsabi DO BAR_1_OF_Responsabi_FB2P
DEFINE BAR 2 OF Responsabi PROMPT "\<Total"
ON SELECTION BAR 2 OF Responsabi DO BAR_2_OF_Responsabi_FB2P
DEFINE BAR 16 OF Actualizar PROMPT "\-"
ON BAR 16 OF Actualizar ACTIVATE POPUP _09x0qma69
*----------------------------------
DEFINE POPUP _09x0qma69 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 17 OF Actualizar PROMPT "\<Data scadenta"
ON SELECTION BAR 17 OF Actualizar DO BAR_17_OF_Actualizar_FB2P
DEFINE BAR 11 OF _1bs12qror PROMPT "\Actualizare dupa receptia de date" ;
SKIP FOR luna_inchisa or m.nivel>1
ON SELECTION BAR 11 OF _1bs12qror DO BAR_11_OF__1bs12qror_FB2P
DEFINE BAR 12 OF _1bs12qror PROMPT "\-"
ON BAR 12 OF _1bs12qror ACTIVATE POPUP _16w10v8x0
*----------------------------------
DEFINE POPUP _16w10v8x0 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 13 OF _1bs12qror PROMPT "\<Verificare Globala"
ON SELECTION BAR 13 OF _1bs12qror DO BAR_13_OF__1bs12qror_FB2P
DEFINE PAD _000000005 OF _msysmenu PROMPT "A\<jutor" COLOR SCHEME 3 ;
KEY ALT+J, "ALT+J" ;
MESSAGE 'Instructiuni de utilizare, informatii despre acest program.'
ON PAD _000000005 OF _msysmenu ACTIVATE POPUP Ajutor
*----------------------------------
DEFINE POPUP Ajutor MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Ajutor PROMPT "\<Planul general de conturi" ;
KEY F1, "F1" ;
MESSAGE 'Planul general de conturi'
ON SELECTION BAR 1 OF Ajutor DO BAR_1_OF_Ajutor_FB2P
DEFINE BAR 2 OF Ajutor PROMPT "\<Instructiuni de utilizare"
ON SELECTION BAR 2 OF Ajutor DO BAR_2_OF_Ajutor_FB2P
DEFINE BAR 3 OF Ajutor PROMPT "\-"
ON BAR 3 OF Ajutor ACTIVATE POPUP _0yw0umukf
*----------------------------------
DEFINE POPUP _0yw0umukf MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 4 OF Ajutor PROMPT "\<Sesizari"
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 _s23165irc
*----------------------------------
DEFINE POPUP _s23165irc MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 6 OF Ajutor PROMPT "\<Despre program..." ;
MESSAGE 'Informatii despre program'
ON SELECTION BAR 6 OF Ajutor DO BAR_6_OF_Ajutor_FB2P
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Optiunisis_FB2P
oschp=create('schimbparola')
oschp.show(1)
ENDPROC && BAR_1_OF_Optiunisis_FB2P
PROCEDURE BAR_2_OF_Optiunisis_FB2P
orp=create('parola')
orp.show(1)
if buton=3
or=create('redirect')
or.show(1)
endif
ENDPROC && BAR_2_OF_Optiunisis_FB2P
PROCEDURE BAR_4_OF_Optiunisis_FB2P
oc=crea('culori')
oc.show(1)
ENDPROC && BAR_4_OF_Optiunisis_FB2P
PROCEDURE BAR_3_OF_Utile_FB2P
OMENU=CREA('MENUg')
OMENU.SHOW()
ENDPROC && BAR_3_OF_Utile_FB2P
PROCEDURE BAR_4_OF_Utile_FB2P
orp=create('parolaMEA')
orp.show(1)
if buton=3
DO FORM fisiere
ENDIF
ENDPROC && BAR_4_OF_Utile_FB2P
PROCEDURE BAR_1_OF_Reindexare_FB2P
do reindexare.prg
ENDPROC && BAR_1_OF_Reindexare_FB2P
PROCEDURE BAR_2_OF_Reindexare_FB2P
do reindexaretempo in reindexare.prg
ENDPROC && BAR_2_OF_Reindexare_FB2P
PROCEDURE BAR_7_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_7_OF_Utile_FB2P
PROCEDURE BAR_8_OF_Utile_FB2P
*!* od=createo('diary')
*!* od.show(1)
ENDPROC && BAR_8_OF_Utile_FB2P
PROCEDURE BAR_9_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_9_OF_Utile_FB2P
PROCEDURE BAR_11_OF_Utile_FB2P
ies=.t.
DO IESIRE
ENDPROC && BAR_11_OF_Utile_FB2P
PROCEDURE BAR_1_OF_Initializa_FB2P
do form start00
ENDPROC && BAR_1_OF_Initializa_FB2P
PROCEDURE BAR_2_OF_Initializa_FB2P
osp=crea('seriaper')
osp.show(1)
ENDPROC && BAR_2_OF_Initializa_FB2P
PROCEDURE BAR_4_OF_Initializa_FB2P
DO deschidluna WITH .T. IN oredeschid.prg
ENDPROC && BAR_4_OF_Initializa_FB2P
PROCEDURE BAR_5_OF_Initializa_FB2P
DO deschidluna WITH .F. IN oredeschid.prg
ENDPROC && BAR_5_OF_Initializa_FB2P
PROCEDURE BAR_1_OF_Blocaredel_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_Blocaredel_FB2P
PROCEDURE BAR_2_OF_Blocaredel_FB2P
orp=create('parola')
orp.show(1)
if buton=3
SELECT calendar
do form inchidluni
endif
ENDPROC && BAR_2_OF_Blocaredel_FB2P
PROCEDURE BAR_8_OF_Initializa_FB2P
Local ERR
*!* IF !USED("CALEFIRMA")
*!* USE &calefirma\datean\datefirma IN 0 SHARED
*!* ENDIF
Sele datefirma
If !existacamp("datefirma","punct_luc")
Select datefirma
Use
ERR=1
On Error Do ERREIND With ERR,"Dati reindexare pe 'DATEAN'"
Use &calefirma\DATEAN\datefirma In 0 Excl
If ERR=0
Use &calefirma\DATEAN\datefirma In 0 Shared
Return
Endif
Alter Table datefirma Add Column punct_luc c(20)
Use In datefirma
Use &calefirma\DATEAN\datefirma In 0 Shared
On Error
Endif
Do Form datefirma
*use &calefirma\datean\datefirma in 0 shared again
Sele datefirma
Select * From datefirma Into Cursor FFF
If _Tally=0
Sele datefirma
Append Blank
Endif
Select datefirma
Go Top
If Flock()
Gather Memvar
Repl denumire With Alltrim(m.flung)
Repl localitate With m.localitate
Repl strada With m.strada
Repl nr With Allt(Str(m.numar))
m.denumire=Alltrim(m.flung)
Unlock
Endif
*SELECT datefirma
If !existacamp('datefirma',"capsocvar")
Use In datefirma
On Error Do a
Use &calefirma\DATEAN\datefirma In 0 Exclusive
If !Used('datefirma')
Do mesaj With "Inchideti programul pe toate calculatoarele din retea","pentru actualizarea datelor"
Quit
Else
Alter Table datefirma Add Column capsocvar N(14)
Alter Table datefirma Add Column capsocSUB N(14)
Endif
On Error
Use In datefirma
Use &calefirma\DATEAN\datefirma In 0 Shared Again
Endif
Select datefirma
Scatter Memvar
Do Form datelefirma
Select datefirma
If Flock()
Gather Memv
Endif
Unlock
If !Empty(m.punct_luc)
punct_de_lucru="Punct de lucru: "+Alltrim(m.punct_luc)
Endif
*brow title 'CTR-Y pentru linie noua / ESC pentru iesire'
*use in datefirma
ENDPROC && BAR_8_OF_Initializa_FB2P
PROCEDURE BAR_1_OF_Firmanoua_FB2P
ll2=m.nl
aa2=m.an
do form startfirma
IF buton=2
m.an=aa2
m.nl=ll2
endif
ENDPROC && BAR_1_OF_Firmanoua_FB2P
PROCEDURE BAR_1_OF__0980v14qn_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__0980v14qn_FB2P
PROCEDURE BAR_2_OF__0980v14qn_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__0980v14qn_FB2P
PROCEDURE BAR_3_OF__0980v14qn_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__0980v14qn_FB2P
PROCEDURE BAR_4_OF__0980v14qn_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__0980v14qn_FB2P
PROCEDURE BAR_5_OF__0980v14qn_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__0980v14qn_FB2P
PROCEDURE BAR_6_OF__0980v14qn_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__0980v14qn_FB2P
PROCEDURE BAR_3_OF_Preluarede_FB2P
sele bal
do form afisbalx
ENDPROC && BAR_3_OF_Preluarede_FB2P
PROCEDURE BAR_11_OF_Initializa_FB2P
oc=crea('coef')
oc.show(1)
ENDPROC && BAR_11_OF_Initializa_FB2P
PROCEDURE BAR_12_OF_Initializa_FB2P
DO configurare_note IN omeniu_initializari.prg
ENDPROC && BAR_12_OF_Initializa_FB2P
PROCEDURE BAR_1_OF_Listenomen_FB2P
DO VIZ_FDOC IN ONOMENCLATOARE.PRG
ENDPROC && BAR_1_OF_Listenomen_FB2P
PROCEDURE BAR_2_OF_Listenomen_FB2P
DO viz_sectii IN ONOMENCLATOARE.PRG
ENDPROC && BAR_2_OF_Listenomen_FB2P
PROCEDURE BAR_3_OF_Listenomen_FB2P
DO VIZ_GESTIUNI IN ONOMENCLATOARE.PRG
ENDPROC && BAR_3_OF_Listenomen_FB2P
PROCEDURE BAR_4_OF_Listenomen_FB2P
DO viz_venchel IN onomenclatoare.prg
ENDPROC && BAR_4_OF_Listenomen_FB2P
PROCEDURE BAR_5_OF_Listenomen_FB2P
DO viz_lucrari IN onomenclatoare.prg
ENDPROC && BAR_5_OF_Listenomen_FB2P
PROCEDURE BAR_6_OF_Listenomen_FB2P
DO VIZ_RESPONSABILI IN ONOMENCLATOARE.PRG
ENDPROC && BAR_6_OF_Listenomen_FB2P
PROCEDURE BAR_7_OF_Listenomen_FB2P
DO VIZ_JUDETE IN ONOMENCLATOARE.PRG
ENDPROC && BAR_7_OF_Listenomen_FB2P
PROCEDURE BAR_8_OF_Listenomen_FB2P
DO VIZ_LOCALITATI IN ONOMENCLATOARE.PRG
ENDPROC && BAR_8_OF_Listenomen_FB2P
PROCEDURE BAR_15_OF_Initializa_FB2P
DO viz_plcont IN onomenclatoare.prg
ENDPROC && BAR_15_OF_Initializa_FB2P
PROCEDURE BAR_16_OF_Initializa_FB2P
DO viz_parteneri IN onomenclatoare.prg
ENDPROC && BAR_16_OF_Initializa_FB2P
PROCEDURE BAR_1_OF_Optiuni_FB2P
DO viz_optiuni IN oinit_optiuni.prg
ENDPROC && BAR_1_OF_Optiuni_FB2P
PROCEDURE BAR_2_OF_Optiuni_FB2P
DO viz_optiuni WITH gcS IN oinit_optiuni.prg
ENDPROC && BAR_2_OF_Optiuni_FB2P
PROCEDURE BAR_1_OF__1bs12qror_FB2P
overi=crea('verif')
overi.show(1)
ENDPROC && BAR_1_OF__1bs12qror_FB2P
PROCEDURE BAR_2_OF__1bs12qror_FB2P
local l,a
l=m.nl
a=m.an
*!* orp=create('parola')
*!* orp.show(1)
*!* if buton=3
overi=crea('REF')
overi.show(1)
*!* ENDIF
set dele on
ENDPROC && BAR_2_OF__1bs12qror_FB2P
PROCEDURE BAR_3_OF__1bs12qror_FB2P
set deleted off
orp=create('parola')
orp.show(1)
if buton=3
*overi=crea('modif')
*overi.show()
do form modif
endif
set dele on
ENDPROC && BAR_3_OF__1bs12qror_FB2P
PROCEDURE BAR_1_OF__0ln0qf60i_FB2P
set deleted on
orp=create('parolamea')
orp.show(1)
if buton=3
do furn-cumplun.prg
DO MESAJ WITH 'GATA',''
endif
ENDPROC && BAR_1_OF__0ln0qf60i_FB2P
PROCEDURE BAR_2_OF__0ln0qf60i_FB2P
set deleted on
orp=create('parolamea')
orp.show(1)
if buton=3
do cli-vanzlun.prg
DO MESAJ WITH 'GATA',''
endif
ENDPROC && BAR_2_OF__0ln0qf60i_FB2P
PROCEDURE BAR_4_OF__0ln0qf60i_FB2P
set deleted on
*!* orp=create('parolamea')
*!* orp.show(1)
orp=Create('parola')
orp.Show(1)
if buton=3
do cumplun-furn.prg
DO MESAJ WITH 'GATA',''
endif
ENDPROC && BAR_4_OF__0ln0qf60i_FB2P
PROCEDURE BAR_5_OF__0ln0qf60i_FB2P
set deleted on
*!* orp=create('parolamea')
*!* orp.show(1)
orp=Create('parola')
orp.Show(1)
if buton=3
do vanzlun-clienti.prg
DO MESAJ WITH 'GATA',''
endif
ENDPROC && BAR_5_OF__0ln0qf60i_FB2P
PROCEDURE BAR_1_OF_NewItem_FB2P
Select bal
Scan
Scatter Memv
Select plcont
Locate For cimp1=m.cont
If Found()
m.denumire=cimp2
Select bal
If Flock()
Replace denumire With m.denumire
Endif
Unlock
Endif
Select bal
Endscan
Select balana
Scan
Scatter Memv
Select plcontana
Locate For cont = m.cont AND acont = m.acont
If Found()
m.denumire = denumire
Select balana
If Flock()
Replace denumire With m.denumire
Endif
Unlock
Endif
Select balana
ENDSCAN
Do mesaj With 'Operatiunea a fost executata.',''
ENDPROC && BAR_1_OF_NewItem_FB2P
PROCEDURE BAR_2_OF_NewItem_FB2P
SELECT DISTINCT denumire, scd,codmat FROM stoc INTO CURSOR ff ORDER BY denumire
SELECT DISTINCT denumire, scd,codmat FROM ff WHERE ;
denumire+scd+codmat NOT in (select DISTINCT denumire+scd+codmat FROM listast);
into CURSOR aaa
SELECT listast
IF FLOCK()
APPEND FROM DBF('aaa')
ENDIF
UNLOCK
DO mesaj WITH 'Operatiunea a fost executata',''
ENDPROC && BAR_2_OF_NewItem_FB2P
PROCEDURE BAR_4_OF_NewItem_FB2P
DO VIZ_SINCRONIZARE_NUME IN sincronizare_g.prg
ENDPROC && BAR_4_OF_NewItem_FB2P
PROCEDURE BAR_1_OF_Serii_FB2P
set deleted off
orp=create('parolamea')
orp.show(1)
if buton=3
sele cod
brow
endif
set dele on
ENDPROC && BAR_1_OF_Serii_FB2P
PROCEDURE BAR_2_OF_Serii_FB2P
set deleted off
orp=create('parolamea')
orp.show(1)
if buton=3
sele nir
brow
endif
set dele on
ENDPROC && BAR_2_OF_Serii_FB2P
PROCEDURE BAR_3_OF_Serii_FB2P
set deleted off
orp=create('parolamea')
orp.show(1)
if buton=3
sele nrbon
brow
endif
set dele on
ENDPROC && BAR_3_OF_Serii_FB2P
PROCEDURE BAR_1_OF_Actualizar_FB2P
local l,a
l=m.nl
a=m.an
orp=create('parolaMEA')
orp.show(1)
if buton=3
public semafor1
semafor1=.f.
do curatare
if semafor1
return
endif
do actualizari.prg
m.nl=l
m.an=a
do totv
endif
ENDPROC && BAR_1_OF_Actualizar_FB2P
PROCEDURE BAR_3_OF_Actualizar_FB2P
LOCAL ll,aa,d
ll=m.nl
aa=m.an
orp=CREATE('parola')
orp.SHOW(1)
IF buton=3
PUBLIC semafor1
semafor1=.F.
DO curatare
IF semafor1
RETURN
ENDIF
DO actualizactan
ENDIF
m.nl=ll
m.an=aa
DO totv
*do mesaj with 'Gata!',''
ENDPROC && BAR_3_OF_Actualizar_FB2P
PROCEDURE BAR_4_OF_Actualizar_FB2P
local ll,aa,d
ll=m.nl
aa=m.an
orp=create('parola')
orp.show(1)
if buton=3
public semafor1
semafor1=.f.
do curatare
if semafor1
return
endif
do actualizrul
endif
m.nl=ll
m.an=aa
do totv
*do mesaj with 'Gata!',''
ENDPROC && BAR_4_OF_Actualizar_FB2P
PROCEDURE BAR_6_OF_Actualizar_FB2P
orp=create('parolaMEA')
orp.show(1)
if buton=3
public semafor1
semafor1=.f.
do curatare
if semafor1
return
endif
do refper
endif
do mesaj with 'Gata!',''
ENDPROC && BAR_6_OF_Actualizar_FB2P
PROCEDURE BAR_7_OF_Actualizar_FB2P
orp=create('parolaMEA')
orp.show(1)
if buton=3
public semafor1
semafor1=.f.
do curatare
if semafor1
return
endif
do refpercli
endif
do mesaj with 'Gata!',''
ENDPROC && BAR_7_OF_Actualizar_FB2P
PROCEDURE BAR_8_OF_Actualizar_FB2P
orp=create('parolaMEA')
orp.show(1)
if buton=3
public semafor1
semafor1=.f.
do curatare
if semafor1
return
endif
do actanact
endif
do mesaj with 'Gata!',''
ENDPROC && BAR_8_OF_Actualizar_FB2P
PROCEDURE BAR_10_OF_Actualizar_FB2P
local ll,aa
ll=m.nl
aa=m.an
orp=create('parolaMEA')
orp.show(1)
if buton#3
return
endif
set safety off
public semafor1
semafor1=.f.
do curatare
if semafor1
return
endif
*do refcumpNOUan
DO REFCUMP
do mesaj with 'Total cumparari','Refacerea s-a incheiat.'
m.nl=ll
m.an=aa
do totv
ENDPROC && BAR_10_OF_Actualizar_FB2P
PROCEDURE BAR_11_OF_Actualizar_FB2P
local ll,aa
ll=m.nl
aa=m.an
orp=create('parolaMEA')
orp.show(1)
if buton#3
return
endif
set safety off
public semafor1
semafor1=.f.
do curatare
if semafor1
return
endif
do refvanzan
do mesaj with 'Total vanzari','Refacerea s-a incheiat.'
m.nl=ll
m.an=aa
do totv
ENDPROC && BAR_11_OF_Actualizar_FB2P
PROCEDURE BAR_13_OF_Actualizar_FB2P
local ll,aa
ll=m.nl
aa=m.an
orp=create('parolaMEA')
orp.show(1)
if buton#3
return
endif
public semafor1
semafor1=.f.
do curatare
if semafor1
return
endif
sele act
use
sele actan
use
do refact in actualizari.prg
do refactan in actualizari.prg
m.nl=ll
m.an=aa
do totv
ENDPROC && BAR_13_OF_Actualizar_FB2P
PROCEDURE BAR_1_OF_Responsabi_FB2P
local ll,aa
ll=m.nl
aa=m.an
orp=create('parolaMEA')
orp.show(1)
if buton#3
return
endif
public semafor1
semafor1=.f.
do curatare
if semafor1
return
endif
do refresponsl
m.nl=ll
m.an=aa
do totv
return
*________________________________
proc refresponsl
sele act
if flock()
repl all nresp with nume_2 for left(scd,1)='6' or left(scd,1)='3' and empty(nresp)
endif
unlock
sele rull
if flock()
sele act
scan for left(scd,1)='6' or left(scd,1)='3' and !empty(nresp)
scat fiel cod,nresp memv
sele rull
repl all nresp with m.nresp for cod=m.cod and empty(nresp)
sele act
endscan
endif
unlock in rull
return
ENDPROC && BAR_1_OF_Responsabi_FB2P
PROCEDURE BAR_2_OF_Responsabi_FB2P
local ll,aa
ll=m.nl
aa=m.an
orp=create('parolaMEA')
orp.show(1)
if buton#3
return
endif
public semafor1
semafor1=.f.
do curatare
if semafor1
return
endif
do refresponsan
m.nl=ll
m.an=aa
do totv
return
*________________________________
proc refresponsan
sele actan
if flock()
repl all nresp with nume_2 for left(scd,1)='6' or left(scd,1)='3' and empty(nresp)
endif
unlock
sele rul
if flock()
sele actan
scan for left(scd,1)='6' or left(scd,1)='3' and !empty(nresp)
scat fiel cod,nresp memv
sele rul
repl all nresp with m.nresp for cod=m.cod and empty(nresp)
sele actan
endscan
endif
unlock in rul
return
ENDPROC && BAR_2_OF_Responsabi_FB2P
PROCEDURE BAR_17_OF_Actualizar_FB2P
local ll,aa,d
ll=m.nl
aa=m.an
orp=create('parolaMEA')
orp.show(1)
if buton#3
return
endif
public semafor1
semafor1=.f.
do curatare
if semafor1
return
endif
sele calendar
M=RECCOUNT()+3
OP=CREA('PROGRESBAR')
op.titlu.caption='Refacere Data Scadenta'
OP.SHOW()
j=0
*_actan_________________________________________________
sele actan
do datasc
do pr with j
*_cumpan_________________________________________________
sele cumpan
do datasc
do pr with j
*_vanzan_________________________________________________
sele vanzan
do datasc
do pr with j
*_act_________________________________________________
sele act
do datasc
sele calendar
scan for !(m.nl=nl and m.an=an)
d=calefirma+'\an'+an+'\date'+nl+'\act.dbf'
sele 0
use &d alias acta
do datasc
use
do pr with j
endscan
op.release
m.an=aa
m.nl=ll
do mesaj with 'Gata!',''
return
*datasc_________________________________________________
proc datasc
REPL ALL DATASCAD WITH CTOD('30/'+STR(MONTH(DATAACT)+1)+'/'+STR(YEAR(DATAACT)) ) ;
FOR empty(datascad) and inlist(DAY(DATAACT),31,30) and !inlist(MONTH(DATAACT),12,1)
REPL ALL DATASCAD WITH CTOD(STR(DAY(DATAACT))+'/'+STR(MONTH(DATAACT)+1)+'/'+STR(YEAR(DATAACT)) ) ;
FOR empty(datascad) and !inlist(DAY(DATAACT),31,30) and !inlist(MONTH(DATAACT),12,1)
REPL ALL DATASCAD WITH CTOD('28/'+STR(MONTH(DATAACT)+1)+'/'+STR(YEAR(DATAACT)) ) ;
FOR empty(datascad) and inlist(DAY(DATAACT),28,29,30,31) and inlist(MONTH(DATAACT),1)
REPL ALL DATASCAD WITH CTOD(STR(DAY(DATAACT))+'/01/'+STR(YEAR(DATAACT)) ) ;
FOR empty(datascad) and inlist(MONTH(DATAACT),12)
return
ENDPROC && BAR_17_OF_Actualizar_FB2P
PROCEDURE BAR_11_OF__1bs12qror_FB2P
local l,a
l=m.nl
a=m.an
orp=create('parola')
orp.show(1)
if buton=3
****************************
public semafor1
semafor1=.f.
do curatare
if semafor1
return
endif
ot=createobj("textr")
ot.label2.caption="Firma: "+rtrim(M.FLUNG)+' ('+nfscurt+')'
ot.label3.caption="Se redeschide luna: "+m.nl+" "+m.an
ot.show(1)
if buton=1
DO REDESCHI2
do totv
ot=createobj("text")
ot.label2.caption="Firma: "+rtrim(M.FLUNG)+' ('+nfscurt+')'
ot.label3.caption="Redeschiderea lunii: "+m.nl+" "+m.an+" a fost efectuata."
ot.show(1)
endif
wait wind 'Se recompune baza de date: Registrul jurnal total' nowait
do actualizactan
wait wind 'Se recompune baza de date: Rulaje generale' nowait
do actualizrul
m.nl=l
m.an=a
do totv
do mesaj with 'Actualizarea s-a efectuat',''
***************************8
ENDIF
ENDPROC && BAR_11_OF__1bs12qror_FB2P
PROCEDURE BAR_13_OF__1bs12qror_FB2P
DO verificareGlobala IN overificari.prg
ENDPROC && BAR_13_OF__1bs12qror_FB2P
PROCEDURE BAR_1_OF_Ajutor_FB2P
ohelpcont=createobj('help_pltree')
ohelpcont.show(1)
ENDPROC && BAR_1_OF_Ajutor_FB2P
PROCEDURE BAR_2_OF_Ajutor_FB2P
*!* oh=crea('help_tree')
*!* oh.show(1)
LOCAL cSite
cSite = dirgen+"/manual/prezentare_cont.htm"
IF !FILE(csite)
DO mesaj WITH 'Nu este instalat manualul de utilizare !',''
RETURN
ENDIF
oBrowser=CREATEOBJECT("internetexplorer.application")
oBrowser.Navigate(cSite)
oBrowser.Visible = .T.
ENDPROC && BAR_2_OF_Ajutor_FB2P
PROCEDURE BAR_4_OF_Ajutor_FB2P
IF !DIRECTORY('&CALEFIRMA\SESIZARI')
MD &CALEFIRMA\SESIZARI
Endif
IF !FILE('&CALEFIRMA\SESIZARI\SESIZARI.DBF')
COPY FILE &DIRGEN\_ALFA\TEMPO\sesizari.* TO &CALEFIRMA\SESIZARI\SESIZARI.*
ENDIF
USE &CALEFIRMA\SESIZARI\sesizari.dbf IN 0 shared
SELECT sesizari
DO FORM edises
*DO FORM sesizare
USE IN sesizari
ENDPROC && BAR_4_OF_Ajutor_FB2P
PROCEDURE BAR_6_OF_Ajutor_FB2P
DO FORM frm_about
ENDPROC && BAR_6_OF_Ajutor_FB2P
*</Procedures>
Reference in New Issue View Git Blame Copy Permalink