Not getting correct values in ODS

BW gurus
when i do delta loads for ODS i am getting strange values into my ods.How ever if i do full loads on ods ,i am getting correct values(same values as RSA3).
1 .Any idea why i am getting wrong values if i do delta loads .
2.If i make this ods as full load(currently delta) ,there are already few reports on this ods ,Will there be any effect on those reports?

Riccardo,Tony
Thanks for your quick reply.
I have in ods as follows
Asset fisper   qty
1     006.2006   2
1     007.2006   3
Now i have added 2 more assets to period 6
in RSA3 is ok as follows
Asset fisper   qty
1     006.2006   4
1     007.2006   3
In ods with delta load is not ok as follows
Asset fisper   qty
1     006.2006   9
1     007.2006   3
In ods with full load is OK as follows
Asset fisper   qty
1     006.2006   4
1     007.2006   3
any advice greatly appreciated

Similar Messages

BI Query with Hierarchy in VC does not get correct values

Hello Gurus,
I am building a model in VC for Performance Score card using Query as data service.
I have the following problem.
When I execute query in BEx with Hierachy_node variable , it is getting correct values, but the same is getting incorrect values in VC.
The Hierarcynode variable I am using is a TOP node, then the values including child nodes are also should be displayed, which is working fine with BEx query but not in VC.
When I execute the query with hierarchy node value as child node I am getting correct values both in VC and in BEx.
The correct values are not shown only when I use top nodes.
Please help me in this regard.
Thanks in advance
Ganesh

Hi
We are facing the same issue. Is this issue resolved? Pls let us know the solution
Regards
Aruna

In sprintf iam not getting correct value

char msg[256];
unsigned short int tempp8=0xffff;
sprintf (msg, "Checksum: %u ",tempp8);
WriteLine (iFile, msg, -1);
while run the program the msg value get wrong data
msg=34085812

Just tried your code and if works as expected on a Win7 machine with CVI2012SP1.
Which system are you running it on? Which CVI release are you using?
Proud to use LW/CVI from 3.1 on.
My contributions to the Developer Zone Community
If I have helped you, why not giving me a kudos?

NSV w/RT FIFO Read does not return correct value

I have a cRIO which is hosting a NSV w/ RT FIFO enabled. I can observe its value in the DSM.
I have a LabVIEW exe that reads this NSV with a SV node on the diagram. This read value is incorrect.
If a run the same vi from the development environment then the correct value is read. If I remove the RT FIFO option then
the exe version will work correctly. According to the NI SV white paper, each reader of a NSV w RT FIFO recieves its own
client side buffer so there should not be any interference. It should be mentioned that I am also creating a SV reference to this same NSV on the cRIO
for read only use.

Hello,
Have you tried using a Network Published shared variable to communicate between the host and target? This architecture would use a Network Published Shared Variable in a normal priority loop to pass data to a Single Process RT FIFO enabled shared variable on the target to move data to the time critical loop. Is the cRIO that you are accessing the only one present on the network? Also,. if you slow down your loop speeds, do you get correct values?
-Zach
Certified LabVIEW Developer

Not getting field value in Input field of field exit

Hi all
I am using field exit for data element GWLDT in transaction code IE02. But in this field exit I am not getting the value entered in the field "Begin guarantee date(GWLDT)" in the INPUT field of field exit.How I can get the value in the INPUT field of field exit?
Regards
Deepak

Use this statement in source code.
output = input.

JPA Error:Could not get a value to be injected from the factory

HI friends ,
I am trying to replicate the example JPAEXample01 using JPA in CE1 from the blogs written by
Sabine Heider/Adrian Görler.
During the testing of the method create employee i am getting the following error.
"Could not get a value to be injected from the factory."
I tried couple of examples using the above process, still held up with same error.
Any pointers to trouble shoot this ?
Thanks in advance
Chandra Dasari

