-- cortes, envío de subproyectos en cortes
-- cvesubproyecto, en banco cuentas
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
@@ -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>
|
||||
|
||||
@@ -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()
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user