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;
}