HI Isaias Cristiano Barroso,
There are lot of enries most of them pertaining to properties set to yes or no.
out of which therre are tow errors. the log is as follows
Message Info: Failed (javax.management.MBeanPermission,#[:j2eeType=trace,name=EndToEndCentralMBean,],isActive,getGuidByName,getTraceLevelByName,getTraceLevelByName,importTrace,isFileExistsLocally,removeTraceFile)java.lang.reflect.InvocationTargetException
Failed (javax.management.MBeanPermission,*,DISPLAY)java.lang.reflect.InvocationTargetException
category: com.sap.security.core.role.PermissionData
Location:com.sap.security.core.role.PermissionData.get(ClassLoader)
Frankly the above log is above my understanding ,Prob it may help to you undertand my the issue
Thanks once again

JAPEXample01 published in sdn:error Could not get a value to be injected

HI friends ,
I am trying to replicate the example JPAEXample01 using JPA in CE1 from the blogs written by
Sabine Heider/Adrian Görler.
During the testing of the method create employee i am getting the following error.
"Could not get a value to be injected from the factory."
I tried couple of examples using the above process, still held up with same error.
Any pointers to trouble shoot this ?
Thanks in advance
Chandra Dasari.

HI Pritya Ranjan,
Let me know the entities and their relations ships you are using for quicker response.
To know the proper error, use the path as mentioned
nwa->problem management ->logs & traces->locks.
Email the error code,
The issue might be because of some many probabilities mentioned below.
Point no 1
Are you using Named queries : If so check the queries syntax, the syntax used here is different from regulat sql queries.
Point no 2:
Are you using Java DIctionary or generic db and connecting to max db?
check this part also
Point no 3:
Check your connection profile parameters:
Point no 4 :
Check the data-source-alias,persistence.xml and data-source.xml parameters..
Beacuse i trouble shooted a lot on JPA's and found why the typical error's occurs.
Regards
chandra dasari

Not getting correct Tax calculation - due to "Ship to party region code"

When we are making Sales order   using (UTXJ cond.)
Origin Country----
IN
Delivering Plant Region----
24
Ship To Party region----
24   (maintained in customer 1 address)
Tax Classification Customer------J
Tax Classification Material----
1
We are getting correct   Tax calculation for tax code AD (4% + 1%)
But when we are using
Origin Country----
IN
Delivering Plant Region     -
24
Ship To Party region----
06     (maintained for customer 2 address)
Tax Classification Customer------ J
Tax Classification Material----
1
We are not getting correct   Tax calculation for same tax code AD (4 %( JIN2) + 1 %( ZIN2)). Instead we are getting only 1%..

difference in tax codes used for sales purpose is just the fact that Ship to party region is different.
Ship To Party region----
24   (up)
Ship To Party region----
06    (Bihar)
For 06 it is not calculating correct values

I can not get link-value from af:tree.

Hello.
I use jdeveloper 10g.
I can not get link-value from tree.
I use following code:
<f:facet name="nodeStamp">
<h:panelGroup binding="#{backing_dialogDic_dic_ETS.panelGroup1}"
id="panelGroup1">
<h:outputText value="#{item.vidNum} #{item.vidName}"
binding="#{backing_dialogDic_dic_ETS.outputText1}"
id="outputText1"/>
<af:commandLink
binding="#{backing_dialogDic_dic_ETS.commandLink2}"
id="commandLink2"
action="#{backing_dialogDic_dic_ETS.returnObject}">
<af:setActionListener from="#{item.idVid}"
to="#{processScope.ETSId}"/>
<af:objectImage source="/images/icons/10.gif"
shortDesc="Выбрать"
binding="#{backing_dialogDic_dic_ETS.objectImage2}"
id="objectImage2"/>
</af:commandLink>
</h:panelGroup>
</f:facet>
</af:tree>
//in java bean:
public String return_Object() {
Object ob = JSFUtils.getManagedBeanValue("processScope.ETSId");
System.out.println(o);
return null;
In console I see null.
How I get this value???
I can get this value if i use treeTable instead of tree.
Thx, Dema.

Hi,
not that I think it matters, but the processScope is not a managed bean but a memory scope. So if
JSFUtils.getManagedBeanValue("processScope.ETSId");
assumes a managed bean then this may be incorrect as most likely there exist no managed bean with this name. You should be able to access the process scope from AdfFacesContext.getProcessScope(), which then returns a Map, which you call get("ETSId") on
Frank

Object - MLST_NETW container not getting the values?

Hi,
I created a custom FM for the object - MLST_NETW and event STARTED
and in the workflow container I created Element for this object - by selecting Obect type - MLST_NETW
Now the problem is - When we do status change in tcode - CJ20N it is triggering the custom worklfow but in the worklfow container it is not getting any values. Container fields are empty. I need to get the project defination field value to the workflow.
Can any one tell me what could be wrong?
Thanks in advance.
M.

Hi Murali,
Yes. Binding for event to workflow not defined.
For that, press Ctrl + F8 in the workflow template then it will take you to verision dependent tab. There you can find the start events tab.
Here only you entered the Business object and event. Right? So there one button is there for binding. CLick on it and check whether event to workflow binding has done or not.
Event container EVT_OBJTYPE should binded with your workflow business object.
Thanks.

Not getting any value in my method

Hi,
        I wnat to use attributes value Company code in my custom method in the BUS ZZBUS2081 . company code is key field of another BUS BUS0002. For that I am using swc_get_element CONTAINER 'CompanyCode' COMPANYCODE. but when I am executing BUS zzbus2081,attributes value is populated but i am not getting this value in my custom method. please help.

You can try to do some thing like this
1. First if you want to access the key element of the BOR then first import the instantiated BOR from which you want to access the attributes.
In your case it is BUS0002
DATA:    lv_obj    type swc_object.
swc_get_element container '<name of the instantiated BOR>' lv_obj.
2.once you have the instantited bor element in the Mehtod then make use of the macro
SWC_GET_PROPERTY
please check the below snippet
swc_get_element container     '_Workitem'          lv_wi_object.
swc_get_property lv_wi_object 'Workitemid'         lv_wiid.

OWHS table not getting any value in PLD

I am trying to make a pld in which i want to pull the database table owhs and place the warehouse address i am not getting any value in the PLD however there is adress in the ware house field still its not getting me any result
Please help
Regards,
manish

Hi Manish....
Even if you get the OWHS table you wont get the address format as you desire. That is complete concatenated address. It will be like city, street, country like that.....
Regards,
Rahul

Stock Ledger Report in Day Wise not giving correct values for Opening Stock

Dear Experts,
I m working on Sock ledger report to give the day wise data.
since yesterdays closing Stock will become opening stock of today,
To get Opening Stock,
I have restricted the stock key figure with 2 variables on calday
                              (DATE FROM var with <=(Lessthan or equal to) and offset -1
                               DATE TO      var with <=(Lessthan or equal to) and offset -1)
To get Closing Stock,
I have restricted the Stock key figure with 2 variables on calday
                              (DATE FROM var with <=(Lessthan or equal to)
                               DATE TO      var with <=(Lessthan or equal to) )
But in the output Opening stock values are not coming correctly and for given range of dates,
for last date, opening stock is showing as Zero.
Could you please tell me how can I achieve the correct values for opening stock.
Thanks in advance.

Hi Arjun,
Seems like you are making it more complicated. What is your selection screen criteria?
Ideally you should only use the offset.
You will have say Calday in rows and stock in Column
____________Opening Stock_____________Closing Stock
01/06/2009___(Closing stock of 31/05/2009)_(Stock of 01/06/2009)
02/06/2009___(Closing stock of 01/06/2009)_(Stock of 02/06/2009)
03/06/2009___(Closing stock of 02/06/2009)_(Stock of 03/06/2009)
So, from above scenario, create one RKFs and include Calday in it. Create a replacement path variable on calday and apply the offset as -1.
So, your Opening Stock will be calculated by closign stock of previous day.
- Danny

Dynamic Select List not displaying correct value

Hi there!
I have a page with a dynamic repeat region.
As I press one record I get up all the details based on id on an edit page.
The problem is that the info that is inserted via a Select List is not displaying correct on edit page.
All the other values are correct, also the values in the repeat region on index page,
but the value from the Select List on edit page is just displaying the initially selected item.
Have tried using SELECT DISTINCT in the SQL statement, but no luck.
Any other ideas?
Cut and paste from form:
<select name="Vegtype" class="ProvDet" id="Vegtype" title="<%=(rsAs.Fields.Item("VegType").Value)%>">
                    <option value="Ev" selected="selected">Ev</option>
                    <option value="Fv">Fv</option>
                    <option value="Rv">Rv</option>
                    <option value="Kv">Kv</option>
                  </select>
Recordset
<%
Dim rsAs
Dim rsAs_cmd
Dim rsAs_numRows
Set rsAs_cmd = Server.CreateObject ("ADODB.Command")
rsAs_cmd.ActiveConnection = MM_LabCon_STRING
rsAs_cmd.CommandText = "SELECT DISTINCT DatoM, DatoR, DatoU, Distr, FagFelt, Felt, IntNr, Km, KontrNr, Kontrollor, Masse, MasseBK, Punkt, Resept, TestID, UserID, VegHp, VegNavn, VegNr, VegType FROM tblTest WHERE TestID = ?"
rsAs_cmd.Prepared = true
rsAs_cmd.Parameters.Append rsAs_cmd.CreateParameter("param1", 5, 1, -1, rsAs__MMColParam) ' adDouble
Set rsAs = rsAs_cmd.Execute
rsAs_numRows = 0
%>
Regards,
Christian
DWCS5 | .Asp | MS Access

Ok, here goes the top down approach...
In the HTML header of my page, i have this reference to a js file containing the javascript - <script src="#WORKSPACE_IMAGES#108.js" type="text/javascript"></script>
Then in an HTML Region I have the following code to create the divs that will be shown and hidden - <div id="divREGION" class="divs">Select region to get list of countries.</div>
<div id="divCOUNTRY" class="divs">Select country to get list of cities.</div>
<div id="divCITY" class="divs">Select city and then press "Get Employees". </div>
Note that these divs contain static content. You may be able to create dynamic content for these divs by creating dynamic query regions and putting div tags around the region (i havent tried this, it may require template modification).
The select boxes have this code in the "HTML form elements attributes" - onFocus="javascript:showHideDiv(this,true)" onBlur="javascript:showHideDiv(this,false)"
This onFocus and onBlur call the showHideDiv() function, passing in the object reference of the select box and a true/false to show/hide the related div.
The actual javascript function that is contained in the 108.js file is:
function showHideDiv(objThis, inBool){
     var divid = "div" + objThis.id.substring(3);
     if (inBool) {
     ShowDiv(divid);
     else {
HideDiv(divid);
That function in turn calls either the ShowDiv() or HideDiv() functions, depending on the true or false, passing in the ID of the div to be changed...
function ShowDiv(divid){
     eval('document.all'+ '["' + divid + '"]' + '.style' +'.display = "inline"');
function HideDiv(divid){
     eval('document.all'+ '["' + divid + '"]' + '.style' +'.display = "none"');
Hope this helps.

TryParse not passing correct values?

All,
I'm trying to parse text box input to an integer. Then based on the value of that integer a sub will set values for various other variables (integers). Then the integers that are obtained from the sub are passed to a sb.appendline.
I am doing this for about 20 text boxes. However, sometimes it works and sometimes it doesn't. Sometimes every line in the text file will contain the correct quotas (integers). Sometimes the first line in the text file contains
all zeros for the quotas and the rest of the lines in the text file contain the correct quotas. Sometimes all of the lines will contain either incorrect values for the quotas or all zeros for the quotas.
I am baffled as to why. Any help would be greatly appreciated.
James
Public Class Form1
Public inBW As Integer
Public outBW As Integer
Public inTCP As Integer
Public inUDP As Integer
Public inICMP As Integer
Public inIGMP As Integer
Public outTCP As Integer
Public outUDP As Integer
Public outICMP As Integer
Public outIGMP As Integer
Public tempInt As Integer
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim FileName As String
Dim FileNameAndPath As String
FileName = "Test.txt"
FileNameAndPath = IO.Path.Combine(AppDomain.CurrentDomain.BaseDirectory, FileName)
Dim sb As New System.Text.StringBuilder
'Get Bandwidth 1 Quotas
Integer.TryParse(txtInboundBW1.Text, inBW)
Integer.TryParse(txtOutboundBW1.Text, outBW)
Get_Quotas()
'Write Bandwidth 1 quotas to file
sb.AppendLine(("create Quotas -bw_in ") & txtInboundBW1.Text & (" -bw_out ") & txtOutboundBW1.Text & (" -in_tcp_quota " & inTCP & " -in_udp_quota " & inUDP & " -in_icmp_quota " & inICMP & " -in_igmp_quota " & inIGMP & " -out_tcp_quota " & outTCP & " -out_udp_quota " & outUDP & " -out_icmp_quota " & outICMP & " -out_igmp_quota " & outIGMP))
'Get Bandwidth 2 Quotas
Integer.TryParse(txtInboundBW2.Text, inBW)
Integer.TryParse(txtOutboundBW2.Text, outBW)
Get_Quotas()
'Write Bandwidth 2 quotas to file
sb.AppendLine(("create Quotas -bw_in ") & txtInboundBW2.Text & (" -bw_out ") & txtOutboundBW2.Text & (" -in_tcp_quota " & inTCP & " -in_udp_quota " & inUDP & " -in_icmp_quota " & inICMP & " -in_igmp_quota " & inIGMP & " -out_tcp_quota " & outTCP & " -out_udp_quota " & outUDP & " -out_icmp_quota " & outICMP & " -out_igmp_quota " & outIGMP))
SaveFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
SaveFileDialog1.FileName = FileName
SaveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
IO.File.WriteAllText(SaveFileDialog1.FileName, sb.ToString)
Process.Start(SaveFileDialog1.FileName)
End If
End Sub
Public Sub Get_Quotas()
'5,000 kbps = 80,50,10,10
'10,000 kbps = 75,50,9,9
'100,000 kbps= 75,50,2,2
'1,000,000 kbps= 75,50,1,1
'10,000,000 kbps= 75,50,1,1
'40,000,000 kbps= 75,50,1,1
If inBW > 0 And inBW <= 5000 Then
inTCP = 80
inUDP = 50
inICMP = 10
inIGMP = 10
End If
If outBW > 0 And outBW <= 5000 Then
outTCP = 80
outUDP = 50
outICMP = 10
outIGMP = 10
End If
If inBW > 5000 And inBW <= 10000 Then
inTCP = 70
inUDP = 50
inICMP = 9
inIGMP = 9
End If
If outBW > 5000 And outBW <= 10000 Then
outTCP = 70
outUDP = 50
outICMP = 9
outIGMP = 9
End If
If inBW > 10000 And inBW <= 100000 Then
inTCP = 70
inUDP = 50
inICMP = 2
inIGMP = 2
End If
If outBW > 10000 And outBW <= 100000 Then
outTCP = 70
outUDP = 50
outICMP = 2
outIGMP = 2
End If
If inBW > 100000 And inBW <= 4000000 Then
inTCP = 70
inUDP = 50
inICMP = 1
inIGMP = 1
End If
If outBW > 100000 And outBW <= 4000000 Then
outTCP = 70
outUDP = 50
outICMP = 1
outIGMP = 1
End If
End Sub
End Class

Version with XML comments (IntelliSense support):
Option Strict On
Option Explicit On
Option Infer Off
Namespace James
Public Class BandwidthPolicy
''' <summary>
''' An enumerator for the policy type (currently five).
''' </summary>
''' <remarks></remarks>
Public Enum PolicyType
Global_Policy
Web_Policy
Mail_Policy
FTP_Policy
DNS_Policy
End Enum
Private _global_PolicyQuota As BandwidthQuota
Private _web_PolicyQuota As BandwidthQuota
Private _mail_PolicyQuota As BandwidthQuota
Private _fTP_PolicyQuota As BandwidthQuota
Private _dNS_PolicyQuota As BandwidthQuota
Public Sub New()
End Sub
''' <summary>
''' Gets the DNS policy quota.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property DNS_PolicyQuota As BandwidthQuota
Get
Return _dNS_PolicyQuota
End Get
End Property
''' <summary>
''' Gets the FTP policy quota.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property FTP_PolicyQuota As BandwidthQuota
Get
Return _fTP_PolicyQuota
End Get
End Property
''' <summary>
''' Gets the Global policy quota.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property Global_PolicyQuota As BandwidthQuota
Get
Return _global_PolicyQuota
End Get
End Property
''' <summary>
''' Gets the Mail policy quota.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property Mail_PolicyQuota As BandwidthQuota
Get
Return _mail_PolicyQuota
End Get
End Property
''' <summary>
''' Gets the Web policy quota.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property Web_PolicyQuota As BandwidthQuota
Get
Return _web_PolicyQuota
End Get
End Property
''' <summary>
''' A method to set the policy quota for any of the policy types.
''' This method requires that you have already created/initialized
''' the BandwidthQuota.
''' </summary>
''' <param name="type">The enumerator to indicate which policy type
''' to initialize.</param>
''' <param name="bq">The instance of PolicyType to set this policy
''' to.</param>
Public Sub SetPolicy(ByVal type As PolicyType, _
ByVal bq As BandwidthQuota)
Try
Select Case type
Case PolicyType.DNS_Policy
_dNS_PolicyQuota = bq
Case PolicyType.FTP_Policy
_fTP_PolicyQuota = bq
Case PolicyType.Global_Policy
_global_PolicyQuota = bq
Case PolicyType.Mail_Policy
_mail_PolicyQuota = bq
Case PolicyType.Web_Policy
_web_PolicyQuota = bq
End Select
Catch ex As Exception
Throw
End Try
End Sub
''' <summary>
''' A method to set the policy quota for any of the policy types.
''' This method will create/initialize the BandwidthPolicy for any
''' of the policy types.
''' </summary>
''' <param name="type">The enumerator to indicate which policy
''' type to initialize.</param>
''' <param name="bandwidthIn">The bandwidth input value.</param>
''' <param name="bandwidthOut">The bandwidth output value.</param>
''' <remarks></remarks>
Public Sub SetPolicy(ByVal type As PolicyType, _
ByVal bandwidthIn As Integer, _
ByVal bandwidthOut As Integer)
Try
Select Case type
Case PolicyType.DNS_Policy
_dNS_PolicyQuota = New BandwidthQuota(bandwidthIn, bandwidthOut)
Case PolicyType.FTP_Policy
_fTP_PolicyQuota = New BandwidthQuota(bandwidthIn, bandwidthOut)
Case PolicyType.Global_Policy
_global_PolicyQuota = New BandwidthQuota(bandwidthIn, bandwidthOut)
Case PolicyType.Mail_Policy
_mail_PolicyQuota = New BandwidthQuota(bandwidthIn, bandwidthOut)
Case PolicyType.Web_Policy
_web_PolicyQuota = New BandwidthQuota(bandwidthIn, bandwidthOut)
End Select
Catch ex As Exception
Throw
End Try
End Sub
''' <summary>
''' A method which will return a formatted string indicating the
''' values of the BandwidthQuota for any of the policy types.
''' </summary>
''' <param name="type">The enumerator to indicate which policy type
''' to retrieve.</param>
''' <param name="throwIfNotInitialized">OPTIONAL: A boolean value
''' indicating whether or not to throw an exception if the policy
''' type chosen has not been initialized. Default: False.</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GetFormattedString(ByVal type As PolicyType, _
Optional ByVal throwIfNotInitialized As Boolean = False) As String
Dim retVal As String = String.Empty
Try
Dim bq As BandwidthQuota
Select Case type
Case PolicyType.DNS_Policy
If _dNS_PolicyQuota.BW_In > 0 AndAlso _dNS_PolicyQuota.BW_Out > 0 Then
bq = _dNS_PolicyQuota
With bq
retVal = _
String.Format("create DNSPolicy" & _
" -bw_in {0}" & _
" -bw_out {1}" & _
" -in_tcp_quota {2}" & _
" -in_udp_quota {3}" & _
" -in_icmp_quota {4}" & _
" -in_igmp_quota {5}" & _
" -out_tcp_quota {6}" & _
" -out_udp_quoata {7}" & _
" -out_icmp_quota {8}" & _
" -out_igmp_quota {9}", _
.BW_In, .BW_Out, .TCP_In, _
.UDP_In, .ICMP_In, .IGMP_In, _
.TCP_Out, .UDP_Out, .ICMP_Out, _
.IGMP_Out)
End With
Else
If throwIfNotInitialized Then
Throw New ArgumentException("The DNS policy has not been initialized.")
End If
End If
Case PolicyType.FTP_Policy
If _fTP_PolicyQuota.BW_In > 0 AndAlso _fTP_PolicyQuota.BW_Out > 0 Then
bq = _fTP_PolicyQuota
With bq
retVal = _
String.Format("create FTPPolicy" & _
" -bw_in {0}" & _
" -bw_out {1}" & _
" -in_tcp_quota {2}" & _
" -in_udp_quota {3}" & _
" -in_icmp_quota {4}" & _
" -in_igmp_quota {5}" & _
" -out_tcp_quota {6}" & _
" -out_udp_quoata {7}" & _
" -out_icmp_quota {8}" & _
" -out_igmp_quota {9}", _
.BW_In, .BW_Out, .TCP_In, _
.UDP_In, .ICMP_In, .IGMP_In, _
.TCP_Out, .UDP_Out, .ICMP_Out, _
.IGMP_Out)
End With
Else
If throwIfNotInitialized Then
Throw New ArgumentException("The FTP policy has not been initialized.")
End If
End If
Case PolicyType.Global_Policy
If _global_PolicyQuota.BW_In > 0 AndAlso _global_PolicyQuota.BW_Out > 0 Then
bq = _global_PolicyQuota
With bq
retVal = _
String.Format("create GlobalPolicy" & _
" -bw_in {0}" & _
" -bw_out {1}" & _
" -in_tcp_quota {2}" & _
" -in_udp_quota {3}" & _
" -in_icmp_quota {4}" & _
" -in_igmp_quota {5}" & _
" -out_tcp_quota {6}" & _
" -out_udp_quoata {7}" & _
" -out_icmp_quota {8}" & _
" -out_igmp_quota {9}", _
.BW_In, .BW_Out, .TCP_In, _
.UDP_In, .ICMP_In, .IGMP_In, _
.TCP_Out, .UDP_Out, .ICMP_Out, _
.IGMP_Out)
End With
Else
If throwIfNotInitialized Then
Throw New ArgumentException("The Global policy has not been initialized.")
End If
End If
Case PolicyType.Mail_Policy
If _mail_PolicyQuota.BW_In > 0 AndAlso _mail_PolicyQuota.BW_Out > 0 Then
bq = _mail_PolicyQuota
With bq
retVal = _
String.Format("create MailPolicy" & _
" -bw_in {0}" & _
" -bw_out {1}" & _
" -in_tcp_quota {2}" & _
" -in_udp_quota {3}" & _
" -in_icmp_quota {4}" & _
" -in_igmp_quota {5}" & _
" -out_tcp_quota {6}" & _
" -out_udp_quoata {7}" & _
" -out_icmp_quota {8}" & _
" -out_igmp_quota {9}", _
.BW_In, .BW_Out, .TCP_In, _
.UDP_In, .ICMP_In, .IGMP_In, _
.TCP_Out, .UDP_Out, .ICMP_Out, _
.IGMP_Out)
End With
Else
If throwIfNotInitialized Then
Throw New ArgumentException("The Mail policy has not been initialized.")
End If
End If
Case PolicyType.Web_Policy
If _web_PolicyQuota.BW_In > 0 AndAlso _web_PolicyQuota.BW_Out > 0 Then
bq = _web_PolicyQuota
With bq
retVal = _
String.Format("create WebPolicy" & _
" -bw_in {0}" & _
" -bw_out {1}" & _
" -in_tcp_quota {2}" & _
" -in_udp_quota {3}" & _
" -in_icmp_quota {4}" & _
" -in_igmp_quota {5}" & _
" -out_tcp_quota {6}" & _
" -out_udp_quoata {7}" & _
" -out_icmp_quota {8}" & _
" -out_igmp_quota {9}", _
.BW_In, .BW_Out, .TCP_In, _
.UDP_In, .ICMP_In, .IGMP_In, _
.TCP_Out, .UDP_Out, .ICMP_Out, _
.IGMP_Out)
End With
Else
If throwIfNotInitialized Then
Throw New ArgumentException("The Web policy has not been initialized.")
End If
End If
End Select
Catch ex As Exception
Throw
End Try
Return retVal
End Function
End Class
Public Structure BandwidthQuota
Private Enum InOut
Input
Output
End Enum
''' <summary>
''' Gets the minimum value for bandwidth.
''' </summary>
''' <remarks>Note that this is "hard-coded".</remarks>
Public Shared ReadOnly MinValue As Integer = 1
''' <summary>
''' Gets the maximum value for bandwidth.
''' </summary>
''' <remarks>Note that this is "hard-coded".</remarks>
Public Shared ReadOnly MaxValue As Integer = 40000000
Private _bW_In As Integer
Private _bW_Out As Integer
Private _tCP_In As Integer
Private _tCP_Out As Integer
Private _uDP_In As Integer
Private _uDP_Out As Integer
Private _iCMP_In As Integer
Private _iCMP_Out As Integer
Private _iGMP_In As Integer
Private _iGMP_Out As Integer
''' <summary>
''' The constructor for this structure.
''' </summary>
''' <param name="bandwidthIn">The value of the input bandwidth.</param>
''' <param name="bandwidthOut">The value of the output bandwidth.</param>
''' <remarks></remarks>
Public Sub New(ByVal bandwidthIn As Integer, _
ByVal bandwidthOut As Integer)
Try
If bandwidthIn < MinValue Then
Throw New _
ArgumentOutOfRangeException("Bandwidth In", _
"The minimum value is " & _
MinValue.ToString & _
" kBPS")
ElseIf bandwidthIn > MaxValue Then
Throw New _
ArgumentOutOfRangeException("Bandwidth In", _
"The maximum value is " & _
MaxValue.ToString & _
" kBPS")
ElseIf bandwidthOut < MinValue Then
Throw New _
ArgumentOutOfRangeException("Bandwidth Out", _
"The minimum value is " & _
MinValue.ToString & _
" kBPS")
ElseIf bandwidthOut > MaxValue Then
Throw New _
ArgumentOutOfRangeException("Bandwidth Out", _
"The maximum value is " & _
MaxValue.ToString & _
" kBPS")
Else
_bW_In = bandwidthIn
_bW_Out = bandwidthOut
ComputeValues(bandwidthIn, InOut.Input)
ComputeValues(bandwidthOut, InOut.Output)
End If
Catch ex As Exception
Throw
End Try
End Sub
''' <summary>
''' Gets the value of the input bandwidth.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property BW_In() As Integer
Get
Return _bW_In
End Get
End Property
''' <summary>
''' Gets the value of the output bandwidth.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property BW_Out() As Integer
Get
Return _bW_Out
End Get
End Property
''' <summary>
''' Gets the value for the input ICMP.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property ICMP_In() As Integer
Get
Return _iCMP_In
End Get
End Property
''' <summary>
''' Gets the value for the output ICMP.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property ICMP_Out() As Integer
Get
Return _iCMP_Out
End Get
End Property
''' <summary>
''' Gets the value for the input IGMP.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property IGMP_In() As Integer
Get
Return _iGMP_In
End Get
End Property
''' <summary>
''' Gets the value for the output IGMP.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property IGMP_Out() As Integer
Get
Return _iGMP_Out
End Get
End Property
''' <summary>
''' Gets the value for the input TCP.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property TCP_In() As Integer
Get
Return _tCP_In
End Get
End Property
''' <summary>
''' Gets the value for the output TCP.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property TCP_Out() As Integer
Get
Return _tCP_Out
End Get
End Property
''' <summary>
''' Gets the value for the input UDP.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property UDP_In() As Integer
Get
Return _uDP_In
End Get
End Property
''' <summary>
''' Gets the value for the output UDP.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property UDP_Out() As Integer
Get
Return _uDP_Out
End Get
End Property
Private Sub ComputeValues(ByVal value As Integer, _
ByVal io As InOut)
If value > 0 AndAlso value <= 5000 Then
SetValues(80, 50, 10, 10, io)
ElseIf value > 5000 AndAlso value <= 10000 Then
SetValues(75, 50, 9, 9, io)
ElseIf value > 10000 AndAlso value <= 100000 Then
SetValues(75, 50, 2, 2, io)
ElseIf value > 100000 AndAlso value <= 40000000 Then
SetValues(75, 50, 1, 1, io)
End If
End Sub
Private Sub SetValues(ByVal tcp As Integer, _
ByVal udp As Integer, _
ByVal icmp As Integer, _
ByVal igmp As Integer, _
ByVal io As InOut)
Select Case io
Case InOut.Input
_tCP_In = tcp
_uDP_In = udp
_iCMP_In = icmp
_iGMP_In = igmp
Case InOut.Output
_tCP_Out = tcp
_uDP_Out = udp
_iCMP_Out = icmp
_iGMP_Out = igmp
End Select
End Sub
End Structure
End Namespace
Still lost in code, just at a little higher level.

Not getting correct values in ODS

Similar Messages

Maybe you are looking for