From 3f5c767b7373d63fe22e4fe0ddd848e3a96e9c4f Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 15 May 2023 11:59:07 -0700 Subject: [PATCH] validaciones de tipocontabilidad --- Compras/ReembolsosComprobaciones.aspx.vb | 37 ++++++++++++++---------- 1 file changed, 22 insertions(+), 15 deletions(-) diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index ce8b4b94f..0cbbb003f 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -891,35 +891,42 @@ Partial Class Compras_ReembolsosComprobaciones 'Conta ContPAQ AUTOMATICA If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError.Trim = "" Then If CvePrePolizaIERegistrado > 0 Then - If IdCtaPersonal > 0 Or DdlCajaChica.Visible Then - If IdCtaProveedor > 0 Then - - If ObjMov.ContabilizarPrePoliza(CvePrePolizaIERegistrado, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then + If UsuarioActual.Empresa.TipoContabilidad = 2 Then + If IdCtaPersonal > 0 Or DdlCajaChica.Visible Then + If IdCtaProveedor > 0 Then + If Not ObjMov.ContabilizarPrePoliza(CvePrePolizaIERegistrado, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then + MsgError = "Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico" + End If Else - MsgError = "Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico" + MsgError = "No tiene cuenta contable de proveedor" End If Else - MsgError = "No tiene cuenta contable de proveedor" + MsgError = "No tiene cuenta contable de personal" End If Else - MsgError = "No tiene cuenta contable de personal" + If Not ObjMov.ContabilizarPrePoliza(CvePrePolizaIERegistrado, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then + MsgError = "Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico" + End If End If End If If ChkChequeExcedente.Checked Then - If IdCuentaBancaria > 0 Then - If IdCtaProveedor > 0 Then - - If ObjMov.ContabilizarPrePoliza(CvePrePolizaExcedente, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then + If UsuarioActual.Empresa.TipoContabilidad = 2 Then + If IdCuentaBancaria > 0 Then + If IdCtaProveedor > 0 Then + If Not ObjMov.ContabilizarPrePoliza(CvePrePolizaIERegistrado, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then + MsgError = "Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico" + End If Else - MsgError = "Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico" + MsgError = "No tiene cuenta contable de proveedor" End If - Else - MsgError = "No tiene cuenta contable de proveedor" + MsgError = "No tiene cuenta contable de personal" End If Else - MsgError = "No tiene Cuenta contable Bancaria" + If Not ObjMov.ContabilizarPrePoliza(CvePrePolizaIERegistrado, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then + MsgError = "Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico" + End If End If End If End If