AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- mejoras en carga de excel.

Browse Source
This commit is contained in:
rrene
2021-05-28 07:37:38 -07:00
parent 083a65deba
commit 086cad4774
2 changed files with 46 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Contabilidad/RegPrePolizaS.aspx
View File

@@ -709,7 +709,7 @@
<div class="row"> <div class="row">
<div class="col-xs-2" style="text-align: left">Concepto:</div> <div class="col-xs-2" style="text-align: left">Concepto:</div>
<div class="col-xs-4"> <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>
<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="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> <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: Cuenta:
</div> </div>
<div class="col-xs-4"> <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>
</div> </div>
<br /> <br />

48
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -912,11 +912,11 @@ Partial Class ContabilidadC_RegPrePolizaS
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
If Importe > 0 Then If Importe > 0 Then
Dim tCveCuenta As Integer = -1 Dim tCveCuenta As Integer = gvr.DataKey("CveCuenta").ToEntero
If gvr.datakey("CveConcepto") = "299" Then 'If gvr.datakey("CveConcepto") = "299" Then
tCveCuenta = gvr.datakey("CveCuenta").toentero ' tCveCuenta = gvr.DataKey("CveCuenta").ToEntero
End If 'End If
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConcepto").ToEntero, gvr.FCTextBox("TxtConcepto").Text, 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, 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 DtMovimientos Is Nothing Then CreaDT()
If CvePrePoliza > 0 Then If CvePrePoliza > 0 Then
Dim dr As DataRow = DtMovimientos.NewRow Dim dr As DataRow = DtMovimientos.NewRow
dr("IdCtaContable") = DdlCtaContableE.SelectedValue dr("IdCtaContable") = -1 'DdlCtaContableE.SelectedValue
dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
dr("Concepto") = TxtConceptoE.Text dr("Concepto") = TxtConceptoE.Text
@@ -1328,7 +1328,7 @@ Partial Class ContabilidadC_RegPrePolizaS
If Rows.Count > 0 Then If Rows.Count > 0 Then
Dim dr As DataRow = Rows(0) Dim dr As DataRow = Rows(0)
dr("IdCtaContable") = DdlCtaContableE.SelectedValue dr("IdCtaContable") = -1 'DdlCtaContableE.SelectedValue
dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
dr("Concepto") = TxtConceptoE.Text dr("Concepto") = TxtConceptoE.Text
@@ -1343,6 +1343,8 @@ Partial Class ContabilidadC_RegPrePolizaS
dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero
dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero
dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, "")) 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("HdnConceptoContable").Value = DdlConceptosContablesE.SelectedValue.ToEntero
'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnProveedor").Value = DdlProveedoresE.SelectedValue.ToEntero 'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnProveedor").Value = DdlProveedoresE.SelectedValue.ToEntero
@@ -1449,7 +1451,7 @@ Partial Class ContabilidadC_RegPrePolizaS
If CvePrePoliza > 0 Then If CvePrePoliza > 0 Then
Dim dr As DataRow = DtMovimientos.NewRow Dim dr As DataRow = DtMovimientos.NewRow
dr("IdCtaContable") = DdlCtaContable.SelectedValue dr("IdCtaContable") = -1 'DdlCtaContable.SelectedValue
dr("ConceptoContable") = DdlConceptosContables.SelectedItem.Text dr("ConceptoContable") = DdlConceptosContables.SelectedItem.Text
dr("CveConceptoContable") = DdlConceptosContables.SelectedValue dr("CveConceptoContable") = DdlConceptosContables.SelectedValue
dr("Concepto") = TxtDescripcion.Text dr("Concepto") = TxtDescripcion.Text
@@ -1937,31 +1939,42 @@ Partial Class ContabilidadC_RegPrePolizaS
Try 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 NombreCuenta As String = Row("NombreCuenta").ToString
Dim Cuenta As String = Row("Cuenta").ToString Dim Cuenta As String = Row("Cuenta").ToString
Dim ConceptoAdministrativo As String = Row("ConceptoAdministrativo").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 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 IdCtaContable As Integer = Row("IdCtaContable").ToString.ToEntero
Dim CveClasificacion As Integer = -1 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 '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 If CveConceptoContable = 69 Then
CveClasificacion = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", "").ToEntero CveClasificacion = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", "").ToEntero
End If 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 dr As DataRow = DtMovimientos.NewRow
Dim CodigoCuenta As String = "" Dim CodigoCuenta As String = ""
dr("IdCuenta") = IdCtaContable dr("CodigoCuenta") = NombreCuenta 'Cuenta & "<br>" & NombreCuenta
dr("CodigoCuenta") = Cuenta & "<br>" & NombreCuenta
dr("Cuenta") = ConceptoAdministrativo dr("Cuenta") = ConceptoAdministrativo
dr("Referencia") = Row("Referencia").ToString dr("Referencia") = Row("Referencia").ToString
dr("Concepto") = Row("Concepto").ToString dr("Concepto") = Row("Concepto").ToString
@@ -1969,10 +1982,10 @@ Partial Class ContabilidadC_RegPrePolizaS
dr("EsComodin") = 0 dr("EsComodin") = 0
dr("CveConcepto") = CveConceptoContable dr("CveConcepto") = CveConceptoContable
dr("CveConceptoContable") = CveConceptoContable dr("CveConceptoContable") = CveConceptoContable
dr("ConceptoContable") = "" dr("ConceptoContable") = Row("ConceptoAdministrativo").ToString
dr("Cargo") = Row("Cargo").ToString.ToDecimal dr("Cargo") = Row("Cargo").ToString.ToDecimal
dr("Abono") = Row("Abono").ToString.ToDecimal dr("Abono") = Row("Abono").ToString.ToDecimal
dr("Descripcion") = "" dr("Descripcion") = Row("Concepto").ToString
dr("CveSubProyecto") = CveSubProyecto dr("CveSubProyecto") = CveSubProyecto
dr("CveProveedor") = -1 dr("CveProveedor") = -1
dr("CveCompra") = -1 dr("CveCompra") = -1
@@ -1980,6 +1993,7 @@ Partial Class ContabilidadC_RegPrePolizaS
dr("CveClasificacion") = CveClasificacion dr("CveClasificacion") = CveClasificacion
dr("CveCliente") = -1 dr("CveCliente") = -1
dr("CveVenta") = -1 dr("CveVenta") = -1
dr("CveCuenta") = CveCuenta
TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbono.Text.ToDouble).ToString.FormatoNumero TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbono.Text.ToDouble).ToString.FormatoNumero
TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargo.Text.ToDouble).ToString.FormatoNumero TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargo.Text.ToDouble).ToString.FormatoNumero