Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
@@ -475,7 +475,7 @@
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
<asp:LinkButton ID="BtnAgregarPSAdicionalesModal" runat="server" data-toggle="tooltip" data-placement="right" title="Agregar Producto/Servicio Adicional." CssClass="btn btn-circle btn-default" Text="<i class='fa fa-plus'></i> Agregar"></asp:LinkButton>
|
||||
<asp:LinkButton ID="BtnAgregarPSAdicionalesModal" runat="server" data-toggle="tooltip" data-placement="top" title="Agregar Producto/Servicio Adicional." CssClass="btn btn-circle btn-default" Text="<i class='fa fa-plus'></i> Agregar"></asp:LinkButton>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
@@ -2340,10 +2340,12 @@
|
||||
<ContentTemplate>
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlPSAdicional" Width="100%" runat="server" CssClass="form-control select2me" DataValueField="CvePS" DataTextField="PS"></asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVPSAdicional" runat="server" ControlToValidate="DdlPSAdicional" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto/Servicio''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
|
||||
<label for="<%= DdlPSAdicional.ClientID.ToString()%>">Producto/Servicio:</label>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
|
||||
<ADS:Dropdownlost runat="server" ID="DdlPSAdicional" CssClass="form-control input-sm DdlPS" CssClassDdl="select2me" CssStyle="width:100%" DataTextField="PSCodigo" DataValueField="CvePS" />
|
||||
<label for="<%= DdlPSAdicional.ClientID.ToString()%>" >Producto/Servicio:</label>
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6" id="DivTipoAdicional" runat="server" visible="false">
|
||||
|
||||
@@ -1982,10 +1982,12 @@ Partial Class ProductosyServicios
|
||||
BtnAgregarPSAdicional.Text = "Agregar"
|
||||
CvePSAdicional = -1
|
||||
|
||||
DdlPSAdicional.DataSource = GlobalDTPS(UsuarioActual.CveEmpresa)
|
||||
DdlPSAdicional.DataBind()
|
||||
DdlPSAdicional.Items.Add(New ListItem("Seleccione", "-1"))
|
||||
UpAddPSAdicional.Update()
|
||||
CargaPSAdicional(DdlPSAdicional)
|
||||
|
||||
'DdlPSAdicional.DataSource = GlobalDTPS(UsuarioActual.CveEmpresa)
|
||||
'DdlPSAdicional.DataBind()
|
||||
'DdlPSAdicional.Items.Add(New ListItem("Seleccione", "-1"))
|
||||
|
||||
|
||||
DdlPSAdicional.SelectedValue = "-1"
|
||||
TxtCantidadPSAdicional.Text = ""
|
||||
@@ -1993,9 +1995,36 @@ Partial Class ProductosyServicios
|
||||
RBLCantidad.SelectedValue = "1"
|
||||
RblTipoAdicional.SelectedValue = "1"
|
||||
|
||||
UpAddPSAdicional.Update()
|
||||
RegistraScript("$('#divAddPSAdicional').modal();")
|
||||
End Sub
|
||||
|
||||
Private Sub CargaPSAdicional(Objeto As ADServerControl.Dropdownlost, Optional AplicaParaVenta As Boolean = True)
|
||||
|
||||
Objeto.setEsWebService(UsuarioActual.Empresa.Funcionalidad(141).ToString() = "1")
|
||||
|
||||
If Not UsuarioActual.Empresa.Funcionalidad(141).ToString() = "1" Then
|
||||
Objeto.ddl.Items.Clear()
|
||||
Objeto.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=-1, Estatus:=1, AplicaParaVenta:=If(AplicaParaVenta, 1, -1))
|
||||
Objeto.ddl.DataBind()
|
||||
Objeto.ddl.Items.Insert(0, New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
|
||||
Objeto.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
|
||||
Else
|
||||
Objeto.SelectedValue = " - 1"
|
||||
Objeto.txtText.Value = ""
|
||||
Objeto.txtValue.Value = ""
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub BtnAgregarPSAdicional_Click(sender As Object, e As EventArgs) Handles BtnAgregarPSAdicional.Click
|
||||
|
||||
|
||||
If DdlPSAdicional.SelectedValue.ToEntero <= 0 Then
|
||||
Alert("Debe seleccionar un producto", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim ObjProductosServicios As New ClsProductosServicios()
|
||||
ObjProductosServicios.IniciaTransacSQL()
|
||||
Dim TieneError As Boolean = False
|
||||
@@ -2017,7 +2046,7 @@ Partial Class ProductosyServicios
|
||||
End If
|
||||
|
||||
If TieneError Then
|
||||
Alert("Ocurrio un error al agregar/actualizar el Producto/Servicio Adicional.", TipoMensaje.MsgError)
|
||||
Alert("Ocurrio un Error al agregar/actualizar el Producto/Servicio Adicional.", TipoMensaje.MsgError)
|
||||
ObjProductosServicios.RollBack()
|
||||
Else
|
||||
ObjProductosServicios.Commit()
|
||||
@@ -2032,6 +2061,8 @@ Partial Class ProductosyServicios
|
||||
|
||||
Protected Sub Edit_Click(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
|
||||
|
||||
BtnAgregarPSAdicional.Text = "Guardar"
|
||||
TxtCantidadPSAdicional.Text = GvRow.DataKey("Cantidad")
|
||||
PSAdicionalAnterior = GvRow.DataKey("PS").ToString
|
||||
@@ -2044,17 +2075,24 @@ Partial Class ProductosyServicios
|
||||
UpCantidad.Visible = True
|
||||
RBLCantidad.SelectedValue = "2"
|
||||
End If
|
||||
UpAddPSAdicional.Update()
|
||||
|
||||
DdlPSAdicional.DataSource = GlobalDTPS(UsuarioActual.CveEmpresa)
|
||||
DdlPSAdicional.DataBind()
|
||||
DdlPSAdicional.Items.Add(New ListItem("Seleccione", "-1"))
|
||||
UpAddPSAdicional.Update()
|
||||
|
||||
CvePSAdicional = GvRow.DataKey("CvePSAdicional").ToEntero
|
||||
|
||||
CargaPSAdicional(DdlPSAdicional)
|
||||
|
||||
DdlPSAdicional.txtValue.Value = GvRow.DataKey("CvePSAdicional")
|
||||
DdlPSAdicional.txtText.Value = GvRow.DataKey("CodigoPS")
|
||||
|
||||
DdlPSAdicional.SelectedValue = GvRow.DataKey("CvePSAdicional")
|
||||
DdlPSAdicional.SelectedText = GvRow.DataKey("CodigoPS")
|
||||
|
||||
|
||||
UpBodyDireccion.Update()
|
||||
UpAddPSAdicional.Update()
|
||||
|
||||
RegistraScript("$('#divAddPSAdicional').modal();")
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub RBLCantidad_SelectedIndexChanged1(sender As Object, e As EventArgs)
|
||||
@@ -3261,7 +3299,7 @@ Partial Class ProductosyServicios
|
||||
Dim EmpresasFranquicia As List(Of Integer) = StrEmpresas.Split(","c).ToList().ConvertAll(Function(x) Convert.ToInt32(x))
|
||||
For Each Franquicia As Integer In EmpresasFranquicia
|
||||
Dim CvePSPagina As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("Codigo = '{0}'", TxtCodigo.Text.Trim)).ToEntero
|
||||
Dim CvePSAdicional As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("PS = '{0}'", DdlPSAdicional.SelectedItem.Text)).ToEntero
|
||||
Dim CvePSAdicional As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("PS = '{0}'", DdlPSAdicional.txtText.Value)).ToEntero
|
||||
|
||||
If CvePSPagina <= 0 Then
|
||||
Alert(String.Format("El producto de la página no existe en la franquicia: '{0}'", GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia)
|
||||
|
||||
@@ -15493,7 +15493,7 @@ Partial Class Ventas
|
||||
importeMovimiento = 0
|
||||
Case 103 'Descuento
|
||||
If ObjFactura.Descuento <> 0 AndAlso Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso
|
||||
(DdlTipoAmortizacionAnticipo.SelectedValue = "-1" OrElse UsuarioActual.CveEmpresa.Contiene(140, 141, 190)) Then
|
||||
(DdlTipoAmortizacionAnticipo.SelectedValue = "-1" OrElse UsuarioActual.CveEmpresa.Contiene(140, 141, 190, 192)) Then
|
||||
|
||||
importeMovimiento = ObjFactura.Descuento * Multiplicador * ValorMultiplicador
|
||||
importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador * ValorMultiplicador
|
||||
|
||||
Reference in New Issue
Block a user