Initial commit - tasks v1.1.14

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>

backup/proceduri.prg

@@ -0,0 +1,37 @@
+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
+**************************