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

Proveedores Abonar correcion saldado, proveedores correccion cuentas bancarias agregar alcreear proveedor

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-02-25 08:31:18 -07:00
parent 7c8a589281
commit d0bd171824
3 changed files with 60 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
App_Code/ClsGenerales.vb
View File

@@ -3,6 +3,7 @@ Option Explicit On
Imports System.Data
Imports System.Data.SqlClient
Imports Extensiones
Imports Stimulsoft.Base.Analysis
Public Class ClsGenerales
Implements IDisposable
@@ -1621,7 +1622,14 @@ Public Class ClsGenerales
' Me.OnError("Ocurrió un error al Guardar el registro.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
' End If
Catch ex As Exception
If ex.Message.Contains("IX_Gral_CuentasDepositos_CLABE") Then
OnError($"Ocurrió un error al Guardar la cuenta, la CLABE {CLABE} ya esta registrada en otra cuenta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
Else
OnError("Ocurrió un error al Guardar la cuenta", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End If
End Try
Return Retorno
@@ -1678,11 +1686,21 @@ Public Class ClsGenerales
Catch Ex1 As SqlException
If Ex1.Message.Contains("Número: 2627;") Then
Alert("Ya existe un registro con el mismo nombre", TipoMensaje.MsgAdvertencia)
ElseIf Ex1.Message.Contains("IX_Gral_CuentasDepositos_CLABE") Then
OnError($"Ocurrió un error al actualizar la cuenta, la CLABE {CLABE} ya esta registrada en otra cuenta.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
Else
Me.OnError("Ocurrió un error al guardar los cambios", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If
Catch ex As Exception
If ex.Message.Contains("IX_Gral_CuentasDepositos_CLABE") Then
OnError($"Ocurrió un error al actualizar la cuenta, la CLABE {CLABE} ya esta registrada en otra cuenta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
Else
OnError("Ocurrió un error al guardar los cambios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End If
End Try
Return Retorno
@@ -1728,11 +1746,18 @@ Public Class ClsGenerales
Catch Ex1 As SqlException
If Ex1.Message.Contains("Número: 2627;") Then
Alert("Ya existe un registro con el mismo nombre", TipoMensaje.MsgAdvertencia)
ElseIf Ex1.Message.Contains("IX_Gral_CuentasDepositos_CLABE") Then
OnError($"Ocurrió un error al actualizar la cuenta, la CLABE {CLABE} ya esta registrada en otra cuenta.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
Else
Me.OnError("Ocurrió un error al guardar los cambios", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If
Catch ex As Exception
If ex.Message.Contains("IX_Gral_CuentasDepositos_CLABE") Then
OnError($"Ocurrió un error al actualizar la cuenta, la CLABE {CLABE} ya esta registrada en otra cuenta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
Else
OnError("Ocurrió un error al guardar los cambios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End If
End Try
Return Retorno

10
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -1939,13 +1939,17 @@ Partial Class Bancos_ProveedoresAbonar
End If
End If
End If
Next
If MsgError.Trim.Length = 0 AndAlso CvePrePoliza > 0 Then
If MsgError = "" AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
If ObjConta.ValorPolizaDescuadre > 0 Then
MsgError = ObjConta.MensajePolizaDescuadre + " " + ObjConta.ValorDiferencia
GuardaLogAD($"Bancos/ProveedoresAbonar | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
Exit For
Else
If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
@@ -1959,9 +1963,7 @@ Partial Class Bancos_ProveedoresAbonar
End If
End If
End If
Next

17
Compras/Proveedores.aspx.vb
View File

@@ -3123,15 +3123,22 @@ Partial Class Compras_Proveedores
Alert("No se pudieron cargar las cuentas bancarias. Por favor intente nuevamente.", TipoMensaje.MsgAdvertencia)
End If
ObjCuentasBancos.Dispose()
Else
'SE USA CUANDO SE REGISTRA UN PROVEEDOR NUEVO
'ESTE ELSE ES PARA OBTENER LA ESTRUCTURA DE LA TABLA
Dim ObjCuentasBancos As New ClsGenerales
If ObjCuentasBancos.GetCuentasDepositos(0, CveEmpresa:=-2) Then
DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados)
Else
Alert("No se pudieron cargar las cuentas bancarias. Por favor intente nuevamente.", TipoMensaje.MsgAdvertencia)
End If
ObjCuentasBancos.Dispose()
End If
If CveProveedor < 0 Then
'Alert("No hay proveedor", TipoMensaje.MsgInformacion)
TempDTCuentasBancos = DTCuentasBancos.Clone
End If
CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
End Sub