Table of Contents

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)

...

      G1PDPctHDEg = 0

End Sub

Private Sub G1PDPctHD_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1PDPctHDEg += GetCurrentColumnValue("Egg_SinglesProduced_PD")

End Sub 

Private Sub G1PDPctHD_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G1PRPctHDEgg = 0

End Sub

 

Private Sub G1PRPctHD_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1PRPctHDEgg += GetCurrentColumnValue("Egg_SinglesProduced_PrPD")

End Sub

 

Private Sub G1PRPctHD_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G14WPctHDEgg = 0

End Sub

 

Private Sub G14WPctHD_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G14WPctHDEgg += GetCurrentColumnValue("Egg_SinglesProduced_4wk")

End Sub

 

Private Sub G14WPctHD_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G1LDPctHDEgg = 0

End Sub 

Private Sub G1LDPctHD_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1LDPctHDEgg += GetCurrentColumnValue("Egg_SinglesProduced_LTD")

End Sub

Private Sub G1LDPctHD_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G1PDPtHDSEg = 0

End Sub

 

Private Sub G1PDPtHDS_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1PDPtHDSHd += WrkDbl

End Sub

 

Private Sub G1PDPtHDS_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G1PRPtHDSEg = 0

End Sub 

Private Sub G1PRPtHDS_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1PRPtHDSHd += WrkDbl

End Sub

Private Sub G1PRPtHDS_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

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)

...

      G14WPtHDSEg = 0

End Sub 

Private Sub G14WPtHDS_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G14WPtHDSHd += WrkDbl

End Sub

 

Private Sub G14WPtHDS_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

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)

...

      G1LDPtHDSEg = 0

End Sub

Private Sub G1LDPtHDS_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1LDPtHDSHd += WrkDbl

End Sub

Private Sub G1LDPtHDS_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G1LDEggHHEg = 0

End Sub

 

Private Sub G1LDEggHHPrivate Sub G1LDEggHH_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1LDEggHHEg += GetCurrentColumnValue("Egg_SinglesProduced_LTD")

End Sub 

Private Sub G1LDEggHH_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G1LDEgHSyEg = 0

End Sub 

Private Sub G1LDEgHSy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1LDEgHSyHd += WrkDbl

End Sub 

Private Sub G1LDEgHSy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G1PDLbs100Lb = 0

End Sub

Private Sub G1PDLbs100_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1PDLbs100Lb += GetCurrentColumnValue("FC_LbsFeedConsumed_PD")

End Sub 

Private Sub G1PDLbs100_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G1PRLbs100Lb = 0

End Sub

Private Sub G1PRLbs100_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1PRLbs100Lb += GetCurrentColumnValue("FC_LbsFeedConsumed_PrPD")

End Sub

Private Sub G1PRLbs100_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G14WLbs100Lb = 0

End Sub

 

Private Sub G14WLbs100_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G14WLbs100Lb += GetCurrentColumnValue("FC_LbsFeedConsumed_4wk")

End Sub

 

Private Sub G14WLbs100_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G1LDLbs100Lb = 0

End Sub

Private Sub G1LDLbs100_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1LDLbs100Lb += GetCurrentColumnValue("FC_LbsFeedConsumed_LTD")

End Sub

Private Sub G1LDLbs100_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G1PDLb10SyLb = 0

End Sub

 

Private Sub G1PDLb10Sy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1PDLb10SyHd += WrkDbl

End Sub 

Private Sub G1PDLb10Sy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G1PRLb10SyLb = 0

End Sub

 

Private Sub G1PRLb10Sy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1PRLb10SyHd += WrkDbl

End Sub

 

Private Sub G1PRLb10Sy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G14WLb10SyLb = 0

End Sub

Private Sub G14WLb10Sy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G14WLb10SyHd += WrkDbl

End Sub

Private Sub G14WLb10Sy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G1LDLb10SyLb = 0

End Sub

 

Private Sub G1LDLb10Sy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1LDLb10SyHd += WrkDbl

End Sub

 

