-- cortes, envío de subproyectos en cortes

-- cvesubproyecto, en banco cuentas

App_Code/ClsBancos.vb

@@ -133,6 +133,7 @@ Public Class ClsBancos
     Public Property UsaTarjeta As Boolean
     Public Property TieneTerminal As Boolean
     Public Property CveCuentaPadre As Integer
+    Public Property CveSubProyecto As Integer
 #End Region
 
 
@@ -418,10 +419,10 @@ Public Class ClsBancos
                 Me.UsaTarjeta = If(Data.Rows(0)("UsaTarjeta").ToString = "True", True, False)
                 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
 
             End If
 
-
             Retorno = True
         Catch ex As SqlException
             OnError("Ocurrió un error al consultar las Cuentas de los Bancos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
@@ -452,7 +453,8 @@ 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) As Boolean
+                                     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
         Dim Retorno As Boolean = False
         DataAdapter("PA_Banc_BancosCuentasAdd")
 
@@ -479,7 +481,7 @@ Public Class ClsBancos
             .Add("@UsaLayoutGrupos", SqlDbType.Bit).Value = UsaLayoutGrupos
             .Add("@TieneTerminal", SqlDbType.Bit).Value = TieneTerminal
             .Add("@CveCuentaPadre", SqlDbType.Int).Value = CveCuentaPadre
-
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
 
         End With
 
@@ -502,7 +504,8 @@ 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) As Boolean
+                                        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
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Banc_BancosCuentasUpdate")
@@ -527,7 +530,7 @@ Public Class ClsBancos
             .Add("@UsaLayoutGrupos", SqlDbType.Bit).Value = UsaLayoutGrupos
             .Add("@TieneTerminal", SqlDbType.Bit).Value = TieneTerminal
             .Add("@CveCuentaPadre", SqlDbType.Int).Value = CveCuentaPadre
-
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
 
         End With
 

Bancos/CuentasBancariasDetalle.aspx

@@ -160,6 +160,19 @@
                                                         </table>
                                                     </td>
                                                 </tr>
+                                                 <tr id="trSubProyecto" runat="server" visible="False">
+                                                 <td>
+                                                     <asp:Label ID="LblSubProyecto" runat="server" Text="Sucursal"></asp:Label></td>
+                                                 <td>
+                                                     <table border="0" cellpadding="0" cellspacing="0">
+                                                         <tr>
+                                                             <td>
+                                                                 <asp:DropDownList ID="DdlSubProyectos" CssClass="select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" runat="server" Width="290px"></asp:DropDownList>                                                                 
+                                                             </td>
+                                                         </tr>
+                                                     </table>
+                                                 </td>
+                                             </tr>
                                                 <tr>
                                                     <td>Estatus:</td>
                                                     <td>

Bancos/CuentasBancariasDetalle.aspx.vb

@@ -121,8 +121,11 @@ Partial Class Bancos_CuentasBancariasDetalle
     Private Sub CargarBanco()
         DdlBanco.DataSource = GlobalDTBancos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
         DdlBanco.DataBind()
-
+        DdlBanco.Items.Add(New ListItem("Empresa", "0"))
-        DdlBanco.Items.Add(New ListItem("Empresa", "0"))
+
+        DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyectos.DataBind()
+        DdlSubProyectos.Items.Insert(0, New ListItem("-", "-1"))
     End Sub
     Private Sub CargarMoneda()
         DdlMoneda.DataSource = GlobalDTMonedas
@@ -227,10 +230,10 @@ Partial Class Bancos_CuentasBancariasDetalle
                 TxtLimiteCredito.Text = ObjCuentasBancariasDetalle.LimiteCredito.ToString
 
                 DdlTipoCuenta.SelectedValue = ObjCuentasBancariasDetalle.CveTipoCuenta.ToString
+                DdlSubProyectos.SelectedValueExist(ObjCuentasBancariasDetalle.CveSubProyecto.ToString)
 
                 DdlTipoCuenta_SelectedIndexChanged(DdlTipoCuenta, EventArgs.Empty)
 
-
                 If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
                     DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.CveCuentaConta.ToString)
                     DdlCuentaContableComplementaria.SelectedValueExist(ObjCuentasBancariasDetalle.CveCuentaContaComplementaria.ToString)
@@ -289,7 +292,8 @@ 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, CveCuentaPadre:=DdlCuentaPadre.SelectedValue.ToEntero) Then
+                                                           TieneTerminal:=ChkTieneTerminal.Checked,
+                                                           CveCuentaPadre:=DdlCuentaPadre.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero) Then
                 ViewState("CveCuenta") = ObjCuentasBancariasDetalle.TCveCuenta
             Else
                 ErrorUsuarios = True
@@ -322,7 +326,8 @@ 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, CveCuentaPadre:=DdlCuentaPadre.SelectedValue.ToEntero) Then
+                                                              ChkLayout.Checked, ChkUsaTarjeta.Checked, UsaLayoutGrupos:=ChkLayoutGrupos.Checked, TieneTerminal:=ChkTieneTerminal.Checked,
+                                                              CveCuentaPadre:=DdlCuentaPadre.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero) Then
                 'CargaDatos()
                 GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
                 'If ObjCuentasBancariasDetalle.GetBancosCuentasUsuarios(-1) Then
@@ -409,6 +414,11 @@ Partial Class Bancos_CuentasBancariasDetalle
             TxtLimiteCredito.Visible = False
             RFVLimiteCredito.Enabled = False
             VCELimiteCredito.Enabled = False
+            If DdlTipoCuenta.SelectedValue = "1" Then
+                trSubProyecto.Visible = True
+            Else
+                trSubProyecto.Visible = False
+            End If
         End If
         CargaCuentasContables()
 

Compras/PopUpVerFactura.aspx.vb

@@ -1591,7 +1591,7 @@ Partial Class PopUpVerFactura
                 DtIngresosRetiros = ObjPuntoVenta.DtResultados.Copy()
             End If
 
-            If Not UsuarioActual.CveEmpresa.Contiene(140, 141) AndAlso ObjVenta.GetCortesDetalleDepositosCaja(CveCorte, -1, UsuarioActual.CveEmpresa) Then
+            If Not UsuarioActual.CveEmpresa.Contiene(140, 141) AndAlso ObjVenta.GetCortesDetalleDepositosCaja(CveCorte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
                 DtDepositos = ObjVenta.DtResultados.Copy()
             End If
         End If