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

-- nuevo proceso, para bloquear registro cuando no viene del xml-efacturas

Browse Source
This commit is contained in:
rrene
2023-09-28 08:22:00 -07:00
parent ac94d0139a
commit 8ada153c34
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Compras/Compras.aspx.vb
View File

@@ -1348,6 +1348,7 @@ Partial Class Compras_Compras
End If End If
If UsuarioActual.TienePermisoProceso(360) Then BtnProrateoDeducible.Visible = True If UsuarioActual.TienePermisoProceso(360) Then BtnProrateoDeducible.Visible = True
If UsuarioActual.TienePermisoProceso(365) AndAlso IfNull(Request("CveFactura"), "").ToString = "" Then BtnGuardar.Visible = False
If Not CveCompra > 0 Then LIContratos.Visible = True If Not CveCompra > 0 Then LIContratos.Visible = True
@@ -2344,7 +2345,7 @@ Partial Class Compras_Compras
End If End If
End If End If
Dim SubTotalIEPS = TmpDT.SUM("Total").ToString.ToDecimal Dim SubTotalIEPS As Decimal = TmpDT.SUMD("Total")
SubTotal = Math.Round(SubTotalIEPS, 2) SubTotal = Math.Round(SubTotalIEPS, 2)
SubTotalConceptos = Math.Round(SubTotalIEPS, 2) SubTotalConceptos = Math.Round(SubTotalIEPS, 2)
@@ -9444,7 +9445,7 @@ Partial Class Compras_Compras
If ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 Then If ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 Then
Dim Entro As Boolean = False Dim Entro As Boolean = False
For Each Documento In ListaDocumentos For Each Documento As String In ListaDocumentos
If e.Row.DBCampo("UUID").ToString = Documento Then If e.Row.DBCampo("UUID").ToString = Documento Then
Entro = True Entro = True
End If End If
@@ -9685,7 +9686,7 @@ Partial Class Compras_Compras
End Sub End Sub
Private Function notienepresupuesto() As Boolean Private Function notienepresupuesto() As Boolean
Dim notienerecursos = False Dim notienerecursos As Boolean = False
Dim SinRecursos As New StringBuilder Dim SinRecursos As New StringBuilder
SinRecursos.AppendFormat("No se cuenta con los Recursos Suficientes en los siguientes subproyectos ") SinRecursos.AppendFormat("No se cuenta con los Recursos Suficientes en los siguientes subproyectos ")
Dim subproyectosSr As New List(Of Integer) Dim subproyectosSr As New List(Of Integer)
@@ -17792,7 +17793,7 @@ Partial Class Compras_Compras
Dim ObjCompras As New ClsCompras Dim ObjCompras As New ClsCompras
Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL) Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL)
Dim TieneError = False Dim TieneError As Boolean = False
For Each Gvr As GridViewRow In GVNCInv.Rows For Each Gvr As GridViewRow In GVNCInv.Rows
If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then