var oForma,
	oVlMeklLogs=null,
	oPrMeklLogs=null
var aSimb,aR,aS,aNota
var cCr=unescape("%0D"),
	cEUzd='Vairākas reizes uzdots ',
	cESmb='-frāze var saturēt tikai simbolus 0123456789-/',
	cE1='Nav uzdots(a) ',
	nKvrVersija=18

function KvrVersijasParb(nVersNr) {

	if (nKvrVersija<nVersNr){
		location.reload(true)
	}

}


function KvrLoad() {
	oForma = document.rediget
	d_init_visus()
}

function KvrVlMekl(pMode) {

	if ((oVlMeklLogs==null)
		||(oVlMeklLogs.closed)){
		oVlMeklLogs=RedigLogs2('mar$www_kvr.vielas_mekl?mode_p='+pMode,
			'kvr_vl_mkl')
	}

	oVlMeklLogs.focus()
}

function KvrPrMekl(pMode) {

	if ((oPrMeklLogs==null)
		||(oPrMeklLogs.closed)){
		oPrMeklLogs=RedigLogs2('mar$www_kvr.prod_mekl?mode_p='+pMode,'kvr_pr_mkl')
	}

	oPrMeklLogs.focus()
}

function KvrPrNewVl(cRndNr) {
   oForma.SastNr.value=cRndNr.substring(1,cRndNr.length)
	KvrVlMekl('1')
}

function KvrMakeMas(poForma){
	aSimb=poForma.simb_sar.value.split('/')
	aR=poForma.r_sar.value.split('*')
	aS=poForma.s_sar.value.split('*')
	aSimb.sort()
}

function KvrVLoad(pMode,pVielaPr) {
	oForma = document.red_vl
	KvrMakeMas(oForma)
	NaceInit()

	if (pMode==0)	{

		if (pVielaPr==0){
			KvrVlMekl(pMode)
		} else {
			KvrPrMekl(pMode)
		}

	}


}

function KvrVKLoad() {
	oForma = document.red_vl_kl
	KvrMakeMas(oForma)
	aNota=oForma.nota_sar.value.split('/')
}

function KvrUnLoad() {
   
		var oOpener=parent.opener

		if (oVlMeklLogs != null){
			oVlMeklLogs.close()
		}

		parent.opener.focus()

}

function KvrVlMkUnLoad() {
	parent.opener.focus()
}

function KvrAtcelt(){
	parent.close()
}

function KvrIzmUnivers(cAdrese,cText) {

   if (confirm("Vai esat pārliecināts, ka gribat iznīcināt visus datus par "+
           cText+"?"))
   {
      window.location.href = cAdrese
   }

}

function KvrIzm(cAdrese){
	KvrIzmUnivers(cAdrese,"doto pārskatu")
}

function KvrEmailCh(oEmail) {
	return !EditCheck(!isEmailEmpty(oEmail.value),'Uzrādiet pareizu E-pasta adresi!',
		oEmail)
}

function KvrParb() {

   if (!EnterParb())  {
      return false
   }

	var oLapuSk=oForma.lp_sk

	if ((ObligLaukiN(oForma.aizpild,cE1+'veidlapas aizpildītāja vārds, uzvārds'
			,oForma.atb_vards,cE1+'atbildīgā amatpersona'
			,oLapuSk,cE1+'lapu skaits pārskatā'))
		||(!KvrEmailCh(oForma.aizp_epasts))
		||(!SkaitlisNoLidz(oLapuSk))
		||(!d_check(document.getElementById('aizp_d'),'Pārskata parakstīšanas'))
			){
      return false
	}

}

