38 lines
865 B
Plaintext
38 lines
865 B
Plaintext
Procedure EditTask
|
|
parameters tnId
|
|
|
|
private poRec
|
|
lcSql = [select * from tasks where ]+Iif(!Empty(tnId),[ id = ?tnId] , [1=2])
|
|
lcCursor = Sys(2015)
|
|
lnSucces = goExecutant.executasql(lcSql,lcCursor)
|
|
If lnSucces > 0
|
|
Select (lcCursor)
|
|
Scatter Name poRec Memo
|
|
Do Form frm_adaugare_task
|
|
Endif
|
|
|
|
|
|
Return lnSucces
|
|
Endproc
|
|
|
|
*****==============================================================
|
|
Procedure EditLucrare
|
|
parameters tnId
|
|
|
|
private poRec
|
|
*!* IF EMPTY(tnid)
|
|
|
|
*!* endif
|
|
lcSql = [select * from luc_vlucrari_tot where ]+Iif(!Empty(tnId),[ id = ?tnId], [1=2])
|
|
lcCursor = Sys(2015)
|
|
lnSucces = goExecutant.executasql(lcSql,lcCursor)
|
|
If lnSucces > 0
|
|
Select (lcCursor)
|
|
Scatter Name poRec Memo
|
|
poRec.datal = TTOD(poRec.datal)
|
|
Do Form frm_lucrare_noua
|
|
Endif
|
|
Return lnSucces
|
|
Endproc
|
|
**************************
|