App_Code/ClsContabilidad.vb

@@ -889,6 +889,7 @@ Public Class ClsContabilidad
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
             .Add("@CvePrePolizaOriginal", SqlDbType.Int).Value = CvePrePolizaOriginal
+            .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
             .Add("@TipoMovto", SqlDbType.Bit).Value = TipoMovimiento
             .Add("@Importe", SqlDbType.Money).Value = If(CveConceptoContable = 30, Importe, Math.Round(Importe, 2))
             .Add("@ImporteMX", SqlDbType.Money).Value = Math.Round(ImporteMX, 2)
@@ -896,7 +897,6 @@ Public Class ClsContabilidad
             .Add("@TC", SqlDbType.Decimal).Value = TipoCambio
             .Add("@TCPago", SqlDbType.Decimal).Value = TipoCambioPago
             .Add("@Referencia", SqlDbType.VarChar).Value = Referencia
-            .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
             .Add("@Concepto", SqlDbType.VarChar).Value = Concepto
             .Add("@FechaVencimiento", SqlDbType.Date).Value = FechaVencimiento
             .Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable
@@ -938,9 +938,15 @@ Public Class ClsContabilidad
         Catch ex1 As SqlException
             If ex1.Message.Contains("50015;") Then
                 OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            ElseIf ex1.Message.Contains("50024; La Cuenta no fue detectada") Then
+                Dim Concepto1 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
+                OnError(String.Format("El concepto '{0}' no tiene especificada la cuenta", Concepto1), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            ElseIf ex1.Message.Contains("Vw_Val_Conta_CuentasResultados_SubProyectos") Then
+                Dim Concepto2 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
+                OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto2), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             Else
                 OnError("Ocurrió un error al Guardar", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            End If
+            End If '
         Catch ex As Exception
             If ex.Message.Contains("50015;") Then
                 OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)

Bancos/DepositosCaja.aspx

@@ -194,7 +194,7 @@
                 <div class="col-md-1" runat="server" id="Div1" style ="width: 155px">
                     <asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento" CssClass="checkbox"/>
                 </div>
-                <div class="col-md-10 rowcheckCampos" id="DivDescuento" style="display: none">
+                <div class="col-md-11 rowcheckCampos" id="DivDescuento" style="display: none">
                     
                     <div class="col-md-1" style="padding-right: 130px;">
                         <label for="TxtDescuento">Importe:</label>
@@ -208,11 +208,16 @@
                         </asp:DropDownList>
                     </div>
               
-                    <div class="col-md-1">
+                    <div class="col-md-2">
                         <label>Clasificación:</label>
                         <asp:DropDownList  ID="DdlClasificacionDescuento" AutoPostBack="false" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server"  AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
                         </asp:DropDownList>
                     </div>
+                    <div class="col-md-1">
+                        <label>Emp:</label>
+                        <asp:DropDownList  ID="DdlPersonal" AutoPostBack="false" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server"  AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal">
+                        </asp:DropDownList>
+                    </div>
                 </div>
                 
             </div>

Bancos/DepositosCaja.aspx.vb

@@ -63,6 +63,9 @@ Partial Class Bancos_DepositosCaja
         DdlClasificacionDescuento.DataBind()
         DdlClasificacionDescuento.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
+        DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
+        DdlPersonal.DataBind()
+
         'intermediario
         DdlProveedorIntermediario.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveProveedor in ({0})", 73343))
         DdlProveedorIntermediario.DataBind()
@@ -119,7 +122,7 @@ Partial Class Bancos_DepositosCaja
 
         TotalImportePrePoliza = TotalImporte
         If Comision <> 0 Then
-            TotalImporte = TotalImporte + Comision - Descuento
+            TotalImporte = TotalImporte + Comision
             'Comision = -(Comision) ' se inverte el valor, va cargada
             'Descuento = -(Descuento) ' se inverte el valor, va cargada
             If DdlSubProyectoDeposito.SelectedValue.ToEntero = -1 Or DdlClasificacion.SelectedValue.ToEntero = -1 Then
@@ -128,6 +131,15 @@ Partial Class Bancos_DepositosCaja
             End If
         End If
 
+        If Descuento <> 0 Then
+            TotalImporte = TotalImporte - Descuento
+            'Descuento = -(Descuento) ' se inverte el valor, va cargada
+            If DdlSubProyectoDescuento.SelectedValue.ToEntero = -1 Or DdlClasificacionDescuento.SelectedValue.ToEntero = -1 Then
+                Alert("Debes Seleccionar un Subproyecto y una Clasificación de descuento", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+        End If
+
         If TxtComisionIntermediario.Text.ToDecimal <> 0 Then
             TotalImporte = TotalImporte - TxtComisionIntermediario.Text.ToDecimal - IVA
         End If
@@ -230,7 +242,7 @@ Partial Class Bancos_DepositosCaja
                 CveSubProyectoDescuento = DdlSubProyectoDescuento.SelectedValue.ToEntero
                 CveClasificacionDescuento = DdlClasificacionDescuento.SelectedValue.ToEntero
 
-                If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio) Then
+                If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text & " " & DdlPersonal.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyectoDescuento, ImporteMX:=Descuento * TipoCambio, CvePersonal:=DdlPersonal.SelectedValue.ToEntero) Then
                     OcurrioError = True
                 End If
             End If
