*!*	PROCEDURE list_corp_general
*!*	list_general(1)
*!*	ENDPROC 
*!*	*------------------------------------------------------------------------
*!*	PROCEDURE list_necorp_general
*!*	list_general(2)
*!*	ENDPROC 
*!*	*------------------------------------------------------------------------
*!*	procedure list_general && CORPORALE/NECORPORALE     'cu totaluri generale'
*!*	PARAMETERS tnTip
*!*	* tnTip   1) Corp.    2) Necorp
*!*	PRIVATE poLista,locauta
*!*	Store '' To poLista
*!*	Store "" To locauta
*!*	private nid_gestiune
*!*	nid_gestiune=1

*!*	pcselect = ['select nume_gestiune,id_gestiune FROM ] + gcs + [.vnom_gestiuni where inactiv=0']
*!*	pcfiltru = [1=2]
*!*	pcschema = ['']
*!*	pcorder = [nume_gestiune]
*!*	pccoloane = [nume_gestiune]
*!*	pcTitlu = [Alegeti gestiunea]
*!*	pcTitluColoane = [Gestiune]
*!*	locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"")
*!*	If !Empty(locauta.nume_gestiune)
*!*		nid_gestiune=locauta.id_gestiune
*!*		pcgestiune=ALLTRIM(locauta.nume_gestiune)
*!*	Endif


*!*	pcSchema=['']
*!*	pcSelect=['select * from ]+gcS+[.imob_vjurnal where 1=2']
*!*	pcOrder=[gestiune,data_achizitie]
*!*	*pcFiltru = [id_tip_imobilizare=?tnTip and iesit_din_gest=0 and id_gestiune=?nid_gestiune]
*!*	pcFiltru = [id_tip_imobilizare=?tnTip and iesit_din_gest=0]+IIF(pcgestiune="TOATE GESTIUNILE",[],[and id_gestiune=?nid_gestiune])
*!*	llAfiseaza = .F.
*!*	gencursor('poLista','crslista',pcSelect,pcFiltru,pcSchema,pcOrder,llAfiseaza)
*!*	poLista.ca_baza1.afisare()
*!*	pctitlu="LISTA IMOBILIZARILOR "+IIF(tnTip=1,"CORPORALE","NECORPORALE")+" IN LUNA"

*!*		SELECT crslista 
*!*			REPORT FORM listmfcota TO PRINTER PROMPT PREVIEW 
*!*	Release poLista
*!*	ENDPROC 
*!*	*---------------------------------------------------------------------------
*!*	PROCEDURE list_corp_peluni
*!*	list_peluni(1)
*!*	ENDPROC 
*!*	*------------------------------------------------------------------------
*!*	PROCEDURE list_necorp_peluni
*!*	list_peluni(2)
*!*	ENDPROC 
*!*	*------------------------------------------------------------------------
*!*	PROCEDURE list_peluni  && CORPORALE/NECORPORALE      'cu totaluri pe luni'
*!*	PARAMETERS tnTip
*!*	* tnTip   1) Corp.    2) Necorp
*!*	PRIVATE poLista,locauta
*!*	Store '' To poLista
*!*	Store "" To locauta
*!*	private nid_gestiune
*!*	nid_gestiune=1

*!*	pcselect = ['select nume_gestiune,id_gestiune FROM ] + gcs + [.vnom_gestiuni where inactiv=0']
*!*	pcfiltru = [1=2]
*!*	pcschema = ['']
*!*	pcorder = [nume_gestiune]
*!*	pccoloane = [nume_gestiune]
*!*	pcTitlu = [Alegeti gestiunea]
*!*	pcTitluColoane = [Gestiune]
*!*	locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"")
*!*	If !Empty(locauta.nume_gestiune)
*!*		nid_gestiune=locauta.id_gestiune
*!*		pcgestiune=ALLTRIM(locauta.nume_gestiune)
*!*	Endif


*!*	pcSchema=['']
*!*	pcSelect=['select * from ]+gcS+[.imob_vamortizarilunare_mf where 1=2']
*!*	pcOrder=[gestiune,cont,data_pif]
*!*	*pcFiltru = [id_tip_imobilizare=?tnTip and iesit_din_gest=0 and id_gestiune=?nid_gestiune]
*!*	pcFiltru = [id_tip_imobilizare=?tnTip and iesit_din_gest=0]+IIF(pcgestiune="TOATE GESTIUNILE",[],[and id_gestiune=?nid_gestiune])
*!*	llAfiseaza = .F.
*!*	gencursor('poLista','crslista',pcSelect,pcFiltru,pcSchema,pcOrder,llAfiseaza)
*!*	poLista.ca_baza1.afisare()
*!*	pctitlu="LISTA IMOBILIZARILOR "+IIF(tnTip=1,"CORPORALE","NECORPORALE")+" IN LUNA"


