-- autorización de limites de NC, que considere importe

2022-01-26 12:13:55 -07:00
parent 32d1b156c0
commit 0e1026924b
1 changed files with 4 additions and 1 deletions
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -26934,7 +26934,10 @@ Partial Class Ventas
                    If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, -1, "Egs", CveEstatus:=1) Then
                        Dim RowAutorizacion As DataRow = ObjVentas.DtResultados.FiltroPrimero($"CveVenta IS NULL ", Orderby:="TipoAutorizacion")
                        If RowAutorizacion IsNot Nothing Then
-                            Verificacion = True
+                            Dim ImporteAutorizacion As Decimal = RowAutorizacion("Importe").ToString().ToDecimal()
+                            If ImporteAutorizacion > TxtTotalGv.Text.ToDecimal Then
+                                Verificacion = True
+                            End If
                        End If
                    End If
                    ObjVentas.Dispose()