@@ -263,7 +275,7 @@ Partial Class Bancos_DepositosCaja
                 CveIEDestino = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, String.Format("Depósito Bancario: {0}", SerieFolio), Importe, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
 
-                If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then
+                If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveVenta:=CveVenta, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then
                     OcurrioError = True
                     Exit For
                 End If

Bancos/ProveedoresAbonar.aspx.vb

@@ -1743,11 +1743,9 @@ Partial Class Bancos_ProveedoresAbonar
 
                                                         Dim ImporteNOIVA As Decimal = gvr.DataKey("IVAPorPagarNoDeducible").ToDecimal * PorcentajePago
 
-                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteNOIVA, Referencia, 280, ConceptoMovimiento, FechaMovimiento, IdCtaContableNoIVA, -1, CveIE, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedor, ImporteMX:=ImporteNOIVA, ImporteME:=If(TipoCambioPago = 1, 0, ImporteMovimiento), TipoCambio:=TipoCambioGeneral, PorcentajeImpuesto:=PorcentajeImpuesto) Then
+                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteNOIVA, Referencia, 280, ConceptoMovimiento, FechaMovimiento, IdCtaContableNoIVA, -1, CveIE, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedor, ImporteMX:=ImporteNOIVA, ImporteME:=If(TipoCambioPago = 1, 0, ImporteMovimiento), TipoCambio:=TipoCambioGeneral, CveSubProyecto:=CveSubProyecto, PorcentajeImpuesto:=PorcentajeImpuesto) Then
                                                             MsgError = "No se pudo insertar la póliza"
                                                             Exit For
-
-
                                                         End If
                                                     End If
 

Contabilidad/RegPrePoliza.aspx.vb

@@ -1180,7 +1180,7 @@ Partial Class ContabilidadC_RegPrePoliza
                         'diferencia = $"{diferencia} '{TipoMovto}' <> '{TipoMovtoOld}' OrElse '{ImporteMN}' <> '{row.DataKey("ImporteMN").ToEntero()}' OrElse '{CveTipoGastonew}' <> '{row.DataKey("CveTipoGasto").ToEntero()}'"
                         If actualizar Then
                             contador = contador + 1
