Merge branch 'master' of http://192.168.10.111:8383/SIG

AF/OrdenTrabajo.aspx.vb

@@ -106,11 +106,8 @@ Partial Class AF_OrdenTrabajo
 
     Private Sub CargaDatos()
 
-        Dim ObjAF As New ClsAF
 
 
-        ObjAF.Dispose()
-
 
     End Sub
 

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

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

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

Contabilidad2/RepEstadoResultadosHorizontal.aspx

@@ -787,7 +787,7 @@
                                     <asp:TemplateField>
                                         <ItemTemplate>
                                             <%--<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>--%>
-                                            <asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);" Visible="false"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
+                                            <asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);" ><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
                                             <asp:HyperLink ID="HLNombre" runat="server" Text='<%# Eval("Nombre")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
                                         </ItemTemplate>
                                         <ItemStyle HorizontalAlign="Left" />

Inventarios/TrasladoSolicitud.aspx

@@ -300,7 +300,7 @@
                     </div>
                     <div class="portlet-body rowpadding">
 
-                        <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS, CodigoPS, CveUM, Cantidad, Precio, Observaciones, CveContratoDetalle,UnidadMedida" EmptyDataText="No se encontraron Productos registrados" ToolTip="Listado de Productos" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall" GridLines="None">
+                        <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS, CodigoPS, CveUM, Cantidad, Precio, Observaciones, CveContratoDetalle,UnidadMedida,Serie" EmptyDataText="No se encontraron Productos registrados" ToolTip="Listado de Productos" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall" GridLines="None">
                             <Columns>
                                 <asp:BoundField HeaderText="Cantidad" HeaderStyle-HorizontalAlign="Left" DataFormatString="{0:N}" ItemStyle-HorizontalAlign="Center" DataField="Cantidad" ItemStyle-Width="5%" />
                                 <asp:BoundField HeaderText="U.M" HeaderStyle-HorizontalAlign="Center" DataFormatString="{0:N}" ItemStyle-HorizontalAlign="Center" DataField="UnidadMedida" ItemStyle-Width="10%" />
@@ -308,6 +308,7 @@
                                 <%--<asp:BoundField HeaderText="Direccion Envio" HeaderStyle-HorizontalAlign="Left" DataField="DireccionEnvio" ItemStyle-Width="20%" />--%>
                                 <asp:BoundField HeaderText="Observaciones" DataField="Observaciones" ItemStyle-Width="20%" />
                                 <asp:BoundField HeaderText="Precio" HeaderStyle-HorizontalAlign="Right" DataFormatString="{0:c}" ItemStyle-HorizontalAlign="Right" DataField="Precio" Visible="false" ItemStyle-Width="5%" />
+                                <asp:BoundField HeaderText="Serie" HeaderStyle-HorizontalAlign="Right" ItemStyle-HorizontalAlign="Right" DataField="Serie" Visible="false" ItemStyle-Width="5%" />
                                 <asp:TemplateField HeaderText="Eliminar" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Center" ItemStyle-Width="5%">
                                     <ItemTemplate>
                                         <asp:LinkButton ID="imgD" runat="server" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="Si" />
@@ -475,6 +476,13 @@
                                 </div>
                             </div>
 
+                            <div class="row marginRowLeft">
+                                <div class="col-md-8 form-group form-md-line-input input-iconright" id="Div4" runat="server" visible="false">
+                                    <asp:TextBox runat="server" ID="TxtSerie" CssClass="form-control"/>
+                                    <label>Serie:</label>
+                                </div>
+                            </div>
+
                         </div>
                     </div>
                     <div class="modal-footer">

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