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

Inventarios/CatAlmacenes.aspx

@@ -153,7 +153,7 @@
         <ContentTemplate>
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveAlmacen,IdCtaContable,Inventariable,Modalidad,CveTipoAlmacen,Almacen,Estatus,CveSubProyecto,Orden,CveCuenta,CveUsuarioAutoriza,CveAlmacenVirtual" EmptyDataText="No se encontraron Almacenes" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" data-heighterror="300px" data-freezerows="1" GridLines="None">
                 <Columns>
-                    <asp:TemplateField ItemStyle-Width="15%" HeaderText="Almacen">
+                    <asp:TemplateField ItemStyle-Width="20%" HeaderText="Almacen">
                         <ItemTemplate>
                             &nbsp;<asp:Literal ID="LtlAlmacen" runat="server" Text='<%# Eval("Almacen") %>'></asp:Literal>
                         </ItemTemplate>
@@ -173,32 +173,32 @@
                             &nbsp;<asp:Literal ID="LtlTipoAlmacen" runat="server" Text='<%# Eval("TipoAlmacen", "{0}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-Width="15%" HeaderText="Cuenta Contable">
+                    <asp:TemplateField ItemStyle-Width="10%" HeaderText="Cuenta Contable">
                         <ItemTemplate>
                             &nbsp;<asp:Literal ID="LtlCuentaContable" runat="server" Text='<%# Eval("Cuenta") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-Width="15%" HeaderText="Modalidad">
+                    <asp:TemplateField ItemStyle-Width="10%" HeaderText="Modalidad">
                         <ItemTemplate>
                             &nbsp;<asp:Literal ID="LtlModalidad" runat="server" Text='<%# Eval("Modalidad") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-Width="10%" HeaderText="Inventariable">
+                    <asp:TemplateField ItemStyle-Width="2.5%" HeaderText="Inventariable">
                         <ItemTemplate>
                             &nbsp;<asp:Literal ID="LtlInventariable" runat="server" Text='<%# Eval("Inventariable") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-Width="10%" HeaderText="Estatus">
+                    <asp:TemplateField ItemStyle-Width="5%" HeaderText="Estatus">
                         <ItemTemplate>
                             <asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("Estatus") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-Width="10%" HeaderText="Fecha Ingreso">
+                    <asp:TemplateField ItemStyle-Width="5%" HeaderText="Fecha Ingreso">
                         <ItemTemplate>
                             <asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-Width="10%" HeaderText="Usuario">
+                    <asp:TemplateField ItemStyle-Width="5%" HeaderText="Usuario">
                         <ItemTemplate>
                             <asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
                         </ItemTemplate>

Inventarios/Consignaciones.aspx.vb

@@ -380,29 +380,8 @@ Partial Class Inventarios_Consignaciones
 
         If DdlConcepto.SelectedValue.ToEntero.Contiene(12, 8) Then
             Dim CveSubProyectoValidaCaducidad As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenFiltro.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto").ToEntero
-            'RMF condición temporal
-            If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyectoValidaCaducidad.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
-                ValidaLoteCaducidad = True
-
-                'activa lote
-                ThLote.Visible = True
-                ThCaducidad.Visible = True
-
-
-            Else
-                ValidaLoteCaducidad = False
-
-                'activa lote
-                ThLote.Visible = False
-                ThCaducidad.Visible = False
-
-
-            End If
         End If
 
-
-
-
         Dim ObjInventario As New ClsInventarios
 
         If ObjInventario.ConsignacionesDetalle(CveConsignacionTemp, DdlAlmacenFiltro.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
@@ -688,7 +667,7 @@ Partial Class Inventarios_Consignaciones
 
             If Valido Then
                 Dim CveClasificacion As Integer
-                Dim PSCodigo = ""
+                Dim PSCodigo As String = ""
 
                 Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero
                 Dim SeccionAlmacen As String = DdlSeccionAlmacen.SelectedItem.Text
@@ -782,9 +761,9 @@ Partial Class Inventarios_Consignaciones
             Dim CveMovimiento As Integer = 0
             Dim Folio As Integer = 0
             Dim ErrorMovInv As Boolean = False
-            Dim TextoError = ""
+            Dim TextoError As String = ""
             Dim Fecha As Date = TxtFecha.Text.ToDate
-            Dim ErrorExistencia = False
+            Dim ErrorExistencia As Boolean = False
             Dim TextoExistencia As StringBuilder = New StringBuilder
 
 
@@ -808,7 +787,7 @@ Partial Class Inventarios_Consignaciones
             'AGREGAMOS CONSIGNACION
             If Not ErrorExistencia Then
                 ObjInventario.IniciaTransacSQL() 'Inicia la transacción
-                Dim CveConsignacion = -1
+                Dim CveConsignacion As Integer = -1
 
                 If DdlConcepto.SelectedValue = "10" Then
                     CveConsignacion = ObjInventario.AddConsignaciones(DdlProveedor.SelectedValue.ToEntero, -1, TxtFolio.Text, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario)
@@ -850,7 +829,7 @@ Partial Class Inventarios_Consignaciones
                     Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL)
 
                     Dim Concepto As String = "Consig"
