diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 64f7f20dc..a8263551a 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -1140,7 +1140,9 @@ Public Class ClsContabilidad
                                           Optional ObjConta As ClsContPAQi = Nothing, Optional pIDPoliza As Integer = -1) As Boolean
         Dim StrLog As New StringBuilder
         Dim Retorno As Boolean = False
-        StrLog.AppendFormat("CvePrep:{0} - Inicio", CvePrePoliza)
+        Dim OcurrioError As Boolean = False
+
+        StrLog.AppendFormat("CvePrep:{0} - Inicio -", CvePrePoliza)
 
         If Empresa.TipoContabilizacion = 1 Then ' contabilidad en SIG
 
@@ -1154,7 +1156,7 @@ Public Class ClsContabilidad
             If CvePrePoliza <= 0 Then Return False
 
 
-            Dim OcurrioError As Boolean = False
+
             Dim ContaCompartida As Boolean = False
 
             If ObjConta Is Nothing Then
@@ -1263,6 +1265,7 @@ Public Class ClsContabilidad
                                     If Not ObjConta.AddMovimiento(tIdPoliza, dr("IdCtaContable").ToString.ToEntero, tipoMovimiento,
                                                       dr("ImporteMN").ToString.ToDecimal, dr("Referencia").ToString, dr("Concepto").ToString, dr("IdSegmentoNegocio").ToString.ToEntero, Fecha, SigReferencia, dr("CvePrePolizaDetalle").ToString.ToEntero, ImporteMonedaExtranjera:=dr("ImporteME").ToString.ToDecimal) Then
                                         OcurrioError = True
+                                        StrLog.AppendFormat(" Error 1.1 - ")
                                         Exit For
                                     End If
 
@@ -1271,6 +1274,7 @@ Public Class ClsContabilidad
                                     If Not ObjConta.AddMovimiento(tIdPoliza, dr("IdCtaContable").ToString.ToEntero, tipoMovimiento,
                                                       dr("Importe").ToString.ToDecimal, dr("Referencia").ToString, dr("Concepto").ToString, dr("IdSegmentoNegocio").ToString.ToEntero, Fecha, SigReferencia, dr("CvePrePolizaDetalle").ToString.ToEntero, ImporteMonedaExtranjera:=dr("ImporteME").ToString.ToDecimal) Then
                                         OcurrioError = True
+                                        StrLog.AppendFormat(" Error 1.2 - ")
                                         Exit For
                                     End If
 
@@ -1279,6 +1283,7 @@ Public Class ClsContabilidad
                                 End If
                             Else
                                 OcurrioError = True
+                                StrLog.AppendFormat(" Error 1.3 - ")
                                 Mensaje.Append(String.Format("<br> La cuenta contable {0} es invalida", dr("ConceptoContable")))
                                 Exit For
                             End If
@@ -1298,6 +1303,7 @@ Public Class ClsContabilidad
                                                                   dr("ISRRetenido").ToString.ToDecimal,
                                                                   dr("IVARetenido").ToString.ToDecimal, False) Then
                                     OcurrioError = True
+                                    StrLog.AppendFormat(" Error 1.4 - ")
 
                                 End If
                             End If
@@ -1347,6 +1353,7 @@ Public Class ClsContabilidad
                                         IdProveedor = ObjConta.AddProveedor(IdCtaContProveedores, RFC, RazonSocial, "")
                                         If IdProveedor <= 0 Then
                                             OcurrioError = True
+                                            StrLog.AppendFormat(" Error 1.5 - ")
                                         End If
                                     End If
 
@@ -1364,6 +1371,7 @@ Public Class ClsContabilidad
                                                                            dr("Serie").ToString.ToString,
                                                                            dr("Folio").ToString.StrToNum, dr("FolioFiscal").ToString, Empresa.CveEmpresa) Then
                                             OcurrioError = True
+                                            StrLog.AppendFormat(" Error 1.6 - ")
                                             Mensaje.Append("La Poliza o la Cuenta no son válidas ")
                                         End If
 
@@ -1377,12 +1385,14 @@ Public Class ClsContabilidad
 
                         If Not OcurrioError Then
                             If Not UpdatePrePolizasDetalleBloquear(CvePrePoliza, True) Then
+                                StrLog.AppendFormat(" Error 2.1 - ")
                                 OcurrioError = True
                             End If
                         End If
 
                         If Not OcurrioError Then
                             If Not UpdatePrePoliza(Fecha, ObjConta.Folio, CveTipoPoliza, tIdPoliza, CvePrePoliza, Empresa.CveEmpresa, CveUsuarioModifico:=CveUsuario) Then
+                                StrLog.AppendFormat(" Error 2.2 - ")
                                 OcurrioError = True
                             End If
                         End If
@@ -1404,11 +1414,13 @@ Public Class ClsContabilidad
 
                 Else
                     OcurrioError = True
+                    StrLog.AppendFormat(" Error 3.1 - ")
                 End If
 
 
 
             Catch ex As Exception
+                StrLog.AppendFormat(" Error 4.1 - ")
                 If Not ContaCompartida Then ObjConta.RollBack()
                 OnError("Ocurrió un error al intentar contabilizar la PrePoliza", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
                 'Alert("Ocurrió un error al guardar la póliza", TipoMensaje.MsgAdvertencia)
@@ -1417,8 +1429,9 @@ Public Class ClsContabilidad
 
             If Not ContaCompartida Then ObjConta.Dispose()
         End If
+        StrLog.AppendFormat(" - Con Retorno ({0}) - OcurrioError ({1} ", Retorno, OcurrioError)
         StrLog.AppendFormat(" - Fin")
-        StrLog.ToString.GuardaLogAD("LogContabilidazacion")
+        StrLog.ToString.GuardaLogAD("LogContabilizacion")
         Return Retorno
     End Function
 
diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 24520e128..fd1d81437 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -962,7 +962,7 @@ Public Class ClsInventarios
                                   Optional CveMovimientoRelacionado As Integer = -1, Optional TipoCambio As Double = -1, Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional MovimientoFijo As Boolean = False, Optional CveContrato As Integer = -1,
                                   Optional CveProveedor As Integer = -1, Optional Remision As String = "", Optional CveClienteSucursal As Integer = -1, Optional DepartamentoEntrega As String = "", Optional PedidoContrato As String = "", Optional GastoIndirecto As Double = -1, Optional CveChofer As Integer = -1, Optional Placa As String = "",
                                   Optional FechaEntrega As String = "", Optional EspecifUnidad As String = "", Optional ResponsableCarga As String = "", Optional ResponsableRecibio As String = "", Optional Identificacion As String = "", Optional Domicilio As String = "",
-                                  Optional Telefono As String = "", Optional Ciudad As String = "", Optional Licencia As String = "", Optional Modulo As String = "") As Integer
+                                  Optional Telefono As String = "", Optional Ciudad As String = "", Optional Licencia As String = "", Optional Modulo As String = "", Optional CveOP As Integer = -1) As Integer
 
         Dim Retorno As Integer = -1
 
@@ -1016,6 +1016,7 @@ Public Class ClsInventarios
             .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad
             .Add("@Licencia", SqlDbType.VarChar).Value = Licencia
             .Add("@Modulo", SqlDbType.VarChar).Value = Modulo
+            .Add("@CveOP", SqlDbType.Int).Value = CveOP
         End With
 
         Try
@@ -5259,13 +5260,13 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
-    Public Function DeleteMovimientosProyectados(TipoMovto As Integer) As Boolean
+    Public Function DeleteMovimientosProyectados(TipoMovto As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("Inv_MovimientosProyectadosDelete")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@TipoMovto", SqlDbType.TinyInt).Value = TipoMovto
-
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 
         Try
diff --git a/App_Code/WS_PuntoVenta.vb b/App_Code/WS_PuntoVenta.vb
index ee2e087e2..602e52a5b 100644
--- a/App_Code/WS_PuntoVenta.vb
+++ b/App_Code/WS_PuntoVenta.vb
@@ -850,7 +850,7 @@ Public Class WS_PuntoVenta
 
                     If objVentas.GetVentaTerminal(objVenta.CveVentaTerminal, objVenta.Fecha, objVenta.CveSubProyecto, objVenta.CveEmpresa) Then
 
-                        CvePrePoliza = ObjConta.AddPrePolizas("Vta", 4, objVenta.Total, objVenta.Total, objVenta.CveMoneda, objVenta.Fecha, "", objVenta.CveUsuario, objVenta.CveEmpresa)
+                        CvePrePoliza = ObjConta.AddPrePolizas("Vta", 4, objVenta.Total, objVenta.Total, objVenta.CveMoneda, objVenta.Fecha, "Punto de Venta addVenta", objVenta.CveUsuario, objVenta.CveEmpresa)
 
                         If objVentas.DtResultados.Rows.Count = 0 Then
                             If objVentas.AddVenta(objVenta.TipoDocto, objVenta.FolioFact, objVenta.CveCliente, objVenta.CveClienteSucursal,
@@ -858,7 +858,7 @@ Public Class WS_PuntoVenta
                                             objVenta.Total, objVenta.CveMoneda, objVenta.TipoCambio, objVenta.CveMetodoPago, objVenta.CondicionesPago,
                                               objVenta.FormaPago, Now, objVenta.Fecha, objVenta.MotivoDescuento, objVenta.Observaciones, objVenta.FechaEjecucion,
                                             objVenta.CveVendedor, If(objVenta.Alfa1 IsNot Nothing, objVenta.Alfa1, ""), If(objVenta.Alfa2 IsNot Nothing, objVenta.Alfa2, ""), If(objVenta.Alfa3 IsNot Nothing, objVenta.Alfa3, ""), objVenta.Num1,
-                                            objVenta.Num2, objVenta.Num3, Fech1, Fech2, Fech3, objVenta.CveCorte, objVenta.CveMesa, If(objVenta.NumeroPersonas > 255, 255, objVenta.NumeroPersonas), CvePrePoliza, objVenta.CveUsuario, objVenta.CveEmpresa, objVenta.Propina, objVenta.CveVentaTerminal) Then
+                                            objVenta.Num2, objVenta.Num3, Fech1, Fech2, Fech3, objVenta.CveCorte, objVenta.CveMesa, If(objVenta.NumeroPersonas > 255, 255, objVenta.NumeroPersonas), CvePrePoliza, objVenta.CveUsuario, objVenta.CveEmpresa, objVenta.Propina, objVenta.CveVentaTerminal, CveSubProyecto:=objVenta.CveSubProyecto, CveSubProyectoEjecucion:=objVenta.CveSubProyecto) Then
                                 objVenta.CveVenta = objVentas.CveVenta
                                 'Ingresar los detalles
                                 For Each Detalle As ClsVentaWS.ClsVentaDetalleWS In objVenta.Detalle
@@ -979,8 +979,9 @@ Public Class WS_PuntoVenta
                                         'Se agrega movimiento separado por la cuenta de ventas (ER)
                                         ' For Each Row As DataRow In DT.Rows
                                         ImporteMov = objVenta.SubTotal  ' TmpDT.SUM("Total", "IdCtaContVentas = '" & Row("IdCtaContVentas").ToString & "'")
+                                        Dim CveClasificacion_04 = -1
                                         If ImporteMov <> 0 Then
-                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoVenta, ImporteMov, " ", CveConceptoVenta, " ", objVenta.Fecha, -1, -1, CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE) Then
+                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoVenta, ImporteMov, " ", CveConceptoVenta, " ", objVenta.Fecha, -1, -1, CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE, ImporteMX:=ImporteMov, CveSubProyecto:=objVenta.CveSubProyecto, CveClasificacion:=CveClasificacion_04) Then
                                                 ErrorMovtosVentas = True
                                             End If
                                         End If
@@ -989,7 +990,7 @@ Public Class WS_PuntoVenta
                                         'Se agregan los DSV DESCUENTOS
                                         ImporteMov = objVenta.Descuento
                                         If ImporteMov <> 0 Then
-                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoVenta, ImporteMov, " ", CveConceptoDSV, " ", objVenta.Fecha, IdCtaContDSV, -1, CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE) Then
+                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoVenta, ImporteMov, " ", CveConceptoDSV, " ", objVenta.Fecha, IdCtaContDSV, -1, CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE, ImporteMX:=ImporteMov) Then
                                                 ErrorMovtosDSV = True
                                             End If
                                         End If
@@ -998,7 +999,7 @@ Public Class WS_PuntoVenta
                                         'Se agregan las CxC
                                         ImporteMov = objVenta.Total - TotalPagado
                                         If ImporteMov <> 0 Then
-                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoVenta, ImporteMov, " ", CveConceptoAfectacion, " ", objVenta.Fecha, IdCtaContClientes, -1, CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE) Then
+                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoVenta, ImporteMov, " ", CveConceptoAfectacion, " ", objVenta.Fecha, IdCtaContClientes, -1, CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE, ImporteMX:=ImporteMov) Then
                                                 ErrorMovtosCxC = True
                                             End If
                                         End If
@@ -1006,7 +1007,8 @@ Public Class WS_PuntoVenta
                                         'Si hubo un pago agregarlo
                                         ImporteMov = TotalPagado
                                         If ImporteMov <> 0 Then
-                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoVenta, ImporteMov, " ", 2, " ", objVenta.Fecha, IdCtaContClientes, -1, CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE) Then
+
+                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoVenta, ImporteMov, " ", 2, " ", objVenta.Fecha, IdCtaContClientes, -1, CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE, ImporteMX:=ImporteMov) Then
                                                 ErrorMovtosCxC = True
                                             End If
                                         End If
@@ -1014,7 +1016,11 @@ Public Class WS_PuntoVenta
                                         'Se agregan el Traslado de IVA
                                         ImporteMov = objVenta.IVA
                                         If ImporteMov <> 0 Then
-                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoVenta, ImporteMov, " ", CveConceptoIVA, " ", objVenta.Fecha, 0, -1, CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE) Then
+                                            Dim PorcentajeImpuesto = 0
+                                            If objVenta.SubTotal > 0 Then
+                                                PorcentajeImpuesto = (objVenta.IVA / objVenta.SubTotal)
+                                            End If
+                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoVenta, ImporteMov, " ", CveConceptoIVA, " ", objVenta.Fecha, 0, -1, CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE, ImporteMX:=ImporteMov, PorcentajeImpuesto:=PorcentajeImpuesto) Then
                                                 ErrorMovtosTrasladoIVA = True
                                             End If
                                         End If
@@ -1238,7 +1244,7 @@ Public Class WS_PuntoVenta
 
         Try
 
-            CvePrePoliza = ObjMov.AddPrePolizas("Banc", CvePlantillaPoliza, Importe, Importe, Moneda, Fecha, "", CveUsuario, CveEmpresa)
+            CvePrePoliza = ObjMov.AddPrePolizas("Banc", CvePlantillaPoliza, Importe, Importe, Moneda, Fecha, "Punto de venta IE", CveUsuario, CveEmpresa)
 
             'valida prepoliza
             If CvePrePoliza > 0 Then
@@ -1252,9 +1258,9 @@ Public Class WS_PuntoVenta
 
                 If CveIE > 0 Then
 
-                    If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Importe, "", CveConceptoContable, " ", Now, 0, -1, CveIE) Then
+                    If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Importe, "", CveConceptoContable, " ", Now, 0, -1, CveIE, ImporteMX:=Importe) Then
                         Dim IVA As Double = 0
-                        If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Importe - IVA - CIF, "", CveConceptoCompra, " ", Now, 0, -1, CveIE) Then
+                        If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Importe - IVA - CIF, "", CveConceptoCompra, " ", Now, 0, -1, CveIE, ImporteMX:=Importe - IVA - CIF) Then
 
                         Else
                             MsgError = "no se pudo insertar el detalle de la póliza2"
diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx
index eb6cd7d95..92c7de325 100644
--- a/Ashx/SIGWeb.ashx
+++ b/Ashx/SIGWeb.ashx
@@ -53,13 +53,36 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
                     context.Response.Write(sendMail(context))
                 Case "sendMailLPM"
                     context.Response.Write(sendMailLPM(context))
+                Case "GetTokenAngular"
+                    context.Response.Write(GetTokenAngular(context))
+                    context.Response.End()
 
             End Select
         Catch ex As Exception
             ex.GuardaLog(ex.Message)
         End Try
     End Sub
+    Private Function GetTokenAngular(context As HttpContext) As String
+        Dim usuario As Usuario = UsuarioActual(context)
+        Dim tokenDescriptor = New Microsoft.IdentityModel.Tokens.SecurityTokenDescriptor With {
+        .Subject = New System.Security.Claims.ClaimsIdentity(New System.Security.Claims.Claim() {New System.Security.Claims.Claim("CvePlataforma", usuario.CvePlataforma.ToString()),
+        New System.Security.Claims.Claim("CveUsuario", usuario.CveUsuario.ToString()), New System.Security.Claims.Claim("CveEmpresa", usuario.CveEmpresa.ToString()),
+        New System.Security.Claims.Claim("CveRol", usuario.CveRol.ToString()), New System.Security.Claims.Claim("Fecha", Date.Now.ToLongDateString())}),
+        .Expires = Date.UtcNow.AddHours(3),
+        .SigningCredentials = New Microsoft.IdentityModel.Tokens.SigningCredentials(
+        New Microsoft.IdentityModel.Tokens.SymmetricSecurityKey(Encoding.ASCII.GetBytes("*_AsistenciaDesarrolloSistemas-SIGAPI_*17-06-2020")),
+        Microsoft.IdentityModel.Tokens.SecurityAlgorithms.HmacSha256Signature)}
+        Dim tokenHandler = New System.IdentityModel.Tokens.Jwt.JwtSecurityTokenHandler()
+        Dim newtoken = tokenHandler.CreateToken(tokenDescriptor)
+        'context.Response.AddHeader("Access-Control-Allow-Origin", "http://localhost:4200")
+        'context.Response.AddHeader("Access-Control-Allow-Methods", "GET, POST")
+        'context.Response.AddHeader("Access-Control-Allow-Headers", "Content-Type, Accept")
+        context.Response.AddHeader("Access-Control-Allow-Credentials",  true )
+        context.Response.StatusCode = 200
+        Dim stokenn As String = tokenHandler.WriteToken(newtoken)
+        Return stokenn
 
+    End Function
     Private Function sendMailLPM(context As HttpContext) As String
         Dim retorno As String = "true"
         Dim nombre As String = ""
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 15d95c293..36819bc16 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -17669,7 +17669,7 @@ Partial Class Compras_Compras
                         ViewState("IVAPS") = Drr("IVA").ToString().ToDouble()
                         DdlProyecto.SelectedValueExist(Drr("CveProyecto"))
 
-                        'DdlIVA.Enabled = True
+                        DdlIVA.Enabled = True
 
                         If Not Modalidad = "U" Then
 
@@ -17989,13 +17989,13 @@ Partial Class Compras_Compras
             Row("IEPSPSPorcentaje") = PorcentajeIEPS
         Else
             'If DdlIVA.SelectedValue.ToDouble = 0 Then Row("IVA") = 0 Else Row("IVA") = Math.Round(IVA * Total, DecimalesPermitidos)
-            Row("IVA") = Math.Round(IVA * Total, DecimalesPermitidos)
+            Row("IVA") = Math.Round(IVA * Total, 2)
             Row("IVAPorcentaje") = IVA
-            Row("RetIVA") = Math.Round(RetIVA * Total, DecimalesPermitidos)
+            Row("RetIVA") = Math.Round(RetIVA * Total, 2)
             Row("RetIVAPorcentaje") = RetIVA
-            Row("RetISR") = Math.Round(RetISR * Total, DecimalesPermitidos)
+            Row("RetISR") = Math.Round(RetISR * Total, 2)
             Row("RetISRPorcentaje") = RetISR
-            Row("IEPSPS") = Math.Round(IEPSPS * Total, DecimalesPermitidos)
+            Row("IEPSPS") = Math.Round(IEPSPS * Total, 2)
             Row("IEPSPSPorcentaje") = IEPSPS
         End If
         Row("ImporteConImpuestos") = (Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble) + Row("IVA").ToString.ToDouble + Row("IEPSPS").ToString.ToDouble - (Row("RetIVA").ToString.ToDouble + Row("RetISR").ToString.ToDouble)
diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx
index 8d9162b84..6644f7db1 100644
--- a/Compras/eFacturas.aspx
+++ b/Compras/eFacturas.aspx
@@ -214,7 +214,7 @@
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Left" />
                                 </asp:TemplateField>
-                                <asp:TemplateField HeaderText="Importe">
+                                <asp:TemplateField HeaderText="Importe" ItemStyle-Width="125px">
                                     <ItemTemplate>
                                         <asp:Literal ID="LtlTotal" runat="server" Text='<%# String.Format("{0} {1}", Eval("Total", "{0:N2}"), Eval("Abreviatura")) %>'></asp:Literal>
                                     </ItemTemplate>
diff --git a/Empresas/132/Formatos/NotaDevolucion.rdlc b/Empresas/132/Formatos/NotaDevolucion.rdlc
index 7b770e88d..f72b1bc6d 100644
--- a/Empresas/132/Formatos/NotaDevolucion.rdlc
+++ b/Empresas/132/Formatos/NotaDevolucion.rdlc
@@ -183,7 +183,7 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value> R.F.C PPP885522PPP</Value>
+                <Value> R.F.C STJ180705IV4</Value>
                 <Style>
                   <FontFamily>Calibri</FontFamily>
                   <FontSize>8pt</FontSize>
diff --git a/Empresas/132/Formatos/OC.rdlc b/Empresas/132/Formatos/OC.rdlc
index 06096e0c5..dccb4d848 100644
--- a/Empresas/132/Formatos/OC.rdlc
+++ b/Empresas/132/Formatos/OC.rdlc
@@ -105,7 +105,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>PPP885522PPP</Value>
+                <Value>STJ180705IV4</Value>
                 <Style>
                   <FontFamily>Calibri</FontFamily>
                   <FontSize>8pt</FontSize>
diff --git a/Empresas/132/Formatos/ReciboDePago.rdlc b/Empresas/132/Formatos/ReciboDePago.rdlc
index d46d1f70f..ceb7da173 100644
--- a/Empresas/132/Formatos/ReciboDePago.rdlc
+++ b/Empresas/132/Formatos/ReciboDePago.rdlc
@@ -3818,7 +3818,7 @@
                   </Style>
                 </TextRun>
                 <TextRun>
-                  <Value>PPP885522PPP</Value>
+                  <Value>STJ180705IV4</Value>
                   <Style>
                     <FontFamily>Calibri</FontFamily>
                     <FontSize>8pt</FontSize>
diff --git a/Empresas/132/Formatos/Remision.rdlc b/Empresas/132/Formatos/Remision.rdlc
index 693902946..1e9f94345 100644
--- a/Empresas/132/Formatos/Remision.rdlc
+++ b/Empresas/132/Formatos/Remision.rdlc
@@ -183,7 +183,7 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value> R.F.C PPP885522PPP</Value>
+                <Value> R.F.C STJ180705IV4</Value>
                 <Style>
                   <FontFamily>Calibri</FontFamily>
                   <FontSize>8pt</FontSize>
diff --git a/Global.asax b/Global.asax
index a3b37e04f..f0d2b275e 100644
--- a/Global.asax
+++ b/Global.asax
@@ -276,7 +276,7 @@
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'SAT
         Using ObjGrales As New ClsGenerales
-            'If ObjGrales.GetSATProductosServicios Then Application("GlobalDTPSATPS") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTPSATPS") = Nothing
+            If ObjGrales.GetSATProductosServicios Then Application("GlobalDTPSATPS") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTPSATPS") = Nothing
             'If ObjGrales.GetSATUnidadMedida Then Application("GlobalDTPSATUM") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTPSATUM") = Nothing
             If ObjGrales.GetSATUsosCFDI Then Application("GlobalDTSATUsosCFDI") = ObjGrales.DtResultados Else Application("GlobalDTSATUsosCFDI") = Nothing
             If ObjGrales.GetSATFraccionArancelaria Then Application("GlobalDTFraccionArancelaria") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTFraccionArancelaria") = Nothing
diff --git a/Inventarios/AjustesSeccionAlmacen.aspx b/Inventarios/AjustesSeccionAlmacen.aspx
index f37b30df0..ea8e354af 100644
--- a/Inventarios/AjustesSeccionAlmacen.aspx
+++ b/Inventarios/AjustesSeccionAlmacen.aspx
@@ -47,7 +47,7 @@
                         </div>
 
                         <label class="col-sm-1" style="text-align: right">Folio:</label>
-                        <div class="col-sm-1" style="width:60px">
+                        <div class="col-sm-1" style="width: 60px">
                             <asp:TextBox runat="server" ID="TxtFolioFiltro" Width="60px" />
                         </div>
 
@@ -59,7 +59,6 @@
                 </div>
                 <div class="portlet-body">
                     <div class="row" style="margin-left: 0px;">
-                        
                     </div>
                 </div>
             </div>
@@ -84,6 +83,37 @@
                             <asp:RangeValidator ID="RVR" Display="Dynamic" ControlToValidate="TxtCantidad" runat="server" MinimumValue="0" Type="Double" ErrorMessage="No cumple con la cantidad especificada"></asp:RangeValidator>
                         </ItemTemplate>
                     </asp:TemplateField>
+
+                    <asp:TemplateField ItemStyle-Width="3%" ItemStyle-HorizontalAlign="Center">
+                        <ItemTemplate>
+                            <asp:CheckBox ID="ChkLote" Checked="false" runat="server" OnCheckedChanged="Chk_Click" AutoPostBack="true"></asp:CheckBox>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Nuevo Lote" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
+                        <ItemTemplate>
+                            <asp:TextBox runat="server" ID="TxtLote" Text='<%# Eval("Lote").ToString()%>' CssClass="form-control" ClientIDMode="Static" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+                    <asp:TemplateField ItemStyle-Width="3%" ItemStyle-HorizontalAlign="Center">
+                        <ItemTemplate>
+                            <asp:CheckBox ID="ChkEditCaducidad" Checked="false" runat="server" OnCheckedChanged="Chk_Click" AutoPostBack="true"></asp:CheckBox>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Nueva Fecha Cad." ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
+                        <ItemTemplate>
+                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
+                                <asp:TextBox runat="server" ID="TxtFechaCadNueva" Text='<%# Eval("FechaCaducidad").ToString()%>' CssClass="form-control" ClientIDMode="Static" />
+                                <span class="input-group-btn ">
+                                    <asp:LinkButton runat="server" ID="ImgFecha" class="btn default"> <i class="fa fa-calendar"></i>  </asp:LinkButton>
+                                </span>
+                            </div>
+                            <ajax:MaskedEditExtender ID="MEEFecha" runat="server" TargetControlID="TxtFechaCadNueva" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                            <ajax:CalendarExtender runat="server" ID="CEFecha" TargetControlID="TxtFechaCadNueva" PopupButtonID="ImgFecha" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                            <%--<asp:DropDownList ID="DDlS" runat="server" Width="150px" DataValueField="CveSeccionAlmacen" DataTextField="SeccionAlmacen" class="select2me"></asp:DropDownList>--%>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
                     <asp:TemplateField ItemStyle-Width="3%" ItemStyle-HorizontalAlign="Center">
                         <ItemTemplate>
                             <asp:CheckBox ID="Chk" Checked="false" runat="server" OnCheckedChanged="Chk_Click" AutoPostBack="true"></asp:CheckBox>
