pre cutover push
This commit is contained in:
@ -22,12 +22,7 @@ EQU CRLF$ TO \0D0A\
|
||||
|
||||
$INSERT EXCEL_EQU
|
||||
|
||||
IF @USERNAME = 'BRYCE_BARB' THEN
|
||||
DataArray = obj_GaN_Test('GetStatus')
|
||||
END ELSE
|
||||
DataArray = obj_GaN('GetStatus')
|
||||
END
|
||||
|
||||
DataArray = obj_GaN('GetStatus')
|
||||
|
||||
SWAP @VM WITH CHAR(9) IN DataArray
|
||||
SWAP @FM WITH CRLF$ IN DataArray
|
||||
@ -38,18 +33,18 @@ xlApp = OleCreateInstance("excel.Application") ;* Create instance of Exce
|
||||
|
||||
|
||||
IF OleStatus() THEN
|
||||
|
||||
|
||||
PasteBlob = DataArray
|
||||
|
||||
CALL Set_Property('CLIPBOARD', 'TEXT', PasteBlob)
|
||||
|
||||
|
||||
ErrorMsg = 'Excel failed to start.':CRLF$:CRLF$
|
||||
ErrorMsg := 'The data from this export is on your clipboard and can be pasted into Excel on your local machine using <Ctrl><V> .'
|
||||
|
||||
|
||||
ErrMsg(ErrorMsg)
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
RETURN
|
||||
|
||||
END
|
||||
|
||||
@ -81,7 +76,7 @@ OlePutProperty( graphic , 'Width' , '81')
|
||||
|
||||
OlePutProperty( xlPageSetup , 'RightHeader' , 'Page &P' ) ;* Set Right Header to show current page number
|
||||
|
||||
|
||||
|
||||
ColCnt = COUNT(DataArray,@FM) + (DataArray NE '')
|
||||
LineCnt = COUNT(DataArray<1>,@VM) + (DataArray<1> NE '')
|
||||
FOR LineNo = 1 TO LineCnt
|
||||
@ -155,15 +150,15 @@ RETURN
|
||||
* * * * * * *
|
||||
HadError:
|
||||
* * * * * * *
|
||||
|
||||
xlChart = ''
|
||||
Charts = ''
|
||||
range = ''
|
||||
xlSht = ''
|
||||
xlWkb=''
|
||||
xlWorkBooks = ''
|
||||
x = OleCallMethod(xlApp, 'Quit')
|
||||
|
||||
|
||||
xlChart = ''
|
||||
Charts = ''
|
||||
range = ''
|
||||
xlSht = ''
|
||||
xlWkb=''
|
||||
xlWorkBooks = ''
|
||||
x = OleCallMethod(xlApp, 'Quit')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user