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

Acumuladores/EntradasUsadosResumenRep.aspx.vb

@@ -117,7 +117,7 @@ Partial Class Acumuladores_RepEntradasUsados
                 SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
                 Dim workbook As New ExcelFile()
 
-                Dim worksheet = workbook.Worksheets.Add("Sabana de ventas")
+                Dim worksheet = workbook.Worksheets.Add("DATOS")
                 worksheet.InsertDataTable(dt, New InsertDataTableOptions() With
                 {
                     .ColumnHeaders = True,
@@ -129,6 +129,10 @@ Partial Class Acumuladores_RepEntradasUsados
 
                 Dim columnCount = worksheet.CalculateMaxUsedColumns()
                 For i = 0 To columnCount
+                    'COLUMNA DE FECHA
+                    If i = 1 Then
+                        worksheet.Columns(i).Style.NumberFormat = "dd/MM/yyyy"
+                    End If
                     worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
                 Next
 

App_Code/ClsVentas.vb

@@ -5096,7 +5096,7 @@ Public Class ClsVentas
         Return Retorno
     End Function
 
-    Public Function GetVentasGarantiaPendiente(CveVenta As Integer, CveSubProyecto As Integer, Fecha As DateTime, CveEmpresa As Integer, Optional ServicioDomicilio As Boolean = False) As Boolean
+    Public Function GetVentasGarantiaPendiente(CveVenta As Integer, Fecha As DateTime, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Vta_VentasGarantiasPendienteGet", CommandType.StoredProcedure)

Inventarios/EntregaAlmacen.aspx.vb

@@ -2306,7 +2306,7 @@ Partial Class Inventarios_EntregaAlmacen
             ' COMIENZA: GARANTIAS
             If Not ErrorMovInv AndAlso TipoDocto.Contiene("Ing", "Rem") AndAlso UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso TipoMovimiento = 1 Then
 
-                Dim CveAlmacenGarantia As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 6).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
+                Dim CveAlmacenGarantia As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=6).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
                 Dim DtGarantias As DataTable = Nothing
 
                 If ObjAcumuladores.GetGarantiasDetalle(CveVentaSurtir) Then
@@ -2314,7 +2314,7 @@ Partial Class Inventarios_EntregaAlmacen
                 End If
 
                 If DtGarantias IsNot Nothing AndAlso DtGarantias.Rows.Count > 0 AndAlso CveAlmacenGarantia > 0 Then
-                    CveMovimientoGarantia = ObjInventario.AddMovimiento(CveAlmacenGarantia, 2, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, Modulo:="RE/G5")
+                    CveMovimientoGarantia = ObjInventario.AddMovimiento(CveAlmacenGarantia, 2, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, Modulo:="EA/G5")
                     FolioGarantia = ObjInventario.Folio
 
                     For Each RowGarantia As DataRow In DtGarantias.Rows
@@ -2916,7 +2916,8 @@ Partial Class Inventarios_EntregaAlmacen
                 Msg.AppendFormat("<br/><br/>Se agregó una guía de paquetería interna")
             End If
 
-            If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso TipoDocto = "Rem" Then
+            'SI NO ES GARANTIA MANDA A RECIBIR AL USADO
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso TipoDocto = "Rem" AndAlso CveMovimientoGarantia <= 0 Then
                 Msg.AppendFormat("<br/><br/>Recibir Usado: <b><a href=""/Inventarios/RecepcionUsados.aspx?CveRemision={0}"" target=""_blank"" class=""Texto"">Ir a Recepción de Usados</a></b>", CveVentaSurtir)
             End If
 

Inventarios/RecepcionUsados.aspx.vb

@@ -240,6 +240,15 @@ Partial Class Inventarios_RecepcionUsados
             ViewState("CveRemisionRecibida") = value
         End Set
     End Property
+
+    Private Property CargoRemisionDesdeURL As Boolean
+        Get
+            Return CBool(IfNull(ViewState("CargoRemisionDesdeURL"), False, CBool(ViewState("CargoRemisionDesdeURL"))))
+        End Get
+        Set(value As Boolean)
+            ViewState("CargoRemisionDesdeURL") = value
+        End Set
+    End Property
     Private Property EsDistribuidor As Boolean
         Get
             Return CBool(IfNull(ViewState("EsDistribuidor"), False, CBool(ViewState("EsDistribuidor"))))
@@ -348,6 +357,7 @@ Partial Class Inventarios_RecepcionUsados
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
+            CargoRemisionDesdeURL = False
             CargaInicial()
             CargaRemisionFromURL()
             GeneraRNCFromURL()
@@ -431,6 +441,7 @@ Partial Class Inventarios_RecepcionUsados
 
         Dim CveRemision As Integer = IfNull(Request("CveRemision"), "-1").ToString().ToEntero()
         If CveRemision > 0 Then
+            Me.CargoRemisionDesdeURL = True
             Me.CveRemisionRecibida = CveRemision
             RecibirRemision()
         End If
@@ -591,14 +602,7 @@ Partial Class Inventarios_RecepcionUsados
         DdlMoneda.DataSource = GlobalDTMonedas
         DdlMoneda.DataBind()
 
-        Dim dtt As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (22)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
+        CargaAlmacen()
-
-        'Llenar el dropdownlist de almacén
-        DdlAlmacen.DataSource = dtt
-
-        'DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        'DdlAlmacen.SelectedValue = "-1"
-        DdlAlmacen.DataBind()
 
         If IsNothing(Request("CveMovimiento")) Then
             DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
@@ -607,6 +611,33 @@ Partial Class Inventarios_RecepcionUsados
 
         CargaPS()
     End Sub
+
+    Private Sub CargaAlmacen(Optional CveSubProyecto As Integer = -1, Optional TipoAlmacen As Integer = 22)
+        DdlAlmacen.Items.Clear()
+        'Llenar el dropdownlist de almacén
+        Dim dt As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=TipoAlmacen)
+
+        If CveSubProyecto > 0 Then
+            dt = dt.FiltraParametros($"CveSubProyecto = {CveSubProyecto}")
+        End If
+
+        DdlAlmacen.DataSource = dt
+        DdlAlmacen.DataBind()
+
+        If Not DdlAlmacen.Items.Contains(New ListItem("Seleccione", "-1")) Then
+            DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        End If
+
+        If CveSubProyecto > 0 Then
+            Dim CveAlmacen As Integer = dt.FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto = {CveSubProyecto}").ToEntero()
+            If CveAlmacen > 0 Then
+                DdlAlmacen.SelectedValueExist(CveAlmacen)
+            End If
+        End If
+
+        dt.Dispose()
+
+    End Sub
     Private Sub CargaPS()
         Dim ObjAcum As New ClsAcumuladores
         Dim lista As New List(Of String)
