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

Compras/PopUpVerFactura.aspx.vb

@@ -1223,7 +1223,7 @@ Partial Class PopUpVerFactura
                           Remision, Proveedor, CalleOrigen, NoExtOrigen, ColoniaOrigen, LocalidadOrigen, MunicipioOrigen,
                           EstadoOrigen, PaisOrigen, CPOrigen, CalleDestino, NoExtDestino, ColoniaDestino, LocalidadDestino,
                           MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio,
-                          PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio)
+                          PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente)
 
     End Sub
     Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
@@ -1240,7 +1240,7 @@ Partial Class PopUpVerFactura
                                   Remision As String, Proveedor As String, CalleOrigen As String, NoExtOrigen As String, ColoniaOrigen As String, LocalidadOrigen As String, MunicipioOrigen As String,
                                   EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String,
                                   EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String,
-                                  RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String)
+                                  RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String)
 
 
         Select Case CveConcepto
@@ -1402,8 +1402,8 @@ Partial Class PopUpVerFactura
                     params.Add(New ReportParameter("Fecha", Fecha))
                     params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                     params.Add(New ReportParameter("Folio", Folio))
+                    params.Add(New ReportParameter("FacturadoA", NombreCliente))
                     params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("SerieFolio").ToString, "")))
-                    params.Add(New ReportParameter("FacturadoA", RazonSocial))
                     params.Add(New ReportParameter("Descuentos", If(CveCompra > 0 AndAlso dr IsNot Nothing, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), "")))
                     params.Add(New ReportParameter("IVA", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("IVA").ToString.FormatoNumero(2), "")))
                     params.Add(New ReportParameter("Total", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("Total").ToString.FormatoNumero(2), "")))
@@ -1586,7 +1586,7 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("Almacen", Almacen))
                         params.Add(New ReportParameter("Fecha", Fecha))
                         params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
-                        params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
+                        params.Add(New ReportParameter("FacturadoA", If(DtMovimientos(0)("Nombre").ToString <> "", DtMovimientos(0)("Nombre").ToString, NombreCliente)))
                         params.Add(New ReportParameter("Observaciones", Observaciones))
                         params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                         params.Add(New ReportParameter("Folio", Folio))
@@ -1672,6 +1672,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Total", ""))
                 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                 params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
+                params.Add(New ReportParameter("FacturadoA", NombreCliente))
                 If (UsuarioActual.CveEmpresa = 72) Then
                     params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
                 End If
@@ -1700,6 +1701,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Total", ""))
                 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                 params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
+                params.Add(New ReportParameter("FacturadoA", NombreCliente))
                 If (UsuarioActual.CveEmpresa = 72) Then
                     params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
                 End If
@@ -2364,7 +2366,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Total", ""))
                 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                 params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
-
+                params.Add(New ReportParameter("FacturadoA", NombreCliente))
                 If (UsuarioActual.CveEmpresa = 72) Then
                     params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
                 End If
@@ -2393,6 +2395,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Total", ""))
                 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                 params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
+                params.Add(New ReportParameter("FacturadoA", NombreCliente))
                 If (UsuarioActual.CveEmpresa = 72) Then
                     params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
                 End If
@@ -2421,6 +2424,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Total", ""))
                 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                 params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
+                params.Add(New ReportParameter("FacturadoA", NombreCliente))
                 If (UsuarioActual.CveEmpresa = 72) Then
                     params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
                 End If
@@ -2448,6 +2452,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Total", ""))
                 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                 params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
+                params.Add(New ReportParameter("FacturadoA", NombreCliente))
                 If (UsuarioActual.CveEmpresa = 72) Then
                     params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
                 End If

Compras/ReembolsosComprobaciones.aspx

@@ -291,7 +291,7 @@
 
             <asp:HiddenField runat="server" ID="HdnFechasComprasVinculadas" Value="-1" ClientIDMode="Static" />
 
