From fbd225c4a72c86497d3fc5b432e271808046e1f4 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Thu, 3 Sep 2020 09:18:12 -0700 Subject: [PATCH 1/3] icono graficos Estado resultados orizontal centro de costos --- Contabilidad2/RepEstadoResultadosHorizontal.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx index 1882b08f1..c4dbe86ac 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx @@ -787,7 +787,7 @@ <%----%> - + From 97ff4bff4d10a5def602d354a93140e2b43cd694 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Thu, 3 Sep 2020 17:19:03 -0700 Subject: [PATCH 2/3] General --- AF/OrdenTrabajo.aspx.vb | 3 --- App_Code/ClsAF.vb | 8 +++++--- Bancos/ProveedoresAbonar.aspx.vb | 2 +- 3 files changed, 6 insertions(+), 7 deletions(-) diff --git a/AF/OrdenTrabajo.aspx.vb b/AF/OrdenTrabajo.aspx.vb index 632937a24..7eb814f2b 100644 --- a/AF/OrdenTrabajo.aspx.vb +++ b/AF/OrdenTrabajo.aspx.vb @@ -106,11 +106,8 @@ Partial Class AF_OrdenTrabajo Private Sub CargaDatos() - Dim ObjAF As New ClsAF - ObjAF.Dispose() - End Sub diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb index 1457316a7..b9df20682 100644 --- a/App_Code/ClsAF.vb +++ b/App_Code/ClsAF.vb @@ -4204,20 +4204,22 @@ Public Class ClsAF End Function - Public Function GetOrdenesTrabajo(CveTipoServicio As Integer, CveAF As Integer, CveSubProyecto As Integer, Prioridad As Integer, FechaInicio As Date, FechaFin As Date, FechaFinReal As Date, CveEstatusOT As Integer, CveEmpresa As Integer) As Boolean + Public Function GetOrdenesTrabajo(CveOrdenTrabajo As Integer, CveTipoServicio As Integer, Folio As Integer, CveAF As Integer, CveSubProyecto As Integer, Prioridad As Integer, FechaInicio As Date, FechaFin As Date, FechaFinReal As Date, CveEstatusOT As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_AF_OrdenesTrabajoGet") With SqlAdapter.SelectCommand.Parameters + .Add("@CveOrdenTrabajo", SqlDbType.Int).Value = CveOrdenTrabajo .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio + .Add("@Folio", SqlDbType.Int).Value = Folio .Add("@CveAF", SqlDbType.Int).Value = CveAF .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@Prioridad", SqlDbType.Int).Value = Prioridad .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio .Add("@FechaFin", SqlDbType.Date).Value = FechaFin - .Add("@FechaFinReal", SqlDbType.Date).Value = FechaFinReal + '.Add("@FechaFinReal", SqlDbType.Date).Value = FechaFinReal .Add("@CveEstatusOT", SqlDbType.Int).Value = CveEstatusOT .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa @@ -4229,7 +4231,7 @@ Public Class ClsAF SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception - OnError("Ocurrió un error al obtener los estatus", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + OnError("Ocurrió un error al consultar las ordenes de trabajo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index b5a36f751..0cfc4dcad 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -2598,7 +2598,7 @@ Partial Class Bancos_ProveedoresAbonar If Dep.DtResultados.Rows.Count > 0 Then - DdlCuentaDeposito.DataSource = Dep.DtResultados + DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" Estatus ='True'") DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) trCuentaDeposito.Visible = True From e95a1fe8464d19c9f15508b2103bcb91e2343477 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 3 Sep 2020 18:55:00 -0700 Subject: [PATCH 3/3] campo serie agregado --- App_Code/ClsInventarios.vb | 4 ++- Inventarios/TrasladoSolicitud.aspx | 10 +++++++- Inventarios/TrasladoSolicitud.aspx.vb | 37 +++++++++++++++++++-------- 3 files changed, 39 insertions(+), 12 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index f7c161809..7b066db54 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -3928,7 +3928,8 @@ Public Class ClsInventarios Return Retorno End Function - Public Function AddTrasladoSolicitudDetalle(CveTrasladoSolicitud As Integer, Cantidad As Integer, CveUM As Integer, CvePS As Integer, Precio As Double, Observaciones As String, CveContratoDetalle As Integer) As Boolean + Public Function AddTrasladoSolicitudDetalle(CveTrasladoSolicitud As Integer, Cantidad As Integer, CveUM As Integer, CvePS As Integer, Precio As Double, Observaciones As String, + CveContratoDetalle As Integer, Optional Serie As String = "-1") As Boolean Dim Retorno As Boolean = False Dim CveTraspasoSolicitud As Integer = 0 DataAdapter("PA_Inv_TraspasoSolicitudDetalleAdd") @@ -3941,6 +3942,7 @@ Public Class ClsInventarios .Add("@Precio", SqlDbType.Float).Value = Precio .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle + .Add("@Serie", SqlDbType.NVarChar).Value = Serie End With Try diff --git a/Inventarios/TrasladoSolicitud.aspx b/Inventarios/TrasladoSolicitud.aspx index 2d5e5663e..a0bb909a6 100644 --- a/Inventarios/TrasladoSolicitud.aspx +++ b/Inventarios/TrasladoSolicitud.aspx @@ -300,7 +300,7 @@
- + @@ -308,6 +308,7 @@ <%----%> + @@ -475,6 +476,13 @@
+
+
+ + +
+
+
diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb index 6c3b28afe..51ae79244 100644 --- a/Inventarios/TrasladoSolicitud.aspx.vb +++ b/Inventarios/TrasladoSolicitud.aspx.vb @@ -36,7 +36,6 @@ Partial Class Inventarios_TrasladoSolicitud ViewState("CveDireccionEnvio") = value End Set End Property - 'Private Property CveUsuarioAutoriza As Integer ' Get ' If ViewState("CveUsuarioAutoriza") Is Nothing Then @@ -94,8 +93,9 @@ Partial Class Inventarios_TrasladoSolicitud TempDT.Columns.Add("Precio", Type.GetType("System.Double")) TempDT.Columns.Add("Observaciones", Type.GetType("System.String")) TempDT.Columns.Add("CveContratoDetalle", Type.GetType("System.Int32")) + 'TempDT.Columns.Add("CveContratoDetalle", Type.GetType("System.Int32")) 'TempDT.Columns.Add("CveDireccionEnvio", Type.GetType("System.Int32")) - 'TempDT.Columns.Add("DireccionEnvio", Type.GetType("System.String")) + TempDT.Columns.Add("Serie", Type.GetType("System.String")) TempDT.Columns.Add() End Sub @@ -153,6 +153,7 @@ Partial Class Inventarios_TrasladoSolicitud If ObjInventarios.DtResultados.Rows.Count > 0 Then GvDatos.Columns(4).Visible = False + GvDatos.Columns(5).Visible = True DivFolio.Visible = True LbFolio.Text = ObjInventarios.DtResultados.Rows(0)("FolioTraspaso").ToString TxtObservaciones.Text = ObjInventarios.DtResultados.Rows(0)("ObservacionesTraspaso").ToString @@ -284,6 +285,7 @@ Partial Class Inventarios_TrasladoSolicitud End If ObjInventarios.Dispose() ObjClientes.Dispose() + MostarSerieColumn() End Sub #End Region @@ -347,6 +349,13 @@ Partial Class Inventarios_TrasladoSolicitud Row("UnidadMedida") = DdlUM.SelectedItem.Text Row("Observaciones") = "" + If Div4.Visible Then + Row("Serie") = TxtSerie.Text + GvDatos.Columns(5).Visible = True + Else + Row("Serie") = "-1" + End If + Dim ObjInventarios As New ClsInventarios Dim Existencia As Double = ObjInventarios.GetExistenciasPS(DdlProductoServicio.SelectedValue.ToEntero, DdlUM.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59")) ObjInventarios.Dispose() @@ -612,8 +621,9 @@ Partial Class Inventarios_TrasladoSolicitud Dim Precio As Double = Row.DataKey("Precio").ToEntero Dim Observaciones As String = Row.DataKey("Observaciones") Dim CveContratoDetalle As Integer = Row.DataKey("CveContratoDetalle").ToEntero + Dim Serie As String = Row.DataKey("Serie") - If Not ObjInventarios.AddTrasladoSolicitudDetalle(CveTraspasoSolicitud, Cantidad, CveUM, CvePS, Precio, Observaciones, CveContratoDetalle) Then + If Not ObjInventarios.AddTrasladoSolicitudDetalle(CveTraspasoSolicitud, Cantidad, CveUM, CvePS, Precio, Observaciones, CveContratoDetalle, Serie) Then TieneError = True Exit For End If @@ -767,6 +777,7 @@ Partial Class Inventarios_TrasladoSolicitud params.Add(New ReportParameter("Paqueteria", DdlPaqueteria.SelectedItem.Text)) params.Add(New ReportParameter("NumeroContrato", NumContrato)) params.Add(New ReportParameter("FechaEnvio", TxtFecha.Text.Substring(0, 10))) + params.Add(New ReportParameter("TieneSerie", GvDatos.Columns(5).Visible.ToString())) Dim RutaFormato As String = String.Format("Empresas\{0}\Formatos\RepTrasladoSolicitud.rdlc", UsuarioActual.CveEmpresa) Dim RutaFormatoDefault As String = String.Format("Empresas\Grales\Formatos\RepTrasladoSolicitud.rdlc") @@ -963,6 +974,8 @@ Partial Class Inventarios_TrasladoSolicitud DdlUM.SelectedValue = "-1" DdlUM.DataBind() DdlUM.SelectedValueExist(drPS("CveUnidadMedida").ToString) + Dim AplicaSerie As Boolean = drPS("AplicaSerie").ToString = "True" + Div4.Visible = AplicaSerie End If UpPS.Update() UpDatos.Update() @@ -1028,16 +1041,20 @@ Partial Class Inventarios_TrasladoSolicitud Dim MandaCorre As New ClsSisMail MandaCorre.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoDestino, $"Solicitud de Autorización de traspaso #{Folio}", SB.ToString, Displayname:="SIG Notificaciones: Solicitud de Traspaso") - End If - - - - - - End Sub + Public Sub MostarSerieColumn() + Dim Mostrar As Boolean = False + For Each row As GridViewRow In GvDatos.Rows + Dim Serie As String = row.DataKey("Serie").ToString + If Serie IsNot "-1" And Serie IsNot "" Then + Mostrar = True + Exit For + End If + Next + GvDatos.Columns(5).Visible = Mostrar + End Sub End Class