function KvrVParb(pMode) {

   if (!EnterParb())  {
      return false
   }

	var oLpSk=oForma.lp_sk,
		oRaz=oForma.saraz,
		oImp=oForma.imp,
		oTnos=oForma.tnos,
		oTabNace=document.getElementById('p6'),
		oNace
	var cTnos=rtrim(oTnos.value,' '),
		lIrViela=(oForma.kvl_id.value>0),
		cNace
	var aNace=new Array()

	if (lIrViela){
		var aTnos=oForma.tnos_sar.value.split('^')
	}

	if ((ObligLaukiN(oLpSk,cE1+'lapas numurs',
				oTnos,cE1+'tirdzniecības nosaukums'))
		||(EditCheck((isEmpty(oRaz.value))&&(isEmpty(oImp.value)),
			'Nav uzdots ne saražotais ne importētais daudzums',oRaz))
		||(!SkaitlisNoLidz(oForma.lp_sk))
		||(!irDalsk(oRaz))
		||(!irDalsk(oImp))
		||(!KvrSimbCh(oForma.bist))
		||(!KvrRCh(oForma.rfr))
		||(!KvrSCh(oForma.sfr))
		||(!irNumurs(oForma.mkods))
		||(EditCheck((pMode==0)&&(oForma.kvl_id.value==0),
			cE1+'ķīmiskā viela!',oRaz))
		||(EditCheck((pMode>0)&&(oForma.kpr_id.value==0),
			cE1+'ķīmiskais produkts!',oRaz))
			){
      return false
	}

	for (var i=1;i<oTabNace.rows.length ;i++ ){
		oNace=BernsPecName(oTabNace.rows[i],'nace')
		cNace=oNace.value

		if ((!ParbauditNace(oNace))
			||(EditCheck(ascan(aNace,cNace)>-1,'Vairākas reizes uzdots NACE kods '
				+cNace+'!',oNace))
				)	{
			SetFocusSelect(oNace)
			return false
		}
	
		if (!isEmpty(cNace))	{
			aNace.push(cNace)
		}

	}

	if ((lIrViela)
			&&(ascan(aTnos,rtrim(oTnos.value,' '))<0)
			&&confirm('Dotajai vielai tirdzniecības nosaukums'+cCr+cCr+cTnos+cCr+cCr+
			'nav reģistrēts ķīmisko vielu klasifikatorā.'+cCr+cCr+cCr+
			'Vai gribat to reģistrēt?')
			){
		oForma.jauns_tnos.value=1
	}

}

function KvrDisable(oKontr) {

	if (oForma.nota.value==0)	{
		oKontr.blur()
	}

}

function KvrVKParb() {

   if (!EnterParb())  {
      return false
   }

	var oIndNr=oForma.IndNr,
		oSimb=oForma.simb,
		oR=oForma.rfr,
		oS=oForma.sfr,
		oNota=oForma.nota

	if ((ObligLauki(oForma.nos,cE1+'vielas nosaukums'))
		||(!KvrCasCh(oForma.cas))
		||(!KvrEinCh(oForma.einecs))
		||(!KvrIndCh(oIndNr))
		||(!KvrSimbCh(oSimb))
		||(!KvrRCh(oR))
		||(!KvrSCh(oS))
		||(!KvrNotaCh(oNota))
			){
      return false
	}

}

function KvrPKParb() {

   if (!EnterParb())  {
      return false
   }

	var oTab=document.getElementById('ProdTb')
	var aVielas=new Array(),
		aProd=new Array(),
		aCl
	var lSast = false,
		nKoncNoSum=0,
		cNo='procentuālā koncentrācija "no"',
      cVairak='Produkta sastāvā nevar vairākas reizes norādīt vienu un to pašu ',
		nKoncNo,nViela,lIrViela,cProd

	for (var i=3;i<oTab.rows.length ;i++ ){
		aCl=BernsPecNameN(oTab.rows[i],4,0,'v_id',1,'prod_nos',2,'konc_no',
			3,'konc_lidz')
		nKoncNo=nvl(aCl[2].value,0)*1
		nViela=aCl[0].value
		lIrViela=(nViela>0)
		cProd=aCl[1].value

		if ((lIrViela) || (!isEmpty(cProd))){
			lSast=true
			nKoncNoSum += nKoncNo
		
			if ((ObligLaukiN(aCl[2],cE1+cNo,
					aCl[3],cE1+'procentuālā koncentrācija "līdz"'))
				||(!DalskNoLidz(aCl[2],2))
				||(!KvrKoncLidzCh(aCl[3]))
				||(EditCheck(nKoncNo>aCl[3].value,cNo+
					' nevar būt lielāka par procentuālo koncentrāciju "līdz"',aCl[2]))
				||(EditCheck((lIrViela)&&(ascan(aVielas,nViela)>-1),cVairak+'vielu!',
					aCl[2]))
				||(EditCheck((!lIrViela)&&(ascan(aProd,cProd)>-1),cVairak+'produktu!',
					aCl[2]))
					){
				return false
			}

			if (lIrViela){
				aVielas.push(nViela)
			} else {
				aProd.push(cProd)
			}

		}
		
	}

	if ((ObligLauki(oForma.tnos,cE1+'ķīmiskā produkta tirdzniecības nosaukums'))
		||(!KvrSimbCh(oForma.simb))
		||(!KvrRCh(oForma.rfr))
		||(!KvrSCh(oForma.sfr))
		||(EditCheck(nKoncNoSum>100,
			'procentuālo koncentrāciju "no" summa nevar pārsniegt 100',
			oForma.konc_no_1))
			){
      return false
	}


}