-            <asp:GridView ID="GvCxP" GridLines="None" CssClass="table table-hover table-advance Widthall" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas por Pagar pendientes" DataKeyNames="CveCompra,FechaCompra,Proveedor,SerieFolio,Original,SubTotal,IVA,RetIVA,RetISR,IdCtaContProveedores,IdCtaContProveedoresSIG,CvePrePoliza,IdPoliza,CveRetIVAConcepto,CveRetISRConcepto,IVAPorcentaje">
+            <asp:GridView ID="GvCxP" GridLines="None" CssClass="table table-hover table-advance Widthall" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas por Pagar pendientes" DataKeyNames="CveCompra,FechaCompra,Proveedor,SerieFolio,Original,SubTotal,IVA,RetIVA,RetISR,IdCtaContProveedores,IdCtaContProveedoresSIG,CvePrePoliza,IdPoliza,CveRetIVAConcepto,CveRetISRConcepto,IVAPorcentaje,NoDeducible">
                 <Columns>
                     <asp:TemplateField>
                         <HeaderTemplate>

Compras/ReembolsosComprobaciones.aspx.vb

@@ -626,6 +626,8 @@ Partial Class Compras_ReembolsosComprobaciones
                         ImportePagar = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
                         ImporteOriginal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
 
+                        Dim ConceptoDeducible As Integer = If(gvr.DataKey("NoDeducible").ToDecimal > 0, 280, 19)
+
                         If SaldoCheque > 0 Then
                             ImporteMovto = If(ImportePagar > SaldoCheque, SaldoCheque, ImportePagar)
                             CvePrePolizaPago = CvePrePolizaIERegistrado
@@ -698,7 +700,7 @@ Partial Class Compras_ReembolsosComprobaciones
                                     End If
 
                                     'Agrego el IVA
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, gvr.DataKey("IVA").ToDecimal * PorcentajePago, Referencia, 19, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, gvr.DataKey("IVA").ToDecimal * PorcentajePago, Referencia, ConceptoDeducible, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
                                         MsgError = "Detalle"
                                     End If
                                 End If
@@ -1004,7 +1006,7 @@ Partial Class Compras_ReembolsosComprobaciones
                                             End If
 
                                             'Agrego el IVA
-                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, False, gvr.DataKey("IVA").ToDecimal, Referencia, 19, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal), ImporteMX:=(gvr.DataKey("IVA").ToDecimal) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
+                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, False, gvr.DataKey("IVA").ToDecimal, Referencia, ConceptoDeducible, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal), ImporteMX:=(gvr.DataKey("IVA").ToDecimal) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
                                                 MsgError = "Detalle"
                                             End If
                                         End If
@@ -1015,7 +1017,7 @@ Partial Class Compras_ReembolsosComprobaciones
                                         End If
 
                                         'Agrego el IVA
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, False, gvr.DataKey("IVA").ToDecimal * PorcentajePago, Referencia, 19, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, False, gvr.DataKey("IVA").ToDecimal * PorcentajePago, Referencia, ConceptoDeducible, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
                                             MsgError = "Detalle"
                                         End If
                                     End If
@@ -1494,7 +1496,7 @@ Partial Class Compras_ReembolsosComprobaciones
     Protected Sub GvChequesFYE_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
             e.Row.FCHyperLink("HLFYE").NavigateUrl = String.Format("/RH/Personal.aspx?CvePersonal={0}", e.Row.DBCampo("CvePersonal"))
-            e.Row.FCHyperLink("HLCheque").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
+            'e.Row.FCHyperLink("HLCheque").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
 
         End If
     End Sub

Empresas/119/Formatos/Traslado.rdlc

@@ -839,7 +839,13 @@ Hermosillo, Sonora, Mexico</Value>
                 <Paragraph>
                   <TextRuns>
                     <TextRun>
-                      <Value>Almacén Origen: </Value>
+                      <Value>=IIf(Parameters!CveConcepto.Value = 8, "Almacén Origen:", "Almacén que recibe:")</Value>
+                      <Style>
+                        <FontWeight>Bold</FontWeight>
+                      </Style>
+                    </TextRun>
+                    <TextRun>
+                      <Value xml:space="preserve"> </Value>
                       <Style>
                         <FontWeight>Bold</FontWeight>
                       </Style>
@@ -876,7 +882,13 @@ Hermosillo, Sonora, Mexico</Value>
                 <Paragraph>
                   <TextRuns>
                     <TextRun>
-                      <Value>Almacén Destino: </Value>
+                      <Value>=IIf(Parameters!CveConcepto.Value = 8, "Almacén Destino:", "Almacén que envía:")</Value>
+                      <Style>
+                        <FontWeight>Bold</FontWeight>
+                      </Style>
+                    </TextRun>
+                    <TextRun>
+                      <Value xml:space="preserve"> </Value>
                       <Style>
                         <FontWeight>Bold</FontWeight>
                       </Style>

