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

Acumuladores/CatFoliosGarantia.aspx

@@ -372,10 +372,20 @@
                                     </td>
                                 </tr>
                             </table>
+                            <div class="row">
+                                <div class="col-md-6">
+                                </div>
+                                <div class="col-md-6">
+                                    <div class="Widthall" style="text-align: right!important; margin-top: 20px!important; margin-bottom: 2px!important">
+                                        <input type="text" id="TxtBusqueda2" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvGarantiasDetalle.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                                        <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvFolioGarantia.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                                    </div>
+                                </div>
+                            </div>
                             <div class="row">
                                 <div class="col-md-12">
-                                    <div style="overflow-y: auto; height: 400px; width:1200px;">
+                                    <div style="overflow-y: auto; height: 400px; width: 1200px;" runat="server">
-                                        <asp:GridView ID="GvGarantiasDetalle" ClientIDMode="Static" runat="server" AutoGenerateColumns="false" Width="100%" EmptyDataText="No se encontraron datos" CssClass="table table-striped table-hover Widthall" BorderColor="#D3D3D3" GridLines="None">
+                                        <asp:GridView ID="GvGarantiasDetalle" runat="server" AutoGenerateColumns="false" Width="100%" EmptyDataText="No se encontraron datos" CssClass="table table-striped table-hover Widthall" BorderColor="#D3D3D3" GridLines="None">
                                             <Columns>
                                                 <asp:BoundField DataField="Consecutivo" HeaderText="Consecutivo" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="5%" />
                                                 <asp:BoundField DataField="FolioFactura" HeaderText="Factura" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="10%" />
@@ -398,6 +408,7 @@
                         <div class="modal-footer">
                             <asp:UpdatePanel runat="server">
                                 <ContentTemplate>
+                                    <asp:Button ID="BtnExportarExcel" Text="Generar Excel" CssClass="btn btn-success" runat="server" OnClick="BtnExportarExcel_Click" />
                                     <button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
                                 </ContentTemplate>
                             </asp:UpdatePanel>
@@ -406,6 +417,9 @@
                 </div>
             </div>
         </ContentTemplate>
+        <Triggers>
+           <asp:PostBackTrigger ControlID="BtnExportarExcel" />
+        </Triggers>
     </asp:UpdatePanel>
 
 </asp:Content>

Acumuladores/CatFoliosGarantia.aspx.vb

@@ -248,4 +248,11 @@ Partial Class Acumuladores_CatFoliosGarantia
         CargadatosGvFolioGarantia(DdlEstatus.SelectedValue.ToEntero, DdlTipoFolio.SelectedValue)
     End Sub
 
+    Protected Sub BtnExportarExcel_Click(sender As Object, e As EventArgs)
+        GvGarantiasDetalle.ExportToExcelG(LblFolio.Text, "Ajustes de Garantía", UsuarioActual)
+        'GvGarantiasDetalle.ExportToExcelx(LblFolio.Text)
+    End Sub
+
+    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
+    End Sub
 End Class

App_Code/Modelos.vb

@@ -1775,7 +1775,7 @@ Namespace Modelos
                         AlmacenEntrada = CveAlmacenDestino
 
                         CveMovimientoEntrada2 = ObjInventario.AddMovimiento(AlmacenEntrada, 9, 1, Me.Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=-1,
-                                                                            CveMovimientoRelacionado:=CveMovimientoSalida2, CveOS:=CveOS, Modulo:="Mod/OS")
+                                                                            CveMovimientoRelacionado:=CveMovimientoSalida2, CveOS:=CveOS, Modulo:="Mod/OS1")
                         FolioEntrada = ObjInventario.Folio
 
                         If CveMovimientoEntrada2 <= 0 Then
@@ -1803,7 +1803,7 @@ Namespace Modelos
                         AlmacenEntrada = CveAlmacenDestino
 
                         CveMovimientoEntrada3 = ObjInventario.AddMovimiento(AlmacenEntrada, 3, 1, Me.Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=-1,
-                                                                            CveMovimientoRelacionado:=CveMovimientoSalida3, CveOS:=CveOS, Modulo:="Mod/OS")
+                                                                            CveMovimientoRelacionado:=CveMovimientoSalida3, CveOS:=CveOS, Modulo:="Mod/OS2")
                         FolioEntrada = ObjInventario.Folio
 
                         If CveMovimientoEntrada3 <= 0 Then
@@ -1842,7 +1842,7 @@ Namespace Modelos
 
 
             'MOVIMIENTO DE SALIDA POR TRASPASO DEL ALMACEN DE CONSIGNACION
-            CveMovimientoSalidaConsignacion = ObjInventario.AddMovimiento(CveAlmacenExistenciasContrato, 8, 1, Me.Fecha, -1, Me.CveUsuario, Me.CveEmpresa, -1, Me.CveVenta, -1, -1, Modulo:="Mod/E")
+            CveMovimientoSalidaConsignacion = ObjInventario.AddMovimiento(CveAlmacenExistenciasContrato, 8, 1, Me.Fecha, -1, Me.CveUsuario, Me.CveEmpresa, -1, Me.CveVenta, -1, -1, Modulo:="Mod/CV")
             If CveMovimientoSalidaConsignacion > 0 Then
                 Dim CveProducto As Integer
                 Dim CveUnidad As Integer
@@ -1885,7 +1885,7 @@ Namespace Modelos
 
 
             'ENTRADA POR TRASPASO A GENERAL
-            CveMovimientoEntradaGeneral = ObjInventario.AddMovimiento(Me.CveAlmacenOrigenContrato, 9, 1, Me.Fecha, -1, Me.CveUsuario, Me.CveEmpresa, -1, Me.CveVenta, -1, -1, CveMovimientoRelacionado:=CveMovimientoSalidaConsignacion, Modulo:="Mod/E")
+            CveMovimientoEntradaGeneral = ObjInventario.AddMovimiento(Me.CveAlmacenOrigenContrato, 9, 1, Me.Fecha, -1, Me.CveUsuario, Me.CveEmpresa, -1, Me.CveVenta, -1, -1, CveMovimientoRelacionado:=CveMovimientoSalidaConsignacion, Modulo:="Mod/E2")
             If CveMovimientoEntradaGeneral > 0 Then
                 If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaConsignacion, UsuarioActual.CveEmpresa) Then
                     For Each Dr As DataRow In ObjInventario.DtResultados.Rows
@@ -1899,7 +1899,7 @@ Namespace Modelos
             End If
 
             'SALIDA GENERAL
-            CveMovimientoEntradaGeneral = ObjInventario.AddMovimiento(Me.CveAlmacenOrigenContrato, 3, 1, Me.Fecha, -1, Me.CveUsuario, Me.CveEmpresa, -1, Me.CveVenta, -1, -1, Modulo:="Mod/E")
+            CveMovimientoEntradaGeneral = ObjInventario.AddMovimiento(Me.CveAlmacenOrigenContrato, 3, 1, Me.Fecha, -1, Me.CveUsuario, Me.CveEmpresa, -1, Me.CveVenta, -1, -1, Modulo:="Mod/E3")
             If CveMovimientoEntradaGeneral > 0 Then
                 If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaConsignacion, UsuarioActual.CveEmpresa) Then
                     For Each Dr As DataRow In ObjInventario.DtResultados.Rows
@@ -3610,7 +3610,7 @@ Namespace Modelos
             Dim OcurrioError As Boolean = False
             If UsuarioActual.Empresa.UsaInventarios AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") AndAlso (DtRecepcionUsados IsNot Nothing Or DtAjustes IsNot Nothing) Then
                 If factura.CveAlmacenRecepcionUsados > 0 Then
-                    Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(factura.CveAlmacenRecepcionUsados, 2, factura.CveMoneda, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1, Modulo:="Mod/E")
+                    Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(factura.CveAlmacenRecepcionUsados, 2, factura.CveMoneda, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1, Modulo:="Mod/E4")
 
                     Dim DtTemporal As DataTable = Nothing
                     Dim DtTemporalMovimientosDetalle As DataTable = Nothing
@@ -3667,7 +3667,7 @@ Namespace Modelos
 
             If UsuarioActual.Empresa.UsaInventarios AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then
                 If factura.CveAlmacen > 0 AndAlso DtInventario.Rows.Count > 0 Then
-                    Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(factura.CveAlmacen, 3, factura.CveMoneda, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1, Modulo:="Mod/E")
+                    Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(factura.CveAlmacen, 3, factura.CveMoneda, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1, Modulo:="Mod/E5")
 
                     If CveMovimientoInventario <= 0 Then
                         OcurrioError = True
@@ -3952,7 +3952,7 @@ Namespace Modelos
             Dim ContadorMovtosDetalles = 0
 
             'Creamos el movimiento
