var
  NumeroPresupuesto = '999999';
  IndiceCabecera = 0;

function bdPresupuesto( Num, FPres, SRef, R_Social, Dir, Dis, Pob, Tipo, Marca, Modelo, Serie, Ave, MObra, Mater, Port, BImp, IVA, Imp){
  this.Numero = Num;
  this.FPresupuesto = FPres;
  this.Su_Referencia = SRef;
  this.Razon_Social = R_Social;
  this.Direccion = Dir;
  this.Distrito = Dis;
  this.Ciudad = Pob;
  this.Tipo_Aparato = Tipo;
  this.Marca_Aparato = Marca;
  this.Modelo_Aparato = Modelo;
  this.Serie_Aparato = Serie;
  this.Averia = Ave;
  this.Mano_Obra = MObra;
  this.Materiales = Mater;
  this.Portes = Port;
  this.Base_Imponible = BImp;
  this.Cuota_IVA = IVA;
  this.Importe = Imp;
  this.ImprimeEncabezado = ImprimeEncabezadoPaginaPresupuesto;
  this.ImprimePie = ImprimePiePaginaPresupuesto;
}

function bdLineaPto( Num, Udes, Cod, Desc, Preu, Imp) {
  this.Numero = Num;
  this.Unidades = Udes;
  this.Codigo = Cod;
  this.Descripcion = Desc;
  this.Precio = Preu;
  this.Importe = Imp;
  this.Imprime = ImprimeLineaPresupuesto;
}

