746 lines
25 KiB
Plaintext
746 lines
25 KiB
Plaintext
*!* 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
|
|
*!* *------------------------------------------------------------------------------------------------------------------------- |