26 #define _CRT_SECURE_NO_DEPRECATE
28 #include "../../Landscape/ls.h"
29 #include "../../Landscape/cropprogs/CloverGrassGrazed1.h"
51 switch ( m_ev->m_todo ) {
61 m_last_date=g_date->DayInYear(30,9);
64 m_field->SetMDates(0,0,g_date->DayInYear(27,7));
67 m_field->SetMDates(1,0,g_date->DayInYear(27,7));
68 m_field->SetMDates(0,1,g_date->DayInYear(28,7));
69 m_field->SetMDates(1,1,g_date->DayInYear(10,10));
78 if (m_ev->m_startday>g_date->DayInYear(1,7))
80 if (m_field->GetMDates(0,0) >=m_ev->m_startday)
82 g_msg->Warn( WARN_BUG,
"CloverGrassGrazed1::Do(): "
83 "Harvest too late for the next crop to start!!!",
"" );
87 for (
int i=0; i<noDates; i++) {
88 if(m_field->GetMDates(0,i)>=m_ev->m_startday) {
89 m_field->SetMDates(0,i,m_ev->m_startday-1);
91 if(m_field->GetMDates(1,i)>=m_ev->m_startday){
92 m_field->SetMConstants(i,0);
93 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,
"CloverGrassGrazed1::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,
"CloverGrassGrazed1::Do(): "
115 "Crop start attempt after last possible start date",
127 d1 = g_date->OldDays()+m_first_date;;
128 if ( ! m_ev->m_first_year ) d1+=365;
130 d1 = g_date->OldDays() + g_date->DayInYear(15, 3);
131 if (!m_ev->m_first_year) d1 += 365;
139 if (g_date->Date() >= d1) d1 += 365;
147 if ( m_ev->m_lock || m_farm->DoIt( 100 ))
158 if ( m_ev->m_lock || m_farm->DoIt( 60 ))
160 if (!m_farm->FA_Slurry( m_field, 0.0, g_date->DayInYear( 30, 4 ) - g_date->DayInYear())) {
171 m_ev->m_field->SetStubble(
false);
172 if (!m_farm->FA_NPK( m_field, 0.0,
173 g_date->DayInYear( 15, 4 ) - g_date->DayInYear())) {
183 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,4 ),
187 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 15, 5 ),
192 if (!m_farm->FA_NPK( m_field, 0.0,
193 g_date->DayInYear( 10, 5 ) - g_date->DayInYear())) {
200 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25,5 ),
205 if ( m_ev->m_lock || m_farm->DoIt(
int(
cfg_silage_prop.value()* 100 ))) {
214 if (!m_farm->CutToSilage( m_field, 0.0,
215 g_date->DayInYear( 10, 6 ) -
216 g_date->DayInYear())) {
227 if ( m_farm->DoIt( 75 )) {
228 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25, 5 ),
231 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 25, 5 ),
243 SimpleEvent( g_date->OldDays() + g_date->DayInYear( 16, 6 ),
253 if (m_field->GetMConstants(1)==0) {
254 if (!m_farm->CattleOut( m_field, 0.0, -1)) {
255 g_msg->Warn( WARN_BUG,
"CloverGrassGrazed1::Do(): failure in 'CattleOut' execution",
"" );
260 if (!m_farm->CattleOut( m_field, 0.0, m_field->GetMDates(1,1) - g_date->DayInYear())) {
273 if (m_field->GetMConstants(1)==0) {
274 if (!m_farm->CattleIsOut( m_field, 0.0, -1, m_field->GetMDates(1,1))) {
276 if(g_date->Date() == m_field->GetMDates(1,1)){
277 g_msg->Warn( WARN_BUG,
"CloverGrassGrazed1::Do(): failure in 'CattleIsOut' execution",
"" );
285 if (!m_farm->CattleIsOut( m_field, 0.0, m_field->GetMDates(1,1) - g_date->DayInYear(), m_field->GetMDates(1,1))) {
300 if (!m_farm->FA_Slurry( m_field, 0.0,
309 d1 = g_date->OldDays() + g_date->DayInYear( 16, 6 );
310 if ( d1 < g_date->Date() + 21 )
311 d1 = g_date->Date() + 21;
319 if (!m_farm->FA_NPK( m_field, 0.0,
328 d1 = g_date->OldDays() + g_date->DayInYear( 16, 6 );
329 if ( d1 < g_date->Date() + 21 )
330 d1 = g_date->Date() + 21;
338 if (!m_farm->CutToSilage( m_field, 0.0,
339 g_date->DayInYear( 6,7 ) -
340 g_date->DayInYear())) {
349 d1 = g_date->OldDays() + g_date->DayInYear( 8, 7 );
350 if ( d1 < g_date->Date() + 21 )
351 d1 = g_date->Date() + 21;
364 if (m_field->GetMConstants(0)==0) {
365 if (!m_farm->CutToSilage( m_field, 0.0, -1)) {
366 g_msg->Warn( WARN_BUG,
"CloverGrassGrazed1::Do(): failure in 'CutToSilage' execution",
"" );
371 if (!m_farm->CutToSilage( m_field, 0.0, m_field->GetMDates(0,0) - g_date->DayInYear())) {
381 d1 = g_date->OldDays() + g_date->DayInYear( 28, 7 );
382 if ( d1 < g_date->Date() + 21 )
383 d1 = g_date->Date() + 21;
384 if ( d1 < m_field->GetMDates(0,1))
385 d1 = m_field->GetMDates(0,1);
391 if ( m_ev->m_lock || m_farm->DoIt( 40 ))
398 if (!m_farm->Water( m_field, 0.0,
399 g_date->DayInYear( 1, 6 ) - g_date->DayInYear())) {
413 d1 = g_date->OldDays() + g_date->DayInYear( 2,6 );
414 if ( d1 < g_date->Date() + 7 )
415 d1 = g_date->Date() + 7;
428 if (!m_farm->Water( m_field, 0.0,
429 g_date->DayInYear( 30, 6 ) -
430 g_date->DayInYear())) {
440 g_msg->Warn( WARN_BUG,
"CloverGrassGrazed1::Do(): "
441 "Unknown event type! ",
"" );