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

Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
rakcsle
2022-03-15 21:15:07 -07:00
parent 5c4771ef62 1c8e0c5988
commit 5640db51b0
15 changed files with 156 additions and 41 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
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
DataAdapter("PA_CRM_TipoProcesoAdd")
With SqlAdapter.SelectCommand.Parameters
@@ -138,6 +140,11 @@ Public Class ClsCRM
.Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.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
Try
SqlAdapter.Fill(Data)
@@ -148,7 +155,9 @@ Public Class ClsCRM
Return Retorno
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
DataAdapter("PA_CRM_TipoProcesoUpdate")
With SqlAdapter.SelectCommand.Parameters
@@ -156,6 +165,11 @@ Public Class ClsCRM
.Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
.Add("@CveEstatus", SqlDbType.Bit).Value = CveEstatus
.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
Try
SqlAdapter.Fill(Data)

2
App_Code/Timbres.vb
View File

@@ -252,7 +252,7 @@ Public Class Timbres
'concepto único
Dim concepto As New CFDIConceptos With {.Cantidad = 1,
.Descripcion = "Flete",
.Descripcion = "Traslado",
.ValorUnitario = 0,
.Importe = 0,
.Descuento = 0,

18
Bancos/PagoAcreedor.aspx
View File

@@ -244,8 +244,22 @@
<asp:TextBox ID="TxtObservaciones" runat="server" MaxLength="500" CssClass="form-control input-sm" Rows="3" TextMode="MultiLine" ClientIDMode="Static"></asp:TextBox>
<asp:HiddenField ID="HdnObs" runat="server" ClientIDMode="Static" />
</div>
<div class="col-md-2 input-icon">
<asp:TextBox ID="TxtTotal" runat="server" CssClass="form-control input-sm" Visible="false" MaxLength="12" Width="140px" placeholder="Total" Enabled="false" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
<div class="col-md-4 input-icon">
<div>
<div class="row">
<asp:TextBox ID="TxtTotal" runat="server" CssClass="form-control input-sm" Visible="false" MaxLength="12" Width="140px" placeholder="Total" Enabled="false" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
</div>
<div class="row">
<div class="col-md-3 input-icon">SubProyecto
</div>
<div class="col-md-3">
<asp:DropDownList runat="server" ID="DdlSubProyectoPago" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="150px" CssClass="select2me" ></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVSubProyectoPago" InitialValue="-1" runat="server" ControlToValidate="DdlSubProyectoPago" Display="None" ErrorMessage="El campo <b>'' SubProyecto''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubProyectoPago" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
</div>
</div>
</div>
<div class="row" runat="server" id="rowComisiones" visible="false">

25
Bancos/PagoAcreedor.aspx.cs
View File

@@ -140,14 +140,19 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
DdlSubProyecto.Items.Insert(0, new ListItem("Seleccione", "-1"));
DdlSubProyectoPago.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa);
DdlSubProyectoPago.DataBind();
DdlSubProyectoPago.Items.Insert(0, new ListItem("Seleccione", "-1"));
}
#region"INFORMACION GENERAL"
protected void CargaTipoTransaccion()
{
DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs'");
DdlTipoTransanccionPrestamo.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing'");
DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs' AND Estatus = 1");
DdlTipoTransanccionPrestamo.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing' AND Estatus = 1 ");
DdlTipoTransaccion.DataBind();
DdlTipoTransanccionPrestamo.DataBind();
@@ -448,7 +453,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
}
ImporteMN = Importe;
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Ref, CveConceptoDiferenciaCambiaria, Conc, DateTime.Now, IdCtaContableDiferenciaCambiaria, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), ImporteME: Importe, TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero()))
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Ref, CveConceptoDiferenciaCambiaria, Conc, DateTime.Now, IdCtaContableDiferenciaCambiaria, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), ImporteME: Importe, TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero()))
{
MsgError = "No se pudo insertar concepto de diferencia cambiaria";
}
@@ -457,7 +462,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
}
else
{
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, Importe, Ref, CveConceptoContablePago, Conc, DateTime.Now, IDCtaContableAcreedor, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero()))
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, Importe, Ref, CveConceptoContablePago, Conc, DateTime.Now, IDCtaContableAcreedor, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero()))
{
MsgError = "No se pudo insertar concepto de pago acreedor";
break;
@@ -466,7 +471,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
if (ImporteComisionMN > 0)
{
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoComision, ImporteComision, Ref, 255, Conc, DateTime.Now, IdCtaContableOtrosGastos, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComisionMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero()))
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoComision, ImporteComision, Ref, 255, Conc, DateTime.Now, IdCtaContableOtrosGastos, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComisionMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero()))
{
MsgError = "No se pudo insertar concepto de pago acreedor";
break;
@@ -492,14 +497,14 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
}
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, ImporteBanco, Ref, CveConceptoContableBanco, Conc, DateTime.Now, IDCtaContableBancos, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMNBanco, ImporteME: ImporteBanco, TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero()))
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, ImporteBanco, Ref, CveConceptoContableBanco, Conc, DateTime.Now, IDCtaContableBancos, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMNBanco, ImporteME: ImporteBanco, TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero()))
{
MsgError = "No se pudo insertar concepto de bancos";
}
if (CveMonedaPago != 1 && UsaComplementaria)
{
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, ImporteBanco, Ref, CveConceptoContableBancoComplementario, Conc, DateTime.Now, IDCtaContableBancosComplementario, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComplementaria, ImporteME: ImporteBanco, TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero()))
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, ImporteBanco, Ref, CveConceptoContableBancoComplementario, Conc, DateTime.Now, IDCtaContableBancosComplementario, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComplementaria, ImporteME: ImporteBanco, TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero()))
{
MsgError = "No se pudo insertar concepto de bancos complementaria";
}
@@ -509,14 +514,14 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
decimal Dif = AcumImporteMN - (ImporteBanco + ImporteComplementaria);
if (Dif < 0)
{
tCveConceptoOtIngresos = 211; TipoMovtoOt = false;
tCveConceptoOtIngresos = 65; TipoMovtoOt = false;
}
else
{
tCveConceptoOtIngresos = 78; TipoMovtoOt = true;
tCveConceptoOtIngresos = 64; TipoMovtoOt = true;
}
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOt, Dif.Abs(), Ref, tCveConceptoOtIngresos, Conc, DateTime.Now, 0, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: Dif.Abs(), ImporteME: Dif.Abs(), TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero()))
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOt, Dif.Abs(), Ref, tCveConceptoOtIngresos, Conc, DateTime.Now, 0, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: Dif.Abs(), ImporteME: Dif.Abs(), TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero()))
{
MsgError = "No se pudo insertar concepto de ajuste en redondeo";
}

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>
<i></i>
</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>
<ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
</div>
@@ -441,7 +441,7 @@
<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>
</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: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>
@@ -449,13 +449,13 @@
</div>
<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: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>
</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: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>
@@ -463,7 +463,7 @@
</div>
<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>
<label for="<%= DdlProbabilidadAcercamiento.ClientID.ToString()%>">Probabilidad:</label>
</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());
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
TxtNombreAcercamiento.Text = objAcercamiento.Result[0].NombreAcercamiento;
TxtDescripcion.Text = objAcercamiento.Result[0].Descripcion;