-                    Dim CvePrePoliza = ObjConta.AddPrePolizas("Entrada/Consignacion", 53, ImportePrePoliza, ImportePrePoliza, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                    Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Entrada/Consignacion", 53, ImportePrePoliza, ImportePrePoliza, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImportePrePoliza, ImportePrePoliza, 68, "Entrada por Consignacion", "Entrada por Consignacion", CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=-1, Contabilizable:=False) Then
                         ErrorMovInv = True
@@ -956,11 +935,10 @@ Partial Class Inventarios_Consignaciones
         Dim ObjInventario As New ClsInventarios
         ObjInventario.IniciaTransacSQL() 'Inicia la transacción
 
-
         Dim ErrorMovInv As Boolean = False
-        Dim TextoError = ""
+        Dim TextoError As String = ""
         Dim Fecha As Date = TxtFechaDevolucion.Text.ToDate
-        Dim ErrorExistencia = False
+        Dim ErrorExistencia As Boolean = False
         Dim TextoExistencia As New StringBuilder
         Dim CveMovtos As New List(Of Integer)
         Dim Folios As New List(Of Integer)
@@ -968,7 +946,7 @@ Partial Class Inventarios_Consignaciones
 
         Dim ConceptoDevolucion As Integer = 12
         Dim CveAlmacen As Integer = -1
-        Dim MovtoNew = False
+        Dim MovtoNew As Boolean = False
 
         For Each Gvr As GridViewRow In GvDatos.Rows
 
@@ -1252,7 +1230,7 @@ Partial Class Inventarios_Consignaciones
         Dim TipoMovimiento As Integer = If(ChkTransitorio.Checked And TipoAlmacenEntrada <> 1, 2, 9)
         Dim AlmacenEntrada As Integer = -1
         If Not ErrorMovInv Then
-            For i = 0 To CveMovtosSalida.Count - 1
+            For i As Integer = 0 To CveMovtosSalida.Count - 1
                 AlmacenEntrada = If(ChkTransitorio.Checked And TipoAlmacenEntrada <> 1, DdlAlmacenTransitorio.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero)
 
                 CveMovimientoEntrada = ObjInventario.AddMovimiento(AlmacenEntrada, TipoMovimiento, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, -1,
@@ -1316,7 +1294,7 @@ Partial Class Inventarios_Consignaciones
         '    End If
         'End If
         If Not ErrorMovInv And AlmacenEntrada > 0 Then
-            Dim TipoAlmacenOrigen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {AlmacenEntrada}").ToEntero
+            Dim TipoAlmacenOrigen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {AlmacenEntrada}").ToEntero
             If TipoAlmacenOrigen = 1 Then
                 Dim TipoMovto As Integer = 1
                 Dim CveMovimientoCI As Integer = CveMovimientoEntrada
@@ -1338,7 +1316,7 @@ Partial Class Inventarios_Consignaciones
                                     Exit For
                                 End If
                             Next
-                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DtCostos.SUM("Total").ToDecimal * TipoMovto, DtCostos.SUM("Total").ToDecimal * TipoMovto, 68, Concepto, Concepto, CveMovimientoAlmacen:=CveMovimientoCI) Then
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DtCostos.SUM("Total") * TipoMovto, DtCostos.SUM("Total") * TipoMovto, 68, Concepto, Concepto, CveMovimientoAlmacen:=CveMovimientoCI) Then
                                 ErrorMovInv = True
                             End If
                         Else
@@ -1351,7 +1329,6 @@ Partial Class Inventarios_Consignaciones
             End If
         End If
 
-
         If Not ErrorMovInv Then
             ObjInventario.Commit()
             Dim Mensaje As StringBuilder = New StringBuilder
@@ -1359,7 +1336,7 @@ Partial Class Inventarios_Consignaciones
             Mensaje.Append("Se realizó con éxito el traspaso.")
 
             Mensaje.Append("<br/><br/> Folio(s) de Salida: <br/>")
