This commit is contained in:
janeth arvizu
@@ -55,7 +55,7 @@
|
||||
</asp:RadioButtonList>
|
||||
</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlCtaContableClientes" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<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>
|
||||
</td>
|
||||
@@ -69,7 +69,7 @@
|
||||
</asp:RadioButtonList>
|
||||
</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DropDownList1" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:DropDownList ID="DropDownList1" class="select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="200px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
@@ -83,7 +83,7 @@
|
||||
</asp:RadioButtonList>
|
||||
</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DropDownList2" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:DropDownList ID="DropDownList2" class="select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="200px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
@@ -97,7 +97,7 @@
|
||||
</asp:RadioButtonList>
|
||||
</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DropDownList3" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:DropDownList ID="DropDownList3" class="select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="200px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
@@ -111,12 +111,12 @@
|
||||
</asp:RadioButtonList>
|
||||
</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DropDownList4" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
|
||||
<asp:DropDownList ID="DropDownList4" class="select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="200px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
<%-- <tr>
|
||||
<%-- <tr>
|
||||
<td>Clave de Empresa:</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtCveEmpresa" runat="server" MaxLength="50" Width="60px"></asp:TextBox>
|
||||
@@ -195,6 +195,53 @@
|
||||
</table>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<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>
|
||||
<span class="caption-subject bold uppercase">Configuración del Servidor de Contabilidad</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="collapse"></a>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body">
|
||||
<table border="0">
|
||||
<tr>
|
||||
<td>BDContPAQi: </td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtBDContPAQi" runat="server" MaxLength="50" Width="200px"></asp:TextBox>
|
||||
<%-- <asp:RequiredFieldValidator ID="RFVBDContPAQi" runat="server" ControlToValidate="TxtBDContPAQi" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''BDContPAQi'</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEBDContPAQi" runat="server" HighlightCssClass="vco" TargetControlID="RFVBDContPAQi" Width="300px"></ajax:ValidatorCalloutExtender>--%>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Server ContPAQi:</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtServerContPAQi" runat="server" MaxLength="50" Width="200px"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Usuario ContPAQi:</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtUsrContPAQi" runat="server" MaxLength="50" Width="200px"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Password ContPAQi:</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtPwdContPAQi" runat="server" MaxLength="50" Width="200px"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
@@ -17,35 +17,135 @@ Partial Class Sistemas_ConfiguracionEmpresa
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not IsPostBack Then
|
||||
|
||||
CargaCuentaClIente()
|
||||
CargaCuentasClientesSIG()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaCuentaCliente()
|
||||
Dim ObjCompaq As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
#Region "Carga Cuentas"
|
||||
Private Sub CargaCuentasClientesSIG()
|
||||
Dim ObjContabilidad As New ClsContabilidad
|
||||
|
||||
If RblTipo.SelectedValue = "SIG" Then
|
||||
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
|
||||
Else
|
||||
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
|
||||
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 CargaCuentasClientesCompaq()
|
||||
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
|
||||
|
||||
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 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
|
||||
|
||||
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
|
||||
|
||||
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 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
|
||||
|
||||
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
|
||||
#End Region
|
||||
|
||||
Protected Sub RblTipo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipo.SelectedIndexChanged
|
||||
CargaCuentaCliente()
|
||||
If RblTipo.SelectedValue = "SIG" Then
|
||||
DvServidorConta.Visible = False
|
||||
CargaCuentasClientesSIG()
|
||||
Else
|
||||
DvServidorConta.Visible = True
|
||||
CargaCuentasClientesCompaq()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
|
||||
|
||||
Reference in New Issue
Block a user