Private Sub G1LDLb10Sy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G1PDLbsLbELb = 0

End Sub

 

Private Sub G1PDLbsLbE_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1PDLbsLbEFd += GetCurrentColumnValue("FC_LbsFeedConsumed_PD")

End Sub

 

Private Sub G1PDLbsLbE_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G1PDFdLbDzEg = 0

End Sub

 

Private Sub G1PDFdLbDz_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1PDFdLbDzFd += GetCurrentColumnValue("FC_LbsFeedConsumed_PD")

End Sub

 

Private Sub G1PDFdLbDz_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

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)

...

      G1PDCFdCstEg = 0

End Sub 

Private Sub G1PDCFdCst_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1PDCFdCstEg += GetCurrentColumnValue("Egg_SinglesProduced_PD")

End Sub 

Private Sub G1PDCFdCst_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

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)

...

      G1PRCFdCstEg = 0

End Sub 

Private Sub G1PRCFdCst_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1PRCFdCstEg += GetCurrentColumnValue("Egg_SinglesProduced_PrPD")

End Sub 

Private Sub G1PRCFdCst_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

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)

...

      G14WCFdCstEg = 0

End Sub

Private Sub G14WCFdCst_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G14WCFdCstEg += GetCurrentColumnValue("Egg_SinglesProduced_4wk")

End Sub

Private Sub G14WCFdCst_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

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)

...

      G1LDCFdCstEg = 0

End Sub

Private Sub G1LDCFdCst_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1LDCFdCstEg += GetCurrentColumnValue("Egg_SinglesProduced_LTD")

End Sub 

Private Sub G1LDCFdCst_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G1PDAvgCsWEg = 0

End Sub

 

Private Sub G1PDAvgCsW_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1PDAvgCsWLb += GetCurrentColumnValue("EggWt_LbsEggProd_PD")

End Sub

 

Private Sub G1PDAvgCsW_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G1PRAvgCsWEg = 0

End Sub 

Private Sub G1PRAvgCsW_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1PRAvgCsWLb += GetCurrentColumnValue("EggWt_LbsEggProd_PrPD")

End Sub

Private Sub G1PRAvgCsW_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

Average Case Weight, 4 Week Period

Dim G14WAvgCsWLb As Dim G14WAvgCsWLb As Double

Dim G14WAvgCsWEg As Double 

Private Sub G14WAvgCsW_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G14WAvgCsWEg = 0

End Sub

Private Sub G14WAvgCsW_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G14WAvgCsWLb += GetCurrentColumnValue("EggWt_LbsEggProd_4wk")

End Sub

Private Sub G14WAvgCsW_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

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)

...

      G1LDAvgCsWEg = 0

End Sub 

Private Sub G1LDAvgCsW_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1LDAvgCsWLb += GetCurrentColumnValue("EggWt_LbsEggProd_LTD")

End Sub

 

Private Sub G1LDAvgCsW_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G1PDAvCWSyHd = 0

End Sub 

Private Sub G1PDAvCWSy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1PDAvCWSyHd += WrkDbl

End Sub 

Private Sub G1PDAvCWSy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G1PRAvCWSyHd = 0

End Sub

Private Sub G1PRAvCWSy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1PRAvCWSyHd += WrkDbl

End Sub

Private Sub G1PRAvCWSy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

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)

...

      G14WAvCWSyHd = 0

End Sub

 

Private Sub G14WAvCWSy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G14WAvCWSyHd += WrkDbl

End Sub

 

Private Sub G14WAvCWSy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

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)

...

      G1LDAvCWSyHd = 0

End Sub

 

Private Sub G1LDAvCWSy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1LDAvCWSyHd += WrkDbl

End Sub

 

Private Sub G1LDAvCWSy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G1PDAvgBdWLb = 0

End Sub 

Private Sub G1PDAvgBdW_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      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)

...

      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)

...

      G1PRAvgBdWLb = 0

End Sub

Private Sub G1PRAvgBdW_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      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)

...

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)

...

      G14WAvgBdWLb = 0

