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

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
@@ -3291,7 +3291,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")
 
@@ -3302,6 +3302,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
 

App_Code/Modelos.vb

@@ -4001,7 +4001,7 @@ Namespace Modelos
                                     End If
                                 End If
                             Else
-                                Retorno.Mensaje = "No se pudo comprobar la vigencia de la factura."
+                                Retorno.Mensaje = "SAT - No se pudo verificar el estatus de la factura."
                                 Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia
 
                                 Return Retorno

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

Inventarios/RecepcionUsados.aspx.vb

@@ -1086,7 +1086,7 @@ Partial Class Inventarios_RecepcionUsados
                             'si es selectedvalue = 2, es entrada ,3 -salida
                             Dim CveConceptoUsados As Integer = If(RBLOpcion.SelectedValue.ToEntero = 2, 1, 2)
 
-                                If RBLOpcion.SelectedValue.ToEntero = 2 AndAlso EsDistribuidor Then
+                            If RBLOpcion.SelectedValue.ToEntero = 2 AndAlso EsDistribuidor Then
 
                                 If Not ObjAcum.DistribuidorMovtosAdd(DdlClientes.SelectedValue.ToEntero, Dr("Cantidad").ToString.ToEntero(), Dr("CveTamaño").ToString.ToEntero, CveConceptoUsados, CveVenta, UsuarioActual.CveUsuario,
                                                 UsuarioActual.CveEmpresa, 0, Dr("Observaciones").ToString, CveMovimiento:=CveMovimiento) Then
@@ -1096,7 +1096,7 @@ Partial Class Inventarios_RecepcionUsados
                                 End If
 
                             End If
-                            Next
+                        Next
 
                             If Not ErrorMovInv Then
 
@@ -1646,7 +1646,7 @@ Partial Class Inventarios_RecepcionUsados
 #Region "DDL CLIENTE / CLIENTE SUCURSAL - SELECTED INDEX CHANGED"
     Private Sub InicializaClientes()
 
-        DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) '.FiltraParametros("EsDistribuidor = 1")
+        DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros("EsDistribuidor = 1")
         DdlClientes.DataBind()
         DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlClientes.SelectedValue = "-1"

Ventas/Clientes.aspx.vb

@@ -9199,7 +9199,7 @@ Partial Class Clientes
         Dim Serie As String = ""
 
         If FolioNotaCredito(Tipo) Then
-            Folio = FolioNotaAcumulador
+            Folio = -1
             Serie = SerieNotaAcumulador
         End If
 
@@ -9305,9 +9305,9 @@ Partial Class Clientes
         End If
 
         ObjFactura.FechaEjecucion = Now
-        ObjFactura.CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
+        ObjFactura.CveSubProyecto = UsuarioActual.CveSubProyecto
-        ObjFactura.CveSubProyectoCobranza = DdlSubProyecto.SelectedValue.ToEntero
+        ObjFactura.CveSubProyectoCobranza = UsuarioActual.CveSubProyecto
-        ObjFactura.CveSubProyectoEjecucion = DdlSubProyecto.SelectedValue.ToEntero
+        ObjFactura.CveSubProyectoEjecucion = UsuarioActual.CveSubProyecto
         ObjFactura.AtencionA = "-1"
         ObjFactura.MotivoDescuento = ""
         ObjFactura.Observaciones = ""

Ventas/PV.aspx.vb

@@ -5213,11 +5213,13 @@ Partial Class PV
             Exit Sub
         End If
         Try
+
+
             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
+                CveMarca = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimeroValor("CveMarca", "").ToEntero
-                End If
+
                 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 +5232,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.Count > 0 Then
