My Links

• ATasteOfTWiki - view a short introductory presentation on TWiki for beginners
• WelcomeGuest - starting points on TWiki
• TWikiUsersGuide - complete TWiki documentation, Quick Start to Reference
• Sandbox? - try out TWiki on your own
• RobsonSilvaSandbox? - just for me

My Personal Data

Note: if personal data is being stored using a secret database, then it is only visible to the user and to administrators.

My Personal Preferences

Uncomment preferences variables to activate them (remove the #-sign). Help and details on preferences variables are available in TWikiPreferences.

• Show tool-tip topic info on mouse-over of WikiWord links, on or off:
  • #Set LINKTOOLTIPINFO = off

Related Topics

• ChangePassword for changing your password
• ChangeEmailAddress for changing your email address
• TWikiUsers has a list of other TWiki users
• UserDocumentationCategory is a list of TWiki user documentation
• UserToolsCategory lists all TWiki user tools

procedure QMatriculaBeforePost? (DataSet? : TDataSet? );
var sMatricula: string;
begin
QCurso.close;
QCurso.open;
QSicadSetup? .Open;
if QMatricula.State in [dsInsert] then
begin
ProximoNumero? .parambyname('@mat').AsString :=
IntToStr? (FieldByName? ('AnoIngresso').AsInteger) +
IntToStr? (FieldByName? ('SemestreAtual').ASInteger) +
Copy(FieldByName? ('ID_Curso').AsString,2,2);
ProximoNumero? .Open;
sMatricula:=
IntToStr? (FieldByName? ('AnoIngresso').AsInteger) +
IntToStr? (FieldByName? ('SemestreAtual').ASInteger) +
Copy(FieldByName? ('ID_Curso').AsString,2,2)+
StringZero? (FieldByName? ('proximo').AsInteger, 3);
FieldByName? ('Matricula').AsString:=sMatricula;
ProximoNumero? .close;
end
else
QMatriculaData? _Matricula.Value:=date;
QsicadSetup? .close;
end;