Contratos 2020-12-24

App_Code/ClsContratos.vb

@@ -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

Compras/Compras.aspx.vb

@@ -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()

Contratos/ContratoObra.aspx

@@ -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>
+                             <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>  
+                            <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>
 

Contratos/ContratoObra.aspx.vb

@@ -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
+                '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}",
+                '    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)
+                '                                        row("PS").ToString, row("Cantidad").ToString, row("PU").ToString, Cantidad, PU)
-                    guardarBitacora(msj)
+                '    guardarBitacora(msj)
-                End If
+                '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