Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Ashx/SIGWeb.ashx

@@ -699,7 +699,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
 
 
             'verifica existencias
-            If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso CveEmpresa.Contiene(72, 80, 119, 140, 141, 152, 153) Then
+            If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso CveEmpresa.Contiene(72, 80, 119, 140, 141, 152, 153, 159, 160, 161, 162, 163) Then
                 UsaGlobal = False
 
                 If CveEmpresa = 140 And Pagina.Contiene("ventas/ventas") Then

Compras/Compras.aspx.vb

@@ -1805,6 +1805,7 @@ Partial Class Compras_Compras
                             DdlTipoCompra.Items.Clear()
                             DdlTipoCompra.Items.Add(New ListItem("Seleccione", "-1"))
                             DdlTipoCompra.Items.Add(New ListItem("NC Con Productos", "6"))
+                            DdlTipoCompra.Items.Add(New ListItem("Apoyo Logístico", "9"))
                             DdlTipoCompra.Items.Add(New ListItem("NC Por Devolución", "11"))
 
 
@@ -2704,72 +2705,72 @@ Partial Class Compras_Compras
 
 
                     GvPS.DataSource = TmpDT
-                        GvPS.DataBind()
+                    GvPS.DataBind()
 
-                        If UsuarioActual.Empresa.UsaAC Then
+                    If UsuarioActual.Empresa.UsaAC Then
-                            CargaHidendsAC()
+                        CargaHidendsAC()
-                        End If
+                    End If
 
-                        CalculaTotales(True)
+                    CalculaTotales(True)
 
-                        If UsuarioActual.Empresa.UsaInventarios Then
+                    If UsuarioActual.Empresa.UsaInventarios Then
-                            DtInv = TmpDT.FiltraParametros(String.Format("CveTipoPS = 2")).Copy
+                        DtInv = TmpDT.FiltraParametros(String.Format("CveTipoPS = 2")).Copy
 
-                            If dr("Inventario").ToString = "1" Then
+                        If dr("Inventario").ToString = "1" Then
 
-                                CveMovimientoAlmacen = dr("CveMovimiento").ToString.ToEntero
+                            CveMovimientoAlmacen = dr("CveMovimiento").ToString.ToEntero
 
