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

Inventarios/Consignaciones.aspx

@@ -431,7 +431,7 @@
                             </tr>
                         </table>
 
-                        <asp:GridView ID="GvDatos" DataKeyNames="No,CveUM,CvePS,PU,CveMovimientoDetalle,CveAlmacen" runat="server" ShowHeader="false" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Movimientos" CssClass="tabla_correcto grides Widthall ScrollAD" data-height="400" data-freezerows="-1" GridLines="None">
+                        <asp:GridView ID="GvDatos" DataKeyNames="No,CveUM,CvePS,PU,CveMovimientoDetalle,CveAlmacen,SeccionAlmacen,Serie,Lote,FechaCaducidad,CveSeccionAlmacen" runat="server" ShowHeader="false" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Movimientos" CssClass="tabla_correcto grides Widthall ScrollAD" data-height="400" data-freezerows="-1" GridLines="None">
                             <Columns>
                                 <asp:BoundField ItemStyle-Width="150px" DataField="Almacen" />
                                 <asp:TemplateField HeaderText="Cantidad Devolucion" Visible="false">

Inventarios/Consignaciones.aspx.vb

@@ -100,6 +100,7 @@ Partial Class Inventarios_Consignaciones
         dt.Columns.Add("EstatusExistencia")
         dt.Columns.Add("CveMovimientoDetalle")
 
+        dt.Columns.Add("CveSeccionAlmacen", Type.GetType("System.Int32"))
         dt.Columns.Add("SeccionAlmacen")
         dt.Columns.Add("Serie", Type.GetType("System.String"))
         dt.Columns.Add("Lote", Type.GetType("System.String"))
@@ -158,6 +159,9 @@ Partial Class Inventarios_Consignaciones
         Else
             DdlProducto.Visible = False
         End If
+
+        DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
+        DdlSeccionAlmacen.DataBind()
     End Sub
 #End Region
 
@@ -590,6 +594,7 @@ Partial Class Inventarios_Consignaciones
                 Dim PSCodigo = ""
 
                 Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero
+                Dim SeccionAlmacen As String = DdlSeccionAlmacen.SelectedItem.Text
                 Dim Serie As String = If(TxtSerie.Text = "", "-1", TxtSerie.Text)
                 Dim Lote As String = If(TxtLote.Text = "", "-1", TxtLote.Text)
                 Dim Caducidad As String = If(TxtCaducidad.Text = "", "-1", TxtCaducidad.Text)
@@ -617,6 +622,7 @@ Partial Class Inventarios_Consignaciones
                     registro.Item("PU") = TxtPU.Text.ToDouble
                     registro.Item("PUExtranjero") = TxtPU.Text.ToDouble
                     registro.Item("CveSeccionAlmacen") = CveSeccionAlmacen
+                    registro.Item("SeccionAlmacen") = SeccionAlmacen
                     registro.Item("Serie") = Serie
                     registro.Item("Lote") = Lote
                     registro.Item("FechaCaducidad") = Caducidad
@@ -711,7 +717,7 @@ Partial Class Inventarios_Consignaciones
                     'AGREGAMOS MOVTOS DETALLE
                     If CveMovimiento > 0 Then
                         For Each Dr As DataRow In DtMovimientos.Rows
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, PUTC:=If(DdlMoneda.SelectedValue.ToEntero <> 1, Dr("PUExtranjero").ToString.ToDecimal, -1)) Then
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=TxtSerie.Text, Lote:=TxtLote.Text, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, PUTC:=If(DdlMoneda.SelectedValue.ToEntero <> 1, Dr("PUExtranjero").ToString.ToDecimal, -1)) Then
                                 ErrorMovInv = True
                                 TextoError = "Ocurrió un error al guardar los movimientos"
                                 Exit For

Ventas/Ventas.aspx

@@ -3313,7 +3313,7 @@
                             <tr align="left" id="trPaqueteriaOpciones" runat="server" visible="false">
                                 <td colspan="2">
                                     <asp:RadioButtonList runat="server" ID="RblPaqueteria">
-                                        <asp:ListItem Value="1" Text="Entrega En Mostrador" />
+                                        <asp:ListItem Value="1" Selected="True" Text="Entrega En Mostrador" />
                                         <asp:ListItem Value="2" Text="Entrega Interna" />
                                         <asp:ListItem Value="3" Text="Entrega Externa" />
                                     </asp:RadioButtonList>

Ventas/Ventas.aspx.vb

@@ -25708,7 +25708,7 @@ Partial Class Ventas
     End Sub
 
     Private Sub MostrarOpcioensPaqueteria()
-        Dim mostrarOpcionesPaq As Boolean = DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ped")
+        Dim mostrarOpcionesPaq As Boolean = DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ped") And UsuarioActual.Empresa.Funcionalidad(280) = "1"
         trPaqueteriaOpciones.Visible = mostrarOpcionesPaq
         trPaqueteriOpcionesLabel.Visible = mostrarOpcionesPaq
     End Sub