71 lines
1.8 KiB
Plaintext
71 lines
1.8 KiB
Plaintext
Procedure cctipuri_imob()
|
|
|
|
If Used('v_tipuri_imob')
|
|
Use In v_tipuri_imob
|
|
Endif
|
|
|
|
lcSql = [select id_tip_imobilizare,TRIM(denumire) as denumire,]+;
|
|
[inactiv from ] + gcS + [.imob_vtipuri_imobilizare]
|
|
lcCursor = [v_tipuri_imob]
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
If lnSucces < 0
|
|
aMessagebox(goExecutor.cEroare,0+16,"Eroare")
|
|
Endif
|
|
goExecutor.oReset()
|
|
Return lnSucces
|
|
|
|
Endproc
|
|
**********************************************************************
|
|
Procedure cctipuri_amort()
|
|
|
|
If Used('v_tipuri_amort')
|
|
Use In v_tipuri_amort
|
|
Endif
|
|
|
|
lcSql = [select id_tip_amortizare,TRIM(denumire) as denumire,]+;
|
|
[inactiv from ] + gcS + [.imob_vtipuri_amortizare]
|
|
lcCursor = [v_tipuri_amort]
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
If lnSucces < 0
|
|
aMessagebox(goExecutor.cEroare,0+16,"Eroare")
|
|
Endif
|
|
goExecutor.oReset()
|
|
Return lnSucces
|
|
|
|
Endproc
|
|
**********************************************************************
|
|
Procedure cctipuri_operatie()
|
|
|
|
If Used('v_tipuri_operatie')
|
|
Use In v_tipuri_operatie
|
|
Endif
|
|
|
|
lcSql = [select id_tip_operatie,TRIM(denumire) as denumire,]+;
|
|
[inactiv from ] + gcS + [.imob_vtipuri_operatie where inactiv = 0 order by Id_tip_operatie]
|
|
lcCursor = [v_tipuri_operatie]
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
If lnSucces < 0
|
|
aMessagebox(goExecutor.cEroare,0+16,"Eroare")
|
|
Endif
|
|
goExecutor.oReset()
|
|
Return lnSucces
|
|
|
|
Endproc
|
|
**********************************************************************
|
|
Procedure ccnorme()
|
|
|
|
If Used('v_norme')
|
|
Use In v_norme
|
|
Endif
|
|
|
|
lcSql = [select * from ] + gcS + [.imob_vnorme]
|
|
lcCursor = [v_norme]
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
If lnSucces < 0
|
|
aMessagebox(goExecutor.cEroare,0+16,"Eroare")
|
|
Endif
|
|
goExecutor.oReset()
|
|
Return lnSucces
|
|
|
|
Endproc
|
|
********************************************************************** |