@@ -723,6 +754,8 @@ Partial Class Inventarios_RecepcionUsados
             ObjFactura = Nothing
         End If
 
+        DivRemisionRecibida.Visible = False
+
         If ObjRemisionNC IsNot Nothing Then
             ObjRemisionNC.Dispose()
             ObjRemisionNC = Nothing
@@ -753,9 +786,7 @@ Partial Class Inventarios_RecepcionUsados
         DivRegistro.Visible = False
         DivTipoCambio.Visible = False
 
-        If Not DdlAlmacen.Items.Contains(New ListItem("Seleccione", "-1")) Then
+        CargaAlmacen()
-            DdlAlmacen.Items.Add(New ListItem("Seleccione", "-1"))
-        End If
 
         DdlAlmacen.SelectedValue = "-1"
         If Not EsConsumoInterno Then
@@ -785,6 +816,7 @@ Partial Class Inventarios_RecepcionUsados
 
         'CargaInicial()
 
+        UpGenerales.Update()
         UpRegistroTipoCambio.Update()
         UPDatos.Update()
     End Sub
@@ -1162,7 +1194,7 @@ Partial Class Inventarios_RecepcionUsados
         Guardar(True)
     End Sub
 
-    Protected Sub Guardar(Optional GenerarRNC As Boolean = False)
+    Protected Sub Guardar(Optional GenerarRNC As Boolean = False, Optional RecargarPagina As Boolean = False)
         If GvM.Rows.Count > 0 Then
             Dim Msg As New StringBuilder()
             Dim Resp As Modelos.Factura.MMensajeFactura = Nothing
