AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
rrene
2022-01-26 12:13:55 -07:00
parent 32d1b156c0
commit 0e1026924b
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Ventas/Ventas.aspx.vb
View File

@@ -26934,7 +26934,10 @@ Partial Class Ventas
If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, -1, "Egs", CveEstatus:=1) Then If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, -1, "Egs", CveEstatus:=1) Then
Dim RowAutorizacion As DataRow = ObjVentas.DtResultados.FiltroPrimero($"CveVenta IS NULL ", Orderby:="TipoAutorizacion") Dim RowAutorizacion As DataRow = ObjVentas.DtResultados.FiltroPrimero($"CveVenta IS NULL ", Orderby:="TipoAutorizacion")
If RowAutorizacion IsNot Nothing Then 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
End If End If
ObjVentas.Dispose() ObjVentas.Dispose()