diff --git a/Bancos/Transferencias.aspx.vb b/Bancos/Transferencias.aspx.vb index ab44c7dd8..ff4a419e3 100644 --- a/Bancos/Transferencias.aspx.vb +++ b/Bancos/Transferencias.aspx.vb @@ -321,8 +321,6 @@ Partial Class Bancos_Transferencias Dim IDCtaContableComplementariaDestino As Integer = 0 Dim IdCtaContableDestino As Integer = 0 Dim CuentasContablesInvalidasSIG As New StringBuilder - Dim CveCuentaOrigen As Integer = 0 - Dim CveCuentaDestino As Integer = 0 Dim RowCuentaOrigen As DataRow = Nothing @@ -347,18 +345,8 @@ Partial Class Bancos_Transferencias CuentasContablesInvalidas.Append("
Cuenta Contable Destino") End If - 'Conta SIG - If CveCuentaOrigen < 1 Then - CuentasContablesInvalidasSIG.Append("
Cuenta Contable Origen") - End If - - If CveCuentaDestino < 1 Then - CuentasContablesInvalidasSIG.Append("
Cuenta Contable Destino") - End If - If Opcion = 1 Then ' CUANDO ES DOMICILIZACION IdCtaContableOrigen = IdCtaContableDestino - CveCuentaOrigen = CveCuentaDestino End If Dim TipoMovtoDetalle As Boolean = True @@ -369,7 +357,6 @@ Partial Class Bancos_Transferencias TxtImporte.Text.ToDouble, $"Transferencia entre cuentas {TxtObservaciones.Text}", 30, $"Transferencia entre cuentas {TxtObservaciones.Text}", Now, IdCtaContableOrigen, -1, CveIE, ImporteMX:=If(Not UsuarioActual.CveEmpresa.Contiene(13, 83), TxtImporte.Text.ToDouble, ImporteMXOrigen), ImporteME:=If(CveMonedaOrigen > 1, TxtImporte.Text.ToDouble * TC, 0), - CveCuenta:=CveCuentaOrigen, CveIEDevolucion:=CveIEDevolucion) Then If CveMonedaOrigen > 1 AndAlso Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then @@ -401,7 +388,7 @@ Partial Class Bancos_Transferencias If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle, ImporteDestino, $"Transferencia entre cuentas {TxtObservaciones.Text}", 30, $"Transferencia entre cuentas {TxtObservaciones.Text}", Now, IdCtaContableDestino, -1, CveIEDestino, ImporteMX:=If(Not UsuarioActual.CveEmpresa.Contiene(13, 83), ImporteDestino, ImporteMXDestino), - ImporteME:=If(CveMonedaDestino > 1, ImporteDestino, 0), CveCuenta:=CveCuentaDestino) Then + ImporteME:=If(CveMonedaDestino > 1, ImporteDestino, 0)) Then MsgError = "Ocurrio un error al ingresar la prepoliza" End If