Kronos 6.0 ODBC SSRS Report

Here is a report I am developing for the Kronos 6.0 database. It may be useful to somebody??

<?xml version="1.0" encoding="utf-8"?>

<rd:DataSourceID>02cfc513-e181-4dcc-8072-dd05357eb654</rd:DataSourceID>

<DataSourceReference>dsKronos</DataSourceReference>

</DataSource>

</DataSources>

<DataType>DateTime</DataType>

<Value>=Code.GetDate("s")</Value>

</Values>

</DefaultValue>

</ReportParameter>

<DataType>DateTime</DataType>

<Value>=Code.GetDate("e")</Value>

</Values>

</DefaultValue>

</ReportParameter>

<DataType>String</DataType>

<DataSetName>dsLLP</DataSetName>

<ValueField>fldLLP</ValueField>

</DataSetReference>

</DefaultValue>

<DataSetName>dsLLP</DataSetName>

<ValueField>fldLLP</ValueField>

</DataSetReference>

</ValidValues>

</ReportParameter>

<DataType>Integer</DataType>

<DataSetName>dsSecureFields</DataSetName>

</DataSetReference>

</DefaultValue>

<Prompt>Group By</Prompt>

<DataSetName>dsSecureFields</DataSetName>

<LabelField>DESCRIP</LabelField>

</DataSetReference>

</ValidValues>

</ReportParameter>

<DataType>Boolean</DataType>

</Values>

</DefaultValue>

<Prompt>Expand/Collapse All: </Prompt>

<Value>False</Value>

<Label>Expand All</Label>

</ParameterValue>

<Label>Collapse All</Label>

</ParameterValue>

</ParameterValues>

</ValidValues>

</ReportParameter>

</ReportParameters>

<rd:DrawGrid>true</rd:DrawGrid>

<rd:SnapToGrid>true</rd:SnapToGrid>

<rd:ReportID>9bc74bd7-8072-4900-b97f-e6ed790268d2</rd:ReportID>

<DataField>TLEMPN</DataField>

<rd:TypeName>System.Decimal</rd:TypeName>

</Field>

<DataField>HOURS</DataField>

<rd:TypeName>System.Decimal</rd:TypeName>

</Field>

<DataField>HOURS2</DataField>

<rd:TypeName>System.Decimal</rd:TypeName>

</Field>

<rd:TypeName>System.String</rd:TypeName>

</Field>

<DataField>DEPTNAME</DataField>

<rd:TypeName>System.String</rd:TypeName>

</Field>

<DataField>USERNAME</DataField>

<rd:TypeName>System.String</rd:TypeName>

</Field>

<rd:TypeName>System.String</rd:TypeName>

</Field>

<rd:TypeName>System.String</rd:TypeName>

</Field>

<rd:TypeName>System.String</rd:TypeName>

</Field>

<rd:TypeName>System.String</rd:TypeName>

</Field>

<rd:TypeName>System.String</rd:TypeName>

</Field>

<rd:TypeName>System.Decimal</rd:TypeName>

</Field>

<rd:TypeName>System.Decimal</rd:TypeName>

</Field>

<rd:TypeName>System.Decimal</rd:TypeName>

</Field>

<rd:TypeName>System.Decimal</rd:TypeName>

</Field>

<rd:TypeName>System.Decimal</rd:TypeName>

</Field>

</Fields>

<Query>

<DataSourceName>dsKronos</DataSourceName>

<CommandText>=Code.GetSQL()</CommandText>

<rd:UseGenericDesigner>true</rd:UseGenericDesigner>

</Query>

</DataSet>

<DataField>fldLLP</DataField>

<rd:TypeName>System.String</rd:TypeName>

</Field>

</Fields>

<Query>

<DataSourceName>dsKronos</DataSourceName>

<CommandText>=Code.GetSQLLLP()</CommandText>

<rd:UseGenericDesigner>true</rd:UseGenericDesigner>

</Query>

</DataSet>

<rd:TypeName>System.String</rd:TypeName>

</Field>

<DataField>DESCRIP</DataField>

<rd:TypeName>System.String</rd:TypeName>

</Field>

</Fields>

<Query>

<DataSourceName>dsKronos</DataSourceName>

<CommandText>=Code.GetSQLSecureFieldGroups()</CommandText>

<rd:UseGenericDesigner>true</rd:UseGenericDesigner>

</Query>

</DataSet>

</DataSets>

<Code>

'Return the Logged in users user name.

Public Function GetUserName() As String

Dim arrUser() As String

Dim strUser As String

