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

se aplicó retroalimentación sobre el nuevo grid en entradas de almacén

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-10-23 15:55:41 -07:00
parent f17e30f23c
commit 439ddb5213
5 changed files with 38 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
App_Code/ClsVentas.vb
View File

@@ -107,40 +107,40 @@ Public Class ClsVentas
Data = New DataTable Data = New DataTable
End Sub End Sub
#Region "Conexiones" #Region "Conexiones"
Private Sub ConexionAdd() Private Sub ConexionAdd()
If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
Try Try
DataAdapter("PA_Sis_RegistrarConexion") DataAdapter("PA_Sis_RegistrarConexion")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
.Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString) .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
.Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
End With End With
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
End If End If
End Sub End Sub
Private Sub ConexionClose() Private Sub ConexionClose()
If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
CveConexion = 0 CveConexion = 0
End If End If
End Sub End Sub
#End Region #End Region

2
Inventarios/EntregaAlmacen.aspx
View File

@@ -398,7 +398,7 @@
<div class="portlet-title"> <div class="portlet-title">
<div class="caption font-green"> <div class="caption font-green">
<i class="icon-pin font-green"></i> <i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Clientes Personal Entrega</span> <span class="caption-subject bold uppercase">Entregas solo a:</span>
</div> </div>
</div> </div>
<div class="portlet-body form"> <div class="portlet-body form">

6
RH/Personal.aspx.vb
View File

@@ -1002,9 +1002,9 @@ Partial Class RH_Personal
Private Sub CargaTiposContrato() Private Sub CargaTiposContrato()
Dim dt As DataTable = GlobalDTTiposContrato Dim dt As DataTable = GlobalDTTiposContrato
dt.Columns.Add("txtoddl", GetType(String), "CodigoTipoContrato + ' ' + TipoContrato") 'dt.Columns.Add("txtoddl", GetType(String), "CodigoTipoContrato + ' ' + TipoContrato")
DdlTipoContrato.DataSource = dt 'DdlTipoContrato.DataSource = dt
DdlTipoContrato.DataBind() 'DdlTipoContrato.DataBind()
End Sub End Sub
Private Sub CargaTurno() Private Sub CargaTurno()

6
Ventas/Clientes.aspx
View File

@@ -844,7 +844,7 @@
<div class="portlet-title"> <div class="portlet-title">
<div class="caption font-green"> <div class="caption font-green">
<i class="icon-pin font-green"></i> <i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Clientes Personal Entrega</span> <span class="caption-subject bold uppercase">Entregas solo a:</span>
</div> </div>
<div class="actions"> <div class="actions">
<div class="btn-group"> <div class="btn-group">
@@ -6234,10 +6234,10 @@
<asp:TextBox runat="server" ID="TxtPersonalEntrega" CssClass="form-control" MaxLength="70" CausesValidation="true" /> <asp:TextBox runat="server" ID="TxtPersonalEntrega" CssClass="form-control" MaxLength="70" CausesValidation="true" />
<label for="TxtPersonalEntrega">Personal Entrega:</label> <label for="TxtPersonalEntrega">Personal Entrega:</label>
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <%--<div class="form-group form-md-line-input input-iconright">
<label for="DdlUsuarioEntrega">Usuario:</label> <label for="DdlUsuarioEntrega">Usuario:</label>
<asp:DropDownList runat="server" ID="DdlUsuarioEntrega" DataTextField="Usuario" DataValueField="CveUsuario" CssClass="select2me" Width="100%"/> <asp:DropDownList runat="server" ID="DdlUsuarioEntrega" DataTextField="Usuario" DataValueField="CveUsuario" CssClass="select2me" Width="100%"/>
</div> </div>--%>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<label for="ChkPersonalEntrega">Estatus:</label> <label for="ChkPersonalEntrega">Estatus:</label>
<asp:CheckBox runat="server" ID="ChkPersonalEntrega" CssClass="make-switchsd" data-size="small" Text=" " /> <asp:CheckBox runat="server" ID="ChkPersonalEntrega" CssClass="make-switchsd" data-size="small" Text=" " />

16
Ventas/Clientes.aspx.vb
View File

