Motivo para autorizaciones

Ventas/Ventas.aspx.vb

@@ -7594,7 +7594,7 @@ Partial Class Ventas
         End If
 
         'VERIFICA SI EL DESCUENTO SUPERA EL SUBTOTAL
-        If ObjDescuento.ImporteDescuento > (Cantidad * PU) Then
+        If ObjDescuento.ImporteDescuento.RoundSQL(2) > (Cantidad * PU).RoundSQL(2) Then
             Alert("El descuento no puede ser mayor al subtotal", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
@@ -21616,7 +21616,7 @@ Partial Class Ventas
         LimpiaProntoPago()
 
         'NO PERMITE EDITAR FECHA DEL PAGO
-        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(260) Then
             TxtFechaPago.Enabled = False
             imgCalendario.Visible = False
         End If
@@ -33740,8 +33740,10 @@ Partial Class Ventas
             DiasVencidos = TxtDiasVencidos.Text.ToEntero()
         End If
 
+        Dim Motivo As String = TxtMotivoAutorizacion.Text
+
         Dim ObjPS As New ClsVentas
-        If ObjPS.AddAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedor.SelectedValue.ToEntero(), TxtImporteSolicitud.Text.ToDecimal(), CveEstatus, UsuarioActual.CveUsuario, CveTipoAutorizacion, TipoDocumento:=DdlTipoDocto.SelectedValue, DiasVencidos:=DiasVencidos) Then
+        If ObjPS.AddAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedor.SelectedValue.ToEntero(), TxtImporteSolicitud.Text.ToDecimal(), CveEstatus, UsuarioActual.CveUsuario, CveTipoAutorizacion, TipoDocumento:=DdlTipoDocto.SelectedValue, DiasVencidos:=DiasVencidos, Motivo:=Motivo) Then
             RegistraScript("$('#DivModalSolicitarCredito').modal('hide')")
             Alert("La autorización se agregó correctamente.", TipoMensaje.MsgInformacion)
         End If
@@ -33772,10 +33774,12 @@ Partial Class Ventas
             Case "Ing"
                 If DdlTipoAutorizacion.Items.FindByValue("2") Is Nothing Then
                     DdlTipoAutorizacion.Items.Insert(0, New ListItem("Vencimiento", "2"))
+                    DivMotivoAutorizacion.Visible = True
                 End If
             Case "Egs"
                 'QUITAR LA DE VENCIMIENTO
                 DdlTipoAutorizacion.Items.Remove(DdlTipoAutorizacion.Items.FindByValue("2"))
+                DivMotivoAutorizacion.Visible = True
         End Select
         UpModalSolicitud.Update()
     End Sub