Report House Standards
- Amanda Thomas
Common
Double Work Fields
Dim WrkDbl As Double
Grouping Averages
Percent Hen Day Production, Current Period
Dim G1PDPctHDHd As Double
Dim G1PDPctHDEg As Double
Private Sub G1PDPctHD_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1PDPctHDHd = 0
G1PDPctHDEg = 0
End Sub
Private Sub G1PDPctHD_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
G1PDPctHDHd += GetCurrentColumnValue("HouseCount_AnimalDays_PD")
G1PDPctHDEg += GetCurrentColumnValue("Egg_SinglesProduced_PD")
End Sub
Private Sub G1PDPctHD_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1PDPctHDHd > 0 Then
WrkDbl = (G1PDPctHDEg / G1PDPctHDHd)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Percent Hen Day Production, Prior Period
Dim G1PRPctHDHd As Double
Dim G1PRPctHDEgg As Double
Private Sub G1PRPctHD_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1PRPctHDHd = 0
G1PRPctHDEgg = 0
End Sub
Private Sub G1PRPctHD_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
G1PRPctHDHd += GetCurrentColumnValue("HouseCount_AnimalDays_PrPD")
G1PRPctHDEgg += GetCurrentColumnValue("Egg_SinglesProduced_PrPD")
End Sub
Private Sub G1PRPctHD_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1PRPctHDHd > 0 Then
WrkDbl = (G1PRPctHDEgg / G1PRPctHDHd)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Percent Hen Day Production, 4 Week Period
Dim G14WPctHDHd As Double
Dim G14WPctHDEgg As Double
Private Sub G14WPctHD_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G14WPctHDHd = 0
G14WPctHDEgg = 0
End Sub
Private Sub G14WPctHD_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
G14WPctHDHd += GetCurrentColumnValue("HouseCount_AnimalDays_4wk")
G14WPctHDEgg += GetCurrentColumnValue("Egg_SinglesProduced_4wk")
End Sub
Private Sub G14WPctHD_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G14WPctHDHd > 0 Then
WrkDbl = (G14WPctHDEgg / G14WPctHDHd)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Percent Hen Day Production, LTD Period
Dim G1LDPctHDHd As Double
Dim G1LDPctHDEgg As Double
Private Sub G1LDPctHD_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1LDPctHDHd = 0
G1LDPctHDEgg = 0
End Sub
Private Sub G1LDPctHD_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
G1LDPctHDHd += GetCurrentColumnValue("HouseCount_AnimalDays_LTD")
G1LDPctHDEgg += GetCurrentColumnValue("Egg_SinglesProduced_LTD")
End Sub
Private Sub G1LDPctHD_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1LDPctHDHd > 0 Then
WrkDbl = (G1LDPctHDEgg / G1LDPctHDHd)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Percent Hen Day Production Sys, Current Period
Dim G1PDPtHDSHd As Double
Dim G1PDPtHDSEg As Double
Private Sub G1PDPtHDS_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1PDPtHDSHd = 0
G1PDPtHDSEg = 0
End Sub
Private Sub G1PDPtHDS_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
WrkDbl = GetCurrentColumnValue("HouseCount_AnimalDays_PD")
G1PDPtHDSEg += GetCurrentColumnValue("Egg_PctHDProdStd_PD") * WrkDbl
G1PDPtHDSHd += WrkDbl
End Sub
Private Sub G1PDPtHDS_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1PDPtHDSHd > 0 Then
WrkDbl = (G1PDPtHDSEg / G1PDPtHDSHd)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Percent Hen Day Production Sys, Prior Period
Dim G1PRPtHDSHd As Double
Dim G1PRPtHDSEg As Double
Private Sub G1PRPtHDS_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1PRPtHDSHd = 0
G1PRPtHDSEg = 0
End Sub
Private Sub G1PRPtHDS_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
WrkDbl = GetCurrentColumnValue("HouseCount_AnimalDays_PrPD")
G1PRPtHDSEg += GetCurrentColumnValue("Egg_PctHDProdStd_PrPD") * WrkDbl
G1PRPtHDSHd += WrkDbl
End Sub
Private Sub G1PRPtHDS_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1PRPtHDSHd > 0 Then
WrkDbl = (G1PRPtHDSEg / G1PRPtHDSHd)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Percent Hen Day Production Sys, 4 Week Period
Dim G14WPtHDSHd As Double
Dim G14WPtHDSEg As Double
Private Sub G14WPtHDS_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G14WPtHDSHd = 0
G14WPtHDSEg = 0
End Sub
Private Sub G14WPtHDS_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
WrkDbl = GetCurrentColumnValue("HouseCount_AnimalDays_4wk")
G14WPtHDSEg += GetCurrentColumnValue("Egg_PctHDProdStd_4wk") * WrkDbl
G14WPtHDSHd += WrkDbl
End Sub
Private Sub G14WPtHDS_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G14WPtHDSHd > 0 Then
WrkDbl = (G14WPtHDSEg / G14WPtHDSHd)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Percent Hen Day Production Sys, LTD Period
Dim G1LDPtHDSHd As Double
Dim G1LDPtHDSEg As Double
Private Sub G1LDPtHDS_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1LDPtHDSHd = 0
G1LDPtHDSEg = 0
End Sub
Private Sub G1LDPtHDS_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
WrkDbl = GetCurrentColumnValue("HouseCount_AnimalDays_LTD")
G1LDPtHDSEg += GetCurrentColumnValue("Egg_PctHDProdStd_LTD") * WrkDbl
G1LDPtHDSHd += WrkDbl
End Sub
Private Sub G1LDPtHDS_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1LDPtHDSHd > 0 Then
WrkDbl = (G1LDPtHDSEg / G1LDPtHDSHd)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Eggs per Head Housed, LTD Period
Dim G1LDEggHHHd As Double
Dim G1LDEggHHEg As Double
Private Sub G1LDEggHH_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1LDEggHHHd = 0
G1LDEggHHEg = 0
End Sub
Private Sub G1LDEggHH_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
G1LDEggHHHd += GetCurrentColumnValue("HouseCount_HeadAdded_LTD")
G1LDEggHHEg += GetCurrentColumnValue("Egg_SinglesProduced_LTD")
End Sub
Private Sub G1LDEggHH_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1LDEggHHHd > 0 Then
WrkDbl = (G1LDEggHHEg / G1LDEggHHHd)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Eggs per Head Housed Sys, LTD Period
Dim G1LDEgHSyHd As Double
Dim G1LDEgHSyEg As Double
Private Sub G1LDEgHSy_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1LDEgHSyHd = 0
G1LDEgHSyEg = 0
End Sub
Private Sub G1LDEgHSy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
WrkDbl = GetCurrentColumnValue("HouseCount_HeadAdded_LTD")
G1LDEgHSyEg += GetCurrentColumnValue("Egg_Eggs_HHStd_LTD") * WrkDbl
G1LDEgHSyHd += WrkDbl
End Sub
Private Sub G1LDEgHSy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1LDEgHSyHd > 0 Then
WrkDbl = (G1LDEgHSyEg / G1LDEgHSyHd)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Lbs per 100 per Day, Current Period
Dim G1PDLbs100Hd As Double
Dim G1PDLbs100Lb As Double
Private Sub G1PDLbs100_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1PDLbs100Hd = 0
G1PDLbs100Lb = 0
End Sub
Private Sub G1PDLbs100_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
G1PDLbs100Hd += GetCurrentColumnValue("HouseCount_AnimalDays_PD")
G1PDLbs100Lb += GetCurrentColumnValue("FC_LbsFeedConsumed_PD")
End Sub
Private Sub G1PDLbs100_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1PDLbs100Hd > 0 Then
WrkDbl = (G1PDLbs100Lb / G1PDLbs100Hd) * 100
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Lbs per 100 per Day, Prior Period
Dim G1PRLbs100Hd As Double
Dim G1PRLbs100Lb As Double
Private Sub G1PRLbs100_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1PRLbs100Hd = 0
G1PRLbs100Lb = 0
End Sub
Private Sub G1PRLbs100_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
G1PRLbs100Hd += GetCurrentColumnValue("HouseCount_AnimalDays_PrPD")
G1PRLbs100Lb += GetCurrentColumnValue("FC_LbsFeedConsumed_PrPD")
End Sub
Private Sub G1PRLbs100_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1PRLbs100Hd > 0 Then
WrkDbl = (G1PRLbs100Lb / G1PRLbs100Hd) * 100
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Lbs per 100 per Day, 4 Week Period
Dim G14WLbs100Hd As Double
Dim G14WLbs100Lb As Double
Private Sub G14WLbs100_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G14WLbs100Hd = 0
G14WLbs100Lb = 0
End Sub
Private Sub G14WLbs100_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
G14WLbs100Hd += GetCurrentColumnValue("HouseCount_AnimalDays_4wk")
G14WLbs100Lb += GetCurrentColumnValue("FC_LbsFeedConsumed_4wk")
End Sub
Private Sub G14WLbs100_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G14WLbs100Hd > 0 Then
WrkDbl = (G14WLbs100Lb / G14WLbs100Hd) * 100
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Lbs per 100 per Day, LTD Period
Dim G1LDLbs100Hd As Double
Dim G1LDLbs100Lb As Double
Private Sub G1LDLbs100_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1LDLbs100Hd = 0
G1LDLbs100Lb = 0
End Sub
Private Sub G1LDLbs100_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
G1LDLbs100Hd += GetCurrentColumnValue("HouseCount_AnimalDays_LTD")
G1LDLbs100Lb += GetCurrentColumnValue("FC_LbsFeedConsumed_LTD")
End Sub
Private Sub G1LDLbs100_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1LDLbs100Hd > 0 Then
WrkDbl = (G1LDLbs100Lb / G1LDLbs100Hd) * 100
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Lbs per 100 per Day Sys, Current Period
Dim G1PDLb10SyHd As Double
Dim G1PDLb10SyLb As Double
Private Sub G1PDLb10Sy_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1PDLb10SyHd = 0
G1PDLb10SyLb = 0
End Sub
Private Sub G1PDLb10Sy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
WrkDbl = GetCurrentColumnValue("HouseCount_AnimalDays_PD")
G1PDLb10SyLb += GetCurrentColumnValue("FC_FeedLbs_100_DayStd_PD") * WrkDbl
G1PDLb10SyHd += WrkDbl
End Sub
Private Sub G1PDLb10Sy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1PDLb10SyHd > 0 Then
WrkDbl = (G1PDLb10SyLb / G1PDLb10SyHd)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Lbs per 100 per Day Sys, Prior Period
Dim G1PRLb10SyHd As Double
Dim G1PRLb10SyLb As Double
Private Sub G1PRLb10Sy_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1PRLb10SyHd = 0
G1PRLb10SyLb = 0
End Sub
Private Sub G1PRLb10Sy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
WrkDbl = GetCurrentColumnValue("HouseCount_AnimalDays_PrPD")
G1PRLb10SyLb += GetCurrentColumnValue("FC_FeedLbs_100_DayStd_PrPD") * WrkDbl
G1PRLb10SyHd += WrkDbl
End Sub
Private Sub G1PRLb10Sy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1PRLb10SyHd > 0 Then
WrkDbl = (G1PRLb10SyLb / G1PRLb10SyHd)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Lbs per 100 per Day Sys, 4 Week Period
Dim G14WLb10SyHd As Double
Dim G14WLb10SyLb As Double
Private Sub G14WLb10Sy_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G14WLb10SyHd = 0
G14WLb10SyLb = 0
End Sub
Private Sub G14WLb10Sy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
WrkDbl = GetCurrentColumnValue("HouseCount_AnimalDays_4wk")
G14WLb10SyLb += GetCurrentColumnValue("FC_FeedLbs_100_DayStd_4wk) * WrkDbl
G14WLb10SyHd += WrkDbl
End Sub
Private Sub G14WLb10Sy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G14WLb10SyHd > 0 Then
WrkDbl = (G14WLb10SyLb / G14WLb10SyHd)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Lbs per 100 per Day Sys, LTD Period
Dim G1LDLb10SyHd As Double
Dim G1LDLb10SyLb As Double
Private Sub G1LDLb10Sy_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1LDLb10SyHd = 0
G1LDLb10SyLb = 0
End Sub
Private Sub G1LDLb10Sy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
WrkDbl = GetCurrentColumnValue("HouseCount_AnimalDays_LTD")
G1LDLb10SyLb += GetCurrentColumnValue("FC_FeedLbs_100_DayStd_LTD") * WrkDbl
G1LDLb10SyHd += WrkDbl
End Sub
Private Sub G1LDLb10Sy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1LDLb10SyHd > 0 Then
WrkDbl = (G1LDLb10SyLb / G1LDLb10SyHd)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Lbs of Feed per Lb Egg, Current Period
Dim G1PDLbsLbEFd As Double
Dim G1PDLbsLbELb As Double
Private Sub G1PDLbsLbE_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1PDLbsLbEFd = 0
G1PDLbsLbELb = 0
End Sub
Private Sub G1PDLbsLbE_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
G1PDLbsLbELb += GetCurrentColumnValue("EggWt_LbsEggProd_PD")
G1PDLbsLbEFd += GetCurrentColumnValue("FC_LbsFeedConsumed_PD")
End Sub
Private Sub G1PDLbsLbE_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1PDLbsLbELb > 0 Then
WrkDbl = G1PDLbsLbEFd / G1PDLbsLbELb
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Lbs of Feed per Dozen of Egg, Current Period
Dim G1PDFdLbDzFd As Double
Dim G1PDFdLbDzEg As Double
Private Sub G1PDFdLbDz_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1PDFdLbDzFd = 0
G1PDFdLbDzEg = 0
End Sub
Private Sub G1PDFdLbDz_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
G1PDFdLbDzEg += GetCurrentColumnValue("Egg_SinglesProduced_PD")
G1PDFdLbDzFd += GetCurrentColumnValue("FC_LbsFeedConsumed_PD")
End Sub
Private Sub G1PDFdLbDz_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1PDFdLbDzEg > 0 Then
WrkDbl = G1PDFdLbDzFd / (G1PDFdLbDzEg / 12)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Consumed Feed Cost per Dozen, Current Period
Dim G1PDCFdCstDl As Double
Dim G1PDCFdCstEg As Double
Private Sub G1PDCFdCst_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1PDCFdCstDl = 0
G1PDCFdCstEg = 0
End Sub
Private Sub G1PDCFdCst_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
G1PDCFdCstDl += GetCurrentColumnValue("FCst_ConsTotal_PD")
G1PDCFdCstEg += GetCurrentColumnValue("Egg_SinglesProduced_PD")
End Sub
Private Sub G1PDCFdCst_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1PDCFdCstEg > 0 Then
WrkDbl = G1PDCFdCstDl / (G1PDCFdCstEg / 12)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Consumed Feed Cost per Dozen, Prior Period
Dim G1PRCFdCstDl As Double
Dim G1PRCFdCstEg As Double
Private Sub G1PRCFdCst_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1PRCFdCstDl = 0
G1PRCFdCstEg = 0
End Sub
Private Sub G1PRCFdCst_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
G1PRCFdCstDl += GetCurrentColumnValue("FCst_ConsTotal_PrPD")
G1PRCFdCstEg += GetCurrentColumnValue("Egg_SinglesProduced_PrPD")
End Sub
Private Sub G1PRCFdCst_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1PRCFdCstEg > 0 Then
WrkDbl = G1PRCFdCstDl / (G1PRCFdCstEg / 12)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Consumed Feed Cost per Dozen, 4 Week Period
Dim G14WCFdCstDl As Double
Dim G14WCFdCstEg As Double
Private Sub G14WCFdCst_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G14WCFdCstDl = 0
G14WCFdCstEg = 0
End Sub
Private Sub G14WCFdCst_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
G14WCFdCstDl += GetCurrentColumnValue("FCst_ConsTotal_4wk")
G14WCFdCstEg += GetCurrentColumnValue("Egg_SinglesProduced_4wk")
End Sub
Private Sub G14WCFdCst_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G14WCFdCstEg > 0 Then
WrkDbl = G14WCFdCstDl / (G14WCFdCstEg / 12)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Consumed Feed Cost per Dozen, LTD Period
Dim G1LDCFdCstDl As Double
Dim G1LDCFdCstEg As Double
Private Sub G1LDCFdCst_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1LDCFdCstDl = 0
G1LDCFdCstEg = 0
End Sub
Private Sub G1LDCFdCst_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
G1LDCFdCstDl += GetCurrentColumnValue("FCst_ConsTotal_LTD")
G1LDCFdCstEg += GetCurrentColumnValue("Egg_SinglesProduced_LTD")
End Sub
Private Sub G1LDCFdCst_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1LDCFdCstEg > 0 Then
WrkDbl = G1LDCFdCstDl / (G1LDCFdCstEg / 12)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Average Case Weight, Current Period
Dim G1PDAvgCsWLb As Double
Dim G1PDAvgCsWEg As Double
Private Sub G1PDAvgCsW_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1PDAvgCsWLb = 0
G1PDAvgCsWEg = 0
End Sub
Private Sub G1PDAvgCsW_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
G1PDAvgCsWEg += GetCurrentColumnValue("Egg_SinglesProduced_PD")
G1PDAvgCsWLb += GetCurrentColumnValue("EggWt_LbsEggProd_PD")
End Sub
Private Sub G1PDAvgCsW_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1PDAvgCsWEg > 0 Then
WrkDbl = G1PDAvgCsWLb / (G1PDAvgCsWEg / 360)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Average Case Weight, Prior Period
Dim G1PRAvgCsWLb As Double
Dim G1PRAvgCsWEg As Double
Private Sub G1PRAvgCsW_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1PRAvgCsWLb = 0
G1PRAvgCsWEg = 0
End Sub
Private Sub G1PRAvgCsW_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
G1PRAvgCsWEg += GetCurrentColumnValue("Egg_SinglesProduced_PrPD")
G1PRAvgCsWLb += GetCurrentColumnValue("EggWt_LbsEggProd_PrPD")
End Sub
Private Sub G1PRAvgCsW_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1PRAvgCsWEg > 0 Then
WrkDbl = G1PRAvgCsWLb / (G1PRAvgCsWEg / 360)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Average Case Weight, 4 Week Period
Dim G14WAvgCsWLb As Double
Dim G14WAvgCsWEg As Double
Private Sub G14WAvgCsW_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G14WAvgCsWLb = 0
G14WAvgCsWEg = 0
End Sub
Private Sub G14WAvgCsW_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
G14WAvgCsWEg += GetCurrentColumnValue("Egg_SinglesProduced_4wk")
G14WAvgCsWLb += GetCurrentColumnValue("EggWt_LbsEggProd_4wk")
End Sub
Private Sub G14WAvgCsW_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G14WAvgCsWEg > 0 Then
WrkDbl = G14WAvgCsWLb / (G14WAvgCsWEg / 360)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Average Case Weight, LTD Period
Dim G1LDAvgCsWLb As Double
Dim G1LDAvgCsWEg As Double
Private Sub G1LDAvgCsW_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1LDAvgCsWLb = 0
G1LDAvgCsWEg = 0
End Sub
Private Sub G1LDAvgCsW_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
G1LDAvgCsWEg += GetCurrentColumnValue("Egg_SinglesProduced_LTD")
G1LDAvgCsWLb += GetCurrentColumnValue("EggWt_LbsEggProd_LTD")
End Sub
Private Sub G1LDAvgCsW_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1LDAvgCsWEg > 0 Then
WrkDbl = G1LDAvgCsWLb / (G1LDAvgCsWEg / 360)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Average Case Weight Sys, Current Period
Dim G1PDAvCWSyLb As Double
Dim G1PDAvCWSyHd As Double
Private Sub G1PDAvCWSy_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1PDAvCWSyLb = 0
G1PDAvCWSyHd = 0
End Sub
Private Sub G1PDAvCWSy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
WrkDbl = GetCurrentColumnValue("Egg_SinglesProduced__PD")
G1PDAvCWSyLb += GetCurrentColumnValue("EggWt_CsWtLbsStd_PD") * WrkDbl
G1PDAvCWSyHd += WrkDbl
End Sub
Private Sub G1PDAvCWSy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1PDAvCWSyHd > 0 Then
WrkDbl = G1PDAvCWSyLb / G1PDAvCWSyHd
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Average Case Weight Sys, Prior Period
Dim G1PRAvCWSyLb As Double
Dim G1PRAvCWSyHd As Double
Private Sub G1PRAvCWSy_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1PRAvCWSyLb = 0
G1PRAvCWSyHd = 0
End Sub
Private Sub G1PRAvCWSy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
WrkDbl = GetCurrentColumnValue("Egg_SinglesProduced_PrPD")
G1PRAvCWSyLb += GetCurrentColumnValue("EggWt_CsWtLbsStd_PrPD") * WrkDbl
G1PRAvCWSyHd += WrkDbl
End Sub
Private Sub G1PRAvCWSy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1PRAvCWSyHd > 0 Then
WrkDbl = G1PRAvCWSyLb / G1PRAvCWSyHd
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Average Case Weight Sys, 4 Week Period
Dim G14WAvCWSyLb As Double
Dim G14WAvCWSyHd As Double
Private Sub G14WAvCWSy_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G14WAvCWSyLb = 0
G14WAvCWSyHd = 0
End Sub
Private Sub G14WAvCWSy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
WrkDbl = GetCurrentColumnValue("Egg_SinglesProduced_4wk")
G14WAvCWSyLb += GetCurrentColumnValue("EggWt_CsWtLbsStd_4wk") * WrkDbl
G14WAvCWSyHd += WrkDbl
End Sub
Private Sub G14WAvCWSy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G14WAvCWSyHd > 0 Then
WrkDbl = G14WAvCWSyLb / G14WAvCWSyHd
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Average Case Weight Sys, LTD Period
Dim G1LDAvCWSyLb As Double
Dim G1LDAvCWSyHd As Double
Private Sub G1LDAvCWSy_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1LDAvCWSyLb = 0
G1LDAvCWSyHd = 0
End Sub
Private Sub G1LDAvCWSy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
WrkDbl = GetCurrentColumnValue("Egg_SinglesProduced_LTD")
G1LDAvCWSyLb += GetCurrentColumnValue("EggWt_CsWtLbsStd_LTD") * WrkDbl
G1LDAvCWSyHd += WrkDbl
End Sub
Private Sub G1LDAvCWSy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1LDAvCWSyHd > 0 Then
WrkDbl = G1LDAvCWSyLb / G1LDAvCWSyHd
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Average Body Weight Lbs, Current Period
(Note: Will need the GetDouble Function)
Dim G1PDAvgBdWLb As Double
Dim G1PDAvgBdWHd As Double
Private Sub G1PDAvgBdW_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1PDAvgBdWHd = 0
G1PDAvgBdWLb = 0
End Sub
Private Sub G1PDAvgBdW_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
G1PDAvgBdWHd += GetDouble(GetCurrentColumnValue("HouseCount_AnimalDays_PD"))
G1PDAvgBdWLb += GetDouble(GetCurrentColumnValue("Stats_BodyWtLbs_PD")) * GetDouble(GetCurrentColumnValue("HouseCount_AnimalDays_PD"))
End Sub
Private Sub G1PDAvgBdW_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1PDAvgBdWHd > 0 Then
WrkDbl = (G1PDAvgBdWLb / G1PDAvgBdWHd)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Average Body Weight Lbs, Prior Period
(Note: Will need the GetDouble Function)
Dim G1PRAvgBdWLb As Double
Dim G1PRAvgBdWHd As Double
Private Sub G1PRAvgBdW_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1PRAvgBdWHd = 0
G1PRAvgBdWLb = 0
End Sub
Private Sub G1PRAvgBdW_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
G1PRAvgBdWHd += GetDouble(GetCurrentColumnValue("HouseCount_AnimalDays_PrPD"))
G1PRAvgBdWLb += GetDouble(GetCurrentColumnValue("Stats_BodyWtLbs_PrPD")) *GetDouble(GetCurrentColumnValue("HouseCount_AnimalDays_PrPD"))
End Sub
Private Sub G1PRAvgBdW_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1PRAvgBdWHd > 0 Then
WrkDbl = (G1PRAvgBdWLb / G1PRAvgBdWHd)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Average Body Weight Lbs, 4 Week Period
(Note: Will need the GetDouble Function)
Dim G14WAvgBdWLb As Double
Dim G14WAvgBdWHd As Double
Private Sub G14WAvgBdW_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G14WAvgBdWHd = 0
G14WAvgBdWLb = 0
End Sub
Private Sub G14WAvgBdW_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
G14WAvgBdWHd += GetDouble(GetCurrentColumnValue("HouseCount_AnimalDays_4wk"))
G14WAvgBdWLb += GetDouble(GetCurrentColumnValue("Stats_BodyWtLbs_4wk")) *GetDouble(GetCurrentColumnValue("HouseCount_AnimalDays_4wk"))
End Sub
Private Sub G14WAvgBdW_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G14WAvgBdWHd > 0 Then
WrkDbl = (G14WAvgBdWLb / G14WAvgBdWHd)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Average Body Weight Lbs, LTD Period
(Note: Will need the GetDouble Function)
Dim G1LDAvgBdWLb As Double
Dim G1LDAvgBdWHd As Double
Private Sub G1LDAvgBdW_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1LDAvgBdWHd = 0
G1LDAvgBdWLb = 0
End Sub
Private Sub G1LDAvgBdW_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
G1LDAvgBdWHd += GetDouble(GetCurrentColumnValue("HouseCount_AnimalDays_LTD"))
G1LDAvgBdWLb += GetDouble(GetCurrentColumnValue("Stats_BodyWtLbs_LTD")) *GetDouble(GetCurrentColumnValue("HouseCount_AnimalDays_LTD"))
End Sub
Private Sub G1LDAvgBdW_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1LDAvgBdWHd > 0 Then
WrkDbl = (G1LDAvgBdWLb / G1LDAvgBdWHd)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Average Body Weight Lbs Sys, Current Period
(Note: Will need the GetDouble Function)
Dim G1PDAvBWSyLb As Double
Dim G1PDAvBWSyHd As Double
Private Sub G1PDAvBWSy_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1PDAvBWSyHd = 0
G1PDAvBWSyLb = 0
End Sub
Private Sub G1PDAvBWSy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
WrkDbl = GetCurrentColumnValue("HouseCount_AnimalDays_PD")
G1PDAvBWSyLb += GetDouble(GetCurrentColumnValue("Stats_BodyWtLbs_PD")) * WrkDbl
G1PDAvBWSyHd += WrkDbl
End Sub
Private Sub G1PDAvBWSy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1PDAvBWSyHd > 0 Then
WrkDbl = (G1PDAvBWSyLb / G1PDAvBWSyHd)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Average Body Weight Lbs Sys, Prior Period
(Note: Will need the GetDouble Function)
Dim G1PRAvBWSyLb As Double
Dim G1PRAvBWSyHd As Double
Private Sub G1PRAvBWSy_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1PRAvBWSyHd = 0
G1PRAvBWSyLb = 0
End Sub
Private Sub G1PRAvBWSy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
WrkDbl = GetCurrentColumnValue("HouseCount_AnimalDays_PrPD")
G1PRAvBWSyLb += GetDouble(GetCurrentColumnValue("Stats_BodyWtLbs_PrPD")) * WrkDbl
G1PRAvBWSyHd += WrkDbl
End Sub
Private Sub G1PRAvBWSy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1PRAvBWSyHd > 0 Then
WrkDbl = (G1PRAvBWSyLb / G1PRAvBWSyHd)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Average Body Weight Lbs Sys, 4 Week Period
(Note: Will need the GetDouble Function)
Dim G14WAvBWSyLb As Double
Dim G14WAvBWSyHd As Double
Private Sub G14WAvBWSy_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G14WAvBWSyHd = 0
G14WAvBWSyLb = 0
End Sub
Private Sub G14WAvBWSy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
WrkDbl = GetCurrentColumnValue("HouseCount_AnimalDays_4wk")
G14WAvBWSyLb += GetDouble(GetCurrentColumnValue("Stats_BodyWtLbs_4wk")) * WrkDbl
G14WAvBWSyHd += WrkDbl
End Sub
Private Sub G14WAvBWSy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G14WAvBWSyHd > 0 Then
WrkDbl = (G14WAvBWSyLb / G14WAvBWSyHd)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Average Body Weight Lbs Sys, LTD Period
(Note: Will need the GetDouble Function)
Dim G1LDAvBWSyLb As Double
Dim G1LDAvBWSyHd As Double
Private Sub G1LDAvBWSy_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1LDAvBWSyHd = 0
G1LDAvBWSyLb = 0
End Sub
Private Sub G1LDAvBWSy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
WrkDbl = GetCurrentColumnValue("HouseCount_AnimalDays_LTD")
G1LDAvBWSyLb += GetDouble(GetCurrentColumnValue("Stats_BodyWtLbs_LTD")) * WrkDbl
G1LDAvBWSyHd += WrkDbl
End Sub
Private Sub G1LDAvBWSy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1LDAvBWSyHd > 0 Then
WrkDbl = (G1LDAvBWSyLb / G1LDAvBWSyHd)
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Percent Mortality, Current Period
Dim G1PDPctMrtHd As Double
Dim G1PDPctMrtSt As Double
Private Sub G1PDPctMrt_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1PDPctMrtHd = 0
G1PDPctMrtSt = 0
End Sub
Private Sub G1PDPctMrt_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
G1PDPctMrtHd += GetCurrentColumnValue("HouseCount_Mortality_PD")
G1PDPctMrtSt += GetCurrentColumnValue("HouseCount_StartCount_PD")
G1PDPctMrtSt += GetCurrentColumnValue("HouseCount_HeadAdded_PD")
End Sub
Private Sub G1PDPctMrt_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1PDPctMrtSt > 0 Then
WrkDbl = G1PDPctMrtHd / G1PDPctMrtSt
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Percent Mortality, Prior Period
Dim G1PRPctMrtHd As Double
Dim G1PRPctMrtSt As Double
Private Sub G1PRPctMrt_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1PRPctMrtHd = 0
G1PRPctMrtSt = 0
End Sub
Private Sub G1PRPctMrt_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
G1PRPctMrtHd += GetCurrentColumnValue("HouseCount_Mortality_PrPD")
G1PRPctMrtSt += GetCurrentColumnValue("HouseCount_StartCount_PrPD")
G1PRPctMrtSt += GetCurrentColumnValue("HouseCount_HeadAdded_PrPD")
End Sub
Private Sub G1PRPctMrt_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1PRPctMrtSt > 0 Then
WrkDbl = G1PRPctMrtHd / G1PRPctMrtSt
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Percent Mortality, 4wk Period
Dim G14WPctMrtHd As Double
Dim G14WPctMrtSt As Double
Private Sub G14WPctMrt_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G14WPctMrtHd = 0
G14WPctMrtSt = 0
End Sub
Private Sub G14WPctMrt_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
G14WPctMrtHd += GetCurrentColumnValue("HouseCount_Mortality_4wk")
G14WPctMrtSt += GetCurrentColumnValue("HouseCount_StartCount_4wk")
G14WPctMrtSt += GetCurrentColumnValue("HouseCount_HeadAdded_4wk")
End Sub
Private Sub G14WPctMrt_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G14WPctMrtSt > 0 Then
WrkDbl = G14WPctMrtHd / G14WPctMrtSt
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Percent Mortality, LTD Period
Dim G1LDPctMrtHd As Double
Dim G1LDPctMrtSt As Double
Private Sub G1LDPctMrt_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1LDPctMrtHd = 0
G1LDPctMrtSt = 0
End Sub
Private Sub G1LDPctMrt_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
G1LDPctMrtHd += GetCurrentColumnValue("HouseCount_Mortality_LTD")
G1LDPctMrtSt += GetCurrentColumnValue("HouseCount_StartCount_LTD")
G1LDPctMrtSt += GetCurrentColumnValue("HouseCount_HeadAdded_LTD")
End Sub
Private Sub G1LDPctMrt_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1LDPctMrtSt > 0 Then
WrkDbl = G1LDPctMrtHd / G1LDPctMrtSt
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Percent Mortality Sys, Current Period
Dim G1PDPtMtSyHd As Double
Dim G1PDPtMtSySt As Double
Private Sub G1PDPtMtSy_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1PDPtMtSyHd = 0
G1PDPtMtSySt = 0
End Sub
Private Sub G1PDPtMtSy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
WrkDbl = GetCurrentColumnValue("HouseCount_AnimalDays_PD")
G1PDPtMtSySt += GetCurrentColumnValue("HouseCount_MortalityPctStandard_PD") * WrkDbl
G1PDPtMtSyHd += WrkDbl
End Sub
Private Sub G1PDPtMtSy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1PDPtMtSyHd > 0 Then
WrkDbl = G1PDPtMtSySt / G1PDPtMtSyHd
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Percent Mortality Sys, Prior Period
Dim G1PRPtMtSyHd As Double
Dim G1PRPtMtSySt As Double
Private Sub G1PRPtMtSy_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1PRPtMtSyHd = 0
G1PRPtMtSySt = 0
End Sub
Private Sub G1PRPtMtSy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
WrkDbl = GetCurrentColumnValue("HouseCount_AnimalDays_PrPD")
G1PRPtMtSySt += GetCurrentColumnValue("HouseCount_MortalityPctStandard_PrPD") * WrkDbl
G1PRPtMtSyHd += WrkDbl
End Sub
Private Sub G1PRPtMtSy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1PRPtMtSyHd > 0 Then
WrkDbl = G1PRPtMtSySt / G1PRPtMtSyHd
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Percent Mortality Sys, 4 Week Period
Dim G14WPtMtSyHd As Double
Dim G14WPtMtSySt As Double
Private Sub G14WPtMtSy_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G14WPtMtSyHd = 0
G14WPtMtSySt = 0
End Sub
Private Sub G14WPtMtSy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
WrkDbl = GetCurrentColumnValue("HouseCount_AnimalDays_4wk")
G14WPtMtSySt += GetCurrentColumnValue("HouseCount_MortalityPctStandard_4wk") * WrkDbl
G14WPtMtSyHd += WrkDbl
End Sub
Private Sub G14WPtMtSy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G14WPtMtSyHd > 0 Then
WrkDbl = G14WPtMtSySt / G14WPtMtSyHd
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Percent Mortality Sys, LTD Period
Dim G1LDPtMtSyHd As Double
Dim G1LDPtMtSySt As Double
Private Sub G1LDPtMtSy_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1LDPtMtSyHd = 0
G1LDPtMtSySt = 0
End Sub
Private Sub G1LDPtMtSy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
WrkDbl = GetCurrentColumnValue("HouseCount_AnimalDays_LTD")
G1LDPtMtSySt += GetCurrentColumnValue("HouseCount_MortalityPctStandard_LTD") * WrkDbl
G1LDPtMtSyHd += WrkDbl
End Sub
Private Sub G1LDPtMtSy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If G1LDPtMtSyHd > 0 Then
WrkDbl = G1LDPtMtSySt / G1LDPtMtSyHd
Else
WrkDbl = 0
End If
e.Result = WrkDbl
e.Handled = True
End Sub
Average Age (WWW-D), Current Period
Dim G1PDAgeWkDHd As Double
Dim G1PDAgeWkDDy As Double
Dim G1PDAgeWkDWk As Double
Dim G1PDAgeWkDSt As String
Private Sub G1PDAgeWkD_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)
G1PDAgeWkDHd = 0
G1PDAgeWkDDy = 0
G1PDAgeWkDDy = 0
G1PDAgeWkDSt = " "
End Sub
Private Sub G1PDAgeWkD_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)
WrkDbl = GetCurrentColumnValue("HouseCount_AnimalDays_PD")
G1PDAgeWkDDy += GetCurrentColumnValue("HouseCount_AnimalDays_PD") * WrkDbl
G1PDAgeWkDHd += WrkDbl
End Sub
Private Sub G1PDAgeWkD_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)
If AgeDysHD > 0 Then
G1PDAgeWkDDy = Math.Round(G1PDAgeWkDDy / AgeDysHD,0)
If G1PDAgeWkDDy > 7 Then
G1PDAgeWkDWk = Math.Round(G1PDAgeWkDDy / 7,0)
G1PDAgeWkDDy = (G1PDAgeWkDDy - (G1PDAgeWkDWk * 7))
End If
G1PDAgeWkDSt = G1PDAgeWkDWk.ToString() & "-" & G1PDAgeWkDDy.ToString()
Else
G1PDAgeWkDSt = " "
End If
e.Result = G1PDAgeWkDSt
e.Handled = True
End Sub
Functions
Get Value as Double
Function GetDouble(Obj as Object) as Double
If Obj is Nothing Then Return 0.0
If DbNull.Value.Equals(Obj) Then Return 0.0
Return Ctype(Obj, Double)
End Function
Sample: WrkFld = GetDouble(GetCurrentColumnValue("xxxx"))
Get Value as String
VB
Function GetString(ByVal Obj As Object) As String
If Obj Is Nothing Then Return String.Empty
If DBNull.Value.Equals(Obj) Then Return String.Empty
Return CType(Obj, String)
End Function
C#
private string GetString(Object obj)
{
if(obj == null) return string.Empty;
if(obj.Equals(System.DBNull.Value)) return string.Empty;
return (string)obj;
}
Expressions
Age (WksRnd-Cyc-WksCyc) Concatenated
Concat([HouseAge_WksRound_PD], '-', [HouseAge_CycleStatus_PD], '-', Iif([HouseAge_CycleStatus_PD] = 'C2', Floor(([HouseAge_CycleDays_PD] + [HouseAge_Molt1Days]) / 7) ,Iif([HouseAge_CycleStatus_PD] = 'C3',Floor(([HouseAge_CycleDays_PD] + [HouseAge_Molt2Days]) / 7), [HouseAge_CycleWks_PD])))
Single Character Status Cycle
Iif([HouseAge_CycleStatus_PD] = 'PS', 'S', Iif([HouseAge_CycleStatus_PD] = 'PC', 'P', Iif([HouseAge_CycleStatus_PD] = 'C1', '1', Iif([HouseAge_CycleStatus_PD] = 'C2', '2', Iif([HouseAge_CycleStatus_PD] = 'M1', 'M', '')))))
Save Field Value
Dim holdvalue as double
Private Sub label11_PrintOnPage(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.PrintOnPageEventArgs)
holdvalue = label11.text
End Sub
Private Sub label20_PrintOnPage(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.PrintOnPageEventArgs)
' label20.text = 123.12
label20.text = holdvalue
End Sub
Return Calculated Field Value from Script
e.value = Value to return