+                        Dim DrCargo As DataRow = GlobalDTAcumTamaños.FiltroPrimero($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {CveTamaño}")
-                            Dim DrCargo As DataRow = GlobalDTAcumTamaños.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {CveTamaño}").Rows(0)
+                        If DrCargo IsNot Nothing Then
-                            If DrCargo IsNot Nothing Then
+
-                                CargoVendido = DrCargo("Cargo").ToString.ToDecimal
+                            CargoVendido = DrCargo("Cargo").ToString.ToDecimal
-                            End If
+
                         End If
 
                         'el ajuste no puede ser mayor al precio de lo vendido de nuevo
@@ -5259,6 +5261,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()
@@ -5344,14 +5350,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").ToString.ToEntero}").FiltroPrimero("")
-                    Dim DrCargo As DataRow = GlobalDTAcumTamaños.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {Dr("CveTamaño")}").Rows(0)
+                If DrCargo IsNot Nothing Then
-                    If DrCargo IsNot Nothing Then
+                    CvePSCargo = DrCargo("CvePSCargo").ToString.ToEntero
-                        CvePSCargo = DrCargo("CvePSCargo").ToString.ToEntero
+                    CargoActual = DrCargo("Cargo").ToString.ToDouble
-                        CargoActual = DrCargo("Cargo").ToString.ToDouble
-                    End If
                 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,6 +963,8 @@ 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)
@@ -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))

Ventas/Ventas.aspx.vb

@@ -5899,6 +5899,8 @@ Partial Class Ventas
             End If
 
             Dim TotalCalculableImpuestos As Decimal = ((Cantidad * PU) - (Descuento))
+            Dim TotalCalculableImpuestosIVA As Decimal = 0
+            TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + TmpDT.Rows(e.RowIndex)("IEPSPorcentaje").ToString.ToDecimal)
 
 
             TmpDT.Rows(e.RowIndex)("CveUM") = GvPS.Rows(e.RowIndex).FCDropDownList("DdlUnidadMedida").SelectedValue.ToEntero
@@ -5909,7 +5911,7 @@ Partial Class Ventas
             TmpDT.Rows(e.RowIndex)("PU") = PU
             TmpDT.Rows(e.RowIndex)("Descuento") = Descuento
             TmpDT.Rows(e.RowIndex)("TotalImporte") = Math.Round(Cantidad * PU, NumeroDecimales)
-            TmpDT.Rows(e.RowIndex)("ImporteIVA") = Math.Round(TmpDT.Rows(e.RowIndex)("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales)
+            TmpDT.Rows(e.RowIndex)("ImporteIVA") = Math.Round(TmpDT.Rows(e.RowIndex)("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestosIVA, NumeroDecimales)
             TmpDT.Rows(e.RowIndex)("ImporteIEPS") = Math.Round(TmpDT.Rows(e.RowIndex)("PorcentajeIEPS").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales)
             TmpDT.Rows(e.RowIndex)("ImporteRetIVA") = Math.Round(ClienteRetIVA * TotalCalculableImpuestos, NumeroDecimales)
             TmpDT.Rows(e.RowIndex)("ImporteRetISR") = Math.Round(ClienteRetISR * TotalCalculableImpuestos, NumeroDecimales)

packages.config

@@ -3,12 +3,15 @@
   <package id="AjaxControlToolkit" version="15.1.4.0" targetFramework="net4" />
   <package id="AjaxControlToolkit.StaticResources" version="15.1.4.0" targetFramework="net4" />
   <package id="Antlr" version="3.4.1.9004" targetFramework="net4" />
+  <package id="log4net" version="1.2.10" targetFramework="net45" />
   <package id="Microsoft.AspNet.Web.Optimization" version="1.1.3" targetFramework="net4" />
   <package id="Microsoft.Bcl" version="1.1.9" targetFramework="net40" />
   <package id="Microsoft.Bcl.Async" version="1.0.168" targetFramework="net40" />
   <package id="Microsoft.Bcl.Build" version="1.0.14" targetFramework="net40" />
   <package id="Microsoft.ReportingServices.ReportViewerControl.WebForms" version="150.1358.0" targetFramework="net45" />
   <package id="Microsoft.ReportViewer.2015.Runtime" version="12.0.2.2402" targetFramework="net4" />
+  <package id="Microsoft.ReportViewer.Common.v12" version="12.0.0.1" targetFramework="net45" />
+  <package id="Microsoft.ReportViewer.WebForms.v12" version="12.0.0.0" targetFramework="net45" />
   <package id="Microsoft.SqlServer.Types" version="14.0.1016.290" targetFramework="net45" />
   <package id="Microsoft.Web.Infrastructure" version="1.0.0.0" targetFramework="net4" />
   <package id="Microsoft.Web.Xdt" version="1.0.0" targetFramework="net4" />