ImporteDeduccionesPago, cuentas bancarias tarjetas

2023-09-06 23:15:54 -07:00
parent 96f09b3ab7
commit e072e9b499
10 changed files with 146 additions and 42 deletions
--- a/Bancos/CuentasBancariasDetalle.aspx
+++ b/Bancos/CuentasBancariasDetalle.aspx
@@ -80,6 +80,13 @@
                                                        <asp:RequiredFieldValidator ID="RFVTipoCuenta" runat="server" ControlToValidate="DdlTipoCuenta" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Cuenta''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                        <ajax:ValidatorCalloutExtender ID="VCOTipoCuenta" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoCuenta" Width="300px"></ajax:ValidatorCalloutExtender>
                                                    </td>
+                                                </tr>
+                                                   <tr>
+                                                       <td>Cuenta Padre:</td>
+                                                    <td>
+                                                        <asp:DropDownList ID="DdlCuentaPadre" runat="server" AppendDataBoundItems="true" AutoPostBack="true" CssClass="select2me" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="200px" >                                                            
+                                                        </asp:DropDownList>                                                        
+                                                    </td>
                                                </tr>
                                                <tr>
                                                    <td>Usa Tarjeta:</td>
--- a/Bancos/CuentasBancariasDetalle.aspx.vb
+++ b/Bancos/CuentasBancariasDetalle.aspx.vb
@@ -2,18 +2,22 @@
 Option Strict On

 Imports Extensiones
-Imports System.Runtime.InteropServices
-Imports System.IO
 Imports System.Data
-
+'Imports DocumentFormat.OpenXml.Office.CustomUI
+
 Partial Class Bancos_CuentasBancariasDetalle
-    Inherits ClsPaginas
-
-    'Configuración
+    Inherits ClsPaginas
+
+    'Configuración
 #Region "P R O P I E D A D E S"
    Private ReadOnly Property CveCuenta As Integer
-        Get
+        Get
+
+            If ViewState("CveCuenta") Is Nothing Then
+                ViewState("CveCuenta") = -1
+            End If
            Return ViewState("CveCuenta").ToString.ToEntero
+
        End Get
    End Property
    Private Property DTUsuarios As DataTable
@@ -23,14 +27,15 @@ Partial Class Bancos_CuentasBancariasDetalle
        Set(value As DataTable)
            ViewState("DTUsuarios") = value
        End Set
-    End Property
+    End Property
 #End Region
-
+
    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            CargarTipoCuenta()
            CargarBanco()
            CargarMoneda()
+            CargaCuentasPadre()
            ViewState("DTUsuarios") = Nothing

            Dim tablaUsuariosAux As DataTable = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre", DistinctColumns:={"CveUsuario", "Nombre", "Usuario"})
@@ -68,9 +73,36 @@ Partial Class Bancos_CuentasBancariasDetalle
            ActivarRegistroAutomatico()

        End If
-    End Sub
-
-
+    End Sub
+
+    Private Sub CargaCuentasPadre()
+
+        Dim DTCuentasPadre As New DataTable
+
+        DdlCuentaPadre.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveTipoCuenta:=-1).FiltraParametros($" CveCuenta <> {CveCuenta} ", "", {"CveCuenta", "NumCuentaMoneda"})
+
+        'Dim ObjBancos As New ClsBancos
+        'If ObjBancos.GetBancosCuentas(-1, UsuarioActual.CveEmpresa) Then
+        '    DTCuentasPadre = ObjBancos.DtResultados.FiltraParametros("", "", {"CveCuenta", "TipoCuenta", "Banco", "NumCuenta", "CLABE", "Moneda", "FInicial", "Estatus", "Fecha", "Usuario"})
+
+        '    If CveCuenta > 0 Then
+        '        DTCuentasPadre = DTCuentasPadre.FiltraParametros($" CveCuenta <> {CveCuenta} ")
+        '    End If
+
+        '    DdlCuentaPadre.DataSource = DTCuentasPadre
+
+        'Else
+        '    DdlCuentaPadre.DataSource = Nothing
+        'End If
+
+        'ObjBancos.Dispose()
+
+        DdlCuentaPadre.DataBind()
+        DdlCuentaPadre.Items.Insert(0, New ListItem("Sin Selección", "-1"))
+
+    End Sub
+
+
 #Region "  CARGA VALORES INICIALES  "
    Private Sub SetValues()
        ViewState("Orden") = ""
@@ -186,9 +218,10 @@ Partial Class Bancos_CuentasBancariasDetalle
                ChkUsaTarjeta.Checked = ObjCuentasBancariasDetalle.UsaTarjeta

                ChkTieneTerminal.Checked = ObjCuentasBancariasDetalle.TieneTerminal
-
                ChkUsaTarjeta_CheckedChanged(Nothing, Nothing)

+                DdlCuentaPadre.SelectedValueExist(ObjCuentasBancariasDetalle.CveCuentaPadre)
+
                trFinicial.Visible = False
                trLimiteCredito.Visible = True
                TxtLimiteCredito.Text = ObjCuentasBancariasDetalle.LimiteCredito.ToString