35
CRM/CatTipoProceso.aspx
View File

@@ -23,8 +23,8 @@
</li>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkImprimir"/>
<asp:PostBackTrigger ControlID="LnkImprimirExcel"/>
<asp:PostBackTrigger ControlID="LnkImprimir" />
<asp:PostBackTrigger ControlID="LnkImprimirExcel" />
</Triggers>
</asp:UpdatePanel>
</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;" />
<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>
<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"
GridLines="None" AutoGenerateColumns="false" OnRowDeleting="GVTiposProcesos_RowDeleting" OnRowDataBound="GVTiposProcesos_RowDataBound">
<Columns>
@@ -102,6 +104,33 @@
<label for="<%= TxtDescripcion.ClientID.ToString()%>">Descripción:</label>
</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">
<label runat="server" id="lblEstatus" for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label>
<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 = "";
TxtDescripcion.Text = "";
ChkEstatus.Checked = true;
ChkRequiereMedioCaptacion.Checked = false;
ChkRequiereImporte.Checked = false;
ChkRequiereProbabilidadAcercamiento.Checked = false;
ChkRequierePS.Checked = false;
ChkRequiereComision.Checked = false;
}
#endregion
@@ -110,6 +115,11 @@ public partial class CRM_CatTipoProceso : ClsPaginas
TxtTipoProceso.Text = GvRow.DataKey("TipoProceso").ToString();
TxtDescripcion.Text = GvRow.DataKey("Descripcion").ToString();
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();
@@ -128,14 +138,16 @@ public partial class CRM_CatTipoProceso : ClsPaginas
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);
}
}
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);
}

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>
</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>
<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>
@@ -651,13 +651,13 @@
<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: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>
</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: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>
@@ -665,7 +665,7 @@
</div>
<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>
<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>
@@ -682,7 +682,7 @@
</div>
<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>
<ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
</div>

