57 lines
1.6 KiB
Plaintext
57 lines
1.6 KiB
Plaintext
Function Convert_OI9_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
|
|
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 ''
|