function KvrKoncLidzCh(oKontr) {

	if ((!DalskNoLidz(oKontr,2))
		||(EditCheck(oKontr.value==0,
			'Procentuālā koncentrācija "līdz" nevar būt 0!',oKontr))
			){
      return false
	}

	return true
}

function KvrCasCh(oKontr) {
	var cCas=oKontr.value
	return (isEmpty(cCas))
		||(!EditCheck(!cCas.match(/(^\d+)-(\d+)-(\d+)$/),
			'Nepareizs vielas CAS koda formāts!',oKontr))
}

function KvrEinCh(oKontr) {
	var cEin=oKontr.value
	return (isEmpty(cEin))
		||(!EditCheck(!cEin.match(/^\d\d\d-\d\d\d-\d$/),
		'Vielas EINECS vai ELINCS kodam jābūt formātā 999-999-9!',oKontr))
}

function KvrIndCh(oKontr) {
	var cInd=oKontr.value
	return (isEmpty(cInd))
		||(!EditCheck(!(cInd.match(/^\d\d\d-\d\d\d-\d\d-[\dX]$/)),
			'Vielas indeksa numuram jābūt formātā 999-999-99-9!',oKontr))
}

function KvrVMNosCh(oKontr) {
	var cNos=oKontr.value
	return (isEmpty(cNos))
		||(!EditCheck(cNos.length<3,
		'Nosaukuma daļai jāsatur vismaz 3 simboli!',oKontr))
}

function KvrPieprParb(oForma,TuksPapildus) {
	var oCas=oForma.cas
		,oEin=oForma.einecs
		,oInd=oForma.indeks
		,oNos=oForma.nos
		,oTNos=oForma.tnos
		,oNace=oForma.nace
		,oMuita=oForma.mkods

	if ((EditCheck((isEmpty(oCas.value))
			&&(isEmpty(oEin.value))
			&&(isEmpty(oInd.value))
			&&(isEmpty(oNos.value))
			&&(isEmpty(oTNos.value))
			&&(isEmpty(oNace.value))
			&&(isEmpty(oMuita.value))
			&&(OptGetSel(oForma.msel_bist)==null)
			&&(OptGetSel(oForma.msel_rfr)==null)
			&&(OptGetSel(oForma.msel_sfr)==null)
			&&(TuksPapildus)
			,'Nav uzdots meklēšanas kritērijs!',oCas))
		||(!KvrCasCh(oCas))
		||(!KvrEinCh(oEin))
		||(!KvrIndCh(oInd))
		||(!KvrVMNosCh(oNos))
		||(!KvrVMNosCh(oTNos))
		||(!ParbauditNaceNepilni(oNace))
		||(!irNumurs(oMuita))
			){
	   return false
	}

   return true
}

function KvrVMParb() {
	return KvrPieprParb(document.vielu_melkt,true)
}

function KvrPMParb() {
	var oForma = document.prod_melkt
		,oTNos=oForma.tnos
		,oVNos=oForma.vnos

	if ((EditCheck((isEmpty(oTNos.value))
	      &&(isEmpty(oVNos.value))
			&&(OptGetSel(oForma.msel_bist)==null)
			&&(OptGetSel(oForma.msel_rfr)==null)
			&&(OptGetSel(oForma.msel_sfr)==null)
			,'Nav uzdots meklēšanas kritērijs!',oTNos))
		||(!KvrVMNosCh(oTNos))
		||(!KvrVMNosCh(oVNos))
			){
	   return false
	}

}

