Merge branch 'master' of http://adsistemasof.sytes.net:8383/SIG

App_Code/ClsInventarios.vb

@@ -1240,7 +1240,14 @@ Public Class ClsInventarios
 
         Return Retorno
     End Function
-
+    ''' <summary>
+    ''' Obtiene los valores para asignar a los movimientos virtuales
+    ''' </summary>
+    ''' <param name="CveMovimiento">Debe ser un movimiento de Salida o Entrada de almacen (2,3,18)</param>
+    ''' <param name="CveEmpresa"></param>
+    ''' <param name="CveCompra"></param>
+    ''' <param name="CveMovimientoRelacionado">Cuando sea cancelacion/devolucion hay que mandar este dato que seria la salida de almacen</param>
+    ''' <returns></returns>
     Public Function GetMovimientosDetalleVirtual(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveCompra As Integer = -1, Optional CveMovimientoRelacionado As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_MovimientosDetalleVirtualGet")

App_Code/Modelos.vb

@@ -4537,6 +4537,13 @@ Namespace Modelos
                                         End If
                                     End If
 
+
+                                    'REALIZA LA DEVOLUCION AL ALMACEN VIRTUAL
+                                    If Not GeneraMovimientosVirtuales(CveVenta, CveMovimientoDevolucion, RowMovimiento("CveMovimiento").ToString().ToEntero(), ObjInventario) Then
+                                        ErrorCancelar = True
+                                        MensajeError = "Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar."
+                                    End If
+
                                     'AGREGA BITACORA A VENTA
                                     If Not ErrorCancelar AndAlso RealizarDevolucionAlmacen AndAlso CveMovimientoDevolucion > 0 Then
                                         Dim MensajeBitacora = "Devuelta"
@@ -4580,12 +4587,6 @@ Namespace Modelos
                                     Next
                                 End If
 
-                                'REALIZA LA DEVOLUCION AL ALMACEN VIRTUAL
-                                If Not GeneraMovimientosVirtuales(CveVenta, ObjInventario) Then
-                                    ErrorCancelar = True
-                                    MensajeError = "Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar."
-                                End If
-
                                 'VERIFICAR MOVIMIENTOS DE APARTADOS
                                 If Not ErrorCancelar Then
                                     If Not GeneraMovimientosApartados(ObjInventario) Then
@@ -4809,41 +4810,36 @@ Namespace Modelos
 
             Return Retorno
         End Function
-        Private Function GeneraMovimientosVirtuales(CveVenta As Integer, ByRef ObjInventario As ClsInventarios) As Boolean
+        Private Function GeneraMovimientosVirtuales(CveVenta As Integer, CveMovimiento As Integer, CveMovimientoRelacionado As Integer, ByRef ObjInventario As ClsInventarios) As Boolean
             Dim ErrorCancelar As Boolean = False
             Try
                 If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
-                    Dim CveMovimientoSalida As Integer = -1
+                    Dim CveMovimientoVirtual As Integer = -1
-                    Dim CveAlmacenVirutal As Integer = -1
+                    Dim ValidaVirtual = True
+                    Dim DtPSVirtual As New DataTable("DtTamanios")
 
-                    Dim DtMovtosDev As DataTable = Nothing
+                    If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa, CveMovimientoRelacionado:=CveMovimientoRelacionado) Then
-
+                        DtPSVirtual = ObjInventario.DtResultados
-                    If ObjInventario.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then
-                        Dim RowMovimiento As DataRow = ObjInventario.DtResultados.FiltroPrimero("CvePS IS NULL AND CveTipoAlmacen = 24 AND CveConcepto = 3 AND CveVenta > 0")
-                        CveMovimientoSalida = RowMovimiento("CveMovimiento").ToString().ToEntero()
-                        CveAlmacenVirutal = RowMovimiento("CveAlmacen").ToString().ToEntero()
-                    Else
-                        ErrorCancelar = True
                     End If
 
-                    If CveMovimientoSalida > 0 Then
+                    Dim CveConceptoMovimientoVirtual As Integer = 36
-                        'CARGA CONCEPTOS DEVUELTOS EN LA VENTA
+                    Dim CveAlmacenVirtual As Integer = -1
-                        If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
+                    Dim CveMovimientoRelacionadoVirtual As Integer = CveMovimiento
-                            DtMovtosDev = ObjInventario.DtResultados.Copy()
-                        Else
-                            ErrorCancelar = True
-                        End If
 
-                        If DtMovtosDev IsNot Nothing AndAlso DtMovtosDev.Rows.Count > 0 Then
+                    CveAlmacenVirtual = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
-                            Dim CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacenVirutal, 18, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, CveMovimientoRelacionado:=CveMovimientoSalida)
 
-                            For Each RowUsado As DataRow In DtMovtosDev.Rows
+                    If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 AndAlso CveAlmacenVirtual > 0 AndAlso CveConceptoMovimientoVirtual > 0 Then
+                        CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1,
+                                                                       Observaciones:="", Guia:="", CveMovimientoRelacionado:=CveMovimientoRelacionadoVirtual, Modulo:="Modelos/CancelarVirtual")
+
+                        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("PU").ToString().ToDecimal()
+                                Dim PU As Decimal = RowUsado("PUOriginal").ToString().ToDecimal()
                                 Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
 
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1) Then
                                     ErrorCancelar = True
                                     Exit For
                                 End If
@@ -4851,7 +4847,14 @@ Namespace Modelos
                         Else
                             ErrorCancelar = True
                         End If
