1875 lines
46 KiB
Plaintext
1875 lines
46 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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 "\<Redirectionare" ;
|
|
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 "\<Administrare"
|
|
ON SELECTION BAR 3 OF Utile DO BAR_3_OF_Utile_FB2P
|
|
|
|
DEFINE BAR 4 OF Utile PROMPT "\<Reindexare"
|
|
ON BAR 4 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 5 OF Utile PROMPT "\-"
|
|
ON BAR 5 OF Utile ACTIVATE POPUP _rap18gw4b
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _rap18gw4b MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 6 OF Utile PROMPT "\<Calculator" ;
|
|
MESSAGE 'Deschide un calculator.'
|
|
ON SELECTION BAR 6 OF Utile DO BAR_6_OF_Utile_FB2P
|
|
|
|
DEFINE BAR 7 OF Utile PROMPT "C\<alendar" ;
|
|
MESSAGE 'Deschide un calendar.'
|
|
ON SELECTION BAR 7 OF Utile DO BAR_7_OF_Utile_FB2P
|
|
|
|
DEFINE BAR 8 OF Utile PROMPT "\<Notepad" ;
|
|
MESSAGE 'Deschide un carnetel.'
|
|
ON SELECTION BAR 8 OF Utile DO BAR_8_OF_Utile_FB2P
|
|
|
|
DEFINE BAR 9 OF Utile PROMPT "\-"
|
|
ON BAR 9 OF Utile ACTIVATE POPUP _s9r16veuj
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _s9r16veuj MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 10 OF Utile PROMPT "\<Iesire" ;
|
|
KEY F2, "F2" ;
|
|
MESSAGE 'Iesire din program.'
|
|
ON SELECTION BAR 10 OF Utile DO BAR_10_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 "\<Actualizare Conturi" ;
|
|
SKIP FOR m.nivel>1 ;
|
|
MESSAGE 'Introducerea, eliminarae din balanta a conturilor dorite.'
|
|
ON BAR 4 OF Initializa ACTIVATE POPUP _0vm0luviu
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0vm0luviu MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 1 OF _0vm0luviu PROMPT "Modificare conturi"
|
|
ON SELECTION BAR 1 OF _0vm0luviu DO BAR_1_OF__0vm0luviu_FB2P
|
|
|
|
DEFINE BAR 2 OF _0vm0luviu PROMPT "\-"
|
|
ON BAR 2 OF _0vm0luviu ACTIVATE POPUP _0vm0m2ez0
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0vm0m2ez0 MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 3 OF _0vm0luviu PROMPT "Plan de conturi nou"
|
|
ON SELECTION BAR 3 OF _0vm0luviu DO BAR_3_OF__0vm0luviu_FB2P
|
|
|
|
DEFINE BAR 4 OF _0vm0luviu PROMPT "Revenire la planul de conturi vechi"
|
|
ON SELECTION BAR 4 OF _0vm0luviu DO BAR_4_OF__0vm0luviu_FB2P
|
|
|
|
DEFINE BAR 5 OF Initializa PROMPT "A\<ctualizare Coeficienti" ;
|
|
SKIP FOR m.nivel>1 ;
|
|
MESSAGE 'Modificarea coeficientilor: TVA, etc.'
|
|
ON BAR 5 OF Initializa ACTIVATE POPUP _0b40qr5uc
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0b40qr5uc MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 1 OF _0b40qr5uc PROMPT "\<Coeficienti lunari"
|
|
ON SELECTION BAR 1 OF _0b40qr5uc DO BAR_1_OF__0b40qr5uc_FB2P
|
|
|
|
DEFINE BAR 2 OF _0b40qr5uc PROMPT "\<Coeficienti fluctuanti"
|
|
ON BAR 2 OF _0b40qr5uc ACTIVATE POPUP Coeficient
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Coeficient MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 1 OF Coeficient PROMPT "\<Cursul valutar"
|
|
ON SELECTION BAR 1 OF Coeficient DO BAR_1_OF_Coeficient_FB2P
|
|
|
|
DEFINE BAR 2 OF Coeficient PROMPT "\<Adaos comercial"
|
|
ON SELECTION BAR 2 OF Coeficient DO BAR_2_OF_Coeficient_FB2P
|
|
|
|
DEFINE BAR 6 OF Initializa PROMPT "\-"
|
|
ON BAR 6 OF Initializa ACTIVATE POPUP _0lr0ye5vn
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0lr0ye5vn MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 7 OF Initializa PROMPT "Generare \<Gestiuni" ;
|
|
SKIP FOR m.nivel>1
|
|
ON SELECTION BAR 7 OF Initializa DO BAR_7_OF_Initializa_FB2P
|
|
|
|
DEFINE BAR 8 OF Initializa PROMPT "Generare \<Sectii" ;
|
|
SKIP FOR m.nivel>1
|
|
ON SELECTION BAR 8 OF Initializa DO BAR_8_OF_Initializa_FB2P
|
|
|
|
DEFINE BAR 9 OF Initializa PROMPT "\<Nomenclator de materiale"
|
|
ON SELECTION BAR 9 OF Initializa DO BAR_9_OF_Initializa_FB2P
|
|
|
|
DEFINE BAR 10 OF Initializa PROMPT "\-"
|
|
ON BAR 10 OF Initializa ACTIVATE POPUP _s3n16gukq
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _s3n16gukq MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 11 OF Initializa PROMPT "\<Deschidere de luna noua" ;
|
|
SKIP FOR luna_neplatita OR !ultima_luna or m.nivel>1 ;
|
|
MESSAGE 'Inceperea unei noi luni contabile.'
|
|
ON SELECTION BAR 11 OF Initializa DO BAR_11_OF_Initializa_FB2P
|
|
|
|
DEFINE BAR 12 OF Initializa PROMPT "\<Redeschidere de luna" ;
|
|
SKIP FOR luna_inchisa or m.nivel>1 ;
|
|
MESSAGE 'Actualizarea cu date modificate din luna precedenta, aparute ulterior deschiderii lunii contabile curente.'
|
|
ON SELECTION BAR 12 OF Initializa DO BAR_12_OF_Initializa_FB2P
|
|
|
|
DEFINE BAR 13 OF Initializa PROMPT "\<Blocare de luna" ;
|
|
SKIP FOR m.nivel>1 ;
|
|
MESSAGE 'Inchidere de luna.'
|
|
ON BAR 13 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 14 OF Initializa PROMPT "\-"
|
|
ON BAR 14 OF Initializa ACTIVATE POPUP _s6j0k4tqn
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _s6j0k4tqn MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 15 OF Initializa PROMPT "\<Datele firmei" ;
|
|
SKIP FOR m.nivel>3
|
|
ON SELECTION BAR 15 OF Initializa DO BAR_15_OF_Initializa_FB2P
|
|
|
|
DEFINE BAR 16 OF Initializa PROMPT "\<Firma noua" ;
|
|
MESSAGE 'Deschiderea unei firme noi.'
|
|
ON BAR 16 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 "\-"
|
|
ON BAR 3 OF _0980v14qn ACTIVATE POPUP _0hh0qtiwf
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0hh0qtiwf MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 4 OF _0980v14qn PROMPT "Cr\<editori"
|
|
ON SELECTION BAR 4 OF _0980v14qn DO BAR_4_OF__0980v14qn_FB2P
|
|
|
|
DEFINE BAR 5 OF _0980v14qn PROMPT "\<Debitori"
|
|
ON SELECTION BAR 5 OF _0980v14qn DO BAR_5_OF__0980v14qn_FB2P
|
|
|
|
DEFINE BAR 6 OF _0980v14qn PROMPT "\<Achizitori"
|
|
ON SELECTION BAR 6 OF _0980v14qn DO BAR_6_OF__0980v14qn_FB2P
|
|
|
|
DEFINE BAR 7 OF _0980v14qn PROMPT "\<Responsabili"
|
|
ON SELECTION BAR 7 OF _0980v14qn DO BAR_7_OF__0980v14qn_FB2P
|
|
|
|
DEFINE BAR 8 OF _0980v14qn PROMPT "Act\<ionari"
|
|
ON SELECTION BAR 8 OF _0980v14qn DO BAR_8_OF__0980v14qn_FB2P
|
|
|
|
DEFINE BAR 9 OF _0980v14qn PROMPT "Acti\<vitati/Lucrari"
|
|
ON SELECTION BAR 9 OF _0980v14qn DO BAR_9_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 "\<Stocuri"
|
|
ON SELECTION BAR 3 OF Preluarede DO BAR_3_OF_Preluarede_FB2P
|
|
|
|
DEFINE BAR 4 OF Preluarede PROMPT "\-"
|
|
ON BAR 4 OF Preluarede ACTIVATE POPUP _0980v1qof
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0980v1qof MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 5 OF Preluarede PROMPT "\<Balanta"
|
|
ON SELECTION BAR 5 OF Preluarede DO BAR_5_OF_Preluarede_FB2P
|
|
|
|
DEFINE BAR 17 OF Initializa PROMPT "\-"
|
|
ON BAR 17 OF Initializa ACTIVATE POPUP _0b30u9w0u
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0b30u9w0u MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 18 OF Initializa PROMPT "\<Optiuni" ;
|
|
SKIP FOR m.nivel>1
|
|
ON SELECTION BAR 18 OF Initializa DO BAR_18_OF_Initializa_FB2P
|
|
|
|
DEFINE PAD _000000004 OF _msysmenu PROMPT "In\<chidere" COLOR SCHEME 3 ;
|
|
KEY ALT+C, "ALT+C" ;
|
|
SKIP FOR luna_inchisa or luna_neplatita
|
|
|
|
ON PAD _000000004 OF _msysmenu ACTIVATE POPUP Inchidere
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Inchidere MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 1 OF Inchidere PROMPT "\<Nota de salarii" ;
|
|
SKIP FOR m.nivel>1
|
|
ON SELECTION BAR 1 OF Inchidere DO BAR_1_OF_Inchidere_FB2P
|
|
|
|
DEFINE BAR 2 OF Inchidere PROMPT "A\<mortizare imobilizari necorporale"
|
|
ON SELECTION BAR 2 OF Inchidere DO BAR_2_OF_Inchidere_FB2P
|
|
|
|
DEFINE BAR 3 OF Inchidere PROMPT "\<Amortizare Mijloace Fixe" ;
|
|
SKIP FOR m.nivel>1
|
|
ON SELECTION BAR 3 OF Inchidere DO BAR_3_OF_Inchidere_FB2P
|
|
|
|
DEFINE BAR 4 OF Inchidere PROMPT "\<T.V.A." ;
|
|
SKIP FOR m.nivel>1
|
|
ON SELECTION BAR 4 OF Inchidere DO BAR_4_OF_Inchidere_FB2P
|
|
|
|
DEFINE BAR 5 OF Inchidere PROMPT "\<Venituri" ;
|
|
SKIP FOR m.nivel>1
|
|
ON SELECTION BAR 5 OF Inchidere DO BAR_5_OF_Inchidere_FB2P
|
|
|
|
DEFINE BAR 6 OF Inchidere PROMPT "\<Cheltuieli" ;
|
|
SKIP FOR m.nivel>1
|
|
ON SELECTION BAR 6 OF Inchidere DO BAR_6_OF_Inchidere_FB2P
|
|
|
|
DEFINE BAR 7 OF Inchidere PROMPT "Cheltuiala \<Profit" ;
|
|
SKIP FOR m.nivel>1
|
|
ON SELECTION BAR 7 OF Inchidere DO BAR_7_OF_Inchidere_FB2P
|
|
|
|
DEFINE BAR 8 OF Inchidere PROMPT "\<Marfa" ;
|
|
SKIP FOR m.nivel>1
|
|
ON SELECTION BAR 8 OF Inchidere DO BAR_8_OF_Inchidere_FB2P
|
|
|
|
DEFINE BAR 9 OF Inchidere PROMPT "\-"
|
|
ON BAR 9 OF Inchidere ACTIVATE POPUP _08g0oc8ql
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _08g0oc8ql MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 10 OF Inchidere PROMPT "\<Penalitati" ;
|
|
SKIP FOR m.nivel>1
|
|
ON BAR 10 OF Inchidere ACTIVATE POPUP Penalitati
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Penalitati MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 1 OF Penalitati PROMPT "\<TVA"
|
|
ON SELECTION BAR 1 OF Penalitati DO BAR_1_OF_Penalitati_FB2P
|
|
|
|
DEFINE BAR 2 OF Penalitati PROMPT "\Impozit pe \<profit"
|
|
ON BAR 2 OF Penalitati ACTIVATE POPUP Impozitpep
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Impozitpep MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 3 OF Penalitati PROMPT "\Impozit \<salarii"
|
|
ON BAR 3 OF Penalitati ACTIVATE POPUP Impozitsal
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Impozitsal MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE PAD _000000005 OF _msysmenu PROMPT "Ac\<tualizari" COLOR SCHEME 3 ;
|
|
KEY ALT+T, "ALT+T" ;
|
|
SKIP FOR luna_inchisa ;
|
|
MESSAGE 'Diverse analize'
|
|
|
|
ON PAD _000000005 OF _msysmenu ACTIVATE POPUP _09i15mm5f
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _09i15mm5f MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 1 OF _09i15mm5f PROMPT "\<Verificari" ;
|
|
SKIP FOR m.nivel>1 ;
|
|
MESSAGE 'Diverse verificari'
|
|
ON SELECTION BAR 1 OF _09i15mm5f DO BAR_1_OF__09i15mm5f_FB2P
|
|
|
|
DEFINE BAR 2 OF _09i15mm5f PROMPT "\<Refaceri" ;
|
|
SKIP FOR luna_inchisa or m.nivel>1 ;
|
|
MESSAGE 'Refacerea balantei, registrelor, analiticelor, pe baza registrului jurnal'
|
|
ON SELECTION BAR 2 OF _09i15mm5f DO BAR_2_OF__09i15mm5f_FB2P
|
|
|
|
DEFINE BAR 3 OF _09i15mm5f PROMPT "\<Modificare libera" ;
|
|
SKIP FOR m.nivel#0
|
|
ON SELECTION BAR 3 OF _09i15mm5f DO BAR_3_OF__09i15mm5f_FB2P
|
|
|
|
DEFINE BAR 4 OF _09i15mm5f PROMPT "\<Initializare facturi/solduri" ;
|
|
SKIP FOR luna_inchisa or m.nivel>1
|
|
ON BAR 4 OF _09i15mm5f 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 _09i15mm5f PROMPT "\-"
|
|
ON BAR 5 OF _09i15mm5f ACTIVATE POPUP _0ms0u7t1l
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0ms0u7t1l MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 6 OF _09i15mm5f PROMPT "\<Serii" ;
|
|
SKIP FOR m.nivel#0
|
|
ON BAR 6 OF _09i15mm5f 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 7 OF _09i15mm5f PROMPT "\-"
|
|
ON BAR 7 OF _09i15mm5f ACTIVATE POPUP _s4a0z4oi2
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _s4a0z4oi2 MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 8 OF _09i15mm5f PROMPT "\<Actualizari fisiere" ;
|
|
SKIP FOR m.nivel#0
|
|
ON BAR 8 OF _09i15mm5f 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 9 OF _09i15mm5f PROMPT "\<Actualizare dupa receptia de date" ;
|
|
SKIP FOR luna_inchisa or m.nivel>1
|
|
ON SELECTION BAR 9 OF _09i15mm5f DO BAR_9_OF__09i15mm5f_FB2P
|
|
|
|
DEFINE PAD _000000006 OF _msysmenu PROMPT "A\<jutor" COLOR SCHEME 3 ;
|
|
KEY ALT+J, "ALT+J" ;
|
|
MESSAGE 'Instructiuni de utilizare, informatii despre acest program.'
|
|
|
|
ON PAD _000000006 OF _msysmenu ACTIVATE POPUP Ajutor
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Ajutor MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 1 OF Ajutor PROMPT "\<Planul general de conturi" ;
|
|
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 "\<Consilier legislativ"
|
|
ON SELECTION BAR 3 OF Ajutor DO BAR_3_OF_Ajutor_FB2P
|
|
|
|
DEFINE BAR 4 OF Ajutor PROMPT "\-"
|
|
ON BAR 4 OF Ajutor ACTIVATE POPUP _s23165irc
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _s23165irc MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 5 OF Ajutor PROMPT "\<Despre program..." ;
|
|
MESSAGE 'Informatii despre program'
|
|
ON SELECTION BAR 5 OF Ajutor DO BAR_5_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
|
|
|
|
orp=create('parolaMEA')
|
|
orp.show(1)
|
|
|
|
if buton=3
|
|
DO FORM fisiere
|
|
ENDIF
|
|
ENDPROC && BAR_3_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_6_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_6_OF_Utile_FB2P
|
|
|
|
PROCEDURE BAR_7_OF_Utile_FB2P
|
|
od=createo('diary')
|
|
od.show(1)
|
|
ENDPROC && BAR_7_OF_Utile_FB2P
|
|
|
|
PROCEDURE BAR_8_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_8_OF_Utile_FB2P
|
|
|
|
PROCEDURE BAR_10_OF_Utile_FB2P
|
|
ies=.t.
|
|
|
|
DO IESIRE
|
|
|
|
*RELEASE OBJECTS_________________________-
|
|
*ostart.release
|
|
*OSETVIZ.RELEASE
|
|
*OSETTULBAR.RELEASE
|
|
*OSETINSTRUM.RELEASE
|
|
|
|
ENDPROC && BAR_10_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_1_OF__0vm0luviu_FB2P
|
|
do form contnou
|
|
ENDPROC && BAR_1_OF__0vm0luviu_FB2P
|
|
|
|
PROCEDURE BAR_3_OF__0vm0luviu_FB2P
|
|
|
|
USE IN PLCONT
|
|
ERR1=.F.
|
|
|
|
ON ERROR do errn
|
|
COPY FILE &calefirma\datean\plcont.* to &calefirma\datean\plcont2002.*
|
|
ON error
|
|
IF ERR1
|
|
RETURN
|
|
ENDIF
|
|
|
|
ERR1=.F.
|
|
ON ERROR do errn
|
|
COPY FILE &dirgen\_alfa\datean\plcont.* to &calefirma\datean\plcont.*
|
|
ON error
|
|
IF ERR1
|
|
RETURN
|
|
ENDIF
|
|
|
|
DO DES WITH 'PLCONT'
|
|
DO mesaj WITH 'Planul de conturi a fost inlocuit.','Verificati la <Modificare conturi>'
|
|
ENDPROC && BAR_3_OF__0vm0luviu_FB2P
|
|
|
|
PROCEDURE BAR_4_OF__0vm0luviu_FB2P
|
|
IF !FILE('&calefirma\datean\plcont2002.dbf')
|
|
DO mesaj WITH 'Planul de conturi nu a fost inlocuit','Aveti planul original'
|
|
return
|
|
endif
|
|
|
|
USE IN PLCONT
|
|
SET SAFETY off
|
|
ERR1=.F.
|
|
ON ERROR do errn
|
|
COPY FILE &calefirma\datean\plcont2002.* to &calefirma\datean\plcont.*
|
|
ON error
|
|
IF ERR1
|
|
RETURN
|
|
ENDIF
|
|
|
|
DO DES WITH 'PLCONT'
|
|
DO mesaj WITH 'Planul de conturi a fost inlocuit.','Verificati la <Modificare conturi>'
|
|
ENDPROC && BAR_4_OF__0vm0luviu_FB2P
|
|
|
|
PROCEDURE BAR_1_OF__0b40qr5uc_FB2P
|
|
oc=crea('coef')
|
|
oc.show(1)
|
|
ENDPROC && BAR_1_OF__0b40qr5uc_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Coeficient_FB2P
|
|
o=crea('cursval')
|
|
o.show(1)
|
|
ENDPROC && BAR_1_OF_Coeficient_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Coeficient_FB2P
|
|
orp=create('parola')
|
|
orp.show(1)
|
|
|
|
if buton=3
|
|
|
|
o=crea('adaoscom')
|
|
o.show(1)
|
|
|
|
endif
|
|
ENDPROC && BAR_2_OF_Coeficient_FB2P
|
|
|
|
PROCEDURE BAR_7_OF_Initializa_FB2P
|
|
SELECT numegest
|
|
SET FILTER TO !EMPTY(numegest)
|
|
|
|
oge=create('afgest')
|
|
oge.show(1)
|
|
ENDPROC && BAR_7_OF_Initializa_FB2P
|
|
|
|
PROCEDURE BAR_8_OF_Initializa_FB2P
|
|
ofs=create('afsectii')
|
|
ofs.show(1)
|
|
ENDPROC && BAR_8_OF_Initializa_FB2P
|
|
|
|
PROCEDURE BAR_9_OF_Initializa_FB2P
|
|
SELE LISTAST
|
|
REPL ALL ALES WITH .F.
|
|
ONOM=CREA('NOMALES')
|
|
onom.grid1.column4.visible=.f.
|
|
ONOM.SHOW(1)
|
|
ENDPROC && BAR_9_OF_Initializa_FB2P
|
|
|
|
PROCEDURE BAR_11_OF_Initializa_FB2P
|
|
public semafor1
|
|
semafor1=.f.
|
|
do curatare
|
|
if semafor1
|
|
return
|
|
endif
|
|
|
|
PUBLIC M.ANMAX
|
|
LOCAL ZZAN
|
|
ZZAN=M.AN
|
|
|
|
SELE CALENDAR
|
|
GOTO BOTTOM
|
|
SCATTER MEMVAR
|
|
|
|
m.nnlmax=val(m.nl)
|
|
M.ANMAX=VAL(M.AN)
|
|
|
|
sele lunilean
|
|
IF M.NNLMAX==12 THEN
|
|
GOTO TOP
|
|
ZZAN=VAL(M.AN)+1
|
|
ZZAN=ALLTRIM(STR(ZZAN))
|
|
ELSE
|
|
seek(m.nl)
|
|
goto recno()+1
|
|
ENDIF
|
|
scatter memvar
|
|
|
|
oT=CREATEOBJ("TEXTR")
|
|
OT.LABEL2.CAPTION="Deschidere de luna noua:"
|
|
ot.label3.caption=rtrim(m.numeluna)+' '+ZZan
|
|
ot.label3.fontbold=.t.
|
|
ot.show(1)
|
|
IF BUTON=1
|
|
|
|
do deschidl.prg
|
|
DO REDESCHI.PRG
|
|
do totv
|
|
luna_neplatita=.t.
|
|
|
|
OT1=CREATEOBJ("TEXT")
|
|
OT1.LABEL2.CAPTION="Am deschis luna:"
|
|
ot1.label3.caption=rtrim(m.numeluna)+' '+ZZan
|
|
ot1.label3.fontbold=.t.
|
|
ot1.show(1)
|
|
|
|
NUMEFIRMA=UPPER(rTRIM(m.flung))
|
|
capapl="CONT2000 Firma "+numefirma+"- Luna contabila: "+RTRIM(M.NUMELUNA)+" "+ZZAN
|
|
goApp.SetCaption(capapl)
|
|
|
|
DO TOTV
|
|
*ostart.show(1)
|
|
|
|
ENDIF
|
|
|
|
ENDPROC && BAR_11_OF_Initializa_FB2P
|
|
|
|
PROCEDURE BAR_12_OF_Initializa_FB2P
|
|
public semafor1
|
|
semafor1=.f.
|
|
do curatare
|
|
if semafor1
|
|
return
|
|
endif
|
|
|
|
|
|
ot=createobj("textr")
|
|
ot.label2.caption="Firma: "+rtrim(M.FLUNG)+' ('+nfscurt+')'
|
|
ot.label3.caption="Redeschiderea lunii: "+m.nl+" "+m.an
|
|
ot.show(1)
|
|
if buton=1
|
|
DO REDESCHI
|
|
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
|
|
ENDPROC && BAR_12_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_15_OF_Initializa_FB2P
|
|
do form datefirma
|
|
use &calefirma\datean\datefirma in 0 shared again
|
|
sele datefirma
|
|
repl denumire with m.flung
|
|
repl localitate with m.localitate
|
|
repl strada with m.strada
|
|
repl nr with ALLT(STR(m.numar))
|
|
brow title 'CTR-Y pentru linie noua / ESC pentru iesire'
|
|
use in datefirma
|
|
ENDPROC && BAR_15_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 REFFUR
|
|
wait wind 'Se inregistreaza in registrul de cumparari...' nowait
|
|
DO TOTV
|
|
DO REFCUMPnou
|
|
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 REFCLI
|
|
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_4_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_4_OF__0980v14qn_FB2P
|
|
|
|
PROCEDURE BAR_5_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_5_OF__0980v14qn_FB2P
|
|
|
|
PROCEDURE BAR_6_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_6_OF__0980v14qn_FB2P
|
|
|
|
PROCEDURE BAR_7_OF__0980v14qn_FB2P
|
|
SELECT respons
|
|
SET FILTER TO !DELETED()
|
|
sum indirecte,materiale to m.SUM1,M.SUM2
|
|
M.SUM3=M.SUM1-M.SUM2
|
|
|
|
|
|
SELECT respons.NUME_2,respons.indirecte,respons.materiale;
|
|
from respons where !deleted() ;
|
|
into TABLE &LOC\&nfscurt\tempo\xtemp
|
|
alter table xtemp;
|
|
rename column nume_2 TO nume;
|
|
rename column indirecte TO deb;
|
|
rename column materiale TO cred
|
|
|
|
sele xtemp
|
|
index on nume tag nume of &LOC\&nfscurt\tempo\xtemp
|
|
|
|
do creaT_analitx with 'SITUATIE ANALITICA - RESPONSABILI','Indirecte','Materiale'
|
|
ENDPROC && BAR_7_OF__0980v14qn_FB2P
|
|
|
|
PROCEDURE BAR_8_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_8_OF__0980v14qn_FB2P
|
|
|
|
PROCEDURE BAR_9_OF__0980v14qn_FB2P
|
|
oluc=create('aflucrarix')
|
|
oluc.show(1)
|
|
ENDPROC && BAR_9_OF__0980v14qn_FB2P
|
|
|
|
PROCEDURE BAR_3_OF_Preluarede_FB2P
|
|
sele stoc
|
|
do form afstocx
|
|
ENDPROC && BAR_3_OF_Preluarede_FB2P
|
|
|
|
PROCEDURE BAR_5_OF_Preluarede_FB2P
|
|
sele bal
|
|
do form afisbalx
|
|
ENDPROC && BAR_5_OF_Preluarede_FB2P
|
|
|
|
PROCEDURE BAR_18_OF_Initializa_FB2P
|
|
O=CREA('OPTIUNI')
|
|
O.SHOW(1)
|
|
ENDPROC && BAR_18_OF_Initializa_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Inchidere_FB2P
|
|
do salarii19 in inchidere.prg
|
|
ENDPROC && BAR_1_OF_Inchidere_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Inchidere_FB2P
|
|
|
|
|
|
SELE calendar
|
|
LOCATE for nl=m.nl and an=m.an
|
|
Skip -1
|
|
IF !bof()
|
|
nla=nl
|
|
ana=an
|
|
dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC
|
|
ELSE
|
|
dateA=dirgen+'\_alfa\an0000\date00\'
|
|
ENDIF
|
|
|
|
USE &DATEA\BAL IN 0 ALIAS BALP
|
|
|
|
M.NRACT=8
|
|
m.NUME='UZURA OB.DE INVENTAR'
|
|
M.EXPLICATIA='LUNA '+M.NL
|
|
M.SUMA=0
|
|
M.FDOC='NOTA'
|
|
|
|
|
|
SELE BALP
|
|
SUM RULcred TO M.SUMA FOR CONT='2801'
|
|
M.NUME_2='CHELT.CONSTITUIRE'
|
|
DO ABC1 WITH '6811','2801'
|
|
SELE BALP
|
|
SUM RULcred TO M.SUMA FOR CONT='2803'
|
|
M.NUME_2='CHELT.CERCET.DEZV.'
|
|
DO ABC1 WITH '6811','2803'
|
|
SELE BALP
|
|
SUM RULcred TO M.SUMA FOR CONT='2805'
|
|
M.NUME_2='BREVETE SI INVENTII'
|
|
DO ABC1 WITH '6811','2805'
|
|
SELE BALP
|
|
SUM RULcred TO M.SUMA FOR CONT='2808'
|
|
M.NUME_2='ALTE IMOB.NECORP.'
|
|
DO ABC1 WITH '6811','2808'
|
|
|
|
USE IN BALP
|
|
|
|
|
|
|
|
DO STERGE
|
|
ENDPROC && BAR_2_OF_Inchidere_FB2P
|
|
|
|
PROCEDURE BAR_3_OF_Inchidere_FB2P
|
|
do amortizari in inchidere.prg
|
|
ENDPROC && BAR_3_OF_Inchidere_FB2P
|
|
|
|
PROCEDURE BAR_4_OF_Inchidere_FB2P
|
|
do tva in inchidere.prg
|
|
ENDPROC && BAR_4_OF_Inchidere_FB2P
|
|
|
|
PROCEDURE BAR_5_OF_Inchidere_FB2P
|
|
do venituri in inchidere.prg
|
|
ENDPROC && BAR_5_OF_Inchidere_FB2P
|
|
|
|
PROCEDURE BAR_6_OF_Inchidere_FB2P
|
|
do cheltuieli in inchidere.prg
|
|
ENDPROC && BAR_6_OF_Inchidere_FB2P
|
|
|
|
PROCEDURE BAR_7_OF_Inchidere_FB2P
|
|
do cheltprofit in inchidere.prg
|
|
ENDPROC && BAR_7_OF_Inchidere_FB2P
|
|
|
|
PROCEDURE BAR_8_OF_Inchidere_FB2P
|
|
do marfa in inchidere.prg
|
|
ENDPROC && BAR_8_OF_Inchidere_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Penalitati_FB2P
|
|
DO PENTVA IN PENALITATI.PRG
|
|
|
|
IF !USED('PENTVA')
|
|
sele 0
|
|
use &dirfirm\tempo\pentva alias pentva
|
|
ENDIF
|
|
|
|
o=crea('penalitati')
|
|
o.show(1)
|
|
|
|
sele pentva
|
|
use
|
|
ENDPROC && BAR_1_OF_Penalitati_FB2P
|
|
|
|
PROCEDURE BAR_1_OF__09i15mm5f_FB2P
|
|
overi=crea('verif')
|
|
overi.show(1)
|
|
ENDPROC && BAR_1_OF__09i15mm5f_FB2P
|
|
|
|
PROCEDURE BAR_2_OF__09i15mm5f_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__09i15mm5f_FB2P
|
|
|
|
PROCEDURE BAR_3_OF__09i15mm5f_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__09i15mm5f_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)
|
|
|
|
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)
|
|
|
|
if buton=3
|
|
|
|
do vanzlun-clienti.prg
|
|
DO MESAJ WITH 'GATA',''
|
|
endif
|
|
ENDPROC && BAR_5_OF__0ln0qf60i_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 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_9_OF__09i15mm5f_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 REDESCHI
|
|
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_9_OF__09i15mm5f_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)
|
|
ENDPROC && BAR_2_OF_Ajutor_FB2P
|
|
|
|
PROCEDURE BAR_3_OF_Ajutor_FB2P
|
|
oh=crea('help_leg')
|
|
oh.show(1)
|
|
ENDPROC && BAR_3_OF_Ajutor_FB2P
|
|
|
|
PROCEDURE BAR_5_OF_Ajutor_FB2P
|
|
OD=CREATEO('DESPRE')
|
|
OD.SHOW(1)
|
|
ENDPROC && BAR_5_OF_Ajutor_FB2P
|
|
|
|
*</Procedures>
|