-            For i = 0 To CveMovtosSalida.Count - 1
+            For i As Integer = 0 To CveMovtosSalida.Count - 1
                 Mensaje.AppendFormat("<ul><li> <b><a href = ""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" class=""texto"" target=""_blank"" >{1}</a></b> ", CveMovtosSalida(i), FoliosSalida(i))
                 Mensaje.AppendFormat(" <a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a></li></ul>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovtosSalida(i))))
             Next
@@ -1463,7 +1440,7 @@ Partial Class Inventarios_Consignaciones
         If GvDatosRecepcion.Rows.Count > 0 Then
 
             'Valida Movimientos
-            Dim ValidaMovtos = 0.0
+            Dim ValidaMovtos As Decimal = 0
             For Each gvr As GridViewRow In GvDatosRecepcion.Rows
                 If gvr.FCCheckBox("Chk").Checked AndAlso gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal > 0 Then
                     ValidaMovtos += gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal
@@ -1481,7 +1458,7 @@ Partial Class Inventarios_Consignaciones
             Dim CveMovimientoEntrada As Integer = 0
             Dim Folio As Integer = 0
             Dim ErrorMovInv As Boolean = False
-            Dim TextoError = ""
+            Dim TextoError As String = ""
 
             'REGISTRA LA SALIDA Y ENTRADA (TRASPASO)
             ObjInventario.IniciaTransacSQL() 'Inicia la transacción

Inventarios/EntradasSalidas.aspx.vb

@@ -1970,7 +1970,7 @@ Partial Class Inventarios_EntradasSalidas
                                     Dim Dt As DataTable = ObjInventario.DtResultados.FiltraParametros("", "", {"CveClasificacion"}).Copy
                                     'Dim IdCuentaGasto As Integer = 0
                                     For Each Dr As DataRow In Dt.Rows
-                                        Dim Total As Decimal = ObjInventario.DtResultados.FiltraParametros($"CveClasificacion = {Dr("CveClasificacion")}").SUM("Total").ToDecimal.RoundSQL()
+                                        Dim Total As Decimal = ObjInventario.DtResultados.FiltraParametros($"CveClasificacion = {Dr("CveClasificacion")}").SUM("Total").RoundSQL()
 
                                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoAlmacen, Total, Total, CveConceptoContable, TxtFolio.Text, TxtObservaciones.Text.Trim, 0, CveMovimientoAlmacen:=CveMovimiento, CveClasificacion:=Dr("CveClasificacion").ToString.ToEntero, CveSubProyecto:=tCveSubProyecto) Then
                                             ErrorMovInv = True

Inventarios/EntregaAlmacen.aspx.vb

@@ -1491,7 +1491,7 @@ Partial Class Inventarios_EntregaAlmacen
         Dim Contador As Decimal = 0
         For Each Gvr As GridViewRow In GvDatos.Rows
             If Gvr.DataKey("CvePS").ToEntero() = CvePSSerie Then
-                Contador = DtDatosDetalleLote.SUM("Cantidad", String.Format("ConsecId = {0}", Gvr.DataKey("Consec"))).ToDecimal
+                Contador = DtDatosDetalleLote.SUM("Cantidad", String.Format("ConsecId = {0}", Gvr.DataKey("Consec")))
                 Gvr.FCCheckBox("cbInv").Enabled = False
                 Gvr.FCCheckBox("cbInv").Checked = True
                 Gvr.FCTextBox("TbCantidadF").Text = Contador.ToString().FormatoNumero
@@ -2497,7 +2497,7 @@ Partial Class Inventarios_EntregaAlmacen
                 Next
             End If
 
-            Dim CantidadPendientePorSalir As Decimal = DtDatos.SUM("CantidadGV").ToDecimal()
+            Dim CantidadPendientePorSalir As Decimal = DtDatos.SUM("CantidadGV")
 
             If TipoMovimiento = 1 Then
                 CantidadPendientePorSalir = CantidadPendientePorSalir - CantidadSalidaSinCosto

Inventarios/Kardex.aspx.vb

@@ -305,7 +305,7 @@ Partial Class Inventarios_Kardex
 
         End If
 
-        Dim CveTiposAlmacen = ""
+        Dim CveTiposAlmacen As String = ""
         For Each item As ListItem In CBLTiposAlmacen.Items
             CveTiposAlmacen += If(item.Selected, $"{item.Value},", "")
         Next

Inventarios/RecepcionAlmacen.aspx.vb

@@ -3666,7 +3666,7 @@ Partial Class Inventarios_RecepcionAlmacen
             MandaCorreoOCVendedores(CveCompraSurtir, CveMovimiento)
 
             Dim Msg As New StringBuilder
-            Dim link As String = String.Format("<a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", CveMovimiento, InvFolio)
+            Dim link As String = String.Format("<a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"" class='Texto'>{1}</a>", CveMovimiento, InvFolio)
             'SI LO SOLO GENERO EL MOVIMIENTO DE ENTRADA O SALIDA
             If CveMovimiento > 0 AndAlso CveMovimientoSalidaTraspaso <= 0 Then
                 Msg.AppendFormat("Movimiento Registrado: Folio: <b>{0}</b>", link)
@@ -3674,7 +3674,7 @@ Partial Class Inventarios_RecepcionAlmacen
                 If MensajeOC.Length > 0 Then
                     Msg.AppendFormat("<br/>La Orden de Compra se dividió en los siguientes productos:<br/>{0}", MensajeOC)
                 End If
-                If UsuarioActual.CveEmpresa.Contiene(1, 119) Then
+                If UsuarioActual.CveEmpresa.Contiene(1, 119, 186) Then
                     Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Etiqueta Individual</a> ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Individual")))
                     'Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Etiqueta Por Caja</a> ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Caja")))
 

Inventarios/RecepcionDevolucion.aspx.vb

@@ -563,7 +563,7 @@ Partial Class Inventarios_RecepcionDevolucion
 
     End Function
     Protected Function CreaDTDetalleRNC() As DataTable
-        Dim TmpDT = New DataTable
+        Dim TmpDT As New DataTable
         TmpDT.Columns.Add("CveVenta", GetType(Integer))
         TmpDT.Columns.Add("Consec", GetType(Integer))
         TmpDT.Columns.Add("Cantidad", GetType(Decimal))
@@ -748,12 +748,12 @@ Partial Class Inventarios_RecepcionDevolucion
             End If
         Next
 
-        Dim TotalImporte As Decimal = ObjRemisionNC.DtDetalle.SUM("TotalImporte").ToDecimal()
-        Dim ImporteIVA As Decimal = ObjRemisionNC.DtDetalle.SUM("ImporteIVA").ToDecimal()
-        Dim ImporteRetIVA As Decimal = ObjRemisionNC.DtDetalle.SUM("ImporteRetIVA").ToDecimal()
-        Dim ImporteRetISR As Decimal = ObjRemisionNC.DtDetalle.SUM("ImporteRetISR").ToDecimal()
-        Dim ImporteIEPS As Decimal = ObjRemisionNC.DtDetalle.SUM("ImporteIEPS").ToDecimal()
-        Dim Descuento As Decimal = ObjRemisionNC.DtDetalle.SUM("Descuento").ToDecimal()
+        Dim TotalImporte As Decimal = ObjRemisionNC.DtDetalle.SUM("TotalImporte")
+        Dim ImporteIVA As Decimal = ObjRemisionNC.DtDetalle.SUM("ImporteIVA")
+        Dim ImporteRetIVA As Decimal = ObjRemisionNC.DtDetalle.SUM("ImporteRetIVA")
+        Dim ImporteRetISR As Decimal = ObjRemisionNC.DtDetalle.SUM("ImporteRetISR")
+        Dim ImporteIEPS As Decimal = ObjRemisionNC.DtDetalle.SUM("ImporteIEPS")
+        Dim Descuento As Decimal = ObjRemisionNC.DtDetalle.SUM("Descuento")
         Dim Amortizacion As Decimal = 0
 
         Dim Total As Decimal = (TotalImporte + ImporteIVA + ImporteIEPS) - (ImporteRetIVA + ImporteRetISR + Descuento + Amortizacion)
@@ -822,7 +822,7 @@ Partial Class Inventarios_RecepcionDevolucion
             CreaRemisionNC(CveCliente, CveSubProyecto)
 
             If ObjRemisionNC IsNot Nothing Then
-                Dim Resp = ObjRemisionNC.EmitirFactura(False)
+                Dim Resp As Modelos.Factura.MMensajeFactura = ObjRemisionNC.EmitirFactura(False)
 
                 If Resp.Mensajes.Count > 0 AndAlso Resp.CveVenta > 0 Then
                     Dim Msg As New StringBuilder
@@ -843,7 +843,7 @@ Partial Class Inventarios_RecepcionDevolucion
                 ElseIf Resp.Mensajes.Count <= 0 AndAlso Resp.CveVenta <= 0 Then
                     Alert("Ocurrió un error al guardar", TipoMensaje.MsgError)
                 ElseIf Resp.Mensajes.Count >= 0 AndAlso Resp.CveVenta <= 0 Then
-                    For Each Mensaje In Resp.Mensajes
+                    For Each Mensaje As String In Resp.Mensajes
                         Alert(Mensaje, If(Resp.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion), If(Resp.TieneError, "", Resp.LigaPV), ShowCloseButton:=False)
                     Next
                 End If
@@ -863,7 +863,7 @@ Partial Class Inventarios_RecepcionDevolucion
         If DtMovimientos IsNot Nothing Then
             Dim ConsecEliminar As Integer = GvRow.DataKey("Consec").ToEntero()
             If ConsecEliminar > 0 Then
-                Dim RowEliminar = DtMovimientos.Select($"Consec={ConsecEliminar}")
+                Dim RowEliminar As DataRow() = DtMovimientos.Select($"Consec={ConsecEliminar}")
                 If RowEliminar IsNot Nothing AndAlso RowEliminar.Length > 0 AndAlso RowEliminar.Length = 1 Then
                     RowEliminar(0).Delete()
                 End If

Inventarios/RecepcionUsados.aspx.vb

@@ -2858,12 +2858,12 @@ Partial Class Inventarios_RecepcionUsados
             End If
         End If
 
-        Dim TotalImporte As Decimal = ObjRemisionNC.DtDetalle.SUM("TotalImporte").ToDecimal()
-        Dim ImporteIVA As Decimal = ObjRemisionNC.DtDetalle.SUM("ImporteIVA").ToDecimal()
-        Dim ImporteRetIVA As Decimal = ObjRemisionNC.DtDetalle.SUM("ImporteRetIVA").ToDecimal()
-        Dim ImporteRetISR As Decimal = ObjRemisionNC.DtDetalle.SUM("ImporteRetISR").ToDecimal()
-        Dim ImporteIEPS As Decimal = ObjRemisionNC.DtDetalle.SUM("ImporteIEPS").ToDecimal()
-        Dim DescuentoTotal As Decimal = ObjRemisionNC.DtDetalle.SUM("Descuento").ToDecimal()
+        Dim TotalImporte As Decimal = ObjRemisionNC.DtDetalle.SUM("TotalImporte")
+        Dim ImporteIVA As Decimal = ObjRemisionNC.DtDetalle.SUM("ImporteIVA")
+        Dim ImporteRetIVA As Decimal = ObjRemisionNC.DtDetalle.SUM("ImporteRetIVA")
+        Dim ImporteRetISR As Decimal = ObjRemisionNC.DtDetalle.SUM("ImporteRetISR")
+        Dim ImporteIEPS As Decimal = ObjRemisionNC.DtDetalle.SUM("ImporteIEPS")
+        Dim DescuentoTotal As Decimal = ObjRemisionNC.DtDetalle.SUM("Descuento")
         Dim Amortizacion As Decimal = 0
 
         Dim Total As Decimal = (TotalImporte + ImporteIVA + ImporteIEPS) - (ImporteRetIVA + ImporteRetISR + DescuentoTotal + Amortizacion)

Inventarios/Remanufactura.aspx.vb

@@ -637,12 +637,12 @@ Partial Class Inventarios_Remanufactura
             For Each Row As DataRow In TmpDTDetalle.Rows
                 Dim Observacion As String = Row("Observacion").ToString
 
-                If Not ObjVentas.AddVentaDetalle(ObjVentas.CveVenta, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("CveUM").ToString.ToEntero,
-                                                 Row("PU").ToString.ToDouble(If(ObjFactura.ConvertirPesos, factura.TipoCambio, 1)), Row("IVA").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Math.Round((Row("Total").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)) * (1 + Row("IVA").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)))), 6),
+                If Not ObjVentas.AddVentaDetalle(ObjVentas.CveVenta, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDecimal, Row("CveUM").ToString.ToEntero,
+                                                 Row("PU").ToString.ToDecimal(If(ObjFactura.ConvertirPesos, factura.TipoCambio, 1)), Row("IVA").ToString.ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Math.Round((Row("Total").ToString.ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)) * (1 + Row("IVA").ToString.ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)))), 6),
                                                  Observacion, 0, 0, Row("CveSubProyecto").ToString.ToEntero, -1,
