dataforsub=new Array('',''); function mergedata(fname,blockid,aryid){ parent.zgmmenu.auszugid1=''; parent.zgmmenu.auszugid2=''; tf=eval('parent.zgmain.document.'+fname); fdata=''; /* zuerst alle radiobuttons abarbeiten */ radioname=new Array(); for(posr=0;posr'9'){anza++;}} return anza; } function evalchar(foname,elname){ /* alle gültigen zeichen ausser A...Z a...z */ challowed=new Array('.',',','"','+','!','&','?','*',"'",' ','-','ö','Ö','ü','Ü','ä','Ä','ß'); te=eval('parent.zgmain.document.'+foname+'.'+elname); elval=te.value; newval=''; for(posc=0;posc='A'&&chx<='Z'||chx>='a'&&chx<='z'){newval+=chx;} else{ for(foundch=false,posca=0;!foundch&&posca='A'&&chx<='Z'||chx>='0'&&chx<='9'){newval+=chx;} else{ for(foundch=false,posca=0;!foundch&&posca='0'&&chx<='9'){newval+=chx;} else{foundch=false;} } else { if(chx>='a'&&chx<='z'){usrdigit=chx;} else{foundch=false;} } } if (!foundch) { window.alert("\nUngültige Firmenbuchnummer!"); te.focus(); return; } var prfval=Mod(newval,17); if (usrdigit!=prfdigit[prfval]) { window.alert("\nUngültige Firmenbuchnummer!!"); te.focus(); return; } } function trimblank(foname,elname){ te=eval('parent.zgmain.document.'+foname+'.'+elname); elval=te.value; newval=elval; for(posb=elval.length-1;posb>0&&elval.charAt(posb)<=' ';posb--){ if(elval.charAt(posb)<=' '){newval=elval.substring(0,posb);} } te.value=newval; } function checkdate(foname,elname,elval,sw0allowed){ te=eval('parent.zgmain.document.'+foname+'.'+elname); err=0;tag='';mon='';jahr=''; swnoday=false;swnomon=false; if(elval>''){ pkt1=elval.indexOf('.'); pkt2=elval.indexOf('.',pkt1+1); if(pkt1>0&&pkt2>0){ tag=elval.substring(0,pkt1); mon=elval.substring(pkt1+1,pkt2); jahr=elval.substring(pkt2+1,elval.length); if(tag.length<2)tag='0'+tag; if(mon.length<2)mon='0'+mon; if(tag.length!=2||mon.length!=2||jahr.length!=4){err=1;} } else{ if(elval.length==8){ tag=elval.substring(0,2); mon=elval.substring(2,4); jahr=elval.substring(4,8); } else{err=1;} } if(sw0allowed==1){ if(tag=='00'){tag='01';swnoday=true;} if(mon=='00'){mon='01';swnomon=true;} } if(isnumeric(tag)>0||isnumeric(mon)>0||isnumeric(jahr)>0){err=1;} if(err==0){ chkdat=new Date(jahr*1,mon*1-1,tag*1); if(chkdat.getDate()!=tag*1){err=2;} if(chkdat.getMonth()!=mon*1-1){err=2;} if(chkdat.getYear()!=jahr*1&&chkdat.getYear()!=jahr*1-1900){err=2;} aktdat=new Date();aktdat.getTime(); if(chkdat>aktdat){err=3;} } if(err==1){ alert("Kein gültiges Datumsformat!\nTT.MM.JJJJ oder TTMMJJJJ"); te.focus(); } else{ if(err==2){ alert("Das eingegebene Datum ist ungültig!"); te.focus(); } else{ if(err==3){ alert("Das eingegebene Datum liegt in der Zukunft!"); te.focus(); } else{ if(swnoday){tag='00';} if(swnomon){mon='00';} if(te.value!=tag+'.'+mon+'.'+jahr){te.value=tag+'.'+mon+'.'+jahr;} }}} } } function gotowin(swwin){ if(swwin==1){ /* suchergebnis if(parent.zgmmenu.winsuche){*/ window.alert(' >'+parent.zglogol.winsuche.value+'<'); if(!parent.zglogol.winsuche.closed){ parent.zglogol.winsuche.focus(); } /*}*/ } if(swwin==2){ /* auszug if(parent.zgmmenu.winauszug){*/ if(!parent.zglogol.winauszug.closed){ parent.zglogol.winauszug.focus(); } /*}*/ } } function initauszugpage(){ parent.zgmain.document.daten.register.value=parent.zgmmenu.auszugid1; parent.zgmain.document.daten.regnr.value=parent.zgmmenu.auszugid2; } function initsucherechtstr(){ parent.zgmain.document.daten.suchart[0].checked=parent.zglogol.m2s0suchart[0]; parent.zgmain.document.daten.suchart[1].checked=parent.zglogol.m2s0suchart[1]; parent.zgmain.document.daten.zuname.value=parent.zglogol.m2s0zuname; parent.zgmain.document.daten.vorname.value=parent.zglogol.m2s0vorname; parent.zgmain.document.daten.gebdat.value=parent.zglogol.m2s0gebdat; parent.zgmain.document.daten.swrt[0].checked=parent.zglogol.m2s0swrt[0]; parent.zgmain.document.daten.swrt[1].checked=parent.zglogol.m2s0swrt[1]; parent.zgmain.document.daten.bezeichnung.value=parent.zglogol.m2s0bezeichnung; parent.zgmain.document.daten.rechtsform.value=parent.zglogol.m2s0rechtsform; parent.zgmain.document.daten.fbuchnr.value=parent.zglogol.m2s0fbuchnr; parent.zgmain.document.daten.swgeo[0].checked=parent.zglogol.m2s0swgeo[0]; parent.zgmain.document.daten.swgeo[1].checked=parent.zglogol.m2s0swgeo[1]; parent.zgmain.document.daten.bundesland.value=parent.zglogol.m2s0bundesland; parent.zgmain.document.daten.polbez.value=parent.zglogol.m2s0polbez; if (parent.zgmain.document.daten.suchart[1].checked) { if (parent.zgmain.document.daten.swrt[1].checked) { parent.zgmain.document.daten.fbuchnr.focus(); } else { parent.zgmain.document.daten.bezeichnung.focus(); } } else { parent.zgmain.document.daten.zuname.focus(); } } function initsuchegewerb(){ parent.zgmain.document.daten.gewart.value=parent.zglogol.m2s1gewart; parent.zgmain.document.daten.ezgew.value=parent.zglogol.m2s1ezgew; parent.zgmain.document.daten.swgeo[0].checked=parent.zglogol.m2s1swgeo[0]; parent.zgmain.document.daten.swgeo[1].checked=parent.zglogol.m2s1swgeo[1]; parent.zgmain.document.daten.bundesland.value=parent.zglogol.m2s1bundesland; parent.zgmain.document.daten.polbez.value=parent.zglogol.m2s1polbez; parent.zgmain.document.daten.plz.value=parent.zglogol.m2s1plz; parent.zgmain.document.daten.strasse.value=parent.zglogol.m2s1strasse; parent.zgmain.document.daten.ruhend.checked=parent.zglogol.m2s1ruhend; parent.zgmain.document.daten.entzie.checked=parent.zglogol.m2s1entzie; } function fieldhelp(feld) { url = "../help/"+feld+".htm"; if (feld=="system") { HlpFenster = window.open(url, "Hilfe", "WIDTH=480,HEIGHT=280,SCROLLBARS=NO"); HlpFenster.moveTo((screen.width-480)/2, (screen.height-280)/2); } else { HlpFenster = window.open(url, "Hilfe", "WIDTH=400,HEIGHT=200,SCROLLBARS=YES"); HlpFenster.moveTo((screen.width-400)/2, (screen.height-200)/2); } }