Health Organizer Code

+ hor_data_export: added TDE_ContactsPerson: All the contacts of a person
* TExportMedicalData.Execute.WriteFooterForPage: https link instead of http
+ Added procedure TExportMedicalData.ProgressBar_StepIt;
+ Added procedure TExportMedicalData.ProgressBar_SetMaxSize;
+ Added the following messages:
rsColumnContacts
rsColumnFamilyDoctor
rsUS_CC_Home
rsUS_CC_Office
rsUS_CC_ContactCenter
rsUS_CC_Private
rsUS_CC_Familiar
rsUS_CC_HusbandWifePartner
rsUS_CC_Friend
rsUS_CC_Emergencies
rsUS_CC_Acquaintance
rsColumnContactsCategory
rsColumnContactsContact
rsColumnContactsNote
rsColumnContactsType
+ hor_database: Array_ContactsTypes: adds also the skype
- hor_database: fixed the constants
+ added TDE_ContactData: The user's type, the value and the ready to use link of a contact
+ added TDE_ContactDatas: An array of contact's data
+ added the tContactsCategories table
+ Added the possibility to define the contact type to the tHospitalsContacts, tHospitalsWardsContacts and tPersonsContacts tables
+ Added the following constants:
constDB_ContactCategory_Home
constDB_ContactCategory_Office
constDB_ContactCategory_ContactCenter
constDB_ContactCategory_Private
constDB_ContactCategory_Familiar
constDB_ContactCategory_HusbandWifePartner
constDB_ContactCategory_Neighbor
constDB_ContactCategory_Friend
constDB_ContactCategory_Emergencies
constDB_ContactCategory_Acquaintance
+ hor_database: added aContactsCategories
+ hor_database: added function Array_ContactsCategories: TArray;
+ hor_database: DB_ClearDynamicCodeDescriptionArrays: clears also Array_ContactsCategories
+ hor_database: Added function CheckContactCategories(): boolean: It checkes that the system's contact categories exist
+ hor_database: DB_CheckSystemData: calls also CheckContactCategories()
+ Added the TfrmNavigationContactsCategories form
+ Added the TfrmEditContacts_Categories form
+ TfrmMain: added the menu items and actions to list and add/edit the categories of the contacts
+ hor_database: TCodeToDescr: added ctdContactsTypes, ctdContactsCategories
+ hor_database: DecodeCodeOrDescription: handles also ctdContactsTypes, ctdContactsCategories
+ hor_database: DecodeCodeOrDescription: added the _Found output parameter
+ hor_database: function DB_CodeToDescription(const _Type: TCodeToDescr; const _Code: string; out _Description: string): boolean: Checks and loads the description of a code
+ hor_database: function DB_DescriptionToCode(const _Type: TCodeToDescr; const _Description: string; out _Code: string): boolean: Checks and loads the code of a description
- hor_database: DB_Update: updates the TheDatabaseWasUpdated parameter variable

+ added procedure TfrmEditPersons.OpenParents(_Query: TSQLQuery):
// Opens the given parent query excluding who is born before me and the
// current record: I can't be born by myself! :)
+ TfrmEditPersons.qDataAfterOpen: calls OpenParents

- Fixed the copyright year in the version information
- TfrmUsbStick_MedicalData.SaveConfigurations: does not export the configurations if there is nothing to export.

+ Added the "Quantity" field to the "tAgendaDrugs" table
+ Added the "SafeLife" field to the "tDocuments" table
+ Added the "SafeLife" field to the "tDocumentsFiles" table
+ "tDrugsPrescriptions": The EveryType field could be also set to N for "when necessary"
+ Added the rsUS_DRUGS_EVERY_WhenNecessary, rsDateTimeFormat_Navigation_Examinations translations
+ TfrmEditDrugs_Prescriptions.FillEvery: adds also rsUS_DRUGS_EVERY_WhenNecessary
+ Added the constDB_Every_WhenNecessary constant
+ Array_DrugsEvery: handles the "when necessary"
+ TfrmEditDrugs_Prescriptions.qDataEveryTypeChange: hides and blank the every quantity when "when necessary" is used
+ added the "tDrugsNamesConflicts" table: here you will say that, i.e, the A drug can't be taken together with the B drug because they are in conflict and you have to wait at least X hours between them
+ tContactsTypes table: extended the Name field to 20 characters
+ TfrmNavigationContactsTypes: extended the Name field to 20 characters
+ TfrmEditContacts_Types: extended the Name field to 20 characters
+ added procedure TfrmNavigationExaminations.FormCreate(Sender: TObject) to setup the date time format for the date of the examination within the list
+ TfrmEditExaminations: added the lblDayOfWeek label
+ Added procedure TfrmEditExaminations.UpdateDayOfWeek(const _Date: TDateTime);
+ TfrmEditExaminations.qDataDateChange: calls UpdateDayOfWeek to sets inside lblDayOfWeek label the day of the week of the selected date
+ Added the THorDBDateTimePicker component, derived from TDBDateTimePicker, to get the OnHorDateTimeChange event
+ TfrmEditExaminations.qDataAfterEdit: calls UpdateDayOfWeek

* Updated *.po files
- TfrmEditBase.SetColorForRequiredFieldsInside: checks that the requested field exists to avoid errors
- TfrmEditAllergies.pcData: hides the tabs names because there is only one tab
- TfrmEditAllergies.sbDTHAddClick: I really don't know why, but if the page is changed after the append, the dataset goes back to browse.... Then first I change tab, then I append.
+ New reminder