arrUser = Report.User!UserID.Split("\")

strUser = UCase(arrUser(UBound(arrUser)))

return strUser

End Function

'Return the Cloc File based on the first two characters of the folder name.

Public Function GetClocFile() As String

Dim strClocFile As String

strClocFile = Report.Globals!ReportFolder

strClocFile = Mid(strClocFile, 2, 2)

return strClocFile

End Function

Public Function GetSQL() As String

Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder()

Dim strDateFrom As String

Dim strDateTo As String

Dim strDeptField As String

strDeptField = Report.Parameters!rp_SecureFieldGroups.Value

strDateFrom = String.Format("{0:yyyyMMdd}", Report.Parameters!DateFrom.Value)

strDateTo = String.Format("{0:yyyyMMdd}", Report.Parameters!DateTo.Value)

sb.Append(" SELECT MHIM.TLEMPN ")

sb.Append(" , SUM(MHIM.TLRETM) AS Hours ")

sb.Append(" , SUM(MHIM.TLSETM) AS Hours2 ")

sb.Append(" , MHIM.TLSEC" + strDeptField + " AS DEPT ")

sb.Append(" , SCMS" + strDeptField + ".DSDESC AS DeptName ")

sb.Append(" , PEFF.EENAME AS UserName ")

sb.Append(" , 'REG' AS Code1 ")

sb.Append(" , 'OT' AS Code2 ")

sb.Append(" , 'DT' AS Code3 ")

sb.Append(" , 'HOL' AS Code4 ")

sb.Append(" , 'VAC' AS Code5 ")

sb.Append(" , SUM(CASE ")

sb.Append(" WHEN TLPC01 = 'REG' THEN TLHR01 ")

sb.Append(" WHEN TLPC02 = 'REG' THEN TLHR02 ")

sb.Append(" WHEN TLPC03 = 'REG' THEN TLHR03 ")

sb.Append(" WHEN TLPC04 = 'REG' THEN TLHR04 ")

sb.Append(" WHEN TLPC05 = 'REG' THEN TLHR05 ")

sb.Append(" WHEN TLPC06 = 'REG' THEN TLHR06 ")

sb.Append(" WHEN TLPC07 = 'REG' THEN TLHR07 ")

sb.Append(" WHEN TLPC08 = 'REG' THEN TLHR08 ")

sb.Append(" WHEN TLPC09 = 'REG' THEN TLHR09 ")

sb.Append(" WHEN TLPC10 = 'REG' THEN TLHR10 ")

sb.Append(" ELSE 0 END) ")

sb.Append(" AS Val1 ")

sb.Append(" , SUM(CASE ")

sb.Append(" WHEN TLPC01 = 'OT' THEN TLHR01 ")

sb.Append(" WHEN TLPC02 = 'OT' THEN TLHR02 ")

sb.Append(" WHEN TLPC03 = 'OT' THEN TLHR03 ")

sb.Append(" WHEN TLPC04 = 'OT' THEN TLHR04 ")

sb.Append(" WHEN TLPC05 = 'OT' THEN TLHR05 ")

sb.Append(" WHEN TLPC06 = 'OT' THEN TLHR06 ")

sb.Append(" WHEN TLPC07 = 'OT' THEN TLHR07 ")

sb.Append(" WHEN TLPC08 = 'OT' THEN TLHR08 ")

sb.Append(" WHEN TLPC09 = 'OT' THEN TLHR09 ")

sb.Append(" WHEN TLPC10 = 'OT' THEN TLHR10 ")

sb.Append(" ELSE 0 END) ")

sb.Append(" AS Val2 ")

sb.Append(" , SUM(CASE ")

sb.Append(" WHEN TLPC01 IN ('DT', 'DBL1') THEN TLHR01 ")

sb.Append(" WHEN TLPC02 IN ('DT', 'DBL1') THEN TLHR02 ")

sb.Append(" WHEN TLPC03 IN ('DT', 'DBL1') THEN TLHR03 ")

sb.Append(" WHEN TLPC04 IN ('DT', 'DBL1') THEN TLHR04 ")

sb.Append(" WHEN TLPC05 IN ('DT', 'DBL1') THEN TLHR05 ")

sb.Append(" WHEN TLPC06 IN ('DT', 'DBL1') THEN TLHR06 ")

sb.Append(" WHEN TLPC07 IN ('DT', 'DBL1') THEN TLHR07 ")

sb.Append(" WHEN TLPC08 IN ('DT', 'DBL1') THEN TLHR08 ")

sb.Append(" WHEN TLPC09 IN ('DT', 'DBL1') THEN TLHR09 ")

sb.Append(" WHEN TLPC10 IN ('DT', 'DBL1') THEN TLHR10 ")

sb.Append(" ELSE 0 END) ")

sb.Append(" AS Val3 ")

sb.Append(" , SUM(CASE ")

sb.Append(" WHEN TLPC01 = 'HOL' THEN TLHR01 ")

sb.Append(" WHEN TLPC02 = 'HOL' THEN TLHR02 ")

sb.Append(" WHEN TLPC03 = 'HOL' THEN TLHR03 ")

sb.Append(" WHEN TLPC04 = 'HOL' THEN TLHR04 ")

sb.Append(" WHEN TLPC05 = 'HOL' THEN TLHR05 ")

sb.Append(" WHEN TLPC06 = 'HOL' THEN TLHR06 ")

sb.Append(" WHEN TLPC07 = 'HOL' THEN TLHR07 ")

sb.Append(" WHEN TLPC08 = 'HOL' THEN TLHR08 ")

sb.Append(" WHEN TLPC09 = 'HOL' THEN TLHR09 ")

sb.Append(" WHEN TLPC10 = 'HOL' THEN TLHR10 ")

sb.Append(" ELSE 0 END) ")

sb.Append(" AS Val4 ")

sb.Append(" , SUM(CASE ")

sb.Append(" WHEN TLPC01 = 'VAC' THEN TLHR01 ")

sb.Append(" WHEN TLPC02 = 'VAC' THEN TLHR02 ")

sb.Append(" WHEN TLPC03 = 'VAC' THEN TLHR03 ")

sb.Append(" WHEN TLPC04 = 'VAC' THEN TLHR04 ")

sb.Append(" WHEN TLPC05 = 'VAC' THEN TLHR05 ")

sb.Append(" WHEN TLPC06 = 'VAC' THEN TLHR06 ")

sb.Append(" WHEN TLPC07 = 'VAC' THEN TLHR07 ")

sb.Append(" WHEN TLPC08 = 'VAC' THEN TLHR08 ")

sb.Append(" WHEN TLPC09 = 'VAC' THEN TLHR09 ")

sb.Append(" WHEN TLPC10 = 'VAC' THEN TLHR10 ")

sb.Append(" ELSE 0 END) ")

sb.Append(" AS Val5 ")

sb.Append(" FROM CLOCFILE" + GetClocFile() + ".CKTIMHIM MHIM ")

sb.Append(" INNER JOIN CLOCFILE" + GetClocFile() + ".CKEMPEFF PEFF ON MHIM.TLEMPN = PEFF.EEEMPN ")

sb.Append(" LEFT OUTER JOIN CLOCFILE" + GetClocFile() + ".CKDESCMS SCMS1 ON MHIM.TLSEC1 = SCMS1.DSKEYM AND SCMS1.DSCODE = 'D' ")

sb.Append(" LEFT OUTER JOIN CLOCFILE" + GetClocFile() + ".CKDESCMS SCMS2 ON MHIM.TLSEC2 = SCMS2.DSKEYM AND SCMS2.DSCODE = 'E' ")

sb.Append(" LEFT OUTER JOIN CLOCFILE" + GetClocFile() + ".CKDESCMS SCMS3 ON MHIM.TLSEC3 = SCMS3.DSKEYM AND SCMS3.DSCODE = 'S' ")

sb.Append(" LEFT OUTER JOIN CLOCFILE" + GetClocFile() + ".CKDESCMS SCMS4 ON MHIM.TLSEC4 = SCMS4.DSKEYM AND SCMS4.DSCODE = 'J' ")

sb.Append(" LEFT OUTER JOIN CLOCFILE" + GetClocFile() + ".CKDESCMS SCMS5 ON MHIM.TLSEC5 = SCMS5.DSKEYM AND SCMS5.DSCODE = 'C' ")

sb.Append(" LEFT OUTER JOIN CLOCFILE" + GetClocFile() + ".CKDESCMS SCMS6 ON MHIM.TLSEC6 = SCMS6.DSKEYM AND SCMS6.DSCODE = 'T' ")

sb.Append(" LEFT OUTER JOIN CLOCFILE" + GetClocFile() + ".CKDESCMS SCMS7 ON MHIM.TLSEC7 = SCMS7.DSKEYM AND SCMS7.DSCODE = 'L' ")

sb.Append(" WHERE MHIM.TLRETM <> 0 ")

sb.Append(" AND PEFF.EEDELT <> 'D' ")

sb.Append(" AND ( MHIM.TLSEC1 IN( ")

sb.Append(" SELECT DISTINCT SEC.S2KEYM AS RESULT ")

sb.Append(" FROM CLOCFILE" + GetClocFile() + ".CKPROFCD FCD ")

sb.Append(" INNER JOIN CLOCFILE" + GetClocFile() + ".CKSECRT2 SEC ON FCD.PRONAM = SEC.S2USER ")

sb.Append(" WHERE FCD.PRONAM = '" + Report.Parameters!rp_LLP.Value + "' ")

sb.Append(" AND FCD.PROTYP = 'L' ")

sb.Append(" AND SEC.S2CODE = 'D' ")

sb.Append(" ) ")

sb.Append(" OR ")

sb.Append("(SELECT PROFD1 ")

sb.Append(" FROM CLOCFILE" + GetClocFile() + ".CKPROFCD ")

sb.Append(" WHERE PRONAM = '" + Report.Parameters!rp_LLP.Value + "' ")

sb.Append(" AND PROTYP = 'L') = 'Y' ")

sb.Append(" ) ")

sb.Append(" AND ( MHIM.TLSEC2 IN( ")

sb.Append(" SELECT DISTINCT SEC.S2KEYM AS RESULT ")

sb.Append(" FROM CLOCFILE" + GetClocFile() + ".CKPROFCD FCD ")

sb.Append(" INNER JOIN CLOCFILE" + GetClocFile() + ".CKSECRT2 SEC ON FCD.PRONAM = SEC.S2USER ")

sb.Append(" WHERE FCD.PRONAM = '" + Report.Parameters!rp_LLP.Value + "' ")

sb.Append(" AND FCD.PROTYP = 'L' ")

sb.Append(" AND SEC.S2CODE = 'E' ")

sb.Append(" ) ")

sb.Append(" OR ")

sb.Append("(SELECT PROFD2 ")

sb.Append(" FROM CLOCFILE" + GetClocFile() + ".CKPROFCD ")

sb.Append(" WHERE PRONAM = '" + Report.Parameters!rp_LLP.Value + "' ")

sb.Append(" AND PROTYP = 'L') = 'Y' ")

sb.Append(" ) ")

sb.Append(" AND ( MHIM.TLSEC3 IN( ")

sb.Append(" SELECT DISTINCT SEC.S2KEYM AS RESULT ")

sb.Append(" FROM CLOCFILE" + GetClocFile() + ".CKPROFCD FCD ")

sb.Append(" INNER JOIN CLOCFILE" + GetClocFile() + ".CKSECRT2 SEC ON FCD.PRONAM = SEC.S2USER ")

sb.Append(" WHERE FCD.PRONAM = '" + Report.Parameters!rp_LLP.Value + "' ")

sb.Append(" AND FCD.PROTYP = 'L' ")

sb.Append(" AND SEC.S2CODE = 'S' ")

sb.Append(" ) ")

sb.Append(" OR ")

sb.Append("(SELECT PROFD3 ")

sb.Append(" FROM CLOCFILE" + GetClocFile() + ".CKPROFCD ")

sb.Append(" WHERE PRONAM = '" + Report.Parameters!rp_LLP.Value + "' ")

sb.Append(" AND PROTYP = 'L') = 'Y' ")

sb.Append(" ) ")

sb.Append(" AND ( MHIM.TLSEC4 IN( ")

sb.Append(" SELECT DISTINCT SEC.S2KEYM AS RESULT ")

sb.Append(" FROM CLOCFILE" + GetClocFile() + ".CKPROFCD FCD ")

sb.Append(" INNER JOIN CLOCFILE" + GetClocFile() + ".CKSECRT2 SEC ON FCD.PRONAM = SEC.S2USER ")

sb.Append(" WHERE FCD.PRONAM = '" + Report.Parameters!rp_LLP.Value + "' ")

sb.Append(" AND FCD.PROTYP = 'L' ")

sb.Append(" AND SEC.S2CODE = 'J' ")

sb.Append(" ) ")

sb.Append(" OR ")

sb.Append("(SELECT PROFD4 ")

sb.Append(" FROM CLOCFILE" + GetClocFile() + ".CKPROFCD ")

sb.Append(" WHERE PRONAM = '" + Report.Parameters!rp_LLP.Value + "' ")

sb.Append(" AND PROTYP = 'L') = 'Y' ")

sb.Append(" ) ")

sb.Append(" AND ( MHIM.TLSEC5 IN( ")

sb.Append(" SELECT DISTINCT SEC.S2KEYM AS RESULT ")

sb.Append(" FROM CLOCFILE" + GetClocFile() + ".CKPROFCD FCD ")

sb.Append(" INNER JOIN CLOCFILE" + GetClocFile() + ".CKSECRT2 SEC ON FCD.PRONAM = SEC.S2USER ")

sb.Append(" WHERE FCD.PRONAM = '" + Report.Parameters!rp_LLP.Value + "' ")

sb.Append(" AND FCD.PROTYP = 'L' ")

sb.Append(" AND SEC.S2CODE = 'C' ")

sb.Append(" ) ")

sb.Append(" OR ")

sb.Append("(SELECT PROFD5 ")

sb.Append(" FROM CLOCFILE" + GetClocFile() + ".CKPROFCD ")

sb.Append(" WHERE PRONAM = '" + Report.Parameters!rp_LLP.Value + "' ")

sb.Append(" AND PROTYP = 'L') = 'Y' ")

sb.Append(" ) ")

sb.Append(" AND ( MHIM.TLSEC6 IN( ")

sb.Append(" SELECT DISTINCT SEC.S2KEYM AS RESULT ")

sb.Append(" FROM CLOCFILE" + GetClocFile() + ".CKPROFCD FCD ")

sb.Append(" INNER JOIN CLOCFILE" + GetClocFile() + ".CKSECRT2 SEC ON FCD.PRONAM = SEC.S2USER ")

sb.Append(" WHERE FCD.PRONAM = '" + Report.Parameters!rp_LLP.Value + "' ")

sb.Append(" AND FCD.PROTYP = 'L' ")

sb.Append(" AND SEC.S2CODE = 'T' ")

sb.Append(" ) ")

sb.Append(" OR ")

sb.Append("(SELECT PROFD6 ")

sb.Append(" FROM CLOCFILE" + GetClocFile() + ".CKPROFCD ")

sb.Append(" WHERE PRONAM = '" + Report.Parameters!rp_LLP.Value + "' ")

sb.Append(" AND PROTYP = 'L') = 'Y' ")

sb.Append(" ) ")

sb.Append(" AND ( MHIM.TLSEC7 IN( ")

sb.Append(" SELECT DISTINCT SEC.S2KEYM AS RESULT ")

sb.Append(" FROM CLOCFILE" + GetClocFile() + ".CKPROFCD FCD ")

sb.Append(" INNER JOIN CLOCFILE" + GetClocFile() + ".CKSECRT2 SEC ON FCD.PRONAM = SEC.S2USER ")

sb.Append(" WHERE FCD.PRONAM = '" + Report.Parameters!rp_LLP.Value + "' ")

sb.Append(" AND FCD.PROTYP = 'L' ")

sb.Append(" AND SEC.S2CODE = 'L' ")

sb.Append(" ) ")

sb.Append(" OR ")

sb.Append("(SELECT PROFD7 ")

sb.Append(" FROM CLOCFILE" + GetClocFile() + ".CKPROFCD ")

sb.Append(" WHERE PRONAM = '" + Report.Parameters!rp_LLP.Value + "' ")

sb.Append(" AND PROTYP = 'L') = 'Y' ")

sb.Append(" ) ")

sb.Append(" AND MHIM.TLATIM >= '" + strDateFrom + "000000' ")

sb.Append(" AND MHIM.TLATOM <= '" + strDateTo + "999999' ")

sb.Append(" GROUP BY MHIM.TLSEC" + strDeptField + ", SCMS" + strDeptField + ".DSDESC, MHIM.TLEMPN, PEFF.EENAME")

sb.Append(" ORDER BY MHIM.TLSEC" + strDeptField + ", MHIM.TLEMPN ")

Return sb.ToString()

End Function

Public Function GetSQLLLP() As String

Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder()

sb.Append(" SELECT FSKEYV AS fldLLP ")

sb.Append(" FROM CLOCFILE" + GetClocFile() + ".CKFUNCAS ")

sb.Append(" WHERE FSFUNC = 'ENVIRONMENTAL' ")

sb.Append(" AND FSKEYW = 'LABORLEVELPROF' ")

sb.Append(" AND FSTYPE IN ('U', 'P') ")

sb.Append(" AND FSPROF IN( ")

sb.Append(" SELECT MAX('" + GetUserName() + "') ")

sb.Append(" FROM CLOCFILE" + GetClocFile() + ".CKSECRTY ")

sb.Append(" UNION ")

sb.Append(" SELECT SXFUNP ")

sb.Append(" FROM CLOCFILE" + GetClocFile() + ".CKSECRTY ")

sb.Append(" WHERE SXUSER = '" + GetUserName() + "' ")

sb.Append(" ) ")

sb.Append(" ORDER BY FSTYPE DESC ")

sb.Append(" FETCH FIRST 1 ROWS ONLY ")

Return sb.ToString()

End Function

Public Function GetSQLSecureFieldGroups() As String

Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder()

sb.Append(" SELECT '1' AS VAL ")

sb.Append(" , COSDS1 AS Descrip ")

sb.Append(" FROM CLOCFILE" + GetClocFile() + ".CKCOMPAN ")

sb.Append(" WHERE COSDS1 NOT IN ('', 'N/A') ")

sb.Append(" UNION ALL ")

sb.Append(" SELECT '2' AS VAL ")

sb.Append(" , COSDS2 AS Descrip ")

sb.Append(" FROM CLOCFILE" + GetClocFile() + ".CKCOMPAN ")

sb.Append(" WHERE COSDS2 NOT IN ('', 'N/A') ")

sb.Append(" UNION ALL ")

sb.Append(" SELECT '3' AS VAL ")

sb.Append(" , COSDS3 AS Descrip ")

sb.Append(" FROM CLOCFILE" + GetClocFile() + ".CKCOMPAN ")

sb.Append(" WHERE COSDS3 NOT IN ('', 'N/A') ")

sb.Append(" UNION ALL ")

sb.Append(" SELECT '4' AS VAL ")

sb.Append(" , COSDS4 AS Descrip ")

sb.Append(" FROM CLOCFILE" + GetClocFile() + ".CKCOMPAN ")

sb.Append(" WHERE COSDS4 NOT IN ('', 'N/A') ")

sb.Append(" UNION ALL ")

sb.Append(" SELECT '5' AS VAL ")

sb.Append(" , COSDS5 AS Descrip ")

sb.Append(" FROM CLOCFILE" + GetClocFile() + ".CKCOMPAN ")

sb.Append(" WHERE COSDS5 NOT IN ('', 'N/A') ")

sb.Append(" UNION ALL ")

sb.Append(" SELECT '6' AS VAL ")

sb.Append(" , COSDS6 AS Descrip ")

sb.Append(" FROM CLOCFILE" + GetClocFile() + ".CKCOMPAN ")

sb.Append(" WHERE COSDS6 NOT IN ('', 'N/A') ")

sb.Append(" UNION ALL ")

sb.Append(" SELECT '7' AS VAL ")

sb.Append(" , COSDS7 AS Descrip ")

sb.Append(" FROM CLOCFILE" + GetClocFile() + ".CKCOMPAN ")

sb.Append(" WHERE COSDS7 NOT IN ('', 'N/A') ")

Return sb.ToString()

End Function

Public Function GetDate(ByRef strDateType As String) As DateTime

Dim offset As Double = 0

Dim dtDate As DateTime

Select Case Today.DayOfWeek

Case DayOfWeek.Monday : offset = 0

Case DayOfWeek.Tuesday : offset = -1

Case DayOfWeek.Wednesday : offset = -2

Case DayOfWeek.Thursday : offset = -3

Case DayOfWeek.Friday : offset = -4

Case DayOfWeek.Saturday : offset = -5

Case DayOfWeek.Sunday : offset = -6

End Select

If strDateType = "s" Then

dtDate = DateAdd(DateInterval.Day, -7 + offset, Today)

Else

dtDate = DateAdd(DateInterval.Day, offset, Today)

End If

Return dtDate

End Function

</Code>

<Body>

<DataSetName>dsKronos</DataSetName>

<GroupExpression>=Fields!DEPT.Value</GroupExpression>

</GroupExpressions>

</Grouping>

<SortExpression>=Fields!DEPT.Value</SortExpression>

<Direction>Ascending</Direction>

</SortBy>

</Sorting>

<rd:DefaultName>DEPT</rd:DefaultName>

<Style>

<Color>White</Color>

<Default>LightGrey</Default>

</BorderColor>

<Default>Solid</Default>

</BorderStyle>

<FontFamily>Tahoma</FontFamily>

</Style>

<Value>=Fields!DEPT.Value</Value>

</Textbox>

</ReportItems>

</TableCell>

<rd:DefaultName>textbox11</rd:DefaultName>

<Style>

<Color>White</Color>

<Default>LightGrey</Default>

</BorderColor>

<Default>Solid</Default>

</BorderStyle>

<FontFamily>Tahoma</FontFamily>

</Style>

<Value>

</Value>

</Textbox>

</ReportItems>

</TableCell>

<rd:DefaultName>textbox12</rd:DefaultName>

<Style>

<Color>White</Color>

<Default>LightGrey</Default>

</BorderColor>

<Default>Solid</Default>

</BorderStyle>

<FontFamily>Tahoma</FontFamily>

</Style>

<Value>=Sum(Fields!HOURS.Value)</Value>

</Textbox>

</ReportItems>

</TableCell>

<rd:DefaultName>textbox13</rd:DefaultName>

<Style>

<Color>White</Color>

<Default>LightGrey</Default>

</BorderColor>

<Default>Solid</Default>

</BorderStyle>

<FontFamily>Tahoma</FontFamily>

</Style>

<Value>=Sum(Fields!VAL1.Value)</Value>

</Textbox>

</ReportItems>

</TableCell>

<rd:DefaultName>textbox14</rd:DefaultName>

<Style>

<Color>White</Color>

<Default>LightGrey</Default>

</BorderColor>

<Default>Solid</Default>

</BorderStyle>

<FontFamily>Tahoma</FontFamily>

</Style>

<Value>=Sum(Fields!VAL2.Value)</Value>

</Textbox>

</ReportItems>

</TableCell>

<rd:DefaultName>textbox15</rd:DefaultName>

<Style>

<Color>White</Color>

<Default>LightGrey</Default>

</BorderColor>

<Default>Solid</Default>

</BorderStyle>

<FontFamily>Tahoma</FontFamily>

</Style>

<Value>=Sum(Fields!VAL3.Value)</Value>

</Textbox>

</ReportItems>

</TableCell>

<rd:DefaultName>textbox16</rd:DefaultName>

<Style>

<Color>White</Color>

<Default>LightGrey</Default>

</BorderColor>

<Default>Solid</Default>

</BorderStyle>

<FontFamily>Tahoma</FontFamily>

</Style>

<Value>=Sum(Fields!VAL4.Value)</Value>

</Textbox>

</ReportItems>

</TableCell>

<rd:DefaultName>textbox17</rd:DefaultName>

<Style>

<Color>White</Color>

<Default>LightGrey</Default>

</BorderColor>

<Default>Solid</Default>

</BorderStyle>

<FontFamily>Tahoma</FontFamily>

</Style>

<Value>=Sum(Fields!VAL5.Value)</Value>

</Textbox>

</ReportItems>

</TableCell>

</TableCells>

</TableRow>

</TableRows>

</Header>

</TableGroup>

</TableGroups>

<rd:DefaultName>textbox3</rd:DefaultName>

<Style>

<Default>LightGrey</Default>

</BorderColor>

<Default>Solid</Default>

</BorderStyle>

<FontFamily>Tahoma</FontFamily>

</Style>

<Value>

</Value>

</Textbox>

</ReportItems>

</TableCell>

<rd:DefaultName>USERNAME</rd:DefaultName>

<Style>

<Default>LightGrey</Default>

</BorderColor>

<Default>Solid</Default>

</BorderStyle>

<FontFamily>Tahoma</FontFamily>

</Style>

<Value>=Fields!USERNAME.Value</Value>

</Textbox>

</ReportItems>

</TableCell>

<rd:DefaultName>HOURS</rd:DefaultName>

<Style>

<Default>LightGrey</Default>

</BorderColor>

<Default>Solid</Default>

</BorderStyle>

<FontFamily>Tahoma</FontFamily>

</Style>

<Value>=Fields!HOURS.Value</Value>

</Textbox>

</ReportItems>

</TableCell>

<rd:DefaultName>VAL1</rd:DefaultName>

<Style>

<Default>LightGrey</Default>

</BorderColor>

<Default>Solid</Default>

</BorderStyle>

<FontFamily>Tahoma</FontFamily>

</Style>

<Value>=Fields!VAL1.Value</Value>

</Textbox>

</ReportItems>

</TableCell>

<rd:DefaultName>VAL2</rd:DefaultName>

<Style>

<Default>LightGrey</Default>

</BorderColor>

<Default>Solid</Default>

</BorderStyle>

<FontFamily>Tahoma</FontFamily>

</Style>

<Value>=Fields!VAL2.Value</Value>

</Textbox>

</ReportItems>

</TableCell>

<rd:DefaultName>VAL3</rd:DefaultName>

<Style>

<Default>LightGrey</Default>

</BorderColor>

<Default>Solid</Default>

</BorderStyle>

<FontFamily>Tahoma</FontFamily>

</Style>

<Value>=Fields!VAL3.Value</Value>

</Textbox>

</ReportItems>

</TableCell>

<rd:DefaultName>VAL4</rd:DefaultName>

<Style>

<Default>LightGrey</Default>

</BorderColor>

<Default>Solid</Default>

</BorderStyle>

<FontFamily>Tahoma</FontFamily>

</Style>

<Value>=Fields!VAL4.Value</Value>

</Textbox>

</ReportItems>

</TableCell>

<rd:DefaultName>VAL5</rd:DefaultName>

<Style>

<Default>LightGrey</Default>

</BorderColor>

<Default>Solid</Default>

</BorderStyle>

<FontFamily>Tahoma</FontFamily>

</Style>

<Value>=Fields!VAL5.Value</Value>

</Textbox>

</ReportItems>

</TableCell>

</TableCells>

</TableRow>

</TableRows>

<Hidden>=Parameters!rp_ExpandCollapse.Value</Hidden>

</Visibility>

</Details>

<rd:DefaultName>textbox2</rd:DefaultName>

<Style>

<Color>White</Color>

<BackgroundColor>SteelBlue</BackgroundColor>

<Default>LightGrey</Default>

</BorderColor>

<Default>Solid</Default>

</BorderStyle>

<FontFamily>Tahoma</FontFamily>

</Style>

</Textbox>

</ReportItems>

</TableCell>

<rd:DefaultName>textbox4</rd:DefaultName>

<Style>

<Color>White</Color>

<BackgroundColor>SteelBlue</BackgroundColor>

<Default>LightGrey</Default>

</BorderColor>

<Default>Solid</Default>

</BorderStyle>

<FontFamily>Tahoma</FontFamily>

</Style>

<Value>EMPLOYEE</Value>

</Textbox>

</ReportItems>

</TableCell>

<rd:DefaultName>textbox5</rd:DefaultName>

<Style>

<Color>White</Color>

<BackgroundColor>SteelBlue</BackgroundColor>

<Default>LightGrey</Default>

</BorderColor>

<Default>Solid</Default>

</BorderStyle>

<FontFamily>Tahoma</FontFamily>

<TextAlign>Right</TextAlign>

</Style>

<Value>HOURS</Value>

</Textbox>

</ReportItems>

</TableCell>

<rd:DefaultName>textbox6</rd:DefaultName>

<Style>

<Color>White</Color>

<BackgroundColor>SteelBlue</BackgroundColor>

<Default>LightGrey</Default>

</BorderColor>

<Default>Solid</Default>

</BorderStyle>

<FontFamily>Tahoma</FontFamily>

<TextAlign>Right</TextAlign>

</Style>

</Textbox>

</ReportItems>

</TableCell>

<rd:DefaultName>textbox7</rd:DefaultName>

<Style>

<Color>White</Color>

<BackgroundColor>SteelBlue</BackgroundColor>

<Default>LightGrey</Default>

</BorderColor>

<Default>Solid</Default>

</BorderStyle>

<FontFamily>Tahoma</FontFamily>

<TextAlign>Right</TextAlign>

</Style>

</Textbox>

</ReportItems>

</TableCell>

<rd:DefaultName>textbox8</rd:DefaultName>

<Style>

<Color>White</Color>

<BackgroundColor>SteelBlue</BackgroundColor>

<Default>LightGrey</Default>

</BorderColor>

<Default>Solid</Default>

</BorderStyle>

<FontFamily>Tahoma</FontFamily>

<TextAlign>Right</TextAlign>

</Style>

</Textbox>

</ReportItems>

</TableCell>

<rd:DefaultName>textbox9</rd:DefaultName>

<Style>

<Color>White</Color>

<BackgroundColor>SteelBlue</BackgroundColor>

<Default>LightGrey</Default>

</BorderColor>

<Default>Solid</Default>

</BorderStyle>

<FontFamily>Tahoma</FontFamily>

<TextAlign>Right</TextAlign>

</Style>

</Textbox>

</ReportItems>

</TableCell>

<rd:DefaultName>textbox10</rd:DefaultName>

<Style>

<Color>White</Color>

<BackgroundColor>SteelBlue</BackgroundColor>

<Default>LightGrey</Default>

</BorderColor>

<Default>Solid</Default>

</BorderStyle>

<FontFamily>Tahoma</FontFamily>

<TextAlign>Right</TextAlign>

</Style>

</Textbox>

</ReportItems>

</TableCell>

</TableCells>

</TableRow>

</TableRows>

</Header>

</TableColumn>

</TableColumn>

</TableColumn>

</TableColumn>

</TableColumn>

</TableColumn>

</TableColumn>

</TableColumn>

</TableColumns>

</Table>

</ReportItems>

</Body>

</Report>

Reply:

Thanks for your sharing.

Yao Jie Tang -Microsoft Online Community

------------------------------------

Blackberry Desktop and Handheld Software compatible? Ive tried everything.....Compatibility Settings dont change a thing!

Hello im totally stumped and I think this place is my last hope....:) I cant seem to load an OS on a Blackberry Curve 8310 for ATT using the proper software. My friends at the crackberry.com are stumped, which doesnt happen alot :) so I was somebody else has had the same problem. Thanks in advance for your help.

