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_TVA" UniqueID="" Timestamp="" />
|
||||||
*< OBJECTDATA: ObjPath="Clb_prorataTVA" UniqueID="" Timestamp="" />
|
*< OBJECTDATA: ObjPath="Clb_prorataTVA" UniqueID="" Timestamp="" />
|
||||||
*< OBJECTDATA: ObjPath="Clb_amort_max_deductibil" 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="" />
|
*< OBJECTDATA: ObjPath="clb_valoare_reziduala" UniqueID="" Timestamp="" />
|
||||||
|
|
||||||
*<DefinedPropArrayMethod>
|
*<DefinedPropArrayMethod>
|
||||||
@@ -1565,6 +1566,15 @@ DEFINE CLASS frm_introducere AS _frmbase OF "..\comun\clase\_frm_base.vcx"
|
|||||||
_LBBASE1.Name = "_LBBASE1"
|
_LBBASE1.Name = "_LBBASE1"
|
||||||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
*< 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 ;
|
ADD OBJECT 'ck_buncapital' AS _checkbox WITH ;
|
||||||
Alignment = 0, ;
|
Alignment = 0, ;
|
||||||
Caption = "Bun de capital", ;
|
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))
|
lcProrataTVA = Alltrim(Transform(Thisform.clb_prorataTVA.text_simplu1.Value))
|
||||||
|
|
||||||
pnAmortMaxDeductibil = Thisform.clb_amort_max_deductibil.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
|
pnValoareReziduala = Thisform.clb_valoare_reziduala.text_simplu1.Value
|
||||||
|
|
||||||
If Thisform.ntipmodificare = 4
|
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))) + [,] + ;
|
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_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) + [',] + ;
|
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;]
|
[,0,?pnTipOperatie,?pcExplicOp,] + m.lcBunCapital + [,] + m.lcBazatva + [,] + m.lcTva + [,] + m.lcId_cotatva + [,] + m.lcProrataTVA + [); end;]
|
||||||
|
|
||||||
llSucces = goExecutor.oExecuta(lcsql)
|
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
|
this.clb_nr_inventar.text_simplu1.Value = m.lnNrInventar
|
||||||
ENDIF
|
ENDIF
|
||||||
*!* 11.11.2009
|
*!* 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
|
ENDPROC
|
||||||
|
|
||||||
PROCEDURE Cb_cotaTva._CBBASE1.LostFocus
|
PROCEDURE Cb_cotaTva._CBBASE1.LostFocus
|
||||||
@@ -2463,6 +2483,17 @@ DEFINE CLASS frm_introducere AS _frmbase OF "..\comun\clase\_frm_base.vcx"
|
|||||||
Endif
|
Endif
|
||||||
ENDPROC
|
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
|
PROCEDURE ck_buncapital.Click
|
||||||
If this.Value = 1
|
If this.Value = 1
|
||||||
thisform.Height=539
|
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
|
24/07/2026
|
||||||
ROAIMOB - 2.1.44
|
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