Pendientes BDH, mejoras servicion E141, mwjoras carga PS entradas/salidas,cambios en modalidad contable, favicon signals gps

Ashx/E141.ashx

@@ -631,6 +631,7 @@ Public Class E141 : Implements IHttpHandler
                 Dim DebeTimbrar As Boolean = False
 
                 Dim ObjClientes As New ClsClientes()
+                Dim ObjInventario As New ClsInventarios(ObjClientes.IniciaTransacSQL())
                 ObjClientes.IniciaTransacSQL()
 
                 Try
@@ -638,7 +639,7 @@ Public Class E141 : Implements IHttpHandler
                         DebeTimbrar = CBool(JsonRequest("timbrar"))
                     End If
 
-                    ObjFactura = CreaFactura(ObjClientes, "Ing", Resp, JsonRequest, Usuario)
+                    ObjFactura = CreaFactura(ObjInventario, ObjClientes, "Ing", Resp, JsonRequest, Usuario)
 
                     If ObjFactura IsNot Nothing Then
                         Resp = ObjFactura.EmitirFactura(False, Transac:=ObjClientes.IniciaTransacSQL())
@@ -768,7 +769,7 @@ Public Class E141 : Implements IHttpHandler
 
     End Function
 
-    Private Function CreaFactura(ObjClientes As ClsClientes, TipoDocto As String, Resp As Modelos.Factura.MMensajeFactura, JsonRequest As JObject, UsuarioActual As Usuario) As Modelos.Factura
+    Private Function CreaFactura(ObjInventario As ClsInventarios, ObjClientes As ClsClientes, TipoDocto As String, Resp As Modelos.Factura.MMensajeFactura, JsonRequest As JObject, UsuarioActual As Usuario) As Modelos.Factura
         Try
             Resp.TieneError = False
             Dim Serie As String = "-1"
@@ -867,36 +868,85 @@ Public Class E141 : Implements IHttpHandler
                 End If
 
                 'FORMA DE PAGO
+                If JsonRequest("invoice_way_to_pay") Is Nothing Then
+                    Resp.TieneError = False
+                    Resp.Mensajes.Add("Debe asignar una forma de pago")
+                    Return Nothing
+                End If
+
                 If Not String.IsNullOrEmpty(JsonRequest("invoice_way_to_pay").ToString()) Then
                     Dim RowFormaPago As DataRow = GlobalDTVtaFormaPago.FiltroPrimero(String.Format("ClaveFormaPagoSAT = '{0}'", JsonRequest("invoice_way_to_pay").ToString()))
-
+                    If RowFormaPago IsNot Nothing Then
-                    ObjFactura.CveFormaPago33 = RowFormaPago("CveFormaPago").ToString().ToEntero()
+                        ObjFactura.CveFormaPago33 = RowFormaPago("CveFormaPago").ToString().ToEntero()
-                    ObjFactura.FormaPago33 = RowFormaPago("FormaPago").ToString()
+                        ObjFactura.FormaPago33 = RowFormaPago("FormaPago").ToString()
-                    ObjFactura.FormaPagoSAT33 = RowFormaPago("ClaveFormaPagoSAT").ToString()
+                        ObjFactura.FormaPagoSAT33 = RowFormaPago("ClaveFormaPagoSAT").ToString()
+                    Else
+                        Resp.TieneError = False
+                        Resp.Mensajes.Add("No se encontro la forma de pago")
+                        Return Nothing
+                    End If
+                Else
+                    Resp.TieneError = False
+                    Resp.Mensajes.Add("Debe asignar una forma de pago")
+                    Return Nothing
                 End If
 
                 'USO CFDi
+                If JsonRequest("invoice_use") Is Nothing Then
+                    Resp.TieneError = False
+                    Resp.Mensajes.Add("Debe asignar un uso cfdi")
+                    Return Nothing
+                End If
+
                 If Not String.IsNullOrEmpty(JsonRequest("invoice_use").ToString()) Then
                     Dim RowUsoCFDi As DataRow = GlobalDTSATUsosCFDI.FiltroPrimero(String.Format("UsoCFDI = '{0}'", JsonRequest("invoice_use").ToString()))
-
+                    If RowUsoCFDi IsNot Nothing Then
-                    ObjFactura.CveUsoCFDI = RowUsoCFDi("CveUsoCFDI").ToString().ToEntero()
+                        ObjFactura.CveUsoCFDI = RowUsoCFDi("CveUsoCFDI").ToString().ToEntero()
-                    ObjFactura.UsoCFDI = RowUsoCFDi("Descripcion").ToString()
+                        ObjFactura.UsoCFDI = RowUsoCFDi("Descripcion").ToString()
-                    ObjFactura.ClaveUsoCFDI = RowUsoCFDi("UsoCFDI").ToString()
+                        ObjFactura.ClaveUsoCFDI = RowUsoCFDi("UsoCFDI").ToString()
+                    Else
+                        Resp.TieneError = False
+                        Resp.Mensajes.Add("No se encontro el uso cfdi")
+                        Return Nothing
+                    End If
+                Else
+                    Resp.TieneError = False
+                    Resp.Mensajes.Add("Debe asignar un uso cfdi")
+                    Return Nothing
                 End If
 
                 'METODO DE PAGO
+                If JsonRequest("invoice_payment_method") Is Nothing Then
+                    Resp.TieneError = False
+                    Resp.Mensajes.Add("Debe asignar un método de pago")
+                    Return Nothing
+                End If
+
                 If Not String.IsNullOrEmpty(JsonRequest("invoice_payment_method").ToString()) Then
                     Dim RowMetodoPago As DataRow = GlobalDTVtaMetodoPago.FiltroPrimero(String.Format("ClaveMetodoPagoSAT = '{0}'", JsonRequest("invoice_payment_method").ToString()))
-
+                    If RowMetodoPago IsNot Nothing Then
-                    ObjFactura.CveMetodoPago33 = RowMetodoPago("CveMetodoPago").ToString().ToEntero()
+                        ObjFactura.CveMetodoPago33 = RowMetodoPago("CveMetodoPago").ToString().ToEntero()
-                    ObjFactura.MetodoPago33 = RowMetodoPago("MetodoPago").ToString()
+                        ObjFactura.MetodoPago33 = RowMetodoPago("MetodoPago").ToString()
-                    ObjFactura.ClaveMetodoPagoSAT = RowMetodoPago("ClaveMetodoPagoSAT").ToString()
+                        ObjFactura.ClaveMetodoPagoSAT = RowMetodoPago("ClaveMetodoPagoSAT").ToString()
+                    Else
+                        Resp.TieneError = False
+                        Resp.Mensajes.Add("No se encontro el método de pago")
+                        Return Nothing
+                    End If
+                Else
+                    Resp.TieneError = False
+                    Resp.Mensajes.Add("Debe asignar un método de pago")
+                    Return Nothing
                 End If
 
             End If
 
+            ObjFactura.CveAlmacen = GlobalDTAlmacen(CveEmpresa, CveTipoAlmacen:=1).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
+
+
+
             'DETALLES
-            ObjFactura.DtDetalle = CreaDTDetalle(Resp, UsuarioActual, JsonRequest)
+            ObjFactura.DtDetalle = CreaDTDetalle(ObjInventario, ObjFactura, Resp, UsuarioActual, JsonRequest)
 
             If Resp.TieneError Then
                 Resp.Mensajes.Add("No se pudieron agregar los productos/servicios")
@@ -912,7 +962,6 @@ Public Class E141 : Implements IHttpHandler
             'INVENTARIO
             If TipoDocto = "Ing" Then
                 ObjFactura.DtInventario = ObjFactura.DtDetalle.Copy.FiltraParametros("CveTipoPS = 2")
-                ObjFactura.CveAlmacen = GlobalDTAlmacen(CveEmpresa, CveTipoAlmacen:=1).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
                 ObjFactura.GenerarSalidaAlmacen = True
                 ObjFactura.GenerarPDFFactura = False
             End If
@@ -1104,7 +1153,7 @@ Public Class E141 : Implements IHttpHandler
         Next
         Return Timbre
     End Function
-    Private Function CreaDTDetalle(ByRef Retorno As Modelos.Factura.MMensajeFactura, UsuarioActual As Usuario, JsonRequest As JObject) As DataTable
+    Private Function CreaDTDetalle(ByRef ObjInventarios As ClsInventarios, ObjFactura As Modelos.Factura, ByRef Retorno As Modelos.Factura.MMensajeFactura, UsuarioActual As Usuario, JsonRequest As JObject) As DataTable
         Dim TmpDT = New DataTable
         TmpDT.Columns.Add("CveVenta", GetType(Integer))
         TmpDT.Columns.Add("Consec", GetType(Integer))
@@ -1193,30 +1242,50 @@ Public Class E141 : Implements IHttpHandler
             Dim DescuentoPorPartida As Decimal = (DescuentoTotal / ListaPS.Count)
 
             Dim Consec As Integer = 1
-            For Each Dr As JObject In ListaPS
+            For Each JsonPS As JObject In ListaPS
-                Dim Cantidad As Decimal = Dr("quantity").ToString.ToDecimal()
+                Dim Cantidad As Decimal = JsonPS("quantity").ToString.ToDecimal()
 
-                Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=Dr("product_sku").ToString()).FiltroPrimero("")
+                Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=JsonPS("product_sku").ToString()).FiltroPrimero("")
 
                 If DrPS Is Nothing Then
                     Retorno.TieneError = True
-                    Retorno.Mensajes.Add(String.Format("No se pudo agregar el producto/servicio: {0}, no se encontró en el sistema", Dr("product_sku").ToString()))
+                    Retorno.Mensajes.Add(String.Format("No se pudo agregar el producto/servicio: {0}, no se encontró en el sistema", JsonPS("product_sku").ToString()))
                     Exit For
                 End If
 
                 'VALIDAR QUE SEA EL MISMO PRODUCTO
-                If DrPS("Codigo").ToString() <> Dr("product_sku").ToString() Then
+                If DrPS("Codigo").ToString() <> JsonPS("product_sku").ToString() Then
                     Retorno.TieneError = True
-                    Retorno.Mensajes.Add(String.Format("No se pudo agregar el producto/servicio: {0}", Dr("PS").ToString()))
+                    Retorno.Mensajes.Add(String.Format("No se pudo agregar el producto/servicio: {0}", DrPS("PS").ToString()))
                     Exit For
                 End If
 
-                Dim TotalOriginal As Decimal = Dr("total_cost").ToString.ToDecimal()
+                'VALIDA EXISTENCIA ANTES DE GENERAR LA FACTURA
+                If ObjFactura.TipoDocto = "Ing" AndAlso DrPS("CveTipoPS").ToString() = "2" Then
+                    Dim Existencia As Decimal = ObjInventarios.GetExistenciasPS(DrPS("CvePS").ToString.ToEntero, DrPS("CveUnidadMedida").ToString.ToEntero, UsuarioActual.CveEmpresa, ObjFactura.CveAlmacen, CveSubProyecto:=ObjFactura.CveSubProyecto, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), ExcluyeAdelantado:=1, PendientePorSurtir:=1, RestringirAlmacenes:=1, ExcluyeApartados:=-1)
 