*!*		SELECT crslista 
*!*	*		thisform.AlwaysOnTop = .F.
*!*			REPORT FORM listmflunicota TO PRINTER PROMPT PREVIEW 
*!*	*		thisform.AlwaysOnTop = .T.
*!*	Release poLista
*!*	ENDPROC 
*!*	*---------------------------------------------------------------------------
*!*	PROCEDURE list_corp_pegrup
*!*	list_pegrup(1)
*!*	ENDPROC 
*!*	*------------------------------------------------------------------------
*!*	PROCEDURE list_necorp_pegrup
*!*	list_pegrup(2)
*!*	ENDPROC 
*!*	*------------------------------------------------------------------------
*!*	PROCEDURE list_pegrup  && CORPORALE/NECORPORALE      'cu totaluri pe grupe'

*!*	PARAMETERS tnTip
*!*	* tnTip   1) Corp.    2) Necorp
*!*	PRIVATE poLista,locauta
*!*	Store '' To poLista
*!*	Store "" To locauta
*!*	private nid_gestiune
*!*	nid_gestiune=1

*!*	pcselect = ['select nume_gestiune,id_gestiune FROM ] + gcs + [.vnom_gestiuni where inactiv=0']
*!*	pcfiltru = [1=2]
*!*	pcschema = ['']
*!*	pcorder = [nume_gestiune]
*!*	pccoloane = [nume_gestiune]
*!*	pcTitlu = [Alegeti gestiunea]
*!*	pcTitluColoane = [Gestiune]
*!*	locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"")
*!*	If !Empty(locauta.nume_gestiune)
*!*		nid_gestiune=locauta.id_gestiune
*!*		pcgestiune=ALLTRIM(locauta.nume_gestiune)
*!*	Endif


*!*	pcSchema=['']
*!*	pcSelect=['select * from ]+gcS+[.imob_vjurnal where 1=2']
*!*	pcOrder=[gestiune,cont]

*!*	*pcFiltru = [id_tip_imobilizare=?tnTip and iesit_din_gest=0 and id_gestiune=?nid_gestiune]
*!*	pcFiltru = [id_tip_imobilizare=?tnTip and iesit_din_gest=0]+IIF(nid_gestiune=11071,[],[and id_gestiune=?nid_gestiune])

*!*	llAfiseaza = .F.
*!*	gencursor('poLista','crslista',pcSelect,pcFiltru,pcSchema,pcOrder,llAfiseaza)
*!*	poLista.ca_baza1.afisare()
*!*	pctitlu="LISTA IMOBILIZARILOR "+IIF(tnTip=1,"CORPORALE","NECORPORALE")+" IN LUNA"

*!*		SELECT crslista 
*!*	*	thisform.AlwaysOnTop = .F.
*!*			REPORT FORM listmfscdcota TO PRINTER PROMPT PREVIEW 
*!*	*	thisform.AlwaysOnTop = .T.	
*!*	Release poLista

*!*	ENDPROC 
*!*	*---------------------------------------------------------------------------
*!*	PROCEDURE list_corp_pesectii
*!*	list_pesectii(1)
*!*	ENDPROC 
*!*	*------------------------------------------------------------------------
*!*	PROCEDURE list_necorp_pesectii
*!*	list_pesectii(2)
*!*	ENDPROC 
*!*	*------------------------------------------------------------------------
*!*	PROCEDURE list_peSECTII && CORPORALE/NECORPORALE      'cu totaluri pe sectii'
*!*	PARAMETERS tnTip
*!*	* tnTip   1) Corp.    2) Necorp
*!*	PRIVATE poLista,locauta
*!*	Store '' To poLista
*!*	Store "" To locauta
*!*	private nid_gestiune
*!*	nid_gestiune=1

*!*	pcselect = ['select sectie, id_sectie FROM ] + gcs + [.vnom_sectii where inactiv=0']
*!*	pcfiltru = [1=2]
*!*	pcschema = ['']
*!*	pcorder = [sectie]
*!*	pccoloane = [sectie]
*!*	pcTitlu = [Alegeti sectie]
*!*	pcTitluColoane = [Sectii]
*!*	locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"")
*!*	If !Empty(locauta.sectie)
*!*		nid_gestiune=locauta.id_sectie
*!*		pcgestiune=ALLTRIM(locauta.sectie)
*!*	Endif