-            Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(CveAlmacen, ConceptoEntrada, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, CveMovimientoRelacionado:=CveMovimientoRelacionado)
+            Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(CveAlmacen, ConceptoEntrada, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, CveMovimientoRelacionado:=CveMovimientoRelacionado,, Modulo:="Mod/M2")
 
             If CveMovimientoInventario > 0 Then
 
@@ -4800,7 +4800,7 @@ Namespace Modelos
                                     'SI TIENE SALDO PENDIENTE POR DEVOLVER GENERA UN MOVIMIENTO DE DEVOLUCION
                                     If ObjFactura.SaldoAlmacen <> 0 Then
                                         'SALIDA DE ALMACEN - SALIDA POR TRASPASO CUANDO ES REMISION - DEVOLUCION (SI ES TRASPASO Y TIENE CONTRATO NO HACE DEVOLUCIóN)
-                                        CveMovimientoDevolucion = ObjInventario.AddMovimiento(CveAlmacenDevolucion, CveConceptoDevolucion, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=-1)
+                                        CveMovimientoDevolucion = ObjInventario.AddMovimiento(CveAlmacenDevolucion, CveConceptoDevolucion, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=-1, Modulo:="Mod/CV1")
                                         Folio = ObjInventario.Folio
 
                                         If CveMovimientoDevolucion > 0 Then
@@ -5314,11 +5314,11 @@ Namespace Modelos
                                 End If
 
                                 'SALIDA GENERAL
-                                CveMovimientoSalidaDevRem = ObjInventario.AddMovimiento(CveAlmacenDevolucion, 8, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, DrMovtos("CveRem").ToString.ToEntero, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimiento, CveAlmacenDestino:=CveAlmacenTraspasoDestinoDevRem)
+                                CveMovimientoSalidaDevRem = ObjInventario.AddMovimiento(CveAlmacenDevolucion, 8, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, DrMovtos("CveRem").ToString.ToEntero, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimiento, CveAlmacenDestino:=CveAlmacenTraspasoDestinoDevRem, Modulo:="Mod/ExAR1")
                                 FolioMovimientoSalidaDevRem = ObjInventario.Folio
 
                                 'ENTRADA ADELANTADO
-                                CveMovimientoEntradaDevRem = ObjInventario.AddMovimiento(CveAlmacenTraspasoDestinoDevRem, 9, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, DrMovtos("CveRem").ToString.ToEntero, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimientoSalidaDevRem, CveAlmacenDestino:=CveAlmacenDevolucion)
+                                CveMovimientoEntradaDevRem = ObjInventario.AddMovimiento(CveAlmacenTraspasoDestinoDevRem, 9, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, DrMovtos("CveRem").ToString.ToEntero, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimientoSalidaDevRem, CveAlmacenDestino:=CveAlmacenDevolucion, Modulo:="Mod/ExAR2")
                                 FolioMovimientoEntradaDevRem = ObjInventario.Folio
 
                                 If Not (CveMovimientoSalidaDevRem > 0 And CveMovimientoEntradaDevRem > 0) Then
@@ -5397,11 +5397,11 @@ Namespace Modelos
             Dim FolioMovimientoEntradaDevRem As Integer = 0
 
             'SALIDA DE (ENTREGA POR ADELANTADO)
-            CveMovimientoSalidaDevRem = ObjInventario.AddMovimiento(CveAlmacen, 8, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveRemision, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=CveAlmacenDestino)
+            CveMovimientoSalidaDevRem = ObjInventario.AddMovimiento(CveAlmacen, 8, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveRemision, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="Mod/CancExAR1")
             FolioMovimientoSalidaDevRem = ObjInventario.Folio
 
             'ENTRADA A (ALMACEN GENERAL)
-            CveMovimientoEntradaDevRem = ObjInventario.AddMovimiento(CveAlmacenDestino, 9, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveRemision, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimientoSalidaDevRem, CveAlmacenDestino:=CveAlmacenDestino)
+            CveMovimientoEntradaDevRem = ObjInventario.AddMovimiento(CveAlmacenDestino, 9, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveRemision, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimientoSalidaDevRem, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="Mod/CancExAR2")
             FolioMovimientoEntradaDevRem = ObjInventario.Folio
 
             If Not (CveMovimientoSalidaDevRem > 0 And CveMovimientoEntradaDevRem > 0) Then
@@ -5484,7 +5484,7 @@ Namespace Modelos
                     For Each Dr As DataRow In DtTempApartados.Rows
 
                         If CveMovimientoSalidaApartado = -1 Or CveAlmacenApartado <> Dr("CveAlmacen").ToString.ToEntero Then
-                            CveMovimientoSalidaApartado = ObjInventario.AddMovimiento(CveAlmacenOrigen, 8, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveVendedor:=1, CveCliente:=CveCliente, CveAlmacenDestino:=Dr("CveAlmacen").ToString.ToEntero)
+                            CveMovimientoSalidaApartado = ObjInventario.AddMovimiento(CveAlmacenOrigen, 8, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveVendedor:=1, CveCliente:=CveCliente, CveAlmacenDestino:=Dr("CveAlmacen").ToString.ToEntero, Modulo:="Mod/Apar1")
                             FolioSalida = ObjInventario.Folio
                             CveAlmacenApartado = Dr("CveAlmacen").ToString.ToEntero
 
@@ -5511,7 +5511,7 @@ Namespace Modelos
                         For Each Dr1 As DataRow In DtTraspasos.Rows
                             CveMovimientoSalida = Dr1("CveMovimientoSalida").ToString.ToEntero
 
-                            CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString.ToEntero, 9, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", CveAlmacenDestino:=CveAlmacenDevolucion, CveMovimientoRelacionado:=CveMovimientoSalida, Guia:="", CveContrato:=CveContrato, CveVendedor:=-1, CveCliente:=CveCliente)
+                            CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString.ToEntero, 9, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", CveAlmacenDestino:=CveAlmacenDevolucion, CveMovimientoRelacionado:=CveMovimientoSalida, Guia:="", CveContrato:=CveContrato, CveVendedor:=-1, CveCliente:=CveCliente, Modulo:="Mod/Apar2")
                             FolioEntrada = ObjInventario.Folio
 
                             If Not CveMovimientoEntradaApartado > 0 Then

Compras/Compras.aspx.vb

@@ -12585,6 +12585,9 @@ Partial Class Compras_Compras
 
             TmpDT.Rows(Indice)("PU") = TmpDT.Rows(Indice)("PU").ToString.ToDouble + tPU
             TmpDT.Rows(Indice)("Total") = TmpDT.Rows(Indice)("Total").ToString.ToDouble + ImporteAjuste
+            TmpDT.Rows(Indice)("IEPSPS") = (TmpDT.Rows(Indice)("Total").ToString.ToDouble() * TmpDT.Rows(Indice)("IEPSPSPorcentaje").ToString.ToDouble()).RoundAD(2)
+            'Row("IEPSPS") = Math.Round(IEPSPS, DecimalesPermitidos)
+            'Row("IEPSPSPorcentaje") = PorcentajeIEPS
             TmpDT.AcceptChanges()
         End If
 

Compras/PopUpVerFactura.aspx.vb

@@ -1154,28 +1154,6 @@ Partial Class PopUpVerFactura
 
                 End If
 
-                If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso (Vta.DtDocumentosRelacionados Is Nothing OrElse Vta.DtDocumentosRelacionados.Rows.Count = 0) Then
-                    If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
-                        Vta.DtNCVinculadas = ObjVentas.DtResultados
-                        Vta.DtDocumentosRelacionados = ObjVentas.DtResultados '.FiltraParametros("FolioFiscal IS NOT NULL")
-                        If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then
-                            If Vta.TipoDocto.Contiene("Ing") Then
-                                Vta.Timbre.CFDIRelacionados.TipoRelacion = "01"
-                                Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso"
-                            End If
-
-                            If Vta.TipoDocto.Contiene("Egs") Then
-                                Vta.Timbre.CFDIRelacionados.TipoRelacion = "01"
-                                Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso"
-                            End If
-
-                            If Vta.TipoDocto.Contiene("Dev") Then
-                                Vta.Timbre.CFDIRelacionados.TipoRelacion = "03"
-                                Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
-                            End If
-                        End If
-                    End If
-                End If
             End If
 
             'If UsuarioActual.CveEmpresa.Contiene(72, 80, 119) Then