@@ -1350,7 +1382,13 @@ Partial Class Inventarios_RecepcionUsados
             ObjVentas.Dispose()
 
             If Not ErrorMovInv Then
-                Alert(Msg.ToString, TipoMensaje.MsgInformacion)
+                Dim Liga As String = ""
+
+                If RecargarPagina Then
+                    Liga = "document.location.href=""/Inventarios/RecepcionUsados.aspx"";"
+                End If
+
+                Alert(Msg.ToString, TipoMensaje.MsgInformacion, JSBtnAceptar:=Liga, ShowCloseButton:=False)
             End If
 
         Else
@@ -2206,19 +2244,6 @@ Partial Class Inventarios_RecepcionUsados
     Private Sub RecibirRemision()
         DtMovimientos.Rows.Clear()
 
-        Dim DtUsados As DataTable = Nothing
-        Dim CveCliente As Integer = -1
-
-        Dim ObjVentas As New ClsVentas
-        If ObjVentas.GetVenta(CveRemisionRecibida, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
-            EsDistribuidor = CBool(ObjVentas.DtResultados.Rows(0)("EsDistribuidor").ToString())
-            CveCliente = ObjVentas.DtResultados.Rows(0)("CveCliente").ToString().ToEntero()
-
-            DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveCliente = {0}", CveCliente))
-            DdlClientes.DataBind()
-            DdlClientes.SelectedValueExist(CveCliente)
-        End If
-
         If Me.ObjFactura IsNot Nothing Then
             Me.ObjFactura.Dispose()
             Me.ObjFactura = Nothing
@@ -2226,9 +2251,53 @@ Partial Class Inventarios_RecepcionUsados
 
         Me.ObjFactura = New Modelos.Factura(UsuarioActual, CveRemisionRecibida, UsuarioActual.CveEmpresa, DirectorioServidor:=ModExtensiones.DirectorioBaseEmpresas)
 
+        If Me.ObjFactura IsNot Nothing Then
+
             TxtRemisionRecibida.Text = Me.ObjFactura.SerieFolio
             DivRemisionRecibida.Visible = True
 
+            Dim DtUsados As DataTable = Nothing
+            Dim CveCliente As Integer = -1
+
+            Dim ObjVentas As New ClsVentas
+            If ObjVentas.GetVenta(CveRemisionRecibida, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
+                EsDistribuidor = CBool(ObjVentas.DtResultados.Rows(0)("EsDistribuidor").ToString())
+                CveCliente = ObjVentas.DtResultados.Rows(0)("CveCliente").ToString().ToEntero()
+            End If
+
+            If ObjVentas.GetVentasUsadosDetalle(CveRemisionRecibida) Then
+                DtUsados = ObjVentas.DtResultados.Copy()
+            End If
+
+            Dim RecepcionValida As Boolean = True
+
+            If ObjVentas.GetVentasUsados(ObjFactura.CveVenta, ObjFactura.CveSubProyecto, ObjFactura.Fecha, UsuarioActual.CveEmpresa, ServicioDomicilio:=ObjFactura.ServicioDomicilio) Then
+                If ObjVentas.DtResultados.Rows.Count = 0 Then
+                    RecepcionValida = False
+                End If
+            End If
+            ObjVentas.Dispose()
+
+            If Not RecepcionValida Then
+                Dim Liga As String = ""
+                If CargoRemisionDesdeURL Then
+                    Liga = "document.location.href=""/Inventarios/RecepcionUsados.aspx"";"
+                End If
+
+                Alert("La recepción del usado ya se realizó", TipoMensaje.MsgAdvertencia, JSBtnAceptar:=Liga, ShowCloseButton:=False)
+                Exit Sub
+            End If
+
+            If ObjFactura.CveSubProyecto > 0 Then
+                CargaAlmacen(CveSubProyecto:=ObjFactura.CveSubProyecto)
+            End If
+
+            If CveCliente > 0 Then
+                DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveCliente = {0}", CveCliente))
+                DdlClientes.DataBind()
+                DdlClientes.SelectedValueExist(CveCliente)
+            End If
+
             'SI ES DISTRIBUIDOR VAMOS A GENERAR LA REMISION DE NOTA DE CREDITO
             If EsDistribuidor Then
                 DivCliente.Visible = True
@@ -2249,12 +2318,6 @@ Partial Class Inventarios_RecepcionUsados
                 'DivFactura.Visible = False
             End If
 
-        If ObjVentas.GetVentasUsadosDetalle(CveRemisionRecibida) Then
-            DtUsados = ObjVentas.DtResultados.Copy()
-        End If
-
-        ObjVentas.Dispose()
-
             If DtUsados IsNot Nothing Then
 
                 'DivRecepcionApartado.Visible = True
@@ -2275,6 +2338,9 @@ Partial Class Inventarios_RecepcionUsados
 
                 Next
             End If
+        Else
+            Alert("No se pudo recibir la remisión", TipoMensaje.MsgAdvertencia)
+        End If
 
         UpGenerales.Update()
     End Sub
@@ -2801,8 +2867,9 @@ Partial Class Inventarios_RecepcionUsados
             If DdlClientes.SelectedValue <> "-1" Then
                 CargaAjuste()
                 DivAjuste.Visible = True
+                DivRecepcionUsados.Visible = False
                 'Llenar el dropdownlist de almacén
-                DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 6)
+                CargaAlmacen(TipoAlmacen:=6)
                 CargarDescuento()
                 LnkAgregarUsado.Visible = False
                 UppAcciones.Update()
@@ -2812,8 +2879,9 @@ Partial Class Inventarios_RecepcionUsados
             End If
         Else
             DivAjuste.Visible = False
+            DivRecepcionUsados.Visible = True
             'Llenar el dropdownlist de almacén
-            DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 22)
+            CargaAlmacen(TipoAlmacen:=22)
             LnkAgregarUsado.Visible = True
             UppAcciones.Update()
         End If

