Application_Current_Page = "06.10.00 Setup";

Show "01.01.00 Fixed Button Bar";
Show "01.02.00 Message Bar";


{ --- IMPOSTAZIONE GRIGLIA SETUP ----------------------------------------------------------------------------------------------------------------------------------------------------- }
DIM DBMasterUser AS MESSAGE;
DIM DBMasterPassword AS MESSAGE;
DIM PCNodeName AS MESSAGE;
DIM DBSetupName AS MESSAGE;
DIM DBSQLName AS MESSAGE;
DIM DBFilter_GroupMode AS MESSAGE;
DIM SETUPLINECHECK AS INTEGER;
DIM SETUP_SEQUENCE AS INTEGER;

DBSQLName = CALL ReadConfig("DBSQLName");

DBMasterUser = CALL ReadConfig( "DBMasterUser");
PCNodeName = CALL ReadTAG("PCNodeName",0);
DBMasterPassword = CALL ReadTAG ( "DBMasterPassword",0);   { -- Password di accesso al database -- }
pdSECDecryptString(DBMasterPassword, DBMasterPassword, PCNodeName);

{--REPO--}
{DBSetupName = CALL ReadConfig( "DBSetupName");}
IF PCNodeName  == DBSQLName THEN 
    DBSetupName =  CALL ReadConfig( "DBSetupName");
ELSE
    DBSetupName = CALL ReadConfig("DBSQLPrexName") + "_" + CALL ReadConfig("DBSetupName");
ENDIF;
{--//REPO--}

IF DBSQLName =="" THEN DBSQLName = "(local)"; ENDIF;

CALL WriteTAGInteger ("DBFilter_Expand",0);
CALL WriteTAG ("DBFilter_CodeGrid","");
CALL WriteTAGInteger ("SETUP_ButtonLock",1);
CALL WriteTAG ("SETUP_DescFilter","");

DBFilter_GroupMode = CALL ReadTAG ("DBFilter_GroupMode",0);
IF DBFilter_GroupMode == "" OR DBFilter_GroupMode == "FAILURE" 
	THEN CALL WriteTAG ("DBFilter_GroupMode","MAC");
ENDIF;


{ --- VERIFICA SE IL DATABASE SETUP E' COERENTE --------------------------------------------------------------------------------------------------------------------------------- }
SETUP_SEQUENCE = CALL ReadTAGInteger ("SETUP_SEQUENCE",0);

IF SETUP_SEQUENCE == 0 OR SETUP_SEQUENCE == 3
    THEN CALL WriteTAGInteger ("SETUP_LINE_Coherency" , 1);
               SETUPLINECHECK = CALL SETUPlineCheck( );
ENDIF;


{ --- Azzera tutti i bit di aggiornamento-------------------------------------------------------------------------------------------------------------------------------------------------------------------}
UpdateGrid = 0;
UpdateGrid.14=1;

{ --- IMPOSTAZIONE GRIGLIA LISTA STORICO ALLARMI ( GRIGLIA IN ALTO ) -------------------------------------------------------------------------------------------- }
#dgSETUP.CommandTimeout = 500;        { -- Timeout di esecuzione comando -- }
#dgSETUP.ConnectionTimeout = 50;        { -- Timeout di connessione al DB -- }
#dgSETUP.dgGridLinesType = 1;               { -- Tipo di griglia -- }
#dgSETUP.User = DBMasterUser;             { -- Login di accesso al database -- }
#dgSETUP.Password = DBMasterPassword;     { -- Password di accesso al database -- }
#dgSETUP.SourceString = DBSetupName;           { -- Nome database -- }
#dgSETUP.Server = DBSQLName;                             { -- Nome server SQL -- }
#dgSETUP.SQLstatement = "";                  { -- Query richiesta -- }

#dgSETUP.CursorLocation =     3;                        { -- Impostazione di comun. 1= SERVER -- }
#dgSETUP.CursorType =           0;                        { -- Modo di conness.veloce STATICO -- }
#dgSETUP.Mode =                    0;                        { -- Modo di utilizzo SOLO LETTURA -- }
#dgSETUP.PresentationType = 0;                        { -- Visualizza solo griglia -- }




#dgSETUP.dgBackGroundColor = CALL ColorRGB("184,204,226");
#dgSETUP.dgBackUnpopulatedColor =CALL ColorRGB ("184,204,226");
#dgSETUP.dgBackFixedHeaderColor = CALL ColorRGB ("122,150,223");



#dgSETUP.dgSetCellFont ( "@Arial Unicode MS",9,0,0,0);
#dgSETUP.StatusBarVisible =    0;                       { -- Visualizza barra di stato -- }

#dgSETUP.dgEnableHeaderClickToSort = 0; { -- Disabilita ordinamento automatico -- }
#dgSETUP.dgEnabled = 1;                         { -- Abilita oggetto -- }
#dgSETUP.dgVisible = 0;                            { -- Visualizza oggetto -- }
#dgSETUP.StatusBarButtons = 0;               { -- Visualizza i pulsanti -- }
#dgSETUP.dgWordWrap = 1;                     { -- .... -- }
#dgSETUP.grShowScreenTips = 1;            { -- Visualizza i tips sul grafico -- }
#dgSETUP.grInteriorFillType = 1;                { -- Visualizza sfondo sfumato -- }
#dgSETUP.Connect ( );                              { -- Connetti al database -- }


#dgSETUP.dgAddStringHighlightRule ( 5, "1", CALL ColorRGB ("255,255,255"));
#dgSETUP.dgAddStringHighlightRule ( 5, "2", CALL ColorRGB ("218,218,218"));
#dgSETUP.dgAddStringHighlightRule ( 5, "3", CALL ColorRGB ("255,191,191"));
#dgSETUP.dgAddStringHighlightRule ( 5, "4", CALL ColorRGB ("186,186,186"));

#dgSETUP.dgAllowColorHighlighting = 2; 
#dgSETUP.dgCursor = 0;                                      
#dgSETUP.dgCursorcolor = 0;  

#dgSETUP.Connect ( );                              { -- Connetti al database -- }

CALL WriteTAGInteger ("DBFilter_TypeHis",0);