-                                Dim Inv As New ClsInventarios
+                            Dim Inv As New ClsInventarios
-                                If Inv.GetMovimientosDetalle(dr("CveMovimiento").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
+                            If Inv.GetMovimientosDetalle(dr("CveMovimiento").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
-                                    'Dim TempParametros = Encripta(String.Format("OP=Alm&CveMovimiento={0}", dr("CveMovimiento")))
+                                'Dim TempParametros = Encripta(String.Format("OP=Alm&CveMovimiento={0}", dr("CveMovimiento")))
-                                    'ImgImprimirAlmacen.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", TempParametros)
+                                'ImgImprimirAlmacen.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", TempParametros)
 
-                                    ImgImprimirAlmacen.Visible = True
+                                ImgImprimirAlmacen.Visible = True
-                                    ImgImprimirAlmacen.NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", dr("CveMovimiento"))
+                                ImgImprimirAlmacen.NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", dr("CveMovimiento"))
 
-                                    Dim drt As DataRow
+                                Dim drt As DataRow
-                                    'actualizo el almacen
+                                'actualizo el almacen
-                                    For Each dri As DataRow In DtInv.Rows
+                                For Each dri As DataRow In DtInv.Rows
 
-                                        drt = Inv.DtResultados.FiltroPrimero(String.Format("CvePS = {0} AND Cantidad = {1}", dri("CvePS"), dri("Cantidad")))
+                                    drt = Inv.DtResultados.FiltroPrimero(String.Format("CvePS = {0} AND Cantidad = {1}", dri("CvePS"), dri("Cantidad")))
-                                        If drt IsNot Nothing Then
+                                    If drt IsNot Nothing Then
-                                            Dim TmpDr As DataRow = TmpDT.Select($"Consec = {dri("Consec").ToString.ToEntero}")(0) 'Charlie
+                                        Dim TmpDr As DataRow = TmpDT.Select($"Consec = {dri("Consec").ToString.ToEntero}")(0) 'Charlie
-                                            TmpDr("CveAlmacen") = drt("CveAlmacen") 'Charlie
+                                        TmpDr("CveAlmacen") = drt("CveAlmacen") 'Charlie
 
-                                            dri("CveAlmacen") = drt("CveAlmacen")
+                                        dri("CveAlmacen") = drt("CveAlmacen")
 
-                                        End If
+                                    End If
 
-                                    Next
+                                Next
-
-                                End If
-
-                                'Proceso Super Tramposo de Charlie
-                                If Inv.GetMovimientosDetalle(dr("CveMovimiento").ToString.ToEntero, UsuarioActual.CveEmpresa, CveCompra:=-123) Then
-                                    Dim drt As DataRow
-                                    For Each dri As DataRow In DtInv.Rows
-                                        drt = Inv.DtResultados.FiltroPrimero(String.Format("CvePS = {0} AND Cantidad = {1}", dri("CvePS"), dri("Cantidad")))
-                                        If drt IsNot Nothing Then
-                                            Dim TmpDr As DataRow = TmpDT.Select($"Consec = {dri("Consec").ToString.ToEntero}")(0)
-                                            TmpDr("CveAlmacen") = drt("CveAlmacen")
-                                        End If
-                                    Next
-                                End If
-
-                                Inv.Dispose()
 
                             End If
 
-                            CargaGvInv()
+                            'Proceso Super Tramposo de Charlie
+                            If Inv.GetMovimientosDetalle(dr("CveMovimiento").ToString.ToEntero, UsuarioActual.CveEmpresa, CveCompra:=-123) Then
+                                Dim drt As DataRow
+                                For Each dri As DataRow In DtInv.Rows
+                                    drt = Inv.DtResultados.FiltroPrimero(String.Format("CvePS = {0} AND Cantidad = {1}", dri("CvePS"), dri("Cantidad")))
+                                    If drt IsNot Nothing Then
+                                        Dim TmpDr As DataRow = TmpDT.Select($"Consec = {dri("Consec").ToString.ToEntero}")(0)
+                                        TmpDr("CveAlmacen") = drt("CveAlmacen")
+                                    End If
+                                Next
+                            End If
 
-                            'Ocultamos "Recibir Aqui"
+                            Inv.Dispose()
-                            GvInv.Columns(6).Visible = False
-                            GvInv.Columns(7).Visible = False
 
                         End If
-                    End If
 
-                    DdlTipoComprobante.Enabled = False
+                        CargaGvInv()
+
+                        'Ocultamos "Recibir Aqui"
+                        GvInv.Columns(6).Visible = False
+                        GvInv.Columns(7).Visible = False
+
+                    End If
+                End If
+
+                DdlTipoComprobante.Enabled = False
                 DdlTipoComprobante.SelectedValue = dr("TipoDocto").ToString
                 If dr("TipoDocto").ToString = "Fac" Then
                     ChkAplicaNotaCredito.Enabled = True

Inventarios/RecepcionAlmacen.aspx

@@ -261,7 +261,7 @@
                                                 </div>
                                             </div>
 
-                                            <asp:Button Text="Recarga" Width="75px" ID="BtnConsultarPendientes" OnClick="BtnConsultarPendientes_Click" CssClass="btn btn-primary" runat="server" ValidationGroup="GrpPendientes" />
+                                            <asp:Button Text="Recarga" Width="75px" ID="BtnConsultarPendientes" OnClick="BtnConsultarPendientes_Click" CssClass="btn btn-primary input-sm" runat="server" ValidationGroup="GrpPendientes" />
                                             <asp:Timer runat="server" ID="TimmerRefresh" Interval="300000" OnTick="TimmerRefresh_Tick"></asp:Timer>
                                             <a href="javascript:;" class="collapse"></a>
                                         </asp:Panel>
@@ -280,7 +280,7 @@
                                             </asp:TemplateField>
                                             <asp:TemplateField>
                                                 <ItemTemplate>
-                                                    <asp:LinkButton Text="Surtir" ID="BtnSurtir" CommandArgument="-1" OnClick="BtnSurtir_Click" CssClass="btn btn-primary" runat="server" />
+                                                    <asp:LinkButton Text="Surtir" ID="BtnSurtir" CommandArgument="-1" OnClick="BtnSurtir_Click" CssClass="btn btn-primary input-sm" runat="server" />
                                                 </ItemTemplate>
                                                 <ItemStyle HorizontalAlign="Center" Width="20%" />
                                             </asp:TemplateField>

Inventarios/RecepcionAlmacen.aspx.vb

@@ -808,10 +808,10 @@ Partial Class Inventarios_RecepcionAlmacen
             e.Row.FCLinkButton("BtnSurtir").CommandArgument = e.Row.DBCampo("CveCompra")
 
             If e.Row.DBCampo("TipoDocto").ToString.Contiene({"Fac"}) And e.Row.DBCampo("EstatusAlmacen").ToString.ToEntero = 0 Then
-                e.Row.FCLinkButton("BtnSurtir").CssClass = "btn btn-primary"
+                e.Row.FCLinkButton("BtnSurtir").CssClass = "btn btn-primary input-sm"
                 e.Row.FCLinkButton("BtnSurtir").Text = "<i class='fa fa-arrow-left' > Recibir</i>"
             Else
-                e.Row.FCLinkButton("BtnSurtir").CssClass = "btn yellow-gold"
+                e.Row.FCLinkButton("BtnSurtir").CssClass = "btn yellow-gold input-sm"
                 e.Row.FCLinkButton("BtnSurtir").Text = " Devolver <i class='fa fa-arrow-right' ></i>"
             End If
 
@@ -930,6 +930,7 @@ Partial Class Inventarios_RecepcionAlmacen
                 CveMoneda = ObjCompras.DtResultados.Rows(0)("CveMoneda").ToString.ToEntero
                 lbDescripcion.Text = ObjCompras.DtResultados.Rows(0)("Descripcion").ToString
                 HdnTipoDocto.Value = ObjCompras.DtResultados.Rows(0)("TipoDocto").ToString
+                If UsuarioActual.CveEmpresa = 140 Then TxtObservaciones.Text = ObjCompras.DtResultados.Rows(0)("Descripcion").ToString
 
                 TipoCambio = ObjCompras.DtResultados.Rows(0)("TipoCambio").ToString.ToDecimal
                 TipoMovimiento = If(ObjCompras.DtResultados.Rows(0)("EstatusAlmacen").ToString.ToEntero = 1, 2, 1)
@@ -939,17 +940,14 @@ Partial Class Inventarios_RecepcionAlmacen
 
                 If TipoMovimiento = 3 Then
                     CargaAlmacenes(-1, "21,2", CveTipoCompra)
-                End If
+                ElseIf CveTipoCompra = 9 Then
-
-                If CveTipoCompra = 9 Then
                     CargaAlmacenes(-1, "27", CveTipoCompra)
-                End If
+                ElseIf CveTipoCompra = 10 Then
-
-                If CveTipoCompra = 10 Then
                     CargaAlmacenes(-1, CveTipoCompra:=CveTipoCompra)
+                Else
+                    CargaAlmacenes(-1)
                 End If
 
-
                 RecibidaCompleta = False
 
 
@@ -970,7 +968,7 @@ Partial Class Inventarios_RecepcionAlmacen
                         SumarImporteUsados = True
                         DtRecepcion = ObjInventario.DtResultados.Copy()
                         If UsuarioActual.CveRol = 1 Then
-                            CargaAlmacenes(-1, "22,24", CveTipoCompra)
+                            CargaAlmacenes(-1, "22", CveTipoCompra)
                         Else
                             CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra)
                         End If
@@ -3365,8 +3363,11 @@ Partial Class Inventarios_RecepcionAlmacen
             If CveMovimiento > 0 AndAlso CveMovimientoSalidaTraspaso <= 0 Then
                 Msg.AppendFormat("Movimiento Registrado: Folio: <b>{0}</b>", link)
                 Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento)))
