-- se depuró/limpió la variables idctaXXX

Bancos/Reembolsos.aspx.vb

@@ -26,14 +26,6 @@ Partial Class Bancos_Reembolsos
             ViewState("CveMoneda") = value
         End Set
     End Property
-    Private Property IdCuentaBancaria As Integer
-        Get
-            Return ViewState("IdCuentaBancaria").ToString.ToEntero
-        End Get
-        Set(value As Integer)
-            ViewState("IdCuentaBancaria") = value
-        End Set
-    End Property
     Private Property Beneficiario As String
         Get
             Return ViewState("Beneficiario").ToString
@@ -262,7 +254,6 @@ Partial Class Bancos_Reembolsos
 
         If dr IsNot Nothing Then
             CveMoneda = dr("CveMoneda").ToString.ToEntero
-            IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
         End If
 
         If HdnTipoTransaccion.Value = "Egs" Then
@@ -394,7 +385,6 @@ Partial Class Bancos_Reembolsos
 
                 If dr IsNot Nothing Then
                     CveMoneda = dr("CveMoneda").ToString.ToEntero
-                    IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
                 End If
 
                 ''AC - Poliza Vieja
@@ -606,7 +596,7 @@ Partial Class Bancos_Reembolsos
 
                                             'AFECTAR MATRIZ EGRESOS
                                             Total = gvr.FCTextBox("TxtAbonar").Text.ToDouble
-                                            If Not ObjAC.AddMovimiento(IDPolizaNueva, gvr.DataKey("IdCtaContProveedores").ToEntero, False, Total, FolioPolizaNueva, ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True : Exit For
+                                            If Not ObjAC.AddMovimiento(IDPolizaNueva, 0, False, Total, FolioPolizaNueva, ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True : Exit For
 
                                         Else
                                             ErrorAC = True
@@ -651,7 +641,7 @@ Partial Class Bancos_Reembolsos
                     'registro el movimiento en bancos y su comprobacion
                     If GeneroCheque Then
                         If Not ObjAC.AddMovimiento(IDPolizaVieja, IdCuentaBeneficiario, False, TxtImporteVinculado.Text.ToDouble, FolioPolizaVieja, ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True
-                        If Not ObjAC.AddMovimiento(IDPolizaVieja, IdCuentaBancaria, True, TxtImporteVinculado.Text.ToDouble, FolioPolizaVieja, ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True
+                        If Not ObjAC.AddMovimiento(IDPolizaVieja, 0, True, TxtImporteVinculado.Text.ToDouble, FolioPolizaVieja, ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True
                     End If
 
                 End If
@@ -667,7 +657,7 @@ Partial Class Bancos_Reembolsos
                 'Poliza NUEVA
                 If Not ErrorAC And IDPolizaNueva > 0 Then
                     ConceptoRenglon = String.Format("Comprobación: {0}", Beneficiario)
-                    If Not ObjAC.AddMovimiento(IDPolizaNueva, IdCuentaBancaria, True, TxtImporte.Text.ToDouble, FolioPolizaNueva, ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True
+                    If Not ObjAC.AddMovimiento(IDPolizaNueva, 0, True, TxtImporte.Text.ToDouble, FolioPolizaNueva, ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True
 
                 End If
                 If Not ErrorAC And IDPolizaNueva > 0 Then
@@ -775,7 +765,6 @@ Partial Class Bancos_Reembolsos
 
                 If dr IsNot Nothing Then
                     CveMoneda = dr("CveMoneda").ToString.ToEntero
-                    IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
                 End If
             Else
                 CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text, TxtImporte.Text.ToDouble, CveMoneda, 0.0, TxtObservaciones.Text, "", ChkAbonoCuenta.Checked, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
@@ -901,7 +890,7 @@ Partial Class Bancos_Reembolsos
                         Next
 
                         ConceptoRenglon = String.Format("Pagado: {0}", TxtAboneA.Text)
-                        If Not ObjAC.AddMovimiento(IDPoliza, IdCuentaBancaria, True, TxtImporte.Text.ToDouble, Referencia, ConceptoRenglon, 0, Fecha, "") Then
+                        If Not ObjAC.AddMovimiento(IDPoliza, 0, True, TxtImporte.Text.ToDouble, Referencia, ConceptoRenglon, 0, Fecha, "") Then
                             ErrorAC = True
                         End If
 
@@ -1142,11 +1131,6 @@ Partial Class Bancos_Reembolsos
         'recargo la moneda con la que se va a pagar
         'Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuentaDiferencia.SelectedValue)
 
-        'If dr IsNot Nothing Then
-        '    CveMoneda = dr("CveMoneda").ToString.ToEntero
-        '    IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
-        'End If
-
         'If HdnTipoTransaccion.Value = "Egs" Then
         '    Dim Folio As Long
         '    Dim Banco As New ClsBancos