-- limpieza de código de mandar idcta de contpaq

Bancos/Creditos.aspx.vb

@@ -307,9 +307,7 @@ Partial Class Bancos_Creditos
                 DdlCuentaCredito.SelectedValue = dr("CveCuenta").ToString
                 DdlCuentaCredito_SelectedIndexChanged(DdlCuentaCredito, EventArgs.Empty)
 
-
                 CargaCuentasContables()
-                DdlCtaContable.SelectedValueExist(dr("IdCtaContable").ToString)
 
                 'CARGA CREDITO DETALLE
                 If ObjCreditos.GetCreditosDetalle(dr("CveCredito").ToString.ToEntero, -1) Then
@@ -372,10 +370,6 @@ Partial Class Bancos_Creditos
                 RBLClasificacionContable.SelectedValue = dr("ClasificacionContable").ToString
 
                 CargaCuentasContables()
-                DdlCtaContable.SelectedValue = dr("IdCtaContable").ToString
-
-                'HdnCveAF.Value = dr("CveAF").ToString
-                'VincularAF()
 
                 TxtReferencia.Text = dr("Referencia").ToString
                 TxtObservaciones.Text = dr("Observaciones").ToString
@@ -723,7 +717,7 @@ Partial Class Bancos_Creditos
 
                 If ObjCredito.AddCreditos(TipoCreditoTemp, TxtCSReferencia.Text, TxtCSObservaciones.Text, DdlCuentaCredito.SelectedValue.ToEntero, HdnCveCompra.Value.ToEntero, -1, DdlCSTipoMoneda.SelectedValue.ToEntero, TxtCSFechaInicio.Text.Trim.ToDate,
                                           TxtCSFechaVencimiento.Text.Trim.ToDate, TxtCSTasa.Text.Trim.ToDouble, TxtCSSobreTasa.Text.Trim.ToDouble, -1, TxtCSPlazo.Text.ToEntero, CveIE, If(TipoCreditoTemp = 2, TxtCSTotalCredito.Text.ToEntero, TotalCompra),
-                                          -1, -1, -1, CveProveedor, RBLClasificacionContable.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=DdlTarjetaCredito.SelectedValue.ToEntero,
+                                          -1, -1, -1, CveProveedor, RBLClasificacionContable.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=DdlTarjetaCredito.SelectedValue.ToEntero,
                                           AplicaAnticipo:=If(RBLAnticipo.SelectedValue.ToEntero = 1, True, False)) > 0 Then
                     'Dim Fecha = If(TipoCreditoTemp = 2, TxtCSFechaDeposito.Text.ToDate, TxtCSFechaVencimiento.Text.ToDate)
                     'For i = 1 To If(TipoCreditoTemp = 2, TxtCSPeriodos.Text.Trim.ToEntero, 1)
@@ -768,7 +762,7 @@ Partial Class Bancos_Creditos
 
             If ObjCredito.UpdateCreditos(CveCredito, TipoCreditoTemp, TxtCSReferencia.Text, TxtCSObservaciones.Text, DdlCuentaCredito.SelectedValue.ToEntero, HdnCveCompra.Value.ToEntero, -1, DdlCSTipoMoneda.SelectedValue.ToEntero, TxtCSFechaInicio.Text.Trim.ToDate,
                                          TxtCSFechaVencimiento.Text.Trim.ToDate, TxtCSTasa.Text.Trim.ToDouble, TxtCSSobreTasa.Text.Trim.ToDouble, -1, TxtCSPlazo.Text.ToEntero, CveIE, If(TipoCreditoTemp = 2, TxtCSTotalCredito.Text.ToEntero, TotalCompra),
-                                         -1, -1, -1, -1, RBLClasificacionContable.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=DdlTarjetaCredito.SelectedValue.ToEntero,
+                                         -1, -1, -1, -1, RBLClasificacionContable.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=DdlTarjetaCredito.SelectedValue.ToEntero,
                                          AplicaAnticipo:=If(RBLAnticipo.SelectedValue.ToEntero = 1, True, False)) Then
                 If Not ObjCredito.UpdateCreditosDetalle(ObjCredito.CveCredito, TxtCSFechaVencimiento.Text.ToDate, If(TipoCreditoTemp = 2, TxtCSTotalCredito.Text.ToString.ToEntero, TotalCompra), 0.0, 0.0, 0.0, 0.0, 0.0, If(TipoCreditoTemp = 1, 101, 1)) Then
                     ErrorCredito = True