*!*	pcSchema=['']
*!*	pcSelect=['select * from ]+gcS+[.imob_vjurnal where 1=2']
*!*	pcOrder=[gestiune,cont,data_pif]
*!*	*pcFiltru = [id_tip_imobilizare=?tnTip and iesit_din_gest=0 and id_sectie=?nid_gestiune]
*!*	pcFiltru = [id_tip_imobilizare=?tnTip and iesit_din_gest=0]+IIF(pcgestiune="TOATE SECTIILE",[],[and id_sectie=?nid_gestiune])
*!*	llAfiseaza = .F.
*!*	gencursor('poLista','crslista',pcSelect,pcFiltru,pcSchema,pcOrder,llAfiseaza)
*!*	poLista.ca_baza1.afisare()
*!*	pctitlu="LISTA IMOBILIZARILOR "+IIF(tnTip=1,"CORPORALE","NECORPORALE")+" IN LUNA"

*!*		SELECT crslista 
*!*		*thisform.AlwaysOnTop = .F.
*!*			REPORT FORM listmf_grup TO PRINTER PROMPT PREVIEW 
*!*	*	thisform.AlwaysOnTop = .T.
*!*	Release poLista


*!*	ENDPROC 
*!*	*---------------------------------------------------------------------------
*!*	PROCEDURE lista_fiselor_corp_istoric 		&& CORPORALE 'lista fiselor'
*!*		lista_fiselor(1)
*!*	ENDPROC 
*!*	*---------------------------------------------------------------------------
*!*	PROCEDURE lista_fiselor_necorp  && NECORPORALE 'lista fiselor'
*!*		lista_fiselor(2)
*!*	ENDPROC 
*!*	*---------------------------------------------------------------------------
*!*	PROCEDURE lista_fiselor
*!*	PARAMETERS tnTip
*!*	****
*!*	* 1) imob.corporale
*!*	* 2) imob.necorporale
*!*	****

*!*	If Used('crslista')
*!*		Use In crslista
*!*	Endif

*!*	lcsql=[SELECT * from ]+gcS+[.imob_vjurnal where id_tip_imobilizare=]+ALLTRIM(STR(tnTip))+[ and iesit_din_gest=0]
*!*	  
*!*	lnSucces=goExecutor.oExecute(lcsql,'crsLista')
*!*	IF lnSucces<0
*!*		MESSAGEBOX("Nu a mers SQL-ul actcs")
*!*		return
*!*	ENDIF
*!*	 
*!*	SELECT crsLista 
*!*	IF tntip=1
*!*		REPORT FORM fisa_mf_istoric TO PRINTER PROMPT PREVIEW 
*!*	ELSE
*!*		REPORT FORM fisa_mf2 TO PRINTER PROMPT PREVIEW 
*!*	ENDIF 
*!*	If Used('crslista')
*!*		Use In crslista
*!*	Endif

*!*	ENDPROC 
*!*	*---------------------------------------------------------------------------

*!*	PROCEDURE lista_inv_m1_c
*!*	lista_inv_m1(1)
*!*	ENDPROC 
*!*	*---------------------------------------------------------------------------
*!*	PROCEDURE lista_inv_m1_n  
*!*	lista_inv_m1(2)
*!*	ENDPROC 
*!*	*---------------------------------------------------------------------------
*!*	PROCEDURE lista_inv_m1  
*!*	PARAMETERS tnTip
*!*	* tnTip   1) Corp.    2) Necorp
*!*	PRIVATE poLista,locauta
*!*	Store '' To poLista
*!*	Store "" To locauta
*!*	private nid_gestiune
*!*	nid_gestiune=1

*!*	pcselect = ['select nume_gestiune,id_gestiune FROM ] + gcs + [.vnom_gestiuni where inactiv=0']
*!*	pcfiltru = [1=2]
*!*	pcschema = ['']
*!*	pcorder = [nume_gestiune]
*!*	pccoloane = [nume_gestiune]
*!*	pcTitlu = [Alegeti gestiunea]
*!*	pcTitluColoane = [Gestiune]
*!*	locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"")
*!*	If !Empty(locauta.nume_gestiune)
*!*		nid_gestiune=locauta.id_gestiune
*!*		pcgestiune=ALLTRIM(locauta.nume_gestiune)
*!*	Endif


*!*	pcSchema=['']
*!*	pcSelect=['select * from ]+gcS+[.imob_vjurnal where 1=2']
*!*	pcOrder=[gestiune,cont]
*!*	*pcFiltru = [id_tip_imobilizare=?tnTip and iesit_din_gest=0 and id_gestiune=?nid_gestiune]
*!*	pcFiltru = [id_tip_imobilizare=?tnTip and iesit_din_gest=0]+IIF(pcgestiune="TOATE GESTIUNILE",[],[and id_gestiune=?nid_gestiune])
*!*	llAfiseaza = .F.
*!*	gencursor('poLista','crslista',pcSelect,pcFiltru,pcSchema,pcOrder,llAfiseaza)
*!*	poLista.ca_baza1.afisare()
*!*	pctitlu="LISTA IMOBILIZARILOR "+IIF(tnTip=1,"CORPORALE","NECORPORALE")+" IN LUNA"