-                Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Etiqueta Individual</a> ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Individual")))
+                If UsuarioActual.CveEmpresa = 119 Then
-                Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Etiqueta Por Caja</a> ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Caja")))
+                    Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Etiqueta Individual</a> ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Individual")))
+                    Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Etiqueta Por Caja</a> ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Caja")))
+
+                End If
                 'SI GENERO UN TRASPASO AL ALMACEN DE DEVOLUCION
             ElseIf CveMovimiento > 0 AndAlso CveMovimientoSalidaTraspaso > 0 Then
                 Msg.AppendFormat("Movimiento de Salida: Folio: <b>{0}</b>", String.Format("<a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", CveMovimientoSalidaTraspaso, FolioSalidaTraspaso))

Inventarios/TraspasoAlmacen.aspx

@@ -149,7 +149,7 @@
 
                                                 <asp:Label AssociatedControlID="TxtResponsable" ID="LblResponsable" runat="server" Text="Responsable:" CssClass="col-md-2"></asp:Label>
                                                 <asp:Panel CssClass="col-md-2" ID="divResponsable" runat="server">
-                                                    <asp:TextBox runat="server" Text="" CssClass="form-control" ID="TxtResponsable" />
+                                                    <asp:TextBox runat="server" Text="" CssClass="form-control input-sm" ID="TxtResponsable" />
                                                 </asp:Panel>
 
                                                 <label class="col-md-2">Almacen Transitorio:</label>
@@ -204,13 +204,13 @@
                                                 <div id="divPlacaEspecificacion" runat="server">
                                                     <label class="col-md-2">Placa:</label>
                                                     <div class="col-md-2">
-                                                        <asp:TextBox runat="server" Text="" ID="TxtPlaca" CssClass="form-control" />
+                                                        <asp:TextBox runat="server" Text="" ID="TxtPlaca" CssClass="form-control input-sm" />
                                                         <asp:RequiredFieldValidator ID="RfvTxtPlaca" runat="server" Enabled="false" ControlToValidate="TxtPlaca" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Placa''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                         <ajax:ValidatorCalloutExtender ID="VceTxtPlaca" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtPlaca" Width="350px"></ajax:ValidatorCalloutExtender>
                                                     </div>
                                                     <label class="col-md-2">Especificación de la Unidad:</label>
                                                     <div class="col-md-2">
-                                                        <asp:TextBox runat="server" Text="" ID="TxtEspecifUnidad" CssClass="form-control" />
+                                                        <asp:TextBox runat="server" Text="" ID="TxtEspecifUnidad" CssClass="form-control input-sm" />
                                                         <asp:RequiredFieldValidator ID="RfvTxtEspecifUnidad" runat="server" Enabled="false" ControlToValidate="TxtEspecifUnidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Especificación Unidad''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                         <ajax:ValidatorCalloutExtender ID="VceTxtEspecifUnidad" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtEspecifUnidad" Width="350px"></ajax:ValidatorCalloutExtender>
                                                     </div>

Inventarios/TraspasoAlmacen.aspx.vb

@@ -875,27 +875,31 @@ Partial Class Inventarios_TraspasoAlmacen
             '    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyectoOrigen}").ToEntero()
             'End If
 
-
-            CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtualSalida, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida)
-            FolioVirtualSalida = ObjInventario.Folio
             Dim dtvirtual As DataTable = Nothing
 
             If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
-                dtvirtual = ObjInventario.DtResultados
-                For Each RowVirtual As DataRow In dtvirtual.Rows
-                    Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
-                    Dim CantidadUsado As Double = RowVirtual("Cantidad").ToString().ToDouble()
-                    Dim PU As Decimal = RowVirtual("PU").ToString().ToDecimal()
-                    Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero()
 
-                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualSalida, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                dtvirtual = ObjInventario.DtResultados
-                        ErrorMovInv = True
+
-                        Exit For
+                If dtvirtual.Rows.Count > 0 Then
-                    End If
+                    CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtual, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida)
-                Next
+                    FolioVirtualSalida = ObjInventario.Folio
+
+                    For Each RowVirtual As DataRow In dtvirtual.Rows
+                        Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
+                        Dim CantidadUsado As Double = RowVirtual("Cantidad").ToString().ToDouble()
+                        Dim PU As Decimal = RowVirtual("PU").ToString().ToDecimal()
+                        Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero()
+
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualSalida, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                            ErrorMovInv = True
+                            Exit For
+                        End If
+                    Next
+                End If
             Else
                 ErrorMovInv = True
-            End If
+        End If
         End If
 
         AlmacenEntrada = If(ChkTransitorio.Checked, DdlAlmacenTransitorio.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero)
@@ -935,96 +939,96 @@ Partial Class Inventarios_TraspasoAlmacen
                     'Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenDestino.SelectedValue}").ToEntero()
 
                     'SI EL ALMACEN DESTINO ES DE APOPYO LOGISTICO EL ALMACEN VIRTUAL DEBE SER DE APOYO LOGISTICO
-
+                    Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveSubProyectoOrigen).FiltroPrimeroValor("CveAlmacenVirtual", "").ToEntero()
-                    'If TipoAlmacenDestino = 27 Then
-                    '    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =25 AND CveSubProyecto={CveSubProyectoDestino }").ToEntero()
-                    'Else
-                    '    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyectoDestino }").ToEntero()
-                    'End If
-
-                    CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtualEntrada, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/S3")
-                    FolioVirtualEntrada = ObjInventario.Folio
                     Dim dtvirtual As DataTable = Nothing
 
-                    If CveMovimientoVirtualEntrada > 0 AndAlso ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then
+                    If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then
                         dtvirtual = ObjInventario.DtResultados
-                        For Each RowVirtual As DataRow In dtvirtual.Rows
+                        If dtvirtual.Rows.Count > 0 Then
-                            Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
+                            ''hay que verificar que se se tengan movimeintos por registrar
-                            Dim CantidadUsado As Double = RowVirtual("Cantidad").ToString().ToDouble()
+                            CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/S3")
-                            Dim PU As Decimal = RowVirtual("PU").ToString().ToDecimal()
+                            FolioVirtualEntrada = ObjInventario.Folio
-                            Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero()
+
+
+                            For Each RowVirtual As DataRow In dtvirtual.Rows
+                                Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
+                                Dim CantidadUsado As Double = RowVirtual("Cantidad").ToString().ToDouble()
+                                Dim PU As Decimal = RowVirtual("PU").ToString().ToDecimal()
+                                Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero()
+
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualEntrada, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                                    ErrorMovInv = True
+                                    Exit For
+                                End If
+                            Next
+                        End If
 
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualEntrada, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
-                                ErrorMovInv = True
-                                Exit For
-                            End If
-                        Next
                     Else
                         ErrorMovInv = True