+                    Else
+                        If ValidaVirtual Then
+                            ErrorCancelar = True
+                        End If
+                    End If
 
+                    If DtPSVirtual.Rows.Count = 0 AndAlso ValidaVirtual = True Then
+                        ErrorCancelar = True
                     End If
                 End If
             Catch ex As Exception
@@ -4861,6 +4864,7 @@ Namespace Modelos
 
             Return Not ErrorCancelar
         End Function
+
         Private Function GeneraMovimientosEntregaPorAdelantadoRemision(CveMovimiento As Integer, ByRef ObjVentas As ClsVentas, ByRef ObjInventario As ClsInventarios, ByRef DtDevRem As DataTable, ByRef ListaRemisionesCancelar As List(Of Integer)) As Boolean
             Dim ErrorCancelar As Boolean = False
 

CRM/CatEmpresasCRM.aspx

@@ -28,6 +28,11 @@
 
                     <div class="titlefiltros  caption">
                         <div class="row" style="margin-left: 10px;">
+                            <label class="col-md-1" id="Label1" runat="server" style="width: 120px; margin-top: 5px;">Tipo de proceso:</label>
+                            <div class="col-md-2" id="Div1" runat="server">
+                                <asp:DropDownList ID="DdlTipoProceso" runat="server" Width="100%" DataTextField="TipoProceso" DataValueField="CveTipoProceso" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-sm select2me" OnSelectedIndexChanged="DdlTipoProcesos_Change" AutoPostBack="true">
+                                </asp:DropDownList>
+                            </div>
                             <label class="col-md-1" id="LblDdlMedioCaptacion" runat="server" style="width: 120px; margin-top: 5px;">Medio Captación:</label>
                             <div class="col-md-2" id="DivDdlMedioCaptacion" runat="server">
                                 <asp:DropDownList ID="DdlMedioCaptacion" runat="server" Width="100%" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-sm select2me">

CRM/CatEmpresasCRM.aspx.cs

@@ -29,6 +29,7 @@ public partial class CRM_CatEmpresasCRM : ClsPaginas
     {
         if (!IsPostBack)
         {
+            CargaTipoProcesos();
             CargaMediosCaptacion();
             CargaDatos();
         }
@@ -60,12 +61,22 @@ public partial class CRM_CatEmpresasCRM : ClsPaginas
 
         if (ObjCRM.GetMedioCaptacion(UsuarioActual.CveEmpresa, 1))
         {
-            DdlMedioCaptacion.DataSource = ObjCRM.DtResultados;
+            DdlMedioCaptacion.DataSource = ObjCRM.DtResultados.FiltraParametros(String.Format("CveTipoProceso = {0}",DdlTipoProceso.SelectedValue));
             DdlMedioCaptacion.DataBind();
-            DdlMedioCaptacion.Items.Insert(0, new ListItem("Todos ", "-1"));
         }
         ObjCRM.Dispose();
     }
+
+    protected void CargaTipoProcesos()
+    {
+        ClsCRM ObjCRM = new ClsCRM();
+
+        if (ObjCRM.GetTipoProceso(UsuarioActual.CveEmpresa))
+        {
+            DdlTipoProceso.DataSource = ObjCRM.DtResultados;
+        }
+        DdlTipoProceso.DataBind();
+    }
     #endregion
 
     #region "ACCIONES - GRIEDVIEW"
@@ -106,4 +117,11 @@ public partial class CRM_CatEmpresasCRM : ClsPaginas
         }
     }
     #endregion
+
+    protected void DdlTipoProcesos_Change(Object sender, EventArgs e)
+    {
+        DdlMedioCaptacion.Items.Clear();
+        CargaMediosCaptacion();
+        UPFiltros.Update();
+    }
 }

CRM/CatProbabilidadAcercamiento.aspx.cs

@@ -254,6 +254,6 @@ public partial class CRM_CatProbabilidadAcercamiento : ClsPaginas
         param.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
         param.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToString()));
 
-        ImprimirPDF("Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc", TmpDT, param, "Report Cat Etapas Proceso", formato);
+        ImprimirPDF("Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc", TmpDT, param, "Report Cat Probabilidad Acercamiento", formato);
     }
 }

CRM/EmpresaCRM.aspx

@@ -87,6 +87,11 @@
                                             <i></i>
                                         </div>
 
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlTipoPrceso2" runat="server" Width="50%" DataTextField="TipoProceso" DataValueField="CveTipoProceso" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-sm select2me" OnSelectedIndexChanged="DdlTipoProcesos_Change" AutoPostBack="true"/>
+                                            <label for="<%=DdlTipoPrceso2.ClientID.ToString()%>">Tipo Proceso:</label>
+                                        </div>
+
                                         <div class="form-group form-md-line-input input-iconright">
                                             <asp:DropDownList ID="DdlMedioCaptacion" Width="50%" runat="server" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion" AppendDataBoundItems="true" CssClass="form-control input-sm select2me"></asp:DropDownList>
                                             <label for="<%=DdlMedioCaptacion.ClientID.ToString()%>">Medio de Captación:</label>

CRM/EmpresaCRM.aspx.cs

@@ -225,6 +225,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
         {
             CreoCliente = false; 
             RecuperaCve();
+            CargaTipoProceso();
             CargaMetodosCaptacion();
             CargaVendedores();
             CargaSucursales();
@@ -548,12 +549,22 @@ public partial class CRM_EmpresaCRM : ClsPaginas
         CveContactoEditado = -1;
     }
 