*!*		SELECT crslista 
*!*	*	thisform.AlwaysOnTop = .F.
*!*			REPORT FORM listmf_inv TO PRINTER PROMPT PREVIEW 
*!*		*thisform.AlwaysOnTop = .T.	
*!*	Release poLista

*!*	ENDPROC 
*!*	*---------------------------------------------------------------------------
*!*	PROCEDURE lista_inv_m2_c
*!*	lista_inv_m2(1)
*!*	ENDPROC 
*!*	*---------------------------------------------------------------------------
*!*	PROCEDURE lista_inv_m2_n  
*!*	lista_inv_m2(2)
*!*	ENDPROC 
*!*	*---------------------------------------------------------------------------
*!*	PROCEDURE lista_inv_m2 
*!*	PARAMETERS tnTip
*!*	* tnTip   1) Corp.    2) Necorp
*!*	PRIVATE poLista,locauta
*!*	Store '' To poLista
*!*	Store "" To locauta
*!*	private nid_gestiune
*!*	nid_gestiune=1

*!*	pcselect = ['select nume_gestiune,id_gestiune FROM ] + gcs + [.vnom_gestiuni where inactiv=0']
*!*	pcfiltru = [1=2]
*!*	pcschema = ['']
*!*	pcorder = [nume_gestiune]
*!*	pccoloane = [nume_gestiune]
*!*	pcTitlu = [Alegeti gestiunea]
*!*	pcTitluColoane = [Gestiune]
*!*	locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"")
*!*	If !Empty(locauta.nume_gestiune)
*!*		nid_gestiune=locauta.id_gestiune
*!*		pcgestiune=ALLTRIM(locauta.nume_gestiune)
*!*	Endif


*!*	pcSchema=['']
*!*	pcSelect=['select * from ]+gcS+[.imob_vjurnal where 1=2']
*!*	pcOrder=[gestiune,denumire]
*!*	*pcFiltru = [id_tip_imobilizare=?tnTip and iesit_din_gest=0 and id_gestiune=?nid_gestiune]
*!*	pcFiltru = [id_tip_imobilizare=?tnTip and iesit_din_gest=0]+IIF(pcgestiune="TOATE GESTIUNILE",[],[and id_gestiune=?nid_gestiune])
*!*	llAfiseaza = .F.
*!*	gencursor('poLista','crslista',pcSelect,pcFiltru,pcSchema,pcOrder,llAfiseaza)
*!*	poLista.ca_baza1.afisare()
*!*	pctitlu="LISTA IMOBILIZARILOR "+IIF(tnTip=1,"CORPORALE","NECORPORALE")+" IN LUNA"

*!*		SELECT crslista 
*!*		*thisform.AlwaysOnTop = .F.
*!*			REPORT FORM nota_inv2005 TO PRINTER PROMPT PREVIEW 
*!*		*thisform.AlwaysOnTop = .T.	
*!*	Release poLista
*!*	ENDPROC 
*!*	*---------------------------------------------------------------------------

*!*	PROCEDURE evidenta_mf && CORPORALE  'Evidenta MF'

*!*	lcsql= " SELECT cont ,sum(valoare) as valoare,sum(amort_prec+rata) as amortizare_totala,"+;
*!*		   " sum(valoare_ramasa-amort_prec-rata) as valoare_ramasa,sum(valoare_ramasa-amort_prec_rata) as ramas_bilant, "+;
*!*		   " sum(rata) as rata,count(*) as numar "+;
*!*		   " FROM "+gcs+".imob_vjurnal where id_tip_imobilizare=1 and iesit_din_gest=0 GROUP BY cont ORDER BY cont"
*!*	lnSucces=goExecutor.oExecute(lcSql,'crsevidentamf')
*!*					IF lnSucces<0
*!*					MESSAGEBOX("Nu a mers SQL-ul")
*!*					return
*!*					ENDIF 
*!*	STRTOFILE(lcsql,'c:\t.txt')
*!*	SELECT crsevidentamf

*!*	*thisform.AlwaysOnTop = .F.
*!*	REPORT FORM evidenta_mf TO PRINTER PROMPT PREVIEW 
*!*	*thisform.AlwaysOnTop = .T.

*!*	USE IN crsevidentamf

*!*	ENDPROC 
*!*	*---------------------------------------------------------------------------

*!*	PROCEDURE list_inchid_amortizari
*!*	PRIVATE buton
*!*	*ldDATAACT=GOMONTH(CTOD('01/'+m.nl+'/'+m.AN),1)-1
*!*	LOCAL plcampsectie
*!*	buton=1
*!*	losterge=CREATEOBJECT('frm_mesaj','','info_c.ico','INTREBARE','Se calculeaza inchiderea dupa sectie ?','    ')
*!*	losterge.show(1)
*!*	If buton = 2
*!*		plCampSectie = .F.
*!*	Else
*!*		plCampSectie = .T.
*!*	ENDIF



