Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Bancos/CatBancos.aspx.vb

@@ -119,6 +119,7 @@ Partial Class Bancos_CatBancos
     Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating
 
         Dim ObjBancos As New ClsBancos
+        ObjBancos.IniciaTransacSQL()
 
         Dim Banco As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtBanco"), TextBox).Text.Trim
         Dim Ejecutivo As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtEjecutivo"), TextBox).Text.Trim
@@ -126,13 +127,27 @@ Partial Class Bancos_CatBancos
         Dim Estatus As Boolean = GvDatos.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
         Dim CveBanco As Integer = GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero
 
+        Dim TieneError As Boolean = False
 
         If ObjBancos.UpdateBancos(Banco, Ejecutivo, Telefono, Estatus, CveBanco) Then
-            GvDatos.EditIndex = -1
-            ViewState("DTBancos") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            DtBan = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTBancos = ObjBancos.DtResultados
-            Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
+            If ObjBancos.InhabilitarCuentasBancos(CveBanco, Estatus) Then
+                GvDatos.EditIndex = -1
+                ViewState("DTBancos") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+                DtBan = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+                GlobalDTBancos = ObjBancos.DtResultados
+                Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
+            Else
+                TieneError = True
+            End If
+        Else
+            TieneError = True
+        End If
+
+        If TieneError Then
+            ObjBancos.RollBack()
+        Else
+            ObjBancos.Commit()
+            GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
         End If
 
         ObjBancos.Dispose()

Bancos/IE.aspx.vb

@@ -1118,8 +1118,9 @@ Partial Class Bancos_IE
                 End If
 
 
+
                 'DATOS DE CANCELACION
-                If ObjIE.CveEstatusIE = 2 Then
+                If ObjIE.CveEstatusIE = 2 OrElse (ObjIE.CveEstatusIE = 1 AndAlso ObjIE.CveIECancelacion > 0) Then
                     TabCancelacion.Visible = True
                     LbUsuarioCancelacion.Text = ObjIE.UsuarioCancelacion
                     LbFechaCancelacion.Text = ObjIE.FechaCancelacion.ToShortDateString

Bancos/ProveedoresAbonar.aspx.vb

@@ -1832,7 +1832,7 @@ Partial Class Bancos_ProveedoresAbonar
                                                         IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
                                                         CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria
                                                         'tipoCambioVentaDiferenciaCambiaria = If(gvr.DataKey("Fecha").ToDate < FechaUltimaFluctuacion, TipoCambioFluctuacion, gvr.DataKey("TipoCambio").ToDecimal)
-                                                        Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompraValuacion)
+                                                        Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
 
 
                                                         Dim Diferencia As Decimal = ((gvr.FCTextBox("TxtAbonar").Text.ToDecimal) * tipoCambioCompraValuacion) - ((gvr.FCTextBox("TxtAbonar").Text.ToDecimal) * TipoCambioPago) 'Añadimos la diferencia de perdida en la venta