28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/Triticale.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,
"Triticale::Do(): "
69 "Harvest too late for the next crop to start!!!",
"" );
73 for (
int i=0; i<noDates; i++) {
88 d1 = g_date->OldDays() + g_date->DayInYear( 1,7 );
89 if (g_date->Date() < d1)
92 g_msg->Warn( WARN_BUG,
"Triticale::Do(): "
93 "Crop start attempt between 1st Jan & 1st July",
"" );
99 if (g_date->Date() > d1)
102 g_msg->Warn( WARN_BUG,
"Triticale::Do(): "
103 "Crop start attempt after last possible start date",
"" );
111 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,8 )
120 d1 = g_date->OldDays() + g_date->DayInYear( 20,8 );
121 if ( g_date->Date() > d1 ) {
129 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 20,8 ),
136 g_date->DayInYear( 5,10 ) -
137 g_date->DayInYear())) {
144 if ( d1 < g_date->OldDays() + g_date->DayInYear( 1,9 ))
145 d1 = g_date->OldDays() + g_date->DayInYear( 1,9 );
152 g_date->DayInYear( 15,10 ) -
153 g_date->DayInYear())) {
162 g_date->DayInYear( 15,10 ) -
163 g_date->DayInYear())) {
172 g_date->DayInYear( 15,10 ) -
173 g_date->DayInYear())) {
183 g_date->DayInYear( 10,10 ) -
184 g_date->DayInYear())) {
191 if ( d1 < g_date->OldDays() + g_date->DayInYear( 15,9 ))
192 d1 = g_date->OldDays() + g_date->DayInYear( 15,9 );
203 Field * pf = dynamic_cast<Field*>(
m_field);
204 pf->Add_missed_herb_app();
205 if(
m_farm->
DoIt(50)) pf->Add_missed_herb_app();
215 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,3 ) + 365,
217 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ) + 365,
219 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,4 ) + 365,
222 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15,4 ) + 365,
225 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 1,4 ) + 365,
233 g_date->DayInYear( 10,4 ) -
234 g_date->DayInYear())) {
243 g_date->DayInYear( 30, 4 ) -
244 g_date->DayInYear())) {
248 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,5 ),
256 g_date->DayInYear( 25,4 ) -
257 g_date->DayInYear())) {
267 g_date->DayInYear( 30,5 ) -
268 g_date->DayInYear())) {
278 g_date->DayInYear( 30,4 ) -
279 g_date->DayInYear())) {
290 g_date->DayInYear( 15,5 ) -
291 g_date->DayInYear())) {
297 d1 = g_date->Date() + 10;
298 if ( d1 < g_date->OldDays() + g_date->DayInYear( 20,5 ))
299 d1 = g_date->OldDays() + g_date->DayInYear( 20,5 );
309 g_date->DayInYear( 1,6 ) -
310 g_date->DayInYear())) {
329 Field * pf = dynamic_cast<Field*>(
m_field);
330 pf->Add_missed_fi_app();
340 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,6 ),
354 Field * pf = dynamic_cast<Field*>(
m_field);
355 pf->Add_missed_fi_app();
366 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 5,8 ),
378 g_date->DayInYear( 30,6 ) -
379 g_date->DayInYear())) {
388 if (
m_field->GetMConstants(0)==0) {
390 g_msg->Warn( WARN_BUG,
"Triticale::Do(): failure in 'Harvest' execution",
"" );
407 if (
m_field->GetMConstants(0)==0) {
409 g_msg->Warn( WARN_BUG,
"Triticale::Do(): failure in 'StrawChopping' execution",
"" );
424 if (
m_field->GetMConstants(0)==0) {
426 g_msg->Warn( WARN_BUG,
"Triticale::Do(): failure in 'HayTurning' execution",
"" );
441 if (
m_field->GetMConstants(0)==0) {
443 g_msg->Warn( WARN_BUG,
"Triticale::Do(): failure in 'HayBailing' execution",
"" );
457 if (
m_field->GetMConstants(1)==0) {
459 g_msg->Warn( WARN_BUG,
"Triticale::Do(): failure in 'StubbleHarrowing' execution",
"" );
473 g_msg->Warn( WARN_BUG,
"Triticale::Do(): "
474 "Unknown event type! ",
"" );