uf_conectar();
$io_dsempresa = new class_datastore();
$io_sql = new class_sql($conn);
$io_sql2 = new class_sql($conn);
$io_funciones= new class_funciones();
$arr = $_SESSION["la_empresa"];
$ls_sql = " SELECT * FROM sigesp_empresa ";
$rs_empresa = $io_sql->select($ls_sql);
$data = $rs_empresa;
if ($row=$io_sql->fetch_row($rs_empresa))
{
$data=$io_sql->obtener_datos($rs_empresa);
$io_sql->free_result($rs_empresa);
}
$arrcols = array_keys($data);
$totcol = count($arrcols);
$io_dsempresa->data = $data;
$totrow = $io_dsempresa->getRowCount("codemp");
////////////////////////////////////////////////////
$ls_sql2 = " SELECT COUNT(*) as total FROM sigesp_cmp ";
$rs_empresa2 = $io_sql2->select($ls_sql2);
$data2 = $rs_empresa2;
$totalfilas = 0;
if ($rs_empresa2===false)
{
print "Error en sigesp_cmp";
}
else
{
if ($row2=$io_sql2->fetch_row($rs_empresa2))
{
$data2=$io_sql2->obtener_datos($rs_empresa2);
$totalfilas=$data2["total"][1];
}
$io_sql2->free_result($rs_empresa2);
}
$ls_codemp=$_SESSION["la_empresa"]["codemp"];
$ls_periodo=$_SESSION["la_empresa"]["periodo"];
$ls_sql3= " SELECT COUNT(*) as totalaper ".
" FROM sigesp_cmp ".
" WHERE codemp='".$ls_codemp."' AND procede='SPGAPR' AND comprobante='0000000APERTURA' AND fecha='".$ls_periodo."'";
$rs_empresa=$io_sql2->select($ls_sql3);
$total=0;
if ($rs_empresa===false)
{
print "Error en sigesp_cmp";
}
else
{
if ($row=$io_sql2->fetch_row($rs_empresa))
{
$total=$row["totalaper"];
}
$io_sql2->free_result($rs_empresa);
}
$ls_sql4 = " SELECT COUNT(*) as totalctascg FROM scg_cuentas WHERE codemp='".$ls_codemp."'";
$rs_empresa = $io_sql->select($ls_sql4);
$total_ctascg = 0;
if($rs_empresa===false)
{
print "Error en sigesp_cmp";
}
else
{
if ($row=$io_sql->fetch_row($rs_empresa))
{
$total_ctascg=$row["totalctascg"];
}
$io_sql->free_result($rs_empresa);
}
$ls_sql5 = " SELECT COUNT(*) as totalctaspg FROM spg_cuentas WHERE codemp='".$ls_codemp."'";
$rs_empresa = $io_sql->select($ls_sql5);
$total_ctaspg = 0;
if($rs_empresa===false)
{
print "Error en sigesp_cmp";
}
else
{
if ($row=$io_sql->fetch_row($rs_empresa))
{
$total_ctaspg=$row["totalctaspg"];
}
$io_sql->free_result($rs_empresa);
}
////////////////////////////////////////////////////
$ls_ctarep=$_SESSION["la_empresa"]["repcajchi"];
$ls_sql6= " SELECT denominacion ".
" FROM scg_cuentas ".
" WHERE codemp='".$ls_codemp."' AND sc_cuenta='".$ls_ctarep."'";
$rs_empresa=$io_sql2->select($ls_sql6);
if ($rs_empresa===false)
{
print "Error en sigesp_cmp";
}
else
{
if ($row=$io_sql2->fetch_row($rs_empresa))
{
$denoscg=$row["denominacion"];
}
$io_sql2->free_result($rs_empresa);
}
////////////////////////////////////////////////////
?>
| Catálogo de Empresas |
| Código |
Nombre |
Siglas |
Dirección |
Teléfono |
";
$codigo = $data["codemp"][$z];
$nombre = $data["nombre"][$z];
$nomres = $data["nomres"][$z];
$titulo = $data["titulo"][$z];
$direccion = $data["direccion"][$z];
$ciuemp = $data["ciuemp"][$z];
$estemp = $data["estemp"][$z];
$zonpos = $data["zonpos"][$z];
$telefono = $data["telemp"][$z];
$fax = $data["faxemp"][$z];
$email = $data["email"][$z];
$website = $data["website"][$z];
$ls_nomorgads = $data["nomorgads"][$z];
$fecha = $data["periodo"][$z];
$periodo = $io_funciones->uf_convertirfecmostrar($fecha);
$enero = $data["m01"][$z];
$febrero = $data["m02"][$z];
$marzo = $data["m03"][$z];
$abril = $data["m04"][$z];
$mayo = $data["m05"][$z];
$junio = $data["m06"][$z];
$julio = $data["m07"][$z];
$agosto = $data["m08"][$z];
$septiembre = $data["m09"][$z];
$octubre = $data["m10"][$z];
$noviembre = $data["m11"][$z];
$diciembre = $data["m12"][$z];
$tipocontabilidad = $data["esttipcont"][$z];
$planunico = $data["formplan"][$z];
$contabilidad = $data["formcont"][$z];
$pgasto = $data["formpre"][$z];
$pingreso = $data["formspi"][$z];
$activo = $data["activo"][$z];
$pasivo = $data["pasivo"][$z];
$ingreso = $data["ingreso"][$z];
$gasto = $data["gasto"][$z];
$resultado = $data["resultado"][$z];
$capital = $data["capital"][$z];
$deudor = $data["orden_h"][$z];
$acreedor = $data["orden_d"][$z];
$presupuestogasto = $data["gasto_p"][$z];
$presupuestoingreso = $data["ingreso_p"][$z];
$resultadoactual = $data["c_resultad"][$z];
$resultanterior = $data["c_resultan"][$z];
$desestpro1 = $data["nomestpro1"][$z];
$desestpro2 = $data["nomestpro2"][$z];
$desestpro3 = $data["nomestpro3"][$z];
$desestpro4 = $data["nomestpro4"][$z];
$desestpro5 = $data["nomestpro5"][$z];
$haciendaactivo = $data["activo_h"][$z];
$haciendapasivo = $data["pasivo_h"][$z];
$haciendaresul = $data["resultado_h"][$z];
$fiscalgasto = $data["gasto_f"][$z];
$ingresofiscal = $data["ingreso_f"][$z];
$li_traspasos = $data["estvaltra"][$z];
$li_valnivel = $data["vali_nivel"][$z];
$ls_cuentabienes = $data["soc_gastos"][$z];
$ls_cuentaservicios = $data["soc_servic"][$z];
$ls_estmodape = $data["estmodape"][$z];
$li_estdesiva = $data["estdesiva"][$z];
$li_precomprometer = $data["estprecom"][$z];
$ls_codorgsig = $data["codorgsig"][$z];
$ls_rifemp = $data["rifemp"][$z];
$ls_nitemp = $data["nitemp"][$z];
$ls_ivss = $data["nroivss"][$z];
$li_numnivest = $data["numniv"][$z];
$li_estmodest = $data["estmodest"][$z];
$ld_salinipro = $data["salinipro"][$z];
$ld_salinipro = number_format($ld_salinipro,2,',','.');
$ld_salinieje = $data["salinieje"][$z];
$ld_salinieje = number_format($ld_salinieje,2,',','.');
$ls_numordcom = $data["numordcom"][$z];
$ls_numordser = $data["numordser"][$z];
$ls_numsolpag = $data["numsolpag"][$z];
$ls_numlicemp = $data["numlicemp"][$z];
$ls_modgenret = $data["modageret"][$z];
$ls_concomiva = $data["concomiva"][$z];
$ls_estmodiva = $data["estmodiva"][$z];
$ls_cedben = $data["cedben"][$z];
$ls_nomben = $data["nomben"][$z];
$ls_scctaben = $data["scctaben"][$z];
$ls_tesoroactivo = $data["activo_t"][$z];
$ls_tesoropasivo = $data["pasivo_t"][$z];
$ls_tesororesul = $data["resultado_t"][$z];
$ls_ctafinanciera = $data["c_financiera"][$z];
$ls_ctafiscal = $data["c_fiscal"][$z];
$ls_codasiona = $data["codasiona"][$z];
$ls_confch = $data["confi_ch"][$z];
$ls_lonestpro1 = $data["loncodestpro1"][$z];
$ls_lonestpro2 = $data["loncodestpro2"][$z];
$ls_lonestpro3 = $data["loncodestpro3"][$z];
$ls_lonestpro4 = $data["loncodestpro4"][$z];
$ls_lonestpro5 = $data["loncodestpro5"][$z];
$ls_conrecdoc = $data["conrecdoc"][$z];
$li_diacadche = $data["diacadche"][$z];
$ls_nomrep = $data["nomrep"][$z];
$ls_cedrep = $data["cedrep"][$z];
$ls_telfrep = $data["telfrep"][$z];
$ls_cargo = $data["cargorep"][$z];
$ls_estretiva = $data["estretiva"][$z];
$ls_clactacont = $data["clactacon"][$z];
$ls_empcons = $data["estempcon"][$z];
$ls_bdconsolida = $data["basdatcon"][$z];
$bd_historica = $data["bd_historica"][$z];
$ls_codaltempcon = $data["codaltemp"][$z];
$ls_estcamemp=$data["estcamemp"][$z];
$ls_estparsindis=$data["estparsindis"][$z];
$ls_bdconscomp=$data["basdatcmp"][$z];
$ls_confinstr = $data["confinstr"][$z];
$ls_intecred = $data["estintcred"][$z];
$ls_estmanant = $data["estmanant"][$z];
$ls_estpresing = $data["estpreing"][$z];
$ls_concommun= $data["concommun"][$z];
$ls_estmodpartsep= $data["estmodpartsep"][$z];
$ls_estmodpartsoc= $data["estmodpartsoc"][$z];
$ls_confiva = $data["confiva"][$z];
$ls_casconmov = $data["casconmov"][$z];
$ls_estmodprog = $data["estmodprog"][$z];
$ls_ctaresact = $data["ctaresact"][$z];
$ls_ctaresant = $data["ctaresant"][$z];
$li_dedconproben = $data["dedconproben"][$z];
$li_contintmovban=$data["contintmovban"][$z];
$li_valinimovban=$data["valinimovban"][$z];
$ls_estaprsep = $data["estaprsep"][$z];
$ls_estaprsoc = $data["estaprsoc"][$z];
$ls_estaprcxp = $data["estaprcxp"][$z];
$ls_sujpasesp = $data["sujpasesp"][$z];
$ls_bloanu = $data["bloanu"][$z];
$ls_estretmil = $data["estretmil"][$z];
$ls_concommil = $data["concommil"][$z];
$ls_estintban = $data["estintban"][$z];
$ls_cueproacu = $data["cueproacu"][$z];
$ls_cuedepamo = $data["cuedepamo"][$z];
$ls_valclacon = $data["valclacon"][$z];
$ls_valcomrd = $data["valcomrd"][$z];
$ls_ctaejeprecie = $data["ctaejeprecie"][$z];
$ls_scfordenacreedora = $data["scforden_h"][$z];
$ls_scfordendeudora = $data["scforden_d"][$z];
$ls_ctaconrepcajchi = $data["repcajchi"][$z];
$ls_estafenc = $data["estafenc"][$z];
$ls_capiva = $data["capiva"][$z];
$ls_parcapiva = $data["parcapiva"][$z];
$ls_estciesem = $data["estciesem"][$z];
$ls_ciesem1 = $data["ciesem1"][$z];
$ls_ciesem2 = $data["ciesem2"][$z];
$ls_estceniva = $data["estceniva"][$z];
$ls_codestprocen1 = $data["codestprocen1"][$z];
$ls_codestprocen2 = $data["codestprocen2"][$z];
$ls_codestprocen3 = $data["codestprocen3"][$z];
$ls_codestprocen4 = $data["codestprocen4"][$z];
$ls_codestprocen5 = $data["codestprocen5"][$z];
$ls_estclacen = $data["estclacen"][$z];
$ls_codestprocen1=substr($ls_codestprocen1,(25-$li_len1),$li_len1);
$ls_codestprocen2=substr($ls_codestprocen2,(25-$li_len2),$li_len2);
$ls_codestprocen3=substr($ls_codestprocen3,(25-$li_len3),$li_len3);
$ls_codestprocen4=substr($ls_codestprocen4,(25-$li_len4),$li_len4);
$ls_codestprocen5=substr($ls_codestprocen5,(25-$li_len5),$li_len5);
$ls_estspgdecimal= $data["estspgdecimal"][$z];
$ls_nivapro = $data["nivapro"][$z];
$ls_estenvcor = $data["envcorsup"][$z];
$ls_estcomobr = $data["estcomobr"][$z];
$ls_numrefcarord = $data["numrefcarord"][$z];
print "".$codigo." | ";
print "".$nombre." | ";
print "".$titulo." | ";
print "".$direccion." | ";
print "".$telefono." | ";
print "";
}
?>