-                    End If
+            End If
+        End If
+        Dim Concepto As String = TxtObservaciones.Text
+        If Concepto = "" Then Concepto = "Traspaso"
+        'AGREGAMOS PREPOLIZAS TRASPASO DIRECTO:
+        If Not ErrorMovInv Then
+            Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+            If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
+
+                Dim resultado As DataTable = ObjInventario.DtResultados
+                Dim importe As Decimal = resultado.SUMD("Total").RoundSQL
+                'Dim IdCtaContableSalida As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenOrigen.SelectedValue.ToEntero)).ToEntero
+                'Dim IdCtaContableEntrada As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenDestino.SelectedValue.ToEntero)).ToEntero
+                Dim Contabilizable As Boolean = True
+
+                If IdCtaContableOrigen = IdCtaContableDestino And TipoAlmacenDestino <> 26 Then Contabilizable = False
+
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContableOrigen, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable, ImporteMX:=importe) Then
+                    ErrorMovInv = True
                 End If
-                Dim Concepto As String = TxtObservaciones.Text
-                If Concepto = "" Then Concepto = "Traspaso"
-                'AGREGAMOS PREPOLIZAS TRASPASO DIRECTO:
-                If Not ErrorMovInv Then
-                    Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                    If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
 
-                        Dim resultado As DataTable = ObjInventario.DtResultados
+                'si el tipo de almacen de entrada es Almacen sin costo, se registra al costo, la salida. 
-                        Dim importe As Decimal = resultado.SUMD("Total").RoundSQL
+                If TipoAlmacenOrigen <> 26 AndAlso TipoAlmacenDestino = 26 Then
-                        'Dim IdCtaContableSalida As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenOrigen.SelectedValue.ToEntero)).ToEntero
-                        'Dim IdCtaContableEntrada As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenDestino.SelectedValue.ToEntero)).ToEntero
-                        Dim Contabilizable As Boolean = True
 
-                        If IdCtaContableOrigen = IdCtaContableDestino And TipoAlmacenDestino <> 26 Then Contabilizable = False
+                    Dim tCveClasificacion As Integer = DtMovimientos.MAX("CveClasificacion").ToEntero
-
+                    Dim dr As DataRow = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=tCveClasificacion).FiltroPrimero("")
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContableOrigen, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable, ImporteMX:=importe) Then
+                    Dim IdCuentaCostos As Integer = -1
-                            ErrorMovInv = True
+                    If dr IsNot Nothing Then
-                        End If
+                        IdCuentaCostos = dr("IdCuentaCostos").ToString.ToEntero
-
-                        'si el tipo de almacen de entrada es Almacen sin costo, se registra al costo, la salida. 
-                        If TipoAlmacenOrigen <> 26 AndAlso TipoAlmacenDestino = 26 Then
-
-                            Dim tCveClasificacion As Integer = DtMovimientos.MAX("CveClasificacion").ToEntero
-                            Dim dr As DataRow = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=tCveClasificacion).FiltroPrimero("")
-                            Dim IdCuentaCostos As Integer = -1
-                            If dr IsNot Nothing Then
-                                IdCuentaCostos = dr("IdCuentaCostos").ToString.ToEntero
-                            End If
-                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 69, TxtObservaciones.Text, Fecha, IdCuentaCostos, -1, CveClasificacion:=tCveClasificacion, CveSubProyecto:=CveSubProyectoOrigen, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable, ImporteMX:=importe) Then
-                                ErrorMovInv = True
-                            End If
-                            Contabilizable = False
-                            importe = 0
-                        End If
-
-                        If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContableDestino, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=Contabilizable, ImporteMX:=importe) Then
-                            ErrorMovInv = True
-                        End If
                     End If
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 69, TxtObservaciones.Text, Fecha, IdCuentaCostos, -1, CveClasificacion:=tCveClasificacion, CveSubProyecto:=CveSubProyectoOrigen, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable, ImporteMX:=importe) Then
+                        ErrorMovInv = True
+                    End If
+                    Contabilizable = False
+                    importe = 0
+                End If
+
+                If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContableDestino, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=Contabilizable, ImporteMX:=importe) Then
+                    ErrorMovInv = True
                 End If
             End If
+        End If
+        End If
         Else
-            If Not ErrorMovInv Then
+        If Not ErrorMovInv Then
-                Dim Concepto As String = TxtObservaciones.Text
+            Dim Concepto As String = TxtObservaciones.Text
-                If Concepto = "" Then Concepto = "Traspaso"
+            If Concepto = "" Then Concepto = "Traspaso"
-                Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen2", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+            Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen2", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
+            If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
 
-                    Dim resultado As DataTable = ObjInventario.DtResultados
+                Dim resultado As DataTable = ObjInventario.DtResultados
-                    Dim importe As Decimal = resultado.SUMD("Total").RoundSQL
+                Dim importe As Decimal = resultado.SUMD("Total").RoundSQL
-                    Dim IdCtaContable As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenTransitorio.SelectedValue.ToEntero)).ToEntero
+                Dim IdCtaContable As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenTransitorio.SelectedValue.ToEntero)).ToEntero
 
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=importe, Contabilizable:=False) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=importe, Contabilizable:=False) Then
-                        ErrorMovInv = True
+                    ErrorMovInv = True
-                    End If
+                End If
 
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=importe, Contabilizable:=False) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=importe, Contabilizable:=False) Then
-                        ErrorMovInv = True
+                    ErrorMovInv = True
-                    End If
                 End If
             End If
         End If
+        End If
 
 
 
@@ -1691,9 +1695,8 @@ Partial Class Inventarios_TraspasoAlmacen
                 'VIRTUAL ENTRADA
 
                 If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
