function p24_findObj(n, d) {
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=p24_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function p24_kwota2gr(pole_zl,pole_gr) {
  var error='', ret=true;
  obj_zl = p24_findObj(pole_zl);
  obj_gr = p24_findObj(pole_gr);
  if (obj_zl.value=='' || isNaN(obj_zl.value)) {
    error += '-Nieprawidłowa wartość w polu Kwota-ZŁ\n';
    ret = false;
  }
  if (obj_gr.value != '' && isNaN(obj_gr.value)) {
    error += '-Nieprawidłowa wartość w polu Kwota-GR\n';
    ret = false;
  } else {
    if(obj_gr.value.length == 0) obj_gr.value='00';
    if(obj_gr.value.length == 1) obj_gr.value=obj_gr.value+'0';
  }
  if(ret == false) {
    alert("Błędy wypełniania formularza!\n"+error);
  } else {
    val = p24_findObj('z24_kwota');
    val.value = obj_zl.value+''+obj_gr.value;
  }
  return ret;
}