Line: 1 to 1 | |||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| |||||||||||||||
Deleted: | |||||||||||||||
< < | |||||||||||||||
My Links
| |||||||||||||||
Line: 33 to 31 | |||||||||||||||
| |||||||||||||||
Added: | |||||||||||||||
> > | 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; | ||||||||||||||
| |||||||||||||||
Changed: | |||||||||||||||
< < |
| ||||||||||||||
> > |
| ||||||||||||||
| |||||||||||||||
Changed: | |||||||||||||||
< < |
| ||||||||||||||
> > |
| ||||||||||||||
| |||||||||||||||
Changed: | |||||||||||||||
< < |
| ||||||||||||||
> > |
| ||||||||||||||
|
Line: 1 to 1 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Added: | ||||||||||||||||||||||||||||||||||||||||||||||||||||||
> > |
My Links
My Personal DataNote: if personal data is being stored using a secret database, then it is only visible to the user and to administrators.My Personal PreferencesUncomment preferences variables to activate them (remove the #-sign). Help and details on preferences variables are available in TWikiPreferences.
Related Topics
|