Ventas/CatAutorizacionLimites.aspx.vb

@@ -196,7 +196,8 @@ Partial Class Ventas_CatAutorizacionLimites
 
     Protected Sub LnkAutorizar_Click(sender As Object, e As EventArgs)
         Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
-
+
+        Dim TipoAutorizacion = gvRow.DataKey("TipoAutorizacion").ToEntero()
         Dim CveAutorizacion = gvRow.DataKey("CveAutorizacion").ToEntero()
         Dim CveCliente = gvRow.DataKey("CveCliente").ToEntero()
         Dim CveVendedor = gvRow.DataKey("CveVendedor").ToEntero()
@@ -209,6 +210,8 @@ Partial Class Ventas_CatAutorizacionLimites
 
             Dim SaldoCliente = gvRow.DataKey("Saldo").ToDecimal()
             Dim LimiteCredito = gvRow.DataKey("LimiteCredito").ToDecimal()
+            'SI EL LIMITE ES 0, PERMITE AUTORIZAR
+            If LimiteCredito > 0 Then
                 Dim PorcentajeMaximoAutorizar As Decimal = 0.1
 
                 If UsuarioActual.PorcentajeMaximoAutorizacion > 0 Then

Ventas/Ventas.aspx.vb

@@ -4254,16 +4254,8 @@ Partial Class Ventas
                 Dim DbRowVenta As DataRow = ObjVentas.DtResultados.Rows(0)
                 Dim CveCliente As Integer = DbRowVenta("CveCliente").ToString().ToEntero()
                 HdnCveVenta.Value = CveVenta.ToString()
-                Dim DtUsadosPendientes As DataTable = Nothing
 
