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

Inventarios/RecepcionUsados.aspx.vb

@@ -159,6 +159,15 @@ Partial Class Inventarios_RecepcionUsados
             ViewState("TieneSalida") = value
         End Set
     End Property
+
+    Private Property DTBCIUsados As DataTable
+        Get
+            Return If(IsNothing(ViewState("DTBCIUsados")), Nothing, CType(ViewState("DTBCIUsados"), DataTable))
+        End Get
+        Set(value As DataTable)
+            ViewState("DTBCIUsados") = value
+        End Set
+    End Property
     Private Property DtBitacora As DataTable
         Get
             Return CType(ViewState("DtBitacora"), DataTable)
@@ -2846,6 +2855,7 @@ Partial Class Inventarios_RecepcionUsados
             Dim CveMarca As Integer = -1
             Dim CveClasificacion As Integer = -1
             Dim PrecioSugerido As Decimal = 0
+            Dim CveTamanio As Integer = -1
             Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSParametro).FiltroPrimero("")
 
             If drPS IsNot Nothing Then
@@ -2860,6 +2870,7 @@ Partial Class Inventarios_RecepcionUsados
                 Dim PS As String = drPS("PS").ToString
                 CveMarca = drPS("CveMarca").ToString.ToEntero
                 CveClasificacion = drPS("CveClasificacion").ToString.ToEntero
+                CveTamanio = drPS("CveTamaño").ToString.ToEntero
 
                 Dim Arr = PS.Split("-"c)
                 If Arr.Count > 1 Then
@@ -2921,6 +2932,19 @@ Partial Class Inventarios_RecepcionUsados
                 'CvePrecioLista = CvePrecioListaPS
             End If
 
+            DdlBCIAjuste.Items.Clear()
+            If DTBCIUsados IsNot Nothing AndAlso CveTamanio > 0 Then
+                DdlBCIAjuste.DataSource = DTBCIUsados.FiltraParametros($"CveTamaño={CveTamanio}")
+                DdlBCIAjuste.DataBind()
+                DdlBCIAjuste.Items.Insert(0, New ListItem("Seleccione", "-1"))
+                If CveTamanio = 16 Then 'motobaterias
+                    DdlBCIAjuste.Items.Insert(0, New ListItem(" - ", "0"))
+                End If
+                'UPPDatosUsado.Update() ''refresca el RFV
+            Else
+                DdlBCIAjuste.Items.Insert(0, New ListItem(" - ", "0"))
+            End If
+
             DdlTipoUso.Items.Clear()
             DdlTipoUso.DataSource = GlobalDTAcumGarantiasMesesTipoUso(UsuarioActual.CveEmpresa, CveMarca)
             DdlTipoUso.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -2964,6 +2988,7 @@ Partial Class Inventarios_RecepcionUsados
         If ObjGral.BCIUsadoGet(UsuarioActual.CveEmpresa) Then
             DdlBCIAjuste.DataSource = ObjGral.DtResultados
             DdlBCIAjuste.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            DTBCIUsados = ObjGral.DtResultados.Copy()
         End If
         ObjGral.Dispose()
         DdlBCIAjuste.DataBind()

Site.master

@@ -417,8 +417,7 @@
                     </div>
                     <div class="ContentPlaceHolderc">
                         <asp:ContentPlaceHolder ID="C" runat="server">
-                        </asp:ContentPlaceHolder>
-                        <br />
+                        </asp:ContentPlaceHolder>                        
                     </div>
                 </div>
             </div>

Site.master.vb

@@ -258,7 +258,7 @@ Partial Class Site
 
         If UsuarioActual.TienePermisoPagina(392) Then tdProspectos.Visible = True : ImgProspecto.Attributes.Add("onclick", "AbrirVentana('/Prospeccion/PopUpBuscarProspectos.aspx',980,547,'popBuscarProspectos');")
 
-        If UsuarioActual.TienePermisoPagina(228) Then tdBExi.Visible = True
+        If UsuarioActual.TienePermisoPagina(228) OrElse UsuarioActual.TienePermisoPagina(6) Then tdBExi.Visible = True
 
         'Contratos
         If UsuarioActual.TienePermisoPagina(313) Then TdContratos.Visible = True

Ventas/CatAutorizacionLimites.aspx.vb

@@ -180,7 +180,7 @@ Partial Class Ventas_CatAutorizacionLimites
             '    e.Row.Cells(1).Text = "Inactivo"
             '    e.Row.Cells(1).ForeColor = Drawing.Color.Red
             '    e.Row.Cells(1).Font.Bold = True
-            'End If
+            'End If
         End If
     End Sub
 
@@ -197,7 +197,7 @@ Partial Class Ventas_CatAutorizacionLimites
         Dim Importe = gvRow.DataKey("Importe").ToDecimal()
         Dim CveEstatusAutorizacion As Integer = 1
 
-        Dim ObjVentas As New ClsVentas
+        Dim ObjVentas As New ClsVentas
         If ObjVentas.AutorizacionLimitesUpdate(CveAutorizacion, CveCliente, CveVendedor, Importe, CveEstatusAutorizacion) Then
             Alert("El límite de crédito fue autorizado.")
         End If

Ventas/Ventas.aspx.vb

@@ -26998,7 +26998,10 @@ Partial Class Ventas
                     If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, -1, "Egs", CveEstatus:=1) Then
                         Dim RowAutorizacion As DataRow = ObjVentas.DtResultados.FiltroPrimero($"CveVenta IS NULL ", Orderby:="TipoAutorizacion")
                         If RowAutorizacion IsNot Nothing Then
-                            Verificacion = True
+                            Dim ImporteAutorizacion As Decimal = RowAutorizacion("Importe").ToString().ToDecimal()
+                            If ImporteAutorizacion > TxtTotalGv.Text.ToDecimal Then
+                                Verificacion = True
+                            End If
                         End If
                     End If
                     ObjVentas.Dispose()