Empresas/Grales/Formatos/EntradaSalida.rdlc

@@ -523,8 +523,8 @@
         <DataSetName>DsInventarios</DataSetName>
         <Top>0.17639cm</Top>
         <Left>0.12931cm</Left>
-        <Height>1.11095cm</Height>
+        <Height>1.11096cm</Height>
-        <Width>17.80043cm</Width>
+        <Width>17.80045cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -567,10 +567,10 @@
     <Height>0.82291in</Height>
     <Style />
   </Body>
-  <Width>7.12873in</Width>
+  <Width>7.05896in</Width>
   <Page>
     <PageHeader>
-      <Height>3.79401cm</Height>
+      <Height>4.11151cm</Height>
       <PrintOnFirstPage>true</PrintOnFirstPage>
       <PrintOnLastPage>true</PrintOnLastPage>
       <ReportItems>
@@ -644,7 +644,7 @@
           <Value>=Parameters!LogoPath.Value</Value>
           <Sizing>FitProportional</Sizing>
           <Top>0.3175cm</Top>
-          <Left>0.16459cm</Left>
+          <Left>0.19987cm</Left>
           <Height>1.66316cm</Height>
           <Width>3.43141cm</Width>
           <ZIndex>2</ZIndex>
@@ -669,7 +669,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox15</rd:DefaultName>
-          <Top>2.09104cm</Top>
+          <Top>2.40854cm</Top>
           <Left>2.30482cm</Left>
           <Height>0.6cm</Height>
           <Width>9.54145cm</Width>
@@ -685,7 +685,6 @@
           </Style>
         </Textbox>
         <Textbox Name="Textbox18">
-          <CanGrow>true</CanGrow>
           <KeepTogether>true</KeepTogether>
           <Paragraphs>
             <Paragraph>
@@ -699,7 +698,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox18</rd:DefaultName>
-          <Top>2.83214cm</Top>
+          <Top>3.14964cm</Top>
           <Left>2.30482cm</Left>
           <Height>0.6cm</Height>
           <Width>9.54145cm</Width>
@@ -731,7 +730,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox16</rd:DefaultName>
-          <Top>2.843cm</Top>
+          <Top>3.1605cm</Top>
           <Left>0.14172cm</Left>
           <Height>0.6cm</Height>
           <Width>2.11724cm</Width>
@@ -766,7 +765,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox14</rd:DefaultName>
-          <Top>2.09104cm</Top>
+          <Top>2.40854cm</Top>
           <Left>0.12931cm</Left>
           <Height>0.6cm</Height>
           <Width>2.12965cm</Width>
@@ -872,7 +871,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox4</rd:DefaultName>
-          <Top>2.84301cm</Top>
+          <Top>3.16051cm</Top>
           <Left>12.17799cm</Left>
           <Height>0.59999cm</Height>
           <Width>1.80326cm</Width>
@@ -888,7 +887,6 @@
           </Style>
         </Textbox>
         <Textbox Name="Textbox10">
-          <CanGrow>true</CanGrow>
           <KeepTogether>true</KeepTogether>
           <Paragraphs>
             <Paragraph>
@@ -904,10 +902,10 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox6</rd:DefaultName>
-          <Top>2.09105cm</Top>
+          <Top>2.40855cm</Top>
           <Left>13.98125cm</Left>
           <Height>0.6cm</Height>
-          <Width>3.94849cm</Width>
+          <Width>3.65324cm</Width>
           <ZIndex>10</ZIndex>
           <Style>
             <Border>
@@ -938,10 +936,10 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox32</rd:DefaultName>
-          <Top>2.84301cm</Top>
+          <Top>3.16051cm</Top>
           <Left>13.98125cm</Left>
           <Height>0.59999cm</Height>
-          <Width>3.94849cm</Width>
+          <Width>3.65324cm</Width>
           <ZIndex>11</ZIndex>
           <Style>
             <Border>
@@ -970,7 +968,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox3</rd:DefaultName>
-          <Top>2.09105cm</Top>
+          <Top>2.40855cm</Top>
           <Left>12.17799cm</Left>
           <Height>0.59999cm</Height>
           <Width>1.80326cm</Width>

