AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cat Procedimientos, Prodcutos cantidad

Browse Source
This commit is contained in:
rakcsle
2023-12-20 23:28:23 -07:00
parent 0cca61ee6d
commit 850bcf9da9
3 changed files with 34 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
App_Code/ClsVentas.vb
View File

@@ -6092,8 +6092,6 @@ Public Class ClsVentas
#End Region #End Region
#Region "ESPECIALIDADES" #Region "ESPECIALIDADES"
Public Function GetMedicosEspecialidades(CveMedicoEspecialidad As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean Public Function GetMedicosEspecialidades(CveMedicoEspecialidad As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean
@@ -6275,7 +6273,7 @@ Public Class ClsVentas
End Function 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 Dim Retorno As Boolean = False
DataAdapter("PA_Vta_ProcedimientosProductosAdd") DataAdapter("PA_Vta_ProcedimientosProductosAdd")
@@ -6286,6 +6284,7 @@ Public Class ClsVentas
.Add("@Autogenerado", SqlDbType.Bit).Value = Autogenerado .Add("@Autogenerado", SqlDbType.Bit).Value = Autogenerado
.Add("@Estatus", SqlDbType.Bit).Value = Estatus .Add("@Estatus", SqlDbType.Bit).Value = Estatus
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@Cantidad", SqlDbType.Money).Value = Cantidad
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
@@ -6298,7 +6297,7 @@ Public Class ClsVentas
End Function 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 Dim Retorno As Boolean = False
DataAdapter("PA_Vta_ProcedimientosProductosUpdate") DataAdapter("PA_Vta_ProcedimientosProductosUpdate")
@@ -6309,6 +6308,7 @@ Public Class ClsVentas
.Add("@Autogenerado", SqlDbType.Bit).Value = Autogenerado .Add("@Autogenerado", SqlDbType.Bit).Value = Autogenerado
.Add("@Estatus", SqlDbType.Bit).Value = Estatus .Add("@Estatus", SqlDbType.Bit).Value = Estatus
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@Cantidad", SqlDbType.Money).Value = Cantidad
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

33
Ventas/CatProcedimientoDetalle.aspx
View File

@@ -95,12 +95,16 @@
<div class="col-md-12"> <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%" <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> <Columns>
<asp:BoundField DataField="CodigoPS" HeaderText="Producto"> <asp:BoundField DataField="CodigoPS" HeaderText="Producto">
<ItemStyle HorizontalAlign="Left" /> <ItemStyle HorizontalAlign="Left" />
</asp:BoundField> </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}"> <asp:BoundField DataField="FechaVenta" HeaderText="Ultima Venta" ItemStyle-Width="80px" DataFormatString="{0:dd/MM/yyyy}">
<ItemStyle HorizontalAlign="Left" /> <ItemStyle HorizontalAlign="Left" />
</asp:BoundField> </asp:BoundField>
@@ -236,19 +240,32 @@
<div class="form-group form-md-line-input input-iconright"> <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="" /> <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>
<div class="form-group form-md-line-input input-iconright" runat="server" id="DVProdcutoEstatus" visible="false" style="margin-top:15px!important"> <div class="row">
<asp:CheckBox runat="server" ID="ChkEstatusProducto" CssClass="form-control" /> <div class="col-md-6">
<label style="line-height: 0.8" for="<%= ChkEstatusProducto.ClientID.ToString()%>">Estatus: </label> <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> </div>
<div class="modal-footer"> <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> <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
</div> </div>
</div> </div>

7
Ventas/CatProcedimientoDetalle.aspx.vb
View File

@@ -199,6 +199,7 @@ Partial Class Ventas_CatProcedimientoDetalle
CveProcedimientoProducto = -1 CveProcedimientoProducto = -1
DdlProducto.SelectedValue = "-1" DdlProducto.SelectedValue = "-1"
DdlProducto.SelectedText = "" DdlProducto.SelectedText = ""
TxtCantidad.Text = ""
DVProdcutoEstatus.Visible = False DVProdcutoEstatus.Visible = False
UpAgregar.Update() UpAgregar.Update()
@@ -212,13 +213,13 @@ Partial Class Ventas_CatProcedimientoDetalle
If CveProcedimientoProducto > 0 Then 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 ProcesoOK = True
End If End If
Else 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 ProcesoOK = True
End If End If
@@ -260,10 +261,12 @@ Partial Class Ventas_CatProcedimientoDetalle
Dim CvePS As String = GvRow.DataKey("CvePS") Dim CvePS As String = GvRow.DataKey("CvePS")
Dim CodigoPS As String = GvRow.DataKey("CodigoPS") Dim CodigoPS As String = GvRow.DataKey("CodigoPS")
Dim Estatus As Boolean = Boolean.Parse(GvRow.DataKey("Estatus")) Dim Estatus As Boolean = Boolean.Parse(GvRow.DataKey("Estatus"))
Dim Cantidad As Decimal = GvRow.DataKey("Cantidad").ToDecimal
DdlProducto.ddl.SelectedValueExist(CvePS) DdlProducto.ddl.SelectedValueExist(CvePS)
DdlProducto.txtText.Value = CodigoPS DdlProducto.txtText.Value = CodigoPS
DdlProducto.txtValue.Value = CvePS DdlProducto.txtValue.Value = CvePS
TxtCantidad.Text = Cantidad.ToString
ChkEstatusProducto.Checked = Estatus ChkEstatusProducto.Checked = Estatus
LtlTituloAgregar.Text = "Actualizar producto" LtlTituloAgregar.Text = "Actualizar producto"