--Atencion A, si no tiene texto habilitar el campo Atencion A, al aplicar DEV o NC

Ventas/Ventas.aspx.vb

@@ -5065,10 +5065,6 @@ Partial Class Ventas
 
                 Select Case DbRowVenta("TipoDocto").ToString()
                     Case "Ing"
-                        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
-                            TxtAtencionA.Text = DbRowVenta("AtencionA").ToString()
-                        End If
-
                         Trsaldo.Visible = True
                         HplSaldoAuxiliar.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta"))
                         HplPagado.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta"))
@@ -5093,10 +5089,6 @@ Partial Class Ventas
 
                         HplDownXML.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", CveVenta, "XML", DbRowVenta("SerieFolio"), DbRowVenta("TipoDocto"))))
                     Case "Egs"
-                        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
-                            TxtAtencionA.Text = DbRowVenta("AtencionA").ToString()
-                        End If
-
                         HplDownXML.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", CveVenta, "XML", DbRowVenta("SerieFolio"), DbRowVenta("TipoDocto"))))
                         HdnFolioFiscalNC.Value = DbRowVenta("FolioFiscalPadre").ToString()
                         Trsaldo.Visible = True
@@ -5109,10 +5101,6 @@ Partial Class Ventas
                         End If
 
                     Case "Rem"
-                        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
-                            TxtAtencionA.Text = DbRowVenta("AtencionA").ToString()
-                        End If
-
                         Trsaldo.Visible = True
                         HplSaldoAuxiliar.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta"))
                         HplPagado.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta"))
@@ -5128,9 +5116,6 @@ Partial Class Ventas
                         DiasCredito = DbRowVenta("DiasCredito").ToString().ToEntero()
                         EsDiasCreditoFijo = CBool(DbRowVenta("EsDiasCreditoFijo").ToString())
                     Case "RNC"
-                        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
-                            TxtAtencionA.Text = DbRowVenta("AtencionA").ToString()
-                        End If
                         Trsaldo.Visible = True
                         HplSaldoAuxiliar.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta"))
                         HplPagado.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta"))
@@ -5275,6 +5260,10 @@ Partial Class Ventas
 
             End If
 
+            If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                TxtAtencionA.Text = DbRowVenta("AtencionA").ToString()
+            End If
+
             DdlTipoRelacionARelacionar.SelectedValueExist(DbRowVenta("CveTipoRelacion").ToString())
 
             'contado 0, credito 1, terminal 2 
@@ -29039,6 +29028,13 @@ Partial Class Ventas
                 CambiaTipoDocto()
 
             End If
+
+            If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                If TxtAtencionA.Text.Trim.Length = 0 Then
+                    TxtAtencionA.Enabled = True
+                End If
+            End If
+
         Catch ex As Exception
             OnError("Ocurrió un error al aplicar NC", ex)
         End Try
@@ -30060,6 +30056,12 @@ Partial Class Ventas
             Exit Sub
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+            If TxtAtencionA.Text.Trim.Length = 0 Then
+                TxtAtencionA.Enabled = True
+            End If
+        End If
+
         AplicaDevolucion = True
         SaldoVentaDevolucion = HplSaldoAuxiliar.Text.ToDecimal
         CveVentaDevolucion = CveVenta