-                                                 TiempoEntrega:="", CveVentaDetallePadre:=-1, CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero, CvePromocionDetalle:=-1, IEPS:=Row("ImporteIEPS").ToString.ToDouble,
-                                                 ImporteRetIVA:=Row("ImporteRetIVA").ToString.ToDouble, ImporteRetISR:=Row("ImporteRetISR").ToString.ToDouble,
-                                                 PorcentajeIEPS:=Row("PorcentajeIEPS").ToString.ToDouble, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString.ToDouble, PorcentajeRetISR:=Row("PorcentajeRetISR").ToString.ToDouble) Then
+                                                 TiempoEntrega:="", CveVentaDetallePadre:=-1, CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero, CvePromocionDetalle:=-1, IEPS:=Row("ImporteIEPS").ToString.ToDecimal,
+                                                 ImporteRetIVA:=Row("ImporteRetIVA").ToString.ToDecimal, ImporteRetISR:=Row("ImporteRetISR").ToString.ToDecimal,
+                                                 PorcentajeIEPS:=Row("PorcentajeIEPS").ToString.ToDouble, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString.ToDouble, PorcentajeRetISR:=Row("PorcentajeRetISR").ToString.ToDecimal) Then
                     ErrorList.Add("Ocurrió un error al agregar un Producto o Servicio a la Factura.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
                     Exit For
                 Else
@@ -711,7 +711,7 @@ Partial Class Inventarios_Remanufactura
         Dim FechaMovimiento As Date = Date.Today
         Dim Concepto As String = ViewState("VentaFolio").ToString
         Dim Referencia As String = ViewState("VentaFolio").ToString
-        Dim Fecha = ObjFactura.Fecha
+        Dim Fecha As Date = ObjFactura.Fecha
 
         Dim importeMX As Decimal
         Dim Multiplicador As Integer

Inventarios/RepNotasSinAlmacen.aspx.vb

@@ -213,7 +213,7 @@ Partial Class RepNotasSinAlmacen
 
     Private Sub ImprimirPDFExcel(Optional Formato As String = "PDF")
         Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+        Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
         'OBTENEMOS LOS DATOS
         'Dim CveCliente As Integer = -1
@@ -292,7 +292,7 @@ Partial Class RepNotasSinAlmacen
             Dim CveCompra As Integer = GvRow.DataKey("CveCompra").ToEntero()
             Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero()
 
-            Dim PS = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("PSCodigo", $"CvePS = {CvePS}")
+            Dim PS As String = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("PSCodigo", $"CvePS = {CvePS}")
 
             Dim ObjCompras As New ClsCompras
             Dim ObjEventos As New ClsOIEventos

Inventarios/ResguardoMaterial.aspx.vb

@@ -1165,12 +1165,6 @@ Partial Class Inventarios_ResguardoMaterial
 
     Private Sub DdlAlmacenDestinoLiberacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAlmacenDestinoLiberacion.SelectedIndexChanged
         Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenDestinoLiberacion.selectedvalue.toentero).FiltroPrimeroValor("CveSubProyecto").ToEntero