@@ -1223,7 +1217,6 @@ Partial Class Bancos_Creditos
         DtAF = New DataTable
         DtAF.Columns.Add("CveCredito", GetType(Integer))
         DtAF.Columns.Add("CveActivoFijo", GetType(Integer))
-        DtAF.Columns.Add("IdCtaContable", GetType(Integer))
         DtAF.Columns.Add("Codigo", GetType(String))
         DtAF.Columns.Add("Descripcion", GetType(String))
         DtAF.Columns.Add("TipoActivoFijo", GetType(String))
@@ -1305,7 +1298,6 @@ Partial Class Bancos_Creditos
 
             Row("CveCredito") = -1
             Row("CveActivoFijo") = RowAF("CveActivoFijo")
-            Row("IdCtaContable") = RowAF("Cuenta")
             Row("Codigo") = RowAF("Codigo")
             Row("Descripcion") = RowAF("Descripcion")
             Row("TipoActivoFijo") = RowAF("TipoActivoFijo")
@@ -1579,7 +1571,6 @@ Partial Class Bancos_Creditos
         Dim importeMovimiento = 0.0D
         Dim ConceptoContable = 0
         Dim TipoMovimiento = False
-        Dim IdCtaContable = 0
         Dim Concepto = ""
         Dim Referencia = $"Crédito: {TxtReferencia.Text}"
         Dim FechaMovimiento = Now.ToDate
@@ -1633,7 +1624,7 @@ Partial Class Bancos_Creditos
                 End If
 
                 If Not ErrorPrePoliza Then
-                    If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 50, Concepto, FechaMovimiento, IdCtaContable, -1, ImporteMX:=importeMovimiento, CveProveedor:=CveProveedor, CveCredito:=CveCreditoPrePoliza) Then
+                    If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 50, Concepto, FechaMovimiento, 0, -1, ImporteMX:=importeMovimiento, CveProveedor:=CveProveedor, CveCredito:=CveCreditoPrePoliza) Then
                         MsgError = "No se pudo insertar la póliza"
                         ErrorPrePoliza = True
                     End If
@@ -1646,7 +1637,6 @@ Partial Class Bancos_Creditos
             'For Each Row As DataRow In DtPlantilla.Rows
             '    ConceptoContable = Row("CveConcepto").ToString.ToEntero
             '    TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False)
-            '    IdCtaContable = 0
             '    importeMovimiento = 0
 
             '    CveActivoFijo = -1
@@ -1656,18 +1646,16 @@ Partial Class Bancos_Creditos
             '    Select Case ConceptoContable
             '        Case 50
             '            importeMovimiento = ImporteDocXPagar
-            '            IdCtaContable = DdlCtaContable.SelectedValue.ToEntero
             '            CveCreditoPrePoliza = CveCredito
             '            CveProveedor = DdlProveedores.SelectedValue.ToEntero
             '        Case 42
             '            importeMovimiento = ImporteDocXPagar
             '            If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, DdlAcreedorPrePoliza.SelectedValue.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) AndAlso ObjProveedor.DtResultados.Rows.Count > 0 Then
-            '                IdCtaContable = ObjProveedor.IdCtaContAcreedor
             '                CveProveedor = ObjProveedor.CveProveedor
             '            End If
             '    End Select
             '    If importeMovimiento <> 0 Then
-            '        If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, ImporteMX:=importeMovimiento, CveProveedor:=CveProveedor, CveCredito:=CveCreditoPrePoliza) Then
+            '        If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, 0, -1, ImporteMX:=importeMovimiento, CveProveedor:=CveProveedor, CveCredito:=CveCreditoPrePoliza) Then
             '            ErrorPrePoliza = True
             '        End If
             '    End If