+    protected void CargaTipoProceso()
+    {
+        ClsCRM ObjCRM = new ClsCRM();
+        if (ObjCRM.GetTipoProceso(UsuarioActual.CveEmpresa))
+        {
+            DdlTipoPrceso2.DataSource = ObjCRM.DtResultados;
+        }
+        DdlTipoPrceso2.DataBind();
+    }
+
     protected void CargaMetodosCaptacion()
     {
         ClsCRM ObjCRM = new ClsCRM();
         if (ObjCRM.GetMedioCaptacion(UsuarioActual.CveEmpresa, 1))
         {
-            DdlMedioCaptacion.DataSource = ObjCRM.DtResultados;
+            DdlMedioCaptacion.DataSource = ObjCRM.DtResultados.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoPrceso2.SelectedValue));
             DdlMedioCaptacion.Items.Insert(0, new ListItem("Seleccione ", "-1"));
             DdlMedioCaptacionAcercamiento.Items.Clear();
             DdlMedioCaptacionAcercamiento.DataSource = ObjCRM.DtResultados;
@@ -1507,4 +1518,11 @@ public partial class CRM_EmpresaCRM : ClsPaginas
             Mail.SendMail(ClsPaginas.EmpresaNotificaciones, correoVendedor, Asunto,body);
         }
     }
+
+    protected void DdlTipoProcesos_Change(Object sender, EventArgs e)
+    {
+        DdlMedioCaptacion.Items.Clear();
+        CargaMetodosCaptacion();
+        UpDatos.Update();
+    }
 }

Compras/Compras.aspx

@@ -467,7 +467,7 @@
                                         <asp:ListItem Text="Flete" Value="4"></asp:ListItem>
                                         <asp:ListItem Text="Importación" Value="5"></asp:ListItem>
                                         <asp:ListItem Text="NC Con Productos" Value="6"></asp:ListItem>
-
+                                        <asp:ListItem Text="Apoyo Logístico" Value="9"></asp:ListItem>
                                     </asp:DropDownList>
                                 </div>
                             </div>

Compras/Compras.aspx.vb

@@ -6392,6 +6392,7 @@ Partial Class Compras_Compras
                                                         Case 6 'Compra
 
                                                             Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
+
                                                             Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
 
                                                             If RBLPago.SelectedValue.ToEntero = 4 Then
@@ -6622,6 +6623,13 @@ Partial Class Compras_Compras
                                                                 'falta el registro de la NC cuando es
                                                                 Dim RegistroCuentaPuente As Boolean = False
                                                                 'NC CON PRODUCTOS - CUENTA PUENTE
+
+
+                                                                If DdlTipoComprobante.SelectedValue = "NC" And DdlTipoCompra.SelectedValue.ToEntero = 9 Then
+                                                                    RegistraConcepto225 = True
+                                                                End If
+
+
                                                                 If RegistraConcepto225 Then
 
                                                                     importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 2").ToString.ToDecimal
@@ -6924,6 +6932,12 @@ Partial Class Compras_Compras
                                                             CveCuenta = CveCuentaProveedorAcreedores
 
                                                         Case 18 'NC - Notas de Credito
+
+
+
+
+
+
                                                             importeMovimiento = importeNC
                                                             importeMN = importeMovimiento * tipoCambioActual * Multiplicador
                                                             If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
@@ -11511,7 +11525,7 @@ Partial Class Compras_Compras
                 e.Row.FCCheckBox("cbInv").Enabled = False
             End If
 
