This commit is contained in:
janeth arvizu
@@ -58,6 +58,8 @@
|
||||
<asp:DropDownList ID="DdlCtaContableClientes" class="select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="200px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVCtaCliente" runat="server" ControlToValidate="DdlCtaContableClientes" InitialValue="0" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />La cuenta del <b>''Cliente''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCECtaCliente" runat="server" HighlightCssClass="vco" TargetControlID="RFVCtaCliente" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
@@ -69,9 +71,11 @@
|
||||
</asp:RadioButtonList>
|
||||
</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DropDownList1" class="select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="200px">
|
||||
<asp:DropDownList ID="DdlCtaContableProveedores" class="select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="200px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVCtaProveedor" runat="server" ControlToValidate="DdlCtaContableProveedores" InitialValue="0" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />La cuenta del <b>''Proveedor''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCECtaProveedor" runat="server" HighlightCssClass="vco" TargetControlID="RFVCtaProveedor" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
@@ -83,9 +87,11 @@
|
||||
</asp:RadioButtonList>
|
||||
</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DropDownList2" class="select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="200px">
|
||||
<asp:DropDownList ID="DdlCtaContableDeudores" class="select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="200px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVCtaDeudor" runat="server" ControlToValidate="DdlCtaContableDeudores" InitialValue="0" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />La cuenta del <b>''Deudor''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCECtaDeudor" runat="server" HighlightCssClass="vco" TargetControlID="RFVCtaDeudor" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
@@ -97,9 +103,11 @@
|
||||
</asp:RadioButtonList>
|
||||
</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DropDownList3" class="select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="200px">
|
||||
<asp:DropDownList ID="DdlCtaContableAlmacen" class="select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="200px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVCtaAlmacen" runat="server" ControlToValidate="DdlCtaContableAlmacen" InitialValue="0" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />La cuenta de <b>''Almacén''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCECtaAlmacen" runat="server" HighlightCssClass="vco" TargetControlID="RFVCtaAlmacen" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
@@ -111,27 +119,13 @@
|
||||
</asp:RadioButtonList>
|
||||
</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DropDownList4" class="select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="200px">
|
||||
<asp:DropDownList ID="DdlCtaContableCosto" class="select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="200px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVCtaCosto" runat="server" ControlToValidate="DdlCtaContableCosto" InitialValue="0" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />La cuenta de <b>''Costo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCECtaCosto" runat="server" HighlightCssClass="vco" TargetControlID="RFVCtaCosto" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<%-- <tr>
|
||||
<td>Clave de Empresa:</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtCveEmpresa" runat="server" MaxLength="50" Width="60px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVCveEmpresa" runat="server" ControlToValidate="TxtCveEmpresa" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''CveEmpresa de la Empresa''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCECveEmpresa" runat="server" HighlightCssClass="vco" TargetControlID="RFVCveEmpresa" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Razón Social:</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtEmpresa" runat="server" MaxLength="50" Width="350px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVEmpresa" runat="server" ControlToValidate="TxtEmpresa" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre de la Empresa''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEEmpresa" runat="server" HighlightCssClass="vco" TargetControlID="RFVEmpresa" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</td>
|
||||
</tr>--%>
|
||||
</table>
|
||||
</div>
|
||||
</div>
|
||||
@@ -196,7 +190,7 @@
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div id="DvServidorConta" class="portlet light smmallpadding bordered" runat="server" visible="false">
|
||||
<div id="DvServidorConta" class="portlet light smmallpadding bordered" runat="server" visible="false">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
|
||||
@@ -17,134 +17,146 @@ Partial Class Sistemas_ConfiguracionEmpresa
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not IsPostBack Then
|
||||
|
||||
CargaCuentasClientesSIG()
|
||||
CargaCuentasClientesSIG(DdlCtaContableClientes)
|
||||
CargaCuentasClientesSIG(DdlCtaContableProveedores)
|
||||
CargaCuentasClientesSIG(DdlCtaContableDeudores)
|
||||
CargaCuentasClientesSIG(DdlCtaContableAlmacen)
|
||||
CargaCuentasClientesSIG(DdlCtaContableCosto)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
#Region "Carga Cuentas"
|
||||
Private Sub CargaCuentasClientesSIG()
|
||||
Private Sub CargaCuentasClientesSIG(ddl As DropDownList)
|
||||
Dim ObjContabilidad As New ClsContabilidad
|
||||
|
||||
If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
|
||||
DdlCtaContableClientes.Items.Clear()
|
||||
DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
|
||||
DdlCtaContableClientes.DataSource = ObjContabilidad.DtResultados
|
||||
DdlCtaContableClientes.DataBind()
|
||||
ddl.Items.Clear()
|
||||
ddl.Items.Add(New ListItem("Seleccione", "0"))
|
||||
ddl.DataSource = ObjContabilidad.DtResultados
|
||||
ddl.DataBind()
|
||||
End If
|
||||
ObjContabilidad.Dispose()
|
||||
End Sub
|
||||
Private Sub CargaCuentasClientesCompaq()
|
||||
Private Sub CargaCuentasClientesCompaq(ddl As DropDownList)
|
||||
Dim ObjCompaq As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
|
||||
If ObjCompaq.GetCuentas(-1, "-1", 1) Then
|
||||
DdlCtaContableClientes.Items.Clear()
|
||||
DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
|
||||
DdlCtaContableClientes.DataSource = ObjCompaq.DtResultados
|
||||
DdlCtaContableClientes.DataBind()
|
||||
ddl.Items.Clear()
|
||||
ddl.Items.Add(New ListItem("Seleccione", "0"))
|
||||
ddl.DataSource = ObjCompaq.DtResultados
|
||||
ddl.DataBind()
|
||||
End If
|
||||
ObjCompaq.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaCuentasProveedoresSIG()
|
||||
Dim ObjContabilidad As New ClsContabilidad
|
||||
'Private Sub CargaCuentasProveedoresSIG()
|
||||
' Dim ObjContabilidad As New ClsContabilidad
|
||||
|
||||
If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
|
||||
DdlCtaContableClientes.Items.Clear()
|
||||
DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
|
||||
DdlCtaContableClientes.DataSource = ObjContabilidad.DtResultados
|
||||
DdlCtaContableClientes.DataBind()
|
||||
End If
|
||||
ObjContabilidad.Dispose()
|
||||
End Sub
|
||||
Private Sub CargaCuentasProveedoresCompaq()
|
||||
Dim ObjCompaq As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
' If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
|
||||
' DdlCtaContableClientes.Items.Clear()
|
||||
' DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlCtaContableClientes.DataSource = ObjContabilidad.DtResultados
|
||||
' DdlCtaContableClientes.DataBind()
|
||||
' End If
|
||||
' ObjContabilidad.Dispose()
|
||||
'End Sub
|
||||
'Private Sub CargaCuentasProveedoresCompaq()
|
||||
' Dim ObjCompaq As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
|
||||
If ObjCompaq.GetCuentas(-1, "-1", 1) Then
|
||||
DdlCtaContableClientes.Items.Clear()
|
||||
DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
|
||||
DdlCtaContableClientes.DataSource = ObjCompaq.DtResultados
|
||||
DdlCtaContableClientes.DataBind()
|
||||
End If
|
||||
ObjCompaq.Dispose()
|
||||
End Sub
|
||||
' If ObjCompaq.GetCuentas(-1, "-1", 1) Then
|
||||
' DdlCtaContableClientes.Items.Clear()
|
||||
' DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlCtaContableClientes.DataSource = ObjCompaq.DtResultados
|
||||
' DdlCtaContableClientes.DataBind()
|
||||
' End If
|
||||
' ObjCompaq.Dispose()
|
||||
'End Sub
|
||||
|
||||
Private Sub CargaCuentasDeudoresSIG()
|
||||
Dim ObjContabilidad As New ClsContabilidad
|
||||
'Private Sub CargaCuentasDeudoresSIG()
|
||||
' Dim ObjContabilidad As New ClsContabilidad
|
||||
|
||||
If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
|
||||
DdlCtaContableClientes.Items.Clear()
|
||||
DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
|
||||
DdlCtaContableClientes.DataSource = ObjContabilidad.DtResultados
|
||||
DdlCtaContableClientes.DataBind()
|
||||
End If
|
||||
ObjContabilidad.Dispose()
|
||||
End Sub
|
||||
Private Sub CargaCuentassDeudoresCompaq()
|
||||
Dim ObjCompaq As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
' If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
|
||||
' DdlCtaContableClientes.Items.Clear()
|
||||
' DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlCtaContableClientes.DataSource = ObjContabilidad.DtResultados
|
||||
' DdlCtaContableClientes.DataBind()
|
||||
' End If
|
||||
' ObjContabilidad.Dispose()
|
||||
'End Sub
|
||||
'Private Sub CargaCuentassDeudoresCompaq()
|
||||
' Dim ObjCompaq As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
|
||||
If ObjCompaq.GetCuentas(-1, "-1", 1) Then
|
||||
DdlCtaContableClientes.Items.Clear()
|
||||
DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
|
||||
DdlCtaContableClientes.DataSource = ObjCompaq.DtResultados
|
||||
DdlCtaContableClientes.DataBind()
|
||||
End If
|
||||
ObjCompaq.Dispose()
|
||||
End Sub
|
||||
' If ObjCompaq.GetCuentas(-1, "-1", 1) Then
|
||||
' DdlCtaContableClientes.Items.Clear()
|
||||
' DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlCtaContableClientes.DataSource = ObjCompaq.DtResultados
|
||||
' DdlCtaContableClientes.DataBind()
|
||||
' End If
|
||||
' ObjCompaq.Dispose()
|
||||
'End Sub
|
||||
|
||||
Private Sub CargaCuentasAlmacenSIG()
|
||||
Dim ObjContabilidad As New ClsContabilidad
|
||||
'Private Sub CargaCuentasAlmacenSIG()
|
||||
' Dim ObjContabilidad As New ClsContabilidad
|
||||
|
||||
If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
|
||||
DdlCtaContableClientes.Items.Clear()
|
||||
DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
|
||||
DdlCtaContableClientes.DataSource = ObjContabilidad.DtResultados
|
||||
DdlCtaContableClientes.DataBind()
|
||||
End If
|
||||
ObjContabilidad.Dispose()
|
||||
End Sub
|
||||
Private Sub CargaCuentasAlmacenCompaq()
|
||||
Dim ObjCompaq As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
' If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
|
||||
' DdlCtaContableClientes.Items.Clear()
|
||||
' DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlCtaContableClientes.DataSource = ObjContabilidad.DtResultados
|
||||
' DdlCtaContableClientes.DataBind()
|
||||
' End If
|
||||
' ObjContabilidad.Dispose()
|
||||
'End Sub
|
||||
'Private Sub CargaCuentasAlmacenCompaq()
|
||||
' Dim ObjCompaq As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
|
||||
If ObjCompaq.GetCuentas(-1, "-1", 1) Then
|
||||
DdlCtaContableClientes.Items.Clear()
|
||||
DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
|
||||
DdlCtaContableClientes.DataSource = ObjCompaq.DtResultados
|
||||
DdlCtaContableClientes.DataBind()
|
||||
End If
|
||||
ObjCompaq.Dispose()
|
||||
End Sub
|
||||
' If ObjCompaq.GetCuentas(-1, "-1", 1) Then
|
||||
' DdlCtaContableClientes.Items.Clear()
|
||||
' DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlCtaContableClientes.DataSource = ObjCompaq.DtResultados
|
||||
' DdlCtaContableClientes.DataBind()
|
||||
' End If
|
||||
' ObjCompaq.Dispose()
|
||||
'End Sub
|
||||
|
||||
Private Sub CargaCuentasCostoSIG()
|
||||
Dim ObjContabilidad As New ClsContabilidad
|
||||
'Private Sub CargaCuentasCostoSIG()
|
||||
' Dim ObjContabilidad As New ClsContabilidad
|
||||
|
||||
If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
|
||||
DdlCtaContableClientes.Items.Clear()
|
||||
DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
|
||||
DdlCtaContableClientes.DataSource = ObjContabilidad.DtResultados
|
||||
DdlCtaContableClientes.DataBind()
|
||||
End If
|
||||
ObjContabilidad.Dispose()
|
||||
End Sub
|
||||
Private Sub CargaCuentasCostoCompaq()
|
||||
Dim ObjCompaq As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
' If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
|
||||
' DdlCtaContableClientes.Items.Clear()
|
||||
' DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlCtaContableClientes.DataSource = ObjContabilidad.DtResultados
|
||||
' DdlCtaContableClientes.DataBind()
|
||||
' End If
|
||||
' ObjContabilidad.Dispose()
|
||||
'End Sub
|
||||
'Private Sub CargaCuentasCostoCompaq()
|
||||
' Dim ObjCompaq As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
|
||||
If ObjCompaq.GetCuentas(-1, "-1", 1) Then
|
||||
DdlCtaContableClientes.Items.Clear()
|
||||
DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
|
||||
DdlCtaContableClientes.DataSource = ObjCompaq.DtResultados
|
||||
DdlCtaContableClientes.DataBind()
|
||||
End If
|
||||
ObjCompaq.Dispose()
|
||||
End Sub
|
||||
' If ObjCompaq.GetCuentas(-1, "-1", 1) Then
|
||||
' DdlCtaContableClientes.Items.Clear()
|
||||
' DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlCtaContableClientes.DataSource = ObjCompaq.DtResultados
|
||||
' DdlCtaContableClientes.DataBind()
|
||||
' End If
|
||||
' ObjCompaq.Dispose()
|
||||
'End Sub
|
||||
#End Region
|
||||
|
||||
Protected Sub RblTipo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipo.SelectedIndexChanged
|
||||
If RblTipo.SelectedValue = "SIG" Then
|
||||
DvServidorConta.Visible = False
|
||||
CargaCuentasClientesSIG()
|
||||
CargaCuentasClientesSIG(DdlCtaContableClientes)
|
||||
CargaCuentasClientesSIG(DdlCtaContableProveedores)
|
||||
CargaCuentasClientesSIG(DdlCtaContableDeudores)
|
||||
CargaCuentasClientesSIG(DdlCtaContableAlmacen)
|
||||
CargaCuentasClientesSIG(DdlCtaContableCosto)
|
||||
Else
|
||||
DvServidorConta.Visible = True
|
||||
CargaCuentasClientesCompaq()
|
||||
CargaCuentasClientesCompaq(DdlCtaContableClientes)
|
||||
CargaCuentasClientesCompaq(DdlCtaContableProveedores)
|
||||
CargaCuentasClientesCompaq(DdlCtaContableDeudores)
|
||||
CargaCuentasClientesCompaq(DdlCtaContableAlmacen)
|
||||
CargaCuentasClientesCompaq(DdlCtaContableCosto)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -152,7 +164,7 @@ Partial Class Sistemas_ConfiguracionEmpresa
|
||||
Dim ObjEmpresas As New ClsSisEmpresas
|
||||
ObjEmpresas.IniciaTransacSQL()
|
||||
|
||||
|
||||
Alert("sdfsz")
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user