AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- globaldttipogasto

Browse Source
This commit is contained in:
rrene
2020-09-15 09:55:52 -07:00
parent a59492940e
commit 8f1f3f84d4
6 changed files with 174 additions and 149 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
App_Code/ClsPaginas.vb
View File

@@ -192,20 +192,34 @@ Public Class ClsPaginas
Application("GlobalDTNomConceptos") = value
End Set
End Property
Property GlobalDTTiposGastos(CveEmpresa As Integer) As DataTable
Property GlobalDTTiposGastos(CveEmpresa As Integer, Optional Estatus As Integer = 1) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTTiposGastos-{0}", CveEmpresa)
'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then
Dim ObjCompra As New ClsCompras()
If ObjCompra.GetTipoGasto(-1, -1) Then Application(AppNombre) = ObjCompra.DtResultados Else Application(AppNombre) = Nothing
ObjCompra.Dispose()
End If
If CveEmpresa <> -1 Then
Dim Dv As New DataView(DirectCast(Application("GlobalDTTiposGastos"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
Dim StrSQL As New StringBuilder
StrSQL.AppendFormat("CveEmpresa = {0}", CveEmpresa)
If Estatus >= 0 Then StrSQL.AppendFormat(" AND CveEstatus = {0} ", Estatus)
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), StrSQL.ToString, "", DataViewRowState.CurrentRows)
GlobalDTTiposGastos = Dv.ToTable
Dv.Dispose()
Else
GlobalDTTiposGastos = DirectCast(Application("GlobalDTTiposGastos"), DataTable)
GlobalDTTiposGastos = DirectCast(Application(AppNombre), DataTable)
End If
End Get
Set(value As DataTable)
Application("GlobalDTTiposGastos") = value
Dim AppNombre As String = String.Format("GlobalDTTiposGastos-{0}", CveEmpresa)
Application(AppNombre) = value
End Set
End Property
Property GlobalDTMFActividad(CveEmpresa As Integer, Optional Estatus As Integer = -1, Optional CveActividad As Integer = -1) As DataTable
Get

2
Ashx/SIGWeb.ashx
View File

@@ -620,7 +620,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
'verifica existencias
If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso CveEmpresa.Contiene(72, 80, 119, 140, 141, 152) Then
If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso CveEmpresa.Contiene(72, 80, 119, 140, 141, 152, 153) Then
UsaGlobal = False
Dim objInv As New ClsInventarios

31
Compras/CatTipoGasto.aspx.cs
View File

@@ -33,7 +33,7 @@ public partial class Compras_CatTipoGasto : ClsPaginas
private void CargaDatos()
{
ClsCompras ObjCompras = new ClsCompras();
if (ObjCompras.GetTipoGasto(-1,UsuarioActual.CveEmpresa))
if (ObjCompras.GetTipoGasto(-1, UsuarioActual.CveEmpresa))
{
GvDatos.DataSource = ObjCompras.DtResultados;
GvDatos.DataBind();
@@ -41,6 +41,17 @@ public partial class Compras_CatTipoGasto : ClsPaginas
ObjCompras.Dispose();
}
private void RecargarGlobal()
{
set_GlobalDTTiposGastos(UsuarioActual.CveEmpresa, -1, null);
//ClsCompras ObjCompras = new ClsCompras();
//if (ObjCompras.GetTipoGasto(-1, -1))
//{
// set_GlobalDTTiposGastos(UsuarioActual.CveEmpresa, ObjCompras.DtResultados);
//}
//ObjCompras.Dispose();
}
protected void BtnAgregarTipoGastoD_Click(object sender, EventArgs e)
{
BtnAgregarTipoGasto.Text = "Agregar";
@@ -74,6 +85,7 @@ public partial class Compras_CatTipoGasto : ClsPaginas
Alert("Se eliminó el Tipo de Gasto correctamente");
}
ObjCompras.Dispose();
RecargarGlobal();
}
protected void BtnAgregarTipoGasto_Click(object sender, EventArgs e)
@@ -81,23 +93,22 @@ public partial class Compras_CatTipoGasto : ClsPaginas
ClsCompras ObjCompras = new ClsCompras();
if (BtnAgregarTipoGasto.Text == "Agregar")
{
if (ObjCompras.AddTipoGasto(TxtTipoGasto.Text,ChkEstatus.Checked,DateTime.Now.ToString(),UsuarioActual.CveUsuario,UsuarioActual.CveEmpresa))
if (ObjCompras.AddTipoGasto(TxtTipoGasto.Text, ChkEstatus.Checked, DateTime.Now.ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
{
CargaDatos();
UpDatos.Update();
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"));
Alert("Se agregó el Tipo de Gasto correctamente");
}
}else
}
else
{
if (ObjCompras.UpdateTipoGasto(CveTipoGasto,TxtTipoGasto.Text,ChkEstatus.Checked,-1,-1))
if (ObjCompras.UpdateTipoGasto(CveTipoGasto, TxtTipoGasto.Text, ChkEstatus.Checked, -1, -1))
{
CargaDatos();
UpDatos.Update();
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"));
Alert("Se actualizó el Tipo de Gasto correctamente");
}
}
ObjCompras.Dispose();
CargaDatos();
RecargarGlobal();
UpDatos.Update();
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"));
}
}

8
Global.asax
View File

