function p_before($codigo) { global $CN; if (get("metodo") == "FFichatecnicaDet") { $CodigoFicha = get('CodigoFicha'); $SqlDetFicha = "SELECT Cantidad,Producto FROM defichatecnica WHERE Codigo={$codigo};"; $row = fetch($SqlDetFicha); $Cantidad = $row['Cantidad']; $Producto = $row['Producto']; $SqlProducto = "SELECT Codigo,Precio FROM maproducto WHERE Codigo={$row['Producto']} ;"; $row = fetch($SqlProducto); $Precio = $row['Precio']; $Importe = $Cantidad * $Precio; $SqlUpdate = "Update defichatecnica SET PrecioUnitario={$Precio},Importe={$Importe} WHERE Codigo={$codigo} "; xSQL2($SqlUpdate, $CN); $SqlInsert = "INSERT INTO maalmacen(CantidadSalida,Producto,Usuario,TipoIngreso) VALUES ({$Cantidad},{$Producto},'admin',2) "; xSQL2($SqlInsert, $CN); Ficha('CrearDetalle', $CodigoFicha, ''); } }
function p_before($codigo) { global $ConexionEmpresa; $sql = "UPDATE sys_usuarios SET UMiembro = " . $_SESSION['UMiembro']['int'] . " WHERE Codigo=" . $codigo; xSQL2($sql, $ConexionEmpresa); }
function InsertarCuenta($codi) { global $ConxGestionDC, $ConexSisEmp; $sql = "SELECT MAX(NroSuscripcion) as Nro FROM ct_suscripcion"; $rgt = rGT($ConexSisEmp, $sql); $Nro = 0; if ($rgt['Nro'] == "") { $Nro = 1; } else { $Nro = intval($rgt['Nro']['string']) + 1; } $sql = "INSERT INTO ct_suscripcion(Codigo,CtaSuscripcion,FHCreacion,IpPublica,IpPrivada,NroSuscripcion) VALUES(" . " " . $Nro . ",'" . $Nro . "','" . date('y-m-d h:m:s') . "','" . getRealIP() . "','" . getRealIP() . "'," . $Nro . ")"; $codSuscripcion = $Nro; xSQL2($sql, $ConexSisEmp); $sql = "INSERT INTO ct_umiembro(CtaSuscripcion,FHCreacion,IpPublica,IpPrivada,Suscriptor,Suscripcion,Cargo) VALUES (" . "'" . $codi . "','" . date('y-m-d h:m:s') . "','" . getRealIP() . "','" . getRealIP() . "','" . post('Email') . "'," . $Nro . "," . post('Cargo') . ")"; xSQL2($sql, $ConexSisEmp); $codMiembro = mysql_insert_id($ConexSisEmp); $sql = "INSERT INTO sys_usuarios(Usuario,Nombres,Apellidos,Contrasena,Estado,email,FechaRegistro,CtaSuscripcion,UMiembro) VALUES (" . "'" . post('Usuario') . "','" . post('Nombres') . "','" . post('ApellidoP') . " " . post('ApellidoM') . "'," . "'" . post('Contrasena') . "',1,'" . post('Email') . "','" . date('y-m-d h:m:s') . "','" . $codSuscripcion . "','" . $codMiembro . "')"; xSQL2($sql, $ConxGestionDC); $sql = "SELECT Codigo FROM ct_entidad WHERE Ruc=" . post('Empresa') . ""; $res = mysql_query($sql, $ConexSisEmp); $ce = mysql_num_rows($res); $codEnt = 0; $rucEnt = ""; $razEnt = ""; $dirEnt = ""; if ($ce == 0) { #$emp = BuscarRuc(post('Empresa')); $sql = "SELECT Empresa,RazonSocial FROM ct_solicitud WHERE Empresa=" . post('Empresa') . ";"; $emp = rGT($ConexSisEmp, $sql); $sql2 = "INSERT INTO ct_entidad(CtaSuscripcion,UMiembro,FHCreacion,IpPublica,IpPrivada,Ruc,RazonSocial,DireccionFiscal)values(" . "'" . $codSuscripcion . "','" . $codMiembro . "','" . date('y-m-d h:m:s') . "','" . getRealIP() . "','" . getRealIP() . "'," . $emp['Empresa'] . ",'" . $emp['RazonSocial'] . "','')"; xSQL2($sql2, $ConexSisEmp); $codEnt = mysql_insert_id(); $rucEnt = $emp['Empresa']; $razEnt = $emp['RazonSocial']; #$dirEnt = $emp[2]; } else { $xSql = "SELECT codigo,ruc,razonsocial,direccionfiscal FROM ct_entidad where RUC='" . post('Empresa') . "'"; $rg = rGT($ConexSisEmp, $xSql); $codEnt = $rg['codigo']; $rucEnt = $rg['ruc']; $razEnt = $rg['razonsocial']; $dirEnt = $rg['direccionfiscal']; } $sql = "INSERT INTO ct_suscriptores(Codigo,CtaSuscripcion,UMiembro,FHCreacion,IpPublica,IpPrivada,Nombre,ApellidoP,ApellidoM,Entidad,Email,Telefono) values (" . "'" . post('Email') . "','" . $codSuscripcion . "','" . $codMiembro . "','" . date('y-m-d h:m:s') . "','" . getRealIP() . "','" . getRealIP() . "','" . post('Nombres') . "'," . "'" . post('ApellidoP') . "','" . post('ApellidoM') . "'," . $codEnt . ",'" . post('Email') . "'," . post('Telefono') . ")"; xSQL2($sql, $ConexSisEmp); $codSuscriptor = mysql_insert_id(); $sql = "INSERT INTO ct_acreditacion(CtaSuscripcion,UMiembro,FHCreacion,IpPublica,IpPrivada,Solicitud,FechaAprovacion,Estado) VALUES (" . "'" . $codSuscripcion . "'," . $codMiembro . ",'" . date('y-m-d h:m:s') . "','" . getRealIP() . "','" . getRealIP() . "'," . $codi . ",'" . date('y-m-d h:m:s') . "',0)"; xSQL2($sql, $ConexSisEmp); $codAcredi = mysql_insert_id(); $sql = "INSERT INTO ct_empresasuscripcion(CtaSuscripcion,UMiembro,FHCreacion,IpPublica,IpPrivada,Entidad,Suscripcion,RazonSocial,Predeterminado) VALUES(" . "'" . $codSuscripcion . "'," . $codMiembro . ",'" . date('y-m-d h:m:s') . "','" . getRealIP() . "','" . getRealIP() . "','" . $codEnt . "','" . $codSuscripcion . "','" . $razEnt . "',1)"; xSQL2($sql, $ConexSisEmp); $sql = "UPDATE ct_suscripcion SET UMiembro = '" . $codMiembro . "',Acreditacion='" . $codAcredi . "' where codigo='" . $codSuscripcion . "'"; xSQL2($sql, $ConexSisEmp); $sql = "UPDATE ct_umiembro SET UMiembro = '" . $codMiembro . "',Entidad='" . $codEnt . "' where codigo='" . $codMiembro . "'"; xSQL2($sql, $ConexSisEmp); return $codSuscripcion; }
function MenuPerfil($parm) { global $vConex, $enlace, $cnOwl; switch ($parm) { case "Listado": $btn = "Crear ]" . $enlace . "?MenuPerfil=Form]panelB-R2}"; $btn .= "<div class='actualizar'></div>]" . $enlace . "?MenuPerfil=Listado]panelB-R}"; $btn = Botones($btn, 'botones1'); $subMenu = tituloBtnPn("Listado <p>MENÚ EMPRESA</p>", $btn, "150px", "TituloA"); $sql = 'SELECT Codigo, Nombre, Url,Estado, Codigo AS CodigoAjax FROM menu_empresa ORDER BY Codigo ASC '; $clase = 'reporteA'; $enlaceCod = 'codigo_menu_empresa'; $url = $enlace . "?MenuPerfil=menuDetalle"; $panel = 'panelB-R2'; $reporte = ListR2($titulo, $sql, $vConex, $clase, '', $url, $enlaceCod, $panel, 'sys_tipo_ouput', ''); $divFloat = panelFloat($form, "panel-FloatB", $style); $s = layoutLSB($divFloat . $subMenu, $reporte, "panelB-R2"); break; case "Form": $uRLForm = "Crear]" . $enlace . "?metodo=menu_empresa&transaccion=INSERT]panelB-R]F]}"; $titulo = "Crear Menú"; $form = c_form($titulo, $vConex, "menu_empresa", "CuadroA", $path, $uRLForm, "", $tSelectD); $s = PanelInferior($FBusqueda . $form, "panel_edit_menu", '370px'); WE($s); break; case "editaReg": $codigo = get("codigo_menu_empresa"); $titulo = "Editar Menú"; $uRLForm = "Actualizar]" . $enlace . "?metodo=menu_empresa&transaccion=UPDATE&codigo=" . $codigo . "]panelB-R]F]}"; $uRLForm .= "Eliminar]" . $enlace . "?metodo=menu_empresa&transaccion=DELETE&codigo=" . $codigo . "]panelB-R]]}"; $form = c_form($titulo, $vConex, "menu_empresa", "CuadroA", $path, $uRLForm, $codigo, $tSelectD); $form = "<div style='width:400px;'>" . $form . "</div>"; $s = PanelInferior($form, "panel_edit_menu", '320px'); break; case "Detalle": $btn .= "Atrás]" . $enlace . "?MenuPerfil=Listado]panelB-R}"; $btn = Botones($btn, 'botones1'); $subMenu = tituloBtnPn("Listado <p>MENÚ EMPRESA</p>", $btn, "100px", "TituloA"); $sql = 'SELECT Codigo, Nombre, Url,Estado, Codigo AS CodigoAjax FROM menu_empresa ORDER BY Codigo ASC '; $clase = 'reporteA'; $enlaceCod = 'codigo_menu_empresa'; $url = $enlace . "?MenuPerfil=menuDetalle"; $panel = 'panelB-R2'; $reporte = ListR2($titulo, $sql, $vConex, $clase, '', $url, $enlaceCod, $panel, 'sys_tipo_ouput', ''); $divFloat = panelFloat($form, "panel-FloatB", $style); $s = layoutLSB($divFloat . $subMenu, $reporte, "panelB-R2"); break; case "menuDetalle": $cod = get('codigo_menu_empresa'); $btn = "Crear ]" . $enlace . "?MenuPerfil=FormDetalle&CodSubMenu=" . $cod . "]panelB-R2}"; $btn .= "Editar ]" . $enlace . "?MenuPerfil=editaReg&codigo_menu_empresa=" . $cod . "]panelB-R2}"; $btn = Botones($btn, 'botones1'); $subMenu = tituloBtnPn("Detalle <p>MENÚ</p>", $btn, "150px", "TituloA"); $sql = "SELECT Codigo, Nombre, TipoMenu, Url,Orden,Estado, Codigo AS CodigoAjax\n FROM menu_empresa_det\n WHERE Menu = '{$cod}'\n ORDER BY Codigo ASC "; $clase = 'reporteA'; $enlaceCod = 'codigo_menu_empresa_det'; $url = $enlace . "?MenuPerfil=editaRegDet"; $panel = 'PanelInter'; $reporte = ListR2($titulo, $sql, $vConex, $clase, '', $url, $enlaceCod, $panel, 'sys_tipo_ouput', ''); $divFloat = panelFloat($form, "panel-FloatB", $style); $s = layoutLSB2($divFloat . $subMenu, $reporte, "panelB-R2"); break; case "FormDetalle": $codMenu = get('CodSubMenu'); $uRLForm = "Crear]" . $enlace . "?metodo=menu_empresa_det&transaccion=INSERT&Menu=" . $codMenu . "]panelB-R]F]}"; $titulo = "Crear Sub-Menú"; $form = c_form($titulo, $vConex, "menu_empresa_det", "CuadroA", $path, $uRLForm, "", $tSelectD); $s = PanelInferior($FBusqueda . $form, "panel_edit_menu", '370px'); WE($s); break; case "editaRegDet": $codigo = get("codigo_menu_empresa_det"); $titulo = "Editar Submenú"; $uRLForm = "Actualizar]" . $enlace . "?metodo=menu_empresa_det&transaccion=UPDATE&codigo=" . $codigo . "]panelB-R]F]}"; $uRLForm .= "Eliminar]" . $enlace . "?metodo=menu_empresa_det&transaccion=DELETE&codigo=" . $codigo . "]panelB-R]]}"; $form = c_form($titulo, $vConex, "menu_empresa_det", "CuadroA", $path, $uRLForm, $codigo, $tSelectD); $form = "<div style='width:400px;'>" . $form . "</div>"; $s = PanelInferior($form, "panel_edit_menu", '320px'); break; case "updtaePerflMaster": $btn = "Actualizar ]" . $enlace . "?MenuPerfil=actMaster]panelB-R}"; $btn = Botones($btn, 'botones1'); $subMenu = tituloBtnPn("Actualizar <p>MASTER</p>", $btn, "150px", "TituloA"); $sql = "SELECT p.Codigo, m.Nombre,d.TipoMenu,p.Estado,p.Perfil, p.Codigo AS CodigoAjax\n FROM menu_empresa as m\n LEFT JOIN menu_empresa_perfil as p ON m.Codigo = p.Menu\n LEFT JOIN menu_empresa_det as d ON p.MenuDetalle = d.Codigo WHERE Perfil = '1'\n Group by p.Codigo ORDER BY p.Menu, p.MenuDetalle ASC"; $clase = 'reporteA'; $enlaceCod = 'codigo_menu_empresa'; $url = $enlace . "?MenuPerfil=menuDetalle"; $panel = 'panelB-R'; $reporte = ListR2($titulo, $sql, $vConex, $clase, '', $url, $enlaceCod, $panel, '', ''); $s = 'Aquà Automáticamente el usuario "Master" de cada empresa, podrá tener acceso a todos los menús y submenus y tambien se actualizará si se ingreso nuevos menús y submenus'; $s .= layoutLSB($divFloat . $subMenu, $reporte, "panelB-R2"); break; case "actMaster": $perfil = $codigo; $n_s = "SELECT PaginaWeb FROM empresa"; $resu = mysql_query($n_s, $vConex); while ($reg = mysql_fetch_array($resu)) { $s .= $reg["PaginaWeb"]; $sql = "SELECT Codigo, Menu FROM menu_empresa_det "; $consulta = mysql_query($sql, $vConex); while ($r = mysql_fetch_array($consulta)) { $sql = "SELECT Codigo\n FROM menu_empresa_perfil\n WHERE Menu ='" . $r["Menu"] . "' AND MenuDetalle = '" . $r["Codigo"] . "' AND Perfil ='1' AND Entidad = '" . $reg["PaginaWeb"] . "' "; $rg = fetch($sql); $codigo = $rg["Codigo"]; if ($codigo) { $s .= 'ya ingreso<br>'; } else { $sql = 'INSERT INTO menu_empresa_perfil (Menu,MenuDetalle,Estado,Perfil,Entidad) VALUES ("' . $r["Menu"] . '","' . $r["Codigo"] . '","Activo","1","' . $reg["PaginaWeb"] . '")'; xSQL($sql, $vConex); $s .= 'deberia ingresa'; } } } break; case "PerfilSys": $subMenu = tituloBtnPn("<span>ACTUALIZA PERFILES</span><p>Actualiza en base en la plantilla</p><div class='bicel'></div>", $btn, "200px", "TituloA"); $Q_Programas = "SELECT DISTINCT Entidad AS 'Nombre de la Empresa',\n Entidad AS CodigoAjax\n FROM menu_empresa_perfil"; $Url_Raiz_Link = "{$enlace}?MenuPerfil=PerfilesEmpresa"; $Url_Add_Link = array("CodigoAjax" => "CodMEP"); $Panel_Destino = 'panelB-R'; $tablaReporte = ListR("", $Q_Programas, $cnOwl, 'reporteA', 'd', $Url_Raiz_Link, $Url_Add_Link, $Panel_Destino); $s = PanelUnico($subMenu, $tablaReporte, 'panelB-R2', '600px'); break; case "PerfilDelete": $btn = "Eliminar ]" . $enlace . "?MenuPerfil=PerfilDeleteProcess]panelB-R}"; $btn = Botones($btn, 'botones1'); $subMenu = tituloBtnPn("<span>ELIMINACION</span><p>PERFILES FALLIDOS</p><div class='bicel'></div>", $btn, "200px", "TituloA"); $s = PanelUnico($subMenu, $tablaReporte, 'panelB-R2', '600px'); break; case "PerfilDeleteProcess": $sql = "DELETE FROM menu_empresa_perfil WHERE Entidad = '' "; xSQL($sql, $vConex); W(MsgE("Eliminación Exitosa.")); MenuPerfil('PerfilDelete'); break; case "PerfilSysView": //Listar todos los perfiles $sql = "SELECT Descripcion,\n Codigo AS CodigoAjax \n FROM usuario_perfil\n WHERE Usuario = 'Sys'"; $Url_Raiz_Link = "{$enlace}?MenuPerfil=detallePerfilView"; $Url_Add_Link = array("CodigoAjax" => "perfil_cod"); $Panel_Destino = 'panelB-R'; $reporte = ListR("", $sql, $cnOwl, 'reporteA', 'd', $Url_Raiz_Link, $Url_Add_Link, $Panel_Destino); $subMenu = tituloBtnPn("<span>PERFILES SYS</span><p>Plantilla master de menu para las empresas</p><div class='bicel'></div>", null, "auto", "TituloA"); $s = PanelUnico($subMenu, $reporte, 'panelB-R2', '600px'); break; case "PerfilesEmpresa": $CodMEP = get("CodMEP"); //Listar todos los perfiles de la empresa que esten en menu_empresa_perfil $Q_A = "SELECT DISTINCT Perfil \n FROM menu_empresa_perfil\n WHERE Entidad = '{$CodMEP}'"; $sql = "SELECT\n UP.Descripcion,\n (\n CASE\n WHEN MED.Perfil <> '' THEN '<div style=color:green >Definido</div>' ELSE 'Pendiente'\n END\n ) AS Estado,\n UP.Codigo AS CodigoAjax\n FROM usuario_perfil AS UP\n LEFT JOIN ({$Q_A}) AS MED ON MED.Perfil = UP.Codigo\n WHERE UP.Usuario = 'Sys'\n GROUP BY UP.Codigo"; $Url_Raiz_Link = "{$enlace}?MenuPerfil=detallePerfilViewEmprPerfil&CodMEP={$CodMEP}"; $Url_Add_Link = array("CodigoAjax" => "perfil_cod"); $Panel_Destino = 'panelB-R'; $reporte = ListR("", $sql, $cnOwl, 'reporteA', 'd,d', $Url_Raiz_Link, $Url_Add_Link, $Panel_Destino); $btn = "<i class=' icon-chevron-left'></i> Atrás]{$enlace}?MenuPerfil=PerfilSys]panelB-R}"; $btn = Botones($btn, 'botones1'); $subMenu = tituloBtnPn("<span>ACTUALIZA EN BASE EN LA PLANTILLA</span><p>Perfiles de empresa - {$CodMEP}</p><div class='bicel'></div>", $btn, "auto", "TituloA"); $s = PanelUnico($subMenu, $reporte, 'panelB-R2', '600px'); break; case "detallePerfilView": $codigo = get("perfil_cod"); $Q_Descripcion_perfil = "SELECT UP.Descripcion AS PerfilDesc\n FROM usuario_perfil AS UP\n WHERE UP.Codigo = {$codigo}"; $PerfilDesc = (string) fetchOne($Q_Descripcion_perfil, $vConex)->PerfilDesc; $btn = "<i class=' icon-chevron-left'></i> Atrás]{$enlace}?MenuPerfil=PerfilSysView]panelB-R}"; $btn .= "<i class='icon-ok-circle'></i> Activar]{$enlace}?MenuPerfil=OnOffItemItemPerfil&status=on&perfil_cod={$codigo}]panelB-R]CHECK}"; $btn .= "<i class='icon-minus-sign'></i> Desactivar]{$enlace}?MenuPerfil=OnOffItemItemPerfil&status=off&perfil_cod={$codigo}]panelB-R]CHECK}"; $btn .= "<i class='icon-refresh'></i> Actualizar / Definir]{$enlace}?MenuPerfil=PActualizaItemPerfil&perfil_cod={$codigo}]panelB-R]CHECK}"; $btn = Botones($btn, 'botones1', "menu_layout"); $subMenu = tituloBtnPn("<span>ACTUALIZAR ITEMS de SYS</span><p>PERFIL {$PerfilDesc}</p><div class='bicel'></div>", $btn, "auto", "TituloA"); $sql = "SELECT \n ME.Codigo AS CodigoAjax,\n ME.Nombre,\n IF(ISNULL(TAB1.Menu),'<div style=color:red>No hay ningún item definido</div>','<div style=color:green>Hay items definidos</div>') AS Estado\n FROM menu_empresa AS ME\n LEFT JOIN (\n SELECT DISTINCT MEP.Menu \n FROM menu_empresa_perfil AS MEP\n WHERE MEP.Entidad = 'Sys'\n AND MEP.Perfil = {$codigo}\n ) AS TAB1 ON ME.Codigo = TAB1.Menu\n ORDER BY ME.Codigo ASC;"; $Url_Raiz_Link = "{$enlace}?MenuPerfil=detalle_submenu&perfil_cod={$codigo}"; $enlaceCod = "CodMenu"; $Panel_Destino = 'panelB-R'; $reporte = ListR2("", $sql, $cnOwl, 'reporteA', "", $Url_Raiz_Link, $enlaceCod, $Panel_Destino, "menu_layout", "checks"); $s = PanelUnico($subMenu, $reporte, 'panelB-R2', '600px'); break; case "detallePerfilViewEmprPerfil": $codigo = get("perfil_cod"); $CodMEP = get("CodMEP"); $Q_Descripcion_perfil = "SELECT UP.Descripcion AS PerfilDesc\n FROM usuario_perfil AS UP\n WHERE UP.Codigo = {$codigo}"; $PerfilDesc = (string) fetchOne($Q_Descripcion_perfil, $vConex)->PerfilDesc; $btn = "<i class=' icon-chevron-left'></i> Atrás]{$enlace}?MenuPerfil=PerfilesEmpresa&CodMEP={$CodMEP}]panelB-R}"; $btn .= "<i class='icon-ok-circle'></i> Activar]{$enlace}?MenuPerfil=OnOffItemItemPerfil_empresa&status=on&perfil_cod={$codigo}&CodMEP={$CodMEP}]panelB-R]CHECK}"; $btn .= "<i class='icon-minus-sign'></i> Desactivar]{$enlace}?MenuPerfil=OnOffItemItemPerfil_empresa&status=off&perfil_cod={$codigo}&CodMEP={$CodMEP}]panelB-R]CHECK}"; $btn .= "<i class=' icon-refresh'></i> Actualizar / Definir]{$enlace}?MenuPerfil=PActualizaItemPerfilEmpresa&perfil_cod={$codigo}&CodMEP={$CodMEP}]panelB-R]CHECK}"; $btn = Botones($btn, 'botones1', "menu_layout"); $subMenu = tituloBtnPn("<span>ACTUALIZAR ITEMS SEGUN CONFIGURACIÓN Sys</span><p>PERFIL {$PerfilDesc}</p><div class='bicel'></div>", $btn, "auto", "TituloA"); $sql = "SELECT \n ME.Codigo AS CodigoAjax,\n ME.Nombre,\n IF(ISNULL(TAB1.Menu),'<div style=color:red>No hay ningún item definido</div>','<div style=color:green>Hay items definidos</div>') AS Estado\n FROM menu_empresa AS ME\n LEFT JOIN (\n SELECT DISTINCT MEP.Menu \n FROM menu_empresa_perfil AS MEP\n WHERE MEP.Entidad = '{$CodMEP}'\n AND MEP.Perfil = {$codigo}\n ) AS TAB1 ON ME.Codigo = TAB1.Menu\n ORDER BY ME.Codigo ASC;"; $Url_Raiz_Link = "{$enlace}?MenuPerfil=detalle_submenu_empresa&CodMEP={$CodMEP}&perfil_cod={$codigo}"; $enlaceCod = "CodMenu"; $Panel_Destino = 'panelB-R'; $reporte = ListR2("", $sql, $cnOwl, 'reporteA', "", $Url_Raiz_Link, $enlaceCod, $Panel_Destino, "menu_layout", "checks"); $s = PanelUnico($subMenu, $reporte, 'panelB-R2', '600px'); break; case "detalle_submenu": $codigo = (int) get("perfil_cod"); $CodMenu = (int) get("CodMenu"); $Q_Descripcion_perfil = "SELECT UP.Descripcion AS PerfilDesc\n FROM usuario_perfil AS UP\n WHERE UP.Codigo = {$codigo}"; $PerfilDesc = (string) fetchOne($Q_Descripcion_perfil, $vConex)->PerfilDesc; $Q_DescMenu = "SELECT Nombre \n FROM menu_empresa \n WHERE Codigo = {$CodMenu}"; $DescMenu = (string) fetchOne($Q_DescMenu, $vConex)->Nombre; $btn = "<i class=' icon-chevron-left'></i> Atrás]{$enlace}?MenuPerfil=detallePerfilView&perfil_cod={$codigo}]panelB-R}"; $btn .= "<i class='icon-ok-circle'></i> Activar]{$enlace}?MenuPerfil=OnOffItemSubItemPerfil&status=on&perfil_cod={$codigo}&CodMenu={$CodMenu}]panelB-R]CHECK}"; $btn .= "<i class='icon-minus-sign'></i> Desactivar]{$enlace}?MenuPerfil=OnOffItemSubItemPerfil&status=off&perfil_cod={$codigo}&CodMenu={$CodMenu}]panelB-R]CHECK}"; $btn .= "<i class=' icon-refresh'></i> Actualizar / Definir]{$enlace}?MenuPerfil=PUpdateSubItem&perfil_cod={$codigo}&CodMenu={$CodMenu}]panelB-R]CHECK}"; $btn = Botones($btn, 'botones1', "menu_layout"); $subMenu = tituloBtnPn("<span>{$DescMenu} - Submenus de Sys</span><p>PERFIL {$PerfilDesc}</p><div class='bicel'></div>", $btn, "auto", "TituloA"); $sql = "SELECT \n MED.Codigo AS CodigoAjax,\n MED.Nombre,\n IF(ISNULL(TAB1.Estado),'<div style=color:red>No definido</div>',IF(TAB1.Estado='Activo','<div style=color:green><i class=icon-ok-sign></i> Activado</div>','<div style=color:grey><i class=icon-minus-sign></i> Desactivado</div>')) AS Estado\n FROM menu_empresa_det AS MED\n LEFT JOIN (\n SELECT DISTINCT MEP.MenuDetalle, MEP.Menu, MEP.Estado\n FROM menu_empresa_perfil AS MEP\n WHERE MEP.Entidad = 'Sys'\n AND MEP.Perfil = {$codigo}\n AND MEP.Menu = {$CodMenu}\n ) AS TAB1 ON MED.Codigo = TAB1.MenuDetalle\n ORDER BY MED.Codigo ASC"; $Url_Raiz_Link; $enlaceCod; $Panel_Destino; $reporte = ListR2("", $sql, $cnOwl, "reporteA", "", $Url_Raiz_Link, $enlaceCod, $Panel_Destino, "menu_layout", "checks"); $s = PanelUnico($subMenu, $reporte, 'panelB-R2', '600px'); break; case "detalle_submenu_empresa": $codigo = (int) get("perfil_cod"); $CodMEP = (string) get("CodMEP"); $CodMenu = (int) get("CodMenu"); $Q_Descripcion_perfil = "SELECT UP.Descripcion AS PerfilDesc\n FROM usuario_perfil AS UP\n WHERE UP.Codigo = {$codigo}"; $PerfilDesc = (string) fetchOne($Q_Descripcion_perfil, $vConex)->PerfilDesc; $Q_DescMenu = "SELECT Nombre \n FROM menu_empresa \n WHERE Codigo = {$CodMenu}"; $DescMenu = (string) fetchOne($Q_DescMenu, $vConex)->Nombre; $btn = "<i class=' icon-chevron-left'></i> Atrás]{$enlace}?MenuPerfil=detallePerfilViewEmprPerfil&CodMEP={$CodMEP}&perfil_cod={$codigo}]panelB-R}"; $btn .= "<i class='icon-ok-circle'></i> Activar]{$enlace}?MenuPerfil=OnOffItemSubItemPerfil_empresa&status=on&perfil_cod={$codigo}&CodMEP={$CodMEP}&CodMenu={$CodMenu}]panelB-R]CHECK}"; $btn .= "<i class='icon-minus-sign'></i> Desactivar]{$enlace}?MenuPerfil=OnOffItemSubItemPerfil_empresa&status=off&perfil_cod={$codigo}&CodMEP={$CodMEP}&CodMenu={$CodMenu}]panelB-R]CHECK}"; $btn .= "<i class=' icon-refresh'></i> Actualizar / Definir]{$enlace}?MenuPerfil=PUpdateSubItem_empresa&perfil_cod={$codigo}&CodMEP={$CodMEP}&CodMenu={$CodMenu}]panelB-R]CHECK}"; $btn = Botones($btn, 'botones1', "menu_layout"); $subMenu = tituloBtnPn("<span>{$DescMenu} - Submenus </span><p>PERFIL {$PerfilDesc}</p><div class='bicel'></div>", $btn, "auto", "TituloA"); $sql = "SELECT \n MED.Codigo AS CodigoAjax,\n MED.Nombre,\n IF(ISNULL(TAB1.Estado),'<div style=color:red>No definido</div>',IF(TAB1.Estado='Activo','<div style=color:green><i class=icon-ok-sign></i> Activado</div>','<div style=color:grey><i class=icon-minus-sign></i> Desactivado</div>')) AS Estado\n FROM menu_empresa_det AS MED\n LEFT JOIN (\n SELECT DISTINCT MEP.MenuDetalle, MEP.Menu, MEP.Estado\n FROM menu_empresa_perfil AS MEP\n WHERE MEP.Entidad = '{$CodMEP}'\n AND MEP.Perfil = {$codigo}\n AND MEP.Menu = {$CodMenu}\n ) AS TAB1 ON MED.Codigo = TAB1.MenuDetalle\n ORDER BY MED.Codigo ASC"; $Url_Raiz_Link; $enlaceCod; $Panel_Destino; $reporte = ListR2("", $sql, $cnOwl, "reporteA", "", $Url_Raiz_Link, $enlaceCod, $Panel_Destino, "menu_layout", "checks"); $s = PanelUnico($subMenu, $reporte, 'panelB-R2', '600px'); break; case "OnOffItemItemPerfil": //Este proceso barre todo los submenus de un menu y los activa $perfil = (int) get("perfil_cod"); $status = get("status"); switch ($status) { case "on": $Estado = "Activo"; break; case "off": $Estado = "Inactivo"; break; default: MenuPerfil("detallePerfilView"); break; } //Definiendo si el array de codigo de menus existe para aplicar un filtro $MxcodMenu = post("ky"); if (!$MxcodMenu) { W("Debes seleccionar un Módulo de menu para poder cambiar el estado a {$Estado} a los items...<br>"); MenuPerfil("detallePerfilView"); } $FILTER = implode(",", $MxcodMenu); $Q_UPDSubmenu = "UPDATE menu_empresa_perfil\n SET Estado = '{$Estado}'\n WHERE Menu IN({$FILTER})\n AND Perfil = {$perfil} \n AND Entidad = 'Sys'"; xSQL2($Q_UPDSubmenu, $vConex); W("Se cambio el estado a {$Estado} a todos los items de el(los) menu(s)<br>"); MenuPerfil("detallePerfilView"); break; case "OnOffItemItemPerfil_empresa": //Este proceso barre todo los submenus de un menu y los activa $perfil = (int) get("perfil_cod"); $CodMEP = (string) get("CodMEP"); $status = get("status"); switch ($status) { case "on": $Estado = "Activo"; break; case "off": $Estado = "Inactivo"; break; default: MenuPerfil("detallePerfilViewEmprPerfil"); break; } //Definiendo si el array de codigo de menus existe para aplicar un filtro $MxcodMenu = post("ky"); if (!$MxcodMenu) { W("Debes seleccionar un Módulo de menu para poder cambiar el estado a {$Estado} a los items...<br>"); MenuPerfil("detallePerfilViewEmprPerfil"); } $FILTER = implode(",", $MxcodMenu); $Q_UPDSubmenu = "UPDATE menu_empresa_perfil\n SET Estado = '{$Estado}'\n WHERE Menu IN({$FILTER})\n AND Perfil = {$perfil} \n AND Entidad = '{$CodMEP}'"; xSQL2($Q_UPDSubmenu, $vConex); W("Se cambio el estado a {$Estado} a todos los items de el(los) menu(s)<br>"); MenuPerfil("detallePerfilViewEmprPerfil"); break; case "OnOffItemSubItemPerfil": //Este proceso barre todo los submenus de un menu y los activa $perfil = (int) get("perfil_cod"); $CodMenu = (int) get("CodMenu"); $status = get("status"); switch ($status) { case "on": $Estado = "Activo"; break; case "off": $Estado = "Inactivo"; break; default: MenuPerfil("detalle_submenu"); break; } //Definiendo si el array de codigo de menus existe para aplicar un filtro $MxcodSubMenu = post("ky"); if (!$MxcodSubMenu) { W("Debes seleccionar un sub-menu para poder cambiar el estado a {$Estado}...<br>"); MenuPerfil("detalle_submenu"); } $FILTER = implode(",", $MxcodSubMenu); $Q_UPDSubmenu = "UPDATE menu_empresa_perfil\n SET Estado = '{$Estado}'\n WHERE Menu = {$CodMenu}\n AND MenuDetalle IN({$FILTER})\n AND Perfil = {$perfil} \n AND Entidad = 'Sys'"; xSQL2($Q_UPDSubmenu, $vConex); W("Se cambio el estado a {$Estado} a el(los) submenu(s)<br>"); MenuPerfil("detalle_submenu"); break; case "OnOffItemSubItemPerfil_empresa": //Este proceso barre todo los submenus de un menu y los activa $perfil = (int) get("perfil_cod"); $CodMenu = (int) get("CodMenu"); $CodMEP = (string) get("CodMEP"); $status = get("status"); switch ($status) { case "on": $Estado = "Activo"; break; case "off": $Estado = "Inactivo"; break; default: MenuPerfil("detalle_submenu_empresa"); break; } //Definiendo si el array de codigo de menus existe para aplicar un filtro $MxcodSubMenu = post("ky"); if (!$MxcodSubMenu) { W("Debes seleccionar un sub-menu para poder cambiar el estado a {$Estado}...<br>"); MenuPerfil("detalle_submenu_empresa"); } $FILTER = implode(",", $MxcodSubMenu); $Q_UPDSubmenu = "UPDATE menu_empresa_perfil\n SET Estado = '{$Estado}'\n WHERE Menu = {$CodMenu}\n AND MenuDetalle IN({$FILTER})\n AND Perfil = {$perfil} \n AND Entidad = '{$CodMEP}'"; xSQL2($Q_UPDSubmenu, $vConex); W("Se cambio el estado a {$Estado} a el(los) submenu(s)<br>"); MenuPerfil("detalle_submenu_empresa"); break; case "PActualizaItemPerfil": //Este proceso barre todo los submenus de un menu //Luego valida si el submenu esta ligado al perfil en la tabla menu_empresa_perfil $perfil = (int) get("perfil_cod"); //Definiendo si el array de codigo de menus existe para aplicar un filtro $MxcodMenu = post("ky"); if (!$MxcodMenu) { W("Debes seleccionar un Módulo de menu para poder actualizar los items...<br>"); MenuPerfil("detallePerfilView"); } $FILTER = implode(",", $MxcodMenu); $Q_Submenu = "SELECT Codigo,Menu \n FROM menu_empresa_det\n WHERE Menu IN({$FILTER})"; $MxSubMenu = fetchAll($Q_Submenu, $vConex); if (!$MxSubMenu) { W("No se encontro items para actualizar"); } foreach ($MxSubMenu as $SubMenu) { $codSubmenu = (int) $SubMenu->Codigo; $codMenu = (int) $SubMenu->Menu; $Q_det_submenu = "SELECT Codigo\n FROM menu_empresa_perfil\n WHERE Menu = {$codMenu}\n AND MenuDetalle = {$codSubmenu} \n AND Perfil = {$perfil} \n AND Entidad = 'Sys'"; $cod_det_submenu = (int) fetchOne($Q_det_submenu, $vConex)->Codigo; if ($cod_det_submenu) { $s .= "El submenu {$codSubmenu} ya esta registrado<br>"; } else { //Si el submenu no existe en el detalle de submenu del perfil $data_INSERT = array("Menu" => $codMenu, "MenuDetalle" => $codSubmenu, "Estado" => "Activo", "Perfil" => $perfil, "Entidad" => "Sys"); insert("menu_empresa_perfil", $data_INSERT, $vConex); $s .= "Se inserto {$codSubmenu} para el perfil {$perfil} en la entidad Sys<br>"; } } W($s); MenuPerfil("detallePerfilView"); break; case "PActualizaItemPerfilEmpresa": //Este proceso barre todo los submenus de la entidad Sys con su respectivo perfil del detalle de la tabla menu_empresa_perfil $perfil = get("perfil_cod"); $CodMEP = get("CodMEP"); //Definiendo si el array de codigo de menus existe para aplicar un filtro $MxcodMenu = post("ky"); if (!$MxcodMenu) { W("Debes seleccionar un Módulo de menu para poder actualizar los items...<br>"); MenuPerfil("detallePerfilViewEmprPerfil"); } $FILTER = implode(",", $MxcodMenu); $Q_det_submenu = "SELECT Codigo, Menu, MenuDetalle, Estado\n FROM menu_empresa_perfil\n WHERE Perfil = {$perfil} \n AND Entidad = 'Sys'\n AND Menu IN({$FILTER})"; $MxDet_submenu = fetchAll($Q_det_submenu, $vConex); if (!$MxDet_submenu) { W("No se encontro items para actualizar"); } foreach ($MxDet_submenu as $Det_submenu) { $codSubmenu = (int) $Det_submenu->MenuDetalle; $codMenu = (int) $Det_submenu->Menu; $Estado = (string) $Det_submenu->Estado; $Q_det_submenu_aux = "SELECT Codigo\n FROM menu_empresa_perfil\n WHERE Menu = {$codMenu}\n AND MenuDetalle = {$codSubmenu} \n AND Perfil = {$perfil} \n AND Entidad = '{$CodMEP}'"; $cod_det_submenu = (int) fetchOne($Q_det_submenu_aux, $vConex)->Codigo; if ($cod_det_submenu) { Update("menu_empresa_perfil", ["Estado" => $Estado], ["Codigo" => $cod_det_submenu], $vConex); $s .= "Se actualizo el Estado del submenu {$codSubmenu} para este perfil<br>"; } else { //Si el submenu no existe en el detalle de submenu del perfil $data_INSERT = array("Menu" => $codMenu, "MenuDetalle" => $codSubmenu, "Estado" => "Activo", "Perfil" => $perfil, "Entidad" => $CodMEP); insert("menu_empresa_perfil", $data_INSERT, $vConex); $s .= "Se inserto {$codSubmenu} para el perfil {$perfil} de la entidad {$CodMEP}<br>"; } } W($s); MenuPerfil("detallePerfilViewEmprPerfil"); break; case "PUpdateSubItem": //Este proceso barre todo los submenus de la entidad Sys con su respectivo perfil del detalle de la tabla menu_empresa_perfil $perfil = get("perfil_cod"); $CodMenu = get("CodMenu"); //Definiendo si el array de codigo de menus existe para aplicar un filtro $MxcodSubMenu = post("ky"); if (!$MxcodSubMenu) { W("Debes seleccionar un Módulo de Submenu...<br>"); MenuPerfil("detalle_submenu"); } foreach ($MxcodSubMenu as $codSubmenu) { $Q_det_submenu_aux = "SELECT Codigo\n FROM menu_empresa_perfil\n WHERE Menu = {$CodMenu}\n AND MenuDetalle = {$codSubmenu} \n AND Perfil = {$perfil} \n AND Entidad = 'Sys'"; $cod_det_submenu = (int) fetchOne($Q_det_submenu_aux, $vConex)->Codigo; if ($cod_det_submenu) { $s .= "El submenu {$codSubmenu} ya esta registrado<br>"; } else { //Si el submenu no existe en el detalle de submenu del perfil $data_INSERT = array("Menu" => $CodMenu, "MenuDetalle" => $codSubmenu, "Estado" => "Activo", "Perfil" => $perfil, "Entidad" => "Sys"); insert("menu_empresa_perfil", $data_INSERT, $vConex); $s .= "Se inserto {$codSubmenu} para el perfil {$perfil} en la entidad Sys<br>"; } } W($s); MenuPerfil("detalle_submenu"); #MenuPerfil("PUpdateSubItem_empresa"); break; case "PUpdateSubItem_empresa": //Este proceso barre todo los submenus de la entidad Sys con su respectivo perfil del detalle de la tabla menu_empresa_perfil $perfil = get("perfil_cod"); $CodMEP = get("CodMEP"); $CodMenu = get("CodMenu"); //Definiendo si el array de codigo de menus existe para aplicar un filtro $MxcodSubMenu = post("ky"); if (!$MxcodSubMenu) { W("Debes seleccionar un Módulo de Submenu...<br>"); MenuPerfil("detalle_submenu_empresa"); } $FILTER = implode(",", $MxcodSubMenu); $Q_det_submenu = "SELECT Codigo, Menu, MenuDetalle, Estado\n FROM menu_empresa_perfil\n WHERE Perfil = {$perfil} \n AND Entidad = 'Sys'\n AND Menu = {$CodMenu}\n AND MenuDetalle IN({$FILTER})"; $MxDet_submenu = fetchAll($Q_det_submenu, $vConex); if (!$MxDet_submenu) { W("No se encontro submenus para actualizar"); } foreach ($MxDet_submenu as $Det_submenu) { $codSubmenu = (int) $Det_submenu->MenuDetalle; $codMenu = (int) $Det_submenu->Menu; $Estado = (string) $Det_submenu->Estado; $Q_det_submenu_aux = "SELECT Codigo\n FROM menu_empresa_perfil\n WHERE Menu = {$codMenu}\n AND MenuDetalle = {$codSubmenu} \n AND Perfil = {$perfil} \n AND Entidad = '{$CodMEP}'"; $cod_det_submenu = (int) fetchOne($Q_det_submenu_aux, $vConex)->Codigo; if ($cod_det_submenu) { Update("menu_empresa_perfil", ["Estado" => $Estado], ["Codigo" => $cod_det_submenu], $vConex); $s .= "Se actualizo el Estado del submenu {$codSubmenu} para este perfil<br>"; } else { //Si el submenu no existe en el detalle de submenu del perfil $data_INSERT = array("Menu" => $codMenu, "MenuDetalle" => $codSubmenu, "Estado" => "Activo", "Perfil" => $perfil, "Entidad" => $CodMEP); insert("menu_empresa_perfil", $data_INSERT, $vConex); $s .= "Se inserto {$codSubmenu} para el perfil {$perfil} de la entidad {$CodMEP}<br>"; } } W($s); MenuPerfil("detalle_submenu_empresa"); break; case "detallePerfil": $perfil = get("perfil_cod"); $sql = "SELECT Codigo, Menu FROM menu_empresa_det "; $consulta = mysql_query($sql, $vConex); while ($r = mysql_fetch_array($consulta)) { $sql = "SELECT Codigo\n FROM menu_empresa_perfil\n WHERE Menu ='" . $r["Menu"] . "' AND MenuDetalle = '" . $r["Codigo"] . "' AND Perfil ='" . $perfil . "' AND Entidad = 'Sys' "; $rg = fetch($sql); $codigo = $rg["Codigo"]; if ($codigo) { $s .= 'ya ingreso el Menu ' . $r["Codigo"] . ' <br>'; } else { $sql = 'INSERT INTO menu_empresa_perfil (Menu,MenuDetalle,Estado,Perfil,Entidad) VALUES ("' . $r["Menu"] . '","' . $r["Codigo"] . '","Activo","' . $perfil . '","Sys")'; xSQL($sql, $vConex); $s .= 'Se inserto el Menu ' . $r["Codigo"] . ' <br>'; } } break; case "EditarMenuPerfil": $Perfil_cod = get("perfil_cod"); $Codigo = get("Codigo"); $uRLForm = "Actualizar]" . $enlace . "?metodo=menu_empresa_perfil_edit&transaccion=UPDATE&Codigo=" . $Codigo . "&perfil_cod=" . $Perfil_cod . "]panelB-R]F]}"; $titulo = "Añadir Detalle"; $tSelectD = ''; $form = c_form($titulo, $vConex, "menu_empresa_perfil_edit", "CuadroA", $path, $uRLForm, $Codigo, $tSelectD); $s = "<div style='width:280px;padding:0px 0px 0px 30px;'>" . $form . "</div>"; break; case "EditarMenuPerfilEmpresa": ## PARAMETRO POR DEFECTO DE REPORTE (ListR3) $pagina_start = get('pagina-start'); $CodMEP = get("CodMEP"); $Perfil_cod = get("perfil_cod"); $Codigo = get("Codigo"); $uRLForm = "Actualizar]{$enlace}?metodo=menu_empresa_perfil_edit_empresa&transaccion=UPDATE&Codigo={$Codigo}&perfil_cod={$Perfil_cod}&CodMEP={$CodMEP}&pagina-start={$pagina_start}]panelB-R]F]}"; $titulo = "Añadir Detalle"; $tSelectD = ''; $form = c_form($titulo, $vConex, "menu_empresa_perfil_edit", "CuadroA", $path, $uRLForm, $Codigo, $tSelectD); $s = "<div style='width:280px;padding:0px 0px 0px 30px;'>" . $form . "</div>"; break; } WE($s); }
function asiento_stc($rv, $ta, $glosa) { global $ConexionEmpresa; $sql = 'INSERT INTO ct_asiento( CtaSuscripcion, UMiembro, FHCreacion, IpPublica, IpPrivada, Tipo_Asiento, Numero, Fecha, Glosa, Estado, DocSerie, DocNumero, TipoDoc, Moneda, Entidad) values ("' . $_SESSION['CtaSuscripcion'] . '","' . $_SESSION['UMiembro'] . '","' . date('y-m-d') . '", "' . getRealIP() . '", "' . getRealIP() . '", 1 ,"' . $ta . '", "' . $rv['Emision'] . '","' . $glosa . '",1,"' . $rv['DocSerie'] . '","' . $rv['DocNumero'] . '","' . $rv['DocTipo'] . '","' . $rv['Moneda'] . '", "' . $rv['Cliente'] . '")'; xSQL2($sql, $ConexionEmpresa); $codasi = mysql_insert_id($ConexionEmpresa); $sql1 = "INSERT INTO ct_asiento_det( CtaSuscripcion, UMiembro, FHCreacion, IpPublica, IpPrivada, Tipo_Asiento, Cuenta, Tipo_Documento, \n Moneda, Centro_Costos, Fecha, DocSerie, DocNumero, Glosa, Debe, Asiento ) VALUES ( '" . $_SESSION['CtaSuscripcion'] . "',\n '" . $_SESSION['UMiembro'] . "', '" . date('y-m-d') . "', '" . getRealIP() . "', '" . getRealIP() . "',1,53,'" . $rv['DocTipo'] . "',\n '" . $rv['Moneda'] . "', '1001','" . $rv['Emision'] . "','" . $rv['DocSerie'] . "','" . $rv['DocNumero'] . "', 'CUENTAS POR COBRAR COMERCIALES',\n '" . $rv['Total'] . "','" . $codasi . "')"; xSQL2($sql1, $ConexionEmpresa); $sql1 = "INSERT INTO ct_asiento_det( CtaSuscripcion, UMiembro, FHCreacion, IpPublica, IpPrivada, Tipo_Asiento, Cuenta, Tipo_Documento, \n Moneda, Centro_Costos, Fecha, DocSerie, DocNumero, Glosa, Haber, Asiento ) VALUES ( '" . $_SESSION['CtaSuscripcion'] . "',\n '" . $_SESSION['UMiembro'] . "', '" . date('y-m-d') . "', '" . getRealIP() . "', '" . getRealIP() . "',1,791,'" . $rv['DocTipo'] . "',\n '" . $rv['Moneda'] . "', '1001','" . $rv['Emision'] . "','" . $rv['DocSerie'] . "','" . $rv['DocNumero'] . "', 'TRIBUTOS CONTRAPRESTACIONES Y APORTES AL SISTEMA DE PENSIONES Y DE SALUD POR PAGAR ','" . $rv['Igv'] . "','" . $codasi . "')"; xSQL2($sql1, $ConexionEmpresa); $sql1 = "INSERT INTO ct_asiento_det( CtaSuscripcion, UMiembro, FHCreacion, IpPublica, IpPrivada, Tipo_Asiento, Cuenta, Tipo_Documento, \n Moneda, Centro_Costos, Fecha, DocSerie, DocNumero, Glosa, Haber, Asiento ) VALUES ( '" . $_SESSION['CtaSuscripcion'] . "',\n '" . $_SESSION['UMiembro'] . "', '" . date('y-m-d') . "', '" . getRealIP() . "', '" . getRealIP() . "',1,1437,'" . $rv['DocTipo'] . "',\n '" . $rv['Moneda'] . "', '1001','" . $rv['Emision'] . "','" . $rv['DocSerie'] . "','" . $rv['DocNumero'] . "', 'VENTAS',\n '" . $rv['BaseImp'] . "','" . $codasi . "')"; xSQL2($sql1, $ConexionEmpresa); }
function UpdateCampos($codigo) { global $ConexionEmpresa; $cSqlAsiento = "SELECT a.Codigo,a.Moneda,a.Total,a.Igv,a.SubTotal,a.Tipo_Cambio ,ad.Codigo AS coddet,ad.Cuenta,\n ta.Debe,ta.Haber,ad.Cargo_MO,ad.Abono_MO,ad.Asiento\n FROM ct_asiento a\n LEFT JOIN ct_asiento_det AS ad ON ad.Asiento = a.Codigo\n LEFT JOIN ct_plan_cuentas AS pa ON pa.Cuenta = ad.Cuenta\n LEFT JOIN ct_configuracion_tipo_asiento_det AS ta ON pa.codigo=ta.cuenta\n WHERE ad.Codigo =" . $codigo . ""; # W($cSqlAsiento); $res = mysql_query($cSqlAsiento, $ConexionEmpresa); while ($cell = mysql_fetch_array($res)) { $nMoneda = $cell['Moneda']; $TipoCambio = $cell['Tipo_Cambio']; $cCodDet = $cell['coddet']; $CargoMN = $cell["Cargo_MO"]; #Porcentaje($cell["SubTotal"],$cell['Debe'],($nMoneda==1?1:2),$TipoCambio); $AbonoMN = $cell["Abono_MO"]; #Porcentaje($cell["SubTotal"],$cell['Haber'],($nMoneda==1?1:2),$TipoCambio); if ($nMoneda == 1) { $CargoME = $cell["Cargo_MO"] / $TipoCambio; $AbonoME = $cell["Abono_MO"] / $TipoCambio; } else { $CargoME = $cell["Cargo_MO"] * 1; $AbonoME = $cell["Abono_MO"] * 1; } # $CargoME = Porcentaje($cell["SubTotal"],$cell['Debe'],($nMoneda<>2?2:1),$TipoCambio); # $AbonoME = Porcentaje($cell["SubTotal"],$cell['Haber'],($nMoneda<>2?2:1),$TipoCambio); $SqlUDet = " UPDATE ct_asiento_det\n SET Cargo_MN = " . $CargoMN . ", Abono_MN = " . $AbonoMN . ", Cargo_ME = " . $CargoME . ", Abono_ME = " . $AbonoME . "\n WHERE Codigo = " . $cCodDet . ""; # W($SqlUDet."<br>"); xSQL2($SqlUDet, $ConexionEmpresa); #$consulta = mysql_query($SqlUDet, $ConexionEmpresa); #$resultadoB = $consulta or die(mysql_error()); $EM = EstadoMayorizado($cell['Codigo']); $SqlEM = "UPDATE ct_asiento SET Mayorizado=" . $EM . " WHERE Codigo=" . $cell['Codigo'] . ""; xSQL2($SqlEM, $ConexionEmpresa); $cCod = $cell['Codigo']; } return $cCod; }
function emitirProforma($codPro) { global $ConexionEmpresa; $sql = "SELECT * FROM ct_proformas where Codigo='" . $codPro . "'"; $rgt = rGT($ConexionEmpresa, $sql); $array1 = array('CtaSuscripcion' => $_SESSION['CtaSuscripcion']['string'], 'UMiembro' => $_SESSION['UMiembro']['string'], 'FHCreacion' => date('y-m-d h:m:s'), 'IpPublica' => getRealIP(), 'IpPrivada' => getRealIP(), 'Cliente' => $rgt['Cliente'], 'Proformas' => $rgt['Codigo'], 'TipoPago' => $rgt['TipoPago'], 'Moneda' => $rgt['Moneda'], 'Fechaemision' => date('y-m-d h:m:s'), 'TotalPrecio' => $rgt['TotalPrecio'], 'Estado' => 'Pendiente'); $insert = insert('ct_pedidos', $array1, $ConexionEmpresa); $sql = "UPDATE ct_proformas SET estado='Emitido' where codigo='" . $codPro . "'"; xSQL2($sql, $ConexionEmpresa); $sql = "SELECT Articulo,Precio,Cantidad,Total,CodigoParlante FROM ct_proformasdet WHERE proforma='" . $codPro . "'"; $result = mysql_query($sql, $ConexionEmpresa); while ($row = mysql_fetch_array($result)) { $array2 = array('CtaSuscripcion' => $_SESSION['CtaSuscripcion']['string'], 'UMiembro' => $_SESSION['UMiembro']['string'], 'FHCreacion' => date('y-m-d h:m:s'), 'IpPublica' => getRealIP(), 'IpPrivada' => getRealIP(), 'Pedido' => $insert['lastInsertId'], 'Articulo' => $row['Articulo'], 'Precio' => $row['Precio'], 'Cantidad' => $row['Cantidad'], 'Total' => $row['Total'], 'CodigoParlante' => $row['CodigoParlante']); insert('pedidosdet', $array2, $ConexionEmpresa); } }