-- cambios en prepolizasdetalle

Bancos/RegistroPagoIntermediario.aspx.vb

@@ -14,14 +14,7 @@ Partial Class Bancos_PagosIntermediarios
             ViewState("FacturasCheckadas") = 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 CveMoneda As Integer
         Get
             Return ViewState("CveMoneda").ToString.ToEntero
@@ -80,7 +73,6 @@ Partial Class Bancos_PagosIntermediarios
 
         If dr IsNot Nothing Then
             CveMoneda = dr("CveMoneda").ToString.ToEntero
-            IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
         End If
 
         If UsuarioActual.Empresa.Funcionalidad(505) <> "1" Then
@@ -172,20 +164,16 @@ Partial Class Bancos_PagosIntermediarios
                             End Select
 
                             If ImporteMovimiento <> 0 Then
-                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, ConceptoMovimiento, ConceptoContable, ConceptoMovimiento, FechaMovimiento, 0, -1, CveIE, gvr.DataKey("CveVenta").ToString.ToEntero, -1, -1, CveCliente, CveProveedor:=DdlProveedorPagoInt.SelectedValue.ToEntero, ImporteMX:=importeMX) Then
+                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, importeMX, ConceptoContable, ConceptoMovimiento, ConceptoMovimiento, CveIE:=CveIE, CveVenta:=gvr.DataKey("CveVenta").ToString.ToEntero, CveCliente:=CveCliente, CveProveedor:=DdlProveedorPagoInt.SelectedValue.ToEntero) Then
                                     MsgError = "No se pudo insertar la póliza"
                                 End If
-
                             End If
-
                         Next
-
                     End If
-
                 End If
             Next
 
-            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtTotalBancos.Text.ToDecimal, ConceptoMovimientoBancos, 30, ConceptoMovimientoBancos, FechaMovimiento, IdCuentaBancaria, -1, CveIE, -1, -1, -1, CveCliente, ImporteMX:=TxtTotalBancos.Text.ToDecimal * tipoCambio) Then
+            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtTotalBancos.Text.ToDecimal, TxtTotalBancos.Text.ToDecimal * tipoCambio, 30, ConceptoMovimientoBancos, ConceptoMovimientoBancos, CveIE:=CveIE, CveCliente:=CveCliente) Then
                 MsgError = "No se pudo insertar la póliza"
             End If