// ******************************************************************
// * interpreter min: HHR Program Loader 4.10
// *
// * compile min: HHR Manager version 4.10
// *
// *
// *
// ******************************************************************
// 2010-06-11 16:10 BioControl
/////////////////////////////////////////////////////////////////////
// //
// EXAMPLE APP 04 PRINTER BT
// //
// //////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
HEADER
EXAMPLE APP 04
2010/06/23
19:40:20
dd/mm/yyyy
hh:mm:ss
;
LOG_true
.
BT_false
GL_section
END
TABLE
EID;R;1;1;1;000000000000;;
VID;S;0;0;1;&&&&&&&&&&;;
FIL;S;0;0;1;$$$$;;
END
LOG
EIDL;R;1;1;1;000000000000;;
VIDL;S;0;0;1;&&&&&&&&&&;;
FILL;S;0;0;1;$$$$;;
END
GLOBAL
0:52/060/0082
1:1
2:PL492520300030
3:002396303Q
4:PL492520300030
END
//NOT MORE 30 CHAR !!!!!!! max 3 lines (max 2x '/')!!!!!
MESSAGE
//
END
PRINT
begin_printout:B
// * B *************************
// BARCODE test
// only current record EID
#(LF)#(CR)
Farm number:
#(LF)#(CR)
//#(LF)#(CR)
//#(GS)h50
#(GS)H#(SOH)
#(GS)w#(STX)
#(GS)k#(EOT)#(NUL)
//#(ESC)d5
#(LF)#(CR)
#(LF)#(CR)
#(LF)#(CR)
#(LF)#(CR)
end_printout
// * B LOG*************************
// BARCODE test
// only current record EIDL
begin_printout:BLOG
(LF)#(CR)
Farm number:#(LF)#(CR)
//#(GS)h50
#(GS)H#(SOH)
#(GS)w#(STX)
#(GS)k#(EOT)#(NUL)
//#(ESC)d5
#(LF)#(CR)
#(LF)#(CR)
#(LF)#(CR)
#(LF)#(CR)
end_printout
// * A *************************
begin_printout:A
#(LF)#(CR)
#(LF)#(CR)
//UK#(SP)#(SP)#(SP)#(SP)#(LF)#(CR)
Records:#(SP)[ex.range]#(LF)#(CR)
Filtr no:#(SP)#(LF)#(CR)
------------------------------#(LF)#(CR)
[r
[ex.count]#(SP)UK#(SP)#(SP)#(SP)#(LF)#(CR)
r]
------------------------------#(LF)#(CR)
#(LF)#(CR)
#(LF)#(CR)
Movement: TO / OFF
#(LF)#(CR)
#(LF)#(CR)
#(LF)#(CR)
Destination: _ _ _ _ _ _ _ _ _
#(LF)#(CR)
#(LF)#(CR)
#(LF)#(CR)
Signature: _ _ _ _ _ _ _ _ _ _
#(LF)#(CR)
#(LF)#(CR)
Date:#(SP)#(SP)#(SP)#(SP)[ex.date]
#(LF)#(CR)
#(LF)#(CR)
#(LF)#(CR)
end_printout
// * A *************************
//
begin_printout:CC
#(LF)#(CR)
#(LF)#(CR)
//#(SP)UK#(SP)#(SP)#(SP)#(SP)#(LF)#(CR)
Records:#(SP)[ex.range]#(LF)#(CR)
------------------------------#(LF)#(CR)
[r
[ex.count]#(SP)UK#(SP)#(SP)#(SP)#(LF)#(CR)
r]
------------------------------#(LF)#(CR)
#(LF)#(CR)
#(LF)#(CR)
Movement: TO / OFF
#(LF)#(CR)
#(LF)#(CR)
#(LF)#(CR)
Destination: _ _ _ _ _ _ _ _ _
#(LF)#(CR)
#(LF)#(CR)
#(LF)#(CR)
Signature: _ _ _ _ _ _ _ _ _ _
#(LF)#(CR)
#(LF)#(CR)
Date:#(SP)#(SP)#(SP)#(SP)[ex.date]
#(LF)#(CR)
#(LF)#(CR)
#(LF)#(CR)
end_printout
END
MACRO
//*******// macro NEW_REC //***********************************
begin_macro:NEW_REC
begin_action_area
ReadNew(table.EID)
Paste(table.FIL)
Sorting(table.VID)
end_action_area
begin_screen
PrintText(0,0,0,"REC:")
PrintExp(21,0,0,noofrec(table))
PrintText(113,0,0,"1.1")
PrintText(53,0,0,"OF:")
PrintExp(69,0,0,count(table.*))
DrawLine(0,6,127,6)
PrintText(0,8,2,"EID:")
PrintField(25,8,2,table.EID)
PrintText(0,20,2,"VID:")
EditMaskedField(25,20,2,table.VID)
PrintText(0,32,2,"FARM NO:")
EditMaskedField(60,32,2,table.FIL)
IconAddRec(3,51,table,1)
IconDelete(28,51,table,0)
IconFindCol(53,51,table.VID,0)
IconPrint(78,51,B,current,0)
end_screen
begin_control_area
Copy(table)
end_control_area
end_macro
//*******// macro PRINT TABLE //***********************************
begin_macro:PRINT_TAB
begin_action_area
//ReadNew(table.EID)
Sorting(table.EID)
end_action_area
//screen 1.1
begin_screen
PrintText(0,0,2,"EID:")
PrintField(25,0,2,table.EID)
IconFindCol(108,0,table.EID,0)
PrintText(0,12,2,"VID:")
PrintField(25,12,2,table.VID)
IconFindCol(108,12,table.VID,0)
DrawLine(0,25,127,25)
PrintText(0,27,2,"Print current rec")
IconPrint(108,27,A,current,0)
PrintText(0,39,2,"Print filtred:")
EditGlobal(75,39,2,1,$$$$)
IconPrint(108,39,A,table.FIL,1)
PrintText(0,51,2,"Print all:")
PrintExp(50,51,2,count(table.*))
IconPrint(108,51,A,table.all,0)
end_screen
begin_control_area
end_control_area
end_macro
//*******// macro PRINT LOG //***********************************
begin_macro:PRINT_LOG
begin_action_area
//ReadNew(log.EIDL)
Sorting(log.EIDL)
end_action_area
begin_screen
PrintText(0,0,2,"EID:")
PrintField(25,0,2,log.EIDL)
IconFindCol(108,0,log.EIDL,0)
PrintText(0,12,2,"VID:")
PrintField(25,12,2,log.VIDL)
IconFindCol(108,12,log.VIDL,0)
DrawLine(0,25,127,25)
PrintText(0,27,2,"Print current rec")
IconPrint(108,27,CC,current,0)
PrintText(0,39,2,"Print filtred:")
EditGlobal(75,39,2,1,$$$$)
IconPrint(108,39,CC,log.FILL,1)
PrintText(0,51,2,"Print all:")
PrintExp(50,51,2,count(log.*))
IconPrint(108,51,CC,log.all,0)
end_screen
begin_control_area
end_control_area
end_macro
begin_macro:NEW_LOG
begin_action_area
ReadNew(log.EIDL)
end_action_area
begin_screen
PrintText(0,0,0,"REC:")
PrintExp(21,0,0,noofrec(log))
PrintText(113,0,0,"1.1")
PrintText(53,0,0,"OF:")
PrintExp(69,0,0,count(log.*))
DrawLine(0,6,127,6)
PrintText(0,8,2,"EIDL:")
PrintField(30,8,2,log.EIDL)
PrintText(0,20,2,"VIDL:")
EditMaskedField(30,20,2,log.VIDL)
PrintText(0,32,2,"FARM NO:")
EditMaskedField(60,32,2,log.FILL)
IconAddRec(3,51,log,1)
IconDelete(28,51,log,0)
IconFindCol(53,51,log.VIDL,0)
IconPrint(78,51,BLOG,current,0)
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,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
begin_macro:READ_PRINT
begin_action_area
//Read()
ReadNew(table.EID);
Print(B,current,0)
end_action_area
begin_screen
PrintText(0,0,0,"REC:")
PrintExp(21,0,0,noofrec(table))
PrintText(113,0,0,"1.1")
PrintText(53,0,0,"OF:")
PrintExp(69,0,0,count(table.*))
DrawLine(0,6,127,6)
PrintText(0,8,2,"EID:")
PrintField(0,20,4,table.EID)
PrintText(0,37,2,"VID:")
EditMaskedField(25,37,2,table.VID)
IconDelete(3,51,table,1)
end_screen
begin_control_area
end_control_area
end_macro
begin_macro:DELTABLE
begin_action_area
end_action_area
begin_screen
DelTable()
end_screen
begin_control_area
end_control_area
end_macro
//*******// macro RSON //***********************************
// setings: BT_true
begin_macro:BTON
begin_action_area
end_action_area
begin_screen
PrintText(0,0,0,"RECORDS:")
PrintExp(46,0,0,count(table.*))
PrintText(115,0,0,"2.1")
DrawLine(0,6,106,6)
IconBT(107,0)
PrintText(0,8,1,"BlueTooth:")
SetBTOnOff(67,8,1)
PrintText(0,18,1,"Name:")
SetBTName(43,18,1)
PrintText(0,28,1,"Pin code:")
SetBTPin(55,28,1)
PrintText(0,38,1,"MAC:")
SetBTMAC(33,38,1)
PrintText(0,48,1,"Mode:")
SetBTMode(38,48,1)
DrawLine(0,63,127,63)
end_screen
begin_control_area
end_control_area
end_macro
END
MENU
M0:{New REC,M1};{Log,M2};{Print,M3};{ReadAndPrint,M4};{Settings,M5}
M1:NEW_REC
M2:NEW_LOG
M3:{PrintTable,M8};{PrintLog,M9}
M4:READ_PRINT
M5:{BlueTooth,M10};{Date/Time,M6};{Delete DB,M7}
M6:DATE
M7:DELTABLE
M8:PRINT_TAB
M9:PRINT_LOG
M10:BTON
END
START_SCREEN
begin_screen
PrintText(0,0,0," EXAMPLE PRINT 04 BT")
DrawLine(0,6,127,6)
PrintText(9,20,5,"BioControl")
DrawLine(0,56,127,56)
PrintVersion(0,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 editable!
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:Activating/Bluetooth.
w_BTNOACTIVE:Closing/Bluetooth.
w_ON:Off.
w_OFF:On.
w_MEMORY:MEMORY:
w_RECSTORE:New record/stored!
w_RECNOSTORE:New record/not stored!
w_NOFIND:Value/not find!
w_NOANIMAL:No animal code!
w_COUNTRY:Wrong country code!
w_DEL_TABLE:weldkwe
END