diff --git a/Inventarios/AjustesSeccionAlmacen.aspx.vb b/Inventarios/AjustesSeccionAlmacen.aspx.vb
index 9c78fc2d3..686949acd 100644
--- a/Inventarios/AjustesSeccionAlmacen.aspx.vb
+++ b/Inventarios/AjustesSeccionAlmacen.aspx.vb
@@ -25,6 +25,9 @@ Partial Class Inventarios_AjustesSeccionAlmacen
         DdlClasificaciones.DataBind()
         DdlClasificaciones.Items.Insert(0, New ListItem("Todos", "-1"))
 
+        GvD.Columns(4).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
+        GvD.Columns(10).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Nueva Fecha Elaboración", "Nueva Fecha Caducidad")
+
     End Sub
 
     Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
@@ -48,8 +51,8 @@ Partial Class Inventarios_AjustesSeccionAlmacen
         If e.Row.RowType = DataControlRowType.DataRow Then
             CargaSeccionesAlmacen(e.Row.FCDropDownList("DDlS"), DdlAlmacen.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero, UsuarioActual.CveEmpresa)
 
-            'e.Row.FCDropDownList("DDlS").DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero)
-            'e.Row.FCDropDownList("DDlS").DataBind()
+            e.Row.FCDropDownList("DDlS").DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero)
+            e.Row.FCDropDownList("DDlS").DataBind()
 
             Dim ExistenciasAux As Decimal = e.Row.DataKey("Existencia").ToDecimal
             e.Row.FCRangeValidator("RVR").Enabled = ExistenciasAux > 0
@@ -90,28 +93,51 @@ Partial Class Inventarios_AjustesSeccionAlmacen
             Dim CveMovimientoDetalleEntrada As Integer = 0
             Dim Cont As Integer = 0
             Dim Lista As New Hashtable
+            Dim ListaCaducidad As New Hashtable
+            Dim ListaLote As New Hashtable
             Dim Cantidad As Decimal = 0
             For Each gvr As GridViewRow In GvD.Rows
 
+                Dim FechaCaducidadOriginal As String = gvr.DataKey("FechaCaducidad")
+                Dim FechaCaducidadNueva As String = gvr.FCTextBox("TxtFechaCadNueva").Text
+
+                Dim LoteOriginal As String = gvr.DataKey("Lote")
+                Dim LoteNuevo As String = gvr.FCTextBox("TxtLote").Text
+
                 'que este seleccionado y que tenga diferente seccion
+                Dim Modificar As Boolean = False
                 If gvr.FCCheckBox("Chk").Checked AndAlso gvr.FCDropDownList("DDlS").SelectedValue.ToEntero <> gvr.DataKey("CveSeccionAlmacen").ToEntero Then
-                    Cantidad = gvr.FCTextBox("TxtCantidad").Text.ToDecimal()
                     If gvr.DataKey("CveSeccionAlmacen").ToEntero > 0 Then
                         ObjPS.UpdateAplicaSeccionAlmacen(gvr.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, True)
                     Else
                         ObjPS.UpdateAplicaSeccionAlmacen(gvr.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, False)
                     End If
-                    If Not Lista.ContainsKey(gvr.DataKey("CvePS").ToEntero) Then Lista.Add(gvr.DataKey("CvePS").ToEntero, gvr.FCDropDownList("DDlS").SelectedValue.ToEntero) 'guardo que dato le corresponde
 
+                    If Not Lista.ContainsKey(gvr.DataKey("CvePS").ToEntero) Then Lista.Add(gvr.DataKey("CvePS").ToEntero, gvr.FCDropDownList("DDlS").SelectedValue.ToEntero) 'guardo que dato le corresponde
+                    Modificar = True
+                End If
+
+                If gvr.FCCheckBox("ChkEditCaducidad").Checked And FechaCaducidadNueva.Length > 0 And FechaCaducidadNueva <> FechaCaducidadOriginal Then
+                    If Not ListaCaducidad.ContainsKey(gvr.DataKey("CvePS").ToEntero) Then ListaCaducidad.Add(gvr.DataKey("CvePS").ToEntero, FechaCaducidadNueva) 'guardo que dato le corresponde
+                    Modificar = True
+                End If
+
+                If gvr.FCCheckBox("ChkLote").Checked And LoteNuevo.Length > 0 And LoteNuevo <> LoteOriginal Then
+                    If Not ListaLote.ContainsKey(gvr.DataKey("CvePS").ToEntero) Then ListaLote.Add(gvr.DataKey("CvePS").ToEntero, LoteNuevo) 'guardo que dato le corresponde
+                    Modificar = True
+                End If
+
+                If Modificar Then
+                    Cantidad = gvr.FCTextBox("TxtCantidad").Text.ToDecimal()
                     If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Cantidad, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, 0, -1, CveSeccionAlmacen:=gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie:=gvr.DataKey("Serie"), Lote:=gvr.DataKey("Lote"), FechaCaducidad:=gvr.DataKey("FechaCaducidad").ToDate) Then
                         ErrorMovInv = True
                         TextoError = "Ocurrió un error al guardar los movimientos de salida"
                         Exit For
                     End If
                     Contador += 1
-
                 End If
 
+
             Next
 
             If Not ErrorMovInv AndAlso Contador > 0 Then
@@ -131,11 +157,24 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                         Dim CostoIndirecto As Decimal = Row("CostoIndirecto").ToString().ToDecimal()
                         Dim Serie As String = Row("Serie").ToString()
                         Dim Lote As String = Row("Lote").ToString()
-                        Dim FechaCaducidad As Date = IfNull(Row("FechaCaducidad"), MinFecha).ToString.ToDate
+                        Dim FechaCaducidad As Date = MinFecha
 
+                        If ListaCaducidad.ContainsKey(CvePS) Then
+                            FechaCaducidad = ListaCaducidad(CvePS).ToString.ToDate
+                        Else
+                            FechaCaducidad = IfNull(Row("FechaCaducidad"), MinFecha).ToString.ToDate
+                        End If
+
+                        If ListaLote.ContainsKey(CvePS) Then
+                            Lote = ListaLote(CvePS).ToString
+                        Else
+                            Lote = Row("Lote").ToString()
+                        End If
                         'actualizamos el PS, para que tenga el aplica seccion
 