-                            If Not ObjContabilidad.UpdatePrepolizasDetalle(CvePrePolizaDetalle, Concepto, CveSubProyecto,
+                            If Not ObjContabilidad.UpdatePrePolizasDetalle(CvePrePolizaDetalle, Concepto, CveSubProyecto,
                                                                CtaContable, TipoMovto, ImporteMN, CveTipoGasto:=CveTipoGastonew, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                 OcurrioError = True
                                 Exit For

Contabilidad/RegPrePolizaS.aspx

@@ -709,7 +709,7 @@
                                 <div class="row">
                                     <div class="col-xs-2" style="text-align: left">Concepto:</div>
                                     <div class="col-xs-4">
-                                        <asp:DropDownList ID="DdlConceptosContablesE" CssClass="form-control input-sm select2me" runat="server" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="160px" AutoPostBack="true">
+                                        <asp:DropDownList ID="DdlConceptosContablesE" CssClass="form-control input-sm select2me"  Width="405px" runat="server" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" AutoPostBack="true">
                                         </asp:DropDownList>
                                         <asp:DropDownList ID="DdlProveedoresE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="160px" Visible="false" AutoPostBack="true"></asp:DropDownList>
                                         <asp:DropDownList ID="DdlComprasE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SerieFolio" DataValueField="CveCompra" Width="160px" Visible="false"></asp:DropDownList>
@@ -726,7 +726,7 @@
                                         Cuenta:
                                     </div>
                                     <div class="col-xs-4">
-                                        <asp:DropDownList ID="DdlCtaContableE" runat="server" CssClass="form-control input-sm select2me" DataValueField="CveCuenta" DataTextField="CtaCodigo"></asp:DropDownList><br />
+                                        <asp:DropDownList ID="DdlCtaContableE" runat="server"  Width="405px" CssClass="form-control input-sm select2me" DataValueField="CveCuenta" DataTextField="CtaCodigo"></asp:DropDownList><br />
                                     </div>
                                 </div>
                                 <br />

Contabilidad/RegPrePolizaS.aspx.vb

@@ -912,11 +912,11 @@ Partial Class ContabilidadC_RegPrePolizaS
                             idCuentaContabilizacion = 0
                         End If
                         If Importe > 0 Then
-                            Dim tCveCuenta As Integer = -1
+                            Dim tCveCuenta As Integer = gvr.DataKey("CveCuenta").ToEntero
 
-                            If gvr.datakey("CveConcepto") = "299" Then
-                                tCveCuenta = gvr.datakey("CveCuenta").toentero
-                            End If
+                            'If gvr.datakey("CveConcepto") = "299" Then
+                            '    tCveCuenta = gvr.DataKey("CveCuenta").ToEntero
+                            'End If
 
                             If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConcepto").ToEntero, gvr.FCTextBox("TxtConcepto").Text,
                                                            TxtFecha.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CveIE:=CveIE,
@@ -1247,7 +1247,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             If DtMovimientos Is Nothing Then CreaDT()
             If CvePrePoliza > 0 Then
                 Dim dr As DataRow = DtMovimientos.NewRow
-                dr("IdCtaContable") = DdlCtaContableE.SelectedValue
+                dr("IdCtaContable") = -1 'DdlCtaContableE.SelectedValue
                 dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
                 dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
                 dr("Concepto") = TxtConceptoE.Text
@@ -1328,7 +1328,7 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             If Rows.Count > 0 Then
                 Dim dr As DataRow = Rows(0)
-                dr("IdCtaContable") = DdlCtaContableE.SelectedValue
+                dr("IdCtaContable") = -1 'DdlCtaContableE.SelectedValue
                 dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
                 dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
                 dr("Concepto") = TxtConceptoE.Text
@@ -1342,19 +1342,21 @@ Partial Class ContabilidadC_RegPrePolizaS
                 dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero
                 dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero
                 dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero
-                dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, ""))
-
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnConceptoContable").Value = DdlConceptosContablesE.SelectedValue.ToEntero
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnProveedor").Value = DdlProveedoresE.SelectedValue.ToEntero
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCompra").Value = DdlComprasE.SelectedValue.ToEntero
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnPersonal").Value = DdlPersonalE.SelectedValue.ToEntero
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCliente").Value = DdlClientesE.SelectedValue.ToEntero
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnVenta").Value = DdlVentasE.SelectedValue.ToEntero
-
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnSubProyecto").Value = DdlSubProyectoE.SelectedValue.ToEntero
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnTipoGasto").Value = DdlTipoGastoE.SelectedValue.ToEntero
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCtaContable").Value = DdlCtaContableE.SelectedValue.ToEntero
-
+                dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, ""))
+                dr("CveCuenta") = DdlCtaContableE.SelectedValue.ToEntero
+                dr("CodigoNombreCuenta") = DdlCtaContableE.SelectedItem.Text
+
+                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnConceptoContable").Value = DdlConceptosContablesE.SelectedValue.ToEntero
+                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnProveedor").Value = DdlProveedoresE.SelectedValue.ToEntero
+                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCompra").Value = DdlComprasE.SelectedValue.ToEntero
+                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnPersonal").Value = DdlPersonalE.SelectedValue.ToEntero
+                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCliente").Value = DdlClientesE.SelectedValue.ToEntero
+                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnVenta").Value = DdlVentasE.SelectedValue.ToEntero
+
+                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnSubProyecto").Value = DdlSubProyectoE.SelectedValue.ToEntero
+                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnTipoGasto").Value = DdlTipoGastoE.SelectedValue.ToEntero
+                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCtaContable").Value = DdlCtaContableE.SelectedValue.ToEntero
+
                 If TxtCargoE.Text <> "" Then
                     dr("Cargo") = TxtCargoE.Text.ToDouble
                     dr("Abono") = "".ToDouble
@@ -1449,7 +1451,7 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             If CvePrePoliza > 0 Then
                 Dim dr As DataRow = DtMovimientos.NewRow
-                dr("IdCtaContable") = DdlCtaContable.SelectedValue
+                dr("IdCtaContable") = -1 'DdlCtaContable.SelectedValue
                 dr("ConceptoContable") = DdlConceptosContables.SelectedItem.Text
                 dr("CveConceptoContable") = DdlConceptosContables.SelectedValue
                 dr("Concepto") = TxtDescripcion.Text
@@ -1937,31 +1939,42 @@ Partial Class ContabilidadC_RegPrePolizaS
             Try
 
 
-                For Each Row As DataRow In dt.Rows
+                For Each Row As DataRow In dt.FiltraParametros("ConceptoAdministrativo <> ''").Rows
 
                     Dim NombreCuenta As String = Row("NombreCuenta").ToString
                     Dim Cuenta As String = Row("Cuenta").ToString
                     Dim ConceptoAdministrativo As String = Row("ConceptoAdministrativo").ToString
 
