columna de limitar cantidad
This commit is contained in:
HECTOR RODRIGUEZ
@@ -1046,21 +1046,26 @@
|
||||
<ItemStyle Width="150px" HorizontalAlign="Right" />
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="Dias" Visible="true">
|
||||
<asp:TemplateField HeaderText="Dias" Visible="true">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LtlDias" CssClass="ltltotalgvx2" Text='<%# Eval("Dias")%>' runat="server"></asp:Label>
|
||||
</ItemTemplate>
|
||||
<ItemStyle Width="150px" HorizontalAlign="Right" />
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="Limitar Cantidad" Visible="true">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LtlLimitarCantidad" CssClass="ltltotalgvx2" Text='<%# Eval("LimitarCantidad")%>' runat="server"></asp:Label>
|
||||
</ItemTemplate>
|
||||
<ItemStyle Width="150px" HorizontalAlign="Right" />
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="Editar" ItemStyle-Width="50px" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="LnkEditarPresupuestoControlDetalle" OnClick="LnkEditarPresupuestoControlDetalle_Click" runat="server" AlternateText="Editar" 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"
|
||||
@@ -2869,6 +2874,11 @@
|
||||
<asp:RequiredFieldValidator ID="RFVPU" runat="server" ControlToValidate="TxtPU" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''P.U.''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddPSVentas"></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtPU.ClientID.ToString()%>">P.U.:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:CheckBox id="ChkLimitarCantidadAdd" runat="server" Checked="true"/>
|
||||
<label for="<%= ChkLimitarCantidadAdd.ClientID.ToString()%>"> Limitar Cantidad</label>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright" style="text-align:right!important">
|
||||
@@ -2892,7 +2902,7 @@
|
||||
|
||||
<%--MODAL CONTROL PRESUPUESTOS AGREGAR--%>
|
||||
<div id="ModalControlAddPS" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog" style="width: 450px;">
|
||||
<div class="modal-dialog" style="width: 500px;">
|
||||
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalControlAddPS" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
@@ -2946,36 +2956,29 @@
|
||||
<label for="<%= TxtPUInsumos.ClientID.ToString()%>">P.U.:</label>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright" runat="server" id="DVActividadesRH" visible="false" >
|
||||
|
||||
<asp:DropDownList ID="DdlActividades" runat="server" DataTextField="Actividad" DataValueField="CveActividad" CssClass="table-group-action-input form-control input-inline input-sm select2me" Style="width: 100%;"></asp:DropDownList>
|
||||
<label for="<%= DdlActividades.ClientID.ToString()%>">Actividad:</label>
|
||||
<asp: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="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">
|
||||
<asp:CheckBox id="ChkLimitarCantidad" runat="server" Checked="true"/>
|
||||
<label for="<%= ChkLimitarCantidad.ClientID.ToString()%>"> Limitar Cantidad</label>
|
||||
</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" />
|
||||
</div>
|
||||
|
||||
@@ -1498,7 +1498,7 @@ Partial Class Contratos_ContratoObra
|
||||
Row("CveTipoPresupuesto") = 2
|
||||
Row("NoIdentificacion") = "" 'TxtNoIdentificacionv.Text.Trim
|
||||
Row("OCInterna") = "" 'TxtOCInterna.Text.Trim
|
||||
Row("LimitarCantidad") = False 'If(ChkLimitarVenta.Checked, 1, 0)
|
||||
Row("LimitarCantidad") = ChkLimitarCantidadAdd.Checked 'If(ChkLimitarVenta.Checked, 1, 0)
|
||||
Row("Observacion") = "" 'TxtObservacionesDetalles.Text
|
||||
|
||||
Row("CveRubro") = 1
|
||||
@@ -1508,7 +1508,7 @@ Partial Class Contratos_ContratoObra
|
||||
Dim ObjContratos As New ClsContratos
|
||||
|
||||
|
||||
If ObjContratos.AddContratosDetalle(CveContrato, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("PU").ToString.ToDouble, UsuarioActual.CveUsuario, Row("CveTipoPresupuesto").ToString.ToEntero, Row("NoIdentificacion").ToString, False, "", Observacion:=Row("Observacion").ToString, CveRubro:=1) Then
|
||||
If ObjContratos.AddContratosDetalle(CveContrato, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("PU").ToString.ToDouble, UsuarioActual.CveUsuario, Row("CveTipoPresupuesto").ToString.ToEntero, Row("NoIdentificacion").ToString, Convert.ToBoolean(Row("LimitarCantidad")), "", Observacion:=Row("Observacion").ToString, CveRubro:=1) Then
|
||||
|
||||
If Autorizado Then
|
||||
Dim msj As String = String.Format("Se agregaron {0} {1} del producto {2} con un precio ${3}.", Row("Cantidad"), Row("UM"), Row("PS"), Row("PU"))
|
||||
@@ -1557,13 +1557,15 @@ Partial Class Contratos_ContratoObra
|
||||
'OCInterna = TxtOCInterna.Text.Trim
|
||||
'LimitarCantidad = If(ChkLimitarVenta.Checked, True, False)
|
||||
Observaciones = ""
|
||||
Dim limitarCantidad As Boolean = ChkLimitarCantidad.Checked
|
||||
|
||||
|
||||
Dim row = TmpDT.Select(String.Format(" CveContratoDetalle={0}", CveContratoDetalleEditar))(0)
|
||||
Dim LimitarCantidadValidator As Boolean = row("LimitarCantidad").ToString = "True"
|
||||
|
||||
|
||||
Dim ObjContratos As New ClsContratos
|
||||
If ObjContratos.UpdateContratosDetalle(CveContratoDetalleEditar, CveContrato, CvePS, Cantidad, PU, UsuarioActual.CveUsuario, NoIdentificacion, False, "", Observaciones, CveRubro:=1) Then
|
||||
If ObjContratos.UpdateContratosDetalle(CveContratoDetalleEditar, CveContrato, CvePS, Cantidad, PU, UsuarioActual.CveUsuario, NoIdentificacion, limitarCantidad, "", Observaciones, CveRubro:=1) 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}",
|
||||
@@ -1579,7 +1581,7 @@ Partial Class Contratos_ContratoObra
|
||||
row("UM") = DdlUM.SelectedItem.Text
|
||||
row("NoIdentificacion") = NoIdentificacion
|
||||
row("OCInterna") = ""
|
||||
row("LimitarCantidad") = False
|
||||
row("LimitarCantidad") = limitarCantidad
|
||||
row("Observacion") = Observaciones
|
||||
|
||||
TmpDT.AcceptChanges()
|
||||
@@ -1591,15 +1593,13 @@ Partial Class Contratos_ContratoObra
|
||||
ObjContratos.Dispose()
|
||||
|
||||
|
||||
|
||||
Gv.EditIndex = -1
|
||||
LbTotalGeneral.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=2").SUM("Total").FormatoNumero
|
||||
LblImporte.Text = LbTotalGeneral.Text
|
||||
CargaGVPresupuestos(TmpDT.FiltraParametros("CveTipoPresupuesto=2"))
|
||||
|
||||
End If
|
||||
|
||||
|
||||
CveContratoDetalleEditar = -1
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatosPresup()
|
||||
@@ -1850,7 +1850,7 @@ Partial Class Contratos_ContratoObra
|
||||
Row("Total") = (TxtCantidadInsumos.Text.ToDouble * TxtPUInsumos.Text.ToDouble).FormatoNumero
|
||||
Row("CveTipoPresupuesto") = 1
|
||||
Row("NoIdentificacion") = "" 'TxtNoIdentificacionvInsumos.Text.Trim
|
||||
Row("LimitarCantidad") = False
|
||||
Row("LimitarCantidad") = ChkLimitarCantidad.Checked
|
||||
|
||||
Row("CveRubro") = DdlRubro.SelectedValue.ToEntero
|
||||
Row("Rubro") = DdlRubro.SelectedItem.Text
|
||||
@@ -1909,7 +1909,7 @@ Partial Class Contratos_ContratoObra
|
||||
|
||||
|
||||
Dim ObjContratos As New ClsContratos
|
||||
If ObjContratos.AddContratosDetalle(CveContrato, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("PU").ToString.ToDouble, UsuarioActual.CveUsuario, Row("CveTipoPresupuesto").ToString.ToEntero, Row("NoIdentificacion").ToString, False, "",
|
||||
If ObjContratos.AddContratosDetalle(CveContrato, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("PU").ToString.ToDouble, UsuarioActual.CveUsuario, Row("CveTipoPresupuesto").ToString.ToEntero, Row("NoIdentificacion").ToString, Convert.ToBoolean(Row("LimitarCantidad")), "",
|
||||
CveRubro:=Row("CveRubro").ToString.ToEntero, CveActividad:=Row("CveActividad").ToString.ToEntero, CveSubTipoActivoFijo:=Row("CveSubTipoActivoFijo").ToString.ToEntero, Dias:=Row("Dias").ToString.ToEntero) Then
|
||||
'If Autorizado Then
|
||||
' Dim msj As String = String.Format("Se agregaron {0} {1} del producto {2} con un precio ${3}.", Row("Cantidad"), Row("UM"), Row("PS"), Row("PU"))
|
||||
@@ -1977,12 +1977,14 @@ Partial Class Contratos_ContratoObra
|
||||
|
||||
Cantidad = TxtCantidadInsumos.Text.ToDouble
|
||||
PU = TxtPUInsumos.Text.ToDouble
|
||||
Dim limitarCantidad As Boolean = ChkLimitarCantidad.Checked
|
||||
|
||||
|
||||
|
||||
Dim row = TmpDT.Select(String.Format(" CveContratoDetalle={0}", CveContratoDetalleEditar))(0)
|
||||
|
||||
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 ObjContratos.UpdateContratosDetalle(CveContratoDetalleEditar, CveContrato, CvePS, Cantidad, PU, UsuarioActual.CveUsuario, "", limitarCantidad, "", CveRubro:=CveRubro, CveActividad:=CveActividad, CveSubTipoActivoFijo:=CveSubTipoActivoFijo, Dias:=Dias) Then
|
||||
|
||||
'If Autorizado Then
|
||||
' Dim msj As String = String.Format("Se realizaron los siguientes cambios, el Presupuesto Interno se modificó: {1} {0} {2:C2} a {3} {0} {4:C2}",
|
||||
@@ -1999,7 +2001,7 @@ Partial Class Contratos_ContratoObra
|
||||
row("CveUM") = CveUM
|
||||
|
||||
row("NoIdentificacion") = "" 'NoIdentificacion
|
||||
row("LimitarCantidad") = False
|
||||
row("LimitarCantidad") = limitarCantidad
|
||||
|
||||
row("CveActividad") = CveActividad
|
||||
row("CveSubTipoActivoFijo") = CveSubTipoActivoFijo
|
||||
@@ -2028,10 +2030,10 @@ Partial Class Contratos_ContratoObra
|
||||
End If
|
||||
ObjContratos.Dispose()
|
||||
|
||||
|
||||
GvInsumos.EditIndex = -1
|
||||
LbTotalGeneralInsumos.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=1").SUM("Total").FormatoNumero
|
||||
CargaGVPresupuestosInsumos(TmpDT.FiltraParametros("CveTipoPresupuesto=1"))
|
||||
CveContratoDetalleEditar = -1
|
||||
|
||||
|
||||
End If
|
||||
@@ -2067,9 +2069,14 @@ Partial Class Contratos_ContratoObra
|
||||
'e.Row.FCLinkButton("imgE").Visible = False
|
||||
'e.Row.FCLinkButton("imgD").Visible = False
|
||||
End If
|
||||
|
||||
End If
|
||||
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
|
||||
If e.Row.FCLabel("LtlLimitarCantidad").Text.ToString = "True" Then
|
||||
e.Row.FCLabel("LtlLimitarCantidad").Text = "Si"
|
||||
Else
|
||||
e.Row.FCLabel("LtlLimitarCantidad").Text = "No"
|
||||
End If
|
||||
|
||||
End If
|
||||
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
|
||||
e.Row.FCDropDownList("DdlUMEdit").DataSource = GlobalDTProductosServiciosEquivalencias(e.Row.DataKey("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa)
|
||||
e.Row.FCDropDownList("DdlUMEdit").DataBind()
|
||||
e.Row.FCDropDownList("DdlUMEdit").SelectedValue = e.Row.DataKey("CveUM")
|
||||
@@ -4200,7 +4207,7 @@ Partial Class Contratos_ContratoObra
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkModalAddPSVentas_Click(sender As Object, e As EventArgs)
|
||||
|
||||
CveContratoDetalleEditar = -1
|
||||
ModalVentasPSAdd = True
|
||||
ChkContinualAgregandoVentas.Visible = True
|
||||
ChkContinualAgregandoVentas.Checked = True
|
||||
@@ -4210,7 +4217,7 @@ Partial Class Contratos_ContratoObra
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkModalAddPSControl_Click(sender As Object, e As EventArgs)
|
||||
|
||||
CveContratoDetalleEditar = -1
|
||||
ModalControlPSAdd = True
|
||||
ChkContinualAgregandoControl.Visible = True
|
||||
ChkContinualAgregandoControl.Checked = True
|
||||
@@ -4264,8 +4271,7 @@ Partial Class Contratos_ContratoObra
|
||||
|
||||
DdlClasificacionAddInsumos.SelectedValueExist(gvRow.DataKey("CveClasificacion").ToEntero)
|
||||
|
||||
DdlProductowsInsumos.txtText.Value = gvRow.DataKey("PS").ToString
|
||||
DdlProductowsInsumos.txtValue.Value = gvRow.DataKey("CvePS").ToString
|
||||
DdlProductowsInsumos.ddl.SelectedValueExist(gvRow.DataKey("CvePS").ToString.ToEntero)
|
||||
|
||||
|
||||
DdlUMInsumos.DataSource = GlobalDTProductosServiciosEquivalencias(DdlProductowsInsumos.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa)
|
||||
@@ -4273,6 +4279,8 @@ Partial Class Contratos_ContratoObra
|
||||
DdlUMInsumos.SelectedValueExist(gvRow.DataKey("CveUM").ToDouble.ToString)
|
||||
|
||||
TxtPUInsumos.Text = gvRow.DataKey("PU").ToDouble.ToString
|
||||
Dim limitarCantidad As String = gvRow.DataKey("LimitarCantidad").ToString
|
||||
ChkLimitarCantidad.Checked = limitarCantidad = "True"
|
||||
|
||||
DdlRubro.SelectedValueExist(gvRow.DataKey("CveRubro").ToString)
|
||||
|
||||
@@ -4344,6 +4352,7 @@ Partial Class Contratos_ContratoObra
|
||||
DdlProductows.txtValue.Value = ""
|
||||
DdlUM.SelectedValueExist(-1)
|
||||
TxtPU.Text = ""
|
||||
ChkLimitarCantidad.Checked = False
|
||||
|
||||
|
||||
If ModalVentasPSAdd = True Then
|
||||
|
||||
Reference in New Issue
Block a user