-                        ObjPS.UpdateAplicaSeccionAlmacen(Row("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, True)
+                        If Lista.ContainsKey(CvePS) Then
+                            ObjPS.UpdateAplicaSeccionAlmacen(Row("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, True)
+                        End If
                         'If Not ObjInventario.AddProductosServiciosAlmacenSeccion(CvePS, CveAlmacen, CveSeccionAlmacen) Then
                         '    ErrorMovInv = True
                         'End If
diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx
index d963652cb..7b0398fbb 100644
--- a/Inventarios/EntregaAlmacen.aspx
+++ b/Inventarios/EntregaAlmacen.aspx
@@ -456,7 +456,7 @@
 
                                 <div class="col-md-2 pull-right">
                                     <div class="btn-group" style="float: right;">
-                                        <asp:Button ID="BtnVerSugerencias" CssClass="btn green-haze btn-outline btn-circle btn-sm" OnClick="BtnVerSugerencias_Click" runat="server" Text="Ver Secciones" />
+                                        <asp:Button ID="BtnVerSugerencias" CssClass="btn green-haze btn-outline btn-circle btn-sm" OnClick="BtnVerSugerencias_Click" runat="server" Text="Ver Sugerencias" />
                                     </div>
                                 </div>
                                 <div class="col-md-4 pull-right">
@@ -516,7 +516,7 @@
                             </asp:TemplateField>
                             <asp:TemplateField HeaderText="Lote" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="7.5%" Visible="false">
                                 <ItemTemplate>
-                                    <asp:TextBox ID="TxtLote" CssClass="form-control" runat="server" Visible="false"></asp:TextBox>
+                                    <asp:TextBox ID="TxtLote" CssClass="form-control input-sm" runat="server" Visible="false"></asp:TextBox>
                                 </ItemTemplate>
                             </asp:TemplateField>
                             <asp:TemplateField HeaderText="F.Caducidad" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" Visible="false">
@@ -527,7 +527,7 @@
                                             <asp:LinkButton runat="server" ID="LnkCaducidad" class="btn default" Visible="false"> <i class="fa fa-calendar"></i>  </asp:LinkButton>
 
                                             <ajax:MaskedEditExtender ID="MEECaducidad" runat="server" TargetControlID="TxtCaducidad" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                            <ajax:CalendarExtender runat="server" ID="CECaducidad" TargetControlID="TxtCaducidad" PopupButtonID="LnkCaducidad" Enabled="True" Format="dd/MM/yyyy"></ajax:CalendarExtender>
+                                            <ajax:CalendarExtender runat="server" ID="CECaducidad" TargetControlID="TxtCaducidad" PopupButtonID="LnkCaducidad" PopupPosition="BottomLeft" Enabled="True" Format="dd/MM/yyyy" ></ajax:CalendarExtender>
                                             <asp:RequiredFieldValidator ID="RFVCaducidad" runat="server" ControlToValidate="TxtCaducidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Caducidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                             <ajax:ValidatorCalloutExtender ID="VCECaducidad" runat="server" HighlightCssClass="vco" TargetControlID="RFVCaducidad"></ajax:ValidatorCalloutExtender>
                                         </span>
@@ -847,7 +847,7 @@
                         <asp:GridView ID="GvSugerencias" runat="server" EmptyDataText="No se encontraron registros." AutoGenerateColumns="False" ShowHeader="true" ShowHeaderWhenEmpty="True" CssClass="table table-striped table-hover Widthall ScrollAD" GridLines="None">
                             <Columns>
                                 <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
-                                <asp:BoundField HeaderText="Producto/Servicio" DataField="CodigoPS" ItemStyle-HorizontalAlign="Left" />
+                                <asp:BoundField HeaderText="Producto" DataField="CodigoPS" ItemStyle-HorizontalAlign="Left" />
                                 <asp:BoundField HeaderText="Sección Almacen" DataField="Seccion" ItemStyle-HorizontalAlign="Left" />
                                 <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
                                 <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" />
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 939a62f8e..3856176b0 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -205,6 +205,14 @@ Partial Class Inventarios_EntregaAlmacen
             ViewState("CveSubProyecto") = value
         End Set
     End Property
+    Private Property CveOP As Integer
+        Get
+            Return CType(ViewState("CveOP"), Integer)
+        End Get
+        Set(value As Integer)
+            ViewState("CveOP") = value
+        End Set
+    End Property
     Private Property CveCliente As Integer
         Get
             Return CType(ViewState("CveCliente"), Integer)
@@ -264,7 +272,7 @@ Partial Class Inventarios_EntregaAlmacen
             CargaParametrosAD()
             If UsuarioActual.CveEmpresa.Contiene(72, 80) Then DdlAlmacen.AutoPostBack = True
 
-            If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
+            If UsuarioActual.Empresa.Funcionalidad(281).ToEntero() = 1 Then
 
                 TxtFecha.Enabled = False
                 ImgFecha.Visible = False
@@ -272,9 +280,9 @@ Partial Class Inventarios_EntregaAlmacen
             End If
 
         End If
-    End Sub
-
-
+    End Sub
+
+
 #Region "  INICIALIZA VALORES  "
     Private Sub InicializaValores()
         TipoEstatus = -1
@@ -331,7 +339,7 @@ Partial Class Inventarios_EntregaAlmacen
             DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
         End If
         DdlSubProyectos.DataBind()
-        DdlSubProyectos.SelectedValueExist(UsuarioActual.CveSubProyecto.ToString)
+        DdlSubProyectos.SelectedValueExist(UsuarioActual.CveSubProyecto.ToString())
 
         If UsuarioActual.TienePermisoProceso(152) Then DdlSubProyectos.Enabled = False
         If UsuarioActual.Empresa.Funcionalidad(280) = "1" Then PnlEntrega.Visible = True
@@ -342,11 +350,11 @@ Partial Class Inventarios_EntregaAlmacen
 
 
         LimpiaCampos()
-    End Sub
-
+    End Sub
+
 #End Region
-
-
+
+
 #Region "  CARGA PARAMETROS - EXCLUSIVO USO AD  "
     Private Sub CargaParametrosAD()
 
@@ -357,16 +365,16 @@ Partial Class Inventarios_EntregaAlmacen
         End If
 
         If Not IsNothing(Request("CveVenta")) AndAlso IsNumeric(Request("CveVenta")) Then
-            CveVentaAD = Request("CveVenta").ToEntero
-            CargaVentaPorSurtir(Request("CveVenta").ToEntero)
+            CveVentaAD = Request("CveVenta").ToEntero()
+            CargaVentaPorSurtir(Request("CveVenta").ToEntero())
             LbSurtida.Visible = True
             LbSurtida.Text = "SOLO MODO VISUAL"
             BtnGuardar.Visible = False
         End If
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "  CARGA PENDIENTES POR SURTIR  "
     Protected Sub DdlCliente_SelectedIndexChanged(sender As Object, e As EventArgs)
         CargaFolios()
@@ -376,8 +384,8 @@ Partial Class Inventarios_EntregaAlmacen
 
         DdlFolio.Items.Clear()
 
-        If DdlClientes.SelectedValue.ToEntero > 0 Then
-            If ObjInventarios.VentasPendientesAlmacenGet(DdlClientes.SelectedValue.ToEntero, MinFecha, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+        If DdlClientes.SelectedValue.ToEntero() > 0 Then
+            If ObjInventarios.VentasPendientesAlmacenGet(DdlClientes.SelectedValue.ToEntero(), MinFecha, DdlSubProyectos.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
                 DdlFolio.DataSource = ObjInventarios.DtResultados
             Else
                 Alert("Ocurrió un error al obtener las Compras pendientes de recibir del proveedor. Por favor vuelva a intentar", TipoMensaje.MsgError)
@@ -402,7 +410,7 @@ Partial Class Inventarios_EntregaAlmacen
         Dim ObjInventarios As New ClsInventarios
         Dim DtPendientes As New DataTable
 
-        If ObjInventarios.VentasPendientesAlmacenGet(-1, TxtFechaPendientes.Text.ToDate, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+        If ObjInventarios.VentasPendientesAlmacenGet(-1, TxtFechaPendientes.Text.ToDate, DdlSubProyectos.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
 
 
             If UsuarioActual.TienePermisoProceso(266) AndAlso UsuarioActual.TienePermisoProceso(267) Then
@@ -454,7 +462,7 @@ Partial Class Inventarios_EntregaAlmacen
 
 
 
-            Select Case e.Row.DBCampo("TipoEntrega").ToString.ToEntero
+            Select Case e.Row.DBCampo("TipoEntrega").ToString().ToEntero()
                 Case 1
                     If UsuarioActual.TienePermisoProceso(201) Then
                         Dim Css = "Texto"
@@ -468,7 +476,7 @@ Partial Class Inventarios_EntregaAlmacen
                         e.Row.FCHyperLink("HplDownPDF").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=VTA&CVEVENTA={0}", e.Row.DBCampo("CveVenta"))))
                     End If
 
-                    If e.Row.DBCampo("TipoDocto").ToString.Contiene({"Rem", "Ing", "Ped", "PeC", "Ant"}) And e.Row.DBCampo("EsDevolucionVenta").ToString.ToEntero = 0 Then
+                    If e.Row.DBCampo("TipoDocto").ToString().Contiene({"Rem", "Ing", "Ped", "PeC", "Ant"}) And e.Row.DBCampo("EsDevolucionVenta").ToString().ToEntero() = 0 Then
                         e.Row.FCLinkButton("BtnSurtir").CssClass = "btn btn-primary btn-sm"
                         e.Row.FCLinkButton("BtnSurtir").Text = " Surtir <i class='fa fa-arrow-right' ></i>"
                     Else
@@ -484,18 +492,18 @@ Partial Class Inventarios_EntregaAlmacen
             End Select
             UpPendientes.Update()
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
-
+
+
 #Region "  CARGA VENTA POR SURTIR   "
     Protected Sub BtnSurtir_Click(sender As Object, e As EventArgs)
 
         Dim Boton = CType(sender, LinkButton)
         CveVentaAD = -1
 
-        If Boton.CommandArgument.ToEntero > 0 Then
+        If Boton.CommandArgument.ToEntero() > 0 Then
             TimmerRefresh.Enabled = False
 
             DivTransitorio1.Visible = False
@@ -504,12 +512,12 @@ Partial Class Inventarios_EntregaAlmacen
             DivTransitorio2.Visible = False
 
 
-            Select Case CType(Boton.NamingContainer, GridViewRow).DataKey("TipoEntrega").ToEntero
+            Select Case CType(Boton.NamingContainer, GridViewRow).DataKey("TipoEntrega").ToEntero()
                 Case 1 ' VENTA
-                    CargaVentaPorSurtir(CType(sender, LinkButton).CommandArgument.ToEntero)
+                    CargaVentaPorSurtir(CType(sender, LinkButton).CommandArgument.ToEntero())
                 Case 2 ' TRASPASO
                     DivTransitorio1.Visible = True
-                    CargaTraspasoPorSurtir(CType(Boton.NamingContainer, GridViewRow).DataKey("CveTraspasoSolicitud").ToEntero)
+                    CargaTraspasoPorSurtir(CType(Boton.NamingContainer, GridViewRow).DataKey("CveTraspasoSolicitud").ToEntero())
             End Select
 
         End If
@@ -517,12 +525,13 @@ Partial Class Inventarios_EntregaAlmacen
     End Sub
     Protected Sub BtnBuscar_Click(sender As Object, e As EventArgs)
         CveVentaAD = -2
-        CargaVentaPorSurtir(DdlFolio.SelectedValue.ToEntero)
+        CargaVentaPorSurtir(DdlFolio.SelectedValue.ToEntero())
     End Sub
     Private Sub CargaVentaPorSurtir(CveVenta As Integer)
         LbSurtida.Visible = False
         CveContrato = -1
         CveSubProyecto = -1
+        CveOP = -1
         DtDatos = Nothing
         TipoEntrega = 1
         BtnGuardar.Visible = True
@@ -556,28 +565,28 @@ Partial Class Inventarios_EntregaAlmacen
                 CreaDtDetalleLote()
 
                 If DtDatos.Rows(0) IsNot Nothing Then
-                    EsDevolucionVenta = DtDatos.Rows(0)("EsDevolucionVenta").ToString.ToEntero
-                    TipoDocto = DtDatos.Rows(0)("TipoDocto").ToString
+                    EsDevolucionVenta = DtDatos.Rows(0)("EsDevolucionVenta").ToString().ToEntero()
+                    TipoDocto = DtDatos.Rows(0)("TipoDocto").ToString()
                     TipoMovimiento = If(TipoDocto.Contiene({"Rem", "Ing", "Ped", "PeC", "Ant"}) And (EsDevolucionVenta = 0 Or CveVentaAD > 0), 1, 2)
 
-                    LbCliente.Text = DtDatos.Rows(0)("Nombre").ToString
-                    'LbFolio.Text = DtDatos.Rows(0)("SerieFolio").ToString
-                    HLFolio.Text = DtDatos.Rows(0)("SerieFolio").ToString
+                    LbCliente.Text = DtDatos.Rows(0)("Nombre").ToString()
+                    'LbFolio.Text = DtDatos.Rows(0)("SerieFolio").ToString()
+                    HLFolio.Text = DtDatos.Rows(0)("SerieFolio").ToString()
                     If UsuarioActual.TienePermisoProceso(201) Then
                         HLFolio.NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={CveVenta}"
                     End If
 
-                    LbObservaciones.Text = DtDatos.Rows(0)("Observaciones").ToString
-                    LbObservacionesAlmacen.Text = DtDatos.Rows(0)("ObservacionesAlmacen").ToString
+                    LbObservaciones.Text = DtDatos.Rows(0)("Observaciones").ToString()
+                    LbObservacionesAlmacen.Text = DtDatos.Rows(0)("ObservacionesAlmacen").ToString()
                     CveVentaSurtir = CveVenta
-                    CveAlmacenTraspasoDestino = DtDatos.Rows(0)(If(EsDevolucionVenta = 1 And TipoDocto <> "Rem", "CveAlmacenTraspasoOrigen", "CveAlmacenTraspasoDestino")).ToString.ToEntero
-                    CveAlmacenTraspasoOrigen = DtDatos.Rows(0)(If(EsDevolucionVenta = 1 And TipoDocto <> "Rem", "CveAlmacenTraspasoDestino", "CveAlmacenTraspasoOrigen")).ToString.ToEntero
-                    CveContrato = DtDatos.Rows(0)("CveContrato").ToString.ToEntero
-                    CveVendedor = DtDatos.Rows(0)("CveVendedor").ToString.ToEntero
-                    CveCliente = DtDatos.Rows(0)("CveCliente").ToString.ToEntero
+                    CveAlmacenTraspasoDestino = DtDatos.Rows(0)(If(EsDevolucionVenta = 1 And TipoDocto <> "Rem", "CveAlmacenTraspasoOrigen", "CveAlmacenTraspasoDestino")).ToString().ToEntero()
+                    CveAlmacenTraspasoOrigen = DtDatos.Rows(0)(If(EsDevolucionVenta = 1 And TipoDocto <> "Rem", "CveAlmacenTraspasoDestino", "CveAlmacenTraspasoOrigen")).ToString().ToEntero()
+                    CveContrato = DtDatos.Rows(0)("CveContrato").ToString().ToEntero()
+                    CveVendedor = DtDatos.Rows(0)("CveVendedor").ToString().ToEntero()
+                    CveCliente = DtDatos.Rows(0)("CveCliente").ToString().ToEntero()
                     ClienteEntregaPersonal(CveCliente)
-                    CveSubProyecto = DtDatos.Rows(0)("CveSubProyecto").ToString.ToEntero
-                    EsInterno = CBool(DtDatos.Rows(0)("EsInterno").ToString)
+                    CveSubProyecto = DtDatos.Rows(0)("CveSubProyecto").ToString().ToEntero()
+                    EsInterno = CBool(DtDatos.Rows(0)("EsInterno").ToString())
 
                     If DtDatos.SUM("CantidadS") <= 0 Then
                         GvDatos.CssClass = "table table-striped table-hover Widthall ScrollAD gvInventario gvEscondeColumna"
@@ -599,8 +608,8 @@ Partial Class Inventarios_EntregaAlmacen
                     End If
 
                     DdlAlmacen.Items.Clear()
-                    If CveAlmacenTraspasoOrigen > 0 Then 'Not (EsDevolucionVenta = 1 And DtDatos.Rows(0)("TipoDocto").ToString = "Rem" And UsuarioActual.Empresa.Funcionalidad(145) = "1") - ESTO ES PARA CUANDO SEA REMISION DE ENTREGA POR ADELANTADO FUNCIONA LA DEVOLUCION
-                        DdlAlmacen.Items.Insert(0, New ListItem(GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Almacen", $"CveAlmacen = {CveAlmacenTraspasoOrigen}"), CveAlmacenTraspasoOrigen.ToString))
+                    If CveAlmacenTraspasoOrigen > 0 Then 'Not (EsDevolucionVenta = 1 And DtDatos.Rows(0)("TipoDocto").ToString() = "Rem" And UsuarioActual.Empresa.Funcionalidad(145) = "1") - ESTO ES PARA CUANDO SEA REMISION DE ENTREGA POR ADELANTADO FUNCIONA LA DEVOLUCION
+                        DdlAlmacen.Items.Insert(0, New ListItem(GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Almacen", $"CveAlmacen = {CveAlmacenTraspasoOrigen}"), CveAlmacenTraspasoOrigen.ToString()))
                     Else
                         '[IPP] PARCHE - Debe hacerse permiso proceso - 17Enero2018
                         Dim RestriccionAlmacenSubProyecto = If(UsuarioActual.CveEmpresa.Contiene(72, 80), $" AND CveSubProyecto = {CveSubProyecto}", "")
@@ -634,7 +643,7 @@ Partial Class Inventarios_EntregaAlmacen
                     End If
 
                     If UsuarioActual.Empresa.Funcionalidad(280) = "1" Then
-                        FormaPaqueteria = DtDatos.Rows(0)("FormaPaqueteria").ToString.ToEntero
+                        FormaPaqueteria = DtDatos.Rows(0)("FormaPaqueteria").ToString().ToEntero()
                         Dim FormaPaq As Integer = FormaPaqueteria
                         RbSinEntrega.Checked = False
                         RbEntregaInterna.Checked = False
@@ -652,7 +661,7 @@ Partial Class Inventarios_EntregaAlmacen
                                 LnkPaqueteriaDetalle.Visible = True
                         End Select
                     End If
-                    'TxtFecha.Text = If(EsDevolucionVenta = 1, Now.ToShortDateString, DtDatos.Rows(0)("Fecha").ToString)
+                    'TxtFecha.Text = If(EsDevolucionVenta = 1, Now.ToShortDateString, DtDatos.Rows(0)("Fecha").ToString())
                 End If
 
                 If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then
@@ -662,17 +671,19 @@ Partial Class Inventarios_EntregaAlmacen
                 End If
 
                 If TipoMovimiento = 2 Then ' cuando es cancelación
-                    Dim Filtro As String '= If(ObjInventario.DtResultados.Rows(0)("TipoDocto").ToString.Contiene({"Ing", "Dev", "Ped"}), "CveConcepto = 3", "CveConcepto = 9")
-                    Select Case ObjInventario.DtResultados.Rows(0)("TipoDocto").ToString
+                    Dim Filtro As String '= If(ObjInventario.DtResultados.Rows(0)("TipoDocto").ToString().Contiene({"Ing", "Dev", "Ped"}), "CveConcepto = 3", "CveConcepto = 9")
+                    Select Case ObjInventario.DtResultados.Rows(0)("TipoDocto").ToString()
                         Case "Ing", "Ped"
                             Filtro = "CveConcepto IN (3,40)"
-                        Case "Dev", "dPe"
+                        Case "Dev"
                             'cuand es devolucionventa=1, es cancelación de la devolución
                             If EsDevolucionVenta = 1 Then Filtro = "CveConcepto = 18" Else Filtro = "CveConcepto IN (3,40)"
+                        Case "DPe"
+                            Filtro = "CveConcepto = 9"
                         Case Else
                             Filtro = "CveConcepto = 9"
                     End Select
-                    If ObjInventario.GetInv_Mov(ObjInventario.DtResultados.Rows(0)("CveVentaPadre").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
+                    If ObjInventario.GetInv_Mov(ObjInventario.DtResultados.Rows(0)("CveVentaPadre").ToString().ToEntero(), UsuarioActual.CveEmpresa) Then
                         DtExistencias = ObjInventario.DtResultados.FiltraParametros($"CvePS Is Not NULL AND {Filtro}")
 
                         If Not DtExistencias.Rows.Count > 0 Then
@@ -730,12 +741,12 @@ Partial Class Inventarios_EntregaAlmacen
                 DtDatos.Columns.Add("CantidadGV", GetType(Double))
                 DtDatos.Columns.Add("CantidadTraspaso", GetType(Double))
 
-                LbCliente.Text = DtDatos.Rows(0)("Nombre").ToString
-                HLFolio.Text = DtDatos.Rows(0)("SerieFolio").ToString
+                LbCliente.Text = DtDatos.Rows(0)("Nombre").ToString()
+                HLFolio.Text = DtDatos.Rows(0)("SerieFolio").ToString()
                 If UsuarioActual.TienePermisoProceso(201) Then
                     HLFolio.NavigateUrl = $"/Inventarios/TrasladoSolicitud.aspx?CveTraspasoSolicitud={CveTraspasoSurtir}"
                 End If
-                LbObservaciones.Text = DtDatos.Rows(0)("Observaciones").ToString
+                LbObservaciones.Text = DtDatos.Rows(0)("Observaciones").ToString()
 
                 Dim Index = 1
                 For Each Dr As DataRow In DtDatos.Rows
@@ -749,12 +760,12 @@ Partial Class Inventarios_EntregaAlmacen
                 DtDatosDetalleLote = Nothing
                 CreaDtDetalleLote()
 
-                CveAlmacenTraspasoDestino = DtDatos.Rows(0)("CveAlmacenDestino").ToString.ToEntero
-                CveAlmacenTraspasoOrigen = DtDatos.Rows(0)("CveAlmacenOrigen").ToString.ToEntero
-                CveSubProyecto = DtDatos.Rows(0)("CveSubProyecto").ToString.ToEntero
-                EsInterno = CBool(DtDatos.Rows(0)("EsInterno").ToString)
+                CveAlmacenTraspasoDestino = DtDatos.Rows(0)("CveAlmacenDestino").ToString().ToEntero()
+                CveAlmacenTraspasoOrigen = DtDatos.Rows(0)("CveAlmacenOrigen").ToString().ToEntero()
+                CveSubProyecto = DtDatos.Rows(0)("CveSubProyecto").ToString().ToEntero()
+                EsInterno = CBool(DtDatos.Rows(0)("EsInterno").ToString())
+                CveOP = DtDatos.Rows(0)("CveOP").ToString().ToEntero()
                 CveVentaSurtir = -1
-
                 If DtDatos.SUM("CantidadS") <= 0 Then
                     GvDatos.CssClass = "table table-striped table-hover Widthall ScrollAD gvInventario gvEscondeColumna"
                 Else
@@ -775,7 +786,7 @@ Partial Class Inventarios_EntregaAlmacen
 
                 DdlAlmacen.Items.Clear()
                 If CveAlmacenTraspasoOrigen > 0 Then
-                    DdlAlmacen.Items.Insert(0, New ListItem(GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Almacen", $"CveAlmacen = {CveAlmacenTraspasoOrigen}"), CveAlmacenTraspasoOrigen.ToString))
+                    DdlAlmacen.Items.Insert(0, New ListItem(GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Almacen", $"CveAlmacen = {CveAlmacenTraspasoOrigen}"), CveAlmacenTraspasoOrigen.ToString()))
                 End If
 
                 DdlAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
@@ -850,11 +861,11 @@ Partial Class Inventarios_EntregaAlmacen
         'CARGA LO PRECARGADO CON SERIE 
         Dim Contador = 0
         For Each Gvr As GridViewRow In GvDatos.Rows
-            If Gvr.DataKey("CvePS").ToEntero = CvePSSerie AndAlso DtDatosDetalle IsNot Nothing Then
+            If Gvr.DataKey("CvePS").ToEntero() = CvePSSerie AndAlso DtDatosDetalle IsNot Nothing Then
                 Contador = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", Gvr.DataKey("Consec"))).Rows.Count
                 Gvr.FCCheckBox("cbInv").Enabled = False
                 Gvr.FCCheckBox("cbInv").Checked = True
-                Gvr.FCTextBox("TbCantidadF").Text = Contador.ToString
+                Gvr.FCTextBox("TbCantidadF").Text = Contador.ToString()
             End If
         Next
 
@@ -865,23 +876,23 @@ Partial Class Inventarios_EntregaAlmacen
 
             If CBool(e.Row.DBCampo("AplicaSerie")) Then
                 e.Row.FCButton("BtnSerie").Visible = True
-                e.Row.FCButton("BtnSerie").Text = If(e.Row.DBCampo("Inv_CveMetodoInventario").ToString = "5", "Serie", "Lote-Batch")
+                e.Row.FCButton("BtnSerie").Text = If(e.Row.DBCampo("Inv_CveMetodoInventario").ToString() = "5", "Serie", "Lote-Batch")
                 e.Row.FCButton("BtnSerie").CommandArgument = String.Format("{0}°{1}°{2}°{3}°{4}°{5}", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveUM"), e.Row.DBCampo("PS"), e.Row.DBCampo("CantidadF"), e.Row.DBCampo("Consec"), e.Row.DBCampo("Inv_CveMetodoInventario"))
                 e.Row.FCTextBox("TbCantidadF").Enabled = False
                 e.Row.FCCheckBox("cbInv").Enabled = False
                 If e.Row.DBCampo("Consec") <> "" AndAlso DtDatosDetalle IsNot Nothing Then
                     Dim Contador = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", e.Row.DBCampo("Consec"))).Rows.Count
-                    e.Row.FCTextBox("TbCantidadF").Text = Contador.ToString
+                    e.Row.FCTextBox("TbCantidadF").Text = Contador.ToString()
                 Else
                     e.Row.FCTextBox("TbCantidadF").Text = "0"
                 End If
 
 
                 If TipoDocto = "DPe" Then
-                    CveConsecSerie = e.Row.DBCampo("Consec").ToString.ToEntero
-                    PSSerie = e.Row.DBCampo("PS").ToString
-                    CvePSSerie = e.Row.DBCampo("CvePS").ToEntero
-                    CveUMSerie = e.Row.DBCampo("CveUM").ToEntero
+                    CveConsecSerie = e.Row.DBCampo("Consec").ToString().ToEntero()
+                    PSSerie = e.Row.DBCampo("PS").ToString()
+                    CvePSSerie = e.Row.DBCampo("CvePS").ToEntero()
+                    CveUMSerie = e.Row.DBCampo("CveUM").ToEntero()
                     LbCantidad.Text = e.Row.DBCampo("CantidadF")
                     LbCantidad2.Text = e.Row.DBCampo("CantidadF")
                     AgregaSerie(e.Row.DBCampo("ObservacionesDetalle"), 3)
@@ -896,9 +907,9 @@ Partial Class Inventarios_EntregaAlmacen
 
             If CBool(e.Row.DBCampo("AplicaSeccion")) Then
                 e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = True
-                If DdlAlmacen.SelectedValue.ToEntero > 0 Then
-                    CargaSeccionesAlmacen(e.Row.FCDropDownList("DdlSeccionAlmacen"), DdlAlmacen.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero, UsuarioActual.CveEmpresa, True)
-                    'Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
+                If DdlAlmacen.SelectedValue.ToEntero() > 0 Then
+                    CargaSeccionesAlmacen(e.Row.FCDropDownList("DdlSeccionAlmacen"), DdlAlmacen.SelectedValue.ToEntero(), e.Row.DBCampo("CvePS").ToEntero(), UsuarioActual.CveEmpresa, True)
+                    'Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero(), e.Row.DBCampo("CvePS").ToEntero())
                     'e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtt
                     'e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
                     'If dtt.Rows.Count > 1 Then
@@ -927,7 +938,7 @@ Partial Class Inventarios_EntregaAlmacen
             End If
 
             e.Row.FCButton("BtnDividir").Attributes.Add("onclick", String.Format("Dividir('{0}');", e.Row.FCTextBox("TxtDividir").ClientID))
-            e.Row.FCButton("BtnDividir").CommandArgument = e.Row.RowIndex.ToString
+            e.Row.FCButton("BtnDividir").CommandArgument = e.Row.RowIndex.ToString()
             e.Row.FCTextBox("TxtDividir").Attributes.Add("onkeyup", String.Format("LimitaCantidad({0},this,'{1}');", e.Row.DBCampo("CantidadF"), e.Row.FCButton("BtnDividir").ClientID))
 
 
@@ -965,14 +976,14 @@ Partial Class Inventarios_EntregaAlmacen
         End If
         objInv.Dispose()
         GvDocs.DataBind()
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
-
+
+
 #Region "  AGREGAR  "
-
+
     Protected Sub BtnSerie_Click(sender As Object, e As EventArgs)
 
         Dim Argumentos = CType(sender, Button).CommandArgument.Split("°"c)
@@ -983,11 +994,11 @@ Partial Class Inventarios_EntregaAlmacen
         LbProducto2.Text = Argumentos(2)
         LbCantidad2.Text = Argumentos(3)
 
-        CvePSSerie = Argumentos(0).ToEntero
-        CveUMSerie = Argumentos(1).ToEntero
-        PSSerie = Argumentos(2).ToString
-        CveConsecSerie = Argumentos(4).ToEntero
-        CveMetodoInventario = Argumentos(5).ToEntero
+        CvePSSerie = Argumentos(0).ToEntero()
+        CveUMSerie = Argumentos(1).ToEntero()
+        PSSerie = Argumentos(2).ToString()
+        CveConsecSerie = Argumentos(4).ToEntero()
+        CveMetodoInventario = Argumentos(5).ToEntero()
 
         If CveMetodoInventario = 5 Then
             RegistraScript("$('#DivSerie').modal('show')")
@@ -999,10 +1010,10 @@ Partial Class Inventarios_EntregaAlmacen
             UpLoteBatch.Update()
         End If
 
-    End Sub
-
+    End Sub
+
 #Region "   AGREGA POR SERIE/LOTE   "
-
+
     Private Sub CreaDtDetalle()
         If DtDatosDetalle Is Nothing Then
             DtDatosDetalle = New DataTable
@@ -1024,7 +1035,7 @@ Partial Class Inventarios_EntregaAlmacen
 
         Dim AplicaCaducidad = False
         If GlobalDTPS(UsuarioActual.CveEmpresa, ).FiltraParametros("").Rows(0) IsNot Nothing Then
-            AplicaCaducidad = If(GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerie).FiltraParametros("").Rows(0)("AplicaCaducidad").ToString = "True", True, False)
+            AplicaCaducidad = If(GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerie).FiltraParametros("").Rows(0)("AplicaCaducidad").ToString() = "True", True, False)
         End If
 
         GvSerie.Columns(1).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
@@ -1046,7 +1057,7 @@ Partial Class Inventarios_EntregaAlmacen
         Dim DtSerie As New DataTable
         If TipoMovimiento = 1 Then
             Dim ObjInventarios As New ClsInventarios
-            If ObjInventarios.SerieRecomendadoGet(CvePSSerie, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, CveSubProyecto:=CveSubProyecto) Then
+            If ObjInventarios.SerieRecomendadoGet(CvePSSerie, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero(), CveSubProyecto:=CveSubProyecto) Then
                 DtSerie = ObjInventarios.DtResultados
             End If
             ObjInventarios.Dispose()
@@ -1059,8 +1070,8 @@ Partial Class Inventarios_EntregaAlmacen
             Dim DrsRemove As New List(Of DataRow)
             DtSerie.Columns.Add("CantidadSeleccionada", GetType(Integer))
             For Each dr As DataRow In DtSerie.Rows
-                dr("CantidadSeleccionada") = DtDatosDetalle.FiltraParametros(String.Format("Consec = {0} AND Serie = '{1}'", CveConsecSerie, dr("Serie").ToString.Replace("'", "''"))).Rows.Count
-                If dr("CantidadSeleccionada").ToString.ToDecimal = dr("Existencia").ToString.ToDecimal Then
+                dr("CantidadSeleccionada") = DtDatosDetalle.FiltraParametros(String.Format("Consec = {0} AND Serie = '{1}'", CveConsecSerie, dr("Serie").ToString().Replace("'", "''"))).Rows.Count
+                If dr("CantidadSeleccionada").ToString().ToDecimal = dr("Existencia").ToString().ToDecimal Then
                     DrsRemove.Add(dr)
                 End If
             Next
@@ -1073,8 +1084,8 @@ Partial Class Inventarios_EntregaAlmacen
             If DtSerie.Rows.Count > 0 Then
                 Dim Mensaje As New StringBuilder
                 Mensaje.AppendFormat("Serie  Recomendado: <b>{0}</b>", DtSerie.Rows(0)("Serie"))
-                If AplicaCaducidad Then Mensaje.AppendFormat(", Caducicdad: <b>{0}</b>", DtSerie.Rows(0)("FechaCaducidad").ToString.ToDate.ToShortDateString)
-                LbSerieRecomendado.Text = Mensaje.ToString 'String.Format("Serie / Lote Recomendado: <b>{0}</b>, Caducicdad: <b>{1}</b>", ObjInventarios.DtResultados.Rows(0)("SerieLote"), ObjInventarios.DtResultados.Rows(0)("FechaCaducidad").ToString.ToDate.ToShortDateString)
+                If AplicaCaducidad Then Mensaje.AppendFormat(", Caducicdad: <b>{0}</b>", DtSerie.Rows(0)("FechaCaducidad").ToString().ToDate.ToShortDateString)
+                LbSerieRecomendado.Text = Mensaje.ToString() 'String.Format("Serie / Lote Recomendado: <b>{0}</b>, Caducicdad: <b>{1}</b>", ObjInventarios.DtResultados.Rows(0)("SerieLote"), ObjInventarios.DtResultados.Rows(0)("FechaCaducidad").ToString().ToDate.ToShortDateString)
             Else
                 LbSerieRecomendado.Text = "No se encontro ningun Serie/Lote."
             End If
@@ -1089,13 +1100,13 @@ Partial Class Inventarios_EntregaAlmacen
                 Contador = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", Gvr.DataKey("Consec"))).Rows.Count
                 Gvr.FCCheckBox("cbInv").Enabled = False
                 Gvr.FCCheckBox("cbInv").Checked = True
-                Gvr.FCTextBox("TbCantidadF").Text = Contador.ToString
+                Gvr.FCTextBox("TbCantidadF").Text = Contador.ToString()
             End If
         Next
         UpDatos.Update()
 
         'VALIDA QUE SIGA AGREGANDO
-        If DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", CveConsecSerie)).Rows.Count = LbCantidad.Text.ToEntero Then
+        If DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", CveConsecSerie)).Rows.Count = LbCantidad.Text.ToEntero() Then
             BtnAgregarPS.Enabled = False
             If CerrarCompletado Then
                 RegistraScript("$('#DivSerie').modal('hide')", "hide")
@@ -1143,14 +1154,14 @@ Partial Class Inventarios_EntregaAlmacen
 
         Dim AplicaCaducidad = False
         If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerie).FiltraParametros("").Rows(0) IsNot Nothing Then
-            AplicaCaducidad = If(GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerie).FiltraParametros("").Rows(0)("AplicaCaducidad").ToString = "True", True, False)
+            AplicaCaducidad = If(GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerie).FiltraParametros("").Rows(0)("AplicaCaducidad").ToString() = "True", True, False)
         End If
 
 
         'Valida Existencia
         If TipoMovimiento = 1 Then
             Dim ObjInventarios As New ClsInventarios
-            Dim Existencia = ObjInventarios.GetExistenciasPS(CvePSSerie, CveUMSerie, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=Serie, CveVendedor:=CveVendedor, CveSubProyecto:=CveSubProyecto, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeApartados:=If(TipoEntrega = 2, 1, -1))
+            Dim Existencia = ObjInventarios.GetExistenciasPS(CvePSSerie, CveUMSerie, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero(), FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=Serie, CveVendedor:=CveVendedor, CveSubProyecto:=CveSubProyecto, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeApartados:=If(TipoEntrega = 2, 1, -1))
             If Existencia < 1 Then
                 Alert($"No hay existencia suficiente del producto <b>""{PSSerie}""</b> con la Serie definida <b>""{Serie}""</b>. Por favor rectifique y vuelva a intentar", TipoMensaje.MsgAdvertencia, If(Tipo = 2, "window.setTimeout(Focus,200);", ""))
                 RegistraScript("playsonidito('142608__autistic-lucario__error.wav')", "Error2")
@@ -1195,10 +1206,10 @@ Partial Class Inventarios_EntregaAlmacen
 
     Protected Sub GvSerie_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvSerie.RowDeleting
 
-        Dim keySerie As String = e.Keys("Serie").ToString
+        Dim keySerie As String = e.Keys("Serie").ToString()
         Try
             For Each dr As DataRow In DtDatosDetalle.Rows
-                If dr("Serie").ToString = keySerie Then
+                If dr("Serie").ToString() = keySerie Then
                     dr.Delete()
                 End If
             Next
@@ -1209,11 +1220,11 @@ Partial Class Inventarios_EntregaAlmacen
         DtDatosDetalle.AcceptChanges()
         CargaSerie()
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "   AGREGA CON LOTE BATCH   "
-
+
     Private Sub CreaDtDetalleLote()
         If DtDatosDetalleLote Is Nothing Then
             DtDatosDetalleLote = New DataTable
@@ -1250,7 +1261,7 @@ Partial Class Inventarios_EntregaAlmacen
         Dim DtLotes As New DataTable
         If TipoMovimiento = 1 Then
             Dim ObjInventarios As New ClsInventarios
-            If ObjInventarios.LoteRecomendadoGet(CvePSSerie, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero) Then
+            If ObjInventarios.LoteRecomendadoGet(CvePSSerie, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero()) Then
                 DtLotes = ObjInventarios.DtResultados
             End If
             ObjInventarios.Dispose()
@@ -1265,7 +1276,7 @@ Partial Class Inventarios_EntregaAlmacen
             DtLotes.Columns.Add("CantidadSeleccionada", GetType(Integer))
             For Each dr As DataRow In DtLotes.Rows
                 dr("CantidadSeleccionada") = DtDatosDetalleLote.SUM("Cantidad", String.Format("Consec = {0} AND Lote = '{1}'", CveConsecSerie, dr("Lote")))
-                If dr("CantidadSeleccionada").ToString.ToDecimal = dr("Existencia").ToString.ToDecimal Then
+                If dr("CantidadSeleccionada").ToString().ToDecimal = dr("Existencia").ToString().ToDecimal Then
                     DrsRemove.Add(dr)
                 End If
             Next
@@ -1277,8 +1288,8 @@ Partial Class Inventarios_EntregaAlmacen
 
             If DtLotes.Rows.Count > 0 Then
                 Dim Mensaje As New StringBuilder
-                Mensaje.AppendFormat("Recomendado: Existencia: <b>{0}</b> Lote: <b>{1}</b>  Fecha Caducidad: <b>{2}</b> ", DtLotes.Rows(0)("Existencia").ToString.FormatoNumero, DtLotes.Rows(0)("Lote"), DtLotes.Rows(0)("FechaCaducidad").ToString.ToDate.ToShortDateString)
-                LbLoteRecomendado.Text = Mensaje.ToString
+                Mensaje.AppendFormat("Recomendado: Existencia: <b>{0}</b> Lote: <b>{1}</b>  Fecha Caducidad: <b>{2}</b> ", DtLotes.Rows(0)("Existencia").ToString().FormatoNumero, DtLotes.Rows(0)("Lote"), DtLotes.Rows(0)("FechaCaducidad").ToString().ToDate.ToShortDateString)
+                LbLoteRecomendado.Text = Mensaje.ToString()
             Else
                 LbLoteRecomendado.Text = "No se encontro ningún Lote recomendado."
             End If
@@ -1290,15 +1301,15 @@ Partial Class Inventarios_EntregaAlmacen
         'SI TIENE SALIDA POR LOTE, BLOQUEAMOS CHECK Y TXTCANTIDAD
         Dim Contador As Decimal = 0
         For Each Gvr As GridViewRow In GvDatos.Rows
-            If Gvr.DataKey("CvePS").ToEntero = CvePSSerie Then
+            If Gvr.DataKey("CvePS").ToEntero() = CvePSSerie Then
                 Contador = DtDatosDetalleLote.SUM("Cantidad", String.Format("ConsecId = {0}", Gvr.DataKey("Consec"))).ToDecimal
                 Gvr.FCCheckBox("cbInv").Enabled = False
                 Gvr.FCCheckBox("cbInv").Checked = True
-                Gvr.FCTextBox("TbCantidadF").Text = Contador.ToString.FormatoNumero
+                Gvr.FCTextBox("TbCantidadF").Text = Contador.ToString().FormatoNumero
             End If
         Next
 
-        RVCantidadLote.MaximumValue = (If((LbCantidad2.Text.ToDecimal - Contador) = 0, 0.02, LbCantidad2.Text.ToDecimal - Contador)).ToString.FormatoNumero
+        RVCantidadLote.MaximumValue = (If((LbCantidad2.Text.ToDecimal - Contador) = 0, 0.02, LbCantidad2.Text.ToDecimal - Contador)).ToString().FormatoNumero
 
         TxtCantidadLote.Text = "1"
         TxtLote.Text = ""
@@ -1341,7 +1352,7 @@ Partial Class Inventarios_EntregaAlmacen
 
         'VERIFICA EXISTENCIAS
         If TipoMovimiento = 1 Then
-            Dim Existencia = ObjInventarios.GetExistenciasPS(CvePSSerie, CveUMSerie, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveVendedor:=CveVendedor, CveSubProyecto:=CveSubProyecto, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), Lote:=Lote, ExcluyeApartados:=If(TipoEntrega = 2, 1, -1))
+            Dim Existencia = ObjInventarios.GetExistenciasPS(CvePSSerie, CveUMSerie, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero(), FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveVendedor:=CveVendedor, CveSubProyecto:=CveSubProyecto, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), Lote:=Lote, ExcluyeApartados:=If(TipoEntrega = 2, 1, -1))
             If Existencia < CantidadLote Then
                 Alert($"No hay existencia suficiente del producto <b>""{PSSerie}""</b> con el lote definido <b>""{Lote}""</b> y el batch <b>""{Batch}""</b>. Por favor rectifique y vuelva a intentar", TipoMensaje.MsgAdvertencia)
                 RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
@@ -1361,8 +1372,8 @@ Partial Class Inventarios_EntregaAlmacen
         End If
 
         Dim FechaCaducidad = ""
-        If ObjInventarios.LoteRecomendadoGet(CvePSSerie, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
-            FechaCaducidad = ObjInventarios.DtResultados.Rows(0)("FechaCaducidad").ToString.ToDate.ToShortDateString
+        If ObjInventarios.LoteRecomendadoGet(CvePSSerie, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero()) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
+            FechaCaducidad = ObjInventarios.DtResultados.Rows(0)("FechaCaducidad").ToString().ToDate.ToShortDateString
         End If
 
         Row("ConsecId") = CveConsecSerie
@@ -1390,10 +1401,10 @@ Partial Class Inventarios_EntregaAlmacen
 
     Protected Sub GvLote_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvLote.RowDeleting
 
-        Dim keyLote As String = e.Keys("Lote").ToString
+        Dim keyLote As String = e.Keys("Lote").ToString()
         Try
             For Each dr As DataRow In DtDatosDetalleLote.Rows
-                If dr("Lote").ToString = keyLote Then
+                If dr("Lote").ToString() = keyLote Then
                     dr.Delete()
                 End If
             Next
@@ -1402,9 +1413,9 @@ Partial Class Inventarios_EntregaAlmacen
         End Try
         DtDatosDetalleLote.AcceptChanges()
         CargaLote()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "  AGREGA CON TXT | CODIGO - SERIE  "
     Protected Sub BtnCodigoPS_Click(sender As Object, e As EventArgs)
 
@@ -1425,7 +1436,7 @@ Partial Class Inventarios_EntregaAlmacen
                     If Not TipoDocto.Contiene("Dev") Then
                         If TipoMovimiento = 1 Then
                             Dim ObjInventario As New ClsInventarios
-                            Dim Existencia = ObjInventario.GetExistenciasPS(Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveVendedor:=CveVendedor, CveSubProyecto:=CveSubProyecto, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeApartados:=If(TipoEntrega = 2, 1, -1))
+                            Dim Existencia = ObjInventario.GetExistenciasPS(Gvr.DataKey("CvePS").ToString().ToEntero(), Gvr.DataKey("CveUM").ToString().ToEntero(), UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero(), FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveVendedor:=CveVendedor, CveSubProyecto:=CveSubProyecto, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeApartados:=If(TipoEntrega = 2, 1, -1))
                             ObjInventario.Dispose()
                             If Not Existencia >= TxtCantidad.Text.ToDecimal + 1 Then
                                 TxtCodigoPS.Text = ""
@@ -1435,7 +1446,7 @@ Partial Class Inventarios_EntregaAlmacen
                             End If
                         Else
                             If DtExistencias IsNot Nothing Then
-                                Dim Existencia = DtExistencias.SUM("Cantidad", $"CvePS = {Gvr.DataKey("CvePS")} AND CveUM = {Gvr.DataKey("CveUM").ToString.ToEntero}")
+                                Dim Existencia = DtExistencias.SUM("Cantidad", $"CvePS = {Gvr.DataKey("CvePS")} AND CveUM = {Gvr.DataKey("CveUM").ToString().ToEntero()}")
                                 If Not Existencia >= TxtCantidad.Text.ToDecimal + 1 Then
                                     TxtCodigoPS.Text = ""
                                     Alert($"No hay existencias suficientes del producto: <br/><b>""{Gvr.DataKey("Codigo")}-{Gvr.DataKey("PS")}""</b>. <br/>Solo hay disponibles <b>{Existencia.FormatoNumero}</b> en Almacen. Por favor Verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus,200);")
@@ -1451,15 +1462,15 @@ Partial Class Inventarios_EntregaAlmacen
                         TdSeriePS.Visible = True
                         TxtSeriePS.Focus()
 
-                        CveConsecSerie = Gvr.DataKey("Consec").ToString.ToEntero
-                        PSSerie = Gvr.DataKey("PS").ToString
-                        CvePSSerie = Gvr.DataKey("CvePS").ToEntero
-                        CveUMSerie = Gvr.DataKey("CveUM").ToEntero
+                        CveConsecSerie = Gvr.DataKey("Consec").ToString().ToEntero()
+                        PSSerie = Gvr.DataKey("PS").ToString()
+                        CvePSSerie = Gvr.DataKey("CvePS").ToEntero()
+                        CveUMSerie = Gvr.DataKey("CveUM").ToEntero()
                         Exit Sub
                     End If
 
 
-                    Dim CantidadEspecial = Gvr.DataKey("CveClasificacion").ToString.ToEntero.Contiene(17601, 17881) OrElse Gvr.DataKey("CvePS").ToString.ToEntero.Contiene(343032, 343033)
+                    Dim CantidadEspecial = Gvr.DataKey("CveClasificacion").ToString().ToEntero().Contiene(17601, 17881) OrElse Gvr.DataKey("CvePS").ToString().ToEntero().Contiene(343032, 343033)
 
                     If CantidadEspecial Then
                         RegistraScript("CantidadEspecial();window.setTimeout(FocusCantidadEspecial,200);")
@@ -1469,7 +1480,7 @@ Partial Class Inventarios_EntregaAlmacen
                         TxtCodigoPS.Text = ""
                         Exit Sub
                     Else
-                        TxtCantidad.Text = (TxtCantidad.Text.ToDecimal + 1).ToString.FormatoNumero
+                        TxtCantidad.Text = (TxtCantidad.Text.ToDecimal + 1).ToString().FormatoNumero
                         TxtCodigoPS.Text = ""
                         UpDatos.Update()
                         Exit Sub
@@ -1480,8 +1491,8 @@ Partial Class Inventarios_EntregaAlmacen
                 End If
 
                 Existe = True
-                PSTemp = Gvr.DataKey("PS").ToString
-                'Alert($"Ya se ha cargado la totalidad del Producto  ""<b>{Gvr.DataKey("PS").ToString}</b>"" con el Codigo ""<b>{TxtCodigoPS.Text}</b>"".", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus,200);")
+                PSTemp = Gvr.DataKey("PS").ToString()
+                'Alert($"Ya se ha cargado la totalidad del Producto  ""<b>{Gvr.DataKey("PS").ToString()}</b>"" con el Codigo ""<b>{TxtCodigoPS.Text}</b>"".", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus,200);")
                 'VerificaVentaSurtida()
                 'Exit Sub
             End If
@@ -1527,7 +1538,7 @@ Partial Class Inventarios_EntregaAlmacen
     Private Sub AgregaCantidadEspecial()
         Dim TxtCantidad = GvDatos.Rows(RowIndexCantidadEspecial).FCTextBox("TbCantidadF")
         If CantidadEspecialTemp - TxtCantidadEspecialDiv.Text.ToDecimal - TxtCantidad.Text.ToDecimal >= 0 Then
-            TxtCantidad.Text = (TxtCantidad.Text.ToDecimal + TxtCantidadEspecialDiv.Text.ToDecimal).ToString.FormatoNumero
+            TxtCantidad.Text = (TxtCantidad.Text.ToDecimal + TxtCantidadEspecialDiv.Text.ToDecimal).ToString().FormatoNumero
             'RegistraScript("$('#ModalCantidad').modal('hide');")
             RegistraScript("$('#DivCantidadEspecial').hide(200);")
             UpDatos.Update()
@@ -1538,12 +1549,12 @@ Partial Class Inventarios_EntregaAlmacen
         End If
 
         TxtCantidadEspecialDiv.Text = "1"
-    End Sub
+    End Sub
 #End Region
-
+
 #End Region
-
-
+
+
 #Region "  GUARDAR  "
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
 
@@ -1578,7 +1589,7 @@ Partial Class Inventarios_EntregaAlmacen
         'VALIDA CANTIDAD DE SALIDA
         Dim Cantidad As Decimal = 0.0D
         For Each Gvr As GridViewRow In GvDatos.Rows
-            If CBool(Gvr.DataKey("AplicaSeccion")) AndAlso Gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero <= 0 Then
+            If CBool(Gvr.DataKey("AplicaSeccion")) AndAlso Gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero() <= 0 Then
                 ValidaSeccion = True
             End If
             If CBool(Gvr.DataKey("AplicaCaducidad")) AndAlso Gvr.FCTextBox("TxtCaducidad").Text.Trim = "" Then
@@ -1627,7 +1638,7 @@ Partial Class Inventarios_EntregaAlmacen
         If EsDevolucionVenta = 1 Or TipoDocto.Contiene({"Ped"}) Then
             If Not (EsDevolucionVenta = 1 And TipoDocto.Contiene("Rem")) Then   ' condicion si hay una devolucion de remision, no verifique la totalidad surtido
                 For Each Gvr As GridViewRow In GvDatos.Rows
-                    If Not Gvr.FCCheckBox("cbInv").Checked Or (Gvr.FCCheckBox("cbInv").Checked AndAlso Gvr.FCTextBox("TbCantidadF").Text.ToDecimal <> Gvr.DataKey("CantidadC").ToString.ToDecimal) Then
+                    If Not Gvr.FCCheckBox("cbInv").Checked Or (Gvr.FCCheckBox("cbInv").Checked AndAlso Gvr.FCTextBox("TbCantidadF").Text.ToDecimal <> Gvr.DataKey("CantidadC").ToString().ToDecimal) Then
                         Alert("Es necesario surtir todos los productos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
                         RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
                         Exit Sub
@@ -1668,7 +1679,7 @@ Partial Class Inventarios_EntregaAlmacen
         For Each gvr As GridViewRow In GvDatos.Rows
             If gvr.FCCheckBox("cbInv").Checked AndAlso gvr.FCTextBox("TbCantidadF").Text.ToDecimal > 0 Then
                 DtDatos.Rows(Index)("CantidadGV") = gvr.FCTextBox("TbCantidadF").Text.ToDecimal
-                DtDatos.Rows(Index)("CveSeccion") = gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero
+                DtDatos.Rows(Index)("CveSeccion") = gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero()
                 DtDatos.Rows(Index)("FechaCaducidad") = gvr.FCTextBox("TxtCaducidad").Text.ToDate
                 DtDatos.Rows(Index)("Lote") = gvr.FCTextBox("TxtLote").Text
             End If
@@ -1732,10 +1743,10 @@ Partial Class Inventarios_EntregaAlmacen
                 Dim Lote As String = ""
 
                 For Each Dr As DataRow In DtDatos.Rows
-                    FechaCaducidad = If(CBool(Dr("AplicaCaducidad")) AndAlso Dr("FechaCaducidad").ToString <> "", Dr("FechaCaducidad").ToString.ToDate, MinFecha)
-                    Lote = If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1")
+                    FechaCaducidad = If(CBool(Dr("AplicaCaducidad")) AndAlso Dr("FechaCaducidad").ToString() <> "", Dr("FechaCaducidad").ToString().ToDate, MinFecha)
+                    Lote = If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1")
 
-                    If Dr("CantidadGV").ToString.ToDecimal > 0 Then
+                    If Dr("CantidadGV").ToString().ToDecimal > 0 Then
                         If CBool(Dr("AplicaSerie")) Then
                             DtDetalle = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", Dr("Consec")))
                             For Each Dr1 As DataRow In DtDetalle.Rows
@@ -1749,7 +1760,7 @@ Partial Class Inventarios_EntregaAlmacen
                 StrXML.Append("</conceptos>")
 
                 Dim TieneErrorExistencia = False
-                If ObjInventario.GetExistenciasPSXML(StrXML.ToString(), DdlAlmacen.SelectedValue.ToEntero, TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSubProyecto, CveVendedor, If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), If(TipoEntrega = 2, 1, -1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                If ObjInventario.GetExistenciasPSXML(StrXML.ToString(), DdlAlmacen.SelectedValue.ToEntero(), TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSubProyecto, CveVendedor, If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), If(TipoEntrega = 2, 1, -1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                     If ObjInventario.DtResultados.Rows.Count > 0 Then
                         TieneErrorExistencia = True
                         For Each Dr As DataRow In ObjInventario.DtResultados.Rows
@@ -1788,21 +1799,21 @@ Partial Class Inventarios_EntregaAlmacen
                 Dim CveConceptoSalidaSinCosto As Integer = If(TipoDocto.Contiene("Rem"), 8, 40)
 
                 For Each Dr As DataRow In DtDatos.Rows
-                    If Dr("CantidadGV").ToString.ToDecimal > 0 Then
+                    If Dr("CantidadGV").ToString().ToDecimal > 0 Then
                         If CBool(Dr("AplicaSerie")) Then
                             DtDetalle = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", Dr("Consec")))
                             For Each Dr1 As DataRow In DtDetalle.Rows
-                                If ObjInventario.GetExistenciasProducto(Dr1("CvePS").ToString.ToEntero, Dr1("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, -1, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=Dr1("Serie").ToString, CveTipoAlmacen:=26, CveSubProyecto:=CveSubProyecto, Caducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then
+                                If ObjInventario.GetExistenciasProducto(Dr1("CvePS").ToString().ToEntero(), Dr1("CveUM").ToString().ToEntero(), UsuarioActual.CveEmpresa, -1, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=Dr1("Serie").ToString(), CveTipoAlmacen:=26, CveSubProyecto:=CveSubProyecto, Caducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)) Then
                                     For Each Dr2 As DataRow In ObjInventario.DtResultados.FiltraParametros("CveAlmacen > 0 AND ExistenciaFinal > 0").Rows
 
                                         'BUSCA SI EXISTE YA UN TRASPASO DEL ALMACEN DE APARTADO
-                                        CveMovimientoSalida = DtTraspasos.FiltroPrimeroValor("CveMovimientoSalida", $"CveAlmacen = {Dr2("CveAlmacen")}").ToEntero
+                                        CveMovimientoSalida = DtTraspasos.FiltroPrimeroValor("CveMovimientoSalida", $"CveAlmacen = {Dr2("CveAlmacen")}").ToEntero()
 
                                         If Not CveMovimientoSalida > 0 Then
 
 
 
-                                            CveMovimientoSalida = ObjInventario.AddMovimiento(Dr2("CveAlmacen").ToString.ToEntero, CveConceptoSalidaSinCosto, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
+                                            CveMovimientoSalida = ObjInventario.AddMovimiento(Dr2("CveAlmacen").ToString().ToEntero(), CveConceptoSalidaSinCosto, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
                                                                                               Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, Modulo:="RE/GSC1")
                                             FolioSalida = ObjInventario.Folio
 
@@ -1813,8 +1824,8 @@ Partial Class Inventarios_EntregaAlmacen
                                             End If
 
                                             Dim DrMovto = DtTraspasos.NewRow
-                                            DrMovto("Almacen") = Dr2("Almacen").ToString.ToEntero
-                                            DrMovto("CveAlmacen") = Dr2("CveAlmacen").ToString.ToEntero
+                                            DrMovto("Almacen") = Dr2("Almacen").ToString().ToEntero()
+                                            DrMovto("CveAlmacen") = Dr2("CveAlmacen").ToString().ToEntero()
                                             DrMovto("CveMovimientoSalida") = CveMovimientoSalida
                                             DrMovto("FolioSalida") = FolioSalida
                                             DrMovto("CveTipoAlmacen") = 26
@@ -1825,7 +1836,7 @@ Partial Class Inventarios_EntregaAlmacen
 
                                         CantidadPendienteSinCosto = 1
 
-                                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadPendienteSinCosto, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0, Serie:=Dr1("Serie").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then
+                                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadPendienteSinCosto, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0, Serie:=Dr1("Serie").ToString(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)) Then
                                             ErrorMovInv = True
                                             TextoError.AppendFormat("Ocurrió un Error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
                                             Exit For
@@ -1833,7 +1844,7 @@ Partial Class Inventarios_EntregaAlmacen
 
                                         DtDatosDetalle.Select($"Consec = {Dr1("Consec")}")(0)("FueTraspaso") = 1
                                         DtDatosDetalle.Select($"Consec = {Dr1("Consec")}")(0)("CveVentaDetalle") = Dr("CveVentaDetalle")
-                                        Dr("CantidadTraspaso") = Dr("CantidadTraspaso").ToString.ToDecimal + CantidadPendienteSinCosto
+                                        Dr("CantidadTraspaso") = Dr("CantidadTraspaso").ToString().ToDecimal + CantidadPendienteSinCosto
                                         Exit For
                                     Next
                                 End If
@@ -1844,17 +1855,17 @@ Partial Class Inventarios_EntregaAlmacen
 
                             DtDetalle = DtDatosDetalleLote.FiltraParametros(String.Format("ConsecId = {0}", Dr("Consec")))
                             For Each Dr1 As DataRow In DtDetalle.Rows
-                                If ObjInventario.GetExistenciasProducto(Dr1("CvePS").ToString.ToEntero, Dr1("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, -1, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Lote:=Dr1("Lote").ToString, CveTipoAlmacen:=26, CveSubProyecto:=CveSubProyecto, Caducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then
+                                If ObjInventario.GetExistenciasProducto(Dr1("CvePS").ToString().ToEntero(), Dr1("CveUM").ToString().ToEntero(), UsuarioActual.CveEmpresa, -1, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Lote:=Dr1("Lote").ToString(), CveTipoAlmacen:=26, CveSubProyecto:=CveSubProyecto, Caducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)) Then
 
-                                    CantidadSaldoSinCosto = Dr("CantidadGV").ToString.ToDecimal
+                                    CantidadSaldoSinCosto = Dr("CantidadGV").ToString().ToDecimal
 
                                     For Each Dr2 As DataRow In ObjInventario.DtResultados.FiltraParametros("CveAlmacen > 0 AND ExistenciaFinal > 0").Rows
 
                                         'BUSCA SI EXISTE YA UN TRASPASO DEL ALMACEN DE APARTADO
-                                        CveMovimientoSalida = DtTraspasos.FiltroPrimeroValor("CveMovimientoSalida", $"CveAlmacen = {Dr2("CveAlmacen")}").ToEntero
+                                        CveMovimientoSalida = DtTraspasos.FiltroPrimeroValor("CveMovimientoSalida", $"CveAlmacen = {Dr2("CveAlmacen")}").ToEntero()
 
                                         If Not CveMovimientoSalida > 0 Then
-                                            CveMovimientoSalida = ObjInventario.AddMovimiento(Dr2("CveAlmacen").ToString.ToEntero, CveConceptoSalidaSinCosto, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim,
+                                            CveMovimientoSalida = ObjInventario.AddMovimiento(Dr2("CveAlmacen").ToString().ToEntero(), CveConceptoSalidaSinCosto, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim,
                                                                                               Guia:=TxtGuia.Text, CveContrato:=CveContrato, Modulo:="RE/GSC2")
                                             FolioSalida = ObjInventario.Folio
 
@@ -1865,8 +1876,8 @@ Partial Class Inventarios_EntregaAlmacen
                                             End If
 
                                             Dim DrMovto = DtTraspasos.NewRow
-                                            DrMovto("Almacen") = Dr2("Almacen").ToString.ToEntero
-                                            DrMovto("CveAlmacen") = Dr2("CveAlmacen").ToString.ToEntero
+                                            DrMovto("Almacen") = Dr2("Almacen").ToString().ToEntero()
+                                            DrMovto("CveAlmacen") = Dr2("CveAlmacen").ToString().ToEntero()
                                             DrMovto("CveMovimientoSalida") = CveMovimientoSalida
                                             DrMovto("FolioSalida") = FolioSalida
                                             DrMovto("CveTipoAlmacen") = 26
@@ -1874,9 +1885,9 @@ Partial Class Inventarios_EntregaAlmacen
                                             DtTraspasos.Rows.Add(DrMovto)
                                         End If
 
-                                        CantidadPendienteSinCosto = If(Dr1("Cantidad").ToString.ToDecimal > CantidadSaldoSinCosto, CantidadSaldoSinCosto, Dr1("Cantidad").ToString.ToDecimal)
+                                        CantidadPendienteSinCosto = If(Dr1("Cantidad").ToString().ToDecimal > CantidadSaldoSinCosto, CantidadSaldoSinCosto, Dr1("Cantidad").ToString().ToDecimal)
 
-                                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadPendienteSinCosto.ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0, Lote:=Dr1("Lote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then
+                                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadPendienteSinCosto.ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0, Lote:=Dr1("Lote").ToString(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)) Then
                                             ErrorMovInv = True
                                             TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
                                             Exit For
@@ -1886,7 +1897,7 @@ Partial Class Inventarios_EntregaAlmacen
                                         DtDatosDetalle.Select($"Consec = {Dr1("Consec")}")(0)("CveVentaDetalle") = Dr("CveVentaDetalle")
 
                                         CantidadSaldoSinCosto -= CantidadPendienteSinCosto
-                                        Dr("CantidadTraspaso") = Dr("CantidadTraspaso").ToString.ToDecimal + CantidadPendienteSinCosto
+                                        Dr("CantidadTraspaso") = Dr("CantidadTraspaso").ToString().ToDecimal + CantidadPendienteSinCosto
                                         If CantidadSaldoSinCosto <= 0 Then Exit For
                                     Next
                                 End If
@@ -1894,17 +1905,17 @@ Partial Class Inventarios_EntregaAlmacen
 
                         Else
 
-                            If ObjInventario.GetExistenciasProducto(Dr("CvePS").ToString.ToEntero, Dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, -1, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveTipoAlmacen:=26, CveSubProyecto:=CveSubProyecto, Caducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then
+                            If ObjInventario.GetExistenciasProducto(Dr("CvePS").ToString().ToEntero(), Dr("CveUM").ToString().ToEntero(), UsuarioActual.CveEmpresa, -1, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveTipoAlmacen:=26, CveSubProyecto:=CveSubProyecto, Caducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)) Then
 
-                                CantidadSaldoSinCosto = Dr("CantidadGV").ToString.ToDecimal
+                                CantidadSaldoSinCosto = Dr("CantidadGV").ToString().ToDecimal
 
                                 For Each Dr1 As DataRow In ObjInventario.DtResultados.FiltraParametros("CveAlmacen > 0 AND ExistenciaFinal > 0").Rows
 
                                     'BUSCA SI EXISTE YA UN TRASPASO DEL ALMACEN DE APARTADO
-                                    CveMovimientoSalida = DtTraspasos.FiltroPrimeroValor("CveMovimientoSalida", $"CveAlmacen = {Dr1("CveAlmacen")}").ToEntero
+                                    CveMovimientoSalida = DtTraspasos.FiltroPrimeroValor("CveMovimientoSalida", $"CveAlmacen = {Dr1("CveAlmacen")}").ToEntero()
 
                                     If Not CveMovimientoSalida > 0 Then
-                                        CveMovimientoSalida = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString.ToEntero, CveConceptoSalidaSinCosto, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
+                                        CveMovimientoSalida = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString().ToEntero(), CveConceptoSalidaSinCosto, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
                                                                                           Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, Modulo:="RE/GSC3")
                                         FolioSalida = ObjInventario.Folio
 
@@ -1915,8 +1926,8 @@ Partial Class Inventarios_EntregaAlmacen
                                         End If
 
                                         Dim DrMovto = DtTraspasos.NewRow
-                                        DrMovto("Almacen") = Dr1("Almacen").ToString.ToEntero
-                                        DrMovto("CveAlmacen") = Dr1("CveAlmacen").ToString.ToEntero
+                                        DrMovto("Almacen") = Dr1("Almacen").ToString().ToEntero()
+                                        DrMovto("CveAlmacen") = Dr1("CveAlmacen").ToString().ToEntero()
                                         DrMovto("CveMovimientoSalida") = CveMovimientoSalida
                                         DrMovto("FolioSalida") = FolioSalida
                                         DrMovto("CveTipoAlmacen") = 26
@@ -1925,21 +1936,21 @@ Partial Class Inventarios_EntregaAlmacen
                                     End If
 
 
-                                    CantidadPendienteSinCosto = If(Dr1("ExistenciaFinal").ToString.ToDecimal > CantidadSaldoSinCosto, CantidadSaldoSinCosto, Dr1("ExistenciaFinal").ToString.ToDecimal)
+                                    CantidadPendienteSinCosto = If(Dr1("ExistenciaFinal").ToString().ToDecimal > CantidadSaldoSinCosto, CantidadSaldoSinCosto, Dr1("ExistenciaFinal").ToString().ToDecimal)
 
-                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadPendienteSinCosto.ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0,
-                                                                                Serie:=Dr("Serie").ToString,
-                                                                                CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero,
-                                                                                FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha),
-                                                                                Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"),
-                                                                                CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadPendienteSinCosto.ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0,
+                                                                                Serie:=Dr("Serie").ToString(),
+                                                                                CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(),
+                                                                                FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha),
+                                                                                Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"),
+                                                                                CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)) Then
                                         ErrorMovInv = True
                                         TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
                                         Exit For
                                     End If
 
                                     CantidadSaldoSinCosto -= CantidadPendienteSinCosto
-                                    Dr("CantidadTraspaso") = Dr("CantidadTraspaso").ToString.ToDecimal + CantidadPendienteSinCosto
+                                    Dr("CantidadTraspaso") = Dr("CantidadTraspaso").ToString().ToDecimal + CantidadPendienteSinCosto
                                     If CantidadSaldoSinCosto <= 0 Then Exit For
                                 Next
 
@@ -1960,12 +1971,12 @@ Partial Class Inventarios_EntregaAlmacen
                 'ENTRADA POR TRASPASO A ENTREGA POR ADELANTADO
                 If TipoDocto = "Rem" AndAlso Not ErrorMovInv Then
                     For Each Dr1 As DataRow In DtTraspasos.Select("CveTipoAlmacen = 26")
-                        CveMovimientoSalida = Dr1("CveMovimientoSalida").ToString.ToEntero
+                        CveMovimientoSalida = Dr1("CveMovimientoSalida").ToString().ToEntero()
 
                         Dim CveAlmacenExA As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=10).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
 
                         CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(CveAlmacenExA, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
-                                                                                   Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, CveMovimientoRelacionado:=CveMovimientoSalida,
+                                                                                   Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(), CveMovimientoRelacionado:=CveMovimientoSalida,
                                                                                    Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RE/G4")
                         FolioEntrada = ObjInventario.Folio
 
@@ -1982,7 +1993,7 @@ Partial Class Inventarios_EntregaAlmacen
                             Dim CveSeccionAlmacen As Integer = -1
                             For Each Dr As DataRow In ObjInventario.DtResultados.Rows
 
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=-3) Then
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString().ToDouble, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, CveAF:=Dr("CveAF").ToString().ToEntero(), Serie:=Dr("Serie").ToString(), CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=-3) Then
                                     ErrorMovInv = True
                                     TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
                                     Exit For
@@ -2016,23 +2027,23 @@ Partial Class Inventarios_EntregaAlmacen
                 If TipoMovimiento = 1 Then ' SI ES DEVOLUCION NO APLICA APARTADO
                     ' SALIDA POR TRASPASO DE LOS ALMACENES DE APARTADO
                     For Each Dr As DataRow In DtDatos.Rows
-                        If Dr("CantidadGV").ToString.ToDecimal > 0 Then
+                        If Dr("CantidadGV").ToString().ToDecimal > 0 Then
 
                             If CBool(Dr("AplicaSerie")) Then
 
                                 DtDetalle = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", Dr("Consec")))
                                 For Each Dr1 As DataRow In DtDetalle.Rows
-                                    If ObjInventario.GetExistenciasProducto(Dr1("CvePS").ToString.ToEntero, Dr1("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, -1, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=Dr1("Serie").ToString, CveTipoAlmacen:=9, CveVendedor:=CveVendedor, CveSubProyecto:=CveSubProyecto, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeApartados:=-1, Caducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then
+                                    If ObjInventario.GetExistenciasProducto(Dr1("CvePS").ToString().ToEntero(), Dr1("CveUM").ToString().ToEntero(), UsuarioActual.CveEmpresa, -1, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=Dr1("Serie").ToString(), CveTipoAlmacen:=9, CveVendedor:=CveVendedor, CveSubProyecto:=CveSubProyecto, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeApartados:=-1, Caducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)) Then
                                         Dim CveSeccionAlmacen As Integer = 0
                                         For Each Dr2 As DataRow In ObjInventario.DtResultados.FiltraParametros("CveAlmacen > 0 AND ExistenciaFinal > 0").Rows
 
                                             'BUSCA SI EXISTE YA UN TRASPASO DEL ALMACEN DE APARTADO
-                                            CveMovimientoSalida = DtTraspasos.FiltroPrimeroValor("CveMovimientoSalida", $"CveAlmacen = {Dr2("CveAlmacen")}").ToEntero
+                                            CveMovimientoSalida = DtTraspasos.FiltroPrimeroValor("CveMovimientoSalida", $"CveAlmacen = {Dr2("CveAlmacen")}").ToEntero()
 
                                             If Not CveMovimientoSalida > 0 Then
-                                                CveMovimientoSalida = ObjInventario.AddMovimiento(Dr2("CveAlmacen").ToString.ToEntero, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
+                                                CveMovimientoSalida = ObjInventario.AddMovimiento(Dr2("CveAlmacen").ToString().ToEntero(), 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
                                                                                                   Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente),
-                                                                                                  CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, Modulo:="RE/G1")
+                                                                                                  CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(), Modulo:="RE/G1")
                                                 FolioSalida = ObjInventario.Folio
 
                                                 If Not CveMovimientoSalida > 0 Then
@@ -2042,8 +2053,8 @@ Partial Class Inventarios_EntregaAlmacen
                                                 End If
 
                                                 Dim DrMovto = DtTraspasos.NewRow
-                                                DrMovto("Almacen") = Dr2("Almacen").ToString.ToEntero
-                                                DrMovto("CveAlmacen") = Dr2("CveAlmacen").ToString.ToEntero
+                                                DrMovto("Almacen") = Dr2("Almacen").ToString().ToEntero()
+                                                DrMovto("CveAlmacen") = Dr2("CveAlmacen").ToString().ToEntero()
                                                 DrMovto("CveMovimientoSalida") = CveMovimientoSalida
                                                 DrMovto("FolioSalida") = FolioSalida
                                                 DrMovto("CveTipoAlmacen") = 9
@@ -2054,14 +2065,14 @@ Partial Class Inventarios_EntregaAlmacen
 
                                             CantidadPendiente = 1
                                             'If CBool(Dr("AplicaSeccion")) Then
-                                            '    CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, Dr2("CveAlmacen").ToString.ToEntero, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
+                                            '    CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, Dr2("CveAlmacen").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero()).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero()
                                             '    Dim a As String = String.Format("CveAlmacen={0}-CvePS:{1}-CveseccionAlmacen={2}", Dr2("CveAlmacen"), Dr("CvePS"), CveSeccionAlmacen)
                                             'Else
                                             '    CveSeccionAlmacen = -1
                                             'End If
                                             CveSeccionAlmacen = -3
 
-                                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadPendiente.ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0, Serie:=Dr1("Serie").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=CveSeccionAlmacen) Then
+                                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadPendiente.ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0, Serie:=Dr1("Serie").ToString(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=CveSeccionAlmacen) Then
                                                 ErrorMovInv = True
                                                 TextoError.AppendFormat("Ocurrió un Error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
                                                 Exit For
@@ -2069,7 +2080,7 @@ Partial Class Inventarios_EntregaAlmacen
 
                                             DtDatosDetalle.Select($"Consec = {Dr1("Consec")}")(0)("FueTraspaso") = 1
                                             DtDatosDetalle.Select($"Consec = {Dr1("Consec")}")(0)("CveVentaDetalle") = Dr("CveVentaDetalle")
-                                            Dr("CantidadTraspaso") = Dr("CantidadTraspaso").ToString.ToDecimal + CantidadPendiente
+                                            Dr("CantidadTraspaso") = Dr("CantidadTraspaso").ToString().ToDecimal + CantidadPendiente
                                             Exit For
                                         Next
                                     End If
@@ -2080,19 +2091,19 @@ Partial Class Inventarios_EntregaAlmacen
 
                                 DtDetalle = DtDatosDetalleLote.FiltraParametros(String.Format("ConsecId = {0}", Dr("Consec")))
                                 For Each Dr1 As DataRow In DtDetalle.Rows
-                                    If ObjInventario.GetExistenciasProducto(Dr1("CvePS").ToString.ToEntero, Dr1("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, -1, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Lote:=Dr1("Lote").ToString, CveTipoAlmacen:=9, CveVendedor:=CveVendedor, CveSubProyecto:=CveSubProyecto, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeApartados:=-1, Caducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then
+                                    If ObjInventario.GetExistenciasProducto(Dr1("CvePS").ToString().ToEntero(), Dr1("CveUM").ToString().ToEntero(), UsuarioActual.CveEmpresa, -1, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Lote:=Dr1("Lote").ToString(), CveTipoAlmacen:=9, CveVendedor:=CveVendedor, CveSubProyecto:=CveSubProyecto, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeApartados:=-1, Caducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)) Then
 
-                                        CantidadSaldo = Dr("CantidadGV").ToString.ToDecimal
+                                        CantidadSaldo = Dr("CantidadGV").ToString().ToDecimal
 
                                         For Each Dr2 As DataRow In ObjInventario.DtResultados.FiltraParametros("CveAlmacen > 0 AND ExistenciaFinal > 0").Rows
 
                                             'BUSCA SI EXISTE YA UN TRASPASO DEL ALMACEN DE APARTADO
-                                            CveMovimientoSalida = DtTraspasos.FiltroPrimeroValor("CveMovimientoSalida", $"CveAlmacen = {Dr2("CveAlmacen")}").ToEntero
+                                            CveMovimientoSalida = DtTraspasos.FiltroPrimeroValor("CveMovimientoSalida", $"CveAlmacen = {Dr2("CveAlmacen")}").ToEntero()
 
                                             If Not CveMovimientoSalida > 0 Then
-                                                CveMovimientoSalida = ObjInventario.AddMovimiento(Dr2("CveAlmacen").ToString.ToEntero, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim,
+                                                CveMovimientoSalida = ObjInventario.AddMovimiento(Dr2("CveAlmacen").ToString().ToEntero(), 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim,
                                                                                                   Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente),
-                                                                                                  CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, Modulo:="RE/G2")
+                                                                                                  CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(), Modulo:="RE/G2")
                                                 FolioSalida = ObjInventario.Folio
 
                                                 If Not CveMovimientoSalida > 0 Then
@@ -2102,8 +2113,8 @@ Partial Class Inventarios_EntregaAlmacen
                                                 End If
 
                                                 Dim DrMovto = DtTraspasos.NewRow
-                                                DrMovto("Almacen") = Dr2("Almacen").ToString.ToEntero
-                                                DrMovto("CveAlmacen") = Dr2("CveAlmacen").ToString.ToEntero
+                                                DrMovto("Almacen") = Dr2("Almacen").ToString().ToEntero()
+                                                DrMovto("CveAlmacen") = Dr2("CveAlmacen").ToString().ToEntero()
                                                 DrMovto("CveMovimientoSalida") = CveMovimientoSalida
                                                 DrMovto("FolioSalida") = FolioSalida
                                                 DrMovto("CveTipoAlmacen") = 9
@@ -2111,9 +2122,9 @@ Partial Class Inventarios_EntregaAlmacen
                                                 DtTraspasos.Rows.Add(DrMovto)
                                             End If
 
-                                            CantidadPendiente = If(Dr1("Cantidad").ToString.ToDecimal > CantidadSaldo, CantidadSaldo, Dr1("Cantidad").ToString.ToDecimal)
+                                            CantidadPendiente = If(Dr1("Cantidad").ToString().ToDecimal > CantidadSaldo, CantidadSaldo, Dr1("Cantidad").ToString().ToDecimal)
 
-                                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadPendiente.ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0, Lote:=Dr1("Lote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then
+                                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadPendiente.ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0, Lote:=Dr1("Lote").ToString(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)) Then
                                                 ErrorMovInv = True
                                                 TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
                                                 Exit For
@@ -2123,7 +2134,7 @@ Partial Class Inventarios_EntregaAlmacen
                                             DtDatosDetalle.Select($"Consec = {Dr1("Consec")}")(0)("CveVentaDetalle") = Dr("CveVentaDetalle")
 
                                             CantidadSaldo -= CantidadPendiente
-                                            Dr("CantidadTraspaso") = Dr("CantidadTraspaso").ToString.ToDecimal + CantidadPendiente
+                                            Dr("CantidadTraspaso") = Dr("CantidadTraspaso").ToString().ToDecimal + CantidadPendiente
                                             If CantidadSaldo <= 0 Then Exit For
                                         Next
                                     End If
@@ -2131,21 +2142,21 @@ Partial Class Inventarios_EntregaAlmacen
 
                             Else
 
-                                If ObjInventario.GetExistenciasProducto(Dr("CvePS").ToString.ToEntero, Dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, -1, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveTipoAlmacen:=9, CveVendedor:=CveVendedor, CveSubProyecto:=CveSubProyecto, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeApartados:=-1, Caducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then
+                                If ObjInventario.GetExistenciasProducto(Dr("CvePS").ToString().ToEntero(), Dr("CveUM").ToString().ToEntero(), UsuarioActual.CveEmpresa, -1, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveTipoAlmacen:=9, CveVendedor:=CveVendedor, CveSubProyecto:=CveSubProyecto, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeApartados:=-1, Caducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)) Then
 
-                                    CantidadSaldo = Dr("CantidadGV").ToString.ToDecimal
+                                    CantidadSaldo = Dr("CantidadGV").ToString().ToDecimal
 
                                     For Each Dr1 As DataRow In ObjInventario.DtResultados.FiltraParametros("CveAlmacen > 0 AND ExistenciaFinal > 0").Rows
 
                                         'BUSCA SI EXISTE YA UN TRASPASO DEL ALMACEN DE APARTADO
-                                        CveMovimientoSalida = DtTraspasos.FiltroPrimeroValor("CveMovimientoSalida", $"CveAlmacen = {Dr1("CveAlmacen")}").ToEntero
+                                        CveMovimientoSalida = DtTraspasos.FiltroPrimeroValor("CveMovimientoSalida", $"CveAlmacen = {Dr1("CveAlmacen")}").ToEntero()
 
                                         If Not CveMovimientoSalida > 0 Then
 
 
-                                            CveMovimientoSalida = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString.ToEntero, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
+                                            CveMovimientoSalida = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString().ToEntero(), 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
                                                                                               Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor,
-                                                                                              CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, Modulo:="RE/G3")
+                                                                                              CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(), Modulo:="RE/G3")
                                             FolioSalida = ObjInventario.Folio
 
                                             If Not CveMovimientoSalida > 0 Then
@@ -2155,8 +2166,8 @@ Partial Class Inventarios_EntregaAlmacen
                                             End If
 
                                             Dim DrMovto = DtTraspasos.NewRow
-                                            DrMovto("Almacen") = Dr1("Almacen").ToString.ToEntero
-                                            DrMovto("CveAlmacen") = Dr1("CveAlmacen").ToString.ToEntero
+                                            DrMovto("Almacen") = Dr1("Almacen").ToString().ToEntero()
+                                            DrMovto("CveAlmacen") = Dr1("CveAlmacen").ToString().ToEntero()
                                             DrMovto("CveMovimientoSalida") = CveMovimientoSalida
                                             DrMovto("FolioSalida") = FolioSalida
                                             DrMovto("CveTipoAlmacen") = 9
@@ -2164,13 +2175,13 @@ Partial Class Inventarios_EntregaAlmacen
                                             DtTraspasos.Rows.Add(DrMovto)
                                         End If
 
-                                        CantidadPendiente = If(Dr1("ExistenciaFinal").ToString.ToDecimal > CantidadSaldo, CantidadSaldo, Dr1("ExistenciaFinal").ToString.ToDecimal)
+                                        CantidadPendiente = If(Dr1("ExistenciaFinal").ToString().ToDecimal > CantidadSaldo, CantidadSaldo, Dr1("ExistenciaFinal").ToString().ToDecimal)
 
-                                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadPendiente.ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0,
-                                                                                    Serie:=Dr("Serie").ToString,
-                                                                                    CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero,
-                                                                                    FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha),
-                                                                                    Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"),
+                                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadPendiente.ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0,
+                                                                                    Serie:=Dr("Serie").ToString(),
+                                                                                    CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(),
+                                                                                    FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha),
+                                                                                    Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"),
                                                                                     CveSeccionAlmacen:=-3) Then
                                             ErrorMovInv = True
                                             TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
@@ -2178,7 +2189,7 @@ Partial Class Inventarios_EntregaAlmacen
                                         End If
 
                                         CantidadSaldo -= CantidadPendiente
-                                        Dr("CantidadTraspaso") = Dr("CantidadTraspaso").ToString.ToDecimal + CantidadPendiente
+                                        Dr("CantidadTraspaso") = Dr("CantidadTraspaso").ToString().ToDecimal + CantidadPendiente
                                         If CantidadSaldo <= 0 Then Exit For
                                     Next
 
@@ -2197,10 +2208,10 @@ Partial Class Inventarios_EntregaAlmacen
                     'ENTRADA POR TRASPASO AL ALMACEN GENERAL
                     If Not ErrorMovInv Then
                         For Each Dr1 As DataRow In DtTraspasos.Select("CveTipoAlmacen = 9")
-                            CveMovimientoSalida = Dr1("CveMovimientoSalida").ToString.ToEntero
+                            CveMovimientoSalida = Dr1("CveMovimientoSalida").ToString().ToEntero()
 
-                            CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
-                                                                                       Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, CveMovimientoRelacionado:=CveMovimientoSalida,
+                            CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero(), 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
+                                                                                       Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(), CveMovimientoRelacionado:=CveMovimientoSalida,
                                                                                        Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RE/G4")
                             FolioEntrada = ObjInventario.Folio
 
@@ -2215,7 +2226,7 @@ Partial Class Inventarios_EntregaAlmacen
 
                             If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                                 For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=-3) Then
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString().ToDouble, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, CveAF:=Dr("CveAF").ToString().ToEntero(), Serie:=Dr("Serie").ToString(), CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=-3) Then
                                         ErrorMovInv = True
                                         TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
                                         Exit For
@@ -2266,14 +2277,14 @@ Partial Class Inventarios_EntregaAlmacen
 
             If Not ErrorMovInv AndAlso TipoMovimiento = 2 AndAlso UsuarioActual.Empresa.Funcionalidad(587) = "1" Then
                 For Each Dr1 As DataRow In DtExistencias.FiltraParametros("CveTipoAlmacenDevolucion = 26").Rows
-                    Dim CveMovimientoSalidaSinCosto = Dr1("CveMovimiento").ToString.ToEntero
+                    Dim CveMovimientoSalidaSinCosto = Dr1("CveMovimiento").ToString().ToEntero()
 
                     'Dim CveAlmacenSinCosto As Integer = Dr1("CveAlmacenDevolucion").ToString().ToEntero()
 
                     'Dim AlmacenSinCosto As String = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=26).FiltroPrimeroValor("Almacen", $"CveAlmacen={CveAlmacenSinCosto}").ToString()
 
                     Dim CveMovimientoDevolucionSinCosto = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero(), 41, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
-                                                                                   Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, CveMovimientoRelacionado:=CveMovimientoSalida,
+                                                                                   Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(), CveMovimientoRelacionado:=CveMovimientoSalida,
                                                                                    Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RE/G4")
                     Dim FolioDevSinCosto = ObjInventario.Folio
 
@@ -2286,9 +2297,9 @@ Partial Class Inventarios_EntregaAlmacen
                     If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaSinCosto, UsuarioActual.CveEmpresa) Then
                         For Each Dr As DataRow In ObjInventario.DtResultados.Rows
 
-                            CantidadEntradaSinCosto += Dr("Cantidad").ToString.ToDecimal()
+                            CantidadEntradaSinCosto += Dr("Cantidad").ToString().ToDecimal()
 
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoDevolucionSinCosto, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoDevolucionSinCosto, Dr("Cantidad").ToString().ToDouble, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, CveAF:=Dr("CveAF").ToString().ToEntero(), Serie:=Dr("Serie").ToString(), CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)) Then
                                 ErrorMovInv = True
                                 TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
                                 Exit For
@@ -2322,14 +2333,14 @@ Partial Class Inventarios_EntregaAlmacen
                 CantidadPendientePorSalir = CantidadPendientePorSalir - CantidadEntradaSinCosto
             End If
             'si el alamcen del que salio, es el mismo que entra, no hay traspasos.
-            If CveAlmacenTraspasoDestino = DdlAlmacen.SelectedValue.ToEntero And TipoDocto <> "Rem" Then CveAlmacenTraspasoDestino = 0
+            If CveAlmacenTraspasoDestino = DdlAlmacen.SelectedValue.ToEntero() And TipoDocto <> "Rem" Then CveAlmacenTraspasoDestino = 0
 
             If Not ErrorMovInv AndAlso CantidadPendientePorSalir > 0 Then
                 Dim ConceptoMovimiento = 3
                 ConceptoMovimiento = If(TipoMovimiento = 1, ConceptoMovimiento, 18)
                 ConceptoMovimiento = If(CveAlmacenTraspasoDestino > 0, 8, ConceptoMovimiento)
 
-                Dim Almacen1 As Integer = DdlAlmacen.SelectedValue.ToEntero
+                Dim Almacen1 As Integer = DdlAlmacen.SelectedValue.ToEntero()
 
                 If TipoDocto = "Rem" AndAlso CveAlmacenTraspasoDestino = 0 Then
                     ErrorMovInv = True
@@ -2340,14 +2351,14 @@ Partial Class Inventarios_EntregaAlmacen
                 If TipoMovimiento = 2 And TipoDocto = "Rem" Then
                     ConceptoMovimiento = 8
                     Almacen1 = CveAlmacenTraspasoDestino
-                    CveAlmacenTraspasoDestino = DdlAlmacen.SelectedValue.ToEntero
+                    CveAlmacenTraspasoDestino = DdlAlmacen.SelectedValue.ToEntero()
                 End If
 
                 'CANCELACION DE DEVOLUCION
                 If TipoMovimiento = 2 And TipoDocto = "Dev" And EsDevolucionVenta = 1 Then
                     ConceptoMovimiento = 3
-                    Almacen1 = DdlAlmacen.SelectedValue.ToEntero
-                    CveAlmacenTraspasoDestino = DdlAlmacen.SelectedValue.ToEntero
+                    Almacen1 = DdlAlmacen.SelectedValue.ToEntero()
+                    CveAlmacenTraspasoDestino = DdlAlmacen.SelectedValue.ToEntero()
                 End If
 
                 'DEVOLUCION DIRECTA A ENTREGA POR ADELANTADO
@@ -2365,7 +2376,7 @@ Partial Class Inventarios_EntregaAlmacen
 
                     'SACA LO DE TRASPASOS - APARTADO
                     For Each Dr1 As DataRow In DtTraspasos.Select("CveTipoAlmacen = 9")
-                        CveMovimientoSalida = Dr1("CveMovimientoEntrada").ToString.ToEntero
+                        CveMovimientoSalida = Dr1("CveMovimientoEntrada").ToString().ToEntero()
                         If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                             If ObjInventario.DtResultados.Rows.Count = 0 Then
                                 ErrorMovInv = True
@@ -2374,7 +2385,7 @@ Partial Class Inventarios_EntregaAlmacen
                             End If
                             For Each Dr As DataRow In ObjInventario.DtResultados.Rows
 
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=-3, EsInterno:=EsInterno) Then
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString().ToDouble, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, CveAF:=Dr("CveAF").ToString().ToEntero(), Serie:=Dr("Serie").ToString(), CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=-3, EsInterno:=EsInterno) Then
                                     ErrorMovInv = True
                                     TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
                                     Exit For