Changed type Mark L. Ferguson Tuesday, February 17, 2009 2:31 AM

Freeze after shared files copied and deleted

I have set up sharing for everyone on the Public Music folder under Win7. From my Vista machine I can see the files and if I use drag-n-drop or copy/paste (Ctl-C) to copy files from the Win7 machine to Vista, everything copies fine.

However, if I use cut/paste (Ctl-X) to copy and delete the files from Win7 to Vista, the files are copied, but then Win7 freezes hard. After a forced re-boot, the files which should have been deleted still exist on Win7.

Both machines are using wired connections, and the files are not terribly large (they transfer in under 2 minutes). Both Win7 and Vista are 32-bit editions.

How can I triage this problem?

Changed type Mark L. Ferguson Wednesday, February 11, 2009 6:02 PM no reply from OP

Reply:

Hi,

I suggest that you temporary disable the anti-virus and firewall on both computers. If the issue persists, in Windows Vista check if you have properly shared the folder and the user you log on from the Windows 7 beta computer has full-control for the shared folder.

Arthur Xie - MSFT

------------------------------------

Using the "Aero Peek" feature with two or more monitors.

I would like to start by saying that I love the new Aero Peek feature. It is quick, convenient, and simple to use. I have discovered something than can be quite annoying at times. I use multiple monitors (only two right now.) and usually have two or more windows open on my main display and have my internet browser set at full screen on the secondary display which is set to extended desktop. If I use Aero Peek to view a window below other ones on my main display, it annoyingly makes my internet browser (fullscreen on my secondary screen) transparent. I thought it was weird that Aero Peek works on both displays at once. I think that it should instead, work on one monitor at a time. In other words, If the window that you are "peeking" at is on monitor one, the windows on all other monitors should not become transparent, the same with peeking at a window on monitor two or three or whatever should not make the windows on other monitors become transparent. Just a quick thought from another happy tester.