30
CRM/EmpresaCRM.aspx.cs
View File

@@ -238,6 +238,19 @@ public partial class CRM_EmpresaCRM : ClsPaginas
ViewState["CveGiroClasificacion"] = value;
}
}
private List<ResponseTipoProceso> ListTipoProceso
{
get
{
return (List<ResponseTipoProceso>)ViewState["ListTipoProceso"];
}
set
{
ViewState["ListTipoProceso"] = value;
}
}
#endregion
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)
{
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.DataSource = DtMedioCaptacion.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero()));
DdlMedioCaptacionAcercamiento.DataBind();
@@ -1520,6 +1547,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
DdlMedioCaptacionAcercamiento.Enabled = false;
DdlTipoProceso.DataBind();
}
ListTipoProceso = ObjTipoProceso.Result;
if (ObjProbalidadAcercamiento.Result.Count > 0)
{
@@ -1794,7 +1822,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
protected void DdlTipoProcesos_Change(Object sender, EventArgs e)
{
DdlMedioCaptacion.Items.Clear();
CargaMetodosCaptacion();
CargaMetodosCaptacion();
UpDatos.Update();
}

2
Contabilidad/FiltraPolizas.aspx.vb
View File

@@ -46,7 +46,7 @@ Partial Class Contabilidad_FiltraPolizas
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
ContabilidadSIG = UsuarioActual.Empresa.UsaContabilidadSIG
ContabilidadSIG = UsuarioActual.Empresa.TipoContabilidad
ViewState("Orden") = ""
DdlPeriodo.SelectedValue = Now.Month.ToString
TxtFechaICredito.Text = Now.FirstDayOfMonth.ToShortDateString

2
General/SaldosIniciales.aspx.vb
View File

@@ -1246,7 +1246,7 @@ Partial Class General_SaldosIniciales
Dim Moneda As String = Row("Moneda").ToString
Dim TipoCambio As String = Row("Tipo Cambio").ToString
Dim CveMoneda As Integer = 1
Dim Vendedor As String = "" 'Row("Vendedor").ToString
Dim Vendedor As String = If(dt.Columns.Contains("Vendedor"), Row("Vendedor").ToString, "")
Dim CveVendedor As Integer = 0
Dim IEPS As Decimal = 0 'Row("IEPS").ToString.ToDecimal
Dim CveClienteSucursal As Integer = 0 'Row("CveClienteSucursal").ToString.ToEntero

12
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -212,10 +212,10 @@ Partial Class Inventarios_TraspasoAlmacen
DivTransitorio2.Visible = True
End If
If UsuarioActual.CveEmpresa.Contiene(141, 152, 158, 159, 160, 161, 162, 163) Then
ChkEmitirTimbrado.Visible = False
divEmitir.Visible = False
End If
'If UsuarioActual.CveEmpresa.Contiene(141, 152, 158, 159, 160, 161, 162, 163) Then
' ChkEmitirTimbrado.Visible = False
' divEmitir.Visible = False
'End If
If UsuarioActual.CveEmpresa.Contiene(1, 2, 119, 140) Then
@@ -3246,11 +3246,11 @@ Partial Class Inventarios_TraspasoAlmacen
Protected Sub DdlConfigAuto_SelectedIndexChanged(sender As Object, e As EventArgs)
ValidaConfiguracionVeiculo()
ValidaConfiguracionVehiculo()
End Sub
Private Sub ValidaConfiguracionVeiculo()
Private Sub ValidaConfiguracionVehiculo()
DvRemolque1.Visible = False
DvRemolque2.Visible = False

4
Ventas/PV.aspx.vb
View File

@@ -7480,8 +7480,8 @@ Partial Class PV
Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
If DrPS IsNot Nothing Then
'SOLO DEBE AGREGAR POLIZA VIRTUAL SI ES ACUMULADOR
If Not DrPS("CveClasificacion").ToString().ToEntero().Contiene(20520, 20522, 20513, 20511, 20521, 20512, 20514, 20229) Then
'SOLO DEBE AGREGAR POLIZA VIRTUAL SI ES ACUMULADOR, y que no sea marca "LTH ESPECIALES"
If Not (DrPS("CveClasificacion").ToString().ToEntero().Contiene(20520, 20522, 20513, 20511, 20521, 20512, 20514, 20229) AndAlso DrPS("CveMarca").ToString <> "1050") Then
Return Retorno
End If
Else