*!*	IF plCampSectie
*!*			
*!*	lcsql="select a.id_tip_imobilizare,a.data_achizitie,a.nract,b.cont, b.cont as ccont ,d.rata , "+;
*!*		 " e.sectie, c.explicatie "+;
*!*		 " from "+gcs+".imob_nom_mf a  "+;
*!*		 " left join "+gcs+".imob_lista_mf b on a.id_mf=b.id_mf  "+;
*!*		 " left join "+gcs+".imob_vultima_rata d on a.id_mf=d.id_mf "+;
*!*		 " left join "+gcs+".plcont c on b.cont=c.cont "+;
*!*		 " left join "+gcs+".nom_sectii e on b.id_sectie=e.id_sectie "+;
*!*		 " where a.inactiv=0 and a.sters=0 and a.id_tip_imobilizare=1 order by ccont"

*!*	ELSE 
*!*		lcsql="select a.id_tip_imobilizare,a.data_achizitie,a.nract, c.explicatie,'.' as sectie , b.cont,b.cont as ccont,d.rata"+;
*!*		 " from "+gcs+".imob_nom_mf a  "+;
*!*		 " left join "+gcs+".imob_lista_mf b on a.id_mf=b.id_mf  "+;
*!*		 " left join "+gcs+".imob_vultima_rata d on a.id_mf=d.id_mf "+;
*!*		 " left join "+gcs+".plcont c on b.cont=c.cont "+;
*!*		 " where a.inactiv=0 and a.sters=0 and a.id_tip_imobilizare=1 order by ccont"

*!*	ENDIF 

*!*	pcTitlu = [INCHIDERE AMORTIZARE - IMOBILIZARI CORPORALE]

*!*	lnSucces=goExecutor.oExecute(lcSql,'tinchid')
*!*					IF lnSucces<0
*!*					MESSAGEBOX("Nu a mers SQL-ul")
*!*					return
*!*					ENDIF 
*!*	SELECT tinchid
*!*	REPLACE ALL cont WITH [6811]
*!*	SELECT distinct * FROM tinchid INTO CURSOR tinchid2 

*!*	SELECT tinchid2

*!*	REPORT FORM act TO PRINTER PROMPT PREVIEW 
*!*	IF USED('tinchid2')
*!*		USE IN tinchid2
*!*	ENDIF 
*!*	IF USED('tinchid')
*!*		USE IN tinchid
*!*	ENDIF 

*!*	ENDPROC && list_inchid_amortizari

*!*	*----------------------------------------------------
*!*	PROCEDURE list_inchid_amortizari_nec

*!*	PRIVATE buton
*!*	*ldDATAACT=GOMONTH(CTOD('01/'+m.nl+'/'+m.AN),1)-1
*!*	LOCAL plcampsectie
*!*	buton=1
*!*	losterge=CREATEOBJECT('frm_mesaj','','info_c.ico','INTREBARE','Se calculeaza inchiderea dupa sectie ?','    ')
*!*	losterge.show(1)
*!*	If buton = 2
*!*		plCampSectie = .F.
*!*	Else
*!*		plCampSectie = .T.
*!*	ENDIF

*!*	IF plCampSectie		
*!*	lcsql="select a.id_tip_imobilizare,a.data_achizitie,a.nract,b.cont, b.cont as ccont ,d.rata , "+;
*!*		 " e.sectie, c.explicatie "+;
*!*		 " from "+gcs+".imob_nom_mf a  "+;
*!*		 " left join "+gcs+".imob_lista_mf b on a.id_mf=b.id_mf  "+;
*!*		  " left join "+gcs+".imob_vultima_rata d on a.id_mf=d.id_mf "+;
*!*		 " left join "+gcs+".plcont c on b.cont=c.cont "+;
*!*		 " left join "+gcs+".nom_sectii e on b.id_sectie=e.id_sectie "+;
*!*		 " where a.inactiv=0 and a.sters=0 and a.id_tip_imobilizare=2 order by ccont "

*!*	ELSE 
*!*		lcsql="select a.id_tip_imobilizare,a.data_achizitie,a.nract,c.explicatie,'.' as sectie , b.cont,b.cont as ccont,d.rata"+;
*!*		 " from "+gcs+".imob_nom_mf a  "+;
*!*		 " left join "+gcs+".imob_lista_mf b on a.id_mf=b.id_mf  "+;
*!*	 	 " left join "+gcs+".imob_vultima_rata d on a.id_mf=d.id_mf "+;
*!*		 " left join "+gcs+".plcont c on b.cont=c.cont "+;
*!*		 " where a.inactiv=0 and a.sters=0 and a.id_tip_imobilizare=2  order by ccont"