@@ -256,7 +289,7 @@ Partial Class Bancos_CuentasBancariasDetalle
            If ObjCuentasBancariasDetalle.AddBancosCuentas(DdlBanco.SelectedValue.ToEntero, DdlTipoCuenta.SelectedValue.ToEntero, TxtNumCuenta.Text.Trim,
                                                           TxtCLABE.Text.Trim, DdlMoneda.SelectedValue.ToEntero, 0, TxtFInicial.Text.Trim.ToEntero, 0, 0, TxtLimiteCredito.Text.Trim.ToDouble,
                                                            "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, If(ChkLayout.Checked, TxtConvenio.Text, ""), ChkLayout.Checked, ChkUsaTarjeta.Checked, UsaLayoutGrupos:=ChkLayoutGrupos.Checked,
-                                                           TieneTerminal:=ChkTieneTerminal.Checked) Then
+                                                           TieneTerminal:=ChkTieneTerminal.Checked, CveCuentaPadre:=DdlCuentaPadre.SelectedValue.ToEntero) Then
                ViewState("CveCuenta") = ObjCuentasBancariasDetalle.TCveCuenta
            Else
                ErrorUsuarios = True
@@ -289,7 +322,7 @@ Partial Class Bancos_CuentasBancariasDetalle
        Else
            If ObjCuentasBancariasDetalle.UpdateBancosCuentas(DdlBanco.SelectedValue.ToEntero, DdlTipoCuenta.SelectedValue.ToEntero, TxtNumCuenta.Text.Trim, TxtCLABE.Text.Trim, DdlMoneda.SelectedValue.ToEntero, 0, TxtFInicial.Text.Trim.ToEntero, 0, 0,
                                                              TxtLimiteCredito.Text.Trim.ToDouble, "", ChkEstatus.Checked, CveCuenta, TxtConvenio.Text,
-                                                              ChkLayout.Checked, ChkUsaTarjeta.Checked, UsaLayoutGrupos:=ChkLayoutGrupos.Checked, TieneTerminal:=ChkTieneTerminal.Checked) Then
+                                                              ChkLayout.Checked, ChkUsaTarjeta.Checked, UsaLayoutGrupos:=ChkLayoutGrupos.Checked, TieneTerminal:=ChkTieneTerminal.Checked, CveCuentaPadre:=DdlCuentaPadre.SelectedValue.ToEntero) Then
                'CargaDatos()
                GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
                'If ObjCuentasBancariasDetalle.GetBancosCuentasUsuarios(-1) Then
@@ -488,12 +521,18 @@ Partial Class Bancos_CuentasBancariasDetalle
        Dim CuentaContable = DirectCast(sender, Button).CommandArgument.ToString
        Dim Button = DirectCast(sender, Button)

-        Select Case CuentaContable
-            Case "CuentaContable"
-                AgregarCuentaContable(Button, DDlCuentaContable)
-            Case "CuentaContableComplementaria"
-                AgregarCuentaContable(Button, DdlCuentaContableComplementaria)
-        End Select
+        Try
+            Select Case CuentaContable
+                Case "CuentaContable"
+                    AgregarCuentaContable(Button, DDlCuentaContable)
+                Case "CuentaContableComplementaria"
+                    AgregarCuentaContable(Button, DdlCuentaContableComplementaria)
+            End Select
+        Catch ex As Exception
+
+        End Try
+
+
    End Sub

    Private Sub AgregarCuentaContable(btn As Button, ddl As DropDownList)
--- a/Bancos/IE.aspx
+++ b/Bancos/IE.aspx
@@ -799,6 +799,12 @@
                                                        <asp:CheckBox ID="ChkConciliado" runat="server" Text="Conciliado" Enabled="False" />

                                                    </td>
+                                                </tr>
+                                                <tr runat="server" id="TRImporteDeduccionesPago" visible="false">
+                                                    <td >Deducciones Pago:</td>
+                                                    <td style="text-align:left">
+                                                        <asp:Label runat="server" ID="LblImporteDeduccionesPago"></asp:Label>
+                                                    </td>
                                                </tr> 
                                            </table>
                                        </fieldset>
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -794,6 +794,11 @@ Partial Class Bancos_IE
                DvFolioACCondiciones.Visible = True
            End If

+
+            If UsuarioActual.CveEmpresa = 13 Then
+                TRImporteDeduccionesPago.Visible = True
+            End If
+
        End If
    End Sub

@@ -885,6 +890,8 @@ Partial Class Bancos_IE
                LblEstatusIE.Visible = True
                LblEstatusIE.Text = ObjIE.EstatusIE.ToString

+                LblImporteDeduccionesPago.Text = ObjIE.DtResultados.Rows(0)("ImporteDeduccionesPago").ToString.ToDecimal.ToString("###,###,###.00")
+
                If ObjIE.CveTipoTransaccion.Contiene(3, 4) Then 'cuando es cheque recibido
                    LnkChqDevuelto.Visible = True
                End If
--- a/Bancos/Transferencias.aspx.vb
+++ b/Bancos/Transferencias.aspx.vb
@@ -600,10 +600,11 @@ Partial Class Bancos_Transferencias
    End Function

    Private Sub chkMovimientoTarjeta_CheckedChanged(sender As Object, e As EventArgs) Handles chkMovimientoTarjeta.CheckedChanged
+
        If chkMovimientoTarjeta.Checked Then
-            If GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveCuenta = {0} AND UsaTarjeta = 1", DdlCuentaDestino.SelectedValue.ToEntero)).Rows.Count > 0 Then
-                CargaGridTarjetas()
-            End If
+            'If GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveCuenta = {0} AND UsaTarjeta = 1", DdlCuentaDestino.SelectedValue.ToEntero)).Rows.Count > 0 Then
+            CargaGridTarjetas()
+            'End If
        Else
            GvTC.Visible = False
            UpGvTC.Update()