From b0472b52c0b0cf6c261a2124f5a8b03129bd1c80 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Tue, 10 Sep 2019 10:55:40 -0700 Subject: [PATCH 1/9] Prellenar los datos del Chofer en Traspaso de Almacen --- Acarreos/CatChoferes.aspx | 35 ++++++++++++++++++++++++++++- Acarreos/CatChoferes.aspx.vb | 14 ++++++++++-- App_Code/ClsAcarreos.vb | 15 ++++++++++--- Inventarios/TraspasoAlmacen.aspx | 11 ++++----- Inventarios/TraspasoAlmacen.aspx.vb | 16 ++++++++++++- 5 files changed, 79 insertions(+), 12 deletions(-) diff --git a/Acarreos/CatChoferes.aspx b/Acarreos/CatChoferes.aspx index 1886db78c..9680d08b3 100644 --- a/Acarreos/CatChoferes.aspx +++ b/Acarreos/CatChoferes.aspx @@ -27,7 +27,7 @@ " style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> - + @@ -69,10 +69,43 @@ +
+
+
+ + <%----%> + +
+
+
+ + <%----%> + +
+
+
+ + + <%----%> + +
+
+
+ + <%----%> + +
+
+
+ + <%----%> + +
+
diff --git a/Acarreos/CatChoferes.aspx.vb b/Acarreos/CatChoferes.aspx.vb index 33eb8925e..251fd78bb 100644 --- a/Acarreos/CatChoferes.aspx.vb +++ b/Acarreos/CatChoferes.aspx.vb @@ -47,12 +47,12 @@ Partial Class Acarreos_CatChoferes Dim Estatus = 0 If ChkEstatus.Checked Then Estatus = 1 If HdnModalidad.Value = "A" Then - If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue) Then + If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtDomicilio.Text.Trim, TxtTelefono.Text.Trim, TxtCiudad.Text.Trim, TxtLicencia.Text.Trim) Then CargaDatos() Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion) End If ElseIf HdnModalidad.Value = "U" Then - If ObjAcar.UpdateChofer(HdnID.Value, TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, DdlTransportista.SelectedValue) Then + If ObjAcar.UpdateChofer(HdnID.Value, TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtDomicilio.Text.Trim, TxtTelefono.Text.Trim, TxtCiudad.Text.Trim, TxtLicencia.Text.Trim) Then CargaDatos() Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion) End If @@ -71,6 +71,11 @@ Partial Class Acarreos_CatChoferes BtnAgregarChofer.Text = "Actualizar" myModalLabel.InnerText = "Actualizar Chofer" TxtChofer.Text = GvRow.DataKey("Chofer") + TxtIdentificacion.Text = GvRow.DataKey("Identificacion") + TxtDomicilio.Text = GvRow.DataKey("Domicilio") + TxtTelefono.Text = GvRow.DataKey("Telefono") + TxtCiudad.Text = GvRow.DataKey("Ciudad") + TxtLicencia.Text = GvRow.DataKey("Licencia") DdlTransportista.SelectedValueExist(GvRow.DataKey("CveTransportista")) divEstatus.Visible = True ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus")) @@ -84,6 +89,11 @@ Partial Class Acarreos_CatChoferes BtnAgregarChofer.Text = "Agregar" myModalLabel.InnerText = "Agregar Chofer" TxtChofer.Text = "" + TxtIdentificacion.Text = "" + TxtDomicilio.Text = "" + TxtTelefono.Text = "" + TxtCiudad.Text = "" + TxtLicencia.Text = "" ChkEstatus.Checked = True divEstatus.Visible = False UpAddChofer.Update() diff --git a/App_Code/ClsAcarreos.vb b/App_Code/ClsAcarreos.vb index c85f93087..e039cb589 100644 --- a/App_Code/ClsAcarreos.vb +++ b/App_Code/ClsAcarreos.vb @@ -109,7 +109,7 @@ Public Class ClsAcarreos #Region "Choferes" - Public Function AddChofer(Chofer As String, CveUsuario As Integer, CveEmpresa As Integer, CveTransportista As Integer) As Boolean + Public Function AddChofer(Chofer As String, CveUsuario As Integer, CveEmpresa As Integer, CveTransportista As Integer, Identificacion As String, Domicilio As String, Telefono As String, Ciudad As String, Licencia As String) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Acar_ChoferesAdd") With SqlAdapter.SelectCommand.Parameters @@ -117,6 +117,11 @@ Public Class ClsAcarreos .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveTransportista", SqlDbType.Int).Value = CveTransportista + .Add("@Identificacion", SqlDbType.VarChar).Value = Identificacion + .Add("@Domicilio", SqlDbType.VarChar).Value = Domicilio + .Add("@Telefono", SqlDbType.VarChar).Value = Telefono + .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad + .Add("@Licencia", SqlDbType.VarChar).Value = Licencia End With Try SqlAdapter.Fill(Data) @@ -128,7 +133,7 @@ Public Class ClsAcarreos Return Retorno End Function - Public Function UpdateChofer(CveChofer As Integer, Chofer As String, CveUsuario As Integer, CveEmpresa As Integer, Estatus As Integer, CveTransportista As Integer) As Boolean + Public Function UpdateChofer(CveChofer As Integer, Chofer As String, CveUsuario As Integer, CveEmpresa As Integer, Estatus As Integer, CveTransportista As Integer, Identificacion As String, Domicilio As String, Telefono As String, Ciudad As String, Licencia As String) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Acar_ChoferesUpdate") With SqlAdapter.SelectCommand.Parameters @@ -138,7 +143,11 @@ Public Class ClsAcarreos .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@Estatus", SqlDbType.Int).Value = Estatus .Add("@CveTransportista", SqlDbType.Int).Value = CveTransportista - + .Add("@Identificacion", SqlDbType.VarChar).Value = Identificacion + .Add("@Domicilio", SqlDbType.VarChar).Value = Domicilio + .Add("@Telefono", SqlDbType.VarChar).Value = Telefono + .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad + .Add("@Licencia", SqlDbType.VarChar).Value = Licencia End With Try SqlAdapter.Fill(Data) diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx index 234eb59d3..0dc78ba79 100644 --- a/Inventarios/TraspasoAlmacen.aspx +++ b/Inventarios/TraspasoAlmacen.aspx @@ -172,14 +172,14 @@
- -
- -
+ +
+ +
@@ -256,7 +256,8 @@
- + +
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 7dc7cd4a5..9a928c671 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -377,7 +377,7 @@ Partial Class Inventarios_TraspasoAlmacen 'Llena Choferes Dim ObjAcar As New ClsAcarreos() - If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, -1, -1) Then + If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, 1, -1) Then DldChofer.DataSource = ObjAcar.DtResultados DldChofer.DataBind() End If @@ -2408,5 +2408,19 @@ Partial Class Inventarios_TraspasoAlmacen #End Region + Protected Sub DldChofer_SelectedIndexChanged(sender As Object, e As EventArgs) + Dim ObjAcar As New ClsAcarreos() + If ObjAcar.GetChofer(DldChofer.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1, -1) Then + Dim dr As DataRow = ObjAcar.DtResultados.Rows(0) + If dr IsNot Nothing Then + TxtIdentificacion.Text = dr("Identificacion").ToString + TxtDomicilio.Text = dr("Domicilio").ToString + TxtTelefono.Text = dr("Telefono").ToString + TxtCiudad.Text = dr("Ciudad").ToString + TxtLicencia.Text = dr("Licencia").ToString + End If + End If + ObjAcar.Dispose() + End Sub End Class From 245f25bcf1050b3af8b0ef519e0022973eee0ef1 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 10 Sep 2019 12:28:53 -0500 Subject: [PATCH 2/9] Asignar Estatus a los usuarios en ordenes de servicio --- App_Code/ClsOS.vb | 6 ++-- OS/CatEstatusOrdenServicio.aspx | 4 +-- OS/CatEstatusOrdenServicio.aspx.vb | 46 ++++++++++++++++++------------ 3 files changed, 33 insertions(+), 23 deletions(-) diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb index 1cfb6672d..c425d7c80 100644 --- a/App_Code/ClsOS.vb +++ b/App_Code/ClsOS.vb @@ -1574,16 +1574,16 @@ Public Class ClsOS Return Retorno End Function - Public Function RemoveEstatusUsuarios(CveEstatusUsuarios As Integer) As Boolean + Public Function RemoveEstatusUsuarios(CveEstatus As Integer, CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OS_EstatusUsuariosRemove") With SqlAdapter.SelectCommand.Parameters - SqlAdapter.SelectCommand.Parameters.Add("@CveEstatusUsuario", SqlDbType.Int).Value = CveEstatusUsuarios + .Add("@CveEstatusOrdenServicio", SqlDbType.Int).Value = CveEstatus + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario End With - Try SqlAdapter.Fill(Data) Retorno = True diff --git a/OS/CatEstatusOrdenServicio.aspx b/OS/CatEstatusOrdenServicio.aspx index 4d4360e96..c02fb712d 100644 --- a/OS/CatEstatusOrdenServicio.aspx +++ b/OS/CatEstatusOrdenServicio.aspx @@ -302,7 +302,7 @@ - + <%-- @@ -364,7 +364,7 @@
- + --%> diff --git a/OS/CatEstatusOrdenServicio.aspx.vb b/OS/CatEstatusOrdenServicio.aspx.vb index c147d4075..fbe55c2c3 100644 --- a/OS/CatEstatusOrdenServicio.aspx.vb +++ b/OS/CatEstatusOrdenServicio.aspx.vb @@ -30,7 +30,7 @@ Partial Class OS_CatEstatusOrdenServicio Get Return CType(ViewState("DTEstatusUsuarios"), DataTable) End Get - Set(value As DataTable) + Set(value As Data.DataTable) ViewState("DTEstatusUsuarios") = value End Set End Property @@ -39,16 +39,13 @@ Partial Class OS_CatEstatusOrdenServicio Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then + CargaDatos() CreaGrid("Req") - CreaGrid("OC") CargaGridEstatusUsuarios() ViewState("Orden") = "" - 'ViewState("TipoSeleccionado") = DdlTipo.SelectedValue CveEstatuOS = -1 - CargaDatos() - 'CargaProyectos() CargaUsuarios() End If @@ -66,6 +63,12 @@ Partial Class OS_CatEstatusOrdenServicio Else Me.GvDatos.DataSource = Nothing End If + + If ObjEstatusOrdenServicios.GetEstatusUsuarios(-1, -1) Then + DTEstatusUsuarios = ObjEstatusOrdenServicios.DtResultados + Dim PermisosDeUsuario As DataTable = DTEstatusUsuarios + End If + OrdenaDatos() ObjEstatusOrdenServicios.Dispose() GvDatos.DataBind() @@ -148,16 +151,8 @@ Partial Class OS_CatEstatusOrdenServicio Dim Estado As Boolean = GvDatos.Rows(e.RowIndex).FCCheckBox("ChkEstado").Checked Dim CveEstatusOrdenServicio As Integer = GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero - 'If ObjEstatusOrdenServicios.UpdateEstatusOrdenServicio(EstatusOrdenServicio, Estado, CveEstatusOrdenServicio) Then - ' GvDatos.EditIndex = -1 - ' ViewState("DTEstatusOrdenServicios") = ObjEstatusOrdenServicios.DtResultados '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - ' GlobalDTEstatusOrdenServicios = ObjEstatusOrdenServicios.DtResultados - ' Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) - 'End If - ObjEstatusOrdenServicios.Dispose() - End Sub #End Region @@ -234,9 +229,7 @@ Partial Class OS_CatEstatusOrdenServicio Dim HuboErrores As Boolean = False Dim CveSubProyecto = 59 - For Each Row As GridViewRow In GvEstatusUsuariosREQ.Rows - Dim aux As String = Row.DataKey("CveUsuario").ToString Dim r As Integer = 1 For i = 0 To Row.Cells.Count - 1 @@ -244,14 +237,13 @@ Partial Class OS_CatEstatusOrdenServicio If CveEstatus > 0 Then - If Row.FCCheckBox("chkEstatus" + r.ToString).Checked = False And Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero > 0 Then + If Row.FCCheckBox("chkEstatus" + r.ToString).Checked = False Then 'Eliminar el registro existente - If Not objEstatusOC.RemoveEstatusUsuarios(Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero) Then + If Not objEstatusOC.RemoveEstatusUsuarios(CveEstatus, Row.DataKey("CveUsuario").ToString.ToEntero) Then HuboErrores = True Exit For End If ElseIf Row.FCCheckBox("chkEstatus" + r.ToString).Checked = True Then - 'And Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero = -1 'Guardado masivo cuando sea SubProyecto "Todos" If CveSubProyecto = -2 Then For Each dr As DataRow In GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).Rows @@ -292,7 +284,25 @@ Partial Class OS_CatEstatusOrdenServicio End If objEstatusOC.Dispose() + CargaDatos() CargaGridEstatusUsuarios() End Sub + + Protected Sub GvEstatusUsuariosREQ_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEstatusUsuariosREQ.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + Dim PermisosDeUsuario As DataTable = DTEstatusUsuarios.FiltraParametros(String.Format("CveUsuario = {0}", e.Row.DBCampo("CveUsuario").ToString)) + Dim CveUsuario As String = e.Row.DBCampo("CveUsuario").ToString + For i As Integer = 1 To 10 + Dim CveEstatus As Integer = GvEstatusUsuariosREQ.Columns(i).FooterText.ToEntero + If CveEstatus > 0 Then + Dim auxiliarBandera As DataRow = PermisosDeUsuario.FiltroPrimero(String.Format("CveEstatusOrdenServicio = {0}", CveEstatus.ToString)) + If auxiliarBandera IsNot Nothing Then + Dim chkEstatus As CheckBox = e.Row.FCCheckBox(String.Format("chkEstatus{0}", i)) + chkEstatus.Checked = True + End If + End If + Next + End If + End Sub #End Region End Class From c249625f010cc93e8140e638d979af3ab951f102 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 10 Sep 2019 12:46:33 -0500 Subject: [PATCH 3/9] limpiando codigo en CatEstatusOrdenServicio --- OS/CatEstatusOrdenServicio.aspx | 66 +----------------------------- OS/CatEstatusOrdenServicio.aspx.vb | 52 ++++------------------- 2 files changed, 10 insertions(+), 108 deletions(-) diff --git a/OS/CatEstatusOrdenServicio.aspx b/OS/CatEstatusOrdenServicio.aspx index c02fb712d..650836c10 100644 --- a/OS/CatEstatusOrdenServicio.aspx +++ b/OS/CatEstatusOrdenServicio.aspx @@ -119,7 +119,7 @@ - + @@ -302,70 +302,6 @@ - <%-- - - - - - - - - - - - - - --%> - diff --git a/OS/CatEstatusOrdenServicio.aspx.vb b/OS/CatEstatusOrdenServicio.aspx.vb index fbe55c2c3..2c6c42f99 100644 --- a/OS/CatEstatusOrdenServicio.aspx.vb +++ b/OS/CatEstatusOrdenServicio.aspx.vb @@ -46,8 +46,6 @@ Partial Class OS_CatEstatusOrdenServicio CveEstatuOS = -1 - CargaUsuarios() - End If End Sub @@ -168,72 +166,40 @@ Partial Class OS_CatEstatusOrdenServicio #End Region #Region "Configuracion" - Protected Sub ibOpciones1_Click(sender As Object, e As ImageClickEventArgs) - Dim imgBtn As ImageButton = DirectCast(sender, System.Web.UI.WebControls.ImageButton) - - ddlSuperior.Items.Clear() - - If imgBtn.CommandArgument <> "" Then - 'chkMostrarLimites.Visible = If(GlobalDTOCEstatus.FiltraParametros("CveEstatusSiguiente = " + imgBtn.CommandArgument)(0)("TipoTermino").ToString.ToEntero = 3, False, True) - chkMostrarLimites.Style("display") = If(GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros("CveEstatusSiguiente = " + imgBtn.CommandArgument)(0)("TipoTermino").ToString.ToEntero = 3, "none", "inline") - - - 'ddlSuperior.DataSource = DTEstatusUsuarios.FiltraParametros(String.Format("CveEstatus = {0}", imgBtn.CommandArgument), "Nombre DESC") - ddlSuperior.DataBind() - ddlSuperior.Items.Insert(0, New ListItem("Todos los Superiores", "-1")) - Try - ddlSuperior.SelectedValue = hdnCveSuperior.Value - Catch ex As Exception - - End Try - tblSuperior.Visible = True - Else - tblSuperior.Visible = False - End If - - UPSuperior.Update() - UPPEmp.Update() - RegistraScript("$('#DivSuperior').show(1000); PosicionaObjeto('" + imgBtn.ClientID + "','DivSuperior'); chkMostrarLimitesCambio();") - End Sub Private Sub CreaGrid(Tipo As String) Dim i As Integer = 1 For Each Row As DataRow In GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).Rows - GvEstatusUsuariosREQ.Columns(i).HeaderText = Row("EstatusOrdenServicio").ToString.ToUpper - GvEstatusUsuariosREQ.Columns(i).FooterText = Row("CveEstatusOrdenServicio").ToString + GvEstatusUsuarios.Columns(i).HeaderText = Row("EstatusOrdenServicio").ToString.ToUpper + GvEstatusUsuarios.Columns(i).FooterText = Row("CveEstatusOrdenServicio").ToString i += 1 Next While i <= 10 - GvEstatusUsuariosREQ.Columns(i).Visible = False + GvEstatusUsuarios.Columns(i).Visible = False i += 1 End While End Sub Protected Sub CargaGridEstatusUsuarios() - GvEstatusUsuariosREQ.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) - GvEstatusUsuariosREQ.DataBind() + GvEstatusUsuarios.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) + GvEstatusUsuarios.DataBind() UPPEmp.Update() End Sub - Public Sub CargaUsuarios() - ddlSuperior.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) - ddlSuperior.DataBind() - End Sub - Protected Sub btnGuardarEstatusUsuariosREQ_Click(sender As Object, e As EventArgs) Handles btnGuardarEstatusUsuariosREQ.Click Dim objEstatusOC As New ClsOS objEstatusOC.IniciaTransacSQL() Dim HuboErrores As Boolean = False Dim CveSubProyecto = 59 - For Each Row As GridViewRow In GvEstatusUsuariosREQ.Rows + For Each Row As GridViewRow In GvEstatusUsuarios.Rows Dim r As Integer = 1 For i = 0 To Row.Cells.Count - 1 - Dim CveEstatus As Integer = If(IsNumeric(GvEstatusUsuariosREQ.Columns(i).FooterText), GvEstatusUsuariosREQ.Columns(i).FooterText.ToEntero, 0) + Dim CveEstatus As Integer = If(IsNumeric(GvEstatusUsuarios.Columns(i).FooterText), GvEstatusUsuarios.Columns(i).FooterText.ToEntero, 0) If CveEstatus > 0 Then @@ -288,12 +254,12 @@ Partial Class OS_CatEstatusOrdenServicio CargaGridEstatusUsuarios() End Sub - Protected Sub GvEstatusUsuariosREQ_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEstatusUsuariosREQ.RowDataBound + Protected Sub GvEstatusUsuarios_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEstatusUsuarios.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then Dim PermisosDeUsuario As DataTable = DTEstatusUsuarios.FiltraParametros(String.Format("CveUsuario = {0}", e.Row.DBCampo("CveUsuario").ToString)) Dim CveUsuario As String = e.Row.DBCampo("CveUsuario").ToString For i As Integer = 1 To 10 - Dim CveEstatus As Integer = GvEstatusUsuariosREQ.Columns(i).FooterText.ToEntero + Dim CveEstatus As Integer = GvEstatusUsuarios.Columns(i).FooterText.ToEntero If CveEstatus > 0 Then Dim auxiliarBandera As DataRow = PermisosDeUsuario.FiltroPrimero(String.Format("CveEstatusOrdenServicio = {0}", CveEstatus.ToString)) If auxiliarBandera IsNot Nothing Then From 8b6d677c63e9c50a4265955f91c15c69a376946d Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Tue, 10 Sep 2019 15:08:57 -0700 Subject: [PATCH 4/9] =?UTF-8?q?Se=20agreg=C3=B3=20CveVenta=20al=20registra?= =?UTF-8?q?r=20Movimiento=20de=20Salida?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/RecepcionAlmacen.aspx.vb | 26 +++++++++++++++++--------- LogMail.txt | 2 +- 2 files changed, 18 insertions(+), 10 deletions(-) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index 2c0623c7f..4bb7f050d 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -2111,7 +2111,17 @@ Partial Class Inventarios_RecepcionAlmacen 'ENTREGA DIRECTA If EntregaDirecta Then If Not ErrorMovInv Then - CveMovtoSalidaDirecta = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 3, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio), MovimientoFijo:=True, CveMovimientoRelacionado:=CveMovimiento, Remision:=TxtRemision.Text, CveVendedor:=CveVendedor, CveCliente:=CveCliente) + Dim CveVenta As Integer = 0 + Dim Dt As DataTable + + If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then + If ObjInventario.DtResultados.Rows.Count > 0 Then + Dt = ObjInventario.DtResultados + CveVenta = ObjInventario.DtResultados.Rows(0)("CveVenta").ToString.ToEntero + End If + End If + + CveMovtoSalidaDirecta = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 3, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio), MovimientoFijo:=True, CveMovimientoRelacionado:=CveMovimiento, Remision:=TxtRemision.Text, CveVendedor:=CveVendedor, CveCliente:=CveCliente) FolioSalidaDirecta = ObjInventario.Folio If Not CveMovtoSalidaDirecta > 0 Then @@ -2119,14 +2129,12 @@ Partial Class Inventarios_RecepcionAlmacen End If If Not ErrorMovInv Then - If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then - For Each Dr As DataRow In ObjInventario.DtResultados.Rows - If Not ObjInventario.AddMovimientoDetalle(CveMovtoSalidaDirecta, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDouble, Dr("CveAF").ToString.ToEntero, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then - ErrorMovInv = True - Exit For - End If - Next - End If + For Each Dr As DataRow In Dt.Rows + If Not ObjInventario.AddMovimientoDetalle(CveMovtoSalidaDirecta, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDouble, Dr("CveAF").ToString.ToEntero, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + ErrorMovInv = True + Exit For + End If + Next End If If Not ErrorMovInv Then diff --git a/LogMail.txt b/LogMail.txt index 00f4b2bed..f636678cd 100644 --- a/LogMail.txt +++ b/LogMail.txt @@ -4,4 +4,4 @@ en ClsSisMail.FinalSend(Mail ObjMail) en C:\inetpub\WWWSIGIT\App_Code\ClsSisMail.vb:línea 129 05/09/2019:12:31 p. m. From:'signotificaciones@adssistemas.mx' - Para:';' - Asunto:'Envío de complemento de pago' - CCP: '' - Adjuntos: 2 - Ocurrió un error al mandar correo.System.InvalidOperationException: Se debe especificar un destinatario. en System.Net.Mail.SmtpClient.Send(MailMessage message) - en ClsSisMail.FinalSend(Mail ObjMail) en C:\inetpub\WWWSIGIT\App_Code\ClsSisMail.vb:línea 129 \ No newline at end of file + en ClsSisMail.FinalSend(Mail ObjMail) en C:\inetpub\WWWSIGIT\App_Code\ClsSisMail.vb:línea 129 10/09/2019:12:16 p. m. From:'signotificaciones@adssistemas.mx' - Para:'DSDDS@hotmail.com' - Asunto:'SIG - La Orden Compra #26598 cambió de estatus.' - CCP: '' - Adjuntos: 0 10/09/2019:02:58 p. m. No se especifico a remitente - SIG - La Orden Compra #28107 cambió de estatus. \ No newline at end of file From 4895cb99e67ba9cb4bfb8402bf8724af50b60ebe Mon Sep 17 00:00:00 2001 From: Raul Pimienta Date: Tue, 10 Sep 2019 17:14:45 -0700 Subject: [PATCH 5/9] Soporte Compras y Ventas --- Compras/Compras.aspx.vb | 6 +++--- Ventas/Ventas.aspx.vb | 9 +++++---- 2 files changed, 8 insertions(+), 7 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index bb6ac059f..08c098bd7 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -7951,7 +7951,7 @@ Partial Class Compras_Compras ImporteMovimiento = 0 IdCtaContable = 0 CveCuenta = 0 - Dim Concepto As String = "" + Dim Concepto As String = String.Format("{0}-{1}", TxtSerie.Text, TxtFolio.Text) Dim importeMN As Decimal = 0 Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, 1, -1) Dim PorcentajeImpuesto As Decimal = 0 @@ -13440,7 +13440,7 @@ Partial Class Compras_Compras Protected Sub BtnRefacturacionVer_Click(sender As Object, e As EventArgs) Handles BtnRefacturacionVer.Click Dim Opcion As Integer = 1 - If UsuarioActual.CveEmpresa = 119 Then Opcion = 2 + If UsuarioActual.CveEmpresa.Contiene(119, 72) Then Opcion = 2 Dim ObjCompras As New ClsCompras @@ -14553,7 +14553,7 @@ Partial Class Compras_Compras End If End If - If Math.Abs(HdnIEPSModificadoOC.Value.ToDecimal - LbIEPSOC2.Text.ToDecimal) > 0.05 Then + If Math.Abs(HdnIEPSModificadoOC.Value.ToDecimal - LbIEPSOC2.Text.ToDecimal) > 0.05 AndAlso UsuarioActual.CveEmpresa.Contiene(119) Then Alert($"Hay una diferencia de IEPS entre la factura y la OC. Dif: {HdnIEPSModificadoOC.Value.ToDecimal - LbIEPSOC2.Text.ToDecimal}", TipoMensaje.MsgAdvertencia) Exit Sub End If diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index b217b5626..8e0f54237 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -9370,8 +9370,8 @@ Partial Class Ventas Importe91 = Dr("Importe").ToString.ToDecimal ImporteMN91 = Dr("Importe").ToString.ToDecimal * TipoCambioNC ElseIf DdlMoneda.SelectedValue.ToEntero = 1 AndAlso Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then - Importe251 = Dr("Importe").ToString.ToDecimal - Importe91 = Dr("Importe").ToString.ToDecimal + + Importe91 = Dr("Importe").ToString.ToDecimal / TipoCambioNC ImporteMN91 = Dr("Importe").ToString.ToDecimal End If @@ -9385,7 +9385,8 @@ Partial Class Ventas ElseIf DdlMoneda.SelectedValue.ToEntero = 2 AndAlso Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then ImporteMN251 = Dr("Importe").ToString.ToDecimal * TCFluctuacion ElseIf DdlMoneda.SelectedValue.ToEntero = 1 AndAlso Dr("TCCambioValuacion").ToString.ToDecimal > 1 Then - ImporteMN251 = Dr("Importe").ToString.ToDecimal / TipoCambioNC + Importe251 = Dr("Importe").ToString.ToDecimal / TCFluctuacion + ImporteMN251 = Dr("Importe").ToString.ToDecimal Else ImporteMN251 = Dr("Importe").ToString.ToDecimal End If @@ -19928,7 +19929,7 @@ Partial Class Ventas Private Sub CargaCxC() Dim ObjMovtos As New ClsMovimientos() - If ObjMovtos.GetCxCClienteDetalle(ViewState("CveCliente").ToString.ToEntero, "-1", "-1", DdlMoneda.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, DdlSucursalCliente.SelectedValue.ToEntero) Then + If ObjMovtos.GetCxCClienteDetalle(ViewState("CveCliente").ToString.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, DdlSucursalCliente.SelectedValue.ToEntero) Then Dim DtTemporal As DataTable = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act' AND CveVenta > 0", "Moneda, OrdenVencimiento, FechaVencimiento") GvCxC.DataSource = DtTemporal End If From 0213d4a945ed175839205d557466f0d9ebc4d4d9 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 10 Sep 2019 18:09:30 -0700 Subject: [PATCH 6/9] Verificar estatus de devolucion --- Ventas/Ventas.aspx.vb | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index fc07aca1c..fdc5e0ec5 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -16526,18 +16526,24 @@ Partial Class Ventas End Sub Protected Sub LBDevolucionAlmacen_Click(sender As Object, e As EventArgs) Dim ObjVentas As New ClsVentas + If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then + If ObjVentas.DtResultados.Rows.Count > 0 Then + Dim DbRowVenta As DataRow = ObjVentas.DtResultados.Rows(0) + Me.DevolucionAlmacen = DbRowVenta("EsDevolucionVenta").ToString.ToEntero + End If + End If - Dim EstatusDevolucion = If(DevolucionAlmacen = 0, 1, 0) + Dim EstatusDevolucion = If(Me.DevolucionAlmacen = 0, 1, 0) If ObjVentas.UpdateVentasDevolucionAlmacen(EstatusDevolucion, CveVenta) Then Alert("La solicitud de Devolución de Almacén se guardó correctamente") End If + ObjVentas.Dispose() - DevolucionAlmacen = EstatusDevolucion + Me.DevolucionAlmacen = EstatusDevolucion InicializaDevolucionAlmacen() UpnTools.Update() - ObjVentas.Dispose() End Sub #End Region From 0e24e74e4d9b554bc6b5f77f0bb769d2c54bbe34 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 10 Sep 2019 18:11:50 -0700 Subject: [PATCH 7/9] Tareas varias --- App_Code/ClsInventarios.vb | 19 +- Bancos/RepProgramarRecursos.aspx | 1 - Bancos/RepProgramarRecursos.aspx.vb | 134 +- Empresas/Grales/Formatos/RepAlmacen.rdlc | 1645 ++++++++++--------- Inventarios/InventarioFisicoDetalle.aspx | 628 +++---- Inventarios/InventarioFisicoDetalle.aspx.vb | 128 +- Inventarios/RepAlmacen.aspx | 492 +++--- Inventarios/RepAlmacen.aspx.vb | 38 +- LogMail.txt | 2 +- 9 files changed, 1627 insertions(+), 1460 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index dd3d1ade6..70be6dfdb 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -300,7 +300,8 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetRepAlmacenes(FechaInicio As String, FechaFin As String, CveEmpresa As Integer, CveTipoAlmacen As String, Contabilizable As Integer, Inventariable As Boolean, Optional SoloMovimientosContables As Boolean = False) As Boolean + Public Function GetRepAlmacenes(FechaInicio As String, FechaFin As String, CveEmpresa As Integer, CveTipoAlmacen As String, Contabilizable As Integer, Inventariable As Boolean, + Optional SoloMovimientosContables As Boolean = False, Optional Almacenes As String = "-1", Optional CveSubProyecto As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_AlmacenesRepGet") @@ -311,7 +312,9 @@ Public Class ClsInventarios .Add("@CveTipoAlmacen", SqlDbType.VarChar).Value = CveTipoAlmacen .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable .Add("@SoloMovimientosContables", SqlDbType.Bit).Value = SoloMovimientosContables - .Add("@Modalidad", SqlDbType.Int).Value = Contabilizable + .Add("@Modalidad", SqlDbType.Int).Value = Contabilizable + .Add("@Almacenes", SqlDbType.VarChar).Value = Almacenes + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto End With Try SqlAdapter.Fill(Data) @@ -2415,15 +2418,15 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetInventarioFisicoDetalle(CveInventarioFisico As Integer, CveUsuario As Integer) As Boolean + Public Function GetInventarioFisicoDetalle(CveInventarioFisico As Integer, CveUsuario As Integer, Optional Agrupar As Boolean = False) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_InventarioFisicoDetalleGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Agrupar", SqlDbType.Bit).Value = Agrupar End With Try @@ -2438,10 +2441,10 @@ Public Class ClsInventarios End Try Return Retorno - End Function - + End Function + #End Region - + #Region "I N V E N T A R I O - F I S I C O - R E S U L T A D O" Public Function AddInventarioFisicoResultados(CveInventarioFisico As Integer, CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False diff --git a/Bancos/RepProgramarRecursos.aspx b/Bancos/RepProgramarRecursos.aspx index 2bcb515c3..cdb2fcca3 100644 --- a/Bancos/RepProgramarRecursos.aspx +++ b/Bancos/RepProgramarRecursos.aspx @@ -380,7 +380,6 @@ <%# Eval("RazonSocial")%> -
 /  diff --git a/Bancos/RepProgramarRecursos.aspx.vb b/Bancos/RepProgramarRecursos.aspx.vb index 042f0f391..e859a9868 100644 --- a/Bancos/RepProgramarRecursos.aspx.vb +++ b/Bancos/RepProgramarRecursos.aspx.vb @@ -3,10 +3,10 @@ Imports Extensiones Imports Microsoft.Reporting.WebForms Partial Class Bancos_RepProgramarRecursos - Inherits ClsPaginas - + Inherits ClsPaginas + #Region "P R O P I E D A D E S" - + Private Property DtDatos As DataTable Get Return CType(ViewState("DtDatos"), DataTable) @@ -80,9 +80,9 @@ Partial Class Bancos_RepProgramarRecursos Set(value As String) ViewState("UsuarioProgramo") = value End Set - End Property + End Property #End Region - + Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then DdlUsuarioProgramo.Visible = False @@ -501,7 +501,6 @@ Partial Class Bancos_RepProgramarRecursos Protected Sub BtnProgramar_Click(sender As Object, e As EventArgs) Handles BtnProgramar.Click Dim CveUsuario As Integer = UsuarioActual.CveUsuario - If UsuarioActual.Empresa.Funcionalidad(138) = "1" Then 'Validación del SAT - DF 21/01/17 Dim Validada As Boolean = False @@ -596,18 +595,18 @@ Partial Class Bancos_RepProgramarRecursos MsgError &= "No se pudo programar la factura
