- limpieza

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("<br> Cuenta Contable Destino")
                     End If
 
-                    'Conta SIG
-                    If CveCuentaOrigen < 1 Then
-                        CuentasContablesInvalidasSIG.Append("<br> Cuenta Contable Origen")
-                    End If
-
-                    If CveCuentaDestino < 1 Then
-                        CuentasContablesInvalidasSIG.Append("<br> 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