@@ -1220,6 +1198,29 @@ Partial Class PopUpVerFactura
                 End If
             End If
 
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso (Vta.DtDocumentosRelacionados Is Nothing OrElse Vta.DtDocumentosRelacionados.Rows.Count = 0) Then
+                If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
+                    Vta.DtNCVinculadas = ObjVentas.DtResultados
+                    Vta.DtDocumentosRelacionados = ObjVentas.DtResultados '.FiltraParametros("FolioFiscal IS NOT NULL")
+                    If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then
+                        If Vta.TipoDocto.Contiene("Ing") Then
+                            Vta.Timbre.CFDIRelacionados.TipoRelacion = "01"
+                            Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso"
+                        End If
+
+                        If Vta.TipoDocto.Contiene("Egs") Then
+                            Vta.Timbre.CFDIRelacionados.TipoRelacion = "01"
+                            Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso"
+                        End If
+
+                        If Vta.TipoDocto.Contiene("Dev") Then
+                            Vta.Timbre.CFDIRelacionados.TipoRelacion = "03"
+                            Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
+                        End If
+                    End If
+                End If
+            End If
+
             'End If
 
             'If Vta.TipoDocto.Contiene("Egs", "Dev", "Ant") Then

Empresas/Grales/Formatos/RepRecuperacion.rdlc

@@ -88,7 +88,7 @@
                         <Border>
                           <Style>None</Style>
                         </Border>
-                        <BackgroundColor>=IIF(Fields!Orden.Value = "", "#67809F", "No color")</BackgroundColor>
+                        <BackgroundColor>=Switch(Fields!TipoFila.Value = 0 , "#67809F", Fields!TipoFila.Value = 1, "#CCCCCC",Fields!TipoFila.Value = 2, "Transparent")</BackgroundColor>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
@@ -124,7 +124,7 @@
                         <Border>
                           <Style>None</Style>
                         </Border>
-                        <BackgroundColor>=IIF(Fields!Orden.Value = "", "#67809F", "No color")</BackgroundColor>
+                        <BackgroundColor>=Switch(Fields!TipoFila.Value = 0 , "#67809F", Fields!TipoFila.Value = 1, "#CCCCCC",Fields!TipoFila.Value = 2, "Transparent")</BackgroundColor>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
@@ -251,7 +251,7 @@
                       <Border>
                         <Style>None</Style>
                       </Border>
-                      <BackgroundColor>=IIF(Fields!Orden.Value = "", "#67809F", "No color")</BackgroundColor>
+                      <BackgroundColor>=Switch(Fields!TipoFila.Value = 0 , "#67809F", Fields!TipoFila.Value = 1, "#CCCCCC",Fields!TipoFila.Value = 2, "Transparent")</BackgroundColor>
                       <PaddingLeft>2pt</PaddingLeft>
                       <PaddingRight>2pt</PaddingRight>
                       <PaddingTop>2pt</PaddingTop>
@@ -690,6 +690,10 @@
           <DataField>Orden</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+        <Field Name="TipoFila">
+          <DataField>TipoFila</DataField>
+          <rd:TypeName>System.Integer</rd:TypeName>
+        </Field>
       </Fields>
       <rd:DataSetInfo>
         <rd:DataSetName>DataSet</rd:DataSetName>

Empresas/Grales/Formatos/RepVentas.rdlc

@@ -342,7 +342,8 @@
                         <Border>
                           <Style>None</Style>
                         </Border>
-                        <BackgroundColor>=IIF(Fields!GPO.Value = "Total Pesos" OR Fields!GPO.Value = "Total Dólares","#67809F","Transparent")</BackgroundColor>
+                        
+                        <BackgroundColor>=Switch(Fields!TipoFila.Value = 0 , "#67809F", Fields!TipoFila.Value = 1, "#CCCCCC",Fields!TipoFila.Value = 2, "Transparent")</BackgroundColor>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
@@ -377,7 +378,7 @@
                         <Border>
                           <Style>None</Style>
                         </Border>
-                        <BackgroundColor>=IIF(Fields!GPO.Value = "Total Pesos" OR Fields!GPO.Value = "Total Dólares","#67809F","Transparent")</BackgroundColor>
+                        <BackgroundColor>=Switch(Fields!TipoFila.Value = 0 , "#67809F", Fields!TipoFila.Value = 1, "#CCCCCC",Fields!TipoFila.Value = 2, "Transparent")</BackgroundColor>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
@@ -412,7 +413,7 @@
                         <Border>
                           <Style>None</Style>
                         </Border>
-                        <BackgroundColor>=IIF(Fields!GPO.Value = "Total Pesos" OR Fields!GPO.Value = "Total Dólares","#67809F","Transparent")</BackgroundColor>
+                        <BackgroundColor>=Switch(Fields!TipoFila.Value = 0 , "#67809F", Fields!TipoFila.Value = 1, "#CCCCCC",Fields!TipoFila.Value = 2, "Transparent")</BackgroundColor>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
@@ -447,7 +448,7 @@
                         <Border>
                           <Style>None</Style>
                         </Border>
-                        <BackgroundColor>=IIF(Fields!GPO.Value = "Total Pesos" OR Fields!GPO.Value = "Total Dólares","#67809F","Transparent")</BackgroundColor>
+                        <BackgroundColor>=Switch(Fields!TipoFila.Value = 0 , "#67809F", Fields!TipoFila.Value = 1, "#CCCCCC",Fields!TipoFila.Value = 2, "Transparent")</BackgroundColor>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
@@ -482,7 +483,7 @@
                         <Border>
                           <Style>None</Style>
                         </Border>
-                        <BackgroundColor>=IIF(Fields!GPO.Value = "Total Pesos" OR Fields!GPO.Value = "Total Dólares","#67809F","Transparent")</BackgroundColor>
+                        <BackgroundColor>=Switch(Fields!TipoFila.Value = 0 , "#67809F", Fields!TipoFila.Value = 1, "#CCCCCC",Fields!TipoFila.Value = 2, "Transparent")</BackgroundColor>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
@@ -517,7 +518,7 @@
                         <Border>
                           <Style>None</Style>
                         </Border>
-                        <BackgroundColor>=IIF(Fields!GPO.Value = "Total Pesos" OR Fields!GPO.Value = "Total Dólares","#67809F","Transparent")</BackgroundColor>
+                        <BackgroundColor>=Switch(Fields!TipoFila.Value = 0 , "#67809F", Fields!TipoFila.Value = 1, "#CCCCCC",Fields!TipoFila.Value = 2, "Transparent")</BackgroundColor>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
@@ -552,7 +553,7 @@
                         <Border>
                           <Style>None</Style>
                         </Border>
-                        <BackgroundColor>=IIF(Fields!GPO.Value = "Total Pesos" OR Fields!GPO.Value = "Total Dólares","#67809F","Transparent")</BackgroundColor>
+                        <BackgroundColor>=Switch(Fields!TipoFila.Value = 0 , "#67809F", Fields!TipoFila.Value = 1, "#CCCCCC",Fields!TipoFila.Value = 2, "Transparent")</BackgroundColor>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
@@ -587,7 +588,7 @@
                         <Border>
                           <Style>None</Style>
                         </Border>
-                        <BackgroundColor>=IIF(Fields!GPO.Value = "Total Pesos" OR Fields!GPO.Value = "Total Dólares","#67809F","Transparent")</BackgroundColor>
+                        <BackgroundColor>=Switch(Fields!TipoFila.Value = 0 , "#67809F", Fields!TipoFila.Value = 1, "#CCCCCC",Fields!TipoFila.Value = 2, "Transparent")</BackgroundColor>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
@@ -1078,6 +1079,10 @@
           <DataField>Orden</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+        <Field Name="TipoFila">
+          <DataField>TipoFila</DataField>
+          <rd:TypeName>System.Integer</rd:TypeName>
+        </Field>
       </Fields>
       <rd:DataSetInfo>
         <rd:DataSetName>DataSet</rd:DataSetName>

Inventarios/EntregaAlmacen.aspx.vb

@@ -2695,12 +2695,16 @@ Partial Class Inventarios_EntregaAlmacen
 
                 If TipoMovimiento = 1 Then
                     CveConceptoMovimientoVirtual = 37
-
                 ElseIf TipoMovimiento = 2 Then
                     ValidaVirtual = True
                     CveConceptoMovimientoVirtual = 36
                 End If
 
+                'SI NO TIENE ALMACEN VIRTUAL ASIGNADO NO GENERA EL MOVIMIENTO VIRTUAL
+                If CveAlmacenVirtual <= 0 Then
+                    ValidaVirtual = False
+                End If
+
                 If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 AndAlso CveAlmacenVirtual > 0 AndAlso CveConceptoMovimientoVirtual > 0 Then
                     CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
                                                                        Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveMovimientoRelacionado:=CveMovimientoRelacionadoVirtual, Modulo:="RE/G6")

Inventarios/RecepcionAlmacen.aspx

@@ -57,6 +57,7 @@
                                 </div>
                                 <div style="width: 20px; float: left; margin-left: 5px;">
                                     #:
