-- mejoras en carga de excel.

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