28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/OFieldPeas.h"
49 m_field->SetMDates(0,0,g_date->DayInYear(10,8));
51 m_field->SetMDates(1,0,g_date->DayInYear(25,8));
59 g_msg->Warn( WARN_BUG,
"OFieldPeas::Do(): "
60 "Harvest too late for the next crop to start!!!",
"" );
64 for (
int i=0; i<noDates; i++)
75 int today=g_date->Date();
80 g_msg->Warn( WARN_BUG,
"OFieldPeas::Do(): "
81 "Crop start attempt after last possible start date",
"" );
89 if ( g_date->Date() > d1 ) {
99 g_date->DayInYear( 30,3 ) - g_date->DayInYear())) {
108 g_date->DayInYear( 5,4 ) - g_date->DayInYear())) {
112 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ),
118 g_date->DayInYear( 15,4 ) - g_date->DayInYear())) {
122 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ),
129 g_date->DayInYear( 20,4 ) - g_date->DayInYear())) {
133 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,4 ),
139 g_date->DayInYear( 30,4 ) - g_date->DayInYear())) {
143 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,5 ),
149 g_date->DayInYear( 10,5 ) - g_date->DayInYear())) {
153 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 11,5 ),
159 g_date->DayInYear( 15,5 ) - g_date->DayInYear())) {
163 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 16,5 ),
171 g_date->DayInYear( 26,5 ) - g_date->DayInYear())) {
177 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,6 ),
185 g_date->DayInYear( 20,6 ) - g_date->DayInYear())) {
197 g_date->DayInYear( 30,6 ) - g_date->DayInYear())) {
209 m_field->GetMDates(1,0) - g_date->DayInYear())) {
220 m_field->GetMDates(1,0) - g_date->DayInYear())) {
230 g_msg->Warn( WARN_BUG,
"OFieldPeas::Do(): "
231 "Unknown event type! ",
"" );