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

Browse Source
This commit is contained in:
janeth arvizu
2019-09-04 13:55:40 -07:00
parent d824a63321
commit c05938c335
5 changed files with 387 additions and 136 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
App_Code/ClsCRM.vb
View File

@@ -873,6 +873,53 @@ Public Class ClsCRM
End Try
Return Retorno
End Function
Public Function AddAcercamientosGastos(CveAcercamiento As Integer, Descripcion As String, Importe As Decimal, CveUsuario As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_CRM_AcercamientosGastosAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveAcercamiento", SqlDbType.Int).Value = CveAcercamiento
.Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
.Add("@Importe", SqlDbType.Money).Value = Importe
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al agregar los Gastos del Acercamiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function UpdateAcercamientosGastos(CveAcercamientoGasto As Integer, Descripcion As String, Importe As Decimal) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_CRM_AcercamientosGastosUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveAcercamientoGasto", SqlDbType.Int).Value = CveAcercamientoGasto
.Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
.Add("@Importe", SqlDbType.Money).Value = Importe
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al actualizar los Gastos del Acercamiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function RemoveAcercamientosGastos(CveAcercamientoGasto As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_CRM_AcercamientosGastosRemove")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveAcercamientoGasto", SqlDbType.Int).Value = CveAcercamientoGasto
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al eliminar los Gastos del Acercamiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#End Region

98
CRM/Acercamiento.aspx
View File

@@ -718,8 +718,8 @@
<div class="btn-group">
<asp:UpdatePanel ID="UpAddCotizacion" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:HyperLink ID="HplAgregarCotizacion" Visible="true" Target="_blank" runat="server" data-toggle="tooltip" title="Agregar Cotizacion" class="btn btn-circle btn-sm btn-default"><i class="fa fa-plus"></i></asp:HyperLink>
</ContentTemplate>
<asp:HyperLink ID="HplAgregarCotizacion" Visible="true" Target="_blank" runat="server" data-toggle="tooltip" title="Agregar Cotizacion" class="btn btn-circle btn-sm btn-default"><i class="fa fa-plus"></i></asp:HyperLink>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
@@ -736,10 +736,10 @@
EmptyDataRowStyle-HorizontalAlign="Center" ToolTip="Listado de Cotizaciones" CssClass="table table-striped table-advance table-hover ScrollAD Widthall mysmallbtn" AlternatingRowStyle-BorderStyle="None"
GridLines="None" BorderColor="#D3D3D3" BorderWidth="1" AutoGenerateColumns="false" OnRowDataBound="GvCotizacion_RowDataBound">
<Columns>
<asp:HyperLinkField DataTextField="SerieFolio" Target="_blank" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" ItemStyle-HorizontalAlign="Left" HeaderText="Serie Folio" />
<asp:HyperLinkField DataTextField="SerieFolio" Target="_blank" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" ItemStyle-HorizontalAlign="Left" HeaderText="Serie Folio" />
<asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
<asp:BoundField DataField="Total" ItemStyle-HorizontalAlign="Right" HeaderText="Total" DataFormatString="{0:N2}" />
<asp:TemplateField HeaderText="Estatus" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblEstatus" runat="server" Text='<%# Eval("EstatusFactura")%>'> </asp:Label>
@@ -767,15 +767,15 @@
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">GASTOS </span>
</div>
<%-- <div class="actions">
<div class="actions">
<div class="btn-group">
<asp:UpdatePanel ID="UpdatePanel1" runat="server" UpdateMode="Conditional">
<asp:UpdatePanel ID="UpAddGastos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:HyperLink ID="HyperLink2" Visible="true" Target="_blank" runat="server" data-toggle="tooltip" title="Agregar Cotizacion" class="btn btn-circle btn-sm btn-default"><i class="fa fa-plus"></i></asp:HyperLink>
</ContentTemplate>
<asp:LinkButton ID="LbAddGastos" Visible="true" runat="server" data-toggle="tooltip" title="Agregar Gasto" OnClick="LbAddGastos_Click" class="btn btn-circle btn-sm btn-default"><i class="fa fa-plus"></i></asp:LinkButton>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>--%>
</div>
</div>
<div class="portlet-body">
<div runat="server" id="Div3" visible="false" class="row" style="margin-right: 10px; margin-top: 0px; margin-bottom: 5px;" align="right">
@@ -785,15 +785,43 @@
<div runat="server" id="Div4" style="padding: 0 10px 10px 10px;">
<asp:UpdatePanel runat="server" ID="UpGastos" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvGastos" runat="server" EmptyDataText="Aún no se han registrado Gastos"
<asp:GridView ID="GvGastos" runat="server" EmptyDataText="Aún no se han registrado Gastos" DataKeyNames="CveAcercamientoGasto,Descripcion,Importe"
EmptyDataRowStyle-HorizontalAlign="Center" ToolTip="Listado de Cotizaciones" CssClass="table table-striped table-advance table-hover ScrollAD Widthall mysmallbtn" AlternatingRowStyle-BorderStyle="None"
GridLines="None" BorderColor="#D3D3D3" BorderWidth="1" AutoGenerateColumns="false" >
GridLines="None" BorderColor="#D3D3D3" BorderWidth="1" AutoGenerateColumns="false" OnRowDataBound="GvGastos_RowDataBound">
<Columns>
<%--<asp:HyperLinkField DataTextField="SerieFolio" Target="_blank" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" ItemStyle-HorizontalAlign="Left" HeaderText="Serie Folio" />--%>
<asp:BoundField DataField="Descripcion" HeaderText="Descripción" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Importe" ItemStyle-HorizontalAlign="Right" HeaderText="Importe" DataFormatString="{0:N2}" />
<asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="FechaIng" HeaderText="Fecha" ItemStyle-HorizontalAlign="Left" DataFormatString="{0:d}" />
<%--<asp:HyperLinkField DataTextField="SerieFolio" Target="_blank" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" ItemStyle-HorizontalAlign="Left" HeaderText="Serie Folio" />--%>
<asp:TemplateField HeaderText="Descripción" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblDescripcion" runat="server" Text='<%# Eval("Descripcion")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Importe" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label ID="lblImporte" runat="server" Text='<%# Eval("Importe","{0:N2}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblUsuario" runat="server" Text='<%# Eval("Usuario")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblFechaIng" runat="server" Text='<%# Eval("FechaIng","{0:d}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="80px">
<ItemTemplate>
<asp:LinkButton ID="ImgE" OnClick="ImgE_Click" runat="server" AlternateText="Editar" CausesValidation="False"
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="40px">
<ItemTemplate>
<asp:LinkButton ID="imgD" OnClick="imgD_Click" runat="server" AlternateText="Eliminar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</ContentTemplate>
@@ -1176,6 +1204,44 @@
</ContentTemplate>
</asp:UpdatePanel>
</div>
<%-- FIN MODAL VER UBICACION --%>
<%-- MODAL AGREGAR GASTO--%>
<div id="DivAgregarGasto" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalGastos" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="LtlTituloModalGasto" runat="server">Agregar Gasto</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtDescripcionGasto" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtDescripcionCosto" runat="server" ControlToValidate="TxtDescripcionGasto" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGasto"></asp:RequiredFieldValidator>
<label for="<%= TxtDescripcionGasto.ClientID.ToString()%>">Descripción:</label>
<i></i>
</div>
<br />
<div class="form-group form-md-line-input input-iconright" style="width: 170px!important">
<asp:TextBox ID="TxtImporteGasto" CssClass="form-control " Width="150px" runat="server" MaxLength="10" CausesValidation="true" Style="text-align: right!important" OnKeyup="FormatoMoneda(this);"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvImporteCosto" runat="server" ControlToValidate="TxtImporteGasto" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Importe''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGasto"></asp:RequiredFieldValidator>
<label for="<%= TxtImporteGasto.ClientID.ToString()%>">Importe:</label>
<i></i>
</div>
<br />
</div>
<div class="modal-footer">
<asp:Button ID="BtnAgregarGastoModal" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpGasto" OnClick="BtnAgregarGastoModal_Click" />
<button id="Button3" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<%-- FIN MODAL AGREGAR GASTO --%>
</asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
<script src="/Metronic/assets/global/plugins/dropzone/dropzone.js"></script>

142
CRM/Acercamiento.aspx.cs
View File

@@ -210,6 +210,30 @@ public partial class CRM_Acercamiento : ClsPaginas
{
return ModExtensiones.Encripta(param);
}
private Boolean Actualizar
{
get
{
return (Boolean)ViewState["Actualizar"];
}
set
{
ViewState["Actualizar"] = value;
}
}
private int CveAcercamientoGasto
{
get
{
return ViewState["CveAcercamientoGasto"].ToString().ToEntero();
}
set
{
ViewState["CveAcercamientoGasto"] = value;
}
}
#endregion
protected void Page_Load(object sender, EventArgs e)
@@ -531,7 +555,7 @@ public partial class CRM_Acercamiento : ClsPaginas
}
//AUTOGUARDADO DE CAMBIO DE ETAPA
if (DTEtapasProceso.FiltroPrimeroValor("CveTipoEtapa", String.Format("CveEtapaProceso = {0}", DdlEtapaProceso.SelectedValue.ToEntero())).Contiene("1","2","3"))
if (DTEtapasProceso.FiltroPrimeroValor("CveTipoEtapa", String.Format("CveEtapaProceso = {0}", DdlEtapaProceso.SelectedValue.ToEntero())).Contiene("1", "2", "3"))
GuardarCambioEtapa();
}
#endregion
@@ -653,7 +677,7 @@ public partial class CRM_Acercamiento : ClsPaginas
{
CveEtapaActual = CveEtapaProcesoActualActualizar;
HdfEtapaSeleccionada.Value = CveEtapaProcesoActualActualizar.ToString();
}
ObjCRM.Dispose();
@@ -1419,7 +1443,7 @@ public partial class CRM_Acercamiento : ClsPaginas
if (TieneError)
{
ObjCRM.RollBack();
Alert("El archivo el eliminó correctamente.",ModExtensiones.TipoMensaje.MsgError);
Alert("El archivo el eliminó correctamente.", ModExtensiones.TipoMensaje.MsgError);
}
else
{
@@ -1427,11 +1451,11 @@ public partial class CRM_Acercamiento : ClsPaginas
Alert("El archivo se agregó correctamente");
}
ObjCRM.Dispose();
CargaImagenes();
UpGaleria.Update();
RegistraScript("$('#Modalupfotos').modal('hide');clickgaleria();");
}
}
}
protected void BtnEliminarFoto_Click(object sender, EventArgs e)
@@ -1493,5 +1517,113 @@ public partial class CRM_Acercamiento : ClsPaginas
GvGastos.DataBind();
UpGastos.Update();
}
protected void LbAddGastos_Click(object sender, EventArgs e)
{
LtlTituloModalGasto.Text = "Agregar Gasto";
BtnAgregarGastoModal.Text = "Agregar";
UpModalGastos.Update();
TxtDescripcionGasto.Text = "";
TxtImporteGasto.Text = "";
Actualizar = false;
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarGasto"));
}
protected void BtnAgregarGastoModal_Click(object sender, EventArgs e)
{
ClsCRM ObjCRM = new ClsCRM();
if(!Actualizar)
{
if (ObjCRM.AddAcercamientosGastos(CveAcercamiento, TxtDescripcionGasto.Text, TxtImporteGasto.Text.ToDecimal(), UsuarioActual.CveUsuario))
{
CargaGastos();
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarGasto"), "jsHideModalFolioGarantia");
Alert("Gasto Agregado Correctamente", ModExtensiones.TipoMensaje.MsgInformacion);
}
else
{
Alert("Ocurrió un error al guardar el Gasto", ModExtensiones.TipoMensaje.MsgError);
}
}
else
{
if (ObjCRM.UpdateAcercamientosGastos(CveAcercamientoGasto, TxtDescripcionGasto.Text, TxtImporteGasto.Text.ToDecimal()))
{
CargaGastos();
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarGasto"), "jsHideModalFolioGarantia");
Alert("Gasto Actualizado Correctamente", ModExtensiones.TipoMensaje.MsgInformacion);
}
else
{
Alert("Ocurrió un error al actualizar el Gasto", ModExtensiones.TipoMensaje.MsgError);
}
}
Actualizar = false;
CveAcercamientoGasto = -1;
ObjCRM.Dispose();
}
protected void GvGastos_RowDataBound(object sender, GridViewRowEventArgs e)
{
if (e.Row.RowType == DataControlRowType.DataRow)
{
if (e.Row.DBCampo("CveAcercamiento").ToEntero() < 1)
{
e.Row.CssClass = "Totales";
e.Row.Cells[0].Text = "Total";
e.Row.FCLinkButton("ImgE").Visible = false;
e.Row.FCLinkButton("imgD").Visible = false;
}
}
}
protected void ImgE_Click(object sender, EventArgs e)
{
GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer;
LtlTituloModalGasto.Text = "Editar Gasto";
BtnAgregarGastoModal.Text = "Actualizar";
Actualizar = true;
CveAcercamientoGasto = GvRow.DataKey("CveAcercamientoGasto").ToEntero();
TxtDescripcionGasto.Text = GvRow.DataKey("Descripcion");
TxtImporteGasto.Text = GvRow.DataKey("Importe");
UpModalGastos.Update();
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarGasto"));
}
protected void imgD_Click(object sender, EventArgs e)
{
ClsCRM ObjCRM = new ClsCRM();
GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer;
CveAcercamientoGasto = GvRow.DataKey("CveAcercamientoGasto").ToEntero();
if (ObjCRM.RemoveAcercamientosGastos(CveAcercamientoGasto))
{
CargaGastos();
Alert("Gasto eliminado Correctamente", ModExtensiones.TipoMensaje.MsgInformacion);
}
else
{
Alert("Ocurrió un error al eliminar el Gasto", ModExtensiones.TipoMensaje.MsgError);
}
ObjCRM.Dispose();
CveAcercamientoGasto = -1;
}
#endregion
}

36
Sistemas/ConfiguracionEmpresa.aspx
View File

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

200
Sistemas/ConfiguracionEmpresa.aspx.vb
View File

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