sync SVN r18057
This commit is contained in:
@@ -1428,6 +1428,7 @@ DEFINE CLASS frm_introducere AS _frmbase OF "..\comun\clase\_frm_base.vcx"
|
||||
*< OBJECTDATA: ObjPath="Clb_TVA" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Clb_prorataTVA" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Clb_amort_max_deductibil" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="chk_amort_max_deductibil" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="clb_valoare_reziduala" UniqueID="" Timestamp="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
@@ -1565,6 +1566,15 @@ DEFINE CLASS frm_introducere AS _frmbase OF "..\comun\clase\_frm_base.vcx"
|
||||
_LBBASE1.Name = "_LBBASE1"
|
||||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'chk_amort_max_deductibil' AS _checkbox WITH ;
|
||||
Alignment = 0, ;
|
||||
Caption = "", ;
|
||||
Left = 516, ;
|
||||
Name = "chk_amort_max_deductibil", ;
|
||||
Top = 180, ;
|
||||
Value = .F.
|
||||
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
|
||||
|
||||
ADD OBJECT 'ck_buncapital' AS _checkbox WITH ;
|
||||
Alignment = 0, ;
|
||||
Caption = "Bun de capital", ;
|
||||
@@ -2129,6 +2139,7 @@ DEFINE CLASS frm_introducere AS _frmbase OF "..\comun\clase\_frm_base.vcx"
|
||||
lcProrataTVA = Alltrim(Transform(Thisform.clb_prorataTVA.text_simplu1.Value))
|
||||
|
||||
pnAmortMaxDeductibil = Thisform.clb_amort_max_deductibil.text_simplu1.Value
|
||||
pcAmortMaxDeductibil = Iif(Isnull(m.pnAmortMaxDeductibil), 'NULL', Alltrim(Str(m.pnAmortMaxDeductibil, 14, m.gnPC)))
|
||||
pnValoareReziduala = Thisform.clb_valoare_reziduala.text_simplu1.Value
|
||||
|
||||
If Thisform.ntipmodificare = 4
|
||||
@@ -2236,7 +2247,7 @@ DEFINE CLASS frm_introducere AS _frmbase OF "..\comun\clase\_frm_base.vcx"
|
||||
IIF(Nvl(m.pnid_sucursala, 0) = 0, 'NULL', Alltrim(Str(m.pnid_sucursala))) + [,] + ;
|
||||
ALLTRIM(Str(m.pnid_tip_amortizare)) + [,] + Alltrim(Str(m.pnprocent, 6, 2)) + [,] + Iif(Type('pncoeficient') = 'N', Alltrim(Str(m.pncoeficient, 6, 2)), 'NULL') + [,] + ;
|
||||
ALLTRIM(Str(m.pnid_tip_imobilizare)) + [,'] + Alltrim(m.pccont) + [',] + ;
|
||||
['] + Nvl(Alltrim(m.pcacont), []) + [',] + Alltrim(Str(m.gnIdUtil)) + [,] + Alltrim(Str(m.pnAmortMaxDeductibil, 14, m.gnPC)) + ;
|
||||
['] + Nvl(Alltrim(m.pcacont), []) + [',] + Alltrim(Str(m.gnIdUtil)) + [,] + m.pcAmortMaxDeductibil + ;
|
||||
[,0,?pnTipOperatie,?pcExplicOp,] + m.lcBunCapital + [,] + m.lcBazatva + [,] + m.lcTva + [,] + m.lcId_cotatva + [,] + m.lcProrataTVA + [); end;]
|
||||
|
||||
llSucces = goExecutor.oExecuta(lcsql)
|
||||
@@ -2427,6 +2438,15 @@ DEFINE CLASS frm_introducere AS _frmbase OF "..\comun\clase\_frm_base.vcx"
|
||||
this.clb_nr_inventar.text_simplu1.Value = m.lnNrInventar
|
||||
ENDIF
|
||||
*!* 11.11.2009
|
||||
|
||||
* (Dez)activez amortizarea maxima deductibila in functie de valoare
|
||||
Local llAmortMaxDeductibilIsNull
|
||||
If tnTipModificare = 1
|
||||
Thisform.clb_amort_max_deductibil.text_simplu1.Value = NULL
|
||||
Endif
|
||||
llAmortMaxDeductibilIsNull = ISNULL(Thisform.clb_amort_max_deductibil.text_simplu1.Value)
|
||||
Thisform.chk_amort_max_deductibil.Value = !m.llAmortMaxDeductibilIsNull
|
||||
Thisform.clb_amort_max_deductibil.text_simplu1.ReadOnly = m.llAmortMaxDeductibilIsNull
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Cb_cotaTva._CBBASE1.LostFocus
|
||||
@@ -2463,6 +2483,17 @@ DEFINE CLASS frm_introducere AS _frmbase OF "..\comun\clase\_frm_base.vcx"
|
||||
Endif
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE chk_amort_max_deductibil.Valid
|
||||
* (Dez)activez amortizarea maxima deductibila in functie de checkbox
|
||||
Thisform.clb_amort_max_deductibil.text_simplu1.ReadOnly = !This.Value
|
||||
IF !This.value
|
||||
Thisform.clb_amort_max_deductibil.text_simplu1.Value = NULL
|
||||
ELSE
|
||||
Thisform.clb_amort_max_deductibil.text_simplu1.Value = 0
|
||||
ENDIF
|
||||
Thisform.clb_amort_max_deductibil.text_simplu1.Refresh()
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE ck_buncapital.Click
|
||||
If this.Value = 1
|
||||
thisform.Height=539
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@@ -1,135 +0,0 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="listcorp.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Shortcut PROMPT "Cu Total \<General"
|
||||
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Shortcut PROMPT "Cu Totaluri pe \<Luni"
|
||||
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Shortcut PROMPT "Cu Totaluri pe \<Grupe"
|
||||
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Shortcut PROMPT "Cu Totaluri pe Sectie"
|
||||
ON SELECTION BAR 4 OF Shortcut DO BAR_4_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 5 OF Shortcut PROMPT "\-"
|
||||
ON BAR 5 OF Shortcut ACTIVATE POPUP _11d0uc7oo
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _11d0uc7oo SHORTCUT RELATIVE
|
||||
DEFINE BAR 6 OF Shortcut PROMPT "\<Lista fiselor"
|
||||
ON SELECTION BAR 6 OF Shortcut DO BAR_6_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 7 OF Shortcut PROMPT "\-"
|
||||
ON BAR 7 OF Shortcut ACTIVATE POPUP _1600p8xqz
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1600p8xqz SHORTCUT RELATIVE
|
||||
DEFINE BAR 8 OF Shortcut PROMPT "Lista de inventar"
|
||||
ON BAR 8 OF Shortcut ACTIVATE POPUP Listadeinv
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Listadeinv SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Listadeinv PROMPT "Model1"
|
||||
ON SELECTION BAR 1 OF Listadeinv DO BAR_1_OF_Listadeinv_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Listadeinv PROMPT "Model2"
|
||||
ON SELECTION BAR 2 OF Listadeinv DO BAR_2_OF_Listadeinv_FB2P
|
||||
|
||||
DEFINE BAR 9 OF Shortcut PROMPT "Evidenta MF"
|
||||
ON SELECTION BAR 9 OF Shortcut DO BAR_9_OF_Shortcut_FB2P
|
||||
ACTIVATE POPUP Shortcut
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Shortcut_FB2P
|
||||
DO list_corp_general
|
||||
ENDPROC && BAR_1_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Shortcut_FB2P
|
||||
DO list_corp_peluni
|
||||
ENDPROC && BAR_2_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Shortcut_FB2P
|
||||
DO list_corp_pegrup
|
||||
ENDPROC && BAR_3_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Shortcut_FB2P
|
||||
DO list_corp_peSECTII
|
||||
ENDPROC && BAR_4_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF_Shortcut_FB2P
|
||||
DO lista_fiselor_corp_istoric
|
||||
ENDPROC && BAR_6_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Listadeinv_FB2P
|
||||
DO caut_alf WITH 'Numegest','numegest','NUMELE GESTIUNII','M.NUMEGEST'
|
||||
IF buton=2
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
SELE numegest
|
||||
LOCATE FOR numegest=m.numegest
|
||||
SCATTER MEMVAR
|
||||
|
||||
|
||||
SELE mf
|
||||
IF m.gest=-1
|
||||
SET FILTER TO fel=" " AND !CASAT AND !INACTIV
|
||||
ELSE
|
||||
SET FILTER TO gest=m.gest AND fel=" " AND !CASAT AND !INACTIV
|
||||
ENDIF
|
||||
|
||||
SET ORDER TO scdden
|
||||
|
||||
REPORT FORM listmf_inv TO PRINTER PROMPT PREVIEW
|
||||
SELECT mf
|
||||
SET FILTER TO
|
||||
ENDPROC && BAR_1_OF_Listadeinv_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Listadeinv_FB2P
|
||||
PRIVATE pddata
|
||||
ldatacrt = "01/" + m.nl + "/" + m.an
|
||||
pddata = GOMONTH(CTOD(ldatacrt),1) - 1
|
||||
|
||||
DO caut_alf WITH 'Numegest','numegest','NUMELE GESTIUNII','M.NUMEGEST'
|
||||
IF buton=2
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
SELE numegest
|
||||
LOCATE FOR numegest=m.numegest
|
||||
SCATTER MEMVAR
|
||||
|
||||
|
||||
SELE mf
|
||||
IF m.gest=-1
|
||||
SET FILTER TO fel=" " AND !CASAT AND !INACTIV
|
||||
ELSE
|
||||
SET FILTER TO gest=m.gest AND fel=" " AND !CASAT AND !INACTIV
|
||||
ENDIF
|
||||
|
||||
*SET ORDER TO scdden
|
||||
Index On str(gest,4)+Str(Val(nrinv)) Tag SCDNRINV Of &LOC\&NFSCURT\TEMPO\mfi Ascending
|
||||
|
||||
REPORT FORM nota_inv2005 TO PRINTER PROMPT PREVIEW
|
||||
SET INDEX TO
|
||||
SELECT mf
|
||||
SET FILTER TO
|
||||
ENDPROC && BAR_2_OF_Listadeinv_FB2P
|
||||
|
||||
PROCEDURE BAR_9_OF_Shortcut_FB2P
|
||||
DO evidenta_mf
|
||||
|
||||
ENDPROC && BAR_9_OF_Shortcut_FB2P
|
||||
|
||||
*</Procedures>
|
||||
@@ -1,41 +0,0 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="listincurs.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Shortcut PROMPT "Model1"
|
||||
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Shortcut PROMPT "Model2"
|
||||
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
|
||||
ACTIVATE POPUP Shortcut
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Shortcut_FB2P
|
||||
Select mf
|
||||
Set Filter To Upper(fel)="C" And !CASAT
|
||||
*INDEX ON ALLTRIM(nrinv)+DTOS(dataact) TAG datapif of &loc\&nfscurt\tempo\mfi
|
||||
Index On Padr(scd,4," ")+Str(Val(nrinv)) Tag SCDNRINV Of &LOC\&NFSCURT\TEMPO\mfi Ascending
|
||||
Report Form listimobcurs To Printer Prompt Preview
|
||||
ENDPROC && BAR_1_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Shortcut_FB2P
|
||||
PRIVATE pddata
|
||||
ldatacrt = "01/" + m.nl + "/" + m.an
|
||||
pddata = GOMONTH(CTOD(ldatacrt),1) - 1
|
||||
|
||||
Select mf
|
||||
Set Filter To Upper(fel)="C" And !CASAT
|
||||
*INDEX ON ALLTRIM(nrinv)+DTOS(dataact) TAG datapif of &loc\&nfscurt\tempo\mfi
|
||||
Index On str(gest,4)+Str(Val(nrinv)) Tag SCDNRINV Of &LOC\&NFSCURT\TEMPO\mfi Ascending
|
||||
Report Form nota_inv2005 To Printer Prompt Preview
|
||||
ENDPROC && BAR_2_OF_Shortcut_FB2P
|
||||
|
||||
*</Procedures>
|
||||
@@ -1,126 +0,0 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="listnecorp.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Shortcut PROMPT "Cu Total \<General"
|
||||
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Shortcut PROMPT "Cu Totaluri pe \<Luni"
|
||||
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Shortcut PROMPT "Cu Totaluri pe \<Grupe"
|
||||
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Shortcut PROMPT "Cu Totaluri pe Sectie"
|
||||
ON SELECTION BAR 4 OF Shortcut DO BAR_4_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 5 OF Shortcut PROMPT "\-"
|
||||
ON BAR 5 OF Shortcut ACTIVATE POPUP _11d0ud149
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _11d0ud149 SHORTCUT RELATIVE
|
||||
DEFINE BAR 6 OF Shortcut PROMPT "\<Lista fiselor"
|
||||
ON SELECTION BAR 6 OF Shortcut DO BAR_6_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 7 OF Shortcut PROMPT "\-"
|
||||
ON BAR 7 OF Shortcut ACTIVATE POPUP _1600pa0of
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1600pa0of SHORTCUT RELATIVE
|
||||
DEFINE BAR 8 OF Shortcut PROMPT "\<Lista de inventar"
|
||||
ON BAR 8 OF Shortcut ACTIVATE POPUP Listadeinv
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Listadeinv SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Listadeinv PROMPT "Model1"
|
||||
ON SELECTION BAR 1 OF Listadeinv DO BAR_1_OF_Listadeinv_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Listadeinv PROMPT "Model2"
|
||||
ON SELECTION BAR 2 OF Listadeinv DO BAR_2_OF_Listadeinv_FB2P
|
||||
ACTIVATE POPUP Shortcut
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Shortcut_FB2P
|
||||
DO list_necorp_general
|
||||
ENDPROC && BAR_1_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Shortcut_FB2P
|
||||
DO list_necorp_peluni
|
||||
ENDPROC && BAR_2_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Shortcut_FB2P
|
||||
DO list_necorp_pegrup
|
||||
ENDPROC && BAR_3_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Shortcut_FB2P
|
||||
DO list_corp_peSECTII WITH 'N'
|
||||
ENDPROC && BAR_4_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF_Shortcut_FB2P
|
||||
DO lista_fiselor_necorp
|
||||
ENDPROC && BAR_6_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Listadeinv_FB2P
|
||||
|
||||
DO caut_alf WITH 'Numegest','numegest','NUMELE GESTIUNII','M.NUMEGEST'
|
||||
IF buton=2
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
SELE numegest
|
||||
LOCATE FOR numegest=m.numegest
|
||||
SCATTER MEMVAR
|
||||
|
||||
|
||||
SELE mf
|
||||
IF m.gest=-1
|
||||
SET FILTER TO UPPER(fel)='N' AND !CASAT AND !INACTIV
|
||||
ELSE
|
||||
SET FILTER TO gest=m.gest AND UPPER(fel)='N' AND !CASAT AND !INACTIV
|
||||
ENDIF
|
||||
SET ORDER TO scdden
|
||||
|
||||
REPORT FORM listmf_inv TO PRINTER PROMPT PREVIEW
|
||||
|
||||
SELECT mf
|
||||
SET FILTER TO
|
||||
ENDPROC && BAR_1_OF_Listadeinv_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Listadeinv_FB2P
|
||||
Private pddata
|
||||
|
||||
ldatacrt = "01/" + m.nl + "/" + m.an
|
||||
pddata = Gomonth(Ctod(ldatacrt),1) - 1
|
||||
|
||||
Do caut_alf With 'Numegest','numegest','NUMELE GESTIUNII','M.NUMEGEST'
|
||||
If buton=2
|
||||
Return
|
||||
Endif
|
||||
|
||||
Sele numegest
|
||||
Locate For numegest=m.numegest
|
||||
Scatter Memvar
|
||||
|
||||
Sele mf
|
||||
If m.gest=-1
|
||||
Set Filter To fel="N" And !CASAT AND !INACTIV
|
||||
Else
|
||||
Set Filter To gest=m.gest And fel="N" And !CASAT AND !INACTIV
|
||||
Endif
|
||||
|
||||
Set Order To scdden
|
||||
|
||||
Report Form nota_inv2005 To Printer Prompt Preview
|
||||
Select mf
|
||||
Set Filter To
|
||||
ENDPROC && BAR_2_OF_Listadeinv_FB2P
|
||||
|
||||
*</Procedures>
|
||||
@@ -1,421 +0,0 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="mfix2000.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"
|
||||
|
||||
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" ;
|
||||
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"
|
||||
ON SELECTION BAR 2 OF OptiuniSis DO BAR_2_OF_OptiuniSis_FB2P
|
||||
|
||||
DEFINE BAR 3 OF OptiuniSis PROMPT "\-"
|
||||
ON SELECTION BAR 3 OF OptiuniSis
|
||||
|
||||
DEFINE BAR 4 OF OptiuniSis PROMPT "\Inchid fundalul"
|
||||
ON SELECTION BAR 4 OF OptiuniSis goApp.ReleaseForm
|
||||
|
||||
DEFINE BAR 2 OF Utile PROMPT "\-"
|
||||
ON BAR 2 OF Utile ACTIVATE POPUP _rap18gw4b
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _rap18gw4b MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 3 OF Utile PROMPT "\<Reindexare"
|
||||
ON SELECTION BAR 3 OF Utile DO BAR_3_OF_Utile_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Utile PROMPT "\-"
|
||||
ON BAR 4 OF Utile ACTIVATE POPUP _0x60jnn96
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0x60jnn96 MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 5 OF Utile PROMPT "\<Calculator"
|
||||
ON SELECTION BAR 5 OF Utile DO BAR_5_OF_Utile_FB2P
|
||||
|
||||
DEFINE BAR 6 OF Utile PROMPT "C\<alendar"
|
||||
ON SELECTION BAR 6 OF Utile DO BAR_6_OF_Utile_FB2P
|
||||
|
||||
DEFINE BAR 7 OF Utile PROMPT "\<Notepad"
|
||||
ON SELECTION BAR 7 OF Utile DO BAR_7_OF_Utile_FB2P
|
||||
|
||||
DEFINE BAR 8 OF Utile PROMPT "\-"
|
||||
ON BAR 8 OF Utile ACTIVATE POPUP _0310yhezd
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0310yhezd MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 9 OF Utile PROMPT "\<Iesire" ;
|
||||
KEY F2, "F2" ;
|
||||
MESSAGE "Quits Visual FoxPro"
|
||||
ON SELECTION BAR 9 OF Utile DO BAR_9_OF_Utile_FB2P
|
||||
|
||||
DEFINE PAD _000000002 OF _msysmenu PROMPT "\<Editare" COLOR SCHEME 3 ;
|
||||
KEY ALT+E, "ALT+E"
|
||||
|
||||
ON PAD _000000002 OF _msysmenu ACTIVATE POPUP Editare
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Editare MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR _med_copy OF Editare PROMPT "\<Copiaza" ;
|
||||
KEY CTRL+C, "Ctrl+C" ;
|
||||
MESSAGE "Copies the selection onto the Clipboard"
|
||||
|
||||
DEFINE BAR _med_paste OF Editare PROMPT "\<Reda" ;
|
||||
KEY CTRL+V, "Ctrl+V" ;
|
||||
MESSAGE "Pastes the contents of the Clipboard"
|
||||
|
||||
DEFINE PAD _000000003 OF _msysmenu PROMPT "\<Initializare" COLOR SCHEME 3 ;
|
||||
KEY ALT+I, "ALT+I"
|
||||
|
||||
ON PAD _000000003 OF _msysmenu ACTIVATE POPUP Initializa
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Initializa MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 1 OF Initializa PROMPT "\<Seria periodica" ;
|
||||
SKIP FOR !LUNA_NEPLATITA OR !glimobIndependent or luna_inchisa
|
||||
ON SELECTION BAR 1 OF Initializa DO BAR_1_OF_Initializa_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Initializa PROMPT "\<Activare RON" ;
|
||||
SKIP FOR verific_rolronsnr(calefirma)
|
||||
ON SELECTION BAR 2 OF Initializa do form frm_activare_ron
|
||||
|
||||
DEFINE BAR 3 OF Initializa PROMPT "\-"
|
||||
ON BAR 3 OF Initializa ACTIVATE POPUP _0mc0k9eoa
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0mc0k9eoa MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 4 OF Initializa PROMPT "\<Deschidere de luna noua" ;
|
||||
SKIP FOR luna_neplatita OR !ultima_luna OR !glimobIndependent or luna_inchisa
|
||||
ON SELECTION BAR 4 OF Initializa DO BAR_4_OF_Initializa_FB2P
|
||||
|
||||
DEFINE BAR 5 OF Initializa PROMPT "\<Redeschidere de luna" ;
|
||||
SKIP FOR luna_inchisa
|
||||
ON SELECTION BAR 5 OF Initializa DO BAR_5_OF_Initializa_FB2P
|
||||
|
||||
DEFINE BAR 6 OF Initializa PROMPT "\<Firma noua" ;
|
||||
SKIP FOR luna_neplatita OR !ultima_luna OR !glimobIndependent
|
||||
ON SELECTION BAR 6 OF Initializa DO BAR_6_OF_Initializa_FB2P
|
||||
|
||||
DEFINE BAR 7 OF Initializa PROMPT "\-"
|
||||
ON BAR 7 OF Initializa ACTIVATE POPUP _11d0uufgm
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _11d0uufgm MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 8 OF Initializa PROMPT "\<Blocare de luna"
|
||||
ON BAR 8 OF Initializa ACTIVATE POPUP Blocaredel
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Blocaredel MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 1 OF Blocaredel PROMPT "\<Situatia lunilor blocate"
|
||||
ON SELECTION BAR 1 OF Blocaredel DO BAR_1_OF_Blocaredel_FB2P
|
||||
|
||||
DEFINE BAR 9 OF Initializa PROMPT "\-"
|
||||
ON BAR 9 OF Initializa ACTIVATE POPUP _1gh0lyccd
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1gh0lyccd MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 10 OF Initializa PROMPT "\<Gestiuni"
|
||||
ON SELECTION BAR 10 OF Initializa DO BAR_10_OF_Initializa_FB2P
|
||||
|
||||
DEFINE BAR 11 OF Initializa PROMPT "\<Sectii"
|
||||
ON SELECTION BAR 11 OF Initializa DO BAR_11_OF_Initializa_FB2P
|
||||
|
||||
DEFINE BAR 12 OF Initializa PROMPT "\-"
|
||||
ON BAR 12 OF Initializa ACTIVATE POPUP _0750xicgr
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0750xicgr MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 13 OF Initializa PROMPT "\<Conversie conturi"
|
||||
ON SELECTION BAR 13 OF Initializa DO BAR_13_OF_Initializa_FB2P
|
||||
|
||||
DEFINE BAR 14 OF Initializa PROMPT "\<Conturi de amortizare"
|
||||
ON SELECTION BAR 14 OF Initializa DO BAR_14_OF_Initializa_FB2P
|
||||
|
||||
DEFINE BAR 15 OF Initializa PROMPT "\<Conversie coduri 2005"
|
||||
ON SELECTION BAR 15 OF Initializa DO BAR_15_OF_Initializa_FB2P
|
||||
|
||||
DEFINE BAR 16 OF Initializa PROMPT "\-"
|
||||
ON BAR 16 OF Initializa ACTIVATE POPUP _1il0l5woq
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1il0l5woq MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 17 OF Initializa PROMPT "Optiuni"
|
||||
ON SELECTION BAR 17 OF Initializa DO BAR_17_OF_Initializa_FB2P
|
||||
|
||||
DEFINE PAD _000000004 OF _msysmenu PROMPT "\<Ajutor" COLOR SCHEME 3 ;
|
||||
KEY ALT+A, "ALT+A"
|
||||
|
||||
ON PAD _000000004 OF _msysmenu ACTIVATE POPUP Ajutor
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Ajutor MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 1 OF Ajutor PROMPT "\<Instructiuni de utilizare"
|
||||
ON SELECTION BAR 1 OF Ajutor DO BAR_1_OF_Ajutor_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Ajutor PROMPT "\-"
|
||||
ON BAR 2 OF Ajutor ACTIVATE POPUP _1gf0kwo4s
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1gf0kwo4s MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 3 OF Ajutor PROMPT "\<Grupe de amortizare"
|
||||
ON SELECTION BAR 3 OF Ajutor DO BAR_3_OF_Ajutor_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Ajutor PROMPT "\<Grupe de amortizare - 2005"
|
||||
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 _0030m57rm
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0030m57rm MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 6 OF Ajutor PROMPT "\<Despre program..."
|
||||
ON SELECTION BAR 6 OF Ajutor DO BAR_6_OF_Ajutor_FB2P
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_OptiuniSis_FB2P
|
||||
OSC=CREATE('schimbparola')
|
||||
OSC.SHOW(1)
|
||||
ENDPROC && BAR_1_OF_OptiuniSis_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_OptiuniSis_FB2P
|
||||
OP=CREATE('parola')
|
||||
OP.SHOW(1)
|
||||
|
||||
if corect
|
||||
or=create('redirect')
|
||||
or.show(1)
|
||||
endif
|
||||
|
||||
ENDPROC && BAR_2_OF_OptiuniSis_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Utile_FB2P
|
||||
DO reindexare.prg WITH ['GCAPPPATH'$UPPER(CALEALFA)]
|
||||
ENDPROC && BAR_3_OF_Utile_FB2P
|
||||
|
||||
PROCEDURE BAR_5_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_5_OF_Utile_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF_Utile_FB2P
|
||||
ocal=crea('diary')
|
||||
ocal.show(1)
|
||||
ENDPROC && BAR_6_OF_Utile_FB2P
|
||||
|
||||
PROCEDURE BAR_7_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_7_OF_Utile_FB2P
|
||||
|
||||
PROCEDURE BAR_9_OF_Utile_FB2P
|
||||
quit
|
||||
ENDPROC && BAR_9_OF_Utile_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Initializa_FB2P
|
||||
LOCAL LL,AA
|
||||
LL=M.NL
|
||||
AA=M.AN
|
||||
|
||||
osp=crea('seriaper')
|
||||
osp.show(1)
|
||||
|
||||
M.AN=AA
|
||||
M.NL=LL
|
||||
*OSTART.SHOW(1)
|
||||
ENDPROC && BAR_1_OF_Initializa_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Initializa_FB2P
|
||||
|
||||
PRIVATE pnLunaMax,pnAnMax,pnLunaNew,pnAnNew,pcLunaMax,pcAnMax,pcLunaNew,pcAnNew,pcNumeLuna
|
||||
LOCAL lcAnCrt, lcLunaCrt
|
||||
|
||||
lcAnCrt = m.an
|
||||
lcLunaCrt = m.nl
|
||||
|
||||
SELE CALENDAR
|
||||
GOTO BOTTOM
|
||||
|
||||
pcLunaMax = nl
|
||||
pcAnMax = AN
|
||||
pnLunaMax=VAL(pcLunaMax)
|
||||
pnAnMax=VAL(pcAnMax)
|
||||
|
||||
IF pnLunaMax = 12 THEN
|
||||
pnAnNew = pnAnMax+1
|
||||
pnLunaNew = 1
|
||||
pcAnNew = ALLTRIM(STR(pnAnNew))
|
||||
pcLunaNew = '01'
|
||||
ELSE
|
||||
pnAnNew = pnAnMax
|
||||
pnLunaNew = pnLunaMax + 1
|
||||
pcAnNew = pcAnMax
|
||||
pcLunaNew = PADL(ALLTRIM(STR(pnLunaNew)),2,'0')
|
||||
ENDIF
|
||||
|
||||
SELE lunilean
|
||||
SEEK(pcLunaNew)
|
||||
pcNumeLuna = ALLTRIM(numeluna)
|
||||
|
||||
oT=CREATEOBJ("TEXTR")
|
||||
oT.LABEL2.CAPTION = "Deschidere de luna noua:"
|
||||
oT.label3.CAPTION = 'Se deschide luna ' + pcNumeLuna + ' ' + pcAnNew + '?'
|
||||
oT.label3.FONTBOLD= .T.
|
||||
oT.SHOW(1)
|
||||
|
||||
IF BUTON=2
|
||||
m.an = lcAnCrt
|
||||
m.nl = lcLunaCrt
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
*DO DESCHIDL.PRG
|
||||
DO deschid_luna_noua WITH pcAnNew, pcLunaNew IN redeschidere.prg
|
||||
DO redeschid_luna WITH pcAnNew, pcLunaNew IN redeschidere.prg
|
||||
|
||||
luna_neplatita=.T.
|
||||
|
||||
OT1=CREATEOBJ("TEXT")
|
||||
OT1.LABEL2.CAPTION= "Am deschis luna:"
|
||||
OT1.label3.CAPTION= pcNumeLuna + ' ' + pcAnNew
|
||||
OT1.label3.FONTBOLD=.T.
|
||||
OT1.SHOW(1)
|
||||
|
||||
lcFscurt = ALLTRIM(nfscurt)
|
||||
lcFisS = "start_meniuri"
|
||||
lcFisF = "sfirma"
|
||||
adfirmaluna(lcFscurt,pcAnNew,pcLunaNew,lcFisS)
|
||||
adfirmaluna(lcFscurt,pcAnNew,pcLunaNew,lcFisF)
|
||||
|
||||
NUMEFIRMA=UPPER(RTRIM(m.flung))
|
||||
capapl = gcAppCaption + " Firma "+ NUMEFIRMA + "- Luna contabila: "+ pcNumeLuna + ' ' + pcAnNew
|
||||
goApp.SetCaption(capapl)
|
||||
|
||||
DO totv
|
||||
|
||||
|
||||
|
||||
|
||||
ENDPROC && BAR_4_OF_Initializa_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF_Initializa_FB2P
|
||||
*do redeschid
|
||||
DO redeschid_luna IN redeschidere.prg
|
||||
ENDPROC && BAR_5_OF_Initializa_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF_Initializa_FB2P
|
||||
do form startfirma
|
||||
ENDPROC && BAR_6_OF_Initializa_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Blocaredel_FB2P
|
||||
*!* orp=CREATE('parola')
|
||||
*!* orp.SHOW(1)
|
||||
*!* IF buton=3
|
||||
SELECT calendar
|
||||
GO BOTTOM
|
||||
DO FORM inchidluni
|
||||
*!* ENDIF
|
||||
|
||||
|
||||
ENDPROC && BAR_1_OF_Blocaredel_FB2P
|
||||
|
||||
PROCEDURE BAR_10_OF_Initializa_FB2P
|
||||
oge=create('afgest')
|
||||
oge.show(1)
|
||||
ENDPROC && BAR_10_OF_Initializa_FB2P
|
||||
|
||||
PROCEDURE BAR_11_OF_Initializa_FB2P
|
||||
ose=create('nom_sectii')
|
||||
ose.show(1)
|
||||
ENDPROC && BAR_11_OF_Initializa_FB2P
|
||||
|
||||
PROCEDURE BAR_13_OF_Initializa_FB2P
|
||||
DO FORM conversie
|
||||
ENDPROC && BAR_13_OF_Initializa_FB2P
|
||||
|
||||
PROCEDURE BAR_14_OF_Initializa_FB2P
|
||||
DO FORM contamort
|
||||
ENDPROC && BAR_14_OF_Initializa_FB2P
|
||||
|
||||
PROCEDURE BAR_15_OF_Initializa_FB2P
|
||||
DO FORM conversie_2005
|
||||
ENDPROC && BAR_15_OF_Initializa_FB2P
|
||||
|
||||
PROCEDURE BAR_17_OF_Initializa_FB2P
|
||||
opt = CREATEOBJECT('frm_optiuni')
|
||||
opt.show(1)
|
||||
ENDPROC && BAR_17_OF_Initializa_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Ajutor_FB2P
|
||||
*!* *oh=create('help_leg')
|
||||
*!* *oh.show(1)
|
||||
*!* IF FILE('&dirgen\imob2003\help\ajutor_imob.exe')
|
||||
*!* CD &dirgen\imob2003\help
|
||||
*!* RUN /n ajutor_imob.exe
|
||||
*!* ELSE
|
||||
*!* DO mesaj WITH 'Programul de ajutor nu a fost instalat',''
|
||||
*!* endif
|
||||
LOCAL cSite
|
||||
cSite = ADDBS(dirgen)+"manual\prezentare_imob.htm"
|
||||
IF !FILE(csite)
|
||||
DO mesaj WITH "Nu a fost instalat manualul de utilizare",""
|
||||
RETURN
|
||||
ENDIF
|
||||
oBrowser=CREATEOBJECT("internetexplorer.application")
|
||||
oBrowser.Navigate(cSite)
|
||||
oBrowser.Visible = .T.
|
||||
ENDPROC && BAR_1_OF_Ajutor_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Ajutor_FB2P
|
||||
SELE norma
|
||||
SCATTER NAME onorma BLANK
|
||||
otr=CREATEOBJECT('normatree')
|
||||
*otr.cmdtermin1.caption='\<TERMINAT'
|
||||
otr.show(1)
|
||||
ENDPROC && BAR_3_OF_Ajutor_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Ajutor_FB2P
|
||||
SELE norma_2005
|
||||
SCATTER NAME onorma BLANK
|
||||
otr=CREATEOBJECT('normatree_2005')
|
||||
otr.show(1)
|
||||
ENDPROC && BAR_4_OF_Ajutor_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF_Ajutor_FB2P
|
||||
DO FORM FRM_ABOUT
|
||||
ENDPROC && BAR_6_OF_Ajutor_FB2P
|
||||
|
||||
*</Procedures>
|
||||
@@ -1,31 +0,0 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="sitana.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Shortcut PROMPT "Inchidere Mijloace Fixe" ;
|
||||
SKIP FOR e_independent
|
||||
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Shortcut PROMPT "Inchidere Imobilizari necorporale" ;
|
||||
SKIP FOR e_independent
|
||||
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
|
||||
ACTIVATE POPUP Shortcut
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Shortcut_FB2P
|
||||
DO list_inchid_amortizari
|
||||
ENDPROC && BAR_1_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Shortcut_FB2P
|
||||
DO list_inchid_amortizari_nec
|
||||
ENDPROC && BAR_2_OF_Shortcut_FB2P
|
||||
|
||||
*</Procedures>
|
||||
@@ -1,3 +1,11 @@
|
||||
<!--
|
||||
24/08/2026
|
||||
ROAIMOB - 2.1.45
|
||||
|
||||
:modificare:
|
||||
Introducere imobilizare corporala/necorporala. S-a adaugat bifa de activare a amortizarii maxime deductibile, ca la modificarea imobilizarii. Daca bifa nu este activata, toata amortizarea este considerata deductibila.
|
||||
-->
|
||||
|
||||
<!--
|
||||
24/07/2026
|
||||
ROAIMOB - 2.1.44
|
||||
|
||||
196
teste/test_chk_amort_introducere.prg
Normal file
196
teste/test_chk_amort_introducere.prg
Normal file
@@ -0,0 +1,196 @@
|
||||
* test_chk_amort_introducere.prg
|
||||
* Test headless pentru "bifa amortizare maxim deductibila la introducere imobilizare
|
||||
* corporala" (frm_introducere din Clase\oimobilizari.vc2).
|
||||
*
|
||||
* Verifica:
|
||||
* 1) formularul frm_introducere se instantiaza fara eroare (obiectul chk_amort_max_deductibil
|
||||
* e adaugat corect, metoda .Valid se leaga)
|
||||
* 2) la introducere noua (tnTipModificare=1): bifa NEACTIVA, campul read-only, valoarea NULL
|
||||
* (toata amortizarea deductibila)
|
||||
* 3) activarea bifei -> campul devine editabil, valoarea 0; dezactivarea -> NULL din nou
|
||||
* 4) expresia de salvare pcAmortMaxDeductibil -> 'NULL' la debifat / valoarea la bifat
|
||||
*
|
||||
* Rulare: vfp9.exe -A -T "test_chk_amort_introducere.prg"
|
||||
* (DO test_init_env_auto_roaimob din acelasi folder, cu DSN CENTRAL / schema MARIUSM_AUTO)
|
||||
* Verdict in test_chk_amort_introducere_log.txt (langa acest fisier).
|
||||
|
||||
SET SAFETY OFF
|
||||
SET TALK OFF
|
||||
SET DELETED ON
|
||||
SET EXACT ON
|
||||
SET CENTURY ON
|
||||
SET DATE DMY
|
||||
SET NULLDISPLAY TO ''
|
||||
CLOSE DATABASES
|
||||
|
||||
PUBLIC gcUILog
|
||||
gcUILog = "D:\ROA\ROAIMOB\teste\test_chk_amort_introducere_log.txt"
|
||||
STRTOFILE("START " + TTOC(DATETIME()) + CHR(13)+CHR(10), gcUILog)
|
||||
|
||||
ON ERROR DO PrErrLocal WITH ERROR(), MESSAGE(), PROGRAM(), LINENO()
|
||||
ON SHUTDOWN QUIT
|
||||
|
||||
TRY
|
||||
DO "D:\ROA\ROAIMOB\teste\test_init_env_auto_roaimob.prg" WITH 'CENTRAL', 'MARIUSM_AUTO', 'ROMFASTSOFT'
|
||||
IF gnHandle <= 0
|
||||
DO PrLogLocal WITH 'FAIL: conectare Oracle esuata (gnHandle=' + TRANSFORM(gnHandle) + ')'
|
||||
QUIT
|
||||
ENDIF
|
||||
DO PrLogLocal WITH 'mediu ROAIMOB initializat'
|
||||
|
||||
*-- variabile globale de care depinde formularul
|
||||
PUBLIC gnPa, gnPC
|
||||
gnPa = 2
|
||||
gnPC = 2
|
||||
gnIdSucursala = gnIdFirma
|
||||
|
||||
*-- cursorii pe care ii folosesc combobox-urile formularului (v_tipuri_amort, v_tipuri_imob, cote_TVA)
|
||||
IF USED('v_tipuri_amort')
|
||||
USE IN v_tipuri_amort
|
||||
ENDIF
|
||||
CREATE CURSOR v_tipuri_amort (denumire C(30), id_tip_amortizare N(4))
|
||||
INSERT INTO v_tipuri_amort (denumire, id_tip_amortizare) VALUES ('LINIARA', 1)
|
||||
INSERT INTO v_tipuri_amort (denumire, id_tip_amortizare) VALUES ('ACCELERATA', 2)
|
||||
|
||||
IF USED('v_tipuri_imob')
|
||||
USE IN v_tipuri_imob
|
||||
ENDIF
|
||||
CREATE CURSOR v_tipuri_imob (denumire C(30), id_tip_imobilizare N(4))
|
||||
INSERT INTO v_tipuri_imob (denumire, id_tip_imobilizare) VALUES ('CORPORALA', 1)
|
||||
|
||||
IF USED('cote_TVA')
|
||||
USE IN cote_TVA
|
||||
ENDIF
|
||||
CREATE CURSOR cote_TVA (procent N(6,2), descriere C(40), id_proc_tva N(4), proc_tva N(6,2))
|
||||
INSERT INTO cote_TVA (procent, descriere, id_proc_tva, proc_tva) VALUES (1.19, 'standard', 1, 1.19)
|
||||
|
||||
*-- stub poGeneratorNumere pentru apelul poGeneratorNumere.aloca_numar din Init (tnTipModificare=1)
|
||||
PUBLIC poGeneratorNumere
|
||||
poGeneratorNumere = CREATEOBJECT('stub_generator')
|
||||
|
||||
*-- poMF trebuie sa existe ca variabila (formularul il foloseste in metode)
|
||||
PUBLIC poMF
|
||||
poMF = CREATEOBJECT('custom')
|
||||
|
||||
DO PrLogLocal WITH 'cursori + stubs pregatite'
|
||||
|
||||
*-- instantiez formularul real (introducere imobilizare CORPORALA = tnTip 1, modificare 1)
|
||||
LOCAL ofrm
|
||||
ofrm = CREATEOBJECT('frm_intro_test', 1, 1)
|
||||
DO PrLogLocal WITH 'frm_introducere instantiat OK'
|
||||
DO PrLogLocal WITH 'chk exista: ' + TRANSFORM(PEMSTATUS(ofrm, 'chk_amort_max_deductibil', 5))
|
||||
|
||||
*-- 1) stare initiala la introducere noua (INANTE de orice modificare)
|
||||
LOCAL lcStare1
|
||||
lcStare1 = 'bifa=' + TRANSFORM(ofrm.chk_amort_max_deductibil.Value) + ;
|
||||
' readonly=' + TRANSFORM(ofrm.clb_amort_max_deductibil.text_simplu1.ReadOnly) + ;
|
||||
' valoare=[' + TRANSFORM(ofrm.clb_amort_max_deductibil.text_simplu1.Value) + ']'
|
||||
DO PrLogLocal WITH 'stare initiala: ' + lcStare1
|
||||
|
||||
*-- stare initiala trebuie sa fie: bifa .F., readonly .T., valoare NULL
|
||||
LOCAL llBifaNeactiva, llReadOnly, llNull, llOk
|
||||
llBifaNeactiva = (ofrm.chk_amort_max_deductibil.Value = .F.)
|
||||
llReadOnly = (ofrm.clb_amort_max_deductibil.text_simplu1.ReadOnly = .T.)
|
||||
llNull = ISNULL(ofrm.clb_amort_max_deductibil.text_simplu1.Value)
|
||||
llOk = (m.llBifaNeactiva AND m.llReadOnly AND m.llNull)
|
||||
IF m.llOk
|
||||
DO PrLogLocal WITH 'PASS: stare initiala corecta (bifa neactiva, camp read-only, valoare NULL = toata amortizarea deductibila)'
|
||||
ELSE
|
||||
DO PrLogLocal WITH 'FAIL: stare initiala incorecta (bifa=' + TRANSFORM(m.llBifaNeactiva) + ;
|
||||
' readonly=' + TRANSFORM(m.llReadOnly) + ' null=' + TRANSFORM(m.llNull) + ')'
|
||||
ENDIF
|
||||
|
||||
*-- 2) activez bifa -> camp editabil, valoare 0
|
||||
ofrm.chk_amort_max_deductibil.Value = .T.
|
||||
ofrm.chk_amort_max_deductibil.Valid()
|
||||
LOCAL llToggleOk
|
||||
llToggleOk = (ofrm.clb_amort_max_deductibil.text_simplu1.ReadOnly = .F.) ;
|
||||
AND (ofrm.clb_amort_max_deductibil.text_simplu1.Value = 0)
|
||||
DO PrLogLocal WITH 'dupa activare bifa: readonly=' + TRANSFORM(ofrm.clb_amort_max_deductibil.text_simplu1.ReadOnly) + ;
|
||||
' valoare=[' + TRANSFORM(ofrm.clb_amort_max_deductibil.text_simplu1.Value) + ']'
|
||||
IF m.llToggleOk
|
||||
DO PrLogLocal WITH 'PASS: activarea bifei face campul editabil cu valoare 0'
|
||||
ELSE
|
||||
DO PrLogLocal WITH 'FAIL: activarea bifei nu a activat campul corect'
|
||||
m.llOk = .F.
|
||||
ENDIF
|
||||
|
||||
*-- 3) dezactivez bifa -> NULL din nou, camp read-only
|
||||
ofrm.chk_amort_max_deductibil.Value = .F.
|
||||
ofrm.chk_amort_max_deductibil.Valid()
|
||||
LOCAL llDezOk
|
||||
llDezOk = (ofrm.clb_amort_max_deductibil.text_simplu1.ReadOnly = .T.) ;
|
||||
AND ISNULL(ofrm.clb_amort_max_deductibil.text_simplu1.Value)
|
||||
DO PrLogLocal WITH 'dupa dezactivare bifa: readonly=' + TRANSFORM(ofrm.clb_amort_max_deductibil.text_simplu1.ReadOnly) + ;
|
||||
' valoare=[' + TRANSFORM(ofrm.clb_amort_max_deductibil.text_simplu1.Value) + ']'
|
||||
IF m.llDezOk
|
||||
DO PrLogLocal WITH 'PASS: dezactivarea bifei revine la NULL + read-only'
|
||||
ELSE
|
||||
DO PrLogLocal WITH 'FAIL: dezactivarea bifei nu a revenit la NULL'
|
||||
m.llOk = .F.
|
||||
ENDIF
|
||||
|
||||
*-- 4) expresia de salvare pcAmortMaxDeductibil
|
||||
LOCAL pcAmortMaxDeductibil, pnAmortMaxDeductibil, lcSaveNull, lcSaveVal
|
||||
ofrm.chk_amort_max_deductibil.Value = .F.
|
||||
ofrm.chk_amort_max_deductibil.Valid()
|
||||
pnAmortMaxDeductibil = ofrm.clb_amort_max_deductibil.text_simplu1.Value
|
||||
pcAmortMaxDeductibil = IIF(ISNULL(m.pnAmortMaxDeductibil), 'NULL', ALLTRIM(STR(m.pnAmortMaxDeductibil, 14, gnPC)))
|
||||
lcSaveNull = m.pcAmortMaxDeductibil
|
||||
DO PrLogLocal WITH 'pcAmortMaxDeductibil (debifat) = [' + lcSaveNull + ']'
|
||||
|
||||
ofrm.chk_amort_max_deductibil.Value = .T.
|
||||
ofrm.chk_amort_max_deductibil.Valid()
|
||||
ofrm.clb_amort_max_deductibil.text_simplu1.Value = 1500
|
||||
pnAmortMaxDeductibil = ofrm.clb_amort_max_deductibil.text_simplu1.Value
|
||||
pcAmortMaxDeductibil = IIF(ISNULL(m.pnAmortMaxDeductibil), 'NULL', ALLTRIM(STR(m.pnAmortMaxDeductibil, 14, gnPC)))
|
||||
lcSaveVal = m.pcAmortMaxDeductibil
|
||||
DO PrLogLocal WITH 'pcAmortMaxDeductibil (bifat=1500) = [' + lcSaveVal + ']'
|
||||
|
||||
LOCAL llSaveOk
|
||||
llSaveOk = (m.lcSaveNull == 'NULL') AND (VAL(m.lcSaveVal) = 1500)
|
||||
IF m.llSaveOk
|
||||
DO PrLogLocal WITH 'PASS: pcAmortMaxDeductibil corect (NULL la debifat, valoare la bifat)'
|
||||
ELSE
|
||||
DO PrLogLocal WITH 'FAIL: pcAmortMaxDeductibil incorect (debifat=[' + m.lcSaveNull + '] bifat=[' + m.lcSaveVal + '])'
|
||||
m.llOk = .F.
|
||||
ENDIF
|
||||
|
||||
DO PrLogLocal WITH 'VERDICT: ' + IIF(m.llOk, 'PASS', 'FAIL')
|
||||
DO PrLogLocal WITH 'GATA'
|
||||
CATCH TO loExcMain
|
||||
DO PrLogLocal WITH 'CATCH ErrorNo=' + TRANSFORM(loExcMain.ErrorNo) + ' Message=' + loExcMain.Message + ;
|
||||
' Proc=' + loExcMain.Procedure + ' Line=' + TRANSFORM(loExcMain.LineNo) + ' [' + loExcMain.LineContents + ']'
|
||||
ENDTRY
|
||||
|
||||
QUIT
|
||||
|
||||
PROCEDURE PrErrLocal
|
||||
LPARAMETERS tnErr, tcMsg, tcProg, tnLine
|
||||
DO PrLogLocal WITH 'ON ERROR ' + TRANSFORM(tnErr) + ' [' + tcProg + ':' + TRANSFORM(tnLine) + '] ' + tcMsg
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE PrLogLocal
|
||||
LPARAMETERS tcMsg
|
||||
SET SAFETY OFF
|
||||
LOCAL lcL
|
||||
lcL = IIF(FILE(gcUILog), FILETOSTR(gcUILog), '')
|
||||
STRTOFILE(lcL + tcMsg + CHR(13)+CHR(10), gcUILog)
|
||||
ENDPROC
|
||||
|
||||
* DEFINE CLASS la finalul fisierului (capcana: DEFINE CLASS nu poate sta la mijloc)
|
||||
DEFINE CLASS stub_generator AS custom
|
||||
PROCEDURE aloca_numar
|
||||
LPARAMETERS tnTipDoc, tnTip
|
||||
RETURN 1
|
||||
ENDPROC
|
||||
PROCEDURE ResetAll
|
||||
ENDPROC
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS frm_intro_test AS frm_introducere
|
||||
PROCEDURE Load
|
||||
* suprascriu Load-ul parinte (_frm_base), care ar deschide o fereastra de atentionare
|
||||
* daca cselect/ccursor sunt goale
|
||||
ENDPROC
|
||||
ENDDEFINE
|
||||
239
teste/test_init_env_auto_roaimob.prg
Normal file
239
teste/test_init_env_auto_roaimob.prg
Normal file
@@ -0,0 +1,239 @@
|
||||
* test_init_env_auto_roaimob.prg
|
||||
* Varianta ROAIMOB a test_init_env_auto.prg (COMUN\utile\Teste): acesta seteaza gcAppPath fix pe
|
||||
* D:\ROA\ROACONT\ (harness scris pentru ROACONT), deci nu poate testa cod din COMUN\ asa cum e
|
||||
* editat in checkout-ul ROAIMOB (fiecare aplicatie are propriul working copy SVN al COMUN\).
|
||||
* Identic altfel, minus class libs/proceduri specifice ROACONT (contabilitate) care nu exista sub
|
||||
* ROAIMOB\COMUN sau ROAIMOB\Clase, si cu adaugarea celor specifice ROAIMOB (oimobilizari.vcx,
|
||||
* ofundal_imob, serii_numere, onom_imob, oproceduri_imob, oproceduri_operatii, ofunctii_imob,
|
||||
* oproceduri_listari, proceduri_meniu, sitan).
|
||||
*
|
||||
* Utilizare: DO test_init_env_auto_roaimob WITH 'CENTRAL', 'MARIUSM_AUTO', 'parola'
|
||||
* ATENTIE: mentine sincronizat cu test_init_env_auto.prg pentru partea comuna si cu
|
||||
* Programe\roaimob.prg pentru wiring-ul specific aplicatiei (SET PATH/CLASSLIB/PROCEDURE).
|
||||
|
||||
LPARAMETERS tcHost, tcSchema, tcPassword, tnAn, tnLuna
|
||||
|
||||
tcHost = IIF(EMPTY(tcHost), 'CENTRAL', tcHost)
|
||||
tcSchema = IIF(EMPTY(tcSchema), 'MARIUSM_AUTO', tcSchema)
|
||||
tcPassword = IIF(EMPTY(tcPassword), 'ROMFASTSOFT', tcPassword)
|
||||
|
||||
SET DELETED ON
|
||||
SET ANSI ON
|
||||
SET EXACT ON
|
||||
SET SAFETY OFF
|
||||
CLOSE DATABASES
|
||||
SET CENTURY ON
|
||||
SET DATE DMY
|
||||
SET NULLDISPLAY TO ''
|
||||
|
||||
PUBLIC CT_SUCCES, CT_INSUCCES, crlf, gnAn, gnLuna, gnIdUtil, glEMama, gnIdFirma, gcCondSucursala, ;
|
||||
gnIdSucursala, gcS, gcFirma, gcUserName, gcNumeProgram, gcAppName, glLunaInchisa, ;
|
||||
buton, gnButon, pnButon, gl406, gcAcces
|
||||
CT_SUCCES = 1
|
||||
CT_INSUCCES = -1
|
||||
crlf = CHR(13) + CHR(10)
|
||||
gnAn = IIF(EMPTY(tnAn), YEAR(DATE()), tnAn)
|
||||
gnLuna = IIF(EMPTY(tnLuna), MONTH(DATE()), tnLuna)
|
||||
gnIdUtil = -3
|
||||
gnIdFirma = 110
|
||||
gcCondSucursala = []
|
||||
gnIdSucursala = m.gnIdFirma
|
||||
gcS = UPPER(ALLTRIM(tcSchema))
|
||||
gcFirma = m.gcS
|
||||
gcUserName = m.gcS
|
||||
gcNumeProgram = [ROAIMOB]
|
||||
gcAppName = [ROAIMOB]
|
||||
glLunaInchisa = .F.
|
||||
glEMama = .F.
|
||||
gl406 = .F.
|
||||
PUBLIC nror(65000)
|
||||
buton = 1
|
||||
gnButon = 1
|
||||
pnButon = 1
|
||||
|
||||
LOCAL lcPath
|
||||
PUBLIC gcAppPath, DIRGEN, gcBasePath, gcTempPath, gcGeneralIniFile, gcSettingsFile
|
||||
gcAppPath = [D:\ROA\ROAIMOB\]
|
||||
Set Default To (gcAppPath)
|
||||
lcPath = gcAppPath + 'Date;' + ;
|
||||
gcAppPath + 'Include;' + ;
|
||||
gcAppPath + 'FERESTRE;' + ;
|
||||
gcAppPath + 'GRAFICE;' + ;
|
||||
gcAppPath + 'CLASE;' + ;
|
||||
gcAppPath + 'MENIURI;' + ;
|
||||
gcAppPath + 'PROGRAME;' + ;
|
||||
gcAppPath + 'RAPOARTE;' + ;
|
||||
gcAppPath + 'COMUN;' + ;
|
||||
gcAppPath + 'COMUN\CLASE;' + ;
|
||||
gcAppPath + 'COMUN\FERESTRE;' + ;
|
||||
gcAppPath + 'COMUN\PROGRAME;' + ;
|
||||
gcAppPath + 'COMUN\GRAFICE;' + ;
|
||||
gcAppPath + 'COMUN\RAPOARTE;' + ;
|
||||
gcAppPath + 'COMUN\MENIURI;' + ;
|
||||
gcAppPath + 'COMUN\UTILE\GRIDEXTRAS;' + ;
|
||||
gcAppPath + 'COMUN\UTILE\CTL32;' + ;
|
||||
gcAppPath + 'COMUN\UTILE\HPDF;' + ;
|
||||
gcAppPath + 'COMUN\UTILE\HPDF\REPORTOUTPUT;' + ;
|
||||
gcAppPath + 'COMUN\UTILE\WEB;' + ;
|
||||
gcAppPath + 'COMUN\UTILE\EXCEL;' + ;
|
||||
Addbs(Substr(gcAppPath,1,Rat([\],gcAppPath,2)))+[COMUNROA\]
|
||||
SET PATH TO &lcPath ADDITIVE
|
||||
|
||||
Set Classlib To appwiz Additive
|
||||
Set Classlib To CAUT Additive
|
||||
Set Classlib To BAZA Additive
|
||||
Set Classlib To comun Additive
|
||||
Set Classlib To oimobilizari.vcx Additive
|
||||
Set Classlib To registry Additive
|
||||
Set Classlib To cauta_alfa_forms Additive
|
||||
Set Classlib To caut_ora Additive
|
||||
Set Classlib To ofundal_imob Additive
|
||||
Set Classlib To serii_numere Additive
|
||||
|
||||
Set Procedure To proceduri_comune Additive
|
||||
Set Procedure To sitan Additive
|
||||
Set Procedure To quitapp Additive
|
||||
Set Procedure To init_program Additive
|
||||
Set Procedure To oproceduri_listari Additive
|
||||
Set Procedure To proceduri_meniu Additive
|
||||
Set Procedure To oserii_numere Additive
|
||||
Set Procedure To regex Additive
|
||||
|
||||
Set Classlib To DECABAZA Additive
|
||||
Set Classlib To onomenclatoare Additive
|
||||
Set Classlib To ferestre_oracle Additive
|
||||
Set Classlib To onom_imob Additive
|
||||
Set Classlib To otoolbar Additive
|
||||
Set Classlib To ocriterii Additive
|
||||
|
||||
Set Classlib To MESSAGEBOX Additive
|
||||
SET CLASSLIB TO wwdialogs.vcx additive
|
||||
SET CLASSLIB TO serii_numere.vcx additive
|
||||
SET CLASSLIB TO accessibility.vcx additive
|
||||
SET CLASSLIB TO locale additive
|
||||
|
||||
Set Procedure To gencursor.prg Additive
|
||||
Set Procedure To oproceduri_comune.prg Additive
|
||||
Set Procedure To oproceduri_imob.prg Additive
|
||||
Set Procedure To oproceduri_operatii.prg Additive
|
||||
Set Procedure To ofunctii_imob.prg Additive
|
||||
Set Procedure To oinit_optiuni.prg Additive
|
||||
Set Procedure To update_imob.prg Additive
|
||||
Set Procedure To updateserver.prg Additive
|
||||
Set Procedure To oproceduri_ams.prg Additive
|
||||
Set Procedure To ocautare.prg Additive
|
||||
Set Procedure To osecurity.prg Additive
|
||||
Set Procedure To acces_meniu.prg Additive
|
||||
Set Procedure To oheader.prg Additive
|
||||
Set Procedure To oproceduri_comune_imob.prg Additive
|
||||
Set Procedure To cauta_alfa.prg Additive
|
||||
Set Procedure To oexport.prg Additive
|
||||
Set Procedure To validare.prg Additive
|
||||
Set Procedure To iniacces.prg Additive
|
||||
Set Procedure To oupdate.prg additive
|
||||
Set Procedure To procese.prg additive
|
||||
Set Procedure To version.prg additive
|
||||
Set Procedure To xmlaccess.prg additive
|
||||
Set Procedure To xmlparser.prg additive
|
||||
Set Procedure To filebringer.prg additive
|
||||
Set Procedure To wwcodeupdate.prg additive
|
||||
Set Procedure To wwhttp.prg ADDITIVE
|
||||
Set Procedure To wwxmlhttp.prg ADDITIVE
|
||||
Set Procedure To ini.prg ADDITIVE
|
||||
Set Procedure To wwconfig.prg ADDITIVE
|
||||
Set Procedure To excelxml.prg ADDITIVE
|
||||
Set Procedure To wwutils.PRG Additive
|
||||
Set Procedure To wwapi.PRG Additive
|
||||
|
||||
Declare Integer GetPrivateProfileString In WIN32API ;
|
||||
string, String, String, String @, Integer, String
|
||||
Declare Integer WritePrivateProfileString In Win32Api ;
|
||||
string, String, String, String
|
||||
Declare Integer CopyFile In WIN32API ;
|
||||
STRING lpExistingFileName, STRING lpNewFileName, INTEGER bFailIfExists
|
||||
Declare Integer PathFileExists In shlwapi STRING pszPath
|
||||
|
||||
If Type('goApi') = 'U'
|
||||
Public goApi
|
||||
goApi = Newobject("wwAPI", "wwAPI.prg")
|
||||
ENDIF
|
||||
|
||||
set procedure to oinit_optiuni.prg additive
|
||||
set procedure to oproceduri_comune.prg additive
|
||||
|
||||
PUBLIC gnHandle, goExecutor, goConn, goFirma, goCalendar, poLog, goLog, goApp
|
||||
DIRGEN = [D:\ROA\]
|
||||
gcBasePath = dirgen
|
||||
gcGeneralIniFile = DIRGEN + "settings.ini"
|
||||
gcSettingsFile = m.gcGeneralIniFile
|
||||
gcTempPath = Addbs(shortpath(goApi.GetTempPath())) + gcS + [\]
|
||||
If !Directory(gcTempPath)
|
||||
Md (gcTempPath)
|
||||
Endif
|
||||
gcAcces = [1;2;3;4;5;6;7;8;]
|
||||
|
||||
poLog = Newobject("Log_Mesaje","Log_Mesaje.prg")
|
||||
goLog = poLog
|
||||
goApp = Createobject("wzApplication")
|
||||
gnHandle = 0
|
||||
goExecutor = createobject("oExecutor")
|
||||
goConn = createobject("oConn")
|
||||
goConn.Connect(m.tcHost, m.tcSchema, m.tcPassword)
|
||||
IF m.gnHandle <= 0
|
||||
RETURN .F.
|
||||
ENDIF
|
||||
|
||||
LOCAL llSucces, lcSql
|
||||
goFirma = null
|
||||
llSucces = goExecutor.oExecuta("select * from syn_v_nom_firme where schema = ?gcS", "cFirma")
|
||||
IF m.llSucces
|
||||
SELECT cFirma
|
||||
gnIdFirma = id_firma
|
||||
gnIdSucursala = null
|
||||
gcFirma = ALLTRIM(firma)
|
||||
SCATTER NAME goFirma
|
||||
IF TYPE('goFirma.codfiscalfro') = 'U'
|
||||
ADDPROPERTY(goFirma, 'codfiscalfro', ALLTRIM(STRTRAN(ALLTRIM(NVL(goFirma.cod_fiscal, '')), 'RO', '')))
|
||||
ENDIF
|
||||
ELSE
|
||||
goFirma = CREATEOBJECT('custom')
|
||||
goFirma.addproperty('cod_fiscal', '')
|
||||
goFirma.addproperty('schema', m.gcS)
|
||||
goFirma.addproperty('firma', m.gcS)
|
||||
goFirma.addproperty('codfiscalfro', '')
|
||||
ENDIF
|
||||
USE IN (SELECT('cFirma'))
|
||||
|
||||
goCalendar = null
|
||||
llSucces = goExecutor.oExecuta('SELECT anul, luna, tva_incasare FROM calendar WHERE an*12+luna = (select MAX(an*12+luna) FROM calendar)', 'cCalendar')
|
||||
IF m.llSucces
|
||||
SELECT cCalendar
|
||||
GO TOP
|
||||
IF EMPTY(m.tnAn)
|
||||
gnAn = anul
|
||||
gnLuna = luna
|
||||
ENDIF
|
||||
SCATTER NAME goCalendar
|
||||
ENDIF
|
||||
USE IN (SELECT('cCalendar'))
|
||||
|
||||
CREATE CURSOR dual (dummy c(10))
|
||||
INSERT INTO dual (dummy) VALUES ("")
|
||||
|
||||
actualizeaza_optiuni()
|
||||
Do optiuni_firma IN oinit_optiuni.prg
|
||||
|
||||
lcSql = [begin pack_sesiune.set_Id_Util(?gnIdUtil); end;]
|
||||
llSucces = goExecutor.oExecuta(lcSql)
|
||||
lcSql = [begin pack_sesiune.setluna(?gnLuna); pack_sesiune.setan(?gnAn); end;]
|
||||
llSucces = goExecutor.oExecuta(lcSql)
|
||||
lcSql = [begin pack_sesiune.setlunabal(?gnLuna); pack_sesiune.setanbal(?gnAn); end;]
|
||||
llSucces = goExecutor.oExecuta(lcSql)
|
||||
lcSql = [begin pack_sesiune.set_data_ron(?gcS); end;]
|
||||
llSucces = goExecutor.oExecuta(lcSql)
|
||||
lcSql = [begin pack_contafin.set_id_sucursala(?gnIdSucursala); end;]
|
||||
llSucces = goExecutor.oExecuta(lcSql)
|
||||
lcSql = [begin pack_contafin.set_id_firma(?gnIdFirma); end;]
|
||||
llSucces = goExecutor.oExecuta(lcSql)
|
||||
|
||||
RETURN .T.
|
||||
Reference in New Issue
Block a user