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

visualización

Browse Source
This commit is contained in:
rrene
2023-07-26 16:25:53 -07:00
parent ab5777f13c
commit 40cf9b8172
4 changed files with 25 additions and 70 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
Contratos/Presupuestos.aspx
View File

@@ -34,7 +34,7 @@
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
<div class="row">
<div class="col-md-4">
<div class="portlet light smmallpadding bordered">
<div class="portlet light xspadding bordered">
<div class="portlet-title">
<div class="caption">
<i class="fa fa-info-circle"></i>Datos Generales
@@ -72,7 +72,7 @@
</div>
</div>
<div class="col-md-4">
<div class="portlet light smmallpadding bordered">
<div class="portlet light xspadding bordered">
<div class="portlet-title">
<div class="caption">
<i class="fa fa-info-circle"></i>Configuración
@@ -109,8 +109,8 @@
<label class="col-md-4 truncate">Fecha Inicio:</label>
<div class="col-md-8">
<div style="display: inline-block; vertical-align: text-bottom;">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
<asp:TextBox ID="TxtFechaI" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 118px" MaxLength="10"></asp:TextBox>
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
<asp:TextBox ID="TxtFechaI" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 78px" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgFechaI" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
@@ -130,8 +130,8 @@
<label class="col-md-4 truncate">Fecha Fin:</label>
<div class="col-md-8">
<div style="display: inline-block; vertical-align: text-bottom;">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
<asp:TextBox ID="TxtFechaF" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 118px" MaxLength="10"></asp:TextBox>
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
<asp:TextBox ID="TxtFechaF" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 78px" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgFechaF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
@@ -252,7 +252,7 @@
<br />
<div class="row">
<div class="col-md-12">
<div class="portlet light smmallpadding bordered">
<div class="portlet light xspadding bordered">
<div class="portlet-title">
<div class="caption" style="align-items: center">
<i class="fa fa-info-circle"></i>Presupuestos
@@ -271,10 +271,10 @@
DataKeyNames="CvePresupuestoDetalle,CveAgrupador,CveTipoGasto,Tipo">
<Columns>
<asp:BoundField HeaderText="Clasificación" DataField="Agrupador" />
<asp:TemplateField HeaderText="Importe" HeaderStyle-HorizontalAlign="Left" FooterStyle-HorizontalAlign="Right">
<asp:TemplateField HeaderText="Importe" ItemStyle-HorizontalAlign="Right" HeaderStyle-HorizontalAlign="Right" FooterStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label ID="LblImporteClasiTotal" runat="server" Visible="false"></asp:Label>
<asp:TextBox ID="TxtImporteClasi" runat="server" Text='<%#Eval("Importe") %>' CssClass="form-control input-sm"></asp:TextBox>
<asp:TextBox ID="TxtImporteClasi" runat="server" Text='<%#Eval("Importe") %>' CssClass="form-control input-sm" Width="125px" style="text-align:right;"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="SoloNumerosCantidad" runat="server" TargetControlID="TxtImporteClasi" FilterType="Custom, Numbers" ValidChars=".," />
</ItemTemplate>
<FooterTemplate>
@@ -337,14 +337,7 @@
</div>
</div>
<div class="portlet-body rowpadding ">
<!--<div class=" row">
<div class="col-md-3">Concepto</div>
<div class="col-md-6">
<asp:DropDownList ID="ddlConceptocomisionNeto" runat="server" DataTextField="CodigoConcepto" DataValueField="CveConcepto" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
</div>
</div>
-->
<asp:TextBox ID="TxtCargarPresup" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
</div>
</div>

56
Contratos/Presupuestos.aspx.vb
View File

