28 lines
848 B
Plaintext
28 lines
848 B
Plaintext
Function Convert_Excel_Export_Paths(Void)
|
|
|
|
$Insert LOGICAL
|
|
$insert EXPORTS_EQU
|
|
|
|
Declare function Database_Services, Error_Services, SRP_Path
|
|
Declare subroutine Database_Services, Error_Services, SRP_Path
|
|
|
|
hExports = Database_Services('GetTableHandle', 'EXPORTS')
|
|
@DICT = Database_Services('GetTableHandle', 'DICT.EXPORTS')
|
|
|
|
Select hExports
|
|
EOF = False$
|
|
Loop
|
|
Readnext @ID else EOF = True$
|
|
Until EOF EQ True$
|
|
@RECORD = Database_Services('ReadDataRow', 'EXPORTS', @ID)
|
|
Path = @RECORD<EXPORTS_PATH$>
|
|
NewPath = {NEW_PATH}
|
|
@RECORD<EXPORTS_PATH$> = NewPath
|
|
* Database_Services('WriteDataRow', 'EXPORTS', @ID, @RECORD, True$, '', True$)
|
|
If Error_Services('HasError') then
|
|
Error_Services('DisplayError')
|
|
end
|
|
Repeat
|
|
|
|
Return ''
|