-                    Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero}").ToEntero()
 
-                    Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero()
+                    Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero).FiltroPrimeroValor("CveAlmacenVirtual", "").ToEntero()
 
                     'SI EL ALMACEN ORIGEN ES DE APOPYO LOGISTICO EL ALMACEN VIRTUAL DEBE SER DE APOYO LOGISTICO
                     'Dim CveAlmacenVirtual As Integer = -1
@@ -1705,24 +1708,27 @@ Partial Class Inventarios_TraspasoAlmacen
 
                     If CveAlmacenVirtual > 0 Then
 
-                        CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/C2")
-                        FolioVirtualEntrada = ObjInventario.Folio
                         Dim dtvirtual As DataTable = Nothing
 
-                        If CveMovimientoVirtualEntrada > 0 AndAlso ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoEntrada, UsuarioActual.CveEmpresa, CveMovimientoRelacionado:=CveMovimientoSalida) Then
+                        If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoEntrada, UsuarioActual.CveEmpresa, CveMovimientoRelacionado:=CveMovimientoSalida) Then
                             dtvirtual = ObjInventario.DtResultados
-                            For Each RowVirtual As DataRow In dtvirtual.Rows
+                            If dtvirtual.Rows.Count > 0 Then
-                                Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
+                                CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/C2")
-                                Dim CantidadUsado As Decimal = RowVirtual("Cantidad").ToString().ToDecimal()
+                                FolioVirtualEntrada = ObjInventario.Folio
-                                Dim PU As Decimal = RowVirtual("PUOriginal").ToString().ToDecimal()
+                                For Each RowVirtual As DataRow In dtvirtual.Rows
-                                Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero()
+                                    Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
-                                Dim CostoIndirecto As Decimal = RowVirtual("CostoIndirecto").ToString().ToDecimal()
+                                    Dim CantidadUsado As Decimal = RowVirtual("Cantidad").ToString().ToDecimal()
+                                    Dim PU As Decimal = RowVirtual("PUOriginal").ToString().ToDecimal()
+                                    Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero()
+                                    Dim CostoIndirecto As Decimal = RowVirtual("CostoIndirecto").ToString().ToDecimal()
+
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualEntrada, CantidadUsado, CveUM, CvePS, PU, -1, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                                        ErrorMovInv = True
+                                        Exit For
+                                    End If
+                                Next
+                            End If
 
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualEntrada, CantidadUsado, CveUM, CvePS, PU, -1, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
-                                    ErrorMovInv = True
-                                    Exit For
-                                End If
-                            Next
                         Else
                             TextoError = "No se pudo registrar el movimiento virtual"
                             ErrorMovInv = True
@@ -1843,8 +1849,8 @@ Partial Class Inventarios_TraspasoAlmacen
 
 
             'AGREGAMOS LA SALIDA
-            CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenSalida, 8, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
+            'CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenSalida, 8, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
-                                                              Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveAlmacenDestino:=GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero, Modulo:="TA/G11")
+            '                                                  Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveAlmacenDestino:=GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero, Modulo:="TA/G11")
 
             'AGREGAMOS LA ENTRADA
             CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacenEntrada, 27, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
@@ -1885,12 +1891,12 @@ Partial Class Inventarios_TraspasoAlmacen
                             TextoError = "Ocurrió un error al guardar los movimientos de salida"
                             Exit For
                         End If
-                        'MOV, Alm, Transito
+                        ''MOV, Alm, Transito
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal, gvr.DataKey("CveUM").ToString.ToEntero, gvr.DataKey("CvePS").ToString.ToEntero, PrecioEntrada, CveAF:=gvr.DataKey("CveAF").ToString.ToEntero, CveSeccionAlmacen:=gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, Serie:=gvr.DataKey("Serie").ToString, Lote:=gvr.DataKey("Lote").ToString, FechaCaducidad:=gvr.DataKey("FechaCaducidad").ToDate, CveMovimientoDetalleEntrada:=CveMovimientoDetalleEntrada) Then
+                        'If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal, gvr.DataKey("CveUM").ToString.ToEntero, gvr.DataKey("CvePS").ToString.ToEntero, PrecioEntrada, CveAF:=gvr.DataKey("CveAF").ToString.ToEntero, CveSeccionAlmacen:=gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, Serie:=gvr.DataKey("Serie").ToString, Lote:=gvr.DataKey("Lote").ToString, FechaCaducidad:=gvr.DataKey("FechaCaducidad").ToDate, CveMovimientoDetalleEntrada:=CveMovimientoDetalleEntrada) Then
-                            ErrorMovInv = True
+                        '    ErrorMovInv = True
-                            TextoError = "Ocurrió un error al guardar los movimientos de salida"
+                        '    TextoError = "Ocurrió un error al guardar los movimientos de salida"
-                            Exit For
+                        '    Exit For
-                        End If
+                        'End If
 
                     ElseIf cantidadDisponibleValidacion < 0 Then
                         TextoError = String.Format("Se exceden la cantidad disponibles para {0}", gvr.DataKey("PS").ToString)
@@ -1901,21 +1907,21 @@ Partial Class Inventarios_TraspasoAlmacen
                 If Not ErrorMovInv Then
                     Dim Concepto As String = TxtObservacionesRecepcion.Text
                     If Concepto = "" Then Concepto = "Recepción Traspaso"
-                    Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                    'Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                    If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then
+                    'If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then
 
-                        Dim resultado As DataTable = ObjInventario.DtResultados
+                    '    Dim resultado As DataTable = ObjInventario.DtResultados
-                        Dim importe As Decimal = resultado.SUMD("Total").RoundSQL
+                    '    Dim importe As Decimal = resultado.SUMD("Total").RoundSQL
-                        Dim IdCtaContable As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero)).ToEntero
+                    '    Dim IdCtaContable As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero)).ToEntero
 
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=importe, Contabilizable:=False) Then
+                    '    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=importe, Contabilizable:=False) Then
-                            ErrorMovInv = True
+                    '        ErrorMovInv = True
-                        End If
+                    '    End If
 
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=importe, Contabilizable:=False) Then
+                    '    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=importe, Contabilizable:=False) Then
-                            ErrorMovInv = True
+                    '        ErrorMovInv = True
-                        End If
+                    '    End If
-                    End If
+                    'End If
                 End If
             End If
 
