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

--Campo ultimo costo en alta de producto

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2025-03-11 18:56:08 -07:00
parent 8bf4209bc7
commit f5e9cb1b43
3 changed files with 102 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsProductosServicios.vb
View File

@@ -415,7 +415,7 @@ Public Class ClsProductosServicios
Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False, Optional CveTipoEmpacado As Integer = -1, Optional CveTipoOrganico As Integer = -1,
Optional NombreComercial As String = "", Optional NotasAdicionales As String = "", Optional EcommerceEtiquetas As String = "", Optional ActivoEcommerce As Boolean = False, Optional EcommercePrecio As Decimal = 0,
Optional CveClasificacionEcommerce As Integer = -1, Optional EcommerceCantidad As Decimal = 0, Optional CodigoAlterno As String = "-1", Optional PSAlterno As String = "-1", Optional ProductoExhibicion As Boolean = False,
Optional Imagen As String = "", Optional PorcentajeMinimoUtilidad As Decimal = 0, Optional CveSelectiva As Integer = -1) As Integer
Optional Imagen As String = "", Optional PorcentajeMinimoUtilidad As Decimal = 0, Optional CveSelectiva As Integer = -1, Optional UltimoCosto As Decimal = 0) As Integer
Dim Retorno As Integer = -1
DataAdapter("PA_ProductosServiciosAdd")
@@ -527,6 +527,7 @@ Public Class ClsProductosServicios
.Add("@Imagen", SqlDbType.VarChar).Value = Imagen
.Add("@PorcentajeMinimoUtilidad", SqlDbType.Decimal).Value = PorcentajeMinimoUtilidad
.Add("@CveSelectiva", SqlDbType.Int).Value = CveSelectiva
.Add("@UltimoCosto", SqlDbType.Money).Value = UltimoCosto
End With
Try

9
Ventas/ProductosServicios.aspx
View File

@@ -114,7 +114,7 @@
<asp:TextBox ID="TxtCodigo" CssClass="form-control " runat="server" MaxLength="50"></asp:TextBox>
<label class="truncate" style="padding-left: 16px;" for="<%= TxtCodigo.ClientID.ToString()%>">Código:</label>
<i></i>
<asp:Button ID="BtnConsultaCodigo" runat="server" Text="" Visible="false" style="display:none;" OnClick="BtnConsultaCodigo_Click" />
<asp:Button ID="BtnConsultaCodigo" runat="server" Text="" Visible="false" Style="display: none;" OnClick="BtnConsultaCodigo_Click" />
</asp:Panel>
</div>
<div class="form-group form-md-line-input input-iconright col-xs-4">
@@ -1206,11 +1206,12 @@
</div>
<div class="row" style="margin-top: 5px;">
<label class="col-md-6 truncate">Ultimo Costo</label>
<div class="col-md-1">
<div class="col-md-1" id="DivUltimoCosto" runat="server">
<asp:Label ID="LblUltimoCosto" runat="server"></asp:Label>
</div>
<div class="col-md-5" runat="server" id="DVEditaUltimoCosto" visible="false" style="text-align:left">
<asp:LinkButton ID="LnkEditarUltimoCostoMostrarModal" runat="server" CssClass="btn btn-circle btn-sm green" OnClick="LnkEditarUltimoCostoMostrarModal_Click" Text="<i class='fa fa-pencil'></i>" />
<div class="col-md-5" runat="server" style="text-align: left">
<asp:TextBox ID="TxtUltimoCosto" CssClass="form-control " runat="server" Visible="false" Width="150px"></asp:TextBox>
<asp:LinkButton ID="LnkEditarUltimoCostoMostrarModal" runat="server" visible="false" CssClass="btn btn-circle btn-sm green" OnClick="LnkEditarUltimoCostoMostrarModal_Click" Text="<i class='fa fa-pencil'></i>" />
</div>
</div>
<div class="row" style="margin-top: 5px;">

21
Ventas/ProductosServicios.aspx.vb
View File

@@ -356,9 +356,17 @@ Partial Class ProductosyServicios
End If
If CvePS > 0 And UsuarioActual.TienePermisoProceso(402) Then
DVEditaUltimoCosto.Visible = True
If UsuarioActual.TienePermisoProceso(402) Then
If CvePS > 0 Then
LnkEditarUltimoCostoMostrarModal.Visible = True
Else
DivUltimoCosto.Visible = False
End If
TxtUltimoCosto.Visible = True
UpConta.Update()
End If
End If
End Sub
@@ -1423,6 +1431,13 @@ Partial Class ProductosyServicios
End Sub
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso CvePS <= 0 AndAlso DdlTipoPS.SelectedValue = "2" Then
If TxtUltimoCosto.Text.ToDecimal() <= 0 Then
Alert("El campo 'Ultimo costo' es requerido.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
End If
If DdlFraccionArancelaria.SelectedValue.ToEntero > 0 AndAlso TxtCodigo.Text.Trim.Length = 0 Then
Alert("El campo Numero de Parte / Código es requerido (al seleccionar una Fracción Arancelaria el campo Numero de Parte / Código se vuelve requerido).", TipoMensaje.MsgAdvertencia)
@@ -1583,7 +1598,7 @@ Partial Class ProductosyServicios
CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero, Litraje:=TxtLitraje.Text.ToDecimal, RegistroRSCO:=TxtRegistroRSCO.Text, FechaVigenciaRSCO:=TxtFechaVigenciaRSCO.Text.ToDate, VigenciaIndeterminadaRSCO:=ChkFechaIndeterminadaRSCO.Checked,
NombreComercial:=TxtNombreComercial.Text.Trim, NotasAdicionales:=TxtEcommerceNota.Text.Trim, EcommerceEtiquetas:=TxtEcommerceEtiquetas.Text.Trim.Replace(".", ""), EcommercePrecio:=TxtEcommercePrecio.Text.Trim.ToDecimal,
CveClasificacionEcommerce:=DdlEcommerceClasificacion.SelectedValue.ToEntero, EcommerceCantidad:=TxtEcommerceCantidad.Text.Trim.ToDecimal, CodigoAlterno:=TxtCodigoAlterno.Text.Trim, PSAlterno:=TxtPSAlterno.Text.Trim, ProductoExhibicion:=ChkPSExhibicion.Checked,
PorcentajeMinimoUtilidad:=TxtPorMinimoUtilidad.Text.ToDecimal(), CveSelectiva:=DdlSelectiva.SelectedValue.ToEntero()) > 0 Then
PorcentajeMinimoUtilidad:=TxtPorMinimoUtilidad.Text.ToDecimal(), CveSelectiva:=DdlSelectiva.SelectedValue.ToEntero(), UltimoCosto:=TxtUltimoCosto.Text.ToDecimal()) > 0 Then
ViewState("CvePS") = ObjProductosServicios.CvePS
For Each GVR As GridViewRow In GvImpuestosLocales.Rows
If GVR.FCCheckBox("ChkDeduccion").Checked Then