HEADER
  MANSOFT
  29/04/2008
  10:34:59
  dd/mm/yyyy
  hh:mm:ss
  ;
  LOG_true
  .
  BT_false
  GL_file
  GL_section
  animal_false
END
TABLE
  EID;R;1;0;1;0000 0000 0000;;
  PEDIGRI;S;1;0;0;&&&&&&&&&&&&&&&&&&&&;;
  VID;S;1;0;0;&&&&&&&&&&&&&&&&&&&&;;
  GROUPID;S;0;0;1;&&&&&&&&&&&&&&&&;;
  NAME;S;0;1;1;&&&&&&&&&&&&&&&&&&&&;;
  DOB;D;0;1;0;0000000000;;
  MOTHERVID;S;1;0;1;&&&&&&&&&&&&&&&&;;
  MOTHERPNO;S;1;0;1;&&&&&&&&&&&&&&&&;;
  FATHERVID;S;1;1;1;&&&&&&&&&&&&&&&&;;
  FATHERPNO;S;1;0;1;&&&&&&&&&&&&&&&&;;
  WDATE;D;0;1;0;0000000000;;
  WEIGHT;S;0;1;1;0000.00kg;;
  MDATE;D;0;1;0;0000000000;;
  MWEIGHT1;S;0;1;1;00.00 Kg;;
  MWEIGHT2;S;0;1;1;00.00 Kg;;
  MWEIGHT3;S;0;1;1;00.00 Kg;;
END
LOG
  LEID;R;0;1;1;0000 0000 0000;;
  ISLTAR;D;0;1;0;0000000000;;
  EVENT;S;0;1;1;&&&&&&&&&&&&&&&&&&&&;;
  STATUS;O;0;1;1;YAPILDI,YAPILACAK,BELLIDEGIL,TUTTU,TUTMADI,KURUYAAYIR;;
  ASIID;S;0;1;1;&&&&&&&;;
  HASTID;S;0;1;1;&&&&&&&;;
  FERDATE;D;0;1;0;0000000000;;
  ACK1;S;0;1;1;&&&&&&&&&&&&&&&&&&&&;;
  ACK2;S;0;1;1;&&&&&&&&&&&&&&&&&&&&;;
END

GLOBAL
//
END
MESSAGE
//
END
MACRO
begin_macro:VIEW
	begin_action_area
		//ReadSeek(table.EID)
		Sorting(table.VID)
    end_action_area

	//screen 4.1
	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,5,2,"IIT:")
        	PrintField(25,5,2,table.VID)
		IconFindCol(5,17,table.VID,0)

		PrintText(0,30,2,"PED.NO:")
		PrintField(45,30,2,table.PEDIGRI)



		PrintText(0,45,2,"EID:")
		EditReadField(25,45,2,table.EID)
		//PrintField(25,10,2,table.EID)


	end_screen

	//screen 4.2
	begin_screen
		
		PrintText(0,0,0,"REC:")
		PrintExp(21,0,0,noofrec(table))
		PrintText(113,0,0,"1.2")
		PrintText(53,0,0,"OF:")
		PrintExp(69,0,0,count(table.*))
        DrawLine(0,6,127,6)

      	    PrintText(0,7,1,"Pedigri:")
        	PrintField(45,7,1,table.PEDIGRI)

	    PrintText(0,16,1,"Isim:")
		PrintField(30,16,1,table.NAME)

		PrintText(0,25,1,"Grup:")
        	PrintField(30,25,1,table.GROUPID)

		PrintText(0,34,1,"Anne:")
	PrintField(37,34,1,table.MOTHERPNO)
		PrintText(0,43,1,"Baba:")
	PrintField(35,43,1,table.FATHERPNO)
		PrintText(0,52,1,"Dogum Tar:")
		PrintField(67,52,1,table.DOB)

		end_screen

	begin_control_area
		Copy(table)
	end_control_area
  end_macro


//*******// macro GLOBAL VALUE //***********************************

begin_macro:VIEWLOG
   	begin_action_area
		ReadSeek(table.EID)				
		Sorting(log.*)		
		Join(table.EID,log.LEID)

	//	FillAddRec(log)
	end_action_area
	begin_screen
		PrintText(0,0,0,"REC:")
		PrintExp(21,0,0,noofrec(log))
		PrintText(113,0,0,"2.1")
		PrintText(53,0,0,"OF:")
		PrintExp(69,0,0,count(log.*))
        	DrawLine(0,6,127,6)
			   	
		PrintText(0,10,2,"EID:")
		PrintField(25,10,2,table.EID)

		PrintText(0,20,2,"PED.NO:")
		PrintField(45,20,2,table.PEDIGRI)

		PrintText(0,35,2,"IIT:")
        	PrintField(25,35,2,table.VID)
		IconFindCol(3,51,table.VID,0)
              
	end_screen

	begin_screen
		PrintText(0,0,0,"REC:")
		PrintExp(21,0,0,noofrec(log))
		PrintText(113,0,0,"1.2")
		PrintText(53,0,0,"OF:")
		PrintExp(69,0,0,count(log.*))
        DrawLine(0,6,127,6)

	      PrintText(0,7,1,"ISLEM:")
	      PrintField(40,7,1,log.EVENT)

	      PrintText(0,17,1,"ISLEM TAR:")
	      EditDateField(60,17,1,log.ISLTAR)

	      
	      PrintText(0,27,1,"TANIM:")
	      PrintField(45,27,1,log.ACK1)
//	      PrintText(0,37,1,"TANIM:")
	      PrintField(20,37,1,log.ACK2)


	      PrintText(0,50,1,"DURUM :")
		EditChoiceField(45,50,1,log.STATUS)

		
		//IconAddRec(3,51,table,1)
		//IconDelete(28,51,table,0)
	end_screen
	begin_control_area
	end_control_area
 end_macro
