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

try

Browse Source
This commit is contained in:
rmolina
2019-12-06 19:20:17 -07:00
parent cb3fe8e7a1
commit 1163c6d1aa
1 changed files with 43 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Ventas/PV.aspx.vb
View File

@@ -5212,6 +5212,8 @@ Partial Class PV
'Alert("No se ha especificado producto a entregar") 'Alert("No se ha especificado producto a entregar")
Exit Sub Exit Sub
End If End If
Try
If DdlTipoUso.SelectedValue.ToEntero > 0 AndAlso DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso TxtMesesUso.Text <> "" AndAlso DdlPS.SelectedValue.ToEntero > 0 Then If DdlTipoUso.SelectedValue.ToEntero > 0 AndAlso DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso TxtMesesUso.Text <> "" AndAlso DdlPS.SelectedValue.ToEntero > 0 Then
Dim CveMarca As Integer = -1 Dim CveMarca As Integer = -1
@@ -5267,6 +5269,10 @@ Partial Class PV
End If End If
ObjAcum.Dispose() ObjAcum.Dispose()
End If End If
Catch ex As Exception
OnError("Ocurrió un error al recalcular el costo", ex)
End Try
UpAjuste.Update() UpAjuste.Update()
End Sub End Sub