*!* 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 *!* *-------------------------------------------------------------------------------------------------------------------------