-        'RMF condición temporal
-        If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
-            ValidaLoteCaducidad = True
-        Else
-            ValidaLoteCaducidad = False
-        End If
 
         CargaResguardos()
     End Sub

Inventarios/TraspasoAlmacen.aspx.vb

@@ -525,7 +525,7 @@ Partial Class Inventarios_TraspasoAlmacen
         '    DdlProducto2.DataBind()
         'End If
 
-        Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
+        Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
         DdlProducto2.setEsWebService(EsWS)
 
         If DdlProducto2.UsaWebService Then
@@ -565,7 +565,7 @@ Partial Class Inventarios_TraspasoAlmacen
     End Sub
     Private Sub BtnAgregarPS(Cantidad As Decimal)
         Dim CveProducto As Integer = DdlProducto2.SelectedValue.ToEntero
-        Dim FuncionalidadSinSerie = True
+        Dim FuncionalidadSinSerie As Boolean = True
 
         If CveProducto > 0 Then
             If TxtnSerie.Visible Then
@@ -639,7 +639,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
                     Dim tSerie As String = If(TxtnSerie.Visible, TxtnSerie.Text, "-1").Trim
 
-                    Dim Valido = ValidaExistencia(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, DdlSeccionAlmacen.SelectedValue.ToEntero, tSerie, tLote, tCaducidad)
+                    Dim Valido As Boolean = ValidaExistencia(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, DdlSeccionAlmacen.SelectedValue.ToEntero, tSerie, tLote, tCaducidad)
 
                     If Valido Then
                         AgregarPS(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, TxtnObservaciones.Text, CveSeccionAlmacen:=DdlSeccionAlmacen.SelectedValue.ToEntero, SeccionAlmacen:=DdlSeccionAlmacen.SelectedItem.Text, Serie:=If(TxtnSerie.Visible, TxtnSerie.Text, ""), Lote:=If(tLote = "-1", "", tLote), FechaCaducidad:=tCaducidad, CveSeccionAlmacenDestino:=DdlSeccionAlmacenDestino.SelectedValue.ToEntero, Limpia:=FuncionalidadSinSerie)
@@ -652,7 +652,7 @@ Partial Class Inventarios_TraspasoAlmacen
         End If
     End Sub
     Private Function ValidaExistencia(Cantidad As Double, CvePS As Integer, CveUnidadMedida As Integer, CveSeccionAlmacen As Integer, Serie As String, Lote As String, FechaCaducidad As Date) As Boolean
-        Dim Retorno = True
+        Dim Retorno As Boolean = True
 
         Dim ExistenciaEspecificada As Decimal
         Dim PendienteporSurtir As Decimal