Reply:

Hi,

Thank you for your comment. Enjoy the system and test :).

Arthur Xie - MSFT

------------------------------------

vb6 and source safe.

Any one has installed vb6 and source safe on windows 7, I do install it, but I have a lot of problems checking out files with source safe.

Jose

iTunes Doesn't Work Properly

Occasionally when i click on the iTunes icon, it doesn't open a window. The process will open in the task manager but no window will ever appear. I use to use kaspersky iss 8 and this happened quite often but since removing it, it still happens just much less frequently.

Thanks,

matt

Changed type Mark L. Ferguson Tuesday, February 17, 2009 4:26 AM

Reply:

I had the same problem with iTunes.

Installed fine, ran fine to import and encode a WMV music file. Played fine.

If I closed the iTunes down and went to open it later, nothing happened. There was an incidence of iTunes in the processes section of Task manager that I could not get to Force Quit.

I had to reboot to use iTunes again.

While I had it going, I purchased a tv program to see if that would work. It did but the download kept freezing at any given point. It would continue to download after I restarted and relaunched iTunes. It took about 4 tries to complete the 640MB download.

I eventually uninstalled it because I don't need it and will wait for the glitches to get fixed.

------------------------------------
Reply:

So far I've haven't run into any of this having run the the latest updated version along with Quicktime. You may have seen a bad install leading to problems.