@@ -1924,35 +1930,31 @@ Partial Class Inventarios_TraspasoAlmacen
             Dim CveMovimientoVirtualEntrada As Integer = 0
             Dim FolioVirtualEntrada As Integer = 0
             If RealizarMovimientoVirtual Then
-                'Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenRecepcion.SelectedValue}").ToEntero()
 
-                'Dim CveAlmacenVirtual As Integer = -1
+                Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenRecepcion.SelectedValue.ToEntero).FiltroPrimeroValor("CveAlmacenVirtual", "").ToEntero()
-                'If TipoAlmacenDestino = 27 Then
-                '    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =25 AND CveSubProyecto={CveSubProyecto}").ToEntero()
-                'Else
-                '    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyecto}").ToEntero()
-                'End If
-                Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenRecepcion.SelectedValue.ToEntero()).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero()
 
                 If CveAlmacenVirtual > 0 Then
 
-                    CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 2, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/S2")
-                    FolioVirtualEntrada = ObjInventario.Folio
                     Dim dtvirtual As DataTable = Nothing
 
-                    If CveMovimientoVirtualEntrada > 0 AndAlso ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then
+                    If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then
                         dtvirtual = ObjInventario.DtResultados
-                        For Each RowVirtual As DataRow In dtvirtual.Rows
+                        If dtvirtual.Rows.Count > 0 Then
-                            Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
+                            CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 2, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/S2")
-                            Dim CantidadUsado As Decimal = RowVirtual("Cantidad").ToString().ToDecimal()
+                            FolioVirtualEntrada = ObjInventario.Folio
-                            Dim PU As Decimal = RowVirtual("PU").ToString().ToDecimal()
+                            For Each RowVirtual As DataRow In dtvirtual.Rows
-                            Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero()
+                                Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
+                                Dim CantidadUsado As Decimal = RowVirtual("Cantidad").ToString().ToDecimal()
+                                Dim PU As Decimal = RowVirtual("PU").ToString().ToDecimal()
+                                Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero()
+
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualEntrada, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                                    ErrorMovInv = True
+                                    Exit For
+                                End If
+                            Next
+                        End If
 
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualEntrada, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
-                                ErrorMovInv = True
-                                Exit For
-                            End If
-                        Next
                     Else
                         TextoError = "No se pudo registrar el movimiento virtual"
                         ErrorMovInv = True
@@ -2849,7 +2851,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
     Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
         SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
-        Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath)
+        Dim excelFile As ExcelFile = excelFile.Load(flatFilePath)
 
         Dim unnamed As Integer = 0
         Dim cols As Integer
@@ -2959,7 +2961,7 @@ Partial Class Inventarios_TraspasoAlmacen
             Else
                 Str = String.Format(" AND CveSubProyecto = {0}  ", DrAlmO("CveSubProyecto"))
             End If
-            DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("  CveTipoAlmacen NOT IN (3,4,9,10,11,24) AND Estatus = 'Activo' {0}   ", Str))
+            DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("  CveTipoAlmacen NOT IN (3,4,9,10,11,24,27,28) AND Estatus = 'Activo' {0}   ", Str))
             DdlAlmacenDestino.DataBind()
             DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
 

Ventas/Ventas.aspx.vb

@@ -2842,13 +2842,13 @@ Partial Class Ventas
         BloqueaClasificaciones()
 
         'NO PERMITIR AGREGAR PS DESDE VENTAS EN ECONOLLANTAS
-        If UsuarioActual.CveEmpresa = 141 Then
+        If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
             BtnModalAddPS.Enabled = False
         End If
         MostrarOpcioensPaqueteria()
     End Sub
     Private Sub BloqueaClasificaciones()
-        If UsuarioActual.CveEmpresa = 141 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
+        If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
             DdlClasificacion.Enabled = False
             DdlUnidadMedida.Enabled = False
         End If
@@ -5141,44 +5141,44 @@ Partial Class Ventas
 
     End Function
     Private Sub CargarAlmacenes()
-        If UsuarioActual.Empresa.UsaInventarios Then
-            If (CveVenta > 0 And DdlTipoComprobante.SelectedValue <> "Cot") AndAlso Not (UsuarioActual.CveEmpresa = 141 AndAlso EsCreaApartirDe) Then
-                DivAlmacen.Visible = False
-            Else
-                Dim DTAlmacen As DataTable
-                ddlAlmacen.Items.Clear()
-                DTAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}")
-                ddlAlmacen.DataSource = DTAlmacen
-                If DTAlmacen Is Nothing Or DTAlmacen.Rows.Count = 0 Then
-                    ddlAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
-                    ddlAlmacen.SelectedValue = "-1"
-                End If
-                ddlAlmacen.DataBind()
-                If GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}").Rows.Count > 0 Then
-                    ddlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
-                End If
-            End If
 
-            'SI TIENE CONTRATO NO SE MUEVE
+        If (CveVenta > 0 And DdlTipoComprobante.SelectedValue <> "Cot") AndAlso Not (UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso EsCreaApartirDe) Then
-            If Not CveContrato > 0 Then
+            DivAlmacen.Visible = False
-                DdlAlmacenAsignado.Items.Clear()
-                DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()} AND CveTipoAlmacen IN (4,10)")
-                DdlAlmacenAsignado.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
-                DdlAlmacenAsignado.SelectedValue = "-1"
-                DdlAlmacenAsignado.DataBind()
-                DdlAlmacenAsignado.SelectedValueExist(GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen = 10 AND CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}").ToString().ToEntero())
-            End If
-
-            If CveContrato > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC") Then
-                DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}")
-                DdlAlmacenAsignado.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
-                DdlAlmacenAsignado.SelectedValue = "-1"
-                DdlAlmacenAsignado.DataBind()
-                DdlAlmacenAsignado.SelectedValueExist(GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString().ToEntero())
-            End If
         Else