@@ -2391,7 +2402,7 @@ Partial Class Inventarios_EntregaAlmacen
                     CantidadPendiente = 0
                     Dim Cont As Integer = 0
                     For Each Dr As DataRow In DtDatos.Rows
-                        CantidadPendiente = Dr("CantidadGV").ToString.ToDecimal - Dr("CantidadTraspaso").ToString.ToDecimal - CantidadEntradaSinCosto
+                        CantidadPendiente = Dr("CantidadGV").ToString().ToDecimal - Dr("CantidadTraspaso").ToString().ToDecimal - CantidadEntradaSinCosto
                         If CantidadPendiente > 0 Then
                             Dim PU As Decimal = 0
 
@@ -2401,10 +2412,10 @@ Partial Class Inventarios_EntregaAlmacen
                             If DtDetalle.Rows.Count > 0 Then
                                 For Each Dr1 As DataRow In DtDetalle.Rows
                                     If TipoMovimiento = 2 AndAlso DtExistencias IsNot Nothing Then
-                                        PU = DtExistencias.FiltroPrimeroValor("PU", $"CveTipoAlmacenDevolucion <> 26 AND CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString.ToEntero} AND Serie = '{Dr1("Serie").ToString}'").ToString.ToDecimal
+                                        PU = DtExistencias.FiltroPrimeroValor("PU", $"CveTipoAlmacenDevolucion <> 26 AND CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString().ToEntero()} AND Serie = '{Dr1("Serie").ToString()}'").ToString().ToDecimal
                                     End If
 
