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

-- considerar la opción NC: que no afecte almacen.

Browse Source
This commit is contained in:
rrene
2025-02-27 12:25:22 -07:00
parent 80c225143d
commit df21e26eab
1 changed files with 10 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
Compras/Compras.aspx.vb
View File

@@ -4399,14 +4399,14 @@ Partial Class Compras_Compras
'------------------ INICIA VALIDACIONES ------------------ '------------------ INICIA VALIDACIONES ------------------
If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso UsuarioActual.CveUsuario <> 1803 Then 'If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso UsuarioActual.CveUsuario <> 1803 Then
Dim AnioFactura As Integer = TxtFecha.Text.ToDate.Year ' Dim AnioFactura As Integer = TxtFecha.Text.ToDate.Year
Dim Fecha28Dic As Date = New Date(2024, 12, 28) ' Dim Fecha28Dic As Date = New Date(2024, 12, 28)
If NowADS() >= Fecha28Dic AndAlso TxtFecha.Text.ToDate.Year < 2025 Then ' If NowADS() >= Fecha28Dic AndAlso TxtFecha.Text.ToDate.Year < 2025 Then
Alert("A partir del 28 de diciembre de 2024 no se pueden registrar facturas de 2024.", TipoMensaje.MsgAdvertencia) ' Alert("A partir del 28 de diciembre de 2024 no se pueden registrar facturas de 2024.", TipoMensaje.MsgAdvertencia)
Exit Sub ' Exit Sub
End If ' End If
End If 'End If
If Not ValidaPresupuesto(2) Then If Not ValidaPresupuesto(2) Then
Exit Sub Exit Sub
@@ -6500,7 +6500,7 @@ Partial Class Compras_Compras
Dim AgregaMercanciaInventario As Boolean = UsuarioActual.Empresa.UsaInventarios Dim AgregaMercanciaInventario As Boolean = UsuarioActual.Empresa.UsaInventarios
If UsuarioActual.CveEmpresa.Contiene(13, 83, 7, 11, 12, 122) Then AgregaMercanciaInventario = False If UsuarioActual.CveEmpresa.Contiene(13, 83, 7, 11, 12, 122) Then AgregaMercanciaInventario = False
Dim RegistraConcepto225 As Boolean = AgregaMercanciaInventario AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Dim RegistraConcepto225 As Boolean = AgregaMercanciaInventario AndAlso DdlTipoComprobante.SelectedValue.Contiene("DEV")
Dim Insertado205 As Boolean = False Dim Insertado205 As Boolean = False
@@ -7526,7 +7526,6 @@ Partial Class Compras_Compras
Next Next
importeMovimiento = 0 importeMovimiento = 0
End If End If
End Select End Select
If ErrorPrepoliza Then If ErrorPrepoliza Then
@@ -18220,7 +18219,7 @@ Partial Class Compras_Compras
Case "U" 'UPDATE Case "U" 'UPDATE
UpdatePS(CveContratoDetalle) UpdatePS(CveContratoDetalle)
Alert("Concepto actualizado Correctamente.", TipoMensaje.MsgInformacion) Alert("Concepto actualizado Correctamente.", TipoMensaje.ToastInformacion)
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddProducto")) RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddProducto"))
End Select End Select
ActualizaTotales = False ActualizaTotales = False
@@ -18232,13 +18231,8 @@ Partial Class Compras_Compras
GuardaAC() GuardaAC()
End If End If
If CveCompra > 0 AndAlso ChkModalDesvincularAF.Checked Then If CveCompra > 0 AndAlso ChkModalDesvincularAF.Checked Then
If Not TmpDT.Columns.Contains("DesvicularAF") Then If Not TmpDT.Columns.Contains("DesvicularAF") Then
TmpDT.Columns.Add("DesvicularAF", GetType(Boolean)) TmpDT.Columns.Add("DesvicularAF", GetType(Boolean))
End If End If
@@ -18492,7 +18486,6 @@ Partial Class Compras_Compras
Exit Sub Exit Sub
End Try End Try
'BANDERA 'BANDERA
Dim AplicaCalculaTotales As Boolean = False Dim AplicaCalculaTotales As Boolean = False