-            e.Row.FCDropDownList("ddlEAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (1,2,7,14,19)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
+            e.Row.FCDropDownList("ddlEAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(If(DdlTipoCompra.SelectedValue.ToEntero = 9, "CveTipoAlmacen IN (21)", "CveTipoAlmacen IN (1,2,7,14,19)")) 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
             e.Row.FCDropDownList("ddlEAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
             e.Row.FCDropDownList("ddlEAlmacen").DataBind()
             'e.Row.FCDropDownList("ddlEAlmacen").SelectedValue = If(e.Row.DBCampo("CveAlmacen").ToEntero <= 0, "-1", e.Row.DBCampo("CveAlmacen"))
@@ -11600,6 +11614,12 @@ Partial Class Compras_Compras
             If UsuarioActual.CveUsuario.Contiene(1397, 1517, 1565) Then ' iliana, horacio, marco, RMF. 2017.03.13
                 StrAlmacenes = "CveTipoAlmacen IN (1,2,7,14,12,19)"
             End If
+
+
+            If DdlTipoCompra.SelectedValue.ToEntero = 9 Then
+                StrAlmacenes = "CveTipoAlmacen IN (21)"
+            End If
+
             e.Row.FCDropDownList("ddlAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(StrAlmacenes) 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
             e.Row.FCDropDownList("ddlAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
             e.Row.FCDropDownList("ddlAlmacen").DataBind()
@@ -19621,6 +19641,10 @@ Partial Class Compras_Compras
 
     Protected Sub DdlTipoCompra_SelectedIndexChanged(sender As Object, e As EventArgs)
 
+        If DdlTipoCompra.SelectedValue.ToEntero = 9 Then 'Al seleccionar apoyo logístico se cargan los amancenes de  devoculcion proveedor para dar entrada
+            CargaGvInv()
+        End If
+
     End Sub
 
 #End Region

Empresas/Grales/Formatos/RepCatEtapasProceso.rdlc

@@ -471,7 +471,9 @@
                               </Style>
                             </TextRun>
                           </TextRuns>
-                          <Style />
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
                         </Paragraph>
                       </Paragraphs>
                       <rd:DefaultName>Orden</rd:DefaultName>
@@ -961,13 +963,16 @@
             <Paragraph>
               <TextRuns>
                 <TextRun>
-                  <Value>=Parameters!FechaImpresion.Value</Value>
+                  <Value>=Now</Value>
                   <Style>
                     <FontSize>9pt</FontSize>
+                    <Format>dd/MM/yyyy HH:mm:ss tt</Format>
                   </Style>
                 </TextRun>
               </TextRuns>
-              <Style />
+              <Style>
+                <TextAlign>Left</TextAlign>
+              </Style>
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox11</rd:DefaultName>
@@ -1117,9 +1122,8 @@
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
     <ReportParameter Name="FechaImpresion">
-      <DataType>String</DataType>
+      <DataType>DateTime</DataType>
       <Nullable>true</Nullable>
-      <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
   </ReportParameters>

Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc

@@ -5,7 +5,7 @@
       <Line Name="Line1">
         <Top>0.08792cm</Top>
         <Height>0cm</Height>
-        <Width>20.06868cm</Width>
+        <Width>19.15246cm</Width>
         <Style>
           <Border>
             <Style>Solid</Style>
@@ -16,19 +16,19 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>5.89659cm</Width>
+              <Width>7.3197cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>4.7613cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>1.60341cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>3.72586cm</Width>
+              <Width>2.55502cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>4.01284cm</Width>
+              <Width>2.80719cm</Width>
-            </TablixColumn>
-            <TablixColumn>
-              <Width>4.7613cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
@@ -82,6 +82,53 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox4">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Tipo Proceso</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox4</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <TopBorder>
+                          <Color>Black</Color>
+                        </TopBorder>
+                        <BottomBorder>
+                          <Color>Black</Color>
+                        </BottomBorder>
+                        <LeftBorder>
+                          <Style>None</Style>
+                        </LeftBorder>
+                        <RightBorder>
+                          <Style>None</Style>
+                        </RightBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox5">
@@ -223,53 +270,6 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="Textbox21">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>Tipo Proceso</Value>
-                              <Style>
-                                <FontSize>9pt</FontSize>
-                                <FontWeight>Bold</FontWeight>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style>
-                            <TextAlign>Center</TextAlign>
-                          </Style>
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>Textbox21</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Color>LightGrey</Color>
-                          <Style>Solid</Style>
-                        </Border>
-                        <TopBorder>
-                          <Color>Black</Color>
-                        </TopBorder>
-                        <BottomBorder>
-                          <Color>Black</Color>
-                        </BottomBorder>
-                        <LeftBorder>
-                          <Style>None</Style>
-                        </LeftBorder>
-                        <RightBorder>
-                          <Style>None</Style>
-                        </RightBorder>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>2pt</PaddingTop>
-                        <PaddingBottom>2pt</PaddingBottom>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
               </TablixCells>
             </TablixRow>
             <TablixRow>
@@ -306,6 +306,37 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="TipoProceso">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!TipoProceso.Value</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>TipoProceso</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Estatus">
@@ -402,37 +433,6 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="TipoProceso">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>=Fields!TipoProceso.Value</Value>
-                              <Style>
-                                <FontSize>8pt</FontSize>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style />
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>TipoProceso</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Style>None</Style>
-                        </Border>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>2pt</PaddingTop>
-                        <PaddingBottom>2pt</PaddingBottom>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
               </TablixCells>
             </TablixRow>
           </TablixRows>
@@ -457,10 +457,10 @@
           </TablixMembers>
         </TablixRowHierarchy>
         <DataSetName>DataSet1</DataSetName>
-        <Top>0.36336cm</Top>
+        <Top>0.26431cm</Top>
-        <Left>0.06868cm</Left>
+        <Left>0.10583cm</Left>
         <Height>1.06771cm</Height>
-        <Width>20cm</Width>
+        <Width>19.04663cm</Width>
         <ZIndex>1</ZIndex>
         <Style>
           <Border>
@@ -472,7 +472,7 @@
     <Height>0.60091in</Height>
     <Style />
   </Body>
-  <Width>7.92485in</Width>
+  <Width>7.54034in</Width>
   <Page>
     <PageHeader>
       <Height>3.19792cm</Height>
@@ -514,9 +514,9 @@
           </Paragraphs>
           <rd:DefaultName>Textbox1</rd:DefaultName>
           <Top>0.48896cm</Top>
-          <Left>2.56328cm</Left>
+          <Left>5.74694cm</Left>
           <Height>0.6cm</Height>
-          <Width>15.44165cm</Width>
+          <Width>8.8382cm</Width>
           <ZIndex>1</ZIndex>
           <Style>
             <Border>
@@ -577,9 +577,9 @@
           </Paragraphs>
           <rd:DefaultName>Textbox2</rd:DefaultName>
           <Top>1.98854cm</Top>
-          <Left>2.56328cm</Left>
+          <Left>5.78222cm</Left>
           <Height>0.95278cm</Height>
-          <Width>15.44165cm</Width>
+          <Width>8.8382cm</Width>
           <ZIndex>2</ZIndex>
           <Style>
             <Border>
@@ -599,7 +599,7 @@
       </Style>
     </PageHeader>
     <PageFooter>
-      <Height>0.79374cm</Height>
+      <Height>0.87322cm</Height>
       <PrintOnFirstPage>true</PrintOnFirstPage>
       <PrintOnLastPage>true</PrintOnLastPage>
       <ReportItems>
@@ -607,7 +607,7 @@
           <Top>0.11437cm</Top>
           <Left>0.10583cm</Left>
           <Height>0cm</Height>
-          <Width>19.96285cm</Width>
+          <Width>19.04663cm</Width>
           <Style>
             <Border>
               <Style>Solid</Style>
@@ -696,9 +696,9 @@
           </Paragraphs>
           <rd:DefaultName>Textbox10</rd:DefaultName>
           <Top>0.22726cm</Top>
-          <Left>6.97591cm</Left>
+          <Left>7.92841cm</Left>
           <Height>0.36335cm</Height>
-          <Width>2.92333cm</Width>
+          <Width>3.55833cm</Width>
           <ZIndex>3</ZIndex>
           <Style>
             <Border>
@@ -710,38 +710,6 @@
             <PaddingBottom>2pt</PaddingBottom>
           </Style>
         </Textbox>
-        <Textbox Name="Textbox12">
-          <CanGrow>true</CanGrow>
-          <KeepTogether>true</KeepTogether>
-          <Paragraphs>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value>=Parameters!FechaImpresion.Value</Value>
-                  <Style>
-                    <FontSize>9pt</FontSize>
-                  </Style>
-                </TextRun>
-              </TextRuns>
-              <Style />
-            </Paragraph>
-          </Paragraphs>
-          <rd:DefaultName>Textbox11</rd:DefaultName>
-          <Top>0.22726cm</Top>
-          <Left>9.88513cm</Left>
-          <Height>0.36335cm</Height>
-          <Width>4.32745cm</Width>
-          <ZIndex>4</ZIndex>
-          <Style>
-            <Border>
-              <Style>None</Style>
-            </Border>
-            <PaddingLeft>2pt</PaddingLeft>
-            <PaddingRight>2pt</PaddingRight>
-            <PaddingTop>2pt</PaddingTop>
-            <PaddingBottom>2pt</PaddingBottom>
-          </Style>
-        </Textbox>
         <Textbox Name="Textbox7">
           <CanGrow>true</CanGrow>
           <KeepTogether>true</KeepTogether>
@@ -763,9 +731,44 @@
           </Paragraphs>
           <rd:DefaultName>Textbox3</rd:DefaultName>
           <Top>0.22726cm</Top>
-          <Left>18.00281cm</Left>
+          <Left>16.91135cm</Left>
           <Height>0.36335cm</Height>
           <Width>2.06587cm</Width>
+          <ZIndex>4</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox8">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>=Now</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                    <Format>dd/MM/yyy HH:mm:ss tt</Format>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Left</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox8</rd:DefaultName>
+          <Top>0.22726cm</Top>
+          <Left>10.62431cm</Left>
+          <Height>0.37041cm</Height>
+          <Width>5.72096cm</Width>
           <ZIndex>5</ZIndex>
           <Style>
             <Border>
@@ -863,7 +866,6 @@
     <ReportParameter Name="FechaImpresion">
       <DataType>String</DataType>
       <Nullable>true</Nullable>
-      <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
   </ReportParameters>

Empresas/Grales/Formatos/RepCatTipoProceso.rdlc

@@ -658,9 +658,9 @@
           </Paragraphs>
           <rd:DefaultName>Textbox2</rd:DefaultName>
           <Top>1.67104cm</Top>
-          <Left>2.56328cm</Left>
+          <Left>5.78222cm</Left>
           <Height>0.95278cm</Height>
-          <Width>14.72728cm</Width>
+          <Width>8.43036cm</Width>
           <ZIndex>2</ZIndex>
           <Style>
             <Border>
@@ -798,9 +798,10 @@
             <Paragraph>
               <TextRuns>
                 <TextRun>
-                  <Value>=Parameters!FechaImpresion.Value</Value>
+                  <Value>=Now</Value>
                   <Style>
                     <FontSize>9pt</FontSize>
+                    <Format>dd/MM/yyy HH:mm:ss tt</Format>
                   </Style>
                 </TextRun>
               </TextRuns>

Inventarios/RecepcionAlmacen.aspx.vb

@@ -30,7 +30,14 @@ Partial Class Inventarios_RecepcionAlmacen
     End Property
     Private Property DtInv As DataTable
         Get
+            If ViewState("DtInv") Is Nothing Then
+                Return New DataTable
+            Else
                 Return CType(ViewState("DtInv"), DataTable)
+            End If
+
+
+
         End Get
         Set(value As DataTable)
             ViewState("DtInv") = value
@@ -854,9 +861,15 @@ Partial Class Inventarios_RecepcionAlmacen
                 If TipoMovimiento = 3 Then
                     CargaAlmacenes(-1, "21,2")
                 End If
+
+                If CveTipoCompra = 9 Then
+                    CargaAlmacenes(-1, "21")
+                End If
+
                 RecibidaCompleta = False
 
                 Dim CargaSoloUsados As Boolean = False
+
                 If ObjInventario.RecepcionAlmacenGet(pCveCompra, BuscaEntregaDirecta, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
                     Dim DtRecepcion As DataTable = Nothing
                     Dim NumUsados = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = True").ToEntero()
@@ -2106,7 +2119,10 @@ Partial Class Inventarios_RecepcionAlmacen
     End Function
 
     Private Sub GuardaCompraOC()
+
         Dim CveMovimiento As Integer
+        ' Dim CveMovimientoS
+
         Dim InvFolio As String = ""
         Dim FechaMovto As Date = TxtFecha.Text.ToDate
 
@@ -2402,7 +2418,9 @@ Partial Class Inventarios_RecepcionAlmacen
                     If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.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()
+                        Dim CveTipoAlmacenFiltro As Integer = If(CveTipoCompra = 9, 25, 24)
+
+                        Dim CveAlmacenVirutal As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacenFiltro).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, Modulo:="RA/G")
                         FolioVirtual = ObjInventario.Folio
@@ -2494,6 +2512,76 @@ Partial Class Inventarios_RecepcionAlmacen
                     End If
                 End If
                 'TERMINA: DEVENGAR
+
+            Else
+
+
+
+                'VIRTUAL
+                If CveTipoCompra = 9 And UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
+
+                    Dim DtPSVirtual As New DataTable("DtTamanios")
+                    DtPSVirtual.Columns.Add(New DataColumn("CvePS", GetType(Integer)))
+                    DtPSVirtual.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
+                    DtPSVirtual.Columns.Add(New DataColumn("PU", GetType(Decimal)))
+                    DtPSVirtual.Columns.Add(New DataColumn("CveUM", GetType(Integer)))
+
+                    Dim DtComprasDetalle As DataTable = Nothing
+                    Dim DtTamanios As DataTable = Nothing
+
+                    If ObjCompras.GetCompraDetalle(CveCompraSurtir) Then
+                        DtComprasDetalle = ObjCompras.DtResultados.Copy()
+                    End If
+
+                    If ObjAcum.TamañoGet(-1, UsuarioActual.CveEmpresa) Then
+                        DtTamanios = ObjAcum.DtResultados.Copy()
+                    End If
+
+                    For Each GvRow As GridViewRow In GvInv.Rows
+                        If GvRow.RowType = DataControlRowType.DataRow Then
+
+                            For Each Tam As DataRow In DtTamanios.Rows
+                                If Tam("CveTamaño").ToString() = GvRow.DataKey("CveTamaño") Then
+                                    Dim CvePSCargo = Tam("CvePSCargo").ToString().ToEntero()
+                                    Dim RowCompraDetalle = DtComprasDetalle.FiltroPrimero($"CvePS = {CvePSCargo}")
+
+                                    If RowCompraDetalle IsNot Nothing Then
+                                        Dim Row As DataRow = DtPSVirtual.NewRow()
+                                        Row("CvePS") = CvePSCargo
+                                        Row("Cantidad") = GvRow.FCTextBox("TbCantidadF").Text.ToDecimal()
+                                        Row("PU") = RowCompraDetalle("PU").ToString().ToDecimal()
+                                        Row("CveUM") = GvRow.DataKey("CveUM").ToEntero()
+                                        DtPSVirtual.Rows.Add(Row)
+                                    End If
+
+                                End If
+                            Next
+
+                        End If
+                    Next
+
+                    If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.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, 25).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, Modulo:="RA/G")
+                        FolioVirtual = ObjInventario.Folio
+
+                        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("PU").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
+                    End If
+                End If
+
             End If
 
             'ACTUALIZA ESTATUS ALMACEN

Inventarios/RecepcionEntrega.aspx.vb

@@ -2355,36 +2355,34 @@ Partial Class Inventarios_RecepcionEntrega
             ' COMIENZA: VIRTUAL
             If Not ErrorMovInv AndAlso TipoDocto.Contiene("Ing", "Dev") AndAlso UsuarioActual.Empresa.Funcionalidad(573) = "1" AndAlso CveMovimiento > 0 Then
                 Dim DtPSVirtual As New DataTable("DtTamanios")
+                Dim CveConceptoMovimientoVirtual As Integer = -1
+                Dim CveAlmacenVirtual As Integer = -1
+                Dim CveMovimientoRelacionadoVirtual As Integer = CveMovimiento
+                Dim ValidaVirtual As Boolean = False
+
+                If TipoMovimiento = 1 Then
+                    CveConceptoMovimientoVirtual = 37
 
                     If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa) Then
                         DtPSVirtual = ObjInventario.DtResultados
                     End If
 
-                '
-                'DtPSVirtual.Columns.Add(New DataColumn("CvePS", GetType(Integer)))
-                'DtPSVirtual.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
-                'DtPSVirtual.Columns.Add(New DataColumn("PU", GetType(Decimal)))
-                'DtPSVirtual.Columns.Add(New DataColumn("CveUM", GetType(Integer)))
-
-                'Dim DtTamanios As DataTable = Nothing
-
-                'If ObjAcumuladores.TamañoGet(-1, UsuarioActual.CveEmpresa) Then
-                '    DtTamanios = ObjAcumuladores.DtResultados.Copy()
-                'End If
-
-                Dim CveConceptoMovimientoVirtual As Integer = -1
-                Dim CveAlmacenVirtual As Integer = -1
-                Dim CveMovimientoRelacionadoVirtual As Integer = CveMovimiento
-                Dim ValidaVirtual As Boolean = False
-                CveAlmacenVirtual = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
-
-                If TipoMovimiento = 1 Then
-                    CveConceptoMovimientoVirtual = 37
-
                 ElseIf TipoMovimiento = 2 Then
                     ValidaVirtual = True
                     CveConceptoMovimientoVirtual = 36
+
+                    If ObjInventario.GetInv_Mov(CveVentaSurtir, UsuarioActual.CveEmpresa) Then
+                        Dim RowMovimiento As DataRow = ObjInventario.DtResultados.FiltroPrimero("CvePS IS NULL AND CveTipoAlmacen = 1 AND CveConcepto IN(3,40) AND CveVenta > 0")
+
+                        If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa, CveMovimientoRelacionado:=RowMovimiento("CveMovimiento").ToString().ToEntero()) Then
+                            DtPSVirtual = ObjInventario.DtResultados
                         End If
