Contratos 2020-12-24
This commit is contained in:
Rakcsle Supertramp
@@ -3493,10 +3493,63 @@ Public Class ClsContratos
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
#Region " MAQUINARIA FLOTILLA HERRAMIENTA "
|
||||
|
||||
|
||||
Public Function AddContratosMaquinariaFlotilla(CveActivoFijo As Integer, Fecha As Date, CvePersonal As Integer, Importe As Decimal, CveContratoDetalle As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
Dataset = New DataSet()
|
||||
DataAdapter("PA_Con_ContratosMaquinariaFlotillaAdd")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
|
||||
.Add("@Fecha", SqlDbType.DateTime).Value = Fecha
|
||||
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
|
||||
.Add("@Importe", SqlDbType.Money).Value = Importe
|
||||
.Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle
|
||||
End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Dataset)
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al agregar el registro.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
|
||||
Public Function GetContratosMaquinariaFlotillaSubTipoAF(CveContrato As Integer, CveEmpresa As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
Dataset = New DataSet()
|
||||
DataAdapter("PA_Con_ContratosMaquinariaFlotillaSuibTipoAFGet")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveContrato", SqlDbType.Int).Value = CveContrato
|
||||
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al obtener el registro.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " IDisposable Support "
|
||||
' IDisposable
|
||||
' IDisposable
|
||||
Protected Overridable Sub Dispose(ByVal disposing As Boolean)
|
||||
If Not disposedValue Then
|
||||
If disposing Then
|
||||
|
||||
@@ -1366,7 +1366,15 @@ Partial Class Compras_Compras
|
||||
Dim ObjPersonal As New ClsRH
|
||||
ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa)
|
||||
DdlPersonal.DataSource = ObjPersonal.DtResultados
|
||||
DdlPersonalReembolso.DataSource = ObjPersonal.DtResultados.FiltraParametros("CveEstatusPersonal = 1")
|
||||
|
||||
If UsuarioActual.CveEmpresa = 119 Then
|
||||
DdlPersonalReembolso.DataSource = ObjPersonal.DtResultados
|
||||
Else
|
||||
DdlPersonalReembolso.DataSource = ObjPersonal.DtResultados.FiltraParametros("CveEstatusPersonal = 1")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
ObjPersonal.Dispose()
|
||||
DdlPersonal.DataBind()
|
||||
DdlPersonalReembolso.DataBind()
|
||||
|
||||
@@ -102,6 +102,10 @@
|
||||
<asp:LinkButton ID="LnkModalAddGastos" Visible="false" runat="server" OnClick="LnkModalAddGastos_Click"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i>Agregar Gasto</asp:LinkButton>
|
||||
</li>
|
||||
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkModalAddMaquinariaFlotilla" Visible="false" runat="server" OnClick="LnkModalAddMaquinariaFlotilla_Click"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i>Agregar Maquionaria Flotilla Herramienta</asp:LinkButton>
|
||||
</li>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
@@ -1011,19 +1015,7 @@
|
||||
</asp:TemplateField>
|
||||
|
||||
|
||||
<%-- <asp:TemplateField HeaderText="Editar" ItemStyle-Width="50px" ItemStyle-HorizontalAlign="Center">
|
||||
<EditItemTemplate>
|
||||
<div style="width: 65px;">
|
||||
<asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update"
|
||||
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" /><asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel"
|
||||
CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
|
||||
</div>
|
||||
</EditItemTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit"
|
||||
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>--%>
|
||||
|
||||
<asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="50px" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red"
|
||||
@@ -2720,7 +2712,7 @@
|
||||
<asp:DropDownList ID="DdlRubro" runat="server" CssClass="table-group-action-input form-control input-inline input-sm select2me" Style="width: 100%;" AutoPostBack="true" OnSelectedIndexChanged="DdlRubro_SelectedIndexChanged">
|
||||
<asp:ListItem Value="2">Insumos</asp:ListItem>
|
||||
<asp:ListItem Value="3">Mano de Obra</asp:ListItem>
|
||||
<asp:ListItem Value="4">Flotillas</asp:ListItem>
|
||||
<asp:ListItem Value="4">Maquinaria Herramienta Flotilla</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<label for="<%= DdlRubro.ClientID.ToString()%>">Rubro:</label>
|
||||
|
||||
@@ -2764,18 +2756,30 @@
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright" runat="server" id="DVActividadesRH" visible="false" >
|
||||
|
||||
<asp:DropDownList ID="DdlActividades" runat="server" DataTextField="Actividad" DataValueField="CveActividad" CssClass="table-group-action-input form-control input-inline input-sm select2me" Style="width: 100%;"></asp:DropDownList>
|
||||
<label for="<%= DdlActividades.ClientID.ToString()%>">Actividad:</label>
|
||||
<asp:DropDownList ID="DdlActividades" runat="server" DataTextField="Actividad" DataValueField="CveActividad" CssClass="table-group-action-input form-control input-inline input-sm select2me" Style="width: 100%;"></asp:DropDownList>
|
||||
<label for="<%= DdlActividades.ClientID.ToString()%>">Actividad:</label>
|
||||
<asp:RequiredFieldValidator ID="RFVDdlActividades" runat="server" ControlToValidate="DdlActividades" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Actividad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddPSControl"></asp:RequiredFieldValidator>
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright" runat="server" id="DVSubTipoActivoFijo" visible="false" >
|
||||
<asp:DropDownList ID="DdlSubTipoActivoFijo" runat="server" DataTextField="SubTipoActivoFijo" DataValueField="CveSubTipoActivoFijo" CssClass="table-group-action-input form-control input-inline input-sm select2me" Style="width: 100%;"></asp:DropDownList>
|
||||
<label for="<%= DdlSubTipoActivoFijo.ClientID.ToString()%>">Sub Tipo Activo Fijo:</label>
|
||||
<asp:RequiredFieldValidator ID="RfvDdlSubTipoActivoFijo" runat="server" ControlToValidate="DdlActividades" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sub Tipo Activo Fijo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddPSControl"></asp:RequiredFieldValidator>
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright" runat="server" id="DVDias" visible="false">
|
||||
<asp:TextBox ID="TxtDias" runat="server" CssClass="form-control" ></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="FilTxtDias" runat="server" TargetControlID="TxtDias" FilterType="Numbers" InvalidChars="-+.," />
|
||||
<asp:RequiredFieldValidator ID="RFVTxtDias" runat="server" ControlToValidate="TxtDias" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Dias''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddPSControl" ></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtDias.ClientID.ToString()%>">Dias:</label>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright" style="text-align:right!important">
|
||||
<asp:CheckBox ID="ChkContinualAgregandoControl" runat="server" TextAlign="Left" Text="Continuar agregando" CssClass="form-control" Checked="true" />
|
||||
@@ -2890,6 +2894,94 @@
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
<%--MODAL CONTROL PRESUPUESTOS AGREGAR--%>
|
||||
<div id="ModalMaquinaria" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog" style="width: 450px;">
|
||||
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalMaquinariaFlotilla" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
<div class="modal-header ">
|
||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||
<h4 class="modal-title">
|
||||
<asp:Literal ID="Literal7" runat="server">Maquinaria Flotilla </asp:Literal></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlSubTipoAF" runat="server" DataTextField="SubTipoActivoFijo" DataValueField="CveClaveDetalle" CssClass="table-group-action-input form-control input-inline input-sm select2me" Style="width: 100%;" AutoPostBack="true" >
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVDdlSubTipoAF" runat="server" ControlToValidate="DdlSubTipoAF" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sub Tipo Activo Fijo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddMaquinaria"></asp:RequiredFieldValidator>
|
||||
<label for="<%= DdlSubTipoAF.ClientID.ToString()%>">Sub Tipo Activo Fijo:</label>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlAF" Width="100%" runat="server" CssClass="table-group-action-input form-control input-inline input-sm select2me" AppendDataBoundItems="true" DataTextField="CodDesc" DataValueField="CveActivoFijo" Style="width: 100%;" ValidationGroup="GrpAddMaquinaria" >
|
||||
<asp:ListItem Selected="True" Text="Seleccione uno" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVDdlAF" runat="server" ControlToValidate="DdlAF" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Activo Fijo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddMaquinaria"></asp:RequiredFieldValidator>
|
||||
<label for="<%= DdlAF.ClientID.ToString()%>">Activo Fijo:</label>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlPersonal" Width="100%" runat="server" CssClass="table-group-action-input form-control input-inline input-sm select2me" DataTextField="NombreCompleto" DataValueField="CvePersonal" Style="width: 100%;" ValidationGroup="GrpAddMaquinaria" >
|
||||
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVDdlPersonal" runat="server" ControlToValidate="DdlPersonal" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Personal''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddMaquinaria"></asp:RequiredFieldValidator>
|
||||
<label for="<%= DdlPersonal.ClientID.ToString()%>">Personal:</label>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
|
||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px;">
|
||||
<asp:TextBox Width="110px" ID="TxtFechaMaquinaria" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton ID="LnkFechaMaquinaria" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||
</span>
|
||||
</div>
|
||||
<ajax:MaskedEditExtender ID="MEETxtFechaMaquinaria" runat="server" TargetControlID="TxtFechaMaquinaria" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender runat="server" ID="CETxtFechaMaquinaria" TargetControlID="TxtFechaMaquinaria" PopupButtonID="LnkFechaMaquinaria" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
<asp:RequiredFieldValidator ID="RFVTxtFechaMaquinaria" runat="server" ControlToValidate="TxtFechaMaquinaria" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="CVTxtFechaMaquinaria" runat="server" ControlToValidate="TxtFechaMaquinaria" Display="None" ErrorMessage="El campo <b>''Fecha''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpAddMaquinaria"></asp:CompareValidator>
|
||||
|
||||
<ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="RFVTxtFechaMaquinaria" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="CVTxtFechaMaquinaria" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtMaquinariaImporte" runat="server" Width="70px" CssClass="form-control"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="FilTxtMaquinariaImporte" runat="server" TargetControlID="TxtMaquinariaImporte" FilterType="Custom, Numbers" ValidChars="." />
|
||||
<asp:RequiredFieldValidator ID="RFVTxtMaquinariaImporte" runat="server" ControlToValidate="TxtMaquinariaImporte" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Importe''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddMaquinaria"></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtMaquinariaImporte.ClientID.ToString()%>">Importe:</label>
|
||||
<i></i>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright" style="text-align:right!important">
|
||||
<asp:CheckBox ID="ChkModalMaquinaria" runat="server" TextAlign="Left" Text="Continuar agregando" CssClass="form-control" Checked="true" />
|
||||
</div>
|
||||
|
||||
<br />
|
||||
<td id="TD2" runat="server" visible="false"></td>
|
||||
|
||||
</div>
|
||||
|
||||
<div class="modal-footer">
|
||||
<asp:Button Text="Guardar" runat="server" ID="BtnModalMaquinariaAdd" Width="100px" OnClick="BtnModalMaquinariaAdd_Click" ValidationGroup="GrpAddMaquinaria" class="btn btn-success" />
|
||||
<button id="Button8" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
<iframe id="my_iframe" style="display: none;"></iframe>
|
||||
|
||||
|
||||
@@ -436,6 +436,7 @@ Partial Class Contratos_ContratoObra
|
||||
LnkModalAddPSControl.Visible = True
|
||||
LnkModalAddPresupuestoVentas.Visible = True
|
||||
LnkModalAddPresupuestoControl.Visible = True
|
||||
LnkModalAddMaquinariaFlotilla.Visible = True
|
||||
|
||||
End If
|
||||
|
||||
@@ -1824,6 +1825,7 @@ Partial Class Contratos_ContratoObra
|
||||
Row("Rubro") = DdlRubro.SelectedItem.Text
|
||||
|
||||
If DdlRubro.SelectedValue.ToEntero = 3 Then
|
||||
|
||||
Row("CveActividad") = DdlActividades.SelectedValue.ToEntero
|
||||
Row("Actividad") = DdlActividades.SelectedItem.Text
|
||||
Row("Dias") = TxtDias.Text.ToEntero
|
||||
@@ -1838,6 +1840,23 @@ Partial Class Contratos_ContratoObra
|
||||
Row("PS") = DdlActividades.SelectedItem.Text
|
||||
Row("CodigoPS") = DdlActividades.SelectedItem.Text
|
||||
|
||||
|
||||
ElseIf DdlRubro.SelectedValue.ToEntero = 4 Then
|
||||
|
||||
Row("CveActividad") = -1
|
||||
Row("Actividad") = ""
|
||||
Row("Dias") = TxtDias.Text.ToEntero
|
||||
Row("CveSubTipoActivoFijo") = DdlSubTipoActivoFijo.SelectedValue.ToEntero
|
||||
|
||||
|
||||
Row("CveUM") = -1
|
||||
Row("UM") = ""
|
||||
Row("CveClasificacion") = -1
|
||||
Row("Clasificacion") = ""
|
||||
Row("CvePS") = -1
|
||||
Row("PS") = DdlSubTipoActivoFijo.SelectedItem.Text
|
||||
Row("CodigoPS") = DdlSubTipoActivoFijo.SelectedItem.Text
|
||||
|
||||
Else
|
||||
Row("CveActividad") = -1
|
||||
Row("Actividad") = ""
|
||||
@@ -1903,11 +1922,22 @@ Partial Class Contratos_ContratoObra
|
||||
|
||||
If CveRubro = 3 Then
|
||||
|
||||
CveSubTipoActivoFijo = -1
|
||||
CveActividad = DdlActividades.SelectedValue.ToEntero
|
||||
Dias = TxtDias.Text.ToEntero
|
||||
|
||||
CvePS = -1
|
||||
CveUM = -1
|
||||
|
||||
ElseIf CveRubro = 4 Then
|
||||
|
||||
CveSubTipoActivoFijo = DdlSubTipoActivoFijo.SelectedValue.ToEntero
|
||||
CveActividad = -1
|
||||
Dias = TxtDias.Text.ToEntero
|
||||
|
||||
CvePS = -1
|
||||
CveUM = -1
|
||||
|
||||
Else
|
||||
CvePS = DdlProductowsInsumos.SelectedValue.ToEntero
|
||||
CveUM = DdlUMInsumos.SelectedValue.ToEntero
|
||||
@@ -1923,23 +1953,45 @@ Partial Class Contratos_ContratoObra
|
||||
Dim ObjContratos As New ClsContratos
|
||||
If ObjContratos.UpdateContratosDetalle(CveContratoDetalleEditar, CveContrato, CvePS, Cantidad, PU, UsuarioActual.CveUsuario, "", False, "", CveRubro:=CveRubro, CveActividad:=CveActividad, CveSubTipoActivoFijo:=CveSubTipoActivoFijo, Dias:=Dias) Then
|
||||
|
||||
If Autorizado Then
|
||||
Dim msj As String = String.Format("Se realizaron los siguientes cambios, el Presupuesto Interno se modificó: {1} {0} {2:C2} a {3} {0} {4:C2}",
|
||||
row("PS").ToString, row("Cantidad").ToString, row("PU").ToString, Cantidad, PU)
|
||||
guardarBitacora(msj)
|
||||
End If
|
||||
'If Autorizado Then
|
||||
' Dim msj As String = String.Format("Se realizaron los siguientes cambios, el Presupuesto Interno se modificó: {1} {0} {2:C2} a {3} {0} {4:C2}",
|
||||
' row("PS").ToString, row("Cantidad").ToString, row("PU").ToString, Cantidad, PU)
|
||||
' guardarBitacora(msj)
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
row("Cantidad") = Cantidad
|
||||
row("CantidadContratada") = Cantidad
|
||||
row("PU") = PU
|
||||
row("Total") = Cantidad * PU
|
||||
row("CveUM") = CveUM
|
||||
row("UM") = DdlUMInsumos.SelectedItem.Text
|
||||
|
||||
row("NoIdentificacion") = "" 'NoIdentificacion
|
||||
row("LimitarCantidad") = False
|
||||
|
||||
row("CveActividad") = CveActividad
|
||||
row("CveSubTipoActivoFijo") = CveSubTipoActivoFijo
|
||||
row("Dias") = Dias
|
||||
|
||||
|
||||
If CveRubro = 3 Then
|
||||
row("PS") = DdlActividades.SelectedItem.Text
|
||||
row("CodigoPS") = DdlActividades.SelectedItem.Text
|
||||
row("UM") = ""
|
||||
ElseIf CveRubro = 4 Then
|
||||
row("PS") = DdlSubTipoActivoFijo.SelectedItem.Text
|
||||
row("CodigoPS") = DdlSubTipoActivoFijo.SelectedItem.Text
|
||||
row("UM") = ""
|
||||
Else
|
||||
row("UM") = DdlUMInsumos.SelectedItem.Text
|
||||
End If
|
||||
|
||||
TmpDT.AcceptChanges()
|
||||
|
||||
Alert("Cambios realizados correctamente.", TipoMensaje.MsgInformacion)
|
||||
RegistraScript("$('#ModalControlAddPS').modal('hide')")
|
||||
|
||||
Else
|
||||
Alert("Error al Actualizar Detalle", TipoMensaje.MsgError)
|
||||
End If
|
||||
@@ -4163,22 +4215,43 @@ Partial Class Contratos_ContratoObra
|
||||
|
||||
DVDias.Visible = True
|
||||
DVActividadesRH.Visible = True
|
||||
DVSubTipoActivoFijo.Visible = False
|
||||
|
||||
DVClasificacion.Visible = False
|
||||
DVPS.Visible = False
|
||||
DVUM.Visible = False
|
||||
|
||||
DdlActividades.SelectedValueExist(gvRow.DataKey("CveActividad"))
|
||||
DdlSubTipoActivoFijo.SelectedValueExist(-1)
|
||||
TxtDias.Text = gvRow.DataKey("Dias")
|
||||
|
||||
ElseIf CveRubro = 4 Then
|
||||
|
||||
|
||||
DVDias.Visible = True
|
||||
DVActividadesRH.Visible = False
|
||||
DVSubTipoActivoFijo.Visible = True
|
||||
|
||||
|
||||
DVClasificacion.Visible = False
|
||||
DVPS.Visible = False
|
||||
DVUM.Visible = False
|
||||
|
||||
DdlActividades.SelectedValueExist(-1)
|
||||
DdlSubTipoActivoFijo.SelectedValueExist(gvRow.DataKey("CveSubTipoActivoFijo"))
|
||||
TxtDias.Text = gvRow.DataKey("Dias")
|
||||
|
||||
Else
|
||||
DVDias.Visible = False
|
||||
DVActividadesRH.Visible = False
|
||||
DVSubTipoActivoFijo.Visible = False
|
||||
|
||||
DVClasificacion.Visible = True
|
||||
DVPS.Visible = True
|
||||
DVUM.Visible = True
|
||||
|
||||
DdlActividades.SelectedValueExist(-1)
|
||||
DdlSubTipoActivoFijo.SelectedValueExist(-1)
|
||||
TxtDias.Text = "0"
|
||||
|
||||
End If
|
||||
@@ -4218,18 +4291,22 @@ Partial Class Contratos_ContratoObra
|
||||
UpModalVentasAddPS.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub LimpiarModalControl()
|
||||
|
||||
DdlActividades.Items.Clear()
|
||||
DdlSubTipoActivoFijo.Items.Clear()
|
||||
|
||||
|
||||
DdlActividades.DataSource = GlobalDTRHActividades(UsuarioActual.CveEmpresa)
|
||||
DdlActividades.DataBind()
|
||||
|
||||
DdlActividades.Items.Insert(0, New ListItem("Seleccione una", "-1"))
|
||||
|
||||
DdlSubTipoActivoFijo.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa)
|
||||
DdlSubTipoActivoFijo.DataBind()
|
||||
DdlSubTipoActivoFijo.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
|
||||
|
||||
TxtCantidadInsumos.Text = ""
|
||||
'ChkLimitarInsumos.Checked = False
|
||||
'TxtNoIdentificacionvInsumos.Text = ""
|
||||
|
||||
DdlClasificacionAddInsumos.SelectedValueExist(-1)
|
||||
DdlProductowsInsumos.txtText.Value = ""
|
||||
@@ -4238,8 +4315,6 @@ Partial Class Contratos_ContratoObra
|
||||
TxtPUInsumos.Text = ""
|
||||
|
||||
DdlRubro.SelectedValue = "2"
|
||||
' DdlRubro_SelectedIndexChanged(Nothing, Nothing)
|
||||
|
||||
|
||||
DVClasificacion.Visible = True
|
||||
DVPS.Visible = True
|
||||
@@ -4263,7 +4338,33 @@ Partial Class Contratos_ContratoObra
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub LimpiarModalMaquinaria()
|
||||
|
||||
DdlPersonal.Items.Clear()
|
||||
|
||||
|
||||
|
||||
|
||||
DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
|
||||
DdlPersonal.DataBind()
|
||||
DdlPersonal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
|
||||
|
||||
Dim Objcontratos As New ClsContratos
|
||||
If Objcontratos.GetContratosMaquinariaFlotillaSubTipoAF(CveContrato, UsuarioActual.CveEmpresa) Then
|
||||
DdlSubTipoAF.DataSource = Objcontratos.DtResultados
|
||||
End If
|
||||
Objcontratos.Dispose()
|
||||
DdlSubTipoAF.DataBind()
|
||||
DdlSubTipoAF.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
|
||||
|
||||
|
||||
TxtFechaMaquinaria.Text = ""
|
||||
|
||||
|
||||
|
||||
UpModalMaquinariaFlotilla.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnCargaPresupuesto_Click(sender As Object, e As EventArgs)
|
||||
|
||||
@@ -4287,7 +4388,7 @@ Partial Class Contratos_ContratoObra
|
||||
|
||||
DTCargaPresupuesto = CargaPreSupuestoExcel("Insumos")
|
||||
DTCargaPresupuestoManoObra = CargaPreSupuestoExcel("ManoObra")
|
||||
DTCargaPresupuestoFlotillas = CargaPreSupuestoExcel("Flotillas")
|
||||
DTCargaPresupuestoFlotillas = CargaPreSupuestoExcel("Maquinaria")
|
||||
|
||||
ProcesaDatosCargaPresupuesto(DTCargaPresupuesto, DTCargaPresupuestoManoObra, DTCargaPresupuestoFlotillas)
|
||||
|
||||
@@ -4579,6 +4680,7 @@ Partial Class Contratos_ContratoObra
|
||||
Row("Observacion") = ""
|
||||
|
||||
DTPS.Rows.Add(Row)
|
||||
Else
|
||||
|
||||
End If
|
||||
End If
|
||||
@@ -4590,6 +4692,48 @@ Partial Class Contratos_ContratoObra
|
||||
|
||||
If Not DTCargaPresupuestoFlotillas Is Nothing Then
|
||||
|
||||
For Each DrowPS As DataRow In DTCargaPresupuestoFlotillas.Rows
|
||||
|
||||
Dim CveSubTipoActivoFijo As Integer = 0
|
||||
Dim SubTipoActivoFijo As String = DrowPS("SubTipoAF").ToString
|
||||
|
||||
CveSubTipoActivoFijo = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubTipoActivoFijo", $" SubTipoActivoFijo = '{DrowPS("SubTipoAF").ToString }'").ToEntero
|
||||
|
||||
If CveSubTipoActivoFijo > 0 Then
|
||||
|
||||
Dim Row As DataRow = DTPS.NewRow()
|
||||
Row("Cantidad") = DrowPS("Cantidad").ToString.ToDouble
|
||||
Row("CantidadContratada") = DrowPS("Cantidad").ToString.ToDouble
|
||||
Row("CveUM") = -1
|
||||
Row("UM") = "Maquinaria Flotilla"
|
||||
Row("CveClasificacion") = -1
|
||||
Row("Clasificacion") = ""
|
||||
Row("CvePS") = -1
|
||||
Row("PS") = SubTipoActivoFijo
|
||||
Row("CodigoPS") = SubTipoActivoFijo
|
||||
Row("PU") = DrowPS("PU").ToString.ToDouble
|
||||
Row("Total") = DrowPS("Cantidad").ToString.ToDouble * DrowPS("PU").ToString.ToDouble
|
||||
|
||||
Row("CveTipoPresupuesto") = 1
|
||||
Row("CveRubro") = 3
|
||||
Row("CveActividad") = -1
|
||||
Row("CveSubTipoActivoFijo") = CveSubTipoActivoFijo
|
||||
Row("Dias") = DrowPS("Horas").ToString.ToEntero
|
||||
|
||||
Row("NoIdentificacion") = ""
|
||||
Row("OCInterna") = ""
|
||||
Row("LimitarCantidad") = 0
|
||||
Row("Observacion") = ""
|
||||
|
||||
DTPS.Rows.Add(Row)
|
||||
Else
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Next
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
@@ -4643,6 +4787,7 @@ Partial Class Contratos_ContratoObra
|
||||
NrowTmpDT("Rubro") = Row("Rubro")
|
||||
NrowTmpDT("Actividad") = Row("Actividad")
|
||||
NrowTmpDT("SubTipoActivoFijo") = Row("SubTipoActivoFijo")
|
||||
NrowTmpDT("Dias") = Row("Dias")
|
||||
|
||||
|
||||
NrowTmpDT("CveContratoDetalle") = ObjContratos.DtResultados.Rows(0)("CveContratoDetalle")
|
||||
@@ -4975,13 +5120,28 @@ Partial Class Contratos_ContratoObra
|
||||
Protected Sub DdlRubro_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
|
||||
|
||||
If DdlRubro.SelectedValue.ToEntero = 3 Then
|
||||
If DdlRubro.SelectedValue.ToEntero = 3 Then 'Rubro RH
|
||||
DVDias.Visible = True
|
||||
DVActividadesRH.Visible = True
|
||||
|
||||
DVClasificacion.Visible = False
|
||||
DVPS.Visible = False
|
||||
DVUM.Visible = False
|
||||
|
||||
DVSubTipoActivoFijo.Visible = False
|
||||
|
||||
|
||||
ElseIf DdlRubro.SelectedValue.ToEntero = 4 Then 'Rubro Maquinaria florilla herramienta
|
||||
|
||||
DVDias.Visible = True
|
||||
DVActividadesRH.Visible = False
|
||||
|
||||
DVClasificacion.Visible = False
|
||||
DVPS.Visible = False
|
||||
DVUM.Visible = False
|
||||
|
||||
DVSubTipoActivoFijo.Visible = True
|
||||
|
||||
Else
|
||||
DVDias.Visible = False
|
||||
DVActividadesRH.Visible = False
|
||||
@@ -4990,11 +5150,91 @@ Partial Class Contratos_ContratoObra
|
||||
DVPS.Visible = True
|
||||
DVUM.Visible = True
|
||||
|
||||
DVSubTipoActivoFijo.Visible = False
|
||||
|
||||
End If
|
||||
|
||||
UpModalControlAddPS.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkModalAddMaquinariaFlotilla_Click(sender As Object, e As EventArgs)
|
||||
|
||||
LimpiarModalMaquinaria()
|
||||
RegistraScript("$('#ModalMaquinaria').modal('show');")
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub DdlSubTipoAF_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubTipoAF.SelectedIndexChanged
|
||||
|
||||
DdlAF.Items.Clear()
|
||||
|
||||
If DdlSubTipoAF.SelectedIndex > 0 Then
|
||||
|
||||
|
||||
Dim CveSubTipoActivoFijo As Integer = 0
|
||||
|
||||
Dim Separador As Char() = {"-"c}
|
||||
|
||||
Try
|
||||
CveSubTipoActivoFijo = DdlSubTipoAF.SelectedValue.Split(Separador)(0).ToEntero
|
||||
Catch ex As Exception
|
||||
CveSubTipoActivoFijo = 0
|
||||
End Try
|
||||
|
||||
If CveSubTipoActivoFijo > 0 Then
|
||||
DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa, -1).FiltraParametros(String.Format("CveSubTipoActivoFijo IN ({0})", CveSubTipoActivoFijo))
|
||||
End If
|
||||
|
||||
Else
|
||||
DdlAF.DataSource = Nothing
|
||||
|
||||
End If
|
||||
|
||||
DdlAF.DataBind()
|
||||
|
||||
|
||||
|
||||
DdlAF.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
UpModalMaquinariaFlotilla.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Protected Sub BtnModalMaquinariaAdd_Click(sender As Object, e As EventArgs)
|
||||
|
||||
|
||||
Dim CveContratoDetalle As Integer = 0
|
||||
|
||||
Dim Separador As Char() = {"-"c}
|
||||
|
||||
Try
|
||||
CveContratoDetalle = DdlSubTipoAF.SelectedValue.Split(Separador)(1).ToEntero
|
||||
Catch ex As Exception
|
||||
CveContratoDetalle = 0
|
||||
End Try
|
||||
|
||||
Dim ObjContrato As New ClsContratos
|
||||
|
||||
If ObjContrato.AddContratosMaquinariaFlotilla(DdlAF.SelectedValue.ToEntero, TxtFechaMaquinaria.Text.ToDate, DdlPersonal.SelectedValue.ToEntero, TxtMaquinariaImporte.Text.ToDecimal, CveContratoDetalle) Then
|
||||
|
||||
|
||||
If Not ChkModalMaquinaria.Checked Then
|
||||
RegistraScript("$('#ModalMaquinaria').modal('hide');")
|
||||
End If
|
||||
|
||||
Alert("Registro agregado correctamente.")
|
||||
|
||||
End If
|
||||
|
||||
ObjContrato.Dispose()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user