function uf_cargar_datastore_plan_cuentas($ads_cuentas) { ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Function: uf_cargar_datastore_plan_cuentas // Access: public // Arguments: ads_cuentas // Datastored de cuentas // Description: inserta la información del saldo de la cuenta correspondiente. // Returns: booleano lb_valido // Creado Por: Ing. Wilmer Briceño // Modificado Por: Ing. Yesenia Moreno Fecha Última Modificación : 31/05/2007 ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $li_fila=0; $i=0; $lb_valido=true; $ls_sc_cuentas=""; $ls_denominacion=""; $ls_status=""; $ls_cadena=""; $ls_sql="SELECT sc_cuenta,denominacion,status ". " FROM scg_Cuentas " . " WHERE codemp='".$this->dat_emp["codemp"]."'". " ORDER BY sc_cuenta "; $rs_data=$this->io_sql->select($ls_sql); if($rs_data===false) { $lb_valido=false; $this->is_msg_error="CLASE->sigesp_int_scg MÉTODO->uf_cargar_datastore_plan_cuentas ERROR->".$this->io_function->uf_convertirmsg($this->io_sql->message); } else { $ads_cuentas=new class_datastore(); while($row=$this->io_sql->fetch_row($rs_data)) { $i=$i+1; $ls_sc_cuentas=trim($row["sc_cuenta"]); $ads_cuentas->insertRow("sc_cuenta",$ls_sc_cuentas); $ls_denominacion=trim($row["denominacion"]); $ads_cuentas->insertRow("denominacion",$ls_denominacion); $ls_status=trim($row["status"]); $ads_cuentas->insertRow("status",$ls_status); } //fin del while } $this->io_sql->free_result($rs_data); return $lb_valido; } // end function uf_cargar_datastore_plan_cuentas
function uf_scg_reporte_balance_general($adt_feclimit,$ai_nivel) { ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Function : uf_scg_reporte_balance_general // Access : private // Argumentos : $adt_feclimit // fecha limite // $ai_nivel // nivel de la cuenta // Returns : Retorna true o false si se realizo la consulta para el reporte // Description : Reporte que genera salida del Balance General // Creado por : Ing. Yozelin Barragan. // Fecha Creaci� : 03/05/2006 Fecha ltima Modificacion : 08/05/06 Hora : //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $lb_valido = true; $ls_codemp = $this->dts_empresa["codemp"]; $this->dts_egresos->resetds("sc_cuenta"); $this->dts_reporte->resetds("sc_cuenta"); $dts_Balance2=new class_datastore(); $li_activo = $this->dts_empresa["activo"]; $li_pasivo = $this->dts_empresa["pasivo"]; $li_resultado = $this->dts_empresa["resultado"]; $li_capital = $this->dts_empresa["capital"]; $li_orden_d = $this->dts_empresa["orden_d"]; $li_orden_h = $this->dts_empresa["orden_h"]; $li_ingreso = $this->dts_empresa["ingreso"]; $li_gasto = $this->dts_empresa["gasto"]; $li_c_resultad = $this->dts_empresa["c_resultad"]; $ls_sql=" SELECT SC.sc_cuenta,SC.denominacion,SC.status,SC.nivel as rnivel, ". " coalesce(curSaldo.T_Debe,0) as total_debe, ". " coalesce(curSaldo.T_Haber,0) as total_haber,0 as nivel ". " FROM scg_cuentas SC LEFT OUTER JOIN (SELECT codemp,sc_cuenta, coalesce(sum(debe_mes),0)as T_Debe, ". " coalesce(sum(haber_mes),0) as T_Haber ". " FROM scg_saldos ". " WHERE codemp='".$ls_codemp."' AND fecsal<='".$adt_feclimit."' ". " GROUP BY sc_cuenta) curSaldo ". " ON SC.sc_cuenta=curSaldo.sc_cuenta ". " WHERE SC.codemp=curSaldo.codemp AND curSaldo.codemp='".$ls_codemp."' AND ". " (SC.sc_cuenta like '".$li_activo."%' OR SC.sc_cuenta like '".$li_pasivo."%' OR ". " SC.sc_cuenta like '".$li_resultado."%' OR SC.sc_cuenta like '".$li_capital."%' OR ". " SC.sc_cuenta like '".$li_orden_d."%' OR SC.sc_cuenta like '".$li_orden_h."%') ". " ORDER BY SC.sc_cuenta "; $rs_data=$this->SQL->select($ls_sql); if($rs_data===false) {// error interno sql $this->is_msg_error="Error en consulta metodo uf_scg_reporte_balance_general ".$this->fun->uf_convertirmsg($this->SQL->message); $lb_valido = false; } else { $ld_saldo_ganancia=0; while($row=$this->SQL->fetch_row($rs_data)) { $ls_sc_cuenta=$row["sc_cuenta"]; $ls_denominacion=$row["denominacion"]; $ls_status=$row["status"]; $ls_rnivel=$row["rnivel"]; $ld_total_debe=$row["total_debe"]; $ld_total_haber=$row["total_haber"]; if($ls_status=="C") { $ls_nivel="4"; }//if else { $ls_nivel=$ls_rnivel; }//else if($ls_nivel<=$ai_nivel) { $this->dts_Prebalance->insertRow("sc_cuenta",$ls_sc_cuenta); $this->dts_Prebalance->insertRow("denominacion",$ls_denominacion); $this->dts_Prebalance->insertRow("status",$ls_status); $this->dts_Prebalance->insertRow("nivel",$ls_nivel); $this->dts_Prebalance->insertRow("rnivel",$ls_rnivel); $this->dts_Prebalance->insertRow("total_debe",$ld_total_debe); $this->dts_Prebalance->insertRow("total_haber",$ld_total_haber); $lb_valido = true; }//if }//while $li=$this->dts_Prebalance->getRowCount("sc_cuenta"); if($li==0) { $lb_valido = false; return false; }//if } //else $ld_saldo_i=0; if($lb_valido) { $lb_valido=$this->uf_scg_reporte_select_saldo_ingreso_BG($adt_feclimit,$li_ingreso,$ld_saldo_i); } if($lb_valido) { $ld_saldo_g=0; $lb_valido=$this->uf_scg_reporte_select_saldo_gasto_BG($adt_feclimit,$li_gasto,$ld_saldo_g); }//if if($lb_valido) { $ld_saldo_ganancia=$ld_saldo_ganancia+($ld_saldo_i+$ld_saldo_g); }//if $la_sc_cuenta=array(); $la_denominacion=array(); $la_saldo=array(); for($i=1;$i<=$ai_nivel;$i++) { $la_sc_cuenta[$i]=""; $la_denominacion[$i]=""; $la_saldo[$i]=0; }//for $li_nro_reg=0; $ld_saldo_resultado=0; $li_row=$this->dts_Prebalance->getRowCount("sc_cuenta"); for($li_i=1;$li_i<=$li_row;$li_i++) { $ls_sc_cuenta=$this->dts_Prebalance->data["sc_cuenta"][$li_i]; $ls_status=$this->dts_Prebalance->data["status"][$li_i]; $ls_denominacion=$this->dts_Prebalance->data["denominacion"][$li_i]; $ls_rnivel=$this->dts_Prebalance->data["rnivel"][$li_i]; $ld_total_debe=$this->dts_Prebalance->data["total_debe"][$li_i]; $ld_total_haber=$this->dts_Prebalance->data["total_haber"][$li_i]; $ls_nivel=$this->dts_Prebalance->data["nivel"][$li_i]; $ls_tipo_cuenta=substr($ls_sc_cuenta,0,1); if($ls_tipo_cuenta==$li_activo) { $ls_orden="1"; } if($ls_tipo_cuenta==$li_pasivo) { $ls_orden="2"; } if($ls_tipo_cuenta==$li_capital) { $ls_orden="3"; } if($ls_tipo_cuenta==$li_resultado) { $ls_orden="4"; } if($ls_tipo_cuenta==$li_orden_d) { $ls_orden="5"; } if($ls_tipo_cuenta== $li_orden_h){ $ls_orden="6"; } $ld_saldo=abs($ld_total_debe-$ld_total_haber); if((($ls_tipo_cuenta==$li_pasivo)||($ls_tipo_cuenta==$li_resultado)||($ls_tipo_cuenta==$li_capital))&&($ls_nivel==1)) { $ld_saldo_resultado=$ld_saldo_resultado+$ld_saldo; }//if if($ls_nivel==4) { $li_nro_reg=$li_nro_reg+1; $this->dts_Balance1->insertRow("orden",$ls_orden); $this->dts_Balance1->insertRow("num_reg",$li_nro_reg); $this->dts_Balance1->insertRow("sc_cuenta",$ls_sc_cuenta); $this->dts_Balance1->insertRow("denominacion",$ls_denominacion); $this->dts_Balance1->insertRow("nivel",$ls_nivel); $this->dts_Balance1->insertRow("saldo",$ld_saldo); }//if else { if (empty($la_sc_cuenta[$ls_nivel])) { $la_sc_cuenta[$ls_nivel]=$ls_sc_cuenta; $la_denominacion[$ls_nivel]=$ls_denominacion; $la_saldo[$ls_nivel]=$ld_saldo; $li_nro_reg=$li_nro_reg+1; $this->dts_Balance1->insertRow("orden",$ls_orden); $this->dts_Balance1->insertRow("num_reg",$li_nro_reg); $this->dts_Balance1->insertRow("sc_cuenta",$ls_sc_cuenta); $this->dts_Balance1->insertRow("denominacion",$ls_denominacion); $this->dts_Balance1->insertRow("nivel",-$ls_nivel); $this->dts_Balance1->insertRow("saldo",$ld_saldo); }//if else { $this->uf_scg_reporte_calcular_total_BG($li_nro_reg,$ls_prev_nivel,$ls_nivel,$la_sc_cuenta,$la_denominacion,$la_saldo,$li_activo,$li_pasivo,$li_capital,$li_resultado,$li_orden_d,$li_orden_h); $la_sc_cuenta[$ls_nivel]=$ls_sc_cuenta; $la_denominacion[$ls_nivel]=$ls_denominacion; $la_saldo[$ls_nivel]=$ld_saldo; $li_nro_reg=$li_nro_reg+1; $this->dts_Balance1->insertRow("orden",$ls_orden); $this->dts_Balance1->insertRow("num_reg",$li_nro_reg); $this->dts_Balance1->insertRow("sc_cuenta",$ls_sc_cuenta); $this->dts_Balance1->insertRow("denominacion",$ls_denominacion); $this->dts_Balance1->insertRow("nivel",-$ls_nivel); $this->dts_Balance1->insertRow("saldo",$ld_saldo); }//else $ls_prev_nivel=$ls_nivel; }//else }//for $this->uf_scg_reporte_actualizar_resultado_BG($li_c_resultad,abs($ld_saldo_ganancia),$li_nro_reg,$ls_orden); if($ld_saldo_ganancia>0) { $ld_saldo_resultado=$ld_saldo_resultado-$ld_saldo_ganancia; } else { $ld_saldo_resultado=$ld_saldo_resultado+abs($ld_saldo_ganancia); } $li_total=$this->dts_Balance1->getRowCount("sc_cuenta"); for($li_i=1;$li_i<=$li_total;$li_i++) { $ls_sc_cuenta=$this->dts_Balance1->data["sc_cuenta"][$li_i]; $ls_orden=$this->dts_Balance1->data["orden"][$li_i]; $li_nro_reg=$this->dts_Balance1->data["num_reg"][$li_i]; $ls_denominacion=$this->dts_Balance1->data["denominacion"][$li_i]; $ls_nivel=$this->dts_Balance1->data["nivel"][$li_i]; $ld_saldo=$this->dts_Balance1->data["saldo"][$li_i]; $li_pos=$this->dts_Prebalance->find("sc_cuenta",$ls_sc_cuenta); if($li_pos>0) { $ls_rnivel=$this->dts_Prebalance->data["rnivel"][$li_pos]; } else { $ls_rnivel=0; } $dts_Balance2->insertRow("orden",$ls_orden); $dts_Balance2->insertRow("num_reg",$li_nro_reg); $dts_Balance2->insertRow("sc_cuenta",$ls_sc_cuenta); $dts_Balance2->insertRow("denominacion",$ls_denominacion); $dts_Balance2->insertRow("nivel",$ls_nivel); $dts_Balance2->insertRow("saldo",abs($ld_saldo)); $dts_Balance2->insertRow("rnivel",$ls_rnivel); $dts_Balance2->insertRow("total",abs($ld_saldo_resultado)); }//for $li_tot=$dts_Balance2->getRowCount("sc_cuenta"); for($li_i=1;$li_i<=$li_tot;$li_i++) { $ls_sc_cuenta=$dts_Balance2->data["sc_cuenta"][$li_i]; $ls_orden=$dts_Balance2->data["orden"][$li_i]; $li_nro_reg=$dts_Balance2->data["num_reg"][$li_i]; $ls_denominacion=$dts_Balance2->data["denominacion"][$li_i]; $ls_nivel=$dts_Balance2->data["nivel"][$li_i]; $ld_saldo=$dts_Balance2->data["saldo"][$li_i]; $ls_rnivel=$dts_Balance2->data["rnivel"][$li_i]; $ld_saldo_resultado=$dts_Balance2->data["total"][$li_i]; if($ls_rnivel<=$ai_nivel) { $this->dts_reporte->insertRow("orden",$ls_orden); $this->dts_reporte->insertRow("num_reg",$li_nro_reg); $this->dts_reporte->insertRow("sc_cuenta",$ls_sc_cuenta); $this->dts_reporte->insertRow("denominacion",$ls_denominacion); $this->dts_reporte->insertRow("nivel",$ls_nivel); $this->dts_reporte->insertRow("saldo",$ld_saldo); $this->dts_reporte->insertRow("rnivel",$ls_rnivel); $this->dts_reporte->insertRow("total",$ld_saldo_resultado); }//if }//for unset($this->dts_Prebalance); unset($this->dts_Balance1); unset($dts_Balance2); return $lb_valido; }//uf_scg_reporte_balance_general
function uf_print_cierrecuentas_cargo($ai_total,$as_cargarcargos,$as_tipo) { ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Function: uf_print_cierrecuentas_cargo // Access: private // Arguments: ai_total // Total de filas a imprimir // as_cargarcargos // Si cargamos los cargos ó solo pintamos // as_tipo // Tipo de SEP si es de bienes ó de servicios // Description: Método que imprime el grid de las cuentas presupuestarias de los cargos // Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang // Modificado Por: Ing. Yozelin Barragan // Fecha Creación: 17/03/2007 Fecha Última Modificación : 12/05/2007 ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// global $io_grid, $io_funciones_sep,$la_cuentacargo,$li_estmodest,$li_loncodestpro1,$li_loncodestpro2,$li_loncodestpro3, $li_loncodestpro4,$li_loncodestpro5; require_once("../../shared/class_folder/class_datastore.php"); $io_dscuentas=new class_datastore(); // Titulos el Grid $lo_title[1]="Crédito"; $lo_title[2]="Estructura Presupuestaria"; $lo_title[3]="Cuenta"; $lo_title[4]="Monto"; //$lo_title[5]=""; $ls_codpro=""; // Recorrido del Grid de Cuentas Presupuestarias del Cargo for($li_fila=1;$li_fila<=$ai_total;$li_fila++) { $ls_cargo= trim($io_funciones_sep->uf_obtenervalor("txtcodcar".$li_fila,"")); $li_moncue= $io_funciones_sep->uf_obtenervalor("txtmoncar".$li_fila,""); $ls_cuenta= trim($io_funciones_sep->uf_obtenervalor("txtcodspgcre".$li_fila,"")); $ls_codpro= $io_funciones_sep->uf_obtenervalor("txtcodgascre".$li_fila,""); $ls_estcla= $io_funciones_sep->uf_obtenervalor("txtstatuscre".$li_fila,""); $li_moncue = str_replace(".","",$li_moncue); $li_moncue = str_replace(",",".",$li_moncue); $ls_codestpro1 = substr($ls_codpro,0,25); $ls_codestpro2 = substr($ls_codpro,25,25); $ls_codestpro3 = substr($ls_codpro,50,25); $ls_codestpro4 = substr($ls_codpro,75,25); $ls_codestpro5 = substr($ls_codpro,100,25); if($ls_cuenta!="") { $valores["codcargo"]=$ls_cargo; $valores["cuentacar"]=$ls_cuenta; $valores["estcla"]=$ls_estcla; $valores["codestpro1"]=$ls_codestpro1; $valores["codestpro2"]=$ls_codestpro2; $valores["codestpro3"]=$ls_codestpro3; $valores["codestpro4"]=$ls_codestpro4; $valores["codestpro5"]=$ls_codestpro5; $ll_row_found=$io_dscuentas->findValues($valores,"codcargo") ; if($ll_row_found>0) { $ldec_monto=0; $ldec_monto=$io_dscuentas->getValue("moncuecar",$ll_row_found); $ldec_monto=$ldec_monto + $li_moncue; $io_dscuentas->updateRow("moncuecar",$ldec_monto,$ll_row_found); } else { $io_dscuentas->insertRow("codcargo",$ls_cargo); $io_dscuentas->insertRow("codprocar",$ls_codpro); $io_dscuentas->insertRow("cuentacar",$ls_cuenta); $io_dscuentas->insertRow("moncuecar",$li_moncue); $io_dscuentas->insertRow("estcla",$ls_estcla); $io_dscuentas->insertRow("codestpro1",$ls_codestpro1); $io_dscuentas->insertRow("codestpro2",$ls_codestpro2); $io_dscuentas->insertRow("codestpro3",$ls_codestpro3); $io_dscuentas->insertRow("codestpro4",$ls_codestpro4); $io_dscuentas->insertRow("codestpro5",$ls_codestpro5); } } } if($as_cargarcargos=="1") { // si los cargos se deben cargar recorremos el arreglo de cuentas // que se lleno con los cargos $li_cuenta=count($la_cuentacargo)-1; for($li_fila=1;($li_fila<=$li_cuenta);$li_fila++) { $ls_cargo = trim($la_cuentacargo[$li_fila]["cargo"]); $ls_cuenta = trim($la_cuentacargo[$li_fila]["cuenta"]); $ls_programatica = trim($la_cuentacargo[$li_fila]["programatica"]); $ls_estcla = trim($la_cuentacargo[$li_fila]["estcla"]); $li_moncue="0.00"; $ls_codestpro1 = substr($ls_programatica,0,25); $ls_codestpro2 = substr($ls_programatica,25,25); $ls_codestpro3 = substr($ls_programatica,50,25); $ls_codestpro4 = substr($ls_programatica,75,25); $ls_codestpro5 = substr($ls_programatica,100,25); if($ls_cuenta!="") { $valores["codcargo"]=$ls_cargo; $valores["cuentacar"]=$ls_cuenta; $valores["estcla"]=$ls_estcla; $valores["codestpro1"]=$ls_codestpro1; $valores["codestpro2"]=$ls_codestpro2; $valores["codestpro3"]=$ls_codestpro3; $valores["codestpro4"]=$ls_codestpro4; $valores["codestpro5"]=$ls_codestpro5; $ll_row_found=$io_dscuentas->findValues($valores,"codcargo") ; if($ll_row_found>0) { $ldec_monto=0; $ldec_monto=$io_dscuentas->getValue("moncuecar",$ll_row_found); $ldec_monto=$ldec_monto + $li_moncue; $io_dscuentas->updateRow("moncuecar",$ldec_monto,$ll_row_found); } else { $io_dscuentas->insertRow("codcargo",$ls_cargo); $io_dscuentas->insertRow("codprocar",$ls_programatica); $io_dscuentas->insertRow("cuentacar",$ls_cuenta); $io_dscuentas->insertRow("moncuecar",$li_moncue); $io_dscuentas->insertRow("estcla",$ls_estcla); $io_dscuentas->insertRow("codestpro1",$ls_codestpro1); $io_dscuentas->insertRow("codestpro2",$ls_codestpro2); $io_dscuentas->insertRow("codestpro3",$ls_codestpro3); $io_dscuentas->insertRow("codestpro4",$ls_codestpro4); $io_dscuentas->insertRow("codestpro5",$ls_codestpro5); } } } } // Agrupamos las cuentas por programatica y cuenta //$io_dscuentas->group_by(array('0'=>'codcargo','1'=>'codprocar','2'=>'cuentacar','3'=>'estcla'),array('0'=>'moncuecar'),'moncuecar'); $io_dscuentas->group_by(array('0'=>'codcargo','1'=>'codestpro1','2'=>'codestpro2','3'=>'codestpro3','4'=>'codestpro4','5'=>'codestpro5', '6'=>'estcla','7'=>'cuentacar'),array('0'=>'moncuecar'),'moncuecar'); $li_total=$io_dscuentas->getRowCount('codcargo'); //print_r($io_dscuentas->data); // Recorremos el data stored de cuentas que se lleno y se agrupo anteriormente for($li_fila=1;$li_fila<=$li_total;$li_fila++) { $ls_cargo = $io_dscuentas->getValue('codcargo',$li_fila); $ls_codpro = $io_dscuentas->getValue('codprocar',$li_fila); $ls_cuenta = $io_dscuentas->getValue('cuentacar',$li_fila); $li_moncue = number_format($io_dscuentas->getValue('moncuecar',$li_fila),2,",","."); $ls_codestpro = ""; if (!empty($ls_codpro)) { $ls_codestpro1 = substr($ls_codpro,0,25); $ls_codestpro2 = substr($ls_codpro,25,25); $ls_codestpro3 = substr($ls_codpro,50,25); $ls_codestpro4 = substr($ls_codpro,75,25); $ls_codestpro5 = substr($ls_codpro,100,25); $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) { if (!empty($ls_codpro)) { $ls_codestpro2 = substr($ls_codestpro2,-$li_loncodestpro2); $ls_codestpro3 = substr($ls_codestpro3,-$li_loncodestpro3); $ls_codestpro = $ls_codestpro.'-'.$ls_codestpro4.'-'.$ls_codestpro5; } } $ls_estcla = $io_dscuentas->getValue('estcla',$li_fila); if($ls_cuenta!="") { $lo_object[$li_fila][1]="<input name=txtcodcargo".$li_fila." type=text id=txtcodcargo".$li_fila." class=sin-borde style=text-align:center size=12 value='".$ls_cargo."' readonly>"; $lo_object[$li_fila][2]="<input name=txtprogramaticacar".$li_fila." type=text id=txtprogramaticacar".$li_fila." class=sin-borde style=text-align:center size=75 value='".$ls_codestpro."' readonly>"; $lo_object[$li_fila][3]="<input name=txtcuentacar".$li_fila." type=text id=txtcuentacar".$li_fila." class=sin-borde style=text-align:center size=25 value='".$ls_cuenta."' readonly>"; $lo_object[$li_fila][4]="<input name=txtmoncuecar".$li_fila." type=text id=txtmoncuecar".$li_fila." class=sin-borde style=text-align:right size=25 onKeyPress=return(ue_formatonumero(this,'.',',',event)); value='".$li_moncue."' readonly>". "<input name=txtcodprocar".$li_fila." type=hidden id=txtcodprocar".$li_fila." value='".$ls_codpro."'>". "<input name=estclacar".$li_fila." type=hidden id=estclacar".$li_fila." value='".$ls_estcla."'>"; // $lo_object[$li_fila][5]="<a href=javascript:ue_delete_cuenta_cargo('".$li_fila."','".$as_tipo."');><img src=../shared/imagebank/tools15/eliminar.gif title=Eliminar width=15 height=10 border=0></a>". } } $ai_total=$li_total+1; $lo_object[$ai_total][1]="<input name=txtcodcargo".$ai_total." type=text id=txtcodcargo".$ai_total." class=sin-borde style=text-align:center size=12 value='' readonly>"; $lo_object[$ai_total][2]="<input name=txtprogramaticacar".$ai_total." type=text id=txtprogramaticacar".$ai_total." class=sin-borde style=text-align:center size=75 value='' readonly>"; $lo_object[$ai_total][3]="<input name=txtcuentacar".$ai_total." type=text id=txtcuentacar".$ai_total." class=sin-borde style=text-align:center size=25 value='' readonly>"; $lo_object[$ai_total][4]="<input name=txtmoncuecar".$ai_total." type=text id=txtmoncuecar".$ai_total." class=sin-borde style=text-align:right size=25 value='' readonly>"; $lo_object[$ai_total][5]="<input name=txtcodprocar".$ai_total." type=hidden id=txtcodprocar".$ai_total." value=''><input name=estclacar".$li_fila." type=hidden id=estclacar".$li_fila." 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_cargos();'><img src='../shared/imagebank/tools/nuevo.gif' width='20' height='20' border='0' title='Agregar Cuenta'>Agregar Cuenta Otros Créditos</a> </td>"; print " </tr>"; print " </table>"; $io_grid->makegrid($ai_total,$lo_title,$lo_object,840,"Cuentas Otros Créditos","gridcuentascargos"); unset($io_dscuentas); }// end function uf_print_cuentas_cargo
$ls_PadNextCuenta =$int_scg->uf_pad_cuenta_plan($dat["formplan"] , $ls_NextCuenta) ; $int_scg->uf_select_plan_unico_cuenta($ls_PadNextCuenta,&$as_denominacion_plan); if($li_Nivel > 1) { $ls_cuenta_ref = $int_scg->uf_scg_next_cuenta_nivel( $ls_NextCuenta ); } else { $ls_cuenta_ref = " "; } $lds_cuenta_temp->insertRow("SC_cuenta",$ls_NextCuenta); $lds_cuenta_temp->insertRow("denominacion",$as_denominacion_plan); $lds_cuenta_temp->insertRow("sc_cuenta_ref",$ls_cuenta_ref); $lds_cuenta_temp->insertRow("Nivel",$li_Nivel); $li_fila = $li_fila + 1; } if ($li_Nivel > 1) { $ls_NextCuenta = $int_scg->uf_scg_next_cuenta_nivel( $ls_NextCuenta ); $li_Nivel = $int_scg->uf_scg_obtener_nivel( $ls_NextCuenta ); } else {
function uf_cargar_dtnotacon() { ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Function: uf_cargar_dtnotacon // Access: public // Description: Funcion para pintar detalles contables a la nota de debito y credito solo para recepciones documento tipo contable // Creado Por: Ing. Nelson Barraez // Fecha Creacin: 27/05/2007 Fecha ltima Modificacin : ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// require_once "../../shared/class_folder/grid_param.php"; require_once "../../shared/class_folder/class_datastore.php"; $io_grid = new grid_param(); global $io_funciones_cxp; $io_grid = new grid_param(); $ds_detscg = new class_datastore(); $ldec_total = 0; $li_totalactual = $io_funciones_cxp->uf_obtenervalor("totalactual", ""); $ls_tiponota = $io_funciones_cxp->uf_obtenervalor("tiponota", ""); $ls_cuentaprov = $io_funciones_cxp->uf_obtenervalor("txtctaprov", ""); $ls_denctaprov = $io_funciones_cxp->uf_obtenervalor("denctascg", ""); $ls_tipproben = $io_funciones_cxp->uf_obtenervalor("tipproben", ""); $ls_codproben = trim($io_funciones_cxp->uf_obtenervalor("codproben", "")); $ls_numrecdoc = trim($io_funciones_cxp->uf_obtenervalor("numrecdoc", "")); $ls_codtipdoc = $io_funciones_cxp->uf_obtenervalor("codtipdoc", ""); $ldec_totaldebe = 0; $ldec_totalhaber = 0; if ($li_totalactual == 0) { uf_dt_nota(); } else { for ($lx = 1; $lx <= 4; $lx++) { $lo_object2[$lx][1] = "<input type=text name=txtcuentaspgncnd" . $lx . " id=txtcuentaspgncnd" . $lx . " class=sin-borde style=text-align:center size=22 readonly ><input type=hidden name=txtscgcuentadt" . $lx . " id=txtscgcuentadt" . $lx . " readonly><input type=hidden name=txtdenscgcuentadt" . $lx . " id=txtdenscgcuentadt" . $lx . "><input type=hidden name=txtestcargo" . $lx . " id=txtestcargo" . $lx . ">"; $lo_object2[$lx][2] = "<input type=text name=txtcodestproncnd" . $lx . " id=txtcodestproncnd" . $lx . " class=sin-borde style=text-align:center size=40 readonly><input name=txtcodpro" . $lx . " type=hidden id=txtcodpro" . $lx . " >"; $lo_object2[$lx][3] = "<input type=text name=txtestclaaux" . $lx . " id=txtestclaaux" . $lx . " class=sin-borde style=text-align:center size=20 readonly><input name=txtestclancnd" . $lx . " type=hidden id=txtestclancnd" . $lx . " >"; $lo_object2[$lx][4] = "<input type=text name=txtdencuentancnd" . $lx . " id=txtdencuentancnd" . $lx . " class=sin-borde style=text-align:left size=39 readonly>"; $lo_object2[$lx][5] = "<input type=text name=txtmontoncnd" . $lx . " id=txtmontoncnd" . $lx . " class=sin-borde style=text-align:right size=20 readonly>"; } for ($li = 1; $li <= $li_totalactual; $li++) { $ls_cuenta = $io_funciones_cxp->uf_obtenervalor("txtscgcuentancnd" . $li, ""); $ls_dencuenta = $io_funciones_cxp->uf_obtenervalor("txtdencuentascgncnd" . $li, ""); $ldec_mondeb = $io_funciones_cxp->uf_obtenervalor("txtdebencnd" . $li, ""); $ldec_monhab = $io_funciones_cxp->uf_obtenervalor("txthaberncnd" . $li, ""); if ($ls_tiponota == "NC") { if ($li == 1) { $ds_detscg->insertRow("txtscgcuentancnd", $ls_cuentaprov); $ds_detscg->insertRow("txtdencuentascgncnd", $ls_denctaprov); $ds_detscg->insertRow("txtdebencnd", 0, 00); $ds_detscg->insertRow("txthaberncnd", "0,00"); $ds_detscg->insertRow("txtdebhab", ''); } $ds_detscg->insertRow("txtscgcuentancnd", $ls_cuenta); $ds_detscg->insertRow("txtdencuentascgncnd", $ls_dencuenta); $ds_detscg->insertRow("txtdebencnd", $ldec_monhab); $ds_detscg->insertRow("txthaberncnd", $ldec_mondeb); $ds_detscg->insertRow("txtdebhab", 'H'); $ldec_monto = str_replace(".", "", $ldec_mondeb); $ldec_monto = str_replace(",", ".", $ldec_monto); $ldec_total = $ldec_total + $ldec_monto; } else { $ds_detscg->insertRow("txtscgcuentancnd", $ls_cuenta); $ds_detscg->insertRow("txtdencuentascgncnd", $ls_dencuenta); $ds_detscg->insertRow("txtdebencnd", $ldec_mondeb); $ds_detscg->insertRow("txthaberncnd", $ldec_monhab); $ds_detscg->insertRow("txtdebhab", 'D'); $ldec_monto = str_replace(".", "", $ldec_mondeb); $ldec_monto = str_replace(",", ".", $ldec_monto); $ldec_total = $ldec_total + $ldec_monto; } } $ldec_total = number_format($ldec_total, 2, ",", "."); if ($ls_tiponota == "ND") { $ldec_mondebe = "0,00"; $ldec_monhaber = $ldec_total; $li_aux++; $ds_detscg->insertRow("txtscgcuentancnd", $ls_cuentaprov); $ds_detscg->insertRow("txtdencuentascgncnd", $ls_denctaprov); $ds_detscg->insertRow("txtdebencnd", $ldec_mondebe); $ds_detscg->insertRow("txthaberncnd", $ldec_monhaber); $ds_detscg->insertRow("txtdebhab", 'H'); } else { $ldec_mondebe = $ldec_total; $ldec_monhaber = "0,00"; $ds_detscg->updateRow("txtdebencnd", $ldec_mondebe, 1); $ds_detscg->updateRow("txtdebhab", 'D', 1); } $aa_items = array('0' => 'txtscgcuentancnd', '1' => 'txtdebhab'); $aa_sum = array('0' => 'txtdebencnd', '1' => 'txthaberncnd'); $ds_detscg->group_by_conformato($aa_items, $aa_sum, 'txtscgcuentancnd'); $li_totalrows = $ds_detscg->getRowCount("txtscgcuentancnd"); for ($la = 1; $la <= $li_totalrows; $la++) { $ls_scgcuenta = $ds_detscg->getValue("txtscgcuentancnd", $la); $ls_dencuenta = $ds_detscg->getValue("txtdencuentascgncnd", $la); $ldec_mondebe = $ds_detscg->getValue("txtdebencnd", $la); $ldec_monhaber = $ds_detscg->getValue("txthaberncnd", $la); $ldec_auxdebe = str_replace(".", "", $ldec_mondebe); $ldec_auxdebe = str_replace(",", ".", $ldec_auxdebe); $ldec_auxhaber = str_replace(".", "", $ldec_monhaber); $ldec_auxhaber = str_replace(",", ".", $ldec_auxhaber); $ldec_totaldebe = $ldec_totaldebe + $ldec_auxdebe; $ldec_totalhaber = $ldec_totalhaber + $ldec_auxhaber; $lo_object[$la][1] = "<input type=text name=txtscgcuentancnd" . $la . " id=txtscgcuentancnd" . $la . " class=sin-borde style=text-align:center size=22 value='{$ls_scgcuenta}' readonly onClick='javascript:uf_select_filadelete({$la});'>"; $lo_object[$la][2] = "<input type=text name=txtdencuentascgncnd" . $la . " class=sin-borde style=text-align:left size=59 value='{$ls_dencuenta}' readonly onClick='javascript:uf_select_filadelete({$la});'>"; $lo_object[$la][3] = "<input type=text name=txtdebencnd" . $la . " class=sin-borde style=text-align:right size=20 value='{$ldec_mondebe}' readonly onClick='javascript:uf_select_filadelete({$la});uf_mostrar_alerta();'>"; $lo_object[$la][4] = "<input type=text name=txthaberncnd" . $la . " class=sin-borde style=text-align:right size=20 value='{$ldec_monhaber}' readonly onClick='javascript:uf_select_filadelete({$la});uf_mostrar_alerta();'>"; $lo_object[$la][5] = "<a href=javascript:uf_delete_dtnota('" . $la . "');><img src=../shared/imagebank/tools15/eliminar.gif title=Eliminar width=15 height=10 border=0></a>"; } $lo_title[1] = "Código Estadístico"; $lo_title[2] = "Código Programático "; $lo_title[3] = "Estatus"; $lo_title[4] = "Denominación"; $lo_title[5] = "Monto"; $io_grid->make_gridScroll($lx - 1, $lo_title, $lo_object2, 758, "Detalle Presupuestario de la Nota", "grid", 120); $lo_titlesc[1] = "Cuenta"; $lo_titlesc[2] = "Denominación"; $lo_titlesc[3] = "Monto Debe"; $lo_titlesc[4] = "Monto Haber"; $lo_titlesc[5] = " "; $io_grid->make_gridScroll($la - 1, $lo_titlesc, $lo_object, 758, "Detalle Contable de la Nota", "gridscg", 120); print "<input type=hidden name=numrowsprenota id=numrowsprenota value=" . ($lx - 1) . ">"; print "<input type=hidden name=numrowsconnota id=numrowsconnota value=" . ($la - 1) . ">"; print "<table width='758' border='0' align='center' cellpadding='0' cellspacing='0' class='celdas-blancas'>"; print " <tr>"; print " <td width='508' height='22' align='right'><div align='right'><strong>Total Debe</strong></div></td>"; print " <td width='80' height='22' align='right'><input name='txtmontodeb' type='text' id='txtmontodeb' style='text-align:right' value=" . number_format($ldec_totaldebe, 2, ",", ".") . " size='22' maxlength='20' readonly align='right' class='letras-negrita'></td>"; print " <td width='90' height='22' align='right'><div align='right'><strong>Total Haber</strong></div></td>"; print " <td width='80' height='22' align='right'><input name='txtmontohab' type='text' id='txtmontohab' style='text-align:right' value=" . number_format($ldec_totalhaber, 2, ",", ".") . " size='22' maxlength='20' readonly align='right' class='letras-negrita'></td>"; print " </tr>"; print " <tr>"; print " <td width='508' height='22' align='right'> </td>"; print " <td width='80' height='22' align='right'> </td>"; print " <td width='90' height='22' align='right'> </td>"; print " <td width='80' height='22' align='right'> </td>"; print " </tr>"; print "</table>"; print "<table width=780 border=0 cellpadding=0 cellspacing=0 class=formato-blanco>"; print " <tr class=titulo-ventana>"; print " <td height=23 colspan=4><div align=center class=Estilo1><b>TOTALES</b></div></td>"; print " </tr>"; print "<tr height=20>"; print " <td width=49> </td>"; print " <td width=413> </td>"; print " <td width=167><div align=right><b>SUBTOTAL</b></div></td>"; print " <td width=151><input name=txtmontosincargo type=text id=txtmontosincargo value=" . $ldec_total . " style='text-align:right' class='letras-negrita' size='22' maxlength='20' readonly></td>"; print "</tr>"; print "<tr height=20>"; print " <td width=49> </td>"; print " <td width=413> </td>"; print " <td width=167><div align=right><input name='btnotroscreditos' type='button' class='boton' id='btnotroscreditos' value='Otros Créditos' onClick='javascript:uf_agregar_dtcargos(\"\",\"\",\"\",\"\",\"\");'></div></td>"; print " <td width=151><input name=txtmontocargo type=text id=txtmontocargo value='0,00' style='text-align:right' class='letras-negrita' size='22' maxlength='20' readonly></td>"; print "</tr>"; print "<tr height=20>"; print " <td width=49> </td>"; print " <td width=413> </td>"; print " <td width=147><div align=right><b>MONTO TOTAL</b></div></td>"; print " <td width=171><input name=txtmonto type=text class=texto-rojo id=txtmonto value=" . $ldec_total . " style='text-align:right' size='22' maxlength='20' readonly></td>"; print "</tr>"; print "</table>"; } }
$ld_fecha=$_GET["fecha"]; $ls_observacion=$_GET["observacion"]; $lb_valido=uf_insert_seguridad(); if($lb_valido) { uf_print_encabezado_pagina($ls_numanacot,$ld_fecha,$io_pdf); $lb_valido=$io_class_report->uf_cargar_cotizaciones_esp($ls_numanacot,$la_cotizaciones); if($lb_valido) { //print_r($la_cotizaciones); $li_totrow=count($la_cotizaciones); //print $li_totrow; for($li_i=1;$li_i<=$li_totrow;$li_i++) { $io_ds_detalle->insertRow("codigo",$la_cotizaciones[$li_i]["codigo"]); $io_ds_detallepro->insertRow("cod_pro",$la_cotizaciones[$li_i]["cod_pro"]); $io_ds_detallepro->insertRow("nompro",$la_cotizaciones[$li_i]["nompro"]); } $io_ds_detallepro->group('cod_pro'); $io_ds_detalle->group('codigo'); $lb_valido=$io_class_report->uf_count_cotizaciones($ls_numanacot,$ls_countcot); $ls_countcot=count($ls_countcot); if($lb_valido) { uf_print_proveedores($la_cotizaciones,$io_ds_detalle,$io_ds_detallepro,$ls_countcot,$io_pdf); } $lb_valido=$io_class_report->uf_select_items($ls_numanacot,$ls_tipsolcot,$la_items); if($lb_valido) { //uf_print_items($ls_tipsolcot,$la_items,$io_pdf); $la_ganadores=$io_class_report->uf_select_cotizacion_analisis($ls_numanacot,$ls_tipsolcot);
error_reporting(E_ALL); set_time_limit(1800); $io_pdf = new Cezpdf('LETTER', 'portrait'); // Instancia de la clase PDF $io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra $io_pdf->ezSetCmMargins(3.6, 5, 3, 3); // Configuración de los margenes en centímetros $io_pdf->ezStartPageNumbers(570, 47, 8, '', '', 1); // Insertar el número de página $li_totrow = $io_report->DS->getRowCount("numsol"); $li_monretiva = 0; if ($li_totrow > 1) { for ($li_i = 1; $li_i <= $li_totrow; $li_i++) { $ls_dencla = $io_report->DS->data["dencla"][$li_i]; $ds_dencla->insertRow("dencla", $ls_denominacion); } $ds_dentipdoc->group("dencla"); $li_fila = $ds_dentipdoc->getRowCount("dencla"); for ($li_i = 1; $li_i <= $li_fila; $li_i++) { $ls_denominacion = $ds_dentipdoc->getValue("dencla", $li_i); if ($ls_denominacion != "") { if ($li_i == 1) { $ls_dencla = $ls_denominacion; } else { $ls_dencla = $ls_dencla . ", " . $ls_denominacion; } } } } else { $ls_dencla = $io_report->DS->data["dencla"][1];
function uf_balance_general_consolidado($ad_fecfin) { $lb_valido=true; $ds_Balance2=new class_datastore(); $ldec_resultado=0; $ld_saldo_ganancia=0; $this->ls_activo = trim($this->la_empresa["activo"]); $this->ls_pasivo = trim($this->la_empresa["pasivo"]); $this->ls_capital = trim($this->la_empresa["capital"]); $this->ls_orden_d = trim($this->la_empresa["orden_d"]); $this->ls_orden_h = trim($this->la_empresa["orden_h"]); $this->ls_ingreso = trim($this->la_empresa["ingreso"]); $this->ls_gastos = trim($this->la_empresa["gasto"]); $this->ls_cta_resultado = trim($this->la_empresa["c_resultad"]); $this->ls_resultado = trim($this->la_empresa["resultado"]); $ad_fecfin=$this->io_fun->uf_convertirdatetobd($ad_fecfin); $ls_codemp=$this->la_empresa["codemp"]; $ls_sql = "SELECT TRIM(scg_cuentas_consolida.sc_cuenta) as sc_cuenta, scg_cuentas_consolida.nivel, scg_cuentas_consolida.denominacion,0 as mondeb, 0 as monhab FROM scg_cuentas_consolida WHERE sc_cuenta like '".$this->ls_activo."%' OR sc_cuenta like '".$this->ls_pasivo."%' OR sc_cuenta like '".$this->ls_resultado."%' OR sc_cuenta like '".$this->ls_capital."%' OR sc_cuenta like '".$this->ls_orden_d."%' OR sc_cuenta like '".$this->ls_orden_h."%' UNION SELECT TRIM(sc_cuenta) as sc_cuenta,0 as nivel,'' as denominacion,coalesce(sum(debe_mes),0)as mondeb, coalesce(sum(haber_mes),0) as monhab FROM scg_saldos_consolida WHERE (sc_cuenta like '".$this->ls_activo."%' OR sc_cuenta like '".$this->ls_pasivo."%' OR sc_cuenta like '".$this->ls_resultado."%' OR sc_cuenta like '".$this->ls_capital."%' OR sc_cuenta like '".$this->ls_orden_d."%' OR sc_cuenta like '".$this->ls_orden_h."%') AND fecsal<='".$ad_fecfin."' GROUP BY sc_cuenta ORDER BY sc_cuenta"; $rs_data=$this->io_sql->select($ls_sql); if ($rs_data===false) { $this->is_msg_error="Error en consulta metodo uf_scg_reporte_balance_general_consolidado;".$this->io_fun->uf_convertirmsg($this->io_sql->message); $lb_valido = false; } else { $ld_saldo_ganancia=0; while(!$rs_data->EOF) { $ls_scgcta = $rs_data->fields["sc_cuenta"]; $ls_dencta = $rs_data->fields["denominacion"]; $ld_mondeb = number_format($rs_data->fields["mondeb"],2,'.',''); $ld_monhab = number_format($rs_data->fields["monhab"],2,'.',''); $li_nivcta = $rs_data->fields["nivel"]; $this->ds_Prebalance->insertRow("scgcta",$ls_scgcta); $this->ds_Prebalance->insertRow("dencta",$ls_dencta); $this->ds_Prebalance->insertRow("mondeb",$ld_mondeb); $this->ds_Prebalance->insertRow("monhab",$ld_monhab); $this->ds_Prebalance->insertRow("nivcta",$li_nivcta); $this->ds_Prebalance->insertRow("rnivcta",$li_nivcta); $rs_data->MoveNext(); } $this->ds_Prebalance->group_by(array('0'=>'scgcta'),array('0'=>'monhab'),'scgcta'); $this->ds_Prebalance->sortData('scgcta'); $li_totrows = $this->ds_Prebalance->getRowCount("scgcta"); if ($li_totrows==0) { $lb_valido = false; return false; } } $ld_saldo_i=0; if ($lb_valido) { $lb_valido = $this->uf_scg_reporte_select_saldo_ingreso_consolida($ad_fecfin,$this->ls_ingreso,$ld_saldo_i); } if ($lb_valido) { $ld_saldo_g=0; $lb_valido=$this->uf_scg_reporte_select_saldo_gasto_consolida($ad_fecfin,$this->ls_gastos,$ld_saldo_g); } if ($lb_valido) { $ld_saldo_ganancia=$ld_saldo_ganancia+($ld_saldo_i+$ld_saldo_g); } $la_sc_cuenta = array(); $la_denominacion = array(); $la_saldo = array(); for ($i=1;$i<=$li_nivcta;$i++) { $la_sc_cuenta[$i]=""; $la_denominacion[$i]=""; $la_saldo[$i]=0; } $ld_saldo_resultado=0; for ($li_z=1;$li_z<=$li_totrows;$li_z++) { $ls_scgcta = $this->ds_Prebalance->getValue("scgcta",$li_z); $ld_mondeb = $this->ds_Prebalance->getValue("mondeb",$li_z); $ld_monhab = $this->ds_Prebalance->getValue("monhab",$li_z); $ls_dencta = $this->ds_Prebalance->getValue("dencta",$li_z); $li_nivcta = $this->ds_Prebalance->getValue("nivcta",$li_z); $ls_nivcta = $this->ds_Prebalance->getValue("rnivcta",$li_z); $ls_tipcta = substr($ls_scgcta,0,1); switch($ls_tipcta){ case $this->ls_activo: $ls_orden=1; break; case $this->ls_pasivo: $ls_orden=2; break; case $this->ls_capital: $ls_orden=3; break; case $this->ls_resultado: $ls_orden=4; break; case $this->ls_orden_d: $ls_orden=5; break; case $this->ls_orden_h: $ls_orden=6; break; default: $ls_orden=7; } $ldec_saldo=$ld_mondeb-$ld_monhab; if (($ls_tipcta==$this->ls_pasivo || $ls_tipcta==$this->ls_resultado || $ls_tipcta==$this->ls_capital)&&($li_nivcta==1)) { $ld_saldo_resultado = $ld_saldo_resultado+$ldec_saldo; } $li_nro_reg=0; if ($li_nivcta==4) { $li_nro_reg++; $la_sc_cuenta[$ls_nivcta] = $ls_scgcta; $la_denominacion[$ls_nivcta] = $ls_dencta; $la_saldo[$ls_nivcta] = $ldec_saldo; $this->ds_Balance1->insertRow("orden",$ls_orden); $this->ds_Balance1->insertRow("num_reg",$li_nro_reg); $this->ds_Balance1->insertRow("sc_cuenta",$ls_scgcta); $this->ds_Balance1->insertRow("denominacion",$ls_dencta); $this->ds_Balance1->insertRow("nivel",$li_nivcta); $this->ds_Balance1->insertRow("saldo",$ldec_saldo); } else { if (empty($la_sc_cuenta[$li_nivcta])) { $li_nro_reg++; $la_sc_cuenta[$ls_nivcta] = $ls_scgcta; $la_denominacion[$ls_nivcta] = $ls_dencta; $la_saldo[$ls_nivcta] = $ldec_saldo; $this->ds_Balance1->insertRow("orden",$ls_orden); $this->ds_Balance1->insertRow("num_reg",$li_nro_reg); $this->ds_Balance1->insertRow("sc_cuenta",$ls_scgcta); $this->ds_Balance1->insertRow("denominacion",$ls_dencta); $this->ds_Balance1->insertRow("nivel",-$li_nivcta); $this->ds_Balance1->insertRow("saldo",$ldec_saldo); } else { $li_nro_reg++; $this->uf_scg_reporte_calcular_total_BG($li_nro_reg,$ls_prev_nivel,$ls_nivcta,$la_sc_cuenta,$la_denominacion,$la_saldo); $la_sc_cuenta[$ls_nivcta] = $ls_scgcta; $la_denominacion[$ls_nivcta] = $ls_dencta; $la_saldo[$ls_nivcta] = $ldec_saldo; $this->ds_Balance1->insertRow("orden",$ls_orden); $this->ds_Balance1->insertRow("num_reg",$li_nro_reg); $this->ds_Balance1->insertRow("sc_cuenta",$ls_scgcta); $this->ds_Balance1->insertRow("denominacion",$ls_dencta); $this->ds_Balance1->insertRow("nivel",-$li_nivcta); $this->ds_Balance1->insertRow("saldo",$ldec_saldo); } } $ls_prev_nivel=$li_nivcta; } $this->uf_scg_reporte_calcular_total_BG(&$li_nro_reg,$ls_prev_nivel,1,$la_sc_cuenta,$la_denominacion,$la_saldo); $ld_saldo_resultado=($ld_saldo_resultado+$ld_saldo_ganancia); $this->uf_scg_reporte_actualizar_resultado_BG($this->ls_cta_resultado,$ld_saldo_ganancia,$li_nro_reg,$ls_orden); $this->ds_Balance1->sortData("sc_cuenta"); $li_total=$this->ds_Balance1->getRowCount("sc_cuenta"); for ($li_i=1;$li_i<=$li_total;$li_i++) { $ls_sc_cuenta = $this->ds_Balance1->data["sc_cuenta"][$li_i]; $ls_orden = $this->ds_Balance1->data["orden"][$li_i]; $li_nro_reg = $this->ds_Balance1->data["num_reg"][$li_i]; $ls_denominacion = $this->ds_Balance1->data["denominacion"][$li_i]; $ls_nivel = $this->ds_Balance1->data["nivel"][$li_i]; $ld_saldo = $this->ds_Balance1->data["saldo"][$li_i]; $li_pos = $this->ds_Prebalance->find("sc_cuenta",$ls_sc_cuenta); if ($li_pos>0) { $ls_rnivel = $this->ds_Prebalance->data["rnivel"][$li_pos]; } else { $ls_rnivel=0; } $ds_Balance2->insertRow("orden",$ls_orden); $ds_Balance2->insertRow("num_reg",$li_nro_reg); $ds_Balance2->insertRow("sc_cuenta",$ls_sc_cuenta); $ds_Balance2->insertRow("denominacion",$ls_denominacion); $ds_Balance2->insertRow("nivel",$ls_nivel); $ds_Balance2->insertRow("saldo",$ld_saldo); $ds_Balance2->insertRow("rnivel",$ls_rnivel); $ds_Balance2->insertRow("total",$ld_saldo_resultado); }//for $li_tot=$ds_Balance2->getRowCount("sc_cuenta"); for ($li_i=1;$li_i<=$li_tot;$li_i++) { $ls_sc_cuenta = $ds_Balance2->data["sc_cuenta"][$li_i]; $ls_orden = $ds_Balance2->data["orden"][$li_i]; $li_nro_reg = $ds_Balance2->data["num_reg"][$li_i]; $ls_denominacion = $ds_Balance2->data["denominacion"][$li_i]; $ls_nivel = $ds_Balance2->data["nivel"][$li_i]; $ld_saldo = $ds_Balance2->data["saldo"][$li_i]; $ls_rnivel = $ds_Balance2->data["rnivel"][$li_i]; $ld_saldo_resultado = $ds_Balance2->data["total"][$li_i]; $this->ds_reporte->insertRow("orden",$ls_orden); $this->ds_reporte->insertRow("num_reg",$li_nro_reg); $this->ds_reporte->insertRow("sc_cuenta",$ls_sc_cuenta); $this->ds_reporte->insertRow("denominacion",$ls_denominacion); $this->ds_reporte->insertRow("nivel",$ls_nivel); $this->ds_reporte->insertRow("saldo",$ld_saldo); $this->ds_reporte->insertRow("rnivel",$ls_rnivel); $this->ds_reporte->insertRow("total",$ld_saldo_resultado); }//for unset($this->ds_Prebalance,$this->ds_Balance1,$ds_Balance2); return $lb_valido; }
function uf_load_creditos_nota($as_codemp, $as_numncnd, $as_numrecdoc, $as_codtipdoc, $as_numsol, $as_codope, $as_tipproben, $as_codproben) { require_once "../../shared/class_folder/sigesp_include.php"; $io_include = new sigesp_include(); $io_conexion = $io_include->uf_conectar(); require_once "../../shared/class_folder/class_sql.php"; $io_sql = new class_sql($io_conexion); require_once "../../shared/class_folder/class_mensajes.php"; $io_mensajes = new class_mensajes(); require_once "../../shared/class_folder/class_funciones.php"; $io_funciones = new class_funciones(); require_once "../../shared/class_folder/class_datastore.php"; $io_ds_cargos = new class_datastore(); $ls_sqlaux = ""; $ld_montotcre = 0; if ($as_tipproben == 'P') { $ls_sqlaux = " AND cxp_dc_cargos.cod_pro='" . $as_codproben . "' AND cxp_dc_cargos.ced_bene='----------'"; } elseif ($as_tipproben == 'B') { $ls_sqlaux = " AND trim(cxp_dc_cargos.ced_bene)='" . trim($as_codproben) . "' AND cxp_dc_cargos.cod_pro='----------'"; } else { $ls_sqlaux = " AND cxp_dc_cargos.cod_pro='----------'"; } $ls_sql = "SELECT cxp_dc_cargos.* \n\t FROM cxp_dc_cargos, cxp_rd, cxp_solicitudes, cxp_dt_solicitudes\n\t\t\t\t WHERE cxp_dc_cargos.codemp='" . $as_codemp . "'\n\t\t\t\t AND cxp_dc_cargos.numsol='" . $as_numsol . "'\n\t\t\t\t\tAND trim(cxp_dc_cargos.numrecdoc)='" . trim($as_numrecdoc) . "'\n\t\t\t\t\tAND cxp_dc_cargos.codtipdoc='" . $as_codtipdoc . "'\n\t\t\t\t\tAND cxp_dc_cargos.codope='" . $as_codope . "'\n\t\t\t\t\tAND trim(cxp_dc_cargos.numdc)='" . trim($as_numncnd) . "' {$ls_sqlaux}\n\t\t\t\t\tAND cxp_dc_cargos.codemp=cxp_solicitudes.codemp\n\t\t\t\t\tAND cxp_dc_cargos.numsol=cxp_solicitudes.numsol\t\t\t\t\t\n\t\t\t\t\tAND cxp_solicitudes.codemp=cxp_dt_solicitudes.codemp\n\t\t\t\t\tAND cxp_solicitudes.numsol=cxp_dt_solicitudes.numsol\t\t\t\t\t\n\t\t\t\t\tAND cxp_dc_cargos.codemp=cxp_dt_solicitudes.codemp\n\t\t\t\t\tAND cxp_dc_cargos.codtipdoc=cxp_dt_solicitudes.codtipdoc\n\t\t\t\t\tAND cxp_dc_cargos.numrecdoc=cxp_dt_solicitudes.numrecdoc\n\t\t\t\t\tAND cxp_dc_cargos.cod_pro=cxp_dt_solicitudes.cod_pro\n\t\t\t\t\tAND cxp_dc_cargos.ced_bene=cxp_dt_solicitudes.ced_bene\t\t\t\t\t\n\t\t\t\t\tAND cxp_rd.codemp=cxp_dt_solicitudes.codemp\n\t\t\t\t\tAND cxp_rd.codtipdoc=cxp_dt_solicitudes.codtipdoc\n\t\t\t\t\tAND cxp_rd.numrecdoc=cxp_dt_solicitudes.numrecdoc\n\t\t\t\t\tAND cxp_rd.cod_pro=cxp_dt_solicitudes.cod_pro\n\t\t\t\t\tAND cxp_rd.ced_bene=cxp_dt_solicitudes.ced_bene"; //echo $ls_sql.'<br>'; $rs_data = $io_sql->select($ls_sql); if ($rs_data === false) { $this->io_mensajes->message("CLASE->Recepcion MÉTODO->uf_load_creditos_nota ERROR->" . $this->io_funciones->uf_convertirmsg($this->io_sql->message)); $rs_data = false; } else { $li_numrows = $io_sql->num_rows($rs_data); if ($li_numrows > 0) { while ($row = $io_sql->fetch_row($rs_data)) { $ls_codcar = $row["codcar"]; $ld_monret = $row["monret"]; $ls_spgcta = trim($row["spg_cuenta"]); $ls_estcla = $row["estcla"]; $ld_monret = $row["monret"]; $ld_monobjret = $row["monobjret"]; $ls_codestpro = $row["codestpro1"] . $row["codestpro2"] . $row["codestpro3"] . $row["codestpro4"] . $row["codestpro5"]; $io_ds_cargos->insertRow("codcar", $ls_codcar); $io_ds_cargos->insertRow("spg_cuenta", $ls_spgcta); $io_ds_cargos->insertRow("estcla", $ls_estcla); $io_ds_cargos->insertRow("codestpro", $ls_codestpro); $io_ds_cargos->insertRow("monret", number_format($ld_monret, 2, ',', '.')); $io_ds_cargos->insertRow("monobjret", number_format($ld_monobjret, 2, ',', '.')); $ld_montotcre += $ld_monret; } $_SESSION["la_crenotas"] = $io_ds_cargos->data; } } unset($io_include, $io_conexion, $io_sql, $io_mensajes, $io_funciones, $io_ds_cargos); return $ld_montotcre; }
function uf_balance_general($ad_fecfin,$ai_nivel) { $lb_valido=true; $ds_Balance2=new class_datastore(); $ldec_resultado=0; $ld_saldo_ganancia=0; $this->ls_activo=trim($this->la_empresa["activo"]); $this->ls_pasivo=trim($this->la_empresa["pasivo"]); $this->ls_resultado=trim($this->la_empresa["resultado"]); $this->ls_capital=trim($this->la_empresa["capital"]); $this->ls_orden_d=trim($this->la_empresa["orden_d"]); $this->ls_orden_h=trim($this->la_empresa["orden_h"]); $this->ls_ingreso=trim($this->la_empresa["ingreso"]); $this->ls_gastos =trim($this->la_empresa["gasto"]); $this->ls_cta_resultado = trim($this->la_empresa["c_resultad"]); $ad_fecfin=$this->io_fun->uf_convertirdatetobd($ad_fecfin); $ls_codemp=$this->la_empresa["codemp"]; $ls_sql=" SELECT SC.sc_cuenta,SC.denominacion,SC.status,SC.nivel as rnivel, ". " coalesce(curSaldo.T_Debe,0) as total_debe, ". " coalesce(curSaldo.T_Haber,0) as total_haber,0 as nivel ". " FROM scg_cuentas SC LEFT OUTER JOIN (SELECT codemp,sc_cuenta, coalesce(sum(debe_mesaux),0)as T_Debe, ". " coalesce(sum(haber_mesaux),0) as T_Haber ". " FROM scg_saldos ". " WHERE codemp='".$ls_codemp."' AND fecsal<='".$ad_fecfin."' ". " GROUP BY codemp,sc_cuenta) curSaldo ". " ON SC.sc_cuenta=curSaldo.sc_cuenta ". " WHERE SC.codemp=curSaldo.codemp AND curSaldo.codemp='".$ls_codemp."' AND ". " (SC.sc_cuenta like '".$this->ls_activo."%' OR SC.sc_cuenta like '".$this->ls_pasivo."%' OR ". " SC.sc_cuenta like '".$this->ls_resultado."%' OR SC.sc_cuenta like '".$this->ls_capital."%' OR ". " SC.sc_cuenta like '".$this->ls_orden_d."%' OR SC.sc_cuenta like '".$this->ls_orden_h."%') ". " ORDER BY SC.sc_cuenta "; $rs_data=$this->io_sql->select($ls_sql); if($rs_data===false) {// error interno sql $this->is_msg_error="Error en consulta metodo uf_scg_reporte_balance_general ".$this->io_fun->uf_convertirmsg($this->io_sql->message); print $this->io_sql->message; $lb_valido = false; } else { $ld_saldo_ganancia=0; while($row=$this->io_sql->fetch_row($rs_data)) { $ls_sc_cuenta=$row["sc_cuenta"]; $ls_denominacion=$row["denominacion"]; $ls_status=$row["status"]; $ls_rnivel=$row["rnivel"]; $ld_total_debe=$row["total_debe"]; $ld_total_haber=$row["total_haber"]; if($ls_status=="C") { $ls_nivel="4"; }//if else { $ls_nivel=$ls_rnivel; }//else if($ls_nivel<=$ai_nivel) { $this->ds_Prebalance->insertRow("sc_cuenta",$ls_sc_cuenta); $this->ds_Prebalance->insertRow("denominacion",$ls_denominacion); $this->ds_Prebalance->insertRow("status",$ls_status); $this->ds_Prebalance->insertRow("nivel",$ls_nivel); $this->ds_Prebalance->insertRow("rnivel",$ls_rnivel); $this->ds_Prebalance->insertRow("total_debe",$ld_total_debe); $this->ds_Prebalance->insertRow("total_haber",$ld_total_haber); $lb_valido = true; }//if }//while $li=$this->ds_Prebalance->getRowCount("sc_cuenta"); if($li==0) { $lb_valido = false; return false; }//if } //else $ld_saldo_i=0; if($lb_valido) { $lb_valido=$this->uf_scg_reporte_select_saldo_ingreso_BG($ad_fecfin,$this->ls_ingreso,$ld_saldo_i); } if($lb_valido) { $ld_saldo_g=0; $lb_valido=$this->uf_scg_reporte_select_saldo_gasto_BG($ad_fecfin,$this->ls_gastos,$ld_saldo_g); }//if if($lb_valido) { $ld_saldo_ganancia=$ld_saldo_ganancia+($ld_saldo_i+$ld_saldo_g); }//if $la_sc_cuenta=array(); $la_denominacion=array(); $la_saldo=array(); for($i=1;$i<=$ai_nivel;$i++) { $la_sc_cuenta[$i]=""; $la_denominacion[$i]=""; $la_saldo[$i]=0; }//for $li_nro_reg=0; $ld_saldo_resultado=0; $li_row=$this->ds_Prebalance->getRowCount("sc_cuenta"); for($li_z=1;$li_z<=$li_row;$li_z++) { $ls_sc_cuenta=$this->ds_Prebalance->getValue("sc_cuenta",$li_z); $ldec_debe=$this->ds_Prebalance->getValue("total_debe",$li_z); $ldec_haber=$this->ds_Prebalance->getValue("total_haber",$li_z); $li_nivel=$this->ds_Prebalance->getValue("nivel",$li_z); $ls_denominacion=$this->ds_Prebalance->getValue("denominacion",$li_z); $ls_tipo_cuenta=substr($ls_sc_cuenta,0,1); switch($ls_tipo_cuenta){ case $this->ls_activo: $ls_orden=1; break; case $this->ls_pasivo: $ls_orden=2; break; case $this->ls_capital: $ls_orden=3; break; case $this->ls_resultado: $ls_orden=4; break; case $this->ls_orden_d: $ls_orden=5; break; case $this->ls_orden_h: $ls_orden=6; break; default: $ls_orden=7; } $ldec_saldo=$ldec_debe-$ldec_haber; if( (($ls_tipo_cuenta==$this->ls_pasivo)||($ls_tipo_cuenta==$this->ls_resultado)||($ls_tipo_cuenta==$this->ls_capital))&&($li_nivel==1)) { $ld_saldo_resultado=$ld_saldo_resultado+$ldec_saldo; //print $ld_saldo_resultado; } if($li_nivel==4) { $li_nro_reg=$li_nro_reg+1; $this->ds_Balance1->insertRow("orden",$ls_orden); $this->ds_Balance1->insertRow("num_reg",$li_nro_reg); $this->ds_Balance1->insertRow("sc_cuenta",$ls_sc_cuenta); $this->ds_Balance1->insertRow("denominacion",$ls_denominacion); $this->ds_Balance1->insertRow("nivel",$li_nivel); $this->ds_Balance1->insertRow("saldo",$ldec_saldo); } else { if(empty($la_sc_cuenta[$li_nivel])) { $la_sc_cuenta[$ls_nivel]=$ls_sc_cuenta; $la_denominacion[$ls_nivel]=$ls_denominacion; $la_saldo[$ls_nivel]=$ldec_saldo; $li_nro_reg=$li_nro_reg+1; $this->ds_Balance1->insertRow("orden",$ls_orden); $this->ds_Balance1->insertRow("num_reg",$li_nro_reg); $this->ds_Balance1->insertRow("sc_cuenta",$ls_sc_cuenta); $this->ds_Balance1->insertRow("denominacion",$ls_denominacion); $this->ds_Balance1->insertRow("nivel",-$li_nivel); $this->ds_Balance1->insertRow("saldo",$ldec_saldo); } else { $this->uf_scg_reporte_calcular_total_BG($li_nro_reg,$ls_prev_nivel,$ls_nivel,$la_sc_cuenta,$la_denominacion,$la_saldo); $la_sc_cuenta[$ls_nivel]=$ls_sc_cuenta; $la_denominacion[$ls_nivel]=$ls_denominacion; $la_saldo[$ls_nivel]=$ldec_saldo; $li_nro_reg=$li_nro_reg+1; $this->ds_Balance1->insertRow("orden",$ls_orden); $this->ds_Balance1->insertRow("num_reg",$li_nro_reg); $this->ds_Balance1->insertRow("sc_cuenta",$ls_sc_cuenta); $this->ds_Balance1->insertRow("denominacion",$ls_denominacion); $this->ds_Balance1->insertRow("nivel",-$li_nivel); $this->ds_Balance1->insertRow("saldo",$ldec_saldo); } } $ls_prev_nivel=$li_nivel; } $this->uf_scg_reporte_calcular_total_BG(&$li_nro_reg,$ls_prev_nivel,1,$la_sc_cuenta,$la_denominacion,$la_saldo); $ld_saldo_resultado=($ld_saldo_resultado+$ld_saldo_ganancia); /*if($ld_saldo_ganancia>0) { $ld_saldo_resultado=$ld_saldo_resultado-$ld_saldo_ganancia; } else { $ld_saldo_resultado=$ld_saldo_resultado+abs($ld_saldo_ganancia); } */ $this->uf_scg_reporte_actualizar_resultado_BG($this->ls_cta_resultado,$ld_saldo_ganancia,$li_nro_reg,$ls_orden); $li_total=$this->ds_Balance1->getRowCount("sc_cuenta"); for($li_i=1;$li_i<=$li_total;$li_i++) { $ls_sc_cuenta=$this->ds_Balance1->data["sc_cuenta"][$li_i]; $ls_orden=$this->ds_Balance1->data["orden"][$li_i]; $li_nro_reg=$this->ds_Balance1->data["num_reg"][$li_i]; $ls_denominacion=$this->ds_Balance1->data["denominacion"][$li_i]; $ls_nivel=$this->ds_Balance1->data["nivel"][$li_i]; $ld_saldo=$this->ds_Balance1->data["saldo"][$li_i]; $li_pos=$this->ds_Prebalance->find("sc_cuenta",$ls_sc_cuenta); if($li_pos>0) { $ls_rnivel=$this->ds_Prebalance->data["rnivel"][$li_pos]; } else { $ls_rnivel=0; } $ds_Balance2->insertRow("orden",$ls_orden); $ds_Balance2->insertRow("num_reg",$li_nro_reg); $ds_Balance2->insertRow("sc_cuenta",$ls_sc_cuenta); $ds_Balance2->insertRow("denominacion",$ls_denominacion); $ds_Balance2->insertRow("nivel",$ls_nivel); $ds_Balance2->insertRow("saldo",$ld_saldo); $ds_Balance2->insertRow("rnivel",$ls_rnivel); $ds_Balance2->insertRow("total",$ld_saldo_resultado); }//for $li_tot=$ds_Balance2->getRowCount("sc_cuenta"); for($li_i=1;$li_i<=$li_tot;$li_i++) { $ls_sc_cuenta=$ds_Balance2->data["sc_cuenta"][$li_i]; $ls_orden=$ds_Balance2->data["orden"][$li_i]; $li_nro_reg=$ds_Balance2->data["num_reg"][$li_i]; $ls_denominacion=$ds_Balance2->data["denominacion"][$li_i]; $ls_nivel=$ds_Balance2->data["nivel"][$li_i]; $ld_saldo=$ds_Balance2->data["saldo"][$li_i]; $ls_rnivel=$ds_Balance2->data["rnivel"][$li_i]; $ld_saldo_resultado=$ds_Balance2->data["total"][$li_i]; if($ls_rnivel<=$ai_nivel) { $this->ds_reporte->insertRow("orden",$ls_orden); $this->ds_reporte->insertRow("num_reg",$li_nro_reg); $this->ds_reporte->insertRow("sc_cuenta",$ls_sc_cuenta); $this->ds_reporte->insertRow("denominacion",$ls_denominacion); $this->ds_reporte->insertRow("nivel",$ls_nivel); $this->ds_reporte->insertRow("saldo",$ld_saldo); $this->ds_reporte->insertRow("rnivel",$ls_rnivel); $this->ds_reporte->insertRow("total",$ld_saldo_resultado); }//if }//for unset($this->ds_Prebalance); unset($this->ds_Balance1); unset($ds_Balance2); return $lb_valido; }
function uf_calcular_saldolibro($as_codban,$as_ctaban,$ad_fecha) { ///////////////////////////////////////////////////////////////////////////// // Funtion : uf_calcular_saldolibro // Return : ldec_saldo // Descripcion : Fucnion que se encarga de obtener el saldo de los movimientos registrdos en libro ///////////////////////////////////////////////////////////////////////////// $ldec_monto_haber=0;$ldec_monto_debe=0;$ldec_saldo=0; $ls_codemp = $this->dat["codemp"]; $ld_fecha=$this->io_fecha->uf_last_day(substr($ad_fecha,0,2),substr($ad_fecha,3,4)); $ld_fecha = $this->fun->uf_convertirdatetobd($ld_fecha); $ds_debe=new class_datastore(); $ds_haber=new class_datastore(); //--------------------DEBE------------------------------------// $ls_sql="SELECT (monto - monret) As mondeb,estmov FROM scb_movbco WHERE codban='".$as_codban."' AND ctaban='".$as_ctaban."' AND (codope='NC' OR codope='DP') AND ((estreglib IS NULL) or estreglib<>'A' or (estreglib='A' AND estcon=1)) AND codemp='".$ls_codemp."' AND fecmov<='".$ld_fecha."'"; $rs_saldos=$this->io_sql->select($ls_sql); if(($rs_saldos==false)&&($this->io_sql->message!="")) { print "Saldolibro".$this->io_sql->message; } else { while($row=$this->io_sql->fetch_row($rs_saldos)) { $ds_debe->insertRow("mondeb", $row["mondeb"]); $ds_debe->insertRow("estmov", $row["estmov"]); } } $this->io_sql->free_result($rs_saldos); //-----------------------HABER---------------------------------------// $ls_sql="SELECT (monto - monret) As monhab,estmov FROM scb_movbco WHERE codban='".$as_codban."' AND ctaban='".$as_ctaban."' AND (codope='RE' OR codope='ND' OR codope='CH') AND ((estreglib IS NULL) or estreglib<>'A' OR (estreglib='A' AND estcon=1)) AND codemp='".$ls_codemp."' AND fecmov<='".$ld_fecha."'"; $rs_saldos=$this->io_sql->select($ls_sql); if(($rs_saldos==false)&&($this->io_sql->message!="")) { print "Saldolibro".$this->io_sql->message; } else { while($row=$this->io_sql->fetch_row($rs_saldos)) { $ds_haber->insertRow("monhab", $row["monhab"]); $ds_haber->insertRow("estmov", $row["estmov"]); } } $this->io_sql->free_result($rs_saldos); $li_totdebe=$ds_debe->getRowCount("estmov"); $ldec_totdeb=0; $ldec_totdeb_anulado=0; for($li_i=1;$li_i<=$li_totdebe;$li_i++) { $ls_estmov=$ds_debe->getValue("estmov",$li_i); $ls_mondeb=$ds_debe->getValue("mondeb",$li_i); if($ls_estmov!='A') { $ldec_totdeb+=$ls_mondeb; } else { $ldec_totdeb_anulado+=$ls_mondeb; } } $ldec_totdeb=$ldec_totdeb-$ldec_totdeb_anulado; $li_tothaber=$ds_haber->getRowCount("estmov"); $ldec_tothab=0; $ldec_tothab_anulado=0; for($li_i=1;$li_i<=$li_tothaber;$li_i++) { $ls_estmov=$ds_haber->getValue("estmov",$li_i); $ls_monhab=$ds_haber->getValue("monhab",$li_i); if($ls_estmov!='A') { $ldec_tothab+=$ls_monhab; } else { $ldec_tothab_anulado+=$ls_monhab; } } $ldec_tothab=number_format($ldec_tothab,4,'.',''); $ldec_tothab_anulado=number_format($ldec_tothab_anulado,4,'.',''); $ldec_tothab=$ldec_tothab-$ldec_tothab_anulado; $ldec_saldo=$ldec_totdeb-$ldec_tothab; return $ldec_saldo; }
function uf_preparar_resumen($ls_codemp,$adt_fecdesde,$adt_fechasta) { $ls_cuenta_resultado="";$ldec_ganancia=""; $li_maxnivel=3; $li_activo=$this->la_empresa["activo"]; $li_pasivo=$this->la_empresa["pasivo"]; $li_resultado=$this->la_empresa["resultado"]; $li_capital=$this->la_empresa["capital"]; $li_orden_d=$this->la_empresa["orden_d"]; $li_orden_h=$this->la_empresa["orden_h"]; $li_ingreso=$this->la_empresa["ingreso"]; $li_gastos =$this->la_empresa["gasto"]; $ds_balance2=new class_datastore(); $ls_cuenta_resultado = $this->la_empresa["c_resultad"]; $ls_sql=" SELECT SC.sc_cuenta,SC.denominacion,SC.status,SC.nivel as rnivel, ". " coalesce(curSaldo.T_Debe,0) as total_debe, ". " coalesce(curSaldo.T_Haber,0) as total_haber,0 as nivel ". " FROM scg_cuentas SC LEFT OUTER JOIN (SELECT codemp,sc_cuenta, coalesce(sum(debe_mesaux),0)as T_Debe, ". " coalesce(sum(haber_mesaux),0) as T_Haber ". " FROM scg_saldos ". " WHERE codemp='".$ls_codemp."' AND fecsal between '".$this->io_fun->uf_convertirdatetobd($adt_fecdesde)."' AND '".$this->io_fun->uf_convertirdatetobd($adt_fechasta)."' ". " GROUP BY sc_cuenta) curSaldo ". " ON SC.sc_cuenta=curSaldo.sc_cuenta ". " WHERE SC.codemp=curSaldo.codemp AND curSaldo.codemp='".$ls_codemp."' AND ". " (SC.sc_cuenta like '".$li_activo."%' OR SC.sc_cuenta like '".$li_pasivo."%' OR ". " SC.sc_cuenta like '".$li_resultado."%' OR SC.sc_cuenta like '".$li_capital."%' OR ". " SC.sc_cuenta like '".$li_orden_d."%' OR SC.sc_cuenta like '".$li_orden_h."%') AND SC.nivel<=".$li_maxnivel. " ORDER BY SC.sc_cuenta "; $rs_data=$this->io_sql->select($ls_sql); if($rs_data===false) {// error interno sql $this->is_msg_error="Error en consulta metodo uf_scg_reporte_balance_general ".$this->io_fun->uf_convertirmsg($this->io_sql->message); print $this->is_msg_error; $lb_valido = false; } else { $ld_saldo_ganancia=0; while($row=$this->io_sql->fetch_row($rs_data)) { $ls_sc_cuenta=$row["sc_cuenta"]; $ls_denominacion=$row["denominacion"]; $ls_status=$row["status"]; $ls_rnivel=$row["rnivel"]; $ld_total_debe=$row["total_debe"]; $ld_total_haber=$row["total_haber"]; if($ls_status=="C") { $ls_nivel="4"; }//if else { $ls_nivel=$ls_rnivel; }//else $this->ds_prebalance->insertRow("sc_cuenta",$ls_sc_cuenta); $this->ds_prebalance->insertRow("denominacion",$ls_denominacion); $this->ds_prebalance->insertRow("status",$ls_status); $this->ds_prebalance->insertRow("nivel",$ls_nivel); $this->ds_prebalance->insertRow("rnivel",$ls_rnivel); $this->ds_prebalance->insertRow("total_debe",$ld_total_debe); $this->ds_prebalance->insertRow("total_haber",$ld_total_haber); $lb_valido = true; }//while $li=$this->ds_prebalance->getRowCount("sc_cuenta"); if($li==0) { $lb_valido = false; return false; }//if } //else $ld_saldo_i=0; if($lb_valido) { $lb_valido=$this->uf_scg_reporte_select_saldo_ingreso_BG($adt_fecdesde,$adt_fechasta,$li_ingreso,$ld_saldo_i); } if($lb_valido) { $ld_saldo_g=0; $lb_valido=$this->uf_scg_reporte_select_saldo_gasto_BG($adt_fecdesde,$adt_fechasta,$li_gastos,$ld_saldo_g); }//if if($lb_valido) { $ld_saldo_ganancia=$ld_saldo_ganancia+($ld_saldo_i+$ld_saldo_g); }//if $la_sc_cuenta=array(); $la_denominacion=array(); $la_saldo=array(); $li_nivel=3; for($i=1;$i<=$li_nivel;$i++) { $la_sc_cuenta[$i]=""; $la_denominacion[$i]=""; $la_saldo[$i]=0; }//for $li_nro_reg=0; $ld_saldo_resultado=0; $li_row=$this->ds_prebalance->getRowCount("sc_cuenta"); for($li_i=1;$li_i<=$li_row;$li_i++) { $ls_sc_cuenta=$this->ds_prebalance->getValue("sc_cuenta",$li_i); $ls_status=$this->ds_prebalance->getValue("status",$li_i); $ls_denominacion=$this->ds_prebalance->getValue("denominacion",$li_i); $ls_rnivel=$this->ds_prebalance->getValue("rnivel",$li_i); $ld_total_debe=$this->ds_prebalance->getValue("total_debe",$li_i); $ld_total_haber=$this->ds_prebalance->getValue("total_haber",$li_i); $ls_nivel=$this->ds_prebalance->getValue("nivel",$li_i); $ls_tipo_cuenta=substr($ls_sc_cuenta,0,1); $ls_orden="7"; if($ls_tipo_cuenta==$li_activo ) { $ls_orden="1"; } if($ls_tipo_cuenta==$li_pasivo ) { $ls_orden="2"; } if($ls_tipo_cuenta==$li_capital ) { $ls_orden="3"; } if($ls_tipo_cuenta==$li_resultado){ $ls_orden="4"; } if($ls_tipo_cuenta==$li_orden_d ) { $ls_orden="5"; } if($ls_tipo_cuenta==$li_orden_h ) { $ls_orden="6"; } $ld_saldo=abs($ld_total_debe-$ld_total_haber); if((($ls_tipo_cuenta==$li_pasivo)||($ls_tipo_cuenta==$li_resultado)||($ls_tipo_cuenta==$li_capital))&&($ls_nivel==1)) { $ld_saldo_resultado=$ld_saldo_resultado+$ld_saldo; }//if if($ls_nivel==4) { $li_nro_reg=$li_nro_reg+1; $this->ds_balance1->insertRow("orden",$ls_orden); $this->ds_balance1->insertRow("num_reg",$li_nro_reg); $this->ds_balance1->insertRow("sc_cuenta",$ls_sc_cuenta); $this->ds_balance1->insertRow("denominacion",$ls_denominacion); $this->ds_balance1->insertRow("nivel",$ls_nivel); $this->ds_balance1->insertRow("saldo",$ld_saldo); }//if else { if (empty($la_sc_cuenta[$ls_nivel])) { $la_sc_cuenta[$ls_nivel]=$ls_sc_cuenta; $la_denominacion[$ls_nivel]=$ls_denominacion; $la_saldo[$ls_nivel]=$ld_saldo; $li_nro_reg=$li_nro_reg+1; $this->ds_balance1->insertRow("orden",$ls_orden); $this->ds_balance1->insertRow("num_reg",$li_nro_reg); $this->ds_balance1->insertRow("sc_cuenta",$ls_sc_cuenta); $this->ds_balance1->insertRow("denominacion",$ls_denominacion); $this->ds_balance1->insertRow("nivel",-$ls_nivel); $this->ds_balance1->insertRow("saldo",$ld_saldo); }//if else { $this->uf_scg_reporte_calcular_total_BG($li_nro_reg,$ls_prev_nivel,$ls_nivel,$la_sc_cuenta,$la_denominacion,$la_saldo,$li_activo,$li_pasivo,$li_capital,$li_resultado,$li_orden_d,$li_orden_h); $la_sc_cuenta[$ls_nivel]=$ls_sc_cuenta; $la_denominacion[$ls_nivel]=$ls_denominacion; $la_saldo[$ls_nivel]=$ld_saldo; $li_nro_reg=$li_nro_reg+1; $this->ds_balance1->insertRow("orden",$ls_orden); $this->ds_balance1->insertRow("num_reg",$li_nro_reg); $this->ds_balance1->insertRow("sc_cuenta",$ls_sc_cuenta); $this->ds_balance1->insertRow("denominacion",$ls_denominacion); $this->ds_balance1->insertRow("nivel",-$ls_nivel); $this->ds_balance1->insertRow("saldo",$ld_saldo); }//else $ls_prev_nivel=$ls_nivel; }//else }//for $this->uf_scg_reporte_actualizar_resultado_BG($ls_cuenta_resultado,abs($ld_saldo_ganancia),$li_nro_reg,$ls_orden); if($ld_saldo_ganancia>0) { $ld_saldo_resultado=$ld_saldo_resultado-$ld_saldo_ganancia; } else { $ld_saldo_resultado=$ld_saldo_resultado+abs($ld_saldo_ganancia); } $li_total=$this->ds_balance1->getRowCount("sc_cuenta"); for($li_i=1;$li_i<=$li_total;$li_i++) { $ls_sc_cuenta=$this->ds_balance1->data["sc_cuenta"][$li_i]; $ls_orden=$this->ds_balance1->data["orden"][$li_i]; $li_nro_reg=$this->ds_balance1->data["num_reg"][$li_i]; $ls_denominacion=$this->ds_balance1->data["denominacion"][$li_i]; $ls_nivel=$this->ds_balance1->data["nivel"][$li_i]; $ld_saldo=$this->ds_balance1->data["saldo"][$li_i]; $li_pos=$this->ds_prebalance->find("sc_cuenta",$ls_sc_cuenta); if($li_pos>0) { $ls_rnivel=$this->ds_prebalance->data["rnivel"][$li_pos]; } else { $ls_rnivel=0; } $ds_balance2->insertRow("orden",$ls_orden); $ds_balance2->insertRow("num_reg",$li_nro_reg); $ds_balance2->insertRow("sc_cuenta",$ls_sc_cuenta); $ds_balance2->insertRow("denominacion",$ls_denominacion); $ds_balance2->insertRow("nivel",$ls_nivel); $ds_balance2->insertRow("saldo",abs($ld_saldo)); $ds_balance2->insertRow("rnivel",$ls_rnivel); $ds_balance2->insertRow("total",abs($ld_saldo_resultado)); }//for $li_tot=$ds_balance2->getRowCount("sc_cuenta"); /* for($li_i=1;$li_i<=$li_tot;$li_i++) { $ls_sc_cuenta = $ds_balance2->data["sc_cuenta"][$li_i]; $ls_orden = $ds_balance2->data["orden"][$li_i]; $li_nro_reg = $ds_balance2->data["num_reg"][$li_i]; $ls_denominacion= $ds_balance2->data["denominacion"][$li_i]; $ls_nivel = $ds_balance2->data["nivel"][$li_i]; $ld_saldo = $ds_balance2->data["saldo"][$li_i]; $ls_rnivel = $ds_balance2->data["rnivel"][$li_i]; $ld_saldo_resultado=$ds_balance2->data["total"][$li_i]; if($ls_rnivel<=$li_maxnivel) { $this->ds_reporte->insertRow("orden",$ls_orden); $this->ds_reporte->insertRow("num_reg",$li_nro_reg); $this->ds_reporte->insertRow("sc_cuenta",$ls_sc_cuenta); $this->ds_reporte->insertRow("denominacion",$ls_denominacion); $this->ds_reporte->insertRow("nivel",$ls_nivel); $this->ds_reporte->insertRow("saldo",$ld_saldo); $this->ds_reporte->insertRow("rnivel",$ls_rnivel); $this->ds_reporte->insertRow("total",$ld_saldo_resultado); }//if }//for*/ $this->ds_prebalance->reset_ds(); $this->ds_balance1->reset_ds(); $ds_balance2->reset_ds(); return $ld_saldo_resultado; }
$ldec_baseimp = $row["baseimp"]; $ls_codcar = $row["codcar"]; $ls_cargo = ''; $lb_valido = false; $ls_scgcuenta = $row["sc_cuenta"]; $io_dspresupuesto->insertRow('txtcodcar',$ls_codcar); $io_dspresupuesto->insertRow('txtestcla',$ls_estcla); $io_dspresupuesto->insertRow('txtmontopre',$ld_monto); $io_dspresupuesto->insertRow('txtbaseimp',$ldec_baseimp); $io_dspresupuesto->insertRow('txtestadistico',$ls_spgcuenta); $io_dspresupuesto->insertRow('txtcompromisopre',$ls_comprobante); $io_dspresupuesto->insertRow('txtprogramatico',$ls_programatica); $ld_monto = doubleval($ld_monto); $ld_montodebe = $ld_montodebe+$ld_monto; $io_dscontable->insertRow('txtcompromisocon',$ls_comprobante); $io_dscontable->insertRow('txtcontable',$ls_scgcuenta); $io_dscontable->insertRow('txtoperacion','D'); $io_dscontable->insertRow('txtmontocont',$ld_monto); $io_dscontable->insertRow('txtmontoorig',$ld_monto); $ls_deduccion = ''; } } $io_dscontable->insertRow('txtcompromisocon',$ls_mov_document); $io_dscontable->insertRow('txtcontable',$ls_cuenta_scg); $io_dscontable->insertRow('txtoperacion','H'); $io_dscontable->insertRow('txtmontocont',$ld_montopro); $io_dscontable->insertRow('txtmontoorig',$ld_montopro); $li_totdspresupuesto=$io_dspresupuesto->getRowCount('txtestadistico'); $li_auxpre = 0;
function uf_procesar_programacion($as_filnam, $ai_totrow, $aa_seguridad) { ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Function: uf_procesar_programacion // Access: private // Arguments: $as_filnam // $ai_totrow // $aa_seguridad // Returns: . // Description: . // Creado Por: Ing. Nestor Falcón. // Fecha Creación: 07/07/2008. Fecha Última Modificación : 07/07/2008. ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// require_once "../shared/class_folder/class_datastore.php"; $io_dsprog = new class_datastore(); $lb_valido = true; $ls_cedben = $_POST["txtcedben"]; $lb_exiben = $this->io_xml->uf_validar_beneficiario($this->ls_codemp, $ls_cedben); if ($lb_exiben) { $ls_numsol = $_POST["txtnumsol"]; $ls_fecliq = $this->io_funcion->uf_convertirdatetobd($_POST["txtfecliq"]); $lb_valido = $this->uf_load_solicitud_pago($as_filnam, $ls_numsol, $ls_fecliq); if ($lb_valido) { for ($li_i = 1; $li_i <= $ai_totrow; $li_i++) { $ls_numsoldes = $_POST["hidnumsol" . $li_i]; if ($ls_numsoldes != $ls_numsol) { $ls_errmsg = "{$as_filnam}.- Inconsistencia entre Numeros de Solicitud (Cabecera/Detalle) !!!"; $this->io_msg->message($ls_errmsg); $lb_valido = false; } if ($lb_valido) { $ls_codban = $_POST["hidcodban" . $li_i]; $lb_exiban = $this->io_xml->uf_validar_banco($this->ls_codemp, $ls_codban); if (!$lb_exiban) { $ls_errmsg = "{$as_filnam}.- Codigo del Banco no encontrado !!!"; $this->io_msg->message($ls_errmsg); $lb_valido = false; } } if ($lb_valido) { $ls_ctaban = $_POST["hidctaban" . $li_i]; $lb_exicta = $this->io_xml->uf_validar_cuenta_bancaria($this->ls_codemp, $ls_codban, $ls_ctaban); if (!$lb_exicta) { $ls_errmsg = "{$ls_filnam}.- Cuenta Bancaria no encontrada !!!"; $this->io_msg->message($ls_errmsg); $lb_valido = false; } } if ($lb_valido) { $io_dsprog->insertRow("codban", $ls_codban); $io_dsprog->insertRow("ctaban", $ls_ctaban); $io_dsprog->insertRow("numsol", $ls_numsol); $io_dsprog->insertRow("fecpropag", $ls_fecliq); } else { if (isset($io_dsprog) || !empty($io_dsprog)) { unset($io_dsprog); } } } } } else { $ls_msgerr = "{$as_filnam}.- Código/Cédula del Beneficiario no encontrado !!!"; $this->io_msg->message($ls_msgerr); $lb_valido = false; } if ($lb_valido) { $la_items = array('0' => 'numsol', '1' => 'codban', '2' => 'ctaban'); $io_dsprog->group_by($la_items, array(), 'codban'); $this->io_sql->begin_transaction(); $lb_valido = $this->uf_insertar_programacion($io_dsprog, $aa_seguridad); } if ($lb_valido) { $this->io_sql->commit(); $this->io_xml->{$io_docxml}->save($as_filnam); $this->io_msg->message("Documento {$as_filnam}, procesado con Éxito !!!"); } else { $this->io_sql->rollback(); $this->io_msg->message("Documento {$as_filnam}, No se realizó la Programación del Pago !!!"); } }
print " close();"; print "</script>"; } else { error_reporting(E_ALL); set_time_limit(1800); $io_pdf = new Cezpdf('LETTER', 'portrait'); // Instancia de la clase PDF $io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra $io_pdf->ezSetCmMargins(4, 2.5, 3, 3); // Configuración de los margenes en centímetros $li_totrow = $io_report->DS->getRowCount("numsol"); if ($li_totrow > 1) { for ($li_i = 1; $li_i <= $li_totrow; $li_i++) { $ls_denominacion = $io_report->DS->data["dentipdoc"][$li_i]; $ds_dentipdoc->insertRow("dentipsol", $ls_denominacion); } $ds_dentipdoc->group("dentipsol"); $li_fila = $ds_dentipdoc->getRowCount("dentipsol"); for ($li_i = 1; $li_i <= $li_fila; $li_i++) { $ls_denominacion = $ds_dentipdoc->getValue("dentipsol", $li_i); if ($ls_denominacion != "") { if ($li_i == 1) { $ls_dentipdoc = $ls_denominacion; } else { $ls_dentipdoc = $ls_dentipdoc . ", " . $ls_denominacion; } } } } else { $ls_dentipdoc = $io_report->DS->data["dentipdoc"][1];
function uf_procesar_cuentas($as_cuenta_spg, $as_denominacion_cta, $aa_estpro, $as_cuenta_scg, $aa_security) { $ls_spg_cuenta = $as_cuenta_spg; $ls_cuenta_tempo = $ls_spg_cuenta; $ls_denominacion_cta = $as_denominacion_cta; $ls_scg_cuenta = $as_cuenta_scg; $ls_codest1 = $aa_estpro[0]; $ls_codest2 = $aa_estpro[1]; $ls_codest3 = $aa_estpro[2]; $ls_codest4 = $aa_estpro[3]; $ls_codest5 = $aa_estpro[4]; $ls_estcla = $aa_estpro[5]; $ls_scgctaint = $aa_estpro[6]; $lb_valido = true; //Tomo los valores anteriores de la cuenta y denominacion. if ($this->int_spg->uf_spg_select_cuenta($this->dat["codemp"], $aa_estpro, $ls_spg_cuenta, &$ls_status, &$ls_denominacion, $ls_scg_cuenta)) { $lb_valido = $this->int_spg->uf_spg_update_cuenta($ls_codest1, $ls_codest2, $ls_codest3, $ls_codest4, $ls_codest5, $ls_estcla, $ls_spg_cuenta, $ls_denominacion_cta, $as_cuenta_scg); if ($lb_valido) { $ls_estpro1 = ""; $ls_estpro2 = ""; $ls_ctapu = ""; $ls_denctapu = ""; $ls_ctaplan = ""; $this->is_msg_error = "Denominación Actualizada"; $disabled = ""; $this->int_spg->io_sql->commit(); ///////////////////////////////// SEGURIDAD ///////////////////////////// $ls_evento = "UPDATE"; $ls_desc_event = "Actualizo la cuenta " . $ls_spg_cuenta . ", asociada a la programatica " . $ls_codest1 . "-" . $ls_codest2 . "-" . $ls_codest3 . "-" . $ls_codest4 . "-" . $ls_codest5 . " y a la cuenta contable " . $ls_scg_cuenta; $ls_variable = $this->io_seguridad->uf_sss_insert_eventos_ventana($aa_security[1], $aa_security[2], $ls_evento, $aa_security[3], $aa_security[4], $ls_desc_event); //////////////////////////////// SEGURIDAD ////////////////////////////// } else { $this->is_msg_error = "Error " . $this->int_spg->io_sql->message; } } else { $ls_cuenta_tempo = $ls_spg_cuenta; $ls_denominacion = ""; $ls_NextCuenta = $this->int_spg->uf_spg_next_cuenta_nivel($ls_spg_cuenta); $li_Nivel = $this->int_spg->uf_spg_obtener_nivel($ls_NextCuenta); $li_fila = 1; $lds_cuenta_temp = new class_datastore(); do { if (!$this->int_spg->uf_spg_select_cuenta($this->dat["codemp"], $aa_estpro, $ls_NextCuenta, &$ls_status, &$ls_denominacion, $ls_scg_cuenta)) { $ls_PadNextCuenta = $this->int_scg->uf_pad_cuenta_plan($this->dat["formplan"], $ls_NextCuenta); $this->int_spg->uf_select_plan_unico_cuenta($ls_PadNextCuenta, &$as_denominacion_plan); if ($li_Nivel > 1) { $ls_cuenta_ref = $this->int_spg->uf_spg_next_cuenta_nivel($ls_NextCuenta); } else { $ls_cuenta_ref = " "; } if ($as_denominacion_plan == "") { $as_denominacion_plan = $as_denominacion_cta; } $lds_cuenta_temp->insertRow("sc_cuenta", trim($ls_scg_cuenta)); $lds_cuenta_temp->insertRow("spg_cuenta", $ls_NextCuenta); $lds_cuenta_temp->insertRow("codestpro1", $ls_codest1); $lds_cuenta_temp->insertRow("codestpro2", $ls_codest2); $lds_cuenta_temp->insertRow("codestpro3", $ls_codest3); $lds_cuenta_temp->insertRow("codestpro4", $ls_codest4); $lds_cuenta_temp->insertRow("codestpro5", $ls_codest5); $lds_cuenta_temp->insertRow("denominacion", $as_denominacion_plan); $lds_cuenta_temp->insertRow("sc_cuenta_ref", $ls_cuenta_ref); $lds_cuenta_temp->insertRow("nivel", $li_Nivel); $lds_cuenta_temp->insertRow("estcla", $ls_estcla); $lds_cuenta_temp->insertRow("scgctaint", $ls_scgctaint); $li_fila++; } if ($li_Nivel > 1) { $ls_NextCuenta = $this->int_spg->uf_spg_next_cuenta_nivel($ls_NextCuenta); $li_Nivel = $this->int_spg->uf_spg_obtener_nivel($ls_NextCuenta); } else { $li_Nivel = 0; } } while ($li_Nivel >= 1); $li_total = $lds_cuenta_temp->getRowCount("sc_cuenta"); if ($li_total > 0) { $this->int_spg->io_sql->begin_transaction(); for ($li_fila = 1; $li_fila <= $li_total; $li_fila++) { $ls_sc_cuenta = $lds_cuenta_temp->getValue("sc_cuenta", $li_fila); $ls_spg_cuenta = $lds_cuenta_temp->getValue("spg_cuenta", $li_fila); $ls_codest1 = $lds_cuenta_temp->getValue("codestpro1", $li_fila); $ls_codest2 = $lds_cuenta_temp->getValue("codestpro2", $li_fila); $ls_codest3 = $lds_cuenta_temp->getValue("codestpro3", $li_fila); $ls_codest4 = $lds_cuenta_temp->getValue("codestpro4", $li_fila); $ls_codest5 = $lds_cuenta_temp->getValue("codestpro5", $li_fila); $ls_denominacion = $lds_cuenta_temp->getValue("denominacion", $li_fila); $ls_cuenta_ref = $lds_cuenta_temp->getValue("sc_cuenta_ref", $li_fila); $li_Nivel = $lds_cuenta_temp->getValue("nivel", $li_fila); $ls_estcla = $lds_cuenta_temp->getValue("estcla", $li_fila); $ls_scgctaint = $lds_cuenta_temp->getValue("scgctaint", $li_fila); $ls_mensaje_error = "Error en Guardar"; $ls_status = "S"; $lb_valido = $this->int_spg->uf_spg_insert_cuenta($ls_codest1, $ls_codest2, $ls_codest3, $ls_codest4, $ls_codest5, $ls_estcla, $ls_spg_cuenta, $ls_denominacion, trim($ls_sc_cuenta), $ls_status, $li_Nivel, $ls_cuenta_ref, $ls_scgctaint); if (!$lb_valido) { break; } else { ///////////////////////////////// SEGURIDAD ///////////////////////////// $ls_evento = "INSERT"; $ls_desc_event = "Inserto la cuenta " . $ls_spg_cuenta . ", asociada a la programatica " . $ls_codest1 . "-" . $ls_codest2 . "-" . $ls_codest3 . "-" . $ls_codest4 . "-" . $ls_codest5 . " y a la cuenta contable " . $ls_sc_cuenta; ////////////////////////////// SEGURIDAD ///////////////////////////// } } } if ($lb_valido) { $ls_cuenta = $ls_cuenta_tempo; $ls_Cuenta_temp = $this->int_spg->uf_spg_padcuenta_plan($this->dat["formplan"], $ls_cuenta); $ls_NextCuenta = $this->int_spg->uf_spg_next_cuenta_nivel($ls_cuenta); $li_Nivel = $this->int_spg->uf_spg_obtener_nivel($ls_cuenta); $ls_status = "C"; $lb_valido = $this->int_spg->uf_spg_insert_cuenta($ls_codest1, $ls_codest2, $ls_codest3, $ls_codest4, $ls_codest5, $ls_estcla, $ls_cuenta, $ls_denominacion_cta, $as_cuenta_scg, $ls_status, $li_Nivel, $ls_NextCuenta, $ls_scgctaint); ///////////////////////////////// SEGURIDAD ///////////////////////////// $ls_evento = "INSERT"; $ls_desc_event = "Inserto la cuenta " . $ls_cuenta . ", asociada a la programatica " . $ls_codest1 . "-" . $ls_codest2 . "-" . $ls_codest3 . "-" . $ls_codest4 . "-" . $ls_codest5 . " y a la cuenta contable " . $as_cuenta_scg; ////////////////////////////// SEGURIDAD ///////////////////////////// } if ($lb_valido) { $this->int_spg->io_sql->commit(); $this->is_msg_error = "Registro guardado"; ///////////////////////////////// SEGURIDAD ///////////////////////////// $ls_variable = $this->io_seguridad->uf_sss_insert_eventos_ventana($aa_security[1], $aa_security[2], $ls_evento, $aa_security[3], $aa_security[4], $ls_desc_event); //////////////////////////////// SEGURIDAD ////////////////////////////// } else { $this->int_spg->io_sql->rollback(); $this->is_msg_error = "Error al guardar cuenta "; } } return $lb_valido; }
function uf_obtener_mov_conciliacion($ls_mesano,$ls_codban,$ls_ctaban,$ldec_salseglib,$ldec_salsegbco) { $io_fecha=new class_fecha(); $ds_mov=new class_datastore(); $ds_movimientos=new class_datastore(); $ls_codemp=$this->dat_emp["codemp"]; $ld_fechasta=$io_fecha->uf_last_day(substr($ls_mesano,0,2),substr($ls_mesano,2,4)); $ld_fechasta=$this->fun->uf_convertirdatetobd($ld_fechasta); $ld_fecdesde="01/".substr($ls_mesano,0,2)."/".substr($ls_mesano,2,4); $ld_fecdesde=$this->fun->uf_convertirdatetobd($ld_fecdesde); $ls_sql="SELECT * FROM scb_movbco WHERE codemp='".$ls_codemp."' AND codban='".$ls_codban."' AND ctaban='".$ls_ctaban."' AND fecmov <='".$ld_fechasta."' AND (estreglib=' ' OR (estreglib<>' ' AND feccon<>'".$ld_fecdesde."'))"; $rs_data=$this->SQL->select($ls_sql); if($rs_data===false) { return false; } else { while($row=$this->SQL->fetch_row($rs_data)) { $ls_codban=$row["codban"]; $ds_mov->insertRow("codban",$ls_codban); $ls_ctaban=$row["ctaban"]; $ds_mov->insertRow("ctaban",$ls_ctaban); $ls_numdoc=$row["numdoc"]; $ds_mov->insertRow("numdoc",$ls_numdoc); $ls_nomproben=$row["nomproben"]; $ds_mov->insertRow("nomproben",$ls_nomproben); $ld_fecmov=$row["fecmov"]; $ds_mov->insertRow("fecmov",$ld_fecmov); $ldec_monto=$row["monto"]; $ds_mov->insertRow("monto",$ldec_monto); $ls_conmov=$row["conmov"]; $ds_mov->insertRow("conmov" ,$ls_conmov); $ls_estmov=$row["estmov"]; $ds_mov->insertRow("estmov" ,$ls_estmov); } $this->SQL->free_result($rs_data); } //$ldec_saldo_ant=$this->uf_calcular($ds_movimientos->data,$ls_mesano); $ldec_saldo_ant=$this->uf_calcular_saldolibro($ls_codban,$ls_ctaban,$ld_fechasta); if(abs($ldec_saldo_ant-$ldec_salseglib)>0.01) { $this->io_msg->message("Vuelva a modulo conciliación ya que hay movimientos no registrados"); return false; } else { $this->io_msg->message("Todo Bien"); } $ls_sql= "SELECT '01' as tipo, '-' as suma, numdoc , nomproben, fecmov , monto-monret as monto, codope FROM scb_movbco WHERE fecmov <='".$ld_fechasta."' AND codban='".$ls_codban."' AND ctaban='".$ls_ctaban."' AND estreglib='' AND ((feccon > '".$ld_fecdesde."' ) OR (feccon='1900-01-01')) AND (((codope='CH' or codope='ND' or codope='RE') and estmov<>'A') or ((codope='DP' or codope='NC') and estmov='A'))"; $rs_data= $this->SQL->select($ls_sql); if($rs_data===false) { print $this->SQL->message; $this->io_msg->message($this->uf_convertirmsg($this->SQL->message)); return false; } else { while($row=$this->SQL->fetch_row($rs_data)) { $ls_tipo=$row["tipo"]; $ds_movimientos->insertRow("tipo",$ls_tipo); $ls_suma=$row["suma"]; $ds_movimientos->insertRow("suma",$ls_suma); $ls_numdoc=$row["numdoc"]; $ds_movimientos->insertRow("numdoc",$ls_numdoc); $ls_cedbene=$row["nomproben"]; $ds_movimientos->insertRow("nomproben",$ls_cedbene); $ls_fecha=$this->fun->uf_convertirfecmostrar($row["fecmov"]); $ds_movimientos->insertRow("fecmov",$ls_fecha); $ldec_monto=$row["monto"]; $ds_movimientos->insertRow("monto",$ldec_monto); $ls_codope=$row["codope"]; $ds_movimientos->insertRow("codope",$ls_tipo); } $this->SQL->free_result($rs_data); } $ls_sql= "SELECT '02' as tipo, '+' as suma, numdoc, nomproben, fecmov, monto-monret as monto, codope FROM scb_movbco WHERE fecmov <='".$ld_fechasta."' AND codban='".$ls_codban."' AND ctaban='".$ls_ctaban."' AND estreglib='' AND ((feccon > '".$ld_fecdesde."' ) OR (feccon='1900-01-01')) AND (((codope='CH' OR codope='ND' OR codope='RE') AND estmov='A') OR ((codope='DP' OR codope='NC') AND estmov<>'A'))"; $rs_data= $this->SQL->select($ls_sql); if($rs_data===false) { $this->io_msg->message($this->uf_convertirmsg($this->SQL->message)); return false; } else { while($row=$this->SQL->fetch_row($rs_data)) { $ls_tipo=$row["tipo"]; $ds_movimientos->insertRow("tipo",$ls_tipo); $ls_suma=$row["suma"]; $ds_movimientos->insertRow("suma",$ls_suma); $ls_numdoc=$row["numdoc"]; $ds_movimientos->insertRow("numdoc",$ls_numdoc); $ls_cedbene=$row["nomproben"]; $ds_movimientos->insertRow("nomproben",$ls_cedbene); $ls_fecha=$this->fun->uf_convertirfecmostrar($row["fecmov"]); $ds_movimientos->insertRow("fecmov",$ls_fecha); $ldec_monto=$row["monto"]; $ds_movimientos->insertRow("monto",$ldec_monto); $ls_codope=$row["codope"]; $ds_movimientos->insertRow("codope",$ls_tipo); } $this->SQL->free_result($rs_data); } // No Registradas en Libros $ls_sql = "SELECT 'A1' as tipo, '+' as suma, numdoc, conmov as nomproben,fecmov, monto-monret as monto, codope FROM scb_movbco WHERE fecmov <='".$ld_fechasta."' AND codban='".$ls_codban."' AND ctaban='".$ls_ctaban."' AND feccon='".$ld_fecdesde."' AND estreglib='A' AND (((codope='CH' OR codope='ND' OR codope='RE') AND estmov<>'A') OR ((codope='DP' OR codope='NC') AND estmov='A'))"; $rs_data= $this->SQL->select($ls_sql); if($rs_data===false) { print $this->SQL->message; return false; } else { while($row=$this->SQL->fetch_row($rs_data)) { $ls_tipo=$row["tipo"]; $ds_movimientos->insertRow("tipo",$ls_tipo); $ls_suma=$row["suma"]; $ds_movimientos->insertRow("suma",$ls_suma); $ls_numdoc=$row["numdoc"]; $ds_movimientos->insertRow("numdoc",$ls_numdoc); $ls_cedbene=$row["nomproben"]; $ds_movimientos->insertRow("nomproben",$ls_cedbene); $ls_fecha=$this->fun->uf_convertirfecmostrar($row["fecmov"]); $ds_movimientos->insertRow("fecmov",$ls_fecha); $ldec_monto=$row["monto"]; $ds_movimientos->insertRow("monto",$ldec_monto); $ls_codope=$row["codope"]; $ds_movimientos->insertRow("codope",$ls_tipo); } $this->SQL->free_result($rs_data); } $ls_sql="SELECT 'A2' as tipo, '-' as suma, numdoc, conmov as nomproben, fecmov, monto-monret as monto, codope FROM scb_movbco WHERE fecmov <='".$ld_fechasta."' AND codban='".$ls_codban."' AND ctaban='".$ls_ctaban."' AND feccon='".$ld_fecdesde."' AND estreglib='A' AND (((codope='CH' OR codope='ND' OR codope='RE') AND estmov='A') OR ((codope='DP' OR codope='NC') AND estmov<>'A'))"; $rs_data= $this->SQL->select($ls_sql); if($rs_data===false) { print $this->SQL->message; return false; } else { while($row=$this->SQL->fetch_row($rs_data)) { $ls_tipo=$row["tipo"]; $ds_movimientos->insertRow("tipo",$ls_tipo); $ls_suma=$row["suma"]; $ds_movimientos->insertRow("suma",$ls_suma); $ls_numdoc=$row["numdoc"]; $ds_movimientos->insertRow("numdoc",$ls_numdoc); $ls_cedbene=$row["nomproben"]; $ds_movimientos->insertRow("nomproben",$ls_cedbene); $ls_fecha=$this->fun->uf_convertirfecmostrar($row["fecmov"]); $ds_movimientos->insertRow("fecmov",$ls_fecha); $ldec_monto=$row["monto"]; $ds_movimientos->insertRow("monto",$ldec_monto); $ls_codope=$row["codope"]; $ds_movimientos->insertRow("codope",$ls_tipo); } $this->SQL->free_result($rs_data); } // Error Libro $ls_sql="SELECT 'B1' as tipo, '+' as suma, numdoc, conmov as nomproben, fecmov , monto-monret as monto, codope FROM scb_movbco WHERE fecmov <='".$ld_fechasta."' AND codban='".$ls_codban."' AND ctaban='".$ls_ctaban."' AND feccon='".$ld_fecdesde."' AND estreglib='B' AND (((codope='CH' OR codope='ND' OR codope='RE') AND estmov<>'A') OR ((codope='DP' OR codope='NC') AND estmov='A')) "; $rs_data= $this->SQL->select($ls_sql); if($rs_data===false) { print $this->SQL->message; return false; } else { while($row=$this->SQL->fetch_row($rs_data)) { $ls_tipo=$row["tipo"]; $ds_movimientos->insertRow("tipo",$ls_tipo); $ls_suma=$row["suma"]; $ds_movimientos->insertRow("suma",$ls_suma); $ls_numdoc=$row["numdoc"]; $ds_movimientos->insertRow("numdoc",$ls_numdoc); $ls_cedbene=$row["nomproben"]; $ds_movimientos->insertRow("nomproben",$ls_cedbene); $ls_fecha=$this->fun->uf_convertirfecmostrar($row["fecmov"]); $ds_movimientos->insertRow("fecmov",$ls_fecha); $ldec_monto=$row["monto"]; $ds_movimientos->insertRow("monto",$ldec_monto); $ls_codope=$row["codope"]; $ds_movimientos->insertRow("codope",$ls_tipo); } $this->SQL->free_result($rs_data); } $ls_sql="SELECT 'B2' as tipo, '-' as suma, numdoc, conmov as nomproben, fecmov , monto-monret as monto, codope FROM scb_movbco WHERE fecmov <='".$ld_fechasta."' AND codban='".$ls_codban."' AND ctaban='".$ls_ctaban."' AND feccon='".$ld_fecdesde."' AND estreglib='B' AND (((codope='CH' OR codope='ND' OR codope='RE') AND estmov='A') OR ((codope='DP' OR codope='NC') AND estmov<>'A')) "; $rs_data= $this->SQL->select($ls_sql); if($rs_data===false) { print $this->SQL->message; return false; } else { while($row=$this->SQL->fetch_row($rs_data)) { $ls_tipo=$row["tipo"]; $ds_movimientos->insertRow("tipo",$ls_tipo); $ls_suma=$row["suma"]; $ds_movimientos->insertRow("suma",$ls_suma); $ls_numdoc=$row["numdoc"]; $ds_movimientos->insertRow("numdoc",$ls_numdoc); $ls_cedbene=$row["nomproben"]; $ds_movimientos->insertRow("nomproben",$ls_cedbene); $ls_fecha=$this->fun->uf_convertirfecmostrar($row["fecmov"]); $ds_movimientos->insertRow("fecmov",$ls_fecha); $ldec_monto=$row["monto"]; $ds_movimientos->insertRow("monto",$ldec_monto); $ls_codope=$row["codope"]; $ds_movimientos->insertRow("codope",$ls_tipo); } $this->SQL->free_result($rs_data); } // Error Banco $ls_sql="SELECT 'C1' as tipo, '-' as suma, numdoc, conmov as nomproben, fecmov, monmov as monto, codope FROM scb_errorconcbco WHERE fecmov <='".$ld_fechasta."' AND codban='".$ls_codban."' AND ctaban='".$ls_ctaban."' AND fecmesano='".$ld_fecdesde."' AND esterrcon='C' AND (((codope='CH' OR codope='ND' OR codope='RE') AND estmov<>'A') OR ((codope='DP' OR codope='NC') AND estmov='A')) "; $rs_data= $this->SQL->select($ls_sql); if($rs_data===false) { print $this->SQL->message; return false; } else { while($row=$this->SQL->fetch_row($rs_data)) { $ls_tipo=$row["tipo"]; $ds_movimientos->insertRow("tipo",$ls_tipo); $ls_suma=$row["suma"]; $ds_movimientos->insertRow("suma",$ls_suma); $ls_numdoc=$row["numdoc"]; $ds_movimientos->insertRow("numdoc",$ls_numdoc); $ls_cedbene=$row["nomproben"]; $ds_movimientos->insertRow("nomproben",$ls_cedbene); $ls_fecha=$this->fun->uf_convertirfecmostrar($row["fecmov"]); $ds_movimientos->insertRow("fecmov",$ls_fecha); $ldec_monto=$row["monto"]; $ds_movimientos->insertRow("monto",$ldec_monto); $ls_codope=$row["codope"]; $ds_movimientos->insertRow("codope",$ls_tipo); } $this->SQL->free_result($rs_data); } $ls_sql="SELECT 'C2' as tipo, '+' as suma, numdoc, conmov as nomproben, fecmov , monmov as monto, codope FROM scb_errorconcbco WHERE fecmov <='".$ld_fechasta."' AND codban='".$ls_codban."' AND ctaban='".$ls_ctaban."' AND fecmesano='".$ld_fecdesde."' and esterrcon='C' AND (((codope='CH' OR codope='ND' OR codope='RE') AND estmov='A') OR ((codope='DP' OR codope='NC') AND estmov<>'A')) "; $rs_data= $this->SQL->select($ls_sql); if($rs_data===false) { print $this->SQL->message; return false; } else { while($row=$this->SQL->fetch_row($rs_data)) { $ls_tipo=$row["tipo"]; $ds_movimientos->insertRow("tipo",$ls_tipo); $ls_suma=$row["suma"]; $ds_movimientos->insertRow("suma",$ls_suma); $ls_numdoc=$row["numdoc"]; $ds_movimientos->insertRow("numdoc",$ls_numdoc); $ls_cedbene=$row["nomproben"]; $ds_movimientos->insertRow("nomproben",$ls_cedbene); $ls_fecha=$this->fun->uf_convertirfecmostrar($row["fecmov"]); $ds_movimientos->insertRow("fecmov",$ls_fecha); $ldec_monto=$row["monto"]; $ds_movimientos->insertRow("monto",$ldec_monto); $ls_codope=$row["codope"]; $ds_movimientos->insertRow("codope",$ls_tipo); } $this->SQL->free_result($rs_data); } return $ds_movimientos->data; }
function uf_calcular_saldolibro($as_codban, $as_ctaban, $ad_fecha) { ///////////////////////////////////////////////////////////////////////////// // Funtion : uf_calcular_saldolibro // // Return : ldec_saldo // // Descripcion : Fucnion que se encarga de obtener el saldo de los movimientos registrdos en libro ///////////////////////////////////////////////////////////////////////////// $ldec_monto_haber = 0; $ldec_monto_debe = 0; $ldec_saldo = 0; $ls_codemp = $this->dat_emp["codemp"]; $ld_fecha = $this->fun->uf_convertirdatetobd($ad_fecha); //fin $ls_fecha2 = substr($ld_fecha, 0, 8) . "01"; //inicio $ds_debe = new class_datastore(); $ds_haber = new class_datastore(); $ds_debe = new class_datastore(); $ds_haber = new class_datastore(); //--------------------DEBE------------------------------------// $ls_sql = "SELECT (monto - monret) As mondeb,estmov\n\t\t\t\t FROM scb_movbco\n\t\t\t\tWHERE codemp='" . $ls_codemp . "'\n\t\t\t\t AND codban='" . $as_codban . "'\n\t\t\t\t AND ctaban='" . $as_ctaban . "'\n\t\t\t\t AND (codope='NC' OR codope='DP') \n\t\t\t\t AND (estreglib<>'A' OR (estreglib='A' AND estcon=1))\n\t\t\t\t AND fecmov<='" . $ld_fecha . "'"; //echo $ls_sql.'<br><br><br>'; $rs_saldos = $this->SQL->select($ls_sql); if ($rs_saldos == false && $this->SQL->message != "") { print "Saldolibro" . $this->SQL->message; } else { while ($row = $this->SQL->fetch_row($rs_saldos)) { $ds_debe->insertRow("mondeb", $row["mondeb"]); $ds_debe->insertRow("estmov", $row["estmov"]); } } $this->SQL->free_result($rs_saldos); //-----------------------HABER---------------------------------------// $ls_sql = "SELECT (monto - monret) As monhab,estmov\n\t\t\t FROM scb_movbco\n\t\t\t WHERE codemp='" . $ls_codemp . "'\n\t\t\t AND codban='" . $as_codban . "'\n\t\t\t AND ctaban='" . $as_ctaban . "'\n\t\t\t\tAND (codope='RE' OR codope='ND' OR codope='CH')\n\t\t\t\tAND (estreglib<>'A' OR (estreglib='A' AND estcon=1))\n\t\t\t\tAND fecmov<='" . $ld_fecha . "'"; //echo $ls_sql.'<br><br><br>'; $rs_saldos = $this->SQL->select($ls_sql); if ($rs_saldos == false && $this->SQL->message != "") { print "Saldolibro" . $this->SQL->message; } else { while ($row = $this->SQL->fetch_row($rs_saldos)) { $ds_haber->insertRow("monhab", $row["monhab"]); $ds_haber->insertRow("estmov", $row["estmov"]); } } $this->SQL->free_result($rs_saldos); $li_totdebe = $ds_debe->getRowCount("estmov"); $ldec_totdeb = 0; $ldec_totdeb_anulado = 0; for ($li_i = 1; $li_i <= $li_totdebe; $li_i++) { $ls_estmov = $ds_debe->getValue("estmov", $li_i); $ls_mondeb = $ds_debe->getValue("mondeb", $li_i); if ($ls_estmov != 'A') { $ldec_totdeb += $ls_mondeb; } else { $ldec_totdeb_anulado += $ls_mondeb; } } $ldec_totdeb = $ldec_totdeb - $ldec_totdeb_anulado; $li_tothaber = $ds_haber->getRowCount("estmov"); $ldec_tothab = 0; $ldec_tothab_anulado = 0; for ($li_i = 1; $li_i <= $li_tothaber; $li_i++) { $ls_estmov = $ds_haber->getValue("estmov", $li_i); $ls_monhab = $ds_haber->getValue("monhab", $li_i); if ($ls_estmov != 'A') { $ldec_tothab += $ls_monhab; } else { $ldec_tothab_anulado += $ls_monhab; } } $ldec_tothab = $ldec_tothab - $ldec_tothab_anulado; $ldec_saldo = $ldec_totdeb - $ldec_tothab; return $ldec_saldo; }