-                Dim PUOrginal As Decimal = Dr("cost").ToString.ToDecimal()
+                    If Cantidad > Existencia Then
+                        Retorno.TieneError = True
+                        Retorno.Mensajes.Add(String.Format("No hay existencia suficiente para este producto: {0}, cuenta con : {1}", DrPS("PSCodigo").ToString(), Existencia))
+                        Exit For
+                    End If
+                End If
+
+
+                Dim TotalOriginal As Decimal = JsonPS("total_cost").ToString.ToDecimal()
+
+                Dim PUOrginal As Decimal = JsonPS("cost").ToString.ToDecimal()
 
                 Dim PorcentajeIVADefault As Decimal = 0.16D
 
+                Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(-1, JsonRequest("branch_office_id").ToEntero(), CveEmpresa:=CveEmpresa).Rows(0)
+
+                If DrSubProyecto IsNot Nothing Then
+                    PorcentajeIVADefault = DrSubProyecto("IVA").ToString().ToDecimal()
+                Else
+                    PorcentajeIVADefault = 0.16D
+                End If
+
                 Dim SubTotal2 As Decimal = (TotalOriginal / (1 + PorcentajeIVADefault))
 
                 Dim IVA As Decimal = Math.Abs(SubTotal2 - TotalOriginal)
@@ -1227,12 +1296,12 @@ Public Class E141 : Implements IHttpHandler
 
                 Dim Row As DataRow = AgregarProductoServicio(Retorno, UsuarioActual, TmpDT, Consec, Cantidad, DrPS("CveUnidadMedida").ToString.ToEntero, DrPS("UnidadMedida").ToString, DrPS("CveClasificacion").ToString.ToEntero, DrPS("Clasificacion").ToString,
                                            DrPS("CvePS").ToString.ToEntero, DrPS("PS").ToString, "", PUCalculado, DescuentoPorPartida,
-                                           CveSubProyecto:=JsonRequest("branch_office_id").ToEntero(), CveVentaDetalle:=-1, CveContratoDetalle:=-1, CveVentaDetalleRemision:=-1, RegeneraIEPS:=True)
+                                           CveSubProyecto:=ObjFactura.CveSubProyecto, CveVentaDetalle:=-1, CveContratoDetalle:=-1, CveVentaDetalleRemision:=-1, RegeneraIEPS:=True)
                 If Row IsNot Nothing Then
                     TmpDT.Rows.Add(Row)
                 Else
                     Retorno.TieneError = True
-                    Retorno.Mensajes.Add(String.Format("No se pudo agregar el producto/servicio: {0}", Dr("PS").ToString()))
+                    Retorno.Mensajes.Add(String.Format("No se pudo agregar el producto/servicio: {0}", DrPS("PSCodigo").ToString()))
                     Exit For
                 End If
 
@@ -1408,9 +1477,10 @@ Public Class E141 : Implements IHttpHandler
             If Usuario IsNot Nothing Then
                 Dim Resp As New Modelos.Factura.MMensajeFactura
                 Dim ObjClientes As New ClsClientes()
-                ObjClientes.IniciaTransacSQL()
+                Dim ObjInventario As New ClsInventarios(ObjClientes.IniciaTransacSQL())
+
                 Try
-                    Dim ObjFactura = CreaFactura(ObjClientes, "Cot", Resp, JsonRequest, Usuario)
+                    Dim ObjFactura = CreaFactura(ObjInventario, ObjClientes, "Cot", Resp, JsonRequest, Usuario)
 
                     If ObjFactura IsNot Nothing Then
                         Resp = ObjFactura.EmitirFactura(False, Transac:=ObjClientes.IniciaTransacSQL())
@@ -1447,7 +1517,9 @@ Public Class E141 : Implements IHttpHandler
                 Else
                     ObjClientes.Commit()
                 End If
+
                 ObjClientes.Dispose()
+                ObjInventario.Dispose()
             Else
                 TieneError = True
                 RespuestaError.message = "no hay un usuario disponible"

Compras/Compras.aspx.vb

@@ -18072,6 +18072,11 @@ Partial Class Compras_Compras
         Dim CveProyecto = If(DdlProyecto.SelectedValue.ToEntero > 0, DdlProyecto.SelectedValue.ToEntero, -1)
         DdlSubProyecto.Items.Clear()
 
+        'SI NO SE VE EL PROYECTO NO FILTRAR POR PROYECTO
+        If Not DdlProyecto.Visible Then
+            CveProyecto = -1
+        End If
+
         DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1))
 
         DdlSubProyecto.DataBind()

Compras/PopUpVerFactura.aspx.vb

@@ -13,6 +13,7 @@ Imports Stimulsoft.Report
 Imports Stimulsoft.Report.Components
 Imports Stimulsoft.Report.Dictionary
 Imports Stimulsoft.Report.Web
+Imports Newtonsoft.Json.Linq
 
 Partial Class PopUpVerFactura
     Inherits ClsPaginas
@@ -495,8 +496,17 @@ Partial Class PopUpVerFactura
 
         'PDF AJUSTE
         If UrlParametros("OP").ToString = "AJUSTE" Then
+            'SI YA ESTA GUARDADO
             If UrlParametros("CVEGARANTIADETALLE") IsNot Nothing Then
                 ImprimirPDFAjuste(UrlParametros("CVEGARANTIADETALLE").ToString.ToEntero)
+            Else
+                ImprimirPDFAjuste(CvePSAjuste:=UrlParametros("CVEPSAJUSTE").ToString.ToEntero(), CveCliente:=UrlParametros("CVECLIENTE").ToString.ToEntero(),
+                                                  CveClienteDistribuidor:=UrlParametros("CVECLIENTEDISTRIBUIDOR").ToString.ToEntero(), Consec:=UrlParametros("CONSEC").ToString,
+                                                  FolioGarantia:=UrlParametros("FOLIOGARANTIA").ToString, FechaAjuste:=UrlParametros("FECHAAJUSTE").ToString.ToDateTime(), FechaReclamacion:=UrlParametros("FECHARECLAMACION").ToString.ToDateTime(),
+                                                  TipoDefecto:=UrlParametros("TIPODEFECTO").ToString, CveTipoUso:=UrlParametros("CVETIPOUSO").ToString.ToEntero(), CodigoEnsamble:=UrlParametros("CODIGOENSAMBLE").ToString,
+                                                  CodigoLinea:=UrlParametros("CODIGOLINEA").ToString, CodigoInspeccion:=UrlParametros("CODIGOINSPECCION").ToString, PorcentajeAjuste:=UrlParametros("PORCENTAJEAJUSTE").ToString,
+                                                  BCIAjuste:=UrlParametros("BCIAJUSTE").ToString, Etiqueta:=UrlParametros("ETIQUETA").ToString, Año:=UrlParametros("AÑO").ToString, Comprobante:=UrlParametros("COMPROBANTE").ToString,
+                                                  ModeloAuto:=UrlParametros("MODELOAUTO").ToString, MarcaAuto:=UrlParametros("MARCAAUTO").ToString, CodigoTD:=UrlParametros("CODIGOTD").ToString)
             End If
         End If
 
@@ -4638,6 +4648,134 @@ Partial Class PopUpVerFactura
         End If
 
 
+        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+        params.Add(New ReportParameter("Consec", Consec))
+        params.Add(New ReportParameter("FolioAcuse", FolioGarantia))
+
+        'Informacion de Garantia o ajuste
+        params.Add(New ReportParameter("FechaInst", FechaAjuste.ToString("dd/MM/yyyy")))
+        params.Add(New ReportParameter("Fecha", FechaReclamacion.ToString("dd/MM/yyyy")))
+        params.Add(New ReportParameter("Defecto", TipoDefecto))
+        params.Add(New ReportParameter("MesesUso", MesesUso))
+        params.Add(New ReportParameter("PorcentajeAjuste", PorcentajeAjuste))
+
+        'Informacion Acumulador
+        params.Add(New ReportParameter("CodEnsamble", CodigoEnsamble))
+        params.Add(New ReportParameter("CodLinea", CodigoLinea))
+        params.Add(New ReportParameter("CodInspeccion", CodigoInspeccion))
+        params.Add(New ReportParameter("Tipo", BCIAjuste))
+        params.Add(New ReportParameter("Marca", MarcaPS))
+        params.Add(New ReportParameter("Etiqueta", Etiqueta))
+
+        'Informacion Vehiculo
+        params.Add(New ReportParameter("MarcaAuto", MarcaAuto))
+        params.Add(New ReportParameter("TipoAuto", ModeloAuto))
+
+        'Informacion Consumidor
+        If (CveCliente > 0) Then
+
+            Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", CveCliente))
+
+            Dim Nombre As String = ""
+            Dim Ciudad As String = ""
+            Dim Estado As String = ""
+            Dim Direccion As String = ""
+            Dim Telefono As String = ""
+
+            If DatosClienteSeleccionado IsNot Nothing Then
+                Nombre = DatosClienteSeleccionado("Nombre").ToString
+                Ciudad = DatosClienteSeleccionado("Ciudad").ToString
+                Estado = DatosClienteSeleccionado("Estado").ToString
+                Direccion = DatosClienteSeleccionado("Direccion").ToString
+                Telefono = DatosClienteSeleccionado("Telefono").ToString
+            End If
+
+            params.Add(New ReportParameter("NombreCliente", Nombre))
+            params.Add(New ReportParameter("Direccion", Direccion))
+            params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad, Estado)))
+            params.Add(New ReportParameter("TelConsumidor", Telefono))
+        End If
+
+        params.Add(New ReportParameter("Anio", Año))
+        params.Add(New ReportParameter("Comprobante", Comprobante))
+        params.Add(New ReportParameter("CodigoTD", CodigoTD))
+
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", logouri))
+        Else
+            params.Add(New ReportParameter("LogoPath", ""))
+        End If
+
+        ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF", Content_Disposition:="inline")
+    End Sub
+
+    Private Sub ImprimirPDFAjuste(CvePSAjuste As Integer, CveCliente As Integer, CveClienteDistribuidor As Integer, Consec As String, FolioGarantia As String, FechaAjuste As DateTime, FechaReclamacion As DateTime,
+                                  TipoDefecto As String, CveTipoUso As Integer, CodigoEnsamble As String, CodigoLinea As String, CodigoInspeccion As String, PorcentajeAjuste As String,
+                                  BCIAjuste As String, Etiqueta As String, Año As String, Comprobante As String, ModeloAuto As String, MarcaAuto As String, CodigoTD As String)
+
+        Dim MesesUso As String = "0"
+
+        Dim MarcaPS As String = ""
+        Dim CveMarca As Integer = -1
+
+        Dim FechaI As Date = FechaAjuste.AddDays(1)
+        Dim FechaF As Date = FechaReclamacion
+
+        Dim Dia As Integer = FechaI.Day
+        Try
+            'validación adicional, para saber si el mes tiene 31 días y el actua es menor.
+            If FechaI.Day > Today.LastDayOfMonth.Day Then Dia = Today.LastDayOfMonth.Day
+            Dim FechaT As Date = String.Format("{0}/{1}/{2}", Dia, FechaF.Month, FechaF.Year).ToDate 'armo la fecha con el día del mes actual
+
+            Dim MesesTrascurridos As Integer = Math.Round(DateDiff(DateInterval.Day, FechaI, FechaT) / 30.4, 2).ToEntero 'saco los meses y lo redondeo
+
+            If FechaT > FechaF Then
+                'todavía está en el  mes actual.
+                MesesTrascurridos = MesesTrascurridos
+            Else
+                MesesTrascurridos = MesesTrascurridos + 1
+            End If
+
+            MesesUso = MesesTrascurridos.ToString
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al calcular los meses de uso", ex)
+        End Try
+
+
+        Dim ObjPS As New ClsProductosServicios
+        If ObjPS.GetPS(CvePSAjuste, -1, UsuarioActual.CveEmpresa) Then
+            MarcaPS = ObjPS.DtResultados.FiltroPrimeroValor("Marca", String.Format("CvePS = {0}", CvePSAjuste))
+        End If
+        ObjPS.Dispose()
+
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+        Dim DtDatos As New DataTable
+
+        Dim params As New List(Of ReportParameter)
+
+
+        'Informacion Distribuidor
+        If (CveClienteDistribuidor > 0) Then
+
+            Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", CveClienteDistribuidor))
+            Dim CiudadEstado As String = ""
+            Dim Telefono As String = ""
+            Dim Nombre As String = ""
+
+            If DatosClienteSeleccionado IsNot Nothing Then
+                CiudadEstado = String.Format("{0}, {1}", DatosClienteSeleccionado("Ciudad"), DatosClienteSeleccionado("Estado"))
+                Telefono = DatosClienteSeleccionado("Telefono").ToString
+                Nombre = DatosClienteSeleccionado("Nombre").ToString
+            End If
+
+            params.Add(New ReportParameter("NombreDistribuidor", Nombre))
+            params.Add(New ReportParameter("CiudadEstado", CiudadEstado))
+            params.Add(New ReportParameter("TelCliente", Telefono))
+        End If
+
+
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("Consec", Consec))
         params.Add(New ReportParameter("FolioAcuse", FolioGarantia))

