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

-- cortes, envío de subproyectos en cortes

Browse Source 
-- cvesubproyecto, en banco cuentas
This commit is contained in:
rrene
2024-05-03 19:44:39 -07:00
parent b8e46c9760
commit cdc2f20cd5
4 changed files with 37 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Bancos/CuentasBancariasDetalle.aspx
View File

@@ -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>

20
Bancos/CuentasBancariasDetalle.aspx.vb
View File

@@ -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()