-            ddlAlmacen.DataSource = Nothing
+            Dim DTAlmacen As DataTable
+            ddlAlmacen.Items.Clear()
+            DTAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}")
+            ddlAlmacen.DataSource = DTAlmacen
+            If DTAlmacen Is Nothing Or DTAlmacen.Rows.Count = 0 Then
+                ddlAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
+                ddlAlmacen.SelectedValue = "-1"
+            End If
             ddlAlmacen.DataBind()
+            If GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}").Rows.Count > 0 Then
+                ddlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
+            End If
+        End If
+
+        'SI TIENE CONTRATO NO SE MUEVE
+        If Not CveContrato > 0 Then
+            DdlAlmacenAsignado.Items.Clear()
+            DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()} AND CveTipoAlmacen IN (4,10)")
+            DdlAlmacenAsignado.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
+            DdlAlmacenAsignado.SelectedValue = "-1"
+            DdlAlmacenAsignado.DataBind()
+            DdlAlmacenAsignado.SelectedValueExist(GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen = 10 AND CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}").ToString().ToEntero())
+        End If
+
+        If CveContrato > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC") Then
+            DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}")
+            DdlAlmacenAsignado.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
+            DdlAlmacenAsignado.SelectedValue = "-1"
+            DdlAlmacenAsignado.DataBind()
+            DdlAlmacenAsignado.SelectedValueExist(GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString().ToEntero())
+        End If
+        Else
+        ddlAlmacen.DataSource = Nothing
+        ddlAlmacen.DataBind()
         End If
 
         UpINV.Update()
@@ -5524,7 +5524,7 @@ Partial Class Ventas
                 DdlSucursalCliente.DataBind()
 
                 'SI UTILIZA EL RFC GENERICO PERMITE FACTURAR SUCURSAL
-                If (Not UsuarioActual.CveEmpresa.Contiene(141)) AndAlso (CveVenta <= 0 OrElse NuevaFactura = 1) AndAlso LblRFC.Text.Trim() = "XAXX010101000" Then
+                If (Not UsuarioActual.Empresa.Funcionalidad(558) = "1") AndAlso (CveVenta <= 0 OrElse NuevaFactura = 1) AndAlso LblRFC.Text.Trim() = "XAXX010101000" Then
                     HabilitarFacturacionSucursal()
                 End If
 
@@ -5955,7 +5955,7 @@ Partial Class Ventas
                     End If
 
                     'SI EL CLIENTE TIENE RFC GENERICO Y LA SUCURSAL TIENE RFC DEBE FACTURAR LA SUCURSAL
-                    If (Not UsuarioActual.CveEmpresa.Contiene(141)) AndAlso LblRFC.Text.Trim() = "XAXX010101000" AndAlso Not String.IsNullOrEmpty(ObjCliente.DtResultados.Rows(0)("RFC").ToString()) Then
+                    If (Not UsuarioActual.Empresa.Funcionalidad(558) = "1") AndAlso LblRFC.Text.Trim() = "XAXX010101000" AndAlso Not String.IsNullOrEmpty(ObjCliente.DtResultados.Rows(0)("RFC").ToString()) Then
                         Me.FacturarSucursal = True
 
                         LtlTitleRFCSucursal.Text = "RFC:"
@@ -6114,7 +6114,7 @@ Partial Class Ventas
             End If
 
             Dim cvesubproyecto As String = DdlSubProyectoDatos.SelectedValue
-            If UsuarioActual.CveEmpresa = 141 Then
+            If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
                 cvesubproyecto = "-1"
             End If
 
@@ -6440,7 +6440,7 @@ Partial Class Ventas
         GvPS.DataSource = TmpDT
         DtInv = TmpDT.Copy.FiltraParametros("CveTipoPS = 2")
         GvPS.DataBind()
-        If UsuarioActual.CveEmpresa = 141 Then
+        If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
             GvPS.Rows(e.NewEditIndex).FCDropDownList("DdlUnidadMedida").Enabled = False
             GvPS.Rows(e.NewEditIndex).FCDropDownList("DdlClasificacion").Enabled = False
         End If
@@ -6461,7 +6461,7 @@ Partial Class Ventas
         ObjDescuento.ImporteDescuento = (GvPS.Rows(e.RowIndex).FCTextBox("TxtDescuento").Text.ToDecimal).RoundSQL(NumeroDecimales)
         CuentaPredial = GvPS.Rows(e.RowIndex).FCTextBox("TxtPredial").Text.Trim
 
