phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pre cutover push

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-04 20:33:41 -07:00
parent 6ea6969f4b
commit 7762b129af
2072 changed files with 130000 additions and 95295 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
SYSPROG/STPROC/ACTIVE_DIRECTORY_SERVICES.txt
View File

@ -71,8 +71,6 @@ Service GetADGroups(Username, Domain)
AccountMgmtDllPath = DotNetDir:'System.DirectoryServices.AccountManagement.dll'
Set_Property.Net(DotNetHandle, "AssemblyName", AccountMgmtDllPath)
If Not(Get_Status(errCode)) then
Params = 'Domain':@FM:'Infineon'
ParamTypes = 'System.DirectoryServices.AccountManagement.ContextType':@FM:'System.String'
objPC = Create_Class.Net(DotNetHandle, "System.DirectoryServices.AccountManagement.PrincipalContext", 0, Params, ParamTypes)
@ -142,4 +140,3 @@ Service GetComputerDomain()
end service

1
SYSPROG/STPROC/DATABASE_SERVICES.txt
View File

@ -958,6 +958,7 @@ Service WriteDataRow(TableName, KeyID, DataRow, IgnoreSelfLock, IgnoreMFSRoutine
end service
//----------------------------------------------------------------------------------------------------------------------
// UnlockKeyID
//

1
SYSPROG/STPROC/ERRMSG.txt
View File

@ -188,4 +188,3 @@ END
RETURN

1
SYSPROG/STPROC/LOGGING_SERVICES.txt
View File

@ -503,4 +503,3 @@ EmailMessage:
Result = SRP_Send_Mail(Message, ConfigFile)
return

1
SYSPROG/STPROC/OBJ_TABLES.txt
View File

@ -392,4 +392,3 @@ RETURN

378
SYSPROG/STPROC/POPUP_MONTH.txt Normal file
View File

@ -0,0 +1,378 @@
function Popup_Month(Options, Instruction, Param)
******************************************************************************
*
* Product : OpenInsight Works!
* Release : 3.4
*
* Procedure : Popup_Month
* Description: Displays a month calendar to facilitate date entry via
* keyboard and/or mouse.
*
* Usage : Popup_Month can be called as a Stored Procedure using a
* QuickEvent. For example, call Popup_Month on the OPTIONS
* event of each control used for date entry.
*
* See Also : Popup_Month
*
* History
* 02/09/97 cp Original programmer.
* 05/05/97 cp Completing for Works!
* 12/17/01 mtr changes for 32-bit
******************************************************************************
declare function Get_Property, Send_Message, Dialog_Box, SendMessage
declare subroutine Set_Property, Send_Message, End_Dialog, Popup_Month
declare subroutine SendMessage, GetWindowRect
$insert Logical
$insert Colors
$insert PS_Equates
equ FIRST_YEAR$ to 1980
equ LAST_YEAR$ to 2050
equ DAY_COUNT$ to "31,28,31,30,31,30,31,31,30,31,30,31"
equ DTM_READCELLRECT$ to 1079
equ DTM_GETCELLLEFTBOTTOM$ TO 1160
equ DTA_CURRENT$ to 1
if assigned(Default ) else Default = ""
if assigned(Instruction) else Instruction = ""
if assigned(Param ) else Param = ""
* mtr
if assigned(Options ) else Options = ""
Ret = ""
if len(Instruction) and num(Instruction) then
on Instruction gosub Create, Month_Changed, Year_Changed, Day_DblClk, Day_GotFocus, Day_PosChanged, OK_Click, Cancel_Click
end else
gosub StartWindow
end
return Ret
************************
* display month calendar
************************
StartWindow:
* determine the control to do the lookup for
Ctrl = Get_Property(@window, "FOCUS")
Ctrls = @window: @rm: Ctrl: @rm: Ctrl: @rm: Ctrl
Props = "MDIFRAME,TYPE,HANDLE,SELPOS"
gosub GetProps
Frame = field(Vals, @rm, 1)
Type = field(Vals, @rm, 2)
Handle = field(Vals, @rm, 3)
SelPos = field(Vals, @rm, 4)
Parent = @window
if len(Frame) then
Parent = Frame
end
Table = (Type = "EDITTABLE")
if Table else
SelPos = ""
end
Default = Get_Property(Ctrl, "INVALUE", SelPos)
if len(Default) else
Default = date()
end
Rect = str(\00\, 16)
* MTR 12-17-01 Changes for 32-bit
if Table then
* get x,y of edit table
GetWindowRect(Handle, Rect)
xDlg = seq(Rect [1,1]) + (seq(Rect [2,1]) * 256)
yDlg = seq(Rect [5,1]) + (seq(Rect [6,1]) * 256)
* add x,y+h of cell
LeftBottom = SendMessage(Handle, DTM_GETCELLLEFTBOTTOM$, DTA_CURRENT$, 0)
xDlg += mod(LeftBottom, 65536)
yDlg += int(LeftBottom / 65536)
end else
* get x,y+h of control
GetWindowRect(Handle, Rect)
xDlg = seq(Rect [1,1]) + (seq(Rect [2,1]) * 256)
yDlg = seq(Rect [13,1]) + (seq(Rect [14,1]) * 256)
end
Ans = Dialog_Box("POPUP_MONTH", Parent, Default: @fm: Ctrl: @fm: xDlg: @fm: yDlg: @fm: Options)
if len(Ans) then
Set_Property(Ctrl, "INVALUE", Ans, SelPos)
end
return
*******************************
* create event for month dialog
*******************************
Create:
Default = Param<1>
Ctrl = Param<2>
xDlg = Param<3>
yDlg = Param<4>
FirstYear = Param<5>
LastYear = Param<6>
if len(Default) else
Default = date()
end
if len(FirstYear) else
FirstYear = FIRST_YEAR$
end
if len(LastYear) else
LastYear = LAST_YEAR$
end
Day = fmt(Default, "DJS")
CurYear = Day [1,4]
CurMonth = Day [6,2]
CurDay = Day [9,2]
* build list of month names
List = ""
for i = 1 to 12
List<i> = i: "/1"
next i
List = iconv(List, "DH")
List = oconv(List, "DHL")
for i = 1 to 12
List<i> = List<i> [1," "]
next i
Ctrls = "@.LB_MONTH,@.LB_MONTH"
Props = "LIST,SELPOS"
Vals = List: @rm: CurMonth
List = ""
for i = FirstYear to LastYear
List<-1> = i
next i
*if CurYear >= FIRST_YEAR$ and CurYear <= LAST_YEAR$ then
* Pos = CurYear - FIRST_YEAR$ + 1
if CurYear >= FirstYear and CurYear <= LastYear then
Pos = CurYear - FirstYear + 1
end else
Pos = 1
end
Ctrls := ",@.LB_YEAR,@.LB_YEAR"
Props := ",LIST,SELPOS"
Vals := @rm: List: @rm: Pos
Ctrls := ",@.ET_DAY,@.LB_MONTH,SYSTEM"
Props := ",NEXT,PREVIOUS,FOCUS"
Vals := @rm: @window: ".LB_MONTH": @rm: @window: ".ET_DAY": @rm: @window: ".ET_DAY"
gosub SetProps
* signal that month changed
Popup_Month("", 2, CurDay)
* hide extra column (which must exist to allow cell selection)
Style = Send_Message(@window: ".ET_DAY", "COLSTYLE", 8, "")
Send_Message(@window: ".ET_DAY", "COLSTYLE", 8, bitor(Style, 32))
* position dialog, verify on-screen
Ctrls = "SYSTEM,@"
Props = "SIZE,SIZE"
gosub GetProps
Screen = field(Vals, @rm, 1)
Size = field(Vals, @rm, 2)
ORIG_SIZE = SIZE
if len(xDlg) and num(xDlg) and len(yDlg) and num(yDlg) then
Size<1> = xDlg
Size<2> = yDlg
end
if Size<1> + Size<3> > Screen<1> then
Size<1> = Screen<1> - Size<3>
end
if Size<2> + Size<4> > Screen<2> then
Size<2> = Screen<2> - Size<4>
end
Set_Property(@window, "SIZE", Size)
return
*******************************
* display the days in the month
*******************************
Month_Changed:
Year_Changed:
Ctrls = "@.LB_MONTH,@.LB_MONTH,@.LB_YEAR,@.LB_YEAR,@.ET_DAY,@.ET_DAY"
Props = "SELPOS,@PREV,TEXT,@PREV,TEXT,SELPOS"
gosub GetProps
Month = field(Vals, @rm, 1)
PrevMonth = field(Vals, @rm, 2)
Year = field(Vals, @rm, 3)
PrevYear = field(Vals, @rm, 4)
DftDay = field(Vals, @rm, 5)
Row = field(Vals, @rm, 6) <2>
if len(Month) and len(Year) and (Month # PrevMonth or Year # PrevYear) then
* get list of days (S,M,T,W,T,F) from the edit table column labels
List = Get_Property(@window: ".ET_DAY", "ORIG_STRUCT")<1,PSPOS_LABEL$>
convert @svm to @vm in List
* what day is the first on?
First = iconv(Year: "-": Month: "-01", "DJS")
Col = mod(First, 7) + 1
* how many days in the month?
cDays = field(DAY_COUNT$, ",", Month)
if Month = 2 then
if mod(Year, 4) = 0 and (mod(Year, 100) or mod(Year, 400) = 0) then
cDays += 1
end
end
if num(Param) and len(Param) then
DftDay = Param
end else
if Row > 1 and num(DftDay) and len(DftDay) else
DftDay = 1
end
end
if DftDay < 1 or DftDay > cDays then
DftDay = 1
end
* fill in the days
List := @fm: str(@vm, Col - 1)
cRows = 2
for iDay = 1 to cDays
if Col > 7 then
List := @fm
Col = 1
cRows += 1
end
List := iDay: @vm
* is this the day to default to?
if iDay = DftDay then
DftRow = cRows
DftCol = Col
end
Col += 1
next iDay
if cRows < 7 then
List := @fm
end
Ctrls = "@.ET_DAY,@.ET_DAY"
Props = "LIST,SELPOS"
Vals = List: @rm: DftCol: @fm: DftRow
gosub SetProps
* set day-of-week headers to blue
Send_Message(@window: ".ET_DAY", "COLOR_BY_POS", 0, 1, @fm: BLUE$)
end
return
***********************
* edit table poschanged
***********************
Day_GotFocus:
Day_PosChanged:
Ctrls = "@.ET_DAY,@.ET_DAY,@.ET_DAY,@.ET_DAY,@.ET_DAY"
Props = "TEXT,SELPOS,@PREV,NEXT,PREVIOUS"
gosub GetProps
Day = field(Vals, @rm, 1)
Pos = field(Vals, @rm, 2)
PrevPos = field(Vals, @rm, 3)
NextCtrl = field(Vals, @rm, 4)
PrevCtrl = field(Vals, @rm, 5)
isDate = (Pos<2> > 1 and num(Day) and len(Day))
if isDate then
if len(PrevPos) then
* reset previously selected day
Send_Message(@window: ".ET_DAY", "COLOR_BY_POS", PrevPos<1>, PrevPos<2>, WHITE$: @fm: BLACK$)
end
* select current day
Send_Message(@window: ".ET_DAY", "COLOR_BY_POS", Pos<1>, Pos<2>, BLACK$: @fm: WHITE$)
Ctrls = "@.ET_DAY"
Props = "@PREV"
Vals = Pos
end else
Ctrls = "@.ET_DAY"
Props = "SELPOS"
Vals = PrevPos
* handle tabbing
if Pos<2> <= 2 then
Focus = PrevCtrl
end else
Focus = NextCtrl
end
Ctrls := ",SYSTEM"
Props := ",FOCUS"
Vals := @rm: Focus
end
Ctrls := ",@.CB_OK"
Props := ",ENABLED"
Vals := @rm: isDate
gosub SetProps
return
*********************
* date chosen by user
*********************
Day_DblClk:
OK_Click:
Ctrls = "@.LB_MONTH,@.LB_YEAR,@.ET_DAY,@.ET_DAY"
Props = "SELPOS,TEXT,TEXT,SELPOS"
gosub GetProps
Month = field(Vals, @rm, 1)
Year = field(Vals, @rm, 2)
Day = field(Vals, @rm, 3)
Row = field(Vals, @rm, 4)<2>
if Row > 1 and num(Day) and len(Day) then
Date = iconv(Year: "-": Month: "-": Day, "DJS")
End_Dialog(@window, Date)
end
return
*****************************
* user cancels date selection
*****************************
Cancel_Click:
End_Dialog(@window, "")
return
***************** internal subroutines ******************
GetProps:
swap "@" with @window in Ctrls
convert "," to @rm in Ctrls
convert "," to @rm in Props
Vals = Get_Property(Ctrls, Props)
return
SetProps:
swap "@" with @window in Ctrls
convert "," to @rm in Ctrls
convert "," to @rm in Props
Set_Property(Ctrls, Props, Vals)
return

1
SYSPROG/STPROC/REPLICATION_SERVICES.txt
View File

@ -3756,4 +3756,3 @@ Service GetVersion()
Response = Version
end service

4
SYSPROG/STPROC/RTI_BRW_FILTER.txt
View File

@ -37,8 +37,12 @@ If Assigned(udetails) Else udetails = ""
If Assigned(Param1) Else Param1 = ""
*
* By default, no filters are applied EXCEPT for system-wide filters
/* BZS 031124
SecFlds = @ENVIRON_SET<ENV_EXCLUDE_FIELDS$>
Sectbl = @ENVIRON_SET<ENV_EXCLUDE_FROM_REPORTS$>
*/
SecFlds = @ENVIRON_SET_OI<ENV_EXCLUDE_FIELDS$>
SecTbl = @ENVIRON_SET_OI<ENV_EXCLUDE_FROM_REPORTS$>
rslt = ""
Begin Case

76
SYSPROG/STPROC/SQL_SERVICES.txt
View File

@ -237,30 +237,8 @@ Service WriteDataRowToSQL(OITableName, OIKeyID, OIRow, OIColumns)
If Error_Services('NoError') then
// Confirm if row already exists. This will determine if an INSERT or UPDATE should be made.
PrimarySQLTableName = SQL_Services('GetPrimarySQLTable', OITableName)
* If @User4 EQ 'DANIEL_ST' then
TransactionQueries = SQL_Services('GetSQLMergeStatements', OITableName, OIKeyID, OIRow, OIColumns)
* end else
* JoinClause = SQL_Services('GetJoinClause', OITableName, PrimarySQLTableName, OIKeyID, OIRow)
* SQLStatement = 'SELECT TOP 1 * FROM ' : PrimarySQLTablename : ' WHERE ' : JoinClause
* RowData = SQL_Services('ExecuteQuery', objConnection, SQLStatement, True$)
*
* If RowData EQ '' then
* // Create the INSERT statements to store the data in SQL.
* TransactionQueries = SQL_Services('GetSQLInsertStatements', OITableName, OIKeyID, OIRow, OIColumns)
* IF @UserName EQ 'DAN_CR' OR @User4 EQ 'DAN_CR' then
* Message = TransactionQueries
* Gosub WriteLog
* end
* end else
* // Create the UPDATE statements to store the data in SQL.
* TransactionQueries = SQL_Services('GetSQLUpdateStatements', OITableName, OIKeyID, OIRow, OIColumns)
* end
* end
PrimarySQLTableName = SQL_Services('GetPrimarySQLTable', OITableName)
TransactionQueries = SQL_Services('GetSQLMergeStatements', OITableName, OIKeyID, OIRow, OIColumns)
end
If Error_Services('NoError') AND (TransactionQueries NE '') then
@ -839,32 +817,17 @@ Service GetConnectionString(Server)
end else
If (Server NE '') then
* Domain = Active_Directory_Services('GetComputerDomain')
* Begin Case
* Case Domain _EQC 'infineon.com'
// Prod Stealth
ConnectionString = Database_Services('ReadDataRow', 'SERVERS', Server:'_STEALTH')
* Case Domain _EQC 'ec.local'
* // Prod EC
* ConnectionString = Database_Services('ReadDataRow', 'SERVERS', Server)
* Case Otherwise$
* // Default Prod EC
* ConnectionString = Database_Services('ReadDataRow', 'SERVERS', Server)
* End Case
// Prod Stealth
ConnectionString = Database_Services('ReadDataRow', 'SERVERS', Server)
If ConnectionString NE '' then
ConnectionString = Delete(ConnectionString, 2, 0, 0)
ProviderIdx = IndexC(ConnectionString, 'Provider', 1)
ProviderIdx = IndexC(ConnectionString, 'Provider', 1)
If ProviderIdx then
ConnectionString = ConnectionString[(ProviderIdx + 1), 999]
ConnectionString = ConnectionString[(ProviderIdx), 999]
ProviderEndIdx = Index(ConnectionString, ';', 1)
ConnectionString = ConnectionString[(ProviderEndIdx + 1), 999]
end
ServerIdx = IndexC(ConnectionString, 'Server', 1)
If ServerIdx then
ServerLen = Len(ConnectionString[ServerIdx, 'F;'])
ConnectionString[ServerIdx, ServerLen + 1] = ''
end
InitialIdx = IndexC(ConnectionString, 'Initial File Name', 1)
If InitialIdx then
InitialLen = Len(ConnectionString[InitialIdx, 'F;'])
@ -874,6 +837,29 @@ Service GetConnectionString(Server)
If DataSourceIdx then
ConnectionString[DataSourceIdx + 12, 0] = 'tcp:'
end
TrustIdx = IndexC(ConnectionString, 'Trust Server Certificate', 1)
If TrustIdx then
TrustLen = Len(ConnectionString[TrustIdx, 'F;'])
ConnectionString[TrustIdx, TrustLen + 1] = ''
end
AccessIdx = IndexC(ConnectionString, 'Access Token', 1)
If AccessIdx then
AccessLen = Len(ConnectionString[AccessIdx, 'F;'])
ConnectionString[AccessIdx, AccessLen + 1] = ''
end
AuthIdx = IndexC(ConnectionString, 'Authentication', 1)
If AuthIdx then
AuthLen = Len(ConnectionString[AuthIdx, 'F;'])
ConnectionString[AuthIdx, AuthLen + 1] = ''
end
SpnIdx = IndexC(ConnectionString, 'Server SPN', 1)
If SpnIdx then
SpnLen = Len(ConnectionString[SpnIdx, 'F;'])
ConnectionString[SpnIdx, SpnLen + 1] = ''
end
If ConnectionString[-1, 1] EQ ';' then ConnectionString[-1, 1] = ''
end else
Error_Services('Add', Server : ' is not a valid server. [' : Service : ']')
@ -3654,5 +3640,3 @@ return

1
SYSPROG/STPROC/SRP_VALIDATE_USER.txt
View File

@ -8,4 +8,3 @@ Declare function SRPLogonAPI_ValidateUser
Result = SRPLogonAPI_ValidateUser(Username, Password, Domain)
Return Result

1
SYSPROG/STPROC/TEST_LDAP.txt
View File

@ -9,4 +9,3 @@ Main:
Return

1
SYSPROG/STPROC/WM_MFS.txt
View File

@ -292,4 +292,3 @@ NEXT.FS:
NEXTFS = FS<1,1,1>
CALL @NEXTFS(Code, FS, Handle, Name, FMC, Record, Status)
RETURN