-                If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                Me.EsGarantia = CBool(DbRowVenta("EsGarantia"))
-                    Dim ObjUsados As New ClsVentas
-
-                    If ObjUsados.GetVentasUsados(CveVenta, -1, DbRowVenta("Fecha").ToString().ToDateTime, UsuarioActual.CveEmpresa) Then
-                        DtUsadosPendientes = ObjUsados.DtResultados
-                    End If
-                    ObjUsados.Dispose()
-                End If
 
                 RFCReceptorVenta = DbRowVenta("RFCReceptor").ToString()
                 'Adjuntar archivo
@@ -4284,7 +4276,7 @@ Partial Class Ventas
 
                 ViewState("CveSubProyectoVenta") = DbRowVenta("CveSubProyecto").ToString().ToEntero()
 
-                Me.EsGarantia = CBool(DbRowVenta("EsGarantia"))
+
 
                 Me.CveEstatusFacturaPadre = DbRowVenta("CveEstatusFacturaPadre").ToString().ToEntero()
                 'CargaEncabezado
@@ -5198,13 +5190,47 @@ Partial Class Ventas
                     End If
 
                     'Si es Empresa de Acumuladores
-                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                    If CveVenta > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DbRowVenta("TipoDocto").ToString() = "Rem" AndAlso (GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {Me.CveEstatus}").ToEntero() <> 5) Then
+
+                        BtnsFacturar.Visible = False
+
+                        Dim DtUsadosPendientes As DataTable = Nothing
+                        Dim DtGarantiasPendientes As DataTable = Nothing
+
+                        Dim ObjUsados As New ClsVentas
+
+                        If ObjUsados.GetVentasUsados(CveVenta, -1, DbRowVenta("Fecha").ToString().ToDateTime, UsuarioActual.CveEmpresa) Then
+                            DtUsadosPendientes = ObjUsados.DtResultados.Copy()
+                        End If
+
+                        If ObjUsados.GetVentasGarantiaPendiente(CveVenta, Now, UsuarioActual.CveEmpresa) Then
+                            DtGarantiasPendientes = ObjUsados.DtResultados.Copy()
+                        End If
+
+                        'If ObjUsados.GetVentasGarantiaPendiente(CveVenta, -1, Now, UsuarioActual.CveEmpresa) Then
+                        '    DtGarantiasPendientes = ObjUsados.DtResultados.Copy()
+                        'End If
+                        ObjUsados.Dispose()
+
                         'Si ya se surtió y recibió
-                        If (DbRowVenta("SaldoAlmacen").ToString().ToDecimal > 0 And (DtUsadosPendientes Is Nothing Or DtUsadosPendientes.Rows.Count = 0)) OrElse (TmpDT.MAX("CveTipoPS") = "1") Then
+                        If DbRowVenta("SaldoAlmacen").ToString().ToDecimal > 0 OrElse TmpDT.MAX("CveTipoPS") = "1" Then
                             BtnsFacturar.Visible = True
-                        Else
+                        End If
+
+                        'VERIFICA SI TIENE USADOS O GARANTIAS PENDIENTES
+                        If BtnsFacturar.Visible Then
+                            If (Not EsGarantia AndAlso (DtUsadosPendientes IsNot Nothing AndAlso DtUsadosPendientes.Rows.Count > 0)) Then
+                                BtnsFacturar.Visible = False
+                                Alert("Tiene usados pendiente de recibir", TipoMensaje.MsgAdvertencia)
+                            End If
+
+                            If (EsGarantia AndAlso (DtGarantiasPendientes IsNot Nothing AndAlso DtGarantiasPendientes.Rows.Count > 0)) Then
+                                Alert("Tiene garantías pendientes de recibir", TipoMensaje.MsgAdvertencia)
                                 BtnsFacturar.Visible = False
                             End If
+                        End If
+
+
                         LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274)
                     End If
 
@@ -5335,6 +5361,14 @@ Partial Class Ventas
                     End If
                 End If
 