+                               
                                 </div>
                                 <div style="width: 50px; float: left;">
                                     <asp:TextBox ID="TxtOC" runat="server" Width="50px" CssClass="form-control input-sm " onkeypress="fncBuscaOC(event);" CausesValidation="true" MaxLength="11"></asp:TextBox>
@@ -171,6 +172,7 @@
                                     <div class="row">
                                         <div class="col-md-2">
                                             Almacén:
+                                       
                                         </div>
                                         <div class="col-md-10">
                                             <asp:DropDownList ID="DdlAlmacen" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlAlmacen_SelectedIndexChanged" DataTextField="Almacen" AppendDataBoundItems="true" DataValueField="CveAlmacen" CssClass="form-control input-sm select2me" Width="320px"></asp:DropDownList>
@@ -181,6 +183,7 @@
                                     <div class="row">
                                         <div class="col-md-2">
                                             Fecha:
+                                       
                                         </div>
                                         <div class="col-md-10">
                                             <div style="display: inline-block; vertical-align: text-bottom;">
@@ -204,6 +207,7 @@
                                     <div class="row">
                                         <div class="col-md-2">
                                             Observaciones:
+                                       
                                         </div>
                                         <div class="col-md-10">
                                             <asp:TextBox ID="TxtObservaciones" TextMode="MultiLine" Rows="2" CssClass="form-control input-sm" runat="server" MaxLength="200"></asp:TextBox>
@@ -213,6 +217,7 @@
                                     <div class="row" id="DivRemision" runat="server" visible="false">
                                         <div class="col-md-2">
                                             Remisión:
+                                       
                                         </div>
                                         <div class="col-md-10">
                                             <asp:TextBox ID="TxtRemision" CssClass="form-control input-sm" runat="server" MaxLength="50"></asp:TextBox>
@@ -224,7 +229,6 @@
                     </asp:UpdatePanel>
                 </div>
             </div>
-
         </div>
 
         <div class="col-md-6">
@@ -246,6 +250,7 @@
                                                 <asp:Literal Text="" runat="server" ID="LtActualizado" />
                                             </code>
                                             &nbsp; 
+                                           
                                             <div style="display: inline-block; vertical-align: text-bottom;">
                                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 90px !important; padding: 0px;">
                                                     <asp:TextBox ID="TxtFechaPendientes" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 88px" MaxLength="10"></asp:TextBox>
@@ -306,6 +311,7 @@
                                     </div>
                                     <div class="caption uppercase" style="position: relative;">
                                         <i class="fa fa-info-circle"></i>Tipo de Cambio
+                                   
                                     </div>
                                 </div>
                                 <div class="portlet-body">
@@ -381,6 +387,53 @@
                 </ContentTemplate>
             </asp:UpdatePanel>
 
+            <%--DOCUMENTO--%>
+            <div class="row">
+                <div class="col-md-6">
+                    <asp:UpdatePanel ID="UpDocumentos" runat="server" UpdateMode="Conditional">
+                        <ContentTemplate>
+                            <div class="row" id="DivDocumentos" runat="server" visible="false">
+                                <div class="col-md-12">
+                                    <div class="portlet light xspadding bordered">
+                                        <div class="portlet-title">
+                                            <div class="caption font-green">
+                                                <i class="icon-pin font-green"></i>
+                                                <span class="caption-subject bold uppercase">Documento Relacionado</span>
+                                            </div>
+                                            <div class="actions">
+                                                <div class="btn-group">
+                                                </div>
+                                            </div>
+                                            <%--                                    <div class="actions">
+                                        <div class="btn-group">
+                                            <asp:HyperLink ID="ImgAddDoc" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacoraDoc" runat="server" Text=" <i class='fa fa-commenting font-green' style='font-weight: 700 !important;' ><span class='caption-subject bold'>Agregar</span></i>" Style="cursor: pointer;" ToolTip="Documentos"></asp:HyperLink><br />
+                                        </div>
+                                    </div>--%>
+                                        </div>
+                                        <div class="portlet-body">
+                                            <div class="row">
+                                                <div class="col-md-12">
+                                                    <asp:TextBox ID="TxtDocumento" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
+                                                </div>
+                                            </div>
+                                            <%--                                    <asp:GridView ID="GvDocumentos" runat="server" DataKeyNames="Documento" AutoGenerateColumns="False" ShowHeader="true" ShowHeaderWhenEmpty="True" HeaderStyle-CssClass="Titulos" CssClass="table table-striped table-hover Widthall ScrollAD" data-height="200" data-freezerows="1" GridLines="None">
+                                        <Columns>
+                                            <asp:BoundField HeaderText="Documento" DataField="DocumentoOrignal" ItemStyle-HorizontalAlign="Left" />
+                                            <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100px">
+                                                <ItemTemplate>
+                                                    <asp:LinkButton ID="LnkEliminarDoc" runat="server" AlternateText="Eliminar" OnClick="LnkEliminarDoc_Click" CommandArgument='<%# Eval("No")%>' CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar el concepto?" data-btn-ok-label="si" />
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                        </Columns>
+                                    </asp:GridView>--%>
+                                        </div>
+                                    </div>
+                                </div>
+                            </div>
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+            </div>
         </div>
 
     </div>
@@ -478,7 +531,7 @@
                             </asp:TemplateField>
                             <asp:TemplateField HeaderText="Lote" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="7.5%" Visible="false">
                                 <ItemTemplate>
-                                    <asp:TextBox ID="TxtLote" Width="80px" class="form-control input-sm" runat="server"  Visible="false"></asp:TextBox>
+                                    <asp:TextBox ID="TxtLote" Width="80px" class="form-control input-sm" runat="server" Visible="false"></asp:TextBox>
                                 </ItemTemplate>
                             </asp:TemplateField>
                             <asp:TemplateField HeaderText="Fecha Caducidad" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" Visible="false">
@@ -520,7 +573,8 @@
                                                             <table border="0" width="100%" rules="All" cellpadding="2" cellspacing="2">
                                                                 <tr>
                                                                     <td colspan="3">Programa Operativo
-                                                                            <br />
+                                                                           
+                                                                        <br />
                                                                         <i>--Clasificacion</i>
                                                                     </td>
                                                                 </tr>
@@ -623,7 +677,35 @@
         </asp:UpdatePanel>
     </div>
 
-
+    <%--    <div id="ModalBitacoraDoc" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            <div class="modal-content">
+                <div class="modal-header ">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 class="modal-title">Documento</h4>
+                </div>
+                <div class="modal-body">
+                    <asp:UpdatePanel runat="server" ID="UpAddDocumento" UpdateMode="Conditional">
+                        <ContentTemplate>
+                            <div class="row">
+                                <div class="col-md-12">
+                                    <asp:TextBox ID="TxtDocumento" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
+                                </div>
+                            </div>
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+                <div class="modal-footer">
+                    <asp:UpdatePanel runat="server">
+                        <ContentTemplate>
+                            <asp:Button ID="BtnGuardarDocumento" runat="server" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary" OnClick="BtnGuardarDocumento_Click" />
+                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+            </div>
+        </div>
+    </div>--%>
 
     <br />
 
@@ -907,6 +989,7 @@
                                         <div class="row">
                                             <div class="col-md-5" style="text-align: right;">
                                                 Cantidad
+                                           
                                             </div>
                                             <div class="col-md-7">
                                                 <asp:TextBox ClientIDMode="Static" ID="TxtCantidadEspecial" Text="" runat="server"></asp:TextBox>
@@ -948,6 +1031,7 @@
                         <td colspan="2" style="text-align: center;">
                             <asp:Panel runat="server" DefaultButton="BtnGuardarCantidadEspecialDiv">
                                 Cant.:
+                               
                                 <asp:TextBox ClientIDMode="Static" ID="TxtCantidadEspecialDiv" Text="1" onfocus="this.select();" Width="50px" runat="server"></asp:TextBox>
                                 <ajax:FilteredTextBoxExtender ID="SoloNumeros" runat="server" TargetControlID="TxtCantidadEspecialDiv" FilterType="Custom, Numbers" ValidChars="." />
                                 <br />
@@ -969,6 +1053,7 @@
                     <tr class="Titulos">
                         <td colspan="2">
                             <h4>Enviar
+                               
                                 <asp:Label ID="lbPS" runat="server" ClientIDMode="Static"></asp:Label>
                                 a otro Almacén </h4>
                         </td>

Inventarios/RecepcionAlmacen.aspx.vb

@@ -403,6 +403,15 @@ Partial Class Inventarios_RecepcionAlmacen
         End Set
     End Property
 
