--descripcion de venta en PV.aspx

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