" End If End If - Next - - TxtCodigoP.Text = "" + Next + Comp.Dispose() + TxtCodigoP.Text = "" + If MsgError <> "" Then Alert(MsgError, TipoMensaje.MsgError) Else - Alert("La programación se guardó correctamente", TipoMensaje.MsgInformacion) + Alert("La programación se guardó correctamente", TipoMensaje.MsgInformacion) + EnviaCorreoNotificacion() End If - - Comp.Dispose() CargaDatos() 'Recarga DdlUsuarioProgramo @@ -623,6 +622,105 @@ Partial Class Bancos_RepProgramarRecursos End If ObjUsuarios.Dispose() End Sub + Private Sub EnviaCorreoNotificacion() + If UsuarioActual.CveEmpresa = 13 Then + + Dim strBody As New StringBuilder + Try + strBody.Append(" ") + strBody.Append(" ") + strBody.Append(" ") + strBody.Append(" ") + strBody.Append(" ") + 'Cargo el detalle + strBody.Append("
") + strBody.Append("
") + strBody.Append(" Compras Programadas ") + strBody.Append(" ") + strBody.Append(" ") + + For Each gvr As GridViewRow In Gv.Rows + If gvr.FCCheckBox("Chk").Checked Then + Dim SerieFolio = gvr.DataKey("SerieFolio") + Dim Importe = gvr.DataKey("Original").ToDouble.FormatoNumero() + Dim ImporteProgramo = gvr.FCTextBox("TxtS").Text.ToDouble.FormatoNumero() + + strBody.Append($"") + End If + Next + + strBody.Append("
Serie-Folio FechaImporteImporte Programado
{SerieFolio}{DateTime.Now}{Importe}{ImporteProgramo}
") + strBody.Append("
") + strBody.Append("
") + strBody.Append("") + + Try + + Dim Correo As String = "" '"rpenunuriv@hotmail.com" + 'Rafael Peñuñuri + Dim ObjUsuarios As New ClsSisUsuarios + If ObjUsuarios.GetUsuarios(293) Then + If ObjUsuarios.DtResultados.Rows.Count > 0 Then + Correo = ObjUsuarios.DtResultados.Rows(0)("Correo").ToString() + End If + End If + ObjUsuarios.Dispose() + + Dim Asunto As String = "SIG - Se programaron las siguientes facturas" + Dim Mail As New ClsSisMail() + Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo, Asunto, strBody.ToString()) + Catch ex As Exception + OnError("Ocurrió error al mandar MAIL por cambio de Estatus", ex) + End Try + Catch ex As Exception + OnError("Ocurrio un error al general el correo.", ex) + End Try + End If + End Sub Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click CargaDatos() End Sub @@ -795,8 +893,8 @@ Partial Class Bancos_RepProgramarRecursos End If ObjMovimientos.Dispose() End If - End Sub - + End Sub + #Region "C R E D I T O S - V E N C I M I E N T O" Private Sub CargaCreditosVencimiento() Dim ObjCreditos As New ClsBancos @@ -826,9 +924,9 @@ Partial Class Bancos_RepProgramarRecursos End If GvV.DataBind() UPDatos.Update() - End Sub + End Sub #End Region - - - + + + End Class diff --git a/Empresas/Grales/Formatos/RepAlmacen.rdlc b/Empresas/Grales/Formatos/RepAlmacen.rdlc index b13cca5d5..fa9f1d6cf 100644 --- a/Empresas/Grales/Formatos/RepAlmacen.rdlc +++ b/Empresas/Grales/Formatos/RepAlmacen.rdlc @@ -1,821 +1,826 @@ - - - - - - - - - - - - true - true - - - - - Almacén - - - - - - - Textbox28 - - - - - - Gray - 2pt - 2pt - 2pt - 1pt - - - - - - - - - - - 2.5cm - - - 3.17009cm - - - 6.13624cm - - - - - 0.3751cm - - - - - true - - - - - =Fields!Existencia.Value - - - - - - - Existencia - - - 2pt - 2pt - 1pt - 1pt - - - - - - - - true - - - - - =Fields!Total.Value - - - - - - - Total - - - 2pt - 2pt - 1pt - 1pt - - - - - - - - true - - - - - =Fields!TipoAlmacen.Value - - - - - - - TipoAlmacen - - - 2pt - 2pt - 1pt - 1pt - - - - - - - - - - - - - 0.3751cm - - - true - true - - - - - Existencia - - - - - - - Textbox3 - - - Gray - 2pt - 2pt - 2pt - 1pt - - - - - - - - 0.3751cm - - - true - true - - - - - Total - - - - - - - Textbox40 - - - Gray - 2pt - 2pt - 2pt - 1pt - - - - - - - - 0.3751cm - - - true - true - - - - - Tipo Almacén - - - - - - - Textbox42 - - - Gray - 2pt - 2pt - 2pt - 1pt - - - - - - - - - - - - - =Fields!Almacen.Value - - - - - =Fields!Almacen.Value - - - - 6.90208cm - - - true - - - - - =Fields!Almacen.Value - - - - - - 2pt - 2pt - 1pt - 1pt - - - - - - - - DataSet1 - 0.38751in - 0.7502cm - 18.70841cm - - - - - - true - true - - - - - =Parameters!Filtros.Value - HTML - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 0.81828in - - - - - - - Textbox1 - 0.18521cm - 3.59188cm - 0.6cm - 12.60299cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - REPORTE DE ALMACENES - - - - - - - - - - - - - - - - Textbox2 - 1.10271cm - 3.59188cm - 0.52945cm - 12.60299cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!LogoPath.Value - FitProportional - 0.04167in - 0.42624cm - 2.22362cm - 2.33715cm - 2 - - - - - - - - - - - 0.94391cm - true - true - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox3 - 0.06cm - 16.60846cm - 0.68085cm - 2.43629cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Usuario: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Globals!ExecutionTime - - - - - - - Textbox11 - 0.06cm - 10.20228cm - 0.68085cm - 4.64495cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - 0cm - 0cm - 0cm - 19.26933cm - 5 - - - - - - true - true - - - - - IMPRESO EN SIG, Rep. Almacén - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 29.7cm - 21cm - 0.5cm - 0.5cm - 1cm - 1cm - 0.13cm - + + + + + + Textbox28 + + + + + + Gray + 2pt + 2pt + 2pt + 1pt + + + + + + + + + + + 2.5cm + + + 3.17009cm + + + 6.13624cm + + + + + 0.3751cm + + + + + true + + + + + =Fields!Existencia.Value + + + + + + + Existencia + + + =IIF(Fields!Almacen.Value="Total","#67809F","White") + 2pt + 2pt + 1pt + 1pt + + + + + + + + true + + + + + =Fields!Total.Value + + + + + + + Total + + + =IIF(Fields!Almacen.Value="Total","#67809F","White") + 2pt + 2pt + 1pt + 1pt + + + + + + + + true + + + + + =Fields!TipoAlmacen.Value + + + + + + + TipoAlmacen + + + =IIF(Fields!Almacen.Value="Total","#67809F","White") + 2pt + 2pt + 1pt + 1pt + + + + + + + + + + + + + 0.3751cm + + + true + true + + + + + Existencia + + + + + + + Textbox3 + + + Gray + 2pt + 2pt + 2pt + 1pt + + + + + + + + 0.3751cm + + + true + true + + + + + Total + + + + + + + Textbox40 + + + Gray + 2pt + 2pt + 2pt + 1pt + + + + + + + + 0.3751cm + + + true + true + + + + + Tipo Almacén + + + + + + + Textbox42 + + + Gray + 2pt + 2pt + 2pt + 1pt + + + + + + + + + + + + + =Fields!Almacen.Value + + + + + =Fields!Almacen.Value + + + + 6.90208cm + + + true + + + + + =Fields!Almacen.Value + + + + + + =IIF(Fields!Almacen.Value="Total","#67809F","White") + 2pt + 2pt + 1pt + 1pt + + + + + + + + DataSet1 + 0.38751in + 0.7502cm + 18.70841cm + + + + + + true + true + + + + + =Parameters!Filtros.Value + HTML + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.81828in + + + + + + + Textbox1 + 0.18521cm + 3.59188cm + 0.6cm + 12.60299cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE DE ALMACENES + + + + + + + + + + + + + + + + Textbox2 + 1.10271cm + 3.59188cm + 0.52945cm + 12.60299cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.04167in + 0.42624cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.94391cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.06cm + 16.60846cm + 0.68085cm + 2.43629cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox11 + 0.06cm + 10.20228cm + 0.68085cm + 4.64495cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + 0cm + 19.26933cm + 5 + + + + + + true + true + + + + + IMPRESO EN SIG, Rep. Almacén + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.5cm + 0.5cm + 1cm + 1cm + 0.13cm + - - - - - -
  • - -
    • -
  • - -
    • -
  • - Imprimir PDF -
    • -
  • - Imprimir EXCEL -
    • - -     - - Inventario Físico Detalle - - - - - - -
    - -
    -
    -
    -
    - -
    -
    +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="InventarioFisicoDetalle.aspx.vb" Inherits="Inventarios_InventarioFisicoDetalle" %> + + + + + + + + +
  • + +
    • +
  • + +
    • +
  • + Imprimir PDF +
    • +
  • + Imprimir PDF +
    • +
  • + Imprimir EXCEL +
    • + +     + + Inventario Físico Detalle + + + + + + +
    + +
    +
    +
    +
    + +
    +
    Información del movimiento -
    -
    -
    - - - - - - - - - - - - - - - - - - - - -
    - - - - - - - - -
    - - - - - - - - - - -
         -
         -
    -      -
         -
    -      -
    - - - - -
    - - -
    -
    -
    -
    - -
    - - - -
    -
    -
    - -
    -
    + +
    +
    +
    + + + + + + + + + + + + + + + + + + + + +
    + + + + + + + + +
    + + + + + + + + + + +
         +
         +
    +      +
         +
    +      +
    + + + + +
    + + +
    +
    +
    +
    + + + +
    + +
    +
    +
    + +
    +
    Agregar Producto -
    -
    -
    -
    - -
    - - - -
    -
    -
    - -
    - -
    -
    -
    - -
    - -
    -
    -
    - -
    - - - - -
    -
    -
    -
    - -
    -
    -
    -
    -     - - -
    -
    - - -
    - -
    - - - - - - - - - - -
    -
    - -
    -
    -
    - - - - - - - - - - - - - - - - -     - - - -     - -     - - - - + +
    +
    +
    +
    + +
    + + + +
    +
    +
    + +
    + +
    +
    +
    + +
    + +
    +
    +
    + +
    + + + + +
    +
    +
    +
    + +
    +
    +
    +
    + +
    + + + +
    + + +
    + +
    + + + + + + + + + + +
    +
    + +
    +
    +
    + + + + + + + + + + + + + + + + +     + + + +     + +     + + + + - - + + + diff --git a/Inventarios/InventarioFisicoDetalle.aspx.vb b/Inventarios/InventarioFisicoDetalle.aspx.vb index 0f2a5afd9..ba4af4ee1 100644 --- a/Inventarios/InventarioFisicoDetalle.aspx.vb +++ b/Inventarios/InventarioFisicoDetalle.aspx.vb @@ -88,44 +88,42 @@ Partial Class Inventarios_InventarioFisicoDetalle #Region " CARGA DATOS " Private Sub CargaDatos(CveInventarioFisico As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1) - Dim Inventario As New ClsInventarios + Dim ObjInventario As New ClsInventarios + If ObjInventario.GetInventarioFisico(CveInventarioFisico, CveEmpresa, -1, -1) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then + Dim CveEstatus = ObjInventario.DtResultados.FiltroPrimeroValor("CveEstatus") + Select Case CveEstatus + Case "0" 'NUEVO + CveSubProyecto = ObjInventario.CveSubProyectoInventario + lbTitulo.Text = ObjInventario.InventarioFisico + lbObservaciones.Text = ObjInventario.Observaciones + lbSubProyecto.Text = ObjInventario.SubProyectoInventario + lbEstatus.Text = ObjInventario.Estatus - If Inventario.GetInventarioFisico(CveInventarioFisico, CveEmpresa, -1, -1) Then - - Select Case Inventario.Estatus - Case "Nuevo" - CveSubProyecto = Inventario.CveSubProyectoInventario - lbTitulo.Text = Inventario.InventarioFisico - lbObservaciones.Text = Inventario.Observaciones - lbSubProyecto.Text = Inventario.SubProyectoInventario - lbEstatus.Text = Inventario.Estatus - - lbFechaF.Text = Inventario.FechaF + lbFechaF.Text = ObjInventario.FechaF btnFin.Text = "Iniciar" BtnGuardar.Enabled = False btnFin.ToolTip = "Inicia el Inventario Físico" - Case "Finalizado" + Case "3" 'FINALIZADO GvIFD.Columns(6).Visible = False - PAgregar.Visible = False - 'BtnGuardar.Visible = False + PAgregar.Visible = False + BtnGuardar.Enabled = False + BtnGuardar.Visible = False btnFin.Visible = False - 'BtnGuardar.Enabled = False - 'PAgregar.Visible = False - CveSubProyecto = Inventario.CveSubProyectoInventario - lbTitulo.Text = Inventario.InventarioFisico - lbObservaciones.Text = Inventario.Observaciones - lbSubProyecto.Text = Inventario.SubProyectoInventario - lbEstatus.Text = Inventario.Estatus - lbFechaI.Text = Inventario.FechaI - lbFechaF.Text = Inventario.FechaF - Case Else ' en proceso - CveSubProyecto = Inventario.CveSubProyectoInventario - lbTitulo.Text = Inventario.InventarioFisico - lbObservaciones.Text = Inventario.Observaciones - lbEstatus.Text = Inventario.Estatus - lbSubProyecto.Text = Inventario.SubProyectoInventario - lbFechaI.Text = Inventario.FechaI - lbFechaF.Text = Inventario.FechaF + CveSubProyecto = ObjInventario.CveSubProyectoInventario + lbTitulo.Text = ObjInventario.InventarioFisico + lbObservaciones.Text = ObjInventario.Observaciones + lbSubProyecto.Text = ObjInventario.SubProyectoInventario + lbEstatus.Text = ObjInventario.Estatus + lbFechaI.Text = ObjInventario.FechaI + lbFechaF.Text = ObjInventario.FechaF + Case "1", "2" ' EN PROCESO,EN ESPERA + CveSubProyecto = ObjInventario.CveSubProyectoInventario + lbTitulo.Text = ObjInventario.InventarioFisico + lbObservaciones.Text = ObjInventario.Observaciones + lbEstatus.Text = ObjInventario.Estatus + lbSubProyecto.Text = ObjInventario.SubProyectoInventario + lbFechaI.Text = ObjInventario.FechaI + lbFechaF.Text = ObjInventario.FechaF BtnGuardar.Enabled = True btnFin.Text = "Finalizar" LBAvance.Visible = UsuarioActual.TienePermisoProceso(178) ' si tiene permiso de ver el avance, se activa @@ -133,8 +131,8 @@ Partial Class Inventarios_InventarioFisicoDetalle GvIFD.Visible = False DivBuscador.Visible = False - If Inventario.GetInventarioFisicoDetallesAlmacen(CveInventarioFisico, UsuarioActual.CveEmpresa) Then - Dim dt As DataTable = Inventario.DtResultados + If ObjInventario.GetInventarioFisicoDetallesAlmacen(CveInventarioFisico, UsuarioActual.CveEmpresa) Then + Dim dt As DataTable = ObjInventario.DtResultados Dim str As New StringBuilder If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then @@ -144,8 +142,9 @@ Partial Class Inventarios_InventarioFisicoDetalle End If LblAlmacenes.Text = str.ToString End If - If Inventario.GetInventarioFisicoDetallesClasificacion(CveInventarioFisico, UsuarioActual.CveEmpresa) Then - Dim dt As DataTable = Inventario.DtResultados + + If ObjInventario.GetInventarioFisicoDetallesClasificacion(CveInventarioFisico, UsuarioActual.CveEmpresa) Then + Dim dt As DataTable = ObjInventario.DtResultados Dim str As New StringBuilder If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then @@ -161,8 +160,9 @@ Partial Class Inventarios_InventarioFisicoDetalle End If End If - If Inventario.GetInventarioFisicoDetallesProductosServicios(CveInventarioFisico, UsuarioActual.CveEmpresa) Then - Dim dt As DataTable = Inventario.DtResultados + + If ObjInventario.GetInventarioFisicoDetallesProductosServicios(CveInventarioFisico, UsuarioActual.CveEmpresa) Then + Dim dt As DataTable = ObjInventario.DtResultados Dim str As New StringBuilder If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then @@ -179,18 +179,32 @@ Partial Class Inventarios_InventarioFisicoDetalle End If - If Inventario.GetInventarioFisicoDetalle(CveInventarioFisico, CveUsuario) Then - If Inventario.DtResultados.Rows.Count > 0 Then - GvIFDUltimoRegistrado.DataSource = Inventario.DtResultados.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(1).CopyToDataTable + If ObjInventario.GetInventarioFisicoDetalle(CveInventarioFisico, CveUsuario) Then + If ObjInventario.DtResultados.Rows.Count > 0 Then + GvIFDUltimoRegistrado.DataSource = ObjInventario.DtResultados.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(1).CopyToDataTable Else GvIFDUltimoRegistrado.DataSource = Nothing End If - DtDatos = Inventario.DtResultados - End If + DtDatos = ObjInventario.DtResultados + End If + Else + GvIFD.Columns(6).Visible = False + PAgregar.Visible = False + BtnGuardar.Enabled = False + BtnGuardar.Visible = False + btnFin.Visible = False + CveSubProyecto = ObjInventario.CveSubProyectoInventario + lbTitulo.Text = ObjInventario.InventarioFisico + lbObservaciones.Text = ObjInventario.Observaciones + lbSubProyecto.Text = ObjInventario.SubProyectoInventario + lbEstatus.Text = ObjInventario.Estatus + lbFechaI.Text = ObjInventario.FechaI + lbFechaF.Text = ObjInventario.FechaF + Alert("Ocurrió un error al obterner el inventario fisico") End If - Inventario.Dispose() + ObjInventario.Dispose() GvIFDUltimoRegistrado.DataBind() 'If (GvIFD.Rows.Count > 0) Then @@ -397,20 +411,30 @@ Partial Class Inventarios_InventarioFisicoDetalle #Region " VER AVANCE " Protected Sub LBAvance_Click(sender As Object, e As EventArgs) Response.Redirect($"~/Inventarios/RepAnomalias.aspx?CveInventarioFisico={CveInventarioFisico}&EsAvance=1") - End Sub - - + End Sub + + #End Region - + #Region "I M P R I M I R" Private Sub LnkPDF_Click(sender As Object, e As EventArgs) Handles LnkPDF.Click Impimir(Formato:="PDF") + End Sub + Private Sub LnkPDFResumido_Click(sender As Object, e As EventArgs) Handles LnkPDFResumido.Click + Impimir(Formato:="PDF", Agrupar:=True) End Sub Private Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click Impimir(Formato:="EXCEL") End Sub - Protected Sub Impimir(Optional Formato As String = "PDF") + Protected Sub Impimir(Optional Formato As String = "PDF", Optional Agrupar As Boolean = False) + Dim DtDatos As New DataTable + Dim ObjInventario As New ClsInventarios() + If ObjInventario.GetInventarioFisicoDetalle(CveInventarioFisico, UsuarioActual.CveUsuario, Agrupar:=Agrupar) Then + DtDatos = ObjInventario.DtResultados + End If + ObjInventario.Dispose() + If DtDatos IsNot Nothing Then Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepAnomalias.rdlc", UsuarioActual.Empresa.Ruta)) Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) @@ -441,8 +465,8 @@ Partial Class Inventarios_InventarioFisicoDetalle Else Alert("No se encontraron resultado", TipoMensaje.MsgAdvertencia) End If - End Sub - + End Sub + #End Region - + End Class diff --git a/Inventarios/RepAlmacen.aspx b/Inventarios/RepAlmacen.aspx index 589f572a3..77782e614 100644 --- a/Inventarios/RepAlmacen.aspx +++ b/Inventarios/RepAlmacen.aspx @@ -1,258 +1,278 @@ -<%@ Page Title="REPORTE DE ALMACÉN" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAlmacen.aspx.vb" Inherits="Inventarios_RepAlmacen" %> - - - - - - - - REPORTE DE ALMACÉN - - - - -
  • - PDF -
    • -
  • - Excel -
    • - - -
  • - Ver Grafica -
    • -     -     -     - - - -
    -
    -
    - - "> - -
    -
    -
    -
    Fecha Inicio:
    -
    -
    - - - - -
    - - -
    - -
    Fecha Fin:
    -
    -
    - - - - -
    - - -
    - -
    Tipo Almacen:
    -
    - -
    - -
    Modalidad:
    -
    - - - - - -
    - - -
    -
    -
    -
    -     -     - - - - - - - - <%# Eval("Almacen") %> - - - - - - - - - - - - - - - - - - - - - - - - - -     - - - - - - - - +<%@ Page Title="REPORTE DE ALMACÉN" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAlmacen.aspx.vb" Inherits="Inventarios_RepAlmacen" %> + + + + + + + + REPORTE DE ALMACÉN + + + + +
  • + PDF +
    • +
  • + Excel +
    • + + +
  • + Ver Grafica +
    • +     +     +     + + + +
    +
    +
    + + "> + +
    +
    +
    +
    Fecha Inicio:
    +
    +
    + + + + +
    + + +
    +
    Fecha Fin:
    +
    +
    + + + + +
    + + +
    +
    Almacen:
    +
    + +
    +
    Tipo Almacen:
    +
    + +
    +
    +
    +
    + +
    +     +     + + + + + + + + <%# Eval("Almacen") %> + + + + + + + + + + + + + + + + + + + + + + + + + +     + + + + + + + + - - + +     + diff --git a/Inventarios/RepAlmacen.aspx.vb b/Inventarios/RepAlmacen.aspx.vb index 62e55a98d..027c6d4e7 100644 --- a/Inventarios/RepAlmacen.aspx.vb +++ b/Inventarios/RepAlmacen.aspx.vb @@ -6,9 +6,9 @@ Imports System.Data Imports Microsoft.Reporting.WebForms Partial Class Inventarios_RepAlmacen - Inherits ClsPaginas - - + Inherits ClsPaginas + + #Region "PROPIEDADES" Private Property TmpDT As DataTable Get @@ -25,7 +25,7 @@ Partial Class Inventarios_RepAlmacen Set(value As DataTable) ViewState("DtColor") = value End Set - End Property + End Property #End Region Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not IsPostBack Then @@ -39,6 +39,15 @@ Partial Class Inventarios_RepAlmacen DdlTipoAlmacen.DataSource = GlobalDTTipoAlmacen(1) DdlTipoAlmacen.DataBind() DdlTipoAlmacen.Items.Insert(0, New ListItem("Todos", "-1")) + + DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + DdlAlmacen.DataBind() + DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1")) + + DdlSucursal.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, CveEstatus:=1) + DdlSucursal.DataBind() + DdlSucursal.Items.Insert(0, New ListItem("Todas", "-1")) + End Sub Private Sub CargaDatos() @@ -48,8 +57,11 @@ Partial Class Inventarios_RepAlmacen FechaI = If(IsDate(TxtFechaI.Text.Trim()), TxtFechaI.Text.Trim(), "-1") FechaF = If(IsDate(TxtFechaF.Text.Trim()), TxtFechaF.Text.Trim(), "-1") Dim TipoAlmacen As String = If(DdlTipoAlmacen.GetSelectedValuesM = "", "-1", DdlTipoAlmacen.GetSelectedValuesM) + Dim Almacenes As String = If(DdlAlmacen.GetSelectedValuesM = "", "-1", DdlAlmacen.GetSelectedValuesM) + Dim CveSubProyecto As Integer = DdlSucursal.SelectedValue.ToEntero() - If objInv.GetRepAlmacenes(FechaI, FechaF, UsuarioActual.CveEmpresa, TipoAlmacen, DdlModalidadFiltro.SelectedValue.ToEntero, ChkInventariable.Checked) Then + If objInv.GetRepAlmacenes(FechaI, FechaF, UsuarioActual.CveEmpresa, TipoAlmacen, DdlModalidadFiltro.SelectedValue.ToEntero, ChkInventariable.Checked, + Almacenes:=Almacenes, CveSubProyecto:=CveSubProyecto) Then GVAlmacen.DataSource = objInv.DtResultados TmpDT = objInv.DtResultados End If @@ -60,8 +72,8 @@ Partial Class Inventarios_RepAlmacen Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click CargaDatos() UpDatos.Update() - End Sub - + End Sub + #Region "I M P R I M I R " Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click @@ -98,11 +110,11 @@ Partial Class Inventarios_RepAlmacen e.Row.CssClass = "Totales" End If End If - End Sub + End Sub #End Region - + #Region "GRAFICA" - + Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs) If Not TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then Alert("No hay datos disponibles", TipoMensaje.MsgAdvertencia) @@ -227,8 +239,8 @@ Partial Class Inventarios_RepAlmacen Protected Sub DdlVer_SelectedIndexChanged(sender As Object, e As EventArgs) CambioGrafica() - End Sub - + End Sub + #End Region - + End Class diff --git a/LogMail.txt b/LogMail.txt index 00f4b2bed..0ac18eb14 100644 --- a/LogMail.txt +++ b/LogMail.txt @@ -4,4 +4,4 @@ en ClsSisMail.FinalSend(Mail ObjMail) en C:\inetpub\WWWSIGIT\App_Code\ClsSisMail.vb:línea 129 05/09/2019:12:31 p. m. From:'signotificaciones@adssistemas.mx' - Para:';' - Asunto:'Envío de complemento de pago' - CCP: '' - Adjuntos: 2 - Ocurrió un error al mandar correo.System.InvalidOperationException: Se debe especificar un destinatario. en System.Net.Mail.SmtpClient.Send(MailMessage message) - en ClsSisMail.FinalSend(Mail ObjMail) en C:\inetpub\WWWSIGIT\App_Code\ClsSisMail.vb:línea 129 \ No newline at end of file + en ClsSisMail.FinalSend(Mail ObjMail) en C:\inetpub\WWWSIGIT\App_Code\ClsSisMail.vb:línea 129 10/09/2019:10:34 a. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com' - Asunto:'SIG - Se programaron las siguientes facturas' - CCP: '' - Adjuntos: 0 10/09/2019:10:36 a. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com' - Asunto:'SIG - Se programaron las siguientes facturas' - CCP: '' - Adjuntos: 0 10/09/2019:10:39 a. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com' - Asunto:'SIG - Se programaron las siguientes facturas' - CCP: '' - Adjuntos: 0 \ No newline at end of file From e46e4ddbc078a2e733eb0bde3308d2ec5028fafa Mon Sep 17 00:00:00 2001 From: Raul Pimienta Date: Tue, 10 Sep 2019 18:18:46 -0700 Subject: [PATCH 8/9] Soporte doble devolucion de movimiento de ventas --- Ventas/Ventas.aspx.vb | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 3c65c9dda..857438dcd 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -16534,6 +16534,14 @@ Partial Class Ventas End If End If + If Me.DevolucionAlmacen.Contiene(2) Then + InicializaDevolucionAlmacen() + UpnTools.Update() + Alert("El movimiento ya fue devuelto.", TipoMensaje.MsgAdvertencia) + ObjVentas.Dispose() + Exit Sub + End If + Dim EstatusDevolucion = If(Me.DevolucionAlmacen = 0, 1, 0) If ObjVentas.UpdateVentasDevolucionAlmacen(EstatusDevolucion, CveVenta) Then From 28d3256b06cd8ec7e64f5bdd49d5f73488c78f38 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 10 Sep 2019 18:24:18 -0700 Subject: [PATCH 9/9] Impresion de agrupado en inventario fisico,filtro multiple almacen en RepAlmacen --- Inventarios/InventarioFisicoDetalle.aspx | 4 ++-- Inventarios/RepAlmacen.aspx | 19 +++++++++---------- Inventarios/RepAlmacen.aspx.vb | 1 + 3 files changed, 12 insertions(+), 12 deletions(-) diff --git a/Inventarios/InventarioFisicoDetalle.aspx b/Inventarios/InventarioFisicoDetalle.aspx index d92b361db..097783418 100644 --- a/Inventarios/InventarioFisicoDetalle.aspx +++ b/Inventarios/InventarioFisicoDetalle.aspx @@ -98,8 +98,8 @@
  • Imprimir PDF
    • -
  • - Imprimir PDF +
  • + Imprimir PDF Resumido
  • Imprimir EXCEL diff --git a/Inventarios/RepAlmacen.aspx b/Inventarios/RepAlmacen.aspx index 77782e614..5d4b16180 100644 --- a/Inventarios/RepAlmacen.aspx +++ b/Inventarios/RepAlmacen.aspx @@ -120,14 +120,16 @@
    -
    Tipo Almacen:
    -
    - +
    Sucursal:
    +
    + + +
    • -