begin_macro:TARTI
   	begin_action_area
		ReadSeek(table.EID)				
	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,10,2,"EID:")
		PrintField(25,10,2,table.EID)

		PrintText(0,20,2,"PED.NO:")
		PrintField(45,20,2,table.PEDIGRI)

		PrintText(0,35,2,"IIT:")
        	PrintField(25,35,2,table.VID)
		IconFindCol(3,51,table.VID,0)
	end_screen
	begin_screen
		
		PrintText(0,0,0,"REC:")
		PrintExp(21,0,0,noofrec(table))
		PrintText(113,0,0,"1.2")
		PrintText(53,0,0,"OF:")
		PrintExp(69,0,0,count(table.*))
        DrawLine(0,6,127,6)

      	    PrintText(0,7,1,"Pedigri:")
        	PrintField(45,7,1,table.PEDIGRI)

//	    PrintText(0,16,1,"Dogum Tar:")
//		PrintField(70,16,1,table.DOB)
	    PrintText(0,25,1,"Tartim Tar:")
		EditDateField(67,25,1,table.WDATE)

		PrintText(0,39,3,"Agirlik :")
		EditMaskedField(45,39,4,table.WEIGHT)

		end_screen
	begin_control_area
	end_control_area
end_macro
begin_macro:SUT
   	begin_action_area
		ReadSeek(table.EID)				
	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,10,2,"EID:")
		PrintField(25,10,2,table.EID)

		PrintText(0,20,2,"PED.NO:")
		PrintField(45,20,2,table.PEDIGRI)

		PrintText(0,35,2,"IIT:")
        	PrintField(25,35,2,table.VID)
		IconFindCol(3,51,table.VID,0)
	end_screen
	begin_screen
		
		PrintText(0,0,0,"REC:")
		PrintExp(21,0,0,noofrec(table))
		PrintText(113,0,0,"1.2")
		PrintText(53,0,0,"OF:")
		PrintExp(69,0,0,count(table.*))
        DrawLine(0,6,127,6)

      	    PrintText(0,7,1,"Pedigri:")
        	PrintField(45,7,1,table.PEDIGRI)

	    PrintText(0,16,1,"Tartim Tar:")
		PrintField(70,16,1,table.MDATE)
	    PrintText(0,27,1,"Sabah  :")
		EditMaskedField(50,27,2,table.MWEIGHT1) 

		PrintText(0,39,1,"Oglen   :")
		EditMaskedField(50,39,2,table.MWEIGHT2)
		PrintText(0,50,1,"Aksam:")
		EditMaskedField(50,50,2,table.MWEIGHT3)


		end_screen
	begin_control_area
	end_control_area
end_macro

 begin_macro:GLOBAL
	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(table.*))
        DrawLine(0,6,127,6)
		

		
	end_screen
    
	
	begin_control_area
	end_control_area
  end_macro
END

MENU
	M0:{Kupe Tak,M1};{Gunluk Isler,M2};{Tarti,M3};{Sut Tarti,M4}
	M1:VIEW
	M2:VIEWLOG
	M3:TARTI
	M4:SUT
END


START_SCREEN
  begin_screen
	PrintText(0,0,0,"MANSOFT")
	DrawLine(0,6,127,6)

	PrintText(15,20,5,"MANSOFT")
	
	DrawLine(0,56,127,56)
	
	
	PrintVersion(21,58,0)
  end_screen
END

//NOT MORE 30 CHAR !!!!!!! max 3 lines (max 2x '/')!!!!!
WARNING
  w_WAIT:Lutfen/Bekleyin!
  w_UNIQUE:Bu bilgi /Zaten kayitli!
  w_NOEDIT:Bunu/Degistiremezsiniz!
  w_NOTNULL:Bos gecemezsiniz!
  w_LOWBATTERY:Pil Bitmek zere!
  w_CHARGEBATTERY:Cihaz/arj oluyor!
  w_NOT_FREE_MEMORY:Hafiza Yetersiz!
  w_NOT_STORED:Kayit / Edilmedi!
  w_STORED:KAYDEDILDI!
  w_DATE_GOOD:Tarih / Degistirildi.
  w_DATE_NO_CHANGE:Date not/changed.
  w_DATE_NOT_GOOD:Yanlis Tarih!
  w_TIME_GOOD:Zaman /Degistirildi.
  w_TIME_NO_CHANGE:Time not/changed.
  w_TIME_NOT_GOOD:Yanls Zaman!
  w_NOTAG:Kupe Okunamadi.
  w_READING:Kupe Okunuyor.
  w_SHUTOFF:Hoscakalin!
  w_USBCONNECTED:USB/Baglandi!
  w_NEW_REC:Yeni Kayit/olusturuldu!
  w_CHOICE:Secim:
  w_FIND:Bul:
  w_TAGNOTFIND:Transponder/Kaydi Yok!
  w_TAGEXIST:Transponder/Zaten Var!
  w_YES:EVET
  w_NOT:HAYIR
  w_ADD_REC:Yeni Kayt eklemek stiyormusunuz.?
  w_DEL_REC:Kayd Silmek/Istiyormusunuz.?
  w_UNKNOWN_MES:Unknown/message!
  w_VALEXIST:Bu kayt Zaten var!
  w_BTACTIVE:Bluetooth/is activated.
  w_BTNOACTIVE:Bluetooth/is closed.
  w_ON:AC.
  w_OFF:KAPA.
  w_MEMORY:MEMORY:
  w_RECSTORE:Yeni kayt Eklendi.!
  w_RECNOSTORE:New record/not stored! 
  w_NOFIND:Value/not find!
  w_NOANIMAL:No animal code! 
  w_COUNTRY:Wrong country code!
END
