// ******************************************************************
// * OS:  HHR Program Loader 3.34.exe								
// * HHM: HHR Manager version 3.33						
// * 						
// * 																
// * 																		
// ******************************************************************
// 2009-02-09 21:10  BioControl
/////////////////////////////////////////////////////////////////////
// 												      
//			EXAMPLE APP 08	SCALE ISO DT					    
//												     
// //////////////////////////////////////////////////////////////////


////////////////////////////////////////////////////////////////////
HEADER
  SCALE ISO DT
  2008/10/12
  18:34:59
  dd/mm/yyyy
  hh:mm:ss
  ;
  LOG_false
  .
  BT_true
  //ISO_EID_frame
  ISO_EID_DT_frame
END

TABLE
   EID;R;1;1;1;0000 0000 0000;;
   VID;R;1;1;1;&&&& &&&& &&&&;;
   TIME;T;0;1;1;000000000;now();
   DATE;D;0;1;1;0000000000;now();
  
   WEIGHT;S;0;1;1;######;;
   AWEIGHT;S;0;1;1;######;;
END



MACRO

//*******// macro RSON //***********************************
// setings: BT_true 
// switched USART0 to USART1

begin_macro:RSON
	begin_action_area
	end_action_area

	begin_screen
	    PrintText(0,0,0,"REC:")
		PrintExp(21,0,0,noofrec(table))
		PrintText(53,0,0,"OF:")
		PrintExp(69,0,0,count(*))
		DrawLine(0,6,106,6)
		IconRS(107,0)
		
		PrintText(0,8,1,"RS232 status:")
		RSOnOff(82,8,2)
		PrintText(0,20,1,"Baud rate:")
		SetRSSpeed(70,20,1)
		
		PrintText(0,30,1,"Data bits:")
		SetRSDataBits(70,30,1)
		
		PrintText(0,40,1,"Stop bits:")
		SetRSStopBits(70,40,1)
		
		PrintText(0,50,1,"Parity:")
		SetRSParity(70,50,1)
		
		
		
		DrawLine(0,63,127,63)	   
	end_screen
  	

	begin_control_area
	end_control_area
end_macro


