/* Edit the Block */	
	function CheckBlock(tbthis) {					
		var IDecimal
		var strBlock
		var strSuf 
		var strLot
		var strLotSuffix
		IDecimal = 0
		strSuf = ""
		strLotSuffix = ""
		strBlock = tbthis.Block.value		
		if (tbthis.Block.value.length == 0) { 
			tbOnError("Block Must Be Entered") 
			return false }

		if (tbthis.Block.value.length > 10) {
			tbOnError("Block Can Not Be More Than 10 Characters")
			return false }
		
		for (i=0; i < tbthis.Block.value.length; i++) {
			if (tbthis.Block.value.charAt(i) == ".") {
				IDecimal = i + 1 }}
		
		if (IDecimal > 6) {
			tbthis.Block.focus()
			tbthis.Block.select()
			tbOnError("Invalid Block, Too Many Charcters Before Period")
			return false }
		if (IDecimal == 0 && tbthis.Block.value.length > 5) {
			tbOnError("Invalid Block, Too Many Characters Before Period")
			return false }
		if (IDecimal != 0) {
			strBlock = tbthis.Block.value.substring (0, IDecimal - 1)	}
		
		if (IDecimal != 0 && IDecimal != tbthis.Block.value.length) {
			strSuf = tbthis.Block.value.substring (IDecimal, tbthis.Block.value.length + 1) }
				
		if (strSuf != "" && strSuf.length > 4) {
			tbOnError("Invalid Block, Too Many Suffix Characters")
			return false }
	
		if (strBlock.length == 1)  {
			strBlock = "0000" + strBlock + "." }
		if (strBlock.length == 2)  {
			strBlock = "000" + strBlock + "." }
		if (strBlock.length == 3)  {							
                        strBlock = "00" + strBlock + "." }
		if (strBlock.length == 4)  {
			strBlock = "0" + strBlock + "." }
		if (strBlock.length == 5)  {							
                        strBlock = strBlock + "." }
		
		tbthis.Block.value = strBlock
			
		if (strSuf != "" && strSuf.length == 1) {
			tbthis.Block.value = strBlock + "   " + strSuf }		
		if (strSuf != "" && strSuf.length == 2) {
			tbthis.Block.value = strBlock + "  " + strSuf }
		if (strSuf != "" && strSuf.length == 3) {
			tbthis.Block.value = strBlock + " " + strSuf }
		if (strSuf != "" && strSuf.length == 4) {
			tbthis.Block.value = strBlock + strSuf }


/* Checks Lot  */
		IDecimal = 0
		strLot = tbthis.Lot.value
		if (tbthis.Lot.value.length == 0) { 
			tbOnError("Lot Must Be Entered") 
			return false }
		
		if (tbthis.Lot.value.length > 10) {
			tbOnError("Lot Can Not Be More Than 10 Characters")
			return false }
		
		for (i=0; i < tbthis.Lot.value.length; i++) {
			if (tbthis.Lot.value.charAt(i) == ".") {
				IDecimal = i + 1 }}

		if (IDecimal > 6) {
			tbthis.Lot.focus()
			tbthis.Lot.select()
			tbOnError("Invalid Lot, Too Many Charcters Before Period")
			return false }
		
		if (IDecimal == 0 && tbthis.Lot.value.length > 5) {
			tbOnError("Invalid Lot, Too Many Characters Before Period")
			return false }
		if (IDecimal != 0) {
			strLot = tbthis.Lot.value.substring (0,IDecimal - 1) }
		if (IDecimal != 0 && IDecimal != tbthis.Lot.value.length) {
			strLotSuffix = tbthis.Lot.value.substring (IDecimal, tbthis.Lot.value.length + 1) }
				
		if (strLotSuffix != "" && strLotSuffix.length > 4) {
			tbOnError("Invalid Lot, Too Many Suffix Characters")
			return false }
		if (strLot.length == 1)  {
			strLot = "0000" + strLot + "." }
		if (strLot.length == 2)  {								
			strLot = "000" + strLot + "." }
		if (strLot.length == 3)  {							
                        strLot = "00" + strLot + "." }
		if (strLot.length == 4)  {								
			strLot = "0" + strLot + "." }
		if (strLot.length == 5)  {							
                        strLot = strLot + "." }
		
		tbthis.Lot.value = strLot
		
			
		if (strLotSuffix != "" && strLotSuffix.length == 1) {
			tbthis.Lot.value = strLot + "   " + strLotSuffix }	
		if (strLotSuffix != "" && strLotSuffix.length == 2) {
			tbthis.Lot.value = strLot + "  " + strLotSuffix 	}
		if (strLotSuffix != "" && strLotSuffix.length == 3) {
			tbthis.Lot.value = strLot + " " + strLotSuffix 	}
		if (strLotSuffix != "" && strLotSuffix.length == 4) {
			tbthis.Lot.value = strLot + strLotSuffix 	}
		
		

		return true 
	
	}