@@ -138,10 +138,10 @@
GuardaLogAsax(String.Format("Globalasax 7:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'C A R G A - T I P O G A S T O S
Using ObjCompra As New ClsCompras()
If ObjCompra.GetTipoGasto(-1, -1) Then Application("GlobalDTTiposGastos") = ObjCompra.DtResultados Else Application("GlobalDTTiposGastos") = Nothing
End Using
''C A R G A - T I P O G A S T O S
'Using ObjCompra As New ClsCompras()
' If ObjCompra.GetTipoGasto(-1, -1) Then Application("GlobalDTTiposGastos") = ObjCompra.DtResultados Else Application("GlobalDTTiposGastos") = Nothing
'End Using
GuardaLogAsax(String.Format("Globalasax 8:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

235
Ventas/Clientes.aspx
View File

@@ -1007,129 +1007,10 @@
</div>
<div class="portlet-body form-horizontal form-row-sepe">
<div class="form-body">
<div class="form-group">
<label class="control-label col-md-4">Clientes: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableClientes" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BtnActivaRegistroClientes" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Extranjera Clientes: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlMonedaExtranjeraClientes" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="Button2" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Complementaria Clientes: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableCompClientes" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BtnActivaRegCompClientes" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Anticipos: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableAnticipos" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BtnActivaRegistroAnticipos" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Anticipos" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Extranjera Anticipos: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlMonedaExtranjeraAnticipos" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="Button4" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Complementaria Anticipos: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableCompAnticipos" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BtnActivaRegCompAnticipos" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Anticipos" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Ret. IVA: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableRetIVA" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BtnActivaRegistroIVA" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="RetIVA" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Ret. ISR: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableRetISR" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BtnActivaRegistroISR" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="RetISR" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Fondo de Garantía: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableFondoGarantia" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="Button1" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="RetIVA" Visible="False" />
</div>
</div>
</div>
</div>
</div>
<div class="portlet light xspadding bordered">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Cuentas y conceptos</span>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
</div>
<div class="portlet-body form-horizontal form-row-sepe">
<div class="form-body">
<asp:UpdatePanel runat="server" ID="UpCuentaConceptos" UpdateMode="Conditional">
<div id="divCuentas" runat="server" visible="false">
<asp:UpdatePanel runat="server" ID="UpCuentaConceptos" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvCuentasContable" runat="server" DataKeyNames="ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas en el Cliente" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style="text-align: center; min-width: 783px; width: 100%;" GridLines="None">
<asp:GridView ID="GvCta" runat="server" DataKeyNames="ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style="text-align: center; width: 100%;" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Concepto Contable" DataField="ConceptoContable" />
<asp:BoundField HeaderText="Nombre Cuenta" DataField="NombreCuenta" />
@@ -1137,9 +1018,119 @@
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div id="divCuentasContp" runat="server" visible="false">
<div class="form-group">
<label class="control-label col-md-4">Clientes: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableClientes" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BtnActivaRegistroClientes" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Extranjera Clientes: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlMonedaExtranjeraClientes" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="Button2" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Complementaria Clientes: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableCompClientes" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BtnActivaRegCompClientes" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Anticipos: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableAnticipos" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BtnActivaRegistroAnticipos" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Anticipos" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Extranjera Anticipos: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlMonedaExtranjeraAnticipos" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="Button4" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Complementaria Anticipos: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableCompAnticipos" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BtnActivaRegCompAnticipos" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Anticipos" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Ret. IVA: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableRetIVA" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BtnActivaRegistroIVA" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="RetIVA" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Ret. ISR: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableRetISR" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BtnActivaRegistroISR" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="RetISR" Visible="False" />
</div>
</div>
<div class="form-group">
<label class="control-label col-md-4">Fondo de Garantía: </label>
<div class="col-md-8">
<asp:DropDownList ID="DdlCtaContableFondoGarantia" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="Button1" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="RetIVA" Visible="False" />
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>

23
Ventas/Clientes.aspx.vb
View File

@@ -791,7 +791,7 @@ Partial Class Clientes
If Request("ATI") IsNot Nothing AndAlso IsNumeric(Request("ATI")) Then
Tab.ActiveTabIndex = Request("ATI").ToEntero
End If
CargaCuentasyConceptos()
'CargaCuentasyConceptos()
Else
'Configuración de Modalidad Insert
@@ -1079,13 +1079,13 @@ Partial Class Clientes
DdlMonedaExtranjeraAnticipos.Attributes.Add("onclick", "CargaCuentas(9);")
End Sub
Private Sub CargaCuentasyConceptos()
Private Sub CargaCuentasConceptos()
Dim ObjConta As New ClsContabilidad
If ObjConta.GetCuentasyConceptos(CveCliente) Then
GvCuentasContable.DataSource = ObjConta.DtResultados
If ObjConta.GetCuentasConceptos(6, UsuarioActual.CveEmpresa, CveCliente:=CveCliente) Then
GvCta.DataSource = ObjConta.DtResultados
End If
ObjConta.Dispose()
GvCuentasContable.DataBind()
GvCta.DataBind()
UpCuentaConceptos.Update()
End Sub
Protected Sub BtnCargarCuentas_Click(sender As Object, e As EventArgs) Handles BtnCargarCuentas.Click
@@ -1681,8 +1681,17 @@ Partial Class Clientes
End If
CargaEventoBitacora()
'Ocultamos la mayoria de informacion si es no-frecuente
If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
CargaCuentasConceptos()
divCuentas.Visible = True
divCuentasContp.Visible = False
Else
divCuentas.Visible = False
divCuentasContp.Visible = True
End If
'Ocultamos la mayoria de informacion si es no-frecuente
If ObjClientes.TipoCliente = 2 Then
TabFiscalContable.Visible = False
TabCxC.Visible = False