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

Bancos/ProductosFinancieros.aspx.vb

@@ -342,17 +342,12 @@ Partial Class Bancos_ProductosFinancieros
 
                         Case 45, 46, 47, 67
                             importeMovimiento = Importe.ToString.ToDecimal
-                            If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                IdCtaContablePP = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
-                            End If
-
                         Case 99
                             If DivRetISR.Visible Or CvePlantilaPoliza = 67 Then
                                 importeMovimiento = If(CvePlantilaPoliza = 67, Importe.ToString.ToDecimal, TxtRetISR.Text.ToDecimal)
                                 IdCtaContablePP = Row("IdCtaContable").ToString.ToEntero
                             End If
 
-
                         Case 30
                             If DivRetISR.Visible Then importeMovimiento = Importe.ToString.ToDecimal - TxtRetISR.Text.ToDecimal Else importeMovimiento = Importe.ToString.ToDecimal
                             IdCtaContablePP = CtaCuenta
@@ -361,11 +356,6 @@ Partial Class Bancos_ProductosFinancieros
 
                     If importeMovimiento <> 0 Then
 
-                        If IdCtaContablePP = 0 Then
-                            CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
-                            idCuentaContabilizacion = 0
-                        End If
-
                         If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, "", If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, 42, ConceptoContable), DdlTipoMovimiento.SelectedItem.Text & If(TxtConcepto.Text.Trim.Length > 0, " - " & TxtConcepto.Text.Trim, ""), FechaMovimiento, If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, DdlTarjeta.SelectedValue.ToEntero, IdCtaContablePP), -1, CveIE, ImporteMX:=importeMovimiento) Then
                             ErrorTransaccion = True
                         End If
@@ -373,7 +363,6 @@ Partial Class Bancos_ProductosFinancieros
 
                 Next
 
-
                 If Not ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then
                     ErrorTransaccion = True
                 End If