+    'Private Property DtDocumentos As DataTable
+    '    Get
+    '        Return CType(ViewState("DtDocumentos"), DataTable)
+    '    End Get
+    '    Set(value As DataTable)
+    '        ViewState("DtDocumentos") = value
+    '    End Set
+    'End Property
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -1010,6 +1019,10 @@ Partial Class Inventarios_RecepcionAlmacen
                         DivTraspasoDevolucion.Visible = True
                     End If
 
+                    If UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then
+                        DivDocumentos.Visible = True
+                    End If
+
                     DtDatosDetalle = Nothing
                     CreaDtDetalle()
                     DtDatosLoteDetalle = Nothing
@@ -1127,6 +1140,8 @@ Partial Class Inventarios_RecepcionAlmacen
         ObjInventario.Dispose()
 
         CargaGVInv()
+
+        UpDocumentos.Update()
     End Sub
 
     Private Sub CargaImportacionSurtir(pCveImportacion As Integer)
@@ -2180,6 +2195,14 @@ Partial Class Inventarios_RecepcionAlmacen
 
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then
+            Dim Filesgral As List(Of Archivo) = TxtDocumento.getfiles().Archivos
+            If Filesgral Is Nothing OrElse Filesgral.Count = 0 Then
+                Alert("Es necesario agregar un documento.", TipoMensaje.MsgAdvertencia)
+                Return False
+            End If
+        End If
+
         Return True
     End Function
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
@@ -2758,41 +2781,45 @@ Partial Class Inventarios_RecepcionAlmacen
                         tCveAlmacen = ObjInventario.DtResultados.FiltroPrimeroValor("CveAlmacen").ToEntero()
                     End If
 
-                    If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa) Then
+                    Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=tCveAlmacen).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero()
-                        DtPSVirtual = ObjInventario.DtResultados
-                    End If
 
-                    If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 Then
+                    'VERIFICA SI TIENE ALMACEN VIRTUAL
-                        'Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacen.SelectedValue}").ToEntero()
+                    If CveAlmacenVirtual > 0 Then
-
+                        If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa) Then
-                        Dim CveTipoAlmacenFiltro As Integer = If(CveTipoCompra = 9, 25, 24)
+                            DtPSVirtual = ObjInventario.DtResultados
-
-                        Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=tCveAlmacen).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero()
-
-                        CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, CveMovimientoRelacionado:=CveMovimiento, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G4")
-                        FolioVirtual = ObjInventario.Folio
-
-                        For Each RowUsado As DataRow In DtPSVirtual.Rows
-                            Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
-                            Dim CantidadUsado As Decimal = RowUsado("Cantidad").ToString().ToDecimal()
-                            Dim PU As Decimal = RowUsado("Cargo").ToString().ToDecimal()
-                            Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
-
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
-                                ErrorMovInv = True
-                                Exit For
-                            End If
-                        Next
-
-                        If SumarImporteUsados Then
-                            If ObjInventario.GetMovimientosDetalle(CveMovimientoVirtual, UsuarioActual.CveEmpresa) Then
-                                ImporteIngresoAdicional = ObjInventario.DtResultados.SUMD("TotalOriginal")
-                            End If
                         End If
 
-                    Else
+                        If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 Then
-                        ErrorMovInv = True
+
+                            Dim CveTipoAlmacenFiltro As Integer = If(CveTipoCompra = 9, 25, 24)
+
+
+                            CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, CveMovimientoRelacionado:=CveMovimiento, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G4")
+                            FolioVirtual = ObjInventario.Folio
+
+                            For Each RowUsado As DataRow In DtPSVirtual.Rows
+                                Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
+                                Dim CantidadUsado As Decimal = RowUsado("Cantidad").ToString().ToDecimal()
+                                Dim PU As Decimal = RowUsado("Cargo").ToString().ToDecimal()
+                                Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
+
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                                    ErrorMovInv = True
+                                    Exit For
+                                End If
+                            Next
+
+                            If SumarImporteUsados Then
+                                If ObjInventario.GetMovimientosDetalle(CveMovimientoVirtual, UsuarioActual.CveEmpresa) Then
+                                    ImporteIngresoAdicional = ObjInventario.DtResultados.SUMD("TotalOriginal")
+                                End If
+                            End If
+
+                        Else
+                            ErrorMovInv = True
+                        End If
                     End If
+
                 End If
 
                 'DEVENGAR AC
@@ -3452,6 +3479,15 @@ Partial Class Inventarios_RecepcionAlmacen
                     ErrorMovInv = True
                 End If
             End If
+
+            'DOCUMENTOS RELACIONADOS AL MOVIMIENTO
+            If Not ErrorMovInv AndAlso UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then
+                If Not ErrorMovInv AndAlso Not GuardaDocumentoBitacora(ObjBitacora, CveMovimiento) Then
+                    ErrorMovInv = True
+                    Alert("Ocurrió un error al guardar los datos adjuntos de la bitácora", TipoMensaje.MsgError)
+                End If
+            End If
+
         Catch ex As Exception
             OnError("Ocurrió un error al guardar RA.", ex)
             ErrorMovInv = True
@@ -3865,6 +3901,18 @@ Partial Class Inventarios_RecepcionAlmacen
         HLFolio.NavigateUrl = "#"
         LbProveedor.Text = ""
         LbDescripcionCompra.Text = ""
+        DivDocumentos.Visible = False
+
+        'If DtDocumentos IsNot Nothing Then
+        '    DtDocumentos.Clear()
+        '    TxtDocumento.Text = ""
+
+        '    'GvDocumentos.DataSource = DtDocumentos
+        '    'GvDocumentos.DataBind()
+        'End If
+
+        UpDocumentos.Update()
+
         UpDatosCompra.Update()
         CargaPendientes()
 
@@ -4521,6 +4569,131 @@ Partial Class Inventarios_RecepcionAlmacen
 #End Region
 
 
+    'Protected Sub BtnGuardarDocumento_Click(sender As Object, e As EventArgs)
+
+    '    Dim Filesgral As List(Of Archivo) = TxtDocumento.getfiles().Archivos
+    '    If Filesgral Is Nothing OrElse Filesgral.Count = 0 Then
+    '        Alert("No se agregó ningun archivo", TipoMensaje.MsgAdvertencia)
+    '        Exit Sub
+    '    End If
+
+    '    If DtDocumentos Is Nothing Then
+    '        DtDocumentos = New DataTable()
+
+    '        Dim column As DataColumn = New DataColumn("No")
+    '        column.DataType = Type.GetType("System.Int32")
+    '        With column
+    '            .AutoIncrement = True
+    '            .AutoIncrementSeed = 1
+    '            .AutoIncrementStep = 1
+    '        End With
+
+    '        DtDocumentos.Columns.Add(column)
+    '        DtDocumentos.Columns.Add("DocumentoOrignal", GetType(String))
+    '        DtDocumentos.Columns.Add("Documento", GetType(String))
+    '        DtDocumentos.Columns.Add("FileExtension", GetType(String))
+    '    End If
+
+    '    Dim row As DataRow = DtDocumentos.NewRow()
+
+    '    Dim archivo = Filesgral.FirstOrDefault()
+
+    '    row("DocumentoOrignal") = archivo.filenameO
+    '    row("Documento") = archivo.filename
+    '    row("FileExtension") = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, archivo.filename))
+
+    '    DtDocumentos.Rows.Add(row)
+
+    '    'GvDocumentos.DataSource = DtDocumentos
+    '    'GvDocumentos.DataBind()
+
+    '    UpDocumentos.Update()
+
+    '    RegistraScript("$('#ModalBitacoraDoc').modal('hide');")
+    'End Sub
+    'Protected Sub LnkEliminarDoc_Click(sender As Object, e As EventArgs)
+    '    Dim lnkRemove As LinkButton = DirectCast(sender, LinkButton)
+
+    '    If DtDocumentos.Rows.Count > 0 And lnkRemove.CommandArgument.ToString.Length > 0 Then
+    '        Dim i As Integer
+    '        i = lnkRemove.CommandArgument.ToString.ToEntero
+    '        Dim Drs As DataRow() = DtDocumentos.Select(String.Format("No = {0}", i))
+    '        If Drs.Count > 0 Then
+
+    '            Drs(0).Delete()
+    '        End If
+    '        DtDocumentos.AcceptChanges()
+    '    End If
+
+    '    'GvDocumentos.EditIndex = -1
+
+    '    'GvDocumentos.DataSource = DtDocumentos
+    '    'GvDocumentos.DataBind()
+    'End Sub
+
+    Private Function GuardaDocumentoBitacora(ObjEventoBitacora As ClsOIEventos, CveMovimiento As Integer) As Boolean
+        Dim Retorno = True
+        Dim Archivo As System.IO.FileInfo = Nothing
+
+        Dim Filesgral As List(Of Archivo) = TxtDocumento.getfiles().Archivos
+
+        Dim archivoOriginal = Filesgral.FirstOrDefault()
+        Dim Bitacora As String = ""
+
+        If Not String.IsNullOrEmpty(TxtObservaciones.Text) Then
+            Bitacora = TxtObservaciones.Text
+        Else
+            Bitacora = "Documento Relacionado"
+        End If
+
+        If ObjEventoBitacora.AddEventoBitacora(Bitacora, String.Format(".{0}", archivoOriginal.Extencion), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveMovimientoAlmacen:=CveMovimiento) Then
+            Try
+                If archivoOriginal.filename <> "" Then
+                    Archivo = New System.IO.FileInfo(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, archivoOriginal.filename))
+                    If Archivo.Exists() Then
+                        File.Move(Archivo.ToString, String.Format("{0}OI\OI{1}{2}", UsuarioActual.Empresa.Ruta, ObjEventoBitacora.CveEvento.ToString, Archivo.Extension))
+                    Else
+                        Retorno = False
+                    End If
+                End If
+            Catch ex As Exception
+                Retorno = False
+            End Try
+        Else
+            Retorno = False
+        End If
+
+        Return Retorno
+    End Function
+
+    'Private Function GuardaDocumentoBitacora(ObjEventoBitacora As ClsOIEventos, CveMovimiento As Integer) As Boolean
+    '    Dim Retorno = True
+    '    Dim Archivo As System.IO.FileInfo = Nothing
+
+    '    For Each Dr As DataRow In DtDocumentos.Rows
+    '        If ObjEventoBitacora.AddEventoBitacora("Documento Relacionado", Dr("FileExtension").ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveMovimientoAlmacen:=CveMovimiento) Then
+    '            Try
+    '                If Dr("Documento").ToString <> "" Then
+    '                    Archivo = New System.IO.FileInfo(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, Dr("Documento").ToString))
+    '                    If Archivo.Exists() Then
+    '                        File.Move(Archivo.ToString, String.Format("{0}OI\OI{1}{2}", UsuarioActual.Empresa.Ruta, ObjEventoBitacora.CveEvento.ToString, Archivo.Extension))
+    '                    Else
+    '                        Retorno = False
+    '                    End If
+    '                End If
+    '            Catch ex As Exception
+    '                Retorno = False
+    '                Exit For
+    '            End Try
+    '        Else
+    '            Retorno = False
+    '            Exit For
+    '        End If
+    '    Next
+
+    '    Return Retorno
+    'End Function
+
 End Class
 
 Public Class MMovimientoAlmacen