-                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, 1, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, PU, Serie:=Dr1("Serie").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, 1, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), PU, Serie:=Dr1("Serie").ToString(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)) Then
                                         ErrorMovInv = True
                                         TextoError.AppendFormat("Ocurrió un error al procesar los conceptos con serie. Por favor vuelva a intentar.")
                                         Exit For
@@ -2413,10 +2424,10 @@ Partial Class Inventarios_EntregaAlmacen
                             ElseIf DtDetalleLote.Rows.Count > 0 Then
                                 For Each Dr1 As DataRow In DtDetalleLote.Rows
                                     If TipoMovimiento = 2 AndAlso DtExistencias IsNot Nothing Then
-                                        PU = DtExistencias.FiltroPrimeroValor("PU", $"CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString.ToEntero} AND Serie = '{Dr1("Serie").ToString}'").ToString.ToDecimal
+                                        PU = DtExistencias.FiltroPrimeroValor("PU", $"CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString().ToEntero()} AND Serie = '{Dr1("Serie").ToString()}'").ToString().ToDecimal
                                     End If
 
-                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr1("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, PU, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr1("Cantidad").ToString().ToDouble, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), PU, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)) Then
                                         ErrorMovInv = True
                                         TextoError.AppendFormat("Ocurrió un error al procesar los conceptos con serie. Por favor vuelva a intentar.")
                                         Exit For
@@ -2424,10 +2435,10 @@ Partial Class Inventarios_EntregaAlmacen
                                 Next
                             Else
                                 If TipoMovimiento = 2 AndAlso DtExistencias IsNot Nothing Then
-                                    PU = DtExistencias.FiltroPrimeroValor("PU", $"CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString.ToEntero}").ToString.ToDecimal
+                                    PU = DtExistencias.FiltroPrimeroValor("PU", $"CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString().ToEntero()}").ToString().ToDecimal
                                 End If
 
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, CantidadPendiente, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, PU, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, CantidadPendiente, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), PU, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)) Then
                                     ErrorMovInv = True
                                     TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de salida. Por favor vuelva a intentar.")
                                     Exit For
@@ -2435,7 +2446,7 @@ Partial Class Inventarios_EntregaAlmacen
                             End If
                             'If ObjInventario.CveMovimientoDetalle > 0 AndAlso DtSeccionAlmacen.Rows.Count > 0 Then
                             '    For Each Dr2 As DataRow In DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {Cont}").Rows
-                            '        If Not ObjInventario.AddMovimientosDetalleSeccionesAlmacen(ObjInventario.CveMovimientoDetalle, Dr2("CveSeccionAlmacen").ToString.ToEntero, -Dr2("CantidadSeccionAlmacen").ToString.ToDecimal) Then
+                            '        If Not ObjInventario.AddMovimientosDetalleSeccionesAlmacen(ObjInventario.CveMovimientoDetalle, Dr2("CveSeccionAlmacen").ToString().ToEntero(), -Dr2("CantidadSeccionAlmacen").ToString().ToDecimal) Then
                             '            ErrorMovInv = True
                             '            TextoError = "Ocurrió un error al procesar las secciones de almacen. Por favor vuelva a intentar."
                             '            Exit For
@@ -2453,7 +2464,7 @@ Partial Class Inventarios_EntregaAlmacen
                 If Not ErrorMovInv Then
                     If CveAlmacenTraspasoDestino > 0 AndAlso Not (TipoMovimiento = 2 And TipoDocto = "Dev" And EsDevolucionVenta = 1) Then ' TRASPASO CUANDO ES REMISION
                         CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacenTraspasoDestino, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato,
-                                                                           CveMovimientoRelacionado:=CveMovimiento, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, Modulo:="RE/G8")
+                                                                           CveMovimientoRelacionado:=CveMovimiento, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(), Modulo:="RE/G8")
                         FolioEntrada = ObjInventario.Folio
 
                         If CveMovimientoEntrada <= 0 Then
@@ -2462,7 +2473,7 @@ Partial Class Inventarios_EntregaAlmacen
                         Else
                             If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
                                 For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=-3, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, EsInterno:=EsInterno, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero()) Then
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString().ToDouble, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, CveAF:=Dr("CveAF").ToString().ToEntero(), CveSeccionAlmacen:=-3, Serie:=Dr("Serie").ToString(), Lote:=Dr("Lote").ToString(), FechaCaducidad:=Dr("FechaCaducidad").ToString().ToDate, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), EsInterno:=EsInterno, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero()) Then
                                         ErrorMovInv = True
                                         TextoError.AppendFormat("Ocurrió un error al guardar los movimientos de entrada")
                                         Exit For
@@ -2491,20 +2502,20 @@ Partial Class Inventarios_EntregaAlmacen
                         Dim DtTempApartados = ObjInventario.DtResultados.FiltraParametros("CveTipoAlmacen = 9", "CveAlmacen")
                         Dim CveMovimientoSalidaApartado = -1
                         Dim CveAlmacenApartado = -1
-                        Dim CveAlmacenOrigen = If(CveAlmacenTraspasoDestino > 0, CveAlmacenTraspasoDestino, DdlAlmacen.SelectedValue.ToEntero)
+                        Dim CveAlmacenOrigen = If(CveAlmacenTraspasoDestino > 0, CveAlmacenTraspasoDestino, DdlAlmacen.SelectedValue.ToEntero())
                         Dim CveSeccionAlmacen As Integer = 0
                         For Each Dr As DataRow In DtTempApartados.Rows
 
-                            If CveMovimientoSalidaApartado = -1 Or CveAlmacenApartado <> Dr("CveAlmacen").ToString.ToEntero Then
+                            If CveMovimientoSalidaApartado = -1 Or CveAlmacenApartado <> Dr("CveAlmacen").ToString().ToEntero() Then
                                 CveMovimientoSalidaApartado = ObjInventario.AddMovimiento(CveAlmacenOrigen, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
                                                                                           Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente,
-                                                                                          CveAlmacenDestino:=Dr("CveAlmacen").ToString.ToEntero, Modulo:="RE/G9")
+                                                                                          CveAlmacenDestino:=Dr("CveAlmacen").ToString().ToEntero(), Modulo:="RE/G9")
                                 FolioSalida = ObjInventario.Folio
-                                CveAlmacenApartado = Dr("CveAlmacen").ToString.ToEntero
+                                CveAlmacenApartado = Dr("CveAlmacen").ToString().ToEntero()
 
                                 Dim DrMovto = DtTraspasos.NewRow
-                                DrMovto("Almacen") = Dr("Almacen").ToString.ToEntero
-                                DrMovto("CveAlmacen") = Dr("CveAlmacen").ToString.ToEntero
+                                DrMovto("Almacen") = Dr("Almacen").ToString().ToEntero()
+                                DrMovto("CveAlmacen") = Dr("CveAlmacen").ToString().ToEntero()
                                 DrMovto("CveMovimientoSalida") = CveMovimientoSalidaApartado
                                 DrMovto("FolioSalida") = FolioSalida
                                 DtTraspasos.Rows.Add(DrMovto)
@@ -2516,14 +2527,14 @@ Partial Class Inventarios_EntregaAlmacen
                                 Exit For
                             End If
                             'If CBool(Dr("AplicaSeccion")) Then
-                            '    CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenOrigen, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
+                            '    CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenOrigen, Dr("CvePS").ToString().ToEntero()).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero()
                             '    Dim a As String = String.Format("CveAlmacen={0}-CvePS:{1}-CveseccionAlmacen={2}", CveAlmacenOrigen, Dr("CvePS"), CveSeccionAlmacen)
                             'Else
                             '    CveSeccionAlmacen = -1
                             'End If
                             CveSeccionAlmacen = -3
 
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaApartado, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString, CveSeccionAlmacen:=CveSeccionAlmacen) Then
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaApartado, Dr("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, CveAF:=Dr("CveAF").ToString().ToEntero(), Serie:=Dr("Serie").ToString(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), Lote:=Dr("Lote").ToString(), CveSeccionAlmacen:=CveSeccionAlmacen) Then
                                 ErrorMovInv = True
                                 TextoError.AppendFormat("Ocurrió un error al guardar los movimientos de control de apartados")
                                 Exit For
@@ -2532,10 +2543,10 @@ Partial Class Inventarios_EntregaAlmacen
 
                         If Not ErrorMovInv Then
                             For Each Dr1 As DataRow In DtTraspasos.Rows
-                                CveMovimientoSalida = Dr1("CveMovimientoSalida").ToString.ToEntero
+                                CveMovimientoSalida = Dr1("CveMovimientoSalida").ToString().ToEntero()
 
-                                CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString.ToEntero, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
-                                                                                           -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero,
+                                CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString().ToEntero(), 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                                                                                           -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(),
                                                                                            CveMovimientoRelacionado:=CveMovimientoSalida, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor,
                                                                                            CveCliente:=CveCliente, Modulo:="RE/G10")
                                 FolioEntrada = ObjInventario.Folio
@@ -2552,14 +2563,14 @@ Partial Class Inventarios_EntregaAlmacen
                                 If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                                     For Each Dr As DataRow In ObjInventario.DtResultados.Rows
                                         'If CBool(Dr("AplicaSeccion")) Then
-                                        '    CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, Dr1("CveAlmacen").ToString.ToEntero, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
-                                        '    Dim a As String = String.Format("CveAlmacen={0}-CvePS:{1}-CveseccionAlmacen={2}", Dr1("CveAlmacen").ToString.ToEntero, Dr("CvePS"), CveSeccionAlmacen)
+                                        '    CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, Dr1("CveAlmacen").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero()).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero()
+                                        '    Dim a As String = String.Format("CveAlmacen={0}-CvePS:{1}-CveseccionAlmacen={2}", Dr1("CveAlmacen").ToString().ToEntero(), Dr("CvePS"), CveSeccionAlmacen)
                                         'Else
                                         '    CveSeccionAlmacen = -1
                                         'End If
                                         CveSeccionAlmacen = -3
 
