28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/OTriticale.h"
53 m_field->SetMDates(0,0,g_date->DayInYear(5,8));
55 m_field->SetMDates(1,0,g_date->DayInYear(20,8));
56 m_field->SetMDates(0,1,g_date->DayInYear(20,8));
57 m_field->SetMDates(1,1,g_date->DayInYear(15,9));
68 g_msg->Warn( WARN_BUG,
"OTriticale::Do(): " "Harvest too late for the next crop to start!!!",
"" );
72 for (
int i=0; i<noDates; i++) {
87 d1 = g_date->OldDays() + g_date->DayInYear( 1,7 );
88 if (g_date->Date() < d1)
91 g_msg->Warn( WARN_BUG,
"OTriticale::Do(): " "Crop start attempt between 1st Jan & 1st July",
"" );
97 if (g_date->Date() > d1)
100 g_msg->Warn( WARN_BUG,
"OTriticale::Do(): " "Crop start attempt after last possible start date",
"" );
108 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,8 )
117 d1 = g_date->OldDays() + g_date->DayInYear( 20,8 );
118 if ( g_date->Date() > d1 ) {
125 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,8 ),
132 g_date->DayInYear( 5,10 ) -
133 g_date->DayInYear())) {
140 if ( d1 < g_date->OldDays() + g_date->DayInYear( 1,9 ))
141 d1 = g_date->OldDays() + g_date->DayInYear( 1,9 );
148 g_date->DayInYear( 15,10 ) -
149 g_date->DayInYear())) {
158 g_date->DayInYear( 15,10 ) -
159 g_date->DayInYear())) {
168 g_date->DayInYear( 15,10 ) -
169 g_date->DayInYear())) {
195 g_date->DayInYear( 10,4 ) -
196 g_date->DayInYear())) {
234 g_date->DayInYear( 30,6 ) -
235 g_date->DayInYear())) {
244 if (
m_field->GetMConstants(0)==0) {
246 g_msg->Warn( WARN_BUG,
"OTriticale::Do(): failure in 'Harvest' execution",
"" );
263 if (
m_field->GetMConstants(0)==0) {
265 g_msg->Warn( WARN_BUG,
"OTriticale::Do(): failure in 'StrawChopping' execution",
"" );
280 if (
m_field->GetMConstants(0)==0) {
282 g_msg->Warn( WARN_BUG,
"OTriticale::Do(): failure in 'HayTurning' execution",
"" );
297 if (
m_field->GetMConstants(0)==0) {
299 g_msg->Warn( WARN_BUG,
"OTriticale::Do(): failure in 'HayBailing' execution",
"" );
313 if (
m_field->GetMConstants(1)==0) {
315 g_msg->Warn( WARN_BUG,
"OTriticale::Do(): failure in 'StubbleHarrowing' execution",
"" );
329 g_msg->Warn( WARN_BUG,
"OTriticale::Do(): " "Unknown event type! ",
"" );