43 #include "../../Landscape/ls.h"
44 #include "../../Landscape/cropprogs/NLCatchPeaCrop.h"
76 if (a_ev->
m_startday > g_date->DayInYear(1, 7)) {
77 if (a_field->GetMDates(0, 0) >= a_ev->
m_startday)
79 g_msg->Warn(WARN_BUG,
"NLCatchPeaCrop::Do(): ",
"Harvest too late for the next crop to start!!!");
81 g_msg->Warn(
"Next Crop ", (
double)almassnum);
88 d1 = g_date->OldDays() + g_date->DayInYear(1, 7);
93 printf(
"Poly: %d\n", a_field->GetPoly());
94 g_msg->Warn(WARN_BUG,
"NLCatchPeaCrop::Do(): ",
"Crop start attempt between 1st Jan & 1st July");
96 g_msg->Warn(WARN_BUG,
"Previous Crop ", prev);
98 g_msg->Warn(
"Next Crop ", (
double)almassnum);
102 if (g_date->Date() > d1) {
104 g_msg->Warn(WARN_BUG,
"NLCatchPeaCrop::Do(): ",
"Crop start attempt after last possible start date");
105 g_msg->Warn(WARN_BUG,
"Previous Crop ",
"");
106 a_field->GetOwner()->GetPreviousCrop(a_field->GetRotIndex());
108 g_msg->Warn(
"Next Crop ", (
double)almassnum);
123 d1 = g_date->OldDays() + g_date->DayInYear(1, 8);
133 if (!a_farm->
StubbleHarrowing(a_field, 0.0, g_date->DayInYear(10, 10) - g_date->DayInYear())) {
145 if (!a_farm->FP_Slurry(a_field, 0.0, g_date->DayInYear(15, 10) - g_date->DayInYear())) {
152 if (!a_farm->FA_Slurry(a_field, 0.0, g_date->DayInYear(15, 10) - g_date->DayInYear())) {
159 if (!a_farm->PreseedingCultivatorSow(a_field, 0.0, g_date->DayInYear(16, 10) - g_date->DayInYear())) {
163 d1 = g_date->Date() + 14;
164 if (d1 < g_date->OldDays() + g_date->DayInYear(1, 9)) {
165 d1 = g_date->OldDays() + g_date->DayInYear(1, 9);
167 if (a_field->GetSoilType() == 2 || a_field->GetSoilType() == 6) {
173 if (a_farm->IsStockFarmer())
175 if (!a_farm->FA_Manure(a_field, 0.0, g_date->DayInYear(25, 10) - g_date->DayInYear())) {
179 d1 = g_date->Date() + 40;
180 if (d1 < g_date->OldDays() + g_date->DayInYear(15, 10)) {
181 d1 = g_date->OldDays() + g_date->DayInYear(15, 10);
189 if (!a_farm->FP_Manure(a_field, 0.0, g_date->DayInYear(25, 10) - g_date->DayInYear())) {
193 d1 = g_date->Date() + 40;
194 if (d1 < g_date->OldDays() + g_date->DayInYear(15, 10)) {
195 d1 = g_date->OldDays() + g_date->DayInYear(15, 10);
200 if (!a_farm->WinterPlough(a_field, 0.0, g_date->DayInYear(15, 12) - g_date->DayInYear())) {
209 if (a_farm->IsStockFarmer())
211 if (!a_farm->FA_Manure(a_field, 0.0, g_date->DayInYear(15, 3) - g_date->DayInYear())) {
222 if (!a_farm->FP_Manure(a_field, 0.0, g_date->DayInYear(15, 3) - g_date->DayInYear())) {
230 if (!a_farm->SleepAllDay(a_field, 0.0, g_date->DayInYear(15, 3) - g_date->DayInYear())) {
239 g_msg->Warn(WARN_BUG,
"NLCatchPeaCrop::Do(): "
240 "Unknown event type! ",
"");