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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2022-03-17 14:25:20 -07:00
parent b9414c1dad 4af1707636
commit f36177ed02
12 changed files with 209 additions and 399 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
App_Code/ClsCRM.vb
View File

@@ -130,7 +130,9 @@ Public Class ClsCRM
Return Retorno Return Retorno
End Function End Function
Public Function AddTipoProceso(TipoProceso As String, Descripcion As String, CveEmpresa As Integer, CveUsuarioIng As Integer) As Boolean Public Function AddTipoProceso(TipoProceso As String, Descripcion As String, CveEmpresa As Integer, CveUsuarioIng As Integer,
RequiereMedioCaptacion As Boolean, RequiereImporte As Boolean, RequiereProbabilidadAcercamiento As Boolean,
RequierePS As Boolean, RequiereComision As Boolean) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_CRM_TipoProcesoAdd") DataAdapter("PA_CRM_TipoProcesoAdd")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -138,6 +140,11 @@ Public Class ClsCRM
.Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveUsuarioIng", SqlDbType.Int).Value = CveUsuarioIng .Add("@CveUsuarioIng", SqlDbType.Int).Value = CveUsuarioIng
.Add("@RequiereMedioCaptacion", SqlDbType.Bit).Value = RequiereMedioCaptacion
.Add("@RequiereImporte", SqlDbType.Bit).Value = RequiereImporte
.Add("@RequiereProbabilidadAcercamiento", SqlDbType.Bit).Value = RequiereProbabilidadAcercamiento
.Add("@RequierePS", SqlDbType.Bit).Value = RequierePS
.Add("@RequiereComision", SqlDbType.Bit).Value = RequiereComision
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
@@ -148,7 +155,9 @@ Public Class ClsCRM
Return Retorno Return Retorno
End Function End Function
Public Function UpdateTipoProceso(TipoProceso As String, Descripcion As String, CveEstatus As Boolean, CveTipoProceso As Integer) As Boolean Public Function UpdateTipoProceso(TipoProceso As String, Descripcion As String, CveEstatus As Boolean, CveTipoProceso As Integer,
RequiereMedioCaptacion As Boolean, RequiereImporte As Boolean, RequiereProbabilidadAcercamiento As Boolean,
RequierePS As Boolean, RequiereComision As Boolean) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_CRM_TipoProcesoUpdate") DataAdapter("PA_CRM_TipoProcesoUpdate")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -156,6 +165,11 @@ Public Class ClsCRM
.Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
.Add("@CveEstatus", SqlDbType.Bit).Value = CveEstatus .Add("@CveEstatus", SqlDbType.Bit).Value = CveEstatus
.Add("@CveTipoProceso", SqlDbType.Int).Value = CveTipoProceso .Add("@CveTipoProceso", SqlDbType.Int).Value = CveTipoProceso
.Add("@RequiereMedioCaptacion", SqlDbType.Bit).Value = RequiereMedioCaptacion
.Add("@RequiereImporte", SqlDbType.Bit).Value = RequiereImporte
.Add("@RequiereProbabilidadAcercamiento", SqlDbType.Bit).Value = RequiereProbabilidadAcercamiento
.Add("@RequierePS", SqlDbType.Bit).Value = RequierePS
.Add("@RequiereComision", SqlDbType.Bit).Value = RequiereComision
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

BIN
Bin/ADSNetLibrary.dll
View File

Binary file not shown.

10
CRM/Acercamiento.aspx
View File

@@ -410,7 +410,7 @@
<label style="height: 83px;" for="<%= TxtDescripcion.ClientID.ToString()%>">Descripción del Proyecto:</label> <label style="height: 83px;" for="<%= TxtDescripcion.ClientID.ToString()%>">Descripción del Proyecto:</label>
<i></i> <i></i>
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div id="DivPS" runat="server" class="form-group form-md-line-input input-iconright">
<label style="color:#888888" for="<%= DdlPS.ClientID.ToString()%>">Producto Servicio:</label> <label style="color:#888888" for="<%= DdlPS.ClientID.ToString()%>">Producto Servicio:</label>
<ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" /> <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
</div> </div>
@@ -441,7 +441,7 @@
<label for="<%= DdlVendedor.ClientID.ToString()%>">Vendedor Asignado:</label> <label for="<%= DdlVendedor.ClientID.ToString()%>">Vendedor Asignado:</label>
<asp:RequiredFieldValidator ID="RFVVen" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlVendedor" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Vendedor''</b> es necesario." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVVen" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlVendedor" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Vendedor''</b> es necesario." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div> </div>
<div class="form-group col-md-6 form-md-line-input input-iconright"> <div id="DivMedioCaptacion" runat="server" class="form-group col-md-6 form-md-line-input input-iconright" >
<asp:DropDownList ID="DdlMedioCaptacion" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion" Class="form-control input-sm select2me"></asp:DropDownList> <asp:DropDownList ID="DdlMedioCaptacion" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion" Class="form-control input-sm select2me"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RequiredFieldValidator3" InitialValue="-1" runat="server" ControlToValidate="DdlMedioCaptacion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b> El campo <b>''Medio de Captación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RequiredFieldValidator3" InitialValue="-1" runat="server" ControlToValidate="DdlMedioCaptacion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b> El campo <b>''Medio de Captación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<label for="<%= DdlMedioCaptacion.ClientID.ToString()%>" style="width: 90%">Medio de Captación:</label> <label for="<%= DdlMedioCaptacion.ClientID.ToString()%>" style="width: 90%">Medio de Captación:</label>
@@ -449,13 +449,13 @@
</div> </div>
<div class="row"> <div class="row">
<div class="form-group col-md-6 form-md-line-input input-iconright"> <div id="DivImporte" runat="server" class="form-group col-md-6 form-md-line-input input-iconright">
<asp:TextBox ID="TxtImporte" CssClass="form-control" runat="server" Style="text-align: right;" onkeyup="FormatoMoneda(this)"></asp:TextBox> <asp:TextBox ID="TxtImporte" CssClass="form-control" runat="server" Style="text-align: right;" onkeyup="FormatoMoneda(this)"></asp:TextBox>
<%--<asp:RequiredFieldValidator ID="RFVTxtPuestoContactoProveedor" runat="server" ControlToValidate="TxtPuestoContactoProveedor" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Puesto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarContactoProveedor"></asp:RequiredFieldValidator>--%> <%--<asp:RequiredFieldValidator ID="RFVTxtPuestoContactoProveedor" runat="server" ControlToValidate="TxtPuestoContactoProveedor" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Puesto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarContactoProveedor"></asp:RequiredFieldValidator>--%>
<label for="<%= TxtImporte.ClientID.ToString()%>" style="width: 90%;">Importe:</label> <label for="<%= TxtImporte.ClientID.ToString()%>" style="width: 90%;">Importe:</label>
</div> </div>
<div class="form-group col-md-6 form-md-line-input input-iconright"> <div id="DivComision" runat="server" class="form-group col-md-6 form-md-line-input input-iconright">
<asp:TextBox ID="TxtComision" CssClass="form-control " runat="server" Style="text-align: right;" onkeyup="FormatoMoneda(this)"></asp:TextBox> <asp:TextBox ID="TxtComision" CssClass="form-control " runat="server" Style="text-align: right;" onkeyup="FormatoMoneda(this)"></asp:TextBox>
<%--<asp:RequiredFieldValidator ID="RFVTxtPuestoContactoProveedor" runat="server" ControlToValidate="TxtPuestoContactoProveedor" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Puesto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarContactoProveedor"></asp:RequiredFieldValidator>--%> <%--<asp:RequiredFieldValidator ID="RFVTxtPuestoContactoProveedor" runat="server" ControlToValidate="TxtPuestoContactoProveedor" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Puesto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarContactoProveedor"></asp:RequiredFieldValidator>--%>
<label for="<%= TxtComision.ClientID.ToString()%>" style="width: 90%;">Comisión:</label> <label for="<%= TxtComision.ClientID.ToString()%>" style="width: 90%;">Comisión:</label>
@@ -463,7 +463,7 @@
</div> </div>
<div class="row"> <div class="row">
<div class="form-group col-md-6 form-md-line-input input-iconright"> <div id="DivProbabilidadAcercamiento" runat="server" class="form-group col-md-6 form-md-line-input input-iconright">
<asp:DropDownList ID="DdlProbabilidadAcercamiento" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="ProbabilidadAcercamiento" DataValueField="CveProbabilidadAcercamiento" Class="form-control input-sm select2me"></asp:DropDownList> <asp:DropDownList ID="DdlProbabilidadAcercamiento" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="ProbabilidadAcercamiento" DataValueField="CveProbabilidadAcercamiento" Class="form-control input-sm select2me"></asp:DropDownList>
<label for="<%= DdlProbabilidadAcercamiento.ClientID.ToString()%>">Probabilidad:</label> <label for="<%= DdlProbabilidadAcercamiento.ClientID.ToString()%>">Probabilidad:</label>
</div> </div>

