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

-mejora en autorizar redondeaba a entero

Browse Source
This commit is contained in:
rrene
2022-01-26 12:12:15 -07:00
parent 3b029bd731
commit 32d1b156c0
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Ventas/CatAutorizacionLimites.aspx.vb
View File

@@ -175,7 +175,7 @@ Partial Class Ventas_CatAutorizacionLimites
' e.Row.Cells(1).Text = "Inactivo" ' e.Row.Cells(1).Text = "Inactivo"
' e.Row.Cells(1).ForeColor = Drawing.Color.Red ' e.Row.Cells(1).ForeColor = Drawing.Color.Red
' e.Row.Cells(1).Font.Bold = True ' e.Row.Cells(1).Font.Bold = True
'End If 'End If
End If End If
End Sub End Sub
@@ -192,7 +192,7 @@ Partial Class Ventas_CatAutorizacionLimites
Dim Importe = gvRow.DataKey("Importe").ToDecimal() Dim Importe = gvRow.DataKey("Importe").ToDecimal()
Dim CveEstatusAutorizacion As Integer = 1 Dim CveEstatusAutorizacion As Integer = 1
Dim ObjVentas As New ClsVentas Dim ObjVentas As New ClsVentas
If ObjVentas.AutorizacionLimitesUpdate(CveAutorizacion, CveCliente, CveVendedor, Importe, CveEstatusAutorizacion) Then If ObjVentas.AutorizacionLimitesUpdate(CveAutorizacion, CveCliente, CveVendedor, Importe, CveEstatusAutorizacion) Then
Alert("El límite de crédito fue autorizado.") Alert("El límite de crédito fue autorizado.")
End If End If