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

-- poder desconciliar cuando es caja chica

Browse Source
This commit is contained in:
rrene
2023-08-24 18:32:03 -07:00
parent 637fdc63e9
commit 5779bca485
3 changed files with 24 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
App_Code/ClsBancos.vb
View File

@@ -717,6 +717,7 @@ Public Class ClsBancos
Me.CveBanco = Data.Rows(0)("CveBanco").ToString.ToEntero
Me.Banco = Data.Rows(0)("Banco").ToString
Me.NumCuenta = Data.Rows(0)("NumCuenta").ToString
Me.CveTipoCuenta = Data.Rows(0)("CveTipoCuenta").ToString.ToEntero
Me.CveTipoTransaccion = Data.Rows(0)("CveTipoTransaccion").ToString.ToEntero
Me.Tipo = Data.Rows(0)("Tipo").ToString
Me.TipoTransaccion = Data.Rows(0)("TipoTransaccion").ToString

7
Bancos/IE.aspx
View File

@@ -770,10 +770,7 @@
<asp:RequiredFieldValidator ID="RFVTipoDocto" runat="server" ControlToValidate="TxtTipoDocto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''TipoDocto del IE''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCETipoDocto" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoDocto" Width="300px"></ajax:ValidatorCalloutExtender>
</td>
</tr>--%>
</tr>--%>
<tr>
<td>Fecha Aplicación</td>
<td>
@@ -792,7 +789,7 @@
<ajax:ValidatorCalloutExtender ID="VCOFechaAplicado1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaAplicado" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="VCOFechaAplicado2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaAplicado" Width="350px"></ajax:ValidatorCalloutExtender>
--%>
<asp:LinkButton runat="server" Visible="false" ID="LnkDesconciliar" OnClick="LnkDesconciliar_Click" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea desconciliar?" data-btn-ok-label="si" Text="<i class='fa fa-check' style='color:green'></i>" CssClass="btn btn-default btn-circle btn-xs" ToolTip="Desconciliar" />
</td>
</tr>
<tr>

26
Bancos/IE.aspx.vb
View File

@@ -1026,6 +1026,8 @@ Partial Class Bancos_IE
If UsuarioActual.TienePermisoProceso(154) AndAlso ObjIE.CveUsuario = UsuarioActual.CveUsuario And Not ObjIE.IDPoliza > 0 AndAlso NumComplementos = 0 Then
LnkEliminar.Visible = True
End If
Else
If UsuarioActual.TienePermisoProceso(80) AndAlso ObjIE.CveTipoCuenta = 1 Then LnkDesconciliar.Visible = True
End If
If UsuarioActual.TienePermisoProceso(85) AndAlso Not ObjIE.FueConciliado Then LnkCancelar.Visible = True
@@ -5681,11 +5683,25 @@ Partial Class Bancos_IE
End If
End Sub
Protected Sub LnkDesconciliar_Click(sender As Object, e As EventArgs)
Dim ObjIE As New ClsBancos()
ObjIE.IniciaTransacSQL()
Dim OcurrioError As Boolean = False
If Not ObjIE.UpdateBancos_IEConciliado(False, MinFecha, 0, -1, UsuarioActual.CveUsuario, CveIE) Then
OcurrioError = True
End If
If OcurrioError Then
ObjIE.RollBack()
Alert("No se pudo realizar la desconciliación ", TipoMensaje.MsgAdvertencia)
Else
ObjIE.Commit()
Alert("Los movimientos se desconciliarion correctamente.", TipoMensaje.MsgInformacion)
End If
ObjIE.Dispose()
End Sub
End Class