//*******// macro READ AND SEND BY RS232 //***********************************

 begin_macro:SENDBYRS
	begin_action_area
	    Read()
	end_action_area

	begin_screen
		PrintText(0,0,1,"National ID:")
		PrintCountryName(100,0,1,#)
		PrintAnimalNo(2,7,4,#)
		
		DrawLine(0,23,127,23)
        
		PrintText(0,23,1,"Retagging:")
		PrintRetagging(117,23,1,#)

		PrintText(0,33,1,"User Info:")
		PrintUserInfo(110,33,1,#)

		PrintText(0,43,1,"Add Info:")
		PrintAddInfo(117,43,1,#)

		PrintText(0,53,1,"Reserved:")
		PrintReserved(110,53,1,#)
 	end_screen

	begin_control_area
	end_control_area
 end_macro

 //*******// macro DATE TIME //***********************************
begin_macro:DATE
	begin_action_area
    end_action_area

	begin_screen
	    PrintText(0,0,0,"REC:")
		PrintExp(21,0,0,noofrec(table))
		PrintText(53,0,0,"OF:")
		PrintExp(69,0,0,count(*))
		DrawLine(0,6,127,6)
		PrintText(0,10,2,"Time:")
		SetTime(40,10,2)
		
		PrintText(0,25,2,"Date:")
		SetDate(40,25,2)
		
		DrawLine(0,63,127,63)
	end_screen
	
    begin_control_area
	end_control_area	
end_macro

//*******// macro Tru-Test scale //***********************************
begin_macro:TRUTEST
	begin_action_area
	   ReadNew(EID)
	   Sorting(*)
    end_action_area

    begin_screen
	    PrintText(0,0,0,"REC:")
		PrintExp(21,0,0,noofrec(table))
		PrintText(53,0,0,"OF:")
		PrintExp(69,0,0,count(*))
		DrawLine(0,6,106,6)
		IconRS(107,0)
		
	    PrintText(0,6,1,"EID:")
		PrintField(30,6,2,EID)
		
		PrintText(0,19,1,"Weight:")
		TTWeight(65,19,1,WEIGHT) 
	
		PrintText(0,30,1,"AVG:")
		TTAVG(65,30,1,AWEIGHT)
		
		PrintText(0,41,1,"Date:")
		EditDateField(65,41,1,DATE)
        
		PrintText(0,52,1,"Time:")
		EditTimeField(65,52,1,TIME)
	end_screen
	
	begin_control_area
	end_control_area
end_macro

//*******// macro ICONIX scale //***********************************
begin_macro:ICONIX
	begin_action_area
	  ReadNew(EID)
	  Sorting(*)
    end_action_area

    begin_screen
	    PrintText(0,0,0,"REC:")
		PrintExp(21,0,0,noofrec(table))
		PrintText(53,0,0,"OF:")
		PrintExp(69,0,0,count(*))
		DrawLine(0,6,106,6)
		IconRS(107,0)
		
	    PrintText(0,6,2,"EID:")
		PrintField(30,6,2,EID)
		
		PrintText(0,20,2,"Weight:")
		IconixWeight(55,20,2,WEIGHT)
		
		PrintText(0,35,2,"Date:")
		EditDateField(55,35,2,DATE)
		
		PrintText(0,49,2,"Time:")
		EditTimeField(55,49,2,TIME)
		
	end_screen
	
	begin_control_area
	end_control_area
end_macro

END
 

MENU
	M0:{Scale,M2};{Read Only,M4};{Settings,M1}
	M1:{RS232,M3};{Date/Time,M7}
	M2:{Tru-Test,M6};{Iconix,M5}
	M3:RSON
	M4:SENDBYRS
   	M5:ICONIX
	M6:TRUTEST
	M7:DATE
END


START_SCREEN
  begin_screen
	PrintText(0,0,0,"EXAMPLE SCALE ISO DT")
	DrawLine(0,6,127,6)

	PrintText(8,15,5,"BioControl")
	
	DrawLine(0,56,127,56)
	
	PrintText(0,58,0,"HHR:")
	PrintVersion(21,58,0)
  end_screen
END
 

//NOT MORE 30 CHAR !!!!!!! max 3 lines (max 2x '/')!!!!!
WARNING
  w_WAIT:Please/wait!
  w_UNIQUE:This value/must be unique!
  w_NOEDIT:This value/is NOT edi!
  w_NOTNULL:This value/must be not null!
  w_LOWBATTERY:Low battery!
  w_CHARGEBATTERY:Battery/charging!
  w_NOT_FREE_MEMORY:No free memory!
  w_NOT_STORED:NOT STORED!
  w_STORED:STORED!
  w_DATE_GOOD:Date changed.
  w_DATE_NO_CHANGE:Date not/changed. 
  w_DATE_NOT_GOOD:Wrong date!
  w_TIME_GOOD:Time changed.
  w_TIME_NO_CHANGE:Time not/changed.
  w_TIME_NOT_GOOD:Wrong time!
  w_NOTAG:No Tag.
  w_READING:Reading transp.
  w_SHUTOFF:See you!
  w_USBCONNECTED:USB/connected!
  w_NEW_REC:New record/created!
  w_TAGNOTFIND:Transponder/no. not found!
  w_TAGEXIST:Transponder/already exist!
  w_YES:YES
  w_NOT:NOT
  w_ADD_REC:Do you want/to add/new rec.?
  w_DEL_REC:Do you want/to del/cur. rec.?
  w_UNKNOWN_MES:Unknown/message!
  w_VALEXIST:This value/already exist!
  w_BTACTIVE:Uart2/is activated.
  w_BTNOACTIVE:Uart2/is closed.
  w_ON:Off.
  w_OFF:On.
  w_MEMORY:MEMORY:
  
   w_DEL_LOG:Do you want to/DEL whole LOG?        
   w_NEW_LOG:New log/record created!
   
END