--descripcion de venta en PV.aspx

App_Code/Modelos.vb

@@ -2154,7 +2154,7 @@ Namespace Modelos
                            PedidoContrato:=factura.PedidoContrato, ObservacionesAlmacen:=factura.ObservacionesAlmacen, CveSubProyecto:=factura.CveSubProyecto, CveSubProyectoCobranza:=factura.CveSubProyectoCobranza, CveSubProyectoEjecucion:=factura.CveSubProyectoEjecucion, CveFormaPago33:=factura.CveFormaPago33,
                            CveMetodoPago33:=factura.CveMetodoPago33, CveUsoCFDI:=factura.CveUsoCFDI, OrdenCompra:=factura.OrdenCompra, CveCuentaTerminal:=factura.CveCuentaTerminal, CveTipoRelacion:=factura.CveTipoRelacion, ImpuestoLocal:=TotalImpuestoLocal,
                            CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)),
-                           CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, ServicioDomicilio:=factura.ServicioDomicilio, RFCReceptor:=RFCReceptor, EsGarantia:=factura.EsGarantia) Then
+                           CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, ServicioDomicilio:=factura.ServicioDomicilio, RFCReceptor:=RFCReceptor, EsGarantia:=factura.EsGarantia, DescripcionVenta:=factura.DescripcionVenta) Then
 
                 ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
 
@@ -7459,6 +7459,7 @@ Namespace Modelos
         Public Property FordASN As String = ""
         Public Property FemsaFactura As Modelos.FemsaFactura
         Public Property DevolucionImportePagado As Decimal = 0
+        Public Property DescripcionVenta As String = ""
 
         Public Sub SetSubProyecto()
             If CveSubProyecto > 0 AndAlso UsuarioActual IsNot Nothing Then

Ventas/PV.aspx

@@ -322,6 +322,12 @@
                                 </td>
                             </tr>
 
+                            <tr align="left" id="TrDescripcionVenta" runat="server" visible="false">
+                                <td><b>Descripción:</b></td>
+                                <td colspan="3">
+                                    <asp:TextBox ID="TxtDescripcionVenta" runat="server" Rows="2" TextMode="MultiLine" Width="100%" MaxLength="300" CssClass="form-control input-sm" Enabled="false"></asp:TextBox></td>
+                            </tr>
+
                             <tr align="left" style="border: 4px solid red" runat="server" id="TrEsDistribuidor" visible="false">
                                 <td><b style="color: red;">Es Distribuidor</b></td>
                                 <td></td>

Ventas/PV.aspx.vb

@@ -1283,6 +1283,13 @@ Partial Class PV
             End If
             DdlTipoDefecto.Width = New Unit(260%)
 
+            If UsuarioActual.Empresa.Funcionalidad(163) = "1" Then
+                TrDescripcionVenta.Visible = True
+                If CveVenta <= 0 Then
+                    TxtDescripcionVenta.Enabled = True
+                End If
+            End If
+
             'Le quitamos el tamaño extra
             'RegistraScript("window.onload = function AjustarVentana() { $('.page-content').css('min-height','100%'); }")
         End If
@@ -1510,6 +1517,11 @@ Partial Class PV
                         HdnFolioFiscalNC.Value = DbRowVenta("FolioFiscalPadre").ToString
                     End If
 
+                    If UsuarioActual.Empresa.Funcionalidad(163) = "1" Then
+                        TrDescripcionVenta.Visible = True
+                        TxtDescripcionVenta.Text = DbRowVenta("DescripcionVenta").ToString()
+                    End If
+
 
                     'Envio Direccion
                     If DbRowVenta("CveDireccionEnvio").ToString.ToEntero > 0 AndAlso DbRowVenta("CveDireccionEnvio").ToString IsNot Nothing Then
@@ -3770,6 +3782,8 @@ Partial Class PV
 
             ObjFactura.GenerarPDFFactura = False
 
+            ObjFactura.DescripcionVenta = TxtDescripcionVenta.Text.Trim()
+
             Dim CveTipoAlmacen As Integer = If(TmpDTAjustes IsNot Nothing AndAlso TmpDTAjustes.Rows.Count > 0, 6, 22)
             If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveTipoAlmacen = {CveTipoAlmacen} AND CveSubProyecto= {DdlSubProyectoDatos.SelectedValue}").Rows.Count > 0 Then
                 ObjFactura.CveAlmacenRecepcionUsados = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveTipoAlmacen = {CveTipoAlmacen} AND CveSubProyecto= {DdlSubProyectoDatos.SelectedValue}").Rows(0)("CveAlmacen").ToString.ToEntero