*!*	ENDIF 

*!*	pcTitlu = [INCHIDERE AMORTIZARE - IMOBILIZARI NECORPORALE]

*!*	lnSucces=goExecutor.oExecute(lcSql,'tinchid')
*!*					IF lnSucces<0
*!*					MESSAGEBOX("Nu a mers SQL-ul")
*!*					return
*!*					ENDIF 

*!*	SELECT tinchid
*!*	REPLACE ALL cont WITH [6811]

*!*	SELECT distinct * FROM tinchid INTO CURSOR tinchid2
*!*	SELECT tinchid2

*!*	REPORT FORM act TO PRINTER PROMPT PREVIEW 
*!*	IF USED('tinchid2')
*!*		USE IN tinchid2
*!*	ENDIF 
*!*	IF USED('tinchid')
*!*		USE IN tinchid
*!*	ENDIF 

*!*	ENDPROC && list_inchid_amortizari_nec
*!*	*-----------------------------------------------------------------------------------
*!*	PROCEDURE rulaj_amortizment
*!*		PRIVATE pcfelul
*!*		
*!*		lcAlias =  sitan() && sitan.prg
*!*		rulaje('amortizare_lunara',lcAlias) && IN sitan.prg
*!*			
*!*		SELECT rulaje
*!*		GO top
*!*		ov=CREATE('frm_analitice1')
*!*		ov.lb_titlu_alb_b121.CAPTION='SITUATIE ANALITICA - RULAJ AMORTIZMENTE (In anul curent pana in luna curenta)'
*!*		ov.SHOW(1)
*!*		USE IN rulaje

*!*	ENDPROC && rulaj_amortizment

*!*	*-----------------------------------------------------------------------------------
*!*	PROCEDURE total_amortizment
*!*		PRIVATE pcfelul
*!*		
*!*		lcAlias =  sitan() && sitan.prg
*!*		rulaje('amortizare_totala',lcAlias) && IN sitan.prg
*!*		
*!*		SELECT rulaje
*!*		GO top
*!*		ov=CREATE('frm_analitice1')
*!*		ov.lb_titlu_alb_b121.CAPTION='SITUATIE ANALITICA - TOTAL AMORTIZMENTE (In anul curent pana in luna curenta)'
*!*		ov.SHOW(1)
*!*		USE IN rulaje

*!*	ENDPROC && total_amortizment
*!*	*----------------------------------------------------------------------------------------------
*!*	PROCEDURE preluare_corporale


*!*	datain=CTOD('01/'+ALLTRIM(STR(v_luni.nrluna))+'/'+ALLTRIM(v_luni.an))
*!*	lcsql="SELECT DISTINCT cod,id_fdoc,dataact,nract,partd as nume,explicatia,scd,SUMA, 0 as intr,id_fact,id_util "+;
*!*	      "FROM "+gcs+".vact WHERE substr(scd,1,2)=21 AND substr(scc,1,3)!=231"+;
*!*	      " AND nract!=0 and an="+ALLTRIM(v_luni.an)+" and luna="+ALLTRIM(STR(v_luni.nrluna))+""
*!*	  
*!*	lnSucces=goExecutor.oExecute(lcsql,'actcs')
*!*	IF lnSucces<0
*!*		MESSAGEBOX("Nu a mers SQL-ul actcs")
*!*		return
*!*	ENDIF 

*!*	lcsql="SELECT * FROM "+gcs+".imob_vjurnal where id_tip_imobilizare=1"  
*!*	lnSucces=goExecutor.oExecute(lcSql,'mf')
*!*	*STRTOFILE(lcsql,'c:\t.txt')   
*!*	IF lnSucces<0
*!*		MESSAGEBOX("Nu a mers SQL-ul mf")
*!*		return
*!*	ENDIF 


*!*	SELECT actcs	
*!*		
*!*		IF _tally # 0
*!*			SELECT actcs
*!*			SCAN
*!*				SCATTER NAME oact
*!*				lnVal = 0
*!*				SELECT mf
*!*				SUM valoare FOR nract = oact.nract AND data_achizitie = oact.dataact AND cont = oact.scd AND inactiv=0 TO lnVal
*!*				DO CASE 
*!*					CASE lnVal = 0
*!*						lnIntr = 0
*!*					CASE lnVal = oact.suma
*!*						lnIntr = 1
*!*					CASE lnVal # oact.suma
*!*						lnIntr = 2
*!*				ENDCASE 
*!*				SELECT actcs
*!*				REPLACE intr WITH lnIntr
*!*			ENDSCAN 
*!*		else
*!*		SELECT mf
*!*			SCATTER NAME omf
*!*		ENDIF    