+                    Else
+                        ErrorMovInv = True
+                    End If
+                End If
+
+                CveAlmacenVirtual = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
 
                 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,
@@ -2395,7 +2393,7 @@ Partial Class Inventarios_RecepcionEntrega
                         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("PU").ToString().ToDecimal()
+                            Dim PU As Decimal = RowUsado("PUOriginal").ToString().ToDecimal()
                             Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
 
                             If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1) Then

Inventarios/TraspasoAlmacen.aspx.vb

@@ -665,6 +665,29 @@ Partial Class Inventarios_TraspasoAlmacen
             End If
         End If
 
+        'Inicia la transacción
+        Dim ObjInventario As New ClsInventarios
+        Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL())
+        Dim CveMovimientoSalida = 0
+        Dim CveMovimientoEntrada = 0
+        Dim IDPoliza As Integer = 0
+        Dim FolioSalida = 0
+        Dim CveMovimientoVirtualEntrada As Integer = 0
+        Dim CveMovimientoVirtualSalida As Integer = 0
+        Dim FolioVirtualEntrada As Integer = 0
+        Dim FolioVirtualSalida As Integer = 0
+        Dim FolioEntrada = 0
+        Dim AlmacenEntrada = -1
+        Dim Fecha As Date = TxtFecha.Text.ToDate
+        Dim ErrorMovInv As Boolean = False
+        Dim ErrorAC As Boolean = False
+        Dim TextoError = ""
+        Dim TipoMovimientoSalida As Integer = 26 'If(ChkTransitorio.Checked, 26, If(TipoAlmacenOrigen = 24, 26, 26))
+
+        Dim ErrorExistencia = False
+        Dim TextoExistencia As StringBuilder = New StringBuilder
+
+        Try
             'VALIDA ALMACEN DISTINTA SUCURSAL DEBE SER TRANSITORIO
             If Not UsuarioActual.CveEmpresa.Contiene(7, 140) Then '[IPP] EMPRESA VIGILANCIA NO OCUPA TRANSITORIOS - TIENEN MIL SUCURSALES Xd
                 If Not ChkTransitorio.Checked Then
