29 #define _CRT_SECURE_NO_DEPRECATE
30 #include "../../BatchALMaSS/ALMaSS_Setup.h"
31 #include "../../Landscape/ls.h"
32 #include "../../Landscape/cropprogs/FodderGrass.h"
54 switch ( m_ev->m_todo ) {
64 m_last_date=g_date->DayInYear(30,9);
67 m_field->SetMDates(0,0,g_date->DayInYear(27,7));
70 m_field->SetMDates(1,0,g_date->DayInYear(27,7));
71 m_field->SetMDates(0,1,g_date->DayInYear(28,7));
72 m_field->SetMDates(1,1,g_date->DayInYear(10,10));
81 if (m_ev->m_startday>g_date->DayInYear(1,7))
83 if (m_field->GetMDates(0,0) >=m_ev->m_startday)
85 g_msg->Warn( WARN_BUG,
"FodderGrass::Do(): "
86 "Harvest too late for the next crop to start!!!",
"" );
90 for (
int i=0; i<noDates; i++) {
91 if (m_field->GetMDates(0,i)>=m_ev->m_startday)
92 m_field->SetMDates(0,i,m_ev->m_startday-1);
93 if (m_field->GetMDates(1,i)>=m_ev->m_startday)
94 m_field->SetMDates(1,i,m_ev->m_startday-1);
99 if ( ! m_ev->m_first_year ) {
101 d1 = g_date->OldDays() + g_date->DayInYear( 1,7 );
103 if (g_date->Date() < d1) {
105 g_msg->Warn( WARN_BUG,
"FodderGrass::Do(): "
106 "Crop start attempt between 1st Jan & 1st July",
"" );
111 d1 = g_date->OldDays() + m_first_date+365;
112 if (g_date->Date() > d1) {
114 g_msg->Warn( WARN_BUG,
"FodderGrass::Do(): "
115 "Crop start attempt after last possible start date",
128 d1 = g_date->OldDays()+m_first_date;;
129 if ( ! m_ev->m_first_year ) d1+=365;
132 d1 = g_date->OldDays() + g_date->DayInYear( 15, 3 );
133 if (g_date->Date() >= d1) d1 += 365;
141 if (g_date->Date() >= d1) d1 += 365;
149 if ( m_ev->m_lock || m_farm->DoIt( 100 ))
160 if ( m_ev->m_lock || m_farm->DoIt( 60 ))
162 if (!m_farm->FA_Slurry( m_field, 0.0,
163 g_date->DayInYear( 30, 4 ) - g_date->DayInYear())) {
178 if (!m_farm->FA_NPK( m_field, 0.0,
179 g_date->DayInYear( 15, 4 ) - g_date->DayInYear())) {
186 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,4 ),
190 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15, 5 ),
195 if (!m_farm->FA_NPK( m_field, 0.0,
196 g_date->DayInYear( 10, 5 ) - g_date->DayInYear())) {
203 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,5 ),
208 if ( m_ev->m_lock || m_farm->DoIt( 100 )) {
217 if (!m_farm->CutToSilage( m_field, 0.0,
218 g_date->DayInYear( 10, 6 ) -
219 g_date->DayInYear())) {
230 if ( m_farm->DoIt( 75 )) {
231 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25, 5 ),
234 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25, 5 ),
245 if (!m_farm->FA_Slurry( m_field, 0.0,
254 d1 = g_date->OldDays() + g_date->DayInYear( 16, 6 );
255 if ( d1 < g_date->Date() + 21 )
256 d1 = g_date->Date() + 21;
264 if (!m_farm->FA_NPK( m_field, 0.0,
273 d1 = g_date->OldDays() + g_date->DayInYear( 16, 6 );
274 if ( d1 < g_date->Date() + 21 )
275 d1 = g_date->Date() + 21;
283 if (!m_farm->CutToSilage( m_field, 0.0,
284 g_date->DayInYear( 6,7 ) -
285 g_date->DayInYear())) {
294 d1 = g_date->OldDays() + g_date->DayInYear( 8, 7 );
295 if ( d1 < g_date->Date() + 21 )
296 d1 = g_date->Date() + 21;
307 if (!m_farm->CutToSilage( m_field, 0.0,
308 m_field->GetMDates(0,0) -
309 g_date->DayInYear())) {
319 if ( m_ev->m_lock || m_farm->DoIt( 40 ))
326 if (!m_farm->Water( m_field, 0.0,
327 g_date->DayInYear( 1, 6 ) - g_date->DayInYear())) {
341 d1 = g_date->OldDays() + g_date->DayInYear( 2,6 );
342 if ( d1 < g_date->Date() + 7 )
343 d1 = g_date->Date() + 7;
356 if (!m_farm->Water( m_field, 0.0,
357 g_date->DayInYear( 30, 6 ) -
358 g_date->DayInYear())) {
368 g_msg->Warn( WARN_BUG,
"FodderGrass::Do(): "
369 "Unknown event type! ",
"" );