From c05938c335867cf2a27ff89a4fabe6372b2416b0 Mon Sep 17 00:00:00 2001
From: janeth arvizu <janeth.arvizu@adssistemas.mx>
Date: Wed, 4 Sep 2019 13:55:40 -0700
Subject: [PATCH]

---
 App_Code/ClsCRM.vb                    |  47 ++++++
 CRM/Acercamiento.aspx                 |  98 ++++++++++---
 CRM/Acercamiento.aspx.cs              | 142 +++++++++++++++++-
 Sistemas/ConfiguracionEmpresa.aspx    |  36 ++---
 Sistemas/ConfiguracionEmpresa.aspx.vb | 200 ++++++++++++++------------
 5 files changed, 387 insertions(+), 136 deletions(-)

diff --git a/App_Code/ClsCRM.vb b/App_Code/ClsCRM.vb
index 6a8ad9f77..841e0b7c3 100644
--- a/App_Code/ClsCRM.vb
+++ b/App_Code/ClsCRM.vb
@@ -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
 
diff --git a/CRM/Acercamiento.aspx b/CRM/Acercamiento.aspx
index 03d84df03..8cfb6f104 100644
--- a/CRM/Acercamiento.aspx
+++ b/CRM/Acercamiento.aspx
@@ -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>
diff --git a/CRM/Acercamiento.aspx.cs b/CRM/Acercamiento.aspx.cs
index 39b9a8e20..069fe6c19 100644
--- a/CRM/Acercamiento.aspx.cs
+++ b/CRM/Acercamiento.aspx.cs
@@ -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
 }
\ No newline at end of file
diff --git a/Sistemas/ConfiguracionEmpresa.aspx b/Sistemas/ConfiguracionEmpresa.aspx
index 6f466baf7..4d55ec0e0 100644
--- a/Sistemas/ConfiguracionEmpresa.aspx
+++ b/Sistemas/ConfiguracionEmpresa.aspx
@@ -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>
diff --git a/Sistemas/ConfiguracionEmpresa.aspx.vb b/Sistemas/ConfiguracionEmpresa.aspx.vb
index a38edceea..9726e9958 100644
--- a/Sistemas/ConfiguracionEmpresa.aspx.vb
+++ b/Sistemas/ConfiguracionEmpresa.aspx.vb
@@ -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")