@@ -699,11 +722,10 @@ Partial Class Inventarios_TraspasoAlmacen
                 End If
             Next
 
-        Dim ObjInventario As New ClsInventarios
+
 
             'VALIDA LA EXISTENCIA DEL ALMACEN DE ORIGEN
-        Dim ErrorExistencia = False
+
-        Dim TextoExistencia As StringBuilder = New StringBuilder
             Dim Existencia As Double
             TextoExistencia.Append("Los siguiente productos se ajustaron por falta de exitencia:<br/>")
             If Not CargadoDeMov Then
@@ -763,23 +785,7 @@ Partial Class Inventarios_TraspasoAlmacen
             '    ConsumoInterno(TipoAlmacenOrigen, TipoAlmacenDestino)
             'End If
 
-        'Inicia la transacción
+
-        Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL())
-        Dim CveMovimientoSalida = 0
-        Dim CveMovimientoEntrada = 0
-        Dim IDPoliza As Integer = 0
-        Dim FolioSalida = 0
-        Dim CveMovimientoVirtualEntrada As Integer = 0
-        Dim CveMovimientoVirtualSalida As Integer = 0
-        Dim FolioVirtualEntrada As Integer = 0
-        Dim FolioVirtualSalida As Integer = 0
-        Dim FolioEntrada = 0
-        Dim AlmacenEntrada = -1
-        Dim Fecha As Date = TxtFecha.Text.ToDate
-        Dim ErrorMovInv As Boolean = False
-        Dim ErrorAC As Boolean = False
-        Dim TextoError = ""
-        Dim TipoMovimientoSalida As Integer = 26 'If(ChkTransitorio.Checked, 26, If(TipoAlmacenOrigen = 24, 26, 26))
 
             'AGREGAMOS LA SALIDA DEL ALMACEN ORIGEN
             CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, TipoMovimientoSalida, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
