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

615 lines
23 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 "\<Romfast Suport" ;
KEY ALT+R, "ALT+R" ;
MESSAGE 'Romfast Suport'
ON SELECTION BAR 1 OF Utile DO BAR_1_OF_Utile_FB2P
DEFINE BAR 2 OF Utile PROMPT "\<Captura ecran si email" ;
KEY ALT+S, "ALT+S"
ON SELECTION BAR 2 OF Utile DO BAR_2_OF_Utile_FB2P
DEFINE BAR 3 OF Utile PROMPT "\-"
ON BAR 3 OF Utile ACTIVATE POPUP _5ow11i45g
*----------------------------------
DEFINE POPUP _5ow11i45g MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 4 OF Utile PROMPT "Schimbare tip raport clasic/modern" ;
MESSAGE 'Previzualizare rapoarte tip clasic sau modern'
ON SELECTION BAR 4 OF Utile DO BAR_4_OF_Utile_FB2P
DEFINE BAR 5 OF Utile PROMPT "\-"
ON BAR 5 OF Utile ACTIVATE POPUP _4lz0t1ukd
*----------------------------------
DEFINE POPUP _4lz0t1ukd MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 6 OF Utile PROMPT "\<Iesire" ;
KEY F2, "F2" ;
MESSAGE 'Iesire din program.'
ON SELECTION BAR 6 OF Utile DO BAR_6_OF_Utile_FB2P
DEFINE PAD _000000002 OF _msysmenu PROMPT "\<Editare" COLOR SCHEME 3 ;
KEY ALT+E, "" ;
MESSAGE 'Comenzi de editare.'
ON PAD _000000002 OF _msysmenu ACTIVATE POPUP Editare
*----------------------------------
DEFINE POPUP Editare MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _med_undo OF Editare PROMPT "\<Anuleaza" ;
KEY CTRL+Z, "Ctrl+Z" ;
MESSAGE 'Anuleaza ultima comanda de editare.'
DEFINE BAR _med_redo OF Editare PROMPT "\<Refa" ;
KEY CTRL+R, "Ctrl+R" ;
MESSAGE 'Repeta ultima comanda anulata.'
DEFINE BAR _med_sp100 OF Editare PROMPT "\-"
DEFINE BAR _med_cut OF Editare PROMPT "\<Taie si retine" ;
KEY CTRL+X, "Ctrl+X" ;
MESSAGE 'Copiaza in memorie textul selectat si apoi il sterge din ecran.'
DEFINE BAR _med_copy OF Editare PROMPT "\<Copiaza" ;
KEY CTRL+C, "Ctrl+C" ;
MESSAGE 'Copiaza in memorie textul selectat.'
DEFINE BAR _med_paste OF Editare PROMPT "Re\<da" ;
KEY CTRL+V, "Ctrl+V" ;
MESSAGE 'Reda din memorie textul retinut cu comanda <Copiaza>.'
DEFINE 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 BAR 9 OF Editare PROMPT "\-"
ON BAR 9 OF Editare ACTIVATE POPUP _5j00vkrd6
*----------------------------------
DEFINE POPUP _5j00vkrd6 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 10 OF Editare PROMPT "Alege font implicit"
ON SELECTION BAR 10 OF Editare DO BAR_10_OF_Editare_FB2P
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 "\<Deschidere de luna noua"
ON SELECTION BAR 1 OF Initializa DO BAR_1_OF_Initializa_FB2P
DEFINE BAR 2 OF Initializa PROMPT "\<Redeschidere de luna" ;
MESSAGE 'Actualizarea cu date modificate din luna precedenta, aparute ulterior deschiderii lunii contabile curente.'
ON BAR 2 OF Initializa ACTIVATE POPUP Redeschide
*----------------------------------
DEFINE POPUP Redeschide MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Redeschide PROMPT "Redeschidere de luna"
ON SELECTION BAR 1 OF Redeschide DO BAR_1_OF_Redeschide_FB2P
DEFINE BAR 2 OF Redeschide PROMPT "\-"
ON BAR 2 OF Redeschide ACTIVATE POPUP _34h0z67ak
*----------------------------------
DEFINE POPUP _34h0z67ak MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 3 OF Redeschide PROMPT "Programare redeschidere de luna"
ON SELECTION BAR 3 OF Redeschide do programare_deschidere_luna in oredeschid.prg
DEFINE BAR 3 OF Initializa PROMPT "\-"
ON BAR 3 OF Initializa ACTIVATE POPUP _1mw0krb26
*----------------------------------
DEFINE POPUP _1mw0krb26 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 4 OF Initializa PROMPT "\<Plan conturi"
ON SELECTION BAR 4 OF Initializa DO BAR_4_OF_Initializa_FB2P
DEFINE BAR 5 OF Initializa PROMPT "\<Completare plan conturi din anul precedent"
ON SELECTION BAR 5 OF Initializa DO BAR_5_OF_Initializa_FB2P
DEFINE BAR 6 OF Initializa PROMPT "\-"
ON BAR 6 OF Initializa ACTIVATE POPUP _3a60oj8xk
*----------------------------------
DEFINE POPUP _3a60oj8xk MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 7 OF Initializa PROMPT "Configurare TVA & Impozit"
ON SELECTION BAR 7 OF Initializa DO BAR_7_OF_Initializa_FB2P
DEFINE BAR 8 OF Initializa PROMPT "Plafoane c\<asa"
ON SELECTION BAR 8 OF Initializa DO viz_plafon_casa WITH gcs, gnAn, gnLuna IN onomenclatoare.prg
DEFINE BAR 9 OF Initializa PROMPT "Configurare \<serii"
ON BAR 9 OF Initializa ACTIVATE POPUP Configurar
*----------------------------------
DEFINE POPUP Configurar MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Configurar PROMPT "\<Bon fiscal"
ON SELECTION BAR 1 OF Configurar Do viz_config_serii_complet In oserii_numere.prg With 3
DEFINE BAR 2 OF Configurar PROMPT "\<Chitanta"
ON SELECTION BAR 2 OF Configurar Do viz_config_serii_complet In oserii_numere.prg With 16
DEFINE BAR 3 OF Configurar PROMPT "\<Dispozitie de incasare/plata"
ON SELECTION BAR 3 OF Configurar Do viz_config_serii_complet In oserii_numere.prg With 19
DEFINE BAR 4 OF Configurar PROMPT "\<Factura"
ON SELECTION BAR 4 OF Configurar Do viz_config_serii_complet In oserii_numere.prg With 5
DEFINE BAR 5 OF Configurar PROMPT "\<Factura alocata D394" ;
MESSAGE 'Serii facturi alocate pentru D394'
ON SELECTION BAR 5 OF Configurar Do viz_config_serii_complet In oserii_numere.prg With 24
DEFINE BAR 6 OF Configurar PROMPT "\<Monetar"
ON SELECTION BAR 6 OF Configurar Do viz_config_serii_complet In oserii_numere.prg With 12
DEFINE BAR 10 OF Initializa PROMPT "Configurare inchidere \<amortizare"
ON SELECTION BAR 10 OF Initializa DO BAR_10_OF_Initializa_FB2P
DEFINE BAR 11 OF Initializa PROMPT "\-"
ON BAR 11 OF Initializa ACTIVATE POPUP _3a60ohaj1
*----------------------------------
DEFINE POPUP _3a60ohaj1 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 12 OF Initializa PROMPT "Configurare \<Entitati"
ON SELECTION BAR 12 OF Initializa DO BAR_12_OF_Initializa_FB2P
DEFINE BAR 13 OF Initializa PROMPT "Configurare Entitati - \<Conturi"
ON SELECTION BAR 13 OF Initializa DO BAR_13_OF_Initializa_FB2P
DEFINE BAR 14 OF Initializa PROMPT "Configurare \<Balante Parteneri"
ON SELECTION BAR 14 OF Initializa DO BAR_14_OF_Initializa_FB2P
DEFINE BAR 15 OF Initializa PROMPT "Configurare Note contabile"
ON SELECTION BAR 15 OF Initializa DO BAR_15_OF_Initializa_FB2P
DEFINE BAR 16 OF Initializa PROMPT "Configurare \<Analitice"
ON BAR 16 OF Initializa ACTIVATE POPUP _4k30zzwaf
*----------------------------------
DEFINE POPUP _4k30zzwaf MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _4k30zzwaf PROMPT "Configurare analitice pe \<grupuri utilizatori"
ON SELECTION BAR 1 OF _4k30zzwaf DO BAR_1_OF__4k30zzwaf_FB2P
DEFINE BAR 2 OF _4k30zzwaf PROMPT "Configurare analitice conturi TVA"
ON SELECTION BAR 2 OF _4k30zzwaf DO BAR_2_OF__4k30zzwaf_FB2P
DEFINE BAR 17 OF Initializa PROMPT "\-"
ON BAR 17 OF Initializa ACTIVATE POPUP _6cc0uc21r
*----------------------------------
DEFINE POPUP _6cc0uc21r MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 18 OF Initializa PROMPT "Optiuni utilizator"
ON BAR 18 OF Initializa ACTIVATE POPUP Optiuniuti
*----------------------------------
DEFINE POPUP Optiuniuti MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Optiuniuti PROMPT "\<Tratare bug blocare listare Registru Cumparari"
ON SELECTION BAR 1 OF Optiuniuti DO BAR_1_OF_Optiuniuti_FB2P
DEFINE PAD _000000004 OF _msysmenu PROMPT "Ac\<tualizari" COLOR SCHEME 3 ;
KEY ALT+T, "ALT+T" ;
SKIP FOR Type('glLunaInchisa') = 'L' and m.glLunaInchisa
ON PAD _000000004 OF _msysmenu ACTIVATE POPUP _1bs12qror
*----------------------------------
DEFINE POPUP _1bs12qror MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _1bs12qror PROMPT "Conversie"
ON BAR 1 OF _1bs12qror ACTIVATE POPUP Conversie
*----------------------------------
DEFINE POPUP Conversie MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Conversie PROMPT "1. Actualizare Plan Conturi"
ON SELECTION BAR 1 OF Conversie DO BAR_1_OF_Conversie_FB2P
DEFINE BAR 2 OF Conversie PROMPT "2. Actualizare Registrul Jurnal"
ON SELECTION BAR 2 OF Conversie DO BAR_2_OF_Conversie_FB2P
DEFINE BAR 3 OF Conversie PROMPT "3. Actualizare Balanta de verificare"
ON SELECTION BAR 3 OF Conversie DO BAR_3_OF_Conversie_FB2P
DEFINE BAR 2 OF _1bs12qror PROMPT "\-"
ON BAR 2 OF _1bs12qror ACTIVATE POPUP _1v40t2lwt
*----------------------------------
DEFINE POPUP _1v40t2lwt MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 3 OF _1bs12qror PROMPT "Actualizare solduri in \<valuta"
ON SELECTION BAR 3 OF _1bs12qror DO BAR_3_OF__1bs12qror_FB2P
DEFINE BAR 4 OF _1bs12qror PROMPT "Actualizare cote \<TVA pentru anul 2007"
ON SELECTION BAR 4 OF _1bs12qror DO BAR_4_OF__1bs12qror_FB2P
DEFINE PAD _000000005 OF _msysmenu PROMPT "\<Verificari" COLOR SCHEME 3 ;
SKIP FOR Type('glLunaInchisa') = 'L' and m.glLunaInchisa
ON PAD _000000005 OF _msysmenu ACTIVATE POPUP Verificari
*----------------------------------
DEFINE POPUP Verificari MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Verificari PROMPT "\<Verificare globala"
ON SELECTION BAR 1 OF Verificari DO BAR_1_OF_Verificari_FB2P
DEFINE BAR 2 OF Verificari PROMPT "\<Situatii contabile invalidate" ;
MESSAGE 'Situatii contabile invalidate de operatii efectuate in lunile anterioare'
ON SELECTION BAR 2 OF Verificari DO BAR_2_OF_Verificari_FB2P
DEFINE PAD _000000006 OF _msysmenu PROMPT "\<Import" COLOR SCHEME 3 ;
SKIP FOR Type('glLunaInchisa') = 'L' and m.glLunaInchisa
ON PAD _000000006 OF _msysmenu ACTIVATE POPUP _5100zlkwx
*----------------------------------
DEFINE POPUP _5100zlkwx MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _5100zlkwx PROMPT "Initializare \<facturi, balante parteneri si Registre TVA din *.xlsx"
ON SELECTION BAR 1 OF _5100zlkwx do form frm_initializare_facturi_balanta.scx
DEFINE BAR 2 OF _5100zlkwx PROMPT "\-"
ON BAR 2 OF _5100zlkwx ACTIVATE POPUP _66a0sg613
*----------------------------------
DEFINE POPUP _66a0sg613 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 3 OF _5100zlkwx PROMPT "\<Note facturi clienti din *.xlsx" ;
MESSAGE '4111 = 7xx ; 4111 = 442x'
ON SELECTION BAR 3 OF _5100zlkwx do form frm_import_note_facturi_clienti.scx
DEFINE BAR 4 OF _5100zlkwx PROMPT "\<Note facturi clienti anulate din *.xlsx"
ON SELECTION BAR 4 OF _5100zlkwx do form frm_import_note_facturi_clienti.scx with 'ANULAT'
DEFINE BAR 5 OF _5100zlkwx PROMPT "\-"
ON BAR 5 OF _5100zlkwx ACTIVATE POPUP _61m0tv1xb
*----------------------------------
DEFINE POPUP _61m0tv1xb MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 6 OF _5100zlkwx PROMPT "\<Monetare din fisiere casa marcat A4200" ;
MESSAGE '4111 = 7xx ; 4111 = 442x ; 5xx = 4111'
ON SELECTION BAR 6 OF _5100zlkwx do form frm_import_note_a4200.scx
DEFINE BAR 7 OF _5100zlkwx PROMPT "\-"
ON BAR 7 OF _5100zlkwx ACTIVATE POPUP _61m0tuffp
*----------------------------------
DEFINE POPUP _61m0tuffp MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 8 OF _5100zlkwx PROMPT "\<Extrase bancare, deconturi curieri, procesatori plati"
ON SELECTION BAR 8 OF _5100zlkwx do form frm_import_extrase_banca.scx
DEFINE PAD _000000007 OF _msysmenu PROMPT "\<SPV - eFactura" COLOR SCHEME 3 ;
MESSAGE 'Borderou eFactura'
ON PAD _000000007 OF _msysmenu ACTIVATE POPUP SPVeFactur
*----------------------------------
DEFINE POPUP SPVeFactur MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF SPVeFactur PROMPT "Borderou eFactura"
ON SELECTION BAR 1 OF SPVeFactur DO BAR_1_OF_SPVeFactur_FB2P
DEFINE BAR 2 OF SPVeFactur PROMPT "\-"
ON BAR 2 OF SPVeFactur ACTIVATE POPUP _6y511yz3u
*----------------------------------
DEFINE POPUP _6y511yz3u MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 3 OF SPVeFactur PROMPT "\<Trimite xml eFactura..."
ON SELECTION BAR 3 OF SPVeFactur DO BAR_3_OF_SPVeFactur_FB2P
DEFINE BAR 4 OF SPVeFactur PROMPT "\-"
ON BAR 4 OF SPVeFactur ACTIVATE POPUP _6ug0wevae
*----------------------------------
DEFINE POPUP _6ug0wevae MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 5 OF SPVeFactur PROMPT "Import eFactura primite"
ON SELECTION BAR 5 OF SPVeFactur DO BAR_5_OF_SPVeFactur_FB2P
DEFINE BAR 6 OF SPVeFactur PROMPT "Import eFactura trimise"
ON SELECTION BAR 6 OF SPVeFactur DO BAR_6_OF_SPVeFactur_FB2P
DEFINE BAR 7 OF SPVeFactur PROMPT "\-"
ON BAR 7 OF SPVeFactur ACTIVATE POPUP _6zm0qrbxl
*----------------------------------
DEFINE POPUP _6zm0qrbxl MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 8 OF SPVeFactur PROMPT "SPV"
ON SELECTION BAR 8 OF SPVeFactur DO BAR_8_OF_SPVeFactur_FB2P
DEFINE PAD _000000008 OF _msysmenu PROMPT "\<Ajutor" COLOR SCHEME 3 ;
KEY ALT+J, "ALT+J" ;
MESSAGE 'Instructiuni de utilizare, informatii despre acest program.'
ON PAD _000000008 OF _msysmenu ACTIVATE POPUP Ajutor
*----------------------------------
DEFINE POPUP Ajutor MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Ajutor PROMPT "\<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" ;
KEY F1, "F1"
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 "\<Despre program..." ;
MESSAGE 'Informatii despre program'
ON SELECTION BAR 4 OF Ajutor DO BAR_4_OF_Ajutor_FB2P
DEFINE BAR 5 OF Ajutor PROMPT "\<Jurnal modificari"
ON SELECTION BAR 5 OF Ajutor DO BAR_5_OF_Ajutor_FB2P
DEFINE BAR 6 OF Ajutor PROMPT "\-"
ON BAR 6 OF Ajutor ACTIVATE POPUP _70c02mw5j
*----------------------------------
DEFINE POPUP _70c02mw5j MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 7 OF Ajutor PROMPT "Romfast Suport Bot"
ON SELECTION BAR 7 OF Ajutor DO FORM frm_chatbot
ON SELECTION MENU _msysmenu *:Locale=Yes
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Utile_FB2P
Try
OHELP.TOOL_HELP1.stromfast.Click
Catch To loEx
AMESSAGEBOX(loEx.Message,0+48,_Screen.Caption)
Endtry
ENDPROC && BAR_1_OF_Utile_FB2P
PROCEDURE BAR_2_OF_Utile_FB2P
Try
ohelp.toOL_HELP1.screenshot.Click
Catch To loEx
AMESSAGEBOX(loEx.Message,0+48,_Screen.Caption)
Endtry
ENDPROC && BAR_2_OF_Utile_FB2P
PROCEDURE BAR_4_OF_Utile_FB2P
**OVARIABILE_GLOBALE.PRG
*** Citesc setarea pentru ReportBehaviour
IF TYPE('gnReportBehaviour') = 'U'
PUBLIC gnReportBehaviour
gnReportBehaviour = 90
ENDIF
LOCAL lcReportBehaviour
lcReportBehaviour = NVL(getini(m.gcGeneralIniFile,'report','reportbehaviour'), '')
IF EMPTY(m.lcReportBehaviour)
setini(m.gcGeneralIniFile,'report','reportbehaviour', '90')
gnReportBehaviour = 90
ELSE
gnReportBehaviour = VAL(m.lcReportBehaviour)
ENDIF
IF !INLIST(gnReportBehaviour, 80, 90)
setini(m.gcGeneralIniFile,'report','reportbehaviour', '90')
gnReportBehaviour = 90
ENDIF
lnReportBehaviourNew = IIF(gnReportBehaviour = 90, 80, 90)
IF AMESSAGEBOX('Rapoarte tip ' + IIF(m.gnReportBehaviour=90, 'modern', 'clasic') + '. Doriti sa schimbati in tip ' + IIF(m.lnReportBehaviourNew=90, 'modern', 'clasic') + '?',4+32,_screen.Caption) = 6
setini(m.gcGeneralIniFile,'report','reportbehaviour', ALLTRIM(STR(m.lnReportBehaviourNew)))
gnReportBehaviour = m.lnReportBehaviourNew
ENDIF
ENDPROC && BAR_4_OF_Utile_FB2P
PROCEDURE BAR_6_OF_Utile_FB2P
ies=.t.
QUIT
ENDPROC && BAR_6_OF_Utile_FB2P
PROCEDURE BAR_10_OF_Editare_FB2P
Local oFonts, llReturn
Do Case
Case Type("goApp") = "O" And ;
PEMSTATUS(goApp, "oFontHandler",5)
If Vartype(goApp.oFontHandler) <> "O"
* instantiate it
goApp.oFontHandler = CREATEOBJECT("cusFontHandler") && Newobject("cusFontHandler", "Accessibility")
Endif
oFonts = goApp.oFontHandler
Case Vartype(oFontHandler) <> "O"
Release oFontHandler
Public oFontHandler
oFontHandler = CREATEOBJECT("cusFontHandler")&& Newobject("cusFontHandler", "Accessibility")
oFonts = oFontHandler
Otherwise
* it already exists in the public variable
oFonts = oFontHandler
ENDCASE
llReturn = oFonts.PromptForFont()
IF m.llReturn
goApp.WriteIni('INTERFATA', 'FONTNAME', oFonts.cFontName)
AMESSAGEBOX('Intrati din nou in aplicatie pentru activarea fontului ' + oFonts.cFontName,0+64,_SCREEN.Caption)
ENDIF
ENDPROC && BAR_10_OF_Editare_FB2P
PROCEDURE BAR_1_OF_Initializa_FB2P
gcAcces = "1;2;3;4;"
DO deschidluna WITH .T. IN oredeschid.prg
ENDPROC && BAR_1_OF_Initializa_FB2P
PROCEDURE BAR_1_OF_Redeschide_FB2P
DO deschidluna WITH .F., "refacere_completa" IN oredeschid.prg
ENDPROC && BAR_1_OF_Redeschide_FB2P
PROCEDURE BAR_4_OF_Initializa_FB2P
* gcAcces = "1;2;3;4"
gcAcces = GetAccesByCod("ZA03") && Z = meniu, A = pad#, 3 = bar#
DO viz_plcont IN onomenclatoare.prg
ENDPROC && BAR_4_OF_Initializa_FB2P
PROCEDURE BAR_5_OF_Initializa_FB2P
Local lcSql,lnSucces
lnRasp=aMESSAGEBOX("Doriti sa completati planul de conturi",4+32,"Atentie")
If lnRasp=6
lcSql = [begin pack_deschidere_luna.completare_plan_conturi(?gnAn); end;]
llSucces = goExecutor.oExecuta(m.lcSql)
If m.llSucces
aMESSAGEBOX("Planul de conturi s-a completat!",0,"Confirmare")
Endif
Endif
ENDPROC && BAR_5_OF_Initializa_FB2P
PROCEDURE BAR_7_OF_Initializa_FB2P
gcAcces = "1;2;3;4;"
LOCAL lcSchema, lnAn, lnLuna
lnAn = m.gnAn
lnLuna = m.gnLuna
lcSchema = m.gcS
DO viz_cote_tva WITH m.lcSchema, m.lnAn, m.lnLuna
ENDPROC && BAR_7_OF_Initializa_FB2P
PROCEDURE BAR_10_OF_Initializa_FB2P
gcAcces = "1;2;3;4;"
DO viz_inchidere_amortizari_conturi in oproceduri_inchidere.prg
ENDPROC && BAR_10_OF_Initializa_FB2P
PROCEDURE BAR_12_OF_Initializa_FB2P
*gcAcces = "1;2;3;4;"
gcAcces = GetAccesByCod("ZA09") && Z = meniu, A = pad#, 9 = bar#
DO viz_parteneri IN onomenclatoare.prg
ENDPROC && BAR_12_OF_Initializa_FB2P
PROCEDURE BAR_13_OF_Initializa_FB2P
gcAcces = "1;2;3;4;"
DO viz_entitati_conturi IN onomenclatoare.prg
ENDPROC && BAR_13_OF_Initializa_FB2P
PROCEDURE BAR_14_OF_Initializa_FB2P
gcAcces = "1;2;3;4;"
DO configurare_balanta_cumulata IN oparteneri.prg
ENDPROC && BAR_14_OF_Initializa_FB2P
PROCEDURE BAR_15_OF_Initializa_FB2P
gcAcces = "1;2;3;4;"
DO configurare_note IN omeniu_initializari.prg
ENDPROC && BAR_15_OF_Initializa_FB2P
PROCEDURE BAR_1_OF__4k30zzwaf_FB2P
gcAcces = "1;2;3;4;"
DO configurare_analitice_gruputil IN omeniu_initializari.prg
ENDPROC && BAR_1_OF__4k30zzwaf_FB2P
PROCEDURE BAR_2_OF__4k30zzwaf_FB2P
gcAcces = "1;2;3;4;"
DO configurare_analitice_tva IN omeniu_initializari.prg
ENDPROC && BAR_2_OF__4k30zzwaf_FB2P
PROCEDURE BAR_1_OF_Optiuniuti_FB2P
Local lcOptiune, lnOptiune
lcOptiune = 'RC_REGCUMP_LISTARE_BUG'
lnOptiune = Int(Val(Nvl(citeste_optiune_utilizator(m.lcOptiune), '0')))
lnRaspuns = AMESSAGEBOX('Optiunea este ' + Iif(m.lnOptiune = 0, 'Inactiva.', 'Activa.') + Chr(13) + Chr(10) + ;
'Doriti sa o ' + Iif(m.lnOptiune = 0, 'activati?', 'inactivati?'),4+32, _Screen.Caption)
If m.lnRaspuns = 6
lnOptiune = Iif(m.lnOptiune = 0, 1, 0)
scrie_optiune_utilizator(m.lcOptiune, ALLTRIM(STR(m.lnOptiune)), "Tratare bug blocare listare Registru Cumparari")
Endif
ENDPROC && BAR_1_OF_Optiuniuti_FB2P
PROCEDURE BAR_1_OF_Conversie_FB2P
gcAcces = "1;2;3;4;"
DO CONVERSIE_CONTURI with "PLAN" IN oproceduri_conversie.prg
ENDPROC && BAR_1_OF_Conversie_FB2P
PROCEDURE BAR_2_OF_Conversie_FB2P
gcAcces = "1;2;3;4;"
DO CONVERSIE_CONTURI with "JURNAL" IN oproceduri_conversie.prg
ENDPROC && BAR_2_OF_Conversie_FB2P
PROCEDURE BAR_3_OF_Conversie_FB2P
gcAcces = "1;2;3;4;"
DO CONVERSIE_CONTURI with "BALANTA" IN oproceduri_conversie.prg
ENDPROC && BAR_3_OF_Conversie_FB2P
PROCEDURE BAR_3_OF__1bs12qror_FB2P
gcAcces = "1;2;3;4;"
do actualizare_solduri_valuta in oproceduri_actualizari.prg
ENDPROC && BAR_3_OF__1bs12qror_FB2P
PROCEDURE BAR_4_OF__1bs12qror_FB2P
gcAcces = "1;2;3;4;"
do actualizare_tva2007 in oproceduri_actualizari.prg
ENDPROC && BAR_4_OF__1bs12qror_FB2P
PROCEDURE BAR_1_OF_Verificari_FB2P
gcAcces = "1;2;3;4;"
DO verificareGlobala IN overificari.prg
ENDPROC && BAR_1_OF_Verificari_FB2P
PROCEDURE BAR_2_OF_Verificari_FB2P
gcAcces = "1;2;3;4;"
do SituatiiInvalidate in overificari.prg
ENDPROC && BAR_2_OF_Verificari_FB2P
PROCEDURE BAR_1_OF_SPVeFactur_FB2P
gcAcces = GetAccesByCod("ZE01") && Z = meniu, A = pad#, 3 = bar#
do viz_borderou_efactura in anaf_efactura.prg
ENDPROC && BAR_1_OF_SPVeFactur_FB2P
PROCEDURE BAR_3_OF_SPVeFactur_FB2P
gcAcces = GetAccesByCod("ZE01") && Z = meniu, A = pad#, 3 = bar#
do viz_efactura_xml in anaf_efactura.prg
ENDPROC && BAR_3_OF_SPVeFactur_FB2P
PROCEDURE BAR_5_OF_SPVeFactur_FB2P
gcAcces = GetAccesByCod("DA01") && D = Pagina 4 Terti, A = pagina 2 Furnizori, 01 = meniul 1 Furnizori
do importEfacturaPrimite in import_efactura.prg
ENDPROC && BAR_5_OF_SPVeFactur_FB2P
PROCEDURE BAR_6_OF_SPVeFactur_FB2P
gcAcces = GetAccesByCod("DB01") && D = Pagina 4 Terti, B = pagina 2 Clienti, 01 = meniul 1 Clienti
do importEfacturaTrimise in import_efactura.prg
ENDPROC && BAR_6_OF_SPVeFactur_FB2P
PROCEDURE BAR_8_OF_SPVeFactur_FB2P
gcAcces = GetAccesByCod("ZE05") && Z = meniu, E = pad#, 5 = bar#
do viz_spv in anaf_efactura.prg
ENDPROC && BAR_8_OF_SPVeFactur_FB2P
PROCEDURE BAR_1_OF_Ajutor_FB2P
DO viz_plcont IN ocont2003.prg
ENDPROC && BAR_1_OF_Ajutor_FB2P
PROCEDURE BAR_2_OF_Ajutor_FB2P
lansare_help_meniu() &&oproceduri_comune.prg
ENDPROC && BAR_2_OF_Ajutor_FB2P
PROCEDURE BAR_4_OF_Ajutor_FB2P
DO FORM frm_about
ENDPROC && BAR_4_OF_Ajutor_FB2P
PROCEDURE BAR_5_OF_Ajutor_FB2P
DO FORM frm_changelog
ENDPROC && BAR_5_OF_Ajutor_FB2P
*</Procedures>
Reference in New Issue View Git Blame Copy Permalink