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

Contratos

Browse Source
This commit is contained in:
rakcsle
2021-04-05 09:28:57 -07:00
parent 68dd9a7a44
commit 3daff7bcbf
3 changed files with 354 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
AC/CatOGClasificaciones.aspx.vb
View File

@@ -50,6 +50,7 @@ Partial Class AC_CatOGClasificaciones
If ObjClasificaciones.GetClasificaciones() Then If ObjClasificaciones.GetClasificaciones() Then
ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("Codigo <> '' AND CveEmpresa = " & UsuarioActual.CveEmpresa, "Codigo") ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("Codigo <> '' AND CveEmpresa = " & UsuarioActual.CveEmpresa, "Codigo")
GlobalDTClasificaciones = ObjClasificaciones.DtResultados GlobalDTClasificaciones = ObjClasificaciones.DtResultados
GlobalDTACClasificadorObjetoGasto = ObjClasificaciones.DtResultados.FiltraParametros("Codigo <> '' ")
Else Else
Me.GvDatos.DataSource = Nothing Me.GvDatos.DataSource = Nothing
End If End If
@@ -65,6 +66,7 @@ Partial Class AC_CatOGClasificaciones
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
Dim ObjClasificaciones As New ClsClasificaciones Dim ObjClasificaciones As New ClsClasificaciones
If LbAgregar.Text = "Agregar" Then If LbAgregar.Text = "Agregar" Then
If ObjClasificaciones.AddClasificaciones(TxtOGClasificacion.Text.Trim, TxtCodigo.Text.Trim, -1, "", -1, "", -1, "", 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If ObjClasificaciones.AddClasificaciones(TxtOGClasificacion.Text.Trim, TxtCodigo.Text.Trim, -1, "", -1, "", -1, "", 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
TxtOGClasificacion.Text = "" TxtOGClasificacion.Text = ""
@@ -90,6 +92,10 @@ Partial Class AC_CatOGClasificaciones
End If End If
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivModal")) RegistraScript(String.Format("$('#{0}').modal('hide');", "DivModal"))
ObjClasificaciones.Dispose() ObjClasificaciones.Dispose()
CargaDatos()
End Sub End Sub
#Region "G V D A T O S" #Region "G V D A T O S"
@@ -278,4 +284,7 @@ Partial Class AC_CatOGClasificaciones
#End Region #End Region
End Class End Class

274
Contratos/ContratoObra.aspx
View File

@@ -85,7 +85,7 @@
</li> </li>
<li> <li>
<asp:LinkButton ID="LnkModalAddPSControl" Visible="false" runat="server" OnClick="LnkModalAddPSControl_Click"> <i class="fa fa-plus" style="font-weight:bold;"></i>Agregar PS Interno</asp:LinkButton> <asp:LinkButton ID="LnkModalAddPSControl" Visible="false" runat="server" OnClick="LnkModalAddPSControl_Click"> <i class="fa fa-plus" style="font-weight:bold;"></i>Agregar PS Presupuesto de Control</asp:LinkButton>
</li> </li>
@@ -94,7 +94,7 @@
</li> </li>
<li> <li>
<asp:LinkButton ID="LnkModalAddPresupuestoControl" Visible="false" runat="server" OnClick="LnkModalAddPresupuestoControl_Click"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i>Agregar Presupuesto Interno</asp:LinkButton> <asp:LinkButton ID="LnkModalAddPresupuestoControl" Visible="false" runat="server" OnClick="LnkModalAddPresupuestoControl_Click"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i>Agregar Presupuesto de Control</asp:LinkButton>
</li> </li>
@@ -139,7 +139,7 @@
<div class="row" runat="server" id="DVGraficas" visible="false"> <div class="row" runat="server" id="DVGraficas" visible="false">
<div class="col-xs-3"> <div class="col-xs-4">
<div class="dashboard-stat2 " style="border: 2px solid #DDD; margin-bottom: 0px; height: 141.8px!important"> <div class="dashboard-stat2 " style="border: 2px solid #DDD; margin-bottom: 0px; height: 141.8px!important">
<div class="display"> <div class="display">
@@ -171,7 +171,7 @@
</div> </div>
<div class="col-xs-3"> <div class="col-xs-4">
<div class="dashboard-stat2 " style="border: 2px solid #DDD; margin-bottom: 0px;"> <div class="dashboard-stat2 " style="border: 2px solid #DDD; margin-bottom: 0px;">
<div class="display"> <div class="display">
@@ -225,7 +225,7 @@
</div> </div>
</div> </div>
<div class="col-xs-3"> <div class="col-xs-4">
<div class="dashboard-stat2 " style="border: 2px solid #DDD; margin-bottom: 0px;"> <div class="dashboard-stat2 " style="border: 2px solid #DDD; margin-bottom: 0px;">
<div class="display"> <div class="display">
@@ -233,7 +233,7 @@
<table style="width: 100%!important"> <table style="width: 100%!important">
<td> <td>
<small>Interno</small> <small>Presupuesto de Control</small>
<h3 class="font-red-haze"> <h3 class="font-red-haze">
<span style="font-size: large"> <span style="font-size: large">
<asp:Literal Text="0" ID="LtlAvanceInternoImporte" runat="server" /> <asp:Literal Text="0" ID="LtlAvanceInternoImporte" runat="server" />
@@ -478,6 +478,9 @@
<div class="col-md-6"> <div class="col-md-6">
<div class="portlet smmallpadding light bordered"> <div class="portlet smmallpadding light bordered">
<div class="portlet-title"> <div class="portlet-title">
<div class="tools"> <div class="tools">
@@ -561,6 +564,108 @@
</div> </div>
</div> </div>
<div class="row" runat="server">
<label class="col-md-3 ">% Gastos Indirectos:</label>
<div class="col-md-3">
<asp:TextBox ID="TxtPorcentajeGastosIndirectos" runat="server" MaxLength="5" Width="200px" ClientIDMode="Static" onkeyup="muestraCentrocosto(this)" ></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender4" runat="server" TargetControlID="TxtPorcentajeGastosIndirectos" FilterType="Custom, Numbers" ValidChars=",." BehaviorID="_content_SoloNumeros" />
</div>
<div class="col-md-6" style="display:none!important" id="porCentrocosto" >
<div class="portlet smmallpadding light bordered">
<div class="portlet-title">
<div class="tools">
<a href="javascript;" data-idchekbox="C_chkexpand2" class=" collapse" data-original-title="" title=""></a><span class="hidden">
<input id="C_chkexpandCC" type="checkbox" name="ctl00$C$chkexpand" checked="checked"></span>
</div>
<div class="caption uppercase" style="position: relative;"><i class="fa fa-info-circle"></i>Centros de Costo</div>
</div>
<div class="portlet-body rowpadding">
<asp:UpdatePanel runat="server" ID="UpGVCentrosConsto" UpdateMode="Conditional" >
<ContentTemplate>
<table>
<td>Centro de costos</td>
<td>
<asp:DropDownList runat="server" ID="DdlCentroCostos" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control select2me">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVDdlCentroCostos" runat="server" ControlToValidate="DdlCentroCostos" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo Centro de costo es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpCentroCostos" CausesValidation="true"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlCentroCostos" Width="300px"></ajax:ValidatorCalloutExtender>
</td>
<td>Porcentaje</td>
<td>
<asp:TextBox Width="50px" runat="server" id ="TxtCentroCostosPorcentaje" MaxLength="3" style="text-align:right" CausesValidation="true"></asp:TextBox>
<ajax:FilteredTextBoxExtender TargetControlID="TxtCentroCostosPorcentaje" runat="server" FilterType="Numbers,Custom" ValidChars="123456789" />
<asp:RequiredFieldValidator ID="rfvTxtCentroCostosPorcentaje" runat="server" ControlToValidate="TxtCentroCostosPorcentaje" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo porcentaje de costo es necesario, por favor seleccione uno." ValidationGroup="GrpCentroCostos"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="rfvTxtCentroCostosPorcentaje" Width="300px"></ajax:ValidatorCalloutExtender>
</td>
<td><asp:LinkButton runat="server" ID="LnkAgregarCentroCostosPorcentaj" OnClick="LnkAgregarCentroCostosPorcentaj_Click" ValidationGroup="GrpCentroCostos" CausesValidation="true">Agregar</asp:LinkButton></td>
</table>
<asp:GridView ID="GVCentrosConsto" ClientIDMode="Static" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron datos "
CssClass="table table-striped table-hover Widthall" BorderColor="#D3D3D3" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Centro de Costo" DataField="SubProyecto" />
<asp:BoundField HeaderText="Porcentaje" DataField="Porcentaje" ItemStyle-HorizontalAlign="Right" />
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
</div>
<div class="row" id="DvTotal" runat="server"> <div class="row" id="DvTotal" runat="server">
<label class="col-md-3 ">Total con IVA:</label> <label class="col-md-3 ">Total con IVA:</label>
<div class="col-md-9"> <div class="col-md-9">
@@ -866,7 +971,7 @@
</ContentTemplate> </ContentTemplate>
</ajax:TabPanel> </ajax:TabPanel>
<ajax:TabPanel ID="TabPVInsumos" runat="server" HeaderText="Interno"> <ajax:TabPanel ID="TabPVInsumos" runat="server" HeaderText="Presupuesto de Control">
<ContentTemplate> <ContentTemplate>
<%-- <asp:UpdatePanel ID="UpTitulosInsumos" runat="server" UpdateMode="Conditional"> <%-- <asp:UpdatePanel ID="UpTitulosInsumos" runat="server" UpdateMode="Conditional">
@@ -1063,8 +1168,8 @@
</ContentTemplate> </ContentTemplate>
</ajax:TabPanel> </ajax:TabPanel>
<ajax:TabPanel ID="TabPI" runat="server" HeaderText="Interno" Visible="false"> <ajax:TabPanel ID="TabPI" runat="server" HeaderText="Presupuesto de Control" Visible="false">
<HeaderTemplate>Interno </HeaderTemplate> <HeaderTemplate>Presupuesto de Control </HeaderTemplate>
<ContentTemplate> <ContentTemplate>
<asp:UpdatePanel ID="UPPDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
@@ -1329,7 +1434,7 @@
</ContentTemplate> </ContentTemplate>
</ajax:TabPanel> </ajax:TabPanel>
<ajax:TabPanel ID="TabInterno" Visible="true" runat="server" HeaderText="Interno"> <ajax:TabPanel ID="TabInterno" Visible="true" runat="server" HeaderText="Presupuesto de Control">
<ContentTemplate> <ContentTemplate>
@@ -1535,7 +1640,7 @@
<div class="portlet-body rowpadding"> <div class="portlet-body rowpadding">
<asp:GridView ID="GvGastosVeiculos" ClientIDMode="Static" ShowHeader="true" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron gastos de veiculos" <asp:GridView ID="GvGastosVeiculos" ClientIDMode="Static" ShowHeader="true" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron gastos de vehículos"
DataKeyNames="CveContratoGasto,ORDEN" DataKeyNames="CveContratoGasto,ORDEN"
CssClass="table table-striped table-hover Widthall" GridLines="None"> CssClass="table table-striped table-hover Widthall" GridLines="None">
<Columns> <Columns>
@@ -1797,6 +1902,135 @@
</ContentTemplate> </ContentTemplate>
</ajax:TabPanel> </ajax:TabPanel>
<ajax:TabPanel ID="TabPanel2" runat="server" HeaderText="Utilidad o Perdida">
<ContentTemplate>
<div class="row">
<div class="col-md-12" style="vertical-align: middle;">
<table class="table table-striped table-hover Widthall" >
<tr>
<th colspan="2" style="border-left:solid;border-top:solid"></th>
<th colspan="3" style="text-align:center;border-top:solid;border-left:solid">Contratado</th>
<th colspan="2" style="text-align:center;border-top:solid">Avance</th>
<th colspan="2" style="text-align:center;border-top:solid">Faltante</th>
<th colspan="3" style="text-align:center;border-top:solid;border-left:solid">Presupuesto de Control</th>
<th colspan="3" style="text-align:center;border-top:solid;border-left:solid;border-right:solid">Saldos</th>
</tr>
<tr>
<th style="border-left:solid;border-bottom:solid">Concepto</th>
<th style="border-bottom:solid">U.M.</th>
<th style="border-bottom:solid;border-left:solid">Cantidad</th>
<th style="border-bottom:solid">PU</th>
<th style="border-bottom:solid">Importe</th>
<th style="border-bottom:solid">Cantidad</th>
<th style="border-bottom:solid">Importe</th>
<th style="border-bottom:solid">Cantidad</th>
<th style="border-bottom:solid">Importe</th>
<th style="border-bottom:solid;border-left:solid">Presupuesto</th>
<th style="border-bottom:solid">Avance</th>
<th style="border-bottom:solid">Faltante</th>
<th style="border-bottom:solid;border-left:solid">Contrato Vs Pto Control</th>
<th style="border-bottom:solid">Pto Vs Real</th>
<th style="border-bottom:solid;border-right:solid">Factor Faltante</th>
</tr>
<tr>
<td style="border-left:solid;">Pavimentación tramo 1</td>
<td>pieza</td>
<td style="text-align:right;border-left:solid" >$500.00</td>
<td style="text-align:right" >$500.00</td>
<td style="text-align:right" >$250,000.00</td>
<td style="text-align:right" >$3.00</td>
<td style="text-align:right" >$1,500.00</td>
<td style="text-align:right" >$497.00</td>
<td style="text-align:right" >$248,500.00</td>
<td style="text-align:right;border-left:solid" >$198,580.00</td>
<td style="text-align:right" >$30,000.00</td>
<td style="text-align:right" >$168,580.00</td>
<td style="text-align:right;border-left:solid" >$51,420.00</td>
<td style="text-align:right" >$51,420.00</td>
<td style="text-align:right;border-right:solid" >0.68</td>
</tr>
<tr>
<td style="border-left:solid;">Riego de liga tramo 1</td>
<td>pieza</td>
<td style="text-align:right;border-left:solid" >$500.00</td>
<td style="text-align:right" >$100.00</td>
<td style="text-align:right" >$50,000.00</td>
<td style="text-align:right" >$3.00</td>
<td style="text-align:right" >$300.00</td>
<td style="text-align:right" >$497.00</td>
<td style="text-align:right" >$49,700.00</td>
<td style="text-align:right;border-left:solid" >$10,000.00</td>
<td style="text-align:right" >$10,000.00</td>
<td style="text-align:right" >$0.00</td>
<td style="text-align:right;border-left:solid" >$40,000.00</td>
<td style="text-align:right" >$40,000.00</td>
<td style="text-align:right;border-right:solid" >0</td>
</tr>
<tr>
<td style="border-left:solid;">Servicio de Agua</td>
<td>pieza</td>
<td style="text-align:right;border-left:solid" >$5.00</td>
<td style="text-align:right" >$100.00</td>
<td style="text-align:right" >$500.00</td>
<td style="text-align:right" >$0.00</td>
<td style="text-align:right" >$0.00</td>
<td style="text-align:right" >$5.00</td>
<td style="text-align:right" >$500.00</td>
<td style="text-align:right;border-left:solid" >$100.00</td>
<td style="text-align:right" >$100.00</td>
<td style="text-align:right" >$0.00</td>
<td style="text-align:right;border-left:solid" >$400.00</td>
<td style="text-align:right" >$400.00</td>
<td style="text-align:right;border-right:solid" >0</td>
</tr>
<tr>
<td style="border-left:solid;border-bottom:solid;border-left:solid">INDIRECTOS</td>
<td style="text-align:right;border-bottom:solid"></t>
<td style="text-align:right;border-bottom:solid;border-left:solid;background-color:gray" colspan="7" ></td>
<td style="text-align:right;border-bottom:solid;border-left:solid" >$90,150.00</td>
<td style="text-align:right;border-bottom:solid" >$200,000.00</td>
<td style="text-align:right" >-$109,850.00</td>
<td style="text-align:right;border-left:solid" >-$90,150.00</td>
<td style="text-align:right" >-$200,000.00</td>
<td style="text-align:right;border-right:solid" >0</td>
</tr>
<tr>
<td colspan="11"></td>
<td style="border-bottom:solid; border-left:solid;border-bottom:solid;border-top:solid">Netos</td>
<td style="text-align:right;border-top:solid;border-bottom:solid">$1,670.00</td>
<td style="text-align:right;border-top:solid;border-bottom:solid">-$108,180.00</td>
<td style="border-top:solid;border-bottom:solid;border-right:solid"></td>
</tr>
</table>
</div>
</div>
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="TabAF" runat="server" HeaderText="Activos Fijos"> <ajax:TabPanel ID="TabAF" runat="server" HeaderText="Activos Fijos">
<ContentTemplate> <ContentTemplate>
<asp:UpdatePanel UpdateMode="Conditional" ID="UpAlmacen" runat="server"> <asp:UpdatePanel UpdateMode="Conditional" ID="UpAlmacen" runat="server">
@@ -3160,5 +3394,23 @@
} }
function muestraCentrocosto(txt) {
if ($('#TxtPorcentajeGastosIndirectos').val().length > 0) {
$("#porCentrocosto").show();
} else {
$("#porCentrocosto").hide();
}
}
</script> </script>
</asp:Content> </asp:Content>