Inventarios/EntradasSalidas.aspx

@@ -100,6 +100,10 @@
                 <asp:LinkButton runat="server" ID="LnkAgregarNuevoMov" Visible="false" CssClass="" data-toggle="tooltip" data-placement="left" OnClick="LnkAgregarNuevoMov_Click"
                     title="Crear Nuevo Movimiento A Partir De" Text="<i class='fa fa-server'></i> Crear A Partir De"></asp:LinkButton>
             </li>
+            <li>
+                <asp:LinkButton runat="server" ID="LnkGenerarVirtual" Visible="false" CssClass="" data-toggle="tooltip" data-placement="left" OnClick="LnkGenerarVirtual_Click"
+                    title="Generar Movimiento Virtual" Text="<i class='fa fa-server'></i> Generar Movimiento Virtual"></asp:LinkButton>
+            </li>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>

Inventarios/EntradasSalidas.aspx.vb

@@ -335,6 +335,10 @@ Partial Class Inventarios_EntradasSalidas
 
 
             If Request("CveMovimiento") IsNot Nothing AndAlso Request("CveMovimiento").ToString.ToEntero > 0 Then
+                If UsuarioActual.CveUsuario = 100 AndAlso UsuarioActual.CveEmpresa = 140 Then
+                    LnkGenerarVirtual.Visible = True
+                End If
+
                 CargaDatos(Request("CveMovimiento").ToString.ToEntero)
                 'CargaGvPaqueteria()
             Else
@@ -1297,7 +1301,7 @@ Partial Class Inventarios_EntradasSalidas
     End Sub
 
 
-    Protected Sub AddNew(CvePS As Integer, PS As String, CveUM As Integer, UM As String, Cantidad As Double, PU As Double, Serie As String, CodigoAF As String, Codigo As String, CveAF As String, Observaciones As String, Lote As String, FechaCaducidad As Date, CveSeccionAlmacen As Integer, SeccionAlmacen As String)
+    Protected Sub AddNew(CvePS As Integer, PS As String, CveUM As Integer, UM As String, Cantidad As Double, PU As Double, Serie As String, CodigoAF As String, Codigo As String, CveAF As String, Observaciones As String, Lote As String, FechaCaducidad As Date, CveSeccionAlmacen As Integer, SeccionAlmacen As String, Optional CargarGV As Boolean = True)
         If DdlAlmacen.SelectedValue.ToEntero <= 0 Then Alert("Seleccione un almacen", TipoMensaje.MsgAdvertencia) : RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") : DdlProducto2.SelectedText = "" : Exit Sub
 
         Dim Valido As Boolean = True
@@ -1378,8 +1382,12 @@ Partial Class Inventarios_EntradasSalidas
             registro.Item("Observaciones") = Observaciones
             registro.Item("AplicaCaducidad") = RowPS("AplicaCaducidad").ToString
             DtMovimientos.Rows.Add(registro)
-            CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
+
-            RegistraScript("playsonidito('beep-07.wav')")
+            If CargarGV Then
+                CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
+                RegistraScript("playsonidito('beep-07.wav')")
+            End If
+
         End If
 
     End Sub
@@ -2375,7 +2383,7 @@ Partial Class Inventarios_EntradasSalidas
 
 #Region "  GVM  "
     Private Sub CargaGVM(DtTemp As DataTable)
-        GvM.DataSource = DtTemp
+        GvM.DataSource = DtTemp '.FiltraPorIndices(0, If(DtTemp.Rows.Count > 20, 19, DtTemp.Rows.Count - 1))
         GvM.DataBind()
 
         EscondeColumnasGVM(DtTemp)
@@ -4567,102 +4575,105 @@ Partial Class Inventarios_EntradasSalidas
             End If
 
             dt.TableName = "Datos"
-            Dim DTSeccionesAlmacen As DataTable = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
+            Try
-            If Not ErrorArchivo Then
+                Dim DTSeccionesAlmacen As DataTable = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
-                NumRow = 0
+                If Not ErrorArchivo Then
-                Dim RowNoEncontrados As String = ""
+                    NumRow = 0
-                Dim NumAgregados As Integer = 0
+                    Dim RowNoEncontrados As String = ""
-                For Each Row As DataRow In dt.Rows
+                    Dim NumAgregados As Integer = 0
-                    Dim Cantidad As Decimal = Row("Cantidad").ToString.ToDecimal
-                    Dim UM As String = Row("UM").ToString
-                    Dim Codigo As String = Row("Código").ToString.Trim.ToUpper
-                    'Dim CodigoBarras As String = Row("Codigo Barras").ToString.Trim.ToUpper
-                    Dim ProductoServicio As String = Row("Producto/Servicio").ToString.Trim.ToUpper
-                    Dim PrecioUnitario As Decimal = Row("Precio Unitario").ToString.ToDecimal
-                    Dim Serie As String = Row("Serie").ToString
-                    Dim Lote As String = Row("Lote").ToString
-                    Dim Caducidad As String = Row("Caducidad").ToString
-                    Dim SeccionAlmacen As String = Row("SeccionAlmacen").ToString
 
-                    Dim CvePS As Integer = 0
+                    For Each Row As DataRow In dt.Rows
-                    Dim CveUM As Integer = 0
+                        Dim Cantidad As Decimal = Row("Cantidad").ToString.ToDecimal
+                        Dim UM As String = Row("UM").ToString
+                        Dim Codigo As String = Row("Código").ToString.Trim.ToUpper
+                        'Dim CodigoBarras As String = Row("Codigo Barras").ToString.Trim.ToUpper
+                        Dim ProductoServicio As String = Row("Producto/Servicio").ToString.Trim.ToUpper
+                        Dim PrecioUnitario As Decimal = Row("Precio Unitario").ToString.ToDecimal
+                        Dim Serie As String = Row("Serie").ToString
+                        Dim Lote As String = Row("Lote").ToString
+                        Dim Caducidad As String = Row("Caducidad").ToString
+                        Dim SeccionAlmacen As String = Row("SeccionAlmacen").ToString
 
-                    NumRow = NumRow + 1
+                        Dim CvePS As Integer = 0
+                        Dim CveUM As Integer = 0
 
-                    Dim CveSeccionAlmacen As Integer = -1
+                        NumRow = NumRow + 1
-                    If SeccionAlmacen <> "" Then
-                        CveSeccionAlmacen = DTSeccionesAlmacen.FiltroPrimeroValor("CveSeccion", String.Format("SeccionAlmacen = '{0}'", SeccionAlmacen)).ToEntero
-                    End If
 
-                    If Codigo <> "" Then
+                        Dim CveSeccionAlmacen As Integer = -1
-                        Dim StrArray() As String = GetPS("Codigo", Codigo).Split("|"c)
+                        If SeccionAlmacen <> "" Then
-                        If StrArray.Length > 0 Then
+                            CveSeccionAlmacen = DTSeccionesAlmacen.FiltroPrimeroValor("CveSeccion", String.Format("SeccionAlmacen = '{0}'", SeccionAlmacen)).ToEntero
-                            If CBool(StrArray(0)) = True Then
-                                CvePS = StrArray(1).ToEntero
-                            Else
-                                RowNoEncontrados &= StrArray(1) & "<\BR>"
-                            End If
                         End If
-                        'ElseIf CodigoBarras <> "" Then
+
-                        '    Dim StrArray() As String = GetPS("CodigoBarras", CodigoBarras).Split("|"c)
+
-                        '    If StrArray.Length > 0 Then
+
-                        '        If CBool(StrArray(0)) = True Then
+                        If Codigo <> "" Then
-                        '            CvePS = StrArray(1).ToEntero
+                            Dim StrArray() As String = GetPS("Codigo", Codigo).Split("|"c)
-                        '        Else
+                            If StrArray.Length > 0 Then
-                        '            RowNoEncontrados &= StrArray(1) & "<\BR>"
+                                If CBool(StrArray(0)) = True Then
-                        '        End If
+                                    CvePS = StrArray(1).ToEntero
-                        '    End If
+                                Else
-                    ElseIf ProductoServicio <> "" Then
+                                    RowNoEncontrados &= StrArray(1) & "<\BR>"
-                        Dim StrArray() As String = GetPS("PS", ProductoServicio).Split("|"c)
+                                End If
-                        If StrArray.Length > 0 Then
-                            If CBool(StrArray(0)) = True Then
-                                CvePS = StrArray(1).ToEntero
-                            Else
-                                RowNoEncontrados &= StrArray(1) & "<\BR>"
                             End If
