From b3d87ea51ce490566163ac854e8634fb44a81bd5 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 22 Oct 2020 16:49:41 -0700 Subject: [PATCH 1/6] Correciones en traspasos de apartados --- Inventarios/RepApartados.aspx | 26 +++++++++++++++++++++++- Inventarios/RepApartados.aspx.vb | 34 +++++++++++++++++++++++--------- 2 files changed, 50 insertions(+), 10 deletions(-) diff --git a/Inventarios/RepApartados.aspx b/Inventarios/RepApartados.aspx index c9cbef7a0..36216384a 100644 --- a/Inventarios/RepApartados.aspx +++ b/Inventarios/RepApartados.aspx @@ -106,7 +106,7 @@
- + @@ -175,5 +175,29 @@
+ diff --git a/Inventarios/RepApartados.aspx.vb b/Inventarios/RepApartados.aspx.vb index cb2b86a4d..d2d984085 100644 --- a/Inventarios/RepApartados.aspx.vb +++ b/Inventarios/RepApartados.aspx.vb @@ -200,9 +200,10 @@ Partial Class Inventarios_RepApartados End If If e.Row.DBCampo("IDGPO").ToString.ToEntero = 3 Then - If e.Row.DBCampo("CveVendedor").ToEntero() = UsuarioActual.CveVendedor Then + If DdlSubProyectos.SelectedValue.ToEntero() > 0 AndAlso e.Row.DBCampo("CveVendedor").ToEntero() = UsuarioActual.CveVendedor Then e.Row.FCTextBox("TxtCantidad").Visible = True e.Row.FCRangeValidator("RVCantidad").Visible = True + e.Row.FCTextBox("TxtCantidad").Attributes.Add("onkeyup", $"LimitaCantidad({e.Row.FCTextBox("TxtCantidad").ClientID},{e.Row.DBCampo("Cantidad").ToEntero});") End If End If @@ -271,7 +272,7 @@ Partial Class Inventarios_RepApartados End If If Not GvDatos.Rows.Cast(Of GridViewRow).Any(Function(gvr) gvr.FCTextBox("TxtCantidad").Text.ToEntero() > 0) Then - Alert("No se ha seleccionado ningun cliente", TipoMensaje.MsgAdvertencia) + Alert("No se ha seleccionado ningun producto para realizar el traspaso", TipoMensaje.MsgAdvertencia) Exit Sub End If @@ -298,6 +299,10 @@ Partial Class Inventarios_RepApartados 'CUADRA LOS LOS PRODUCTOS CON LO QUE SE PUEDE DESAPARTAR Dim DtDetalleTraspasar As DataTable = CuadrarMovimientosApartado(CveAlmacenApartado, Row("CveCliente").ToString().ToEntero(), Row("CveVendedor").ToString().ToEntero(), DtPSTraspasar, ObjInventario) + If DtDetalleTraspasar.Rows.Count = 0 Then + ErrorMovInv = True + Mensaje.Append("No se encontraron productos para realizar el traspaso.") + End If DtPSTraspasar.Dispose() Dim MovSalida = GenerarMovimientoAlmacen(CveAlmacenApartado, 8, Row("CveVendedor").ToString().ToEntero(), Row("CveCliente").ToString().ToEntero(), -1, TxtObs.Text.Trim(), DtDetalleTraspasar, ObjInventario, "RepApar/1") @@ -316,8 +321,12 @@ Partial Class Inventarios_RepApartados If Not ErrorMovInv Then EntradasAlmacen.Add(MovEntrada) + Else + Mensaje.Append("No se pudo generar el movimiento de apartado.") End If - + Else + Mensaje.Append("No se pudo generar el movimiento de desapartado.") + Exit For End If Next @@ -367,19 +376,24 @@ Partial Class Inventarios_RepApartados End If If DtRetorno IsNot Nothing Then - For Each RowCantidad As DataRow In DtPSTraspasar.Rows + For Each RowTraspasar As DataRow In DtPSTraspasar.Rows Dim Filtro As New StringBuilder - Filtro.AppendFormat("CvePS={0}", RowCantidad("CvePS")) + Filtro.AppendFormat("CvePS={0}", RowTraspasar("CvePS")) 'SI TIENE SERIE LA AGREGA AL FILTRO - If Not String.IsNullOrEmpty(RowCantidad("Serie").ToString()) Then - Filtro.AppendFormat("AND Serie='{0}'", RowCantidad("Serie")) + If Not String.IsNullOrEmpty(RowTraspasar("Serie").ToString()) Then + Filtro.AppendFormat(" AND Serie='{0}'", RowTraspasar("Serie")) Else - Filtro.AppendFormat("AND ISNULL(Serie,'') = ''") + Filtro.AppendFormat(" AND ISNULL(Serie,'') = ''") + End If + + 'FILTRA EL MOVIMIENTO DE APARTADO ORIGINAL + If Not String.IsNullOrEmpty(RowTraspasar("CveMovimientoDetalleEntrada").ToString()) Then + Filtro.AppendFormat(" AND CveMovimientoDetalle={0}", RowTraspasar("CveMovimientoDetalleEntrada")) End If Dim RowDesapartado As DataRow = DtDesapartado.Select(Filtro.ToString()).FirstOrDefault() - RowDesapartado("Cantidad") = RowCantidad("Cantidad") + RowDesapartado("Cantidad") = RowTraspasar("Cantidad") DtRetorno.Rows.Add(RowDesapartado.ItemArray) Next @@ -396,6 +410,7 @@ Partial Class Inventarios_RepApartados Dt.Columns.Add(New DataColumn("Serie", GetType(String))) Dt.Columns.Add(New DataColumn("CveCliente", GetType(Integer))) Dt.Columns.Add(New DataColumn("CveVendedor", GetType(Integer))) + Dt.Columns.Add(New DataColumn("CveMovimientoDetalleEntrada", GetType(Integer))) For Each GvRow As GridViewRow In GvDatos.Rows.Cast(Of GridViewRow).Where(Function(gvr) gvr.FCTextBox("TxtCantidad").Text.ToEntero() > 0) Dim Row As DataRow = Dt.NewRow @@ -405,6 +420,7 @@ Partial Class Inventarios_RepApartados Row("Serie") = GvRow.DataKey("Serie") Row("CveCliente") = GvRow.DataKey("CveCliente").ToEntero() Row("CveVendedor") = GvRow.DataKey("CveVendedor").ToEntero() + Row("CveMovimientoDetalleEntrada") = GvRow.DataKey("CveMovimientoDetalleEntrada").ToEntero() Dt.Rows.Add(Row) Next From 13a148cdb84c2604533b48d59cd141ed320b3d7f Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 22 Oct 2020 16:56:41 -0700 Subject: [PATCH 2/6] Campos de facturacion ciclica --- App_Code/ClsContratos.vb | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb index 3da032b9a..31b5494b0 100644 --- a/App_Code/ClsContratos.vb +++ b/App_Code/ClsContratos.vb @@ -302,7 +302,8 @@ Public Class ClsContratos Geom As String, CveContratoPadre As Integer, CveUsuario As Integer, CveEmpresa As Integer, EsPresupuestal As Boolean, Minimo As Double, Maximo As Double, Importe As Double, CveMoneda As Integer, ModalidadDetalle As Integer, Optional CveContratosEstatus As Integer = -1, Optional CveContratoTipo As Integer = -1, Optional TipoCambio As Double = 1, Optional CveSucursalCliente As Integer = -1, Optional CveAlmacenOrigen As Integer = -1, Optional CveAlmacenDestino As Integer = -1, Optional PorcentajeComision As Integer = -1, Optional TipoGarantia As Integer = -1, Optional Folio As Integer = -1, Optional FechaVenc As Date = Nothing, Optional EstatusFianza As Integer = -1, Optional CvePeriodo As Integer = -1, Optional CveContratoPlantilla As Integer = -1, Optional CveCuentaEquipo As Integer = -1, - Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "") As Integer + Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "", + Optional FacturacionCicilica As Boolean = False, Optional FacturacionCiclicaAutomatico As Boolean = False, Optional DiaMesFacturacion As Integer = 1) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Con_ContratosAdd") @@ -353,7 +354,10 @@ Public Class ClsContratos .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones .Add("@CveDireccionEnvio", SqlDbType.Int).Value = CveDireccionEnvio .Add("@AplicaImpuestosLocales", SqlDbType.Bit).Value = If(AplicaImpuestosLocales, 1, 0) - .Add("@CorreoNotificacionPedDev", SqlDbType.VarChar).Value = CorreoNotificacionPedDev + .Add("@CorreoNotificacionPedDev", SqlDbType.VarChar).Value = CorreoNotificacionPedDev + .Add("@FacturacionCicilica", SqlDbType.Bit).Value = FacturacionCicilica + .Add("@FacturacionCiclicaAutomatico", SqlDbType.Bit).Value = FacturacionCiclicaAutomatico + .Add("@DiaMesFacturacion", SqlDbType.TinyInt).Value = DiaMesFacturacion End With @@ -378,7 +382,8 @@ Public Class ClsContratos CveContratoPadre As Integer, CveUsuario As Integer, CveEmpresa As Integer, EsPresupuestal As Boolean, Minimo As Double, Maximo As Double, Importe As Double, CveMoneda As Integer, ModalidadDetalle As Integer, Optional CveContratosEstatus As Integer = -1, Optional CveContratoTipo As Integer = -1, Optional TipoCambio As Double = 1.0, Optional CveSucursalCliente As Integer = -1, Optional CveAlmacenOrigen As Integer = -1, Optional CveAlmacenDestino As Integer = -1, Optional PorcentajeComision As Integer = -1, Optional TipoGarantia As Integer = -1, Optional Folio As Integer = -1, Optional FechaVenc As Date = Nothing, Optional EstatusFianza As Integer = -1, Optional CveContratoPlantilla As Integer = -1, Optional CveCuentaEquipo As Integer = -1, - Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "") As Boolean + Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "", Optional FacturacionCicilica As Boolean = False, Optional FacturacionCiclicaAutomatico As Boolean = False, + Optional DiaMesFacturacion As Integer = 1) As Boolean Dim Retorno = False DataAdapter("PA_Con_ContratosUpdate") @@ -428,8 +433,10 @@ Public Class ClsContratos .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones .Add("@CveDireccionEnvio", SqlDbType.Int).Value = CveDireccionEnvio .Add("@AplicaImpuestosLocales", SqlDbType.Bit).Value = If(AplicaImpuestosLocales, 1, 0) - .Add("@CorreoNotificacionPedDev", SqlDbType.VarChar).Value = CorreoNotificacionPedDev - + .Add("@CorreoNotificacionPedDev", SqlDbType.VarChar).Value = CorreoNotificacionPedDev + .Add("@FacturacionCicilica", SqlDbType.Bit).Value = FacturacionCicilica + .Add("@FacturacionCiclicaAutomatico", SqlDbType.Bit).Value = FacturacionCiclicaAutomatico + .Add("@DiaMesFacturacion", SqlDbType.TinyInt).Value = DiaMesFacturacion End With Try From 20e28967035dab92747fb7e802ab7a7b75057ffc Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 22 Oct 2020 18:53:59 -0700 Subject: [PATCH 3/6] nuevo grid en Entrega almacen y Clientes para usaurios autorizados para entregar al clientte --- App_Code/ClsVentas.vb | 69 ++++++++++++++++++++++++ Inventarios/EntregaAlmacen.aspx | 84 +++++++++++++++++++++++------- Inventarios/EntregaAlmacen.aspx.vb | 24 +++++++-- Ventas/Clientes.aspx | 71 +++++++++++++++++++++++++ Ventas/Clientes.aspx.vb | 74 ++++++++++++++++++++++++++ 5 files changed, 301 insertions(+), 21 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 474a9d366..e3bb58624 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -4591,6 +4591,75 @@ Public Class ClsVentas End Try Return retorno End Function + + Public Function GetClientesPersonalEntrega(CvePersonalEntrega As Integer, CveCliente As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Vta_ClientesPersonalEntregaGet", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePersonalEntrega", SqlDbType.Int).Value = CvePersonalEntrega + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Estatus", SqlDbType.Int).Value = Estatus + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los clientes personal entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function + + Public Function AddClientesPersonalEntrega(PersonalEntrega As String, CveCliente As Integer, CveUsuario As Integer, Estatus As Boolean) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Vta_ClientesPersonalEntregaAdd", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@PersonalEntrega", SqlDbType.NVarChar).Value = PersonalEntrega + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el personal entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function + + Public Function UpdateClientesPersonalEntrega(CvePersonalEntrega As Integer, PersonalEntrega As String, CveUsuario As Integer, Estatus As Boolean) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Vta_ClientesPersonalEntregaUpdate", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePersonalEntrega", SqlDbType.Int).Value = CvePersonalEntrega + .Add("@PersonalEntrega", SqlDbType.NVarChar).Value = PersonalEntrega + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el personal entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function + + Public Function RemoveClientesPersonalEntrega(CvePersonalEntrega As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Vta_ClientesPersonalEntregaDelete", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePersonalEntrega", SqlDbType.Int).Value = CvePersonalEntrega + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el personal entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function #Region "Conciliación emitidas SAT" Public Function ConciliacionemitidasSATGet(cveEmpresa As Int32) As Boolean diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx index f3198fa5e..87402f558 100644 --- a/Inventarios/EntregaAlmacen.aspx +++ b/Inventarios/EntregaAlmacen.aspx @@ -1,4 +1,4 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="EntregaAlmacen.aspx.vb" Inherits="Inventarios_EntregaAlmacen" enableEventValidation="false" %> +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="EntregaAlmacen.aspx.vb" Inherits="Inventarios_EntregaAlmacen" EnableEventValidation="false" %> @@ -31,12 +31,12 @@ .gvEscondeColumna tr td:nth-child(3) { display: none; - width:0px; + width: 0px; } .gvEscondeColumna tr th:nth-child(3) { display: none; - width:0px; + width: 0px; } .btn.default:hover { @@ -69,6 +69,10 @@ + + + + <%----%> @@ -76,6 +80,10 @@ + + + + @@ -244,14 +252,14 @@ - - - - - - - ver detalle de entrega - + + + + + + + ver detalle de entrega + @@ -292,6 +300,10 @@ + + + + Sucursal: @@ -379,6 +391,39 @@ + + <%--PERSONAL ENTREGA--%> +
+
+
+
+ + Clientes Personal Entrega +
+
+
+ + + + + + <%----%> + <%-- + + + + + --%> + + + + + +
+ +
+
@@ -408,7 +453,7 @@
- +
@@ -437,10 +482,10 @@ - + <%--GV DATOS--%> + DataKeyNames="Consec,CvePS,Codigo,CodigoBarras,AplicaSerieLote,CveUM,CantidadC,CantidadF,UM,PS,CveClasificacion,CveVentaDetalle,CveTamaño,AplicaSeccion, AplicaSerie,AplicaLote,AplicaCaducidad" HeaderStyle-CssClass="Titulos" CssClass="table table-striped table-hover Widthall ScrollAD gvInventario mysmallbtn" data-heighterror="450" data-freezerows="1" GridLines="None"> @@ -452,11 +497,11 @@ - + - + - + @@ -721,6 +766,7 @@
Cantidad +
@@ -763,6 +809,8 @@ Cant.: + +
@@ -885,7 +933,7 @@ # Cajas: - + diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index ec68fe2b0..ae40df21d 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -575,6 +575,7 @@ Partial Class Inventarios_EntregaAlmacen CveContrato = DtDatos.Rows(0)("CveContrato").ToString.ToEntero CveVendedor = DtDatos.Rows(0)("CveVendedor").ToString.ToEntero CveCliente = DtDatos.Rows(0)("CveCliente").ToString.ToEntero + ClienteEntregaPersonal(CveCliente) CveSubProyecto = DtDatos.Rows(0)("CveSubProyecto").ToString.ToEntero EsInterno = CBool(DtDatos.Rows(0)("EsInterno").ToString) @@ -3774,8 +3775,25 @@ Partial Class Inventarios_EntregaAlmacen ElseIf RbEntregaInterna.Checked Then 'RegistraScript("$('#ModalPaqueteriaInterna').modal('show')") End If - End Sub + End Sub #End Region - - + +#Region "Cliente entrega personal" + Private Sub ClienteEntregaPersonal(CveCliente As Integer) + Dim ObjVentas As New ClsVentas() + If ObjVentas.GetClientesPersonalEntrega(-1, CveCliente, UsuarioActual.CveEmpresa, 1) Then + If ObjVentas.DtResultados.Rows.Count > 0 Then + GvClentesPersonalEntrega.DataSource = ObjVentas.DtResultados + GvClentesPersonalEntrega.DataBind() + DivPersonalEntrega.Visible = True + Else + DivPersonalEntrega.Visible = False + End If + End If + ObjVentas.Dispose() + UpClentesPersonalEntrega.Update() + End Sub +#End Region + + End Class diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index a52d606c4..2949da84e 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -840,6 +840,38 @@
+
+
+
+ + Clientes Personal Entrega +
+
+
+ +
+
+
+
+ + + + + + + + + + + + + + + + +
+
@@ -6185,6 +6217,45 @@ <%-- FIN MODAL MODIFICAR PRECIOS PS --%> + + <%--MODAL PARA AGREGAR Cliente Personal Entrega--%> + + <%--FIN MODAL CLIENTE PERSONAL ENTREGA--%> diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index e52200ec9..ef37eadcd 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -48,6 +48,15 @@ Partial Class Clientes End Set End Property + Private Property CveClientePersonalEntrega As Integer + Get + Return ViewState("CveClientePersonalEntrega").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CveClientePersonalEntrega") = value + End Set + End Property + Private Property Modalidad As String Get Return ViewState("Modalidad").ToString @@ -1743,6 +1752,9 @@ Partial Class Clientes TxtCorreoEntregaCompras.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString TxtCorreoEntregaAlmacen.Text = ObjClientes.DtResultados(0)("CorreoEntregaAlmacen").ToString + + CargarClientePersonalEntrega() + CargarUsuariosEntrega() Else Existe = False Alert("El Cliente Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia) @@ -10216,5 +10228,67 @@ Partial Class Clientes UpDatos.Update() 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() + Dim ObjVentas As New ClsVentas() + If ObjVentas.GetClientesPersonalEntrega(-1, CveCliente, UsuarioActual.CveEmpresa, -1) Then + GvClentesPersonalEntrega.DataSource = ObjVentas.DtResultados + GvClentesPersonalEntrega.DataBind() + End If + ObjVentas.Dispose() + End Sub + + Protected Sub BtnAgregarClientePersonalEntrega_Click(sender As Object, e As EventArgs) Handles BtnAgregarClientePersonalEntrega.Click + TxtPersonalEntrega.Text = "" + DdlUsuarioEntrega.SelectedValue = "-1" + ChkPersonalEntrega.Checked = False + UpClientePersonalEntrega.Update() + RegistraScript("$('#DivModalClientePersonalEntrega').modal('show');") + End Sub + + Protected Sub LnkClientePersonalEntrega_Click(sender As Object, e As EventArgs) + Dim ObjVentas As New ClsVentas() + If LnkClientePersonalEntrega.Text = "Agregar" Then + If ObjVentas.AddClientesPersonalEntrega(TxtPersonalEntrega.Text, CveCliente, DdlUsuarioEntrega.SelectedValue.ToEntero, ChkPersonalEntrega.Checked) Then + Alert("Usuario para entregar agregado correctamente") + End If + Else + If ObjVentas.UpdateClientesPersonalEntrega(CveClientePersonalEntrega, TxtPersonalEntrega.Text, DdlUsuarioEntrega.SelectedValue.ToEntero, ChkPersonalEntrega.Checked) Then + Alert("Usuario para entregar actualizado correctamente") + End If + End If + ObjVentas.Dispose() + RegistraScript("$('#DivModalClientePersonalEntrega').modal('hide');") + CargarClientePersonalEntrega() + UpClentesPersonalEntrega.Update() + End Sub + + Protected Sub EditClientesPersonalEntrega_Click(sender As Object, e As EventArgs) + Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow) + CveClientePersonalEntrega = GvRow.DataKey("CvePersonalEntrega").ToEntero + TxtPersonalEntrega.Text = GvRow.DataKey("PersonalEntrega") + DdlUsuarioEntrega.SelectedValue = GvRow.DataKey("CveUsuario") + ChkPersonalEntrega.Checked = GvRow.DataKey("Estatus") = "True" + LnkClientePersonalEntrega.Text = "Actualizar" + UpClientePersonalEntrega.Update() + RegistraScript("$('#DivModalClientePersonalEntrega').modal('show');") + End Sub + + Protected Sub DeleteClientesPersonalEntrega_Click(sender As Object, e As EventArgs) + Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow) + Dim ObjVentas As New ClsVentas() + If ObjVentas.RemoveClientesPersonalEntrega(GvRow.DataKey("CvePersonalEntrega").ToEntero) Then + Alert("Usuario para entregar eliminado correctamente") + End If + ObjVentas.Dispose() + CargarClientePersonalEntrega() + UpClentesPersonalEntrega.Update() + End Sub End Class From f305e59824cb04261c6e232b9d1041615c8a374a Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Oct 2020 21:28:10 -0700 Subject: [PATCH 4/6] --globaldtbancoscuentas, filtro de tipocuenta --- App_Code/ClsPaginas.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index a1583a93a..09df9fe34 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1490,7 +1490,7 @@ Public Class ClsPaginas ' Application("GlobalDTBancosCuentas") = value ' End Set 'End Property - Property GlobalDTBancosCuentas(CveUsuario As Integer, Optional CveCuenta As Integer = -1, Optional Estatus As Integer = 1, Optional CveEmpresa As Integer = -1) As DataTable + Property GlobalDTBancosCuentas(CveUsuario As Integer, Optional CveCuenta As Integer = -1, Optional Estatus As Integer = 1, Optional CveEmpresa As Integer = -1, Optional CveTipoCuenta As Integer = -1) As DataTable Get Dim AppNombre As String = String.Format("GlobalDTBancosCuentas-{0}", CveEmpresa) 'sino existe, recarga los datos @@ -1506,6 +1506,7 @@ Public Class ClsPaginas Dim Str As String = String.Format("CveEmpresa = {0} ", UsuarioActual.CveEmpresa) If CveUsuario > -1 Then Str = String.Format("{0} AND CveUsuario = {1}", Str, CveUsuario) + If CveTipoCuenta > -1 Then Str = String.Format("{0} AND CveTipoCuenta = {1}", Str, CveTipoCuenta) If CveCuenta > -1 Then Str = String.Format("{0} AND CveCuenta = {1}", Str, CveCuenta) If Estatus > -1 Then Str = String.Format("{0} AND Estatus = '{1}'", Str, If(Estatus = 1, "Activo", "Inactivo")) From 225d25708b600ed873d95ac89b019f56f4480ca0 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Oct 2020 23:27:19 -0700 Subject: [PATCH 5/6] -- cambio en carga de proyecciones --- Inventarios/KardexAlmacenHorizontal.aspx | 6 +++--- Inventarios/KardexAlmacenHorizontal.aspx.vb | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx index 6e64d0cb0..3ccaa1725 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx +++ b/Inventarios/KardexAlmacenHorizontal.aspx @@ -93,7 +93,7 @@ Generar Excel
  • - +
    • @@ -200,8 +200,8 @@
    - - + +
    diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb index 105d2bca4..9179c58de 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx.vb +++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb @@ -344,7 +344,7 @@ Partial Class Inventarios_KardexAlmacen End Sub - Protected Sub LnkProyectos_Click(sender As Object, e As EventArgs) + Protected Sub LnkProyectado_Click(sender As Object, e As EventArgs) RegistraScript(String.Format("$('#{0}').modal();", "DivProyeccion")) End Sub From ba44cd7046e93837b5427077e048d6f991b85b66 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Oct 2020 23:28:04 -0700 Subject: [PATCH 6/6] -- filtro de globaldtbancoscuetnas, filtro por tipo de cuenta -- correcion de error de usaAC, para el registro incompleto de poliza contable --- Ventas/ClientesAbonar.aspx.vb | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 522572c9d..98735344f 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -355,7 +355,7 @@ Partial Class Ventas_ClientesAbonar Private Sub CargaCuentas() DdlCuenta.Items.Clear() - Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) + Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa, CveTipoCuenta:=2) If ChkPagarPesos.Checked Then dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1)) @@ -1730,9 +1730,14 @@ Partial Class Ventas_ClientesAbonar ErrorAC = True End If - ErrorAC = Not ObjConta.AjustaPoliza(IDPoliza) + If Not ErrorAC Then + ErrorAC = Not ObjConta.AjustaPoliza(IDPoliza) + End If + + If Not ErrorAC Then + ErrorAC = Not ObjIE.UpdateIEPrePoliza(Fecha, FolioPoliza.ToString, IDPoliza, CvePrePoliza, CveIE, 0) + End If - ErrorAC = Not ObjIE.UpdateIEPrePoliza(Fecha, FolioPoliza.ToString, IDPoliza, CvePrePoliza, CveIE, 0) End If End If