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() Dim CveSubProyectoPrincipal As Integer = AsignarSubProyectoPrincipal()
If Not CveSubProyectoPrincipal > 0 Then 'If Not CveSubProyectoPrincipal > 0 Then
Alert("Falta asignar Proyecto a la compra", TipoMensaje.MsgAdvertencia) ' Alert("Falta asignar Proyecto a la compra", TipoMensaje.MsgAdvertencia)
End If 'End If
If Not ValidaVinculacionNotaFactura() Then If Not ValidaVinculacionNotaFactura() Then
Alert("Se requiere que la nota este aplicada a las facturas", TipoMensaje.MsgAdvertencia) 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 For Each Row As DataRow In TmpDT.Rows
'VALIDACION DE CENTRO DE COSTO 'VALIDACION DE CENTRO DE COSTO
If UsuarioActual.Empresa.RequiereCentroCostos AndAlso Row("CveSubProyecto").ToString.ToEntero <= 0 Then 'If UsuarioActual.Empresa.RequiereCentroCostos AndAlso Row("CveSubProyecto").ToString.ToEntero <= 0 Then
RequiereCentroCosto = True ' RequiereCentroCosto = True
UM.Dispose() ' UM.Dispose()
PSS.Dispose() ' PSS.Dispose()
Alert("Falta asignar Proyecto a la compra", TipoMensaje.MsgAdvertencia) ' Alert("Falta asignar Proyecto a la compra", TipoMensaje.MsgAdvertencia)
Exit Sub ' Exit Sub
End If 'End If
'REGISTRO LAS UNIDADES DE MEDIDA 'REGISTRO LAS UNIDADES DE MEDIDA
If Row("CveUM").ToString.ToEntero = 0 Then 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) 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 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 End If
Else Else
'si ya existe, obtenemos la prepóliza 'si ya existe, obtenemos la prepóliza
CvePreComprobacion = ObjCompras.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero 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 End If
ObjConta.PrePolizaUnificacion(CvePreComprobacion, CvePrePoliza) ObjConta.PrePolizaUnificacion(CvePreComprobacion, CvePrePoliza)
@@ -8074,8 +8082,8 @@ Partial Class Compras_Compras
Else Else
ObjCompras.RollBack() ObjCompras.RollBack()
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack() If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError) ' Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
End If End If
End If End If
@@ -8194,7 +8202,6 @@ Partial Class Compras_Compras
End If End If
Next Next
If DTSubProyectoPrincipal.Rows.Count > 0 Then If DTSubProyectoPrincipal.Rows.Count > 0 Then
DTSubProyectoPrincipal = DTSubProyectoPrincipal.FiltraParametros("", "Total DESC ") DTSubProyectoPrincipal = DTSubProyectoPrincipal.FiltraParametros("", "Total DESC ")
CveSubProyectoPrincioal = DTSubProyectoPrincipal.FiltroPrimeroValor("CveSubProyecto").ToEntero CveSubProyectoPrincioal = DTSubProyectoPrincipal.FiltroPrimeroValor("CveSubProyecto").ToEntero