$ld_septiembre=str_replace(',','.',$ld_septiembre); $ld_diciembre=str_replace('.','',$ld_diciembre); $ld_diciembre=str_replace(',','.',$ld_diciembre); $ld_total=uf_calcular_total($ld_marzo, $ld_junio, $ld_septiembre, $ld_diciembre ); if ($ld_total > $ld_asignado) { $msg->message("El Total es mayor al monto asignado. Por favor revise los montos "); } else { $ds_prorep->data=$_SESSION["objact"]; $ls_modrep="3"; //Modalidad Trimestral $ls_distribuir="2"; $ds_prorep->updateRow("asignado",$ld_asignado,$i); $ds_prorep->updateRow("marzo",$ld_marzo,$i); $ds_prorep->updateRow("junio",$ld_junio,$i); $ds_prorep->updateRow("septiembre",$ld_septiembre,$i); $ds_prorep->updateRow("diciembre",$ld_diciembre,$i); $ds_prorep->updateRow("modrep",$ls_modrep,$i); $ds_prorep->updateRow("distribuir",$ls_distribuir,$i); ?> <script language="javascript"> close(); opener.f.submit(); </script> <?php }//else }//aceptar
$ls_new_cad = $ls_sub . "-" . substr($ls_new_cad,$li_pos,$len ); $li_max_nivel= $li_max_nivel + 1; } }//for $li_nivel_cta = $iscg_procesos->uf_obt_nivel_cta($ls_cuenta); //Obtiene nivel de la cta $ls_cta_ceros = $iscg_procesos->uf_cuenta_sin_ceros($ls_cuenta ); //devuelve la cta sin ceros $ls_sc_cuenta = $iscg_procesos->uf_disable_cta_inferior( $ls_cta_ceros, $ls_cuenta, $ls_cod_report); $ls_opcion=$_POST["radiobutton"]; if ($ls_opcion=="N") { $ds_proaf->data=$_SESSION["objact"]; $i=$_POST["fila"]; $ld_asignado=str_replace('.','',$ld_asignado); $ld_asignado=str_replace(',','.',$ld_asignado); $ds_proaf->updateRow("asignado",$ld_asignado,$i); $total=count($ls_sc_cuenta); $ls_modrep="3"; //Modalidad Trimestral $ls_distribuir="1"; for($li=1;$li<=$total;$li++) { $pos=$ds_proaf->find("sc_cuenta",$ls_sc_cuenta[$li]); $ds_proaf->updateRow("status","I",$pos); } $ds_proaf->updateRow("modrep",$ls_modrep,$i); $ds_proaf->updateRow("distribuir",$ls_distribuir,$i); } if ($ls_opcion=="M") { $ds_proaf->data=$_SESSION["objact"];
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
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>"; } }
function uf_trasladar_saldos($ad_periodoviejo, $ad_periodonuevo, $as_codban, $as_ctaban, $ab_transito) { /*------------------------------------------------------------------ - Funcion que se encarga de trasladar los saldos - Retorna true si la operacion se ejecuto correctamente, de lo contrario, false - Elaborado por Ing. Laura Cabré. - Fecha: 12/01/2007 //-----------------------------------------------------------------*/ set_time_limit(0); $ls_codemp = $this->dat["codemp"]; $ds_cuenta = new class_datastore(); $ds_colocaciones = new class_datastore(); $ds_transito = new class_datastore(); $ds_doc_repetidos = new class_datastore(); $lb_valido = false; $ad_periodoviejo = $this->io_funciones->uf_convertirdatetobd($ad_periodoviejo); $ad_periodonuevo = $this->io_funciones->uf_convertirdatetobd($ad_periodonuevo); // -----------------Se obtiene la cuenta bancaria $ls_sql = "SELECT 0.0000 AS saldo\n\t\t\t FROM scb_ctabanco\n\t\t\t WHERE codemp='{$ls_codemp}' \n\t\t\t\tAND codban='{$as_codban}' \n\t\t\t\tAND ctaban='{$as_ctaban}'\n\t\t\t GROUP BY codban,ctaban,codtipcta\n\t\t\t ORDER BY codban,ctaban"; $io_recordset = $this->io_sql_origen->select($ls_sql); if ($io_recordset === false) { $ls_cadena = "Error al trasladar saldos - Obtención de la cuenta bancaria- .\r\n" . $this->io_sql_origen->message . "\r\n"; $ls_cadena = $ls_cadena . $ls_sql . "\r\n"; if ($this->lo_archivo) { @fwrite($this->lo_archivo, $ls_cadena); } return false; } else { if ($this->io_sql_origen->fetch_row($io_recordset)) { $ds_cuenta->data = $this->io_sql_origen->obtener_datos($io_recordset); $lb_valido = true; } } // -----------------Se obtiene las colocaciones------------ $ls_sql = "SELECT numcol,codtipcol,codban,ctaban, 0.0000 AS saldo\n\t\t\t FROM scb_colocacion\n\t\t\t GROUP by codban,ctaban,numcol,codtipcol"; $io_recordset = $this->io_sql_origen->select($ls_sql); if ($io_recordset === false) { $ls_cadena = "Error al trasladar saldos - Obtención de las colocaciones- .\r\n" . $this->io_sql_origen->message . "\r\n"; $ls_cadena = $ls_cadena . $ls_sql . "\r\n"; if ($this->lo_archivo) { @fwrite($this->lo_archivo, $ls_cadena); } return false; } else { if ($this->io_sql_origen->fetch_row($io_recordset)) { $ds_colocaciones->data = $this->io_sql_origen->obtener_datos($io_recordset); $lb_valido = true; } } if ($lb_valido) { //-------------Calculando los saldos de los documentos $ldec_saldo_documentos_temp = 0; $ldec_saldo_documentos_temp = $this->uf_calcular_saldo_documento($as_codban, $as_ctaban); if ($ldec_saldo_documentos_temp === false) { return false; } $ds_cuenta->updateRow("saldo", $ldec_saldo_documentos_temp, 1); //-------------Calculando los saldos de las colocaciones-----------// $li_totcol = $ds_colocaciones->getRowCount("numcol"); for ($li_i = 1; $li_i <= $li_totcol; $li_i++) { $ls_codban = $ds_colocaciones->getValue("codban", $li_i); $ls_numcol = $ds_colocaciones->getValue("numcol", $li_i); $ls_ctaban = $ds_colocaciones->getValue("ctaban", $li_i); $ldec_saldo = $this->uf_calcular_saldo_colocacion($ls_codban, $ls_numcol); if ($ldec_saldo === false) { return false; } else { $ds_colocaciones->updateRow("saldo", $ldec_saldo, $li_i); } } //-------------Se chequean los movimientos en transito if ($ab_transito) { $ls_sql = "SELECT *\n\t\t\t\t\t\t FROM scb_movbco \n\t\t\t\t\t\t WHERE codemp='{$ls_codemp}' \n\t\t\t\t\t\t\tAND codban='{$as_codban}' \n\t\t\t\t\t\t\tAND ctaban='{$as_ctaban}' \n\t\t\t\t\t\t\tAND estcon=0 \n\t\t\t\t\t\t\tAND (estmov='C' OR estmov='L')\n\t\t\t\t\t\t ORDER BY codban,ctaban,numdoc"; $io_recordset = $this->io_sql_origen->select($ls_sql); if ($io_recordset === false) { $ls_cadena = "Error al Trasladar saldos - Obtención de los movimientos en tránsito- .\r\n" . $this->io_sql_origen->message . "\r\n"; $ls_cadena = $ls_cadena . $ls_sql . "\r\n"; if ($this->lo_archivo) { @fwrite($this->lo_archivo, $ls_cadena); } return false; } else { $lb_valido = true; if ($this->io_sql_origen->fetch_row($io_recordset)) { $ds_transito->data = $this->io_sql_origen->obtener_datos($io_recordset); } } // Movimientos en transito en forma resumida $ls_sql = "SELECT codban,ctaban,codope,SUM(monto-monret) AS total, estmov \n\t\t\t\t\t\t FROM scb_movbco \n\t\t\t\t\t\t WHERE codemp='{$ls_codemp}' \n\t\t\t\t\t\t\tAND codban='{$as_codban}' \n\t\t\t\t\t\t\tAND ctaban='{$as_ctaban}' \n\t\t\t\t\t\t\tAND estcon=0 \n\t\t\t\t\t\t\tAND (estmov='C' OR estmov='L')\n\t\t\t\t\t\t GROUP by codban,ctaban,codope,estmov \n\t\t\t\t\t\t ORDER BY codban,ctaban"; $io_recordset = $this->io_sql_origen->select($ls_sql); if ($io_recordset === false) { $ls_cadena = "Error al Trasladar saldos -Obtención de los movimientos en tránsito resumidos- .\r\n" . $this->io_sql_origen->message . "\r\n"; $ls_cadena = $ls_cadena . $ls_sql . "\r\n"; if ($this->lo_archivo) { @fwrite($this->lo_archivo, $ls_cadena); } return false; } else { $lb_valido = true; $ldec_debitostmp = 0; $ldec_creditostmp = 0; $ldec_debitos_negativostmp = 0; $ldec_creditos_negativostmp = 0; $li_numrows = $this->io_sql_origen->num_rows($io_recordset); if ($li_numrows > 0) { while ($row = $this->io_sql_origen->fetch_row($io_recordset)) { $ls_operacion = $row["codope"]; $ls_estado = $row["estmov"]; $ldec_monto = $row["total"]; if (($ls_operacion == "CH" || $ls_operacion == "ND" || $ls_operacion == "RE") && $ls_estado != "A") { $ldec_creditostmp += $ldec_monto; } elseif (($ls_operacion == "CH" || $ls_operacion == "ND" || $ls_operacion == "RE") && $ls_estado == "A") { $ldec_creditos_negativostmp += $ldec_monto; } elseif (($ls_operacion == "DP" || $ls_operacion == "NC") && $ls_estado != "A") { $ldec_debitostmp += $ldec_monto; } elseif (($ls_operacion == "DP" || $ls_operacion == "NC") && $ls_estado == "A") { $ldec_debitos_negativostmp += $ldec_monto; } } } } if ($lb_valido) { $ldec_debitos = $ldec_debitostmp - $ldec_debitos_negativostmp; $ldec_creditos = $ldec_creditostmp - $ldec_creditos_negativostmp; $ldec_saldo_tmp = $ds_cuenta->getValue("saldo", 1); $ds_cuenta->updateRow("saldo", $ldec_saldo_tmp + $ldec_creditos - $ldec_debitos, 1); } } //Fin del else de los mov en transito resumidos } //Fin del select de los movimientos en transito. //-------Se realiza el traspaso de los saldos de banco-------------------// $lb_existe = $this->uf_verificar_cuenta($as_codban, $as_ctaban); if ($lb_existe === 1) { $ldec_saldo = $ds_cuenta->getValue("saldo", 1); if ($ldec_saldo >= 0) { $ls_operacion = "NC"; } else { $ls_operacion = "ND"; } $ldec_saldoaux = abs($ds_cuenta->getValue("saldo", 1)); $ldec_saldo = $ldec_saldoaux; $ls_numdoc = "0000000APERTURA"; $lb_existe = $this->uf_verificar_apertura($ls_numdoc, $as_codban, $as_ctaban); if ($lb_existe === 0) { $ls_sql = "INSERT INTO scb_movbco (codemp,numdoc,codban,ctaban,codope,fecmov,conmov,codconmov,\n\t\t\t\t\t\t\ttipo_destino,estmov,monto,estbpd,estcon,estimpche,monret,cod_pro,\n\t\t\t\t\t\t\tced_bene,chevau,feccon,monobjret,nomproben)\n\t\t\t\t\t\t\tVALUES ('{$ls_codemp}','{$ls_numdoc}','{$as_codban}','{$as_ctaban}','{$ls_operacion}','{$ad_periodoviejo}',\n\t\t\t\t\t\t\t'SALDO INICIAL DE LA CUENTA','---','','L'," . $ldec_saldo . ",'M',0,1,\n\t\t\t\t\t\t\t0.0000,'----------','----------','','1900-01-01'," . $ldec_saldo . ",'')"; $li_row = $this->io_sql_destino->execute($ls_sql); if ($li_row === false) { $lb_valido = false; $ls_cadena = "Error al Insertar apertura -Inserción del documento de la Apertura- .\r\n" . $this->io_sql_destino->message . "\r\n"; $ls_cadena = $ls_cadena . $ls_sql . "\r\n"; if ($this->lo_archivo) { @fwrite($this->lo_archivo, $ls_cadena); } } else { $lb_valido = true; } } } else { $lb_valido = false; if ($lb_existe === 0) { $ls_cadena = "La cuenta No. {$as_ctaban} no existe en la nueva Base de Datos, Favor revise \r\n"; $ls_cadena = $ls_cadena . $ls_sql . "\r\n"; if ($this->lo_archivo) { @fwrite($this->lo_archivo, $ls_cadena); } $this->io_mensajes->message("La cuenta No. {$as_ctaban} no existe en la nueva Base de Datos, Favor revise"); } else { $this->io_mensajes->message("Error al buscar la cuenta"); } } //------Se insertan los movimientos en transito si la opcion esta tildada $la_indices_repetidos = array(); if ($ab_transito && $lb_valido) { $li_totrow = $ds_transito->getRowCount("numdoc"); $la_indices_repetidos = array(); for ($li_i = 1; $li_i <= $li_totrow; $li_i++) { $ls_codban = $ds_transito->getValue("codban", $li_i); $ls_ctaban = trim($ds_transito->getValue("ctaban", $li_i)); $ls_numdoc = $ds_transito->getValue("numdoc", $li_i); $ls_codope = $ds_transito->getValue("codope", $li_i); $ls_estmov = $ds_transito->getValue("estmov", $li_i); $ls_fecmov = $this->io_validacion->uf_valida_fecha($ds_transito->getValue("fecmov", $li_i), "1900-01-01"); $ls_conmov = $ds_transito->getValue("conmov", $li_i) . ". Fecha original del Documento:" . $this->io_funciones->uf_convertirdatetobd($ls_fecmov); $ls_nomproben = $ds_transito->getValue("nomproben", $li_i); $ls_codpro = $this->io_funciones->uf_cerosizquierda($ds_transito->getValue("cod_pro", $li_i), 10); $ls_cedbene = $ds_transito->getValue("ced_bene", $li_i); $ls_chevau = $ds_transito->getValue("chevau", $li_i); $ls_tipodestino = $ds_transito->getValue("tipo_destino", $li_i); $ls_codconmov = $ds_transito->getValue("codconmov", $li_i); $ld_montoaux = $ds_transito->getValue("monto", $li_i); $ld_monto = $ld_montoaux; $ls_estcon = $ds_transito->getValue("estcon", $li_i); $ls_estcobing = $ds_transito->getValue("estcobing", $li_i); $ls_esttra = $ds_transito->getValue("esttra", $li_i); $ls_estimpche = $ds_transito->getValue("estimpche", $li_i); $ld_monobjretaux = $this->io_validacion->uf_valida_monto($ds_transito->getValue("monobjret", $li_i), 0); $ld_monobjret = $ld_monobjretaux; $ld_monretaux = $this->io_validacion->uf_valida_monto($ds_transito->getValue("monret", $li_i), 0); $ld_monret = $ld_monretaux; $ls_procede = $ds_transito->getValue("procede", $li_i); $ls_comprobante = $ds_transito->getValue("comprobante", $li_i); $ls_fecha = $this->io_validacion->uf_valida_fecha($ds_transito->getValue("fecha", $li_i), '1900-01-01'); $ls_id_mco = $ds_transito->getValue("id_mco", $li_i); $ls_comprobante = $ds_transito->getValue("comprobante", $li_i); $ls_emicheproc = $ds_transito->getValue("emicheproc", $li_i); $ls_emicheced = $ds_transito->getValue("emicheced", $li_i); $ls_emichenom = $ds_transito->getValue("emichenom", $li_i); $ls_emichefec = $this->io_validacion->uf_valida_fecha($ds_transito->getValue("emichefec", $li_i), '1900-01-01'); $ls_estmovint = $ds_transito->getValue("estmovint", $li_i); $ls_codusu = $ds_transito->getValue("codusu", $li_i); $ls_codopeidb = $ds_transito->getValue("codopeidb", $li_i); $ld_aliidbaux = $this->io_validacion->uf_valida_monto($ds_transito->getValue("aliidb", $li_i), 0); $ld_aliidb = $ld_aliidbaux; $ls_feccon = $this->io_validacion->uf_valida_fecha($ds_transito->getValue("feccon", $li_i), '1900-01-01'); $ls_estreglib = $ds_transito->getValue("estreglib", $li_i); $ls_numcarord = $ds_transito->getValue("numcarord", $li_i); $ls_numpolcon = $ds_transito->getValue("numpolcon", $li_i); $ls_coduniadmsig = $ds_transito->getValue("coduniadmsig", $li_i); $ls_codbansig = $ds_transito->getValue("codbansig", $li_i); $ls_fecordpagsig = $this->io_validacion->uf_valida_fecha($ds_transito->getValue("fecordpagsig", $li_i), '1900-01-01'); $ls_tipdocressig = $ds_transito->getValue("tipdocressig", $li_i); $ls_numdocressig = $ds_transito->getValue("numdocressig", $li_i); $ls_estmodordpag = $ds_transito->getValue("estmodordpag", $li_i); $ls_codfuefin = $ds_transito->getValue("codfuefin", $li_i); $ls_forpagsig = $ds_transito->getValue("forpagsig", $li_i); $ls_medpagsig = $ds_transito->getValue("medpagsig", $li_i); $ls_codestprosig = $ds_transito->getValue("codestprosig", $li_i); $ls_nrocontrolop = $ds_transito->getValue("nrocontrolop", $li_i); $ls_fechaconta = $ds_transito->getValue("fechaconta", $li_i); $ls_fechaconta = $this->io_validacion->uf_valida_fecha($ls_fechaconta, "1900-01-01"); $ls_fechaanula = $ds_transito->getValue("fechaanula", $li_i); $ls_fechaanula = $this->io_validacion->uf_valida_fecha($ls_fechaanula, "1900-01-01"); $lb_existe = $this->uf_verificar_cuenta($ls_codban, $ls_ctaban); $li_temp = 1; if ($lb_existe === 1) { $lb_existe = $this->uf_verificar_documento($ls_codban, $ls_ctaban, $ls_numdoc, $ls_codope); if ($lb_existe === 1) { array_push($la_indices_repetidos, $li_i); } else { $ls_sql = "INSERT INTO scb_movbco (codemp, codban, ctaban, numdoc, codope, estmov, cod_pro, ced_bene, \n\t\t\t\t\t\t tipo_destino, codconmov, fecmov, conmov, nomproben, monto, estbpd, \n\t\t\t\t\t\t\t\t\t\t\t\t\t\t estcon, estcobing, esttra, chevau, estimpche, monobjret, monret, \n\t\t\t\t\t\t\t\t\t\t\t\t\t\t procede, comprobante, fecha, id_mco, emicheproc, emicheced, emichenom, \n\t\t\t\t\t\t\t\t\t\t\t\t\t\t emichefec, estmovint, codusu, codopeidb, aliidb, feccon, estreglib, \n\t\t\t\t\t\t\t\t\t\t\t\t\t\t numcarord, numpolcon, coduniadmsig, codbansig, fecordpagsig, \n\t\t\t\t\t\t\t\t\t\t\t\t\t\t tipdocressig, numdocressig, estmodordpag, codfuefin, forpagsig, \n\t\t\t\t\t\t\t\t\t\t\t\t\t\t medpagsig, codestprosig, nrocontrolop, fechaconta, fechaanula) \n\t\t\t\t\t\t\t\t\t\t\t\t VALUES ('" . $ls_codemp . "','" . $ls_codban . "','" . $ls_ctaban . "','" . $ls_numdoc . "',\n\t\t\t\t\t\t\t\t\t\t\t\t\t '" . $ls_codope . "','L','" . $ls_codpro . "','" . $ls_cedbene . "','" . $ls_tipodestino . "',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t'" . $ls_codconmov . "','" . $ls_fecmov . "','" . $ls_conmov . "','" . $ls_nomproben . "',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t" . $ld_monto . ",'D','" . $ls_estcon . "','" . $ls_estcobing . "','" . $ls_esttra . "',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t'" . $ls_chevau . "','" . $ls_estimpche . "'," . $ld_monobjret . "," . $ld_monret . ",\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t'" . $ls_procede . "','" . $ls_comprobante . "','" . $ls_fecha . "','" . $ls_id_mco . "',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t'" . $ls_emicheproc . "','" . $ls_emicheced . "','" . $ls_emichenom . "','" . $ls_emichefec . "','" . $ls_estmovint . "',\n\t\t\t\t\t\t\t\t '" . $ls_codusu . "','" . $ls_codopeidb . "'," . $ld_aliidb . ",'" . $ls_feccon . "',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t'" . $ls_estreglib . "','" . $ls_numcarord . "','" . $ls_numpolcon . "','" . $ls_coduniadmsig . "',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t'" . $ls_codbansig . "','" . $ls_fecordpagsig . "','" . $ls_tipdocressig . "','" . $ls_numdocressig . "',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t'" . $ls_estmodordpag . "','" . $ls_codfuefin . "','" . $ls_forpagsig . "','" . $ls_medpagsig . "',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t'" . $ls_codestprosig . "','" . $ls_nrocontrolop . "','" . $ls_fechaconta . "','" . $ls_fechaanula . "')"; $li_row = $this->io_sql_destino->execute($ls_sql); if ($li_row === false) { $lb_valido = false; $ls_cadena = "Error al Insertar apertura -Inserción de los movimientos en tránsito-.\r\n" . $this->io_sql_destino->message . "\r\n"; $ls_cadena = $ls_cadena . $ls_sql . "\r\n"; if ($this->lo_archivo) { @fwrite($this->lo_archivo, $ls_cadena); } } else { $lb_valido = true; } } } else { $lb_valido = false; if ($lb_existe === 0) { $ls_cadena = "La cuenta No. {$ls_ctaban} no existe en la nueva Base de Datos, Favor revise \r\n"; $ls_cadena = $ls_cadena . $ls_sql . "\r\n"; if ($this->lo_archivo) { @fwrite($this->lo_archivo, $ls_cadena); } $this->io_mensajes->message("La cuenta No. {$as_ctaban} no existe en la nueva Base de Datos, Favor revise"); } else { $this->io_mensajes->message("Error al buscar la cuenta"); } } } } //Fin de la inserción de los movimientos en transito. //-------------Se insertan los movimientos de colocacion--------------------------------// if ($lb_valido) { $li_totrow = $ds_colocaciones->getRowCount("numcol"); for ($li_i = 1; $li_i <= $li_totrow; $li_i++) { $ls_codban = $ds_colocaciones->getValue("codban", $li_i); $ls_ctaban = $ds_colocaciones->getValue("ctaban", $li_i); $ls_numcol = $ds_colocaciones->getValue("numcol", $li_i); $ldec_saldo = $ds_colocaciones->getValue("saldo", $li_i); $lb_existe = $this->uf_verificar_colocacion($ls_codban, $ls_ctaban, $ls_numcol); if ($lb_existe === 1) { if ($ldec_saldo >= 0) { $ls_operacion = "NC"; } else { $ls_operacion = "ND"; } $ldec_saldoaux = abs($ldec_saldo); $lb_existe = $this->uf_verificar_movimiento_colocacion($ls_codban, $ls_ctaban, $ls_numcol, "0000000APERTURA", $ls_operacion, "L"); if ($lb_existe === 0) { $ldec_saldo = $ldec_saldoaux; $ls_sql = "INSERT INTO scb_movcol\t(codemp,codban,ctaban,numcol,numdoc,codope,estcol,fecmovcol,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t monmovcol,tasmovcol,conmov,estcob,esttranf)\n\t\t\t\t\t\t\t\t\t\t\t\t VALUES ('{$ls_codemp}','{$ls_codban}','{$ls_ctaban}','{$ls_numcol}',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t '0000000APERTURA','{$ls_operacion}','L','{$ad_periodoviejo}',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t " . $ldec_saldo . ",0,'SALDO INICIAL DE LA COLOCACION',0,0)"; $li_row = $this->io_sql_destino->execute($ls_sql); if ($li_row === false) { $lb_valido = false; $ls_cadena = "Error al Insertar apertura - Inserción de movimientos de colocación- .\r\n" . $this->io_sql_destino->message . "\r\n"; $ls_cadena = $ls_cadena . $ls_sql . "\r\n"; if ($this->lo_archivo) { @fwrite($this->lo_archivo, $ls_cadena); } } else { $lb_valido = true; } } else { if ($lb_existe === 1) { $lb_valido = true; } else { $lb_valido = false; } } } else { $lb_valido = false; if ($lb_existe === 0) { $ls_cadena = "La colocación No. {$ls_numcol} NO existe en la nueva Base de Datos, Favor revise \r\n"; $ls_cadena = $ls_cadena . $ls_sql . "\r\n"; if ($this->lo_archivo) { @fwrite($this->lo_archivo, $ls_cadena); } $this->io_mensajes->message("La colocación No. {$ls_numcol} NO existe en la nueva Base de Datos, Favor revise"); } else { $this->io_mensajes->message("Error al buscar la colocacion"); } } } } if ($lb_valido) { $li_totrow = count($la_indices_repetidos); if ($li_totrow > 0) { $ls_fecha = date("Y_m_d_H_i"); $ls_nombre = "resultado/documentos_repetidos" . $ls_fecha . ".txt"; $lo_archivo2 = @fopen("{$ls_nombre}", "a+"); $this->io_mensajes->message("Se ha generado un archivo (documentos_repetidos.txt), el cual contiene los documentos que no se pueden traspasar, debido a que ya se encuentran registrados en la nueva Base de Datos."); for ($li_i = 0; $li_i < $li_totrow; $li_i++) { $li_indice = $la_indices_repetidos[$li_i]; $ls_numdoc = $ds_transito->getValue("numdoc", $li_indice); $ls_cadena = "El Movimiento No. {$ls_numdoc} no pudo ser traspasado debido a que ya existía en la nueva Base de Datos \r\n\r\n"; if ($lo_archivo2) { @fwrite($lo_archivo2, $ls_cadena); } } } @fwrite($this->lo_archivo, "Proceso ejecutado sin errores"); } return $lb_valido; }
$ls_new_cad = $ls_sub . "-" . substr($ls_new_cad,$li_pos,$len ); $li_max_nivel= $li_max_nivel + 1; } }//for $li_nivel_cta = $int_scg->uf_scg_obtener_nivel($ls_cuenta); //Obtiene nivel de la cta $ls_cta_ceros = $int_scg->uf_scg_sin_ceros($ls_cuenta ); //devuelve la cta sin ceros $ls_sc_cuenta = $iscg_procesos->uf_disable_cta_inferior( $ls_cta_ceros, $ls_cuenta, $ls_cod_report); $ls_opcion=$_POST["radiobutton"]; if ($ls_opcion=="N") { $ds_prorep->data=$_SESSION["objact"];echo "AJA 6<br>"; $i=$_POST["fila"]; $ld_asignado=str_replace('.','',$ld_asignado); $ld_asignado=str_replace(',','.',$ld_asignado); $ds_prorep->updateRow("asignado",$ld_asignado,$i); $ls_modrep="1"; //Modalidad Mensual $ls_distribuir="1"; $total=count($ls_sc_cuenta); for($li=1;$li<=$total;$li++) {echo "AJA 7<br>"; $pos=$ds_prorep->find("sc_cuenta",$ls_sc_cuenta[$li]);echo "DESPUES"; $ds_prorep->updateRow("status","I",$pos); } echo "AJA 8<br>"; $ds_prorep->updateRow("modrep",$ls_modrep,$i); $ds_prorep->updateRow("distribuir",$ls_distribuir,$i); } if ($ls_opcion=="M") {
$ld_noviembre=str_replace(',','.',$ld_noviembre); $ld_diciembre=str_replace('.','',$ld_diciembre); $ld_diciembre=str_replace(',','.',$ld_diciembre); $ld_total=uf_calcular_total($ld_enero, $ld_febrero, $ld_marzo, $ld_abril, $ld_mayo, $ld_junio, $ld_julio, $ld_agosto, $ld_septiembre, $ld_octubre, $ld_noviembre, $ld_diciembre ); if ($ld_total > $ld_asignado) { $msg->message("El Total es mayor al monto asignado. Por favor revise los montos "); } else { $ds_prorep->data=$_SESSION["objact"]; $ls_modrep="3"; //Modalidad Trimestral $ls_distribuir="2"; $ds_prorep->updateRow("asignado",$ld_asignado,$i); $ds_prorep->updateRow("enero",$ld_enero,$i); $ds_prorep->updateRow("febrero",$ld_febrero,$i); $ds_prorep->updateRow("marzo",$ld_marzo,$i); $ds_prorep->updateRow("abril",$ld_abril,$i); $ds_prorep->updateRow("mayo",$ld_mayo,$i); $ds_prorep->updateRow("junio",$ld_junio,$i); $ds_prorep->updateRow("julio",$ld_julio,$i); $ds_prorep->updateRow("agosto",$ld_agosto,$i); $ds_prorep->updateRow("septiembre",$ld_septiembre,$i); $ds_prorep->updateRow("octubre",$ld_octubre,$i); $ds_prorep->updateRow("noviembre",$ld_noviembre,$i); $ds_prorep->updateRow("diciembre",$ld_diciembre,$i); $ds_prorep->updateRow("modrep",$ls_modrep,$i); $ds_prorep->updateRow("distribuir",$ls_distribuir,$i); ?>