campo serie agregado

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

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