@@ -724,7 +724,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
         If DrPS IsNot Nothing Then
             CveClasificacion = DrPS("CveClasificacion").ToString.ToEntero
-            Dim DrUM = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimero($"CveUnidadMedida = {CveUnidadMedida}")
+            Dim DrUM As DataRow = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimero($"CveUnidadMedida = {CveUnidadMedida}")
 
             Dim registro As DataRow = DtMovimientos.NewRow
             registro.Item("Cantidad") = Cantidad
@@ -1060,6 +1060,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
                     Dim importe As Decimal = dttSalida.SUMD("Total").RoundSQL
                     Dim Contabilizable As Boolean = False
+                    If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then Contabilizable = True 'cuando es citrícola
                     If TipoAlmacenOrigen = 26 AndAlso TipoAlmacenDestino <> 26 Then Contabilizable = True
 
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, importe, 68, TxtObservaciones.Text, TxtObservaciones.Text, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable) Then
@@ -1417,8 +1418,8 @@ Partial Class Inventarios_TraspasoAlmacen
 
     Protected Sub ChkTransitorio_CheckedChanged(sender As Object, e As EventArgs)
 
-        Dim TipoAlmacenOrigen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue.ToEntero}").ToEntero
-        Dim TipoAlmacenDestino = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenDestino.SelectedValue.ToEntero}").ToEntero
+        Dim TipoAlmacenOrigen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue.ToEntero}").ToEntero
+        Dim TipoAlmacenDestino As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenDestino.SelectedValue.ToEntero}").ToEntero
         If TipoAlmacenOrigen = 14 Or TipoAlmacenDestino = 14 Then
             ChkTransitorio.Checked = False
             Alert("Un traspaso de consumo interno no puede ser transitorio.", TipoMensaje.MsgAdvertencia)
@@ -1504,10 +1505,6 @@ Partial Class Inventarios_TraspasoAlmacen
                 BtnCancelarTraspaso.Visible = True
             End If
 
-            If UsuarioActual.TienePermisoProceso(347) Then
-                DivRealizarDevolucion.Visible = True
-            End If
-
             If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
                 HplImprimirRecepcion.Visible = True
                 HplImprimirRecepcion.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=Alm&CveMovimiento={CveMovimientoTraspaso}&EsTransitorio=True&CveAlmacenRecepcion={DdlAlmacenRecepcion.SelectedValue.ToEntero}&CveAlmacenTransitorioRecepcion={DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero}&FolioBusquedaTrasitorio={FolioBusqueda}")}"
@@ -1634,10 +1631,12 @@ Partial Class Inventarios_TraspasoAlmacen
             Dim CvePrePoliza As Integer = -1
             Dim Concepto As String = TxtObservacionesRecepcion.Text
             If Concepto = "" Then Concepto = "Cancelación Traspaso"
+            Dim Contabilizable As Boolean = False
+            If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then Contabilizable = True 'cuando es citrícola
 
             If Not ErrorMovInv Then
                 tFolio = ObjInventario.Folio
-                CvePrePoliza = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                CvePrePoliza = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacenC", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
                 If CvePrePoliza <= 0 Then
                     TextoError = "No se pudo generar la Poliza para la cancelación"
@@ -1733,7 +1732,7 @@ Partial Class Inventarios_TraspasoAlmacen
                                 FolioVirtualEntrada = ObjInventario.Folio
 
                                 For Each RowVirtual As DataRow In dtvirtual.Rows
-                                    Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
+                                    Dim CvePS As Integer = RowVirtual("CvePS").ToString().ToEntero()
                                     Dim CantidadUsado As Decimal = RowVirtual("Cantidad").ToString().ToDecimal()
                                     Dim PU As Decimal = RowVirtual("PUOriginal").ToString().ToDecimal()
                                     Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero()
@@ -1801,14 +1800,14 @@ Partial Class Inventarios_TraspasoAlmacen
                     End If
 
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteDecimal, ImporteDecimal, 68, TxtObservaciones.Text, TxtObservaciones.Text,
-                                                     CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=False) Then
+                                                     CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=Contabilizable) Then
                         ErrorMovInv = True
                         TextoError = "Ocurrió un error al cancelar el traspaso"
                     End If
 
                     If CveMovimientoSalidaTransitorio > 0 Then
                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDecimal, ImporteDecimal, 68, TxtObservaciones.Text, TxtObservaciones.Text,
-                                                    CveMovimientoAlmacen:=CveMovimientoSalidaTransitorio, Contabilizable:=False) Then
+                                                    CveMovimientoAlmacen:=CveMovimientoSalidaTransitorio, Contabilizable:=Contabilizable) Then
                             ErrorMovInv = True
                             TextoError = "Ocurrió un error al cancelar el traspaso"
                         End If
@@ -1868,7 +1867,7 @@ Partial Class Inventarios_TraspasoAlmacen
         Dim Retorno As New MCancelacionTraspaso()
         Dim ErrorMovInv As Boolean = False
         Try