@@ -828,7 +834,7 @@ Partial Class Inventarios_TraspasoAlmacen
                 Dim dtvirtual As DataTable = Nothing
 
                 If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
-                dtvirtual = ObjInventario.DtResultados
+                    dtvirtual = ObjInventario.DtResultados.Copy()
                     For Each RowVirtual As DataRow In dtvirtual.Rows
                         Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
                         Dim CantidadUsado As Double = RowVirtual("Cantidad").ToString().ToDouble()
@@ -840,6 +846,7 @@ Partial Class Inventarios_TraspasoAlmacen
                             Exit For
                         End If
                     Next
+                    dtvirtual.Dispose()
                 Else
                     ErrorMovInv = True
                 End If
@@ -890,12 +897,12 @@ Partial Class Inventarios_TraspasoAlmacen
                         FolioVirtualEntrada = ObjInventario.Folio
                         Dim dtvirtual As DataTable = Nothing
 
-                    If CveMovimientoVirtualEntrada > 0 AndAlso ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then
+                        If CveMovimientoVirtualEntrada > 0 AndAlso ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoEntrada, UsuarioActual.CveEmpresa, CveMovimientoRelacionado:=CveMovimientoSalida) Then
-                        dtvirtual = ObjInventario.DtResultados
+                            dtvirtual = ObjInventario.DtResultados.Copy()
                             For Each RowVirtual As DataRow In dtvirtual.Rows
                                 Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
                                 Dim CantidadUsado As Double = RowVirtual("Cantidad").ToString().ToDouble()