function KvrIerVielu(pNos,pCas,pEin,pSimb,pR,pS,pTNos,pVNum,pNota,pId,pTNosSar) {
	var lNoMekl=(parent.name=='kvr_vl_mkl')
	var oPrLapa= (lNoMekl) ? opener : parent.opener.opener,
		oForma=oPrLapa.document,
		oFm=oForma.red_vl

	oForma.getElementById('vnos').innerHTML=pNos
	oForma.getElementById('cas').innerHTML=pCas
	oForma.getElementById('einecs').innerHTML=pEin
	oForma.getElementById('bist').value=pSimb
	oForma.getElementById('rfr').value=pR
	oForma.getElementById('sfr').value=pS
	oForma.getElementById('tnos').value=pTNos
	oForma.getElementById('vnum').innerHTML=pVNum
	oForma.getElementById('kv_id').value=pId
	oFm.tnos_sar.value=pTNosSar
   oFm.nota.value=pNota

	if (lNoMekl)	{
		window.close()
	} else {
		parent.opener.close()
		parent.close()
	}

	oFm.lp_sk.focus()
}

function KvrShowIcons1(oDok,nSuff,cUpdDelVsb,cInsVsp) {
	oDok.getElementById('KvrVlEd_'+nSuff).style.visibility=cUpdDelVsb
	oDok.getElementById('KvrVlDel_'+nSuff).style.visibility=cUpdDelVsb
	oDok.getElementById('KvrVlPlus_'+nSuff).style.visibility=cInsVsp
}

function KvrShowIcons(oDok,nSuff,lNew) {
	var cUpdDelVsb,cInsVsp

	if (lNew)	{
		cUpdDelVsb='hidden'
		cInsVsp='visible'
	} else {
		cUpdDelVsb='visible'
		cInsVsp='hidden'
	}

	KvrShowIcons1(oDok,nSuff,cUpdDelVsb,cInsVsp)
}

function KvrIerVielu1(pNos,pCas,pEin,pId) {
	var lNoMekl=(parent.name=='kvr_vl_mkl')
	var oPrLapa= (lNoMekl) ? opener : parent.opener.opener,
		oDok=oPrLapa.document,
		oFm=oDok.red_vl_kl
	var nSuff=oFm.SastNr.value

//	oTab=oDok.getElementById("ProdTb")
//	alert(nSuff)
//	alert(oTab.rows[2].innerHTML)
//	alert(oTab.rows[3].innerHTML)

	oDok.getElementById('vnos_'+nSuff).innerHTML=pNos
	oDok.getElementById('cas_'+nSuff).innerHTML=pCas
	oDok.getElementById('ein_'+nSuff).innerHTML=pEin
	KvrShowIcons(oDok,nSuff,false)
	eval('oFm.v_id_'+nSuff+'.value=pId;')

	if (lNoMekl)	{
		window.close()
	} else {
		parent.opener.close()
		parent.close()
	}

	eval('oFm.konc_no_'+nSuff+'.focus();')
}

function KvrSimbNotaCh(oKontr,aMas,cText) {

	if (isEmpty(oKontr.value)){
		return true
	}

// Izņem visus tukšumus
	var cKontr=oKontr.value.replace(/\s+/g,''),   
		cSimb,cDub
	cKontr=rtrim(cKontr,';')
	var aVert=cKontr.split(';')
   cDub=StrIrDublikMas(aVert)

	if (EditCheck(cDub!=null,cEUzd+cText+' simbols:'+cDub+'!',oKontr)){
			return false
	}

	for (var i=0;i<aVert.length;i++){
		cSimb=aVert[i];

		if (EditCheck(ascan(aMas,cSimb)==-1,
				'Nepareizs '+cText+' simbols:'+cSimb+'!'+cCr+cCr+
				'Pieļaujamās vērtības:'+cCr+aMas.join(cCr),oKontr)){
			return false
		}

	}

	return true
}

function KvrSimbCh(oKontr) {
	return KvrSimbNotaCh(oKontr,aSimb,'bīstamības')
}

