Skip to content

Instantly share code, notes, and snippets.

@mukasc

mukasc/TEC_AnnaGravaLog.txt

Created July 3, 2020 19:22
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save mukasc/b254b288afbe9b91f89d24956070282c to your computer and use it in GitHub Desktop.
Save mukasc/b254b288afbe9b91f89d24956070282c to your computer and use it in GitHub Desktop.
Download ZIP
Raw
TEC_AnnaGravaLog.txt
Parm(in:&LogType,in:&LogUser,in:&LogDescription);
for each
order (TEC_AnnaLogSeq)
defined by TEC_AnnaLogType
&newTEC_AnnaLogSeq = TEC_AnnaLogSeq + 1
exit
when none
&newTEC_AnnaLogSeq = 1
endfor
New
TEC_AnnaLogSeq = &newTEC_AnnaLogSeq
TEC_AnnaLogType = &LogType
TEC_AnnaLogUser = &LogUser
TEC_AnnaLogDesc = &LogDescription
TEC_AnnaLogDate = now()
endnew
commit
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment