AlmacenesVirutuales

Inventarios/RecepcionAlmacen.aspx

@@ -408,7 +408,8 @@
                         </ContentTemplate>
                     </asp:UpdatePanel>
 
-                    <asp:GridView ID="GvInv" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" ShowFooter="True" ShowHeader="true" ShowHeaderWhenEmpty="True" DataKeyNames="EntregaDirecta,Consec,CodigoBarras,CvePS,CveUM,PU,CantidadC,CantidadF,UM,PS,CveCompraDetalle,CveOrdenCompraDetalle,PUExtranjero,AplicaSerieLote,CveClasificacion,Codigo,CveVentaDetalle,CostoIndirecto" HeaderStyle-CssClass="Titulos" RowStyle-Height="25px" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-heighterror="450" data-freezerows="1" GridLines="None">
+                    <asp:GridView ID="GvInv" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" ShowFooter="True" ShowHeader="true" ShowHeaderWhenEmpty="True"
+                         DataKeyNames="EntregaDirecta,Consec,CodigoBarras,CvePS,CveUM,PU,CantidadC,CantidadF,UM,PS,CveCompraDetalle,CveOrdenCompraDetalle,PUExtranjero,AplicaSerieLote,CveClasificacion,Codigo,CveVentaDetalle,CostoIndirecto,CveTamaño" HeaderStyle-CssClass="Titulos" RowStyle-Height="25px" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-heighterror="450" data-freezerows="1" GridLines="None">
                         <HeaderStyle Height="58px" />
                         <Columns>
                             <asp:TemplateField>

Inventarios/RecepcionEntrega.aspx

@@ -329,8 +329,18 @@
                                     <asp:Literal Text="" runat="server" ID="LtTipoCambioAdvertencia"></asp:Literal>
                                 </div>
                             </div>
+                        </div>                                           
+                        <%--ADVERTENCIA--%>
+                        <div class="col-md-12" style="vertical-align: middle;" align="center">
+                            <div style="z-index: 5; position: relative;">
+                                <div id="DivVirtualAdvertencia" visible="false" clientidmode="Static" runat="server" class="alert alert-warning" style="padding: 5px; margin-bottom: 5px; padding-right: 25px;">
+                                    <button type="button" class="close" data-dismiss="alert" style="margin-top: 5px;" aria-hidden="true"></button>
+                                    <strong style="font-size: 20px; margin-right: 25px;">Información: </strong>
+                                    <asp:Literal Text="" runat="server" ID="Literal1"></asp:Literal>
+                                </div>
+                            </div>
                         </div>
-                         <div class="col-md-6">
+                        <div class="col-md-6">
                              <asp:GridView ID="GvDocs"  DataKeyNames="CveDocumentacion,Documentacion,Orden,CveDocumentacionElectronica,Adjunto,Estatus" runat="server"   AutoGenerateColumns="False" ShowHeader="true"  HeaderStyle-CssClass="Titulos" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-height="100" data-freezerows="1" GridLines="None">
                                         <Columns>
                                             <asp:BoundField HeaderText="Documento" DataField="Documentacion" />
@@ -346,7 +356,6 @@
                                 
                              
                         </div>
-
                     </div>
                 </div>
             </ContentTemplate>
@@ -408,7 +417,8 @@
                     </div>
 
                     <%--GV DATOS--%>
-                    <asp:GridView ID="GvDatos" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" ShowFooter="True" ShowHeader="true" ShowHeaderWhenEmpty="True" DataKeyNames="Consec,CvePS,Codigo,CodigoBarras,AplicaSerieLote,CveUM,CantidadC,CantidadF,UM,PS,CveClasificacion,CveVentaDetalle" HeaderStyle-CssClass="Titulos" RowStyle-Height="25px" CssClass="table table-striped table-hover Widthall ScrollAD gvInventario mysmallbtn" data-heighterror="450" data-freezerows="1" GridLines="None">
+                    <asp:GridView ID="GvDatos" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" ShowFooter="True" ShowHeader="true" ShowHeaderWhenEmpty="True" 
+                        DataKeyNames="Consec,CvePS,Codigo,CodigoBarras,AplicaSerieLote,CveUM,CantidadC,CantidadF,UM,PS,CveClasificacion,CveVentaDetalle,CveTamaño,PUVenta" HeaderStyle-CssClass="Titulos" RowStyle-Height="25px" CssClass="table table-striped table-hover Widthall ScrollAD gvInventario mysmallbtn" data-heighterror="450" data-freezerows="1" GridLines="None">
                         <HeaderStyle Height="58px" />
                         <Columns>
                             <asp:TemplateField>

Inventarios/RecepcionEntrega.aspx.vb

@@ -3,6 +3,7 @@ Option Explicit On
 
 Imports System.Data
 Imports System.IO
+Imports System.Linq
 Imports Extensiones
 
 Partial Class Inventarios_RecepcionEntrega
@@ -711,6 +712,11 @@ Partial Class Inventarios_RecepcionEntrega
                     DivTipoCambioAdvertencia.Visible = False
                 End If
 
+                'If DtDatos.Rows.Cast(Of DataRow).Any(Function(Row) Row("CveTamaño").ToString().ToEntero() > 0) Then
+
+                'End If
+
+
                 DdlAlmacen.Items.Clear()
                 If CveAlmacenTraspasoOrigen > 0 Then
                     DdlAlmacen.Items.Insert(0, New ListItem(GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Almacen", $"CveAlmacen = {CveAlmacenTraspasoOrigen}"), CveAlmacenTraspasoOrigen.ToString))
@@ -1526,6 +1532,9 @@ Partial Class Inventarios_RecepcionEntrega
         Dim CveMovimientoGarantia As Integer = -1
         Dim FolioGarantia As Integer = -1
 
+        Dim CveMovimientoVirtual As Integer = -1
+        Dim FolioVirtual As Integer = -1
+
         'PASA DATOS DEL GV A DATATABLE PARA MANEJOR CON FOR EACH
         Dim Index = 0
         For Each gvr As GridViewRow In GvDatos.Rows
@@ -1901,7 +1910,7 @@ Partial Class Inventarios_RecepcionEntrega
                     DtGarantias = ObjAcumuladores.DtResultados.Copy()
                 End If
 
-                If DtGarantias IsNot Nothing AndAlso DtGarantias.Rows.Count > 0 Then
+                If DtGarantias IsNot Nothing AndAlso DtGarantias.Rows.Count > 0 AndAlso CveAlmacenGarantia > 0 Then
                     CveMovimientoGarantia = ObjInventario.AddMovimiento(CveAlmacenGarantia, 2, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text)
                     FolioGarantia = ObjInventario.Folio
 
@@ -1922,6 +1931,66 @@ Partial Class Inventarios_RecepcionEntrega
 
             ' TERMINA: GARANTIAS
 
+
+            ' COMIENZA: VIRTUAL
+            If TipoDocto.Contiene("Ing", "Rem") AndAlso UsuarioActual.CveEmpresa = 140 AndAlso TipoMovimiento = 1 Then
+
+                Dim DtTamanios As New DataTable("DtTamanios")
+                DtTamanios.Columns.Add(New DataColumn("CvePS", GetType(Integer)))
+                DtTamanios.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
+                DtTamanios.Columns.Add(New DataColumn("PU", GetType(Decimal)))
+                DtTamanios.Columns.Add(New DataColumn("CveUM", GetType(Integer)))
+
+                If ObjAcumuladores.TamañoGet(-1, UsuarioActual.CveEmpresa) Then
+                    For Each GvRow As GridViewRow In GvDatos.Rows
+                        If GvRow.RowType = DataControlRowType.DataRow Then
+                            For Each Tam As DataRow In ObjAcumuladores.DtResultados.Rows
+                                If Tam("CveTamaño").ToString() = GvRow.DataKey("CveTamaño") Then
+                                    Dim Row As DataRow = DtTamanios.NewRow()
+
+                                    Row("CvePS") = Tam("CvePSCargo").ToString().ToEntero()
+                                    Row("Cantidad") = GvRow.FCTextBox("TbCantidadF").Text.ToDecimal()
+                                    Row("PU") = GvRow.DataKey("PUVenta").ToDecimal()
+                                    Row("CveUM") = GvRow.DataKey("CveUM").ToEntero()
+
+                                    DtTamanios.Rows.Add(Row)
+                                End If
+                            Next
+                        End If
+                    Next
+                End If
+
+                Dim CveAlmacenVirutal As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
+
+                If DtTamanios IsNot Nothing AndAlso DtTamanios.Rows.Count > 0 AndAlso CveAlmacenVirutal > 0 Then
+                    Dim CveConceptoMovimientoVirtual = If(TipoMovimiento = 1, 3, 18) 'CHECA SI ES ENTRADA O DEVOLUCION
+
+                    CveAlmacenVirutal = ObjInventario.AddMovimiento(CveAlmacenVirutal, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text)
+                    FolioVirtual = ObjInventario.Folio
+
+                    For Each RowUsado As DataRow In DtTamanios.Rows
+                        Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
+                        Dim CantidadEntrada As Double = RowUsado("Cantidad").ToString().ToDouble()
+                        Dim PU As Double = RowUsado("PU").ToString().ToDouble()
+                        Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
+
+                        If Not ObjInventario.AddMovimientoDetalle(CveAlmacenVirutal, CantidadEntrada, CveUM, CvePS, PU, -1) Then
+                            ErrorMovInv = True
+                            TextoError = "Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar."
+                            Exit For
+                        End If
+                    Next
+                Else
+                    ErrorMovInv = True
+                End If
+
+                If DtTamanios.Rows.Count = 0 Then
+                    ErrorMovInv = True
+                End If
+            End If
+
+            ' TERMINA: VIRTUAL
+
             If Not ErrorMovInv Then
                 Dim ConceptoMovimiento = 3
                 ConceptoMovimiento = If(TipoMovimiento = 1, ConceptoMovimiento, 18)
@@ -2389,8 +2458,14 @@ Partial Class Inventarios_RecepcionEntrega
                 Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoGarantia)))
             End If
 
+            'VIRTUAL
+            If CveMovimientoVirtual > 0 Then
+                Msg.AppendFormat("<br/> Movimiento de Salida del Almacen Virtal: Folio : ")
+                Msg.AppendFormat("<b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimientoVirtual, FolioVirtual)
+            End If
+
             'If CveMovimientoSalidaDevRem > 0 Then
-            '    Msg.AppendFormat("<br/><br/> Movimiento de salida de devolución (Traspaso): <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimientoSalidaDevRem, FolioMovimientoSalidaDevRem)
+            '    Msg.AppendFormat(" < br /<> br /> Movimiento de salida de devolución (Traspaso): <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimientoSalidaDevRem, FolioMovimientoSalidaDevRem)
             '    Msg.AppendFormat("<br/> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalidaDevRem)))
 
             '    Msg.AppendFormat("<br/><br/> Movimiento de entrada de devolución (Traspaso): <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimientoEntradaDevRem, FolioMovimientoEntradaDevRem)

Inventarios/TraspasoAlmacen.aspx.vb

@@ -638,7 +638,7 @@ Partial Class Inventarios_TraspasoAlmacen
         End If
 
         'VALIDA ALMACEN DISTINTA SUCURSAL DEBE SER TRANSITORIO
-        If UsuarioActual.CveEmpresa <> 7 Then '[IPP] EMPRESA VIGILANCIA NO OCUPA TRANSITORIOS - TIENEN MIL SUCURSALES Xd
+        If Not UsuarioActual.CveEmpresa.Contiene(7, 140) Then '[IPP] EMPRESA VIGILANCIA NO OCUPA TRANSITORIOS - TIENEN MIL SUCURSALES Xd
             If Not ChkTransitorio.Checked Then
                 Dim CveSucursalOrigen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue.ToEntero}")
                 Dim CveSucursalDestino = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenDestino.SelectedValue.ToEntero}")
@@ -747,7 +747,7 @@ Partial Class Inventarios_TraspasoAlmacen
         Dim ErrorMovInv As Boolean = False
         Dim ErrorAC As Boolean = False
         Dim TextoError = ""
-        Dim TipoMovimientoSalida = If(ChkTransitorio.Checked, 26, 8)
+        Dim TipoMovimientoSalida = If(ChkTransitorio.Checked, 26, If(TipoAlmacenOrigen = 24, 26, 8))
 
 
         'AGREGAMOS LA SALIDA DEL ALMACEN ORIGEN