-- desbloquea antes de cancelar

This commit is contained in:
2021-05-19 14:20:25 -07:00
parent 0e3e0b50ef
commit 6d5b1cb15d

View File

@@ -247,17 +247,15 @@ Partial Class PopUpAuxiliar
Dim TieneError = False
If Not TieneError Then
If Not Conta.UpdatePrePolizasDetalleBloquear(ClavePrePoliza, False) Then
TieneError = True
End If
End If
If Not Conta.RemovePrePolizas(ClavePrePoliza, UsuarioActual.CveEmpresa) Then
If Not Conta.UpdatePrePolizasDetalleBloquear(ClavePrePoliza, False) Then
TieneError = True
End If
If Conta.ValidacionPrePolizaCuadre(ClavePrePoliza, -1) Then
If Not TieneError AndAlso Not Conta.RemovePrePolizas(ClavePrePoliza, UsuarioActual.CveEmpresa) Then
TieneError = True
End If
If Not TieneError AndAlso Conta.ValidacionPrePolizaCuadre(ClavePrePoliza, -1) Then
If Conta.ValorPolizaDescuadre > 0 Then
TieneError = True
End If