;SQLStat.PRStockABCKwotering.2
 ;(C)InterSystems, generated for class SQLStat.PRStockABCKwotering.  Do NOT edit. 10/01/2002 05:52PM
 ;;58C49E05537E0FF5;SQLStat.PRStockABCKwotering
 q
 ;
#classcontext SQLStat.PRStockABCKwotering
 #; method code import packages begin
 #import %Library
 #import SQLStat
 #; method code import packages end
 #; method code include files begin
 #include %occExtent
 #include %occInclude
 #include %occTransaction
 #; method code include files end


ProductSetModified(%this,newvalue) ;
 s $$$objModBit(##this,11)=''newvalue
 QUIT $$$OK
 q ""

#classcontext ..Rotatie
#classmethod
RotatieDisplayToLogical(%val) ;
 q $in(%val,"#.0","")
#endclassmethod
#endclasscontext ..Rotatie

RotatieGet(%this) ;
 q i%Rotatie

RotatieIsModified(%this) ;
 q $$$objModBit(##this,12)

#classmethod
RotatieIsValid(value) ;
 q $s(..RotatieIsValidDT(value):1,1:$$$ERROR($$$DatatypeValidationFailed,"SQLStat.PRStockABCKwotering.Rotatie"))
#endclassmethod

#classcontext ..Rotatie
#classmethod
RotatieIsValidDT(%val) ;
 q $isvalidnum(%val,1,-99999999999999999.9,99999999999999999.9)
#endclassmethod
#endclasscontext ..Rotatie

#classcontext ..Rotatie
#classmethod
RotatieLogicalToDisplay(%val) ;
 q $s(%val="":"",1:$fn(%val,"#.0",1))
#endclassmethod
#endclasscontext ..Rotatie

#classcontext ..Rotatie
#classmethod
RotatieNormalize(%val) ;
 q +$fn(%val,"",1)
#endclassmethod
#endclasscontext ..Rotatie

RotatieSet(%this,newvalue) ;
 s:newvalue'=i%Rotatie $$$objModBit(##this,12)=1
 s i%Rotatie=newvalue QUIT $$$OK
 q ""

RotatieSetModified(%this,newvalue) ;
 s $$$objModBit(##this,12)=''newvalue
 QUIT $$$OK
 q ""

#classcontext ..StockType
#classmethod
StockTypeDisplayToLogical(%val) ;
 q %val
#endclassmethod
#endclasscontext ..StockType

StockTypeGet(%this) ;
 q i%StockType

StockTypeIsModified(%this) ;
 q $$$objModBit(##this,13)

#classmethod
StockTypeIsValid(value) ;
 q $s(..StockTypeIsValidDT(value):1,1:$$$ERROR($$$DatatypeValidationFailed,"SQLStat.PRStockABCKwotering.StockType"))
#endclassmethod

#classcontext ..StockType
#classmethod
StockTypeIsValidDT(%val) ;
 q 1
#endclassmethod
#endclasscontext ..StockType

#classcontext ..StockType
#classmethod
StockTypeLogicalToDisplay(%val) ;
 q %val
#endclassmethod
#endclasscontext ..StockType

#classcontext ..StockType
#classmethod
StockTypeNormalize(%val) ;
 q $e(%val,1,1)
#endclassmethod
#endclasscontext ..StockType

StockTypeSet(%this,newvalue) ;
 s:newvalue'=i%StockType $$$objModBit(##this,13)=1
 s i%StockType=newvalue QUIT $$$OK
 q ""

StockTypeSetModified(%this,newvalue) ;
 s $$$objModBit(##this,13)=''newvalue
 QUIT $$$OK
 q ""

#classmethod
ExtentExecute(qHandle) ;
 n %sc,SQLCODE
 #sqlcompile select=RUNTIME
 s %sc=$$$OK
 s qHandle=$i(%objcn)
#EXECUTE s %msqlvar="%objcs(qHandle"
 &sql(DECLARE Q13 CURSOR FOR
             SELECT Product,Datum FROM SQLStat.StockABCKwotering)
#EXECUTE k %msqlvar
 &sql(OPEN Q13)
 i SQLCODE s %sc=$$$ERROR($$$QueryCannotInstantiate,"SQLCODE = "_SQLCODE)
 QUIT %sc
 q ""
#endclassmethod

#classmethod
ExtentClose(qHandle) ;
 n SQLCODE
 &sql(CLOSE Q13)
 k %objcsc(qHandle),%objcsp(qHandle),%objcss(qHandle),%objcst(qHandle),%objcsl(qHandle),%objcsR(qHandle),%objcsZ(qHandle),%objcsd(qHandle)
 QUIT $s('SQLCODE:$$$OK,1:$$$ERROR($$$SQLError,SQLCODE_" "_$g(%msg)))
 q ""
#endclassmethod

#classmethod
ExtentFetch(qHandle,Row,AtEnd) s AtEnd=$g(AtEnd,0)
 n SQLCODE,c1,c2
 s Row="",AtEnd=0
 &sql(FETCH Q13 INTO :c1,:c2)
 i 'SQLCODE s Row=$lb(c1_"||"_c2) i 1
 e  s AtEnd=1
 QUIT $s('SQLCODE:$$$OK,SQLCODE=100:$$$OK,1:$$$ERROR($$$SQLError,SQLCODE_" "_$g(%msg)))
 q ""
#endclassmethod

#classmethod
ExtentFetchRows(qHandle,FetchCount,RowSet,ReturnCount,AtEnd) s FetchCount=$g(FetchCount,0)
 n done,i,SQLCODE,c1,c2
 s done=0,RowSet="",ReturnCount=0,AtEnd=0
 f i=1:1 DO  q:done
 . &sql(FETCH Q13 INTO :c1,:c2)
 . i 'SQLCODE s RowSet=RowSet_$lb(c1_"||"_c2),ReturnCount=ReturnCount+1 s:ReturnCount=FetchCount done=1 s:($l(RowSet)+($l(RowSet)\ReturnCount))>24000 done=1 i 1
 . e  s done=1,AtEnd=1
 QUIT $s('SQLCODE:$$$OK,SQLCODE=100:$$$OK,1:$$$ERROR($$$SQLError,SQLCODE_" "_$g(%msg)))
 q ""
#endclassmethod

#classmethod
ExtentGetInfo(colinfo,parminfo,idinfo,qHandle) ;
 s parminfo=""
 n clientinfo
 s clientinfo=$g($$$QUERYclientinfo($$$pMAC,"SQLStat.PRStockABCKwotering","Extent"))
 i clientinfo'="" s colinfo=$lg(clientinfo,1),parminfo=$lg(clientinfo,2),idinfo=$lg(clientinfo,3) QUIT $$$OK
 n captions,exttypes,i,names,%sc
 s colinfo="",parminfo="",idinfo=$lb(0)
 s %sc=$$externaltype^%apiOLE("%Library.CacheString",.exttypes,"0")
 QUIT:$$$ISERR(%sc) %sc
 s names=$g($$$QUERYcolnames($$$pMAC,"SQLStat.PRStockABCKwotering","Extent"))
 s captions=$g($$$QUERYcolcaptions($$$pMAC,"SQLStat.PRStockABCKwotering","Extent"))
 f i=1:1:1 s colinfo=colinfo_$lb($lb($lg(names,i),$p(exttypes,",",i),$lg(captions,i)))
 s idinfo=$lb(1)
 s $$$QUERYclientinfo($$$pMAC,"SQLStat.PRStockABCKwotering","Extent")=$lb(colinfo,parminfo,idinfo)
 QUIT $$$OK
 q ""
#endclassmethod

#classmethod
ExtentPrepare(qHandle,statement,containid,optional) s containid=$g(containid,0)
 QUIT $$$OK
 q ""
#endclassmethod

#endclasscontext SQLStat.PRStockABCKwotering