*!*		SELECT actcs
*!*		GO top
*!*		SCATTER NAME oact
*!*		
*!*	*!*		SELECT mf
*!*	*!*		LOCATE FOR nract = oact.nract AND data_achizitie = oact.dataact AND cont = oact.scd AND inactiv=0 
*!*	*!*		IF !FOUND()
*!*	*!*			SCATTER MEMVAR blank
*!*	*!*	*		MESSAGEBOX('Nu e OK')
*!*	*!*		ELSE 
*!*	*!*			SCATTER MEMVAR 
*!*	*!*			*MESSAGEBOX('OK')
*!*	*!*		ENDIF 
*!*	SELECT actcs
*!*	SCATTER MEMVAR 
*!*	IF _tally#0
*!*	SCATTER NAME oact
*!*	SELECT mf
*!*	LOCATE FOR nract = oact.nract AND data_achizitie = oact.dataact AND cont = oact.scd AND inactiv=0
*!*			IF FOUND()
*!*				SCATTER NAME omf
*!*			ELSE
*!*				SCATTER NAME omf blank
*!*			endi
*!*	endi

*!*		STORE 1 TO m.tipcalcul
*!*		PRIVATE INTRODUSTOT
*!*		INTRODUSTOT=.F.
*!*		=cctipuri_amort()
*!*		SELECT actcs
*!*		OI=CREATE('frm_preluare_contab1',1)
*!*		OI.FEL_IMOB=1
*!*		oi._lbbase3.caption=IIF(oact.intr=0,'Acest element nu este introdus!',IIF(oact.intr=1,'Acest element este introdus!','Introdus partial!'))
*!*		oi.lb_titlu_alb_b121.CAPTION="LISTA IMOBILIZARILOR CORPORALE IN LUNA "+DTOC(datain)
*!*		OI.SHOW(1)

*!*	ENDPROC 
*!*	*----------------------------------------------------------------------------------------------
*!*	PROCEDURE preluare_necorporale

*!*	datain=CTOD('01/'+ALLTRIM(STR(v_luni.nrluna))+'/'+ALLTRIM(v_luni.an))
*!*	lcsql="SELECT DISTINCT cod,id_fdoc,dataact,nract,partd as nume,explicatia,scd,SUMA, 0 as intr,id_fact,id_util "+;
*!*	      "FROM "+gcs+".vact WHERE substr(scd,1,2)=20 AND substr(scc,1,3)!=233"+;
*!*	      " AND nract!=0 and an="+ALLTRIM(v_luni.an)+" and luna="+ALLTRIM(STR(v_luni.nrluna))+""
*!*	  
*!*	lnSucces=goExecutor.oExecute(lcsql,'actcs')
*!*	IF lnSucces<0
*!*		MESSAGEBOX("Nu a mers SQL-ul actcs")
*!*		return
*!*	ENDIF 

*!*	lcsql="SELECT * FROM "+gcs+".imob_vjurnal where id_tip_imobilizare=2"  
*!*	lnSucces=goExecutor.oExecute(lcSql,'mf')
*!*	*STRTOFILE(lcsql,'c:\t.txt')   
*!*	IF lnSucces<0
*!*		MESSAGEBOX("Nu a mers SQL-ul mf")
*!*		return
*!*	ENDIF 

*!*	SELECT actcs	
*!*		
*!*		IF _tally # 0
*!*		  SELECT actcs
*!*			SCAN
*!*				SCATTER NAME oact
*!*				lnVal = 0
*!*				SELECT mf
*!*				SUM valoare FOR nract = oact.nract AND data_achizitie = oact.dataact AND cont = oact.scd AND inactiv=0 TO lnVal
*!*				DO CASE 
*!*					CASE lnVal = 0
*!*						lnIntr = 0
*!*					CASE lnVal = oact.suma
*!*						lnIntr = 1
*!*					CASE lnVal # oact.suma
*!*						lnIntr = 2
*!*				ENDCASE 
*!*				SELECT actcs
*!*				REPLACE intr WITH lnIntr
*!*			ENDSCAN
*!*		ELSE 
*!*		SELECT mf
*!*			SCATTER NAME omf
*!*		ENDIF  


*!*	SELECT actcs
*!*	GO TOP 
*!*	IF _tally#0
*!*		SCATTER NAME oact
*!*		SELECT mf
*!*		LOCATE FOR nract = oact.nract AND data_achizitie = oact.dataact AND cont = oact.scd AND inactiv=0

*!*			IF FOUND()
*!*				SCATTER NAME omf
*!*			ELSE 
*!*				SCATTER NAME omf blank
*!*			ENDIF 
*!*	endi