Inventarios/RepAlmacenCompras.aspx.vb

@@ -72,7 +72,7 @@ Partial Class Inventarios_RepAlmacenCompras
         'Llena Almacen
         DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
         DdlAlmacen.DataBind()
-        DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
 
     End Sub
 #End Region

Inventarios/TraspasoAlmacen.aspx.vb

@@ -867,7 +867,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
 
         'VIRTUAL SALIDA
-        If RealizarMovimientoVirtual Then
+        If RealizarMovimientoVirtual AndAlso CveAlmacenVirtualSalida > 0 Then
 
             'If TipoAlmacenOrigen = 27 Then
             '    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 25).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyectoOrigen}").ToEntero()
@@ -1702,6 +1702,7 @@ Partial Class Inventarios_TraspasoAlmacen
                     '    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyecto}").ToEntero()
                     'End If
 
+                    'VERIFICA SI TIENE ALMACEN VIRTUAL ASIGNADA
                     If CveAlmacenVirtual > 0 Then
 
                         Dim dtvirtual As DataTable = Nothing
@@ -1729,9 +1730,9 @@ Partial Class Inventarios_TraspasoAlmacen
                             TextoError = "No se pudo registrar el movimiento virtual"
                             ErrorMovInv = True
                         End If
-                    Else
+                        'Else
-                        TextoError = "La Sucursal no tiene creado un almacen virtual"
+                        '    TextoError = "La Sucursal no tiene creado un almacen virtual"
-                        ErrorMovInv = True
+                        '    ErrorMovInv = True
                     End If
                 End If
 
@@ -1964,9 +1965,9 @@ Partial Class Inventarios_TraspasoAlmacen
                         TextoError = "No se pudo registrar el movimiento virtual"
                         ErrorMovInv = True
                     End If
-                Else
+                    'Else
-                    TextoError = "La Sucursal no tiene creado un almacen virtual"
+                    '    TextoError = "La Sucursal no tiene creado un almacen virtual"
-                    ErrorMovInv = True
+                    '    ErrorMovInv = True
                 End If
             End If
 

Ventas/RepRecuperacion.aspx

@@ -100,6 +100,7 @@
                                     <asp:ListItem Text="Estatus Fact." Value="9"></asp:ListItem>
                                     <asp:ListItem Text="% IVA" Value="10"></asp:ListItem>
                                     <asp:ListItem Text="Forma de Pago" Value="15"></asp:ListItem>
+                                    <asp:ListItem Text="Vendedor/Cliente" Value="16"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>
                         </div>

Ventas/RepRecuperacion.aspx.vb

@@ -48,7 +48,7 @@ Partial Class Ventas_RepRecuperacion
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             CargaCombos()
-            CargaDatos()
+            'CargaDatos()
         End If
     End Sub
 
@@ -75,6 +75,8 @@ Partial Class Ventas_RepRecuperacion
         'Carga Vendedor
         DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
         DdlVendedor.DataBind()
+        DdlVendedor.Items.Insert(1, New ListItem("Sin Vendedor", "-2"))
+
         DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor)
         If UsuarioActual.CveVendedor > 0 AndAlso Not UsuarioActual.TienePermisoProceso(263) Then
             DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString())
@@ -179,6 +181,19 @@ Partial Class Ventas_RepRecuperacion
 
             e.Row.FCHyperLink("HplVendido").NavigateUrl = Liga5
 
+
+            If DdlGrupo.SelectedValue.ToEntero = 16 Then
+                If e.Row.DBCampo("GPO").Contains("Total") Then
+                    e.Row.CssClass = "Totales"
+                Else
+                    If e.Row.DBCampo("CveCliente") = "" Then
+                        e.Row.CssClass = "SubTotales"
+                    End If
+                End If
+
+
+            End If
+
         End If
     End Sub
 

Ventas/RepRecuperacionDetalle.aspx

@@ -16,10 +16,10 @@
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
     <li>
-        <asp:LinkButton ID="LnkPdf" OnClick="LnkPdf_Click" runat="server"> <i class="fa fa-ad-pdf"></i>  Generar PDF</asp:LinkButton>
+        <asp:LinkButton ID="LnkPdf" OnClick="LnkPdf_Click" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
     </li>
     <li>
-        <asp:LinkButton ID="ImgExcel" OnClick="ImgExcel_Click" runat="server"><i class="fa fa-ad-excel"></i> Exporta Excel</asp:LinkButton>
+        <asp:LinkButton ID="ImgExcel" OnClick="ImgExcel_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
     </li>
     <li>
         <asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivTipoCambio" ID="ImgTipoCambio" runat="server"> <i class="fa fa-money"></i>  Ver Dlls en pesos</asp:HyperLink>

Ventas/RepRecuperacionDetalle.aspx.vb

@@ -113,6 +113,7 @@ Partial Class Ventas_RepRecuperacionDetalle
             DdlVendedor.Attributes.Add("disabled", "disabled")
             DdlVendedor.Enabled = False
         End If
+        DdlVendedor.Items.Insert(0, New ListItem("Sin Vendedor", "-2"))
 
         'Carga Usuarios
         DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)

Ventas/RepVentaDetalle.aspx.vb

@@ -275,6 +275,7 @@ Partial Class RepVentaDetalle
         DdlGrupo.Items.Insert(11, New ListItem("Mes Ejec.", "12"))
         DdlGrupo.Items.Insert(12, New ListItem("Año/Mes Ejec.", "13"))
         DdlGrupo.Items.Insert(13, New ListItem("Fecha Ejec.", "14"))
+        DdlGrupo.Items.Insert(13, New ListItem("Vendedor/Cliente", "21"))
         DdlGrupo.DataBind()
     End Sub
 

Ventas/RepVentas.aspx.vb

@@ -252,6 +252,7 @@ Partial Class Ventas_RepVentas
         DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
         DdlVendedor.DataBind()
         DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlVendedor.Items.Insert(1, New ListItem("Sin Vendedor", "-2"))
 
         'CargaUsuarios
         DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)

Ventas/RepVentasUtilidad.aspx

@@ -99,7 +99,7 @@
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
      
-    <CR:CrystalReportViewer ID="CrystalReportViewer1" runat="server" AutoDataBind="true" />
+    <%--<CR:CrystalReportViewer ID="CrystalReportViewer1" runat="server" AutoDataBind="true" />--%>
 
     <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
         <ContentTemplate>