-            Dim CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacenDestino, 27, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
+            Dim CveMovimientoEntrada As Integer = ObjInventario.AddMovimiento(CveAlmacenDestino, 27, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
                                                                Observaciones:=TxtObservacionesRecepcion.Text.Trim, Recibio:=TxtRecibio.Text, CveAlmacenDestino:=CveAlmacenDestino,
                                                                CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/C")
             If CveMovimientoEntrada <= 0 Then
@@ -1880,7 +1879,7 @@ Partial Class Inventarios_TraspasoAlmacen
             Retorno.FolioEntrada = ObjInventario.Folio
 
             'AGREGAMOS LA SALIDA
-            Dim CveMovimientoSalidaTransitorio = ObjInventario.AddMovimiento(CveAlmacenTransitorio, 8, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
+            Dim CveMovimientoSalidaTransitorio As Integer = ObjInventario.AddMovimiento(CveAlmacenTransitorio, 8, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
                                                               Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveAlmacenDestino:=CveAlmacenDestino,
                                                               CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/G12")
 
@@ -1892,7 +1891,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
             If Not ErrorMovInv Then
                 Retorno.FolioSalidaTransitorio = ObjInventario.Folio
-                CvePrePoliza = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                CvePrePoliza = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacenC", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
                 If CvePrePoliza <= 0 Then
                     Retorno.MsgError = "No se pudo generar la Poliza para la cancelación"
@@ -1987,10 +1986,10 @@ Partial Class Inventarios_TraspasoAlmacen
 
                                 CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtualSalida, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveMovimientoRelacionado:=CveMovimientoSalidaTransitorio, Modulo:="TA/C3")
 
-                                Dim FolioVirtualEntrada = ObjInventario.Folio
+                                Dim FolioVirtualEntrada As Integer = ObjInventario.Folio
 
                                 For Each RowVirtual As DataRow In dtvirtual.Rows
-                                    Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
+                                    Dim CvePS As Integer = RowVirtual("CvePS").ToString().ToEntero()
                                     Dim CantidadUsado As Decimal = RowVirtual("Cantidad").ToString().ToDecimal()
                                     Dim PU As Decimal = RowVirtual("PUOriginal").ToString().ToDecimal()
                                     Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero()
@@ -2076,7 +2075,7 @@ Partial Class Inventarios_TraspasoAlmacen
     Protected Sub BtnRecibir_Click(sender As Object, e As EventArgs)
         If GvDatosRecepcion.Rows.Count > 0 Then
             'Valida Movimientos
-            Dim ValidaMovtos = 0.0
+            Dim ValidaMovtos As Decimal = 0
             For Each gvr As GridViewRow In GvDatosRecepcion.Rows
                 If gvr.FCCheckBox("Chk").Checked AndAlso gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal > 0 Then
                     ValidaMovtos += gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal
@@ -2100,9 +2099,9 @@ Partial Class Inventarios_TraspasoAlmacen
             Dim Dtt As DataTable = Nothing
             Dim CveMovimientoEntrada As Integer = 0
             Dim CveMovimientoSalidaTransitorio As Integer = 0
-            Dim Folio = 0
+            Dim Folio As Integer = 0
             Dim ErrorMovInv As Boolean = False
-            Dim TextoError = ""
+            Dim TextoError As String = ""
             Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL())
 
             '' verifica que no se halla recibido previamente, si ya se recibió da salida
@@ -2125,7 +2124,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
             Dim TipoAlmacenDestino As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenEntrada}").ToEntero()
             Dim TipoAlmacenOrigen As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenSalida}").ToEntero()
-            Dim CveSubProyectoRecibe = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {CveAlmacenEntrada}").ToEntero
+            Dim CveSubProyectoRecibe As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {CveAlmacenEntrada}").ToEntero
 
             Dim RealizarMovimientoVirtual As Boolean = False
 
@@ -2202,17 +2201,19 @@ Partial Class Inventarios_TraspasoAlmacen
                 If Not ErrorMovInv Then
                     Dim Concepto As String = TxtObservacionesRecepcion.Text
                     If Concepto = "" Then Concepto = "Recepción Traspaso"
-                    Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                    Dim Contabilizable As Boolean = False
+                    If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then Contabilizable = True 'cuando es citrícola
+                    Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacenR", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                     If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then
 
                         Dim importe As Decimal = ObjInventario.DtResultados.SUMD("Total").RoundSQL
                         Dim tCveConcepto As Integer = 68
 
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, importe, tCveConcepto, TxtObservaciones.Text, TxtObservaciones.Text, CveMovimientoAlmacen:=CveMovimientoSalidaTransitorio, Contabilizable:=False) Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, importe, tCveConcepto, TxtObservaciones.Text, TxtObservaciones.Text, CveMovimientoAlmacen:=CveMovimientoSalidaTransitorio, Contabilizable:=Contabilizable) Then
                             ErrorMovInv = True
                         End If
 
-                        If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, importe, 68, TxtObservaciones.Text, TxtObservaciones.Text, CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=False) Then
+                        If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, importe, 68, TxtObservaciones.Text, TxtObservaciones.Text, CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=Contabilizable) Then
                             ErrorMovInv = True
                         End If
                     End If
@@ -2239,7 +2240,7 @@ Partial Class Inventarios_TraspasoAlmacen
                             CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtualSalida, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveMovimientoRelacionado:=CveMovimientoSalidaTransitorio, Modulo:="TA/S22")
                             FolioVirtualSalida = ObjInventario.Folio
                             For Each RowVirtual As DataRow In dtvirtual.Rows
-                                Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
+                                Dim CvePS As Integer = RowVirtual("CvePS").ToString().ToEntero()
                                 Dim CantidadUsado As Decimal = RowVirtual("Cantidad").ToString().ToDecimal()
                                 Dim PU As Decimal = RowVirtual("Cargo").ToString().ToDecimal()
                                 Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero()
@@ -2260,7 +2261,7 @@ Partial Class Inventarios_TraspasoAlmacen
                                     FolioVirtualEntrada = ObjInventario.Folio
 
                                     For Each RowVirtual As DataRow In resultado.Rows
-                                        Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
+                                        Dim CvePS As Integer = RowVirtual("CvePS").ToString().ToEntero()
                                         Dim CantidadUsado As Decimal = RowVirtual("Cantidad").ToString().ToDecimal()
                                         Dim PU As Decimal = RowVirtual("PU").ToString().ToDecimal()
                                         Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero()
