-varios

Bancos/FluctuacionCambiaria.aspx.vb

@@ -430,6 +430,7 @@ Partial Class Bancos_FluctuacionCambiaria
             If Conta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then
                 SeContabilizo = True
             Else
+                ErrorRegistrar = True
                 Alert("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
             End If
         End If
@@ -437,10 +438,12 @@ Partial Class Bancos_FluctuacionCambiaria
         If Not ErrorRegistrar And SeContabilizo Then
 
             Conta.Commit()
+            ObjContPaq.Commit()
             Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
             CargaDatosCuentas()
         Else
             Conta.RollBack()
+            ObjContPaq.Dispose()
         End If
         Conta.Dispose()
     End Sub