83
Contratos/ContratoObra.aspx.vb
View File

@@ -480,6 +480,9 @@ Partial Class Contratos_ContratoObra
'CargaDatosEncabezado() 'CargaDatosEncabezado()
CargaDLLCargaGVCentrosConsto()
tabalCentrosdecotso()
End If End If
@@ -4970,7 +4973,7 @@ Partial Class Contratos_ContratoObra
If ObjContratos.GetContratosObragGastosVeiculos(CveContrato, UsuarioActual.CveEmpresa) Then If ObjContratos.GetContratosObragGastosVeiculos(CveContrato, UsuarioActual.CveEmpresa) Then
GvGastosVeiculos.DataSource = ObjContratos.DtResultados GvGastosVeiculos.DataSource = ObjContratos.DtResultados
GastosVeiculos = ObjContratos.DtResultados.SUM("Importe") GastosVeiculos = ObjContratos.DtResultados.SUM("Importe", " CveContratoGasto > 0 ")
Else Else
GvGastosVeiculos.DataSource = Nothing GvGastosVeiculos.DataSource = Nothing
@@ -5279,6 +5282,84 @@ Partial Class Contratos_ContratoObra
End Sub End Sub
Property DTCentrosCostoGB As DataTable
Get
If ViewState("DTCentrosCosto") Is Nothing Then
Return New DataTable
Else
Return DirectCast(ViewState("DTCentrosCosto"), DataTable)
End If
End Get
Set(value As DataTable)
ViewState("DTCentrosCosto") = value
End Set
End Property
Private Sub tabalCentrosdecotso()
Dim DTCentrosCosto As New DataTable
DTCentrosCosto.Columns.Add("CveSubProyecto", GetType(Integer))
DTCentrosCosto.Columns.Add("SubProyecto", GetType(String))
DTCentrosCosto.Columns.Add("Porcentaje", GetType(Decimal))
DTCentrosCostoGB = DTCentrosCosto
End Sub
Private Sub AddtabalCentrosdecotso(CveSubProyecto As Integer, SubProyecto As String, porcentaje As Decimal)
Dim drow As DataRow = DTCentrosCostoGB.NewRow
drow("CveSubProyecto") = CveSubProyecto
drow("SubProyecto") = SubProyecto
drow("Porcentaje") = porcentaje
DTCentrosCostoGB.Rows.Add(drow)
TxtCentroCostosPorcentaje.Text = ""
CargaGVCentrosConsto()
End Sub
Private Sub RemovetabalCentrosdecotso(Indice As Integer)
CargaGVCentrosConsto()
End Sub
Private Sub CargaGVCentrosConsto()
GVCentrosConsto.DataSource = DTCentrosCostoGB
GVCentrosConsto.DataBind()
UpGVCentrosConsto.Update()
End Sub
Private Sub CargaDLLCargaGVCentrosConsto()
DdlCentroCostos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"})
DdlCentroCostos.DataBind()
DdlCentroCostos.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
End Sub
Protected Sub LnkAgregarCentroCostosPorcentaj_Click(sender As Object, e As EventArgs)
AddtabalCentrosdecotso(DdlCentroCostos.SelectedValue.ToEntero, DdlCentroCostos.SelectedItem.Text, TxtCentroCostosPorcentaje.Text.ToDecimal)
End Sub
End Class End Class