@@ -2380,7 +2381,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
         TdSeriePS.Visible = False
 
-        Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoPS.Text.Trim}'")
+        Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoPS.Text.Trim}'")
         If DrPS Is Nothing Then
             Alert($"No se ha encontrado un producto del Código: ""<b>{TxtCodigoPS.Text}</b>"". ", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus,200);")
             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
@@ -2405,7 +2406,7 @@ Partial Class Inventarios_TraspasoAlmacen
         If TxtSeriePS.Text.Trim = "" Then Exit Sub
 
         txtCantidad.Text = "1"
-        Dim Valido = ValidaExistencia(1, CvePSSerie, CveUMSerie, -1, TxtSeriePS.Text.Trim, "-1", MinFecha)
+        Dim Valido As Boolean = ValidaExistencia(1, CvePSSerie, CveUMSerie, -1, TxtSeriePS.Text.Trim, "-1", MinFecha)
 
         If Valido Then
             AgregarPS(1, CvePSSerie, CveUMSerie, Serie:=TxtSeriePS.Text.Trim.ToUpper)
@@ -2429,13 +2430,13 @@ Partial Class Inventarios_TraspasoAlmacen
             Exit Sub
         End If
 
-        Dim Existe = False
-        Dim PSTemp = ""
+        Dim Existe As Boolean = False
+        Dim PSTemp As String = ""
         TdSeriePSRecepcion.Visible = False
 
         For Each Gvr As GridViewRow In GvDatosRecepcion.Rows
             If Gvr.DataKey("CodigoBarras") = TxtCodigoPSRecepcion.Text.Trim Then
-                Dim TxtCantidad = GvDatosRecepcion.Rows(Gvr.RowIndex).FCTextBox("TxtCantidad")
+                Dim TxtCantidad As TextBox = GvDatosRecepcion.Rows(Gvr.RowIndex).FCTextBox("TxtCantidad")
                 If Gvr.DataKey("Cantidad").ToDecimal - TxtCantidad.Text.ToDecimal - 1 >= 0 Then
 
                     If Gvr.DataKey("AplicaSerie") = "True" Then
@@ -2475,7 +2476,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
         For Each Gvr As GridViewRow In GvDatosRecepcion.Rows
             If Gvr.DataKey("CodigoBarras") = TxtCodigoPSRecepcion.Text.Trim And Gvr.DataKey("Serie") = TxtSeriePSRecepcion.Text.Trim.ToUpper Then
-                Dim TxtCantidad = GvDatosRecepcion.Rows(Gvr.RowIndex).FCTextBox("TxtCantidad")
+                Dim TxtCantidad As TextBox = GvDatosRecepcion.Rows(Gvr.RowIndex).FCTextBox("TxtCantidad")
                 If Gvr.DataKey("Cantidad").ToDecimal - TxtCantidad.Text.ToDecimal - 1 >= 0 Then
 
                     TxtCantidad.Text = (TxtCantidad.Text.ToDecimal + 1).ToString.FormatoNumero
@@ -2701,7 +2702,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
             MensajeAlert.Append("Emitido con éxito.")
             'XML
-            Dim ArchivoXML = String.Format("{0}/XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta, ObjTimbres.ObjFactura.TipoDocto, ObjTimbres.ObjFactura.SerieFolio)
+            Dim ArchivoXML As String = String.Format("{0}/XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta, ObjTimbres.ObjFactura.TipoDocto, ObjTimbres.ObjFactura.SerieFolio)
             If File.Exists(ArchivoXML) Then
                 MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar XML</a></li></ul>", Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimientoTimbrado, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto)))
             End If
@@ -2813,7 +2814,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
         Dim FileExcel As New ExcelFile()
 
-        Dim worksheet = FileExcel.Worksheets.Add(DtExcel.TableName)
+        Dim worksheet As ExcelWorksheet = FileExcel.Worksheets.Add(DtExcel.TableName)
         worksheet.InsertDataTable(DtExcel, New InsertDataTableOptions() With
             {
                 .ColumnHeaders = True,
@@ -2823,8 +2824,8 @@ Partial Class Inventarios_TraspasoAlmacen
         worksheet.Rows(0).Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(75, 119, 190), SpreadsheetColor.FromArgb(255, 255, 255))
         worksheet.Rows(0).Style.Font.Color = SpreadsheetColor.FromArgb(255, 255, 255)
 
-        Dim columnCount = worksheet.CalculateMaxUsedColumns()
-        For i = 0 To columnCount
+        Dim columnCount As Integer = worksheet.CalculateMaxUsedColumns()
+        For i As Integer = 0 To columnCount
             worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
         Next
 
@@ -2836,7 +2837,7 @@ Partial Class Inventarios_TraspasoAlmacen
         SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
 
         Dim dt As DataTable = Nothing
-        Dim ErrorArchivo = False
+        Dim ErrorArchivo As Boolean = False
 
         Try
             dt = ReadExcelFile(Ruta + FileName, True)
@@ -2887,7 +2888,7 @@ Partial Class Inventarios_TraspasoAlmacen
                     If RowExcel("Codigo").ToString() <> "" Then
 
 
-                        Dim RowPS = DtPS.FiltroPrimero(String.Format("Codigo='{0}'", RowExcel("Codigo").ToString()))
+                        Dim RowPS As DataRow = DtPS.FiltroPrimero(String.Format("Codigo='{0}'", RowExcel("Codigo").ToString()))
 
                         Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero()
                         Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString().ToEntero()