+                            'ElseIf CodigoBarras <> "" Then
+                            '    Dim StrArray() As String = GetPS("CodigoBarras", CodigoBarras).Split("|"c)
+                            '    If StrArray.Length > 0 Then
+                            '        If CBool(StrArray(0)) = True Then
+                            '            CvePS = StrArray(1).ToEntero
+                            '        Else
+                            '            RowNoEncontrados &= StrArray(1) & "<\BR>"
+                            '        End If
+                            '    End If
+                        ElseIf ProductoServicio <> "" Then
+                            Dim StrArray() As String = GetPS("PS", ProductoServicio).Split("|"c)
+                            If StrArray.Length > 0 Then
+                                If CBool(StrArray(0)) = True Then
+                                    CvePS = StrArray(1).ToEntero
+                                Else
+                                    RowNoEncontrados &= StrArray(1) & "<\BR>"
+                                End If
+                            End If
+                        Else
+                            RowNoEncontrados &= "<\BR>&nbsp;&nbsp;&nbsp;&nbsp;- En la fila " & NumRow & " no se especificó código, código de barras ó descripción."
+                        End If
+
+                        If CvePS > 0 Then
+                            Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).Rows(0)
+
+                            If DrPS IsNot Nothing AndAlso String.IsNullOrEmpty(UM) Then
+                                CveUM = DrPS("CveUnidadMedida").ToString().ToEntero()
+                                UM = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("UnidadMedida", $"CveUnidadMedida={CveUM}")
+                            End If
+
+                            AddNew(CvePS, ProductoServicio, CveUM, UM, Cantidad, PrecioUnitario, Serie.Replace(" ", String.Empty), "", "-1", "-1", "",
+                                   Lote, Caducidad.ToDate, CveSeccionAlmacen, SeccionAlmacen, CargarGV:=False)
+
+                            NumAgregados = NumAgregados + 1
+
+                        End If
+
+                    Next
+
+                    If RowNoEncontrados.Length > 0 Then
+                        Alert("Se Cargaron " & NumAgregados & " Productos o Servicios.<\BR>Los siguientes Productos o Servicios no se encontraron en la Base de Datos.<\BR>" & RowNoEncontrados, TipoMensaje.MsgAdvertencia)
+                        If NumAgregados > 0 Then
+                            RegistraScript("$('#DivCargaExcel').modal('hide')", "hidemodal")
+                            TxtExcel.Text = "[]"
                         End If
                     Else
-                        RowNoEncontrados &= "<\BR>&nbsp;&nbsp;&nbsp;&nbsp;- En la fila " & NumRow & " no se especificó código, código de barras ó descripción."
+                        Alert("Se Cargaron " & NumAgregados & " Productos o Servicios correctamente.")
-                    End If
-
-                    If CvePS > 0 Then
-                        'CveUM = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"CvePS = '{CvePS}'").ToString.ToEntero
-
-                        txtCantidad.Text = Cantidad.ToString
-                        DdlProducto2.SelectedValue = CvePS.ToString
-                        DdlProducto2.SelectedText = Codigo + " - " + ProductoServicio
-                        txtPrecio.Text = PrecioUnitario.ToString
-
-                        ElProductoChange()
-                        TxtnSerie.Text = Serie
-                        TxtnLote.Text = Lote
-                        DdlSeccionAlmacen.SelectedValueExist(CveSeccionAlmacen.ToString)
-                        TxtnFechaCaducidad.Text = If(Caducidad = "", MinFecha.ToString, Caducidad)
-                        AgregarPS()
-                        txtPrecio.Text = ""
-                        DdlUnidad.SelectedItem.Text = ""
-                        TxtnSerie.Text = ""
-                        TxtnLote.Text = ""
-                        TxtnFechaCaducidad.Text = ""
-                        'DdlSeccionAlmacen.SelectedValue = "-1"
-                        NumAgregados = NumAgregados + 1
-
-                    End If
-
-                Next
-
-                If RowNoEncontrados.Length > 0 Then
-                    Alert("Se Cargaron " & NumAgregados & " Productos o Servicios.<\BR>Los siguientes Productos o Servicios no se encontraron en la Base de Datos.<\BR>" & RowNoEncontrados, TipoMensaje.MsgAdvertencia)
-                    If NumAgregados > 0 Then
                         RegistraScript("$('#DivCargaExcel').modal('hide')", "hidemodal")
                         TxtExcel.Text = "[]"
                     End If
-                Else
+
-                    Alert("Se Cargaron " & NumAgregados & " Productos o Servicios correctamente.")
+                    CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
-                    RegistraScript("$('#DivCargaExcel').modal('hide')", "hidemodal")
+                    RegistraScript("playsonidito('beep-07.wav')")
-                    TxtExcel.Text = "[]"
+
                 End If
-            End If
+            Catch ex As Exception
+                OnError("Ocurrió un error al cargar los datos", ex)
+            End Try
+
         End If
         dt.Dispose()
     End Sub
@@ -4969,4 +4980,73 @@ Partial Class Inventarios_EntradasSalidas
 
 
 
+    Protected Sub LnkGenerarVirtual_Click(sender As Object, e As EventArgs)
+        If CveMovimiento > 0 Then
+            Dim DtPSVirtual As New DataTable("DtTamanios")
+            Dim ErrorMovInv As Boolean = False
+
+            Dim CveMovimientoVirtual As Integer = -1
+            Dim FolioVirtual As Integer = -1
+
+            Dim tCveAlmacen As Integer = -1
+            Dim tOrigen As Integer = -1
+            Dim ObjInventario As New ClsInventarios
+            ObjInventario.IniciaTransacSQL()
+
+            Try
+                If ObjInventario.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
+                    tCveAlmacen = ObjInventario.DtResultados.FiltroPrimeroValor("CveAlmacen").ToEntero()
+                    tOrigen = ObjInventario.DtResultados.FiltroPrimeroValor("Origen").ToEntero()
+                End If
+
+                Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=tCveAlmacen).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero()
+
+                'VERIFICA SI TIENE ALMACEN VIRTUAL
+                If CveAlmacenVirtual > 0 Then
+                    If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa) Then
+                        DtPSVirtual = ObjInventario.DtResultados
+                    End If
+
+                    If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 Then
+
+                        CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, If(tOrigen > 0, 2, 3), 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveMovimientoRelacionado:=CveMovimiento, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="ES/GV")
+                        FolioVirtual = ObjInventario.Folio
+
+                        For Each RowUsado As DataRow In DtPSVirtual.Rows
+                            Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
+                            Dim CantidadUsado As Decimal = RowUsado("Cantidad").ToString().ToDecimal()
+                            Dim PU As Decimal = RowUsado("Cargo").ToString().ToDecimal()
+                            Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
+
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                                ErrorMovInv = True
+                                Exit For
+                            End If
+                        Next
+                    Else
+                        ErrorMovInv = True
+                        Alert("No hay usados para generar el virtual", TipoMensaje.MsgAdvertencia)
+                    End If
+                Else
+                    ErrorMovInv = True
+                    Alert("El almacen no tiene vinculado un almacen virtual", TipoMensaje.MsgAdvertencia)
+                End If
+            Catch ex As Exception
+                ErrorMovInv = True
+            End Try
+
+            If ErrorMovInv Then
+                ObjInventario.RollBack()
+            Else
+                ObjInventario.Commit()
+            End If
+
+            ObjInventario.Dispose()
+
+            If CveMovimientoVirtual > 0 AndAlso Not ErrorMovInv Then
+                Alert($"Se generó el movimiento virtual con el folio:<b>{FolioVirtual}<b/>")
+            End If
+        End If
+
+    End Sub
 End Class

Inventarios/TraspasoAlmacen.aspx.vb

@@ -3065,7 +3065,13 @@ Partial Class Inventarios_TraspasoAlmacen
         Dim DrAlmO As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero).FiltroPrimero("")
         If DrAlmO("CveTipoAlmacen").ToString.ToEntero = 26 Then 'costeados
 
-            DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen  IN (26) AND Estatus = 'Activo'")
+            DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen IN (26) AND Estatus = 'Activo'")
+            DdlAlmacenDestino.DataBind()
+            DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+        ElseIf DrAlmO("CveTipoAlmacen").ToString.ToEntero = 22 Then 'Recepcion de Usados
+
+            DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen IN (22) AND Estatus = 'Activo'")
             DdlAlmacenDestino.DataBind()
             DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
         Else

LogIn.aspx

@@ -5,7 +5,7 @@
 <html lang="es-mx">
 <head xmlns="http://www.w3.org/1999/xhtml" runat="server">
     <title><%= If(Request.Url.Host.ToUpper().Contains("signalsgps".ToUpper()), "", "SIG -") %> Inicio de Sesión</title>
-    <link rel="shortcut icon" href="/Imagenes/favicon.ico" />
+    <link id="lnkFavicon" runat="server" rel="shortcut icon" href="/Imagenes/favicon.ico" />
     <meta charset="utf-8" />
     <meta http-equiv="Content-type" content="text/html; charset=utf-8" />
     <meta name="viewport" content="width=device-width, initial-scale=1.0" />

LogIn.aspx.vb

@@ -72,6 +72,7 @@ Partial Class LogIn
                 Ltlcopyright2.Text = "2019 © Sistema de Monitoreo y Telemedición SA de CV"
                 PnlLoginB.CssClass = "logincint login-form "
                 PnlContraB.CssClass = "logincint login-form "
+                lnkFavicon.Href = "/Imagenes/favicongps.ico"
             Else
             End If
 

Site.master

@@ -37,7 +37,7 @@
     </asp:ContentPlaceHolder>
 
     <!-- END STYLES -->
-    <link rel="shortcut icon" href="/Imagenes/favicon.ico" />
+    <link id="lnkFavicon" runat="server" rel="shortcut icon" href="/Imagenes/favicon.ico" />
 </head>
 <body id="mBody" runat="server" class="page-header-fixed  page-quick-sidebar-over-content">
 

Site.master.vb

@@ -74,6 +74,12 @@ Partial Class Site
                     TxtTit.Visible = True
                 End If
 
+                If UsuarioActual.Empresa.CvePlataforma = 3 Then
+                    lnkFavicon.Href = "/Imagenes/favicongps.ico"
+                Else
+                    lnkFavicon.Href = "/Imagenes/favicon.ico"
+                End If
+
                 Dim thisURL As String = Request.Url.Segments(Request.Url.Segments.Count - 1)
                 If thisURL.Equals("WizardRegistro.aspx") OrElse thisURL.Equals("Registro.aspx") Then
                     LitTit.Text = "<span style='color:white; font-size:x-large'>AD</span>&nbsp;<span style='color:  #32A1CF; font-size:x-large'> Soluciones en TI</span> "

SiteGPS.master

@@ -58,7 +58,7 @@
     <asp:ContentPlaceHolder ID="Css" runat="server">
     </asp:ContentPlaceHolder>
     <!-- END THEME LAYOUT STYLES -->
-    <link rel="shortcut icon" href="favicon.ico" />
+    <link rel="shortcut icon" href="/Imagenes/favicongps.ico" />
 </head>
 <!-- END HEAD -->
 <body class="page-container-bg-solid  page-header-top-fixed" id="mBody" runat="server">

