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

--Tipo de producto servicio adicional

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-05-31 19:33:56 -07:00
parent 27c325e5ad
commit 1877e57eba
3 changed files with 89 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Ventas/ProductosServicios.aspx.vb
View File

@@ -446,6 +446,11 @@ Partial Class ProductosyServicios
CargaPanelLlantas()
End If
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
DivPSAdicionales.Visible = True
DivTipoAdicional.Visible = True
End If
CvePSAdicional = -1
'Nueva funcionalidad MLopez: 18/11/2022 -- Empresa Citrícola
@@ -1986,6 +1991,8 @@ Partial Class ProductosyServicios
TxtCantidadPSAdicional.Text = ""
UpCantidad.Visible = False
RBLCantidad.SelectedValue = "1"
RblTipoAdicional.SelectedValue = "1"
RegistraScript("$('#divAddPSAdicional').modal();")
End Sub
Private Sub BtnAgregarPSAdicional_Click(sender As Object, e As EventArgs) Handles BtnAgregarPSAdicional.Click
@@ -1994,14 +2001,14 @@ Partial Class ProductosyServicios
Dim TieneError As Boolean = False
If CvePSAdicional < 0 Then
If Not ObjProductosServicios.AddPSAdicionales(CvePS, DdlPSAdicional.SelectedValue.ToEntero, If(TxtCantidadPSAdicional.Visible, TxtCantidadPSAdicional.Text.ToDecimal, 0)) Then
If Not ObjProductosServicios.AddPSAdicionales(CvePS, DdlPSAdicional.SelectedValue.ToEntero, If(TxtCantidadPSAdicional.Visible, TxtCantidadPSAdicional.Text.ToDecimal, 0), Tipo:=RblTipoAdicional.SelectedValue.ToEntero()) Then
TieneError = True
Else
TieneError = GuardarProductosEquivalenteEnFranquicia(ObjProductosServicios, True)
End If
Else
If Not ObjProductosServicios.UpdatePSAdicionales(CvePS, DdlPSAdicional.SelectedValue.ToEntero, CvePSAdicional, If(TxtCantidadPSAdicional.Visible, TxtCantidadPSAdicional.Text.ToDecimal, 0)) Then
If Not ObjProductosServicios.UpdatePSAdicionales(CvePS, DdlPSAdicional.SelectedValue.ToEntero, CvePSAdicional, If(TxtCantidadPSAdicional.Visible, TxtCantidadPSAdicional.Text.ToDecimal, 0), Tipo:=RblTipoAdicional.SelectedValue.ToEntero()) Then
TieneError = True
Else
TieneError = GuardarProductosEquivalenteEnFranquicia(ObjProductosServicios, False, PSAdicionalAnterior)
@@ -2028,6 +2035,7 @@ Partial Class ProductosyServicios
BtnAgregarPSAdicional.Text = "Guardar"
TxtCantidadPSAdicional.Text = GvRow.DataKey("Cantidad")
PSAdicionalAnterior = GvRow.DataKey("PS").ToString
RblTipoAdicional.SelectedValue = GvRow.DataKey("Tipo").ToString
If TxtCantidadPSAdicional.Text.ToEntero = 0 Then
UpCantidad.Visible = False
@@ -3264,7 +3272,7 @@ Partial Class ProductosyServicios
End If
If Agregar Then
If Not ObjPS.AddPSAdicionales(CvePSPagina, CvePSAdicional, If(TxtCantidadPSAdicional.Visible, TxtCantidadPSAdicional.Text.ToDecimal, 0)) Then
If Not ObjPS.AddPSAdicionales(CvePSPagina, CvePSAdicional, If(TxtCantidadPSAdicional.Visible, TxtCantidadPSAdicional.Text.ToDecimal, 0), Tipo:=RblTipoAdicional.SelectedValue.ToEntero()) Then
Return True
End If
Else
@@ -3273,7 +3281,7 @@ Partial Class ProductosyServicios
If CvepsAdicionalAnt <= 0 Then
Alert(String.Format("El producto adicional no existe en la franquicia: '{0}'", GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia)
Else
If Not ObjPS.UpdatePSAdicionales(CvePSPagina, CvePSAdicional, CvepsAdicionalAnt, If(TxtCantidadPSAdicional.Visible, TxtCantidadPSAdicional.Text.ToDecimal, 0)) Then
If Not ObjPS.UpdatePSAdicionales(CvePSPagina, CvePSAdicional, CvepsAdicionalAnt, If(TxtCantidadPSAdicional.Visible, TxtCantidadPSAdicional.Text.ToDecimal, 0), Tipo:=RblTipoAdicional.SelectedValue.ToEntero()) Then
Return True
End If
End If