End Sub

 

Private Sub G14WAvgBdW_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      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)

...

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)

...

      G1LDAvgBdWLb = 0

End Sub 

Private Sub G1LDAvgBdW_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      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)

...

      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)

...

      G1PDAvBWSyLb = 0

End Sub

Private Sub G1PDAvBWSy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1PDAvBWSyHd += WrkDbl

End Sub 

Private Sub G1PDAvBWSy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G1PRAvBWSyLb = 0

End Sub

Private Sub G1PRAvBWSy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1PRAvBWSyHd += WrkDbl

End Sub 

Private Sub G1PRAvBWSy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G14WAvBWSyLb = 0

End Sub 

Private Sub G14WAvBWSy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G14WAvBWSyHd += WrkDbl

End Sub

Private Sub G14WAvBWSy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G1LDAvBWSyLb = 0

End Sub 

Private Sub G1LDAvBWSy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1LDAvBWSyHd += WrkDbl

End Sub

Private Sub G1LDAvBWSy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G1PDPctMrtSt = 0

End Sub

 

Private Sub G1PDPctMrt_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1PDPctMrtSt += GetCurrentColumnValue("HouseCount_HeadAdded_PD")

End Sub

 

Private Sub G1PDPctMrt_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G1PRPctMrtSt = 0

End Sub 

Private Sub G1PRPctMrt_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1PRPctMrtSt += GetCurrentColumnValue("HouseCount_HeadAdded_PrPD")

End Sub

Private Sub G1PRPctMrt_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      e.Handled = True

End Sub

Percent 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)

...

      G14WPctMrtSt = 0

End Sub

 

Private Sub G14WPctMrt_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G14WPctMrtSt += GetCurrentColumnValue("HouseCount_HeadAdded_4wk")

End Sub 

Private Sub G14WPctMrt_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G1LDPctMrtSt = 0

End Sub

 

Private Sub G1LDPctMrt_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1LDPctMrtSt += GetCurrentColumnValue("HouseCount_HeadAdded_LTD")

End Sub

 

Private Sub G1LDPctMrt_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G1PDPtMtSySt = 0

End Sub

 

Private Sub G1PDPtMtSy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1PDPtMtSyHd += WrkDbl

End Sub

 

Private Sub G1PDPtMtSy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G1PRPtMtSySt = 0

End Sub 

Private Sub G1PRPtMtSy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1PRPtMtSyHd += WrkDbl

End Sub

Private Sub G1PRPtMtSy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G14WPtMtSySt = 0

End Sub

 

Private Sub G14WPtMtSy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G14WPtMtSyHd += WrkDbl

End Sub

 

Private Sub G14WPtMtSy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      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)

...

      G1LDPtMtSySt = 0

End Sub 

Private Sub G1LDPtMtSy_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1LDPtMtSyHd += WrkDbl

End Sub

Private Sub G1LDPtMtSy_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

Average Age (WWW-D), Current Period

...

Dim G1PDAgeWkDHd As Double

...

Dim G1PDAgeWkDSt As String 

Private Sub G1PDAgeWkD_SummaryReset(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1PDAgeWkDSt = " "

End Sub

 

Private Sub G1PDAgeWkD_SummaryRowChanged(ByVal sender As Object, ByVal e As System.EventArgs)

...

      G1PDAgeWkDHd += WrkDbl

End Sub

 

Private Sub G1PDAgeWkD_SummaryGetResult(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs)

...

      e.Handled = True

End Sub

 

 

Functions

Get Value as Double

Function GetDouble(Obj as Object) as Double

...

      Return Ctype(Obj, Double)

End Function 

Sample:  WrkFld = GetDouble(GetCurrentColumnValue("xxxx")) 

Get Value as String

 VB 

Function GetString(ByVal Obj As Object) As String

...

        Return CType(Obj, String)

End Function

C#

private string GetString(Object obj)

Expressions

{
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 = holdvalue

End Sub

Return Calculated Field Value from Script

...

      e.value = Value to return