-cambios reportes de ventas. parametro de condiciones de ago

pv. ajustes de usados
clsinventarois. parametro de tipoalmacen

App_Code/ClsInventarios.vb

@@ -969,7 +969,7 @@ Public Class ClsInventarios
             .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto
             .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
             '.Add("@FechaMovto", SqlDbType.DateTime).Value = DateTime.ParseExact(FechaMovto, "yyyy/MM/dd HH:mm", Nothing)
-            .Add("@FechaMovto", SqlDbType.DateTime).Value = $"{FechaMovto.ToShortDateString} {Now.Hour}:{Now.Minute}:{Now.Second}".ToDateTime
+            .Add("@FechaMovto", SqlDbType.DateTime).Value = String.Format("{0} {1}:{2}:{3}", FechaMovto.ToShortDateString, Now.Hour, Now.Minute, Now.Second).ToDateTime
             .Add("@Folio", SqlDbType.Int).Value = tFolio
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
@@ -3290,7 +3290,7 @@ Public Class ClsInventarios
 #End Region
 
 #Region "  INVENTARIOS - COSTO PS  "
-    Public Function GetCostoPS(CvePS As Integer, Cantidad As Double, CveAlmacen As Integer, SerieLote As String, FechaFin As Date, Optional CveSubProyecto As Integer = -1) As Decimal
+    Public Function GetCostoPS(CvePS As Integer, Cantidad As Double, CveAlmacen As Integer, SerieLote As String, FechaFin As Date, Optional CveSubProyecto As Integer = -1, Optional CveTipoAlmacen As Integer = 1) As Decimal
         Dim Retorno As Decimal = -1D
         DataAdapter("PA_Inv_PSCostoGet")
 
@@ -3301,6 +3301,7 @@ Public Class ClsInventarios
             .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote
             .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen
             .Add("@Costo", SqlDbType.Money).Direction = ParameterDirection.Output
         End With
 

Inventarios/RecepcionEntrega.aspx.vb

@@ -1659,7 +1659,7 @@ Partial Class Inventarios_RecepcionEntrega
                                             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, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente),
-                                                                                                  CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, Modulo:="RE/G")
+                                                                                                  CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, Modulo:="RE/G1")
                                                 FolioSalida = ObjInventario.Folio
 
                                                 If Not CveMovimientoSalida > 0 Then
@@ -1710,7 +1710,7 @@ Partial Class Inventarios_RecepcionEntrega
                                             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,
                                                                                                   Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente),
-                                                                                                  CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, Modulo:="RE/G")
+                                                                                                  CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, Modulo:="RE/G2")
                                                 FolioSalida = ObjInventario.Folio
 
                                                 If Not CveMovimientoSalida > 0 Then
@@ -1759,7 +1759,7 @@ Partial Class Inventarios_RecepcionEntrega
                                         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,
                                                                                               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/G")
+                                                                                              CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, Modulo:="RE/G3")
                                             FolioSalida = ObjInventario.Folio
 
                                             If Not CveMovimientoSalida > 0 Then
@@ -1808,7 +1808,7 @@ Partial Class Inventarios_RecepcionEntrega
 
                             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/G")
+                                                                                       Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RE/G4")
                             FolioEntrada = ObjInventario.Folio
 
                             If Not CveMovimientoEntradaApartado > 0 Then
@@ -1849,7 +1849,7 @@ Partial Class Inventarios_RecepcionEntrega
                 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/G")
+                    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")
                     FolioGarantia = ObjInventario.Folio
 
                     For Each RowGarantia As DataRow In DtGarantias.Rows
@@ -1932,7 +1932,7 @@ Partial Class Inventarios_RecepcionEntrega
 
                 If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 AndAlso CveAlmacenVirtual > 0 AndAlso CveConceptoMovimientoVirtual > 0 Then
                     CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
-                                                                       Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveMovimientoRelacionado:=CveMovimientoRelacionadoVirtual, Modulo:="RE/G")
+                                                                       Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveMovimientoRelacionado:=CveMovimientoRelacionadoVirtual, Modulo:="RE/G6")
                     FolioVirtual = ObjInventario.Folio
 
                     If CveMovimientoVirtual > 0 Then
@@ -1985,7 +1985,7 @@ Partial Class Inventarios_RecepcionEntrega
                 End If
 
                 CveMovimiento = ObjInventario.AddMovimiento(Almacen1, ConceptoMovimiento, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text,
-                                                            CveContrato:=CveContrato, CveAlmacenDestino:=CveAlmacenTraspasoDestino, Modulo:="RE/G")
+                                                            CveContrato:=CveContrato, CveAlmacenDestino:=CveAlmacenTraspasoDestino, Modulo:="RE/G7")
                 Folio = ObjInventario.Folio
 
                 'SALIDA DE ALMACEN - SALIDA POR TRASPASO CUANDO ES REMISION - DEVOLUCION (SI ES TRASPASO Y TIENE CONTRATO NO HACE DEVOLUCIóN)