@@ -1754,7 +1754,6 @@ Partial Class Clientes
TxtCorreoEntregaAlmacen.Text = ObjClientes.DtResultados(0)("CorreoEntregaAlmacen").ToString TxtCorreoEntregaAlmacen.Text = ObjClientes.DtResultados(0)("CorreoEntregaAlmacen").ToString
CargarClientePersonalEntrega() CargarClientePersonalEntrega()
CargarUsuariosEntrega()
Else Else
Existe = False Existe = False
Alert("El Cliente Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia) Alert("El Cliente Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
@@ -10229,12 +10228,6 @@ Partial Class Clientes
End Sub End Sub
Private Sub CargarUsuariosEntrega()
DdlUsuarioEntrega.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
DdlUsuarioEntrega.DataBind()
DdlUsuarioEntrega.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub
Private Sub CargarClientePersonalEntrega() Private Sub CargarClientePersonalEntrega()
Dim ObjVentas As New ClsVentas() Dim ObjVentas As New ClsVentas()
If ObjVentas.GetClientesPersonalEntrega(-1, CveCliente, UsuarioActual.CveEmpresa, -1) Then If ObjVentas.GetClientesPersonalEntrega(-1, CveCliente, UsuarioActual.CveEmpresa, -1) Then
@@ -10246,8 +10239,8 @@ Partial Class Clientes
Protected Sub BtnAgregarClientePersonalEntrega_Click(sender As Object, e As EventArgs) Handles BtnAgregarClientePersonalEntrega.Click Protected Sub BtnAgregarClientePersonalEntrega_Click(sender As Object, e As EventArgs) Handles BtnAgregarClientePersonalEntrega.Click
TxtPersonalEntrega.Text = "" TxtPersonalEntrega.Text = ""
DdlUsuarioEntrega.SelectedValue = "-1" ChkPersonalEntrega.Checked = True
ChkPersonalEntrega.Checked = False LnkClientePersonalEntrega.Text = "Agregar"
UpClientePersonalEntrega.Update() UpClientePersonalEntrega.Update()
RegistraScript("$('#DivModalClientePersonalEntrega').modal('show');") RegistraScript("$('#DivModalClientePersonalEntrega').modal('show');")
End Sub End Sub
@@ -10255,11 +10248,11 @@ Partial Class Clientes
Protected Sub LnkClientePersonalEntrega_Click(sender As Object, e As EventArgs) Protected Sub LnkClientePersonalEntrega_Click(sender As Object, e As EventArgs)
Dim ObjVentas As New ClsVentas() Dim ObjVentas As New ClsVentas()
If LnkClientePersonalEntrega.Text = "Agregar" Then If LnkClientePersonalEntrega.Text = "Agregar" Then
If ObjVentas.AddClientesPersonalEntrega(TxtPersonalEntrega.Text, CveCliente, DdlUsuarioEntrega.SelectedValue.ToEntero, ChkPersonalEntrega.Checked) Then If ObjVentas.AddClientesPersonalEntrega(TxtPersonalEntrega.Text, CveCliente, UsuarioActual.CveUsuario, ChkPersonalEntrega.Checked) Then
Alert("Usuario para entregar agregado correctamente") Alert("Usuario para entregar agregado correctamente")
End If End If
Else Else
If ObjVentas.UpdateClientesPersonalEntrega(CveClientePersonalEntrega, TxtPersonalEntrega.Text, DdlUsuarioEntrega.SelectedValue.ToEntero, ChkPersonalEntrega.Checked) Then If ObjVentas.UpdateClientesPersonalEntrega(CveClientePersonalEntrega, TxtPersonalEntrega.Text, UsuarioActual.CveUsuario, ChkPersonalEntrega.Checked) Then
Alert("Usuario para entregar actualizado correctamente") Alert("Usuario para entregar actualizado correctamente")
End If End If
End If End If
@@ -10273,7 +10266,6 @@ Partial Class Clientes
Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow) Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
CveClientePersonalEntrega = GvRow.DataKey("CvePersonalEntrega").ToEntero CveClientePersonalEntrega = GvRow.DataKey("CvePersonalEntrega").ToEntero
TxtPersonalEntrega.Text = GvRow.DataKey("PersonalEntrega") TxtPersonalEntrega.Text = GvRow.DataKey("PersonalEntrega")
DdlUsuarioEntrega.SelectedValue = GvRow.DataKey("CveUsuario")
ChkPersonalEntrega.Checked = GvRow.DataKey("Estatus") = "True" ChkPersonalEntrega.Checked = GvRow.DataKey("Estatus") = "True"
LnkClientePersonalEntrega.Text = "Actualizar" LnkClientePersonalEntrega.Text = "Actualizar"
UpClientePersonalEntrega.Update() UpClientePersonalEntrega.Update()