SiteGPS.master.vb

@@ -326,7 +326,7 @@ Partial Class SiteGPS
 
         LtlMNotificaciones.Text = Notificaciones.ToString
         If countNotificaciones > 0 Then
-            RegistraScript($"  var newTitle = '(' + {countNotificaciones} + ') ' + 'SIG GPS';
+            RegistraScript($"  var newTitle = '(' + {countNotificaciones} + ') ' + 'SIGNALS GPS';
                             document.title = newTitle; ")
         End If
 

Ventas/PV.aspx

@@ -589,7 +589,7 @@
         <asp:UpdatePanel ID="UpTurno" runat="server" UpdateMode="Conditional" class=" xspadding .nolineheight bordered whitoutcol" style="color: white;">
             <ContentTemplate>
                 <div id="DivBloqueo" runat="server" style="width: 100%; text-align: center;" visible="false">
-                    <asp:Button ID="BtnBloquearAcceso" CssClass="btn red-haze btn-outline btn-circle btn-sm" runat="server" Text="Bloquear Turno" OnClick="BtnBloquearAcceso_Click" />
+                    <asp:Button ID="BtnBloquearAcceso" ClientIDMode="Static" CssClass="btn red-haze btn-outline btn-circle btn-sm" runat="server" Text="Bloquear Turno" OnClick="BtnBloquearAcceso_Click" />
                 </div>
             </ContentTemplate>
         </asp:UpdatePanel>
@@ -837,11 +837,11 @@
                                                     <td></td>
                                                 </tr>
                                                 <tr align="right">
-                                                    <td><b style="font-size:18px">Total:</b></td>
+                                                    <td><b style="font-size: 18px">Total:</b></td>
                                                     <td>
                                                         <asp:UpdatePanel runat="server">
                                                             <ContentTemplate>
-                                                                <asp:TextBox ID="TxtTotal" runat="server" ClientIDMode="Static" BorderStyle="None" Style="text-align: right; font-weight: bold; font-size:18px" Text="0.00" Width="78px" ReadOnly="true"></asp:TextBox>
+                                                                <asp:TextBox ID="TxtTotal" runat="server" ClientIDMode="Static" BorderStyle="None" Style="text-align: right; font-weight: bold; font-size: 18px" Text="0.00" Width="78px" ReadOnly="true"></asp:TextBox>
                                                                 <asp:HiddenField ID="HdnVentaSaldo" runat="server" ClientIDMode="Static" Value="0" />
                                                                 <asp:HiddenField ID="HdnTotalVenta" runat="server" ClientIDMode="Static" Value="0" />
                                                             </ContentTemplate>
@@ -1950,13 +1950,14 @@
                 <td colspan="1">
                     <asp:Label runat="server" Text="Código de Acceso:" Font-Bold="true" Width="120px" />
                 </td>
-                <td colspan="1" style="text-align:center">
+                <td colspan="1" style="text-align: center">
                     <asp:TextBox ID="TxtCodigoAcceso" runat="server" type="password"></asp:TextBox>
                     <asp:RequiredFieldValidator ID="RFVCodigoAcceso" runat="server" ControlToValidate="TxtCodigoAcceso" Display="None" ErrorMessage="<span class='has-error'><span id='username-error' class='help-block'>El campo <b>''Código de Acceso''</b> es necesario.</span></span>" ValidationGroup="GrpValidarCodigo"></asp:RequiredFieldValidator>
                 </td>
             </tr>
             <tr>
-                <td colspan="2" > <span class='has-error'><span id='username-error' class='help-block'><asp:Literal ID="LtlMensajeBloqueo" runat="server" Text=""></asp:Literal></span></span></td>
+                <td colspan="2"><span class='has-error'><span id='username-error' class='help-block'>
+                    <asp:Literal ID="LtlMensajeBloqueo" runat="server" Text=""></asp:Literal></span></span></td>
             </tr>
         </table>
         <asp:Button ID="BtnCambiar" runat="server" CssClass="btn btn-success btn-sm" Text="Desbloquear" ValidationGroup="GrpValidarCodigo" OnClick="BtnCambiar_Click" />
@@ -2861,9 +2862,9 @@
                                         </div>
                                     </div>
                                     <asp:UpdatePanel ID="UpAjuste" runat="server" class="portlet-body form" UpdateMode="Conditional">
-                                        <Triggers>
+                                        <%--<Triggers>
                                             <asp:PostBackTrigger ControlID="BtnPDFHistorial" />
-                                        </Triggers>
+                                        </Triggers>--%>
                                         <ContentTemplate>
                                             <div class="col-md-1" id="DivAjuste" runat="server" visible="false">
                                                 <div class="portlet light xspadding bordered">
@@ -3114,6 +3115,15 @@
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script type="text/javascript">
+        function bloquearAcceso() {
+            $('#BtnBloquearAcceso').click();
+        }
+        function descargarPDF(urlfactura, urlajuste) {
+            window.open(urlfactura, '_blank');
+            if (urlajuste != '') {
+                setTimeout(function () { window.open(urlajuste, '_blank'); }, 2000);
+            }
+        }
 
         // Get the input field
         var txtCodigoAcceso = document.getElementById("C_TxtCodigoAcceso");
@@ -3487,71 +3497,71 @@
                 $get("TxtCambio").value = FormatoNumero(total - totalVenta);
             } else {
                 if ('<%= UsuarioActual.Empresa.Funcionalidad(531) %>' == '1') {
-                    lblCambio.innerHTML = "Faltante:"
+                lblCambio.innerHTML = "Faltante:"
-                    $get("TxtCambio").value = FormatoNumero(total - totalVenta);
+                $get("TxtCambio").value = FormatoNumero(total - totalVenta);
-                } else {
-                    $get("TxtCambio").value = "$0.00"
-                }
-            }
-
-            $get("TxtImporteContado").value = total;
-
-        }
-
-        // ****************************************************************************************************************************************************************************
-
-        // ************** Contratos **************************************************************************************************************************************************
-
-        function AjustaTotales(_this) {
-
-            var pu; var cant;
-            if (_this.val().trim() == '') {
-                cant = 0;
             } else {
-                cant = ToDouble(_this.val());
+                $get("TxtCambio").value = "$0.00"
             }
-
-            pu = ToDouble(_this.parent().prev().text());
-            _this.parent().next().html(FormatoNumero(pu * cant, 2));
-            //console.log(pu);
-            //console.log(cant);
-            //console.log(pu * cant);
         }
 
-        function loadpage() {
+        $get("TxtImporteContado").value = total;
-            $('.AjustaT').each(function () {
+
-                AjustaTotales($(this));
+    }
-            })
+
-            $('.AjustaT').change(function () {
+    // ****************************************************************************************************************************************************************************
-                AjustaTotales($(this));
+
-            });
+    // ************** Contratos **************************************************************************************************************************************************
+
+    function AjustaTotales(_this) {
+
+        var pu; var cant;
+        if (_this.val().trim() == '') {
+            cant = 0;
+        } else {
+            cant = ToDouble(_this.val());
         }
-        jQuery(document).ready(function () {
+
-            loadpage();
+        pu = ToDouble(_this.parent().prev().text());
-            Sys.Application.add_load(function (s, e) {
+        _this.parent().next().html(FormatoNumero(pu * cant, 2));
-                loadpage();
+        //console.log(pu);
-            });
+        //console.log(cant);
+        //console.log(pu * cant);
+    }
+
+    function loadpage() {
+        $('.AjustaT').each(function () {
+            AjustaTotales($(this));
+        })
+        $('.AjustaT').change(function () {
+            AjustaTotales($(this));
         });
-        /*mover esta funcion al final*/
+    }
-        //function AjustarTotales() {
+    jQuery(document).ready(function () {
-        //    $get('C_Tab_TabEstimaciones_BtnCalcularTotalesContrato').click();
+        loadpage();
-        //}
+        Sys.Application.add_load(function (s, e) {
-        // ****************************************************************************************************************************************************************************
+            loadpage();
+        });
+    });
+    /*mover esta funcion al final*/
+    //function AjustarTotales() {
+    //    $get('C_Tab_TabEstimaciones_BtnCalcularTotalesContrato').click();
+    //}
+    // ****************************************************************************************************************************************************************************
 
 
-        // bad implementation
+    // bad implementation
-        function sleep(milliSeconds) {
+    function sleep(milliSeconds) {
-            var startTime = new Date().getTime(); // get the current time
+        var startTime = new Date().getTime(); // get the current time
-            while (new Date().getTime() < startTime + milliSeconds); // hog cpu
+        while (new Date().getTime() < startTime + milliSeconds); // hog cpu
-        }
+    }
 
-        function PrendeTextBox(Chk, Obj, Saldo, Row) {
+    function PrendeTextBox(Chk, Obj, Saldo, Row) {
-            $get("HdnTipoDescuento").value = "3";
+        $get("HdnTipoDescuento").value = "3";
-            if ($("#" + Chk.id).is(":checked")) {
+        if ($("#" + Chk.id).is(":checked")) {
-                $get(Obj).readOnly = false;
+            $get(Obj).readOnly = false;
-                $get(Row).style.backgroundColor = "#82b6db";
+            $get(Row).style.backgroundColor = "#82b6db";
-                $get(Obj).focus();
+            $get(Obj).focus();
-                var total = parseFloat($('#<%= LblSaldoVenta.ClientID%>').text().replace(',', ''));
+            var total = parseFloat($('#<%= LblSaldoVenta.ClientID%>').text().replace(',', ''));
                 $get(Obj).value = 0;
                 var suma = 0;
                 $('#<%= GVAnticipos.ClientID%> input[type="text"]').each(function (index) {

Ventas/PV.aspx.vb

@@ -3262,23 +3262,33 @@ Partial Class PV
                     SbAlert.AppendFormat("{0}<br>", Retorno.Mensajes(Retorno.Mensajes.Count - 1))
                     SbAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF Factura</a></li></ul><br/>", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", Retorno.CveVenta)))
 
+                    Dim urlFactura As String = $"/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", Retorno.CveVenta))}"
+                    Dim urlAjuste As String = ""
+
                     Using ObjAcum As New ClsAcumuladores
                         If ObjAcum.GetGarantiasDetalle(Retorno.CveVenta) Then
                             Dim RowGarantia As DataRow = ObjAcum.DtResultados.FiltroPrimero("")
                             If RowGarantia IsNot Nothing Then
                                 SbAlert.AppendFormat("<ul><li><a class=""Texto"" target=""_blank"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF Ajuste</a></li></ul><br/>", Encripta(String.Format("OP=AJUSTE&CVEGARANTIADETALLE={0}", RowGarantia("CveGarantiaDetalle"))))
-
                                 'AUTO DESCARGAR PDF AJUSTE
-                                RegistraScript($"window.open('/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AJUSTE&CVEGARANTIADETALLE={0}", RowGarantia("CveGarantiaDetalle")))}', '_blank');", "Imprimir")
+                                urlAjuste = $"/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AJUSTE&CVEGARANTIADETALLE={0}", RowGarantia("CveGarantiaDetalle")))}"
                             End If
                         End If
                     End Using
 
                     Retorno.Mensajes(Retorno.Mensajes.Count - 1) = SbAlert.ToString()