------------------------------------
Reply:

I installed Windows 7 last night. I didn't have the time to check full iTunes functionality but iTunes opened up much faster than any previous version of Windows.

------------------------------------
Reply:

I believe that most of the issues with iTunes has to do with some incompatibilities with various anti-virus programs. After disabling Norton Internet Security 2009 I was able to run iTunes, download podcasts and other files without a problem and without freezing. After spending some time with Norton, I created an exception in the scanning module so that it won't scan the iTunes folder. No more freezes. I did not have this problem in Vista (my Windows 7 installation is an upgrade) but it is a problem that exists with Vista and XP installations.

------------------------------------
Reply:

I haven't seen one problem with AVG 8.0 on here except for the typical annoyance of popup notifications showing through everything else.

------------------------------------

Superb response from Microsoft on UAC prompting

Congratulations to Microsoft for such a great response:

http://blogs.msdn.com/e7/

See 'UAC feedback and follow-up'

Reply:

Hi Thack,

Thanks for your information.

Arthur Xie - MSFT

------------------------------------

prior install, now a windows installer error code on a new install

Vista SP1
Steady State 2.5

I installed Steady State last week just to check it out and wanted to uninstall it but it wouldn't uninstall. I ended up deleting all instances of "steadystate" in the registry, deleting the Cache.wdp file, and Steady State in Program Files.