Ventas/RepVentasUtilidad.aspx.vb

@@ -5,8 +5,8 @@ Imports System.Data
 Imports System.Drawing
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
-Imports CrystalDecisions.CrystalReports.Engine
+'Imports CrystalDecisions.CrystalReports.Engine
-Imports CrystalDecisions.Shared
+'Imports CrystalDecisions.Shared
 
 Partial Class Ventas_RepVentasUtilidad
     Inherits ClsPaginas

Ventas/Ventas.aspx.vb

@@ -1255,6 +1255,15 @@ Partial Class Ventas
             ViewState("PermiteCredito") = value
         End Set
     End Property
+
+    Private Property CreditoDisponible As Double
+        Get
+            Return If(IsNothing(ViewState("CreditoDisponible")), 0, ViewState("CreditoDisponible")).ToString().ToDecimal
+        End Get
+        Set(value As Double)
+            ViewState("CreditoDisponible") = value
+        End Set
+    End Property
     Private Property DtAnticipoAmortizacion As DataTable
         Get
             Return CType(ViewState("DtAnticipoAmortizacion"), DataTable)
@@ -18435,7 +18444,7 @@ Partial Class Ventas
 
             'SI LA REMISION SE SURTIO CON USADOS UTILIZAR ESTE MOVIMIENTO
             If ObjInventario.GetInv_Mov(CveRemision, UsuarioActual.CveEmpresa) Then
-                Dim RowMovimiento As DataRow = ObjInventario.DtResultados.FiltroPrimero("CvePS IS NULL AND (CveTipoAlmacen = 24 AND CveConcepto = 2) AND CveVenta > 0")
+                Dim RowMovimiento As DataRow = ObjInventario.DtResultados.FiltroPrimero("CvePS IS NULL AND (CveTipoAlmacen = 1 AND CveConcepto IN (3,8)) AND CveVenta > 0")
 
                 If RowMovimiento IsNot Nothing Then
                     CveMovimientoReferencia = RowMovimiento("CveMovimiento").ToString().ToEntero()
@@ -18450,7 +18459,7 @@ Partial Class Ventas
             'SI NO SE SURTIO LA REMSION CON USADOS, UTILIZAR EL MOVIMIENTO DE SALIDA DEL INGRESO
             If CveMovimientoReferencia <= 0 Then
                 If ObjInventario.GetInv_Mov(ObjFactura.CveVenta, UsuarioActual.CveEmpresa) Then
-                    Dim RowMovimiento As DataRow = ObjInventario.DtResultados.FiltroPrimero("CvePS IS NULL AND ( (CveTipoAlmacen = 1 AND CveConcepto = 3) OR (CveTipoAlmacen = 10 AND CveConcepto = 40) )  AND CveVenta > 0")
+                    Dim RowMovimiento As DataRow = ObjInventario.DtResultados.FiltroPrimero("CvePS IS NULL AND ( (CveTipoAlmacen = 1 AND CveConcepto IN (3,8)) OR (CveTipoAlmacen = 10 AND CveConcepto = 40) )  AND CveVenta > 0")
 
                     If RowMovimiento IsNot Nothing Then
                         CveMovimientoReferencia = RowMovimiento("CveMovimiento").ToString().ToEntero()
@@ -18466,121 +18475,8 @@ Partial Class Ventas
                 End If
             End If
 
-
+            'SI TIENE ALMACEN VIRTUAL ASIGNADO GENERA EL MOVIMIENTO VIRTUAL
-            If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoReferencia, UsuarioActual.CveEmpresa) Then
+            If CveAlmacenVirtual > 0 Then
-                DtPSVirtual = ObjInventario.DtResultados.Copy()
-            Else
-                OcurrioError = True
-            End If
-
-            If Not OcurrioError AndAlso DtPSVirtual.Rows.Count > 0 Then
-
-                CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, ObjFactura.CveVenta, -1, -1, Modulo:="Vta/VV", CveMovimientoRelacionado:=CveMovimientoReferencia)
-
-                If CveMovimientoVirtual > 0 Then
-                    For Each RowUsado As DataRow In DtPSVirtual.Rows
-                        Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
-                        Dim CantidadUsado As Double = RowUsado("Cantidad").ToString().ToDouble()
-                        Dim PU As Decimal = RowUsado("Cargo").ToString().ToDecimal()
-                        Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
-
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1) Then
-                            OcurrioError = True
-                            Exit For
-                        End If
-                    Next
-                Else
-                    OcurrioError = True
-                End If
-
-                'Agregamos las PrePolizas
-                If Not OcurrioError Then
-                    If CveMovimientoVirtual > 0 Then
-                        'OcurrioError = Not GeneraPrePolizaMovimientoAlmacen(ObjInventario, ObjConta, ObjContPaq, ObjFactura, ObjFactura.CvePrePoliza, CveMovimientoInventario, CveAlmacen)
-                        If ObjInventario.GetMovimientosDetalle(CveMovimientoVirtual, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
-                            Dim DtCostos = ObjInventario.DtResultados.Copy
-                            Dim DtCostosDistinct As DataTable = ObjInventario.DtResultados.FiltraParametros("", "", {"CveClasificacion"})
-                            Dim IdCtaContable As Integer = 0
-                            Dim CveCuenta As Integer = 0
-                            Dim ValorInventario As Decimal
-                            Dim TotalCostoAcumulado As Decimal = 0D
-                            Dim Cont As Integer = 1
-                            Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL
-
-                            For Each RowInv As DataRow In DtCostosDistinct.Rows
-                                ValorInventario = DtCostos.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundSQL
-                                IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
-                                CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
-                                TotalCostoAcumulado += ValorInventario
-
-                                'cuando es el último movimiento y hay diferencias en los importes
-                                If Cont = DtCostosDistinct.Rows.Count AndAlso TotalCosto <> TotalCostoAcumulado Then
-                                    ValorInventario = ValorInventario + (TotalCosto - TotalCostoAcumulado)
-                                End If
-
-                                Try
-                                    'If ValorInventario <> 0 Then
-                                    If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ValorInventario, ObjFactura.SerieFolio, 69, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString().ToEntero(), CveMovimientoAlmacen:=CveMovimientoVirtual, ImporteMX:=ValorInventario, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then
-                                        OcurrioError = True
-                                        Exit For
-                                    End If
-                                    'End If
-                                Catch ex As Exception
-                                    OcurrioError = True
-                                    Alert("Error inesperado (15148). Por favor comuniquese con atención SIG.", TipoMensaje.ToastError)
-                                End Try
-                                Cont += 1
-                            Next
-
-                            If Not OcurrioError Then
-                                IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", CveAlmacenVirtual)).ToEntero()
-                                If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, TotalCosto, ObjFactura.SerieFolio, 68, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveMovimientoAlmacen:=CveMovimientoVirtual, ImporteMX:=TotalCosto, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then
-                                    OcurrioError = True
-                                End If
-                            End If
-                        Else
-                            OcurrioError = True
-                        End If
-                    End If
-                End If
-
-            End If
-
-        Catch ex As Exception
-            OnError("Ocurrió un error al generar el almacen virtual.", ex)
-            OcurrioError = True
-        End Try
-
-        Return Not OcurrioError
-
-    End Function
-    Private Function GenerarMovimientoAlmacenVirtualConsignacion(CveVenta As Integer, CveAlmacenContrato As Integer, ByRef ObjInventario As ClsInventarios, ObjFactura As Modelos.Factura, Optional ByRef ObjConta As ClsContabilidad = Nothing) As Boolean
-        Dim OcurrioError As Boolean = False
-
-        If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
-            Try
-                Dim CveMovimientoVirtual As Integer = -1
-                Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacenContrato).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero()
-
-                Dim CveConceptoMovimientoVirtual As Integer = 37
-                Dim DtPSVirtual As DataTable = Nothing
-                Dim DtTamanios As DataTable = Nothing
-                Dim CveMovimientoReferencia As Integer = -1
-                Dim CveSubProyecto As Integer = -1
-
-
-                If ObjInventario.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then
-                    Dim RowMovimiento As DataRow = ObjInventario.DtResultados.FiltroPrimero("CvePS IS NULL AND ((CveTipoAlmacen = 24 AND CveConcepto = 2) OR (CveTipoAlmacen = 17 AND CveConcepto = 8))  AND CveVenta > 0")
-
-                    If RowMovimiento IsNot Nothing Then
-                        CveMovimientoReferencia = RowMovimiento("CveMovimiento").ToString().ToEntero()
-                    Else
-                        OcurrioError = True
-                    End If
-
-                Else
-                    OcurrioError = True
-                End If
 
                 If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoReferencia, UsuarioActual.CveEmpresa) Then
                     DtPSVirtual = ObjInventario.DtResultados.Copy()
