AF apicola, terminal cuentas

This commit is contained in:
rakcsle
2022-03-28 21:27:17 -07:00
parent 34539aadbf
commit 167a1c441d
17 changed files with 2468 additions and 362 deletions

View File

@@ -2144,11 +2144,7 @@
</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">
@@ -2186,12 +2182,76 @@
</ContentTemplate>
</asp:UpdatePanel>
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="TabPlagaEnfermedad" runat="server" HeaderText="Plagas Enfermedades" Visible="true">
<ContentTemplate>
<asp:UpdatePanel runat="server" ID="UpPlagaEnfermedad" 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">Plagas Enfermedades</span>
</div>
<div class="actions">
<div class="btn-group">
<asp:LinkButton runat="server" CssClass="btn btn-circle btn-sm blue" data-original-title="Agregar Plaga Enfermedad" title="Agregar Plaga Enfermedad" ID="LnkAgregarPlagaEnfermedad" OnClick="LnkAgregarPlagaEnfermedad_Click" Style="font-size: 13px!important"><i class="fa fa-plus-circle" aria-hidden="true"></i>Agregar</asp:LinkButton>
</div>
</div>
<div class="tools">
</div>
</div>
<div class="portlet-body form-horizontal form-row-sepe formnombottom ">
<div class="form-body">
<asp:GridView ID="GvPlagaEnfermedad" runat="server" GridLines="None" BorderWidth="0px" CssClass="table table-striped table-hover table-advance Widthall"
AutoGenerateColumns="False" DataKeyNames="CvePlagaEnfermedad,CveActivoFijo,Observaciones,Fecha,CveUsuario,FechaIng" ShowHeader="true">
<Columns>
<asp:BoundField DataField="Observaciones" HeaderText="Observaciones" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
<asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Opciones">
<ItemTemplate>
<asp:LinkButton ID="LnkGvPlagaEnfermedadEdit" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="LnkGvPlagaEnfermedadEdit_Click" Text="<i class='fa fa-pencil'></i>" />
<asp:LinkButton ID="LnkGvPlagaEnfermedadRemove" runat="server" AlternateText="Eliminar" OnClick="LnkGvPlagaEnfermedadRemove_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>
@@ -3422,6 +3482,67 @@
<div id="DVModalPlagaEnfermedad" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<asp:UpdatePanel ID="UpModalPlagaEnfermedad" 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">&times;</span>
</button>
<h4 class="modal-title" id="H6" runat="server"><asp:Label runat="server" ID="LblModalTituloPlagaEnfermedad"></asp:Label></h4>
</div>
<div class="modal-body">
<div class="row">
<div class="col-md-12">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtModalPlagaEnfermedadObservaciones" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtModalPlagaEnfermedadObservaciones" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtModalPlagaEnfermedadObservaciones"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Observaciones''</b> es necesario, por favor ingréselo." ValidationGroup="GrpPlagaEnfermedad">
</asp:RequiredFieldValidator>
<label for="<%= TxtModalPlagaEnfermedadObservaciones.ClientID.ToString()%>">Observaciones:</label>
<i></i>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<label for="<%= TxtModalPlagaEnfermedadFecha.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="TxtModalPlagaEnfermedadFecha" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 118px" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="LnkTxtModalPlagaEnfermedadFecha" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<ajax:MaskedEditExtender ID="MaskedEditExtender10" runat="server" TargetControlID="TxtModalPlagaEnfermedadFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CalendarExtender10" TargetControlID="TxtModalPlagaEnfermedadFecha" PopupButtonID="LnkTxtModalPlagaEnfermedadFecha" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="RfvTxtModalPlagaEnfermedadFecha" runat="server" ControlToValidate="TxtModalPlagaEnfermedadFecha" 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="GrpPlagaEnfermedad"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="CVOTxtModalPlagaEnfermedadFecha" runat="server" ControlToValidate="TxtModalPlagaEnfermedadFecha" 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="GrpPlagaEnfermedad"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender34" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtModalPlagaEnfermedadFecha" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender35" runat="server" HighlightCssClass="vco" TargetControlID="CVOTxtModalPlagaEnfermedadFecha" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
</div>
<div class="modal-footer">
<asp:LinkButton ID="LnkModalAgregarPlagaEnfermedad" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpPlagaEnfermedad" OnClick="LnkModalAgregarPlagaEnfermedad_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>

View File

