AF Pendientes, entradaSalida
This commit is contained in:
rakcsle
441
AF/AF.aspx
441
AF/AF.aspx
@@ -218,21 +218,21 @@
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-4 ">
|
||||
<label class=" control-label">Fecha de Compra:</label>
|
||||
<label class=" control-label"><asp:Label runat="server" ID="LblFechaCompra">Fecha de Compra:</asp:Label></label>
|
||||
</div>
|
||||
|
||||
<div class="col-md-3">
|
||||
<div class="form-group">
|
||||
<div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="width: 100px; padding: 5px 0px;">
|
||||
<asp:TextBox ID="TxtFechaCompra" runat="server" CausesValidation="True" CssClass="form-control input-sm"></asp:TextBox>
|
||||
<asp:TextBox ID="TxtFechaCompra" runat="server" CausesValidation="True" CssClass="form-control input-sm" Width="80px"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton ID="ImgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||
</span>
|
||||
</div>
|
||||
<ajax:MaskedEditExtender ID="MEEFecha" runat="server" TargetControlID="TxtFechaCompra" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left" BehaviorID="_content_MEEFecha" Century="2000" CultureAMPMPlaceholder="" CultureCurrencySymbolPlaceholder="" CultureDateFormat="" CultureDatePlaceholder="" CultureDecimalPlaceholder="" CultureThousandsPlaceholder="" CultureTimePlaceholder=""></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender ID="Calendario" runat="server" TargetControlID="TxtFechaCompra" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" BehaviorID="_content_Calendario"></ajax:CalendarExtender>
|
||||
<asp:RequiredFieldValidator ID="RFVFechaCompra" runat="server" ControlToValidate="TxtFechaCompra" Display="None" ErrorMessage="El campo <b>''Fecha de Compra''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="CVFechaCompra" runat="server" ControlToValidate="TxtFechaCompra" Display="None" ErrorMessage="El campo <b>''Fecha de Compra''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
|
||||
<asp:RequiredFieldValidator ID="RFVFechaCompra" runat="server" ControlToValidate="TxtFechaCompra" Display="None" ErrorMessage="El campo <b>''Fecha''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="CVFechaCompra" runat="server" ControlToValidate="TxtFechaCompra" 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="GrpGuardar"></asp:CompareValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOFechaCompra1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaCompra" Width="350px" BehaviorID="_content_VCOFechaCompra1"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOFechaCompra2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaCompra" Width="350px" BehaviorID="_content_VCOFechaCompra2"></ajax:ValidatorCalloutExtender>
|
||||
<i></i>
|
||||
@@ -248,6 +248,35 @@
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-4 ">
|
||||
<label class=" control-label"><asp:Label runat="server" ID="LblFechaBaja">Fecha de Baja:</asp:Label></label>
|
||||
</div>
|
||||
|
||||
<div class="col-md-3">
|
||||
<div class="form-group">
|
||||
<div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="width: 100px; padding: 5px 0px;">
|
||||
<asp:TextBox ID="TxtFechaBaja" runat="server" CausesValidation="True" CssClass="form-control input-sm" Width="80px"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton ID="LnkTxtFechaBaja" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||
</span>
|
||||
</div>
|
||||
<ajax:MaskedEditExtender ID="METxtFechaBaja" runat="server" TargetControlID="TxtFechaBaja" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left" BehaviorID="_content_MEEFecha" Century="2000" CultureAMPMPlaceholder="" CultureCurrencySymbolPlaceholder="" CultureDateFormat="" CultureDatePlaceholder="" CultureDecimalPlaceholder="" CultureThousandsPlaceholder="" CultureTimePlaceholder=""></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender ID="CETxtFechaBaja" runat="server" TargetControlID="TxtFechaBaja" PopupButtonID="LnkTxtFechaBaja" PopupPosition="BottomRight" BehaviorID="_content_Calendario"></ajax:CalendarExtender>
|
||||
|
||||
<asp:RequiredFieldValidator ID="RfvTxtFechaBaja" runat="server" ControlToValidate="TxtFechaBaja" Display="None" ErrorMessage="El campo <b>''Fecha''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="CVTxtFechaBaja" runat="server" ControlToValidate="TxtFechaBaja" 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="GrpGuardar"></asp:CompareValidator>
|
||||
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender32" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtFechaBaja" Width="350px" BehaviorID="_content_VCOFechaCompra1"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender33" runat="server" HighlightCssClass="vco" TargetControlID="CVTxtFechaBaja" Width="350px" BehaviorID="_content_VCOFechaCompra2"></ajax:ValidatorCalloutExtender>
|
||||
<i></i>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
@@ -1156,65 +1185,79 @@
|
||||
<ajax:TabPanel ID="TabServyMant" runat="server" HeaderText="Servicios y Mto">
|
||||
<ContentTemplate>
|
||||
<asp:Literal ID="Literal2" runat="server"></asp:Literal>
|
||||
<div class="portlet box blue-hoki" style="width: 100%;">
|
||||
<div class="portlet-title">
|
||||
<div class="caption">
|
||||
<i class="fa fa-cog"></i>Servicios
|
||||
|
||||
|
||||
<asp:UpdatePanel runat="server" ID="UpMantenimientos" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="portlet light xspadding bordered ">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="fa fa-tasks font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Mantenimientos</span>
|
||||
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
<asp:LinkButton runat="server" CssClass="btn btn-circle btn-sm blue" data-original-title="Agregar Mantenimiento" title="Agregar Mantenimiento" ID="LnkAgregarMantenimiento" OnClick="LnkAgregarMantenimiento_Click" style="font-size:13px!important"><i class="fa fa-plus-circle" aria-hidden="true"></i>Agregar</asp:LinkButton>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="tools">
|
||||
<%-- <a href="" class="collapse" data-original-title="" title=""></a>
|
||||
<a href="" class="reload" data-original-title="" title=""></a>
|
||||
<a href="" class="fullscreen" data-original-title="" title=""></a>
|
||||
<a href="" class="remove" data-original-title="" title=""></a>--%>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body form-horizontal form-row-sepe formnombottom label12">
|
||||
<div class="form-body">
|
||||
|
||||
<hr />
|
||||
|
||||
|
||||
|
||||
<asp:GridView ID="GvMantenimientos" runat="server" GridLines="None" BorderWidth="0px" CssClass="table table-striped table-hover table-advance Widthall" OnRowDataBound="GvMantenimientos_RowDataBound"
|
||||
AutoGenerateColumns="False" DataKeyNames="CveMantenimiento, CveActivoFijo, Mantenimiento, Observaciones, Fecha, FechaIng, CveUsuario, Codigo, Descripcion,Usuario,Archivo" ShowHeader="true">
|
||||
<Columns>
|
||||
|
||||
<asp:BoundField DataField="Mantenimiento" HeaderText="Mantenimiento" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Observaciones" HeaderText="Observaciones" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
|
||||
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="35px" >
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="LnkDescargaArcgivo" Visible="false" runat="server" AlternateText="DescargaArchivo" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="LnkDescargaArcgivo_Click" Text="<i class='fa fa-download'></i>" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Opciones" ItemStyle-Width="90px">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="LnkGvMantenimientoEdit" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="LnkGvMantenimientoEdit_Click" Text="<i class='fa fa-pencil'></i>" />
|
||||
<asp:LinkButton ID="LnkGvMantenimientoRemove" runat="server" AlternateText="Eliminar" OnClick="LnkGvMantenimientoRemove_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<asp:UpdatePanel ID="UpServMant" class="portlet-body" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:Button ID="Button2" runat="server" ClientIDMode="Static" Text="Resfrecar Servicios" Style="display: none;" />
|
||||
<asp:GridView ID="GvServiciosMant" HeaderStyle-CssClass="Titulos" CssClass="table table-striped table-hover Widthall"
|
||||
Style="text-align: center;" GridLines="None" runat="server" BorderWidth="0px" AutoGenerateColumns="False" EmptyDataText="No se encontraron Servicios registrados." ToolTip="Listado de Servicios">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Tipo</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlTipo" runat="server" Text='<%# Eval("Tipo") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Left" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Fecha</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Center" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Proveedor</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:HyperLink ID="HplProveedor" runat="server" Target="_blank" Text='<%# Eval("Proveedor") %>' NavigateUrl='<%# Eval("CveProveedor", "/Compras/Proveedores.aspx?CveProveedor={0}")%>'></asp:HyperLink>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Left" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Factura</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:HyperLink ID="HplFactura" runat="server" Target="_blank" Text='<%# Eval("Factura") %>' NavigateUrl='<%# Eval("CveCompra", "/Compras/Compras.aspx?CveCompra={0}")%>'></asp:HyperLink>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Center" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Odometro/Horometro</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlOdHorometro" runat="server" Text='<%# Eval("OdHorometro", "{0:N2}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Center" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Observaciones</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlObservaciones" runat="server" Text='<%# Eval("Observaciones") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Left" />
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
|
||||
@@ -2076,7 +2119,87 @@
|
||||
</table>
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
|
||||
<ajax:TabPanel ID="TabProduccion" runat="server" HeaderText="Producción" Visible="false">
|
||||
<ContentTemplate>
|
||||
|
||||
|
||||
<asp:UpdatePanel runat="server" ID="UpProduccion" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="portlet light xspadding bordered ">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="fa fa-tasks font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Producción</span>
|
||||
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
<asp:LinkButton runat="server" CssClass="btn btn-circle btn-sm blue" data-original-title="Agregar Producción" title="Agregar Producción" ID="LnkAgregarProduccion" OnClick="LnkAgregarProduccion_Click" style="font-size:13px!important"><i class="fa fa-plus-circle" aria-hidden="true"></i>Agregar</asp:LinkButton>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="tools">
|
||||
<%-- <a href="" class="collapse" data-original-title="" title=""></a>
|
||||
<a href="" class="reload" data-original-title="" title=""></a>
|
||||
<a href="" class="fullscreen" data-original-title="" title=""></a>
|
||||
<a href="" class="remove" data-original-title="" title=""></a>--%>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body form-horizontal form-row-sepe formnombottom label12">
|
||||
<div class="form-body">
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<asp:GridView ID="GvProduccion" runat="server" GridLines="None" BorderWidth="0px" CssClass="table table-striped table-hover table-advance Widthall"
|
||||
AutoGenerateColumns="False" DataKeyNames="CveProduccion, CveActivoFijo, CveCultivoCuadroDetalle, Cantidad, Fecha, CveUsuario, FechaIng, Codigo, Descripcion, Usuario, Cuadro" ShowHeader="true">
|
||||
<Columns>
|
||||
|
||||
<asp:BoundField DataField="Cuadro" HeaderText="Cuadro" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Cantidad" HeaderText="Cantidad" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:n2}" />
|
||||
<asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
|
||||
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Opciones">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="LnkGvProduccionEdit" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="LnkGvProduccionEdit_Click" Text="<i class='fa fa-pencil'></i>" />
|
||||
<asp:LinkButton ID="LnkGvProduccionRemove" runat="server" AlternateText="Eliminar" OnClick="LnkGvProduccionRemove_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
|
||||
</ajax:TabContainer>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</td>
|
||||
@@ -3106,6 +3229,200 @@
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
<%--MODAL PRODUCCION--%>
|
||||
<div id="DVModalProduccion" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog">
|
||||
<asp:UpdatePanel ID="UpModalProduccion" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-header">
|
||||
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
|
||||
<span aria-hidden="true">×</span>
|
||||
</button>
|
||||
<h4 class="modal-title" id="H4" runat="server"><asp:Label runat="server" ID="LblModaProduccionTitulo"></asp:Label></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<asp:UpdatePanel ID="UpdatePanel4" UpdateMode="Conditional" runat="server">
|
||||
<ContentTemplate>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
|
||||
<div runat="server" id="DVCultivosCuadro" class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlModalCultivosCuadro" CssClass=" form-control input-sm select2me" runat="server" DataTextField="Cuadro" Style="width: 100%; max-width: 600px;"
|
||||
DataValueField="CveCultivoCuadroDetalle" ValidationGroup="GrpProduccion">
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RfvDdlModalCultivosCuadro" InitialValue="-1" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlModalCultivosCuadro"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El Cuadro <b>''Cuadro''</b> es necesario, por favor ingréselo." ValidationGroup="GrpProduccion">
|
||||
</asp:RequiredFieldValidator>
|
||||
<label runat="server" for="<%= DdlModalCultivosCuadro.ClientID.ToString()%>">Cultivo:</label>
|
||||
<i></i>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtModalProduccionCantidad" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtModalProduccionCantidad" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtModalProduccionCantidad"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpProduccion">
|
||||
</asp:RequiredFieldValidator>
|
||||
<ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtModalProduccionCantidad" FilterType="Custom" ValidChars="1234567890." />
|
||||
<label for="<%= TxtModalProduccionCantidad.ClientID.ToString()%>">Cantidad:</label>
|
||||
<i></i>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
|
||||
|
||||
|
||||
|
||||
<label for="<%= TxtModalProduccionFecha.ClientID.ToString()%>">Fecha:</label>
|
||||
<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="TxtModalProduccionFecha" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 118px" MaxLength="10"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton ID="LnkTxtModalProduccionFecha" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||
</span>
|
||||
<ajax:MaskedEditExtender ID="METxtModalProduccionFecha" runat="server" TargetControlID="TxtModalProduccionFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender runat="server" ID="CETxtModalProduccionFecha" TargetControlID="TxtModalProduccionFecha" PopupButtonID="LnkTxtModalProduccionFecha" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
|
||||
<asp:RequiredFieldValidator ID="RfvTxtModalProduccionFecha" runat="server" ControlToValidate="TxtModalProduccionFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpProduccion"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="CVOTxtModalProduccionFecha" runat="server" ControlToValidate="TxtModalProduccionFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpProduccion"></asp:CompareValidator>
|
||||
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender28" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtModalProduccionFecha" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender29" runat="server" HighlightCssClass="vco" TargetControlID="CVOTxtModalProduccionFecha" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<div class="modal-footer">
|
||||
|
||||
<asp:LinkButton ID="LnkModalAgregarProduccion" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpProduccion" OnClick="LnkModalAgregarProduccion_Click"> <i class='material-icons'>done_all</i>Agregar</asp:LinkButton>
|
||||
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<%--MODAL MANTENIMIENTO--%>
|
||||
<div id="DVModalMantenimiento" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog">
|
||||
<asp:UpdatePanel ID="UpModalMantenimiento" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-header">
|
||||
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
|
||||
<span aria-hidden="true">×</span>
|
||||
</button>
|
||||
<h4 class="modal-title" id="H5" runat="server"><asp:Label runat="server" ID="LblModaMantenimientoTitulo"></asp:Label></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<asp:UpdatePanel ID="UpdatePanel5" UpdateMode="Conditional" runat="server">
|
||||
<ContentTemplate>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtModalMantenimiento" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtModalMantenimiento" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtModalMantenimiento"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Mantenimiento''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMantenimiento">
|
||||
</asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtModalMantenimiento.ClientID.ToString()%>">Mantenimiento:</label>
|
||||
<i></i>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtModalMantenimientoObservaciones" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="200"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtModalMantenimientoObservaciones" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtModalMantenimientoObservaciones"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Observaciones''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMantenimiento">
|
||||
</asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtModalMantenimientoObservaciones.ClientID.ToString()%>">Observaciones:</label>
|
||||
<i></i>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
|
||||
|
||||
|
||||
|
||||
<label for="<%= TxtModalMantenimientoFecha.ClientID.ToString()%>">Fecha:</label>
|
||||
<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="TxtModalMantenimientoFecha" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 118px" MaxLength="10"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton ID="LnkTxtModalMantenimientoFecha" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||
</span>
|
||||
<ajax:MaskedEditExtender ID="METxtModalMantenimientoFecha" runat="server" TargetControlID="TxtModalMantenimientoFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender runat="server" ID="CETxtModalMantenimientoFecha" TargetControlID="TxtModalMantenimientoFecha" PopupButtonID="LnkTxtModalMantenimientoFecha" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
|
||||
<asp:RequiredFieldValidator ID="RfvTxtModalMantenimientoFecha" runat="server" ControlToValidate="TxtModalMantenimientoFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMantenimiento"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="CVOTxtModalMantenimientoFecha" runat="server" ControlToValidate="TxtModalMantenimientoFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpMantenimiento"></asp:CompareValidator>
|
||||
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender30" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtModalMantenimientoFecha" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender31" runat="server" HighlightCssClass="vco" TargetControlID="CVOTxtModalMantenimientoFecha" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<br />
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<asp:TextBox ID="TxtArchivoMantenimiento" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
|
||||
<br />
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<div class="modal-footer">
|
||||
|
||||
<asp:LinkButton ID="LnkModalAgregarMantenimiento" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpMantenimiento" OnClick="LnkModalAgregarMantenimiento_Click">
|
||||
<i class='material-icons'>done_all</i>Agregar</asp:LinkButton>
|
||||
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
<script src="/Metronic/assets/global/plugins/dropzone/dropzone.js"></script>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="Server">
|
||||
|
||||
513
AF/AF.aspx.vb
513
AF/AF.aspx.vb
@@ -245,6 +245,31 @@ Partial Class AF_AF
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Private Property CveProduccion As Integer
|
||||
Get
|
||||
If ViewState("CveProduccion") Is Nothing Then
|
||||
ViewState("CveProduccion") = -1
|
||||
End If
|
||||
Return ViewState("CveProduccion").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveProduccion") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property CveMantenimiento As Integer
|
||||
Get
|
||||
If ViewState("CveMantenimiento") Is Nothing Then
|
||||
ViewState("CveMantenimiento") = -1
|
||||
End If
|
||||
Return ViewState("CveMantenimiento").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveMantenimiento") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
@@ -260,9 +285,11 @@ Partial Class AF_AF
|
||||
ViewState("CveActivoFijo") = Request("CveActivoFijo")
|
||||
CargaDatos()
|
||||
CargaEventos()
|
||||
CargaActividades()
|
||||
|
||||
'Configuración de Modalidad Update
|
||||
CargaActividades()
|
||||
CargaProduccion()
|
||||
CargaMantenimento()
|
||||
|
||||
'Configuración de Modalidad Update
|
||||
BtnGuardar.Text = "Guardar Cambios"
|
||||
LtlTitulo.Text = "Consulta del Activo Fijo:"
|
||||
|
||||
@@ -271,8 +298,9 @@ Partial Class AF_AF
|
||||
HlEvento.NavigateUrl = String.Format("/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveActivoFijo=" & CveActivoFijo & "&TB_iframe=true&height=370&width=600;")
|
||||
Else
|
||||
ViewState("CveActivoFijo") = -1
|
||||
CargaCombos()
|
||||
'Configuración de Modalidad Insert
|
||||
CargaCombos()
|
||||
|
||||
'Configuración de Modalidad Insert
|
||||
ImgAddObs.Visible = False
|
||||
LblFechaCaptura.Text = Now.ToShortDateString()
|
||||
LblUsuarioCapturo.Text = UsuarioActual.Usuario
|
||||
@@ -288,6 +316,13 @@ Partial Class AF_AF
|
||||
|
||||
CargaAFInv()
|
||||
cargaOrdenesdeservicio()
|
||||
|
||||
|
||||
|
||||
If Request("Op") IsNot Nothing Then
|
||||
ModalidadesPaginaAF(Request("Op").ToString)
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Private Sub cargaOrdenesdeservicio()
|
||||
@@ -373,6 +408,20 @@ Partial Class AF_AF
|
||||
CveEmpresaActual = UsuarioActual.CveEmpresa
|
||||
End Sub
|
||||
|
||||
Private Sub ModalidadesPaginaAF(Op As String)
|
||||
|
||||
Select Case Op
|
||||
Case "AR" 'Arbol Frutal etc
|
||||
LblFechaCompra.Text = "Fecha de Nacimiento"
|
||||
LblFechaBaja.Text = "Fecha de Muerte"
|
||||
TabProduccion.Visible = True
|
||||
Exit Select
|
||||
Case Else
|
||||
Exit Select
|
||||
End Select
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
#Region " CARGA COMBOS "
|
||||
Private Sub CargaCombos()
|
||||
@@ -398,6 +447,8 @@ Partial Class AF_AF
|
||||
DdlResponsable.Enabled = False
|
||||
End If
|
||||
|
||||
CargaCultivos()
|
||||
|
||||
End Sub
|
||||
Private Sub CargaTipoActivoFijo()
|
||||
DdlTipoActivoFijo.DataSource = GlobalDTTipoActivoFijo(CveEmpresaActual).FiltraParametros("", "TipoActivoFijo")
|
||||
@@ -476,6 +527,11 @@ Partial Class AF_AF
|
||||
' DdlClientes.DataBind()
|
||||
'End Sub
|
||||
|
||||
Private Sub CargaCultivos()
|
||||
DdlModalCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue}")
|
||||
DdlModalCultivosCuadro.DataBind()
|
||||
DdlModalCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
|
||||
End Sub
|
||||
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
|
||||
CargaSubProyecto()
|
||||
End Sub
|
||||
@@ -562,6 +618,13 @@ Partial Class AF_AF
|
||||
DdlModelos.DataBind()
|
||||
DdlModelos.Items.Insert(0, New ListItem("-", "-1"))
|
||||
End Sub
|
||||
|
||||
Private Sub CargaProduccionCuadros()
|
||||
DdlModalCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue}")
|
||||
DdlModalCultivosCuadro.DataBind()
|
||||
DdlModalCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub CargaDatos()
|
||||
@@ -579,7 +642,13 @@ Partial Class AF_AF
|
||||
TxtDescripcion.Text = ObjActivoFijo.Descripcion
|
||||
TxtCodigo.Text = ObjActivoFijo.Codigo
|
||||
TxtValorCompra.Text = ObjActivoFijo.ValorCompra.ToString.FormatoNumero
|
||||
TxtFechaCompra.Text = ObjActivoFijo.FechaCompra.ToShortDateString
|
||||
TxtFechaCompra.Text = ObjActivoFijo.FechaCompra.ToShortDateString
|
||||
|
||||
|
||||
|
||||
TxtFechaBaja.Text = If(ObjActivoFijo.FechaBaja = New Date(1900, 1, 1), "", ObjActivoFijo.FechaBaja.ToString("dd/MM/yyyy"))
|
||||
|
||||
|
||||
DdlTipoActivoFijo.SelectedValue = ObjActivoFijo.CveTipoActivoFijo.ToString
|
||||
CargaSubTipoActivoFijo()
|
||||
DdlSubTipoActivoFijo.SelectedValue = ObjActivoFijo.CveSubTipoActivoFijo.ToString
|
||||
@@ -654,8 +723,8 @@ Partial Class AF_AF
|
||||
|
||||
CargaPlacas()
|
||||
CargaLicencias()
|
||||
CargaSeguros()
|
||||
CargaServicios()
|
||||
CargaSeguros()
|
||||
|
||||
CargaFallas()
|
||||
CargaAccidentes()
|
||||
|
||||
@@ -1062,31 +1131,22 @@ Partial Class AF_AF
|
||||
#End Region
|
||||
|
||||
#Region "S E R V I C I O S - M A N T E M I E N T O"
|
||||
Public Sub CargaServicios()
|
||||
Dim TmpServicios As New DataTable
|
||||
TmpServicios.Columns.Add("CveProveedor", GetType(Integer))
|
||||
TmpServicios.Columns.Add("CveCompra", GetType(Integer))
|
||||
TmpServicios.Columns.Add("Tipo", GetType(String))
|
||||
TmpServicios.Columns.Add("Fecha", GetType(Date))
|
||||
TmpServicios.Columns.Add("Proveedor", GetType(String))
|
||||
TmpServicios.Columns.Add("Factura", GetType(String))
|
||||
TmpServicios.Columns.Add("OdHorometro", GetType(Double))
|
||||
TmpServicios.Columns.Add("Observaciones", GetType(String))
|
||||
|
||||
'Dim Row As DataRow = TmpServicios.NewRow
|
||||
'Row("CveProveedor") = 3100
|
||||
'Row("CveCompra") = 181656
|
||||
'Row("Tipo") = "Preventivo"
|
||||
'Row("Fecha") = "01/02/2016"
|
||||
'Row("Proveedor") = "EMPRESAS MATCO, S.A. DE C.V."
|
||||
'Row("Factura") = "HERAA-158591"
|
||||
'Row("OdHorometro") = "198,567"
|
||||
'Row("Observaciones") = "Servicio Preventivo 200,000 Kilometros - Servicio Completo"
|
||||
'TmpServicios.Rows.Add(Row)
|
||||
|
||||
GvServiciosMant.DataSource = TmpServicios
|
||||
GvServiciosMant.DataBind()
|
||||
End Sub
|
||||
'Public Sub CargaServicios()
|
||||
' Dim TmpServicios As New DataTable
|
||||
' TmpServicios.Columns.Add("CveProveedor", GetType(Integer))
|
||||
' TmpServicios.Columns.Add("CveCompra", GetType(Integer))
|
||||
' TmpServicios.Columns.Add("Tipo", GetType(String))
|
||||
' TmpServicios.Columns.Add("Fecha", GetType(Date))
|
||||
' TmpServicios.Columns.Add("Proveedor", GetType(String))
|
||||
' TmpServicios.Columns.Add("Factura", GetType(String))
|
||||
' TmpServicios.Columns.Add("OdHorometro", GetType(Double))
|
||||
' TmpServicios.Columns.Add("Observaciones", GetType(String))
|
||||
|
||||
|
||||
|
||||
' GvServiciosMant.DataSource = TmpServicios
|
||||
' GvServiciosMant.DataBind()
|
||||
'End Sub
|
||||
#End Region
|
||||
|
||||
#Region "F A L L A S"
|
||||
@@ -2106,6 +2166,8 @@ Partial Class AF_AF
|
||||
Dim ObjContabilidad As New ClsContabilidad(ObjAF.IniciaTransacSQL())
|
||||
Dim ErrorGuardar As Boolean = False
|
||||
|
||||
Dim FechaBaja As Date = If(TxtFechaBaja.Text = "", MinFecha, TxtFechaBaja.Text.ToDate)
|
||||
|
||||
If CveActivoFijo <= 0 Then
|
||||
|
||||
'SALIDA DE ALMACEN PARA IMPORTACION
|
||||
@@ -2123,12 +2185,15 @@ Partial Class AF_AF
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
If Not ErrorGuardar Then
|
||||
If ObjAF.AddActivosFijos(TxtCodigo.Text.Trim, TxtDescripcion.Text.Trim, TxtValorCompra.Text.Trim.ToDouble, TxtFechaCompra.Text.Trim.ToDate, DdlSubTipoActivoFijo.SelectedValue.ToEntero,
|
||||
DdlResponsable.SelectedValue.ToEntero, TxtNoSerie.Text.Trim, TxtAño.Text.Trim.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.Trim.ToEntero,
|
||||
DdlEstadoActivoFijo.SelectedValue.ToEntero, DdlCtaContableDepreciacion.SelectedValue.ToEntero, TxtPorDepreciacion.Text.Trim.ToDouble,
|
||||
TxtObservaciones.Text.Trim, DdlClientes.SelectedValue.ToEntero, CveMovimientoSalidaInv, UsuarioActual.CveUsuario, CveEmpresaActual, CveMarca:=DdlMarcas.SelectedValue.ToEntero,
|
||||
CveModelo:=DdlModelos.SelectedValue.ToEntero, CveGrupo:=DdlGrupo.SelectedValue.ToEntero, CveAFPadre:=DdlAFPadres.SelectedValue.ToEntero, CveDispositivo:=DdlDispositivo.SelectedValue.ToEntero) > 0 Then
|
||||
TxtObservaciones.Text.Trim, Ddlclientes.SelectedValue.ToEntero, CveMovimientoSalidaInv, UsuarioActual.CveUsuario, CveEmpresaActual, CveMarca:=DdlMarcas.SelectedValue.ToEntero,
|
||||
CveModelo:=DdlModelos.SelectedValue.ToEntero, CveGrupo:=DdlGrupo.SelectedValue.ToEntero, CveAFPadre:=DdlAFPadres.SelectedValue.ToEntero, CveDispositivo:=DdlDispositivo.SelectedValue.ToEntero,
|
||||
FechaBaja:=FechaBaja) > 0 Then
|
||||
ViewState("CveActivoFijo") = ObjAF.CveActivoFijo
|
||||
Else
|
||||
ErrorGuardar = True
|
||||
@@ -2155,8 +2220,9 @@ Partial Class AF_AF
|
||||
If Not ObjAF.UpdateActivosFijos(CveActivoFijo.ToString.ToEntero, TxtCodigo.Text.Trim, TxtDescripcion.Text.Trim, TxtValorCompra.Text.Trim.ToDouble, TxtFechaCompra.Text.Trim.ToDate, DdlSubTipoActivoFijo.SelectedValue.ToEntero,
|
||||
DdlResponsable.SelectedValue.ToEntero, TxtNoSerie.Text.Trim, TxtAño.Text.Trim.ToEntero,
|
||||
DdlSubProyecto.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.Trim.ToEntero, DdlEstadoActivoFijo.SelectedValue.ToEntero, DdlCtaContableDepreciacion.SelectedValue.ToEntero,
|
||||
TxtPorDepreciacion.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, DdlClientes.SelectedValue.ToEntero, UsuarioActual.CveUsuario, CveEmpresaActual,
|
||||
CveMarca:=DdlMarcas.SelectedValue.ToEntero, CveModelo:=DdlModelos.SelectedValue.ToEntero, CveGrupo:=DdlGrupo.SelectedValue.ToEntero, CveAFPadre:=DdlAFPadres.SelectedValue.ToEntero, CveDispositivo:=DdlDispositivo.SelectedValue.ToEntero) Then
|
||||
TxtPorDepreciacion.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, Ddlclientes.SelectedValue.ToEntero, UsuarioActual.CveUsuario, CveEmpresaActual,
|
||||
CveMarca:=DdlMarcas.SelectedValue.ToEntero, CveModelo:=DdlModelos.SelectedValue.ToEntero, CveGrupo:=DdlGrupo.SelectedValue.ToEntero, CveAFPadre:=DdlAFPadres.SelectedValue.ToEntero, CveDispositivo:=DdlDispositivo.SelectedValue.ToEntero,
|
||||
FechaBaja:=FechaBaja) Then
|
||||
|
||||
'Comentado porque te redirecciona no se ocupa - 22 Enero 2016 - Israel Piña
|
||||
'CargaDatos()
|
||||
@@ -3097,7 +3163,8 @@ Partial Class AF_AF
|
||||
|
||||
TxtDescripcion.Text = DdlAFInvPS.SelectedText
|
||||
TxtValorCompra.Text = Costo.FormatoNumero
|
||||
TxtFechaCompra.Text = Now.ToShortDateString
|
||||
TxtFechaCompra.Text = Now.ToShortDateString
|
||||
TxtFechaBaja.Text = ""
|
||||
TxtNoSerie.Text = TxtAFInvSerie.Text.Trim
|
||||
|
||||
TxtValorCompra.Enabled = False
|
||||
@@ -3727,5 +3794,373 @@ Partial Class AF_AF
|
||||
|
||||
ImprimirPDF("Empresas/Grales/Formatos/RepComprasInsumos.rdlc", DTCompras, params, "RepComprasInsumos", Formato)
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
|
||||
|
||||
#Region "Produccion"
|
||||
|
||||
|
||||
|
||||
Private Sub CargaProduccion()
|
||||
|
||||
Dim ObjAF As New ClsAF
|
||||
|
||||
If ObjAF.GetProduccion(CveActivoFijo, UsuarioActual.CveEmpresa) Then
|
||||
GvProduccion.DataSource = ObjAF.DtResultados
|
||||
Else
|
||||
GvProduccion.DataSource = Nothing
|
||||
End If
|
||||
|
||||
ObjAF.Dispose()
|
||||
GvProduccion.DataBind()
|
||||
|
||||
UpProduccion.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub LnkAgregarProduccion_Click(sender As Object, e As EventArgs)
|
||||
|
||||
LblModaProduccionTitulo.Text = "Agregar Producción"
|
||||
LnkModalAgregarProduccion.Text = "Agregar"
|
||||
CveProduccion = -1
|
||||
|
||||
DdlModalCultivosCuadro.SelectedValueExist(-1)
|
||||
TxtModalProduccionCantidad.Text = ""
|
||||
TxtModalProduccionFecha.Text = ""
|
||||
|
||||
RegistraScript("$('#DVModalProduccion').modal('show');")
|
||||
|
||||
UpModalProduccion.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkGvProduccionEdit_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
|
||||
CveProduccion = GvRow.DataKey("CveProduccion").ToEntero
|
||||
Dim CveCultivoCuadroDetalle As Integer = GvRow.DataKey("CveCultivoCuadroDetalle").ToEntero
|
||||
Dim Cantidad As Decimal = GvRow.DataKey("Cantidad").ToDecimal
|
||||
Dim Fecha As Date = GvRow.DataKey("Fecha").ToDate
|
||||
|
||||
DdlModalCultivosCuadro.SelectedValueExist(CveCultivoCuadroDetalle)
|
||||
TxtModalProduccionCantidad.Text = Cantidad.ToString("###,###,###.00")
|
||||
TxtModalProduccionFecha.Text = Fecha.ToString("dd/MM/yyyy")
|
||||
|
||||
|
||||
LblModaProduccionTitulo.Text = "Actualizar Producción"
|
||||
LnkModalAgregarProduccion.Text = "Actualizar"
|
||||
|
||||
UpModalProduccion.Update()
|
||||
|
||||
|
||||
RegistraScript("$('#DVModalProduccion').modal('show');")
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkGvProduccionRemove_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim ErrorProceso As Boolean = False
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
Dim CveProduccionEliminar As Integer = GvRow.DataKey("CveProduccion").ToEntero
|
||||
|
||||
Dim ObjAF As New ClsAF
|
||||
|
||||
If ObjAF.RemoveProduccion(CveProduccionEliminar, UsuarioActual.CveEmpresa) Then
|
||||
ErrorProceso = False
|
||||
Else
|
||||
ErrorProceso = True
|
||||
End If
|
||||
|
||||
|
||||
ObjAF.Dispose()
|
||||
|
||||
|
||||
If Not ErrorProceso Then
|
||||
Alert("Producción Eliminada Correctamente.")
|
||||
CargaProduccion()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Protected Sub LnkModalAgregarProduccion_Click(sender As Object, e As EventArgs)
|
||||
Dim ErrorProceso As Boolean = False
|
||||
Dim ObjAF As New ClsAF
|
||||
|
||||
If CveProduccion > 0 Then
|
||||
If ObjAF.UpdateProduccion(CveProduccion, CveActivoFijo, DdlModalCultivosCuadro.SelectedValue.ToEntero, TxtModalProduccionCantidad.Text.ToDecimal, TxtModalProduccionFecha.Text.ToDate, UsuarioActual.CveUsuario) Then
|
||||
ErrorProceso = False
|
||||
Else
|
||||
ErrorProceso = True
|
||||
End If
|
||||
Else
|
||||
If ObjAF.AddProduccion(CveActivoFijo, DdlModalCultivosCuadro.SelectedValue.ToEntero, TxtModalProduccionCantidad.Text.ToDecimal, TxtModalProduccionFecha.Text.ToDate, UsuarioActual.CveUsuario) Then
|
||||
ErrorProceso = False
|
||||
Else
|
||||
ErrorProceso = True
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
ObjAF.Dispose()
|
||||
|
||||
If Not ErrorProceso Then
|
||||
RegistraScript("$('#DVModalMantenimiento').modal('hide');")
|
||||
Alert("Producción Agregada Correctamente.")
|
||||
CargaProduccion()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "MANTENIMIENTO"
|
||||
|
||||
|
||||
|
||||
|
||||
Private Sub CargaMantenimento()
|
||||
|
||||
Dim ObjAF As New ClsAF
|
||||
|
||||
If ObjAF.GetMantenimientos(CveActivoFijo, UsuarioActual.CveEmpresa) Then
|
||||
GvMantenimientos.DataSource = ObjAF.DtResultados
|
||||
Else
|
||||
GvMantenimientos.DataSource = Nothing
|
||||
End If
|
||||
|
||||
ObjAF.Dispose()
|
||||
GvMantenimientos.DataBind()
|
||||
|
||||
UpMantenimientos.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub LnkAgregarMantenimiento_Click(sender As Object, e As EventArgs)
|
||||
|
||||
LblModaMantenimientoTitulo.Text = "Agregar Mantenimiento"
|
||||
LnkModalAgregarMantenimiento.Text = "Agregar"
|
||||
|
||||
CveMantenimiento = -1
|
||||
|
||||
TxtModalMantenimiento.Text = ""
|
||||
TxtModalMantenimientoObservaciones.Text = ""
|
||||
TxtModalMantenimientoFecha.Text = ""
|
||||
TxtArchivoMantenimiento.Text = "[]"
|
||||
|
||||
RegistraScript("$('#DVModalMantenimiento').modal('show');")
|
||||
|
||||
UpModalMantenimiento.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkGvMantenimientoEdit_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
'CveMantenimiento, CveActivoFijo, Mantenimiento, Observaciones, Fecha, FechaIng, CveUsuario, Codigo, Descripcion, Usuario
|
||||
|
||||
CveMantenimiento = GvRow.DataKey("CveMantenimiento").ToEntero
|
||||
|
||||
Dim Mantenimiento As String = GvRow.DataKey("Mantenimiento")
|
||||
Dim Observaciones As String = GvRow.DataKey("Observaciones")
|
||||
Dim Fecha As Date = GvRow.DataKey("Fecha").ToDate
|
||||
|
||||
TxtModalMantenimiento.Text = Mantenimiento
|
||||
TxtModalMantenimientoObservaciones.Text = Observaciones
|
||||
TxtModalMantenimientoFecha.Text = Fecha.ToString("dd/MM/yyyy")
|
||||
TxtArchivoMantenimiento.Text = "[]"
|
||||
|
||||
|
||||
LblModaMantenimientoTitulo.Text = "Actualizar Mantenimiento"
|
||||
LnkModalAgregarMantenimiento.Text = "Actualizar"
|
||||
|
||||
UpModalMantenimiento.Update()
|
||||
|
||||
|
||||
RegistraScript("$('#DVModalMantenimiento').modal('show');")
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkGvMantenimientoRemove_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim ErrorProceso As Boolean = False
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
Dim CveMantenimientoEliminar As Integer = GvRow.DataKey("CveMantenimiento").ToEntero
|
||||
|
||||
Dim ObjAF As New ClsAF
|
||||
|
||||
If ObjAF.RemoveMantenimientos(CveMantenimientoEliminar, UsuarioActual.CveEmpresa) Then
|
||||
ErrorProceso = False
|
||||
Else
|
||||
ErrorProceso = True
|
||||
End If
|
||||
|
||||
|
||||
ObjAF.Dispose()
|
||||
|
||||
|
||||
If Not ErrorProceso Then
|
||||
Alert("Mantenimiento Eliminado Correctamente.")
|
||||
CargaMantenimento()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Protected Sub LnkModalAgregarMantenimiento_Click(sender As Object, e As EventArgs)
|
||||
Dim ErrorProceso As Boolean = False
|
||||
Dim ObjAF As New ClsAF
|
||||
ObjAF.IniciaTransacSQL()
|
||||
|
||||
|
||||
If CveMantenimiento > 0 Then
|
||||
|
||||
Dim FileExtension As String = ""
|
||||
Dim Filesgral As List(Of Archivo) = TxtArchivoMantenimiento.getfiles().Archivos
|
||||
Dim Filename As String = "-1"
|
||||
|
||||
If Filesgral.Count > 0 Then
|
||||
|
||||
For Each fileItem As Archivo In Filesgral
|
||||
FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
|
||||
Filename = fileItem.filename
|
||||
Exit For
|
||||
Next
|
||||
|
||||
Dim Archivo As New System.IO.FileInfo(String.Format("{0}AF\Mantenimientos\{1}", UsuarioActual.Empresa.Ruta, $"{CveMantenimiento}.{FileExtension}"))
|
||||
If Archivo.Exists() Then
|
||||
Archivo.Delete()
|
||||
End If
|
||||
|
||||
|
||||
If Not Filename.FilesMove(String.Format("{0}", CveMantenimiento.ToString), String.Format("{0}AF\Mantenimientos", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False) Then
|
||||
ErrorProceso = True
|
||||
Alert("Error al mover Archivo", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If Not ErrorProceso Then
|
||||
If Not ObjAF.UpdateMantenimientos(CveMantenimiento, CveActivoFijo, TxtModalMantenimiento.Text, TxtModalMantenimientoObservaciones.Text, TxtModalMantenimientoFecha.Text.ToDate, UsuarioActual.CveUsuario, $"{CveMantenimiento}.{FileExtension}") Then
|
||||
ErrorProceso = True
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Else
|
||||
|
||||
|
||||
Dim CveMantenimientoTemp As Integer = -1
|
||||
|
||||
|
||||
CveMantenimientoTemp = ObjAF.AddMantenimientos(CveActivoFijo, TxtModalMantenimiento.Text, TxtModalMantenimientoObservaciones.Text, TxtModalMantenimientoFecha.Text.ToDate, UsuarioActual.CveUsuario, "-1")
|
||||
If CveMantenimientoTemp > 0 Then
|
||||
ErrorProceso = False
|
||||
Else
|
||||
ErrorProceso = True
|
||||
End If
|
||||
|
||||
If Not ErrorProceso Then
|
||||
|
||||
Dim FileExtension As String = ""
|
||||
Dim Filesgral As List(Of Archivo) = TxtArchivoMantenimiento.getfiles().Archivos
|
||||
Dim Filename As String = ""
|
||||
|
||||
If Filesgral.Count > 0 Then
|
||||
|
||||
For Each fileItem As Archivo In Filesgral
|
||||
FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
|
||||
Filename = fileItem.filename
|
||||
Exit For
|
||||
Next
|
||||
|
||||
Dim Archivo As New System.IO.FileInfo(String.Format("{0}AF\Mantenimientos\{1}", UsuarioActual.Empresa.Ruta, $"{CveMantenimientoTemp}.{FileExtension}"))
|
||||
If Archivo.Exists() Then
|
||||
Archivo.Delete()
|
||||
End If
|
||||
|
||||
|
||||
If Not Filename.FilesMove(String.Format("{0}", CveMantenimientoTemp.ToString), String.Format("{0}AF\Mantenimientos", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False) Then
|
||||
ErrorProceso = True
|
||||
Alert("Error al mover Archivo", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
If Not ErrorProceso Then
|
||||
If Not ObjAF.UpdateMantenimientos(CveMantenimientoTemp, CveActivoFijo, TxtModalMantenimiento.Text, TxtModalMantenimientoObservaciones.Text, TxtModalMantenimientoFecha.Text.ToDate, UsuarioActual.CveUsuario, $"{CveMantenimientoTemp}.{FileExtension}") Then
|
||||
ErrorProceso = True
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
If Not ErrorProceso Then
|
||||
ObjAF.Commit()
|
||||
ObjAF.Dispose()
|
||||
|
||||
RegistraScript("$('#DVModalMantenimiento').modal('hide');")
|
||||
Alert("Mantenimiento Guardado Correctamente.")
|
||||
CargaMantenimento()
|
||||
Else
|
||||
ObjAF.RollBack()
|
||||
ObjAF.Dispose()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkDescargaArcgivo_Click(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
Dim Archivo As String = GvRow.DataKey("Archivo")
|
||||
Dim InfArchivo As New FileInfo($"{UsuarioActual.Empresa.Ruta}\AF\Mantenimientos\{Archivo}")
|
||||
|
||||
If InfArchivo.Exists Then
|
||||
Response.Clear()
|
||||
Response.AppendHeader("Content-Disposition", "attachment; filename=" + InfArchivo.Name)
|
||||
Response.AppendHeader("Content-Length", InfArchivo.Length.ToString())
|
||||
Response.ContentType = "application/octet-stream"
|
||||
Response.WriteFile(InfArchivo.FullName)
|
||||
|
||||
Response.End()
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub GvMantenimientos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
|
||||
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
Dim Archivo As String = e.Row.DataKey("Archivo")
|
||||
Dim InfArchivo As New FileInfo($"{UsuarioActual.Empresa.Ruta}\AF\Mantenimientos\{Archivo}")
|
||||
|
||||
If InfArchivo.Exists Then
|
||||
e.Row.FCLinkButton("LnkDescargaArcgivo").Visible = True
|
||||
ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("LnkDescargaArcgivo"))
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user