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

--c orrección

Browse Source
This commit is contained in:
rrene
2024-12-22 09:20:29 -07:00
parent 5417e97e52
commit 5bde263ac5
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -700,7 +700,7 @@ Partial Class Inventarios_EntregaAlmacen
LtlRegistra.Text = drvs("VendedorNombre").ToString LtlRegistra.Text = drvs("VendedorNombre").ToString
If drvs("Saldo").ToString.ToDecimal > 0 AndAlso drvs("CondicionesPago").ToString = "0" Then If drvs("Saldo").ToString.ToDecimal > 0 AndAlso (drvs("CondicionesPago").ToString = "0" Or drvs("TipoDocto").ToString = "Rem") Then
Alert("El documento NO se encuentra pagado", TipoMensaje.MsgError) Alert("El documento NO se encuentra pagado", TipoMensaje.MsgError)
BtnGuardar.Visible = False BtnGuardar.Visible = False
End If End If
@@ -4639,7 +4639,7 @@ Partial Class Inventarios_EntregaAlmacen
Dim Respuesta As Boolean = True Dim Respuesta As Boolean = True
Dim CveOSEstatusFinalizada As Integer = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 5").ToEntero ' estatus cancelado Dim CveOSEstatusFinalizada As Integer = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 4").ToEntero ' estatus cancelado
If CveOSEstatusFinalizada > 0 Then If CveOSEstatusFinalizada > 0 Then