-                            Dim PU As Decimal = RowVirtual("PU").ToString().ToDecimal()
+                                Dim PU As Decimal = RowVirtual("PUOriginal").ToString().ToDecimal()
                                 Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero()
 
                                 If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualEntrada, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
@@ -903,6 +910,7 @@ Partial Class Inventarios_TraspasoAlmacen
                                     Exit For
                                 End If
                             Next
+                            dtvirtual.Dispose()
                         Else
                             ErrorMovInv = True
                         End If
@@ -964,6 +972,11 @@ Partial Class Inventarios_TraspasoAlmacen
             '    End If
             'End If
 
+        Catch ex As Exception
+            ErrorMovInv = True
+            OnError("Ocurrió un error al realizar el traspaso", ex)
+        End Try
+
         If Not ErrorMovInv Then
             DtTraslado = DtMovimientos.Copy
             ObjInventario.Commit()
@@ -1614,7 +1627,7 @@ Partial Class Inventarios_TraspasoAlmacen
                         Dim dtvirtual As DataTable = Nothing
 
                         If CveMovimientoVirtualEntrada > 0 AndAlso ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoEntrada, UsuarioActual.CveEmpresa, CveMovimientoRelacionado:=CveMovimientoSalida) Then
-                            dtvirtual = ObjInventario.DtResultados
+                            dtvirtual = ObjInventario.DtResultados.Copy()
                             For Each RowVirtual As DataRow In dtvirtual.Rows
                                 Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
                                 Dim CantidadUsado As Decimal = RowVirtual("Cantidad").ToString().ToDecimal()
@@ -1627,6 +1640,7 @@ Partial Class Inventarios_TraspasoAlmacen
                                     Exit For
                                 End If
                             Next
+                            dtvirtual.Dispose()
                         Else
                             TextoError = "No se pudo registrar el movimiento virtual"
                             ErrorMovInv = True
@@ -1737,7 +1751,7 @@ Partial Class Inventarios_TraspasoAlmacen
             'REGISTRA LA SALIDA Y ENTRADA (TRASPASO)
             ObjInventario.IniciaTransacSQL() 'Inicia la transacción
             Dim Fecha As Date = TxtFechaRecepcion.Text.ToDate
-
+            Dim CveMovimientoReferencia As Integer = -1
             'AGREGAMOS LA ENTRADA
             CveMovimientoSalida = ObjInventario.AddMovimiento(GvDatosRecepcion.Rows(0).DataKey("CveAlmacenDestino").ToEntero, 27, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
                                                               Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveAlmacenDestino:=GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero, CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/G1")
@@ -1751,6 +1765,7 @@ Partial Class Inventarios_TraspasoAlmacen
                 Dim CveMovimientoDetalleEntrada As Integer = 0
                 Dim Cont As Integer = 0
                 For Each gvr As GridViewRow In GvDatosRecepcion.Rows
+                    CveMovimientoReferencia = gvr.DataKey("CveMovimiento").ToEntero()
 
                     Dim dataRowAux As DataRow = Dtt.FiltroPrimero(String.Format(" CveMovimientoDetalle  = '{0}'", If(gvr.DataKey("CveMovimientoDetalle").ToString = "", "0", gvr.DataKey("CveMovimientoDetalle").ToString)))
                     Dim cantidadDisponibleValidacion As Decimal = 0
@@ -1825,16 +1840,16 @@ Partial Class Inventarios_TraspasoAlmacen
 
                 If CveAlmacenVirtual > 0 Then
 
-                    CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 2, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/S2")
+                    CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/S2")
                     FolioVirtualEntrada = ObjInventario.Folio
                     Dim dtvirtual As DataTable = Nothing
 
-                    If CveMovimientoVirtualEntrada > 0 AndAlso ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
+                    If CveMovimientoVirtualEntrada > 0 AndAlso ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoSalida, UsuarioActual.CveEmpresa, CveMovimientoRelacionado:=CveMovimientoReferencia) Then
-                        dtvirtual = ObjInventario.DtResultados
+                        dtvirtual = ObjInventario.DtResultados.Copy()
                         For Each RowVirtual As DataRow In dtvirtual.Rows
                             Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
                             Dim CantidadUsado As Decimal = RowVirtual("Cantidad").ToString().ToDecimal()
-                            Dim PU As Decimal = RowVirtual("PU").ToString().ToDecimal()
+                            Dim PU As Decimal = RowVirtual("PUOriginal").ToString().ToDecimal()
                             Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero()
 
                             If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualEntrada, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
@@ -1842,6 +1857,7 @@ Partial Class Inventarios_TraspasoAlmacen
                                 Exit For
                             End If
                         Next
+                        dtvirtual.Dispose()
                     Else
                         TextoError = "No se pudo registrar el movimiento virtual"
                         ErrorMovInv = True