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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2021-05-05 18:38:44 -07:00
parent 3605c3849e d1d89364d8
commit 65de982159
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Compras/Compras.aspx.vb
View File

@@ -1358,7 +1358,7 @@ Partial Class Compras_Compras
If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") 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
RegistraScript("$('#ImgBtnBuscarOC').click()") RegistraScript("$('#ImgBtnBuscarOC').click()")
End If End If
End If End If
@@ -4083,9 +4083,15 @@ Partial Class Compras_Compras
'Verifica funcionalidad 128 "Require orden de compra para factura de compra" 'Verifica funcionalidad 128 "Require orden de compra para factura de compra"
Dim EsViatico As Boolean = False
If RBLPago.SelectedValue.ToEntero = 3 AndAlso RBLContado.SelectedValue.ToEntero = 2 AndAlso TxtNumeroReembolso.Text.Length > 0 AndAlso DdlPersonalReembolso.SelectedValue.ToEntero > 0 Then
EsViatico = True
End If
If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") 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 Not EstaAsociadoACajaChica And Not EstaAsociadoAPersonal Then If Not EstaAsociadoACajaChica And Not EstaAsociadoAPersonal And Not EsViatico 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")
Exit Sub Exit Sub