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

registro de campos en el detalle de bitacora al eliminar

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-05-28 13:31:32 -07:00
parent 8bbeb85cf5
commit 4da248bb2d
1 changed files with 18 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Bancos/IE.aspx.vb
View File

@@ -720,7 +720,7 @@ Partial Class Bancos_IE
Cuenta = ObjIE.DtResultados(0)("NumCuenta").ToString Cuenta = ObjIE.DtResultados(0)("NumCuenta").ToString
CveIEDeposito2 = ObjIE.DtResultados(0)("CveIEDeposito2").ToString.ToEntero CveIEDeposito2 = ObjIE.DtResultados(0)("CveIEDeposito2").ToString.ToEntero
NumComplementos = ObjIE.DtResultados(0)("NumComplementos").ToString.ToEntero 'NumComplementos = ObjIE.DtResultados(0)("NumComplementos").ToString.ToEntero
If UsuarioActual.TienePermisoProceso(99) Then If UsuarioActual.TienePermisoProceso(99) Then
'BtnActualizar.Visible = True 'BtnActualizar.Visible = True
@@ -4748,7 +4748,23 @@ Partial Class Bancos_IE
Dim Banc As New ClsBancos Dim Banc As New ClsBancos
Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL()) Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL())
Dim ObjGral As New ClsGenerales(Banc.IniciaTransacSQL()) Dim ObjGral As New ClsGenerales(Banc.IniciaTransacSQL())
If ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Banco", TxtFolio.Text + " / " + Cuenta) Then
Dim DescripcionAus As String = TxtDescripcion.Text
If DdlTipoTransaccion.SelectedItem.Text <> "Seleccione Tipo Movimiento" Then DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Movimiento:{DdlTipoTransaccion.SelectedItem.Text}")
If DdlCuenta.SelectedItem.Text <> "Seleccione" Then DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Cuenta:{DdlCuenta.SelectedItem.Text}")
If TxtFolio.Text <> "" Then DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Número:{TxtFolio.Text}")
If TxtImporte.Text <> "" AndAlso TxtImporte.Text <> "0" Then DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Importe:{TxtImporte.Text}")
If DdlCliente.Visible Then
DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Páguese A:{DdlCliente.SelectedText}")
ElseIf DdlProveedores.Visible Then
DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Páguese A:{DdlProveedores.SelectedText}")
ElseIf DdlPersonal.Visible Then
DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Páguese A:{DdlPersonal.SelectedItem.Text}")
End If
DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Fecha:{TxtFechaDocumento.Text}")
If ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, DescripcionAus, "Banco", TxtFolio.Text + " / " + Cuenta) Then
Borrar = True Borrar = True
End If End If