57 lines
1.6 KiB
Plaintext
57 lines
1.6 KiB
Plaintext
Function Convert_LSL2_Forms(Void)
|
||
|
||
#pragma precomp SRP_PreCompiler
|
||
|
||
$Insert Logical
|
||
|
||
Declare Function RTI_Migrate_Repository_Entity_OIWin, Repository
|
||
|
||
debug
|
||
|
||
Open 'SYSUPGRADE' To hSysUpgrade Then
|
||
Select hSysUpgrade
|
||
EOF = False$
|
||
Loop
|
||
Readnext ID Else EOF = True$
|
||
Until EOF EQ True$
|
||
* If Index(ID, 'NDW_MAIN', 1) Then
|
||
* DEBUG
|
||
Read V9OIWinRec From hSysUpgrade, ID Then
|
||
If Index(ID, 'SYSREPOSWINS', 1) then Gosub WriteAndCompile
|
||
End Else
|
||
debug
|
||
Status = Get_Status(StatusCode)
|
||
rv = Set_Status(0)
|
||
end
|
||
* end
|
||
Repeat
|
||
end
|
||
|
||
Return ''
|
||
|
||
|
||
WriteAndCompile:
|
||
|
||
V10OIWinRec = RTI_Migrate_Repository_Entity_OIWin(V9OIWinRec, WarningText, UpdateText, @AppID)
|
||
|
||
If V10OIWinRec NE '' Then
|
||
WinID = ID[-1, 'B*']
|
||
ReposID = @AppID<1> : '*OIWIN**' : WinID
|
||
FormPart1 = V10OIWinRec[1, @RM]
|
||
FormPart2 = V10OIWinRec[Col2() + 1, @RM]
|
||
WindowTitle = FormPart2<0, 9>
|
||
rv = Repository('WRITE', ReposID, '', '', '', '', '', '', '', '', WindowTitle, V10OIWinRec)
|
||
If Get_Status(StatusCode) Then
|
||
debug
|
||
rv = Set_Status(0)
|
||
End Else
|
||
rv = Repository('COMPILE', ReposID)
|
||
If Get_Status(StatusCode) Then
|
||
debug
|
||
rv = Set_Status(0)
|
||
end
|
||
end
|
||
end
|
||
|
||
Return ''
|