+
+                    RegistraScript($"descargarPDF('{urlFactura}','{urlAjuste}');", "Imprimir")
+
+                    'BLOQUEAR LA SESION DESPUES DE GENERAR
+                    If DivBloqueo.Visible Then
+                        Retorno.LigaPV = "bloquearAcceso();"
+                    End If
+
                 End If
 
                 For Each Mensaje In Retorno.Mensajes
-                    Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion), If(Retorno.TieneError, "", Retorno.LigaPV))
+                    Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion), If(Retorno.TieneError, "", Retorno.LigaPV), ShowCloseButton:=False)
                 Next
             Else
                 Alert("No hay partidas agregadas a la factura", TipoMensaje.MsgAdvertencia)
@@ -7309,97 +7319,108 @@ Partial Class PV
 
     Protected Sub BtnPDFHistorial_Click(sender As Object, e As EventArgs)
 
-        Dim ObjPS As New ClsProductosServicios
+        'Dim ObjPS As New ClsProductosServicios
-        Dim MarcaPS As String = ""
+        'Dim MarcaPS As String = ""
-        If ObjPS.GetPS(DdlPSAjuste.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
+        'If ObjPS.GetPS(DdlPSAjuste.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
-            MarcaPS = ObjPS.DtResultados.FiltroPrimeroValor("Marca", String.Format("CvePS = {0}", DdlPSAjuste.SelectedValue.ToEntero))
+        '    MarcaPS = ObjPS.DtResultados.FiltroPrimeroValor("Marca", String.Format("CvePS = {0}", DdlPSAjuste.SelectedValue.ToEntero))
-        End If
+        'End If
 
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+        'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-        Dim DtDatos As New DataTable
+        'Dim DtDatos As New DataTable
 
-        Dim params As New List(Of ReportParameter)
+        'Dim params As New List(Of ReportParameter)
 
 
-        'Informacion Distribuidor
+        ''Informacion Distribuidor
-        If (DdlDistribuidor.SelectedValue.ToEntero > 0) Then
+        'If (DdlDistribuidor.SelectedValue.ToEntero > 0) Then
 
-            Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlDistribuidor.SelectedValue.ToEntero))
+        '    Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlDistribuidor.SelectedValue.ToEntero))
-            Dim CiudadEstado As String = ""
+        '    Dim CiudadEstado As String = ""
-            Dim Telefono As String = ""
+        '    Dim Telefono As String = ""
-            Dim Nombre As String = ""
+        '    Dim Nombre As String = ""
 
-            If DatosClienteSeleccionado IsNot Nothing Then
+        '    If DatosClienteSeleccionado IsNot Nothing Then
-                CiudadEstado = String.Format("{0}, {1}", DatosClienteSeleccionado("Ciudad"), DatosClienteSeleccionado("Estado"))
+        '        CiudadEstado = String.Format("{0}, {1}", DatosClienteSeleccionado("Ciudad"), DatosClienteSeleccionado("Estado"))
-                Telefono = DatosClienteSeleccionado("Telefono").ToString
+        '        Telefono = DatosClienteSeleccionado("Telefono").ToString
-                Nombre = DatosClienteSeleccionado("Nombre").ToString
+        '        Nombre = DatosClienteSeleccionado("Nombre").ToString
-            End If
+        '    End If
 
-            params.Add(New ReportParameter("NombreDistribuidor", Nombre))
+        '    params.Add(New ReportParameter("NombreDistribuidor", Nombre))
-            params.Add(New ReportParameter("CiudadEstado", CiudadEstado))
+        '    params.Add(New ReportParameter("CiudadEstado", CiudadEstado))
-            params.Add(New ReportParameter("TelCliente", Telefono))
+        '    params.Add(New ReportParameter("TelCliente", Telefono))
 
-        End If
+        'End If
-        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+        'params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
-        params.Add(New ReportParameter("Consec", TxtConsecutivoAjuste.Text.Trim))
+        'params.Add(New ReportParameter("Consec", TxtConsecutivoAjuste.Text.Trim))
-        params.Add(New ReportParameter("FolioAcuse", If(DdlFolioGarantia.SelectedValue.ToEntero = -1, "", DdlFolioGarantia.SelectedItem.Text)))
+        'params.Add(New ReportParameter("FolioAcuse", If(DdlFolioGarantia.SelectedValue.ToEntero = -1, "", DdlFolioGarantia.SelectedItem.Text)))
 
-        'Informacion de Garantia o ajuste
+        ''Informacion de Garantia o ajuste
-        params.Add(New ReportParameter("FechaInst", TxtFechaAjuste.Text.Trim))
+        'params.Add(New ReportParameter("FechaInst", TxtFechaAjuste.Text.Trim))
-        params.Add(New ReportParameter("Fecha", Now.ToShortDateString))
+        'params.Add(New ReportParameter("Fecha", Now.ToShortDateString))
-        params.Add(New ReportParameter("Defecto", If(DdlTipoDefecto.SelectedValue.ToEntero = -1, "", DdlTipoDefecto.SelectedItem.Text)))
+        'params.Add(New ReportParameter("Defecto", If(DdlTipoDefecto.SelectedValue.ToEntero = -1, "", DdlTipoDefecto.SelectedItem.Text)))
-        params.Add(New ReportParameter("MesesUso", TxtMesesUso.Text.Trim))
+        'params.Add(New ReportParameter("MesesUso", TxtMesesUso.Text.Trim))
-        params.Add(New ReportParameter("PorcentajeAjuste", TxtPorcentajeAjuste.Text.Trim))
+        'params.Add(New ReportParameter("PorcentajeAjuste", TxtPorcentajeAjuste.Text.Trim))
 
-        'Informacion Acumulador
+        ''Informacion Acumulador
-        params.Add(New ReportParameter("CodEnsamble", TxtCodEnsamble.Text.Trim))
+        'params.Add(New ReportParameter("CodEnsamble", TxtCodEnsamble.Text.Trim))
-        params.Add(New ReportParameter("CodLinea", TxtCodLinea.Text.Trim))
+        'params.Add(New ReportParameter("CodLinea", TxtCodLinea.Text.Trim))
-        params.Add(New ReportParameter("CodInspeccion", TxtCodInspeccion.Text.Trim))
+        'params.Add(New ReportParameter("CodInspeccion", TxtCodInspeccion.Text.Trim))
-        params.Add(New ReportParameter("Tipo", DdlBCIAjuste.SelectedItem.Text))
+        'params.Add(New ReportParameter("Tipo", DdlBCIAjuste.SelectedItem.Text))
-        params.Add(New ReportParameter("Marca", MarcaPS))
+        'params.Add(New ReportParameter("Marca", MarcaPS))
-        params.Add(New ReportParameter("Etiqueta", TxtEtiqueta.Text))
+        'params.Add(New ReportParameter("Etiqueta", TxtEtiqueta.Text))
 
-        'Informacion Vehiculo
+        ''Informacion Vehiculo
-        params.Add(New ReportParameter("MarcaAuto", If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Marca", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), "")))
+        'params.Add(New ReportParameter("MarcaAuto", If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Marca", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), "")))
-        params.Add(New ReportParameter("TipoAuto", If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Modelo", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), "")))
+        'params.Add(New ReportParameter("TipoAuto", If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Modelo", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), "")))
 
-        'Informacion Consumidor
+        ''Informacion Consumidor
-        'Informacion Distribuidor
+        ''Informacion Distribuidor
-        If (CveCliente > 0) Then
+        'If (CveCliente > 0) Then
 
-            Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlDistribuidor.SelectedValue.ToEntero))
+        '    Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlDistribuidor.SelectedValue.ToEntero))
-            Dim Nombre As String = ""
+        '    Dim Nombre As String = ""
-            Dim Ciudad As String = ""
+        '    Dim Ciudad As String = ""
-            Dim Estado As String = ""
+        '    Dim Estado As String = ""
-            Dim Direccion As String = ""
+        '    Dim Direccion As String = ""
-            Dim Telefono As String = ""
+        '    Dim Telefono As String = ""
 
-            If DatosClienteSeleccionado IsNot Nothing Then
+        '    If DatosClienteSeleccionado IsNot Nothing Then
-                Nombre = DatosClienteSeleccionado("Nombre").ToString
+        '        Nombre = DatosClienteSeleccionado("Nombre").ToString
-                Ciudad = DatosClienteSeleccionado("Ciudad").ToString
+        '        Ciudad = DatosClienteSeleccionado("Ciudad").ToString
-                Estado = DatosClienteSeleccionado("Estado").ToString
+        '        Estado = DatosClienteSeleccionado("Estado").ToString
-                Direccion = DatosClienteSeleccionado("Direccion").ToString
+        '        Direccion = DatosClienteSeleccionado("Direccion").ToString
-                Telefono = DatosClienteSeleccionado("Telefono").ToString
+        '        Telefono = DatosClienteSeleccionado("Telefono").ToString
-            End If
+        '    End If
 
-            params.Add(New ReportParameter("NombreCliente", Nombre))
+        '    params.Add(New ReportParameter("NombreCliente", Nombre))
-            params.Add(New ReportParameter("Direccion", Direccion))
+        '    params.Add(New ReportParameter("Direccion", Direccion))
-            params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad, Estado)))
+        '    params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad, Estado)))
-            params.Add(New ReportParameter("TelConsumidor", Telefono))
+        '    params.Add(New ReportParameter("TelConsumidor", Telefono))
-        End If
+        'End If
 
-        If Imagen.Exists Then
+        'If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+        '    params.Add(New ReportParameter("LogoPath", logouri))
-        Else
+        'Else
-            params.Add(New ReportParameter("LogoPath", ""))
+        '    params.Add(New ReportParameter("LogoPath", ""))
-        End If
+        'End If
 
-        params.Add(New ReportParameter("Anio", TxtAnioVehiculo.Text))
+        'params.Add(New ReportParameter("Anio", TxtAnioVehiculo.Text))
-        params.Add(New ReportParameter("Comprobante", TxtComprobante.Text))
+        'params.Add(New ReportParameter("Comprobante", TxtComprobante.Text))
-        params.Add(New ReportParameter("CodigoTD", TxtCodigoTD.Text))
+        'params.Add(New ReportParameter("CodigoTD", TxtCodigoTD.Text))
 
