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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2022-12-14 12:00:22 -07:00
parent fc44ce8b9f 96976bbfc2
commit 1f1e4c246e
8 changed files with 780 additions and 298 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
Compras/Compras.aspx.vb
View File

@@ -4165,7 +4165,7 @@ Partial Class Compras_Compras
Dim EstatusCredito As Integer = 0
Dim CveSubProyecto As Integer = 0
'Credito Multiple
If RBLPago.SelectedValue.ToEntero = 2 Then
If RBLPago.SelectedValue.ToEntero = 3 Then
If RBLContado.SelectedValue.ToEntero = 6 Or RBLContado.SelectedValue.ToEntero = 2 Then
If Not TxtRembolsoNumero.Text.Length > 0 Then
Alert("Falta especificar un número de reembolso", TipoMensaje.MsgAdvertencia)
@@ -7276,16 +7276,30 @@ Partial Class Compras_Compras
End If
If importeMovimiento > 0 Then
Dim Pago As New CompraPago
Pago.ImportePago = importeFE
Pago.CveIE = -1
Pago.CvePersonal = CvePersonal
ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
Dim Pago As New CompraPago
If DDlCheques.SelectedValue.ToEntero > 0 Then
Pago.ImportePago = importeFE
Pago.CveIE = DDlCheques.SelectedValue.ToEntero
Pago.CvePersonal = CvePersonal
ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
Else
Alert("Debe de seleccionar un cheque.", TipoMensaje.MsgAdvertencia)
ErrorPrepoliza = True
End If
End If
Case 21 'Anticipo
If ArrAnticipos.Count > 0 Then