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