function ImprimeLineaPresupuesto(linea) {
  if (NumeroPresupuesto == this.Numero) {
    with (VentanaPresupuesto.document) {
      writeln('<TR>');
      writeln('  <TD WIDTH=111>');
      writeln('    <P>');
      writeln('      <FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
      writeln('        <B>' + this.Codigo + '</B>');
      writeln('      </FONT>');
      writeln('    </P>');
      writeln('  </TD>');
      writeln('  <TD WIDTH=257>');
      writeln('    <P><FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
      writeln('         <B>' + this.Descripcion + '</B>');
      writeln('       </FONT>');
      writeln('    </P>');
      writeln('  </TD>');
      writeln('  <TD WIDTH=32>');
      writeln('    <P ALIGN=RIGHT>');
      writeln('      <FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
      writeln('        <B>'+ this.Unidades + '</B>');
      writeln('      </FONT>');
      writeln('    </P>');
      writeln('  </TD>');
      writeln('  <TD WIDTH=69>');
      writeln('    <P ALIGN=RIGHT>');
      writeln('      <FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
      writeln('        <B>' + this.Precio + '</B>');
      writeln('      </FONT>');
      writeln('    </P>');
      writeln('  </TD>');
      writeln('  <TD WIDTH=69>');
      writeln('    <P ALIGN=RIGHT>');
      writeln('      <FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
      writeln('        <B>' + this.Importe + '</B>');
      writeln('      </FONT>');
      writeln('    </P>');
      writeln('  </TD>');
      writeln('</TR>'); 
    }
  }
}

function ImprimeTitulosLineasPresupuesto() {
  with (VentanaPresupuesto.document) {
    writeln('<BR>');
    writeln('  <TABLE ID="Table7" BORDER=0 CELLSPACING=0 CELLPADDING=0" >');
    writeln('    <TR>');
    writeln('      <TD WIDTH=111 BGCOLOR="#CCCCCC">');
    writeln('        <P>');
    writeln('          <FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('             CODIGO');
    writeln('          </FONT>');
    writeln('        </P>');
    writeln('      </TD>');
    writeln('      <TD WIDTH=257 BGCOLOR="#CCCCCC">');
    writeln('        <P>');
    writeln('          <FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('            DESCRIPCION');
    writeln('          </FONT>');
    writeln('        </P>');
    writeln('      </TD>');
    writeln('      <TD WIDTH=32 BGCOLOR="#CCCCCC">');
    writeln('        <P ALIGN=RIGHT>');
    writeln('          <FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('            UDS');
    writeln('          </FONT>');
    writeln('        </P>');
    writeln('      </TD>');
    writeln('      <TD WIDTH=69 BGCOLOR="#CCCCCC">');
    writeln('        <P ALIGN=RIGHT>');
    writeln('          <FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('            PRECIO');
    writeln('          </FONT>');
    writeln('        </P>');
    writeln('      </TD>');
    writeln('      <TD WIDTH=69 BGCOLOR="#CCCCCC">');
    writeln('        <P ALIGN=RIGHT>');
    writeln('          <FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('            IMPORTE');
    writeln('          </FONT>');
    writeln('        </P>');
    writeln('      </TD>');
    writeln('    </TR>');
  }
}

function ImprimePieLineaPresupuesto() {
  with (VentanaPresupuesto.document) {
    writeln('  </TABLE>');
  }
}

function ImprimeLineasDelPresupuesto() {
  ImprimeTitulosLineasPresupuesto();
  for (i=0;i<Lineas.length;i++) {
    Lineas[i].Imprime(1);
  }
  ImprimePieLineaPresupuesto()
}

function ImprimeEncabezadoPaginaPresupuesto(linea) {
  with (VentanaPresupuesto.document) {
    writeln('<HTML lang="es">');

    writeln('<HEAD>');
    writeln('<TITLE>Presupuesto</TITLE>');
    writeln('</HEAD>');
    writeln('<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">');
    writeln(' <BODY');
    writeln('    BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0033CC" VLINK="#990099"');
    writeln('    ALINK="#FF0000"   TOPMARGIN=0 LEFTMARGIN=20 MARGINWIDTH=0 MARGINHEIGHT=0>');
    writeln('    <IMG ID="logo.gif" SRC="./assets/images/logo.gif" BORDER=0 >');
    writeln('    <BR>');
    writeln('    <BR>');
    writeln('      <FONT SIZE="+2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('        <B>PRESUPUESTO DE REPARACION</B>');
    writeln('      </FONT>');
    writeln('    <BR>');
    writeln('    <BR>');
    writeln('    <TABLE ID="Table1" BORDER=0 CELLSPACING=2 CELLPADDING=0" >');
    writeln('      <TR>');
    writeln('        <TD WIDTH=83>');
    writeln('          <P><FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('               PRESUPUESTO');
    writeln('             </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('        <TD WIDTH=71>');
    writeln('          <P>');
    writeln('            <FONT SIZE="-1" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('              <B>' + this.Numero + '</B>');
    writeln('            </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('        <TD WIDTH=47>');
    writeln('          <P>');
    writeln('             <FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('                SU REF.');
    writeln('             </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('        <TD WIDTH=168>');
    writeln('          <P><FONT SIZE="-1" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('             <B>' + this.Su_Referencia + '</B></FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('        <TD WIDTH=38>');
    writeln('          <P ALIGN=RIGHT>');
    writeln('            <FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('              FECHA');
    writeln('            </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('        <TD WIDTH=97>');
    writeln('            <P ALIGN=RIGHT><FONT SIZE="-1" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('               <B>' + this.FPresupuesto + '</B></FONT>');
    writeln('            </P>');
    writeln('        </TD>');
    writeln('      </TR>');
    writeln('    </TABLE>');
    writeln('    <BR>');
    writeln('    <BR>');
    writeln('    <TABLE ID="Table3" BORDER=0 CELLSPACING=0 CELLPADDING=0" >');
    writeln('      <TR>');
    writeln('        <TD WIDTH=58 HEIGHT=16>');
    writeln('          <P><FONT SIZE="-1" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('               Cliente');
    writeln('             </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('        <TD WIDTH=401>');
    writeln('            <P><FONT SIZE="-1" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('                 <B>' + this.Razon_Social + '</B>');
    writeln('               </FONT>');
    writeln('            </P>');
    writeln('        </TD>');
    writeln('      </TR>');
    writeln('      <TR>');
    writeln('        <TD>');
    writeln('          <P><FONT SIZE="-1" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('               &nbsp;');
    writeln('             </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('        <TD WIDTH=401>');
    writeln('          <P>');
    writeln('            <FONT SIZE="-1" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('              <B>' + this.Direccion + '</B>');
    writeln('            </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('      </TR>');
    writeln('      <TR>');
    writeln('        <TD>');
    writeln('          <P>');
    writeln('            <FONT SIZE="-1" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('              &nbsp;');
    writeln('            </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('        <TD WIDTH=401>');
    writeln('          <P>');
    writeln('            <FONT SIZE="-1" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('              <B>'+ this.Distrito + ' ' + this.Ciudad + '</B>');
    writeln('            </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('      </TR>');
    writeln('    </TABLE>');
    writeln('    <BR>');
    writeln('    <BR>');
    writeln('    <BR>');
    writeln('    <FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('    <B><U>DATOS DEL APARATO</U></B>');
    writeln('    </FONT>');
    writeln('    <BR>');
    writeln('    <TABLE ID="Table1" BORDER=0 CELLSPACING=0 CELLPADDING=0" >');
    writeln('      <TR>');
    writeln('        <TD WIDTH=137>');
    writeln('          <P>');
    writeln('            <FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('               TIPO');
    writeln('            </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('        <TD WIDTH=137>');
    writeln('          <P>');
    writeln('            <FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('               MARCA');
    writeln('            </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('        <TD WIDTH=139>');
    writeln('          <P><FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('             MODELO');
    writeln('          </FONT></P>');
    writeln('        </TD>');
    writeln('        <TD WIDTH=140>');
    writeln('            <P><FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('                 SERIE');
    writeln('               </FONT>');
    writeln('            </P>');
    writeln('        </TD>');
    writeln('      </TR>');
    writeln('      <TR>');
    writeln('        <TD WIDTH=137>');
    writeln('            <P><FONT SIZE="-1" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('                 <B>' + this.Tipo_Aparato + '</B>');
    writeln('               </FONT>');
    writeln('            </P>');
    writeln('        </TD>');
    writeln('        <TD WIDTH=137>');
    writeln('          <P>');
    writeln('            <FONT SIZE="-1" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('              <B>' + this.Marca_Aparato + '</B>');
    writeln('            </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('        <TD WIDTH=139>');
    writeln('          <P>');
    writeln('            <FONT SIZE="-1" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('              <B>' + this.Modelo_Aparato + '</B>');
    writeln('            </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('        <TD WIDTH=140>');
    writeln('            <P><FONT SIZE="-1" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('                 <B>' + this.Serie_Aparato + '</B>');
    writeln('               </FONT>');
    writeln('            </P>');
    writeln('        </TD>');
    writeln('      </TR>');
    writeln('    </TABLE>');
    writeln('    <BR>');
    writeln('    <TABLE ID="Table6" BORDER=0 CELLSPACING=0 CELLPADDING=0" >');
    writeln('      <TR>');
    writeln('        <TD WIDTH=550 HEIGHT=15>');
    writeln('          <P>');
    writeln('            <FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('              <B><U>DESCRIPCION DE LA AVERIA</U></B>');
    writeln('            </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('      </TR>');
    writeln('      <TR>');
    writeln('        <TD WIDTH=550>');
    writeln('          <P>');
    writeln('            <FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('              ' + this.Averia);
    writeln('            </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('      </TR>');
    writeln('    </TABLE>');
    writeln('    <BR>');
    writeln('    <FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('      <B><U>REPARACION A EFECTUAR</U></B>');
    writeln('    </FONT>');
  }
}

function ImprimePiePaginaPresupuesto(linea) {
  with (VentanaPresupuesto.document) {
    writeln('    <BR>');
    writeln('      <FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('        <B><U>RESUMEN DE PRESUPUESTO</U></B>');
    writeln('      </FONT>');
    writeln('    <BR>');
    writeln('    <TABLE ID="Table9" BORDER=0 CELLSPACING=0 CELLPADDING=0" >');
    writeln('      <TR>');
    writeln('        <TD WIDTH=129 HEIGHT=16>');
    writeln('          <P><FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('               MANO DE OBRA');
    writeln('             </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('        <TD WIDTH=115>');
    writeln('          <P ALIGN=RIGHT>');
    writeln('            <FONT SIZE="-1" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('              <B>' + this.Mano_Obra + '</B>');
    writeln('            </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('      </TR>');
    writeln('      <TR>');
    writeln('        <TD WIDTH=129 HEIGHT=16>');
    writeln('          <P>');
    writeln('            <FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('              IMPORTE MATERIALES');
    writeln('            </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('        <TD WIDTH=115>');
    writeln('          <P ALIGN=RIGHT>');
    writeln('            <FONT SIZE="-1" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('              <B>' + this.Materiales + '</B>');
    writeln('            </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('      </TR>');
    writeln('      <TR>');
    writeln('        <TD WIDTH=129>');
    writeln('          <P>');
    writeln('            <FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('              PORTES');
    writeln('            </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('        <TD WIDTH=115>');
    writeln('          <P ALIGN=RIGHT>');
    writeln('            <FONT SIZE="-1" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('              <B>' + this.Portes + '</B>');
    writeln('            </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('      </TR>');
    writeln('      <TR>');
    writeln('        <TD WIDTH=129>');
    writeln('          <P>');
    writeln('            <FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('              BASE IMPONIBLE');
    writeln('            </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('        <TD WIDTH=115>');
    writeln('          <P ALIGN=RIGHT>');
    writeln('            <FONT SIZE="-1" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('              <B>' + this.Base_Imponible + '</B>');
    writeln('            </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('      </TR>');
    writeln('      <TR>');
    writeln('        <TD WIDTH=129>');
    writeln('          <P>');
    writeln('            <FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('              IVA ');
    writeln('            </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('        <TD WIDTH=115>');
    writeln('          <P ALIGN=RIGHT>');
    writeln('            <FONT SIZE="-1" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('              <B>' + this.Cuota_IVA + '</B>');
    writeln('            </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('      </TR>');
    writeln('      <TR>');
    writeln('        <TD WIDTH=129 HEIGHT=16>');
    writeln('          <P>');
    writeln('            <FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('              <B>IMPORTE TOTAL</B>');
    writeln('            </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('        <TD WIDTH=115>');
    writeln('          <P ALIGN=RIGHT>');
    writeln('            <FONT SIZE="-1" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('               <B>' + this.Importe + '</B>');
    writeln('            </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('      </TR>');
    writeln('    </TABLE>');
    writeln('    <BR>');
    writeln('    <BR>');
    writeln('    <BR>');
    writeln('    <BR>');
    writeln('    <BR>');
    writeln('    <TABLE ID="Table6" BORDER=0 CELLSPACING=0 CELLPADDING=0" >');
    writeln('      <TR>');
    writeln('        <TD WIDTH=550 HEIGHT=15>');
    writeln('          <P>');
    writeln('            <FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('              <B><U>NOTA IMPORTANTE</U></B>');
    writeln('            </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('      </TR>');
    writeln('      <TR>');
    writeln('        <TD WIDTH=550>');
    writeln('          <P>');
    writeln('            <FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('              ' + TextoPresupuesto);
    writeln('            </FONT>');
    writeln('          </P>');
    writeln('        </TD>');
    writeln('      </TR>');
    writeln('    </TABLE>');
    writeln('    <BR>');
    writeln('    <FORM NAME="FormPresupuesto" ENCTYPE="text/plain" ACTION="mailto:'+email + '?subject=Contestación presupuesto" METHOD="POST" onSubmit="return confirm(\'¿ Desea enviar esta petición ?\')">');
    writeln('      <INPUT TYPE=HIDDEN NAME="Presupuesto.:" VALUE="' + this.Numero + '">');
    writeln('      <INPUT TYPE=HIDDEN NAME="Cliente.....:" VALUE="' + this.Razon_Social + '">');
    writeln('      <INPUT TYPE=HIDDEN NAME="Tipo........:" VALUE="' + this.Tipo_Aparato + '">');
    writeln('      <INPUT TYPE=HIDDEN NAME="Marca.......:" VALUE="' + this.Marca_Aparato + '">');
    writeln('      <INPUT TYPE=HIDDEN NAME="Modelo......:" VALUE="' + this.Modelo_Aparato + '">');
    writeln('      <INPUT TYPE=HIDDEN NAME="Serie.......:" VALUE="' + this.Serie_Aparato + '">');
    writeln('      <TABLE ID="Table12" BORDER=0 BGCOLOR="#CCCCCC" CELLSPACING=0 CELLPADDING=0" >');
    writeln('        <TR>');
    writeln('          <TD WIDTH=253 HEIGHT=12>');
    writeln('            <P ALIGN=CENTER>');
    writeln('              <FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('                ACEPTO EL PRESUPUESTO');
    writeln('              </FONT>');
    writeln('            </P>');
    writeln('          </TD>');
    writeln('          <TD WIDTH=240>');
    writeln('            <P ALIGN=CENTER>');
    writeln('              <FONT SIZE="-2" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('                ACEPTADO POR');
    writeln('              </FONT>');
    writeln('            </P>');
    writeln('          </TD>');
    writeln('        </TR>');
    writeln('        <TR>');
    writeln('          <TD WIDTH=253>');
    writeln('            <P ALIGN=CENTER>');
    writeln('                <B>');
    writeln('                  &nbsp;SI ');
    writeln('                    <INPUT ID="FormsRadioButton5" TYPE=RADIO NAME="Aceptado" VALUE="Si">');
    writeln('                  NO ');
    writeln('                    <INPUT ID="FormsRadioButton6" TYPE=RADIO NAME="Aceptado" VALUE="No">');
    writeln('                </B>');
    writeln('              </FONT>');
    writeln('            </TD>');
    writeln('            <TD WIDTH=240>');
    writeln('              <P>');
    writeln('                  <TABLE WIDTH="100%" BORDER=0 CELLSPACING=0 CELLPADDING=0 NOF=TE>');
    writeln('                    <TR>');
    writeln('                      <TD ALIGN="CENTER">');
    writeln('                        <INPUT ID="fNom" TYPE=TEXT NAME="Firmado " VALUE="" SIZE=30 MAXLENGTH=30>');
    writeln('                      </TD>');
    writeln('                    </TR>');
    writeln('                  </TABLE>');
    writeln('            </TD>');
    writeln('        </TR>');
    writeln('        <TR>');
    writeln('          <TD>');
    writeln('            <P>');
    writeln('              <FONT SIZE="-1" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('                 &nbsp;');
    writeln('              </FONT>');
    writeln('            </P>');
    writeln('          </TD>');
    writeln('          <TD>');
    writeln('            <P>');
    writeln('              <FONT SIZE="-1" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('                &nbsp;');
    writeln('              </FONT>');
    writeln('            </P>');
    writeln('          </TD>');
    writeln('        </TR>');
    writeln('        <TR>');
    writeln('          <TD WIDTH=253 HEIGHT=24>');
    writeln('            <P ALIGN=LEFT>');
    writeln('              <FONT SIZE="-1" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif"></FONT>');
    writeln('                <TABLE WIDTH="100%" BORDER=0 CELLSPACING=0 CELLPADDING=0 NOF=TE>');
    writeln('                  <TR>');
    writeln('                    <TD ALIGN="RIGHT">');
    writeln('                      <INPUT TYPE=SUBMIT NAME="BotonPulsado" VALUE="Enviar" ID="Forms Button1">');
    writeln('                    </TD>');
    writeln('                  </TR>');
    writeln('                </TABLE>');
    writeln('          </TD>');
    writeln('          <TD>');
    writeln('            <P>');
    writeln('              <FONT SIZE="-1" FACE="Verdana,Tahoma,Arial,Helvetica,sans-serif">');
    writeln('                &nbsp;');
    writeln('              </FONT>');
    writeln('            </P>');
    writeln('          </TD>');
    writeln('        </TR>');
    writeln('      </TABLE>');
    writeln('    </FORM>');
    writeln('    <BR>');
    writeln(' </BODY>');
    writeln('</HTML>');
  }
}


function GetIndicePresupuesto(nume) {
var Resultado = 9999;
  for(i=0;i<Cabecera.length;i++) {
    if (Cabecera[i].Numero == nume) 
      Resultado = i;
  }
  return (Resultado);
}

function MuestraPresupuesto(a) {
  NumeroPresupuesto = a;
  IndiceCabecera = GetIndicePresupuesto(NumeroPresupuesto);
  if (IndiceCabecera <= Cabecera.length) {
    VentanaPresupuesto = window.open("","","width=600,height=550,statusbar=NO,scrollbars");
    Cabecera[IndiceCabecera].ImprimeEncabezado();
    ImprimeLineasDelPresupuesto();
    Cabecera[IndiceCabecera].ImprimePie()
    document.close();
  }
  else
    alert('Seleccione primero el presupuesto que desea imprimir, aceptar o rechazar.');
}
