Bancos Cuentas NumeroSucursal

App_Code/ClsBancos.vb

@@ -134,6 +134,7 @@ Public Class ClsBancos
     Public Property TieneTerminal As Boolean
     Public Property CveCuentaPadre As Integer
     Public Property CveSubProyecto As Integer
+    Public Property NumeroSucursal As String
 #End Region
 
 
@@ -420,6 +421,7 @@ Public Class ClsBancos
                 Me.TieneTerminal = If(Data.Rows(0)("TieneTerminal").ToString = "True", True, False)
                 Me.CveCuentaPadre = Data.Rows(0)("CveCuentaPadre").ToString.ToEntero
                 Me.CveSubProyecto = Data.Rows(0)("CveSubProyecto").ToString.ToEntero
+                Me.NumeroSucursal = Data.Rows(0)("NumeroSucursal").ToString
 
             End If
 
@@ -454,7 +456,7 @@ Public Class ClsBancos
     Public Function AddBancosCuentas(CveBanco As Integer, CveTipoCuenta As Integer, NumCuenta As String, CLABE As String, CveMoneda As Integer, DiaCorte As Integer, FInicial As Integer, FActual As Integer, FFinal As Integer,
                                      LimiteCredito As Double, FormatoCheque As String, CveUsuario As Integer, CveEmpresa As Integer, ConvenioPagoElectronico As String,
                                      UsaLayout As Boolean, UsaTarjeta As Boolean, Optional SaldoInicial As Double = 0, Optional UsaLayoutGrupos As Boolean = False, Optional TieneTerminal As Boolean = False,
-                                     Optional CveCuentaPadre As Integer = Nothing, Optional CveSubProyecto As Integer = -1) As Boolean
+                                     Optional CveCuentaPadre As Integer = Nothing, Optional CveSubProyecto As Integer = -1, Optional NumeroSucursal As String = "-1") As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Banc_BancosCuentasAdd")
 
@@ -482,6 +484,7 @@ Public Class ClsBancos
             .Add("@TieneTerminal", SqlDbType.Bit).Value = TieneTerminal
             .Add("@CveCuentaPadre", SqlDbType.Int).Value = CveCuentaPadre
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@NumeroSucursal", SqlDbType.VarChar).Value = NumeroSucursal
 
         End With
 
@@ -505,7 +508,7 @@ Public Class ClsBancos
     Public Function UpdateBancosCuentas(CveBanco As Integer, CveTipoCuenta As Integer, NumCuenta As String, CLABE As String, CveMoneda As Integer, DiaCorte As Integer, FInicial As Integer, FActual As Integer, FFinal As Integer,
                                         LimiteCredito As Double, FormatoCheque As String, Estatus As Boolean, CveCuenta As Integer, ConvenioPagoElectronico As String,
                                         UsaLayout As Boolean, UsaTarjeta As Boolean, Optional UsaLayoutGrupos As Boolean = False, Optional TieneTerminal As Boolean = False,
-                                        Optional CveCuentaPadre As Integer = Nothing, Optional CveSubProyecto As Integer = -1) As Boolean
+                                        Optional CveCuentaPadre As Integer = Nothing, Optional CveSubProyecto As Integer = -1, Optional NumeroSucursal As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Banc_BancosCuentasUpdate")
@@ -531,6 +534,7 @@ Public Class ClsBancos
             .Add("@TieneTerminal", SqlDbType.Bit).Value = TieneTerminal
             .Add("@CveCuentaPadre", SqlDbType.Int).Value = CveCuentaPadre
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@NumeroSucursal", SqlDbType.VarChar).Value = NumeroSucursal
 
         End With
 

Bancos/CuentasBancariasDetalle.aspx

@@ -123,6 +123,14 @@
                                                         <ajax:ValidatorCalloutExtender ID="VCEFInicial" runat="server" HighlightCssClass="vco" TargetControlID="RFVFInicial" Width="300px"></ajax:ValidatorCalloutExtender>
                                                     </td>
                                                 </tr>
+                                                  <tr >
+                                                      <td>
+                                                          <asp:Literal runat="server" ID="LtlNumeroSucursal" Text="Numero Sucursal:"></asp:Literal>
+                                                      </td>
+                                                      <td>
+                                                          <asp:TextBox ID="TxtNumeroSucursal" runat="server" MaxLength="10" Width="100px"></asp:TextBox>                                                          
+                                                      </td>
+                                                  </tr>
                                                 <tr runat="server" id="trLimiteCredito" visible="false">
                                                     <td>
                                                         <asp:Literal runat="server" ID="LtLimiteCredito" Text="Limite de Crédito:"></asp:Literal></td>

Bancos/CuentasBancariasDetalle.aspx.vb

@@ -234,11 +234,14 @@ Partial Class Bancos_CuentasBancariasDetalle
 
                 DdlTipoCuenta_SelectedIndexChanged(DdlTipoCuenta, EventArgs.Empty)
 
+                TxtNumeroSucursal.Text = ObjCuentasBancariasDetalle.NumeroSucursal
+
                 If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
                     DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.CveCuentaConta.ToString)
                     DdlCuentaContableComplementaria.SelectedValueExist(ObjCuentasBancariasDetalle.CveCuentaContaComplementaria.ToString)
                 Else
 
+
                     'Dim ExisteEnIntems As Boolean = False
 
                     'For Each li As ListItem In DDlCuentaContable.Items
@@ -293,7 +296,7 @@ Partial Class Bancos_CuentasBancariasDetalle
                                                            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,
-                                                           CveCuentaPadre:=DdlCuentaPadre.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero) Then
+                                                           CveCuentaPadre:=DdlCuentaPadre.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, NumeroSucursal:=TxtNumeroSucursal.Text.Trim) Then
                 ViewState("CveCuenta") = ObjCuentasBancariasDetalle.TCveCuenta
             Else
                 ErrorUsuarios = True
@@ -327,7 +330,7 @@ Partial Class Bancos_CuentasBancariasDetalle
             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,
-                                                              CveCuentaPadre:=DdlCuentaPadre.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero) Then
+                                                              CveCuentaPadre:=DdlCuentaPadre.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, NumeroSucursal:=TxtNumeroSucursal.Text.Trim) Then
                 'CargaDatos()
                 GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
                 'If ObjCuentasBancariasDetalle.GetBancosCuentasUsuarios(-1) Then