-                                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString, CveSeccionAlmacen:=CveSeccionAlmacen) Then
+                                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, CveAF:=Dr("CveAF").ToString().ToEntero(), Serie:=Dr("Serie").ToString(), CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), Lote:=Dr("Lote").ToString(), CveSeccionAlmacen:=CveSeccionAlmacen) Then
                                             ErrorMovInv = True
                                             TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
                                             Exit For
@@ -2590,7 +2601,7 @@ Partial Class Inventarios_EntregaAlmacen
                 If Not ErrorMovInv Then
                     If DtDevRem.Rows.Count > 0 Then
                         For Each DrMovtos As DataRow In DtDevRem.FiltraParametros("", "CveRem", {"CveRem"}).Rows
-                            If Not ObjInventario.ActualizarEsDevolucionVenta(DrMovtos("CveRem").ToString.ToEntero, 2) Then
+                            If Not ObjInventario.ActualizarEsDevolucionVenta(DrMovtos("CveRem").ToString().ToEntero(), 2) Then
                                 TextoError.AppendFormat("Ocurrió un error al hacer la devolución hacia la remision. Por favor vuelva a intentar.")
                                 ErrorMovInv = True
                                 Exit For
@@ -2703,11 +2714,11 @@ Partial Class Inventarios_EntregaAlmacen
             'Paqueterias guias
             If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
                 Dim CveEstatus As Integer = 1 ' DdlEstatus.SelectedValue.ToEntero()
-                Dim Fecha As String = Now.ToString 'TxtFechaPaqInterna.Text
+                Dim Fecha As String = Now.ToString() 'TxtFechaPaqInterna.Text
                 Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
                 Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero()
                 Dim Observaciones As String = "" 'TxtObservacionesPaqInterna.Text
-                Dim CvePaqueteria As Integer = GlobalDTPaqueterias(UsuarioActual.CveEmpresa, 0).FiltroPrimeroValor("CvePaqueteria", "").ToEntero
+                Dim CvePaqueteria As Integer = GlobalDTPaqueterias(UsuarioActual.CveEmpresa, 0).FiltroPrimeroValor("CvePaqueteria", "").ToEntero()
 
                 If CveSubProyecto > 0 Then
                     Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(CvePaqueteria, 9, CveEstatus, CveSubProyecto, Fecha, "", "", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:=True)
@@ -2793,14 +2804,14 @@ Partial Class Inventarios_EntregaAlmacen
                 Msg.AppendFormat("<br/><br/>Se agregó una guía de paquetería interna")
             End If
 
-            Alert(Msg.ToString, TipoMensaje.MsgInformacion)
+            Alert(Msg.ToString(), TipoMensaje.MsgInformacion)
 
             Limpia()
             CargaPendientes()
             LimpiaCampos()
         Else
             ObjInventario.RollBack()
-            Alert(TextoError.ToString, TipoMensaje.MsgError)
+            Alert(TextoError.ToString(), TipoMensaje.MsgError)
             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
         End If
 
@@ -2820,18 +2831,18 @@ Partial Class Inventarios_EntregaAlmacen
             DtCostos = ObjInventario.DtResultados
 
             Dim tmpCostos As DataTable = DtCostos.FiltraParametros("", "", {"CveClasificacion"})
-            Dim IdCtaContableAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
-            'Dim CveCuentaAlmacen As Integer = 0 'GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
+            Dim IdCtaContableAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero()
+            'Dim CveCuentaAlmacen As Integer = 0 'GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero()
             Dim IdCtaContable As Integer = 0
             Dim CveCuenta As Integer = 0
             If tmpCostos.Rows.Count > 0 Then
 
 
                 If ObjVentas.GetVenta(CveVentaSurtir, UsuarioActual.CveEmpresa) Then
-                    Dim Fecha As Date = TxtFecha.Text.ToDate ' If(TipoMovimiento <> 1, TxtFecha.Text.ToDate, ObjVentas.DtResultados(0)("Fecha").ToString.ToDate)
-                    Dim CveCliente As Integer = ObjVentas.DtResultados(0)("CveCliente").ToString.ToEntero
-                    Dim ClienteNombre As String = ObjVentas.DtResultados(0)("ClienteNombre").ToString
-                    Dim Serie As String = ObjVentas.DtResultados(0)("SerieFolio").ToString
+                    Dim Fecha As Date = TxtFecha.Text.ToDate ' If(TipoMovimiento <> 1, TxtFecha.Text.ToDate, ObjVentas.DtResultados(0)("Fecha").ToString().ToDate)
+                    Dim CveCliente As Integer = ObjVentas.DtResultados(0)("CveCliente").ToString().ToEntero()
+                    Dim ClienteNombre As String = ObjVentas.DtResultados(0)("ClienteNombre").ToString()
+                    Dim Serie As String = ObjVentas.DtResultados(0)("SerieFolio").ToString()
                     Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL()
                     Dim TotalCostoAcumulado As Decimal = 0
                     Dim cont As Integer = 1
@@ -2839,11 +2850,11 @@ Partial Class Inventarios_EntregaAlmacen
                     Dim ValorMultiplicador = 1
 
                     If TipoMovimiento = 1 Then
+                        ValorMultiplicador = 1
+                    ElseIf TipoMovimiento = 2 AndAlso TipoDocto.Contiene({"Dev"}) AndAlso (EsDevolucionVenta = 1) Then
                         ValorMultiplicador = 1
                     ElseIf TipoMovimiento = 2 Then
-                        ValorMultiplicador = -1
-                    ElseIf TipoMovimiento = 2 AndAlso TipoDocto.Contiene({"Dev"}) And (EsDevolucionVenta = 1) Then
-                        ValorMultiplicador = 1
+                        ValorMultiplicador = -1
                     End If
 
                     Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
@@ -2860,12 +2871,12 @@ Partial Class Inventarios_EntregaAlmacen
                                 ValorInventario = ValorInventario + (TotalCosto - TotalCostoAcumulado)
                             End If
 
-                            'Concepto = String.Format("{0} - {1}", Row2("Clasificacion").ToString, Row2("SubProyecto").ToString)
-                            IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero
-                            CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostosSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero
+                            'Concepto = String.Format("{0} - {1}", Row2("Clasificacion").ToString(), Row2("SubProyecto").ToString())
+                            IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
+                            CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostosSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
 
                             If Not ErrorMovInv Then
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ValorMultiplicador * ValorInventario, Serie, 69, Serie, Fecha, IdCtaContable, -1, CveVenta:=CveVentaSurtir, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=CveSubProyecto, ImporteMX:=ValorMultiplicador * ValorInventario, CveCuenta:=CveCuenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero) Then
+                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ValorMultiplicador * ValorInventario, Serie, 69, Serie, Fecha, IdCtaContable, -1, CveVenta:=CveVentaSurtir, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=CveSubProyecto, ImporteMX:=ValorMultiplicador * ValorInventario, CveCuenta:=CveCuenta, CveClasificacion:=RowInv("CveClasificacion").ToString().ToEntero()) Then
                                     ErrorMovInv = True
                                 End If
                             End If
@@ -2919,7 +2930,7 @@ Partial Class Inventarios_EntregaAlmacen
 
         'OBLIGA A SURTIR TODO
         For Each Gvr As GridViewRow In GvDatos.Rows
-            If Not Gvr.FCCheckBox("cbInv").Checked Or (Gvr.FCCheckBox("cbInv").Checked AndAlso Gvr.FCTextBox("TbCantidadF").Text.ToDecimal <> Gvr.DataKey("CantidadC").ToString.ToDecimal) Then
+            If Not Gvr.FCCheckBox("cbInv").Checked Or (Gvr.FCCheckBox("cbInv").Checked AndAlso Gvr.FCTextBox("TbCantidadF").Text.ToDecimal <> Gvr.DataKey("CantidadC").ToString().ToDecimal) Then
                 Alert("Es necesario surtir todos los productos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
                 RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
                 Exit Sub
@@ -2930,7 +2941,7 @@ Partial Class Inventarios_EntregaAlmacen
         'VALIDA CANTIDAD DE SALIDA
         Dim Cantidad As Decimal = 0.0D
         For Each Gvr As GridViewRow In GvDatos.Rows
-            If CBool(Gvr.DataKey("AplicaSeccion")) AndAlso Gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero <= 0 Then
+            If CBool(Gvr.DataKey("AplicaSeccion")) AndAlso Gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero() <= 0 Then
                 ValidaSeccion = True
             End If
             If CBool(Gvr.DataKey("AplicaCaducidad")) AndAlso Gvr.FCTextBox("TxtCaducidad").Text.Trim = "" Then
@@ -2969,7 +2980,7 @@ Partial Class Inventarios_EntregaAlmacen
                 Exit Sub
             End If
 
-            If DdlAlmacenTransitorio.SelectedValue.ToEntero <= 0 Then
+            If DdlAlmacenTransitorio.SelectedValue.ToEntero() <= 0 Then
                 Alert("Debe seleccionar un almacen transitorio.", TipoMensaje.MsgAdvertencia)
                 RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
                 If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);")
@@ -2994,7 +3005,7 @@ Partial Class Inventarios_EntregaAlmacen
         For Each gvr As GridViewRow In GvDatos.Rows
             If gvr.FCCheckBox("cbInv").Checked AndAlso gvr.FCTextBox("TbCantidadF").Text.ToDecimal > 0 Then
                 DtDatos.Rows(Index)("CantidadGV") = gvr.FCTextBox("TbCantidadF").Text.ToDecimal
-                DtDatos.Rows(Index)("CveSeccion") = gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero
+                DtDatos.Rows(Index)("CveSeccion") = gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero()
                 DtDatos.Rows(Index)("FechaCaducidad") = gvr.FCTextBox("TxtCaducidad").Text.ToDate
                 DtDatos.Rows(Index)("Lote") = gvr.FCTextBox("TxtLote").Text
             End If
@@ -3017,7 +3028,7 @@ Partial Class Inventarios_EntregaAlmacen
         End If
 
         'VALIDA QUE EL TRASPASO SIGA VIGENTE
-        If ObjInventario.AddTrasladoSolicitudGet(CveTraspasoSurtir, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 AndAlso ObjInventario.DtResultados.Rows(0)("CveTrasladoEstatus").ToString = "2" Then
+        If ObjInventario.AddTrasladoSolicitudGet(CveTraspasoSurtir, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 AndAlso ObjInventario.DtResultados.Rows(0)("CveTrasladoEstatus").ToString() = "2" Then
             ObjInventario.RollBack()
             ObjInventario.Dispose()
             CargaTraspasoPorSurtir(CveTraspasoSurtir)
@@ -3027,7 +3038,7 @@ Partial Class Inventarios_EntregaAlmacen
         End If
 
         'VALIDA ALMACENES
-        Dim Almacen1 = DdlAlmacen.SelectedValue.ToEntero
+        Dim Almacen1 = DdlAlmacen.SelectedValue.ToEntero()
         Dim Almacen2 = CveAlmacenTraspasoDestino
         If Almacen1 <= 0 Or Almacen2 <= 0 Then
             Alert("Ocurrió un error al obtener los almacenes del movimiento. Por favor recargue y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
@@ -3042,10 +3053,10 @@ Partial Class Inventarios_EntregaAlmacen
         Dim FechaCaducidad As Date
         StrXML.Append("<conceptos>")
         For Each Dr As DataRow In DtDatos.Rows
-            FechaCaducidad = If(CBool(Dr("AplicaCaducidad")) AndAlso Dr("FechaCaducidad").ToString <> "", Dr("FechaCaducidad").ToString.ToDate, MinFecha)
-            Lote = If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1")
+            FechaCaducidad = If(CBool(Dr("AplicaCaducidad")) AndAlso Dr("FechaCaducidad").ToString() <> "", Dr("FechaCaducidad").ToString().ToDate, MinFecha)
+            Lote = If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1")
 
-            If Dr("CantidadGV").ToString.ToDecimal > 0 Then
+            If Dr("CantidadGV").ToString().ToDecimal > 0 Then
                 If CBool(Dr("AplicaSerie")) Then
                     DtDetalle = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", Dr("Consec")))
                     For Each Dr1 As DataRow In DtDetalle.Rows
@@ -3059,11 +3070,11 @@ Partial Class Inventarios_EntregaAlmacen
         StrXML.Append("</conceptos>")
 
         Dim TieneErrorExistencia = False
-        If ObjInventario.GetExistenciasPSXML(StrXML.ToString(), DdlAlmacen.SelectedValue.ToEntero, TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSubProyecto, CveVendedor, If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), If(TipoEntrega = 2, 1, -1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+        If ObjInventario.GetExistenciasPSXML(StrXML.ToString(), DdlAlmacen.SelectedValue.ToEntero(), TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSubProyecto, CveVendedor, If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), If(TipoEntrega = 2, 1, -1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
             If ObjInventario.DtResultados.Rows.Count > 0 Then
                 TieneErrorExistencia = True
                 For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                    TextoError += $"<b> - {Dr("CodigoPS")}</b> Existencia: {Dr("Existencia").ToString.ToDecimal.ToString("#,##0.##")} <br/>"
+                    TextoError += $"<b> - {Dr("CodigoPS")}</b> Existencia: {Dr("Existencia").ToString().ToDecimal.ToString("#,##0.##")} <br/>"
                 Next
             End If
         Else
@@ -3084,22 +3095,22 @@ Partial Class Inventarios_EntregaAlmacen
         If Not ErrorMovInv Then
             ConceptoMovimiento = 26
             CveMovimientoSalida = ObjInventario.AddMovimiento(Almacen1, ConceptoMovimiento, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:="",
-                                                              CveContrato:=-1, CveAlmacenDestino:=CveAlmacenTraspasoDestino, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, ""), Modulo:="RE/GT")
+                                                              CveContrato:=-1, CveAlmacenDestino:=CveAlmacenTraspasoDestino, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, ""), Modulo:="RE/GT", CveOP:=CveOP)
             FolioSalida = ObjInventario.Folio
             If CveMovimientoSalida > 0 Then
                 Dim CantidadPendiente As Decimal = 0
                 Dim CveSeccionAlmacen As Integer = -1
 
                 For Each Dr As DataRow In DtDatos.Rows
-                    FechaCaducidad = If(CBool(Dr("AplicaCaducidad")) AndAlso Dr("FechaCaducidad").ToString <> "", Dr("FechaCaducidad").ToString.ToDate, MinFecha)
-                    Lote = If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1")
-                    CveSeccionAlmacen = If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)
+                    FechaCaducidad = If(CBool(Dr("AplicaCaducidad")) AndAlso Dr("FechaCaducidad").ToString() <> "", Dr("FechaCaducidad").ToString().ToDate, MinFecha)
+                    Lote = If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1")
+                    CveSeccionAlmacen = If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)
 
                     DtDetalle = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0} AND FueTraspaso IS NULL", Dr("Consec")))
                     DtDetalleLote = DtDatosDetalleLote.FiltraParametros(String.Format("ConsecId = {0} AND FueTraspaso IS NULL", Dr("Consec")))
                     If DtDetalle.Rows.Count > 0 Then  'SI FUE POR SERIE
                         For Each Dr1 As DataRow In DtDetalle.Rows
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, 1, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0, Serie:=Dr1("Serie").ToString, Lote:=Lote, FechaCaducidad:=FechaCaducidad, CveSeccionAlmacen:=CveSeccionAlmacen, CveVentaDetalle:=-1, CveContratoDetalle:=Dr("CveContratoDetalle").ToString.ToEntero) Then
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, 1, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0, Serie:=Dr1("Serie").ToString(), Lote:=Lote, FechaCaducidad:=FechaCaducidad, CveSeccionAlmacen:=CveSeccionAlmacen, CveVentaDetalle:=-1, CveContratoDetalle:=Dr("CveContratoDetalle").ToString().ToEntero()) Then
                                 ErrorMovInv = True
                                 TextoError = "Ocurrió un error al procesar los conceptos con serie. Por favor vuelva a intentar."
                                 Exit For
@@ -3107,14 +3118,14 @@ Partial Class Inventarios_EntregaAlmacen
                         Next
                     ElseIf DtDetalleLote.Rows.Count > 0 Then 'SI FUE POR LOTE BATCH
                         For Each Dr1 As DataRow In DtDetalleLote.Rows
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr1("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0, Serie:="", Lote:=Dr1("Lote").ToString, FechaCaducidad:=FechaCaducidad, CveSeccionAlmacen:=CveSeccionAlmacen, CveVentaDetalle:=-1, CveContratoDetalle:=Dr("CveContratoDetalle").ToString.ToEntero) Then
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr1("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0, Serie:="", Lote:=Dr1("Lote").ToString(), FechaCaducidad:=FechaCaducidad, CveSeccionAlmacen:=CveSeccionAlmacen, CveVentaDetalle:=-1, CveContratoDetalle:=Dr("CveContratoDetalle").ToString().ToEntero()) Then
                                 ErrorMovInv = True
                                 TextoError = "Ocurrió un error al procesar los conceptos con serie. Por favor vuelva a intentar."
                                 Exit For
                             End If
                         Next
                     Else 'NORMAL
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("CantidadGV").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0, -1, FechaCaducidad:=FechaCaducidad, CveSeccionAlmacen:=CveSeccionAlmacen, CveContratoDetalle:=Dr("CveContratoDetalle").ToString.ToEntero) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("CantidadGV").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0, -1, FechaCaducidad:=FechaCaducidad, CveSeccionAlmacen:=CveSeccionAlmacen, CveContratoDetalle:=Dr("CveContratoDetalle").ToString().ToEntero()) Then
                             ErrorMovInv = True
                             TextoError = "Ocurrió un error al procesar los conceptos de salida. Por favor vuelva a intentar."
                             Exit For
@@ -3132,23 +3143,23 @@ Partial Class Inventarios_EntregaAlmacen
             'sino es transitorio, los transitorios, ya no se hace otro movimiento
             If Not ChkTransitorio.Checked Then
                 ConceptoMovimiento = 27 ' If(ChkTransitorio.Checked, 2, 27)
-                Almacen2 = If(ChkTransitorio.Checked, DdlAlmacenTransitorio.SelectedValue.ToEntero, CveAlmacenTraspasoDestino)
+                Almacen2 = If(ChkTransitorio.Checked, DdlAlmacenTransitorio.SelectedValue.ToEntero(), CveAlmacenTraspasoDestino)
                 CveMovimientoEntrada = ObjInventario.AddMovimiento(Almacen2, ConceptoMovimiento, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim,
                                                                    Guia:="", CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimientoSalida, CveAlmacenDestino:=CveAlmacenTraspasoDestino,
-                                                                   Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, ""), Modulo:="RE/GT1")
+                                                                   Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, ""), Modulo:="RE/GT1", CveOP:=CveOP)
                 FolioEntrada = ObjInventario.Folio
                 If CveMovimientoEntrada > 0 Then
                     If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                         Dim CveSeccionAlmacen As Integer = -1
                         For Each Dr As DataRow In ObjInventario.DtResultados.Rows
                             'If CBool(Dr("AplicaSeccion")) Then
-                            '    CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, Almacen2, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
+                            '    CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, Almacen2, Dr("CvePS").ToString().ToEntero()).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero()
                             'Else
                             '    CveSeccionAlmacen = -1
                             'End If
                             CveSeccionAlmacen = -3
 
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, CveAF:=Dr("CveAF").ToString().ToEntero(), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Dr("Serie").ToString(), Lote:=Dr("Lote").ToString(), FechaCaducidad:=Dr("FechaCaducidad").ToString().ToDate, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero()) Then
                                 ErrorMovInv = True
                                 TextoError = "Ocurrió un error al guardar los movimientos de entrada"
                                 Exit For
@@ -3174,11 +3185,11 @@ Partial Class Inventarios_EntregaAlmacen
         'Paqueterias Guias
         If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
             Dim CveEstatus As Integer = 0 ' DdlEstatus.SelectedValue.ToEntero()
-            Dim Fecha As String = Now.ToString 'TxtFechaPaqInterna.Text
+            Dim Fecha As String = Now.ToString() 'TxtFechaPaqInterna.Text
             Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
             Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero()
             Dim Observaciones As String = "" 'TxtObservacionesPaqInterna.Text
-            Dim CvePaqueteria As Integer = GlobalDTPaqueterias(UsuarioActual.CveEmpresa, 0).FiltroPrimeroValor("CvePaqueteria", "").ToEntero
+            Dim CvePaqueteria As Integer = GlobalDTPaqueterias(UsuarioActual.CveEmpresa, 0).FiltroPrimeroValor("CvePaqueteria", "").ToEntero()
 
             Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(CvePaqueteria, 9, CveEstatus, CveSubProyecto, Fecha, "-1", "-1", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:=True)
 
@@ -3212,7 +3223,7 @@ Partial Class Inventarios_EntregaAlmacen
                 Msg.AppendFormat("<br/><br/>Se agregó una guía de paquetería interna")
             End If
 
-            Alert(Msg.ToString, TipoMensaje.MsgInformacion)
+            Alert(Msg.ToString(), TipoMensaje.MsgInformacion)
 
             Limpia()
             LimpiaCampos()
@@ -3247,11 +3258,11 @@ Partial Class Inventarios_EntregaAlmacen
         Dim strBody As New StringBuilder
         If ObjVentas.GetVenta(tCveVenta, UsuarioActual.CveEmpresa) Then
             Dim dr As DataRow = ObjVentas.DtResultados.FiltroPrimero("")
-            tCveVendedor = dr("CveVendedor").ToString.ToEntero
+            tCveVendedor = dr("CveVendedor").ToString().ToEntero()
             Dim CorreoVendedor As String = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo", String.Format("CveVendedor = {0}", tCveVendedor))
             Dim CorreoAsistente As String = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=3).FiltroPrimeroValor("Correo", String.Format("CveSuperior = {0}", CveVendedor))
             Destinatario = String.Format("{0};{1};{2}", dr("CorreoNotificacion"), CorreoVendedor, CorreoAsistente)
-            tCvecliente = dr("CveCliente").ToString.ToEntero
+            tCvecliente = dr("CveCliente").ToString().ToEntero()
 
             Dim drC As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=tCvecliente).FiltroPrimero("")
             If drC IsNot Nothing Then
@@ -3307,7 +3318,7 @@ Partial Class Inventarios_EntregaAlmacen
                 strBody.Append("    </p>")
                 strBody.Append("    <br/>")
                 strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
-                strBody.Append($"      Aceptando a entera satisfacción a las {Today.Hour}:{Today.Minute} hrs del {Today.ToString}")
+                strBody.Append($"      Aceptando a entera satisfacción a las {Today.Hour}:{Today.Minute} hrs del {Today.ToString()}")
                 strBody.Append("    </p>")
                 strBody.Append("    <br/>")
                 strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
@@ -3332,7 +3343,7 @@ Partial Class Inventarios_EntregaAlmacen
         Dim itemMail As New ClsSisMail.ArchivoMail()
         LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = bytes, .NombreArchivo = "Entrega en mostrador"})
 
-        MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, Destinatario, "Enviado desde Entrega Almacen", strBody.ToString, Destinatario)
+        MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, Destinatario, "Enviado desde Entrega Almacen", strBody.ToString(), Destinatario)
         MailCls = Nothing
     End Sub
 
