--FIX descuentos

--refacturacion con pagos , func 382
--activar ps adicionales/similares E189
This commit is contained in:
2024-06-11 17:20:41 -07:00
parent 14a1e41999
commit 99ffb5b47e
2 changed files with 19 additions and 5 deletions

View File

@@ -25679,7 +25679,7 @@ Partial Class Ventas
Dim AplicaCancelacionConPagos As Boolean = False
If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Ing", "Rem") AndAlso Not EsRefacturacion AndAlso ObjFacturaCancelacion.Pagado > 0 Then
If (UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(382) = "1") AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Ing", "Rem") AndAlso Not EsRefacturacion AndAlso ObjFacturaCancelacion.Pagado > 0 Then
AplicaCancelacionConPagos = True
End If
@@ -38305,7 +38305,21 @@ Partial Class Ventas
If UsuarioAutorizar.TienePermisoProceso(374) Then
txtUserDesc.Text = ""
txtPassDesc.Text = ""
'UpAutorizarDesc.Update()
'ASIGNA EL PORCENTAJE A APLICAR DEL USUARIO QUE AUTORIZA
Dim RowUpdate As DataRow = TmpDT.Select($"Consec = {HdnConsecPS.Value}").FirstOrDefault()
If RowUpdate IsNot Nothing Then
Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=RowUpdate("CvePS").ToString().ToEntero()).FiltroPrimero("")
If DrPS IsNot Nothing Then
If DrPS("PorMaximoDescuento").ToString().ToDecimal() > 0 Then
HdnPorcentajeMaxDescPS.Value = DrPS("PorMaximoDescuento").ToString()
Else
HdnPorcentajeMaxDescPS.Value = UsuarioAutorizar.DescuentoAutorizado.ToString()
End If
End If
End If
UpDescPS.Update()
RegistraScript("$('#ModalPermisoDesc').modal('hide');$('#ModalDescPS').modal({backdrop: 'static', keyboard: false});", "AUT")
Else