Cat Procedimientos, Prodcutos cantidad
This commit is contained in:
rakcsle
@@ -6092,8 +6092,6 @@ Public Class ClsVentas
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
#Region "ESPECIALIDADES"
|
||||
|
||||
Public Function GetMedicosEspecialidades(CveMedicoEspecialidad As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean
|
||||
@@ -6275,7 +6273,7 @@ Public Class ClsVentas
|
||||
End Function
|
||||
|
||||
|
||||
Public Function AddProcedimientoProducto(CveProcedimiento As Integer, CvePS As Integer, Autogenerado As Boolean, Estatus As Boolean, CveUsuario As Integer) As Boolean
|
||||
Public Function AddProcedimientoProducto(CveProcedimiento As Integer, CvePS As Integer, Autogenerado As Boolean, Estatus As Boolean, CveUsuario As Integer, Cantidad As Decimal) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Vta_ProcedimientosProductosAdd")
|
||||
@@ -6286,6 +6284,7 @@ Public Class ClsVentas
|
||||
.Add("@Autogenerado", SqlDbType.Bit).Value = Autogenerado
|
||||
.Add("@Estatus", SqlDbType.Bit).Value = Estatus
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
.Add("@Cantidad", SqlDbType.Money).Value = Cantidad
|
||||
End With
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
@@ -6298,7 +6297,7 @@ Public Class ClsVentas
|
||||
End Function
|
||||
|
||||
|
||||
Public Function UpdateProcedimientoProducto(CveProcedimientoProducto As Integer, CvePS As Integer, Autogenerado As Boolean, Estatus As Boolean, CveUsuario As Integer) As Boolean
|
||||
Public Function UpdateProcedimientoProducto(CveProcedimientoProducto As Integer, CvePS As Integer, Autogenerado As Boolean, Estatus As Boolean, CveUsuario As Integer, Cantidad As Decimal) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Vta_ProcedimientosProductosUpdate")
|
||||
@@ -6309,6 +6308,7 @@ Public Class ClsVentas
|
||||
.Add("@Autogenerado", SqlDbType.Bit).Value = Autogenerado
|
||||
.Add("@Estatus", SqlDbType.Bit).Value = Estatus
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
.Add("@Cantidad", SqlDbType.Money).Value = Cantidad
|
||||
End With
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
|
||||
@@ -95,12 +95,16 @@
|
||||
<div class="col-md-12">
|
||||
|
||||
<asp:GridView ID="GvProductos" runat="server" CssClass="table table-hover table-striped ScrollAD mysmallbtn" data-sort="true" AutoGenerateColumns="False" Width="100%"
|
||||
DataKeyNames="CveProcedimientoProducto,CveProcedimiento,CvePS,CodigoPS,Autogenerado,Estatus,CveVenta" GridLines="None">
|
||||
DataKeyNames="CveProcedimientoProducto,CveProcedimiento,CvePS,CodigoPS,Autogenerado,Estatus,CveVenta,Cantidad" GridLines="None">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="CodigoPS" HeaderText="Producto">
|
||||
<ItemStyle HorizontalAlign="Left" />
|
||||
</asp:BoundField>
|
||||
|
||||
<asp:BoundField DataField="Cantidad" HeaderText="Cantidad" DataFormatString="{0:N3}">
|
||||
<ItemStyle HorizontalAlign="Right" />
|
||||
</asp:BoundField>
|
||||
|
||||
<asp:BoundField DataField="FechaVenta" HeaderText="Ultima Venta" ItemStyle-Width="80px" DataFormatString="{0:dd/MM/yyyy}">
|
||||
<ItemStyle HorizontalAlign="Left" />
|
||||
</asp:BoundField>
|
||||
@@ -236,19 +240,32 @@
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<ADS:Dropdownlost runat="server" ID="DdlProducto" CssClass="form-control input-sm select2me" CssStyle="width: 90%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" Width="" />
|
||||
<label style="line-height: 0.8" for="<%= DdlProducto.ClientID.ToString()%>">Producto: </label>
|
||||
|
||||
|
||||
<label style="line-height: 0.8" for="<%= DdlProducto.ClientID.ToString()%>">Producto: </label>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright" runat="server" id="DVProdcutoEstatus" visible="false" style="margin-top:15px!important">
|
||||
<asp:CheckBox runat="server" ID="ChkEstatusProducto" CssClass="form-control" />
|
||||
<label style="line-height: 0.8" for="<%= ChkEstatusProducto.ClientID.ToString()%>">Estatus: </label>
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtCantidad" CssClass="form-control " runat="server" CausesValidation="true" ValidationGroup="GrpProducto"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender runat="server" FilterType="Custom" ValidChars="0123456789." TargetControlID="TxtCantidad" />
|
||||
<asp:RequiredFieldValidator ID="RfvTxtCantidad" runat="server" ControlToValidate="TxtCantidad" CssClass="help-block errorimput"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo."
|
||||
ValidationGroup="GrpProducto">
|
||||
</asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtCantidad.ClientID.ToString()%>">Cantidad:</label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright" runat="server" id="DVProdcutoEstatus" visible="false" style="margin-top:15px!important">
|
||||
<asp:CheckBox runat="server" ID="ChkEstatusProducto" CssClass="form-control" />
|
||||
<label style="line-height: 0.8" for="<%= ChkEstatusProducto.ClientID.ToString()%>">Estatus: </label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
<div class="modal-footer">
|
||||
<asp:LinkButton ID="LkAgregarProducto" runat="server" CssClass="btn btn-primary" Text="Guardar" OnClick="LkAgregarProducto_Click"></asp:LinkButton>
|
||||
<asp:LinkButton ID="LkAgregarProducto" runat="server" CssClass="btn btn-primary" Text="Guardar" OnClick="LkAgregarProducto_Click" CausesValidation="true" ValidationGroup="GrpProducto" ></asp:LinkButton>
|
||||
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -199,6 +199,7 @@ Partial Class Ventas_CatProcedimientoDetalle
|
||||
CveProcedimientoProducto = -1
|
||||
DdlProducto.SelectedValue = "-1"
|
||||
DdlProducto.SelectedText = ""
|
||||
TxtCantidad.Text = ""
|
||||
DVProdcutoEstatus.Visible = False
|
||||
UpAgregar.Update()
|
||||
|
||||
@@ -212,13 +213,13 @@ Partial Class Ventas_CatProcedimientoDetalle
|
||||
|
||||
If CveProcedimientoProducto > 0 Then
|
||||
|
||||
If objVenta.UpdateProcedimientoProducto(CveProcedimientoProducto, DdlProducto.SelectedValue.ToEntero, False, True, UsuarioActual.CveUsuario) Then
|
||||
If objVenta.UpdateProcedimientoProducto(CveProcedimientoProducto, DdlProducto.SelectedValue.ToEntero, False, True, UsuarioActual.CveUsuario, TxtCantidad.Text.ToDecimal) Then
|
||||
ProcesoOK = True
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
If objVenta.AddProcedimientoProducto(CveProcedimiento, DdlProducto.SelectedValue.ToEntero, False, True, UsuarioActual.CveUsuario) Then
|
||||
If objVenta.AddProcedimientoProducto(CveProcedimiento, DdlProducto.SelectedValue.ToEntero, False, True, UsuarioActual.CveUsuario, TxtCantidad.Text.ToDecimal) Then
|
||||
ProcesoOK = True
|
||||
End If
|
||||
|
||||
@@ -260,10 +261,12 @@ Partial Class Ventas_CatProcedimientoDetalle
|
||||
Dim CvePS As String = GvRow.DataKey("CvePS")
|
||||
Dim CodigoPS As String = GvRow.DataKey("CodigoPS")
|
||||
Dim Estatus As Boolean = Boolean.Parse(GvRow.DataKey("Estatus"))
|
||||
Dim Cantidad As Decimal = GvRow.DataKey("Cantidad").ToDecimal
|
||||
|
||||
DdlProducto.ddl.SelectedValueExist(CvePS)
|
||||
DdlProducto.txtText.Value = CodigoPS
|
||||
DdlProducto.txtValue.Value = CvePS
|
||||
TxtCantidad.Text = Cantidad.ToString
|
||||
ChkEstatusProducto.Checked = Estatus
|
||||
LtlTituloAgregar.Text = "Actualizar producto"
|
||||
|
||||
|
||||
Reference in New Issue
Block a user