root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 12.0 908

Browse Source 
Files correlati     : fp0.exe, sql/fp/fp0114.sql
Commento            : Modifiche tabella FPPRO
This commit is contained in:
Simone Palacino 2019-12-09 15:33:33 +01:00
parent c4e9bd3671
commit 221a8b33fe
2 changed files with 139 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/fp/fplib01.cpp
View File

@ -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));
}
}
}

136
src/fp/sql/fp0114.sql Normal file
View File

@ -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;