-varios

App_Code/ClsClasificaciones.vb

@@ -254,7 +254,7 @@ Public Class ClsClasificaciones
         Return Retorno
     End Function
 
-    Public Function AddClasificaciones(Clasificacion As String, Codigo As String, IdCuentaGasto As Integer, CuentaGasto As String, IdCuentaCostos As Integer, CuentaCostos As String, IdCuentaIngreso As Integer, CuentaIngreso As String, CveCategoria As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional RequiereSerieLote As Integer = 0, Optional UsoClasificacion As Integer = -1, Optional CveSATPS As Integer = -1, Optional RequiereAFCompra As Boolean = True, Optional RequiereAFInsumo As Boolean = True, Optional RequierePersonal As Boolean = True,
+    Public Function AddClasificaciones(Clasificacion As String, Codigo As String, IdCuentaGasto As Integer, CuentaGasto As String, IdCuentaCostos As Integer, CuentaCostos As String, IdCuentaIngreso As Integer, CuentaIngreso As String, CveCategoria As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional RequiereSerieLote As Integer = 0, Optional UsoClasificacion As Integer = -1, Optional CveSATPS As Integer = -1, Optional RequiereAFCompra As Boolean = False, Optional RequiereAFInsumo As Boolean = False, Optional RequierePersonal As Boolean = False,
                                         Optional EsAcumulador As Boolean = False, Optional TopVentas As Boolean = False, Optional TopCompras As Boolean = False, Optional PrecioBaseCosto As Decimal = -1) As Boolean
         Dim Retorno As Boolean = False
 

App_Code/ClsInventarios.vb

@@ -2484,7 +2484,7 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
-    Public Function GetInventarioFisicoDetalle(CveInventarioFisico As Integer, CveUsuario As Integer, Optional Agrupar As Boolean = False) As Boolean
+    Public Function GetInventarioFisicoDetalle(CveInventarioFisico As Integer, CveUsuario As Integer, Optional Agrupar As Boolean = False, Optional TopSelect As Integer = 10000) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_InventarioFisicoDetalleGet")
@@ -2493,6 +2493,7 @@ Public Class ClsInventarios
             .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@Agrupar", SqlDbType.Bit).Value = Agrupar
+            .Add("@TopSelect", SqlDbType.Int).Value = TopSelect
         End With
 
         Try

App_Code/ClsPaginas.vb

@@ -7275,7 +7275,7 @@ Public Class ClsPaginas
                 params.Add(New ReportParameter("TipoCambio", TipoCambio))
                 params.Add(New ReportParameter("NombreSolicito", dtOC(0)("UsuarioSolicito").ToString)) 'drSol("Nombre").ToString))
                 params.Add(New ReportParameter("PuestoSolicito", PuestoSol)) 'drPuestoSol("Puesto").ToString
-                params.Add(New ReportParameter("NombreAutorizo", UsuarioActual.Nombre))
+                params.Add(New ReportParameter("NombreAutorizo", nombreautorizo))
                 params.Add(New ReportParameter("PuestoAutorizo", PuestoAut)) 'drPuestoAut("Puesto").ToString
                 params.Add(New ReportParameter("TipoOC", If(ObjOC.Tipo = "OC", "Orden de Compra", "Requisición")))
                 params.Add(New ReportParameter("UsoCFDI", ObjOC.UsoCFDI))

General/CatSatListado69B.aspx.vb

@@ -63,10 +63,13 @@ Partial Class General_CatSatListado69B
 
         If ObjSAT.GetListado69B(DdlTipo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
             GVDatosGeneral.DataSource = ObjSAT.DtResultados
-            GVDatosGeneral.DataBind()
+
         Else
             GVDatosGeneral.DataSource = Nothing
         End If
+        ObjSAT.Dispose()
+
+        GVDatosGeneral.DataBind()
 
         UpDatosGeneral.Update()
 

Inventarios/InventarioFisicoDetalle.aspx.vb

@@ -315,7 +315,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
                         GvIFDUltimoRegistrado.Rows(0).Cells(8).Text = TxtCantidadProducto.Text.Trim
                     Else
                         Consulto = True
-                        If Inventarios.GetInventarioFisicoDetalle(CveInventarioFisico, UsuarioActual.CveUsuario) Then
+                        If Inventarios.GetInventarioFisicoDetalle(CveInventarioFisico, UsuarioActual.CveUsuario, TopSelect:=1) Then
                             If Inventarios.DtResultados.Rows.Count > 0 Then
                                 GvIFDUltimoRegistrado.DataSource = Inventarios.DtResultados.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(1).CopyToDataTable
                             Else

Ventas/Ventas.aspx.vb

@@ -10039,7 +10039,17 @@ Partial Class Ventas
                                 CveCuentaCliente = CveCuenta
                             End If
 
+                        Case 7 'descuentos
+                            If LblDescuentos.Text.ToDecimal > 0 Then
 
+                                importeMovimiento = (ObjFactura.Descuento) * ValorMultiplicador
+                                importeMX = importeMovimiento * tipoCambio * Multiplicador
+                                FechaMovimiento = ObjFactura.FechaPago
+                                CveSubProyectoContabilizar = CveSubProyectoVenta
+                                IdCtaContable = 0
+                                If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
+
+                            End If
                         Case 3 'Cliente
 
                             If ObjFactura.TipoDocto = "Ant" Then

vwd.webinfo

@@ -74,6 +74,8 @@
     
   
     
+  
+