function uf_print_cuentas_gasto_sep($as_numsol,$ai_total,$as_tipo,$as_tipsol) { ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Function: uf_print_cuentas_gasto // Access: private // Arguments: as_numsol --> numero de solicitud a buscar // ai_total ---> total de filas a imprimir de los cargos // as_tipo --> tipo de orden de compra si es de bienes ó de servicios // as_tipsol ---> tipo de la solicitud si es sep o soc // Description: Método que imprime el grid de las cuentas presupuestarias del Gasto // Creado Por: Ing. Yozelin Barragan // Fecha Creación: 12/05/2007 Fecha Última Modificación : ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// global $io_grid, $io_funciones_soc,$li_estmodest,$li_loncodestpro1,$li_loncodestpro2,$li_loncodestpro3, $li_loncodestpro4,$li_loncodestpro5; require_once("../../shared/class_folder/class_datastore.php"); $io_ds_cuentas=new class_datastore(); // Titulos del Grid $lo_title[1]="Estructura Presupuestaria"; $lo_title[2]="Cuenta"; $lo_title[3]="Monto"; //$lo_title[4]=""; $ls_codpro=""; // Recorrido del Grid de Cuentas Presupuestarias del opener for ($li=1;$li<=$ai_total;$li++) { $ls_estcla = trim($io_funciones_soc->uf_obtenervalor("estclapre".$li,"")); $ls_codestpro = trim($io_funciones_soc->uf_obtenervalor("txtprogramaticagas".$li,"")); $ls_codprogas = trim($io_funciones_soc->uf_obtenervalor("txtcodprogas".$li,"")); $ls_cuentagas = trim($io_funciones_soc->uf_obtenervalor("txtcuentagas".$li,"")); $ld_moncuegas = trim($io_funciones_soc->uf_obtenervalor("txtmoncuegas".$li,"0,00")); $ld_moncuegas = str_replace(".","",$ld_moncuegas); $ld_moncuegas = str_replace(",",".",$ld_moncuegas); if ($ls_cuentagas!="") { //$io_ds_cuentas->insertRow("programaticagas",$ls_programaticagas); $io_ds_cuentas->insertRow("programaticagas",$ls_codestpro); $io_ds_cuentas->insertRow("estcla",$ls_estcla); $io_ds_cuentas->insertRow("codprogas",$ls_codprogas); $io_ds_cuentas->insertRow("cuentagas",$ls_cuentagas); $io_ds_cuentas->insertRow("moncuegas",$ld_moncuegas); $ls_codestpro1 = substr($ls_codprogas,0,25); $ls_codestpro2 = substr($ls_codprogas,25,25); $ls_codestpro3 = substr($ls_codprogas,50,25); $ls_codestpro4 = substr($ls_codprogas,75,25); $ls_codestpro5 = substr($ls_codprogas,100,25); $io_ds_cuentas->insertRow("codestpro1",$ls_codestpro1); $io_ds_cuentas->insertRow("codestpro2",$ls_codestpro2); $io_ds_cuentas->insertRow("codestpro3",$ls_codestpro3); $io_ds_cuentas->insertRow("codestpro4",$ls_codestpro4); $io_ds_cuentas->insertRow("codestpro5",$ls_codestpro5); } } //buscamos la programatica y la cuenta gasto de la sep seleccionada require_once("sigesp_soc_c_registro_orden_compra.php"); $io_registro_orden=new sigesp_soc_c_registro_orden_compra("../../"); $io_dscuentas = $io_registro_orden->uf_load_cuentas($as_numsol,$as_tipo,$as_tipsol); if ($io_dscuentas!=false) { $li_totrow=$io_dscuentas->getRowCount("spg_cuenta"); for ($li_i=1;($li_i<=$li_totrow);$li_i++) { $li_monto = $io_dscuentas->data["total"][$li_i]; if ($li_monto>0) { $ls_cuentagas = trim($io_dscuentas->data["spg_cuenta"][$li_i]); $ld_moncuegas = $io_dscuentas->data["total"][$li_i]; $ls_estcla = $io_dscuentas->data["estcla"][$li_i]; $ls_codestpro1 = trim($io_dscuentas->data["codestpro1"][$li_i]); $ls_codestpro2 = trim($io_dscuentas->data["codestpro2"][$li_i]); $ls_codestpro3 = trim($io_dscuentas->data["codestpro3"][$li_i]); $ls_codestpro4 = trim($io_dscuentas->data["codestpro4"][$li_i]); $ls_codestpro5 = trim($io_dscuentas->data["codestpro5"][$li_i]); $ls_codestpro1com = trim($io_dscuentas->data["codestpro1"][$li_i]); $ls_codestpro2com = trim($io_dscuentas->data["codestpro2"][$li_i]); $ls_codestpro3com = trim($io_dscuentas->data["codestpro3"][$li_i]); $ls_codestpro4com = trim($io_dscuentas->data["codestpro4"][$li_i]); $ls_codestpro5com = trim($io_dscuentas->data["codestpro5"][$li_i]); $ls_codprogas = $ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5; $ls_codestpro1 = substr($ls_codestpro1,-$li_loncodestpro1); $ls_codestpro2 = substr($ls_codestpro2,-$li_loncodestpro2); $ls_codestpro3 = substr($ls_codestpro3,-$li_loncodestpro3); $ls_codestpro = $ls_codestpro1.'-'.$ls_codestpro2.'-'.$ls_codestpro3; if ($li_estmodest==2) { $ls_denestcla = $_SESSION["la_empresa"]["nomestpro1"]; $ls_codestpro4 = substr($ls_codestpro4,-$li_loncodestpro4); $ls_codestpro5 = substr($ls_codestpro5,-$li_loncodestpro5); $ls_codestpro = $ls_codestpro.'-'.$ls_codestpro4.'-'.$ls_codestpro5; } elseif($li_estmodest==1) { if ($ls_estcla=='P') { $ls_denestcla = 'Proyecto'; } elseif($ls_estcla=='A') { $ls_denestcla = 'Actividad'; } } $io_ds_cuentas->insertRow("programaticagas",$ls_codestpro); $io_ds_cuentas->insertRow("estcla",$ls_estcla); $io_ds_cuentas->insertRow("codprogas",$ls_codprogas); $io_ds_cuentas->insertRow("cuentagas",$ls_cuentagas); $io_ds_cuentas->insertRow("moncuegas",$ld_moncuegas); $io_ds_cuentas->insertRow("codestpro1",$ls_codestpro1com); $io_ds_cuentas->insertRow("codestpro2",$ls_codestpro2com); $io_ds_cuentas->insertRow("codestpro3",$ls_codestpro3com); $io_ds_cuentas->insertRow("codestpro4",$ls_codestpro4com); $io_ds_cuentas->insertRow("codestpro5",$ls_codestpro5com); } } } //Recorremos el datastore llenado antenriormente para vaciar la informacion al grid $io_ds_cuentas->group_by(array('0'=>'codestpro1','1'=>'codestpro2','2'=>'codestpro3','3'=>'codestpro4', '4'=>'codestpro5','5'=>'estcla','6'=>'cuentagas'),array('0'=>'moncuegas'),'moncuegas'); $li_rows=$io_ds_cuentas->getRowCount('codestpro1'); for($li_fila=1;$li_fila<=$li_rows;$li_fila++) { $ls_programaticagas = trim($io_ds_cuentas->getValue('programaticagas',$li_fila)); $ls_codprogas = $io_ds_cuentas->getValue('codprogas',$li_fila); $ls_cuentagas = $io_ds_cuentas->getValue('cuentagas',$li_fila); $ld_moncuegas = number_format($io_ds_cuentas->getValue('moncuegas',$li_fila),2,",","."); $ls_estcla = $io_ds_cuentas->getValue('estcla',$li_fila); $lo_object[$li_fila][1]="<input name=txtprogramaticagas".$li_fila." id=txtprogramaticagas".$li_fila." type=text class=sin-borde style=text-align:center size=80 value='".$ls_programaticagas."' readonly title='".$ls_programaticagas.' - '.$ls_denestcla."'>"; $lo_object[$li_fila][2]="<input name=txtcuentagas".$li_fila." id=txtcuentagas".$li_fila." type=text class=sin-borde style=text-align:center size=30 value='".$ls_cuentagas."' readonly>"; $lo_object[$li_fila][3]="<input name=txtmoncuegas".$li_fila." id=txtmoncuegas".$li_fila." type=text class=sin-borde style=text-align:right size=30 onKeyPress=return(ue_formatonumero(this,'.',',',event)); value='".$ld_moncuegas."' >". "<input name=txtcodprogas".$li_fila." id=txtcodprogas".$li_fila." type=hidden value='".$ls_codprogas."'><input name=estclapre".$li_fila." id=estclapre".$li_fila." type=hidden value='".$ls_estcla."'>"; // $lo_object[$li_fila][4]="<a href=javascript:ue_delete_cuenta_gasto('".$li_fila."','".$as_tipo."');><img src=../shared/imagebank/tools15/eliminar.gif title=Eliminar width=15 height=10 border=0></a>". } $lo_object[$li_fila][1]="<input name=txtprogramaticagas".$li_fila." type=text id=txtprogramaticagas".$li_fila." class=sin-borde style=text-align:center size=80 value='' readonly>"; $lo_object[$li_fila][2]="<input name=txtcuentagas".$li_fila." type=text id=txtcuentagas".$li_fila." class=sin-borde style=text-align:center size=30 value='' readonly>"; $lo_object[$li_fila][3]="<input name=txtmoncuegas".$li_fila." type=text id=txtmoncuegas".$li_fila." class=sin-borde style=text-align:right size=30 value='' readonly>"; $lo_object[$li_fila][4]="<input name=txtcodprogas".$li_fila." type=hidden id=txtcodprogas".$li_fila." value=''><input name=estclapre".$li_fila." id=estclapre".$li_fila." type=hidden value=''>"; print "<p> </p>"; print " <table width='840' border='0' align='center' cellpadding='0' cellspacing='0'"; print " <tr>"; //print " <td align='left'><a href='javascript:ue_catalogo_cuentas_spg('".$li_fila."');'><img src='../shared/imagebank/tools/nuevo.gif' width='20' height='20' border='0' title='Agregar Cuenta'>Agregar Cuenta</a> </td>"; print " </tr>"; print " </table>"; $io_grid->makegrid($li_fila,$lo_title,$lo_object,840,"Cuentas","gridcuentas"); unset($io_dscuentas,$io_ds_cuentas,$io_registro_orden); }// end function uf_print_cuentas_gasto_sep