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

--FIX solicitud de autorizaciones

Browse Source
This commit is contained in:
JPerez
2025-06-05 12:40:38 -07:00
parent fa66395f5a
commit f43cf9b38b
1 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Ventas/PVCobranza.aspx.vb
View File

@@ -2390,8 +2390,16 @@ Partial Class Ventas_PVCobranza
Next
End If
Dim CveVenta As Integer = gvr.DataKey("CveVenta").ToEntero()
Dim CveIE As Integer = gvr.DataKey("CveIE").ToEntero()
Dim CveVenta As Integer = -1
Dim CveIE As Integer = -1
If gvr.DataKey("Tipo").Contiene("NC", "Ant") Then
CveVenta = gvr.DataKey("CveVenta").ToEntero()
End If
If gvr.DataKey("Tipo").Contiene("IxC") Then
CveIE = gvr.DataKey("CveIE").ToEntero()
End If
Dim ObjVta As New ClsVentas
If ObjVta.AddAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, CveVendedor, Saldo, CveEstatus:=0, CveUsuario:=UsuarioActual.CveUsuario, TipoAutorizacion:=1, TipoDocumento:="Ant", DiasVencidos:=1, CveVenta:=CveVenta, CveIE:=CveIE) Then