-        If PU <= 0 AndAlso UsuarioActual.CveEmpresa = 141 Then
+        If PU <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
             Alert("El precio debe ser mayor a 0", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
@@ -6824,7 +6824,7 @@ Partial Class Ventas
                 'SI DEBE HACER SALIDA DIRECTA DE ALMACEN DEBE ESTAR SELECCIONADO SIEMPRE
                 If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then
                     e.Row.FCCheckBox("cbInv").Checked = True
-                    If UsuarioActual.CveEmpresa = 141 Then
+                    If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
                         e.Row.FCCheckBox("cbInv").Enabled = False
                     End If
                 End If
@@ -6836,7 +6836,7 @@ Partial Class Ventas
                 e.Row.FCCheckBox("cbInv").Visible = False
             End If
 
-            If (CveVenta > 0 AndAlso EsCreaApartirDe AndAlso UsuarioActual.CveEmpresa = 141) Then
+            If (CveVenta > 0 AndAlso EsCreaApartirDe AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1") Then
                 e.Row.FCCheckBox("cbInv").Visible = True
             End If
 
@@ -7987,7 +7987,7 @@ Partial Class Ventas
                                 If CveVenta > 0 Then MensajeAlert = New StringBuilder
                                 Dim ArchivoCotizacion As New System.IO.FileInfo(String.Format("{0}Formatos/Cotizacion.rdlc", UsuarioActual.Empresa.Ruta))
 
-                                If Opcion = "Cot" And UsuarioActual.CveEmpresa = 141 Then
+                                If Opcion = "Cot" And UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
                                     MensajeAlert.AppendFormat("<b><a class='Texto' href=""Ventas.aspx?CveVenta={0}"">Facturar</a></b><br/><br/>", CveVenta)
                                 End If
 
@@ -12418,7 +12418,7 @@ Partial Class Ventas
                 End If
 
                 'EN ECONOLLANTAS DEBE REALIZAR SIEMPRE LA SALIDA DE ALMACEN
-                If UsuarioActual.CveEmpresa = 141 AndAlso UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then
+                If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then
                     For Each GvRow As GridViewRow In GvInv.Rows
                         If GvRow.RowType = DataControlRowType.DataRow Then
                             GvRow.FCCheckBox("cbInv").Checked = True
@@ -12597,7 +12597,7 @@ Partial Class Ventas
 
                 Dim DebeGenerarMovimiento As Boolean = TmpDT.COUNT("CvePS", "CveTipoPS = 2") > 0
                 'VERIFICA QUE SE REALIZO EL MOVIMIENTO DE ALMACEN
-                If DebeGenerarMovimiento AndAlso UsuarioActual.CveEmpresa = 141 AndAlso UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then
+                If DebeGenerarMovimiento AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then
                     If Not (ObjInventario.GetInv_Mov(factura.CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0) Then
                         OcurrioError = True
                     End If
@@ -13359,7 +13359,7 @@ Partial Class Ventas
 
 
 
-            End If
+        End If
     End Sub
     Protected Sub BtnAceptarAnticipos_Click(sender As Object, e As System.EventArgs) Handles BtnAceptarAnticipos.Click
         Anticipos()
@@ -15679,7 +15679,7 @@ Partial Class Ventas
             Return False
         End If
 
-        If PU <= 0 AndAlso UsuarioActual.CveEmpresa = 141 Then
+        If PU <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
             Alert("El precio debe ser mayor a 0", TipoMensaje.MsgAdvertencia)
             Return False
         End If
@@ -17082,7 +17082,7 @@ Partial Class Ventas
         GvPS.DataBind()
 
         'RECARGA GV INVENTARIO
-        If (Not CveVenta > 0 Or DdlTipoComprobante.SelectedValue = "Cot") OrElse (UsuarioActual.CveEmpresa = 141 AndAlso EsCreaApartirDe) Then
+        If (Not CveVenta > 0 Or DdlTipoComprobante.SelectedValue = "Cot") OrElse (UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso EsCreaApartirDe) Then
             DtInv = TmpDT.Copy.FiltraParametros("CveTipoPS = 2")
             CargaGVInv(DtInv)
         End If
@@ -18370,20 +18370,20 @@ Partial Class Ventas
 
 
         If Con.GetEstimacionesPorFacturar(-1, CveCliente, DdlContrato.SelectedValue.ToEntero(), 0, UsuarioActual.CveEmpresa) Then
-                GvEst.DataSource = Con.DtResultados
+            GvEst.DataSource = Con.DtResultados
-                If Con.DtResultados.Rows.Count > 0 Then
+            If Con.DtResultados.Rows.Count > 0 Then
-                    'BtnEstimacion.Visible = True
+                'BtnEstimacion.Visible = True
-                    DdlContrato.Items.Clear()
+                DdlContrato.Items.Clear()
-                    DdlContrato.Items.Add(New ListItem("Todos", "-1"))
+                DdlContrato.Items.Add(New ListItem("Todos", "-1"))
-                    DdlContrato.DataSource = Con.DtResultados.FiltraParametros("CveContrato > 0", "NumeroContrato", DistinctColumns:={"CveContrato", "NumeroContrato"})
+                DdlContrato.DataSource = Con.DtResultados.FiltraParametros("CveContrato > 0", "NumeroContrato", DistinctColumns:={"CveContrato", "NumeroContrato"})
-                End If
             End If
+        End If
 
 
-            UPEstimaciones.Update()
+        UPEstimaciones.Update()
-            Con.Dispose()
+        Con.Dispose()
-            DdlContrato.DataBind()
+        DdlContrato.DataBind()
-            GvEst.DataBind()
+        GvEst.DataBind()
 
 
 
@@ -19596,7 +19596,7 @@ Partial Class Ventas
         Dim TienePagos As Boolean = ((Not (DtPagos Is Nothing OrElse DtPagos.Rows.Count = 0)) AndAlso (DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0)) OrElse AmortizacionNC > 0
 
         'SI LA VENTA ES NUEVA VALIDAR TAMBIEN LOS PAGOS DE CONTADO
-        If UsuarioActual.CveEmpresa = 141 AndAlso CveVenta <= 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant") Then
+        If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso CveVenta <= 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant") Then
 
             If Not PermiteCredito AndAlso Not TienePagos AndAlso TxtTotal.Text.ToDecimal > 0 Then
                 Alert("Es necesario especificar un pago.", TipoMensaje.MsgAdvertencia)
@@ -19623,7 +19623,7 @@ Partial Class Ventas
                 Retorno = True
             End If
 
-            If UsuarioActual.CveEmpresa = 141 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant") Then
+            If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant") Then
 
                 If Not PermiteCredito AndAlso TienePagos AndAlso TxtTotal.Text.ToDecimal > 0 Then
                     Dim TotalPago As Decimal = DtPagos.SUM("Importe").ToDecimal() + AmortizacionNC
@@ -20894,7 +20894,7 @@ Partial Class Ventas
             End If
             ObjVentas.Dispose()
         Else
-                CancelarDocumento()
+            CancelarDocumento()
         End If
 
     End Sub
@@ -27101,7 +27101,7 @@ Partial Class Ventas
         CargaAnticipos(CveCliente)
         CargaRestriccionesCreditoCliente(CveVenta:=-1)
 
-        If UsuarioActual.CveEmpresa = 141 Then
+        If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
             TabAlmacen.Visible = True
             DivAlmacen.Visible = True
             CargaGVInv(TmpDT.FiltraParametros("CveTipoPS = 2"))
@@ -27164,7 +27164,7 @@ Partial Class Ventas
     Private Function ValidaFacturarCotizacion() As Boolean
         Dim Retorno As Boolean = True
 
-        If UsuarioActual.CveEmpresa = 141 Then
+        If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
             Dim Total As Decimal = TxtTotal.Text.ToDecimal()
 
             Dim AmortizacionNC As Decimal = 0