function KvrNotaCh(oKontr) {
	return KvrSimbNotaCh(oKontr,aNota,'NOTA')
}

function KvrRCh(oKontr) {
	var cKontr=oKontr.value

	if (isEmpty(cKontr)){
		return true
	}

// Izņem visus tukšumus
	cKontr=cKontr.replace(/\s+/g,'')
	var cParb=cKontr.replace(/\d+/g,''),
		cIR='iedarbības raksturojums:'
	var aVert=cKontr.split('-')
	cParb=cParb.replace(/-/g,'')
	cParb=rtrim(cParb,'/')
   cDub=StrIrDublikMas(aVert)


	if ((EditCheck(!isEmpty(cParb),'R'+cESmb,oKontr))
		||(EditCheck(!cKontr.match(/^\d/),'R-frāzei jāsākas ar ciparu',oKontr))			
		||(EditCheck(!cKontr.match(/\d$/),'R-frāzei jābeidzas ar ciparu',oKontr))			
		||(EditCheck(cKontr.match(/--/),'R-frāzē nepareizi lietota - zīme',oKontr))
		||(EditCheck(cDub!=null,cEUzd+cIR+cDub+'!',oKontr))
			){
		return false
	}

	for (var i=0;i<aVert.length;i++){

		if (EditCheck(ascan(aR,aVert[i])==-1,'Nepareizs '+cIR+'R'+aVert[i]+'!',oKontr)){
			return false
		}

	}

	return true
}

function KvrSCh(oKontr) {
	var cKontr=oKontr.value

	if (isEmpty(cKontr)){
		return true
	}

// Izņem visus tukšumus
	cKontr=cKontr.replace(/\s+/g,'')
// Izņem iekavas
	cKontr=cKontr.replace(/[(]/g,'')
	cKontr=cKontr.replace(/[)]/g,'')

	var cParb=cKontr.replace(/\d+/g,''),
		cIR='drošības prasību apzīmējums:'
	var aVert=cKontr.split('-')
	cParb=cParb.replace(/-/g,'')
	cParb=rtrim(cParb,'/')
   cDub=StrIrDublikMas(aVert)


	if ((EditCheck(!isEmpty(cParb),'S'+cESmb+'()',oKontr))
		||(EditCheck(cKontr.match(/--/),'S-frāzē nepareizi lietota - zīme',oKontr))
		||(EditCheck(cDub!=null,cEUzd+cIR+cDub+'!',oKontr))
			){
		return false
	}

	for (var i=0;i<aVert.length;i++){

		if (EditCheck(ascan(aS,aVert[i])==-1,'Nepareizs '+cIR+'S'+aVert[i]+'!',oKontr)){
			return false
		}

	}

	return true
}

function KvrP5Ch(oKontr) {

	if (!isEmpty(oKontr.value)){
		RemoveClass(oKontr,'aktiv')
		var nRndNr=TabulaInsertRow(oKontr,'spm',true)
	}

}

function KvrVlNewTnos() {
	var oTab=document.getElementById("tnos")
	var nRndSk=oTab.rows.length
	TabulaInsertNewRowKolNo(oTab,nRndSk,oTab.rows[nRndSk-1],nRndSk,0)
}

function KvrNaceCh(oKontr) {

	if (isEmpty(oKontr.value)){
		DzestTabulasRindu(oKontr)
	} else {

		if (!ParbauditNace(oKontr))	{
			return false
		}

		var nRndNr=TabulaInsertRow(oKontr,'nace',true)
	}

}

function KvrPrClearNos(oRnd,nSuff) {
	document.getElementById('vnos_'+nSuff).innerHTML=''
	oRnd.cells[1].innerHTML='<DIV class="nered" id="cas_'+nSuff+'"></DIV>'
	oRnd.cells[2].innerHTML='<DIV class="nered" id="ein_'+nSuff+'"></DIV>'
}

