Q5/ws_objects/Ew_dw2xls.pbl.src/n_dw2xls_datastore.sru

$PBExportHeader$n_dw2xls_datastore.sru
forward
global type n_dw2xls_datastore from datastore
end type
end forward

global type n_dw2xls_datastore from datastore
end type
global n_dw2xls_datastore n_dw2xls_datastore

type variables
 Boolean ib_RetrieveData
end variables

forward prototypes
public function boolean of_setdataobject (readonly string as_dataobject)
public subroutine of_setretrievedata (readonly boolean ab_retrieve)
public subroutine of_retrieve (readonly any an_args[], readonly string as_argtypes[])
end prototypes

public function boolean of_setdataobject (readonly string as_dataobject);String ls_Processing 
This.DataObject = as_DataObject
ls_Processing=  This.Describe("DataWindow.Processing")

IF ls_Processing<>""  AND ls_Processing<>"!" Then
	This.Modify("DataWindow.NoUserPrompt=yes") 
	Return TRUE
ELSE
	Return False
END IF

end function

public subroutine of_setretrievedata (readonly boolean ab_retrieve);ib_RetrieveData  =ab_Retrieve 
end subroutine

public subroutine of_retrieve (readonly any an_args[], readonly string as_argtypes[]);Int li_cnt

IF ib_RetrieveData Then
	IF SQLCA.DBHandle()<>0 Then
		This.SetTransObject(SQLCA)
	ELSE
		ib_RetrieveData=False
	END IF
END IF

li_cnt = UpperBound(an_Args)
Choose Case li_cnt
	Case 1
		  Retrieve(an_Args[1])
	Case 2
		 Retrieve(an_Args[1],  an_Args[2])
	Case 3
		 Retrieve(an_Args[1],  an_Args[2] , an_Args[3] )
	Case 4
		 Retrieve(an_Args[1],  an_Args[2] , an_Args[3],an_Args[4] )
	Case 5
		 Retrieve(an_Args[1],  an_Args[2] , an_Args[3],an_Args[4],an_Args[5]  )
	Case 6
		 Retrieve(an_Args[1],  an_Args[2] , an_Args[3],an_Args[4],an_Args[5] ,an_Args[6]  )
	Case 7
		 Retrieve(an_Args[1],  an_Args[2] , an_Args[3],an_Args[4],an_Args[5] ,an_Args[6],an_Args[7]  )
	Case 8
		 Retrieve(an_Args[1],  an_Args[2] , an_Args[3],an_Args[4],an_Args[5] ,an_Args[6],an_Args[7] ,an_Args[8] )
	Case 9
		 Retrieve(an_Args[1],  an_Args[2] , an_Args[3],an_Args[4],an_Args[5] ,an_Args[6],an_Args[7] ,an_Args[8],an_Args[9]  )
	Case 10
		 Retrieve(an_Args[1],  an_Args[2] , an_Args[3],an_Args[4],an_Args[5] ,an_Args[6],an_Args[7] ,an_Args[8],an_Args[9],an_Args[10]   )
	Case 11
		 Retrieve(an_Args[1],  an_Args[2] , an_Args[3],an_Args[4],an_Args[5] ,an_Args[6],an_Args[7] ,an_Args[8] ,an_Args[9],an_Args[10] ,an_Args[11])
	Case 12
		 Retrieve(an_Args[1],  an_Args[2] , an_Args[3],an_Args[4],an_Args[5] ,an_Args[6],an_Args[7] ,an_Args[8],an_Args[9],an_Args[10] ,an_Args[11] ,an_Args[12]  )
	Case 13
		 Retrieve(an_Args[1],  an_Args[2] , an_Args[3],an_Args[4],an_Args[5] ,an_Args[6],an_Args[7] ,an_Args[8] ,an_Args[9],an_Args[10] ,an_Args[11] ,an_Args[12],an_Args[13]  )
	Case 14
		 Retrieve(an_Args[1],  an_Args[2] , an_Args[3],an_Args[4],an_Args[5] ,an_Args[6],an_Args[7] ,an_Args[8] ,an_Args[9],an_Args[10] ,an_Args[11] ,an_Args[12],an_Args[13] ,an_Args[14]  )
	Case 15
		 Retrieve(an_Args[1],  an_Args[2] , an_Args[3],an_Args[4],an_Args[5] ,an_Args[6],an_Args[7] ,an_Args[8] ,an_Args[9],an_Args[10] ,an_Args[11] ,an_Args[12],an_Args[13],an_Args[14],an_Args[15]  )
	Case 16
		 Retrieve(an_Args[1],  an_Args[2] , an_Args[3],an_Args[4],an_Args[5] ,an_Args[6],an_Args[7] ,an_Args[8] ,an_Args[9],an_Args[10] ,an_Args[11] ,an_Args[12],an_Args[13] ,an_Args[14],an_Args[15] , an_Args[16] )
	Case 17
		 Retrieve(an_Args[1],  an_Args[2] , an_Args[3],an_Args[4],an_Args[5] ,an_Args[6],an_Args[7] ,an_Args[8] ,an_Args[9],an_Args[10] ,an_Args[11] ,an_Args[12],an_Args[13] ,an_Args[14],an_Args[15] , an_Args[16] ,an_Args[17] )
	Case 18
		 Retrieve(an_Args[1],  an_Args[2] , an_Args[3],an_Args[4],an_Args[5] ,an_Args[6],an_Args[7] ,an_Args[8] ,an_Args[9],an_Args[10] ,an_Args[11] ,an_Args[12],an_Args[13] ,an_Args[14],an_Args[15] , an_Args[16] ,an_Args[17],an_Args[18] )
	Case 19
		 Retrieve(an_Args[1],  an_Args[2] , an_Args[3],an_Args[4],an_Args[5] ,an_Args[6],an_Args[7] ,an_Args[8] ,an_Args[9],an_Args[10] ,an_Args[11] ,an_Args[12],an_Args[13] ,an_Args[14],an_Args[15] , an_Args[16] ,an_Args[17],an_Args[18],an_Args[19] )
	Case 20
		 Retrieve(an_Args[1],  an_Args[2] , an_Args[3],an_Args[4],an_Args[5] ,an_Args[6],an_Args[7] ,an_Args[8] ,an_Args[9],an_Args[10] ,an_Args[11] ,an_Args[12],an_Args[13] ,an_Args[14],an_Args[15] , an_Args[16] ,an_Args[17],an_Args[18],an_Args[19],an_Args[20] )
 
END CHOOSE 
end subroutine

on n_dw2xls_datastore.create
call super::create
TriggerEvent( this, "constructor" )
end on

on n_dw2xls_datastore.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on

event retrievestart;IF Not ib_RetrieveData Then
	Return 1 
END IF


end event

event dberror;Return 1 
end event