+ TfrmRestore: added the FStartTime member variable
+ TfrmRestore: added the tmrDuration timer
+ Added procedure TfrmRestore.StartTimerDuration
+ Added procedure TfrmRestore.StopTimerDuration;
+ Added procedure TfrmRestore.tmrDurationTimer(Sender: TObject);
+ TRestoreJob.UpdateForm: calls StartTimerDuration on sContinueAfterUserConfirmation
+ TRestoreSteps: added sStopTimer
+ TRestoreJob.UpdateForm: handles sStopTimer
+ TRestoreJob.Execute: asks to stop the timer of the duration when necessary
+ hor_restore: added the _ProgressBarMax_RestoringScript_ constant
* TRestoreJob.Restore: uses the _ProgressBarMax_RestoringScript_ constant
+ TfrmBackup.tmrDurationTimer: shows also the hours in the duration also if it should never happen (my 5,6 Gb backup takes 12 minutes)

+ THorSQLScript: added the HorLine read-only property to access FHorLine
+ TRestoreJob.Restore: uses a file stream and the THorSQLScript.HorExecuteFromStream method to load and execute the script to restore the database
+ TRestoreJob.Restore: uses HorLine instead of Line to log the current script line
+ TfrmDbConnect.FormCreate: fneBackup selects, by default, *.zip files, but you can choose "all files" filter as well
+ Added function THorSQLScript.HorRemoveComments(const _Statement: AnsiString ): AnsiString;
+ THorSQLScript.HorProcessStatement: uses HorRemoveComments to check for directives
- THorSQLScript.HorHandleKeyword: fixed the ktStartEnd start check
- THorSQLScript.HorHandleKeyword: fixed the ktString double usage
+ TRestoreJob.CheckIntegrity: sets search_path to fix the public schema usage
* TRestoreJob.Restore: uses 10000 steps in the progress bar
- TRestoreJob.Restore: uses $$ DollarStrings to be able to compile the functions
+ TRestoreJob.OnHorStatement: updates the progress bar according to the file position

+ TODO reminders
+ TUpdateThread: added the FRunningLongOperation member variable
+ TUpdateThread.Create: initializes FRunningLongOperation
+ added procedure TUpdateThread.ScriptStatement(Sender: TObject; Statement: TStrings; var StopExecution: Boolean): initializes FRunningLongOperation and StopExecution
+ TUpdateThread.GetStatus: uses also FRunningLongOperation to understand if a long operation is running
+ hor_backup: TNotifyDataActions: added ndaAskKeepTempFolderToManualZip
+ hor_backup: TNotifyData: added ModalResult
+ Added the following messagges:
rsQMsgTitleManualCompress
rsMsgErrorCompressingGoManual
rsTitleProvideDestinationBackupFolder
+ TExecuteBackupThread.AccessMainForm: handles ndaAskKeepTempFolderToManualZip
+ TExecuteBackupThread.Execute: if the compression fails, deletes the malformed zip file and asks if the user wants to manually compress the file. If the answer is yes, the temporary folder is opened instead of removed
+ added destructor TExecuteBackupThread.Destroy;: clears the temporary folder
+ added the Duration_BackupCompressed field to the tSettings table: How many seconds took the last backup with the compression
+ added the Duration_Backup field to the tSettings table: How many seconds took the last backup taken without the compression
+ TfrmBackup.FormClose: destroyes FThread
* TExecuteBackupThread.AccessMainForm: the btnCloseOpenFolder button is shown only when there are no errors
+ TfrmBackup: added the tmrDuration to show the duration and to estimate the missing time
+ TfrmBackup.bbtnCreateBackupClick: starts tmrDuration
+ TfrmBackup.FormClose: stops the tmrDuration
* TExecuteBackupThread.Execute: calls the ndaFinalizationWithErrors also in the case of outside exceptions
+ TExecuteBackupThread.AccessMainForm: on ndaFinalizationWithErrors and ndaFinalization stops the tmrDuration. On ndaFinalization saves the duration time
+ TfrmBackup: added FStartTime, FLastDuration, FCompress member variables
+ added class function TfrmBackup.GetLastBackupDuration(const _Compressed: boolean): integer;
+ Added procedure TfrmBackup.tmrDurationTimer(Sender: TObject);
+ Added function TfrmBackup.GetStartTime: TDateTime;
+ Added procedure TExecuteBackupThread.SaveDurationAndLastRun;
+ TExecuteBackupThread.AccessMainForm: save the last backup duration and date time
+ TfrmBackup: added the radiogroup to choose if to create the ZIP file or not. When not, the folder name is requested
+ TfrmBackup.FormCreate: sets the zip compression
+ TExecuteBackupThread.AccessMainForm: change icon when the compression has not to be done
+ TfrmBackup.btnCloseOpenFolderClick: handles the case of manual compression
+ TfrmBackup.FormCreate: sets the title of the select folder
+ TExecuteBackupThread: added the FCompress member variable
+ TExecuteBackupThread.Create: added the _Compress parameter to initialize FCompress
* Renamed TExecuteBackupThread.CreateInformationFile into TExecuteBackupThread.ChooseDestinationFolderCreateInformationFile
+ TExecuteBackupThread.AccessMainForm: commits the transaction on finish
* TfrmBackup: mmDumpStatus resizes with the window
- TUpdateThread.GetStatus: script line increased by one to show the current running line statement
* Added a workaround to avoid conversion errors from blob field to large object (sometimes, at least in my test computer, Postgresql is not able to read the entire blob field raising an error. Now those records are skipped and tried again later [till 4 trials])
+ Working on THorSQLScript to be able to run very huge script files

...yes: I'm still here, but the time is not so much...

- CONSOLE does not work to me on Linux, but only on Windows... Replaced by _HOR_CONSOLE_ and added to the compilation parameter

- Fixed compilation settings