@@ -3371,160 +3382,160 @@ Partial Class Inventarios_EntregaAlmacen
         CargaGvDatos()
 
         UpDatos.Update()
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "  TRASPASO  -  TRANSITORIO  "
     Protected Sub ChkTransitorio_CheckedChanged(sender As Object, e As EventArgs)
 
         TxtResponsable.Text = ""
         DivTransitorio2.Visible = ChkTransitorio.Checked
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "SECCION ALMACEN"
-    'Private Sub CreaDtSeccionAlmacen()
-    '    DtSeccionAlmacen = New DataTable
-    '    DtSeccionAlmacen.Columns.Add("CantidadSeccionAlmacen", GetType(Decimal))
-    '    DtSeccionAlmacen.Columns.Add("IndexSeccionAlmacen", GetType(Integer))
-    '    DtSeccionAlmacen.Columns.Add("CveSeccionAlmacen", GetType(Integer))
-    '    DtSeccionAlmacen.Columns.Add("CvePS", GetType(Integer))
-    '    DtSeccionAlmacen.Columns.Add("SeccionAlmacen", GetType(String))
-    '    DtSeccionAlmacen.Columns.Add("Consec", GetType(Integer))
-    'End Sub
-    'Private Sub CargaDdlAlmacen()
-    '    DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
-    '    DdlSeccionAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
-    '    DdlSeccionAlmacen.DataBind()
-    'End Sub
-    'Protected Sub LnkSeccionAlmacen_Click(sender As Object, e As EventArgs)
-    '    Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
-
-    '    If Not DdlAlmacen.SelectedValue.ToEntero > 0 Then
-    '        Alert("Tiene que tener seleccionado un almacen para registrar seccion almacen.", TipoMensaje.MsgAdvertencia)
-    '        Exit Sub
-    '    End If
-
-    '    CantidadTotal = gvRow.FCTextBox("TbCantidadF").Text.ToDecimal
-    '    IndexSeccionAlmacen = gvRow.RowIndex
-    '    CvePS = gvRow.DataKey("CvePS").ToEntero
-    '    CargaSeccionAlmacen()
-    '    RegistraScript("$('#DModalSeccionAlmacen').modal()")
-    'End Sub
-
-    'Private Sub CargaSeccionAlmacen()
-    '    Dim CantidadTotalSeccion As Decimal = DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {IndexSeccionAlmacen}").SUMD("CantidadSeccionAlmacen")
-    '    GvSeccion.DataSource = DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {IndexSeccionAlmacen}")
-    '    GvSeccion.DataBind()
-
-    '    TxtCantidadSeccion.Text = ""
-    '    DdlSeccionAlmacen.SelectedIndex = 0
-    '    Dim CantidadRestante As Decimal = CantidadTotal - CantidadTotalSeccion
-    '    If CantidadRestante = 0 Then
-    '        RVTxtCantidad.MaximumValue = "1"
-    '        TxtCantidadSeccion.Enabled = False
-    '    Else
-    '        RVTxtCantidad.MaximumValue = CantidadRestante.ToString
-    '        TxtCantidadSeccion.Enabled = True
-    '    End If
-
-    '    If CantidadTotalSeccion > 0 Then
-    '        GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").Enabled = False
-    '        GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").ToolTip = "Cuenta con sección almacen"
-
-    '    Else
-    '        GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").Enabled = True
-    '        GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").ToolTip = ""
-
-    '    End If
-
-    '    If DtSeccionAlmacen.SUMD("CantidadSeccionAlmacen") > 0 Then
-    '        DdlAlmacen.Enabled = False
-    '        DdlAlmacen.ToolTip = "Cuenta con sección almacen"
-    '    Else
-    '        DdlAlmacen.Enabled = True
-    '        DdlAlmacen.ToolTip = ""
-    '    End If
-
-    '    UpModalSeccionAlmacen.Update()
-    '    UpDatos.Update()
-    '    UpGenerales.Update()
-    'End Sub
-
-    'Protected Sub LnkAddSeccionAlmacen_Click(sender As Object, e As EventArgs)
-
-    '    Dim ObjInv As New ClsInventarios
-    '    Dim CantidadDisponible As Decimal = 0
-    '    If ObjInv.GetMovimientosDetalleSeccionesAlmacen(DdlSeccionAlmacen.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero,
-    '                                                    CvePS, UsuarioActual.CveEmpresa) Then
-    '        If ObjInv.DtResultados.Rows.Count > 0 Then
-    '            CantidadDisponible = ObjInv.DtResultados.Rows(0)("CantidadRestante").ToString.ToDecimal
-    '        End If
-    '    End If
-    '    ObjInv.Dispose()
-
-    '    CantidadDisponible -= DtSeccionAlmacen.FiltraParametros($"CvePS = {CvePS} AND CveSeccionAlmacen = {DdlSeccionAlmacen.SelectedValue}").SUMD("CantidadSeccionAlmacen")
-
-    '    If TxtCantidadSeccion.Text.ToDecimal > CantidadDisponible Then
-    '        Alert($"No tiene cantidad de producto suficiente en esta seccion de almacen, su cantidad restante es: <b>{CantidadDisponible}</b>", TipoMensaje.MsgAdvertencia)
-    '        Exit Sub
-    '    End If
-
-    '    Dim Row As DataRow = Nothing
-    '    DtSeccionAlmacen.AcceptChanges()
-    '    Row = DtSeccionAlmacen.NewRow
-    '    Row("CantidadSeccionAlmacen") = TxtCantidadSeccion.Text.ToDecimal
-    '    Row("IndexSeccionAlmacen") = IndexSeccionAlmacen
-    '    Row("CveSeccionAlmacen") = DdlSeccionAlmacen.SelectedValue.ToEntero
-    '    Row("SeccionAlmacen") = DdlSeccionAlmacen.SelectedItem.Text
-    '    Row("CvePS") = CvePS
-    '    Row("Consec") = DtSeccionAlmacen.Rows.Count + 1
-    '    DtSeccionAlmacen.Rows.Add(Row)
-    '    DtSeccionAlmacen.AcceptChanges()
-    '    CargaSeccionAlmacen()
-    'End Sub
-
-    'Protected Sub LnkEliminarSeccion_Click(sender As Object, e As EventArgs)
-    '    Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
-    '    Dim Index As Integer = 0
-    '    For Each Dr As DataRow In DtSeccionAlmacen.Rows
-    '        If Dr("Consec").ToString.ToEntero = gvRow.DataKey("Consec").ToEntero() Then
-    '            Exit For
-    '        End If
-    '        Index += 1
-    '    Next
-    '    DtSeccionAlmacen.Rows.RemoveAt(Index)
-    '    DtSeccionAlmacen.AcceptChanges()
-    '    CargaSeccionAlmacen()
-    'End Sub
-
-    'Protected Sub LnkVerSecciones_Click(sender As Object, e As EventArgs)
-    '    If Not CveVentaSurtir > 0 Then
-    '        Alert("Tiene que seleccionar la venta a surtir", TipoMensaje.MsgAdvertencia)
-    '        Exit Sub
-    '    End If
-
-    '    If Not DdlAlmacen.SelectedValue.ToEntero > 0 Then
-    '        Alert("Tiene que seleccionar el almacen", TipoMensaje.MsgAdvertencia)
-    '        Exit Sub
-    '    End If
-
-    '    Dim ObjInv As New ClsInventarios
-    '    If ObjInv.GetExistenciaSeccionAlmacen(CveVentaSurtir, DdlAlmacen.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
-    '        GvVerSeccionesAlmacen.DataSource = ObjInv.DtResultados
-    '    End If
-    '    ObjInv.Dispose()
-    '    GvVerSeccionesAlmacen.DataBind()
-    '    UpVerSeccionesAlmacen.Update()
-    '    RegistraScript("$('#ModalVerSeccionesAlmacen').modal()")
-    'End Sub
-
+    'Private Sub CreaDtSeccionAlmacen()
+    '    DtSeccionAlmacen = New DataTable
+    '    DtSeccionAlmacen.Columns.Add("CantidadSeccionAlmacen", GetType(Decimal))
+    '    DtSeccionAlmacen.Columns.Add("IndexSeccionAlmacen", GetType(Integer))
+    '    DtSeccionAlmacen.Columns.Add("CveSeccionAlmacen", GetType(Integer))
+    '    DtSeccionAlmacen.Columns.Add("CvePS", GetType(Integer))
+    '    DtSeccionAlmacen.Columns.Add("SeccionAlmacen", GetType(String))
+    '    DtSeccionAlmacen.Columns.Add("Consec", GetType(Integer))
+    'End Sub
+    'Private Sub CargaDdlAlmacen()
+    '    DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
+    '    DdlSeccionAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    '    DdlSeccionAlmacen.DataBind()
+    'End Sub
+    'Protected Sub LnkSeccionAlmacen_Click(sender As Object, e As EventArgs)
+    '    Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+
+    '    If Not DdlAlmacen.SelectedValue.ToEntero() > 0 Then
+    '        Alert("Tiene que tener seleccionado un almacen para registrar seccion almacen.", TipoMensaje.MsgAdvertencia)
+    '        Exit Sub
+    '    End If
+
+    '    CantidadTotal = gvRow.FCTextBox("TbCantidadF").Text.ToDecimal
+    '    IndexSeccionAlmacen = gvRow.RowIndex
+    '    CvePS = gvRow.DataKey("CvePS").ToEntero()
+    '    CargaSeccionAlmacen()
+    '    RegistraScript("$('#DModalSeccionAlmacen').modal()")
+    'End Sub
+
+    'Private Sub CargaSeccionAlmacen()
+    '    Dim CantidadTotalSeccion As Decimal = DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {IndexSeccionAlmacen}").SUMD("CantidadSeccionAlmacen")
+    '    GvSeccion.DataSource = DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {IndexSeccionAlmacen}")
+    '    GvSeccion.DataBind()
+
+    '    TxtCantidadSeccion.Text = ""
+    '    DdlSeccionAlmacen.SelectedIndex = 0
+    '    Dim CantidadRestante As Decimal = CantidadTotal - CantidadTotalSeccion
+    '    If CantidadRestante = 0 Then
+    '        RVTxtCantidad.MaximumValue = "1"
+    '        TxtCantidadSeccion.Enabled = False
+    '    Else
+    '        RVTxtCantidad.MaximumValue = CantidadRestante.ToString()
+    '        TxtCantidadSeccion.Enabled = True
+    '    End If
+
+    '    If CantidadTotalSeccion > 0 Then
+    '        GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").Enabled = False
+    '        GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").ToolTip = "Cuenta con sección almacen"
+
+    '    Else
+    '        GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").Enabled = True
+    '        GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").ToolTip = ""
+
+    '    End If
+
+    '    If DtSeccionAlmacen.SUMD("CantidadSeccionAlmacen") > 0 Then
+    '        DdlAlmacen.Enabled = False
+    '        DdlAlmacen.ToolTip = "Cuenta con sección almacen"
+    '    Else
+    '        DdlAlmacen.Enabled = True
+    '        DdlAlmacen.ToolTip = ""
+    '    End If
+
+    '    UpModalSeccionAlmacen.Update()
+    '    UpDatos.Update()
+    '    UpGenerales.Update()
+    'End Sub
+
+    'Protected Sub LnkAddSeccionAlmacen_Click(sender As Object, e As EventArgs)
+
+    '    Dim ObjInv As New ClsInventarios
+    '    Dim CantidadDisponible As Decimal = 0
+    '    If ObjInv.GetMovimientosDetalleSeccionesAlmacen(DdlSeccionAlmacen.SelectedValue.ToEntero(), DdlAlmacen.SelectedValue.ToEntero(),
+    '                                                    CvePS, UsuarioActual.CveEmpresa) Then
+    '        If ObjInv.DtResultados.Rows.Count > 0 Then
+    '            CantidadDisponible = ObjInv.DtResultados.Rows(0)("CantidadRestante").ToString().ToDecimal
+    '        End If
+    '    End If
+    '    ObjInv.Dispose()
+
+    '    CantidadDisponible -= DtSeccionAlmacen.FiltraParametros($"CvePS = {CvePS} AND CveSeccionAlmacen = {DdlSeccionAlmacen.SelectedValue}").SUMD("CantidadSeccionAlmacen")
+
+    '    If TxtCantidadSeccion.Text.ToDecimal > CantidadDisponible Then
+    '        Alert($"No tiene cantidad de producto suficiente en esta seccion de almacen, su cantidad restante es: <b>{CantidadDisponible}</b>", TipoMensaje.MsgAdvertencia)
+    '        Exit Sub
+    '    End If
+
+    '    Dim Row As DataRow = Nothing
+    '    DtSeccionAlmacen.AcceptChanges()
+    '    Row = DtSeccionAlmacen.NewRow
+    '    Row("CantidadSeccionAlmacen") = TxtCantidadSeccion.Text.ToDecimal
+    '    Row("IndexSeccionAlmacen") = IndexSeccionAlmacen
+    '    Row("CveSeccionAlmacen") = DdlSeccionAlmacen.SelectedValue.ToEntero()
+    '    Row("SeccionAlmacen") = DdlSeccionAlmacen.SelectedItem.Text
+    '    Row("CvePS") = CvePS
+    '    Row("Consec") = DtSeccionAlmacen.Rows.Count + 1
+    '    DtSeccionAlmacen.Rows.Add(Row)
+    '    DtSeccionAlmacen.AcceptChanges()
+    '    CargaSeccionAlmacen()
+    'End Sub
+
+    'Protected Sub LnkEliminarSeccion_Click(sender As Object, e As EventArgs)
+    '    Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+    '    Dim Index As Integer = 0
+    '    For Each Dr As DataRow In DtSeccionAlmacen.Rows
+    '        If Dr("Consec").ToString().ToEntero() = gvRow.DataKey("Consec").ToEntero() Then
+    '            Exit For
+    '        End If
+    '        Index += 1
+    '    Next
+    '    DtSeccionAlmacen.Rows.RemoveAt(Index)
+    '    DtSeccionAlmacen.AcceptChanges()
+    '    CargaSeccionAlmacen()
+    'End Sub
+
+    'Protected Sub LnkVerSecciones_Click(sender As Object, e As EventArgs)
+    '    If Not CveVentaSurtir > 0 Then
+    '        Alert("Tiene que seleccionar la venta a surtir", TipoMensaje.MsgAdvertencia)
+    '        Exit Sub
+    '    End If
+
+    '    If Not DdlAlmacen.SelectedValue.ToEntero() > 0 Then
+    '        Alert("Tiene que seleccionar el almacen", TipoMensaje.MsgAdvertencia)
+    '        Exit Sub
+    '    End If
+
+    '    Dim ObjInv As New ClsInventarios
+    '    If ObjInv.GetExistenciaSeccionAlmacen(CveVentaSurtir, DdlAlmacen.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
+    '        GvVerSeccionesAlmacen.DataSource = ObjInv.DtResultados
+    '    End If
+    '    ObjInv.Dispose()
+    '    GvVerSeccionesAlmacen.DataBind()
+    '    UpVerSeccionesAlmacen.Update()
+    '    RegistraScript("$('#ModalVerSeccionesAlmacen').modal()")
+    'End Sub
+
 #End Region
-
+
 #Region "DIVIDIR"
-
+
     Protected Sub Dividir(sender As Object, e As EventArgs)
         Dim index2 As Integer = 0
 
@@ -3537,7 +3548,7 @@ Partial Class Inventarios_EntregaAlmacen
                 Row("Lote") = GvDatos.Rows(index2).FCTextBox("TxtLote").Text
             End If
             If GvDatos.Rows(index2).FCDropDownList("DdlSeccionAlmacen").SelectedValue <> "-1" Then
-                Row("CveSeccion") = GvDatos.Rows(index2).FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero
+                Row("CveSeccion") = GvDatos.Rows(index2).FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero()
             End If
             If GvDatos.Rows(index2).FCTextBox("TxtCaducidad").Text <> "" Then
                 Row("FechaCaducidad") = GvDatos.Rows(index2).FCTextBox("TxtCaducidad").Text.ToDate
@@ -3552,29 +3563,29 @@ Partial Class Inventarios_EntregaAlmacen
         Dim dr1 As DataRow = DtDatos.Rows(Index)
         Dim dr As DataRow = DtDatos.NewRow
         dr.ItemArray = dr1.ItemArray
-        dr1("CantidadC") = (dr1("CantidadC").ToString.ToDouble - Cantidad.ToDouble)
-        Dim CantidadFOriginal As Double = dr1("CantidadF").ToString.ToDouble
-        dr1("CantidadF") = (dr1("CantidadF").ToString.ToDouble - Cantidad.ToDouble)
-        Dim CantidadSOriginal As Double = dr1("CantidadS").ToString.ToDouble
-        dr1("CantidadS") = (CantidadSOriginal * dr1("CantidadF").ToString.ToDouble) / CantidadFOriginal
-        Dim CantidadSeleccionadaOriginal As Double = dr1("CantidadSeleccionada").ToString.ToDouble
-        dr1("CantidadSeleccionada") = If(CantidadSeleccionadaOriginal > dr1("CantidadF").ToString.ToDouble, dr1("CantidadF").ToString.ToDouble, CantidadSeleccionadaOriginal)
-        CantidadSeleccionadaOriginal = CantidadSeleccionadaOriginal - dr1("CantidadF").ToString.ToDouble
+        dr1("CantidadC") = (dr1("CantidadC").ToString().ToDouble - Cantidad.ToDouble)
+        Dim CantidadFOriginal As Double = dr1("CantidadF").ToString().ToDouble
+        dr1("CantidadF") = (dr1("CantidadF").ToString().ToDouble - Cantidad.ToDouble)
+        Dim CantidadSOriginal As Double = dr1("CantidadS").ToString().ToDouble
+        dr1("CantidadS") = (CantidadSOriginal * dr1("CantidadF").ToString().ToDouble) / CantidadFOriginal
+        Dim CantidadSeleccionadaOriginal As Double = dr1("CantidadSeleccionada").ToString().ToDouble
+        dr1("CantidadSeleccionada") = If(CantidadSeleccionadaOriginal > dr1("CantidadF").ToString().ToDouble, dr1("CantidadF").ToString().ToDouble, CantidadSeleccionadaOriginal)
+        CantidadSeleccionadaOriginal = CantidadSeleccionadaOriginal - dr1("CantidadF").ToString().ToDouble
 
-        'Dim CostoIndirectoOriginal As Double = dr1("CostoIndirecto").ToString.ToDouble
-        'dr1("CostoIndirecto") = (CostoIndirectoOriginal * dr1("CantidadF").ToString.ToDouble) / CantidadFOriginal
-        'Dim CostoIndirectoExtranjeroOriginal As Double = dr1("CostoIndirectoExtranjero").ToString.ToDouble
-        'dr1("CostoIndirectoExtranjero") = (CostoIndirectoExtranjeroOriginal * dr1("CantidadF").ToString.ToDouble) / CantidadFOriginal
+        'Dim CostoIndirectoOriginal As Double = dr1("CostoIndirecto").ToString().ToDouble
+        'dr1("CostoIndirecto") = (CostoIndirectoOriginal * dr1("CantidadF").ToString().ToDouble) / CantidadFOriginal
+        'Dim CostoIndirectoExtranjeroOriginal As Double = dr1("CostoIndirectoExtranjero").ToString().ToDouble
+        'dr1("CostoIndirectoExtranjero") = (CostoIndirectoExtranjeroOriginal * dr1("CantidadF").ToString().ToDouble) / CantidadFOriginal
 
         DtDatos.AcceptChanges()
 
         dr("CantidadC") = Cantidad.ToDouble
         dr("CantidadF") = Cantidad.ToDouble
-        dr("CantidadS") = (CantidadSOriginal * dr("CantidadF").ToString.ToDouble) / CantidadFOriginal
+        dr("CantidadS") = (CantidadSOriginal * dr("CantidadF").ToString().ToDouble) / CantidadFOriginal
         dr("CantidadSeleccionada") = If(CantidadSeleccionadaOriginal > 0, CantidadSeleccionadaOriginal, 0)
         dr("Seleccionado") = If(CantidadSeleccionadaOriginal > 0, True, False)
-        'dr("CostoIndirecto") = (CostoIndirectoOriginal * dr("CantidadF").ToString.ToDouble) / CantidadFOriginal
-        'dr("CostoIndirectoExtranjero") = (CostoIndirectoExtranjeroOriginal * dr("CantidadF").ToString.ToDouble) / CantidadFOriginal
+        'dr("CostoIndirecto") = (CostoIndirectoOriginal * dr("CantidadF").ToString().ToDouble) / CantidadFOriginal
+        'dr("CostoIndirectoExtranjero") = (CostoIndirectoExtranjeroOriginal * dr("CantidadF").ToString().ToDouble) / CantidadFOriginal
         DtDatos.Rows.InsertAt(dr, Index)
         DtDatos.AcceptChanges()
 
@@ -3590,26 +3601,26 @@ Partial Class Inventarios_EntregaAlmacen
         index2 = 0
         For Each Row As DataRow In DtDatos.Rows
             GvDatos.Rows(index2).FCCheckBox("cbInv").Checked = CBool(Row("Seleccionado"))
-            If Row("CantidadSeleccionada").ToString <> "" Then
-                GvDatos.Rows(index2).FCTextBox("TbCantidadF").Text = Row("CantidadSeleccionada").ToString
+            If Row("CantidadSeleccionada").ToString() <> "" Then
+                GvDatos.Rows(index2).FCTextBox("TbCantidadF").Text = Row("CantidadSeleccionada").ToString()
             End If
-            If Row("Lote").ToString <> "" Then
-                GvDatos.Rows(index2).FCTextBox("TxtLote").Text = Row("Lote").ToString
+            If Row("Lote").ToString() <> "" Then
+                GvDatos.Rows(index2).FCTextBox("TxtLote").Text = Row("Lote").ToString()
             End If
-            If Row("CveSeccion").ToString <> "" Then
-                GvDatos.Rows(index2).FCDropDownList("DdlSeccionAlmacen").SelectedValue = Row("CveSeccion").ToString
+            If Row("CveSeccion").ToString() <> "" Then
+                GvDatos.Rows(index2).FCDropDownList("DdlSeccionAlmacen").SelectedValue = Row("CveSeccion").ToString()
             End If
-            If Row("FechaCaducidad").ToString <> "" Then
-                GvDatos.Rows(index2).FCTextBox("TxtCaducidad").Text = Row("FechaCaducidad").ToString.ToDate.ToShortDateString
+            If Row("FechaCaducidad").ToString() <> "" Then
+                GvDatos.Rows(index2).FCTextBox("TxtCaducidad").Text = Row("FechaCaducidad").ToString().ToDate.ToShortDateString
             End If
             index2 += 1
         Next
 
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
+
 #Region " GUIAS - SABE QUE ES PORQUE NO VEO QUE SE UTILIZE EN ALGUNA PARTE - EN MIRAS DE ELIMINAR - IPP 24 AGOSTO 2017  "
     Private Sub BtnNumeroGuia_Click(sender As Object, e As EventArgs) Handles BtnNumeroGuia.Click
         Dim Objeto As New ClsInventarios
@@ -3624,7 +3635,7 @@ Partial Class Inventarios_EntregaAlmacen
         If e.Row.RowType = DataControlRowType.DataRow Then
 
             Dim ImgDownLoad As Literal = e.Row.FCLiteral("HplDown")
-            Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString
+            Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString()
             Dim ArchivoRuta As String = ""
 
             If Adjunto.Trim.Length > 0 Then
@@ -3643,24 +3654,24 @@ Partial Class Inventarios_EntregaAlmacen
 
         End If
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "SUGERENCIAS"
-
+
     Protected Sub BtnVerSugerencias_Click(sender As Object, e As EventArgs)
         If Not CveVentaSurtir > 0 Then
             Alert("Tiene que seleccionar la venta a surtir", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
 
-        If Not DdlAlmacen.SelectedValue.ToEntero > 0 Then
+        If Not DdlAlmacen.SelectedValue.ToEntero() > 0 Then
             Alert("Tiene que seleccionar el almacen", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
 
         Dim ObjInv As New ClsInventarios
-        If ObjInv.GetSugerenciasSalidaAlmacen(CveVentaSurtir, DdlAlmacen.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        If ObjInv.GetSugerenciasSalidaAlmacen(CveVentaSurtir, DdlAlmacen.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
             GvSugerencias.DataSource = ObjInv.DtResultados
 
 
diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx
index 48b08eb61..08c2ac128 100644
--- a/Inventarios/Kardex.aspx
+++ b/Inventarios/Kardex.aspx
@@ -565,8 +565,10 @@
                                         DataKeyNames="Almacen,Cantidad,FechaCaducidad">
                                         <Columns>
                                             <asp:BoundField HeaderText="Almacén" DataField="Almacen"/>
-                                            <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:n2}" ItemStyle-HorizontalAlign="Right"/>
-                                            <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" DataFormatString="{0:dd/MM/yyyy}"/>
+                                            <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,###.##}"  ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Right"/>
+                                            <asp:BoundField HeaderText="Serie" DataField="Serie"  ItemStyle-Width="125px"/>
+                                            <asp:BoundField HeaderText="Lote" DataField="Lote"  ItemStyle-Width="125px"/>
+                                            <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="100px"/>
                                         </Columns>
 
                                     </asp:GridView>
diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb
index 9288bac7a..b71e1cd59 100644
--- a/Inventarios/Kardex.aspx.vb
+++ b/Inventarios/Kardex.aspx.vb
@@ -207,8 +207,14 @@ Partial Class Inventarios_Kardex
                 If AplicaLote Then GvM.Columns(10).Visible = True
                 If AplicaCaducidad Then GvM.Columns(11).Visible = True
 
-                Dim AuxAplicaSerie As Boolean = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveProducto).FiltroPrimeroValor("AplicaSerie") = "True"
-                Dim AuxAplicaCad As Boolean = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveProducto).FiltroPrimeroValor("AplicaCaducidad") = "True"
+                Dim Drp As datarow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveProducto).FiltroPrimero("")
+                Dim AuxAplicaSerie As Boolean
+                Dim AuxAplicaCad As Boolean
+                If Drp IsNot Nothing Then
+                    AuxAplicaSerie = Drp("AplicaSerie").ToString = "True"
+                    AuxAplicaCad = Drp("AplicaCaducidad").ToString = "True"
+                End If
+
                 LnkSeries.Visible = AuxAplicaSerie
                 LnkCaducidad.Visible = AuxAplicaCad
                 'CARGA INDICADORES