@@ -2076,7 +2076,7 @@ Partial Class Inventarios_RecepcionEntrega
             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/G")
+                                                                       CveMovimientoRelacionado:=CveMovimiento, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, Modulo:="RE/G8")
                     FolioEntrada = ObjInventario.Folio
 
                     If CveMovimientoEntrada <= 0 Then
@@ -2198,7 +2198,7 @@ Partial Class Inventarios_RecepcionEntrega
                             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/G")
+                                                                                          CveAlmacenDestino:=Dr("CveAlmacen").ToString.ToEntero, Modulo:="RE/G9")
                                 FolioSalida = ObjInventario.Folio
                                 CveAlmacenApartado = Dr("CveAlmacen").ToString.ToEntero
 
@@ -2230,7 +2230,7 @@ Partial Class Inventarios_RecepcionEntrega
                                 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/G")
+                                                                                           CveCliente:=CveCliente, Modulo:="RE/G10")
                                 FolioEntrada = ObjInventario.Folio
 
                                 If Not CveMovimientoEntradaApartado > 0 Then
@@ -2469,7 +2469,7 @@ Partial Class Inventarios_RecepcionEntrega
         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/G")
+                                                              CveContrato:=-1, CveAlmacenDestino:=CveAlmacenTraspasoDestino, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, ""), Modulo:="RE/GT")
             FolioSalida = ObjInventario.Folio
             If CveMovimientoSalida > 0 Then
                 Dim CantidadPendiente As Decimal = 0
@@ -2515,7 +2515,7 @@ Partial Class Inventarios_RecepcionEntrega
                 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/G")
+                                                                   Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, ""), Modulo:="RE/GT1")
                 FolioEntrada = ObjInventario.Folio
                 If CveMovimientoEntrada > 0 Then
                     If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then

Ventas/PV.aspx.vb

@@ -5215,9 +5215,9 @@ Partial Class PV
 
         If DdlTipoUso.SelectedValue.ToEntero > 0 AndAlso DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso TxtMesesUso.Text <> "" AndAlso DdlPS.SelectedValue.ToEntero > 0 Then
             Dim CveMarca As Integer = -1
-            If GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).Rows.Count > 0 Then
-                CveMarca = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).Rows(0)("CveMarca").ToString.ToEntero
-            End If
+
+            CveMarca = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimeroValor("CveMarca", "").ToEntero
+
             Dim ObjAcum As New ClsAcumuladores
             If ObjAcum.GarantiasMesesGet(-1, UsuarioActual.CveEmpresa, CveMarca, DdlTipoUso.SelectedValue.ToEntero, TxtMesesUso.Text.ToEntero) Then
                 If ObjAcum.DtResultados.Rows.Count > 0 Then
@@ -5230,24 +5230,24 @@ Partial Class PV
                     Dim CveTamaño As Integer = 0
 
                     If DdlPSAjuste.SelectedValue.ToEntero > 0 Then
-                        Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).Rows(0)
+                        Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimero("")
                         If Dr IsNot Nothing Then
                             CargoGarantia = Dr("Cargo").ToString.ToDecimal
                         End If
                     End If
 
                     If DdlPS.SelectedValue.ToEntero > 0 Then
-                        Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero).Rows(0)
+                        Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
                         If Dr IsNot Nothing Then
                             CveTamaño = Dr("CveTamaño").ToString.ToEntero
                         End If
                     End If
 
-                    If GlobalDTAcumTamaños.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {CveTamaño}").Rows(0) IsNot Nothing AndAlso GlobalDTAcumTamaños.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {CveTamaño}").Rows.Count > 0 Then
-                        Dim DrCargo As DataRow = GlobalDTAcumTamaños.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {CveTamaño}").Rows(0)
-                        If DrCargo IsNot Nothing Then
-                            CargoVendido = DrCargo("Cargo").ToString.ToDecimal
-                        End If
+                    Dim DrCargo As DataRow = GlobalDTAcumTamaños.FiltroPrimero($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {CveTamaño}")
+                    If DrCargo IsNot Nothing Then
+
+                        CargoVendido = DrCargo("Cargo").ToString.ToDecimal
+
                     End If
 
                     'el ajuste no puede ser mayor al precio de lo vendido de nuevo
@@ -5259,6 +5259,10 @@ Partial Class PV
                     TxtImporteAjuste.ToolTip = $"La diferencia de ajuste fue: {(TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble).FormatoNumero()}. La diferencia de tamaños fue: {(CargoVendido - CargoGarantia).FormatoNumero}."
                     TxtImporteAjuste.Text = ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia)).FormatoNumero
 
+                Else
+                    'cuando no está registrada, no da ajuste
+                    TxtImporteAjuste.ToolTip = "El producto no tiene ajuste en ese periodo"
+                    TxtImporteAjuste.Text = "0.00"
                 End If
             End If
             ObjAcum.Dispose()
