28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/OWinterRape.h"
49 m_field->SetMDates(0,0,g_date->DayInYear(1,8));
51 m_field->SetMDates(1,0,g_date->DayInYear(15,8));
59 g_msg->Warn( WARN_BUG,
"OWinterRape::Do(): "
60 "Harvest too late for the next crop to start!!!",
"" );
64 for (
int i=0; i<noDates; i++)
77 int today=g_date->Date();
79 d1 = g_date->OldDays() + g_date->DayInYear( 1,7 );
83 g_msg->Warn( WARN_BUG,
" OWinterRape::Do(): "
84 "Crop start attempt between 1st Jan & 1st July",
"" );
93 g_msg->Warn( WARN_BUG,
" OWinterRape::Do(): "
94 "Crop start attempt after last possible start date",
"" );
101 SimpleEvent( g_date->OldDays() + g_date->DayInYear(5,7 ),
109 if ( g_date->Date() > d1 ) {
125 g_date->DayInYear( 25, 8 ) - g_date->DayInYear())) {
137 g_date->DayInYear( 25, 8 ) - g_date->DayInYear())) {
147 g_date->DayInYear( 25, 8 ) -
148 g_date->DayInYear())) {
157 g_date->DayInYear( 27, 8 ) -
158 g_date->DayInYear())) {
162 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10, 8 ),
168 g_date->DayInYear( 27, 8 ) - g_date->DayInYear())) {
173 int d1 = g_date->Date() + 10;
174 if ( d1 < g_date->OldDays() + g_date->DayInYear( 20, 8 ))
175 d1 = g_date->OldDays() + g_date->DayInYear( 20, 8 );
182 g_date->DayInYear( 20, 9 ) -
183 g_date->DayInYear())) {
188 int d1 = g_date->Date() + 7;
189 if ( d1 < g_date->OldDays() + g_date->DayInYear( 28, 8 ))
190 d1 = g_date->OldDays() + g_date->DayInYear( 28, 8 );
197 g_date->DayInYear( 30, 9 ) -
198 g_date->DayInYear())) {
203 int d1 = g_date->OldDays() + g_date->DayInYear( 15, 3 ) + 365;
214 g_date->DayInYear( 15, 4 ) -
215 g_date->DayInYear())) {
220 int d1 = g_date->Date() + 1;
221 if ( d1 < g_date->OldDays() + g_date->DayInYear( 1, 4 ))
222 d1 = g_date->OldDays() + g_date->DayInYear( 1, 4 );
229 g_date->DayInYear( 15, 4 ) -
230 g_date->DayInYear())) {
235 int d1 = g_date->Date() + 1;
236 if ( d1 < g_date->OldDays() + g_date->DayInYear( 1, 4 ))
237 d1 = g_date->OldDays() + g_date->DayInYear( 1, 4 );
244 g_date->DayInYear( 30, 4 ) -
245 g_date->DayInYear())) {
249 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5, 7 ),
257 g_date->DayInYear( 25, 7 ) - g_date->DayInYear())) {
263 int d1 = g_date->Date() + 5;
264 if ( d1 < g_date->OldDays() + g_date->DayInYear( 10, 7 ))
265 d1 = g_date->OldDays() + g_date->DayInYear( 10, 7 );
272 g_date->DayInYear( 1, 8 ) -
273 g_date->DayInYear())) {
282 g_date->DayInYear( 1, 8 ) -
283 g_date->DayInYear())) {
288 int d1 = g_date->Date() + 1;
289 if ( d1 < g_date->OldDays() + g_date->DayInYear( 15, 7 ))
290 d1 = g_date->OldDays() + g_date->DayInYear( 15, 7 );
298 g_date->DayInYear( 15, 8 ) - g_date->DayInYear())) {
307 g_msg->Warn( WARN_BUG,
"OWinterRape::Do(): "
308 "Unknown event type! ",
"" );