diff --git a/CGame/CatHuerta.aspx.cs b/CGame/CatHuerta.aspx.cs
index b7ac258f2..4041dd853 100644
--- a/CGame/CatHuerta.aspx.cs
+++ b/CGame/CatHuerta.aspx.cs
@@ -2,8 +2,14 @@
{
GVHuerta.DataSource = ObjHuer.DtResultados;
GVHuerta.DataBind();
- }
ObjHuer.Dispose();
upDatosHuer.Update();
}
protected void CargaProveedor()
{
- ClsCompProveedores ObjProv = new ClsCompProveedores();
if (ObjProv.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa))
+ }
ObjHuer.Dispose();
upDatosHuer.Update();
}
protected void CargaProveedor()
{
+ using (ClsCGame ogame =new ClsCGame())
+ {
+ ogame.GetOrigen(UsuarioActual.CveEmpresa, -1);
+ ddlOrigen.DataSource = ogame.DtResultados;
+ ddlOrigen.DataBind();
+ }
+ ClsCompProveedores ObjProv = new ClsCompProveedores();
if (ObjProv.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa))
{
DdlProveedor.DataSource = ObjProv.DtResultados;
DdlProveedor.Items.Insert(0, new ListItem("Seleccione", "-1"));
@@ -16,7 +22,8 @@
if (DdlProveedor.Items.Count > 2)
{
DdlProveedor.SelectedIndex = 2;
- }
DdlTipoCobro.SelectedIndex = 0;
UPModalHuer.Update();
}
protected void LnkEditarHuer_Click(object sender, EventArgs e)
{
LimpiaHuerta();
GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
CveHuerta = gvRow.DataKey("CveHuerta").ToEntero();
TxtHuerhuerta.Text = gvRow.DataKey("Huerta");
TxtImporte.Text = gvRow.DataKey("Importe");
TxtCostoXTonelada.Text = gvRow.DataKey("CostoXTonelada");
DdlProveedor.SelectedValueExist(gvRow.DataKey("CveProveedor").ToEntero());
DdlTipoCobro.SelectedValueExist(gvRow.DataKey("TipoCobro").ToEntero());
ChkHuerestatus.Checked= Convert.ToBoolean(gvRow.DataKey("Estatus"));
RegistraScript("$('#DModalHuerta').modal();");
BtnHuerADD.Visible=false;
BtnHuerEdit.Visible=true;
DivEstatus.Visible = true;
UPModalHuer.Update();
}
protected void LnkAgregarHuer_Click(object sender, EventArgs e)
{
RegistraScript("$('#DModalHuerta').modal();");
LimpiaHuerta();
BtnHuerADD.Visible=true;
BtnHuerEdit.Visible=false;
DivEstatus.Visible = false;
UPModalHuer.Update();
}
protected void BtnHuerADD_Click(object sender, EventArgs e)
{
if (DdlProveedor.SelectedValue=="-1")
+ }
DdlTipoCobro.SelectedIndex = 0;
UPModalHuer.Update();
}
protected void LnkEditarHuer_Click(object sender, EventArgs e)
{
LimpiaHuerta();
GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
CveHuerta = gvRow.DataKey("CveHuerta").ToEntero();
TxtHuerhuerta.Text = gvRow.DataKey("Huerta");
TxtImporte.Text = gvRow.DataKey("Importe");
TxtCostoXTonelada.Text = gvRow.DataKey("CostoXTonelada");
TxtNombreRegistro.Text = gvRow.DataKey("NombreRegistro");
+ TxtNumeroRegistro.Text = gvRow.DataKey("NumeroRegistro");
DdlProveedor.SelectedValueExist(gvRow.DataKey("CveProveedor").ToEntero());
DdlTipoCobro.SelectedValueExist(gvRow.DataKey("TipoCobro").ToEntero());
ChkHuerestatus.Checked= Convert.ToBoolean(gvRow.DataKey("Estatus"));
RegistraScript("$('#DModalHuerta').modal();");
BtnHuerADD.Visible=false;
BtnHuerEdit.Visible=true;
DivEstatus.Visible = true;
UPModalHuer.Update();
}
protected void LnkAgregarHuer_Click(object sender, EventArgs e)
{
RegistraScript("$('#DModalHuerta').modal();");
LimpiaHuerta();
BtnHuerADD.Visible=true;
BtnHuerEdit.Visible=false;
DivEstatus.Visible = false;
UPModalHuer.Update();
}
protected void BtnHuerADD_Click(object sender, EventArgs e)
{
if (DdlProveedor.SelectedValue=="-1")
{
Alert("Tiene que seleccionar un proveedor.");
return;
diff --git a/Nomina/Aguinaldo.aspx.cs b/Nomina/Aguinaldo.aspx.cs
index b839c9955..0f5eb9f22 100644
--- a/Nomina/Aguinaldo.aspx.cs
+++ b/Nomina/Aguinaldo.aspx.cs
@@ -435,7 +435,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas
//str.AppendFormat("SELECT dbo.Fnc_NomValues(40, 0, {2}, -1, {0}, {1}, {1}) isrFraccionII_2,", FraccionII_1, diasmes, DdlEjercicios.SelectedValue);
//str.AppendFormat(" dbo.Fnc_NomValues(40, 0, {2}, -1, {0}, {1}, {1}) isrFraccionIII_1", salariomensual, diasmes, DdlEjercicios.SelectedValue);
//if (objbase.runQuerystr(str.ToString()))
- if(objbase.CalculosISRAguinaldo(FraccionII_1, salariomensual, diasmes, DdlEjercicios.SelectedValue))
+ if(objbase.CalculosISRAguinaldo(FraccionII_1, salariomensual, diasmes, DdlEjercicios.SelectedValue.ToEntero()))
{
DataRow drow = objbase.DtResultados.Rows[0];
FraccionII_2 = drow["isrFraccionII_2"].ToString().ToDecimal();
diff --git a/Site.master.vb b/Site.master.vb
index c515eab4e..3e9c9cf7e 100644
--- a/Site.master.vb
+++ b/Site.master.vb
@@ -4,6 +4,9 @@ Option Strict On
Imports System.Data
Imports System.IO
Imports System.Security.Cryptography.X509Certificates
+Imports ADSNetLibrary.SIGAPI.Services.SAT.DescargaCFDI
+Imports DocumentFormat.OpenXml.Math
+Imports DocumentFormat.OpenXml.Packaging
Imports Extensiones
'Imports Microsoft.AspNet.SignalR.Client
'Imports ChatHub
@@ -23,7 +26,7 @@ Partial Class Site
Public Overrides Property PopupWidth() As Integer
Get
- Return HdnPopUpWidth.Value.ToEntero
+ Return HdnPopUpWidth.Value.ToEntero()
End Get
Set(value As Integer)
HdnPopUpWidth.Value = value.ToString()
@@ -39,7 +42,7 @@ Partial Class Site
End Property
Public Property countNotificaciones As Integer
Get
- countNotificaciones = If(IsNothing(ViewState("countNotificaciones")), 0, ViewState("countNotificaciones").ToString().ToEntero)
+ countNotificaciones = If(IsNothing(ViewState("countNotificaciones")), 0, ViewState("countNotificaciones").ToString().ToEntero())
End Get
Set(value As Integer)
ViewState("countNotificaciones") = value
@@ -206,7 +209,7 @@ Partial Class Site
'End Sub
'Private stringusers As String = "0"
'Private Sub RptChatEmpresa_ItemDataBound(sender As Object, e As RepeaterItemEventArgs) Handles RptChatEmpresa.ItemDataBound
- ' Dim CveEmpresa As Integer = e.Item.DataItem("CveEmpresa").ToString().ToEntero
+ ' Dim CveEmpresa As Integer = e.Item.DataItem("CveEmpresa").ToString().ToEntero()
' Dim GlobalDTUsuarios As DataTable = DirectCast(Application("GlobalDTUsuarios"), DataTable).FiltraParametros(String.Format("CveUsuario in ({0}) AND CveEmpresa ={1}", stringusers, CveEmpresa))
' Dim rpthijo As Repeater = DirectCast(e.Item.FindControl("RPTChatuser"), Repeater)
@@ -302,6 +305,68 @@ Partial Class Site
' dt.ReadXml(String.Format("{0}\Menu\ERP\{1}_Conf.xml", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveUsuario))
'End Sub
+ Public Class MenuModal
+ Public Sub New()
+ HeaderBar = New StringBuilder("
Inicio")
+ MenuHTML = New StringBuilder()
+ End Sub
+
+ Property CveModuloSeleccionado As Integer
+ Property CveModuloSeleccionadoPadre As Integer
+ Property dt As DataTable
+
+ Property HeaderBar As StringBuilder
+ Property MenuHTML As StringBuilder
+ Property ScriptColorGrupoModulo As String
+
+
+ End Class
+ Private Function ArmarMenu(CveModulo As Integer, ByRef menuobj As MenuModal) As MenuModal
+ Dim listaModulos As EnumerableRowCollection(Of DataRow) = From i In menuobj.dt.AsEnumerable Where i!CvePadre.Equals(CveModulo) Order By i!Orden
+ Dim cveModuloActual As Integer
+ Dim liga As String
+ Dim modulo As String
+ Dim estilo As String
+ For Each drP As DataRow In listaModulos
+ cveModuloActual = drP("CveModulo").ToString().ToEntero()
+ liga = If(drP("PopUp").ToString() = "S", String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drP("LIGA"), drP("ANCHO"), drP("ALTO")), drP("LIGA").ToString())
+ modulo = drP("Modulo").ToString()
+ estilo = If(drP("Estilo").ToString() <> "", String.Format("
", drP("Estilo")), "")
+
+ If menuobj.CveModuloSeleccionado = cveModuloActual Then
+ menuobj.HeaderBar.AppendFormat("
{1}", liga, modulo)
+ menuobj.CveModuloSeleccionadoPadre = CveModulo
+ menuobj.ScriptColorGrupoModulo = ColorPage(drP("CveGrupoModulo").ToString().ToEntero())
+ End If
+
+ menuobj.MenuHTML.AppendFormat("
{2}{3}", cveModuloActual, liga, estilo, modulo)
+ drP.Delete()
+ menuobj.dt.AcceptChanges()
+ If menuobj.dt.COUNT("CveModulo", String.Format("CvePadre ={0}", cveModuloActual)) > 0 Then
+ menuobj.MenuHTML.AppendFormat("")
+ Else
+ menuobj.MenuHTML.AppendFormat("")
+ End If
+ menuobj.MenuHTML.AppendFormat("")
+ Next
+ Return menuobj
+
+ End Function
Private Sub CreaMenu()
Dim dt As New DataTable
@@ -312,104 +377,136 @@ Partial Class Site
dt.ReadXml(String.Format("{0}\Menu\ERP\{1}.xml", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveUsuario))
End If
- Dim Inicio = From i In dt.AsEnumerable Where i!CvePadre.Equals(0) Order By i!Orden
+ 'Dim Inicio = From i In dt.AsEnumerable Where i!CvePadre.Equals(0) Order By i!Orden
Dim CveModuloPadre, CveModuloPadreSeleccionado, CveModuloHijoSeleccionado, CveModuloNietoSeleccionado As Integer
- Dim CveModulo As Integer = CveModulomasterpage.Text.ToEntero
- Dim ScriptColorGrupoModulo As String = ""
- Dim LinkBase = "javascript:;"
- Dim HeaderBar As New StringBuilder("
Inicio")
- Dim LinkPadre = ""
- Dim Linkpapa As String = ""
- Dim LinkHijo = ""
- Dim Linkson As String = ""
- Dim LinkNieto = ""
- Dim ClassActive As String
- CveModuloPadreSeleccionado = 0 : CveModuloHijoSeleccionado = 0 : CveModuloNietoSeleccionado = 0
+ 'Dim CveModulo As Integer = CveModulomasterpage.Text.ToEntero()
+ 'Dim ScriptColorGrupoModulo As String = ""
+ 'Dim LinkBase = "javascript:;"
+ 'Dim HeaderBar As New StringBuilder("Inicio")
+ 'Dim LinkPadre = ""
+ 'Dim Linkpapa As String = ""
+ 'Dim LinkHijo = ""
+ 'Dim Linkson As String = ""
+ 'Dim LinkNieto = ""
+ 'Dim ClassActive As String
+ 'CveModuloPadreSeleccionado = 0 : CveModuloHijoSeleccionado = 0 : CveModuloNietoSeleccionado = 0
+ Dim menuobj = New MenuModal()
+ menuobj.dt = dt
+ menuobj.CveModuloSeleccionado = CveModulomasterpage.Text.ToEntero()
+ Dim newmenuobj As MenuModal = ArmarMenu(0, menuobj)
+
Dim strdomain = Request.Url.AbsoluteUri.Replace(Request.Url.PathAndQuery, "").Replace("https://", "http://")
If Request.Url.Port <> 80 Then
strdomain = strdomain.Replace(String.Format(":{0}", Request.Url.Port), "")
End If
- Dim MenuHTML As New StringBuilder
- For Each drP As DataRow In Inicio
- CveModuloPadre = drP("CveModulo").ToString().ToEntero
- LinkPadre = drP("LIGA").ToString()
- If drP("PopUp").ToString() = "S" Then LinkPadre = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drP("LIGA"), drP("ANCHO"), drP("ALTO"))
+ 'Dim MenuHTML As New StringBuilder
+ 'For Each drP As DataRow In Inicio
+ ' CveModuloPadre = drP("CveModulo").ToString().ToEntero()
+ ' LinkPadre = drP("LIGA").ToString()
+ ' If drP("PopUp").ToString() = "S" Then LinkPadre = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drP("LIGA"), drP("ANCHO"), drP("ALTO"))
- Dim Hijos = From h In dt.AsEnumerable Where h!CvePadre.Equals(CveModuloPadre) Order By h!Orden
- If CveModulo = drP("CveModulo").ToString().ToEntero Then
- HeaderBar.AppendFormat(" {1}", LinkPadre, drP("Modulo").ToString())
- ScriptColorGrupoModulo = ColorPage(drP("CveGrupoModulo").ToString().ToEntero)
- End If
- If Hijos.Count > 0 Then
- Linkpapa = LinkPadre
- LinkPadre = LinkBase
- MenuHTML.AppendFormat("{2}{1} {1}", LinkPadre, drP("Modulo").ToString())
+ ' ScriptColorGrupoModulo = ColorPage(drP("CveGrupoModulo").ToString().ToEntero())
+ ' End If
+ ' If Hijos.Count > 0 Then
+ ' Linkpapa = LinkPadre
+ ' LinkPadre = LinkBase
+ ' MenuHTML.AppendFormat("{2}{1}{1} {3}", Linkpapa, drP("Modulo").ToString(), LinkHijo, drH("Modulo").ToString())
- ScriptColorGrupoModulo = ColorPage(drH("CveGrupoModulo").ToString().ToEntero)
- Else
+ ' If CveModulo = drH("CveModulo").ToString().ToEntero() Then
+ ' CveModuloPadreSeleccionado = CveModuloPadre
+ ' ClassActive = "class='active'"
+ ' HeaderBar.AppendFormat(" {1} {3}", Linkpapa, drP("Modulo").ToString(), LinkHijo, drH("Modulo").ToString())
+ ' ScriptColorGrupoModulo = ColorPage(drH("CveGrupoModulo").ToString().ToEntero())
+ ' Else
- ClassActive = ""
- End If
- If drH("PopUp").ToString() = "S" Then LinkHijo = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drH("LIGA"), drH("ANCHO"), drH("ALTO"))
+ ' ClassActive = ""
+ ' End If
+ ' If drH("PopUp").ToString() = "S" Then LinkHijo = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drH("LIGA"), drH("ANCHO"), drH("ALTO"))
- Dim Nietos = From h In dt.AsEnumerable Where h!CvePadre.Equals(CveModuloHijo) Order By h!Orden
- If Nietos.Count > 0 Then
- Linkson = LinkHijo
- LinkHijo = LinkBase
- MenuHTML.AppendFormat("{2}{1} {1} {3} {5}", Linkpapa, drP("Modulo").ToString(), Linkson, drH("Modulo").ToString(), LinkNieto, drN("Modulo"))
- ScriptColorGrupoModulo = ColorPage(drN("CveGrupoModulo").ToString().ToEntero)
- Else
- ClassActive = ""
- End If
- If drN("PopUp").ToString() = "S" Then LinkNieto = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drN("LIGA"), drN("ANCHO"), drN("ALTO"))
- MenuHTML.AppendFormat("{2}{1}", LinkNieto, drN("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("
", drN("Estilo")), ""), ClassActive)
- Next
- MenuHTML.AppendFormat("")
- Else
- MenuHTML.AppendFormat("
{2}{1}", LinkHijo, drH("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("
", drH("Estilo")), ""), ClassActive)
- End If
- Next
- MenuHTML.AppendFormat("")
- Else
- MenuHTML.AppendFormat("
{2}{1}", LinkPadre, drP("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("
", drP("Estilo")), ""))
- End If
- Next
+ ' Dim Nietos = From h In dt.AsEnumerable Where h!CvePadre.Equals(CveModuloHijo) Order By h!Orden
+ ' If Nietos.Count > 0 Then
+ ' Linkson = LinkHijo
+ ' LinkHijo = LinkBase
+ ' MenuHTML.AppendFormat("
{2}{1} {1} {3} {5}", Linkpapa, drP("Modulo").ToString(), Linkson, drH("Modulo").ToString(), LinkNieto, drN("Modulo"))
+ ' ScriptColorGrupoModulo = ColorPage(drN("CveGrupoModulo").ToString().ToEntero())
+ ' Else
+ ' ClassActive = ""
+ ' End If
+ ' If drN("PopUp").ToString() = "S" Then LinkNieto = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drN("LIGA"), drN("ANCHO"), drN("ALTO"))
- If CveModuloPadreSeleccionado > 0 Then
- MenuHTML = MenuHTML.Replace(String.Format("id='m{0}'", CveModuloPadreSeleccionado), String.Format("id='m{0}' class='active open'", CveModuloPadreSeleccionado))
- MenuHTML = MenuHTML.Replace(String.Format("id='j{0}'", CveModuloPadreSeleccionado), String.Format("id='j{0}' class='selected'", CveModuloPadreSeleccionado))
- Else
- End If
- If CveModuloHijoSeleccionado > 0 Then
- MenuHTML = MenuHTML.Replace(String.Format("id='m{0}'", CveModuloHijoSeleccionado), String.Format("id='m{0}' class='open'", CveModuloHijoSeleccionado))
- MenuHTML = MenuHTML.Replace(String.Format("id='j{0}'", CveModuloHijoSeleccionado), String.Format("id='j{0}' class='selected'", CveModuloHijoSeleccionado))
- End If
- HeaderBar.AppendFormat("{0}", ScriptColorGrupoModulo)
- BarraNavegacion.Text = HeaderBar.ToString()
+ ' Dim bizNietos = From h In dt.AsEnumerable Where h!CvePadre.Equals(drN("CveModulo").ToString().ToEntero()) Order By h!Orden
+ ' Dim LinkBizNieto As String
+ ' If bizNietos.Count = 0 Then
+ ' MenuHTML.AppendFormat("
{2}{1}", LinkNieto, drN("Modulo"), If(drN("Estilo").ToString() <> "", String.Format("
", drN("Estilo")), ""), ClassActive, drN("CveModulo").ToString().ToEntero())
+ ' Else
+ ' MenuHTML.AppendFormat("
{2}{1} {1} {3} {5} {7}", Linkpapa, drP("Modulo").ToString(), Linkson, drH("Modulo").ToString(), LinkNieto, drN("Modulo"), LinkBizNieto, drBN("Modulo"))
+ ' ScriptColorGrupoModulo = ColorPage(drBN("CveGrupoModulo").ToString().ToEntero())
+ ' Else
+ ' ClassActive = ""
+ ' End If
+ ' If drBN("PopUp").ToString() = "S" Then LinkBizNieto = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drBN("LIGA"), drBN("ANCHO"), drBN("ALTO"))
+ ' MenuHTML.AppendFormat("{2}{1}", LinkBizNieto, drBN("Modulo"), If(drBN("Estilo").ToString() <> "", String.Format("
", drBN("Estilo")), ""), ClassActive, drBN("CveModulo").ToString().ToEntero())
+
+ ' Next
+
+ ' MenuHTML.AppendFormat("")
+ ' End If
+ ' Next
+ ' MenuHTML.AppendFormat("")
+ ' Else
+ ' MenuHTML.AppendFormat("
{2}{1}", LinkHijo, drH("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("
", drH("Estilo")), ""), ClassActive)
+ ' End If
+ ' Next
+ ' MenuHTML.AppendFormat("")
+ ' Else
+ ' MenuHTML.AppendFormat("
{2}{1}", LinkPadre, drP("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("
", drP("Estilo")), ""))
+ ' End If
+ 'Next
+
+ 'If CveModuloPadreSeleccionado > 0 Then
+ ' menuobj.MenuHTML = menuobj.MenuHTML.Replace(String.Format("id='m{0}'", CveModuloPadreSeleccionado), String.Format("id='m{0}' class='active open'", CveModuloPadreSeleccionado))
+ ' menuobj.MenuHTML = menuobj.MenuHTML.Replace(String.Format("id='j{0}'", CveModuloPadreSeleccionado), String.Format("id='j{0}' class='selected'", CveModuloPadreSeleccionado))
+ 'Else
+ 'End If
+ 'If CveModuloHijoSeleccionado > 0 Then
+ ' menuobj.MenuHTML = menuobj.MenuHTML.Replace(String.Format("id='m{0}'", CveModuloHijoSeleccionado), String.Format("id='m{0}' class='open'", CveModuloHijoSeleccionado))
+ ' menuobj.MenuHTML = menuobj.MenuHTML.Replace(String.Format("id='j{0}'", CveModuloHijoSeleccionado), String.Format("id='j{0}' class='selected'", CveModuloHijoSeleccionado))
+ 'End If
+ 'HeaderBar.AppendFormat("")
+ menuobj.HeaderBar.AppendFormat("{0}", menuobj.ScriptColorGrupoModulo)
+ BarraNavegacion.Text = menuobj.HeaderBar.ToString()
'CargaMenu(MenuHTML)
- Menu.Text = MenuHTML.ToString()
- MenuHTML.Clear()
- HeaderBar.Clear()
+ Menu.Text = menuobj.MenuHTML.ToString()
+ menuobj.MenuHTML.Clear()
+ menuobj.HeaderBar.Clear()
End Sub