var version4 = (navigator.appVersion.charAt(0) == "4");
var popupHandle;
function closePopup() {
        if(popupHandle != null && !popupHandle.closed) popupHandle.close();
}

function displayPopup(position,url,name,height,width,scrollbars,evnt) {
        var properties = "toolbar = 0, location = 0, height = " + height;
                properties = properties + ", width=" + width;
                properties = properties + ", scrollbars=" + scrollbars;

        var leftprop, topprop, screenX, screenY, cursorX, cursorY, padAmt;
        if(navigator.appName == "Microsoft Internet Explorer") {
                screenY = document.body.offsetHeight;
                screenX = window.screen.availWidth;
        }
        else {
                screenY = window.outerHeight
                screenX = window.outerWidth
        }
        if(position == 1)        { // if POPUP not CENTER
                cursorX = evnt.screenX;
                cursorY = evnt.screenY;
                padAmtX = 10;
                padAmtY = 10;
                if((cursorY + height + padAmtY) > screenY) {
                        // make sizes a negative number to move left/up
                        padAmtY = (-30) + (height * -1);
                        // if up or to left, make 30 as padding amount
                }
                if((cursorX + width + padAmtX) > screenX)        {
                        padAmtX = (-30) + (width * -1);
                        // if up or to left, make 30 as padding amount
                }
                if(navigator.appName == "Microsoft Internet Explorer") {
                        leftprop = cursorX + padAmtX;
                        topprop = cursorY + padAmtY;
                }
                else {
                        leftprop = (cursorX - pageXOffset + padAmtX);
                        topprop = (cursorY - pageYOffset + padAmtY);
            }
        }
        else{
                leftvar = (screenX - width) / 2;
                rightvar = (screenY - height) / 2;
                if(navigator.appName == "Microsoft Internet Explorer") {
                        leftprop = leftvar;
                        topprop = rightvar;
                }
                else {
                        leftprop = (leftvar - pageXOffset);
                        topprop = (rightvar - pageYOffset);
                }
        }
        if(evnt != null) {
                properties = properties + ", left = " + leftprop;
                properties = properties + ", top = " + topprop;
        }
        closePopup();
        popupHandle = open(url,name,properties);
}
/* ------------------------------------------------------------------------------------------------------------------------------------ */

function imprime(lid, lidi){
   displayPopup('left','index_popup.php?lid='+lid+'&lidi='+lidi+'&imprime=S','popup_imprimir','400','640','1','0');

}
/* ------------------------------------------------------------------------------------------------------------------------------------ */

function envia(lid, lidi){
   displayPopup('left','index_popup.php?lid='+lid+'&lidi='+lidi+'&envia=S','popup_imprimir','400','640','1','0');
}

/* ------------------------------------------------------------------------------------------------------------------------------------ */

function verificaObjText(obj,desc){
  if (obj.value=="" || obj.value==" " || obj.value==".") {
    alert("Preencha o campo "+desc+"!");
    obj.focus();
  return (false);
  } else return (true);
}

/* ------------------------------------------------------------------------------------------------------------------------------------ */

function verificaObjList(obj,desc){
  if (obj.value=="") {
    alert("Selecione o "+desc+"!");
    obj.focus();
  return (false);
  } else return (true);
}

/* ------------------------------------------------------------------------------------------------------------------------------------ */

function numeros(evt) {
        evt = (evt) ? evt : window.event;
        var charCode = (evt.which) ? evt.which : evt.keyCode;
        if (charCode < 31) return true;
        if (charCode >= 48 && charCode <= 57)   return true;
        return false;
}

function amf2005_BecameInteger(val,len)
{
    n='__0123456789';
    d=val.value;
    l=d.length;
    s='';
    if (l > 0)
    {
        a=2;
        for (i=0; i<l; i++)
        {
            c=d.charAt(i);
            if (n.indexOf(c) > a)
            {
                a=1;
                s+=c;
            };
        };
        l=s.length;
        t=len-1;
        if (l > t)
        {
            l=t;
            s=s.substr(0,t);
        };
        if (s == '')
        {
            s='0';
        };
    };
    val.value=s;
    return 'ok';
};

function amf2005_BecameCurrency(cur,len)
{
   n='__0123456789';
   d=cur.value;
   l=d.length;
   r='';
   if (l > 0)
   {
    z=d.substr(0,l-1);
    s='';
    a=2;
    for (i=0; i < l; i++)
    {
        c=d.charAt(i);
        if (n.indexOf(c) > a)
        {
            a=1;
            s+=c;
        };
    };
    l=s.length;
    t=len-1;
    if (l > t)
    {
        l=t;
        s=s.substr(0,t);
    };
    if (l > 2)
    {
        r=s.substr(0,l-2)+','+s.substr(l-2,2);
    }
    else
    {
        if (l == 2)
        {
            r='0,'+s;
        }
        else
        {
            if (l == 1)
            {
                r='0,0'+s;
            };
        };
    };
    if (r == '')
    {
        r='0,00';
    }
    else
    {
        l=r.length;
        if (l > 6)
        {
            j=l%3;
            w=r.substr(0,j);
            wa=r.substr(j,l-j-6);
            wb=r.substr(l-6,6);

            k=(l-j)/3-2;
            for (i=0; i < k; i++)
            {
                w+=wa.substr(i*3,3)+'.';
            };
            r=w+wb;
        };
    };
   };
   if (r.length <= len)
   {
    cur.value=r;
   }
   else
   {
    cur.value=z;
   };
   return 'ok';
};

