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

-- correción bloqueo de facturación de remisiones, no surtidad E119

Browse Source
This commit is contained in:
rrene
2023-09-22 11:40:34 -07:00
parent 15948394d8
commit bbadfab58e
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Ventas/Ventas.aspx.vb
View File

@@ -5031,7 +5031,7 @@ Partial Class Ventas
If Not HplSaldoAuxiliar.Text.ToDouble > 0 Then If Not HplSaldoAuxiliar.Text.ToDouble > 0 Then
HplSaldoAuxiliar.Visible = False HplSaldoAuxiliar.Visible = False
HplPagado.Visible = True HplPagado.Visible = True
Dim EsCancelado = GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {CveEstatus}").ToEntero() = 5 Dim EsCancelado As Boolean = GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {CveEstatus}").ToEntero() = 5
If EsCancelado Then If EsCancelado Then
HplPagado.Text = "<b>CANCELADO<b>" HplPagado.Text = "<b>CANCELADO<b>"
End If End If
@@ -5184,7 +5184,7 @@ Partial Class Ventas
DdlTipoRetencion.Visible = True DdlTipoRetencion.Visible = True
End If End If
If TmpDT IsNot Nothing Then If TmpDT IsNot Nothing Then
Dim PorcentajeRetIVA = (TmpDT.MAX("PorcentajeRetIVA").ToDecimal() * 100) Dim PorcentajeRetIVA As Decimal = (TmpDT.MAX("PorcentajeRetIVA").ToDecimal() * 100)
LblRetIVA.Text = PorcentajeRetIVA.FormatoNumero(2) LblRetIVA.Text = PorcentajeRetIVA.FormatoNumero(2)
End If End If
@@ -5575,10 +5575,11 @@ Partial Class Ventas
BtnsFacturar.Visible = True BtnsFacturar.Visible = True
'E119, bloquear la facturación de remisiones que no estén surtidas 'E119, bloquear la facturación de remisiones que no estén surtidas
If UsuarioActual.CveEmpresa = 119 AndAlso DbRowVenta("SaldoAlmacen").ToString.ToDecimal = 0 Then If UsuarioActual.CveEmpresa = 119 Then
BtnsFacturar.Visible = False If TmpDT.SUM("Cantidad") <> TmpDT.SUM("CantidadInventario") Then 'que ya esté surtida totalmente
BtnsFacturar.Visible = False
End If
End If End If
LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274) LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274)
'ACTIVA CONVERSION DE MONEDA 'ACTIVA CONVERSION DE MONEDA