Entrada usados resumen totales, Cierre cultivo, Empresas acutualizar certificados
This commit is contained in:
rakcsle
@@ -50,10 +50,7 @@
|
||||
<div class="col-md-1 truncate"><asp:Label runat="server" ID="LblSubProyecto"></asp:Label></div>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlSubProyectoCierreCultivo" runat="server" Width="100%" CssClass="form-control select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto"></asp:DropDownList>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
@@ -75,7 +72,8 @@
|
||||
<div class="col-md-6">
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
|
||||
DataKeyNames="CveClasificacion"
|
||||
EmptyDataText="No se Encontraron datos" CssClass="table table-striped table-advance table-hover mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None">
|
||||
EmptyDataText="No se Encontraron datos" CssClass="table table-striped table-advance table-hover mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None"
|
||||
OnRowDataBound="GvDatos_RowDataBound" >
|
||||
<Columns>
|
||||
<asp:BoundField HeaderText="Clasificación" DataField="Clasificacion" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField HeaderText="Importe" DataField="Importe" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:n2}" />
|
||||
@@ -102,21 +100,30 @@
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright" >
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtModalConcepto" CssClass="form-control" MaxLength="100" runat="server"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtModalConcepto" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtModalConcepto"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." ValidationGroup="GpoModalCerrarCultivo"></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtModalConcepto.ClientID.ToString() %>">Concepto:</label>
|
||||
<i></i>
|
||||
|
||||
<asp:TextBox ID="TxtmodalFechaCierreCultivo" CssClass="form-control" MaxLength="50" runat="server"></asp:TextBox>
|
||||
</div>
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright" style="width:150px!important">
|
||||
|
||||
<asp:TextBox ID="TxtmodalFechaCierreCultivo" CssClass="form-control" MaxLength="50" runat="server" Width="110px"></asp:TextBox>
|
||||
<span class="input-group-btn " style="position: absolute; right: 41px; top: -5px;">
|
||||
<asp:LinkButton ID="LnkTxtmodalFechaCierreCultivo" class="btn default" Style="margin-top: 15px; margin-left: 6px" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||
</span>
|
||||
<ajax:CalendarExtender runat="server" ID="CETxtmodalFechaCierreCultivo" TargetControlID="TxtmodalFechaCierreCultivo" PopupButtonID="LnkTxtmodalFechaCierreCultivo" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
|
||||
<asp:CompareValidator ID="CvTxtmodalFechaCierreCultivo" runat="server" ControlToValidate="TxtmodalFechaCierreCultivo" Display="None"
|
||||
ErrorMessage="El campo <b>''Fecha de Cierre''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)."
|
||||
|
||||
<asp:CompareValidator ID="CvTxtmodalFechaCierreCultivo" runat="server" ControlToValidate="TxtmodalFechaCierreCultivo" Display="None"
|
||||
ErrorMessage="El campo <b>''Fecha de Cierre''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)."
|
||||
Operator="DataTypeCheck" Type="Date" ValidationGroup="GpoModalCerrarCultivo"></asp:CompareValidator>
|
||||
|
||||
<asp:RequiredFieldValidator ID="RfvTxtmodalFechaCierreCultivo" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtmodalFechaCierreCultivo"
|
||||
<asp:RequiredFieldValidator ID="RfvTxtmodalFechaCierreCultivo" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtmodalFechaCierreCultivo"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Cierre''</b> es necesario, por favor ingréselo." ValidationGroup="GpoModalCerrarCultivo"></asp:RequiredFieldValidator>
|
||||
|
||||
<ajax:ValidatorCalloutExtender ID="CvcTxtmodalFechaCierreCultivo" runat="server" HighlightCssClass="vco" TargetControlID="CvTxtmodalFechaCierreCultivo" Width="100px"></ajax:ValidatorCalloutExtender>
|
||||
@@ -127,9 +134,11 @@
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
<div class="modal-footer">
|
||||
<asp:Button ID="BtnModalCerrarCultivo" runat="server" Text="Cerrar Cultivo" CssClass="btn btn-primary" ValidationGroup="GpoModalCerrarCultivo" />
|
||||
<asp:Button ID="BtnModalCerrarCultivo" runat="server" Text="Cerrar Cultivo" OnClick="BtnModalCerrarCultivo_Click" CssClass="btn btn-primary" ValidationGroup="GpoModalCerrarCultivo" />
|
||||
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -19,6 +19,20 @@ Partial Class Agrupecuaria_CierreCultivo
|
||||
End Property
|
||||
|
||||
|
||||
Private Property DT_Datos_Cierre_Cuadros As DataTable
|
||||
Get
|
||||
|
||||
If ViewState("DT_Datos_Cierre_Cuadros") Is Nothing Then
|
||||
ViewState("DT_Datos_Cierre_Cuadros") = New DataTable
|
||||
End If
|
||||
|
||||
Return DirectCast(ViewState("DT_Datos_Cierre_Cuadros"), DataTable)
|
||||
|
||||
End Get
|
||||
Set(ByVal value As DataTable)
|
||||
ViewState("DT_Datos_Cierre_Cuadros") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Private Sub Agrupecuaria_CierreCultivo_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
@@ -55,20 +69,40 @@ Partial Class Agrupecuaria_CierreCultivo
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If Not DdlSubProyectoCierreCultivo.SelectedValue.ToEntero > 0 Then
|
||||
Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
DT_Datos_Cierre = Nothing
|
||||
DT_Datos_Cierre_Cuadros = Nothing
|
||||
|
||||
Dim ObjGral As New ClsGenerales
|
||||
|
||||
If ObjGral.GetCierreCultivos(DdlTemporada.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||
GvDatos.DataSource = ObjGral.DtResultados
|
||||
DT_Datos_Cierre = ObjGral.DtResultados
|
||||
'se valida que se ejecute la consulta, que el resultado tenga dos tablas y que las dos tablas tengan por lo menos 1 registro
|
||||
If ObjGral.GetCierreCultivos(DdlTemporada.SelectedValue.ToEntero, DdlSubProyectoCierreCultivo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) AndAlso ObjGral.DSResultados.Tables.Count = 2 AndAlso
|
||||
ObjGral.DSResultados.Tables(0).Rows.Count > 0 AndAlso ObjGral.DSResultados.Tables(1).Rows.Count > 0 Then
|
||||
|
||||
DT_Datos_Cierre = ObjGral.DSResultados.Tables(0).FiltraParametros("", "Gpo")
|
||||
DT_Datos_Cierre_Cuadros = ObjGral.DSResultados.Tables(1)
|
||||
|
||||
|
||||
GvDatos.DataSource = DT_Datos_Cierre
|
||||
|
||||
Else
|
||||
GvDatos.DataSource = Nothing
|
||||
DT_Datos_Cierre = Nothing
|
||||
DT_Datos_Cierre_Cuadros = Nothing
|
||||
End If
|
||||
|
||||
OcultarmostrarControles(DT_Datos_Cierre)
|
||||
|
||||
ObjGral.Dispose()
|
||||
GvDatos.DataBind()
|
||||
|
||||
UpDatos.Update()
|
||||
|
||||
|
||||
@@ -81,10 +115,12 @@ Partial Class Agrupecuaria_CierreCultivo
|
||||
|
||||
Protected Sub LnkAccionesCerrarCultivo_Click(sender As Object, e As EventArgs)
|
||||
|
||||
|
||||
TxtModalConcepto.Text = ""
|
||||
TxtmodalFechaCierreCultivo.Text = ""
|
||||
UpModalCerrarCultivo.Update()
|
||||
|
||||
RegistraScript("$('#DivModalCerrarCultivo').modal('show');")
|
||||
UpModalCerrarCultivo.Update()
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
@@ -108,17 +144,79 @@ Partial Class Agrupecuaria_CierreCultivo
|
||||
Dim ObjConta As New ClsContabilidad()
|
||||
ObjConta.IniciaTransacSQL()
|
||||
Dim CvePrePoliza As Integer = -1
|
||||
Dim FolioPoliza As Integer = -1
|
||||
Dim ErrorProceso As Boolean = False
|
||||
|
||||
Dim CveSubProyecto As Integer = DdlSubProyectoCierreCultivo.SelectedValue.ToEntero
|
||||
|
||||
|
||||
Dim ImporteCierre As Decimal = DT_Datos_Cierre.SUMD("Importe")
|
||||
Dim ImporteCierre As Decimal = DT_Datos_Cierre.SUMD("Importe", "CveClasificacion > 0")
|
||||
Dim CveClasificacionTotalitaria As Integer = DT_Datos_Cierre.Rows(0)("CveClasificacion").ToString.ToEntero ' se usa la primera clasificacion
|
||||
|
||||
CvePrePoliza = ObjConta.AddPrePolizas("CierreCultivo/Cerrar", 1, ImporteCierre, ImporteCierre, 1, TxtmodalFechaCierreCultivo.Text.ToDate, $"Cierre Temporada {DdlTemporada.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
|
||||
|
||||
Dim ConceptoTotales As String = $"{DdlTemporada.SelectedItem.Text}-{DdlSubProyectoCierreCultivo.SelectedItem.Text}"
|
||||
|
||||
CvePrePoliza = ObjConta.AddPrePolizas("CierreCultivo/Cerrar", 53, ImporteCierre, ImporteCierre, 1, TxtmodalFechaCierreCultivo.Text.ToDate, TxtModalConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
|
||||
'FolioPoliza = ObjConta.FolioPoliza
|
||||
|
||||
If CvePrePoliza > 0 Then
|
||||
|
||||
Dim Orden As Integer = 1
|
||||
|
||||
For Each dRow As DataRow In DT_Datos_Cierre.Rows
|
||||
|
||||
Dim ImporteMovimiento As Decimal = dRow("Importe").ToString.ToDecimal
|
||||
Dim CveClasificacion As Integer = dRow("CveClasificacion").ToString.ToEntero
|
||||
Dim Clasificacion As String = dRow("Clasificacion").ToString
|
||||
Dim TipoMovimiento As Boolean = True
|
||||
|
||||
Dim CveConceptoClasificaiones As Integer = 336
|
||||
Dim CveConceptoNominas As Integer = 336
|
||||
|
||||
Dim CveConceptoTotal As Integer = 69
|
||||
|
||||
|
||||
If CveClasificacion > 0 Then
|
||||
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, ImporteMovimiento, Clasificacion, CveConceptoClasificaiones, Clasificacion, TxtmodalFechaCierreCultivo.Text.ToDate, -1, -1, -1, -1, ImporteMX:=ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, TipoCambio:=1, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacion) Then
|
||||
ErrorProceso = True
|
||||
Exit For
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, 0, ImporteCierre, ConceptoTotales, 69, ConceptoTotales, TxtmodalFechaCierreCultivo.Text.ToDate, -1, -1, -1, -1, -1, ImporteMX:=ImporteCierre, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, TipoCambio:=1, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacionTotalitaria) Then
|
||||
ErrorProceso = True
|
||||
Exit For
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Orden = Orden + 1
|
||||
Next
|
||||
|
||||
|
||||
If Not ErrorProceso Then
|
||||
|
||||
Dim ObjGral As New ClsGenerales(ObjConta.IniciaTransacSQL)
|
||||
|
||||
|
||||
For Each dRow As DataRow In DT_Datos_Cierre_Cuadros.Rows
|
||||
If Not ObjGral.UpdateCierreCultivos(dRow("CveCultivoCuadro").ToString.ToEntero, CvePrePoliza, UsuarioActual.CveEmpresa) Then
|
||||
ErrorProceso = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'ObjConta.UpdatePrePolizasOrdenamiento(CvePrePoliza, UsuarioActual.CveEmpresa)
|
||||
|
||||
Else
|
||||
ErrorProceso = True
|
||||
End If
|
||||
@@ -128,8 +226,9 @@ Partial Class Agrupecuaria_CierreCultivo
|
||||
ObjConta.RollBack()
|
||||
Else
|
||||
ObjConta.Commit()
|
||||
|
||||
Alert($"Cultivo Cerrado correctamente <b><a target='_blank' href='/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={CvePrePoliza}'>Ver Pre Póliza</a><b>")
|
||||
RegistraScript("$('#DivModalCerrarCultivo').modal('hide');")
|
||||
CargaDatos()
|
||||
End If
|
||||
|
||||
ObjConta.Dispose()
|
||||
@@ -137,4 +236,23 @@ Partial Class Agrupecuaria_CierreCultivo
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
|
||||
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
|
||||
If e.Row.DataKey("CveClasificacion").ToEntero <= 0 Then
|
||||
|
||||
e.Row.Font.Bold = True
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnModalCerrarCultivo_Click(sender As Object, e As EventArgs)
|
||||
CierraCultivo()
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user