function KvrPrEmptyRow(oKontr,nSuff) {
	var oTable,oRnd
	oTable=getParent(oKontr,'TABLE')
	oRnd=oTable.rows[(nSuff*1)+2]
	eval('oForma.viela_'+nSuff+'.checked=true;')
	KvrShowIcons(document,nSuff,true)
	KvrPrClearNos(oRnd,nSuff)
	RemoveClass(eval('oForma.konc_no_'+nSuff),'aktiv')
	eval('oForma.v_id_'+nSuff+'.value=0;'+
		'oForma.prod_nos_'+nSuff+'.style.visibility="hidden";')
}

function KvrProcNoCh(oKontr) {

	if (!DalskNoLidz(oKontr,2))	{
		return false
	}

	var nRndNr=TabulaInsertRow(oKontr,'konc_no',true),
		nSuff=nRndNr-2
	var oKoncLidz=BernsPecName(getTR(oKontr),'konc_lidz_')

	if (nRndNr>0)	{
		KvrPrEmptyRow(oKontr,nSuff)
	}

	oKoncLidz.value = (isEmpty(oKoncLidz.value)) ? oKontr.value : oKoncLidz.value
}

function KvrPrDelVl(cRndNr) {
	var cSuff=cRndNr.substring(1,cRndNr.length)
	KvrPrEmptyRow(oForma.konc_no_1,cSuff)
	eval('oForma.konc_no_'+cSuff+'.value="";'+
		'oForma.konc_lidz_'+cSuff+'.value="";')
}

function KvrVlPrCh(oKontr) {
	var aVards=oKontr.name.split('_')
	var cSuff=aVards[1]
	var oProd=eval('oForma.prod_nos_'+cSuff)

	if (oKontr.checked)	{
		KvrPrEmptyRow(eval('oForma.konc_no_'+cSuff),cSuff)
		oProd.value=''
	} else {
		KvrShowIcons1(document,cSuff,'hidden','hidden')
		KvrPrClearNos(getTR(oProd),cSuff)
		oProd.style.visibility='visible'
		oProd.focus()
	}

}

function KvrNered(pCelle,pText){
	pCelle.innerHTML='<DIV class="nered centr">'+pText+'</DIV>'
}

function KvrProdSastAizp(cPar) {
	var lNoMekl=(parent.name=='kvr_pr_mkl')
	var oPrLapa= (lNoMekl) ? opener : parent.opener.opener,
		oDok=oPrLapa.document,
		oForma=oDok.red_vl,
	   oTab=oDok.getElementById("p1"),
		oRinda
   var nRndSk=oTab.rows.length,
		nRndNr
	var aLauki=cPar.split('@'),
		aRindas=aLauki[5].split('^'),
		aKol
	oForma.kpr_id.value=aLauki[0]
	oDok.getElementById("tnos").value=aLauki[1]
	oDok.getElementById("bist").value=aLauki[2]
	oDok.getElementById("rfr").value=aLauki[3]
	oDok.getElementById("sfr").value=aLauki[4]
	oDok.getElementById("vnum").innerHTML=aLauki[6]

	for (var i=3;i<nRndSk;i++){
		oTab.rows[3].removeNode(true)
	}

	if (!isEmpty(aRindas[0])){

		for (var i=0;i<aRindas.length;i++){
			nRndNr=3+i
			TabulaInsertNewRowKolNo(oTab,nRndNr,oTab.rows[2],1,0)
			oRinda=oTab.rows[nRndNr]
			aKol=aRindas[i].split('~')
			KvrNered(oRinda.cells[0],aKol[0])
			KvrNered(oRinda.cells[1],aKol[1])
			KvrNered(oRinda.cells[2],aKol[2])
			KvrNered(oRinda.cells[3],aKol[3])
		}

	}

	if (lNoMekl)	{
		window.close()
	} else {
		parent.opener.close()
		parent.close()
	}

	oForma.lp_sk.focus()
}

function KvrPiepras() {
	oForma=document.rep_param
	return KvrPieprParb(oForma,!oForma.N158.checked)
}

function KvrNotaWind(cNota) {
   var nAugst=window.screen.availHeight/2,
		nPlat=window.screen.availWidth*4/5
		nLeft=window.screen.availWidth/10
		nTop=window.screen.availHeight/4
	RedigLogsIzm('/lva_stat/kvr/IEVADS_apstiprin.htm#nota_'+cNota,'kvr_nota',
		nAugst,nPlat,nLeft,nTop)
}