*!*	*	STORE 1 TO m.tipcalcul
*!*		PRIVATE INTRODUSTOT
*!*		INTRODUSTOT=.F.
*!*		=cctipuri_amort()
*!*		SELECT actcs
*!*		
*!*		OI=CREATE('frm_preluare_contab1',2)
*!*		OI.FEL_IMOB=2
*!*		oi.lb_titlu_alb_b121.CAPTION="LISTA IMOBILIZARILOR NECORPORALE IN LUNA "+DTOC(datain)
*!*		oi._lbbase3.caption=IIF(oact.intr=0,'Acest element nu este introdus!',IIF(oact.intr=1,'Acest element este introdus!','Introdus partial!'))
*!*		OI.SHOW(1)
*!*	ENDPROC 
*!*	*----------------------------------------------------------------------------------------------
*!*	PROCEDURE preluare_incurs
*!*	*!*		SELECT DISTINCT cod, fdoc, dataact, nract, nume, explicatia, scd, ascd, SUMA ;
*!*	*!*			FROM act WHERE INLIST(LEFT(scd,3),'231','233') INTO CURSOR actcs

*!*	*	SELECT mf
*!*	*	SCATTER MEMVAR BLANK 
*!*	*	SELECT DISTINCT act.cod,act.fdoc,act.dataact,act.nract,act.nume,act.explicatia,act.scd,act.SUMA, 0 as intr ;
*!*			FROM act WHERE INLIST(LEFT(act.scd,3),'231','233') AND act.nract#0 INTO CURSOR actcs READWRITE 
*!*	datain=CTOD('01/'+ALLTRIM(STR(v_luni.nrluna))+'/'+ALLTRIM(v_luni.an))
*!*	lcsql="SELECT DISTINCT cod,id_fdoc,dataact,nract,partd as nume,explicatia,scd,SUMA, 0 as intr,id_fact,id_util "+;
*!*	      "FROM "+gcs+".vact WHERE (substr(scd,1,3)=231 or SUBSTR(scd,1,3)=233) AND nract!=0"+;
*!*	      " AND nract!=0 and an="+ALLTRIM(v_luni.an)+" and luna="+ALLTRIM(STR(v_luni.nrluna))+""
*!*	  
*!*	lnSucces=goExecutor.oExecute(lcsql,'actcs')
*!*	IF lnSucces<0
*!*		MESSAGEBOX("Nu a mers SQL-ul actcs")
*!*		return
*!*	ENDIF 

*!*	lcsql="SELECT * FROM "+gcs+".imob_vjurnal where id_tip_imobilizare=3"  
*!*	lnSucces=goExecutor.oExecute(lcSql,'mf')
*!*	*STRTOFILE(lcsql,'c:\t.txt')   
*!*	IF lnSucces<0
*!*		MESSAGEBOX("Nu a mers SQL-ul mf")
*!*		return
*!*	ENDIF 		

*!*	SELECT actcs
*!*		IF _tally # 0
*!*			SELECT actcs
*!*			SCAN
*!*				SCATTER NAME oact
*!*				lnVal = 0
*!*				SELECT mf
*!*				SUM valoare FOR nract = oact.nract AND data_achizitie = oact.dataact AND cont = oact.scd TO lnVal
*!*				DO CASE 
*!*					CASE lnVal = 0
*!*						lnIntr = 0
*!*					CASE lnVal = oact.suma
*!*						lnIntr = 1
*!*					CASE lnVal # oact.suma
*!*						lnIntr = 2
*!*				ENDCASE 
*!*				SELECT actcs
*!*				REPLACE intr WITH lnIntr
*!*			ENDSCAN 
*!*		ELSE
*!*			SELECT mf
*!*				SCATTER NAME omf blank

*!*		ENDIF  


*!*	SELECT actcs
*!*	GO TOP 
*!*	IF _tally#0
*!*		SCATTER NAME oact
*!*		SELECT mf
*!*		LOCATE FOR nract = oact.nract AND data_achizitie = oact.dataact AND cont = oact.scd AND inactiv=0

*!*			IF FOUND()
*!*				SCATTER NAME omf
*!*			ELSE 
*!*				SCATTER NAME omf blank
*!*			ENDIF 
*!*	ENDIF

*!*		M.ID_SECTIE=0		
*!*		PRIVATE INTRODUSTOT
*!*		INTRODUSTOT=.F.
*!*		OI=CREATE('frm_preluare_contab_curs')
*!*		OI.FEL_IMOB=3
*!*		oi.lb_titlu_alb_b121.CAPTION="LISTA IMOBILIZARILOR NECORPORALE IN LUNA "+DTOC(datain)
*!*		oi._lbbase3.caption=IIF(oact.intr=0,'Acest element nu este introdus!',IIF(oact.intr=1,'Acest element este introdus!','Introdus partial!'))
*!*		OI.SHOW(1)
*!*	ENDPROC && preluare_incurs
*!*	*-------------------------------------------------------------------------------------------------------------------------