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

E140. Solicitud de descuento por autorizacion

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-04-13 15:46:11 -07:00
parent 3b9cd42f80
commit 7583974bc7
5 changed files with 426 additions and 203 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Ventas/CatAutorizacionLimites.aspx.vb
View File

@@ -132,7 +132,7 @@ Partial Class Ventas_CatAutorizacionLimites
Dim Motivo As String = TxtMotivo.Text.Trim
Dim ObjPS As New ClsVentas
If ObjPS.AddAutorizacionLimite(UsuarioActual.CveEmpresa, DdlCliente.SelectedValue.ToEntero(), DdlVendedor.SelectedValue.ToEntero(), TxtPrecio.Text.ToDecimal(), CveEstatus, UsuarioActual.CveUsuario, CveTipoAutorizacion, TipoDocto, DiasVencidos, Motivo:=Motivo) Then
If ObjPS.AddAutorizacionLimite(UsuarioActual.CveEmpresa, DdlCliente.SelectedValue.ToEntero(), DdlVendedor.SelectedValue.ToEntero(), TxtPrecio.Text.ToDecimal(), CveEstatus, UsuarioActual.CveUsuario, CveTipoAutorizacion, TipoDocto, DiasVencidos, Motivo:=Motivo, PorcentajeDescuento:=TxtPorcentaje.Text.ToDecimal()) Then
RegistraScript("$('#DModal').modal('hide')")
Alert("La autorización se agregó correctamente.", TipoMensaje.MsgInformacion)
End If
@@ -174,12 +174,21 @@ Partial Class Ventas_CatAutorizacionLimites
e.Row.FCLinkButton("LnkAutorizar").Visible = False
e.Row.FCLinkButton("LnkRechazar").Visible = False
End If
If e.Row.DBCampo("TipoDocumento") = "Ingreso" Then
e.Row.FCLabel("LblTipo").CssClass = "label label-sm label-success"
Else
e.Row.FCLabel("LblTipo").CssClass = "label label-sm label-warning"
End If
If e.Row.DBCampo("TipoAutorizacion") = "1" Then
e.Row.FCLabel("LblTipoAuto").CssClass = "badge badge-success"
ElseIf e.Row.DBCampo("TipoAutorizacion") = "2" Then
e.Row.FCLabel("LblTipoAuto").CssClass = "badge badge-primary"
ElseIf e.Row.DBCampo("TipoAutorizacion") = "3" Then
e.Row.FCLabel("LblTipoAuto").CssClass = "badge badge-secondary"
End If
'If e.Row.DBCampo("Estatus") = "True" Then
' e.Row.Cells(1).ForeColor = Drawing.Color.Green
' e.Row.Cells(1).Font.Bold = True
@@ -281,6 +290,7 @@ Partial Class Ventas_CatAutorizacionLimites
Protected Sub DdlTipoAutorizacion_SelectedIndexChanged(sender As Object, e As EventArgs)
DivImporte.Visible = DdlTipoAutorizacion.SelectedValue.ToEntero() = 1
DivDiasVencidos.Visible = DdlTipoAutorizacion.SelectedValue.ToEntero() = 2
DivPorcentajeDescuento.Visible = DdlTipoAutorizacion.SelectedValue.ToEntero() = 3
UpModal.Update()
End Sub
Protected Sub DdlCliente_SelectedIndexChanged(sender As Object, e As EventArgs)
@@ -299,14 +309,30 @@ Partial Class Ventas_CatAutorizacionLimites
Dim TipoDocto As String = DdlTipoDocto.SelectedValue.ToString()
Select Case TipoDocto
Case "Ing"
If DdlTipoAutorizacion.Items.FindByValue("1") Is Nothing Then
DdlTipoAutorizacion.Items.Insert(0, New ListItem("Importe", "1"))
End If
If DdlTipoAutorizacion.Items.FindByValue("2") Is Nothing Then
DdlTipoAutorizacion.Items.Insert(0, New ListItem("Vencimiento", "2"))
End If
DdlTipoAutorizacion.Items.Remove(DdlTipoAutorizacion.Items.FindByValue("3"))
DivMotivo.Visible = False
Case "Egs"
If DdlTipoAutorizacion.Items.FindByValue("1") Is Nothing Then
DdlTipoAutorizacion.Items.Insert(0, New ListItem("Importe", "1"))
End If
'QUITAR LA DE VENCIMIENTO
DdlTipoAutorizacion.Items.Remove(DdlTipoAutorizacion.Items.FindByValue("2"))
'QUITAR LA DE DESCUENTO
DdlTipoAutorizacion.Items.Remove(DdlTipoAutorizacion.Items.FindByValue("3"))
DivMotivo.Visible = True
Case "Rem"
If DdlTipoAutorizacion.Items.FindByValue("3") Is Nothing Then
DdlTipoAutorizacion.Items.Insert(0, New ListItem("Porcentaje Descuento", "3"))
End If
DdlTipoAutorizacion.Items.Remove(DdlTipoAutorizacion.Items.FindByValue("1"))
DdlTipoAutorizacion.Items.Remove(DdlTipoAutorizacion.Items.FindByValue("2"))
DivMotivo.Visible = False
End Select
UpModal.Update()
End Sub