@@ -270,6 +270,19 @@ Partial Class AF_AF
End Set
End Property
Private Property CvePlagaEnfermedad As Integer
Get
If ViewState("CvePlagaEnfermedad") Is Nothing Then
ViewState("CvePlagaEnfermedad") = -1
End If
Return ViewState("CvePlagaEnfermedad").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("CvePlagaEnfermedad") = value
End Set
End Property
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -288,6 +301,7 @@ Partial Class AF_AF
CargaActividades()
CargaProduccion()
CargaMantenimento()
CargaPlagaEnfermedad()
'Configuración de Modalidad Update
BtnGuardar.Text = "Guardar Cambios"
@@ -4159,6 +4173,124 @@ Partial Class AF_AF
#End Region
#Region "PLAGA ENFERMEDAD"
Private Sub CargaPlagaEnfermedad()
Dim ObjAF As New ClsAF
If ObjAF.GetPlagaEnfermedad(CveActivoFijo, UsuarioActual.CveEmpresa) Then
GvPlagaEnfermedad.DataSource = ObjAF.DtResultados
Else
GvPlagaEnfermedad.DataSource = Nothing
End If
ObjAF.Dispose()
GvPlagaEnfermedad.DataBind()
UpPlagaEnfermedad.Update()
End Sub
Protected Sub LnkAgregarPlagaEnfermedad_Click(sender As Object, e As EventArgs)
LblModalTituloPlagaEnfermedad.Text = "Agregar Plaga Enfermedad"
LnkModalAgregarProduccion.Text = "Agregar"
CvePlagaEnfermedad = -1
TxtModalPlagaEnfermedadObservaciones.Text = ""
TxtModalPlagaEnfermedadFecha.Text = ""
RegistraScript("$('#DVModalPlagaEnfermedad').modal('show');")
UpModalPlagaEnfermedad.Update()
End Sub
Protected Sub LnkGvPlagaEnfermedadEdit_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
CvePlagaEnfermedad = GvRow.DataKey("CvePlagaEnfermedad").ToEntero
Dim Observaciones As String = GvRow.DataKey("Observaciones")
Dim Fecha As Date = GvRow.DataKey("Fecha").ToDate
TxtModalPlagaEnfermedadObservaciones.Text = Observaciones
TxtModalPlagaEnfermedadFecha.Text = Fecha.ToString("dd/MM/yyyy")
LblModalTituloPlagaEnfermedad.Text = "Actualizar plaga enfermedad"
LnkModalAgregarPlagaEnfermedad.Text = "Actualizar"
UpModalPlagaEnfermedad.Update()
RegistraScript("$('#DVModalPlagaEnfermedad').modal('show');")
End Sub
Protected Sub LnkGvPlagaEnfermedadRemove_Click(sender As Object, e As EventArgs)
Dim ErrorProceso As Boolean = False
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim CvePlagaEnfermedadEliminar As Integer = GvRow.DataKey("CvePlagaEnfermedad").ToEntero
Dim ObjAF As New ClsAF
If ObjAF.RemovePlagaEnfermedad(CvePlagaEnfermedadEliminar, UsuarioActual.CveEmpresa) Then
ErrorProceso = False
Else
ErrorProceso = True
End If
ObjAF.Dispose()
If Not ErrorProceso Then
Alert("Plaga Enfermedad Eliminada Correctamente.")
CargaPlagaEnfermedad()
End If
End Sub
Protected Sub LnkModalAgregarPlagaEnfermedad_Click(sender As Object, e As EventArgs)
Dim ErrorProceso As Boolean = False
Dim ObjAF As New ClsAF
If CvePlagaEnfermedad > 0 Then
If ObjAF.UpdatePlagaEnfermedad(CvePlagaEnfermedad, CveActivoFijo, TxtModalPlagaEnfermedadObservaciones.Text, TxtModalPlagaEnfermedadFecha.Text.ToDate, UsuarioActual.CveUsuario) Then
ErrorProceso = False
Else
ErrorProceso = True
End If
Else
If ObjAF.AddPlagaEnfermedad(CveActivoFijo, TxtModalPlagaEnfermedadObservaciones.Text, TxtModalPlagaEnfermedadFecha.Text.ToDate, UsuarioActual.CveUsuario) Then
ErrorProceso = False
Else
ErrorProceso = True
End If
End If
ObjAF.Dispose()
If Not ErrorProceso Then
RegistraScript("$('#DVModalPlagaEnfermedad').modal('hide');")
Alert("Plaga Enfermedad guardada Correctamente.")
CargaPlagaEnfermedad()
End If
End Sub
#End Region