@@ -5340,14 +5344,13 @@ Partial Class PV
             If TmpDT.Select($"Consec={ConsecutivoVenta}").Length > 0 Then
                 Dim Dr As DataRow = TmpDT.Select($"Consec={ConsecutivoVenta}")(0)
                 Dim CvePSCargo As Integer = -1
-                If GlobalDTAcumTamaños.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {Dr("CveTamaño").ToString.ToEntero}").Rows(0) IsNot Nothing AndAlso GlobalDTAcumTamaños.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {Dr("CveTamaño").ToString.ToEntero}").Rows.Count > 0 Then
-                    Dim DrCargo As DataRow = GlobalDTAcumTamaños.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {Dr("CveTamaño")}").Rows(0)
-                    If DrCargo IsNot Nothing Then
-                        CvePSCargo = DrCargo("CvePSCargo").ToString.ToEntero
-                        CargoActual = DrCargo("Cargo").ToString.ToDouble
-                    End If
+                Dim DrCargo As DataRow = GlobalDTAcumTamaños.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {Dr("CveTamaño").ToString.ToEntero}").FiltroPrimero("")
+                If DrCargo IsNot Nothing Then
+                    CvePSCargo = DrCargo("CvePSCargo").ToString.ToEntero
+                    CargoActual = DrCargo("Cargo").ToString.ToDouble
                 End If
 
+
                 Dr("Descuento") = Math.Round(TxtImporteAjuste.Text.ToDouble, NumeroDecimales)
                 'Dr("Descuento") = Math.Round((TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) + (CargoActual - CargoAnterior), NumeroDecimales)
                 If Dr("Descuento").ToString.ToDouble > TxtPrecio.Text.ToDouble Then Dr("Descuento") = TxtPrecio.Text.ToDouble

Ventas/RepVentaDetalle.aspx.vb

@@ -942,7 +942,7 @@ Partial Class RepVentaDetalle
 
     Private Sub GenerarPDF(Optional Formato As String = "PDF")
         If DtVentas IsNot Nothing Then
-            Dim Grupo, CveCliente, CveSucursal, CveSucursalEjec, Vendedor, CveUsuario, CveEstatusFactura, TipoDocto As String
+            Dim Grupo, CveCliente, CveSucursal, CveSucursalEjec, Vendedor, CveUsuario, CveEstatusFactura, TipoDocto, CondicionesPago As String
             Dim FechaIEjec, FechaFEjec As String
 
             'Dim CveSubProyecto As Integer
@@ -963,7 +963,9 @@ Partial Class RepVentaDetalle
             Vendedor = If(DdlVendedor.GetSelectedText = "", "", $"&emsp;<b>Vendedor:</b>&nbsp;{DdlVendedor.GetSelectedText}")
             CveUsuario = If(DdlUsuario.SelectedValue = "-1", "", $"&emsp;<b>Usuario:</b>&nbsp;{DdlUsuario.SelectedItem.Text}")
             CveEstatusFactura = If(DdlEstatus.GetSelectedText = "", "", $"&emsp;<b>Estatus:</b>&nbsp;{DdlEstatus.GetSelectedText}")
-
+            CondicionesPago = If(DdlCondicionesPago.selectedValue = "-1", "", String.Format("&emsp;<b>Condiciones Pago</b>: {0}", DdlCondicionesPago.SelectedItem.Text))
+
+
             Dim RutaFormato = String.Format("{0}Formatos\RepVentaDetalle.rdlc", UsuarioActual.Empresa.Ruta)
             Dim Archivo As New System.IO.FileInfo(RutaFormato)
             Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
@@ -977,7 +979,7 @@ Partial Class RepVentaDetalle
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("TipoDocto", TipoDocto))
-            params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{Grupo}  {TipoDocto} {FechaIn} {FechaFn} {FechaIEjec} {FechaFEjec} {CveCliente} {CveSucursal} {CveSucursalEjec}  {Vendedor} {CveUsuario}  {CveEstatusFactura}  "))
+            params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{Grupo}  {TipoDocto} {FechaIn} {FechaFn} {FechaIEjec} {FechaFEjec} {CveCliente} {CveSucursal} {CveSucursalEjec}  {Vendedor} {CveUsuario}  {CveEstatusFactura} {CondicionesPago} "))
             If Imagen.Exists Then
                 params.Add(New ReportParameter("LogoPath", logouri))
             Else

Ventas/RepVentas.aspx.vb

@@ -550,6 +550,7 @@ Partial Class Ventas_RepVentas
             If TxtFechaFEjec.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha I. Ejecución</b>: {0}", TxtFechaFEjec.Text.ToDate.ToShortDateString)
             If DdlUsuario.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Usuario</b>: {0}", DdlUsuario.SelectedItem.Text)
             If DdlClienteClasificacion.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Clasificación Cliente</b>: {0}", DdlClienteClasificacion.SelectedItem.Text)
+            If DdlCondicionesPago.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Condiciones Pago</b>: {0}", DdlCondicionesPago.SelectedItem.Text)
 
 
             Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))