@@ -147,16 +147,8 @@ Partial Class Contratos_Presupuestos
Dim DrContrato = ObjContrato.DtResultados.Copy(0)
If DrContrato IsNot Nothing Then
Dim ImporteOriginal = DrContrato("Importe").ToString.ToDecimal
'Dim ImporteVigente = DrContrato("ImporteVigente").ToString.ToDecimal
'Dim CveMoneda = DrContrato("CveMoneda").ToString.ToEntero
'DdlMoneda.SelectedValueExist(CveMoneda)
'HdnTotal.Value = ImporteVigente.FormatoNumero
'LblTotal.Text = String.Format("{0:C}", ImporteVigente)
Dim ImporteOriginal = DrContrato("Importe").ToString.ToDecimal
TxtPresupuesto.Text = DrContrato("Nombre").ToString
TxtDescripcion.Text = DrContrato("Observacion").ToString
@@ -471,34 +463,8 @@ Partial Class Contratos_Presupuestos
ObjPres.IniciaTransacSQL()
Dim TieneError As Boolean = False
TieneError = Not ObjPres.UpdateEstatusPresupuesto(CvePresupuesto, EstatusFinal)
'If ObjPres.UpdateEstatusPresupuesto(CvePresupuesto, EstatusFinal) Then
' If ObjPres.GetPresupuestosDetalle(CvePresupuesto, -1, UsuarioActual.CveEmpresa) Then
' DtClasificaciones = ObjPres.DtResultados
' End If
' If DtClasificaciones IsNot Nothing Then
' Dim DtDetalle = DtClasificaciones.FiltraParametros("CvePresupuestoDetalle > 0", DistinctColumns:={"CvePresupuestoDetalle", "ImporteVigente"})
' If DtDetalle.Rows.Count > 0 Then
' For Each Dr As DataRow In DtDetalle.Rows
' Dim CvePresupuestoDetalle As Integer = Dr("CvePresupuestoDetalle").ToString.ToEntero
' Dim Importe As Decimal = Dr("ImporteVigente").ToString.ToDecimal
' Dim Fecha = Now
' Dim Tipo = 1
' Dim CveCompra As Integer = -1
' Dim Justificacion = "-1"
' TieneError = Not ObjPres.AddPresupuestoMovimiento(CvePresupuesto, CveCompra, Tipo, Importe, Fecha, Justificacion)
' If TieneError Then
' Exit For
' End If
' Next
' End If
' End If
'Else
' TieneError = True
'End If
TieneError = Not ObjPres.UpdateEstatusPresupuesto(CvePresupuesto, EstatusFinal)
If TieneError Then
ObjPres.RollBack()
Alert("Ocurrió un error al autorizar el presupuesto.", TipoMensaje.MsgError)
@@ -552,7 +518,6 @@ Partial Class Contratos_Presupuestos
Dim DTExcel As New DataTable
Dim ErrorArchivo = False
Dim ErrorExcel = False
DTExcel = ReadExcelFile(Ruta + FileName, True)
If Not ErrorArchivo Then
@@ -574,16 +539,13 @@ Partial Class Contratos_Presupuestos
End If
End If
Try
Dim txtImporte As TextBox = Nothing
Dim txtObservacion As TextBox = Nothing
Try
Dim i As Integer = 0
For Each row As GridViewRow In GvPresupuestos.Rows
If (i < DTExcel.Rows.Count) Then
txtImporte = row.FCTextBox("TxtImporteClasi")
txtObservacion = row.FCTextBox("TxtObservacion")
txtImporte.Text = DTExcel.Rows(i).Field(Of String)(1).ToString
txtObservacion.Text = DTExcel.Rows(i).Field(Of String)(2).ToString
If (i < DTExcel.Rows.Count) Then
If DTExcel.Rows(i)("Importe").ToString.Trim <> "" Then row.FCTextBox("TxtImporteClasi").Text = DTExcel.Rows(i)("Importe").ToString.FormatoNumero
row.FCTextBox("TxtObservacion").Text = DTExcel.Rows(i)("Observaciones").ToString
i += 1
End If
Next

8
Contratos/RepPresupuestos.aspx
View File

@@ -180,9 +180,9 @@
<div class="titlefiltros caption ">
<div class="row">
<div class="col-md-1" style="max-width: 90px">Fecha Inicio:</div>
<div class="col-md-2" style="max-width: 130px">
<div class="col-md-2" style="max-width: 120px">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 90px !important; padding: 0px;">
<asp:TextBox ID="TxtFiltrosFechaInicio" CssClass="form-control input-sm ADSMaskDate" Style="width: 88px" runat="server"></asp:TextBox>
<asp:TextBox ID="TxtFiltrosFechaInicio" CssClass="form-control input-sm ADSMaskDate" Style="width: 78px" runat="server"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="LnkFechaI" class="btn default " Text=" <i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
@@ -193,9 +193,9 @@
</div>
</div>
<div class="col-md-1" style="max-width: 75px">Fecha Fin:</div>
<div class="col-md-2" style="max-width: 130px">
<div class="col-md-2" style="max-width: 120px">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 90px !important; padding: 0px;">
<asp:TextBox ID="TxtFiltrosFechaFin" CssClass="form-control input-sm ADSMaskDate" Style="width: 88px" runat="server"></asp:TextBox>
<asp:TextBox ID="TxtFiltrosFechaFin" CssClass="form-control input-sm ADSMaskDate" Style="width: 78px" runat="server"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="LnkFechaF" class="btn default " Text=" <i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>

4
Contratos/RepPresupuestos.aspx.vb
View File

@@ -30,8 +30,8 @@ Partial Class Contratos_RepPresupuestos
#Region " INICIALIZA VALORES "
Private Sub InicializaValores()
TxtFiltrosFechaInicio.Text = $"01/09/{Now.Year - 1}"
TxtFiltrosFechaFin.Text = $"31/08/{Now.Year}"
TxtFiltrosFechaInicio.Text = $"01/08/{Now.Year - 1}"
TxtFiltrosFechaFin.Text = $"31/07/{Now.Year}"
DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
DdlTipoGasto.DataBind()