-                    Dim CveSubProyecto As Integer = Row("CveSubProyecto").ToString.ToEntero
+                    Dim CveSubProyecto As Integer = -1
                     Dim TipoMovto As Boolean = If(Row("Cargo").ToString.ToDecimal <> 0, False, True)
-                    Dim CveConceptoContable As Integer = Row("CveConceptoContable").ToString.ToEntero
+                    Dim CveConceptoContable As Integer = GlobalDTContaConceptosContables(-1).FiltroPrimeroValor("CveConceptoContable", String.Format("ConceptoContable ='{0}'", Row("ConceptoAdministrativo"))).ToEntero ' Row("CveConceptoContable").ToString.ToEntero
                     Dim IdCtaContable As Integer = Row("IdCtaContable").ToString.ToEntero
                     Dim CveClasificacion As Integer = -1
+                    Dim CveCuenta As Integer = -1
+                    Dim ObjConta2 As New ClsContabilidad
+                    If ObjConta2.GetCuentas(-1, Row("Cuenta").ToString, 1, UsuarioActual.CveEmpresa) Then
+                        CveCuenta = ObjConta2.DtResultados.FiltroPrimeroValor("CveCuenta", "").ToEntero
+                    End If
+                    ObjConta2.Dispose()
                     'sino viene  el cveconcepto, busca por le nombre del concepto
-                    If CveConceptoContable = 0 Then CveConceptoContable = GlobalDTContaConceptosContables(-1).FiltroPrimeroValor("CveConceptoContable", String.Format("ConceptoContable = '{0}'", Row("ConceptoAdministrativo"))).ToEntero
+                    If CveConceptoContable = 0 Then
+                        Alert(String.Format("El concepto <b>{0}</b> no se reconoció, favor de verificar el archivo.", Row("ConceptoAdministrativo")))
+                        DtMovimientos.Clear()
+                        Exit For
+                    End If
+
+                    If Row("SubProyecto").ToString <> "" Then
+                        CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto"))) 'Row("CveSubProyecto").ToString.ToEntero
+                    End If
 
                     If CveConceptoContable = 69 Then
                         CveClasificacion = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", "").ToEntero
                     End If
 
-                    If CveSubProyecto = 0 Then CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto"))).ToEntero
-
                     Dim dr As DataRow = DtMovimientos.NewRow
                     Dim CodigoCuenta As String = ""
 
-                    dr("IdCuenta") = IdCtaContable
-                    dr("CodigoCuenta") = Cuenta & "<br>" & NombreCuenta
+                    dr("CodigoCuenta") = NombreCuenta 'Cuenta & "<br>" & NombreCuenta
                     dr("Cuenta") = ConceptoAdministrativo
                     dr("Referencia") = Row("Referencia").ToString
                     dr("Concepto") = Row("Concepto").ToString
@@ -1969,10 +1982,10 @@ Partial Class ContabilidadC_RegPrePolizaS
                     dr("EsComodin") = 0
                     dr("CveConcepto") = CveConceptoContable
                     dr("CveConceptoContable") = CveConceptoContable
-                    dr("ConceptoContable") = ""
+                    dr("ConceptoContable") = Row("ConceptoAdministrativo").ToString
                     dr("Cargo") = Row("Cargo").ToString.ToDecimal
                     dr("Abono") = Row("Abono").ToString.ToDecimal
-                    dr("Descripcion") = ""
+                    dr("Descripcion") = Row("Concepto").ToString
                     dr("CveSubProyecto") = CveSubProyecto
                     dr("CveProveedor") = -1
                     dr("CveCompra") = -1
@@ -1980,6 +1993,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                     dr("CveClasificacion") = CveClasificacion
                     dr("CveCliente") = -1
                     dr("CveVenta") = -1
+                    dr("CveCuenta") = CveCuenta
 
                     TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbono.Text.ToDouble).ToString.FormatoNumero
                     TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargo.Text.ToDouble).ToString.FormatoNumero

General/SaldosIniciales.aspx.vb

@@ -1227,7 +1227,7 @@ Partial Class General_SaldosIniciales
 
                 For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows
                     Dim Sucursal As String = dtsubp.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{Row("Sucursal").ToString}'")
-                    Dim TipoDocto As String = Row("Tipo Documento").ToString
+                    Dim TipoDocto As String = Row("Tipo Documento").ToString.Trim
                     Dim RFC As String = Row("RFC").ToString.Trim
                     Dim Serie As String = Row("Serie").ToString
                     Dim Folio As Integer = Row("Folio").ToString.ToEntero