$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);
?>
