"; print "location.href='../sigesp_conexion.php'"; print ""; } ?> Elaboración de Punto de Cuenta uf_sss_load_permisossigesp(); } else { $ls_permisos= $_POST["permisos"]; $la_permisos["leer"]= $_POST["leer"]; $la_permisos["incluir"]= $_POST["incluir"]; $la_permisos["cambiar"]= $_POST["cambiar"]; $la_permisos["eliminar"]= $_POST["eliminar"]; $la_permisos["imprimir"]= $_POST["imprimir"]; $la_permisos["anular"]= $_POST["anular"]; $la_permisos["ejecutar"]= $_POST["ejecutar"]; } } else { $la_permisos["leer"]=""; $la_permisos["incluir"]=""; $la_permisos["cambiar"]=""; $la_permisos["eliminar"]=""; $la_permisos["imprimir"]=""; $la_permisos["anular"]=""; $la_permisos["ejecutar"]=""; $ls_permisos=$io_seguridad->uf_sss_load_permisos($ls_empresa,$ls_logusr,$ls_sistema,$ls_ventanas,$la_permisos); } ////////////////////////////////////////////// SEGURIDAD ///////////////////////////////////////////// require_once("../shared/class_folder/class_sql.php"); require_once("class_folder/sigesp_sob_c_contrato.php"); $io_contrato=new sigesp_sob_c_contrato(); require_once("../shared/class_folder/class_mensajes.php"); $io_msg=new class_mensajes(); require_once("../shared/class_folder/class_funciones.php"); $io_function=new class_funciones(); require_once ("class_folder/sigesp_sob_c_funciones_sob.php"); $io_funsob= new sigesp_sob_c_funciones_sob(); require_once("class_folder/sigesp_sob_class_obra.php"); $io_obra=new sigesp_sob_class_obra(); require_once("../shared/class_folder/evaluate_formula.php"); $io_formula=new evaluate_formula(); require_once("../shared/class_folder/class_datastore.php"); $io_datastore=new class_datastore(); require_once("../shared/class_folder/grid_param.php"); $io_grid=new grid_param(); require_once("class_folder/sigesp_sob_c_puntodecuenta.php"); $io_puntodecuenta=new sigesp_sob_c_puntodecuenta(); $ls_titulo="Cuentas de Gastos"; $li_ancho=600; $ls_nametable="grid"; $la_columna[1]="Monto"; $la_columna[2]="I.V.A."; $la_columna[3]="Código Presupuestario"; $la_columna[4]="Cuenta"; $la_columna[5]="Monto"; $la_columna[6]="Edición"; $ls_titulocargos="Cargos"; $li_anchocargos=600; $ls_nametable="grid3"; $la_columcargos[1]="Código"; $la_columcargos[2]="Denominación"; $la_columcargos[3]="Monto"; $la_columcargos[4]="Edición"; function uf_limpiar() { global $ls_operacion, $ls_datosobra,$ls_codobr,$ls_monobr,$ls_montasi,$ls_feciniobr,$ls_fecfinobr,$ls_estobr,$ls_parobr, $ls_munobr,$ls_comobr,$ls_codpuncue,$ls_estpuncue,$ls_fecpuncue,$ls_despuncue,$ls_rempuncue,$ls_asupuncue,$ls_codpropuncue, $ls_nompropuncue,$ls_replegcon,$ls_lapejepuncue,$ls_monnetpuncue,$ls_monivapuncue,$ls_monbrupuncue,$ls_porantpuncue, $ls_monantpuncue,$ls_basimp,$ls_obspuncue,$li_filas,$li_filaeliminar,$la_objeto,$li_filascargos,$li_removercargo,$la_objectcargos,$ls_porivapuncue,$ls_codunidad; $ls_operacion=""; $ls_datosobra="OCULTAR"; $ls_monobr=""; $ls_montasi=""; $ls_feciniobr=""; $ls_fecfinobr=""; $ls_estobr=""; $ls_parobr=""; $ls_munobr=""; $ls_comobr=""; $ls_codpuncue=""; $ls_estpuncue=""; $ls_fecpuncue=""; $ls_despuncue=""; $ls_rempuncue=""; $ls_asupuncue=""; $ls_codpropuncue=""; $ls_nompropuncue=""; $ls_replegcon=""; $ls_lapejepuncue="0,00"; $ls_monnetpuncue="0,00"; $ls_monivapuncue="0,00"; $ls_monbrupuncue="0,00"; $ls_porantpuncue="0,00"; $ls_monantpuncue="0,00"; $ls_basimp="0,00"; $ls_obspuncue=""; $ls_codunidad=""; $li_filas=1; $li_filaeliminar=0; $ls_porivapuncue="0,00"; $la_objeto=array(); $la_objeto[1][1]="";//"  "; $la_objeto[1][2]="";//" "; $la_objeto[1][3]=""; $la_objeto[1][4]=""; $la_objeto[1][5]=""; $la_objeto[1][6]=""; $li_filascargos=1; $la_objectcargos[1][1]=""; $la_objectcargos[1][2]=""; $la_objectcargos[1][3]=""; $la_objectcargos[1][4]=""; } if(array_key_exists("operacion",$_POST)) { $ls_operacion=$_POST["operacion"]; $li_filas=$_POST["hidfilas"]; if($ls_operacion!="ue_cargarcuenta" && $ls_operacion!="ue_removercuenta") { for($li_i=1;$li_i<$li_filas;$li_i++) { $ls_codigo=$_POST["txtcodcue".$li_i]; $ls_codest1=$_POST["codest1".$li_i]; $ls_codest2=$_POST["codest2".$li_i]; $ls_codest3=$_POST["codest3".$li_i]; $ls_codest4=$_POST["codest4".$li_i]; $ls_codest5=$_POST["codest5".$li_i]; $ls_disponible=$_POST["disponible".$li_i]; $ls_nombre=$_POST["txtnomcue".$li_i]; $ls_moncar=$_POST["txtmoncue".$li_i]; if(array_key_exists("concepto".$li_i."",$_POST)) { $ls_chk=$_POST["concepto".$li_i]; if($ls_chk=="monto") { $la_objeto[$li_i][1]="  "; $la_objeto[$li_i][2]=" "; } else { $la_objeto[$li_i][1]="  "; $la_objeto[$li_i][2]=" "; } } else { $la_objeto[$li_i][1]="  "; $la_objeto[$li_i][2]=" "; } $la_objeto[$li_i][3]=""; $la_objeto[$li_i][4]=""; $la_objeto[$li_i][5]=""; $la_objeto[$li_i][6]="
Aceptar
"; } $la_objeto[$li_filas][1]=""; $la_objeto[$li_filas][2]=""; $la_objeto[$li_filas][3]=""; $la_objeto[$li_filas][4]=""; $la_objeto[$li_filas][5]=""; $la_objeto[$li_filas][6]=""; } if ($ls_operacion != "ue_cargarcargo" && $ls_operacion != "ue_removercargo") { $li_filascargos=$_POST["filascargos"]; for($li_i=1;$li_i<$li_filascargos;$li_i++) { $ls_codigo=$_POST["txtcodcar".$li_i]; $ls_nombre=$_POST["txtnomcar".$li_i]; $ls_moncue=$_POST["txtmoncar".$li_i]; $ls_formula=$_POST["formula".$li_i]; $ls_prog=$_POST["prog".$li_i]; $ls_spgcuenta=$_POST["spgcuenta".$li_i]; $la_objectcargos[$li_i][1]=""; $la_objectcargos[$li_i][2]=""; $la_objectcargos[$li_i][3]=""; $la_objectcargos[$li_i][4]="Aceptar"; } $la_objectcargos[$li_filascargos][1]=""; $la_objectcargos[$li_filascargos][2]=""; $la_objectcargos[$li_filascargos][3]=""; $la_objectcargos[$li_filascargos][4]=""; } } else { uf_limpiar(); $ls_codobr=""; $ls_operacion=""; } if (array_key_exists("hiddatosobra",$_POST)){$ls_datosobra=$_POST["hiddatosobra"]; } if (array_key_exists("txtcodobr",$_POST)){$ls_codobr=$_POST["txtcodobr"]; } if (array_key_exists("monobr",$_POST)){$ls_monobr=$_POST["monobr"]; } if (array_key_exists("txtfeciniobr",$_POST)){$ls_feciniobr=$_POST["txtfeciniobr"]; } if (array_key_exists("txtfecfinobr",$_POST)){$ls_fecfinobr=$_POST["txtfecfinobr"]; } if (array_key_exists("txtestobr",$_POST)){$ls_estobr=$_POST["txtestobr"]; } if (array_key_exists("txtparobr",$_POST)){$ls_parobr=$_POST["txtparobr"]; } if (array_key_exists("txtmunobr",$_POST)){$ls_munobr=$_POST["txtmunobr"]; } if (array_key_exists("txtnomcom",$_POST)){$ls_comobr=$_POST["txtnomcom"]; } if (array_key_exists("txtcodpuncue",$_POST)){$ls_codpuncue=$_POST["txtcodpuncue"]; } if (array_key_exists("txtestpuncue",$_POST)){$ls_estpuncue=$_POST["txtestpuncue"]; } if (array_key_exists("txtfecpuncue",$_POST)){$ls_fecpuncue=$_POST["txtfecpuncue"]; } if (array_key_exists("txtdespuncue",$_POST)){$ls_despuncue=$_POST["txtdespuncue"]; } if (array_key_exists("txtrempuncue",$_POST)){$ls_rempuncue=$_POST["txtrempuncue"]; } if (array_key_exists("txtasupuncue",$_POST)){$ls_asupuncue=$_POST["txtasupuncue"]; } if (array_key_exists("txtcodpropuncue",$_POST)){$ls_codpropuncue=$_POST["txtcodpropuncue"]; } if (array_key_exists("txtnompropuncue",$_POST)){$ls_nompropuncue=$_POST["txtnompropuncue"]; } if (array_key_exists("txtreplegcon",$_POST)){$ls_replegcon=$_POST["txtreplegcon"]; } if (array_key_exists("txtlapejepuncue",$_POST)){$ls_lapejepuncue=$_POST["txtlapejepuncue"]; } if (array_key_exists("txtmonnetpuncue",$_POST)){$ls_monnetpuncue=$_POST["txtmonnetpuncue"]; } if (array_key_exists("txtporivapuncue",$_POST)){$ls_porivapuncue=$_POST["txtporivapuncue"]; } if (array_key_exists("txtmonivapuncue",$_POST)){$ls_monivapuncue=$_POST["txtmonivapuncue"]; } if (array_key_exists("txtmonbrupuncue",$_POST)){$ls_monbrupuncue=$_POST["txtmonbrupuncue"]; } if (array_key_exists("txtporantpuncue",$_POST)){$ls_porantpuncue=$_POST["txtporantpuncue"]; } if (array_key_exists("txtmonantpuncue",$_POST)){$ls_monantpuncue=$_POST["txtmonantpuncue"]; } if (array_key_exists("txtobspuncue",$_POST)){$ls_obspuncue=$_POST["txtobspuncue"]; } if (array_key_exists("hidfilas",$_POST)){$li_filas=$_POST["hidfilas"]; } if (array_key_exists("hidfilaeliminar",$_POST)){$li_filaeliminar=$_POST["hidfilaeliminar"]; } if (array_key_exists("cmblapejeunipuncue",$_POST)){$ls_codunidad=$_POST["cmblapejeunipuncue"]; } if (array_key_exists("txtmontotobr",$_POST)){$ls_monobr=$_POST["txtmontotobr"]; } if (array_key_exists("txtbasimp",$_POST)){$ls_basimp=$_POST["txtbasimp"]; } ////////////////////////////////Operaciones de Actualizacion////////////////////////////////////// if($ls_operacion=="ue_nuevo")//Abre una ficha de obra nueva { uf_limpiar(); $ls_codpuncue=$io_puntodecuenta->uf_generar_codigo($ls_codobr); } elseif($ls_operacion=="ue_guardar") { $lb_validoselect=$io_puntodecuenta->uf_select_puntodecuenta($ls_codpuncue,$ls_codobr,$la_data); if($lb_validoselect===0) { $lb_validoguardar=$io_puntodecuenta->uf_guardar_puntodecuenta($ls_codobr ,$ls_codpuncue ,$ls_codpropuncue,$ls_codunidad,$ls_despuncue,$ls_rempuncue, $ls_asupuncue,$ls_lapejepuncue,$ls_monnetpuncue,$ls_monivapuncue, $ls_monbrupuncue,$ls_monantpuncue,$ls_porantpuncue,$ls_obspuncue,$ls_fecpuncue,$ls_basimp,$la_seguridad); if($lb_validoguardar) { $lb_validocuentas=true; for($li_i=1;$li_i<$li_filas;$li_i++) { $ls_codest1=$_POST["codest1".$li_i]; $ls_codest2=$_POST["codest2".$li_i]; $ls_codest3=$_POST["codest3".$li_i]; $ls_codest4=$_POST["codest4".$li_i]; $ls_codest5=$_POST["codest5".$li_i]; $ls_moncar=$_POST["txtmoncue".$li_i]; $ls_nombre=$_POST["txtnomcue".$li_i]; if(array_key_exists("concepto".$li_i."",$_POST)) { $ls_chk=$_POST["concepto".$li_i]; if($ls_chk=="monto") { $ls_concepto=1; } else { $ls_concepto=2; } } $lb_valido=$io_puntodecuenta->uf_guardar_cuentas($ls_codpuncue,$ls_codobr,$ls_codest5,$ls_codest4,$ls_codest3,$ls_codest2,$ls_codest1,$ls_nombre,$ls_concepto,$ls_moncar,$la_seguridad) ; if(!$lb_valido) $lb_validocuentas=false; } /************ GUARDANDO CARGOS **************/ $la_cargos["codcar"][1]=""; $la_cargos["moncar"][1]=""; $la_cargos["formula"][1]=""; $la_cargos["codestpro"][1]=""; $la_cargos["spgcuenta"][1]=""; for ($li_i=1;$li_i<$li_filascargos;$li_i++) { $la_cargos["codcar"][$li_i]=$_POST["txtcodcar".$li_i]; $la_cargos["moncar"][$li_i]=$_POST["txtmoncar".$li_i]; $la_cargos["formula"][$li_i]=$_POST["formula".$li_i]; $la_cargos["codestpro"][$li_i]=$_POST["prog".$li_i]; $la_cargos["spgcuenta"][$li_i]=$_POST["spgcuenta".$li_i]; } $io_puntodecuenta->uf_update_dtcargos($ls_codpuncue,$ls_basimp,$la_cargos,$li_filascargos,$la_seguridad); /***********************************************/ if($lb_validocuentas || $lb_validoguardar) { $lb_validoestado=$io_puntodecuenta->uf_update_estado($ls_codpuncue,$ls_codobr,1,$la_seguridad); if($lb_validoestado) { $io_msg->message("Registro Incluido!!!"); uf_limpiar(); $ls_codobr=""; } } } $ls_imprimir=$_POST["hidimprimir"]; if($ls_imprimir=="IMPRIMIR") { $ls_documento="PUNTODECUENTA"; $ls_pagina="sigesp_sob_d_filechooser.php?codpuncue=".$ls_codpuncue."&codobr=".$ls_codobr."&documento=".$ls_documento; print ""; } } elseif($lb_validoselect!==false)//En caso de que se una actualizacion { $lb_validoupdate=$io_puntodecuenta->uf_update_puntodecuenta($ls_codobr,$ls_codpuncue ,$ls_codpropuncue,$ls_codunidad,$ls_despuncue,$ls_rempuncue, $ls_asupuncue,$ls_lapejepuncue,$ls_monnetpuncue,$ls_monivapuncue, $ls_monbrupuncue,$ls_monantpuncue,$ls_porantpuncue,$ls_obspuncue,$ls_fecpuncue,$ls_basimp,$la_seguridad); if($lb_validoupdate) { $la_cuentas=array(); $lb_validocuentas=true; for($li_i=1;$li_i<$li_filas;$li_i++) { $la_cuentas["codestpro1"][$li_i]=$_POST["codest1".$li_i]; $la_cuentas["codestpro2"][$li_i]=$_POST["codest2".$li_i]; $la_cuentas["codestpro3"][$li_i]=$_POST["codest3".$li_i]; $la_cuentas["codestpro4"][$li_i]=$_POST["codest4".$li_i]; $la_cuentas["codestpro5"][$li_i]=$_POST["codest5".$li_i]; $la_cuentas["monto"][$li_i]=$_POST["txtmoncue".$li_i]; $la_cuentas["spg_cuenta"][$li_i]=$_POST["txtnomcue".$li_i]; if(array_key_exists("concepto".$li_i."",$_POST)) { $ls_chk=$_POST["concepto".$li_i]; if($ls_chk=="monto") { $la_cuentas["concuepuncue"][$li_i]=1; } else { $la_cuentas["concuepuncue"][$li_i]=2; } } } $lb_valido=$io_puntodecuenta->uf_update_cuentas($ls_codpuncue,$ls_codobr,$la_cuentas,$li_filas,$la_seguridad); /************ GUARDANDO CARGOS **************/ $la_cargos["codcar"][1]=""; $la_cargos["moncar"][1]=""; $la_cargos["formula"][1]=""; $la_cargos["codestpro"][1]=""; $la_cargos["spgcuenta"][1]=""; for ($li_i=1;$li_i<$li_filascargos;$li_i++) { $la_cargos["codcar"][$li_i]=$_POST["txtcodcar".$li_i]; $la_cargos["moncar"][$li_i]=$_POST["txtmoncar".$li_i]; $la_cargos["formula"][$li_i]=$_POST["formula".$li_i]; $la_cargos["codestpro"][$li_i]=$_POST["prog".$li_i]; $la_cargos["spgcuenta"][$li_i]=$_POST["spgcuenta".$li_i]; } $io_puntodecuenta->uf_update_dtcargos($ls_codpuncue,$ls_basimp,$la_cargos,$li_filascargos,$la_seguridad); /***********************************************/ } if($lb_valido || $lb_validoupdate ) { $io_msg->message("Registro Actualizado!!!"); $ls_codobr=""; uf_limpiar(); } } } elseif($ls_operacion=="ue_eliminar")///Esto es una eliminacion lógica! { $lb_valido=$io_puntodecuenta->uf_update_estado($ls_codpuncue,$ls_codobr,3,""); if($lb_valido!=false) { $io_msg->message("Registro Anulado!!!"); $ls_codobr=""; uf_limpiar(); } } elseif($ls_operacion=="ue_cargarobra") { $ls_dataobra=array(); $lb_valido=$io_obra->uf_select_obra($ls_codobr,$la_dataobra); if($lb_valido) { $ls_monobr=$io_funsob->uf_convertir_numerocadena($la_dataobra["monto"][1]); $ls_feciniobr=$io_function->uf_convertirfecmostrar($la_dataobra["feciniobr"][1]); $ls_fecfinobr=$io_function->uf_convertirfecmostrar($la_dataobra["fecfinobr"][1]); $ls_estobr=$la_dataobra["desest"][1]; $ls_parobr=$la_dataobra["denpar"][1]; $ls_munobr=$la_dataobra["denmun"][1]; $ls_comobr=$la_dataobra["nomcom"][1]; } } elseif($ls_operacion=="ue_cargarcuenta") { $li_filas=$li_filas+1; for($li_i=1;$li_i<$li_filas;$li_i++) { $ls_codigo=$_POST["txtcodcue".$li_i]; $ls_codest1=$_POST["codest1".$li_i]; $ls_codest2=$_POST["codest2".$li_i]; $ls_codest3=$_POST["codest3".$li_i]; $ls_codest4=$_POST["codest4".$li_i]; $ls_codest5=$_POST["codest5".$li_i]; $ls_disponible=$_POST["disponible".$li_i]; $ls_nombre=$_POST["txtnomcue".$li_i]; $ls_moncar=$_POST["txtmoncue".$li_i]; if(array_key_exists("concepto".$li_i."",$_POST)) { $ls_chk=$_POST["concepto".$li_i]; if($ls_chk=="monto") { $la_objeto[$li_i][1]="  "; $la_objeto[$li_i][2]=" "; } else { $la_objeto[$li_i][1]="  "; $la_objeto[$li_i][2]=" "; } } else { $la_objeto[$li_i][1]="  "; $la_objeto[$li_i][2]=" "; } $la_objeto[$li_i][3]=""; $la_objeto[$li_i][4]=""; $la_objeto[$li_i][5]=""; $la_objeto[$li_i][6]="
Aceptar
"; } $la_objeto[$li_filas][1]=""; $la_objeto[$li_filas][2]=""; $la_objeto[$li_filas][3]=""; $la_objeto[$li_filas][4]=""; $la_objeto[$li_filas][5]=""; $la_objeto[$li_filas][6]=""; } elseif($ls_operacion=="ue_removercuenta") { $li_filas=$li_filas-1; $li_removerfila=$_POST["hidfilaeliminar"]; $li_temp=0; for($li_i=1;$li_i<=$li_filas;$li_i++) { if($li_i!=$li_removerfila) { $li_temp=$li_temp+1; $ls_codigo=$_POST["txtcodcue".$li_i]; $ls_codest1=$_POST["codest1".$li_i]; $ls_codest2=$_POST["codest2".$li_i]; $ls_codest3=$_POST["codest3".$li_i]; $ls_codest4=$_POST["codest4".$li_i]; $ls_codest5=$_POST["codest5".$li_i]; $ls_disponible=$_POST["disponible".$li_i]; $ls_nombre=$_POST["txtnomcue".$li_i]; $ls_moncar=$_POST["txtmoncue".$li_i]; if(array_key_exists("concepto".$li_i."",$_POST)) { $ls_chk=$_POST["concepto".$li_i]; if($ls_chk=="monto") { $la_objeto[$li_temp][1]="  "; $la_objeto[$li_temp][2]=" "; } else { $la_objeto[$li_temp][1]="  "; $la_objeto[$li_temp][2]=" "; } } else { $la_objeto[$li_temp][1]="  "; $la_objeto[$li_temp][2]=" "; } $la_objeto[$li_temp][3]=""; $la_objeto[$li_temp][4]=""; $la_objeto[$li_temp][5]=""; $la_objeto[$li_temp][6]="
Aceptar
"; } } $la_objeto[$li_filas][1]=""; $la_objeto[$li_filas][2]=""; $la_objeto[$li_filas][3]=""; $la_objeto[$li_filas][4]=""; $la_objeto[$li_filas][5]=""; $la_objeto[$li_filas][6]=""; } /*************************************************INSERTAR CAMPO EN GRID CARGOS**************************************************************************************************************************/ elseif($ls_operacion=="ue_cargarcargo") { $ls_baseimp=$_POST["txtbasimp"]; $ls_montpar=$_POST["txtmonnetpuncue"]; $ld_baseimpo=$io_funsob->uf_convertir_cadenanumero($ls_baseimp); $ld_montopar=$io_funsob->uf_convertir_cadenanumero($ls_montpar); $ld_montotasi=0; $li_filascargos=$_POST["filascargos"]; $li_filascargos=$li_filascargos+1; for($li_i=1;$li_i<$li_filascargos;$li_i++) { $ls_codigo=$_POST["txtcodcar".$li_i]; $ls_nombre=$_POST["txtnomcar".$li_i]; $ls_formula=$_POST["formula".$li_i]; $ls_prog=$_POST["prog".$li_i]; $ls_spgcuenta=$_POST["spgcuenta".$li_i]; $ld_result=$io_formula->uf_evaluar($ls_formula,$ld_baseimpo); $ld_montotasi=$ld_montotasi+$ld_result; $la_objectcargos[$li_i][1]=""; $la_objectcargos[$li_i][2]=""; $la_objectcargos[$li_i][3]=""; $la_objectcargos[$li_i][4]="Aceptar"; } $la_objectcargos[$li_filascargos][1]=""; $la_objectcargos[$li_filascargos][2]=""; $la_objectcargos[$li_filascargos][3]=""; $la_objectcargos[$li_filascargos][4]=""; $ld_subtotal=$ld_montopar-$ld_baseimpo; $ld_resultado=$ld_baseimpo+$ld_montotasi+$ld_subtotal; $ls_monivapuncue=$io_funsob->uf_convertir_numerocadena($ld_montotasi); $ls_monbrupuncue=$io_funsob->uf_convertir_numerocadena($ld_resultado); } /***************************************************************************************************************************************************************************/ /*******************************************************REMOVER CAMPO EN GRID CARGOS********************************************************************************************************************/ elseif($ls_operacion=="ue_removercargo") { $ls_baseimp=$_POST["txtbasimp"]; $ls_montpar=$_POST["txtmonnetpuncue"]; $ld_baseimpo=$io_funsob->uf_convertir_cadenanumero($ls_baseimp); $ld_montopar=$io_funsob->uf_convertir_cadenanumero($ls_montpar); $ld_montotasi=0; $li_filascargos=$_POST["filascargos"]; $li_filascargos=$li_filascargos-1; $li_removercargo=$_POST["hidremovercargo"]; $li_temp=0; for($li_i=1;$li_i<=$li_filascargos;$li_i++) { if($li_i!=$li_removercargo) { $li_temp=$li_temp+1; $ls_codigo=$_POST["txtcodcar".$li_i]; $ls_nombre=$_POST["txtnomcar".$li_i]; $ls_monto=$_POST["txtmoncar".$li_i]; $ls_formula=$_POST["formula".$li_i]; $ls_prog=$_POST["prog".$li_i]; $ls_spgcuenta=$_POST["spgcuenta".$li_i]; $la_objectcargos[$li_temp][1]=""; $la_objectcargos[$li_temp][2]=""; $la_objectcargos[$li_temp][3]=""; $la_objectcargos[$li_temp][4]="Aceptar"; $ld_result=$io_formula->uf_evaluar($ls_formula,$ld_baseimpo); $ld_montotasi=$ld_montotasi+$ld_result; } } $la_objectcargos[$li_filascargos][1]=""; $la_objectcargos[$li_filascargos][2]=""; $la_objectcargos[$li_filascargos][3]=""; $la_objectcargos[$li_filascargos][4]=""; $ld_subtotal=$ld_montopar-$ld_baseimpo; $ld_resultado=$ld_baseimpo+$ld_montotasi+$ld_subtotal; $ls_monivapuncue=$io_funsob->uf_convertir_numerocadena($ld_montotasi); $ls_monbrupuncue=$io_funsob->uf_convertir_numerocadena($ld_resultado); } /***************************************************************************************************************************************************************************/ elseif($ls_operacion=="ue_cargarpuntodecuenta") { //$ls_codunidad=$_POST["hidlapejeunipuncue"]; $lb_valido=$io_puntodecuenta->uf_select_cuentas($ls_codpuncue,$ls_codobr,$la_datacuentas,$li_rows); if($lb_valido) { $li_filas=$li_rows+1; for($li_i=1;$li_i<$li_filas;$li_i++) { $ls_codest1=$io_funsob->uf_convertir_cadenanumero($la_datacuentas["codestpro1"][$li_i]); $ls_codest2=$io_funsob->uf_convertir_cadenanumero($la_datacuentas["codestpro2"][$li_i]); $ls_codest3=$io_funsob->uf_convertir_cadenanumero($la_datacuentas["codestpro3"][$li_i]); $ls_codest4=$io_funsob->uf_convertir_cadenanumero($la_datacuentas["codestpro4"][$li_i]); $ls_codest5=$io_funsob->uf_convertir_cadenanumero($la_datacuentas["codestpro5"][$li_i]); $ls_codigo=$ls_codest1.$ls_codest2.$ls_codest3.$ls_codest4.$ls_codest5; $ls_nombre=$la_datacuentas["spg_cuenta"][$li_i]; $ls_moncar=$io_funsob->uf_convertir_numerocadena($la_datacuentas["monto"][$li_i]); $ls_disponible=$la_datacuentas["disponible"][$li_i]; $ls_concepto=$la_datacuentas["concuepuncue"][$li_i]; if($ls_concepto==1) { $la_objeto[$li_i][1]="  "; $la_objeto[$li_i][2]=" "; } else { $la_objeto[$li_i][1]="  "; $la_objeto[$li_i][2]=" "; } $la_objeto[$li_i][3]=""; $la_objeto[$li_i][4]=""; $la_objeto[$li_i][5]=""; $la_objeto[$li_i][6]="
Aceptar
"; } $la_objeto[$li_filas][1]=""; $la_objeto[$li_filas][2]=""; $la_objeto[$li_filas][3]=""; $la_objeto[$li_filas][4]=""; $la_objeto[$li_filas][5]=""; $la_objeto[$li_filas][6]=""; } /*************************CARGANDO CARGOS***********************/ //OJOOO FALTA CTSSPG DEL CARGO!!!!! $lb_validoca=$io_puntodecuenta-> uf_select_cargos($ls_codpuncue,$la_cargos,$li_totalfilas); if($lb_validoca) { $io_datastore->data=$la_cargos; $li_filascargos=$io_datastore->getRowCount("codcar"); for($li_i=1;$li_i<=$li_filascargos;$li_i++) { $ls_codigo=$io_datastore->getValue("codcar",$li_i); $ls_nombre=$io_datastore->getValue("dencar",$li_i); $ls_moncar=$io_datastore->getValue("monto",$li_i); $ls_formula=$io_datastore->getValue("formula",$li_i); $la_objectcargos[$li_i][1]=""; $la_objectcargos[$li_i][2]=""; $la_objectcargos[$li_i][3]=""; $la_objectcargos[$li_i][4]="
Aceptar
"; } $li_filascargos=$li_filascargos+1; $la_objectcargos[$li_filascargos][1]=""; $la_objectcargos[$li_filascargos][2]=""; $la_objectcargos[$li_filascargos][3]=""; $la_objectcargos[$li_filascargos][4]=""; } } elseif($ls_operacion=="ue_imprimir") { $lb_valido=$io_puntodecuenta->uf_select_puntodecuenta($ls_codpuncue,$ls_codobr,$la_data); if($lb_valido===true) { $ls_documento="PUNTODECUENTA"; $ls_pagina="sigesp_sob_d_filechooser.php?codpuncue=".$ls_codpuncue."&codobr=".$ls_codobr."&documento=".$ls_documento; print ""; } elseif($lb_valido===0) { print""; } } ?>
 