function amf2005_BecameNumber(val,len)
{
    n='__0123456789';
    d=val.value;
    l=d.length;
    s='';
    a=2;
    for (i=0; i<l; i++)
    {
        c=d.charAt(i);
        if (n.indexOf(c) > a)
        {
            a=1;
            s+=c;
        };
    };
    l=s.length;
    t=len-1;
    if (l > t)
    {
        l=t;
        s=s.substr(0,t);
    };
    r='';
    if (l > 2)
    {
        r=s.substr(0,l-2)+','+s.substr(l-2,2);
    }
    else
    {
        if (l == 2)
        {
            r='0,'+s;
        }
        else
        {
            if (l == 1)
            {
                r='0,0'+s;
            };
        };
    };
    if (r == '')
    {
        r='0,00';
    };
    val.value=r;
    return 'ok';
};

function amf2005_valid_date(l,dd,mm,yy)
{
    z='err';
    if (l == 6 || l == 8)
    {
        xx=yy;
        if (dd >= 1 && dd <= 31)
        {
            if (mm == 2 || mm == 4 || mm == 6 || mm == 9 || mm == 11)
            {
                if (dd <= 30)
                {
                    if (mm == 2)
                    {
                        if (dd <= 28)
                        {
                            z='ok';
                        }
                        else
                        {
                            if (dd == 29)
                            {
                                bb=xx%4;    // 4 by 4
                                if (bb == 0)
                                {
                                    cc=xx%100;    // 100 by 100
                                    if (cc == 0)
                                    {
                                        qq=xx%400;    // 400 by 400
                                        if (qq == 0)
                                        {
                                            z='ok';
                                        };
                                    }
                                    else
                                    {
                                        z='ok';
                                    };
                                };
                            };
                        };
                    }
                    else
                    {
                        z='ok';
                    };
                };
            }
            else
            {
                if (mm >= 1 && mm <= 12) { z='ok'; };
            };
        };
    };
    ii=200;        // inner parameter
    if (xx < 1600 || xx > 2400 || xx < 2005 - ii || xx > 2005 + ii) { z='err'; };
    return z;
};

function amf2005_consist_date(dat)
{
    n='0123456789';
    d=dat.value;
    l=d.length;
    s='';
    for (i=0; i<l; i++)
    {
        c=d.charAt(i);
        if (n.indexOf(c) >= 0)
        {
            s+=c;
        };
    };
    l=s.length;
    xx='0000';
    r=s;
    if (l > 8)
    {
        r=s.substr(0,8);
        s=r;
        l=8;
    };
    if (l == 6)
    {
        dd=s.substr(0,2);
        mm=s.substr(2,2);
        yy=s.substr(4,2);
        if (yy < 50)
        {
            xx='20'+yy;
        }
        else
        {
            xx='19'+yy;
        };
        ww=dd+'/'+mm+'/'+yy;
    };
    if (l == 8)
    {
        dd=s.substr(0,2);
        mm=s.substr(2,2);
        yy=s.substr(4,4);
        xx=yy;
        ww=dd+'/'+mm+'/'+yy;
    };
    if (l == 6 || l == 8)
    {
        z=amf2005_valid_date(l,dd,mm,xx);
        if (z == 'ok') { r=ww; };
    };
    dat.value=r;
    return 'ok';
};

function amf2005_update_date(dat)
{
    n='0123456789';
    d=dat.value;
    l=d.length;
    s='';
    for (i=0; i<l; i++)
    {
        c=d.charAt(i);
        if (n.indexOf(c) >= 0)
        {
            s+=c;
        };
    };
    l=s.length;
    if (l == 6)
    {
        dd=s.substr(0,2);
        mm=s.substr(2,2);
        yy=s.substr(4,2);
        if (yy < 50)
        {
            yy='20'+yy;
        }
        else
        {
            yy='19'+yy;
        };
        ww=dd+'/'+mm+'/'+yy;
    };
    if (l == 8)
    {
        dd=s.substr(0,2);
        mm=s.substr(2,2);
        yy=s.substr(4,4);
        ww=dd+'/'+mm+'/'+yy;
    };
    rr='';
    if (l == 6 || l == 8)
    {
        z=amf2005_valid_date(l,dd,mm,yy);
        if (z == 'ok')
        {
            rr=ww;
        };
    };
    dat.value=rr;
    return 'ok';
};