Cuenta |
Denominacion |
Asignado |
Trimestre(1) |
Trimestre(2) |
Trimestre(3) |
Trimestre(4) |
uf_limpiar_sesion();
/*$arr=array_keys($_SESSION);
$li_count=count($arr);
for($i=0;$i<$li_count;$i++)
{
$col=$arr[$i];
if(($col!="ls_hostname")&&($col!="ls_login")&&($col!="ls_password")&&($col!="ls_database")&&($col!="ls_gestor")&&($col!="con")&&($col!="gestor")&&($col!="la_empresa")&&($col!="la_logusr")
&&($col!="la_ususeg")&&($col!="la_sistema")&&($col!="ls_port")&&($col!="ls_width")&&($col!="ls_height")&&($col!="ls_logo")&&($col!="la_apeusu")&&($col!="la_nomusu")&&($col!="la_cedusu"))
{
unset($_SESSION["$col"]);
}
}*/
$la_empresa = $_SESSION["la_empresa"];
$ls_codemp = $la_empresa["codemp"];
$li_rtn=0 ;
$lb_valido=true;
$ls_cod_report="0409"; // OAF Instr 4
$_SESSION["cod_report"]=$ls_cod_report;
$ls_cod_report=$_SESSION["cod_report"];
$lb_valido=$iscg_procesos->uf_select_reporte($ls_codemp,$ai_cuantos,$ls_cod_report);
if(($lb_valido)&&($ai_cuantos<=0))
{
if ($ls_cod_report=="0409")
{
$lb_valido = $iscg_procesos->uf_cargar_origen_y_aplic_fondos_txt($ls_codemp);
if($lb_valido)
{
$msg->message("Los datos fueron cargados");
$rs_cta=$iscg_procesos->uf_select_scg_datastore( $ls_codemp, $ls_cod_report );
$SQL->num_rows($rs_cta);
///$msg->message($SQL->num_rows($rs_cta));
$data=$SQL->obtener_datos($rs_cta);
$ds_proaf->data=$data;
$li_num=$ds_proaf->getRowCount("cod_report");
for($i=1;$i<=$li_num;$i++)
{
$ls_status=$data["status"][$i];
if($ls_status=="C")
{
?>
| ','getValue("sc_cuenta",$i);?>','','','');">getValue("sc_cuenta",$i);?> |
| ','getValue("sc_cuenta",$i);?>','','','');">getValue("sc_cuenta",$i);?> |
| getValue("sc_cuenta",$i)?> |
".$ds_proaf->getValue("denominacion",$i)."";
print"".number_format($ds_proaf->getValue("asignado",$i),2,",",".")." | ";
print"".number_format($ds_proaf->getValue("marzo",$i),2,",",".")." | ";
print"".number_format($ds_proaf->getValue("junio",$i),2,",",".")." | ";
print"".number_format($ds_proaf->getValue("septiembre",$i),2,",",".")." | ";
print"".number_format($ds_proaf->getValue("diciembre",$i),2,",",".")." | ";
print"
";
}//for
}//if($lb_valido)
else
{
$msg->message("Error al cargar los datos");
}
}//if($ls_cod_report==0409")
}//($li_rtn>0)
elseif(($lb_valido)&&($ai_cuantos>0))
{
$rs_cta=$iscg_procesos->uf_select_datastore_trim( $ls_codemp, $ls_cod_report );
$data=$SQL->obtener_datos($rs_cta);
$ds_proaf=new class_datastore();
$ds_proaf->data=$data;
$li_num=$ds_proaf->getRowCount("cod_report");
for($i=1;$i<=$li_num;$i++)
{
$ls_status=$ds_proaf->getValue("status",$i);
if($ls_status=="C")
{
?>
| ','getValue("sc_cuenta",$i);?>','','','');">getValue("sc_cuenta",$i);?> |
| ','getValue("sc_cuenta",$i);?>','','','');">getValue("sc_cuenta",$i);?> |
| getValue("sc_cuenta",$i)?> |
".$ds_proaf->getValue("denominacion",$i)."";
print"".number_format($ds_proaf->getValue("asignado",$i),2,",",".")." | ";
print"".number_format($ds_proaf->getValue("marzo",$i),2,",",".")." | ";
print"".number_format($ds_proaf->getValue("junio",$i),2,",",".")." | ";
print"".number_format($ds_proaf->getValue("septiembre",$i),2,",",".")." | ";
print"".number_format($ds_proaf->getValue("diciembre",$i),2,",",".")." | ";
print"
";
}//for
}//if ($li_rtn>0)
}//operacion==""
if ($ls_operacion=="DISTRIBUIR")
{
$li_indice=1;
$la_empresa=$_SESSION["la_empresa"];
$ls_formcont=$la_empresa["formcont"];
$ls_codemp = $la_empresa["codemp"];
$ls_cod_report = $_SESSION["cod_report"];
$_SESSION["ld_asignado"]=$ld_asignado;
$ld_asignado=$_SESSION["ld_asignado"];
$li_lenCta = strlen(trim($ls_cuenta)) ;
//COLOCA FORMATO A LA CUENTA
$li_pos = $fun->uf_posocurrencia( $ls_formcont, "-", $li_indice );
$ls_sub = substr($ls_cuenta,0, $li_pos );
$ls_new_cad = $ls_sub . "-" . substr($ls_cuenta,$li_pos, $li_lenCta );
$li_max_nivel= 1;
for($i=1;$i<=$li_pos;$i++)
{
$li_indice = $li_indice + 1;
$li_lenCta = strlen(trim($ls_new_cad));
$li_pos = $fun->uf_posocurrencia( $ls_formcont, "-", $li_indice );
if ($li_pos > 0)
{
$ls_sub = substr($ls_new_cad, 0, $li_pos );
$len=$li_lenCta - $li_pos;
$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"];
$i=$_POST["fila"];
$total=count($ls_sc_cuenta);
for($li=1;$li<=$total;$li++)
{
$pos=$ds_proaf->find("sc_cuenta",$ls_sc_cuenta[$li]);
$ds_proaf->updateRow("status","I",$pos);
}
}//fin de opcion ==M
if($ls_opcion=="A")
{
$ds_proaf->data=$_SESSION["objact"];
$ld_asignado=str_replace('.','',$ld_asignado);
$ld_asignado=str_replace(',','.',$ld_asignado);
$ld_div_asig = ($ld_asignado/4);
$ld_div_asig = round(($ld_asignado/4),2);
$ld_suma_dic=($ld_div_asig*4);
$ld_m12=($ld_suma_dic-$ld_asignado);
if($ld_m12>=0)
{
$ld_diciembre=$ld_div_asig-$ld_m12;
}
else
{
$ld_diciembre=$ld_div_asig+$ld_m12;
}
$ld_total=($ld_div_asig*3)+$ld_diciembre;
$ld_resto=round(($ld_asignado-$ld_total),2);
$ld_diciembre=$ld_diciembre+$ld_resto;
$i=$_POST["fila"];
$li_num=$ds_proaf->getRowCount("cod_report");
$ls_modrep="3"; //Modalidad Trimestral
$ls_distribuir="3";
$total=count($ls_sc_cuenta);
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("asignado",$ld_asignado,$i);
$ds_proaf->updateRow("marzo",$ld_div_asig,$i);
$ds_proaf->updateRow("junio",$ld_div_asig,$i);
$ds_proaf->updateRow("septiembre",$ld_div_asig,$i);
$ds_proaf->updateRow("diciembre",$ld_diciembre,$i);
$ds_proaf->updateRow("modrep",$ls_modrep,$i);
$ds_proaf->updateRow("distribuir",$ls_distribuir,$i);
}//fin del else $ls_opcion="A"
$li_num=$ds_proaf->getRowCount("cod_report");
for($i=1;$i<=$li_num;$i++)
{
$ls_status=$ds_proaf->getValue("status",$i);
if($ls_status=="C")
{
?>
| ','getValue("sc_cuenta",$i);?>','','','');">getValue("sc_cuenta",$i);?> |
| ','getValue("sc_cuenta",$i);?>','','','');">getValue("sc_cuenta",$i);?> |
| getValue("sc_cuenta",$i)?> |
".$ds_proaf->getValue("denominacion",$i)."";
print"".number_format($ds_proaf->getValue("asignado",$i),2,",",".")." | ";
print"".number_format($ds_proaf->getValue("marzo",$i),2,",",".")." | ";
print"".number_format($ds_proaf->getValue("junio",$i),2,",",".")." | ";
print"".number_format($ds_proaf->getValue("septiembre",$i),2,",",".")." | ";
print"".number_format($ds_proaf->getValue("diciembre",$i),2,",",".")." | ";
print"
";
}//for
}//if ($ls_operacion=="AUTODISTRIBUIR")
if($ls_operacion=="GUARDAR")
{
$ld_asignado="";
$ls_cuenta="";
$ds_proaf->data=$_SESSION["objact"];
$la_empresa=$_SESSION["la_empresa"];
$ls_codemp = $la_empresa["codemp"];
$li_rows=0; $li_count=-2; $li_acum_insert=0; $li_acum_update=0; $li_rtn_ins=0; $li_rtn_upd=0;
$ls_cod_report=""; $ls_sc_cuenta="";
$li_num=$ds_proaf->getRowCount("cod_report");
for ($i=1; $i<=$li_num; $i++)
{
$la_datos[0] = $ds_proaf->getValue("cod_report",$i);
$la_datos[1] = $ds_proaf->getValue("sc_cuenta",$i);
$la_datos[2] = $ds_proaf->getValue("denominacion",$i);
$la_datos[3] = $ds_proaf->getValue("status",$i);
$la_datos[4] = $ds_proaf->getValue("asignado",$i);
$la_datos[5] = $ds_proaf->getValue("distribuir",$i);
//meses
$la_datos[6] = 0;
$la_datos[7] = 0;
$la_datos[8] = $ds_proaf->getValue("marzo",$i);
$la_datos[9] = 0;
$la_datos[10] = 0;
$la_datos[11] = $ds_proaf->getValue("junio",$i);
$la_datos[12] = 0;
$la_datos[13] = 0;
$la_datos[14] = $ds_proaf->getValue("septiembre",$i);
$la_datos[15] = 0;
$la_datos[16] = 0;
$la_datos[17] = $ds_proaf->getValue("diciembre",$i);
$la_datos[18] = $ds_proaf->getValue("nivel",$i);
$la_datos[19] = $ds_proaf->getValue("referencia",$i);
$la_datos[20] = $ds_proaf->getValue("no_fila",$i);
$la_datos[21] = $ds_proaf->getValue("tipo",$i);
$la_datos[22] = $ds_proaf->getValue("cta_res",$i);
$la_datos[23] = $ds_proaf->getValue("modrep",$i);
$ls_cod_report = $la_datos[0];
$ls_sc_cuenta = $la_datos[1];
$li_count = $iscg_procesos->uf_count_scg_plantillacuentareporte( $ls_codemp, $ls_cod_report, $ls_sc_cuenta );
if ($li_count== 0)
{
$li_rtn_ins = $iscg_procesos->uf_insert_scg_plantillacuentareporte( $la_datos );
if ($li_rtn_ins == 0)
{
$msg->message("Error al insertar");
}
else
{
$li_acum_insert = $li_acum_insert + $li_rtn_ins;
}
}
if ($li_count==1)
{
$lb_valido = $iscg_procesos->uf_update_scg_plantillacuentareporte($la_datos);
}
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
/// PARA LA CONVERSIÓN MONETARIA
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if($lb_valido)
{
$lb_valido = $funciones_scg->uf_convertir_scgpcreporte($la_datos,$la_seguridad);
}
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
}//for
//si ejecuto todos los registros realiza las transacciones de commit o rollback
if($lb_valido)
{
///////////////////////////////// SEGURIDAD /////////////////////////////
$ls_evento="UPDATE";
$ls_descripcion =" Actualizo la Programacion de Reportes ";
$ls_variable= $io_seguridad->uf_sss_insert_eventos_ventana($la_seguridad["empresa"],
$la_seguridad["sistema"],$ls_evento,$la_seguridad["logusr"],
$la_seguridad["ventanas"],$ls_descripcion);
///////////////////////////////// SEGURIDAD /////////////////////////////
$lb_valido = $iscg_procesos->uf_sql_transaction(true);
if ($lb_valido)
{
$msg->message("Los datos han sido guardados con exito.......");
}
else
{
$msg->message("Error en la transacion");
}
}
else
{
$lb_valido = $iscg_procesos->uf_sql_transaction(false);
$msg->message("Error en la transacion");
}
$la_empresa = $_SESSION["la_empresa"];
$ls_codemp = $la_empresa["codemp"];
$ls_cod_report=$_SESSION["cod_report"];
$rs_cta=$iscg_procesos->uf_select_datastore_trim( $ls_codemp, $ls_cod_report );
$data=$SQL->obtener_datos($rs_cta);
$ds_proaf->data=$data;
$li_num=$ds_proaf->getRowCount("cod_report");
for($i=1;$i<=$li_num;$i++)
{
$ls_status=$ds_proaf->getValue("status",$i);
if($ls_status=="C")
{
?>
| ','getValue("sc_cuenta",$i);?>','','','');">getValue("sc_cuenta",$i);?> |
| ','getValue("sc_cuenta",$i);?>','','','');">getValue("sc_cuenta",$i);?> |
| getValue("sc_cuenta",$i)?> |
".$ds_proaf->getValue("denominacion",$i)."";
print"".number_format($ds_proaf->getValue("asignado",$i),2,",",".")." | ";
print"".number_format($ds_proaf->getValue("marzo",$i),2,",",".")." | ";
print"".number_format($ds_proaf->getValue("junio",$i),2,",",".")." | ";
print"".number_format($ds_proaf->getValue("septiembre",$i),2,",",".")." | ";
print"".number_format($ds_proaf->getValue("diciembre",$i),2,",",".")." | ";
print"
";
}//for
} //fin de ue_guardar
if($ls_operacion=="RECARGAR")
{
$la_empresa = $_SESSION["la_empresa"];
$ls_codemp = $la_empresa["codemp"];
$li_rtn=0 ;
$lb_valido=true;
$ls_cod_report="0409"; // OAF Instr 4
$lb_valido= $iscg_procesos->delete_scg_pc_reporte($ls_cod_report);
if ($lb_valido)
{
if ($ls_cod_report=="0409")
{
$lb_valido = $iscg_procesos->uf_cargar_origen_y_aplic_fondos_txt($ls_codemp);
if($lb_valido)
{
$msg->message("Los datos fueron cargados");
$rs_cta=$iscg_procesos->uf_select_scg_datastore( $ls_codemp, $ls_cod_report );
$data=$SQL->obtener_datos($rs_cta);
$ds_proaf->data=$data;
$li_num=$ds_proaf->getRowCount("cod_report");
for($i=1;$i<=$li_num;$i++)
{
$ls_status=$data["status"][$i];
if($ls_status=="C")
{
?>
| ','getValue("sc_cuenta",$i);?>','','','');">getValue("sc_cuenta",$i);?> |
| ','getValue("sc_cuenta",$i);?>','','','');">getValue("sc_cuenta",$i);?> |
| getValue("sc_cuenta",$i)?> |
".$ds_proaf->getValue("denominacion",$i)."";
print"".number_format($ds_proaf->getValue("asignado",$i),2,",",".")." | ";
print"".number_format($ds_proaf->getValue("marzo",$i),2,",",".")." | ";
print"".number_format($ds_proaf->getValue("junio",$i),2,",",".")." | ";
print"".number_format($ds_proaf->getValue("septiembre",$i),2,",",".")." | ";
print"".number_format($ds_proaf->getValue("diciembre",$i),2,",",".")." | ";
print"
";
}//for
}//if($lb_valido)
else
{
$msg->message("Error al cargar los datos");
}
}//if($ls_cod_report==0409")
}//($li_rtn>0)
}//fin de recargar
?>
