function modificar()
{
    global $estilo, $OP, $FECHA_ACTUAL, $CODIGO_OFICINA, $CODIGO_EMPRESA,$img,$img1;
    global $ctrfe;
        $mi = 100;
    $modof = "nuevo";
    $w = "where lcred_cod_ofici=$CODIGO_OFICINA and
 lcred_ctr_hblcr=1";
    $lop_tcred = cargar_selects("lcred", $w, "tcred");
    $cod_tcred = $lop_tcred[0]["cod"];
    $fec_inici = fecha_a_campo($FECHA_ACTUAL);
    $fec_venci = fecha_a_campo($FECHA_ACTUAL);
    campo_detalle1("modos", $modof, '', $ty = 'hidden', '');//guardar el modo del form
    Recuadro_Inicio();
    $jcod_solic = "Onclick='genera_cod_solic(this)' OnChange='genera_cod_solic(this)'OnBlur='genera_cod_solic(this)'";
    cselect_op("Línea Crédito", $mi, "credi_cod_tcred", $lop_tcred, 250, '', $cod_tcred,
        "$jcod_solic");
    campo_detalle("Código Solicitud", "credi_cod_solic", $v = '', 120, 20, '', "",
        '');
    BR();
    print "<script>
      formdatos.credi_cod_tcred.focus();
    </script>";

    BR();
    campo_fechaNoBDD("Fecha Solicitud: ", $mi, "credi_fec_inici", "", "", $fec_inici);
    campo_fechaNoBDD("Fecha Calificación: ", $mi, "credi_fec_venci", '', '', $fec_venci,'');
    campo_detalle("No pagaré", "crsol_num_pagar", $v = '', 120, 20, '','','');
//    fin();
    $elementos = array("capa1", "capa2", "capa3", "capa4", "capa5", "capa6", "capa7");
    ocultar_mostrar($elementos);
    BR();
    print "<center>
    <a href=\"javascript:_click(1)\"><img name=boton1 border=\"0\" src=\"imgs\cliente.png\"></a> ";
    print "<a href=\"javascript:_click(2)\"><img name=boton2 border=\"0\" src=\"imgs\credi.png\"></a> ";
    print "<a href=\"javascript:_click(3)\"><img name=boton3 border=\"0\" src=\"imgs\garantes.png\"></a> ";
    print "<a href=\"javascript:_click(4)\"><img name=boton4 border=\"0\" src=\"imgs\garantias.png\"></a> ";
    print "<a href=\"javascript:_click(5)\"><img name=boton5 border=\"0\" src=\"imgs\financiera.png\"></a> ";
    print "<a href=\"javascript:_click(6)\"><img name=boton6 border=\"0\" src=\"imgs\bienes.png\"></a> ";
    print "<a href=\"javascript:_click(7)\"><img name=boton7 border=\"0\" src=\"imgs\preliminar.png\"></a></center>";

    print "<script>
        document.boton1.src = \"imgs/cliente_on.png\"
       function _click(num){
        document.boton1.src = \"imgs/cliente.png\"
        document.boton2.src = \"imgs/credi.png\"
        document.boton3.src = \"imgs/garantes.png\"
        document.boton4.src = \"imgs/garantias.png\"
        document.boton5.src = \"imgs/financiera.png\"
        document.boton6.src = \"imgs/bienes.png\"
        document.boton7.src = \"imgs/preliminar.png\"

        if(num==1){
         document.boton1.src = \"imgs/cliente_on.png\"
         ocultar_mostrarcapa1('capa1')
         }
        if(num==2){
         document.boton2.src = \"imgs/credi_on.png\"
         ocultar_mostrarcapa2('capa2')
         }
        if(num==3){
         document.boton3.src = \"imgs/garantes_on.png\"
         ocultar_mostrarcapa3('capa3')
         }
        if(num==4){
         document.boton4.src = \"imgs/garantias_on.png\"
         ocultar_mostrarcapa4('capa4')
         }
        if(num==5){
         document.boton5.src = \"imgs/financiera_on.png\"
         ocultar_mostrarcapa5('capa5')
        }
        if(num==6){
         document.boton6.src = \"imgs/bienes_on.png\"
         ocultar_mostrarcapa6('capa6')
        }
        if(num==7){
         document.boton7.src = \"imgs/preliminar_on.png\"
         ocultar_mostrarcapa7('capa7')
        }
        }
       function jcargardatos (){
       	var bandera=1;
        if(document.getElementById('crsol_ide_clien'))ide=document.getElementById('crsol_ide_clien').value;
        else ide=0;
        if(document.getElementById('credi_cod_tcred'))cod_tcred=document.getElementById('credi_cod_tcred').value;
        var cod_empre = $CODIGO_EMPRESA;
        var cod_ofici = $CODIGO_OFICINA;
        if((ide=='') || (ide==0)){return};
        else{
         divResultados = document.getElementById('capa1');
         divResultados.innerHTML='$img';
      	 ajax=objetoAjax();
 	 ajax.open('POST', 'ajax_msdcn_dat_clien.php',true);
	 ajax.onreadystatechange=function() {
	 	 if (ajax.readyState==4) {
                  var inactivo=ajax.responseText;
                  if(inactivo==5){alert('No ha transcurrido el tiempo mínimo desde que el Cliente aperturó la cuenta, por lo tanto NO es Sujeto de Crédito!');jpresenta_ide_clien();return;}
                  if(inactivo==4){alert('Cliente NO existe...!');jpresenta_ide_clien();return;}
                  if(inactivo==3){alert('Cliente NO esta Activo...!');jpresenta_ide_clien();return;}
                  else {
                   divResultados.innerHTML = ajax.responseText
                  }
                  jcaptaciones();
		}
	 }
	 ajax.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
	 ajax.send('crsol_cod_clien='+ide+'&cod_empre='+cod_empre+'&cod_ofici='+cod_ofici+'&bandera='+bandera+'&cod_tcred='+cod_tcred)
	}
    }
    function jcaptaciones (){
        if(document.getElementById('crsol_ide_clien'))ide=document.getElementById('crsol_ide_clien').value;
        else ide=0;
        var cod_empre = $CODIGO_EMPRESA;
        var cod_ofici = $CODIGO_OFICINA;
        if((ide=='') || (ide==0)){return};
        else{
         divResultados21 = document.getElementById('capa21');
         divResultados21.innerHTML='$img';
        ajax=objetoAjax();
	ajax.open('POST', 'ajax_msdcn_cap_clien.php',true);
	ajax.onreadystatechange=function() {
		if (ajax.readyState==4) {
                  divResultados21.innerHTML=ajax.responseText
                  jverifica_clien();
		}
	}
	 ajax.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
	 ajax.send('crsol_cod_clien='+ide+'&cod_empre='+cod_empre+'&cod_ofici='+cod_ofici)
	}
    }
     function jverifica_clien(){
       	var bandera=1;
        if(document.getElementById('crsol_ide_clien'))ide=document.getElementById('crsol_ide_clien').value;
        else ide=0;
        if(document.getElementById('credi_cod_tcred'))cod_tcred=document.getElementById('credi_cod_tcred').value;
        var cod_empre = $CODIGO_EMPRESA;
        var cod_ofici = $CODIGO_OFICINA;
        if((ide=='') || (ide==0)){return};
        else{
      	 ajax=objetoAjax();
 	 ajax.open('POST', 'ajax_msdcn_verif_clien.php',true);
	 ajax.onreadystatechange=function() {
	 	 if (ajax.readyState==4) {
        	  var error = ajax.responseText
         	  if(error==2)alert1('Verifique Vinculación del Cliente...!');
                  //alert('ahora a vigente')
         	  vigente();
		}
	 }
	 ajax.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
	 ajax.send('crsol_cod_clien='+ide+'&cod_empre='+cod_empre+'&cod_ofici='+cod_ofici+'&bandera='+bandera+'&cod_tcred='+cod_tcred)
	}
    }
    function jpresenta_ide_clien(){
         divResultados = document.getElementById('capa1');

      	 ajax=objetoAjax();
 	 ajax.open('POST', 'ajax_msdcn_ide_clien.php',true);
	 ajax.onreadystatechange=function() {
	 	 if (ajax.readyState==4) {
                  divResultados.innerHTML = ajax.responseText
		}
	 }
	 ajax.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
         ajax.send()
    }
    function vigente(){
        if(document.getElementById('crsol_ide_clien'))ide=document.getElementById('crsol_ide_clien').value;
        else ide=0;
        if(document.getElementById('credi_cod_tcred'))cod_tcred=document.getElementById('credi_cod_tcred').value;
        var cod_empre = $CODIGO_EMPRESA;
        var cod_ofici = $CODIGO_OFICINA;
        if((ide=='') || (ide==0)){return};
        else{
      	 ajax=objetoAjax();
 	 ajax.open('POST', 'ajax_msdcn_vigente.php',true);
	 ajax.onreadystatechange=function() {
	 	 if (ajax.readyState==4) {
        	  var error = ajax.responseText
         	  if(error=='v')alert1('El Cliente tiene crédito Vigente en la línea elegida...!');
		}
	 }
	 ajax.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
	 ajax.send('crsol_cod_clien='+ide+'&cod_empre='+cod_empre+'&cod_ofici='+cod_ofici+'&cod_tcred='+cod_tcred)
	}
    }
    function jusuar (){
        if(document.getElementById('naprb_cod_naprb'))ide=document.getElementById('naprb_cod_naprb').value;
        else ide=0;
        var bandera=2;
        var cod_empre = $CODIGO_EMPRESA;
        var cod_ofici = $CODIGO_OFICINA;
        if((ide=='') || (ide==0)){return};
        else{
         divResultados = document.getElementById('usuar');
         divResultados.innerHTML='$img1';
      	 ajax=objetoAjax();
 	     ajax.open('POST', 'ajax_msdcn_dat_clien.php',true);
	     ajax.onreadystatechange=function() {
	 	 if (ajax.readyState==4) {
			divResultados.innerHTML = ajax.responseText
		}
	 }
	 ajax.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
	 ajax.send('naprb_cod_naprb='+ide+'&cod_empre='+cod_empre+'&cod_ofici='+cod_ofici+'&bandera='+bandera)
	}
    }
    function coloca_ceros(i){
     var v=document.getElementsByName('vrow3[]')[i];
    }
    function jnocambiar(){
     ind=verobjeto('temporal').value
     verobjeto('usuar_cod_usuar').value=ind
    }
    function jcargargarante(){
     var bandera=1;
     if(document.getElementById('grslt_ide_garan'))ide=document.getElementById('grslt_ide_garan').value;
     else ide=0;
     if(document.getElementById('crsol_ide_clien'))ide_clien=document.getElementById('crsol_ide_clien').value;
     else ide_clien=0;
     if(document.getElementById('clien_ide_conyu'))ide_conyu=document.getElementById('clien_ide_conyu').value;
     else ide_conyu=0;
     if((ide=='') || (ide==0)|| (ide_clien==0)||(ide_clien=='')){return};
     else{
      divResultados = document.getElementById('capa30');
      ajax=objetoAjax();
      ajax.open('POST', 'ajax_msdcn_gar_clien.php',true);
      ajax.onreadystatechange=function() {
      if (ajax.readyState==4) {
        var camponom=ajax.responseText;
        if(camponom=='m1'){alert('Verifique Identificación, ya que es del Cliente o del Conyuge...!');return}
        if(camponom=='m2'){alert('NO esta registrado como GARANTE...! Desea Registrarlo ?');return}
        ide_clien=document.getElementsByName('ide_clien[]')
         hasta=ide_clien.length
         for(i=0;i<hasta;i++)
         {
          
          ide_comparar=verobjeto('grslt_ide_garan').value
          if(ide_clien[i].value==ide_comparar){alert1('Ya esta garantizando esta solicitud'); verobjeto('grslt_ide_garan').value=''; return;}
         }
        ok = ajax.responseText
        ok=html_js(ok);
        var array_garantes=new Array()
        miarray=ok.split('|')
        numdatos=miarray.length-1
        array_garantes.length=numdatos
        for(i=0;i<numdatos;i++){
         array_garantes[i]=miarray[i]
        }
        document.getElementById('apenom').value=array_garantes[5];
        if(confirm('Desea Registrarlo?')) {
         verobjeto('grslt_ide_garan').value='';
         verobjeto('apenom').value='';
         jregistrar(array_garantes)
        }
        else{
         alert('no');
        }

      }
     }
    }
     ajax.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
     ajax.send('grslt_ide_garan='+ide+'&bandera='+bandera+'&ide_clien='+ide_clien+'&ide_conyu='+ide_conyu)
    }
    function jregistrar(array_garantes){
     var bandera=2;
     cod_garan=array_garantes[0]
     cod_empre=array_garantes[1]
     cod_ofici=array_garantes[2]
     cod_clien=array_garantes[3]
     ide_clien=array_garantes[4]
     apenom=array_garantes[5]
     divResultados = document.getElementById('capa31');
     divResultados.innerHTML='$img1';
     ajax=objetoAjax();
     ajax.open('POST', 'ajax_msdcn_gar_clien.php',true);
     ajax.onreadystatechange= function() {
      if (ajax.readyState==4) {
       divResultados.innerHTML=ajax.responseText;
      }
     }
     ajax.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
     ajax.send('cod_garan='+cod_garan+'&bandera='+bandera+'&ide_clien='+ide_clien+'&cod_clien='+cod_clien+'&apenom='+apenom)
    }
    function getRadioButtonSelectedValue(ctrl)
    {
     for(i=0;i<ctrl.length;i++)
        if(ctrl[i].checked) return ctrl[i].value;
    }
    function generar_tabla_presuntiva(){
      if(document.getElementById('crsol_ide_clien'))ide=document.getElementById('crsol_ide_clien').value;
        else ide=0;
        if((ide=='') || (ide==0)){return};
        else{
        prdrc_cod_prdrc=document.getElementById('prdrc_cod_prdrc').value;
        tpsgd_cod_tpsgd=document.getElementById('tpsgd_cod_tpsgd').value;
        fcsgd_cod_fcsgd=document.getElementById('fcsgd_cod_fcsgd').value;
        fpsgd_cod_fpsgd=document.getElementById('fpsgd_cod_fpsgd').value;
        infc_fac=document.getElementById('infc_fac').value;
        infc_valcre=document.getElementById('crsol_val_credi').value;
        infc_tasa=document.getElementById('crsol_tas_credi').value;
        infc_cuo=document.getElementById('crsol_num_cuota').value;
        radio1=getRadioButtonSelectedValue(document.getElementsByName('radio1'));
        divResultados70= document.getElementById('capa70');
        divResultados70.innerHTML='$img';
        ajax=objetoAjax();
	ajax.open('POST', 'ajax_msdcn_preliminar.php',true);
	ajax.onreadystatechange=function() {
		if (ajax.readyState==4) {
                  divResultados70.innerHTML=ajax.responseText
		}
	}
	 ajax.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
	 ajax.send('crsol_cod_clien='+ide+'&prdrc_cod_prdrc='+prdrc_cod_prdrc+'&tpsgd_cod_tpsgd='+tpsgd_cod_tpsgd+'&fcsgd_cod_fcsgd='+fcsgd_cod_fcsgd+'&fpsgd_cod_fpsgd='+fpsgd_cod_fpsgd+'&infc_valcre='+infc_valcre+'&infc_tasa='+infc_tasa+'&infc_cuo='+infc_cuo+'&radio1='+radio1+'&infc_fac='+infc_fac)
	}

    }
    function jcargargarantias(){
     var bandera=1;
     if(document.getElementById('ide_grtia'))ide_grtia=document.getElementById('ide_grtia').value;
     else ide_grtia=0;
     if((ide_grtia=='')||(ide_grtia==0)){return;}
     else{
      divResultados = document.getElementById('capa40');
      ajax=objetoAjax();
      ajax.open('POST', 'ajax_msdcn_cargar_garantias.php',true);
      ajax.onreadystatechange=function() {
      if (ajax.readyState==4) {
        var camponom=ajax.responseText;
        if(camponom=='e1'){
          if(confirm('NO tiene registradas GARANTIAS  o  el Cliente no pertenece a esta Oficina.! Desea Registrarlas ?')) {
           verobjeto('ide_grtia').value='';
           verobjeto('nomgrtia').value='';
           ventana_garantias();
          }
          else{
           return;
          }
        }
        else{
         document.getElementById('nomgrtia').value=html_js(camponom);
         jmostrar_garantias();
        }
      }
     }
    }
     ajax.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
     ajax.send('ide_grtia='+ide_grtia+'&bandera='+bandera)
    }
   function jmostrar_garantias(){
     var bandera=2;
     if(document.getElementById('ide_grtia'))ide_grtia=document.getElementById('ide_grtia').value;
     else ide_grtia=0;
     if((ide_grtia=='')||(ide_grtia==0)){return;}
     else{
        divResultados41= document.getElementById('capa41');
        divResultados41.innerHTML='$img';
        ajax=objetoAjax();
	ajax.open('POST', 'ajax_msdcn_cargar_garantias.php',true);
	ajax.onreadystatechange=function() {
		if (ajax.readyState==4) {
                  divResultados41.innerHTML=ajax.responseText
		}
	}
	 ajax.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
	 ajax.send('ide_grtia='+ide_grtia+'&bandera='+bandera)
	}
    }
    function jregistrar_garantia(fila){
     var cod_grtia=document.getElementsByName('cod_grtia[]')[fila].value;
     var hasta=document.getElementsByName('cod_grtia_2[]').length;
     for(i=0;i<hasta;i++)
     {
      cod_grtia_c=document.getElementsByName('cod_grtia_2[]')[i].value;
      if(cod_grtia==cod_grtia_c){alert1('Ya se registró esta garantía');return;}
     }
     var des_bieng=document.getElementsByName('des_bieng[]')[fila].value;
     var des_sbtga=document.getElementsByName('des_sbtga[]')[fila].value;
     var val_dispo=document.getElementsByName('val_dispo[]')[fila].value;
     if (parseFloat(val_dispo)==0){alert1('No tiene valor disponible'); return;}
     var valor = prompt ('Valor a Garantizar...!',val_dispo);
     while (parseFloat(valor)>parseFloat(val_dispo)){
       var valor = prompt ('Valor a Garantizar...!',val_dispo)
     }
     bandera=3;
     divResultados42= document.getElementById('capa42');
     divResultados42.innerHTML='$img';
     ajax=objetoAjax();
     ajax.open('POST', 'ajax_msdcn_cargar_garantias.php',true);
     ajax.onreadystatechange=function() {
      if (ajax.readyState==4) {
       divResultados42.innerHTML=ajax.responseText
      }
     }
     ajax.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
     ajax.send('cod_grtia='+cod_grtia+'&bandera='+bandera+'&des_bieng='+des_bieng+'&des_sbtga='+des_sbtga+'&valor='+valor)
    }
    function jborrar_garantia(filab){
     var cod_grtia=document.getElementsByName('cod_grtia_2[]')[filab].value;
     bandera=4;
     divResultados42= document.getElementById('capa42');
     divResultados42.innerHTML='$img';
     ajax=objetoAjax();
     ajax.open('POST', 'ajax_msdcn_cargar_garantias.php',true);
     ajax.onreadystatechange=function() {
      if (ajax.readyState==4) {
       divResultados42.innerHTML=ajax.responseText
      }
     }
     ajax.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
     ajax.send('cod_grtia='+cod_grtia+'&bandera='+bandera)
    }
    </script>";

      $jcod="onblur='jcargardatos()'";
    abre_div('capa1');
     BR(1);
     campo_detalle("Identificación", "crsol_ide_clien", "", $mi, 20, '', "$jcod",'');
    cierra_div();

/*   abre_div('capa2');
     // DATOS CREDITOS";
    A_tabla();
    BR();
    $des_motiv="";
    $md=60;
    campo_detalle("Motivo", "crsol_des_motiv","",$md, 100, '', "",'');BR();
    campo_detalle("Valor", "crsol_val_credi", "",$md, 5,'',"",'');
    campo_detalle("Tasa Anual", "crsol_tas_credi", "",$md,5,'', "",'');
    cselect_op1("Periodo de Recuperación","cnxprdrc","prdrc_cod_prdrc","prdrc_des_prdrc",'','','','','',"onchange='cambia_fecha(this)'");
    campo_detalle("No. Cuotas", "crsol_num_cuota","",$md,5,'', "",'');
    BR();
    abre_div2('capa21', "", "", "", "", "overflow:auto;");
    Abre_Tabla("100%", "tablaI");
     print "<th colspan=6 align right>Capataciones del cliente";
     print "<tr><th>Cuenta<th>Descripción<th>Estado<th>Disponible<th>No disponible<th>Contable";
    print "</table>";
    cierra_div();
    print "<tr><td>";
    abre_div2('capa22', "", "", "", "", "overflow:auto;");
     print "veamos la posición";
    cierra_div();
    print "</table>";
   cierra_div();

    //GARANTES
    abre_div('capa3');
     BR();
     A_tabla();
      $jgaran="onblur='jcargargarante()'";
      abre_div2('capa30', "", "", "", "", "overflow:auto;");
       campo_detalle("Identificación", "grslt_ide_garan", "", $mi, 20, '', "$jgaran",'');
       campo_detalle("Nombres", "apenom", "", $mi, 50, '', "",'readonly');
       print "<a href=\"javascript:jregistrar()\"><img name=registrar border=\"0\" src=\"..\iconos\gnome\\registrar.png\"></a> ";
      cierra_div();
      abre_div2('capa31', "", "", "", "", "overflow:auto;");
       Abre_Tabla("100%", "tablaI");
        print "<th colspan=5 align right>Garantes";
        print "<tr><th>Código<th>Cliente<th>Identificación<th>Nombres<th>ok";
       print "</table>";
      cierra_div();
     print "</table>";
    cierra_div();

    //GARANTÍAS
    abre_div('capa4');
      print "GARANTIAS";
      BR();
      A_tabla();
      $jgarantias="onblur='jcargargarantias()'";
      abre_div2('capa40', "", "", "", "", "overflow:auto;");
       campo_detalle("Identificación", "ide_grtia", "", $mi, 20, '', "$jgarantias",'');
       campo_detalle("Nombres", "nomgrtia", "", $mi, 50, '', "",'readonly');
//       print "<a href=\"javascript:jregistrar()\"><img name=registrar border=\"0\" src=\"..\iconos\gnome\\registrar.png\"></a> ";
      cierra_div();
      abre_div2('capa41', "", "", "", "", "overflow:auto;");
       Abre_Tabla("100%", "tablaGarantias");
       print "<tr><th>Código<th>Descripción<th>Tipo<th>Avaluo<th>Disponible";
       print "</table>";
      cierra_div();
      abre_div2('capa42', "", "", "","", "overflow:auto;");
       Abre_Tabla("100%", "tablaGarantiasRegistradas");
       print "<tr><th>Código<th>Descripción<th>Tipo<th>Valor<th>Ok";
       print "</table>";
      cierra_div();
     print "</table>";
    cierra_div();

    abre_div('capa5');
    BR();
    A_tabla();
    abre_div2('capa51', "300", "150", "10px", "50px", "overflow:auto;");
    //$width=300
    //height=178
    //left=10px
    //top=50px
    $estilo = "text-align:right;width:100px;height:15px;font-size:8pt;border-style: solid; border-width: 1px";

    Abre_Tabla("100%", "tablaI");
    // detalle_ingresos();
    //1: Ingresos
    print "<th colspan=2>INGRESOS (USD $)";
    print "<tr><th>Concepto
        <th>Valor";
    $valor_tota_ingresos = detalle_ingresos();
    print "</table>";
    cierra_div();
    print "<td>";
    abre_div2('capa52', "300", "150", "350px", "50px", "overflow:auto;");
    //$width=300
    //height=178
    //left=10px
    //top=50px
    $estilo = "text-align:right;width:100px;height:15px;font-size:8pt;border-style: solid; border-width: 1px";

    Abre_Tabla("100%", "tablaG");
    // detalle_gastos();
    //2: Gastos
    print "<th colspan=2>EGRESOS (USD $)";
    print "<tr><th>Concepto
        <th>Valor";
    $valor_total_gastos = detalle_gastos();
    print "</table>";
    cierra_div();
    // $estilot="text-align:left;width:100px;height:15px;font-size:8pt;border-style: solid; border-width: 1px";
    print "<tr><td>";
    abre_div2('capa53', "300", "30", "350px", "50px", "overflow:auto;");
    Abre_Tabla("100%", "TI");
    print "<tr><td>Total Ingresos:<td align=center>";
    campo_detalle(" ", "ting", "0", '', 2, 'text', "", '', $estilo);
    print "</table>";
    cierra_div();

    print "<td>";
    abre_div2('capa54', "300", "30", "350px", "50px", "overflow:auto;");
    Abre_Tabla("100%", "TG");
    print "<tr><td>Total Egresos:<td align=center>";
    campo_detalle(" ", "tgas", "0", '', 2, 'text', "", '', $estilo);
    print "</table>";
    cierra_div();
    print "<tr><td>Exedente:";
    campo_detalle(" ", "exedente", "0", 110, 2, 'text', "", 'readonly', $estilo);
//    print "<a href=\"javascript:exedente()\"><img name=exedente border=\"0\" src=\"imgs\exedente.jpg\"></a> ";



    print "<tr><td>";
    abre_div2('capa55', "300", "150", "350px", "50px", "overflow:auto;");
    //$width=300
    //height=178
    //left=10px
    //top=50px
    $estilo = "text-align:right;width:100px;height:15px;font-size:8pt;border-style: solid; border-width: 1px";

    Abre_Tabla("100%", "tablaA");
    // detalle_Activos();
    //4: Gastos
    BR();
    print "<th colspan=2>ACTIVOS (USD $)";
    print "<tr><th>Concepto
        <th>Valor";
    $valor_total_gastos = detalle_activos();
    print "</table>";
    cierra_div();

    print "<td>";
    abre_div2('capa56', "300", "150", "350px", "50px", "overflow:auto;");
    //$width=300
    //height=178
    //left=10px
    //top=50px
    $estilo = "text-align:right;width:100px;height:15px;font-size:8pt;border-style: solid; border-width: 1px";

    Abre_Tabla("100%", "tablaP");
    // detalle_Activos();
    //4: Gastos
    BR();
    print "<th colspan=2>Pasivos (USD $)";
    print "<tr><th>Concepto
        <th>Valor";
    $valor_total_gastos = detalle_pasivos();
    print "</table>";
    cierra_div();


    print "<tr><td>";
    abre_div2('capa57', "300", "30", "350px", "50px", "overflow:auto;");
    Abre_Tabla("100%", "TA");
    print "<tr><td>Total Activos:<td align=center>";
    campo_detalle(" ", "tact", "0", '', 2, 'text', "", '', $estilo);
    print "</table>";
    cierra_div();

    print "<td>";
    abre_div2('capa58', "300", "30", "350px", "50px", "overflow:auto;");
    Abre_Tabla("100%", "TP");
    print "<tr><td>Total Pasivos:<td align=center>";
    campo_detalle(" ", "tpas", "0", '', 2, 'text', "", '', $estilo);
    print "</table>";
    cierra_div();

    print "<tr><td colspan=2>OBSERVACIONES:
    <textarea rows=3 name=garan_obs_finan style='width:550'></textarea>";
    print "</table>";
    cierra_div();

abre_div('capa6');

     Recuadro_Inicio();
     print"<div id='adjuntos'>";
//   $estilo1 = "text-align:left;width:250px;height:15px;font-size:8pt;border-style: solid; border-width: 0px";


// print"<input type='text' name='valor[]' value=4444 /><br>";
     cierra_div();
     print "<a href=\"javascript:addCampo()\"><img name=boton2 border=\"0\" src=\"..\iconos\gnome\\nuevo.png\"></a> ";
//     print"</center>";
     Recuadro_Fin();
    print "<script type='text/javascript'>
    var numero = 0; //Esta es una variable de control para mantener nombres
    //diferentes de cada campo creado dinamicamente.
    evento = function (evt) {
    //esta funcion nos devuelve el tipo de evento disparado
       return (!evt) ? event : evt;
    }

    //esta funcion crea dinamicamente los nuevos campos file
    addCampo = function () {
   //Creamos un nuevo div para que contenga el nuevo campo
   nDiv = document.createElement('div');
  //con esto se establece la clase de la div
   nDiv.className = 'archivo';
   //este es el id de la div, aqui la utilidad de la variable numero
  //nos permite darle un id unico
   nDiv.id = 'file' + (++numero);
   //creamos el input para el formulario:
   nCampo = document.createElement('input');
   nCampo1 = document.createElement('input');
   //le damos un nombre, es importante que lo nombren como vector,
   //pues todos los campos
   //compartiran el nombre en un arreglo,
   //asi es mas facil procesar posteriormente con php
   nCampo.name = 'bienes[]';
   nCampo1.name = 'valor_bienes[]';
   //Establecemos el tipo de campo
   nCampo.type = 'text';
   nCampo.width=450
   nCampo1.type = 'text';
   //Ahora creamos un link para poder borrar un campo que ya no deseemos
   a = document.createElement('a');
   //El link debe tener el mismo nombre de la div padre,
   //para efectos de localizarla y borrarla
   a.name = nDiv.id;
   //Este link no debe ir a ningun lado
   a.href = '#';
   //Establecemos que dispare esta funcion en click
   a.onclick = elimCamp;
                 //Con esto ponemos el texto del link
   a.innerHTML = 'Eliminar';
   //Adicionamos el Link
   nDiv.appendChild(a);
   //Bien es el momento de integrar lo que hemos creado al documento,
   //primero usamos la función appendChild para adicionar el campo file nuevo
   nDiv.appendChild(nCampo);
   nDiv.appendChild(nCampo1);

   //Ahora si recuerdan, en el html hay una div cuyo id es 'adjuntos', bien
   //con esta función obtenemos una referencia a ella
   //para usar de nuevo appendChild
   //y adicionar la div que hemos creado, la cual contiene
   //el campo con su link de eliminación:
   container = document.getElementById('adjuntos');
   container.appendChild(nDiv);
}

   //con esta función eliminamos el campo cuyo link de eliminación sea presionado
elimCamp = function (evt){
   evt = evento(evt);
   nCampo = rObj(evt);
   div = document.getElementById(nCampo.name);
   div.parentNode.removeChild(div);
}
    //con esta función recuperamos una instancia del objeto que disparo el evento
  rObj = function (evt) {
   return evt.srcElement ?  evt.srcElement : evt.target;
}
   </script>";
    cierra_div();

    abre_div('capa7');
     campo_detalle("", "ctrsmall", '0', $mi,'', 'hidden', '');
     $j1 = "onKeyPress='return solonums(this, event)'";
     $crsol_val_credi = VAL("crsol_val_credi", '0.00');
     $infc_cuo = VAL("infc_cuo", 0);
     $infc_cuogra = VAL("infc_cuogra", 0);
     $valcero[0]["cod"] = 0;
     $valcero[0]["des"] = "NO";
     $valcero[1]["cod"] = 1;
     $valcero[1]["des"] = "SI";
     $infc_dec = VAL("infc_dec", 1);
     $infc_fac = VAL("infc_fac", "0.00");

     $infc_tasa=VAL("infc_tasa");
     $infc_valmin=VAL("infc_valmin");
     $prdrc_cod_prdrc=VAL("prdrc_cod_prdrc"); //cmb recuperacion
     $cmbrecup=$prdrc_cod_prdrc;
     $tpsgd_cod_tpsgd=VAL("tpsgd_cod_tpsgd",0); //tipo pago
     $fpsgd_cod_fpsgd=VAL("fpsgd_cod_fpsgd",0); //forma de pago
     $fcsgd_cod_fcsgd=VAL("fcsgd_cod_fcsgd",0); //forma de calculo
     //$chkdia=VAL("infc_diacon");
     $infc_valmax=VAL("infc_valmax");
     //$radio=VAL("radio1");if($radio==0)$opcvar=1;else$opcvar=0;
     $chkdia=VAL("infc_diacon");

         print "<hr><center><table width='90%'><col width='40%'><col width='60%'>";
	$fec_actual=date("Y/m/d");$dtinicio=date("Ymd");
	campo_fechaNoBDD_hidden("",150,"infc_fecini",250,"","$fec_actual");
//    print "<tr><td>";
//    campo_detalle("Cuotas", "infc_cuo", $infc_cuo, '100', '20', 'text', "MAXLENGTH='4'", "$j1");
//    print "<td>";
    campo_fechaNoBDD_hidden("",150,"infc_feccuo",250,"","$fec_actual");
    campo_detalle("Valor Mínimo", "infc_valmin", $infc_valmin, '100', '20', 'hidden', '', "readonly");
    campo_detalle("Cuotas de Gracia", "infc_cuogra", $infc_cuogra, '120', '1', 'hidden', "MAXLENGTH='2'", "$j1");
//    campo_detalle("Incluir dias de concesión", "infc_diacon", '', '150', '1', 'checkbox', '', "");
//    print "<tr><td>";
    campo_detalle("Valor Máximo", "infc_valmax",$infc_valmax, '100', '20', 'hidden', '', "readonly");
    print "<td>";



     txt("Tipo de Cuotas", 150);
     print "<input type=radio name=radio1 value='0'>Variable";
     print "<input type=radio name=radio1 value='1' checked>Fijas";
     print "</table></center>";
     print "<hr><center><table width='90%'><col width='40%'><col width='60%'>";
     print "<tr><td>";
     campo_detalle("Factor", "infc_fac", $infc_fac, '100', '20', 'text', '', "");
     print "<td>";
     cselect_op1("Tipo de Pago", "cnxtpsgd", "tpsgd_cod_tpsgd", "tpsgd_des_tpsgd", '', $tpsgd_cod_tpsgd, '', 150, 150,'onchange=del_option_fpago(this)');
     print "<tr><td>";
     cselect_op("Decimales", 100, "infc_dec", $valcero, '', '', $infc_dec);
     print "<td>";
     cselect_op1("Forma de Pago", "cnxfpsgd", "fpsgd_cod_fpsgd", "fpsgd_des_fpsgd", "",$fpsgd_cod_fpsgd, '', 150, 150,'onchange=del_option_fcalc(this)');
     print "<tr><td>&nbsp;";
     print "<td>";
     cselect_op1("Forma de Calculo", "cnxfcsgd", "fcsgd_cod_fcsgd", "fcsgd_des_fcsgd", "", $fcsgd_cod_fcsgd, '', 150, 150);
     print "<a href=\"javascript:generar_tabla_presuntiva()\"><img name=generart border=\"0\" src=\"..\iconos\gnome\\generar_tabla.png\"></a> ";
     print "</table>";
     abre_div2('capa70', "", "", "", "", "overflow:auto;");
     print "<hr><center><table width='90%'><col width='40%'><col width='60%'>";
     print "
     <th >Cuotas<th>Fec. Inicio<th>Fec. Venc.<th># Días<th>Tasa
       <th>Prestamo<th>Valor Capital<th>Interés<th>Seguro<th>Otros<th>Total
       <col align='center'><col align='center'><col align='center'><col align='center'>
       <col align='center'><col align='right'><col align='right'><col align='right'>
       <col align='right'><col align='right'><col align='right'>";
     cierra_div();
     print "<script language=javascript src=preliminar.js></script>";

     If (!empty($cmbrecup)){
          $sql="select * from cnxprdrc where prdrc_cod_prdrc = '$cmbrecup'";
          $rs=BDD_READ("$sql");

          If (count($rs)>0){
           switch($rs[0]["prdrc_cod_prdrc"]){
              Case -2:
                  $recup = "fe";
                  $per = 2; $ctrmes = 2;
                  $dtprimera = SumarRestarMesesFecha($dtinicio,$per);
                  $chkdia = 0;
              Case -3:
                  $recup = "fe";
                  $per = 3; $ctrmes = 3;
                  $dtprimera = SumarRestarMesesFecha($dtinicio,$per);
                  $chkdia = 0;
              Case 2:
                  $recup = "fe";
                  $per = 1; $ctrmes = 1;
                  $dtprimera = SumarRestarMesesFecha($dtinicio,$per);
                  $chkdia = 0;
              Case 0:
                  $recup = $rs[0]["prdrc_num_diasp"]; $auxdias = 0;
                  If (substr($dtinicio,6,2) > 14 && substr($dtinicio,6,2) < 30){
                     $fecauxil = substr($dtinicio,0,4).substr($dtinicio,4,2)."30";

                     If (substr($dtinicio,4,2) == 2 && substr($dtinicio,6,2) > 27){
                        $fecauxil = SumarRestarDiasFecha($dtinicio,15);
                        $fecauxil = substr($dtinicio,0,4).substr($dtinicio,4,2)."15";
                     }
                  }Else{
                     $fecauxil = SumarRestarDiasFecha($dtinicio,15);
                     $fecauxil = substr($dtinicio,0,4).substr($dtinicio,4,2)."15";
                  }
                  $numdias = restardias($fecauxil,$dtinicio);
                  If ($chkdia == 1)
                     $auxdias = 1;
                  $fecauxil = SumarRestarDiasFecha($dtinicio,$numdias - $auxdias);
                  $chkdia = 0;
             default:
                  $recup = $rs[0]["prdrc_num_diasp"]; $auxdias = 0;
                  If ($chkdia == 1)
                     $auxdias = 1;

                  $dtprimera = SumarRestarDiasFecha($dtinicio,$recup - $auxdias);
                  $chkdia = 0;
              }
          }
          $ctrfe = $recup;
          $dtprimera_=formato_fecha_imp(fecha_a_bdd($dtprimera));
          //$dtprimera=fecha_desde_campo(VAL("infc_feccuo"));
          if($OP != 'Consultar')
          print"<script>
             obj_feccuo=verobjeto('infc_feccuo');
             obj_feccuo.value='$dtprimera_';
          </script>";



      }
      $sql="select * from cnxprdrc";
      $rs1=BDD_READ("$sql");
      print "<script>
      var array_fprimer = new Array();
      ";
      foreach($rs1 as $rs1reg){
         $val1=trim($rs1reg["prdrc_cod_prdrc"]);
         $val2=trim($rs1reg["prdrc_num_diasp"]);
         print "array_fprimer[".$val1."]=$val2;\n";
      }
      print "</script>";

    cierra_div();

    BR(2);
    if (((!empty($OP)) && ($OP == 'editnuevodetalle')) || (is_numeric($OP)))
    {
        print "<script>
  document.boton1.src = \"imgs/cliente.png\"
  document.boton3.src = \"imgs/credi_on.png\"
  ocultar_mostrarcapa3('capa3');
  </script>";
    }
    else
    {
        print "<script>
 ocultar_mostrarcapa1('capa1');
 </script>";
    }
    Recuadro_Fin();*/
}