NuevoGrabarBuscarImprimirEliminarSalir

 

"); print(""); print(""); print(""); print(""); print(""); print(""); print(""); } else { print(""); } ////////////////////////////////////////////// SEGURIDAD ///////////////////////////////////////////// ?>
  Datos de la Obra  
   
Código  
 
Monto Total  
Fecha Inicio Fecha Fin
Estado Municipio
Parroquia Comunidad
 
   
Datos del Punto de Cuenta
 
Código
 
Fecha
  
 
Presentado a
 
Presentado por
  
 
Asunto
  
 
Contratista
  
 
Representante Legal
  
 
Lapso de Ejecución
uf_llenarcombo_unidadtiempo($la_unidades); if($lb_valido) { $io_datastore->data=$la_unidades; $li_totalfilas=$io_datastore->getRowCount("coduni"); } if($ls_lapejepuncue!="" && $ls_lapejepuncue!="0,00") { print ""; } ?> getValue("coduni",$li_i); $ls_descripcion=$io_datastore->getValue("nomuni",$li_i); if ($ls_codigo==$ls_codunidad) { print ""; } else { print ""; } } ?>          
 
Monto Neto
 Bs.        
 
Base Imponible
 Bs.        
 
Total Impuesto
Bs.        
 
Total
 Bs.  
 
Monto Anticipo
%    Bs.  
  Agregar Detalle
makegrid($li_filascargos,$la_columcargos,$la_objectcargos,$li_anchocargos,$ls_titulocargos,$ls_nametable);?>
 
 
makegrid($li_filas,$la_columna,$la_objeto,$li_ancho,$ls_titulo,$ls_nametable);?>
 
 
Observaciones