28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/SpringBarley.h"
68 a_field->m_skylarkscrapes=
true;
70 a_field->m_skylarkscrapes=
false;
78 m_field->SetMDates(0,0,g_date->DayInYear(20,8));
80 m_field->SetMDates(1,0,g_date->DayInYear(10,8));
81 m_field->SetMDates(0,1,g_date->DayInYear(10,8));
82 m_field->SetMDates(1,1,g_date->DayInYear(30,8));
95 g_msg->Warn( WARN_BUG,
"SpringBarley::Do(): "
96 "Harvest too late for the next crop to start!!!",
"" );
100 for (
int i=0; i<noDates; i++) {
114 int today=g_date->Date();
116 d1 = g_date->OldDays() + g_date->DayInYear( 1,7 );
120 g_msg->Warn( WARN_BUG,
"SpringBarley::Do(): " "Crop start attempt between 1st Jan & 1st July",
"" );
129 g_msg->Warn( WARN_BUG,
"SpringBarley::Do(): " "Crop start attempt after last possible start date",
"" );
136 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ),
145 d1 = g_date->OldDays() + g_date->DayInYear( 2,11 );
146 if ( g_date->Date() > d1 ) {
165 g_date->DayInYear( 30,11 ) - g_date->DayInYear())) {
174 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,3 )+365,
176 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,3 )+365,
180 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,3 )+365,
190 g_date->DayInYear( 15,4 ) - g_date->DayInYear())) {
207 g_date->DayInYear( 15,5 ) - g_date->DayInYear())) {
223 g_date->DayInYear( 10,4 ) -
224 g_date->DayInYear())) {
230 int d1 = g_date->Date();
231 if ( d1 < g_date->OldDays() + g_date->DayInYear( 20,3 )) {
232 d1 = g_date->OldDays() + g_date->DayInYear( 20,3 );
240 g_date->DayInYear( 10,4 ) - g_date->DayInYear())) {
245 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,4 ),
248 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,3 ),
258 g_date->DayInYear( 10,4 ) - g_date->DayInYear())) {
264 int d1 = g_date->Date();
265 if ( d1 < g_date->OldDays() + g_date->DayInYear( 25,3 )) {
266 d1 = g_date->OldDays() + g_date->DayInYear( 25,3 );
276 g_date->DayInYear( 10, 4 ) - g_date->DayInYear())) {
282 int d1 = g_date->Date();
283 if ( d1 < g_date->OldDays() + g_date->DayInYear( 25,3 )) {
284 d1 = g_date->OldDays() + g_date->DayInYear( 25,3 );
295 g_date->DayInYear( 10, 4 ) -
296 g_date->DayInYear())) {
305 g_date->DayInYear( 10, 4 ) -
306 g_date->DayInYear())) {
311 int d1 = g_date->Date();
312 if ( d1 < g_date->OldDays() + g_date->DayInYear( 25,3 )) {
313 d1 = g_date->OldDays() + g_date->DayInYear( 25,3 );
321 g_date->DayInYear( 10,4 ) - g_date->DayInYear())) {
326 int d1 = g_date->Date();
327 if ( d1 < g_date->OldDays() + g_date->DayInYear( 5,4 )) {
328 d1 = g_date->OldDays() + g_date->DayInYear( 5,4 );
338 g_date->DayInYear( 20,4 ) - g_date->DayInYear())) {
348 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,5 ),
350 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,5 ),
352 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 10,5 ),
354 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,5 ),
374 Field * pf = dynamic_cast<Field*>(
m_field);
375 pf->Add_missed_herb_app();
376 if(
m_farm->
DoIt(47)) pf->Add_missed_herb_app();
389 int d1 = g_date->Date() + 10;
390 if ( d1 < g_date->OldDays() + g_date->DayInYear( 16,5 )) {
391 d1 = g_date->OldDays() + g_date->DayInYear( 16,5 );
406 g_date->DayInYear( 30,5 ) - g_date->DayInYear())) {
424 g_date->DayInYear( 25,5 ) - g_date->DayInYear())) {
443 Field * pf = dynamic_cast<Field*>(
m_field);
444 pf->Add_missed_fi_app();
456 int d1 = g_date->Date() + 10;
457 if ( d1 < g_date->OldDays() + g_date->DayInYear( 25,5 )) {
458 d1 = g_date->OldDays() + g_date->DayInYear( 25,5 );
474 g_date->DayInYear( 10,6 ) - g_date->DayInYear())) {
492 g_date->DayInYear( 30,5 ) - g_date->DayInYear())) {
498 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,6 ),
510 g_date->DayInYear( 1,7 ) - g_date->DayInYear())) {
529 Field * pf = dynamic_cast<Field*>(
m_field);
530 pf->Add_missed_fi_app();
612 if (
m_field->GetMConstants(0)==0) {
614 g_msg->Warn( WARN_BUG,
"SpringBarley::Do(): failure in 'HayBailing' execution",
"" );
631 if (
m_field->GetMConstants(1)==0) {
633 g_msg->Warn( WARN_BUG,
"SpringBarley::Do(): failure in 'StubbleHarrowing' execution",
"" );
649 g_msg->Warn( WARN_BUG,
"SpringBarley::Do(): "
650 "Unknown event type! ",
"" );