-        ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF")
+        Dim URLDescarga As New StringBuilder
+
+        URLDescarga.Append($"OP=AJUSTE&CVEPSAJUSTE={DdlPSAjuste.SelectedValue.ToEntero}&CVECLIENTE={CveCliente}&CVECLIENTEDISTRIBUIDOR={DdlDistribuidor.SelectedValue.ToEntero()}&CONSEC={TxtConsecutivoAjuste.Text.Trim}")
+        URLDescarga.Append($"&FOLIOGARANTIA={If(DdlFolioGarantia.SelectedValue.ToEntero = -1, "", DdlFolioGarantia.SelectedItem.Text)}&FECHAAJUSTE={TxtFechaAjuste.Text.Trim}&FECHARECLAMACION={Now.ToString("dd/MM/yyyy")}")
+        URLDescarga.Append($"&TIPODEFECTO={If(DdlTipoDefecto.SelectedValue.ToEntero = -1, "", DdlTipoDefecto.SelectedItem.Text)}&CVETIPOUSO={DdlTipoUso.SelectedValue.ToEntero()}&CODIGOENSAMBLE={TxtCodEnsamble.Text.Trim}&CODIGOLINEA={TxtCodLinea.Text.Trim}")
+        URLDescarga.Append($"&CODIGOINSPECCION={TxtCodInspeccion.Text.Trim}&PORCENTAJEAJUSTE={TxtPorcentajeAjuste.Text.Trim}&BCIAJUSTE={DdlBCIAjuste.SelectedItem.Text}&ETIQUETA={TxtEtiqueta.Text.Trim}&AÑO={TxtAnioVehiculo.Text}&COMPROBANTE={TxtComprobante.Text}")
+        URLDescarga.Append($"&MODELOAUTO={If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Modelo", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), "")}&MARCAAUTO={If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Marca", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), "")}&CODIGOTD={TxtCodigoTD.Text.Trim}")
+
+
+        RegistraScript($"window.open('/Compras/PopUpVerFactura.aspx?P={Encripta(URLDescarga.ToString())}', '_blank');", "Imprimir")
+
+        'ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF", Content_Disposition:="inline")
 
     End Sub
 

Ventas/RepProductosServicios.aspx

@@ -319,9 +319,9 @@
                                 <asp:ListItem Text="Venta Mostrador" Value="2"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
-                        <label class="col-md-1 truncate">Modalidad Contable:</label>
+                        <label class="col-md-1 truncate">Lectura administrativa:</label>
                         <div class="col-md-2">
-                            <asp:CheckBox ID="ChkModalidadContable" runat="server" Checked="false" CssClass="input-sm" />
+                            <asp:CheckBox ID="ChkLecturaAdmin" runat="server" Checked="false" CssClass="input-sm" />
                         </div>
 
                     </div>

Ventas/RepProductosServicios.aspx.vb

@@ -267,13 +267,15 @@ Partial Class Ventas_RepProductosServicios
         Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
         Dim CveCliente As Integer = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)
 
+        Dim ModalidadContable As Boolean = Not ChkLecturaAdmin.Checked
+
         Dim ObjVentas As New ClsVentas()
         If ObjVentas.GetRepProductosServicios(DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero,
                                               DdlPS.SelectedValue.ToEntero, FechaI, FechaF, FechaIEjec, FechaFEjec, CveCliente,
                                               DdlSubProyectoEjecucion.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, "-1",
                                               UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante,
                                               CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveProveedorCompra:=CveProveedorCompra,
-                                              CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, MostrarLitraje:=ChkLitraje.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ChkModalidadContable.Checked) Then
+                                              CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, MostrarLitraje:=ChkLitraje.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable) Then
             GvDatos.DataSource = ObjVentas.DtResultados
             DtVentas = ObjVentas.DtResultados
         Else
@@ -357,7 +359,7 @@ Partial Class Ventas_RepProductosServicios
                                                                                     e.Row.DBCampo("CveProyecto"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCategoria"), e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("CvePS"),
                                                                                     e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyectoEjecucion"), e.Row.DBCampo("Vendedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"),
                                                                                     e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("AnioEjec"), e.Row.DBCampo("MesEjec"), e.Row.DBCampo("AnioMesEjec"), e.Row.DBCampo("FechaEjec"),
-                                                                                    FechaI, FechaF, FechaIEjec, FechaFEjec, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveGpo"), e.Row.DBCampo("CveMoneda"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveClienteClasificacion"), e.Row.DBCampo("CveProveedorCompra"), cveMarca, CveClasificacionDetalle, If(DdlGrupo.SelectedValue.ToEntero = 23, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), If(ChkModalidadContable.Checked, 1, 0))
+                                                                                    FechaI, FechaF, FechaIEjec, FechaFEjec, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveGpo"), e.Row.DBCampo("CveMoneda"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveClienteClasificacion"), e.Row.DBCampo("CveProveedorCompra"), cveMarca, CveClasificacionDetalle, If(DdlGrupo.SelectedValue.ToEntero = 23, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), If(Not ChkLecturaAdmin.Checked, 1, 0))
 
 
             e.Row.FCLiteral("LtlGrupo").Text = String.Format("<a target=""_blank"" Class=""{0}"" href=""{1}"">{2}</a>", Css, Liga, e.Row.DBCampo("Gpo"))

Ventas/RepProductosServiciosDetalle.aspx

@@ -315,9 +315,9 @@
                                 <asp:ListItem Text="Venta Mostrador" Value="2"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
-                        <label class="col-md-1 truncate">Modalidad Contable:</label>
+                        <label class="col-md-1 truncate">Lectura administrativa:</label>
                         <div class="col-md-2">
-                            <asp:CheckBox ID="ChkModalidadContable" runat="server" Checked="false" CssClass="input-sm" />
+                            <asp:CheckBox ID="ChkLecturaAdmin" runat="server" Checked="false" CssClass="input-sm" />
                         </div>
                     </div>
                 </div>

Ventas/RepProductosServiciosDetalle.aspx.vb

@@ -402,7 +402,8 @@ Partial Class Ventas_RepProductosServiciosDetalle
         TxtFechaIEjec.Text = If(MesEjec <> "-1", String.Format("01/{0}/0001", MesEjec), TxtFechaIEjec.Text)
 
         Dim ModalidadContable As Boolean = CBool(If(Request("ModalidadContable") IsNot Nothing, Request("ModalidadContable").ToEntero(), 0))
-        ChkModalidadContable.Checked = ModalidadContable
+
+        ChkLecturaAdmin.Checked = Not ModalidadContable
 
         CveMoneda = If(Request("CveMoneda") IsNot Nothing AndAlso Request("CveMoneda").ToEntero() > 0, Request("CveMoneda").ToEntero(), -1).ToEntero
         DdlProyecto.SelectedValueExist(CveProyecto)
@@ -462,7 +463,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
                                               UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante, GPO:=DdlGrupo.SelectedValue.ToEntero, CveMoneda:=CveMoneda,
                                               TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveProveedorCompra:=CveProveedorCompra,
                                               CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero(), TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero,
-                                              ModalidadContable:=ChkModalidadContable.Checked) Then
+                                              ModalidadContable:=Not ChkLecturaAdmin.Checked) Then
             GvDatos.DataSource = ObjVentas.DtResultados
             TmpDT = ObjVentas.DtResultados
         Else

Ventas/RepProductosServiciosPeriodo.aspx

@@ -237,9 +237,9 @@
                         </div>
                     </div>
                     <div class="row" >
-                        <label class="col-md-1 truncate">Modalidad Contable:</label>
+                        <label class="col-md-1 truncate">Lectura administrativa:</label>
                         <div class="col-md-2">
-                            <asp:CheckBox ID="ChkModalidadContable" runat="server" Checked="false" CssClass="input-sm" />
+                            <asp:CheckBox ID="ChkLecturaAdmin" runat="server" Checked="false" CssClass="input-sm" />
                         </div>
                     </div>
                 </div>

Ventas/RepProductosServiciosPeriodo.aspx.cs

@@ -354,7 +354,7 @@ public partial class Ventas_RepProductosServiciosPeriodo : ClsPaginas
         if (txtFechaI.Text.Trim() != "") { FechaI = txtFechaI.Text.ToDate(); } else { FechaI = MinFecha; }
         if (txtFechaF.Text.Trim() != "") { FechaF = txtFechaF.Text.ToDate(); } else { FechaF = MaxFecha; }
         if (TxtFechaIEjec.Text.Trim() != "") { FechaIEjec = TxtFechaIEjec.Text.ToDate(); } else { FechaIEjec = MinFecha; }
-        if (TxtFechaFEjec.Text.Trim() != "") { FechaFEjec = TxtFechaFEjec.Text.ToDate(); } else { FechaFEjec = MaxFecha; }
+        if (TxtFechaFEjec.Text.Trim() != "") { FechaFEjec = TxtFechaFEjec.Text.ToDate(); } else { FechaFEjec = MaxFecha; }
 
         if (ObjVentas.GetRepPSPeriodo(FechaI, FechaF, FechaIEjec, FechaFEjec, DdlClientes.SelectedValue.ToEntero(), DdlSubProyectoEjecucion.SelectedValue.ToEntero(),
             DdlVendedor.SelectedValue.ToEntero(), DdlUsuario.SelectedValue.ToEntero(), DdlEstatus.SelectedValue.ToEntero(), "-1", UsuarioActual.CveEmpresa,

Ventas/RepVentaDetalle.aspx

@@ -304,9 +304,9 @@
 
                     </div>
                     <div class="row">
-                        <label class="col-md-1 truncate">Modalidad Contable:</label>
+                        <label class="col-md-1 truncate">Lectura administrativa:</label>
                         <div class="col-md-2">
-                            <asp:CheckBox ID="ChkModalidadContable" runat="server" Checked="false" CssClass="input-sm" />
+                            <asp:CheckBox ID="ChkLecturaAdmin" runat="server" Checked="false" CssClass="input-sm" />
                         </div>
                     </div>
                 </div>

Ventas/RepVentaDetalle.aspx.vb

@@ -482,13 +482,15 @@ Partial Class RepVentaDetalle
 
         Dim ModalidadContable As Boolean = CBool(If(Request("ModalidadContable") IsNot Nothing, Request("ModalidadContable").ToEntero(), 0))
 
+        ChkLecturaAdmin.Checked = Not ModalidadContable
+
         Dim ObjVentas As New ClsVentas()
         'FechaI, FechaF, -1, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero
         If ObjVentas.GetRepVentasDetalle(DdlGrupo.SelectedValue.ToEntero, Anio.ToEntero, Mes.ToEntero, AnioMes, Fecha, CveCliente,
                                          IVA, Vendedores, DdlUsuario.SelectedValue.ToEntero, Estatus, FechaI, FechaF,
                                          CveCorte.ToEntero, TipoComprobante, DdlSubProyectoEjecucion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, FechaIEjec, FechaFEjec,
                                          CveProyecto, Sucursales, TipoCambio, TCEspecifico, CveMoneda, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero,
-                                         CveCondicionesPago:=CveCondicionesPago, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable) Then
+                                         CveCondicionesPago:=CveCondicionesPago, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=Not ChkLecturaAdmin.Checked) Then
             DtVentas = AddRows(ObjVentas.DtResultados)
             ImgImprimir.Enabled = True
             GvDatos.DataSource = AddRows(ObjVentas.DtResultados)

Ventas/RepVentas.aspx

@@ -300,9 +300,9 @@
                         </div>
                     </div>
                     <div class="row" id="divModalidadcontable" runat="server" visible="false">
-                        <label class="col-md-1 truncate">Modalidad Contable:</label>
+                        <label class="col-md-1 truncate">Lectura administrativa:</label>
                         <div class="col-md-2">
-                            <asp:CheckBox ID="ChkModalidadContable" runat="server" Checked="false" CssClass="input-sm" />
+                            <asp:CheckBox ID="ChkLecturaAdmin" runat="server" Checked="false" CssClass="input-sm" />
                         </div>
                     </div>
                 </div>

Ventas/RepVentas.aspx.vb

@@ -326,9 +326,11 @@ Partial Class Ventas_RepVentas
         FechaIEjec = If(IsDate(TxtFechaIEjec.Text.Trim()), TxtFechaIEjec.Text.Trim.ToDate, MinFecha)
         FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.Trim.ToDate, MaxFecha)
 
