Cambios en IE

2019-08-19 13:13:21 -07:00
parent 3217123f03
commit 51eb9861f9
2 changed files with 43 additions and 0 deletions
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -2384,6 +2384,11 @@ Partial Class Bancos_IE

                    'valida prepoliza
                    If CvePrePoliza > 0 Then
+
+                        If Not ObjIE.UpdateIEPrePoliza(MinFecha, "", -1, CvePrePoliza, CveIE, -1) Then
+                            MsgError = "Ocurrio un error al agregar la prepoliza al IE."
+                        End If
+
                        Dim Conc As String = If(TxtObservaciones.Text = "", ObjIE.Folio, TxtObservaciones.Text)
                        Dim Ref As String = If(TxtObservaciones.Text = "", ObjIE.Folio, TxtObservaciones.Text)