From 221a8b33fe5d39dab31367bc4495a7de62545c47 Mon Sep 17 00:00:00 2001 From: Simone Palacino Date: Mon, 9 Dec 2019 15:33:33 +0100 Subject: [PATCH] Patch level : 12.0 908 Files correlati : fp0.exe, sql/fp/fp0114.sql Commento : Modifiche tabella FPPRO --- src/fp/fplib01.cpp | 6 +- src/fp/sql/fp0114.sql | 136 ++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 139 insertions(+), 3 deletions(-) create mode 100644 src/fp/sql/fp0114.sql diff --git a/src/fp/fplib01.cpp b/src/fp/fplib01.cpp index 80e68a95d..10488df59 100644 --- a/src/fp/fplib01.cpp +++ b/src/fp/fplib01.cpp @@ -124,16 +124,16 @@ bool check_tables() r = getline(f); if (r[0] == '-' && r[1] == '-') continue; - s += r; + s += r + '\n'; // Cerco un ; const int limiter = s.find(';') + 1; if(limiter > 0) { string query = s.substr(0, limiter); s.erase(0, limiter); - if(!fp_db().sq_set_exec(query) || !fp_db().sq_commit()) + if(!fp_db().sq_set_exec(query, false) || !fp_db().sq_commit()) { - fatal_box("Impossibile eseguire/salvare la query:\n%s\n%s", query.c_str(), fp_db().sq_get_token_text_error(0, false)); + fatal_box("Impossibile eseguire/salvare la query:\n%s\n%s", query.c_str(), fp_db().sq_get_text_error(false)); } } } diff --git a/src/fp/sql/fp0114.sql b/src/fp/sql/fp0114.sql new file mode 100644 index 000000000..8838b0f9a --- /dev/null +++ b/src/fp/sql/fp0114.sql @@ -0,0 +1,136 @@ +DECLARE @command NVARCHAR(1000) +DECLARE @column NVARCHAR(128) +------------------------------------- +-- PZ_DATAPROT +------------------------------------- +-- DROP CONSTRAINT +SELECT @column = 'PZ_DATAPROT' +SELECT @command = 'ALTER TABLE FPPRO00F DROP CONSTRAINT ' + name +FROM sys.default_constraints +WHERE parent_object_id = OBJECT_ID('FPPRO00F') + AND parent_column_id = COLUMNPROPERTY(OBJECT_ID('FPPRO00F'), @column, 'ColumnId') +EXECUTE (@command) +-- NEW DEFAULT CONSTRAINT +ALTER TABLE FPPRO00F +ADD CONSTRAINT DF_PZ_DATAPROT +DEFAULT GETDATE() FOR PZ_DATAPROT +-- NOT NULL +ALTER TABLE FPPRO00F +ALTER COLUMN PZ_DATAPROT DATETIME NOT NULL + +------------------------------------- +-- PZ_DATAACCET +------------------------------------- +-- DROP CONSTRAINT +SELECT @column = 'PZ_DATAACCET' +SELECT @command = 'ALTER TABLE FPPRO00F DROP CONSTRAINT ' + name +FROM sys.default_constraints +WHERE parent_object_id = OBJECT_ID('FPPRO00F') + AND parent_column_id = COLUMNPROPERTY(OBJECT_ID('FPPRO00F'), @column, 'ColumnId') +EXECUTE (@command) +-- NEW DEFAULT CONSTRAINT +ALTER TABLE FPPRO00F +ADD CONSTRAINT DF_PZ_DATAACCET +DEFAULT GETDATE() FOR PZ_DATAACCET + +------------------------------------- +-- PZ_DATACONT +------------------------------------- +-- DROP CONSTRAINT +SELECT @column = 'PZ_DATACONT' +SELECT @command = 'ALTER TABLE FPPRO00F DROP CONSTRAINT ' + name +FROM sys.default_constraints +WHERE parent_object_id = OBJECT_ID('FPPRO00F') + AND parent_column_id = COLUMNPROPERTY(OBJECT_ID('FPPRO00F'), @column, 'ColumnId') +EXECUTE (@command) +-- NEW DEFAULT CONSTRAINT +ALTER TABLE FPPRO00F +ADD CONSTRAINT DF_PZ_DATACONT +DEFAULT GETDATE() FOR PZ_DATACONT + +------------------------------------- +-- PZ_DATAREGCONT +------------------------------------- +-- DROP CONSTRAINT +SELECT @column = 'PZ_DATAREGCONT' +SELECT @command = 'ALTER TABLE FPPRO00F DROP CONSTRAINT ' + name +FROM sys.default_constraints +WHERE parent_object_id = OBJECT_ID('FPPRO00F') + AND parent_column_id = COLUMNPROPERTY(OBJECT_ID('FPPRO00F'), @column, 'ColumnId') +EXECUTE (@command) +-- NEW DEFAULT CONSTRAINT +ALTER TABLE FPPRO00F +ADD CONSTRAINT DF_PZ_DATAREGCONT +DEFAULT GETDATE() FOR PZ_DATAREGCONT +-- NOT NULL +ALTER TABLE FPPRO00F +ALTER COLUMN PZ_DATAREGCONT DATE NOT NULL + +------------------------------------- +-- PZ_DATAARCH +------------------------------------- +-- DROP CONSTRAINT +SELECT @column = 'PZ_DATAARCH' +SELECT @command = 'ALTER TABLE FPPRO00F DROP CONSTRAINT ' + name +FROM sys.default_constraints +WHERE parent_object_id = OBJECT_ID('FPPRO00F') + AND parent_column_id = COLUMNPROPERTY(OBJECT_ID('FPPRO00F'), @column, 'ColumnId') +EXECUTE (@command) +-- NEW DEFAULT CONSTRAINT +ALTER TABLE FPPRO00F +ADD CONSTRAINT DF_PZ_DATAARCH +DEFAULT GETDATE() FOR PZ_DATAARCH + +------------------------------------- +-- PZ_DATADOCR +------------------------------------- +-- DROP CONSTRAINT +SELECT @column = 'PZ_DATADOCR' +SELECT @command = 'ALTER TABLE FPPRO00F DROP CONSTRAINT ' + name +FROM sys.default_constraints +WHERE parent_object_id = OBJECT_ID('FPPRO00F') + AND parent_column_id = COLUMNPROPERTY(OBJECT_ID('FPPRO00F'), @column, 'ColumnId') +EXECUTE (@command) +-- NEW DEFAULT CONSTRAINT +ALTER TABLE FPPRO00F +ADD CONSTRAINT DF_PZ_DATADOCR +DEFAULT GETDATE() FOR PZ_DATADOCR +-- NOT NULL +ALTER TABLE FPPRO00F +ALTER COLUMN PZ_DATADOCR DATE NOT NULL + +------------------------------------- +-- PZ_NOMXML +------------------------------------- +ALTER TABLE FPPRO00F +ALTER COLUMN PZ_NOMXML CHAR(256) NOT NULL + +------------------------------------- +-- PZ_DATAORARIC +------------------------------------- +-- DROP CONSTRAINT +SELECT @column = 'PZ_DATAORARIC' +SELECT @command = 'ALTER TABLE FPPRO00F DROP CONSTRAINT ' + name +FROM sys.default_constraints +WHERE parent_object_id = OBJECT_ID('FPPRO00F') + AND parent_column_id = COLUMNPROPERTY(OBJECT_ID('FPPRO00F'), @column, 'ColumnId') +EXECUTE (@command) +-- NEW DEFAULT CONSTRAINT +ALTER TABLE FPPRO00F +ADD CONSTRAINT DF_PZ_DATAORARIC +DEFAULT GETDATE() FOR PZ_DATAORARIC + +------------------------------------- +-- PZ_DATASTATO +------------------------------------- +-- DROP CONSTRAINT +SELECT @column = 'PZ_DATASTATO' +SELECT @command = 'ALTER TABLE FPPRO00F DROP CONSTRAINT ' + name +FROM sys.default_constraints +WHERE parent_object_id = OBJECT_ID('FPPRO00F') + AND parent_column_id = COLUMNPROPERTY(OBJECT_ID('FPPRO00F'), @column, 'ColumnId') +EXECUTE (@command) +-- NEW DEFAULT CONSTRAINT +ALTER TABLE FPPRO00F +ADD CONSTRAINT DF_PZ_DATASTATO +DEFAULT GETDATE() FOR PZ_DATASTATO; \ No newline at end of file