Inventarios/RecepcionAlmacen.aspx

@@ -350,6 +350,15 @@
                                 </div>
                             </div>
                         </div>
+                        <div id="DivVirtualAdvertencia" visible="false" runat="server" class="col-md-12" style="vertical-align: middle;" align="center">
+                            <div style="z-index: 5; position: relative;">
+                                <div clientidmode="Static" runat="server" class="alert alert-warning" style="padding: 5px; margin-bottom: 5px; padding-right: 25px;">
+                                    <button type="button" class="close" data-dismiss="alert" style="margin-top: 5px;" aria-hidden="true"></button>
+                                    <strong style="font-size: 20px; margin-right: 25px;">Información: </strong>
+                                    <asp:Literal Text="La mercancía sera trasladada al almacén virtual" runat="server" ID="Literal1"></asp:Literal>
+                                </div>
+                            </div>
+                        </div>
                     </div>
                 </ContentTemplate>
             </asp:UpdatePanel>

Inventarios/RecepcionAlmacen.aspx.vb

@@ -942,6 +942,9 @@ Partial Class Inventarios_RecepcionAlmacen
                     DivCodigoSeriePS.Visible = False
                 End If
 
+                If UsuarioActual.CveEmpresa = 140 Then
+                    DivVirtualAdvertencia.Visible = True
+                End If
 
             End If
         Else
@@ -2211,6 +2214,53 @@ Partial Class Inventarios_RecepcionAlmacen
                 End If
             End If
 
+            'VIRTUAL
+            Dim DtTamanios As New DataTable("DtTamanios")
+            DtTamanios.Columns.Add(New DataColumn("CvePS", GetType(Integer)))
+            DtTamanios.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
+            DtTamanios.Columns.Add(New DataColumn("PU", GetType(Decimal)))
+            DtTamanios.Columns.Add(New DataColumn("CveUM", GetType(Integer)))
+
+            If ObjAcum.TamañoGet(-1, UsuarioActual.CveEmpresa) Then
+                For Each GvRow As GridViewRow In GvInv.Rows
+                    If GvRow.RowType = DataControlRowType.DataRow Then
+                        For Each Tam As DataRow In ObjAcum.DtResultados.Rows
+                            If Tam("CveTamaño").ToString() = GvRow.DataKey("CveTamaño") Then
+                                Dim Row As DataRow = DtTamanios.NewRow()
+
+                                Row("CvePS") = Tam("CvePSCargo").ToString().ToEntero()
+                                Row("Cantidad") = GvRow.FCTextBox("TbCantidadF").Text.ToDecimal()
+                                Row("PU") = GvRow.DataKey("PU").ToDecimal()
+                                Row("CveUM") = GvRow.DataKey("CveUM").ToEntero()
+
+                                DtTamanios.Rows.Add(Row)
+                            End If
+                        Next
+                    End If
+                Next
+            End If
+
+            If DtTamanios IsNot Nothing AndAlso DtTamanios.Rows.Count > 0 Then
+                Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacen.SelectedValue}").ToEntero()
+
+                Dim CveAlmacenVirutal As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
+
+                CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirutal, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim)
+                FolioVirtual = ObjInventario.Folio
+
+                For Each RowUsado As DataRow In DtTamanios.Rows
+                    Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
+                    Dim CantidadUsado As Double = RowUsado("Cantidad").ToString().ToDouble()
+                    Dim PU As Double = RowUsado("PU").ToString().ToDouble()
+                    Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
+
+                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                        ErrorMovInv = True
+                        Exit For
+                    End If
+                Next
+            End If
+
             'DEVENGAR AC
             If Not ErrorMovInv AndAlso UsuarioActual.Empresa.UsaAC Then
                 Dim IDPoliza As Integer

Inventarios/RecepcionEntrega.aspx.vb

@@ -1933,7 +1933,7 @@ Partial Class Inventarios_RecepcionEntrega
 
 
             ' COMIENZA: VIRTUAL
-            If TipoDocto.Contiene("Ing", "Rem") AndAlso UsuarioActual.CveEmpresa = 140 AndAlso TipoMovimiento = 1 Then
+            If TipoDocto.Contiene("Ing", "Rem") AndAlso UsuarioActual.CveEmpresa = 140 Then
 
                 Dim DtTamanios As New DataTable("DtTamanios")
                 DtTamanios.Columns.Add(New DataColumn("CvePS", GetType(Integer)))