@@ -18660,6 +18556,125 @@ Partial Class Ventas
                     End If
 
                 End If
+            End If
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al generar el almacen virtual.", ex)
+            OcurrioError = True
+        End Try
+
+        Return Not OcurrioError
+
+    End Function
+    Private Function GenerarMovimientoAlmacenVirtualConsignacion(CveVenta As Integer, CveAlmacenContrato As Integer, ByRef ObjInventario As ClsInventarios, ObjFactura As Modelos.Factura, Optional ByRef ObjConta As ClsContabilidad = Nothing) As Boolean
+        Dim OcurrioError As Boolean = False
+
+        If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
+            Try
+                Dim CveMovimientoVirtual As Integer = -1
+                Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacenContrato).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero()
+
+                Dim CveConceptoMovimientoVirtual As Integer = 37
+                Dim DtPSVirtual As DataTable = Nothing
+                Dim DtTamanios As DataTable = Nothing
+                Dim CveMovimientoReferencia As Integer = -1
+                Dim CveSubProyecto As Integer = -1
+                'SI TIENE UN ALMACEN VIRTUAL GENERA EL MOVIMIENTO
+                If CveAlmacenVirtual > 0 Then
+
+                    If ObjInventario.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then
+                        Dim RowMovimiento As DataRow = ObjInventario.DtResultados.FiltroPrimero("CvePS IS NULL AND ((CveTipoAlmacen = 24 AND CveConcepto = 2) OR (CveTipoAlmacen = 17 AND CveConcepto = 8))  AND CveVenta > 0")
+
+                        If RowMovimiento IsNot Nothing Then
+                            CveMovimientoReferencia = RowMovimiento("CveMovimiento").ToString().ToEntero()
+                        Else
+                            OcurrioError = True
+                        End If
+
+                    Else
+                        OcurrioError = True
+                    End If
+
+                    If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoReferencia, UsuarioActual.CveEmpresa) Then
+                        DtPSVirtual = ObjInventario.DtResultados.Copy()
+                    Else
+                        OcurrioError = True
+                    End If
+
+                    If Not OcurrioError AndAlso DtPSVirtual.Rows.Count > 0 Then
+
+                        CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, ObjFactura.CveVenta, -1, -1, Modulo:="Vta/VV", CveMovimientoRelacionado:=CveMovimientoReferencia)
+
+                        If CveMovimientoVirtual > 0 Then
+                            For Each RowUsado As DataRow In DtPSVirtual.Rows
+                                Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
+                                Dim CantidadUsado As Double = RowUsado("Cantidad").ToString().ToDouble()
+                                Dim PU As Decimal = RowUsado("Cargo").ToString().ToDecimal()
+                                Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
+
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1) Then
+                                    OcurrioError = True
+                                    Exit For
+                                End If
+                            Next
+                        Else
+                            OcurrioError = True
+                        End If
+
+                        'Agregamos las PrePolizas
+                        If Not OcurrioError Then
+                            If CveMovimientoVirtual > 0 Then
+                                'OcurrioError = Not GeneraPrePolizaMovimientoAlmacen(ObjInventario, ObjConta, ObjContPaq, ObjFactura, ObjFactura.CvePrePoliza, CveMovimientoInventario, CveAlmacen)
+                                If ObjInventario.GetMovimientosDetalle(CveMovimientoVirtual, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
+                                    Dim DtCostos = ObjInventario.DtResultados.Copy
+                                    Dim DtCostosDistinct As DataTable = ObjInventario.DtResultados.FiltraParametros("", "", {"CveClasificacion"})
+                                    Dim IdCtaContable As Integer = 0
+                                    Dim CveCuenta As Integer = 0
+                                    Dim ValorInventario As Decimal
+                                    Dim TotalCostoAcumulado As Decimal = 0D
+                                    Dim Cont As Integer = 1
+                                    Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL
+
+                                    For Each RowInv As DataRow In DtCostosDistinct.Rows
+                                        ValorInventario = DtCostos.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundSQL
+                                        IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
+                                        CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
+                                        TotalCostoAcumulado += ValorInventario
+
+                                        'cuando es el último movimiento y hay diferencias en los importes
+                                        If Cont = DtCostosDistinct.Rows.Count AndAlso TotalCosto <> TotalCostoAcumulado Then
+                                            ValorInventario = ValorInventario + (TotalCosto - TotalCostoAcumulado)
+                                        End If
+
+                                        Try
+                                            'If ValorInventario <> 0 Then
+                                            If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ValorInventario, ObjFactura.SerieFolio, 69, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString().ToEntero(), CveMovimientoAlmacen:=CveMovimientoVirtual, ImporteMX:=ValorInventario, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then
+                                                OcurrioError = True
+                                                Exit For
+                                            End If
+                                            'End If
+                                        Catch ex As Exception
+                                            OcurrioError = True
+                                            Alert("Error inesperado (15148). Por favor comuniquese con atención SIG.", TipoMensaje.ToastError)
+                                        End Try
+                                        Cont += 1
+                                    Next
+
+                                    If Not OcurrioError Then
+                                        IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", CveAlmacenVirtual)).ToEntero()
+                                        If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, TotalCosto, ObjFactura.SerieFolio, 68, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveMovimientoAlmacen:=CveMovimientoVirtual, ImporteMX:=TotalCosto, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then
+                                            OcurrioError = True
+                                        End If
+                                    End If
+                                Else
+                                    OcurrioError = True
+                                End If
+                            End If
+                        End If
+
+                    End If
+
+                End If
 
             Catch ex As Exception
                 OnError("Ocurrió un error al generar el almacen virtual.", ex)
@@ -22823,29 +22838,32 @@ Partial Class Ventas
                 Dim dtvirtual As DataTable = Nothing
                 Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacenOrigenContrato).FiltroPrimeroValor("CveAlmacenVirtual", "").ToEntero()
                 Dim CveMovimientoVirtualSalida As Integer
+                'SI TIENE UN ALMACEN VIRTUAL ASIGNADO GENERA EL MOVIMIENTO VIRTUAL
+                If CveAlmacenVirtual > 0 Then
+                    If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoSalidaGeneral, UsuarioActual.CveEmpresa) Then
 
-                If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoSalidaGeneral, UsuarioActual.CveEmpresa) Then
+                        dtvirtual = ObjInventario.DtResultados
 
-                    dtvirtual = ObjInventario.DtResultados
+                        If dtvirtual.Rows.Count > 0 Then
+                            CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtual, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:="", Modulo:="VV2", CveMovimientoRelacionado:=CveMovimientoSalidaGeneral)
+                            'FolioVirtualSalida = ObjInventario.Folio
 
-                    If dtvirtual.Rows.Count > 0 Then
+                            For Each RowVirtual As DataRow In dtvirtual.Rows
-                        CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtual, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:="", Modulo:="VV2", CveMovimientoRelacionado:=CveMovimientoSalidaGeneral)
+                                Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
-                        'FolioVirtualSalida = ObjInventario.Folio
+                                Dim CantidadUsado As Double = RowVirtual("Cantidad").ToString().ToDouble()
+                                Dim PU As Decimal = RowVirtual("PU").ToString().ToDecimal()
+                                Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero()
 
-                        For Each RowVirtual As DataRow In dtvirtual.Rows
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualSalida, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
-                            Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
+                                    Return False
-                            Dim CantidadUsado As Double = RowVirtual("Cantidad").ToString().ToDouble()
+                                End If
-                            Dim PU As Decimal = RowVirtual("PU").ToString().ToDecimal()
+                            Next
-                            Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero()
+                        End If
-
+                    Else
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualSalida, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                        Return False
-                                Return False
-                            End If
-                        Next
                     End If
-                Else
-                    Return False
                 End If
+
             End If
         Else
             Return False
@@ -28223,6 +28241,7 @@ Partial Class Ventas
             DTPSTemp.Columns.Add("CveSubProyecto", GetType(Integer))
             DTPSTemp.Columns.Add("SubProyecto", GetType(String))
 
+
             For Each DrowPartidas As DataRow In TmpDTCalculo
                 Dim CveTamanioTemp As Integer = DrowPartidas("CveTamaño").ToString().ToEntero()
 
@@ -28283,6 +28302,10 @@ Partial Class Ventas
                 End If
             Next
 
+            If DTPSTemp IsNot Nothing AndAlso DTPSTemp.Rows.Count > 0 Then
+                DTPSTemp = DTPSTemp.Select().OrderBy(Function(row) row("PU")).CopyToDataTable()
+            End If
+
             For Each drowPsTamaños As DataRow In DTPSTemp.Rows
                 Modalidad = "A"
                 If drowPsTamaños("PU").ToString().ToDecimal > 0 Then