28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/FieldPeasStrigling.h"
59 m_field->SetMDates(0,0,g_date->DayInYear(30,8));
61 m_field->SetMDates(1,0,g_date->DayInYear(30,8));
69 g_msg->Warn( WARN_BUG,
"FieldPeas::Do(): "
70 "Harvest too late for the next crop to start!!!",
"" );
74 for (
int i=0; i<noDates; i++) {
89 d1 = g_date->OldDays() + g_date->DayInYear( 1,7 );
90 if (g_date->Date() < d1)
93 g_msg->Warn( WARN_BUG,
"FieldPeas::Do(): "
94 "Crop start attempt between 1st Jan & 1st July",
"" );
100 if (g_date->Date() > d1)
103 g_msg->Warn( WARN_BUG,
"FieldPeas::Do(): "
104 "Crop start attempt after last possible start date",
"" );
113 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,3 ),
120 d1 = g_date->OldDays() + g_date->DayInYear( 1,10 );
121 if ( g_date->Date() > d1 ) {
132 g_date->DayInYear( 1, 12 ) -
133 g_date->DayInYear())) {
138 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,3 ) + 365,
145 g_date->DayInYear( 1,4 ) -
146 g_date->DayInYear())) {
152 int d1 = g_date->Date()+1;
153 int d2 = g_date->OldDays() + g_date->DayInYear( 5,3 );
163 g_date->DayInYear( 5,4 ) - g_date->DayInYear())) {
173 int d1 = g_date->Date();
174 int d2 = g_date->OldDays() + g_date->DayInYear( 20,3 );
184 g_date->DayInYear( 15,4 ) -
185 g_date->DayInYear())) {
190 int d1 = g_date->Date();
191 int d2 = g_date->OldDays() + g_date->DayInYear( 25,3 );
202 g_date->DayInYear( 15,4 ) -
203 g_date->DayInYear())) {
209 int d1 = g_date->Date();
210 int d2 = g_date->OldDays() + g_date->DayInYear( 25,3 );
220 g_date->DayInYear( 15,4 ) -
221 g_date->DayInYear())) {
230 g_date->DayInYear( 15,4 ) -
231 g_date->DayInYear())) {
235 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,4 ),
243 g_date->DayInYear( 30,4 ) - g_date->DayInYear())) {
247 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,5 ),
252 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,6 ),
254 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,6 ),
258 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,6 ),
267 g_date->DayInYear( 10,5 ) - g_date->DayInYear())) {
271 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 11,5 ),
276 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,6 ),
278 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,6 ),
282 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,6 ),
291 g_date->DayInYear( 15,5 ) - g_date->DayInYear())) {
295 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 16,5 ),
300 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,6 ),
302 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,6 ),
306 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,6 ),
316 g_date->DayInYear( 26,5 ) - g_date->DayInYear())) {
321 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,6 ),
323 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,6 ),
327 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,6 ),
337 Field * pf = dynamic_cast<Field*>(
m_field);
338 pf->Add_missed_fi_app();
344 int d1 = g_date->Date();
352 g_date->DayInYear( 15,6 ) -
353 g_date->DayInYear())) {
368 Field * pf = dynamic_cast<Field*>(
m_field);
369 pf->Add_missed_fi_app();
374 int d1 = g_date->Date();
382 g_date->DayInYear( 15,6 ) -
383 g_date->DayInYear())) {
396 int d1 = g_date->Date();
405 g_date->DayInYear( 15,6 ) - g_date->DayInYear())) {
412 int d1 = g_date->OldDays() + g_date->DayInYear( 16,6 );
413 if ( d1 < g_date->Date() + 7 ) {
414 d1 = g_date->Date() + 7;
419 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,8 ),
425 int d1 = g_date->Date();
434 g_date->DayInYear( 1,7 ) -
435 g_date->DayInYear())) {
447 g_date->DayInYear( 20,8 ) -
448 g_date->DayInYear())) {
463 g_date->DayInYear( 30,8 ) -
464 g_date->DayInYear())) {
474 g_date->DayInYear())) {
483 g_msg->Warn( WARN_BUG,
"FieldPeas::Do(): "
484 "Unknown event type! ",
"" );