@@ -338,9 +344,15 @@ Partial Class Inventarios_Kardex
         Dim ObjInventarios As New ClsInventarios
         If ObjInventarios.GetExistenciasCaducidad(ddlProducto2.SelectedValue.ToEntero(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, almacenes) Then
             GvProductoCaducidad.DataSource = ObjInventarios.DtResultados
+            GvProductoCaducidad.columns(2).visible = ObjInventarios.DtResultados.max("Serie") <> ""
+            GvProductoCaducidad.columns(3).visible = ObjInventarios.DtResultados.max("Lote") <> ""
+            GvProductoCaducidad.columns(4).visible = ObjInventarios.DtResultados.max("FechaCaducidad").todate > minfecha
         End If
         ObjInventarios.Dispose()
         GvProductoCaducidad.DataBind()
+
+
+
     End Sub
 #End Region
 
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx
index 5a7f0a38e..7fb7347b2 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx
+++ b/Inventarios/KardexAlmacenHorizontal.aspx
@@ -200,6 +200,7 @@
                         <asp:Label runat="server" ID="LblProyectado" Text="Incluir Proyectados" class="col-md-1 truncate" />
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlProyeccionFiltro" runat="server" CssClass="select2me" Width="100%" >
+                                 <asp:ListItem Text="Todos (Entradas/Salidas)" Value="3" />
                                  <asp:ListItem Text="Entradas" Value="1" />
                                  <asp:ListItem Text="Salidas" Value="2" />
                                 <asp:ListItem Text="No" Value="0" Selected="True"  />
@@ -273,7 +274,7 @@
                     <div class="modal-body">
                         <div class="row" style="width: 100%; text-align: center">
                             <asp:Label runat="server" ID="LblProyeccionOpcion" />
-                            <asp:RadioButtonList ID="RblProyeccionOpcion" runat="server" RepeatDirection="Horizontal" Width="50%" Style="margin: 0 25% 0 25%">
+                            <asp:RadioButtonList ID="RblProyeccionOpcion" runat="server" RepeatDirection="Horizontal" Width="50%" Style="margin: 0 25% 0 25%">                              
                                 <asp:ListItem Text="Entrada" Value="1" Selected="True" />
                                 <asp:ListItem Text="Salida" Value="2" />
                             </asp:RadioButtonList>
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb
index 9179c58de..bf8ebd251 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -396,9 +396,7 @@ Partial Class Inventarios_KardexAlmacen
         Dim ObjInventarios As New ClsInventarios
         ObjInventarios.IniciaTransacSQL()
 
-        Dim TipoMovot As Integer = If(RblProyeccionOpcion.SelectedValue = "1", 0, 1)
-
-        If ObjInventarios.DeleteMovimientosProyectados(TipoMovot) Then
+        If ObjInventarios.DeleteMovimientosProyectados(RblProyeccionOpcion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
             Dim DtProductosEmpresas As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
             For Each dtRow As DataRow In dt.Rows
                 Dim Codigo As String = dtRow("Código").ToString
diff --git a/Inventarios/RecepcionAlmacen.aspx b/Inventarios/RecepcionAlmacen.aspx
index 592ecfc4d..a2eaed135 100644
--- a/Inventarios/RecepcionAlmacen.aspx
+++ b/Inventarios/RecepcionAlmacen.aspx
@@ -478,13 +478,13 @@
                             </asp:TemplateField>
                             <asp:TemplateField HeaderText="Lote" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="7.5%" Visible="false">
                                 <ItemTemplate>
-                                    <asp:TextBox ID="TxtLote" CssClass="form-control" runat="server"  Visible="false"></asp:TextBox>
+                                    <asp:TextBox ID="TxtLote" Width="80px" class="form-control input-sm" runat="server"  Visible="false"></asp:TextBox>
                                 </ItemTemplate>
                             </asp:TemplateField>
                             <asp:TemplateField HeaderText="Caducidad" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" Visible="false">
                                 <ItemTemplate>
                                     <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
-                                        <asp:TextBox ID="TxtCaducidad" CssClass="form-control input-sm ADSMaskDate" Style="width: 118px" runat="server" Visible="false"></asp:TextBox>
+                                        <asp:TextBox ID="TxtCaducidad" CssClass="form-control input-sm ADSMaskDate" Style="width: 80px" runat="server" Visible="false"></asp:TextBox>
                                         <span class="input-group-btn ">
                                             <asp:LinkButton runat="server" ID="LnkCaducidad" class="btn default" Visible="false"> <i class="fa fa-calendar"></i>  </asp:LinkButton>
                                         </span>
diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 9fd39a024..1365777f6 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -3002,8 +3002,8 @@ Partial Class Inventarios_RecepcionAlmacen
 
                                             'si es el último movimiento verifica los importes que sean igual
                                             If cont = DtCostos.Rows.Count AndAlso (Math.Round(TotalCosto, 2) <> Math.Round(TotalCostoAcumulado, 2)) Then
-                                                TotalCostoDetalle = TotalCostoDetalle + (Math.Round(TotalCosto, 2) - Math.Round(TotalCostoAcumulado, 2))
-                                                TotalCostoExtranjero = TotalCostoExtranjero + (Math.Round(TotalCosto, 2) - Math.Round(TotalCostoAcumulado, 2))
+                                                TotalCostoDetalle = TotalCostoDetalle + (Math.Round(TotalCosto, 3) - Math.Round(TotalCostoAcumulado, 3))
+                                                TotalCostoExtranjero = TotalCostoExtranjero + (Math.Round(TotalCosto, 3) - Math.Round(TotalCostoAcumulado, 3))
                                             End If
 
                                             If CveMoneda <> 1 AndAlso UsaComplementariaFleteImportaciones Then
diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb
index 95c54e78b..4cf3c681a 100644
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -1152,7 +1152,7 @@ Partial Class Inventarios_RecepcionUsados
                         If Not ErrorMovInv Then
 
 
-                            Msg.AppendFormat("<br/>El Movimiento se registro con el Folio: <b><a href='Inventarios/EntradasSalidas.aspx?CveMovimiento={1}'>{0}</a></b>", ObjInventario.Folio, CveMovimiento)
+                            Msg.AppendFormat("<br/>El Movimiento se registro con el Folio: <b><a href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}'>{0}</a></b>", ObjInventario.Folio, CveMovimiento)
                             Msg.AppendFormat("<br/><br/> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento)))
 
                             If IDPoliza > 0 Then Msg = Msg.AppendFormat("<br/><br/> <a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IDPoliza)
diff --git a/Inventarios/RepProductosPorCaducar.aspx b/Inventarios/RepProductosPorCaducar.aspx
index 14b1fe232..d28e11241 100644
--- a/Inventarios/RepProductosPorCaducar.aspx
+++ b/Inventarios/RepProductosPorCaducar.aspx
@@ -40,7 +40,7 @@
                             <div class="col-sm-1" style="text-align:right">
                                 <label>Proveedor:</label>
                             </div>
-                            <div class="col-md-1">
+                            <div class="col-sm-2">
                                 <ADS:Dropdownlost ID="DdlProveedor" runat="server" DataValueField="CveProveedor" DataTextField="RazonSocial" CssClassDdl="select2me" Width="100%" CssStyle="width: 100%;"></ADS:Dropdownlost>
                             </div>
                             <div class="col-sm-1" style="text-align:right">
@@ -72,19 +72,28 @@
                             <div class="col-sm-1" style="text-align:right">
                                 <label>Sucursal:</label>
                             </div>
-                            <div class="col-md-1">
+                            <div class="col-sm-1">
                                 <asp:DropDownList runat="server" ID="DdlSucursal" CssClass="select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto"></asp:DropDownList>
                             </div>
-                            <div class="col-sm-1" style="text-align:right">
+                           
+                        </div>
+                    
+                </div>
+                       
+               
+            </div>
+                  <div class="portlet-body" style="display: none;">
+                    <div class="row">
+                        <div class="col-sm-1" style="text-align:right">
                                 <label>Clasificación:</label>
                             </div>
                             <div class="col-md-1">
-                                <asp:DropDownList runat="server" ID="DdlClasificacion" CssClass="select2me" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%"/>
+                                <asp:DropDownList runat="server" ID="DdlClasificacion" CssClass="select2me" DataTextField="Clasificacion" DataValueField="CveClasificacion"  Width="100%" CssStyle="width: 100%;"/>
                             </div>
-                        </div>
                     </div>
-                </div>
-            </div>
+                    </div>
+
+        </div>
         </ContentTemplate>
     </asp:UpdatePanel>
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
diff --git a/Metronic/assets/admin/layout/css/custom.css b/Metronic/assets/admin/layout/css/custom.css
index 9dcbcfc51..2e6fb7957 100644
--- a/Metronic/assets/admin/layout/css/custom.css
+++ b/Metronic/assets/admin/layout/css/custom.css
@@ -1,6 +1,15 @@
 /* here you can put your own css to customize and override the theme */
 
 /* establezco el color de fondo de total,  sin importar que este en un renglon alternativo */
+@media (max-width: 768px) {
+
+
+    .ContentPlaceHolderc {
+        max-width: 100%;
+        overflow-x: auto !important;
+    }
+}
+
 .table-striped > tbody > tr:nth-of-type(odd).ADSRow,
 table > tbody > tr.ADSRow > td, table.table > tbody > tr.ADSRow > td,
 table > tr.ADSRow > td, table.table > tr.ADSRow > td,
@@ -49,7 +58,7 @@ table > tr > th.adsCol, table.table > tr > th.adsCol {
 
 .AdsBody .ADSCroll::-webkit-scrollbar {
     width: 8px;
-    height:10px;
+    height: 10px;
     background-color: #F5F5F5;
 }
 
@@ -58,7 +67,7 @@ table > tr > th.adsCol, table.table > tr > th.adsCol {
     background-color: #AAA;
     border-radius: 4px;
     background-color: #F5F5F5;
-    -webkit-box-shadow: inset 0 0 6px rgba(0,0,0,0.5); 
+    -webkit-box-shadow: inset 0 0 6px rgba(0,0,0,0.5);
 }
 
 .line-Lite .form-group.form-md-line-input .form-control {
@@ -440,7 +449,7 @@ input[type="hidden"] {
     }
 /*end tabwizard*/
 
-/*tab wizard2*/ 
+/*tab wizard2*/
 .tab-wizard2 {
     text-align: center;
     counter-reset: section;
@@ -467,28 +476,29 @@ input[type="hidden"] {
         position: relative;
         display: block;
         padding: 10px 15px;
-        text-align:center;
+        text-align: center;
     }
 
         .tab-wizard2 .ajax__tab_outer a.ajax__tab_tab > span::before {
             content: ' ';
             display: block;
         }
-    .tab-wizard2  .ajax__tab_outer a.ajax__tab_tab::before {
-        background-color: #eee;
-        text-align: center !important;
-        padding: 13px 15px 11px;
-        height: 45px;
-        width: 45px;
-        -webkit-border-radius: 50% !important;
-        -moz-border-radius: 50% !important;
-        border-radius: 50% !important;
-        counter-increment: section;
-        content: ' 'counter(section);
-        display: inline-block; 
-        position: relative;
-        margin-right:4px;
-    }
+
+        .tab-wizard2 .ajax__tab_outer a.ajax__tab_tab::before {
+            background-color: #eee;
+            text-align: center !important;
+            padding: 13px 15px 11px;
+            height: 45px;
+            width: 45px;
+            -webkit-border-radius: 50% !important;
+            -moz-border-radius: 50% !important;
+            border-radius: 50% !important;
+            counter-increment: section;
+            content: ' 'counter(section);
+            display: inline-block;
+            position: relative;
+            margin-right: 4px;
+        }
 
     .tab-wizard2 .ajax__tab_active .ajax__tab_outer a.ajax__tab_tab::before {
         background-color: rgb(54, 198, 211);
@@ -506,7 +516,7 @@ input[type="hidden"] {
 
     .tab-wizard2 .progress-striped .progress-bar {
         background-image: linear-gradient(45deg,rgba(255,255,255,.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,.15) 50%,rgba(255,255,255,.15) 75%,transparent 75%,transparent);
-    } 
+    }
 /*end tabwizard2*/
 
 
@@ -728,11 +738,12 @@ div.ADScroller {
     line-height: .5 !important;
 }
 
-div:not(.ADScroller-header)>table tbody .trnopadding.ADtr {
+div:not(.ADScroller-header) > table tbody .trnopadding.ADtr {
     visibility: hidden;
 }
-.ADScroller-header>table tbody .trnopadding.ADtr td{
-    background-color :#ddd;
+
+.ADScroller-header > table tbody .trnopadding.ADtr td {
+    background-color: #ddd;
 }
 
 div.ADScroller-header {
@@ -2661,6 +2672,7 @@ select.select2-offscreen, select.select2-offscreen:focus {
     font-size: 20px;
     margin-top: 15px;
 }
+
 .addropzone.dz-clickable:after {
     position: absolute;
     content: "o presione doble click";
@@ -2925,9 +2937,9 @@ select.select2-offscreen, select.select2-offscreen:focus {
     margin-right: 0px;
 }
 
-.select2 .select2-selection__rendered{
-    line-height:1;
-    color:#111;
+.select2 .select2-selection__rendered {
+    line-height: 1;
+    color: #111;
 }
 
 .select2 .select2-selection--multiple {
@@ -2951,18 +2963,21 @@ select.select2-offscreen, select.select2-offscreen:focus {
 
 .btn-consultar {
     background: #444;
-    color:#fff
-}
-.btn-consultar:hover {
-    background: #2f353b;
     color: #fff
 }
+
+    .btn-consultar:hover {
+        background: #2f353b;
+        color: #fff
+    }
+
 .ADScroller > div > table.table.table-smallpadding > tbody > tr > td:nth-last-child(1) a, table.ScrollAD.table.table-smallpadding > tbody > tr > td:nth-last-child(1) a,
 .ADScroller > div > table.table.table-smallpadding > tbody > tr > th:nth-last-child(1) a, table.ScrollAD.table.table-smallpadding > tbody > tr > th:nth-last-child(1) a,
 .ADScroller > div > table.table.table-smallpadding > tbody > tr > td:nth-last-child(1) span, table.ScrollAD.table.table-smallpadding > tbody > tr > td:nth-last-child(1) span,
-.ADScroller > div > table.table.table-smallpadding > tbody > tr > th:nth-last-child(1) span, table.ScrollAD.table.table-smallpadding > tbody > tr > th:nth-last-child(1) span{
+.ADScroller > div > table.table.table-smallpadding > tbody > tr > th:nth-last-child(1) span, table.ScrollAD.table.table-smallpadding > tbody > tr > th:nth-last-child(1) span {
     padding-right: 7px;
 }
+
 div.mypaste * {
     display: none;
-}
\ No newline at end of file
+}
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index c3f0f3fb2..789b05bfb 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -1239,7 +1239,7 @@ Partial Class ProductosyServicios
                     Next
                 End If
                 If UsuarioActual.CveEmpresa = 141 Then
-                    TieneError = GuardarProductoEnFranquicia(ObjProductosServicios, PSS, CveMetodoInv, EsPaquete, CveMarca, True)
+                    TieneError = GuardarProductoEnFranquicia(ObjProductosServicios, PSS, CveMetodoInv, EsPaquete, True)
                 End If
 
             Else
@@ -1305,7 +1305,7 @@ Partial Class ProductosyServicios
                 End If
 
                 If UsuarioActual.CveEmpresa = 141 Then
-                    TieneError = GuardarProductoEnFranquicia(ObjProductosServicios, PSS, CveMetodoInv, EsPaquete, CveMarca, False)
+                    TieneError = GuardarProductoEnFranquicia(ObjProductosServicios, PSS, CveMetodoInv, EsPaquete, False)
                 End If
 
             Else
@@ -1638,11 +1638,15 @@ Partial Class ProductosyServicios
         If CvePSAdicional < 0 Then
             If Not ObjProductosServicios.AddPSAdicionales(CvePS, DdlPSAdicional.SelectedValue.ToEntero, If(TxtCantidadPSAdicional.Visible, TxtCantidadPSAdicional.Text.ToDecimal, 0)) Then
                 TieneError = True
+            Else
+                TieneError = GuardarProductosEquivalenteEnFranquicia(ObjProductosServicios, True)
             End If
         Else
 
             If Not ObjProductosServicios.UpdatePSAdicionales(CvePS, DdlPSAdicional.SelectedValue.ToEntero, CvePSAdicional, If(TxtCantidadPSAdicional.Visible, TxtCantidadPSAdicional.Text.ToDecimal, 0)) Then
                 TieneError = True
+            Else
+                TieneError = GuardarProductosEquivalenteEnFranquicia(ObjProductosServicios, False)
             End If
 
         End If
@@ -2758,19 +2762,61 @@ Partial Class ProductosyServicios
         RfvTxtTiempoCaducidad.Enabled = Activar
     End Sub
 
-    Private Function GuardarProductoEnFranquicia(ObjPS As ClsProductosServicios, PSS As String, CveMetodoInv As Integer, EsPaquete As Integer, CveMarca As Integer, Agregar As Boolean) As Boolean
+    Private Function GuardarProductoEnFranquicia(ObjPS As ClsProductosServicios, PSS As String, CveMetodoInv As Integer, EsPaquete As Integer, Agregar As Boolean) As Boolean
         Dim EmpresasFranquicia = New Integer() {152}
         For Each Franquicia As Integer In EmpresasFranquicia
+            Dim nombreEmpresa As String = GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa")
             Dim CveClasificacion As Integer = GlobalDTClasificaciones(CveEmpresa:=Franquicia).FiltroPrimeroValor("CveClasificacion", String.Format("Clasificacion = '{0}'", DdlClasificacion.SelectedItem.Text)).ToEntero
             Dim CveUnidadMedida As Integer = GlobalDTUnidadesMedida(CveEmpresa:=Franquicia).FiltroPrimeroValor("CveUnidadMedida", String.Format("UnidadMedida = '{0}'", DdlUnidadMedida.SelectedItem.Text)).ToEntero
             Dim CveClasificacion2 As Integer = GlobalDTClasificaciones(CveEmpresa:=Franquicia).FiltroPrimeroValor("CveClasificacion", String.Format("Clasificacion = '{0}'", DdlClasificacion2.SelectedItem.Text)).ToEntero
+            Dim CveTipo As Integer = GlobalDTClasificacionesDetalle(CveEmpresa:=Franquicia).FiltroPrimeroValor("CveClasificacionDetalle", String.Format("ClasificacionDetalle = '{0}'", DdlTipoPSDes.SelectedItem.Text)).ToEntero
+            Dim CveMarcaFranquicia As Integer = -1
+            If ObjPS.GetMarcas(Franquicia) Then
+                CveMarcaFranquicia = ObjPS.DtResultados.FiltroPrimeroValor("CveMarca", String.Format("Marca = '{0}'", DdlMarca.SelectedItem.Text)).ToEntero
+            End If
+            Dim CveModelo As Integer = -1
+            Dim CveMedida As Integer = -1
+            Dim CveRin As Integer = -1
+
+            Dim ObjGral As New ClsGenerales()
+            If ObjGral.GetModelos(Franquicia) Then
+                CveModelo = ObjGral.DtResultados.FiltroPrimeroValor("CveModelo", String.Format("Modelo = '{0}'", DdlModelo.SelectedItem.Text)).ToEntero
+            End If
+            If ObjGral.GetMedidas(Franquicia) Then
+                CveMedida = ObjGral.DtResultados.FiltroPrimeroValor("CveMedida", String.Format("Medida = '{0}'", DdlMedida.SelectedItem.Text)).ToEntero
+            End If
+            If ObjGral.GetRimTamanios(Franquicia) Then
+                CveRin = ObjGral.DtResultados.FiltroPrimeroValor("CveRinTamaño", String.Format("RinTamaño = '{0}'", DdlRin.SelectedItem.Text)).ToEntero
+            End If
+
+            ObjGral.Dispose()
 
             If CveClasificacion <= 0 Then
-                Alert(String.Format("La clasificación indicada no existe en la franquicia: '{0}'", GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia)
+                Alert(String.Format("La clasificación indicada no existe en la franquicia: '{0}'", nombreEmpresa), TipoMensaje.MsgAdvertencia)
                 Return True
             End If
             If CveUnidadMedida <= 0 Then
-                Alert(String.Format("La unidad de medida indicada no existe en la franquicia: '{0}'", GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia)
+                Alert(String.Format("La unidad de medida indicada no existe en la franquicia: '{0}'", nombreEmpresa), TipoMensaje.MsgAdvertencia)
+                Return True
+            End If
+            If CveTipo <= 0 And DdlTipoPSDes.SelectedValue.ToEntero <> -1 Then
+                Alert(String.Format("El tipo de producto indicado no existe en la franquicia: '{0}'", nombreEmpresa), TipoMensaje.MsgAdvertencia)
+                Return True
+            End If
+            If CveMarcaFranquicia <= 0 And DdlMarca.SelectedValue.ToEntero <> -1 Then
+                Alert(String.Format("La marca indicada no existe en la franquicia: '{0}'", nombreEmpresa), TipoMensaje.MsgAdvertencia)
+                Return True
+            End If
+            If CveModelo <= 0 And DdlModelo.SelectedValue.ToEntero <> -1 Then
+                Alert(String.Format("El modelo indicado no existe en la franquicia: '{0}'", nombreEmpresa), TipoMensaje.MsgAdvertencia)
+                Return True
+            End If
+            If CveMedida <= 0 And DdlMedida.SelectedValue.ToEntero <> -1 Then
+                Alert(String.Format("La medida indicada no existe en la franquicia: '{0}'", nombreEmpresa), TipoMensaje.MsgAdvertencia)
+                Return True
+            End If
+            If CveRin <= 0 And DdlRin.SelectedValue.ToEntero <> -1 Then
+                Alert(String.Format("El rin indicado no existe en la franquicia: '{0}'", nombreEmpresa), TipoMensaje.MsgAdvertencia)
                 Return True
             End If
 
@@ -2778,12 +2824,12 @@ Partial Class ProductosyServicios
                 If Not ObjPS.AddPS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, "", TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
                            (TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, DdlProveedor.txtValue.Value.ToEntero, True, ChkAplicaParaVenta.Checked, UsuarioActual.CveUsuario,
                            Franquicia, CveMetodoInv, EsPaquete, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, FuePorXML:=False, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2,
-                           CveMarca:=CveMarca, AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim, AplicaIEPS:=ChkAplicaIeps.Checked, IEPSPorcentaje:=DdlIEPSPorcentaje.SelectedValue.ToDecimal,
+                           CveMarca:=CveMarcaFranquicia, AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim, AplicaIEPS:=ChkAplicaIeps.Checked, IEPSPorcentaje:=DdlIEPSPorcentaje.SelectedValue.ToDecimal,
                            CveConceptoContable:=DdlConceptoRelacionado.SelectedValue.ToEntero, CveCompuesto:=DdlCompuesto.SelectedValue.ToEntero, CveSATPS:=DdlSATPS.SelectedValue.ToEntero,
                            IEPSGrabaIVA:=ChkIepsIVA.Checked, VentaMinima:=TxtVentaMinima.Text.ToDecimal, CveMoneda:=DdlMoneda.SelectedValue.ToEntero, RetISR:=(TxtRetISR.Text.Trim.ToDouble / 100),
                            PrecioMinimo:=TxtPrecioMinimo.Text.ToDecimal, CveTipoFactor:=DdlTipoFactor.SelectedValue.ToEntero, CveFraccionArancelaria:=DdlFraccionArancelaria.SelectedValue.ToEntero,
-                           CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=DdlTamanio.SelectedValue.ToEntero, CveModelo:=DdlModelo.SelectedValue.ToEntero(),
-                           CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(), ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString,
+                           CveClasificacionDetalle:=CveTipo, CveTamaño:=DdlTamanio.SelectedValue.ToEntero, CveModelo:=CveModelo,
+                           CveMedida:=CveMedida, CveRinTamaño:=CveRin, ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString,
                            ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString, ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString,
                            EsOutSourcing:=ChkEsOutSourcing.Checked, TiempoCaducidad:=TxtTiempoCaducidad.Text.ToEntero()) > 0 Then
                     'Alert(String.Format("Error al agregar el nuevo producto en la franquicia: '{0}'", GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa")))
@@ -2792,17 +2838,17 @@ Partial Class ProductosyServicios
                 End If
             Else
 
-                If ObjPS.GetPS(-1, CveClasificacion, Franquicia, Codigo:=TxtCodigo.Text.Trim.ToUpper) Then
+                If ObjPS.GetPS(-1, -1, Franquicia, Codigo:=TxtCodigo.Text.Trim.ToUpper) Then
                     Dim CvePS As Integer = ObjPS.DtResultados.FiltroPrimeroValor("CvePS").ToEntero()
                     If Not ObjPS.UpdatePS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, "", TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
                                   (TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, -1, True, ChkAplicaParaVenta.Checked, ChkEstado.Checked, UsuarioActual.CveUsuario, CvePS, CveMetodoInv,
-                                  EsPaquete, DdlSATPS.SelectedValue.ToEntero, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2, CveMarca:=CveMarca,
+                                  EsPaquete, DdlSATPS.SelectedValue.ToEntero, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2, CveMarca:=CveMarcaFranquicia,
                                   AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim, AplicaIEPS:=ChkAplicaIeps.Checked, IEPSPorcentaje:=DdlIEPSPorcentaje.SelectedValue.ToDecimal,
                                   CveConceptoContable:=DdlConceptoRelacionado.SelectedValue.ToEntero, CveCompuesto:=DdlCompuesto.SelectedValue.ToEntero, IEPSGrabaIVA:=ChkIepsIVA.Checked,
                                   VentaMinima:=TxtVentaMinima.Text.ToDecimal, CveMoneda:=DdlMoneda.SelectedValue.ToEntero, RetISR:=(TxtRetISR.Text.Trim.ToDouble / 100), PrecioMinimo:=TxtPrecioMinimo.Text.ToDecimal,
                                   CveTipoFactor:=DdlTipoFactor.SelectedValue.ToEntero, CveFraccionArancelaria:=DdlFraccionArancelaria.SelectedValue.ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario,
-                                  CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=DdlTamanio.SelectedValue.ToEntero, CveModelo:=DdlModelo.SelectedValue.ToEntero(),
-                                  CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(), ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString,
+                                  CveClasificacionDetalle:=CveTipo, CveTamaño:=DdlTamanio.SelectedValue.ToEntero, CveModelo:=CveModelo,
+                                  CveMedida:=CveMedida, CveRinTamaño:=CveRin, ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString,
                                   ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString, ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString,
                                   EsOutSourcing:=ChkEsOutSourcing.Checked, AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked,
                                   TiempoCaducidad:=TxtTiempoCaducidad.Text.ToEntero()) Then
@@ -2817,4 +2863,34 @@ Partial Class ProductosyServicios
         Next
         Return False
     End Function
+
+    Private Function GuardarProductosEquivalenteEnFranquicia(ObjPS As ClsProductosServicios, Agregar As Boolean) As Boolean
+        Dim EmpresasFranquicia = New Integer() {152}
+        For Each Franquicia As Integer In EmpresasFranquicia
+            Dim CvePSPagina As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("Codigo = '{0}'", TxtCodigo.Text.Trim)).ToEntero
+            Dim CvePSAdicional As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("PS = '{0}'", DdlPSAdicional.SelectedItem.Text)).ToEntero
+
+            If CvePSPagina <= 0 Then
+                Alert(String.Format("El producto de la página no existe en la franquicia: '{0}'", GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia)
+            End If
+
+            If CvePSPagina <= 0 Then
+                Alert(String.Format("El producto adicional no existe en la franquicia: '{0}'", GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia)
+            End If
+
+            If Agregar Then
+                If Not ObjPS.AddPSAdicionales(CvePSPagina, CvePSAdicional, If(TxtCantidadPSAdicional.Visible, TxtCantidadPSAdicional.Text.ToDecimal, 0)) Then
+                    Return True
+                End If
+            Else
+                Dim PSAnterior As String = GlobalDTPS(Franquicia).FiltroPrimeroValor("PS", String.Format("CvePS = '{0}'", CvePSAdicional))
+                Dim CvePSAnterio As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("PS = '{0}'", PSAnterior)).ToEntero
+
+                If Not ObjPS.UpdatePSAdicionales(CvePSPagina, CvePSAdicional, CvePSAnterio, If(TxtCantidadPSAdicional.Visible, TxtCantidadPSAdicional.Text.ToDecimal, 0)) Then
+                    Return True
+                End If
+            End If
+        Next
+        Return False
+    End Function
 End Class
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index d6574ea81..5ecec89aa 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -11458,7 +11458,7 @@ Partial Class Ventas
 
                                 End If
 
-                                DT = TmpDTDetalle.FiltraParametros($"CvePS <> {CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto"})
+                                DT = TmpDTDetalle.FiltraParametros($"CvePS <> {CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto", "PorcentajeIVA"})
 
                                 If DT.Rows.Count > 0 Then
                                     'Se agrega movimiento separado por la cuenta de ventas (ER)
@@ -11491,8 +11491,6 @@ Partial Class Ventas
                                             If Row2("CveClasificacion").ToString() = "19929" Then IdCtaContable = 1142
                                         End If
 
-                                        ' CveCuenta = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresosSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero()
-
                                         If importeMovimiento <> 0 Then
 
                                             If IdCtaContable <= 0 Then
@@ -11500,12 +11498,7 @@ Partial Class Ventas
                                                 idCuentaContabilizacion = 0
                                             End If
 
-                                            'If CveCuenta <= 0 Then
-                                            '    CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString() + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"))
-                                            '    CveCuentaContabilizacion = 0
-                                            'End If
-
-                                            If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContableAplicar, Concepto, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=Row2("CveSubProyecto").ToString().ToEntero(), ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, CveCuenta:=CveCuenta) Then
+                                            If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContableAplicar, Concepto, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=Row2("CveSubProyecto").ToString().ToEntero(), ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, PorcentajeImpuesto:=Row2("PorcentajeIVA").ToString().ToDecimal) Then
                                                 ErrorPrepoliza = True
                                             Else
                                                 ViewState("SeGuardoPrePoliza") = True
@@ -23894,7 +23887,7 @@ Partial Class Ventas
 
         If Math.Abs(difTmp) > 0.00D Then
             'asusto la diferencia en el último concepto
-            Dim ImporteAjustado As Decimal = DtImpuestosLocal.Rows(DtImpuestosLocal.Rows.Count - 1)("ImporteTotal").ToString().ToDecimal + Math.Abs(difTmp)
+            Dim ImporteAjustado As Decimal = DtImpuestosLocal.Rows(DtImpuestosLocal.Rows.Count - 1)("ImporteTotal").ToString().ToDecimal + difTmp
             DtImpuestosLocal.Rows(DtImpuestosLocal.Rows.Count - 1)("ImporteTotal") = ImporteAjustado
             DtImpuestosLocal.Rows(DtImpuestosLocal.Rows.Count - 1)("ImportePU") = ImporteAjustado
         End If
diff --git a/vwd.webinfo b/vwd.webinfo
index e36646dd2..821cf7887 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -126,6 +126,8 @@
     
   
     
+  
+