Now, upon a new install of the msi I get "The configuration data for this product is corrupt. Contact your support personnel"

I installed Windows install cleanup to try and clear out any leftover config files but the program wasn't listed.

I researched the registry and found these values related to Steady State that were undeletable:

[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet003\Enum\Root\LEGACY_WINDOWS_STEADYSTATE\0000]
"Service"="Windows SteadyState"
"Legacy"=dword:00000001
"ConfigFlags"=dword:00000000
"Class"="LegacyDriver"
"ClassGUID"="{8ECC055D-047F-11D1-A537-0000F8753ED1}"
"DeviceDesc"="Windows SteadyState Service"

Both:
[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet003\Enum\Root\LEGACY_WINDOWS_STEADYSTATE
[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet003\Enum\Root\LEGACY_WINDOWS_STEADYSTATE\0000

are undeletable using regedit (also the values under [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet003\Enum\Root\LEGACY_WINDOWS_STEADYSTATE\0000 )

What would be a good way to correct this?

Changed type Sean Zhu - Monday, February 16, 2009 7:40 AM Change to comment

Reply:

Hi mdsharp24, have you tried taking ownership of the registry entries and then delete them?

Sean Zhu - MSFT

------------------------------------

Test with W7

I have concluded tests with Windows 7, I would like to tell my impressions:

- Very stable

- Well protected of invaders

- WindowsUpdate is very good, practical, including for drivers of video and sound of my hardware

- Boot time is pleasantly short and shut down too

- Waking up, after Sleep, ties the net immediately

- IE8 brakes a little, it seems to be incompatible with some sites

- I should buy Windows 7, but I'm affraid about sales prices that are practiced by Microsoft. I see MS products as very expensive ( XP is , also Vista, Office, etc). If price goes down MS will not be disturbed by any another OS. I see $50USD as a confortable value. Otherwise, Linux will continue to grow.

Reply:

When first seeing the retail prices for Vista many eyes were bulging out. But that was due to seeing the 64bit disk included along with the 32bit edition or a coupon for the 64bit version explaining the twice normal pricing. A decade ago talk about costs Windows 98 second edition saw a $180- retail price then. So taking some 9yrs. into account Vista Ultimate saw $219- for an OEM disk.

Cost of living increases, inflation taken into consideration for that.

The 32bit release of 7 has proven itself quite stable over it's predecessor Vista even while Vista surpassed XP considerably there. The IE 8 beta is less likely to get knocked offline in 7 then IE 7 in Vista here it seems. Destop applications, most games, and certainly hardware/device drivers haven't seen any problems.

It's confirmed that the startup and shutdown times have been greatly reduced in 7. It actually finishes both faster then XP so far with everything loaded on.

------------------------------------

windows Vista 6to4 adapter fix

OK so those of you who are getting an error 31 or something close to that with that 6to4 adapter. here is your solution. Go to control panel. then find turn on or off windows features. then turn off everything in the Microsoft 3.1.net framework. it will take awhile but it will eventually ask for a restart and after your p.c boots up you should be all set to once again use the internet

Sticky Notes - How to save ??

It would be great if you can easily save the note , You seem to be able to add a new one, close it and thats it

Reply:

Hi

I agree, but these are apparently intended to be used just like real paper stickies.

If this is important to you, you might want to give some feedback about it.

Click the following link.

Have Comments about Windows 7 Beta?

All of the posts in that thread are collected, periodically, and sent directly to the Windows 7 Product Team.

Just click the Reply Button in the first post on that thread.

Hope this helps.

Thank You for testing Windows 7 Beta

Ronnie Vernon MVP

------------------------------------

toshiba s6237 satalite hibranate problems

When i close the lid, i have the computer set to hibranate, in windows xp this feature worked great, had vista in the computer all of a week, and it worked just fine, now with Win 7, it does not work like it is suppose to. When the lid is closed, and you reopen it after a few min, the only way to get the computer to come back on is to hold down the power button until the power cycles and then reboot the computer, at which time the computer will tell you it did not shut down properly and go through the appropriate start-up options, safe mode or normal mode.
Would like to know if there is a work around for this other then putting the comptuer in stand-by mode?

Changed type Mark L. Ferguson Thursday, February 19, 2009 10:09 PM

Homegroup issue

I currently installed Windows 7 on my laptop and loved it. I wanted to install it on my desktop so I could use homegroup to sinc documents videos and settings. Well after installing it on my desktop and setting up the homegroup i found i had a major issue with my hard drive. I took the hard drive out and reinstalled windows 7 on a different HD. I left the homegroup on my laptop and created a new one and tried joining it to my desktop....It says everything joined fine but when i click on the homegroup link nothing shows up.. it doesn't even open. Both my desktop and laptop are set up correctly I do believe. Anyone else run into this issue?

Software Distribution Developer

Changed type Mark L. Ferguson Thursday, February 12, 2009 12:14 AM

Reply:

Also now that I reinstalled 7 my Windows Media Player freezes everytime it tries to load. I suppose it's looking for the old location of the files and just fails to load. I tried going into Windows Media Center and changing the Video and Music Libraries that it is pointing to but no dice, still freezes every time. This is a MAJOR downfall for me since i watch videos religiously. I really liked the concept of the new WMP but if i can't get this issue to go away i'm sticking with my VLC player....

Software Distribution Developer

------------------------------------
Reply:

I take it i'm the only one with this problem haha.

Software Distribution Developer

------------------------------------
Reply:

As for the Media Center there was some type of download I saw in one of the blogs. Plus there as this one on my computer

Update for PlayReady PC Runtime for Windows Media Center (x86) (KB960398)

Installation date: ‎1/‎14/‎2009 7:30 AM

Installation status: Successful

Update type: Optional

PlayReady PC Runtime for Windows Media Center.

More information:
http://go.microsoft.com/fwlink/?LinkId=135121

Help and Support:
http://go.microsoft.com/fwlink/?LinkId=134722

Don't know if has anything to do with yours but wouldn't hurt to look into it. Sorry I couldn't be more help, But I search the blogs daily if I run into anything I will pass it on to you. Have a good one tomchambliss@bellsouth.net

------------------------------------
Reply:

hmmm that didn't seem to help...

Software Distribution Developer

------------------------------------

New To Windows 7

I just installed Windows 7 (32 bit) a few days ago on a newly built mini ITX computer. So far, all is going well. Installation went flawlessly. All device drivers (including a cheap Realtek wireless LAN card) loaded.
Windows Update took care of updating them. I've used XP at home and work and only have limited time with Vista when I tried the release candidate and when fixing friends Vista computers. Overall, I find it fairly easy to use and anyone with any half-way decent computer skills shouldn't have problems getting used to using Windows 7. If my not so computer savvy wife likes it, then it must be good.

I can see my shared drives on my XP computers and now trying to connect to an old Win98 laptop (not that I have to but it is fun to try). Windows 7 was able to connect to my shared Samsung ML-1710 laser printer. My favorite applications are all running great.

This computer is primarily for web surfing, some word processing, music and photos. Even though this is a Beta OS, computer performance has been fast and responsive. For only a Beta build, I'm quite impressed. The final release is going to find a permanent home on this new computer.

Hardware configuration:

Intel Atom 330 Intel 945GC Mini ITX Motherboard/CPU Combo (integrated video, sound, lan)
2 GB Kingston RAM
WD 80 GB SATA HDD
LITEON SATA DVD-ROM
Encore PCI Wireless Adapter
Adesso Wireless Keyboard/Trackball
Mini ITX Tower case
40" Samung HD LCD TV is my monitor and speaker output.

No problem using my Sansa Fuze MP3 player with Windows 7.
Samsung ML-1710 Laser Printer across home network

Software that I'm using:

Avira Anti-Vir Personal
Open Office 3
PhotoFiltre
Irfanview
MP3tag
Sansa Updater
Foxit Reader
PDF Creator
Editpad Lite
Windows Live Mail

Reply:

Hi Mike

Thanks for posting.

You did a good job describing the complete details of your experience with Windows 7.

You might want to copy this message to the following thread.

Have Comments about Windows 7 Beta?

All of the posts in that thread are collected, periodically, and sent directly to the Windows 7 Product Team.

Just click the Reply Button in the first post on that thread.

Regards,

Thank You for testing Windows 7 Beta

Ronnie Vernon MVP

------------------------------------

Matrix Report Subtotal format

Hi
I have a mtrix report.
My subtotal is the avg of enrolled people divide by total months.
I need to show intervalues in the data columns and in decimal points in avg column of subtotal area.

PLs help.

Reply:

Not sure I completely understand your question, so let me state my assumptions before I answer it:
It sounds like you are using RS 2005, with a matrix report. In the subtotal you want to apply different numeric formatting than in the other cells.

The way to accomplish this is to use an expression for the format property of the textbox in the matrix cell. The expression would use the InScope function to determine whether the current cell is in the scope of a particular group, if not it is a subtotal cell. You may want to read this old related thread: http://social.msdn.microsoft.com/Forums/en-US/sqlreportingservices/thread/918edea7-f15b-45c4-94ed-bd90e23c3ce9/

Btw, this is easier to accomplish in RS 2008.

HTH,
Robert

Robert Bruckner http://blogs.msdn.com/robertbruckner

This posting is provided "AS IS" with no warranties, and confers no rights.

------------------------------------

usb problems

Windows says my usb drives are up to date. I have 3 usb slots but it only shows 2 on my device manager. none of them work though. when i plug anything in to any of them nothing happens at all. it doesn't show that i have a flash drive or an ipod plugged in or anything. i have tested these items on other computers and they work fine. i cant even charge my ipod. I don't know what do do. please help.

Changed type Nicholas LiModerator Tuesday, February 10, 2009 2:43 AM
Changed type Nicholas LiModerator Tuesday, February 10, 2009 2:43 AM
Changed type Nicholas LiModerator Tuesday, February 10, 2009 2:43 AM

Reply:

Do they flash when you plug-in? Or do you see any activity on them?

A.

------------------------------------
Reply:

no they don't flash or anything. i don't think they are getting power or something. any ideas?

------------------------------------
Reply:

Can we be sure that your motherboard is ok?

------------------------------------
Reply:

Hi,

Thank you for the posts.

matt1771, I noticed that you have posted the same thread as this one, let's continue our discussion in this:

http://social.technet.microsoft.com/forums/en-US/itprovistahardware/thread/039d430b-af75-4b45-91ed-ec2e1288b991

Thanks.

Nicholas Li - MSFT

------------------------------------

load up perfectly, then on install, says install.wim is missing

windows could not collect information for [OSImage] since the specified image file [install.wim] does not exist 

that right there is what it messeges me..

ive tried 8 new disks, and 2 different iso downloads.. all of them say that the install.wim doesnt exist.

Changed type Mark L. Ferguson Saturday, February 21, 2009 1:58 AM

Reply:

Hi,

When downloading the IE 7 installation iso, if you use third party browsers rather than Internet Explorer, the download would be corrupt. If it is the case, please re-download the iso in IE.

Arthur Xie - MSFT

------------------------------------
Reply:

Koolvin said:

          windows could not collect information for [OSImage] since the specified image file [install.wim] does not exist 

that right there is what it messeges me..

ive tried 8 new disks, and 2 different iso downloads.. all of them say that the install.wim doesnt exist.

Can you share the hardware specifications of your machine -- particularly the disk/DVD specs, partitions and operating systems installed, and the specific methodology you're using to install.

Lawrence Garvin, M.S., MCITP(x2), MCTS(x5), MCP(x7), MCBMSP
Principal/CTO, Onsite Technology Solutions, Houston, Texas
Microsoft MVP - Software Distribution (2005-2009)

------------------------------------
Reply:

I have the same problem
The system is this Gateway, the only diference is the processor 1.6Ghz, 512Mb, hdd 160Gb
When i start de pc it loads de DVD and start the instalation then apears that error
something like 'can't mount the image' and the missing install.wim file

------------------------------------
Reply:

i forgot to tell this
the xp is installed on disk and i wont a clean install

------------------------------------
Reply:

I had the same problem. I burnt several disks and did 2 downloads. All disks had the same problem. The solution was to change my DVD drive. My computer had an older DVD Rom drive and there must have been a compatibility issue between that drive and Windows 7. I swapped it out for a newer DVD from another computer (that is the only change I made to the computer) and the install went without a problem using one of the same disks that would not work with the other drive. The install was made to an empty formatted disk.

------------------------------------

ATA Raid Controller Driver for ITE IT8212

Looking for a Vista compatible driver at the least and a Windows 7 one at best. Is there a generic Windows driver available?

This is for a secondary drive controller for some data disks.

Changed type Ronnie VernonMVP Monday, February 2, 2009 9:37 AM

Reply:

I am well aware what Google is. The driver you are linking to is the 1.7.2.9 version which I already have and does not work with the beta.

Thus my question.

------------------------------------
Reply:

i'm interested in this as well. have you found a resolution yet RL Bensen?

------------------------------------

App Data Re-direction vs. Terminal Server Roaming Profiles

Dear All,

Please advise...

I've 10 MTS servers in the Farm. Not using Session Directory.

I've group policy set for Folder redirection of My Documents and Desktops which is Working Superbly!

In the Same Policy I've App Data Redirection also configured.

App Data is Redirected to \\SRV1\Profiles\

I would like to know:

Since App Data redirection is happening, do I need to configure Terminal Servers Roaming profiles also?

If Yes

Will it take from the same Location?

I've tried for a few days and it seems it is creating one more profile directory also, for the same User.

In short, I can see two profile directory for same user in the location \\SRV1\Profiles\

So I removed the Terminal Server Roaming profile configuration.

Now what I noticed is that, in the client MTS Servers, it is keeping a local copy of the profile and it is not deleting when users log off.

What is the best way to deal with this

What are the best paractices for AppData Redirection Vs Terminal Server Roaming profiles

It would be great if you could please help me out.

Thanks in advance.

Best regards,

Mathew Thomas

Reply:

Chapter 4 from the Windows Server 2008 Terminal Services Resource Kit Chapter 4 might help you - and you can ge tit for free here: ftp://ftp.bookpool.com/sc/59/0735625859.pdf. It goes into folder redirection, and roaming profiles, and using both.

As far as keeping a local copy of the profile on the terminal servers, that is by design and can be stopped by enabling this GPO:

Computer Config | Admin templates | System | User Profiles | Delete cached copies of roaming profiles.

Hope that helps,

KLG

------------------------------------

Lots of OS problems

Hi all, I got alot of problems with windows 7 that I would like if anyone could "fix" for me.

Here are my problems:

Network problem:

- Live Messenger is not working because it says there is something wrong with the keyports (proxy/network options)

- Uploading things is impossible, I just get an error.

Example: Uploading pictures to photobucket

- Internet Explorer does not work at all

- Using firefox I have 2 problems.

1. The browser window jumps up and down from time to time, make it impossible to read or anything

2. I loose my connection from time to time, without seeing anything happening to the network icon. I just get an error when browsing

Booting problem:

- I tryed to boot from the CD. I came to the part when the screen is blue, and u see the "Windows 7, just for testing" icon in the down right corner. There it freezes, and nothing happends (I can move the mouse arrow)

After trying the same thing over and over the screen turned black everytime I booted my PC. Then This happened(next -):

- By rebooting the computer over and over I got to an boot screen that said I could repair the startup. And by pressing that I finaly got to the windows 7 boot option meny. It tryed to repair itself but it said it couldent fix the problem

To the point: Can anyone please help me? Im so tired of this that Im actually considering Vista soon

Changed type Mark L. Ferguson Thursday, February 12, 2009 12:01 AM

Reply:

ok some ideas, Firefox, are you using anything like No Script or other addons as this causes this on my machine at times, but its due to things being partially blocked.

is messenger allowed in your firewall?

loosing connection, ive been noticing using Firefox 32 bit on windows 7 64 bit that i loose connection/ get not responding a lot on some sites, but it doesnt happen with Opera or Minefield.

Booting from CD - it sounds like its always booting up to the start of the install routine, which is where the blue screen appears, and it can pause there for a while depending on your hardware.

Booting to a black screen - How is your monitor connected? if its HDMI or DVI cable, can you try running with a VGA cable connected if you have one, see if that will get you into windows,

Boot option. If you press F8 you should get taken to the boot option screen, pressing it again takes you to the advanced boot option screen. In there is a boot with last known good configuration selection. If you have been in windows 7 previously that can sometimes be more helpful and faster than the repair startup. Also in there is boot using low resolution graphics(640x480) again just designed to get you into windows.

Personally i would try disconnecting all non essential peripherals while the pc is powered off, then try booting again. If you get into windows, add the devices one at a time in case one of them is causing the problem.

------------------------------------
Reply:

Hi. Thanks for the fast reply

Yeah. Im using no script ;)

Live messenger is of course alowed in my firewall

Im using 64-bit (sorry, forgot to tell)

Im using wireless connection

I can log into windows, but I get some few problems when Im trying to get to the repair meny for windows 7

I will try some of your tips. And thanks again =)

------------------------------------

Ms Support forum

Sunday, March 27, 2022