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

funcionalidad 128,. corrección

Browse Source
This commit is contained in:
rrene
2021-04-06 21:34:28 -07:00
parent a2c6a75f9c
commit 63dcf47d0c
1 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Compras/Compras.aspx.vb
View File

@@ -1355,7 +1355,7 @@ Partial Class Compras_Compras
GvInv.Visible = True GvInv.Visible = True
CargaProveedor(-1, RFC) CargaProveedor(-1, RFC)
If Not DdlTipoComprobante.SelectedValue = "NC" Then If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
If UsuarioActual.Empresa.Funcionalidad(128) = "1" And Not UsuarioActual.TienePermisoProceso(213) Then If UsuarioActual.Empresa.Funcionalidad(128) = "1" And Not UsuarioActual.TienePermisoProceso(213) Then
If TmpDT.MAX("CvePS").ToEntero > 0 Then If TmpDT.MAX("CvePS").ToEntero > 0 Then
BtnGuardar.Enabled = False BtnGuardar.Enabled = False
@@ -4060,9 +4060,10 @@ Partial Class Compras_Compras
' DtNoEncontrados.Dispose() ' DtNoEncontrados.Dispose()
'End If 'End If
'Verifica funcionalidad 702 "Require orden de compra para factura de compra" 'Verifica funcionalidad 128 "Require orden de compra para factura de compra"
If UsuarioActual.Empresa.Funcionalidad(128) <> "" Then If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
If UsuarioActual.Empresa.Funcionalidad(128) = "1" And Not UsuarioActual.TienePermisoProceso(213) Then
If Not EstaAsociadoACajaChica And Not EstaAsociadoAPersonal Then If Not EstaAsociadoACajaChica And Not EstaAsociadoAPersonal Then
If Not CompraEstaVinculadaOC Then If Not CompraEstaVinculadaOC Then
Alert("Debe de vincular una orden de compra para registrar la factura") Alert("Debe de vincular una orden de compra para registrar la factura")
@@ -4070,6 +4071,7 @@ Partial Class Compras_Compras
End If End If
End If End If
End If End If
End If
'Si se marcó No Deducible en el encabezado mínimo se debe registrar un No Deducible en el Detalle 'Si se marcó No Deducible en el encabezado mínimo se debe registrar un No Deducible en el Detalle
Dim GuardaNoDeducibles As Boolean = False Dim GuardaNoDeducibles As Boolean = False