+        Dim ModalidadContable As Boolean = Not ChkLecturaAdmin.Checked
+
         If ObjVentas.GetRepVentas(FechaI, FechaF, FechaIEjec, FechaFEjec, CveCliente, DdlSubProyectoEjecucion.SelectedValue.ToEntero, Vendedores,
                                   DdlUsuario.SelectedValue.ToEntero, Estatus, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, TipoComprobante, DdlProyecto.SelectedValue.ToEntero, Sucursales, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, CveUsuarioConsulta:=UsuarioActual.CveUsuario,
-                                  CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ChkModalidadContable.Checked) Then
+                                  CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable) Then
             GvDatos.DataSource = ObjVentas.DtResultados
             DtVentas = ObjVentas.DtResultados
         Else
@@ -488,7 +490,7 @@ Partial Class Ventas_RepVentas
 
 
             'LIGA A DETALLE
-            Dim Liga As String = $"/Ventas/RepVentaDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&AnioEjec={e.Row.DBCampo("AnioEjec")}&MesEjec={e.Row.DBCampo("MesEjec")}&AnioMesEjec={e.Row.DBCampo("AnioMesEjec")}&FechaEjec={e.Row.DBCampo("FechaEjec")}&CveCliente={e.Row.DBCampo("CveCliente")}&CveVendedor={ e.Row.DBCampo("CveVendedor")}&CveUsuario={e.Row.DBCampo("CveUsuario")}&CveEstatusFactura={e.Row.DBCampo("CveEstatusFactura")}&FechaI={FechaInicial}&FechaF={FechaFinal}&FechaIEjec={FechaIEjec}&FechaFEjec={FechaFEjec}&IVA={e.Row.DBCampo("GPO_IVA")}&CveCorte={ e.Row.DBCampo("CveCorte")}&TipoDocto={ DdlTipoComprobante.GetSelectedValuesM}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={TipoCambio}&TCEspecifico={TCEspecifico}&CveMoneda={CveMoneda}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={DdlCondicionesPago.SelectedValue}&TipoCliente={ If(DdlGrupo.SelectedValue.ToEntero = 20, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue)}&ModalidadContable={If(ChkModalidadContable.Checked, 1, 0)}"
+            Dim Liga As String = $"/Ventas/RepVentaDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&AnioEjec={e.Row.DBCampo("AnioEjec")}&MesEjec={e.Row.DBCampo("MesEjec")}&AnioMesEjec={e.Row.DBCampo("AnioMesEjec")}&FechaEjec={e.Row.DBCampo("FechaEjec")}&CveCliente={e.Row.DBCampo("CveCliente")}&CveVendedor={ e.Row.DBCampo("CveVendedor")}&CveUsuario={e.Row.DBCampo("CveUsuario")}&CveEstatusFactura={e.Row.DBCampo("CveEstatusFactura")}&FechaI={FechaInicial}&FechaF={FechaFinal}&FechaIEjec={FechaIEjec}&FechaFEjec={FechaFEjec}&IVA={e.Row.DBCampo("GPO_IVA")}&CveCorte={ e.Row.DBCampo("CveCorte")}&TipoDocto={ DdlTipoComprobante.GetSelectedValuesM}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={TipoCambio}&TCEspecifico={TCEspecifico}&CveMoneda={CveMoneda}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={DdlCondicionesPago.SelectedValue}&TipoCliente={ If(DdlGrupo.SelectedValue.ToEntero = 20, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue)}&ModalidadContable={If(ChkLecturaAdmin.Checked, 0, 1)}"
 
 
             e.Row.FCLiteral("LtlGrupo").Text = "<a class=""" & Css & """ href=""" & Liga & """>" & e.Row.FCLiteral("LtlGrupo").Text & "</a>"

Ventas/RepVentasPeriodo.aspx

@@ -246,9 +246,9 @@
 
                     </div>
                     <div class="row">
-                        <label class="col-md-1 truncate">Modalidad Contable:</label>
+                        <label class="col-md-1 truncate">Lectura administrativa:</label>
                         <div class="col-md-2">
-                            <asp:CheckBox ID="ChkModalidadContable" runat="server" Checked="false" CssClass="input-sm" />
+                            <asp:CheckBox ID="ChkLecturaAdmin" runat="server" Checked="false" CssClass="input-sm" />
                         </div>
                     </div>
                 </div>

Ventas/RepVentasPeriodo.aspx.vb

@@ -192,10 +192,12 @@ Partial Class RepVentasPeriodo
         FechaIEjec = If(IsDate(TxtFechaIEjec.Text.Trim()), TxtFechaIEjec.Text.Trim.ToDate, MinFecha)
         FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.Trim.ToDate, MaxFecha)
 
+        Dim ModalidadContable As Boolean = Not ChkLecturaAdmin.Checked
+
         If ObjVentas.GetRepVentasPeriodos(FechaI, FechaF, FechaIEjec, FechaFEjec, DdlClientes.SelectedValue.ToEntero, DdlSubProyectoEjecucion.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero,
                                   DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlTipoComprobante.SelectedValue,
                                   DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, CveUsuarioConsulta:=UsuarioActual.CveUsuario,
-                                  VerEn:=VerEn, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ChkModalidadContable.Checked) Then
+                                  VerEn:=VerEn, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable) Then
 
             GvDatos.DataSource = ObjVentas.DtResultados
             DtVentas = ObjVentas.DtResultados

Ventas/Ventas.aspx.vb

@@ -1256,14 +1256,6 @@ Partial Class Ventas
         End Set
     End Property
 
-    Private Property CreditoDisponible As Double
-        Get
-            Return If(IsNothing(ViewState("CreditoDisponible")), 0, ViewState("CreditoDisponible")).ToString().ToDecimal
-        End Get
-        Set(value As Double)
-            ViewState("CreditoDisponible") = value
-        End Set
-    End Property
     Private Property DtAnticipoAmortizacion As DataTable
         Get
             Return CType(ViewState("DtAnticipoAmortizacion"), DataTable)
@@ -1298,7 +1290,14 @@ Partial Class Ventas
             ViewState("CveVentaUsadoDevolucionEfectivo") = value
         End Set
     End Property
-
+    Private Property CveFormaPago33Cliente As Integer
+        Get
+            Return If(IsNothing(ViewState("CveFormaPago33Cliente")), -1, ViewState("CveFormaPago33Cliente")).ToString().ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveFormaPago33Cliente") = value
+        End Set
+    End Property
 #End Region
 
 #Region "Propiedades PuntoVenta"
@@ -2821,7 +2820,7 @@ Partial Class Ventas
                 UpParametros.Update()
                 DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento)
                 CambiaTipoDocto()
-                LimpiaEscondeContado()
+                LimpiaEscondeContado(CveFormaPago33Cliente)
             End If
 
             InicializaAplicarNC()
@@ -2908,6 +2907,8 @@ Partial Class Ventas
         End If
         MostrarOpcionesPaqueteria()
 
+        'UNA VEZ CARGADA LAS CONDICIONES DE PAGO INICIALMENTE, NO VUELVE A SOBREESCRIBIR EL VALOR
+        CveFormaPago33Cliente = -1
     End Sub
     Private Sub BloqueaClasificaciones()
         If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
@@ -5169,7 +5170,7 @@ Partial Class Ventas
         'End If
 
     End Sub
-    Private Sub CargaFormaPago(CveMetodoPago As Integer)
+    Private Sub CargaFormaPago(CveMetodoPago As Integer, Optional CveFormaPago As Integer = -1)
         'FACTURACION 3.3
 
         'permiso para desbloquear la relación entre Método de pago y forma de pago
@@ -5185,9 +5186,14 @@ Partial Class Ventas
         'DdlFormaPago33.ClearSelection()
         'DdlFormaPago33.DataBind()
         DdlFormaPago33.DataSource = dtt
-        DdlFormaPago33.SelectedValue = dtt.FiltroPrimeroValor("CveFormaPago", "")
         DdlFormaPago33.DataBind()
 
+        If CveFormaPago > 0 Then
+            DdlFormaPago33.SelectedValueExist(CveFormaPago)
+        Else
+            DdlFormaPago33.SelectedValueExist(dtt.FiltroPrimeroValor("CveFormaPago", ""))
+        End If
+
         DdlFormaCliente.DataSource = GlobalDTVtaFormaPago
         DdlFormaCliente.DataBind()
         DdlMetodoCliente.DataSource = GlobalDTVtaMetodoPago
@@ -5495,6 +5501,8 @@ Partial Class Ventas
 
                 Dim CveCotizacion As Integer = IfNull(ViewState("CveCotizacion"), 0).ToString().ToEntero()
 
+                Me.CveFormaPago33Cliente = ObjCliente.CveFormaPago33
+
                 If (CveVenta <= 0 AndAlso CveCotizacion <= 0) Or EsCreaApartirDe Or NuevaFactura = 1 Then
                     'CveMetodoPagoCliente = ObjCliente.CveMetodoPago
 
@@ -19975,7 +19983,7 @@ Partial Class Ventas
         TxtImporteOtrosContado.Text = "0.00"
 
     End Sub
-    Private Sub LimpiaEscondeContado()
+    Private Sub LimpiaEscondeContado(Optional CveFormaPagoCliente As Integer = -1)
         'LIMPIA
         DivContado.Visible = False
         DivTerminal.Visible = False
@@ -19994,7 +20002,7 @@ Partial Class Ventas
                     If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
                         DdlFormaPago33.Enabled = False
                         DdlFormaPago33.SelectedValueExist("20")
-                        CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero())
+                        CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero(), CveFormaPagoCliente)
                     End If
 
                 End If
@@ -20012,7 +20020,7 @@ Partial Class Ventas
 
                     If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
                         DdlFormaPago33.Enabled = True
-                        CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero())
+                        CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero(), CveFormaPagoCliente)
                     End If
 
                 End If
@@ -20359,7 +20367,7 @@ Partial Class Ventas
 
     End Sub
     Private Sub RBLPago_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLPago.SelectedIndexChanged
-        LimpiaEscondeContado()
+        LimpiaEscondeContado(CveFormaPago33Cliente)
     End Sub
     Private Function ValidaPagosContado() As Boolean
         Dim Retorno = False