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

Merge branch 'master' of http://jperez@adsistemasof.sytes.net:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-05-12 00:29:24 -07:00
parent 4dd49e29f5 bb3f752cc7
commit d36ed8b48e
10 changed files with 2360 additions and 606 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
CRM/EmpresaCRM.aspx.cs
View File

@@ -1424,8 +1424,14 @@ public partial class CRM_EmpresaCRM : ClsPaginas
int CveAcercamiento = -1;
CveAcercamiento = ObjCRM.AddAcercamiento(CveEmpresaCRM, CveContactoPrincipal, CveTipoProceso, CveEtapaProcesoActual, CveVendedor, CveMedioCaptacion, CveRechazoMotivo, CveProbabilidadAcercamiento,
FechaApertura, NombreAcercamiento, Descripcion, Importe, Comision, Prioridad, UsuarioActual.CveEmpresa, CveUsuarioIng);
if (ObjCRM.DtResultados.Rows.Count > 0)
{
CveAcercamiento = ObjCRM.AddAcercamiento(CveEmpresaCRM, CveContactoPrincipal, CveTipoProceso, CveEtapaProcesoActual, CveVendedor, CveMedioCaptacion, CveRechazoMotivo, CveProbabilidadAcercamiento,
FechaApertura, NombreAcercamiento, Descripcion, Importe, Comision, Prioridad, UsuarioActual.CveEmpresa, CveUsuarioIng);
}else
{
Alert("No tiene Etapa Proceso con el Tipo Proceso seleccionado",ModExtensiones.TipoMensaje.MsgAdvertencia);
}
if (CveAcercamiento > 0)
{

1000
Empresas/Grales/Formatos/EquiposGPS.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

963
Empresas/Grales/Formatos/TareaDetalle.rdlc
View File

File diff suppressed because it is too large Load Diff

2
Inicio.aspx.vb
View File

@@ -225,7 +225,7 @@ Partial Class Inicio
Private Sub MuestraComprasPUE()
Dim objCompras As New ClsCompras
Dim FechaInicio As Date = Now.AddYears(-2)
LblComprasPUE.Text = "Facturas apartir de " & FechaInicio.ToShortDateString
LblComprasPUE.Text = "Facturas a partir de: " & FechaInicio.ToShortDateString
If objCompras.GetPUESinPago(FechaInicio, Now, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
If objCompras.DtResultados.Rows.Count > 0 Then
GvCompPUE.DataSource = objCompras.DtResultados

176
Inventarios/EntradasSalidas.aspx
View File

@@ -146,6 +146,7 @@
</div>
<div class="caption uppercase" style="position: relative;">
<i class="fa fa-info-circle"></i>Información del movimiento
</div>
</div>
<div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style='display:none;'")%>>
@@ -275,9 +276,10 @@
<div class="row">
<label class="col-md-1 truncate" style="width: 110px">
Observaciones:
</label>
<div class="col-md-5">
<asp:TextBox ID="TxtObservaciones" TextMode="MultiLine" Rows="2" CssClass="form-control input-sm" runat="server" MaxLength="232"></asp:TextBox>
<asp:TextBox ID="TxtObservaciones" TextMode="MultiLine" Rows="2" CssClass="form-control input-sm" runat="server" MaxLength="232"></asp:TextBox>
</div>
</div>
<div class="row" id="TrPersonal" runat="server" visible="false">
@@ -331,6 +333,7 @@
</div>
<div class="caption uppercase" style="position: relative;">
<i class="fa fa-info-circle"></i>Agregar Producto
</div>
</div>
<div class="portlet-body">
@@ -405,12 +408,14 @@
</div>
<div class="caption uppercase" style="position: relative;">
<i class="fa fa-info-circle"></i>Información de registro
</div>
</div>
<div class="portlet-body">
<div class="row">
<label class="col-md-3 truncate">
Usuario:
</label>
<div class="col-md-6">
<asp:Label ID="LblUsuarioRegistro" runat="server"></asp:Label>
@@ -420,6 +425,7 @@
<div class="row" style="margin-top: 10px;">
<label class="col-md-3 truncate">
Fecha:
</label>
<div class="col-md-6">
<asp:Label ID="LblFechaRegistro" runat="server"></asp:Label>
@@ -428,6 +434,7 @@
<div class="row" style="margin-top: 10px;">
<label class="col-md-3 truncate">
Referencia:
</label>
<div class="col-md-6">
<asp:HyperLink ID="HplCompra" Target="_blank" runat="server" Visible="False" CssClass="Texto">Ver Compra</asp:HyperLink>
@@ -440,6 +447,7 @@
<div class="row" runat="server" id="RowConsignacion" visible="false" style="margin-top: 10px;">
<label class="col-md-3 truncate">
Consignación:
</label>
<div class="col-md-6">
<asp:HyperLink ID="HLConsignacion" Target="_blank" NavigateUrl="#" Text="" runat="server" />
@@ -449,6 +457,7 @@
<div class="row" runat="server" id="RowTipoCambio" visible="false" style="margin-top: 10px;">
<label class="col-md-3 truncate">
Tipo Cambio:
</label>
<div class="col-md-6">
<asp:Label Text="" ID="LbTipoCambio" runat="server" />
@@ -457,6 +466,7 @@
<div class="row" runat="server" id="RowMtoRel" visible="false" style="margin-top: 10px;">
<label class="col-md-3 truncate">
Mto. Rel.:
</label>
<div class="col-md-6">
<asp:HyperLink ID="lnkMtoRelaioando" CssClass="Texto" runat="server" Target="_blank">ver</asp:HyperLink>
@@ -474,6 +484,7 @@
</div>
<div class="caption uppercase" style="position: relative;">
<i class="fa fa-info-circle"></i>Tipo de Cambio
</div>
</div>
<div class="portlet-body">
@@ -542,7 +553,7 @@
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<table border="0" cellpadding="0" class="Widthall grides" cellspacing="0">
<%--<table border="0" cellpadding="0" class="Widthall grides" cellspacing="0">
<tbody>
<tr class="Titulos">
<th style="width: 28px">#</th>
@@ -551,10 +562,7 @@
Producto </th>
<th width="73px">U.M.</th>
<th width="63px" id="tdPU" runat="server" visible="false">P.U.</th>
<th width="63px" id="ThTotal" runat="server" visible="false">Total</th>
<th width="63px" id="tdPUExtranjero" runat="server" visible="false">PU Extran</th>
<th width="63px" id="tdCI" runat="server" visible="false">CI</th>
<th width="63px" id="ThAF" runat="server" visible="false">Activo Fijo</th>
<th style="width: 88px" runat="server" id="TrSerieLote2" visible="false">
<asp:Label runat="server" ID="LblSerieLote" Visible="false">Serie - Lote</asp:Label></th>
<th style="width: 88px" runat="server" id="TrLote2" visible="false">Lote</th>
@@ -565,8 +573,8 @@
</tr>
<tr align="center">
<td></td>
<td>
<asp:TextBox ID="txtCantidad" CssClass="form-control input-sm" Width="55px" MaxLength="15" runat="server" ValidationGroup="GprAgregaPS"></asp:TextBox>
<td>--%>
<%--<asp:TextBox ID="txtCantidad" CssClass="form-control input-sm" Width="55px" MaxLength="15" runat="server" ValidationGroup="GprAgregaPS"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="SoloNumerosCantidad" runat="server" TargetControlID="txtCantidad" FilterType="Custom, Numbers" ValidChars="." />
<asp:RequiredFieldValidator ID="RFVCantidad" runat="server" ControlToValidate="txtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="GprAgregaPS"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCOCantidad1" runat="server" HighlightCssClass="vco" TargetControlID="RFVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
@@ -576,11 +584,6 @@
<td style="text-align: center;">
<div class="psagregar">
<div class="comboxes">
<asp:DropDownList ID="DdlClasificacion" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%" Class="form-control input-sm select2me">
<asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
</asp:DropDownList>
<br />
<ADS:Dropdownlost runat="server" ID="DdlProducto2" CssStyle="width: 100%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
</div>
</div>
</td>
@@ -594,7 +597,6 @@
<ajax:FilteredTextBoxExtender ID="ftbe" runat="server" TargetControlID="txtPrecio" FilterType="Custom, Numbers" ValidChars="+-.," />
</td>
<td id="TdTotal" runat="server" visible="false"></td>
<td id="tdPUExtranjero2" runat="server" visible="false"></td>
<td id="tdCI2" runat="server" visible="false"></td>
<td id="tdAF" runat="server" align="center" visible="false">
<asp:UpdatePanel ID="UPPNumEcon" runat="server" UpdateMode="Conditional">
@@ -619,12 +621,10 @@
<asp:TextBox ID="TxtnLote" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
</td>
<td runat="server" id="TrBatch" visible="false">
<asp:TextBox ID="TxtnBatch" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
</td>
<td runat="server" id="TrSeccionAlmacen" visible="false">
<asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="Seccion" AppendDataBoundItems="true" DataValueField="CveSeccion" CssClass="select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
</td>
<td>
<asp:TextBox ID="TxtObservacionesdetalle" CssClass="form-control input-sm" runat="server" MaxLength="200"></asp:TextBox>
@@ -634,8 +634,13 @@
</td>
</tr>
</tbody>
</table>
</table>--%>
<div class="row">
<div class="col-md-12" align="Right">
<asp:LinkButton ID="LkAgregar" runat="server" CssClass="btn btn-default" Text="Agregar Producto" />
</div>
</div>
<br />
<div class="row">
<div class="col-md-12" align="right">
<asp:Label ID="LbTotalMovimientos" Text="Total de Movimientos: 0" runat="server" />
@@ -649,9 +654,21 @@
<asp:Button ID="BtnVinculaAFEdit" ClientIDMode="Static" OnClick="BtnVinculaAFEdit_Click" Style="display: none;" runat="server" />
<asp:HiddenField runat="server" ID="HdnCodAFEdit" Value="-1" ClientIDMode="Static" />
<asp:GridView ID="GvM" runat="server" GridLines="none" CssClass="tabla_correcto grides Widthall mysmallbtn" ShowHeader="False" EmptyDataText="Aún no hay registros." DataKeyNames="No,CveMovimientoDetalle,Cantidad" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="True" ShowHeaderWhenEmpty="True">
<asp:GridView ID="GvM" runat="server" GridLines="none" CssClass="tabla_correcto grides Widthall mysmallbtn" ShowHeader="True" EmptyDataText="Aún no hay registros."
DataKeyNames="No,CveMovimientoDetalle,Cantidad,CvePS,CveUM,PU,Observaciones,CodigoPS,UnidadMedida,CveAF,SerieLote,CveSeccionAlmacen"
AutoGenerateColumns="False" AllowPaging="False" ShowFooter="True" ShowHeaderWhenEmpty="True">
<Columns>
<asp:TemplateField HeaderText="" ItemStyle-Font-Size="6pt">
<asp:TemplateField HeaderText="CveMovimientoDetalle" ItemStyle-Font-Size="6pt" Visible="false">
<ItemTemplate>
<asp:Literal ID="lbMovimientoDetalle" runat="server" Text='<%# Eval("CveMovimientoDetalle")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="CvePS" ItemStyle-Font-Size="6pt" Visible="false">
<ItemTemplate>
<asp:Literal ID="lbCvePS" runat="server" Text='<%# Eval("CvePS")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="#" ItemStyle-Font-Size="6pt">
<EditItemTemplate>
<asp:Literal ID="lbNo" runat="server" Text='<%# Eval("No")%>'></asp:Literal>
</EditItemTemplate>
@@ -791,7 +808,12 @@
<asp:LinkButton data-toggle="tooltip" title="Sección Almacen" ID="LnkSeccionAlmacen" OnClick="LnkSeccionAlmacen_Click" CssClass="btn btn-circle btn-xs green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<asp:TemplateField ItemStyle-Width="20px">
<ItemTemplate>
<asp:LinkButton ID="ImgEd" runat="server" AlternateText="Editar" CausesValidation="False" OnClick="EditPS" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField Visible="false">
<EditItemTemplate>
<center>
<asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" />
@@ -799,7 +821,7 @@
</center>
</EditItemTemplate>
<ItemTemplate>
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
<%--<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />--%>
<asp:LinkButton ID="lnkRemove" runat="server" AlternateText="Eliminar" OnClick="DeleteRow" CommandArgument='<%# Eval("No")%>' CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar el concepto?" data-btn-ok-label="si" />
<asp:LinkButton ID="lnkDividir" runat="server" AlternateText="Eliminar" OnClick="DividirRow" CommandArgument='<%# Eval("No")%>' Style="font-size: 9px" CssClass="btn btn-circle btn-sm red" Text="<i class='fas fa-chart-pie-alt'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea dividir el concepto en unidades?" data-btn-ok-label="si" />
</ItemTemplate>
@@ -953,6 +975,7 @@
<div class="row">
<div class="col-md-5" style="text-align: right;">
Cantidad
</div>
<div class="col-md-7">
<asp:TextBox ClientIDMode="Static" ID="TxtCantidadEspecial" Text="" runat="server"></asp:TextBox>
@@ -1394,6 +1417,7 @@
</div>
</div>
</div>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LbDescargarExcelConceptos" />
@@ -1487,6 +1511,112 @@
</asp:UpdatePanel>
</div>
<div id="ModalAgregar" class="modal ADS fade" role="dialog">
<asp:UpdatePanel class="modal-dialog" runat="server" ID="UpAgregar" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-content">
<div class="modal-header ">
<h4 class="modal-title">
<asp:Literal ID="Literal3" Text="Detalles" runat="server"> </asp:Literal></h4>
</div>
<div class="modal-body">
<div runat="server" id="divCantidad" class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="txtCantidad" CssClass="form-control input-sm" Width="50%" MaxLength="15" runat="server" ValidationGroup="GprAgregaPS"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="SoloNumerosCantidad" runat="server" TargetControlID="txtCantidad" FilterType="Custom, Numbers" ValidChars="." />
<asp:RequiredFieldValidator ID="RFVCantidad" runat="server" ControlToValidate="txtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="GprAgregaPS"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCOCantidad1" runat="server" HighlightCssClass="vco" TargetControlID="RFVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
<asp:CustomValidator ID="CVCantidad" runat="server" ClientValidationFunction="ValidaDecimal6digits" ControlToValidate="TxtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> no tiene el formato correcto (6 decimales). Por favor rectifique y vuelva a intentar." ValidateEmptyText="True" ValidationGroup="GprAgregaPS"></asp:CustomValidator>
<ajax:ValidatorCalloutExtender ID="VCECantidad" runat="server" HighlightCssClass="vco" TargetControlID="CVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
<label for="<%= txtCantidad.ClientID.ToString()%>">Cant</label>
<br />
</div>
<div runat="server" id="divClasificacionProducto" class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlClasificacion" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%" Class="form-control input-sm select2me">
<asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
</asp:DropDownList>
<br />
<ADS:Dropdownlost runat="server" ID="DdlProducto2" CssStyle="width: 100%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
<label for="<%= DdlProducto2.ClientID.ToString()%>">Clasificación Producto</label>
<br />
</div>
<div runat="server" id="divUnidadMedida" class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlUnidad" runat="server" Class="form-control input-sm select2me" Style="width: 100px !important;" DataTextField="UnidadMedida" DataValueField="CveUnidadMedida"></asp:DropDownList>
<label for="<%= DdlUnidad.ClientID.ToString()%>">U.M.</label>
<br />
</div>
<div runat="server" id="divPrecio" class="form-group form-md-line-input input-iconright" visible="false">
<asp:TextBox ID="txtPrecio" CssClass="form-control input-sm" runat="server" Width="50%" Visible="false"></asp:TextBox>
<label for="<%= txtPrecio.ClientID.ToString()%>">P.U.</label>
<br />
</div>
<div runat="server" id="divSerieLote" class="form-group form-md-line-input input-iconright" visible="false">
<asp:TextBox ID="TxtnSerieLote" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
<asp:Button Text="" ID="BtnSerieAddNew" OnClick="BtnSerieAddNew_Click" Style="display: none" runat="server" />
<label for="<%= TxtnSerieLote.ClientID.ToString()%>">Serie Lote</label>
<br />
</div>
<div runat="server" id="divLote" class="form-group form-md-line-input input-iconright" visible="false">
<asp:TextBox ID="TxtnLote" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
<label for="<%= TxtnLote.ClientID.ToString()%>">Lote</label>
<br />
</div>
<div runat="server" id="divBatch" class="form-group form-md-line-input input-iconright" visible="false">
<asp:TextBox ID="TxtnBatch" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
<label for="<%= TxtnBatch.ClientID.ToString()%>">Batch</label>
<br />
</div>
<div runat="server" id="divSeccionAlmacen" class="form-group form-md-line-input input-iconright" visible="false">
<asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="Seccion" AppendDataBoundItems="true" DataValueField="CveSeccion" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<label for="<%= DdlSeccionAlmacen.ClientID.ToString()%>">Sección Almacén</label>
</div>
<br />
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtObservacionesdetalle" CssClass="form-control input-sm" runat="server" MaxLength="200"></asp:TextBox>
<label for="<%= TxtObservacionesdetalle.ClientID.ToString()%>">Observaciones</label>
<br />
</div>
<div runat="server" id="tdPUExtranjero" class="form-group form-md-line-input input-iconright" visible="false">
<label for="<%= tdPUExtranjero2.ClientID.ToString()%>">PU Extranjero</label>
<label id="tdPUExtranjero2" runat="server" visible="false"></label>
</div>
<div runat="server" id="tdCI" class="form-group form-md-line-input input-iconright" visible="false">
<label id="tdCI2" runat="server" visible="false"></label>
<label for="<%= tdCI2.ClientID.ToString()%>">CI</label>
</div>
<div runat="server" id="ThAF" class="form-group form-md-line-input input-iconright" visible="false">
<label for="tdAF">AF</label>
<asp:Literal ID="tdAF" runat="server" Visible="false"></asp:Literal>
<asp:UpdatePanel ID="UPPNumEcon" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Button Text="VinculaAF" Style="display: none;" OnClick="BtnVinculaAF_Click" ClientIDMode="Static" ID="BtnVinculaAF" runat="server" />
<asp:HiddenField ID="HdnCveActivoFijo" Value="-1" runat="server" ClientIDMode="Static" />
<asp:HiddenField ID="HdnCodigoAF" Value="-1" runat="server" ClientIDMode="Static" />
<asp:TextBox ID="LblCodigo" runat="server" Text="" onkeyup="EnterAF(event);" onblur="AFBlur();" ClientIDMode="Static" Width="40px"></asp:TextBox>
<asp:HyperLink ID="HplMaq" runat="server" ClientIDMode="Static"><img alt="Activo Fijo" width="20px" height="20px" src="/Imagenes/Maquinaria.jpg" style="cursor:pointer;" onclick="AbrirVentana('/AF/PopUpBuscarAF.aspx?OPCION=OC',950,600,'N');"/></asp:HyperLink>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div runat="server" id="ThTotal" class="form-group form-md-line-input input-iconright" visible="false">
<label for="<%= TdTotal.ClientID.ToString()%>">Total</label>
<asp:Literal ID="TdTotal" runat="server" Visible="false"></asp:Literal>
</div>
</div>
<div class="modal-footer">
<asp:LinkButton ID="LkAgregarDetalle" runat="server" CssClass="btn btn-primary" Text="Agregar"></asp:LinkButton>
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
<script type="text/javascript">

234
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -5,6 +5,7 @@ Imports System.Data
Imports Extensiones
Imports System.IO
Imports Microsoft.Reporting.WebForms
Imports System.Math
'Imports DocumentFormat.OpenXml.Wordprocessing
@@ -260,6 +261,22 @@ Partial Class Inventarios_EntradasSalidas
ViewState("DescripcionDetalladaEliminar") = value
End Set
End Property
Public Property CveAFEdit() As Integer
Get
Return ViewState("CveAFEdit").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("CveAFEdit") = value
End Set
End Property
Public Property CveMovimientoDetalleEdit() As Integer
Get
Return ViewState("CveMovimientoDetalleEdit").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("CveMovimientoDetalleEdit") = value
End Set
End Property
#End Region
@@ -362,13 +379,14 @@ Partial Class Inventarios_EntradasSalidas
End Function
Private Sub ActivaPermisoSeccionAlmacen()
GvM.Columns(12).Visible = UsuarioActual.Empresa.Funcionalidad(147) = "1"
TrSeccionAlmacen.Visible = UsuarioActual.Empresa.Funcionalidad(147) = "1"
TrSeccionAlmacen2.Visible = UsuarioActual.Empresa.Funcionalidad(147) = "1"
'TrSeccionAlmacen.Visible = UsuarioActual.Empresa.Funcionalidad(147) = "1"
'TrSeccionAlmacen2.Visible = UsuarioActual.Empresa.Funcionalidad(147) = "1"
divSeccionAlmacen.Visible = UsuarioActual.Empresa.Funcionalidad(147) = "1"
End Sub
Private Sub PermisoVerImportes()
Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
tdPU.Visible = TienePermisoImportes
tdTxtPU.Visible = TienePermisoImportes
'tdPU.Visible = TienePermisoImportes
'tdTxtPU.Visible = TienePermisoImportes
GvM.Columns(4).Visible = TienePermisoImportes
ThTotal.Visible = TienePermisoImportes
@@ -1138,9 +1156,18 @@ Partial Class Inventarios_EntradasSalidas
Return Existencia
End Function
Protected Sub btnAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click
AgregarPS()
'Protected Sub btnAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click
' AgregarPS()
'End Sub
Protected Sub btnAgregarDetalle_Click(sender As Object, e As EventArgs) Handles LkAgregarDetalle.Click
If LkAgregarDetalle.Text = "Agregar" Then
AgregarPS()
Else
ActualizarPS()
End If
End Sub
Protected Sub BtnSerieAddNew_Click(sender As Object, e As EventArgs)
AgregarPS()
End Sub
@@ -1192,7 +1219,7 @@ Partial Class Inventarios_EntradasSalidas
If Valido AndAlso DdlConcepto.SelectedValue.Contiene({"3", "5", "7", "8", "11", "12", "13", "15", "16", "17", "20", "21", "30", "31"}) Then ' salida de almacen
Dim Existencia As Double = GetExistencias(CvePS, CveUM, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, If(SerieLote = "", "-1", SerieLote), If(Lote = "", "-1", Lote), If(Batch = "", "-1", Batch))
LbAgregar.ToolTip = Existencia.ToString
'LbAgregar.ToolTip = Existencia.ToString
If Existencia - Cantidad - DtMovimientos.SUM("Cantidad", $"CvePS = {CvePS} AND CveUM = {CveUM} {If(SerieLote <> "", $" AND SerieLote = '{SerieLote}'", "")}") < 0 Then
If Existencia <= 0 Then
Alert("No hay existencia del producto", TipoMensaje.MsgAdvertencia)
@@ -1319,7 +1346,10 @@ Partial Class Inventarios_EntradasSalidas
End If
ElseIf Dr("Estatus").ToString = "U" Then
If Not ObjInventario.UpdateMovimientoDetalle(Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, Dr("CveAF").ToString.ToEntero, Dr("CveMovimientoDetalle").ToString.ToEntero, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("SerieLote").ToString, Dr("Observaciones").ToString, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
If Not ObjInventario.UpdateMovimientoDetalle(Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero,
ImporteConcepto, Dr("CveAF").ToString.ToEntero, Dr("CveMovimientoDetalle").ToString.ToEntero,
Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("SerieLote").ToString, Dr("Observaciones").ToString,
CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
Mensaje = "Error al Actualizar los movimientos"
ErrorMovInv = True : Exit For
End If
@@ -2083,9 +2113,12 @@ Partial Class Inventarios_EntradasSalidas
End Sub
Private Sub VisualizaPU(Opcion As Boolean)
tdPU.Visible = Opcion
tdTxtPU.Visible = Opcion
'tdPU.Visible = Opcion
'tdTxtPU.Visible = Opcion
txtPrecio.Visible = Opcion
divPrecio.Visible = Opcion
GvM.Columns(4).Visible = Opcion
TdTotal.Visible = Opcion
@@ -2098,7 +2131,7 @@ Partial Class Inventarios_EntradasSalidas
GvM.Columns(6).Visible = Opcion
End Sub
Private Sub VisualizaAF(Opcion As Boolean)
tdAF.Visible = Opcion
'tdAF.Visible = Opcion
ThAF.Visible = Opcion
GvM.Columns(8).Visible = Opcion
End Sub
@@ -2143,29 +2176,38 @@ Partial Class Inventarios_EntradasSalidas
End Sub
Private Sub ElProductoChange()
TxtnSerieLote.Visible = False
divSerieLote.Visible = False
TxtnLote.Visible = False
divLote.Visible = False
TxtnBatch.Visible = False
divBatch.Visible = False
EscondeColumnasGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
If DdlProducto2.SelectedValue.ToEntero > 0 Then
Dim MetodoInventario As Integer = GlobalDTPS(UsuarioActual.CveEmpresa, DdlProducto2.SelectedValue.ToEntero).FiltroPrimeroValor("Inv_CveMetodoInventario", "").ToEntero ' ("Inv_CveMetodoInventario = 6", "PS")
If MetodoInventario = 5 Then
LblSerieLote.Visible = True
'LblSerieLote.Visible = True
TxtnSerieLote.Visible = True
TrSerieLote.Visible = True
TrSerieLote2.Visible = True
divSerieLote.Visible = True
'TrSerieLote.Visible = True
'TrSerieLote2.Visible = True
GvM.Columns(9).Visible = True
End If
If MetodoInventario = 6 Then
TxtnLote.Visible = True
TrLote.Visible = True
TrLote2.Visible = True
divLote.Visible = True
'TrLote.Visible = True
'TrLote2.Visible = True
GvM.Columns(10).Visible = True
TxtnBatch.Visible = True
TrBatch.Visible = True
TrBatch2.Visible = True
divBatch.Visible = True
'TrBatch.Visible = True
'TrBatch2.Visible = True
GvM.Columns(11).Visible = True
End If
End If
@@ -2184,27 +2226,26 @@ Partial Class Inventarios_EntradasSalidas
GvM.DataBind()
EscondeColumnasGVM(DtTemp)
UppGrid.Update()
End Sub
Private Sub EscondeColumnasGVM(DtTemp As DataTable)
LblSerieLote.Visible = False
'LblSerieLote.Visible = False
TxtnSerieLote.Visible = False
TrSerieLote.Visible = False
TrSerieLote2.Visible = False
divSerieLote.Visible = False
GvM.Columns(9).Visible = False
'PERMISO SOLO PARA EDITAR SERIELOTE
If UsuarioActual.TienePermisoProceso(245) Then
GvM.Columns(9).Visible = True
End If
'TrSerieLote.Visible = False
'TrSerieLote2.Visible = False
TxtnLote.Visible = False
TrLote.Visible = False
TrLote2.Visible = False
divLote.Visible = False
'TrLote.Visible = False
'TrLote2.Visible = False
GvM.Columns(10).Visible = False
TxtnBatch.Visible = False
TrBatch.Visible = False
TrBatch2.Visible = False
divBatch.Visible = False
'TrBatch.Visible = False
'TrBatch2.Visible = False
GvM.Columns(11).Visible = False
Dim TienePermisoImportes = UsuarioActual.TienePermisoProceso(201)
@@ -2217,23 +2258,34 @@ Partial Class Inventarios_EntradasSalidas
GvM.Columns(7).Visible = False
If DtTemp IsNot Nothing AndAlso DtTemp.Rows.Count > 0 Then
GvM.Columns(9).Visible = False
'PERMISO SOLO PARA EDITAR SERIELOTE
If UsuarioActual.TienePermisoProceso(245) Then
GvM.Columns(9).Visible = True
End If
Dim SerieLoteVal As Integer = DtTemp.FiltraParametros("LEN(SerieLote) > 0").Rows.Count()
GvM.Columns(9).Visible = False
If DtTemp.MAX("SerieLote").ToString <> "" Then
LblSerieLote.Visible = True
'LblSerieLote.Visible = True
TxtnSerieLote.Visible = True
TrSerieLote.Visible = True
TrSerieLote2.Visible = True
divSerieLote.Visible = True
'TrSerieLote.Visible = True
'TrSerieLote2.Visible = True
GvM.Columns(9).Visible = True
End If
If DtTemp.MAX("Lote").ToString <> "" Then
TxtnLote.Visible = True
TrLote.Visible = True
TrLote2.Visible = True
divLote.Visible = True
'TrLote.Visible = True
'TrLote2.Visible = True
GvM.Columns(10).Visible = True
TxtnBatch.Visible = True
TrBatch.Visible = True
TrBatch2.Visible = True
divBatch.Visible = True
'TrBatch.Visible = True
'TrBatch2.Visible = True
GvM.Columns(11).Visible = True
End If
@@ -2320,34 +2372,34 @@ Partial Class Inventarios_EntradasSalidas
If CveMovimiento > 0 Then
'DEPENDE PERMISOS HABILITA
e.Row.FCLinkButton("lnkRemove").Visible = PermiteEliminar()
e.Row.FCLinkButton("imgE").Visible = PermiteGuardar()
e.Row.FCLinkButton("imgEd").Visible = PermiteGuardar()
If e.Row.DBCampo("CountMovimientoEntradaDetalle").ToEntero > 0 Then
TieneSalida = True
e.Row.FCLinkButton("lnkRemove").Visible = False
e.Row.FCLinkButton("imgE").Visible = False
e.Row.FCLinkButton("imgEd").Visible = False
End If
'SI TIENE PREPOLIZAS NO PUEDE EDITAR NI ELIMINAR
If e.Row.DBCampo("TienePrePoliza").ToEntero > 0 Then
e.Row.FCLinkButton("lnkRemove").Visible = False
e.Row.FCLinkButton("imgE").Visible = False
e.Row.FCLinkButton("imgEd").Visible = False
End If
'APAGA TODO SI TIENE MOVIMIENTO RELACIONADO
If TieneRelacionado > 0 Or CveMovimientoRelacionado > 0 Then
e.Row.FCLinkButton("lnkRemove").Visible = False
e.Row.FCLinkButton("imgE").Visible = False
e.Row.FCLinkButton("imgEd").Visible = False
End If
'PERMISO SOLO PARA EDITAR OBSERVACIONES
If PermiteGuardarObservacionDetalle() Then
e.Row.FCLinkButton("imgE").Visible = True
e.Row.FCLinkButton("imgEd").Visible = True
End If
'PERMISO SOLO PARA EDITAR SERIELOTE
If UsuarioActual.TienePermisoProceso(245) Then
e.Row.FCLinkButton("imgE").Visible = True
e.Row.FCLinkButton("imgEd").Visible = True
End If
If EsNuevoMov Then
@@ -2363,8 +2415,8 @@ Partial Class Inventarios_EntradasSalidas
End If
If DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {e.Row.RowIndex}").SUMD("CantidadSeccionAlmacen") > 0 Then
e.Row.FCLinkButton("imgE").Visible = False
e.Row.FCLinkButton("imgE").ToolTip = "Cuenta con sección almacen"
e.Row.FCLinkButton("imgEd").Visible = False
e.Row.FCLinkButton("imgEd").ToolTip = "Cuenta con sección almacen"
e.Row.FCLinkButton("lnkRemove").Visible = False
e.Row.FCLinkButton("lnkRemove").ToolTip = "Cuenta con sección almacen"
e.Row.FCLinkButton("lnkDividir").Visible = False
@@ -2375,7 +2427,50 @@ Partial Class Inventarios_EntradasSalidas
End Sub
Protected Sub GvM_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GvM.RowEditing
GvM.EditIndex = e.NewEditIndex
Dim Gv As GridView = DirectCast(sender, GridView)
Dim GvRow As GridViewRow = Gv.Rows(0)
If CveMovimiento > 0 Then
CveMovimientoDetalleEdit = GvRow.DataKey("CveMovimientoDetalle").ToEntero
divCantidad.Visible = False
divClasificacionProducto.Visible = False
divUnidadMedida.Visible = False
End If
txtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero().ToString
DdlProducto2.SelectedValue = GvRow.DataKey("CvePS")
DdlProducto2.SelectedText = GvRow.DataKey("CodigoPS")
ElProductoChange()
DdlUnidad.SelectedValue = GvRow.DataKey("CveUM")
CveAFEdit = GvRow.DataKey("CveAF").ToEntero
txtPrecio.Text = GvRow.DataKey("PU").ToDouble.FormatoNumero
TxtnSerieLote.Text = GvRow.DataKey("SerieLote")
TxtObservacionesdetalle.Text = GvRow.DataKey("Observaciones")
DdlSeccionAlmacen.SelectedValueExist(GvRow.DataKey("CveSeccionAlmacen"))
LkAgregarDetalle.Text = "Actualizar"
UpAgregar.Update()
RegistraScript("$('#ModalAgregar').modal()")
CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
End Sub
Protected Sub EditPS(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
If CveMovimiento > 0 Then
CveMovimientoDetalleEdit = GvRow.DataKey("CveMovimientoDetalle").ToEntero
divCantidad.Visible = False
divClasificacionProducto.Visible = False
divUnidadMedida.Visible = False
End If
txtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero().ToString
DdlProducto2.SelectedValue = GvRow.DataKey("CvePS")
DdlProducto2.SelectedText = GvRow.DataKey("CodigoPS")
ElProductoChange()
DdlUnidad.SelectedValue = GvRow.DataKey("CveUM")
CveAFEdit = GvRow.DataKey("CveAF").ToEntero
txtPrecio.Text = GvRow.DataKey("PU").ToDouble.FormatoNumero
TxtnSerieLote.Text = GvRow.DataKey("SerieLote")
TxtObservacionesdetalle.Text = GvRow.DataKey("Observaciones")
DdlSeccionAlmacen.SelectedValueExist(GvRow.DataKey("CveSeccionAlmacen"))
LkAgregarDetalle.Text = "Actualizar"
UpAgregar.Update()
RegistraScript("$('#ModalAgregar').modal()")
CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
End Sub
Protected Sub GvM_RowCancelingEdit(sender As Object, e As GridViewCancelEditEventArgs) Handles GvM.RowCancelingEdit
@@ -2591,7 +2686,7 @@ Partial Class Inventarios_EntradasSalidas
LblCodigo.Text = HdnCodigoAF.Value
End If
LbAgregar.Focus()
'LbAgregar.Focus()
UPDatos.Update()
End Sub
@@ -4065,15 +4160,15 @@ Partial Class Inventarios_EntradasSalidas
End If
If CantidadTotalSeccion > 0 Then
GvM.Rows(IndexSeccionAlmacen).FCLinkButton("imgE").Visible = False
GvM.Rows(IndexSeccionAlmacen).FCLinkButton("imgE").ToolTip = "Cuenta con sección almacen"
GvM.Rows(IndexSeccionAlmacen).FCLinkButton("imgEd").Visible = False
GvM.Rows(IndexSeccionAlmacen).FCLinkButton("imgEd").ToolTip = "Cuenta con sección almacen"
GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").Visible = False
GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").ToolTip = "Cuenta con sección almacen"
GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkDividir").Visible = False
GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkDividir").ToolTip = "Cuenta con sección almacen"
Else
GvM.Rows(IndexSeccionAlmacen).FCLinkButton("imgE").Visible = True
GvM.Rows(IndexSeccionAlmacen).FCLinkButton("imgE").ToolTip = ""
GvM.Rows(IndexSeccionAlmacen).FCLinkButton("imgEd").Visible = True
GvM.Rows(IndexSeccionAlmacen).FCLinkButton("imgEd").ToolTip = ""
GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").Visible = True
GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").ToolTip = ""
GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkDividir").Visible = True
@@ -4141,4 +4236,41 @@ Partial Class Inventarios_EntradasSalidas
#End Region
Protected Sub LkAgregar_Click() Handles LkAgregar.Click
limpiarModalDetalle()
UpAgregar.Update()
RegistraScript("$('#ModalAgregar').modal()")
End Sub
Private Sub ActualizarPS()
Dim ObjInventario As New ClsInventarios
If Not ObjInventario.UpdateMovimientoDetalle(txtCantidad.Text.ToDouble, DdlUnidad.ToEntero, DdlProducto2.SelectedValue.ToEntero, txtPrecio.Text.ToDouble, CveAFEdit,
CveMovimientoDetalleEdit, DdlSeccionAlmacen.SelectedValue.ToEntero, TxtnSerieLote.Text, TxtObservacionesdetalle.Text,
CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
Alert("Error al Actualizar los movimientos")
End If
End Sub
Private Sub limpiarModalDetalle()
divCantidad.Visible = True
divClasificacionProducto.Visible = True
divUnidadMedida.Visible = True
txtCantidad.Text = ""
DdlProducto2.SelectedValue = "-1"
DdlProducto2.SelectedText = ""
ElProductoChange()
txtPrecio.Text = ""
TxtnSerieLote.Text = ""
TxtObservacionesdetalle.Text = ""
DdlSeccionAlmacen.SelectedValue = "-1"
LkAgregarDetalle.Text = "Agregar"
If DdlMonedaTC.SelectedValue.ToEntero = 2 Then
VisualizaPUExtranjero(UsuarioActual.TienePermisoProceso(201))
Else
VisualizaPUExtranjero(False)
End If
UpAgregar.Update()
End Sub
End Class

6
OI/TareaDetalle.aspx
View File

@@ -160,8 +160,12 @@
<asp:LinkButton ID="LnkReasignar" OnClick="LnkReasignar_Click" Visible="true" runat="server"><i class="fa fa-pencil"></i> Reasignar</asp:LinkButton></li>
<li>
<asp:LinkButton ID="LnkUpVinculo" OnClick="LnkUpVinculo_Click" Visible="false" runat="server"><i class="fa fa-pencil"></i> Agregar Vinculo</asp:LinkButton></li>
<li>
<asp:LinkButton ID="LnkPDF" OnClick="LnkPDF_Click" runat="server"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton></li>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkPDF"/>
</Triggers>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">

41
OI/TareaDetalle.aspx.cs
View File

@@ -6,6 +6,8 @@ using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using Extensiones;
using System.IO;
using Microsoft.Reporting.WebForms;
public partial class OI_TareaDetalle : ClsPaginas
{
@@ -47,6 +49,10 @@ public partial class OI_TareaDetalle : ClsPaginas
public System.Data.DataTable CheckListNew { get { return ViewState["CheckListNew"] != null ? (System.Data.DataTable)ViewState["CheckListNew"] : null; } set { ViewState["CheckListNew"] = value; } }
public int chklistitemindex { get { return ViewState["chklistitemindex"] != null ? ViewState["chklistitemindex"].ToString().ToEntero() : 0; } set { ViewState["chklistitemindex"] = value; } }
private string DeProp { get { return ViewState["DeProp"].ToString(); } set { ViewState["DeProp"] = value; } }
private string ParaProp { get { return ViewState["ParaProp"].ToString(); } set { ViewState["ParaProp"] = value; } }
private string CCProp { get { return ViewState["CCProp"].ToString(); } set { ViewState["CCProp"] = value; } }
public System.Data.DataTable DtActividades { get { return ViewState["DtActividades"] != null ? (System.Data.DataTable)ViewState["DtActividades"] : null; } set { ViewState["DtActividades"] = value; } }
#endregion
protected void Page_Load(object sender, EventArgs e)
{
@@ -338,17 +344,20 @@ public partial class OI_TareaDetalle : ClsPaginas
{
chkpara.Checked = true;
StrPara.AppendFormat("{3}<span class=\"linkCorreo\" data-toggle=\"tooltip\" title=\"{1}\">{2}\"{0}\"</span>", gvRow.DataKey("Nombre").ToString(), gvRow.DataKey("Correo").ToString(), palomitavisto, palomitasinver);
ParaProp = gvRow.DataKey("Nombre").ToString();
}
if (CveUsuario == CveUsuarioDe)
{
chkCCpara.Checked = true;
StrDeUser.AppendFormat("{3}<span class=\"linkCorreo\" data-toggle=\"tooltip\" title=\"{1}\">{2}\"{0}\"</span>", gvRow.DataKey("Nombre").ToString(), gvRow.DataKey("Correo").ToString(), palomitavisto, palomitasinver);
DeProp = gvRow.DataKey("Nombre").ToString();
}
}
else if (CveUsuario.Contiene(LCveUsuarioCCP.ToArray<int>()))
{
chkCCpara.Checked = true;
StrCCPara.AppendFormat("{3}<span class=\"linkCorreo cssnowrap\" data-toggle=\"tooltip\" title=\"{1}\">{2}\"{0}\"</span>; ", gvRow.DataKey("Nombre").ToString(), gvRow.DataKey("Correo").ToString(), palomitavisto, palomitasinver);
CCProp = gvRow.DataKey("Nombre").ToString();
}
}
}
@@ -822,6 +831,7 @@ public partial class OI_TareaDetalle : ClsPaginas
if (ObjOI.GetEventosComentarios(RCveEvento))
{
GvActividades.DataSource = ObjOI.DtResultados;
DtActividades = ObjOI.DtResultados;
}
GvActividades.DataBind();
UpActividades.Update();
@@ -1794,5 +1804,36 @@ public partial class OI_TareaDetalle : ClsPaginas
{
}
protected void LnkPDF_Click(object sender, EventArgs e)
{
FileInfo Imagen = new FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
List<ReportParameter> param = new List<ReportParameter>();
if (Imagen.Exists)
{
param.Add(new ReportParameter("Logo",logouri));
}else
{
param.Add(new ReportParameter("Logo", ""));
}
param.Add(new ReportParameter("NombreEmpresa",UsuarioActual.Empresa.Empresa));
param.Add(new ReportParameter("Asunto",TxtAsunto.Text));
param.Add(new ReportParameter("Descripcion",TxtDescripcion.Text));
param.Add(new ReportParameter("De",DeProp));
param.Add(new ReportParameter("Para",ParaProp));
param.Add(new ReportParameter("CCPara",CCProp));
param.Add(new ReportParameter("FechaInicio",txtFechaI.Text));
param.Add(new ReportParameter("FechaFin",txtFechaF.Text));
param.Add(new ReportParameter("Prioridad",DdlPrioridad.SelectedItem.Text));
param.Add(new ReportParameter("Tema",DdlTema.SelectedItem.Text));
param.Add(new ReportParameter("Estatus",lblEstatus.Text));
param.Add(new ReportParameter("FechaRegistro",TxtFechaIng.Text));
param.Add(new ReportParameter("Registro",TxtUsuarioreg.Text));
param.Add(new ReportParameter("UsuarioImprimio",UsuarioActual.Nombre));
ImprimirPDF("Empresas/Grales/Formatos/TareaDetalle.rdlc",DtActividades,param,"Tarea Detalle");
}
}

23
Ventas/Clientes.aspx
View File

@@ -291,6 +291,17 @@
</Triggers>
</asp:UpdatePanel>
<asp:UpdatePanel runat="server" ID="UpReporteGpsExcel" RenderMode="Inline" UpdateMode="Conditional">
<ContentTemplate>
<li>
<asp:LinkButton ID="LnkReporteExcel" Visible="False" OnClick="GenerarReporteExcel" data-toggle="tooltip" data-placement="left" runat="server" Text="<i class='fa fa-file-excel-o'></i> Dispositivos GPS"></asp:LinkButton>
</li>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkReporteExcel" />
</Triggers>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
<asp:Literal ID="LtlTitulo" runat="server" Text="Registro de Clientes"></asp:Literal>&nbsp;<asp:Literal ID="LtlCliente" runat="server"></asp:Literal>
@@ -494,7 +505,7 @@
<div class="form-group form-md-line-input">
<asp:TextBox ID="TxtTelefonoOtro" CssClass="form-control" runat="server" MaxLength="150"></asp:TextBox>
<ajax:MaskedEditExtender ID="MaskedEditExtender3" runat="server" TargetControlID="TxtTelefonoOtro" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
<label for="<%= TxtTelefonoOtro.ClientID.ToString()%>">Telefono Otro: </label>
<label for="<%= TxtTelefonoOtro.ClientID.ToString()%>">Teléfono Otro: </label>
</div>
</div>
@@ -1348,7 +1359,7 @@
<div class="portlet-body ">
<div class="table-scrollable">
<asp:GridView ID="GvCot" GridLines="None" CssClass="table table-striped table-advance table-hover widthAll" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas en el Cliente" ToolTip="Listado de Historial de Ventas">
<asp:GridView ID="GvCot" GridLines="None" CssClass="table table-striped table-advance table-hover widthAll" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron cotizaciones del Cliente" ToolTip="Listado de Historial de Ventas" Style="text-align: center; min-width: 783px; width: 100%;">
<Columns>
<asp:TemplateField>
<HeaderTemplate>Cotización</HeaderTemplate>
@@ -1477,7 +1488,7 @@
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input">
<asp:Label ID="LblDiasPago" runat="server" Text="Dias de pago:"></asp:Label>
<asp:Label ID="LblDiasPago" runat="server" Text="Días de pago:"></asp:Label>
<br />
<label><b>L</b></label>&nbsp;&nbsp;
@@ -1511,7 +1522,7 @@
<div class="col-md-6" style="margin-top: 10px;">
<div class="form-group form-md-line-input">
<asp:TextBox ID="TxtDiasEspecifico" runat="server" CssClass="form-control" Enabled="false"></asp:TextBox>
<label for="<%= TxtDiasEspecifico.ClientID.ToString()%>">Dias específicos: </label>
<label for="<%= TxtDiasEspecifico.ClientID.ToString()%>">Días específicos: </label>
</div>
</div>
</div>
@@ -2051,7 +2062,7 @@
</div>
<div class="portlet-body">
<div class="table-scrollable">
<asp:GridView ID="GVAnticipos" runat="server" ClientIDMode="Static" AutoGenerateColumns="False" EmptyDataText="No se encontraron Anticipos del Cliente" ToolTip="Listado de Anticipos" CssClass="GVAnticipos table table-striped table-hover Widthall mysmallbtn" GridLines="None" DataKeyNames="ISTotal,Saldo,Total,CveIE,Folio,Tipo,CveVenta,CveConceptoContable">
<asp:GridView ID="GVAnticipos" runat="server" ClientIDMode="Static" AutoGenerateColumns="False" EmptyDataText="No se encontraron Anticipos del Cliente" ToolTip="Listado de Anticipos" CssClass="GVAnticipos table table-striped table-hover Widthall mysmallbtn" GridLines="None" DataKeyNames="ISTotal,Saldo,Total,CveIE,Folio,Tipo,CveVenta,CveConceptoContable" Style="text-align: center; min-width: 783px; width: 100%;">
<Columns>
<asp:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
@@ -2107,7 +2118,7 @@
</div>
<div class="portlet-body">
<div class="table-scrollable">
<asp:GridView ID="GVAnticiposHistorial" ClientIDMode="Static" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Anticipos del Cliente Historial" ToolTip="Listado de Anticipos Historial" CssClass="GVAnticipos table table-striped table-hover Widthall" Style="text-align: center;" GridLines="None" DataKeyNames="ISTotal,Saldo,CveIE,Folio,Total,Tipo,CveVenta,CveConceptoContable">
<asp:GridView ID="GVAnticiposHistorial" ClientIDMode="Static" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró historial en los anticipos del cliente" ToolTip="Listado de Anticipos Historial" CssClass="GVAnticipos table table-striped table-hover Widthall" Style="text-align: center;" GridLines="None" DataKeyNames="ISTotal,Saldo,CveIE,Folio,Total,Tipo,CveVenta,CveConceptoContable">
<Columns>
<asp:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>

511
Ventas/Clientes.aspx.vb
View File

@@ -18,7 +18,7 @@ Partial Class Clientes
Private Opcion As Integer
<PersistenceModeAttribute(PersistenceMode.InnerProperty)>
Public ReadOnly Property RowStyle As TableItemStyle
Protected ReadOnly Property CveCliente As Integer
Private ReadOnly Property CveCliente As Integer
Get
Return ViewState("CveCliente").ToString.ToEntero
End Get
@@ -601,21 +601,21 @@ Partial Class Clientes
Set(value As String)
ViewState("AdjuntoDocumentacion") = value
End Set
End Property
'Private ReadOnly Property CvePersonal As Integer
' Get
' If ViewState("CvePersonal") Is Nothing Then
' Return -1
' Else
' Return ViewState("CvePersonal").ToString.ToEntero
' End If
' End Get
'End Property
End Property
'Private ReadOnly Property CvePersonal As Integer
' Get
' If ViewState("CvePersonal") Is Nothing Then
' Return -1
' Else
' Return ViewState("CvePersonal").ToString.ToEntero
' End If
' End Get
'End Property
#End Region
#Region " A C U M U L A D O R E S"
Property CveVentaNota As Integer
Get
@@ -655,8 +655,8 @@ Partial Class Clientes
Set(value As String)
ViewState("SerieNotaAcumulador") = value
End Set
End Property
End Property
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
@@ -677,6 +677,7 @@ Partial Class Clientes
TabOtros.Visible = False
TabCuentasEquipos.Visible = True
ReporteDispositivos.Visible = True
LnkReporteExcel.Visible = True
TabCuentasEquipos.HeaderText = "Equipos GPS"
TabRH.Visible = False
TabUsuarios.Visible = True
@@ -848,6 +849,7 @@ Partial Class Clientes
'PERMISOS PAGINA
If CveCliente > 0 Then
LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-green"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CveCliente:{0}}});""> <i class=""fa fa-plus""'></i> Tarea</a>", CveCliente)
BtnEliminar.Visible = PermiteEliminar()
BtnGuardar.Visible = PermiteEditar()
Else
@@ -886,8 +888,8 @@ Partial Class Clientes
ChkPermiso5.Enabled = False
ChkPermiso6.Enabled = False
End Sub
End Sub
#Region " PERMISOS PAGINAS "
Private Function PermiteGuardar() As Boolean
Return UsuarioActual.TienePermisoProceso(192)
@@ -897,11 +899,11 @@ Partial Class Clientes
End Function
Private Function PermiteEliminar() As Boolean
Return UsuarioActual.TienePermisoProceso(194)
End Function
End Function
#End Region
#Region "C A R G A S"
Private Sub CreaDtPago()
DtPagos = New DataTable
@@ -1699,9 +1701,9 @@ Partial Class Clientes
Return Retorno
End Function
Private Sub CargaHistorial(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1, Optional TipoDocto As String = "-1")
Private Sub CargaHistorial(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1)
Dim ObjClientes As New ClsClientes()
If ObjClientes.GetHistorialVentas(CveCliente, SelectTop, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero, TipoDocto:=TipoDocto) Then
If ObjClientes.GetHistorialVentas(CveCliente, SelectTop, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then
If ObjClientes.DtResultados.Rows.Count > 0 Then
'Carga Generales
LtlCantidad.Text = ObjClientes.DtResultados.Rows(0)("CountTotal").ToString.FormatoNumero(0)
@@ -1888,19 +1890,20 @@ Partial Class Clientes
DdlSucursalUsoCFDI.Items.Clear()
DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica)
DdlSucursalUsoCFDI.DataBind()
End Sub
End Sub
#End Region
#Region "V E R M Á S"
Protected Sub BtnVerMasVentas_Click(sender As Object, e As EventArgs)
If BtnVerMasVentas.Text = "Ver Más" Then
CargaHistorial(-1, TipoDocto:=RblTipo.SelectedValue)
CargaHistorial(-1)
BtnVerMasVentas.Text = "Ver Menos"
Else
CargaHistorial(21, TipoDocto:=RblTipo.SelectedValue)
CargaHistorial(21)
BtnVerMasVentas.Text = "Ver Más"
End If
RblTipo_SelectedIndexChanged(RblTipo, EventArgs.Empty)
End Sub
Protected Sub BtnVerMasAnticipos_Click(sender As Object, e As EventArgs)
@@ -1984,9 +1987,9 @@ Partial Class Clientes
TxtParaMail.Text = TxtCobranzaCorreo.Text
UpSendMail.Update()
RegistraScript("$('#ModalDivMail').modal('show');")
End Sub
End Sub
#End Region
#Region "B T N ´ S"
Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click
Dim ObjClientes As New ClsClientes()
@@ -2294,85 +2297,85 @@ Partial Class Clientes
Dim errorContPaq As Boolean = False
Dim IdContPaqi As Integer = 0
Dim CodigoPersona As Integer = 0
Dim CodigoPersona As Integer = 0
#Region "comentado"
'If UsuarioActual.Empresa.Funcionalidad(522).ToString = "1" Then
' Dim ObjContPaqi As New ClsContPAQi(UsuarioActual.Empresa)
' If ObjContPaqi.GetPersona(TxtRFC.Text) Then
' If ObjContPaqi.DtResultados.Rows.Count > 0 Then
' IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("Id").ToString.ToEntero
' CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString.ToEntero
' Dim Cont_EsProveedor As Integer = If(Boolean.Parse(ObjContPaqi.DtResultados.Rows(0)("EsProveedor").ToString), 1, 0)
' Dim Cont_Nombre As String = ObjContPaqi.DtResultados(0)("Nombre").ToString
' Dim Cont_RFC As String = ObjContPaqi.DtResultados(0)("RFC").ToString
' If ObjContPaqi.UpdatePersona(IdContPaqi, Cont_Nombre, Cont_RFC, 1, Cont_EsProveedor) Then
' errorContPaq = False
' Else
' errorContPaq = True
' End If
' Else
' If ObjContPaqi.AddPersona(TxtNombre.Text.Trim, TxtRFC.Text.Trim, 1, 0) Then
' IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("IdContPaqiPersona").ToString.ToEntero
' CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString.ToEntero
' errorContPaq = False
' Else
' errorContPaq = True
' End If
' End If
' End If
' If Not errorContPaq Then
' Dim IdContPaqiCliente As Integer
' If ObjContPaqi.GetCliente(-1, CodigoPersona) Then
' If ObjContPaqi.DtResultados.Rows.Count > 0 Then
' IdContPaqiCliente = ObjContPaqi.DtResultados.Rows(0)("IdContPaqiClient").ToString.ToEntero
' If ObjContPaqi.UpdateCliente(IdContPaqiCliente, CodigoPersona, CodigoPersona, "", "") Then
' errorContPaq = False
' Else
' errorContPaq = True
' End If
' Else
' If ObjContPaqi.AddCliente(CodigoPersona, CodigoPersona, "", "") Then
' errorContPaq = False
' Else
' errorContPaq = True
' End If
' End If
' Else
' errorContPaq = True
' End If
' End If
' If Not errorContPaq Then
' ObjContPaqi.Commit()
' ObjContPaqi.Dispose()
' Else
' ObjContPaqi.RollBack()
' ObjContPaqi.Dispose()
' Alert("Se presento un error al guardar en ContPAQi", TipoMensaje.MsgError)
' Exit Sub
' End If
'End If
'If UsuarioActual.Empresa.Funcionalidad(522).ToString = "1" Then
' Dim ObjContPaqi As New ClsContPAQi(UsuarioActual.Empresa)
' If ObjContPaqi.GetPersona(TxtRFC.Text) Then
' If ObjContPaqi.DtResultados.Rows.Count > 0 Then
' IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("Id").ToString.ToEntero
' CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString.ToEntero
' Dim Cont_EsProveedor As Integer = If(Boolean.Parse(ObjContPaqi.DtResultados.Rows(0)("EsProveedor").ToString), 1, 0)
' Dim Cont_Nombre As String = ObjContPaqi.DtResultados(0)("Nombre").ToString
' Dim Cont_RFC As String = ObjContPaqi.DtResultados(0)("RFC").ToString
' If ObjContPaqi.UpdatePersona(IdContPaqi, Cont_Nombre, Cont_RFC, 1, Cont_EsProveedor) Then
' errorContPaq = False
' Else
' errorContPaq = True
' End If
' Else
' If ObjContPaqi.AddPersona(TxtNombre.Text.Trim, TxtRFC.Text.Trim, 1, 0) Then
' IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("IdContPaqiPersona").ToString.ToEntero
' CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString.ToEntero
' errorContPaq = False
' Else
' errorContPaq = True
' End If
' End If
' End If
' If Not errorContPaq Then
' Dim IdContPaqiCliente As Integer
' If ObjContPaqi.GetCliente(-1, CodigoPersona) Then
' If ObjContPaqi.DtResultados.Rows.Count > 0 Then
' IdContPaqiCliente = ObjContPaqi.DtResultados.Rows(0)("IdContPaqiClient").ToString.ToEntero
' If ObjContPaqi.UpdateCliente(IdContPaqiCliente, CodigoPersona, CodigoPersona, "", "") Then
' errorContPaq = False
' Else
' errorContPaq = True
' End If
' Else
' If ObjContPaqi.AddCliente(CodigoPersona, CodigoPersona, "", "") Then
' errorContPaq = False
' Else
' errorContPaq = True
' End If
' End If
' Else
' errorContPaq = True
' End If
' End If
' If Not errorContPaq Then
' ObjContPaqi.Commit()
' ObjContPaqi.Dispose()
' Else
' ObjContPaqi.RollBack()
' ObjContPaqi.Dispose()
' Alert("Se presento un error al guardar en ContPAQi", TipoMensaje.MsgError)
' Exit Sub
' End If
'End If
#End Region
Dim LT As String = If(HDLT.Value.ToDouble <> 0, HDLT.Value, "0")
Dim LG As String = If(HDLG.Value.ToDouble <> 0, HDLG.Value, "0")
@@ -2618,11 +2621,11 @@ Partial Class Clientes
ObjClientes.Dispose()
objDoc.Dispose()
RecargaGlobal()
End Sub
End Sub
#End Region
#Region "G L O B L A L"
Private Sub RecargaGlobal()
'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDT)
@@ -2800,11 +2803,11 @@ Partial Class Clientes
End If
End If
End Sub
End Sub
#End Region
#Region "R H"
Private Sub CargaPersonalAsignado()
Dim ObjPersonal As New ClsRH
If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, CveCliente, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
@@ -2877,9 +2880,9 @@ Partial Class Clientes
End If
End If
End Sub
End Sub
#End Region
#Region "S U C U R S A L E S"
Private Sub LbAgregarSucursal_Click(sender As Object, e As EventArgs) Handles LbAgregarSucursal.Click
ChkEstatusSucursal.Checked = True
@@ -3013,7 +3016,7 @@ Partial Class Clientes
UpModalDivMapa.Update()
End Sub
End Sub
#Region "G V S U C U R S A L E S"
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVSucursales.RowDataBound
@@ -3132,9 +3135,9 @@ Partial Class Clientes
Else
CargaGrid("", 0)
End If
End Sub
End Sub
#End Region
#Region "G V U S U A R I O S P O R T A L"
Protected Sub GvUsuariosPortal_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvUsuariosPortal.RowCommand
If e.CommandName = "RestablecerContraseña" Then
@@ -3286,9 +3289,9 @@ Partial Class Clientes
CargaGrid("", 1)
End If
End Sub
End Sub
#End Region
#Region "O R D E N A M I E N T O"
Private Sub CargaGrid(Orden As String, gvi As Integer)
If gvi = 0 Then
@@ -3320,12 +3323,12 @@ Partial Class Clientes
UPPUsuarios.Update()
End If
End Sub
End Sub
#End Region
#End Region
#Region "U S U A R I O S"
Protected Sub LbSolicitudPortal_Click(sender As Object, e As EventArgs) Handles LbEnviarActivacionPortal.Click
Dim ObjUsuario As New ClsSisUsuarios
@@ -3507,9 +3510,9 @@ Partial Class Clientes
ChkPermiso5.Checked = False
ChkPermiso6.Checked = False
ChkPermiso7.Checked = False
End Sub
End Sub
#End Region
#Region "E V E N T O - B I T A C O R A"
Protected Sub GVEventoBitacora_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEB.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
@@ -3715,11 +3718,11 @@ Partial Class Clientes
BtnActivaRegistroISR.Visible = True
End If
End Sub
End Sub
#End Region
#Region " I M P R I M I R P D F"
Protected Sub ChkAntIXCNC_CheckedChanged(sender As Object, e As EventArgs)
DdlTipoDocto.ClearSelection()
If ChkAntIXCNC.Checked Then
@@ -3733,22 +3736,33 @@ Partial Class Clientes
End Sub
Protected Sub GenerarReporte(sender As Object, e As EventArgs)
GenerarRepCrystal()
GenerarRepCrystal("PDF")
End Sub
Private Sub GenerarRepCrystal()
Dim Archivo As New FileInfo(Server.MapPath("~/Empresas/Grales/Formatos/EquiposGPS.rpt"))
Dim lista = New List(Of CrystalParametro)
lista.Add(New CrystalParametro("NombreEmpresa", UsuarioActual.Empresa.Empresa))
lista.Add(New CrystalParametro("NombreUsuario", UsuarioActual.Nombre))
Protected Sub GenerarReporteExcel(sender As Object, e As EventArgs)
GenerarRepCrystal("Excel")
End Sub
Private Sub GenerarRepCrystal(Formato As String)
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
Dim params As New List(Of ReportParameter)
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("NombreUsuario", UsuarioActual.Usuario))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
Dim ObjGPS As New ClsGPS
Dim tablaReporte As DataTable
If ObjGPS.DispositivosGet(-1, Estatus, CveCliente) Then
tablaReporte = ObjGPS.DtResultados
Dim VistaFiltro As DataView = New DataView(tablaReporte)
Dim reporteDatos As DataTable = VistaFiltro.ToTable("Selected", False, "TipoDispositivoDisplay", "Display", "Modelo", "Serie", "IMEI", "NumeroTelefono", "FechaIng")
Dim file As Byte() = ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/EquiposGPS.rpt"), reporteDatos, lista)
ImprimirbytesPDF(file)
If ObjGPS.DispositivosGet(-1, DdlEstatusDispositivos.SelectedValue.ToEntero(), CveCliente) Then
tablaReporte = ObjGPS.DtResultados
ImprimirPDF("Empresas/Grales/Formatos/EquiposGPS.rdlc", tablaReporte, params, "Equipo GPS", Formato)
Else
Alert("No hay lista de dispositivos para imprimir")
End If
@@ -4094,11 +4108,11 @@ Partial Class Clientes
a.GuardaLog()
Dim Mail As New ClsSisMail()
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body)
End Sub
End Sub
#End Region
#Region " COTIZACIONES "
Protected Sub BtnVerMasCot_Click(sender As Object, e As EventArgs)
If BtnVerMasCot.Text = "Ver Más" Then
CargaCotizaciones(-1)
@@ -4168,9 +4182,9 @@ Partial Class Clientes
HLFacturar.HRef = $"/Ventas/Ventas.aspx?CveCotizacion={e.Row.DBCampo("CveVenta")}"
End If
End If
End Sub
End Sub
#End Region
#Region "D I R E C C I O N E N V I O "
Public Sub Edit_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
@@ -4250,12 +4264,12 @@ Partial Class Clientes
End If
CargaDireccionesEnvio()
End Sub
End Sub
#End Region
#Region " IMPORTAR SALDOS "
Private Sub HLImportarSaldos_Click(sender As Object, e As EventArgs) Handles HLImportarSaldos.Click
CargaClientesImportarSaldos()
RegistraScript(String.Format("$('#{0}').modal();", "DivImportarSaldos"))
@@ -4361,9 +4375,9 @@ Partial Class Clientes
e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("ChkSaldo(this,{0},{1});", e.Row.FCTextBox("TxtImporte").ClientID, e.Row.DBCampo("Saldo")))
e.Row.FCTextBox("TxtImporte").Attributes.Add("onKeyUp", String.Format("CambiaSaldo({0},this,{1});", e.Row.FCCheckBox("Chk").ClientID, e.Row.DBCampo("Saldo")))
End If
End Sub
End Sub
#End Region
#Region "Cuentas/Equipos"
Public Sub BtnAgregarCtaEquipo_Click(sender As Object, e As EventArgs)
HdnModalidad.Value = "I"
@@ -4951,9 +4965,9 @@ Partial Class Clientes
End If
Return Retorno
End Function
End Function
#End Region
#Region "GPS"
Protected Sub btnCargaArrayDisp_Click(sender As Object, e As EventArgs) Handles btnCargaArrayDisp.Click
If hdnArrayDispositivo.Value.Length > 0 Then
@@ -5056,10 +5070,10 @@ Partial Class Clientes
UpMoverDispositivo.Update()
RegistraScript($"CargaModalMoverDispositivo({GvRow.DataKey("CveDispositivo")});")
End Sub
End Sub
#End Region
#Region "Sucursales"
Public Sub CreaDTSucursales()
@@ -5293,14 +5307,14 @@ Partial Class Clientes
End If
End If
End If
End Sub
End Sub
#End Region
#Region "G P S"
Private Sub EnviaCorreoGPS(Liga As String, LigaActivar As String)
Try
@@ -5371,11 +5385,11 @@ Partial Class Clientes
End If
ObjClientes.Dispose()
End Sub
End Sub
#End Region
#Region "C O N T R A T O S"
Private Sub CargaDatosContrato()
If CveCliente <= 0 Then
@@ -5421,13 +5435,32 @@ Partial Class Clientes
e.Row.CssClass = "Totales white"
End If
End If
End Sub
End Sub
#End Region
#Region "M E T O D O S "
Protected Sub RblTipo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipo.SelectedIndexChanged
CargaHistorial(TipoDocto:=RblTipo.SelectedValue)
If DTHistorialVentas IsNot Nothing AndAlso RblTipo.SelectedValue <> "-1" Then
Dim tmp As DataTable = DTHistorialVentas.FiltraParametros($"TipoDocto = '{RblTipo.SelectedValue}'")
If tmp.Rows.Count > 0 Then
Dim Totales As DataRow = tmp.NewRow
Totales("SubTotal") = tmp.SUM("SubTotal")
Totales("Total") = tmp.SUM("Total")
Totales("Descuento") = tmp.SUM("Descuento")
Totales("Amortizacion") = tmp.SUM("Amortizacion")
Totales("MAX_Total") = tmp.MAX("MAX_Total")
Totales("AVG_Total") = tmp.AVG("AVG_Total")
Totales("MIN_Total") = tmp.MIN("MIN_Total")
Totales("CountTotal") = tmp.COUNT("CountTotal")
tmp.Rows.InsertAt(Totales, 0)
End If
GVHistorial.DataSource = tmp
ElseIf DTHistorialVentas IsNot Nothing AndAlso RblTipo.SelectedValue = "-1" Then
GVHistorial.DataSource = DTHistorialVentas
End If
GVHistorial.DataBind()
End Sub
Private Sub DdlSucursalCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSucursalCliente.SelectedIndexChanged
CargaCotizaciones(CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) 'listo
@@ -5803,13 +5836,13 @@ Partial Class Clientes
End If
End Sub
End Sub
#End Region
#Region "IMPRIMIR GVHistorial"
Protected Sub BtnExcelHistorial_Click(sender As Object, e As EventArgs)
Dim retorno As Byte() = Nothing
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
@@ -5888,18 +5921,18 @@ Partial Class Clientes
ObjClientes.Dispose()
Return retorno
End Function
End Function
#End Region
#Region "C O B R A N Z A"
Public Sub Visitas_Click(sender As Object, e As EventArgs)
RegistraScript(String.Format("$('#{0}').modal();", "DivVisitas"))
End Sub
End Sub
#End Region
#Region "Usuarios"
Protected Sub GvUsuarios_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvUsuarios.RowDeleting
Dim CveUsuario As Integer = GvUsuarios.Rows(e.RowIndex).DataKey("CveUsuario").ToEntero
@@ -5934,12 +5967,12 @@ Partial Class Clientes
e.Row.Cells(5).Visible = False
End If
End If
End Sub
End Sub
#End Region
#Region "C U E N T A S - B A N C A R I A S"
Private Sub CargaCuentasBancarias()
Dim ObjCuentasBancos As New ClsGenerales
ViewState("OrdenCuentasBancos") = ""
@@ -6110,8 +6143,8 @@ Partial Class Clientes
TxtNumeroCuenta2.Text = ""
TxtConvenioCIE2.Text = ""
TxtReferencia2.Text = ""
End Sub
End Sub
#Region "GRIDVIEW - CUENTAS BANCARIAS"
Protected Sub GvBancosCuentas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvBancosCuentas.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
@@ -6170,10 +6203,10 @@ Partial Class Clientes
End If
ObjCuentasBancos.Dispose()
End If
End Sub
End Sub
#End Region
Private Sub CargaPSGridCuentasBancos()
If CveCliente > 0 Then
GvBancosCuentas.DataSource = DTCuentasBancos
@@ -6231,9 +6264,9 @@ Partial Class Clientes
divestatus.Visible = True
UpAddBancos.Update()
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddCuentasBancarias"))
End Sub
End Sub
#End Region
#Region "C L I E N T E S P A G O S R E A L I Z A D O S I M P R I M I R P D F/Excel"
Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkPagosClientesBancosExcel.Click
GenerarPDF("Excel")
@@ -6493,10 +6526,10 @@ Partial Class Clientes
ObjVentas.Dispose()
Return PdfFactura(Vta)
End Function
End Function
#End Region
#Region "COMERCIO EXTERIOR"
Public Sub CargaCombosComercioExterior()
@@ -6610,12 +6643,12 @@ Partial Class Clientes
End Sub
Protected Sub DdlMunicipio_SelectedIndexChanged(sender As Object, e As EventArgs)
CargaColonia()
End Sub
End Sub
#End Region
#Region "D O C U M E N T A C I O N "
Private Sub CargaDocumentacionCliente()
Dim objRH As New ClsEdocumentacion()
@@ -7438,12 +7471,12 @@ Partial Class Clientes
RegistraScript("Download('" & baseUrl & "')")
End Sub
End Sub
#End Region
#Region "D O C U M E N T O S V E N T A S"
Private Sub CargaDocumentosVenta(tCveCliente As Integer)
Dim objInv As New ClsEdocumentacion
@@ -7614,11 +7647,11 @@ Partial Class Clientes
objRH.Dispose()
End Sub
End Sub
#End Region
#Region "PERSONA FISICA"
Protected Sub LnkPersonaFisica_Click(sender As Object, e As EventArgs)
RegistraScript("$('#DivModalPersonaFisica').modal();")
@@ -7643,9 +7676,9 @@ Partial Class Clientes
ObjCliente.Dispose()
UpDatos.Update()
End Sub
End Sub
#End Region
#Region "USUARIOS PLATAFORMA CLIENTE - 6 "
Protected Sub CargaUsuariosPortalCliente()
Dim objUsuario As ClsSisUsuarios = New ClsSisUsuarios
@@ -7654,19 +7687,19 @@ Partial Class Clientes
GvUsuarios.DataBind()
End If
objUsuario.Dispose()
End Sub
End Sub
#End Region
#Region " DEVOLVER DINERO ANT/NC "
Private Sub InicializaDevolverDinero()
If UsuarioActual.TienePermisoProceso(247) Then
GVAnticipos.Columns(6).Visible = True
End If
End Sub
End Sub
#End Region
#Region "MODAL GRAFICA/PEDIDOS"
Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs)
If CargaDatatables() Then
RegistraScript("$('#DivModalGrafica').modal('show')")
@@ -7999,13 +8032,13 @@ Partial Class Clientes
RegistraScript($"CargaGraficaCompratamientoSaldoMensual({Dt5.ToJson},{Dt6.ToJson.Replace($"{Chr(34)}True{Chr(34)}", "true").Replace($"{Chr(34)}False{Chr(34)}", "false")})", "55")
UPModalProd.Update()
End Sub
End Sub
#End Region
#Region "TAB - COMPORTAMIENTO DE VENTAS"
Private Sub CargaGrupo()
DdlGrupo.Items.Insert(0, New ListItem("Categoria", "3"))
DdlGrupo.Items.Insert(1, New ListItem("Clasificacion", "4"))
@@ -8185,12 +8218,12 @@ Partial Class Clientes
ObjVentas.Dispose()
GvComportamientoVenta.DataBind()
UpDatosComportamientoVenta.Update()
End Sub
End Sub
#End Region
#Region "DISPOSITIVOS"
Protected Sub LnkMoverDispositivo_Click(sender As Object, e As EventArgs)
Dim CveDispositivo As Integer = HdnCveDispositivoMover.Value.ToEntero()
Dim CveCliente As Integer = DdlClienteDispositivo.SelectedValue.ToEntero()
@@ -8228,10 +8261,10 @@ Partial Class Clientes
CargaEventoBitacora()
NombreDispositivo = ""
RegistraScript("$('#DivMoverDispositivo').modal('hide');")
End Sub
End Sub
#End Region
#Region "CRM"
Protected Sub CargaDatosCRM()
Dim ObjCRM = New ClsCRM()
@@ -8331,9 +8364,9 @@ Partial Class Clientes
Alert("Se Unificó correctamente al Cliente con la Empresa CRM.")
End If
End If
End Sub
End Sub
#End Region
#Region "PORCENTAJE PRECIO DE MARCAS"
Private Sub LnkPorcentajeMarcas_Click(sender As Object, e As EventArgs) Handles LnkPorcentajeMarcas.Click
RegistraScript(String.Format("$('#{0}').modal();", "DivPorcentajeMarcas"))
@@ -8537,9 +8570,9 @@ Partial Class Clientes
ObjPS.Dispose()
End Sub
End Sub
#End Region
#Region "PORCENTAJE PRECIO DE PRODUCTOS"
Private Sub LnkPorcentajePrecios_Click(sender As Object, e As EventArgs) Handles LnkPorcentajePrecios.Click
RegistraScript(String.Format("$('#{0}').modal();", "DivPorcentajePrecios"))
@@ -8775,12 +8808,12 @@ Partial Class Clientes
Protected Sub BtnCambiaPorcentaje_Click(sender As Object, e As EventArgs)
DdlProducto2IndexChange(DdlProducto2.SelectedValue.ToEntero, DdlProducto2)
End Sub
End Sub
#End Region
#Region " A C U M U L A D O R E S"
Protected Sub LnkFacturaUsadosCargos_Click(sender As Object, e As EventArgs)
'CveVentaNota = 0