print "<table width=500 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla>"; print "<tr class=titulo-celda>"; print "<td>Código</td>"; print "<td>Descripción</td>"; print "<td>Cuenta</td>"; print "<td>Deducible</td>"; print "</tr>"; for($li_z=1;$li_z<=$li_totrow;$li_z++) { print "<tr class=celdas-blancas>"; $ls_codigo=$data["codded"][$li_z]; $ls_descripcion=$data["dended"][$li_z]; $ls_cuenta=$data["cuenta"][$li_z]; $ls_deducible=$data["deducible"][$li_z]; $ls_formula=$data["formula"][$li_z]; $ls_deducible=$io_funnum->uf_convertir_numerocadena($ls_deducible); print "<td align=center><a href=\"javascript: aceptar('$ls_codigo','$ls_descripcion','$ls_cuenta','$ls_deducible','$ls_formula');\">".$ls_codigo."</a></td>"; print "<td align=center>".$ls_descripcion."</td>"; print "<td align=center>".$ls_cuenta."</td>"; print "<td align=center>".$ls_deducible."</td>"; print "</tr>"; } print "</table>"; } else { $io_msg->message("No se han creado Retenciones"); } $io_sql->free_result($rs_data); $io_sql->close(); ?>
$io_datastore->data=$la_partidas; $li_filaspartidas=$io_datastore->getRowCount("codpar"); for($li_i=1;$li_i<=$li_filaspartidas;$li_i++) { $ls_codigo=$io_datastore->getValue("codpar",$li_i); $ls_nombre=$io_datastore->getValue("nompar",$li_i); $ls_unidad=$io_datastore->getValue("nomuni",$li_i); $ls_preuni=$io_datastore->getValue("preparasi",$li_i); $ls_canttot=$io_datastore->getValue("canxeje",$li_i); $ls_codasi=$io_datastore->getValue("codasi",$li_i); $ls_codobr=$io_datastore->getValue("codobr",$li_i); $la_objectpartidas[$li_i][1]="<input type=checkbox name=flagpar".$li_i." value=1 class=sin-borde>"; $la_objectpartidas[$li_i][2]="<input name=txtcodpar".$li_i." type=text id=txtcodpar".$li_i." value='".$ls_codigo."' class=sin-borde style= text-align:center size=8 readonly><input name=codasi".$li_i." type=hidden id=codasi".$li_i." value='".$ls_codasi."'><input name=codobr".$li_i." type=hidden id=codobr".$li_i." value='".$ls_codobr."'>"; $la_objectpartidas[$li_i][3]="<input name=txtnompar".$li_i." type=text id=txtnompar".$li_i." value='".$ls_nombre."' class=sin-borde style= text-align:left size=25 readonly>"; $la_objectpartidas[$li_i][4]="<input name=txtnomuni".$li_i." type=text id=txtnomuni".$li_i." value='".$ls_unidad."' class=sin-borde size=5 style= text-align:center readonly>"; $la_objectpartidas[$li_i][5]="<input name=txtpreuni".$li_i." type=text id=txtpreuni".$li_i." value='".$io_funcsob->uf_convertir_numerocadena($ls_preuni)."' class=sin-borde size=15 style= text-align:center readonly>"; $la_objectpartidas[$li_i][6]="<input name=txtpreunimod".$li_i." type=text id=txtpreunimod".$li_i." value='".$io_funcsob->uf_convertir_numerocadena($ls_preuni)."' class=sin-borde size=15 style= text-align:center onKeyPress=return(currencyFormat(this,'.',',',event)) onBlur=ue_subtotal();>"; $la_objectpartidas[$li_i][7]="<input name=txtcanttot".$li_i." type=text id=txtcanttot".$li_i." value='".$io_funcsob->uf_convertir_numerocadena($ls_canttot)."' class=sin-borde size=5 style= text-align:center readonly>"; $la_objectpartidas[$li_i][8]="<input name=txtcantpar".$li_i." type=text id=txtcantpar".$li_i." value='0,00' class=sin-borde size=5 style= text-align:center onKeyPress=return(currencyFormat(this,'.',',',event)) onBlur=ue_subtotal();>"; $la_objectpartidas[$li_i][9]="<input name=txttotal".$li_i." type=text id=txttotal".$li_i." class=sin-borde size=15 style= text-align:center readonly>"; } $li_filaspartidas=$li_filaspartidas+1; $la_objectpartidas[$li_filaspartidas][1]="<input type=checkbox name=flagpar".$li_filaspartidas." value=1 disabled class=sin-borde>"; $la_objectpartidas[$li_filaspartidas][2]="<input name=txtcodpar".$li_filaspartidas." type=text id=txtcodpar".$li_filaspartidas." class=sin-borde style= text-align:center size=8 readonly><input name=codasi".$li_filaspartidas." type=hidden id=codasi".$li_filaspartidas."><input name=codobr".$li_filaspartidas." type=hidden id=codobr".$li_filaspartidas.">"; $la_objectpartidas[$li_filaspartidas][3]="<input name=txtnompar".$li_filaspartidas." type=text id=txtnompar".$li_filaspartidas." class=sin-borde style= text-align:left size=25 readonly>"; $la_objectpartidas[$li_filaspartidas][4]="<input name=txtnomuni".$li_filaspartidas." type=text id=txtnomuni".$li_filaspartidas." class=sin-borde size=5 style= text-align:center readonly>"; $la_objectpartidas[$li_filaspartidas][5]="<input name=txtpreuni".$li_filaspartidas." type=text id=txtpreuni".$li_filaspartidas." class=sin-borde size=15 style= text-align:center readonly>"; $la_objectpartidas[$li_filaspartidas][6]="<input name=txtpreunimod".$li_filaspartidas." type=text id=txtpreunimod".$li_filaspartidas." class=sin-borde size=15 style= text-align:center readonly>"; $la_objectpartidas[$li_filaspartidas][7]="<input name=txtcanttot".$li_filaspartidas." type=text id=txtcanttot".$li_filaspartidas." class=sin-borde size=5 style= text-align:center readonly>"; $la_objectpartidas[$li_filaspartidas][8]="<input name=txtcantpar".$li_filaspartidas." type=text id=txtcantpar".$li_filaspartidas." class=sin-borde size=5 style= text-align:center readonly>";
$ls_ruta=$_GET["ruta"]; //-----------Obteniedo la data a ser enviada al documento OpenOffice------------------------// //--------------------------Datos del Contrato------------------------------------------// $la_contrato=$io_funsob->uf_decodificar($_GET["contrato"]); $la_unidadmulta=$io_funsob->uf_decodificar($_GET["unidadmulta"]); $la_unidadgarantia=$io_funsob->uf_decodificar($_GET["unidadgarantia"]); $CodigoContrato=$la_contrato["codcon"]; $FechaEmisionContrato=$io_function->uf_convertirfecmostrar($la_contrato["feccon"]); $FechaInicioContrato=$io_function->uf_convertirfecmostrar($la_contrato["fecinicon"]); $FechaFinalizacionContrato=$io_function->uf_convertirfecmostrar($la_contrato["fecfincon"]); $PlazoDuracionContrato=$io_funsob->uf_convertir_decimalentero($la_contrato["placon"]); $ls_unidad=$io_funsob->uf_convertir_letraunidad($la_contrato["placonuni"]); $PlazoDuracionContrato=$PlazoDuracionContrato." ".$ls_unidad; $MontoContrato=$io_funsob->uf_convertir_numerocadena($la_contrato["monto"]); $MontoContratoLetras=$io_funsob->convertir($la_contrato["monto"]); $li_pos=strpos($MontoContrato,","); $ls_decimales=substr($MontoContrato,($li_pos+1),2); $MontoContratoLetras=$MontoContratoLetras." con ".$ls_decimales."/100"; $MontoMultaIncumplimiento=$io_funsob->uf_convertir_numerocadena($la_contrato["mulcon"]); if($io_funsob->uf_convertir_decimalentero($la_contrato["tiemulcon"])=="0") { $TiempoMultaInclumplimiento="---"; } else { $TiempoMultaInclumplimiento=$io_funsob->uf_convertir_decimalentero($la_contrato["tiemulcon"]); $ls_unidad=$la_unidadmulta["nomuni"]; $TiempoMultaInclumplimiento=$TiempoMultaInclumplimiento." ".$ls_unidad; }
$ls_cadena=$ls_cadena." ORDER BY o.codobr"; $lb_valido=$io_reporte->uf_obtenerdata ($ls_cadena,$la_data); if($lb_valido===true) { $la_titulosobra=$io_reporte->uf_titulos("OBRA",$la_data); $la_titulospartida=$io_reporte->uf_titulos("PARTIDA",$la_data); /*print "----------OBRA--------------"; print_r($la_titulosobra); print "----------PARTIDA--------------"; print_r($la_titulospartida);*/ $li_filas=(count($la_data, COUNT_RECURSIVE) / count($la_data)) - 1; if(array_key_exists("monto",$la_data)) { for($li_i=1;$li_i<=$li_filas;$li_i++) { $la_data["monto"][$li_i]=$io_funsob->uf_convertir_numerocadena($la_data["monto"][$li_i]); } } if(array_key_exists("prepar",$la_data)) { for($li_i=1;$li_i<=$li_filas;$li_i++) { $la_data["prepar"][$li_i]=$io_funsob->uf_convertir_numerocadena($la_data["prepar"][$li_i]); } } if(array_key_exists("feccreobr",$la_data)) { for($li_i=1;$li_i<=$li_filas;$li_i++) { $la_data["feccreobr"][$li_i]=$io_funcion->uf_convertirfecmostrar($la_data["feccreobr"][$li_i]); }
$la_tituloscontrato=$io_reporte->uf_titulos("CONTRATO",$la_data); $la_titulosvaluacion=$io_reporte->uf_titulos("VALUACION",$la_data); //print "----------OBRA--------------"; //print_r($la_tituloscontrato); //print "----------PARTIDA--------------"; //print_r($la_titulosvaluacion); $li_filas=(count($la_data, COUNT_RECURSIVE) / count($la_data)) - 1; for($li_i=1;$li_i<=$li_filas;$li_i++) { $la_data["codcon"][$li_i]=$la_data["precon"][$li_i].$la_data["codcon"][$li_i]; } if(array_key_exists("monto",$la_data)) { for($li_i=1;$li_i<=$li_filas;$li_i++) { $la_data["monto"][$li_i]=$io_funsob->uf_convertir_numerocadena($la_data["monto"][$li_i]); } } if(array_key_exists("amoval",$la_data)) { for($li_i=1;$li_i<=$li_filas;$li_i++) { $la_data["amoval"][$li_i]=$io_funsob->uf_convertir_numerocadena($la_data["amoval"][$li_i]); } } if(array_key_exists("amototval",$la_data)) { for($li_i=1;$li_i<=$li_filas;$li_i++) { $la_data["amototval"][$li_i]=$io_funsob->uf_convertir_numerocadena($la_data["amototval"][$li_i]); }
{ print "<table width=500 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>"; print "<tr class=titulo-celda>"; print "<td><a href=javascript:ue_ordenar('codcar','');><font color=#FFFFFF>Código</font></a></td>"; print "<td><a href=javascript:ue_ordenar('dencar','');><font color=#FFFFFF>Denominación</font></a></td>"; print "<td><a href=javascript:ue_ordenar('porcar','');><font color=#FFFFFF>Porcentaje</font></a></td>"; $la_unidades=$io_sql->obtener_datos($rs_datauni); $io_data->data=$la_unidades; $totrow=$io_data->getRowCount("codcar"); for($z=1;$z<=$totrow;$z++) { print "<tr class=celdas-blancas>"; $codcar=$io_data->getValue("codcar",$z); $dencar=$io_data->getValue("dencar",$z); $porcar=$io_funsob->uf_convertir_numerocadena($io_data->getValue("porcar",$z)); $forcar=$io_data->getValue("formula",$z); $ls_codestpro=$io_data->getValue("codestpro",$z); $ls_estcla=$io_data->getValue("estcla",$z); $ls_spgcuenta=$io_data->getValue("spg_cuenta",$z); if($ls_tipdes=="VALUACION") { print "<td align=center><a href=\"javascript: aceptar_valuacion('$codcar','$dencar','$forcar','$ls_codestpro','$ls_spgcuenta','$ls_estcla');\">".$codcar."</a></td>"; } else { print "<td align=center><a href=\"javascript: aceptar('$codcar','$dencar','$forcar','$ls_codestpro','$ls_spgcuenta');\">".$codcar."</a></td>"; } print "<td align=left>".$dencar."</td>"; print "<td align=right>".$porcar."</td>"; print "</tr>";
$io_funcdb=new class_funciones_db($io_connect); $la_empresa=$_SESSION["la_empresa"]; require_once("../shared/class_folder/sigesp_c_generar_consecutivo.php"); $io_keygen= new sigesp_c_generar_consecutivo(); $ls_codcon= $io_keygen->uf_generar_numero_nuevo("SOB","sob_contrato","codcon","SOBCON",6,"","",""); //$ls_codcon=$io_funcdb->uf_generar_codigo(true,$la_empresa["codemp"],"sob_contrato","codcon",6); $ls_estado="EMITIDO"; //$fecha=date("d/m/Y"); //$ls_feccon=$ls_fecasi; $lb_valido=$io_contrato->uf_select_asignacion($ls_codasi,$la_asignacion); if ($lb_valido) { $io_datastore->data=$la_asignacion; $li_i=1; $ls_monto=$io_datastore->getValue("montotasi",$li_i); $ls_monto=$io_funnum->uf_convertir_numerocadena($ls_monto); //$ls_monmaxcon=$ls_monto; } } $ls_datoscontrato="OCULTAR"; $ls_destipcon =""; $ls_fecinicon =""; $ls_monmaxcon="0,00"; $ls_pormaxcon="0,00"; $ls_mulcon="0,00"; $ls_lapgarcon=""; $ls_codtco=""; $ls_obscon=""; $ls_estcon=""; $ls_fecfincon=""; $li_placon="";
} $la_objectpartidas[$li_i][2]="<input name=txtcodpar".$li_i." type=text id=txtcodpar".$li_i." value='".$ls_codigo."' class=sin-borde style= text-align:center size=8 readonly><input name=canpareje".$li_i." type=hidden id=canpareje".$li_i." value='".$ls_canpareje."'>"; $la_objectpartidas[$li_i][3]="<input name=txtnompar".$li_i." type=text id=txtnompar".$li_i." value='".$ls_nombre."' class=sin-borde style= text-align:left size=25 readonly>"; $la_objectpartidas[$li_i][4]="<input name=txtnomuni".$li_i." type=text id=txtnomuni".$li_i." value='".$ls_unidad."' class=sin-borde size=5 style= text-align:center readonly>"; $la_objectpartidas[$li_i][5]="<input name=txtpreuni".$li_i." type=text id=txtpreuni".$li_i." value='".$ls_preuni."' class=sin-borde size=15 style= text-align:center readonly>"; $la_objectpartidas[$li_i][6]="<input name=txtpreunimod".$li_i." type=text id=txtpreunimod".$li_i." value='".$ls_preunimod."' class=sin-borde size=15 style= text-align:center onKeyPress=return(currencyFormat(this,'.',',',event))>"; $la_objectpartidas[$li_i][7]="<input name=txtcanttot".$li_i." type=text id=txtcanttot".$li_i." value='".$ls_canttot."' class=sin-borde size=5 style= text-align:center readonly>"; $la_objectpartidas[$li_i][8]="<input name=txtcantpar".$li_i." type=text id=txtcantpar".$li_i." value='".$ls_cantpar."' class=sin-borde size=5 style= text-align:center onKeyPress=return(currencyFormat(this,'.',',',event)) readonly>"; $la_objectpartidas[$li_i][9]="<input name=txttotal".$li_i." type=text id=txttotal".$li_i." value='".$ls_total."' class=sin-borde size=15 style= text-align:center readonly>"; if($ls_canttot==0) { $la_objectpartidas[$li_i][1]="<input type=checkbox name=flagpar".$li_i." value=1 class=sin-borde disabled>"; $la_objectpartidas[$li_i][2]="<input name=txtcodpar".$li_i." type=text id=txtcodpar".$li_i." value='".$ls_codigo."' class=sin-borde style= text-align:center size=8 readonly><input name=canpareje".$li_i." type=hidden id=canpareje".$li_i." value='".$ls_canpareje."'>"; $la_objectpartidas[$li_i][3]="<input name=txtnompar".$li_i." type=text id=txtnompar".$li_i." value='".$ls_nombre."' class=sin-borde style= text-align:left size=25 readonly>"; $la_objectpartidas[$li_i][4]="<input name=txtnomuni".$li_i." type=text id=txtnomuni".$li_i." value='".$ls_unidad."' class=sin-borde size=5 style= text-align:center readonly>"; $la_objectpartidas[$li_i][5]="<input name=txtpreuni".$li_i." type=text id=txtpreuni".$li_i." value='".$io_funcsob->uf_convertir_numerocadena($ls_preuni)."' class=sin-borde size=15 style= text-align:center readonly>"; $la_objectpartidas[$li_i][6]="<input name=txtpreunimod".$li_i." type=text id=txtpreunimod".$li_i." value='".$io_funcsob->uf_convertir_numerocadena($ls_preuni)."' class=sin-borde size=15 style= text-align:center readonly>"; $la_objectpartidas[$li_i][7]="<input name=txtcanttot".$li_i." type=text id=txtcanttot".$li_i." value='".$io_funcsob->uf_convertir_numerocadena($ls_canttot)."' class=sin-borde size=5 style= text-align:center readonly>"; $la_objectpartidas[$li_i][8]="<input name=txtcantpar".$li_i." type=text id=txtcantpar".$li_i." class=sin-borde size=5 style= text-align:center readonly>"; $la_objectpartidas[$li_i][9]="<input name=txttotal".$li_i." type=text id=txttotal".$li_i." class=sin-borde size=15 style= text-align:center readonly>"; } } $la_objectpartidas[$li_filaspartidas][1]="<input type=checkbox name=flagpar".$li_filaspartidas." value=1 disabled class=sin-borde>"; $la_objectpartidas[$li_filaspartidas][2]="<input name=txtcodpar".$li_filaspartidas." type=text id=txtcodpar".$li_filaspartidas." class=sin-borde style= text-align:center size=8 readonly>"; $la_objectpartidas[$li_filaspartidas][3]="<input name=txtnompar".$li_filaspartidas." type=text id=txtnompar".$li_filaspartidas." class=sin-borde style= text-align:left size=25 readonly>"; $la_objectpartidas[$li_filaspartidas][4]="<input name=txtnomuni".$li_filaspartidas." type=text id=txtnomuni".$li_filaspartidas." class=sin-borde size=5 style= text-align:center readonly>"; $la_objectpartidas[$li_filaspartidas][5]="<input name=txtpreuni".$li_filaspartidas." type=text id=txtpreuni".$li_filaspartidas." class=sin-borde size=15 style= text-align:center readonly>"; $la_objectpartidas[$li_filaspartidas][6]="<input name=txtpreunimod".$li_filaspartidas." type=text id=txtpreunimod".$li_filaspartidas." class=sin-borde size=15 style= text-align:center readonly>"; $la_objectpartidas[$li_filaspartidas][7]="<input name=txtcanttot".$li_filaspartidas." type=text id=txtcanttot".$li_filaspartidas." class=sin-borde size=5 style= text-align:center readonly>"; $la_objectpartidas[$li_filaspartidas][8]="<input name=txtcantpar".$li_filaspartidas." type=text id=txtcantpar".$li_filaspartidas." class=sin-borde size=5 style= text-align:center $ls_readonly>"; $la_objectpartidas[$li_filaspartidas][9]="<input name=txttotal".$li_filaspartidas." type=text id=txttotal".$li_filaspartidas." class=sin-borde size=15 style= text-align:center readonly>";
for($li_i=0;$li_i<$li_filas;$li_i++) { $ls_calculo=$la_camposespeciales[$li_i]; switch($ls_calculo) { case "anticipo": include_once("class_folder/sigesp_sob_c_anticipo.php"); $io_anticipo=new sigesp_sob_c_anticipo(); for($li_j=1;$li_j<=$li_filasdata;$li_j++) { $ls_codcon=$la_data["codcon"][$li_j]; $lb_valido=$io_anticipo->uf_calcular_montoanticipo($ls_codcon,$ld_montoanticipo); if($lb_valido) { if($ld_montoanticipo!=0) $la_data["totalanticipo"][$li_j]=$io_funsob->uf_convertir_numerocadena($ld_montoanticipo); else $la_data["totalanticipo"][$li_j]="---"; } } break; case "amortizacionanticipo": include_once("class_folder/sigesp_sob_c_anticipo.php"); include_once("class_folder/sigesp_sob_c_valuacion.php"); $io_anticipo=new sigesp_sob_c_anticipo(); $io_valuacion=new sigesp_sob_c_valuacion(); for($li_j=1;$li_j<=$li_filasdata;$li_j++) { $ls_codcon=$la_data["codcon"][$li_j]; $lb_valido=$io_anticipo->uf_calcular_montoanticipo($ls_codcon,$ld_montoanticipo); if($lb_valido && $ld_montoanticipo!=0)
$ls_codigopresupuestariomonto=$_GET["codigopresupuestariomonto"]; $ls_cuentamonto=$_GET["cuentamonto"]; $ls_codigopresupuestarioiva=$_GET["codigopresupuestarioiva"]; $ls_cuentaiva=$_GET["cuentaiva"]; $CodigoPuntodeCuenta=$la_puntodecuenta["codpuncue"]; $Fecha=$io_function->uf_convertirfecmostrar($la_puntodecuenta["fecpuncue"]); $PresentadoA=$la_puntodecuenta["despuncue"] ; $PresentadoPor=$la_puntodecuenta["rempuncue"] ; $Asunto=$la_puntodecuenta["asupuncue"] ; $Concepto=$la_puntodecuenta["desobr"] ; $Contratista=$la_puntodecuenta["nompro"] ; $RepresentanteContratista=$la_puntodecuenta["nomreppro"]; $ls_lapso=$io_funsob->uf_convertir_decimalentero ($la_puntodecuenta["lapejepuncue"]); $ls_lapsoenletras=$io_funsob->convertir ($ls_lapso); $LapsodeEjecucion=$ls_lapsoenletras." (".$ls_lapso.") ".$la_puntodecuenta["nomuni"]; $MontoNeto=$io_funsob->uf_convertir_numerocadena($la_puntodecuenta["monnetpuncue"]); $MontoIva=$io_funsob->uf_convertir_numerocadena($la_puntodecuenta["monivapuncue"]); $PorcentajeIva=$io_funsob->uf_convertir_numerocadena($la_puntodecuenta["porivapuncue"])."%"; $MontoBruto=$io_funsob->uf_convertir_numerocadena($la_puntodecuenta["monbrupuncue"]); $MontoAnticipo=$io_funsob->uf_convertir_numerocadena($la_puntodecuenta["monantpuncue"]); $PorcentajeAnticipo=$io_funsob->uf_convertir_numerocadena($la_puntodecuenta["porantpuncue"])."%"; $CodigoPresupuestarioCuentaMonto=$ls_codigopresupuestariomonto; $CuentaMonto=$ls_cuentamonto; $CodigoPresupuestarioCuentaIva=$ls_codigopresupuestarioiva; $CuentaIva=$ls_cuentaiva; //--------------------------Datos del Punto de Cuenta------------------------------------------// //--------------------------Datos Generales--------------------------------------------// $Dia=date("d");
$ls_codmun=$_POST["hidmunicipio"]; $ls_codpar=$_POST["hidparroquia"]; $ls_codcom=$_POST["hidcomunidad"]; $ls_codpai=$_POST["hidpais"]; /////Cargando las partidas $lb_valido=$io_obra->uf_select_partidas ($ls_codobr,$la_partidas,$li_totalfilas); if($lb_valido) { $io_datastore->data=$la_partidas; $li_filaspartidas=$io_datastore->getRowCount("codpar"); for($li_i=1;$li_i<=$li_filaspartidas;$li_i++) { $ls_codigo=$io_datastore->getValue("codpar",$li_i); $ls_nombre=$io_datastore->getValue("nompar",$li_i); $ls_unidad=$io_datastore->getValue("nomuni",$li_i); $ls_prepar=$io_funsob->uf_convertir_numerocadena($io_datastore->getValue("prepar",$li_i)); $ls_canpar=$io_funsob->uf_convertir_numerocadena($io_datastore->getValue("canparobr",$li_i)); $la_objectpartidas[$li_i][1]="<input name=txtcodpar".$li_i." type=text id=txtcodpar".$li_i." class=sin-borde style= text-align:center size=10 value='".$ls_codigo."' readonly>"; $la_objectpartidas[$li_i][2]="<input name=txtnompar".$li_i." type=text id=txtnompar".$li_i." class=sin-borde style= text-align:left size=50 value='".$ls_nombre."' readonly >"; $la_objectpartidas[$li_i][3]="<input name=txtprepar".$li_i." type=text id=txtprepar".$li_i." class=sin-borde style= text-align:right size=22 value='".$ls_prepar."' readonly >"; $la_objectpartidas[$li_i][4]="<input name=txtcanpar".$li_i." type=text id=txtcanpar".$li_i." class=sin-borde style= text-align:right size=15 value='".$ls_canpar."' onKeyPress=return(validaCajas(this,'d',event,15)) onKeyUp=javascript:uf_llamada_validarmonto(this) onBlur=javascript:ue_getformat(this) >"; $la_objectpartidas[$li_i][5]="<input name=txtnomuni".$li_i." type=text id=txtnomuni".$li_i." class=sin-borde size=5 style= text-align:center value='".$ls_unidad."' readonly>"; $la_objectpartidas[$li_i][6]=" <a href=javascript:ue_removerpartida(".$li_i.");><img src=../shared/imagebank/tools15/eliminar.gif alt=Aceptar width=15 height=15 border=0 style= text-align:center on Click=javascript:valida_monto_total(this,".$li_i.")></a>"; } $li_filaspartidas=$li_filaspartidas+1; $la_objectpartidas[$li_filaspartidas][1]="<input name=txtcodpar".$li_filaspartidas." type=text id=txtcodpar".$li_filaspartidas." class=sin-borde style= text-align:center size=10 readonly>"; $la_objectpartidas[$li_filaspartidas][2]="<input name=txtnompar".$li_filaspartidas." type=text id=txtnompar".$li_filaspartidas." class=sin-borde style= text-align:left size=50 readonly>"; $la_objectpartidas[$li_filaspartidas][3]="<input name=txtprepar".$li_filaspartidas." type=text id=txtprepar".$li_filaspartidas." class=sin-borde style= text-align:right size=22 readonly >"; $la_objectpartidas[$li_filaspartidas][4]="<input name=txtcanpar".$li_filaspartidas." type=text id=txtcanpar".$li_filaspartidas." class=sin-borde style= text-align:right size=15 readonly>"; $la_objectpartidas[$li_filaspartidas][5]="<input name=txtnomuni".$li_filaspartidas." type=text id=txtnomuni".$li_filaspartidas." class=sin-borde size=5 style= text-align:center readonly>"; $la_objectpartidas[$li_filaspartidas][6]="<input name=txtvacio".$li_filaspartidas." type=text id=txtvacio class=sin-borde style= text-align:center size=2 readonly>";
$io_function=new class_funciones(); //-------------------Obteniendo arreglo y variables de datos basicos----------------------------// $ls_ruta=$_GET["ruta"]; //-----------Obteniedo la data a ser enviada al documento OpenOffice-------------------------------// //--------------------------Datos de la Obra--------------------------------------------// $la_obra=$io_funsob->uf_decodificar($_GET["obra"]); $CodigoObra=$la_obra["codobr"]; $DescripcionObra=$la_obra["desobr"]; $UbicacionObra=$la_obra["dirobr"]; //--------------------------Datos del Contrato------------------------------------------// $la_contrato=$io_funsob->uf_decodificar($_GET["contrato"]); $EmpresaContratista=$la_contrato["nompro"]; $CodigoContrato=$la_contrato["codcon"]; $MontoContrato=$io_funsob->uf_convertir_numerocadena($la_contrato["monto"]); $MontoContratoLetras=$io_funsob->convertir($la_contrato["monto"]); $li_pos=strpos($MontoContrato,","); $ls_decimales=substr($MontoContrato,($li_pos+1),2); $MontoContratoLetras=$MontoContratoLetras." con ".$ls_decimales."/100"; //--------------------------Datos del Acta---------------------------------------------// $la_acta=$io_funsob->uf_decodificar($_GET["acta"]); $la_inspector=$io_funsob->uf_decodificar($_GET["inspector"]); $la_residente=$io_funsob->uf_decodificar($_GET["residente"]); $CodigoActa=$la_acta["codact"]; $NombreInspector=$la_inspector["nomsup"]; $NombreResidente=$la_residente["nomsup"]; $CedulaInspector=$la_inspector["cedsup"]; $CedulaResidente=$la_residente["cedsup"]; $CivResidente=$la_residente["civ"]; $CivInspector=$la_inspector["civ"];
$ls_operacion=$_POST["operacion"]; $ls_orden=$_POST["orden"]; $ls_campo=$_POST["campo"]; if($ls_documento=="VALUACION" && $ls_operacion=="") { if($ls_campo=="") $ls_campobusqueda="v.codval"; else $ls_campobusqueda=$ls_campo; $lb_valido=$io_recepcion->uf_select_valuacion($ls_campobusqueda,$ls_orden,$la_valuaciones,$li_filas); for($li_i=1;$li_i<=$li_filas;$li_i++) { $ls_codcon=$la_valuaciones["codcon"][$li_i]; $ls_codval=$la_valuaciones["codval"][$li_i]; $ls_desobr=$la_valuaciones["desobr"][$li_i]; $ls_fecval=$io_fun->uf_convertirfecmostrar($la_valuaciones["fecha"][$li_i]); $ls_monto=$io_funsob->uf_convertir_numerocadena($la_valuaciones["montotval"][$li_i]); $ls_estval=$io_funsob->uf_convertir_numeroestado ($la_valuaciones["estval"][$li_i]); $la_object[$li_i][1]="<input type=checkbox name=chkb".$li_i." value=1 class=sin-borde>"; $la_object[$li_i][2]="<input name=txtcodval".$li_i." type=text id=txtcodval".$li_i." class=sin-borde style= text-align:center value='".$ls_codval."' size=5 readonly>"; $la_object[$li_i][3]="<input name=txtcodcon".$li_i." type=text id=txtcodcon".$li_i." class=sin-borde style= text-align:center value='".$ls_codcon."' size=5 readonly>"; $la_object[$li_i][4]="<textarea name=txtdesobr".$li_i."id=txtdesobr".$li_i." class=sin-borde cols=50 rows=2 text-align:center>".$ls_desobr."</textarea>"; $la_object[$li_i][5]="<input name=txtfecval".$li_i." type=text id=txtfecval".$li_i." class=sin-borde style= text-align:center value='".$ls_fecval."' size=8 readonly>"; $la_object[$li_i][6]="<input name=txtmonto".$li_i." type=text id=txtmonto".$li_i." class=sin-borde style= text-align:center value='".$ls_monto."' size=15 readonly>"; $la_object[$li_i][7]="<input name=txtestval".$li_i." type=text id=txtestval".$li_i." class=sin-borde style= text-align:center value='".$ls_estval."' size=13 readonly>"; } } elseif($ls_documento=="ANTICIPO" && $ls_operacion=="") { if($ls_campo=="") $ls_campobusqueda="an.codant"; else $ls_campobusqueda=$ls_campo;
{ $x = (count($la_disminucion, COUNT_RECURSIVE) / count($la_disminucion)) - 1; for($li_i=1;$li_i<=$x;$li_i++) { $ld_totaldisminucion=$ld_totaldisminucion+$la_disminucion["monto"][$li_i]; } } $ld_totalvariacion=$ld_totalaumento-$ld_totaldisminucion; $lb_valido=$io_contrato-> uf_select_contrato($ls_codcon,$la_contrato); if ($lb_valido) { $io_datastore->data=$la_contrato; $li_i=1; $ls_codcon=$io_datastore->getValue("codcon",$li_i); $ls_moncon=$io_funsob->uf_convertir_numerocadena($io_datastore->getValue("monto",$li_i)); } $io_anticipo->uf_calcular_montoanticipo($ls_codcon,$ld_montototalanticipoaux); $ld_montototalanticipo=$io_funsob->uf_convertir_numerocadena($ld_montototalanticipoaux); $ld_montocontrato=$la_contrato["monto"][1]; $ld_montocontratofinal=$ld_montocontrato+$ld_totalvariacion; $ld_montocontrato=$io_funsob->uf_convertir_numerocadena($ld_montocontrato); $ld_montocontratofinal=$io_funsob->uf_convertir_numerocadena($ld_montocontratofinal); $ld_monvar=$io_funsob->uf_convertir_numerocadena($ld_totalvariacion); $lb_valido=$io_obra->uf_select_obra($io_datastore->getValue("codobr",$li_i),$la_obra); if($lb_valido) $ls_desobr=$la_obra["desobr"][1]; } elseif($ls_operacion=="ue_guardar") {
$denominacion=str_replace("^"," ",$denominacion); $li_pos=true; while($li_pos!==false) { $li_pos=strpos($denominacion,'"'); if($li_pos) $denominacion=substr_replace($denominacion," ",$li_pos,1); } $disponible=$io_datastore->getValue("disponible",$li_i); $status=$io_datastore->getValue("status",$li_i); if($status=="S") { print "<tr class=celdas-blancas>"; print "<td>".$cuenta."</td>"; print "<td align=left>".$denominacion."</td>"; print "<td align=right>".$io_funcsob->uf_convertir_numerocadena($disponible)."</td>"; } else { print "<tr class=celdas-azules>"; print "<td><a href=\"javascript: aceptar('$cuenta','$denominacion','$codestpro1','$codestpro2','$codestpro3','$codestpro4','$codestpro5','$disponible');\">".$cuenta."</a></td>"; print "<td align=left>".$denominacion."</td>"; print "<td align=right>".$io_funcsob->uf_convertir_numerocadena($disponible)."</td>"; } print "</tr>"; } print "</table>"; } ?> </div>
print "<td><a href=javascript:ue_ordenar('s.codpar','ue_buscar');><font color=#FFFFFF>Código</font></a></td>"; print "<td><a href=javascript:ue_ordenar('s.codcovpar','ue_buscar');><font color=#FFFFFF>Código COVENIN</font></a></td>"; print "<td><a href=javascript:ue_ordenar('c.descatpar','ue_buscar');><font color=#FFFFFF>Categoría</font></a></td>"; print "<td><a href=javascript:ue_ordenar('s.despar','ue_buscar');><font color=#FFFFFF>Descripción</font></a></td>"; print "<td><a href=javascript:ue_ordenar('s.prepar','ue_buscar');><font color=#FFFFFF>Precio Unitario</font></a></td>"; print "<td><a href=javascript:ue_ordenar('u.nomuni','ue_buscar');><font color=#FFFFFF>Unidad</font></a></td>"; print "</tr>"; for($li_z=1;$li_z<=$li_totrow;$li_z++) { print "<tr class=celdas-blancas>"; $ls_codigo=$data["codpar"][$li_z]; $ls_nombre=$data["nompar"][$li_z]; $ls_descripcion=$data["despar"][$li_z]; $ls_unidad=$data["nomuni"][$li_z]; $ls_codunidad=$data["coduni"][$li_z]; $ls_prepar=$io_funsob->uf_convertir_numerocadena($data["prepar"][$li_z]); $ls_codcovpar=$data["codcovpar"][$li_z]; $ls_codcatpar=$data["codcatpar"][$li_z]; $ls_descatpar=$data["descatpar"][$li_z]; print "<td style=\"text-align:center \"><a href=\"javascript: aceptar('$ls_codigo','$ls_nombre','$ls_descripcion','$ls_codunidad','$ls_unidad','$ls_prepar','$ls_codcovpar','$ls_codcatpar','$ls_descatpar');\">".$ls_codigo."</a></td>"; print "<td style=\"text-align:center \">".$ls_codcovpar."</td>"; print "<td style=\"text-align:left \">".$ls_descatpar."</td>"; print "<td style=\"text-align:left \">".$ls_nombre."</td>"; print "<td style=\"text-align:right \">".$ls_prepar."</td>"; print "<td style=\"text-align:center \">".$ls_unidad."</td>"; print "</tr>"; } print "</table>"; } else {
{ $ls_documento=$_POST["cmbdocumento"]; $ls_operacion=$_POST["operacion"]; $ls_orden=$_POST["orden"]; $ls_campo=$_POST["campo"]; if($ls_documento=="CONTRATO" && $ls_operacion=="") { if($ls_campo=="") $ls_campo="c.codcon"; $lb_valido=$io_contabilizacion->uf_select_contrato($ls_campo,$ls_orden,$la_contratos,$li_filas); for($li_i=1;$li_i<=$li_filas;$li_i++) { $ls_codcon=$la_contratos["codcon"][$li_i]; $ls_desobr=$la_contratos["desobr"][$li_i]; $ls_feccon=$io_fun->uf_convertirfecmostrar($la_contratos["feccon"][$li_i]); $ls_monto=$io_funsob->uf_convertir_numerocadena($la_contratos["monto"][$li_i]); $ls_estcon=$io_funsob->uf_convertir_numeroestado ($la_contratos["estcon"][$li_i]); $la_object[$li_i][1]="<input type=checkbox name=chkb".$li_i." value=1 class=sin-borde>"; $la_object[$li_i][2]="<input name=txtcodcon".$li_i." type=text id=txtcodcon".$li_i." class=sin-borde style= text-align:center value='".$ls_codcon."' size=5 readonly>"; $la_object[$li_i][3]="<textarea name=txtdesobr".$li_i."id=txtdesobr".$li_i." class=sin-borde cols=50 rows=2 text-align:center>".$ls_desobr."</textarea>"; $la_object[$li_i][4]="<input name=txtfeccon".$li_i." type=text id=txtfeccon".$li_i." class=sin-borde style= text-align:center value='".$ls_feccon."' size=8 readonly>"; $la_object[$li_i][5]="<input name=txtmonto".$li_i." type=text id=txtmonto".$li_i." class=sin-borde style= text-align:center value='".$ls_monto."' size=15 readonly>"; $la_object[$li_i][6]="<input name=txtestcon".$li_i." type=text id=txtestcon".$li_i." class=sin-borde style= text-align:center value='".$ls_estcon."' size=13 readonly>"; } } elseif(($ls_documento=="AUMENTO" || $ls_documento=="DISMINUCION") && $ls_operacion=="") { if($ls_campo=="") $ls_campo="v.numvar"; if($ls_documento=="AUMENTO") $lb_valido=$io_contabilizacion->uf_select_variacion($ls_campo,$ls_orden,1,$la_variacion,$li_filas); else
$io_connect=$io_include->uf_conectar(); $io_funcdb=new class_funciones_db($io_connect); $la_empresa=$_SESSION["la_empresa"]; // $io_valuacion->uf_select_newcodigo($ls_codcon,&$ls_codval); require_once("../shared/class_folder/sigesp_c_generar_consecutivo.php"); $io_keygen= new sigesp_c_generar_consecutivo(); $ls_codval= $io_keygen->uf_generar_numero_nuevo("SOB","sob_valuacion","codval","SOBVAL",3,"","codcon",$ls_codcon); $ls_fecinival=""; $ls_fecfinval=""; $ls_obsval=""; $ls_fecha=date("d/m/Y"); $ls_estadoval="EMITIDO"; $lb_flag=$io_valuacion->uf_select_valanterior($ls_codcon,$ls_codval,$la_data); if($lb_flag) { $ls_amoant=$io_funcsob->uf_convertir_numerocadena($la_data["amoval"][1]); $ls_amotot=$io_funcsob->uf_convertir_numerocadena($la_data["amototval"][1]); $ls_hidamototbd=$la_data["amototval"][1]; $ls_amores=$io_funcsob->uf_convertir_numerocadena($la_data["amoresval"][1]); } else { $ls_hidamoant="0,00"; $ls_hidamotot="0,00"; $ls_hidamores="0,00"; } $ld_subtot=0; $li_filasretenciones=1; $la_objectretenciones[1][1]="<input name=txtcodret1 type=text id=txtcodret1 class=sin-borde style= text-align:center size=5 readonly>"; $la_objectretenciones[1][2]="<input name=txtdesret1 type=text id=txtdesret1 class=sin-borde style= text-align:left size=30 readonly>";
$la_tabla[11][2]="o.codemp=sc.codemp AND o.codsiscon=sc.codsiscon"; $la_tabla[11][3]="0"; $la_tabla[11][4]="1"; $ls_cadena=$io_reporte->uf_evalconsulta($la_salida,$li_index,$la_tabla,11,$la_parametro,13); $lb_valido=$io_reporte->uf_obtenerdata ($ls_cadena,$la_data); //print ($ls_cadena); if($lb_valido===true) { $la_titulos=$io_reporte->uf_titulos("OBRA",$la_data); $li_filas=(count($la_data, COUNT_RECURSIVE) / count($la_data)) - 1; if(array_key_exists("monto",$la_data)) { for($li_i=1;$li_i<=$li_filas;$li_i++) { $la_data["monto"][$li_i]=$io_funsob->uf_convertir_numerocadena($la_data["monto"][$li_i]); } } if(array_key_exists("feccreobr",$la_data)) { for($li_i=1;$li_i<=$li_filas;$li_i++) { $la_data["feccreobr"][$li_i]=$io_funcion->uf_convertirfecmostrar($la_data["feccreobr"][$li_i]); } } if(array_key_exists("fecfinobr",$la_data)) { for($li_i=1;$li_i<=$li_filas;$li_i++) { $la_data["fecfinobr"][$li_i]=$io_funcion->uf_convertirfecmostrar($la_data["fecfinobr"][$li_i]); }
$ls_civresact=""; $ls_civsup=""; $ls_civinsact=""; } } elseif($ls_operacion=="ue_cargarcontrato") { $lb_valido=$io_contrato->uf_select_contrato($ls_codcon,$la_data); if($lb_valido) { $ls_fecinicon=$io_function->uf_convertirfecmostrar($la_data["fecinicon"][1]); $ls_placon=$io_funsob->uf_convertir_decimalentero($la_data["placon"][1]); $ls_placonuni=$la_data["nomuni"][1]; $ls_contasi=$la_data["nompro"][1]; $ls_moncon=$io_funsob->uf_convertir_numerocadena($la_data["monto"][1]); $ls_estcon=$io_funsob->uf_convertir_numeroestado($la_data["estcon"][1]); $ls_codobr=$la_data["codobr"][1]; $ls_codcon=$la_data["codcon"][1]; $lb_valido=$io_obra->uf_select_obra($ls_codobr,$la_data); if($lb_valido) { $ls_desobr=$la_data["desobr"][1]; $ls_estobr=$la_data["desest"][1]; $ls_munobr=$la_data["denmun"][1]; $ls_comobr=$la_data["nomcom"][1]; $ls_parobr=$la_data["denpar"][1]; $ls_dirobr=$la_data["dirobr"][1]; } } }
//print"------------CADENA------------$ls_cadena"; $lb_valido=$io_reporte->uf_obtenerdata ($ls_cadena,$la_data); if($lb_valido===true) { $la_titulosobra=$io_reporte->uf_titulos("OBRA",$la_data); $la_titulospartida=$io_reporte->uf_titulos("ASIGNACION",$la_data); /*print "----------OBRA--------------"; print_r($la_titulosobra); print "----------PARTIDA--------------"; print_r($la_titulospartida);*/ $li_filas=(count($la_data, COUNT_RECURSIVE) / count($la_data)) - 1; if(array_key_exists("monto",$la_data)) { for($li_i=1;$li_i<=$li_filas;$li_i++) { $la_data["monto"][$li_i]=$io_funsob->uf_convertir_numerocadena($la_data["monto"][$li_i]); } } if(array_key_exists("monparasi",$la_data)) { for($li_i=1;$li_i<=$li_filas;$li_i++) { $la_data["monparasi"][$li_i]=$io_funsob->uf_convertir_numerocadena($la_data["monparasi"][$li_i]); } } if(array_key_exists("basimpasi",$la_data)) { for($li_i=1;$li_i<=$li_filas;$li_i++) { $la_data["basimpasi"][$li_i]=$io_funsob->uf_convertir_numerocadena($la_data["basimpasi"][$li_i]); }