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

-- validación de que la póliza de comprobación no esté contabilizada

Browse Source
This commit is contained in:
rrene
2025-05-07 20:31:43 -07:00
parent 8617753212
commit f77917731d
1 changed files with 21 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
Compras/Compras.aspx.vb
View File

@@ -4526,9 +4526,9 @@ Partial Class Compras_Compras
Dim CveSubProyectoPrincipal As Integer = AsignarSubProyectoPrincipal()
If Not CveSubProyectoPrincipal > 0 Then
Alert("Falta asignar Proyecto a la compra", TipoMensaje.MsgAdvertencia)
End If
'If Not CveSubProyectoPrincipal > 0 Then
' Alert("Falta asignar Proyecto a la compra", TipoMensaje.MsgAdvertencia)
'End If
If Not ValidaVinculacionNotaFactura() Then
Alert("Se requiere que la nota este aplicada a las facturas", TipoMensaje.MsgAdvertencia)
@@ -4868,13 +4868,13 @@ Partial Class Compras_Compras
For Each Row As DataRow In TmpDT.Rows
'VALIDACION DE CENTRO DE COSTO
If UsuarioActual.Empresa.RequiereCentroCostos AndAlso Row("CveSubProyecto").ToString.ToEntero <= 0 Then
RequiereCentroCosto = True
UM.Dispose()
PSS.Dispose()
Alert("Falta asignar Proyecto a la compra", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
'If UsuarioActual.Empresa.RequiereCentroCostos AndAlso Row("CveSubProyecto").ToString.ToEntero <= 0 Then
' RequiereCentroCosto = True
' UM.Dispose()
' PSS.Dispose()
' Alert("Falta asignar Proyecto a la compra", TipoMensaje.MsgAdvertencia)
' Exit Sub
'End If
'REGISTRO LAS UNIDADES DE MEDIDA
If Row("CveUM").ToString.ToEntero = 0 Then
@@ -7967,11 +7967,19 @@ Partial Class Compras_Compras
CvePreComprobacion = ObjConta.AddPrePolizas("Compras Comproba", 1, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If ObjCompras.AddComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, CvePreComprobacion, UsuarioActual.CveEmpresa) > 0 Then
Alert("Apertura de nueva comprobación.", TipoMensaje.ToastInformacion)
End If
Else
'si ya existe, obtenemos la prepóliza
CvePreComprobacion = ObjCompras.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero
If ObjCompras.DtResultados.FiltroPrimeroValor("FolioPoliza").ToEntero > 0 Then
TieneError = True
ErrorPrepoliza = True
Alert($"La Comprobación con folio '{TxtNumeroReembolso.Text.Trim}' está previamente contabilizada. No se puede asociar.", TipoMensaje.MsgError)
Else
Alert("Factura agregada a una comprobación ya creada.", TipoMensaje.ToastInformacion)
End If
End If
ObjConta.PrePolizaUnificacion(CvePreComprobacion, CvePrePoliza)
@@ -8074,8 +8082,8 @@ Partial Class Compras_Compras
Else
ObjCompras.RollBack()
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
End If
' Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
End If
End If
@@ -8194,7 +8202,6 @@ Partial Class Compras_Compras
End If
Next
If DTSubProyectoPrincipal.Rows.Count > 0 Then
DTSubProyectoPrincipal = DTSubProyectoPrincipal.FiltraParametros("", "Total DESC ")
CveSubProyectoPrincioal = DTSubProyectoPrincipal.FiltroPrimeroValor("CveSubProyecto").ToEntero