@@ -1965,21 +1965,26 @@ Partial Class Inventarios_RecepcionEntrega
                 If DtTamanios IsNot Nothing AndAlso DtTamanios.Rows.Count > 0 AndAlso CveAlmacenVirtual > 0 Then
                     Dim CveConceptoMovimientoVirtual = If(TipoMovimiento = 1, 3, 18) 'CHECA SI ES ENTRADA O DEVOLUCION
 
-                    CveAlmacenVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text)
+                    CveAlmacenVirutal = ObjInventario.AddMovimiento(CveAlmacenVirutal, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text)
                     FolioVirtual = ObjInventario.Folio
 
-                    For Each RowUsado As DataRow In DtTamanios.Rows
+                    If CveMovimientoVirtual > 0 Then
-                        Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
+                        For Each RowUsado As DataRow In DtTamanios.Rows
-                        Dim CantidadEntrada As Double = RowUsado("Cantidad").ToString().ToDouble()
+                            Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
-                        Dim PU As Double = RowUsado("PU").ToString().ToDouble()
+                            Dim CantidadEntrada As Double = RowUsado("Cantidad").ToString().ToDouble()
-                        Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
+                            Dim PU As Double = RowUsado("PU").ToString().ToDouble()
+                            Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
+
+                            If Not ObjInventario.AddMovimientoDetalle(CveAlmacenVirutal, CantidadEntrada, CveUM, CvePS, PU, -1) Then
+                                ErrorMovInv = True
+                                TextoError = "Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar."
+                                Exit For
+                            End If
+                        Next
+                    Else
+                        ErrorMovInv = True
+                    End If
 
-                        If Not ObjInventario.AddMovimientoDetalle(CveAlmacenVirtual, CantidadEntrada, CveUM, CvePS, PU, -1) Then
-                            ErrorMovInv = True
-                            TextoError = "Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar."
-                            Exit For
-                        End If
-                    Next
                 Else
                     ErrorMovInv = True
                 End If
@@ -2425,7 +2430,7 @@ Partial Class Inventarios_RecepcionEntrega
 
         Catch ex As Exception
             ErrorMovInv = True
-            OnError("Ocurrió un error al guardar",ex)
+            OnError("Ocurrió un error al guardar", ex)
         End Try
 
         If Not ErrorMovInv Then
@@ -2460,7 +2465,7 @@ Partial Class Inventarios_RecepcionEntrega
 
             'VIRTUAL
             If CveMovimientoVirtual > 0 Then
-                Msg.AppendFormat("<br/> Movimiento de Salida del Almacen Virtal: Folio : ")
+                Msg.AppendFormat("<br/> Movimiento de Salida del Almacen Virtal: ")
                 Msg.AppendFormat("<b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimientoVirtual, FolioVirtual)
             End If
 

Ventas/Ventas.aspx.vb

@@ -3434,6 +3434,13 @@ Partial Class Ventas
                 Dim CveCliente As Integer = DbRowVenta("CveCliente").ToString.ToEntero
                 HdnCveVenta.Value = CveVenta.ToString
 
+                Dim ObjUsados As New ClsVentas
+                Dim DtUsados As DataTable = Nothing
+                If ObjUsados.GetVentasUsados(CveVenta, DdlSubProyectoDatos.SelectedValue.ToEntero(), DbRowVenta("Fecha").ToString.ToDateTime, UsuarioActual.CveEmpresa) Then
+                    DtUsados = ObjUsados.DtResultados
+                End If
+                ObjUsados.Dispose()
+
                 Me.CveEstatusFacturaPadre = DbRowVenta("CveEstatusFacturaPadre").ToString.ToEntero
                 'CargaEncabezado
                 If Not (CveRemision > 0 Or CveCotizacion > 0) Then
@@ -4217,6 +4224,16 @@ Partial Class Ventas
                         End If
                     End If
 
+                    'Si es Empresa de Acumuladores
+                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                        'Si ya se surtió y recibió
+                        If DbRowVenta("SaldoAlmacen").ToString.ToDecimal > 0 And (DtUsados Is Nothing Or DtUsados.Rows.Count = 0) Then
+                            BtnsFacturar.Visible = True
+                        Else
+                            BtnsFacturar.Visible = False
+                        End If
+                    End If
+
                 End If