13
CRM/Acercamiento.aspx.cs
View File

@@ -319,6 +319,19 @@ public partial class CRM_Acercamiento : ClsPaginas
{ {
LblEncabezadoAcercamiento.Text = String.Format("<span class='bold' style='color: #32c5d2;'>{0}:</span> {1}", objAcercamiento.Result[0].TipoProceso.ToUpper(), objAcercamiento.Result[0].NombreAcercamiento.ToUpper()); LblEncabezadoAcercamiento.Text = String.Format("<span class='bold' style='color: #32c5d2;'>{0}:</span> {1}", objAcercamiento.Result[0].TipoProceso.ToUpper(), objAcercamiento.Result[0].NombreAcercamiento.ToUpper());
CveTipoProceso = objAcercamiento.Result[0].CveTipoProceso.ToEntero(); CveTipoProceso = objAcercamiento.Result[0].CveTipoProceso.ToEntero();
RequestTipoProceso tipoProceso = new RequestTipoProceso(UsuarioActual.CveEmpresa, 1, CveTipoProceso);
var ObjTipoProceso = cRMService.GetTipoProcesoCRM(tipoProceso);
var responsetipoProceso = ObjTipoProceso.Result.FirstOrDefault();
if (responsetipoProceso != null)
{
DivComision.Visible = responsetipoProceso.RequiereComision;
DivMedioCaptacion.Visible = responsetipoProceso.RequiereMedioCaptacion;
DivImporte.Visible = responsetipoProceso.RequiereImporte;
DivProbabilidadAcercamiento.Visible = responsetipoProceso.RequiereProbabilidadAcercamiento;
DivPS.Visible = responsetipoProceso.RequierePS;
}
//SECCION DATOS DEL ACERCAMIENTO //SECCION DATOS DEL ACERCAMIENTO
TxtNombreAcercamiento.Text = objAcercamiento.Result[0].NombreAcercamiento; TxtNombreAcercamiento.Text = objAcercamiento.Result[0].NombreAcercamiento;
TxtDescripcion.Text = objAcercamiento.Result[0].Descripcion; TxtDescripcion.Text = objAcercamiento.Result[0].Descripcion;

35
CRM/CatTipoProceso.aspx
View File

@@ -23,8 +23,8 @@
</li> </li>
</ContentTemplate> </ContentTemplate>
<Triggers> <Triggers>
<asp:PostBackTrigger ControlID="LnkImprimir"/> <asp:PostBackTrigger ControlID="LnkImprimir" />
<asp:PostBackTrigger ControlID="LnkImprimirExcel"/> <asp:PostBackTrigger ControlID="LnkImprimirExcel" />
</Triggers> </Triggers>
</asp:UpdatePanel> </asp:UpdatePanel>
</asp:Content> </asp:Content>
@@ -37,7 +37,9 @@
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVTiposProcesos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" /> <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVTiposProcesos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVTiposProcesos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a> <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVTiposProcesos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div> </div>
<asp:GridView ID="GVTiposProcesos" runat="server" DataKeyNames="CveTipoProceso,TipoProceso, Descripcion, NoEtapas, Estatus, CveEstatus, UsuarioIng, CveUsuarioIng, FechaIng" EmptyDataText="No se han registrado Tipos de Procesos" <asp:GridView ID="GVTiposProcesos" runat="server" DataKeyNames="CveTipoProceso,TipoProceso, Descripcion, NoEtapas, Estatus, CveEstatus, UsuarioIng, CveUsuarioIng, FechaIng,
RequiereMedioCaptacion,RequiereImporte,RequiereProbabilidadAcercamiento,RequierePS,RequiereComision"
EmptyDataText="No se han registrado Tipos de Procesos"
EmptyDataRowStyle-HorizontalAlign="Center" CssClass="table table-striped table-advance table-hover ScrollAD Widthall mysmallbtn" data-sort="true" EmptyDataRowStyle-HorizontalAlign="Center" CssClass="table table-striped table-advance table-hover ScrollAD Widthall mysmallbtn" data-sort="true"
GridLines="None" AutoGenerateColumns="false" OnRowDeleting="GVTiposProcesos_RowDeleting" OnRowDataBound="GVTiposProcesos_RowDataBound"> GridLines="None" AutoGenerateColumns="false" OnRowDeleting="GVTiposProcesos_RowDeleting" OnRowDataBound="GVTiposProcesos_RowDataBound">
<Columns> <Columns>
@@ -102,6 +104,33 @@
<label for="<%= TxtDescripcion.ClientID.ToString()%>">Descripción:</label> <label for="<%= TxtDescripcion.ClientID.ToString()%>">Descripción:</label>
</div> </div>
<div class="row">
<div class="form-group col-md-6 form-md-line-input input-iconright" id="Div1" runat="server">
<label runat="server" id="Label1" for="<%= ChkRequiereMedioCaptacion.ClientID.ToString()%>">Requiere Medio de Captación:</label>
<asp:CheckBox ID="ChkRequiereMedioCaptacion" runat="server" />
</div>
<div class="form-group col-md-6 form-md-line-input input-iconright" id="Div2" runat="server">
<label runat="server" id="Label2" for="<%= ChkRequiereImporte.ClientID.ToString()%>">Requiere Importe:</label>
<asp:CheckBox ID="ChkRequiereImporte" runat="server" />
</div>
</div>
<div class="row">
<div class="form-group col-md-6 form-md-line-input input-iconright" id="Div3" runat="server">
<label runat="server" id="Label3" for="<%= ChkRequiereProbabilidadAcercamiento.ClientID.ToString()%>">Requiere Probabilidad de Acercamiento:</label>
<asp:CheckBox ID="ChkRequiereProbabilidadAcercamiento" runat="server" />
</div>
<div class="form-group col-md-6 form-md-line-input input-iconright" id="Div4" runat="server">
<label runat="server" id="Label4" for="<%= ChkRequierePS.ClientID.ToString()%>">Requiere PS:</label>
<asp:CheckBox ID="ChkRequierePS" runat="server" />
</div>
</div>
<div class="form-group form-md-line-input input-iconright" id="Div5" runat="server">
<label runat="server" id="Label5" for="<%= ChkRequiereComision.ClientID.ToString()%>">Requiere Comisión:</label>
<asp:CheckBox ID="ChkRequiereComision" runat="server" />
</div>
<div class="form-group form-md-line-input input-iconright" id="DivEstatus" runat="server"> <div class="form-group form-md-line-input input-iconright" id="DivEstatus" runat="server">
<label runat="server" id="lblEstatus" for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label> <label runat="server" id="lblEstatus" for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label>
<asp:CheckBox ID="ChkEstatus" runat="server" /> <asp:CheckBox ID="ChkEstatus" runat="server" />

16
CRM/CatTipoProceso.aspx.cs
View File

@@ -86,6 +86,11 @@ public partial class CRM_CatTipoProceso : ClsPaginas
TxtTipoProceso.Text = ""; TxtTipoProceso.Text = "";
TxtDescripcion.Text = ""; TxtDescripcion.Text = "";
ChkEstatus.Checked = true; ChkEstatus.Checked = true;
ChkRequiereMedioCaptacion.Checked = false;
ChkRequiereImporte.Checked = false;
ChkRequiereProbabilidadAcercamiento.Checked = false;
ChkRequierePS.Checked = false;
ChkRequiereComision.Checked = false;
} }
#endregion #endregion
@@ -110,6 +115,11 @@ public partial class CRM_CatTipoProceso : ClsPaginas
TxtTipoProceso.Text = GvRow.DataKey("TipoProceso").ToString(); TxtTipoProceso.Text = GvRow.DataKey("TipoProceso").ToString();
TxtDescripcion.Text = GvRow.DataKey("Descripcion").ToString(); TxtDescripcion.Text = GvRow.DataKey("Descripcion").ToString();
ChkEstatus.Checked = GvRow.DataKey("CveEstatus").ToString() == "True" ? true : false; ChkEstatus.Checked = GvRow.DataKey("CveEstatus").ToString() == "True" ? true : false;
ChkRequiereMedioCaptacion.Checked = GvRow.DataKey("RequiereMedioCaptacion").ToString() == "True" ? true : false;
ChkRequiereImporte.Checked = GvRow.DataKey("RequiereImporte").ToString() == "True" ? true : false;
ChkRequiereProbabilidadAcercamiento.Checked = GvRow.DataKey("RequiereProbabilidadAcercamiento").ToString() == "True" ? true : false;
ChkRequierePS.Checked = GvRow.DataKey("RequierePS").ToString() == "True" ? true : false;
ChkRequiereComision.Checked = GvRow.DataKey("RequiereComision").ToString() == "True" ? true : false;
UPModalTipoProceso.Update(); UPModalTipoProceso.Update();
@@ -128,14 +138,16 @@ public partial class CRM_CatTipoProceso : ClsPaginas
if (EsEditar == 0) if (EsEditar == 0)
{ {
if (ObjCRM.AddTipoProceso(TipoProceso, Descripcion, UsuarioActual.CveEmpresa, CveUsuarioIng)) if (ObjCRM.AddTipoProceso(TipoProceso, Descripcion, UsuarioActual.CveEmpresa, CveUsuarioIng,ChkRequiereMedioCaptacion.Checked,ChkRequiereImporte.Checked,
ChkRequiereProbabilidadAcercamiento.Checked,ChkRequierePS.Checked,ChkRequiereComision.Checked))
{ {
Alert("El Tipo de Proceso fue creado correctamente.", ModExtensiones.TipoMensaje.MsgInformacion); Alert("El Tipo de Proceso fue creado correctamente.", ModExtensiones.TipoMensaje.MsgInformacion);
} }
} }
else else
{ {
if (ObjCRM.UpdateTipoProceso(TipoProceso, Descripcion, Estatus, CveTipoProceso)) if (ObjCRM.UpdateTipoProceso(TipoProceso, Descripcion, Estatus, CveTipoProceso, ChkRequiereMedioCaptacion.Checked, ChkRequiereImporte.Checked,
ChkRequiereProbabilidadAcercamiento.Checked, ChkRequierePS.Checked, ChkRequiereComision.Checked))
{ {
Alert("El Tipo de Proceso fue actualizado correctamente.", ModExtensiones.TipoMensaje.MsgInformacion); Alert("El Tipo de Proceso fue actualizado correctamente.", ModExtensiones.TipoMensaje.MsgInformacion);
} }

10
CRM/EmpresaCRM.aspx
View File

@@ -625,7 +625,7 @@
<asp:RequiredFieldValidator ID="RFVVen" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlVendedor" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Vendedor''</b> es necesario." InitialValue="-1" ValidationGroup="VGAcercamiento"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVVen" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlVendedor" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Vendedor''</b> es necesario." InitialValue="-1" ValidationGroup="VGAcercamiento"></asp:RequiredFieldValidator>
</div> </div>
<div class="form-group col-md-6 form-md-line-input input-iconright"> <div id="DivMedioCaptacion" runat="server" class="form-group col-md-6 form-md-line-input input-iconright">
<asp:DropDownList ID="DdlMedioCaptacionAcercamiento" CausesValidation="true" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion" CssClass="form-control input-sm select2me"></asp:DropDownList> <asp:DropDownList ID="DdlMedioCaptacionAcercamiento" CausesValidation="true" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion" CssClass="form-control input-sm select2me"></asp:DropDownList>
<label for="<%= DdlMedioCaptacionAcercamiento.ClientID.ToString()%>" ><span style="color: #F3565D">*</span>Medio de Captación(depende de 'Proceso'):</label> <label for="<%= DdlMedioCaptacionAcercamiento.ClientID.ToString()%>" ><span style="color: #F3565D">*</span>Medio de Captación(depende de 'Proceso'):</label>
<asp:RequiredFieldValidator ID="RfvMedioCaptacionAcercamiento" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlMedioCaptacionAcercamiento" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Medio Captación''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="VGAcercamiento"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RfvMedioCaptacionAcercamiento" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlMedioCaptacionAcercamiento" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Medio Captación''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="VGAcercamiento"></asp:RequiredFieldValidator>
@@ -651,13 +651,13 @@
<div class="row"> <div class="row">
<div class="form-group col-md-6 form-md-line-input input-iconright"> <div id="DivImporte" runat="server" class="form-group col-md-6 form-md-line-input input-iconright" >
<asp:TextBox ID="TxtImporte" CssClass="form-control" runat="server" MaxLength="15" Style="text-align: right;" onkeyup="FormatoMoneda(this)"></asp:TextBox> <asp:TextBox ID="TxtImporte" CssClass="form-control" runat="server" MaxLength="15" Style="text-align: right;" onkeyup="FormatoMoneda(this)"></asp:TextBox>
<%--<asp:RequiredFieldValidator ID="RFVTxtPuestoContactoProveedor" runat="server" ControlToValidate="TxtPuestoContactoProveedor" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Puesto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarContactoProveedor"></asp:RequiredFieldValidator>--%> <%--<asp:RequiredFieldValidator ID="RFVTxtPuestoContactoProveedor" runat="server" ControlToValidate="TxtPuestoContactoProveedor" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Puesto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarContactoProveedor"></asp:RequiredFieldValidator>--%>
<label for="<%= TxtImporte.ClientID.ToString()%>" style="width: 90%;">Importe de Venta:</label> <label for="<%= TxtImporte.ClientID.ToString()%>" style="width: 90%;">Importe de Venta:</label>
</div> </div>
<div class="form-group col-md-6 form-md-line-input input-iconright"> <div id="DivComision" runat="server" class="form-group col-md-6 form-md-line-input input-iconright">
<asp:TextBox ID="TxtComision" Text="0.00" CssClass="form-control " runat="server" MaxLength="15" Style="text-align: right;" onkeyup="FormatoMoneda(this)"></asp:TextBox> <asp:TextBox ID="TxtComision" Text="0.00" CssClass="form-control " runat="server" MaxLength="15" Style="text-align: right;" onkeyup="FormatoMoneda(this)"></asp:TextBox>
<%--<asp:RequiredFieldValidator ID="RFVTxtPuestoContactoProveedor" runat="server" ControlToValidate="TxtPuestoContactoProveedor" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Puesto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarContactoProveedor"></asp:RequiredFieldValidator>--%> <%--<asp:RequiredFieldValidator ID="RFVTxtPuestoContactoProveedor" runat="server" ControlToValidate="TxtPuestoContactoProveedor" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Puesto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarContactoProveedor"></asp:RequiredFieldValidator>--%>
<label for="<%= TxtComision.ClientID.ToString()%>" style="width: 90%;">Comisión:</label> <label for="<%= TxtComision.ClientID.ToString()%>" style="width: 90%;">Comisión:</label>
@@ -665,7 +665,7 @@
</div> </div>
<div class="row"> <div class="row">
<div class="form-group col-md-6 form-md-line-input input-iconright"> <div id="DivProbabilidadAcercamiento" runat="server" class="form-group col-md-6 form-md-line-input input-iconright">
<asp:DropDownList ID="DdlProbabilidadAcercamiento" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="ProbabilidadAcercamiento" DataValueField="CveProbabilidadAcercamiento" Class="form-control input-sm select2me"></asp:DropDownList> <asp:DropDownList ID="DdlProbabilidadAcercamiento" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="ProbabilidadAcercamiento" DataValueField="CveProbabilidadAcercamiento" Class="form-control input-sm select2me"></asp:DropDownList>
<label for="<%= DdlProbabilidadAcercamiento.ClientID.ToString()%>"><span style="color: #F3565D">*</span> Probabilidad de Acercamiento:</label> <label for="<%= DdlProbabilidadAcercamiento.ClientID.ToString()%>"><span style="color: #F3565D">*</span> Probabilidad de Acercamiento:</label>
<asp:RequiredFieldValidator ID="RFVProbabilidad" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlProbabilidadAcercamiento" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Probabilidad''</b> es necesario." InitialValue="-1" ValidationGroup="VGAcercamiento"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVProbabilidad" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlProbabilidadAcercamiento" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Probabilidad''</b> es necesario." InitialValue="-1" ValidationGroup="VGAcercamiento"></asp:RequiredFieldValidator>
@@ -682,7 +682,7 @@
</div> </div>
<div class="row"> <div class="row">
<div class="form-group col-md-6 form-md-line-input input-iconright"> <div id="DivPS" runat="server" class="form-group col-md-6 form-md-line-input input-iconright">
<label style="color:#888888" for="<%= DdlPS.ClientID.ToString()%>">Producto Servicio:</label> <label style="color:#888888" for="<%= DdlPS.ClientID.ToString()%>">Producto Servicio:</label>
<ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" /> <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
</div> </div>

28
CRM/EmpresaCRM.aspx.cs
View File

@@ -238,6 +238,19 @@ public partial class CRM_EmpresaCRM : ClsPaginas
ViewState["CveGiroClasificacion"] = value; ViewState["CveGiroClasificacion"] = value;
} }
} }
private List<ResponseTipoProceso> ListTipoProceso
{
get
{
return (List<ResponseTipoProceso>)ViewState["ListTipoProceso"];
}
set
{
ViewState["ListTipoProceso"] = value;
}
}
#endregion #endregion
protected void Page_Load(object sender, EventArgs e) protected void Page_Load(object sender, EventArgs e)
@@ -794,6 +807,20 @@ public partial class CRM_EmpresaCRM : ClsPaginas
protected void DdlTipoProceso_Change(object sender, EventArgs e) protected void DdlTipoProceso_Change(object sender, EventArgs e)
{ {
var tipoProceso = ListTipoProceso.Where(x => x.CveTipoProceso == DdlTipoProceso.SelectedValue.ToEntero()).FirstOrDefault();
if (tipoProceso != null)
{
DivComision.Visible = tipoProceso.RequiereComision;
DivMedioCaptacion.Visible = tipoProceso.RequiereMedioCaptacion;
DivImporte.Visible = tipoProceso.RequiereImporte;
DivProbabilidadAcercamiento.Visible = tipoProceso.RequiereProbabilidadAcercamiento;
DivPS.Visible = tipoProceso.RequierePS;
}
RfvMedioCaptacionAcercamiento.Enabled = DivMedioCaptacion.Visible;
RFVProbabilidad.Enabled = DivProbabilidadAcercamiento.Visible;
DdlMedioCaptacionAcercamiento.Items.Clear(); DdlMedioCaptacionAcercamiento.Items.Clear();
DdlMedioCaptacionAcercamiento.DataSource = DtMedioCaptacion.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero())); DdlMedioCaptacionAcercamiento.DataSource = DtMedioCaptacion.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero()));
DdlMedioCaptacionAcercamiento.DataBind(); DdlMedioCaptacionAcercamiento.DataBind();
@@ -1520,6 +1547,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
DdlMedioCaptacionAcercamiento.Enabled = false; DdlMedioCaptacionAcercamiento.Enabled = false;
DdlTipoProceso.DataBind(); DdlTipoProceso.DataBind();
} }
ListTipoProceso = ObjTipoProceso.Result;
if (ObjProbalidadAcercamiento.Result.Count > 0) if (ObjProbalidadAcercamiento.Result.Count > 0)
{ {

15
Compras/Compras.aspx.vb
View File

@@ -8690,6 +8690,8 @@ Partial Class Compras_Compras
Dim DTConsultaIEPSPS As New DataTable Dim DTConsultaIEPSPS As New DataTable
DTConsultaIEPSPS = TmpDT.FiltraParametros(" AplicaIEPS = 'True'") DTConsultaIEPSPS = TmpDT.FiltraParametros(" AplicaIEPS = 'True'")
Dim IndiceContador As Integer = 0 Dim IndiceContador As Integer = 0
Dim IndicePrimero As Integer = 0 Dim IndicePrimero As Integer = 0
@@ -8703,17 +8705,14 @@ Partial Class Compras_Compras
If DiferenciaIEPSPS.RoundAD(2) <> 0 Then If DiferenciaIEPSPS.RoundAD(2) <> 0 Then
If DTConsultaIEPSPS.Rows.Count > 0 Then
'Ajusta IPES en primer registro que aplique IEPS TmpDT.Rows(IndicePrimero)("IEPSPS") = TmpDT.Rows(IndicePrimero)("IEPSPS").ToString.ToDecimal + DiferenciaIEPSPS
TmpDT.Rows(IndicePrimero)("IEPSPS") = TmpDT.Rows(IndicePrimero)("IEPSPS").ToString.ToDecimal + DiferenciaIEPSPS TmpDT.AcceptChanges()
TmpDT.AcceptChanges()
Else
Respuesta = False
Alert(String.Format("Los productos especificados en el listado no tienen asigando impuesto IEPS, favor de realizar la corrección en el producto que aplique el impuesto. ({0}-{1})", IEPSPSDetalles, TxtIEPS.Text.ToDecimal), TipoMensaje.MsgAdvertencia)
End If
End If End If
For Each dRow As DataRow In TmpDT.Rows For Each dRow As DataRow In TmpDT.Rows
If dRow("IEPSPSPorcentaje").ToString.ToDecimal > 0 AndAlso dRow("IEPSPS").ToString.ToDecimal = 0 Then If dRow("IEPSPSPorcentaje").ToString.ToDecimal > 0 AndAlso dRow("IEPSPS").ToString.ToDecimal = 0 Then

33
Empresas/140/Formatos/Traslado.rdlc
View File

@@ -15,7 +15,7 @@
<Width>2.19837cm</Width> <Width>2.19837cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>6.04844cm</Width> <Width>6.36678cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.80415cm</Width> <Width>2.80415cm</Width>
@@ -585,6 +585,7 @@
<TablixMembers> <TablixMembers>
<TablixMember> <TablixMember>
<KeepWithGroup>After</KeepWithGroup> <KeepWithGroup>After</KeepWithGroup>
<RepeatOnNewPage>true</RepeatOnNewPage>
</TablixMember> </TablixMember>
<TablixMember> <TablixMember>
<Group Name="Details" /> <Group Name="Details" />
@@ -594,11 +595,15 @@
</TablixMember> </TablixMember>
</TablixMembers> </TablixMembers>
</TablixRowHierarchy> </TablixRowHierarchy>
<RepeatColumnHeaders>true</RepeatColumnHeaders>
<RepeatRowHeaders>true</RepeatRowHeaders>
<FixedColumnHeaders>true</FixedColumnHeaders>
<FixedRowHeaders>true</FixedRowHeaders>
<DataSetName>DsInventarios</DataSetName> <DataSetName>DsInventarios</DataSetName>
<Top>0.07056cm</Top> <Top>0.07056cm</Top>
<Left>0.12006cm</Left> <Left>0.12006cm</Left>
<Height>0.73434cm</Height> <Height>0.73434cm</Height>
<Width>19.14474cm</Width> <Width>19.46308cm</Width>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -786,7 +791,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox21</rd:DefaultName> <rd:DefaultName>Textbox21</rd:DefaultName>
<Top>3.70652cm</Top> <Top>2.56352cm</Top>
<Left>2.55591cm</Left> <Left>2.55591cm</Left>
<Height>1.2cm</Height> <Height>1.2cm</Height>
<Width>5.78664cm</Width> <Width>5.78664cm</Width>
@@ -832,7 +837,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox21</rd:DefaultName> <rd:DefaultName>Textbox21</rd:DefaultName>
<Top>3.70653cm</Top> <Top>2.56353cm</Top>
<Left>11.26987cm</Left> <Left>11.26987cm</Left>
<Height>1.2cm</Height> <Height>1.2cm</Height>
<Width>5.78664cm</Width> <Width>5.78664cm</Width>
@@ -902,7 +907,7 @@
<rd:DefaultName>Textbox31</rd:DefaultName> <rd:DefaultName>Textbox31</rd:DefaultName>
<Top>0.05938cm</Top> <Top>0.05938cm</Top>
<Left>2.89438cm</Left> <Left>2.89438cm</Left>
<Height>1.2cm</Height> <Height>0.8825cm</Height>
<Width>16.69502cm</Width> <Width>16.69502cm</Width>
<ZIndex>5</ZIndex> <ZIndex>5</ZIndex>
<Style> <Style>
@@ -917,7 +922,7 @@
</Textbox> </Textbox>
<Line Name="Line3"> <Line Name="Line3">
<Top>1.25938cm</Top> <Top>1.25938cm</Top>
<Left>0.01422cm</Left> <Left>0.02048cm</Left>
<Height>0cm</Height> <Height>0cm</Height>
<Width>19.56892cm</Width> <Width>19.56892cm</Width>
<ZIndex>6</ZIndex> <ZIndex>6</ZIndex>
@@ -1064,7 +1069,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox21</rd:DefaultName> <rd:DefaultName>Textbox21</rd:DefaultName>
<Top>3.70597cm</Top> <Top>2.56297cm</Top>
<Left>6.90537cm</Left> <Left>6.90537cm</Left>
<Height>1.2cm</Height> <Height>1.2cm</Height>
<Width>5.78664cm</Width> <Width>5.78664cm</Width>
@@ -1133,7 +1138,7 @@
</ReportItems> </ReportItems>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Top>1.66302cm</Top> <Top>1.66302cm</Top>
<Height>4.90653cm</Height> <Height>3.76353cm</Height>
<Width>19.5894cm</Width> <Width>19.5894cm</Width>
<ZIndex>3</ZIndex> <ZIndex>3</ZIndex>
<Visibility> <Visibility>
@@ -1146,13 +1151,13 @@
</Style> </Style>
</Rectangle> </Rectangle>
</ReportItems> </ReportItems>
<Height>2.58644in</Height> <Height>2.13644in</Height>
<Style /> <Style />
</Body> </Body>
<Width>7.75123in</Width> <Width>7.75123in</Width>
<Page> <Page>
<PageHeader> <PageHeader>
<Height>5.08094cm</Height> <Height>4.60469cm</Height>
<PrintOnFirstPage>true</PrintOnFirstPage> <PrintOnFirstPage>true</PrintOnFirstPage>
<PrintOnLastPage>true</PrintOnLastPage> <PrintOnLastPage>true</PrintOnLastPage>
<ReportItems> <ReportItems>
@@ -1207,7 +1212,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox4</rd:DefaultName> <rd:DefaultName>Textbox4</rd:DefaultName>
<Top>4.48094cm</Top> <Top>4.00469cm</Top>
<Left>17.50175cm</Left> <Left>17.50175cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>1.76305cm</Width> <Width>1.76305cm</Width>
@@ -1239,7 +1244,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName> <rd:DefaultName>Textbox5</rd:DefaultName>
<Top>4.48092cm</Top> <Top>4.00467cm</Top>
<Left>16.38699cm</Left> <Left>16.38699cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>1.11476cm</Width> <Width>1.11476cm</Width>
@@ -1372,7 +1377,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>3.84566cm</Top> <Top>3.36941cm</Top>
<Left>0.12006cm</Left> <Left>0.12006cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>14.27979cm</Width> <Width>14.27979cm</Width>
@@ -1412,7 +1417,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>4.48094cm</Top> <Top>4.00469cm</Top>
<Left>0.12006cm</Left> <Left>0.12006cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>14.27979cm</Width> <Width>14.27979cm</Width>

16
Ventas/Clientes.aspx
View File

@@ -4600,6 +4600,22 @@
<label for="TxtDireccionAval">Dirección: </label> <label for="TxtDireccionAval">Dirección: </label>
<i></i> <i></i>
</div> </div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCiudadAval" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator20" runat="server" ControlToValidate="TxtCiudadAval" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ciudad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
<label for="TxtDireccionAval">Ciudad: </label>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtTelefonoAval" CssClass="form-control " runat="server" MaxLength="20" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator21" runat="server" ControlToValidate="TxtTelefonoAval" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Teléfono''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
<ajax:FilteredTextBoxExtender TargetControlID="TxtTelefonoAval" runat="server" FilterType="Custom" ValidChars ="1234567890" />
<label for="TxtTelefonoAval">Teléfono: </label>
<i></i>
</div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>

384
Ventas/Clientes.aspx.vb
View File

@@ -7348,9 +7348,14 @@ Partial Class Clientes
If GvRow.DataKey("Documentacion") = "Pagaré" AndAlso UsuarioActual.CveEmpresa = 140 Then If GvRow.DataKey("Documentacion") = "Pagaré" AndAlso UsuarioActual.CveEmpresa = 140 Then
stringDescargaDocumento = UsuarioActual.Empresa.Ruta & "Formatos\Pagaré.docx" stringDescargaDocumento = UsuarioActual.Empresa.Ruta & "Formatos\Pagaré.docx"
linkDescargaPagare = stringDescargaDocumento
TxtDireccionAval.Text = "" TxtDireccionAval.Text = ""
TxtAval.Text = "" TxtAval.Text = ""
TxtCiudadAval.Text = ""
TxtTelefonoAval.Text = ""
RegistraScript("$('#ModalDivPagare').modal('show')") RegistraScript("$('#ModalDivPagare').modal('show')")
Else Else
@@ -7411,8 +7416,8 @@ Partial Class Clientes
Tags.Add(New TagsDocumentos("{Telefono}", Telefono)) Tags.Add(New TagsDocumentos("{Telefono}", Telefono))
Tags.Add(New TagsDocumentos("{RazonSocialAval}", TxtAval.Text)) Tags.Add(New TagsDocumentos("{RazonSocialAval}", TxtAval.Text))
Tags.Add(New TagsDocumentos("{DireccionAval}", TxtDireccionAval.Text)) Tags.Add(New TagsDocumentos("{DireccionAval}", TxtDireccionAval.Text))
Tags.Add(New TagsDocumentos("{CiudadAval}", UsuarioActual.Empresa.Ciudad)) Tags.Add(New TagsDocumentos("{CiudadAval}", TxtCiudadAval.Text))
Tags.Add(New TagsDocumentos("{TelefonoAval}", UsuarioActual.Empresa.Telefono)) Tags.Add(New TagsDocumentos("{TelefonoAval}", TxtTelefonoAval.Text))
If Not ObjClientes.AddClientePagare(CveCliente, UsuarioActual.CveEmpresa, TxtAval.Text, TxtDireccionAval.Text) Then If Not ObjClientes.AddClientePagare(CveCliente, UsuarioActual.CveEmpresa, TxtAval.Text, TxtDireccionAval.Text) Then
Alert("no se pudo registrar el pagare") Alert("no se pudo registrar el pagare")
@@ -7543,12 +7548,39 @@ Partial Class Clientes
End Sub End Sub
Public Sub DownLoadFormato_ClickDocumentacion(sender As Object, e As EventArgs) Public Sub DownLoadFormato_ClickDocumentacion(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim Adjunto As String = GvRow.DataKey("Adjunto")
Dim stringDescargaDocumento As String = ""
Dim asdasd = GvRow.DataKey("Documentacion")
If GvRow.DataKey("Documentacion").ToUpper = "Pagaré".ToUpper AndAlso UsuarioActual.CveEmpresa = 140 Then
stringDescargaDocumento = UsuarioActual.Empresa.Ruta & "Formatos\Pagaré.docx"
linkDescargaPagare = stringDescargaDocumento
TxtDireccionAval.Text = ""
TxtAval.Text = ""
TxtCiudadAval.Text = ""
TxtTelefonoAval.Text = ""
RegistraScript("$('#ModalDivPagare').modal('show')")
Else
Dim CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToString().ToEntero()
Dim DocumentacionFormato As String = CveDocumentacion & "_" & GvRow.DataKey("DocumentacionFormato")
DescarFormato(DocumentacionFormato)
End If
Dim CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToString().ToEntero()
Dim DocumentacionFormato As String = CveDocumentacion & "_" & GvRow.DataKey("DocumentacionFormato")
DescarFormato(DocumentacionFormato)
End Sub End Sub
Public Sub DescarFormato(documento As String) Public Sub DescarFormato(documento As String)
@@ -7558,6 +7590,8 @@ Partial Class Clientes
Dim pathDesti As String Dim pathDesti As String
Dim fname As String = "" Dim fname As String = ""
PathSource = UsuarioActual.Empresa.Ruta & "Formatos\" & documento PathSource = UsuarioActual.Empresa.Ruta & "Formatos\" & documento
pathDesti = PathRoot & "Temp\" & CveCliente & documento pathDesti = PathRoot & "Temp\" & CveCliente & documento
@@ -7610,346 +7644,6 @@ Partial Class Clientes
'Private Function GetDatosTagsDocumentos() As List(Of TagsDocumentos)
' Dim ListaTagsDocumentost = New List(Of TagsDocumentos)
' If CvePersonal <> -1 Then
' Dim objRH As New ClsRH
' If objRH.PersonalReclutamientoGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
' ListaTagsDocumentost.Add(New TagsDocumentos("{Nombres}", objRH.DtResultados(0)("Nombres").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{APaterno}", objRH.DtResultados(0)("APaterno").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{AMaterno}", objRH.DtResultados(0)("AMaterno").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{RFC}", objRH.DtResultados(0)("RFC").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{NombreCompleto}", Cliente))
' ListaTagsDocumentost.Add(New TagsDocumentos("{Estatura}", objRH.DtResultados(0)("Estatura").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{Peso}", objRH.DtResultados(0)("Peso").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{LugarNacimiento}", objRH.DtResultados(0)("LugarNacimiento").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{Edad}", objRH.DtResultados(0)("Edad").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{NombreTelEmergencia}", objRH.DtResultados(0)("NombreTelEmergencia").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{TipoSangre}", objRH.DtResultados(0)("TipoSangre").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{Vivienda}", objRH.DtResultados(0)("Vivienda").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{ViviendaDueno}", objRH.DtResultados(0)("ViviendaDueno").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{CreditoInfonavit}", objRH.DtResultados(0)("CreditoInfonavit").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{RentaMensual}", objRH.DtResultados(0)("RentaMensual").ToString().ToDecimal().ToString("###,###,###.00")))
' ListaTagsDocumentost.Add(New TagsDocumentos("{TransportePublico}", objRH.DtResultados(0)("TransportePublico").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormente}", objRH.DtResultados(0)("TrabajadoAnteriormente").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormenteObservaciones}", objRH.DtResultados(0)("TrabajadoAnteriormenteObservaciones").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{ParientesEmpresa}", objRH.DtResultados(0)("ParientesEmpresa").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelito}", objRH.DtResultados(0)("AcusadoDelito").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelitoObservaciones}", objRH.DtResultados(0)("AcusadoDelitoObservaciones").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{Calle}", objRH.DtResultados(0)("Calle").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{Colonia}", objRH.DtResultados(0)("Colonia").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{CP}", objRH.DtResultados(0)("CP").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{Telefono}", objRH.DtResultados(0)("Telefono").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{Celular}", objRH.DtResultados(0)("Celular").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{Correo}", objRH.DtResultados(0)("Correo").ToString()))
' 'If Not IsDBNull(objRH.DtResultados(0)("CveSucursal")) Then
' ' ListaTagsDocumentost.Add(New TagsDocumentos("{CveSucursal}", DDLSucursal4.Text))
' 'End If
' ListaTagsDocumentost.Add(New TagsDocumentos("{NumeroSS}", objRH.DtResultados(0)("NumeroSS").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{Licencia}", objRH.DtResultados(0)("Licencia").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{CartillaMilitar}", objRH.DtResultados(0)("CartillaMilitar").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{CURP}", objRH.DtResultados(0)("CURP").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{AutorizaAntidoping}", objRH.DtResultados(0)("AutorizaAntidoping").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{Observaciones}", objRH.DtResultados(0)("Observaciones").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{FechaIngreso}", objRH.DtResultados(0)("FechaIngreso").ToString().ToDate().ToShortDateString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString().ToDate().ToShortDateString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{Puesto}", objRH.DtResultados(0)("Puesto").ToString()))
' ListaTagsDocumentost.Add(New TagsDocumentos("{CUIP}", ""))
' ListaTagsDocumentost.Add(New TagsDocumentos("{Denominacion}", ""))
' ListaTagsDocumentost.Add(New TagsDocumentos("{FechaNacimiento}", objRH.DtResultados(0)("FechaNacimiento").ToString().ToDate().ToString("dd/MM/yyyy")))
' Dim fechaActual As String = " " & Now.Day & " del mes " & Now.Month & " del año " & Now.Year
' Dim FechaActualDF As String = Now.ToString("dd/MM/yyyy")
' ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActual}", fechaActual))
' ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActualDF}", FechaActualDF))
' End If
' objRH.Dispose()
' End If
' Return ListaTagsDocumentost
'End Function
''Private Function GetDatosTagsDocumentos() As List(Of TagsDocumentos)
'' Dim ListaTagsDocumentost = New List(Of TagsDocumentos)
'' If CvePersonal <> -1 Then
'' Dim objRH As New ClsRH
'' If objRH.PersonalReclutamientoGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
'' If Not IsDBNull(objRH.DtResultados(0)("Nombres")) Then
'' ListaTagsDocumentost.Add(New TagsDocumentos("{Nombres}", objRH.DtResultados(0)("Nombres").ToString()))
'' End If
'' If Not objRH.DtResultados(0)("APaterno") Is Nothing Then
'' ListaTagsDocumentost.Add(New TagsDocumentos("{APaterno}", objRH.DtResultados(0)("APaterno").ToString()))
'' End If
'' If Not objRH.DtResultados(0)("AMaterno") Is Nothing Then
'' ListaTagsDocumentost.Add(New TagsDocumentos("{AMaterno}", objRH.DtResultados(0)("AMaterno").ToString()))
'' End If
'' If Not objRH.DtResultados(0)("NombreCompleto") Is Nothing Then
'' ListaTagsDocumentost.Add(New TagsDocumentos("{NombreCompleto}", objRH.DtResultados(0)("NombreCompleto").ToString()))
'' End If
'' If Not IsDBNull(objRH.DtResultados(0)("Estatura")) Then
'' ListaTagsDocumentost.Add(New TagsDocumentos("{Estatura}", objRH.DtResultados(0)("Estatura").ToString()))
'' End If
'' If Not IsDBNull(objRH.DtResultados(0)("Peso")) Then
'' ListaTagsDocumentost.Add(New TagsDocumentos("{Peso}", objRH.DtResultados(0)("Peso").ToString()))
'' End If
'' If Not IsDBNull(objRH.DtResultados(0)("LugarNacimiento")) Then
'' ListaTagsDocumentost.Add(New TagsDocumentos("{LugarNacimiento}", objRH.DtResultados(0)("LugarNacimiento").ToString()))
'' End If
'' If Not IsDBNull(objRH.DtResultados(0)("Edad")) Then
'' ListaTagsDocumentost.Add(New TagsDocumentos("{Edad}", objRH.DtResultados(0)("Edad").ToString()))
'' End If
'' If Not IsDBNull(objRH.DtResultados(0)("NombreTelEmergencia")) Then
'' ListaTagsDocumentost.Add(New TagsDocumentos("{NombreTelEmergencia}", objRH.DtResultados(0)("NombreTelEmergencia").ToString()))
'' End If
'' If Not IsDBNull(objRH.DtResultados(0)("TipoSangre")) Then
'' ListaTagsDocumentost.Add(New TagsDocumentos("{TipoSangre}", objRH.DtResultados(0)("TipoSangre").ToString()))
'' End If
'' If Not IsDBNull(objRH.DtResultados(0)("Vivienda")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Vivienda}", objRH.DtResultados(0)("Vivienda").ToString()))
'' If Not IsDBNull(objRH.DtResultados(0)("ViviendaDueno")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{ViviendaDueno}", objRH.DtResultados(0)("ViviendaDueno").ToString()))
'' If Not IsDBNull(objRH.DtResultados(0)("CreditoInfonavit")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CreditoInfonavit}", objRH.DtResultados(0)("CreditoInfonavit").ToString()))
'' If Not IsDBNull(objRH.DtResultados(0)("RentaMensual")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{RentaMensual}", objRH.DtResultados(0)("RentaMensual").ToString().ToDecimal().ToString("###,###,###.00")))
'' If Not IsDBNull(objRH.DtResultados(0)("TransportePublico")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{TransportePublico}", objRH.DtResultados(0)("TransportePublico").ToString()))
'' If Not IsDBNull(objRH.DtResultados(0)("TrabajadoAnteriormente")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormente}", objRH.DtResultados(0)("TrabajadoAnteriormente").ToString()))
'' If Not IsDBNull(objRH.DtResultados(0)("TrabajadoAnteriormenteObservaciones")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormenteObservaciones}", objRH.DtResultados(0)("TrabajadoAnteriormenteObservaciones").ToString()))
'' If Not IsDBNull(objRH.DtResultados(0)("ParientesEmpresa")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{ParientesEmpresa}", objRH.DtResultados(0)("ParientesEmpresa").ToString()))
'' If Not IsDBNull(objRH.DtResultados(0)("AcusadoDelito")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelito}", objRH.DtResultados(0)("AcusadoDelito").ToString()))
'' If Not IsDBNull(objRH.DtResultados(0)("AcusadoDelitoObservaciones")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelitoObservaciones}", objRH.DtResultados(0)("AcusadoDelitoObservaciones").ToString()))
'' If Not IsDBNull(objRH.DtResultados(0)("Direccion")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString()))
'' If Not IsDBNull(objRH.DtResultados(0)("Calle")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Calle}", objRH.DtResultados(0)("Calle").ToString()))
'' If Not IsDBNull(objRH.DtResultados(0)("Colonia")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Colonia}", objRH.DtResultados(0)("Colonia").ToString()))
'' If Not IsDBNull(objRH.DtResultados(0)("CP")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CP}", objRH.DtResultados(0)("CP").ToString()))
'' If Not IsDBNull(objRH.DtResultados(0)("Telefono")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Telefono}", objRH.DtResultados(0)("Telefono").ToString()))
'' If Not IsDBNull(objRH.DtResultados(0)("Celular")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Celular}", objRH.DtResultados(0)("Celular").ToString()))
'' If Not IsDBNull(objRH.DtResultados(0)("Correo")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Correo}", objRH.DtResultados(0)("Correo").ToString()))
'' If Not IsDBNull(objRH.DtResultados(0)("CveSucursal")) Then
'' ' ListaTagsDocumentost.Add(New TagsDocumentos("{CveSucursal}", DDLSucursal4.Text))
'' End If
'' If Not IsDBNull(objRH.DtResultados(0)("NumeroSS")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{NumeroSS}", objRH.DtResultados(0)("NumeroSS").ToString()))
'' If Not IsDBNull(objRH.DtResultados(0)("Licencia")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Licencia}", objRH.DtResultados(0)("Licencia").ToString()))
'' If Not IsDBNull(objRH.DtResultados(0)("CartillaMilitar")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CartillaMilitar}", objRH.DtResultados(0)("CartillaMilitar").ToString()))
'' If Not IsDBNull(objRH.DtResultados(0)("CURP")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CURP}", objRH.DtResultados(0)("CURP").ToString()))
'' If Not IsDBNull(objRH.DtResultados(0)("AutorizaAntidoping")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{AutorizaAntidoping}", objRH.DtResultados(0)("AutorizaAntidoping").ToString()))
'' If Not IsDBNull(objRH.DtResultados(0)("Observaciones")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Observaciones}", objRH.DtResultados(0)("Observaciones").ToString()))
'' If Not IsDBNull(objRH.DtResultados(0)("CredencialElector")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CredencialElector}", objRH.DtResultados(0)("CredencialElector").ToString()))
'' If Not IsDBNull(objRH.DtResultados(0)("Sucursal")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Sucursal}", objRH.DtResultados(0)("Sucursal").ToString()))
'' If Not IsDBNull(objRH.DtResultados(0)("Puesto")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Puesto}", objRH.DtResultados(0)("Puesto").ToString()))
'' 'If Not IsDBNull(objRH.DtResultados(0)("InformacionFidedigno")) Then chkFidedigna4.Checked = objRH.DtResultados(0)("InformacionFidedigno")
'' ListaTagsDocumentost.Add(New TagsDocumentos("{InformacionFidedigno}", objRH.DtResultados(0)("InformacionFidedigno").ToString()))
'' End If
'' If Not IsDBNull(objRH.DtResultados(0)("FechaNacimiento")) Then
'' ListaTagsDocumentost.Add(New TagsDocumentos("{InformacionFidedigno}", objRH.DtResultados(0)("FechaNacimiento").ToString().ToDate().ToString("dd/MM/yyyy")))
'' End If
'' Dim fechaActual As String = " " & Now.Day & " del mes " & Now.Month & " del año " & Now.Year
'' Dim FechaActualDF As String = Now.ToString("dd/MM/yyyy")
'' ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActual}", fechaActual))
'' ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActualDF}", FechaActualDF))
'' objRH.Dispose()
'' End If
'' Return ListaTagsDocumentost
''End Function
Private Sub RegistraDescargaJavaScript(baseUrl As String) Private Sub RegistraDescargaJavaScript(baseUrl As String)
RegistraScript("Download('" & baseUrl & "')") RegistraScript("Download('" & baseUrl & "')")