+                If DdlTipoComprobante.SelectedValue = "Rem" Then
+                    If GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {Me.CveEstatus}").ToEntero() = 5 Then
+                        BtnsFacturar.Visible = False
+                        BtnEmitirImprimir.Visible = False
+                        BtnPermisoEditarRemision.Visible = False
+                    End If
+                End If
+
                 UpPS.Update()
                 UpContado.Update()
                 UpEstatus.Update()
@@ -6713,6 +6747,7 @@ Partial Class Ventas
         Else
 
             'VERIFICAR RESTRICCIONES DEL CLIENTE
+            If Not UsuarioActual.Empresa.Funcionalidad(702).ToEntero() > 0 Then
                 If DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0 AndAlso RBLPago.SelectedValue = "2" Then
                     Dim Vta As New ClsVentas
                     Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa)
@@ -6723,8 +6758,9 @@ Partial Class Ventas
                         BtnsFacturar.Visible = False
                         BtnGenerarRemision.Visible = False
                     End If
-
                 End If
+            End If
+
 
         End If
 
@@ -11504,7 +11540,7 @@ Partial Class Ventas
                     DdlTipoComprobante.Enabled = False
                 End If
 
-                TAB.ActiveTab = TabGenerales
+                Tab.ActiveTab = TabGenerales
                 TabGenerales.Enabled = True
                 Updatetabs.Update()
                 UPObservaciones.Update()
@@ -11570,7 +11606,7 @@ Partial Class Ventas
             ContratoDetalles.Visible = False
             UPEstimaciones.Update()
 
-            TAB.ActiveTab = TabGenerales
+            Tab.ActiveTab = TabGenerales
             TabGenerales.Enabled = True
             Updatetabs.Update()
         End If
@@ -15342,7 +15378,7 @@ Partial Class Ventas
                     ErrorConta = True
                 End If
 
-                If Not ErrorConta AndAlso Not ObjConta.PrePolizaSimplificacion(ObjFactura.CvePrePoliza, UsuarioActual.CveEmpresa) Then
+                If Not ErrorConta AndAlso Not ObjConta.PrePolizaSimplificacion(CvePrepoliza, UsuarioActual.CveEmpresa) Then
                     Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
                 End If
 
@@ -16507,7 +16543,7 @@ Partial Class Ventas
         If objcompras.GetCompraDetallealmacen(0, DdlNCFactura.SelectedValue.ToEntero()) Then
             GvInvNC.DataSource = objcompras.DtResultados
             If objcompras.DtResultados.Rows.Count > 0 Then
-                TAB.ActiveTabIndex = 1
+                Tab.ActiveTabIndex = 1
                 Updatetabs.Update()
             End If
         Else
@@ -16787,7 +16823,7 @@ Partial Class Ventas
 
                 End If
                 UpParametros.Update()
-                TAB.ActiveTab = TabGenerales
+                Tab.ActiveTab = TabGenerales
             Else
                 Alert("La empresa no contiene un producto asignado a la estimació", TipoMensaje.MsgInformacion)
             End If
@@ -23621,7 +23657,7 @@ Partial Class Ventas
                 DdlContratosModal.Items.Insert(0, New ListItem("Seleccione", "0"))
                 UPEstimaciones.Update()
 
-                TAB.ActiveTab = TabE
+                Tab.ActiveTab = TabE
                 TabGenerales.Enabled = False
                 Updatetabs.Update()
 
@@ -29911,7 +29947,7 @@ Partial Class Ventas
         ContratoDetalles.Visible = False
         UPEstimaciones.Update()
 
-        TAB.ActiveTab = TabGenerales
+        Tab.ActiveTab = TabGenerales
         TabGenerales.Enabled = True
         Updatetabs.Update()
 
@@ -30472,7 +30508,7 @@ Partial Class Ventas
         DdlMonedaModalPedido2.DataBind()
         DdlMonedaModalPedido2.Items.Insert(0, New ListItem("Todas", "-1"))
 
-        TAB.ActiveTab = TabGenerales
+        Tab.ActiveTab = TabGenerales
         TabGenerales.Enabled = True
         Updatetabs.Update()