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

Browser not supported