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

Calculo de usados desde orden de servicio

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-01-04 16:12:21 -07:00
parent 1e9d5e37bc
commit 99953a6906
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Ventas/Ventas.aspx.vb
View File

@@ -4467,7 +4467,12 @@ Partial Class Ventas
OS.Dispose() OS.Dispose()
TxtTotal.Text = TmpDT.SUM("Total").FormatoNumero()
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
CalculaUsados()
End If
CalculaTotalesVenta(False)
GvPS.DataSource = TmpDT GvPS.DataSource = TmpDT
DtInv = TmpDT.Copy.FiltraParametros("CveTipoPS = 2") DtInv = TmpDT.Copy.FiltraParametros("CveTipoPS = 2")
@@ -34130,7 +34135,7 @@ Partial Class Ventas
Private Function DeshabilitarAplicarNotaDeCredito(RFC As String) As Boolean Private Function DeshabilitarAplicarNotaDeCredito(RFC As String) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
If UsuarioActual.CveEmpresa = 119 AndAlso RFC.Contiene("XAXX010101000", "XEXX010101000") Then If UsuarioActual.CveEmpresa = 119 AndAlso RFC.Contiene("XAXX010101000", "XEXX010101000") AndAlso UsuarioActual.CveUsuario <> 1719 Then
LBNotaCredito.Visible = False LBNotaCredito.Visible = False
UpnTools.Update() UpnTools.Update()
Retorno = True Retorno = True