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

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

Browse Source
This commit is contained in:
janeth arvizu
2019-10-22 13:51:18 -07:00
parent f3730e30e8 eb348b116d
commit bdae815baf
14 changed files with 9146 additions and 5872 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsClientes.vb
View File

@@ -261,7 +261,7 @@ Public Class ClsClientes
End Sub End Sub
Public Function GetClientes(CveCliente As Integer, Nombre As String, Codigo As String, NombreCorto As String, RFC As String, Telefono As String, Mail As String, CveSubProyecto As Integer, Public Function GetClientes(CveCliente As Integer, Nombre As String, Codigo As String, NombreCorto As String, RFC As String, Telefono As String, Mail As String, CveSubProyecto As Integer,
CveEmpresa As Integer, Optional Estatus As Integer = 1, Optional Notificar As String = "-1", Optional CvePrecioLista As Integer = -1, Optional CveClienteClasificacion As Integer = -1, CveEmpresa As Integer, Optional Estatus As Integer = 1, Optional Notificar As String = "-1", Optional CvePrecioLista As Integer = -1, Optional CveClienteClasificacion As Integer = -1,
Optional TipoCliente As Integer = 1, Optional CveVendedor As Integer = -1, Optional PermiteCreditoFiltro As Integer = -1) As Boolean Optional TipoCliente As Integer = -1, Optional CveVendedor As Integer = -1, Optional PermiteCreditoFiltro As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_ClientesGet") DataAdapter("PA_ClientesGet")

18
App_Code/Timbrado.vb
View File

@@ -3228,10 +3228,24 @@ Public Class Timbrado
Else Else
Dim Resultados = Newtonsoft.Json.Linq.JArray.Parse(resultadoTimbre.Detalle) Dim Resultados = Newtonsoft.Json.Linq.JArray.Parse(resultadoTimbre.Detalle)
If Resultados.Count > 0 Then If Resultados.Count > 0 Then
Retorno = Resultados(0)("Value").ToString()
MensajeErrorCFDI = Resultados(0)("Value").ToString() If resultadoTimbre.Descripcion.Contains("RFC del receptor no existe") Then
Retorno = $"El RFC { Resultados(0)("Value").ToString() } no existe en las bases de datos publicadas por el SAT, corrobore este dato con su cliente"
MensajeErrorCFDI = $"El RFC { Resultados(0)("Value").ToString() } no existe en las bases de datos publicadas por el SAT, corrobore este dato con su cliente"
Else
Retorno = Resultados(0)("Value").ToString()
MensajeErrorCFDI = Resultados(0)("Value").ToString()
End If
Else Else
Retorno = resultadoTimbre.Detalle Retorno = resultadoTimbre.Detalle
MensajeErrorCFDI = resultadoTimbre.Detalle MensajeErrorCFDI = resultadoTimbre.Detalle

1957
Bancos/IE.aspx.vb
View File

File diff suppressed because it is too large Load Diff

2585
Empresas/72/Formatos/OrdenServicio.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

428
GPS/CatRemisionesVehiculos.aspx
View File

@@ -1,180 +1,174 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/SiteGPS.master" AutoEventWireup="false" CodeFile="CatRemisionesVehiculos.aspx.vb" Inherits="GPS_CatRemisionesVehiculos" %> <%@ Page Title="" Language="VB" MasterPageFile="~/SiteGPS.master" AutoEventWireup="false" CodeFile="CatRemisionesVehiculos.aspx.vb" Inherits="GPS_CatRemisionesVehiculos" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server"> <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content> </asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style> <style>
html, body, #map { html, body, #map {
width: 100%; width: 100%;
height: 93%; height: 93%;
margin: 0; margin: 0;
padding: 0; padding: 0;
} }
#map { #map {
position: fixed !important; position: fixed !important;
} }
.pac-container.pac-logo { .pac-container.pac-logo {
z-index: 100000; z-index: 100000;
} }
.modalPopup {
top:132px !important; .modalPopup {
} top: 132px !important;
</style> }
</asp:Content> </style>
<asp:Content ContentPlaceHolderID="H" ID="Content9" runat="server"> </asp:Content>
<li> <asp:Content ContentPlaceHolderID="H" ID="Content9" runat="server">
<a ID="BtnDir" OnClick="$('#dvConsulta').modal({ backdrop: 'static', keyboard: false });"> <li>
<i class='fa fa-search'></i><span>Ver Remisiones</span> <a id="BtnDir" onclick="$('#dvConsulta').modal({ backdrop: 'static', keyboard: false });">
</a> <i class='fa fa-search'></i><span>Ver Remisiones</span>
</li> </a>
</asp:Content> </li>
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server"> </asp:Content>
<div id="map"></div> <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UPModalBusqueda"> <div id="map"></div>
<ContentTemplate> <asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UPModalBusqueda">
<div id="dvConsulta" class="modal ADS fade" role="dialog"> <ContentTemplate>
<div class="modal-dialog"> <div id="dvConsulta" class="modal ADS fade" role="dialog">
<asp:UpdatePanel ID="UPConsulta" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional"> <div class="modal-dialog">
<ContentTemplate> <asp:UpdatePanel ID="UPConsulta" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
<div class="modal-header"> <ContentTemplate>
<button type="button" class="close" data-dismiss="modal" aria-label="Close"> <div class="modal-header">
<span aria-hidden="true">&times;</span> <button type="button" class="close" data-dismiss="modal" aria-label="Close">
</button> <span aria-hidden="true">&times;</span>
<h4 class="modal-title" id="myModalLabel2" runat="server"><i class="fa fa-bell-o"></i> Remisiones Activas</h4> </button>
</div> <h4 class="modal-title" id="myModalLabel2" runat="server"><i class="fa fa-bell-o"></i>Remisiones Activas</h4>
<div class="modal-body" style="padding: 0px 10px 0px 10px !important"> </div>
<asp:UpdatePanel runat="server" UpdateMode="conditional" ID="UpCuentasComunicacion"> <div class="modal-body" style="padding: 0px 10px 0px 10px !important">
<ContentTemplate> <asp:UpdatePanel runat="server" UpdateMode="conditional" ID="UpCuentasComunicacion">
<div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right" align="left"> <ContentTemplate>
<div style="margin-right: 15px"> <div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right" align="left">
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvRemisiones.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" /> <div style="margin-right: 15px">
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvRemisiones.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a> <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvRemisiones.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
</div> <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvRemisiones.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div> </div>
<asp:GridView ID="GvRemisiones" runat="server" GridLines="None" DataKeyNames="FolioRemision, TrackingNumber, NumeroRemolque,NoEconomico, Posicion, Estatus, CveEstatus, CveRemision, CveDispositivo" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-heightfijo="100" data-height="175" data-sort="false" BorderWidth="1" BorderColor="#D3D3D3" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros"> </div>
<Columns> <asp:GridView ID="GvRemisiones" runat="server" GridLines="None" DataKeyNames="FolioRemision, TrackingNumber, NumeroRemolque,NoEconomico, Posicion, Estatus, CveEstatus, CveRemision, CveDispositivo" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-heightfijo="100" data-height="175" data-sort="false" BorderWidth="1" BorderColor="#D3D3D3" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros">
<asp:BoundField DataField="FolioRemision" ItemStyle-Width="33%" HeaderText="Folio" ItemStyle-HorizontalAlign="center" /> <Columns>
<asp:BoundField DataField="NoEconomico" ItemStyle-Width="33%" HeaderText="No. Económico" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField DataField="FolioRemision" ItemStyle-Width="33%" HeaderText="Folio" ItemStyle-HorizontalAlign="center" />
<asp:BoundField DataField="Estatus" HeaderText="Estatus" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField DataField="NoEconomico" ItemStyle-Width="33%" HeaderText="No. Económico" ItemStyle-HorizontalAlign="Left" />
<asp:TemplateField HeaderText="Editar" ItemStyle-Width="7%" ItemStyle-HorizontalAlign="Right"> <asp:BoundField DataField="Estatus" HeaderText="Estatus" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Left" />
<ItemTemplate> <asp:TemplateField HeaderText="Editar" ItemStyle-Width="7%" ItemStyle-HorizontalAlign="Right">
<asp:LinkButton ID="imgE" HeaderText="Eliminar" runat="server" AlternateText="Editar" OnClick="imgE_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" /> <ItemTemplate>
</ItemTemplate> <asp:LinkButton ID="imgE" HeaderText="Eliminar" runat="server" AlternateText="Editar" OnClick="imgE_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
</asp:TemplateField> </ItemTemplate>
<asp:TemplateField ItemStyle-Width="7%" HeaderText="Historial" ItemStyle-HorizontalAlign="Left"> </asp:TemplateField>
<ItemTemplate> <asp:TemplateField ItemStyle-Width="7%" HeaderText="Historial" ItemStyle-HorizontalAlign="Left">
<asp:LinkButton ID="imgHistorial" ItemStyle-Width="5%" runat="server" AlternateText="Eliminar" CausesValidation="False" OnClick="imgHistorial_Click" CssClass="btn btn-circle btn-sm yellow" Text="<i class='fa fa-book'></i>" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" /> <ItemTemplate>
</ItemTemplate> <asp:LinkButton ID="imgHistorial" ItemStyle-Width="5%" runat="server" AlternateText="Eliminar" CausesValidation="False" OnClick="imgHistorial_Click" CssClass="btn btn-circle btn-sm yellow" Text="<i class='fa fa-book'></i>" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
</asp:TemplateField> </ItemTemplate>
</Columns> </asp:TemplateField>
</asp:GridView> </Columns>
</ContentTemplate> </asp:GridView>
</asp:UpdatePanel> </ContentTemplate>
</div> </asp:UpdatePanel>
<div class="modal-footer"> </div>
</div> <div class="modal-footer">
</ContentTemplate> </div>
</asp:UpdatePanel> </ContentTemplate>
</div> </asp:UpdatePanel>
</div> </div>
</ContentTemplate> </div>
</asp:UpdatePanel> </ContentTemplate>
<asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpdatePanel1"> </asp:UpdatePanel>
<ContentTemplate> <asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpdatePanel1">
<div id="dvHistorico" class="modal ADS fade" role="dialog"> <ContentTemplate>
<div class="modal-dialog"> <div id="dvHistorico" class="modal ADS fade" role="dialog">
<asp:UpdatePanel ID="UpHistorico" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional"> <div class="modal-dialog">
<ContentTemplate> <asp:UpdatePanel ID="UpHistorico" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
<div class="modal-header"> <ContentTemplate>
<button type="button" class="close" data-dismiss="modal" aria-label="Close"> <div class="modal-header">
<span aria-hidden="true">&times;</span> <button type="button" class="close" data-dismiss="modal" aria-label="Close">
</button> <span aria-hidden="true">&times;</span>
<h4 class="modal-title" id="H1" runat="server"><i class="fa fa-bell-o"></i>Historial Remision: </h4> </button>
</div> <h4 class="modal-title" id="H1" runat="server"><i class="fa fa-bell-o"></i>Historial Remision: </h4>
<div class="modal-body" > </div>
<asp:UpdatePanel runat="server" UpdateMode="conditional" ID="UpdatePanel3"> <div class="modal-body">
<ContentTemplate> <asp:UpdatePanel runat="server" UpdateMode="conditional" ID="UpdatePanel3">
<div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right" align="left"> <ContentTemplate>
<div style="margin-right: 15px"> <div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right" align="left">
<input type="text" id="TxtBusquedaHist" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvRemisiones.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" /> <div style="margin-right: 15px">
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvRemisiones.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a> <input type="text" id="TxtBusquedaHist" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvRemisiones.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
</div> <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvRemisiones.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div> </div>
<asp:GridView ID="GVHistorico" runat="server" GridLines="None" DataKeyNames="FolioRemision, NoEconomico, CveEstatus" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-heightfijo="100" data-height="100" data-sort="true" BorderWidth="1" BorderColor="#D3D3D3" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros"> </div>
<Columns> <asp:GridView ID="GVHistorico" runat="server" GridLines="None" DataKeyNames="FolioRemision, NoEconomico, CveEstatus" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-heightfijo="100" data-height="100" data-sort="true" BorderWidth="1" BorderColor="#D3D3D3" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros">
<asp:BoundField DataField="FolioRemision" ItemStyle-Width="30%" HeaderStyle-HorizontalAlign="center" HeaderText="Folio" ItemStyle-HorizontalAlign="left" /> <Columns>
<asp:BoundField DataField="NoEconomico" ItemStyle-Width="30%" HeaderStyle-HorizontalAlign="center" HeaderText="No. Económico" ItemStyle-HorizontalAlign="left" /> <asp:BoundField DataField="FolioRemision" ItemStyle-Width="30%" HeaderStyle-HorizontalAlign="center" HeaderText="Folio" ItemStyle-HorizontalAlign="left" />
<asp:BoundField DataField="Estatus" HeaderText="Estatus" HeaderStyle-HorizontalAlign="center" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="left" /> <asp:BoundField DataField="NoEconomico" ItemStyle-Width="30%" HeaderStyle-HorizontalAlign="center" HeaderText="No. Económico" ItemStyle-HorizontalAlign="left" />
<asp:HyperLinkField DataNavigateUrlFields="Lat,Lon" HeaderStyle-HorizontalAlign="center" Target="_blank" Text="Ir" HeaderText="Google Maps" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="left" DataNavigateUrlFormatString="https://www.google.com/maps/search/{0},{1}/"/> <asp:BoundField DataField="Estatus" HeaderText="Estatus" HeaderStyle-HorizontalAlign="center" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="left" />
</Columns> <asp:HyperLinkField DataNavigateUrlFields="Lat,Lon" HeaderStyle-HorizontalAlign="center" Target="_blank" Text="Ir" HeaderText="Google Maps" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="left" DataNavigateUrlFormatString="https://www.google.com/maps/search/{0},{1}/" />
</asp:GridView> </Columns>
</ContentTemplate> </asp:GridView>
</asp:UpdatePanel> </ContentTemplate>
</div> </asp:UpdatePanel>
<div class="modal-footer"> </div>
</div> <div class="modal-footer">
</ContentTemplate> </div>
</asp:UpdatePanel> </ContentTemplate>
</div> </asp:UpdatePanel>
</div> </div>
</ContentTemplate> </div>
</asp:UpdatePanel> </ContentTemplate>
</asp:UpdatePanel>
<asp:Button ID="BtnMostrarContrato" runat="server" Style="visibility: hidden; display: none;" />
<asp:Button ID="BtnCerrarContrato" runat="server" CssClass="btn btn-danger" Style="visibility: hidden; display: none;" /> <asp:Button ID="BtnMostrarContrato" runat="server" Style="visibility: hidden; display: none;" />
<asp:Button ID="BtnCerrarContrato" runat="server" CssClass="btn btn-danger" Style="visibility: hidden; display: none;" />
<Ajax:ModalPopupExtender ID="MPContrato" runat="server" PopupControlID="PanelContrato" TargetControlID="BtnMostrarContrato"
CancelControlID="BtnCerrarContrato" BackgroundCssClass="modalBackground"> <ajax:ModalPopupExtender ID="MPContrato" runat="server" PopupControlID="PanelContrato" TargetControlID="BtnMostrarContrato"
</Ajax:ModalPopupExtender> CancelControlID="BtnCerrarContrato" BackgroundCssClass="modalBackground">
<asp:Panel ID="PanelContrato" runat="server" CssClass="modalPopup" align="center" Style="display: none; padding: 10px;"> </ajax:ModalPopupExtender>
<asp:Panel ID="PanelContrato" runat="server" CssClass="modalPopup" align="center" Style="display: none; padding: 10px;">
<asp:UpdatePanel ID="UpContratos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <asp:UpdatePanel ID="UpContratos" runat="server" UpdateMode="Conditional">
<div id="AccionContrato" runat="server" style="background-color: white;width:280px;border-color: black;border-width: 1.7px;border-style: solid;"> <ContentTemplate>
<h5> <b> Actualizar Remisión </b></h5> <div id="AccionContrato" runat="server" style="background-color: white; width: 280px; border-color: black; border-width: 1.7px; border-style: solid;">
<div class="row"> <h5><b>Actualizar Remisión </b></h5>
<div class="form-group form-md-line-input input-iconright" style="width:50%"> <div class="row">
<asp:TextBox ID="TxtTracking" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox> <div class="form-group form-md-line-input input-iconright" style="width: 50%">
<label for="<%= TxtTracking.ClientID.ToString()%>">Tracking Number:</label> <asp:TextBox ID="TxtTracking" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
</div> <label for="<%= TxtTracking.ClientID.ToString()%>">Tracking Number:</label>
<div class="form-group form-md-line-input input-iconright" style="width:50%"> </div>
<asp:TextBox ID="TxtNoRemolque" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox> <div class="form-group form-md-line-input input-iconright" style="width: 50%">
<label for="<%= TxtNoRemolque.ClientID.ToString()%>">Número remolque:</label> <asp:TextBox ID="TxtNoRemolque" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
</div> <label for="<%= TxtNoRemolque.ClientID.ToString()%>">Número remolque:</label>
</div> </div>
</div>
<div class="row"> <div class="row">
<asp:Label style=" top: 0;margin-bottom: 0;font-size: 13px;color: #888888; opacity: 1;" runat="server" Text="Estatus"></asp:Label> <asp:Label Style="top: 0; margin-bottom: 0; font-size: 13px; color: #888888; opacity: 1;" runat="server" Text="Estatus"></asp:Label>
<br /> <br />
<asp:DropDownList ID="DdlEstatus" DataValueField="CveEstatus" DataTextField="Estatus" runat="server" CssClass="form-control" Width="80%"> <asp:DropDownList ID="DdlEstatus" DataValueField="CveEstatus" DataTextField="Estatus" runat="server" CssClass="form-control" Width="80%">
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<br />
<%--<asp:RadioButtonList ID="RblOpcionContrato" runat="server" CssClass="rbl" RepeatDirection="Horizontal" RepeatLayout="Table"> <asp:LinkButton ID="BtnActualizarEstatus" OnClick="BtnActualizarEstatus_Click" runat="server" CssClass="btn btn-success" Text="Aceptar" />
<asp:ListItem Text="Si" Value="2"></asp:ListItem> <asp:LinkButton ID="BtnCancelar" OnClick="BtnCancelar_Click" runat="server" CssClass="btn btn-danger" Text="Cancelar" />
<asp:ListItem Text="No" Value="1"></asp:ListItem> &nbsp;
</asp:RadioButtonList>--%> </div>
<br /> </ContentTemplate>
</asp:UpdatePanel>
<asp:LinkButton ID="BtnActualizarEstatus" onclick="BtnActualizarEstatus_Click" runat="server" CssClass="btn btn-success" Text="Aceptar" />
<asp:LinkButton ID="BtnCancelar" onclick="BtnCancelar_Click" runat="server" CssClass="btn btn-danger" Text="Cancelar" /> </asp:Panel>
&nbsp;
</div>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Panel>
<%--<asp:UpdatePanel runat="server" ID="UP"> <%--<asp:UpdatePanel runat="server" ID="UP">
<ContentTemplate> <ContentTemplate>
<asp:Button runat="server" ID="BtnCargar" /> <asp:Button runat="server" ID="BtnCargar" />
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel>--%> </asp:UpdatePanel>--%>
</asp:Content> </asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
<script> <script>
var image = '/Imagenes/rsz_11rsz_car.png'; var image = '/Imagenes/rsz_11rsz_car.png';
var geocoder; var geocoder;
@@ -185,15 +179,15 @@
function initMap() { function initMap() {
map = new google.maps.Map(document.getElementById('map'), { map = new google.maps.Map(document.getElementById('map'), {
center: uluru, center: uluru,
zoom: 13 zoom: 13
}); });
google.maps.event.addListener(map, "click", function (event) { google.maps.event.addListener(map, "click", function (event) {
closeLastOpenedInfoWindow(); closeLastOpenedInfoWindow();
}); });
$("#SideNav").removeClass("nav-is-visible"); $("#SideNav").removeClass("nav-is-visible");
@@ -202,78 +196,78 @@
directionsDisplay.setOptions({ suppressMarkers: true }); directionsDisplay.setOptions({ suppressMarkers: true });
geocoder = new google.maps.Geocoder(); geocoder = new google.maps.Geocoder();
directionsDisplay.setMap(map); directionsDisplay.setMap(map);
$("#dvConsulta").modal({ backdrop: 'static', keyboard: false }); $("#dvConsulta").modal({ backdrop: 'static', keyboard: false });
} }
var markers = []; var markers = [];
var lastOpenedInfoWindow; var lastOpenedInfoWindow;
function CreaMarcador(coords, nomEquipo, ContentString, imagen) { function CreaMarcador(coords, nomEquipo, ContentString, imagen) {
DeleteMarkers(); DeleteMarkers();
if (typeof imagen === 'undefined') { imagen = image; } if (typeof imagen === 'undefined') { imagen = image; }
var marker = new google.maps.Marker({ var marker = new google.maps.Marker({
position: coords, position: coords,
title: nomEquipo, title: nomEquipo,
map: map, map: map,
icon: imagen icon: imagen
}); });
var infowindow = new google.maps.InfoWindow({ var infowindow = new google.maps.InfoWindow({
content: ContentString content: ContentString
}); });
marker.addListener('click', function () { marker.addListener('click', function () {
closeLastOpenedInfoWindow(); closeLastOpenedInfoWindow();
infowindow.open(map, marker); infowindow.open(map, marker);
lastOpenedInfoWindow = infowindow; lastOpenedInfoWindow = infowindow;
}); });
markers.push(marker); markers.push(marker);
map.setCenter(coords); map.setCenter(coords);
} }
function fitBoundsToVisibleMarkers() { function fitBoundsToVisibleMarkers() {
var bounds = new google.maps.LatLngBounds(); var bounds = new google.maps.LatLngBounds();
for (var i = 0; i < markers.length; i++) { for (var i = 0; i < markers.length; i++) {
if (markers[i].getVisible()) { if (markers[i].getVisible()) {
bounds.extend(markers[i].getPosition()); bounds.extend(markers[i].getPosition());
} }
} }
map.fitBounds(bounds); map.fitBounds(bounds);
} }
function DeleteMarkers() { function DeleteMarkers() {
for (var i = 0; i < markers.length; i++) { for (var i = 0; i < markers.length; i++) {
markers[i].setMap(null); markers[i].setMap(null);
}
markers = [];
}
function closeLastOpenedInfoWindow() {
if (lastOpenedInfoWindow) {
lastOpenedInfoWindow.close();
}
}
function DeleteMarkers() {
for (var i = 0; i < markers.length; i++) {
markers[i].setMap(null);
} }
markers = []; markers = [];
directionsDisplay.setMap(null);
}
function closeLastOpenedInfoWindow() {
if (lastOpenedInfoWindow) {
lastOpenedInfoWindow.close();
}
}
function DeleteMarkers() {
for (var i = 0; i < markers.length; i++) {
markers[i].setMap(null);
}
markers = [];
directionsDisplay.setMap(null);
} }
$(document).ready(function () { $(document).ready(function () {
initMap(); initMap();
$('#C_BtnCargar').click(); $('#C_BtnCargar').click();
}); });
</script> </script>
<script <script
src="https://maps.googleapis.com/maps/api/js?key=AIzaSyAF7s8wwhzCVXDUYopc9mXxqaWB33cDro4&libraries=places"> src="https://maps.googleapis.com/maps/api/js?key=AIzaSyAF7s8wwhzCVXDUYopc9mXxqaWB33cDro4&libraries=places">
</script> </script>
</asp:Content> </asp:Content>

24
GPS/CatRemisionesVehiculos.aspx.vb
View File

@@ -42,14 +42,12 @@ Partial Class GPS_CatRemisionesVehiculos
Dim ObjTSoft As New ClsTSoft Dim ObjTSoft As New ClsTSoft
If ObjTSoft.GetRemisiones(UsuarioActual.CveCliente) Then If ObjTSoft.GetRemisiones(UsuarioActual.CveCliente) Then
GvRemisiones.DataSource = ObjTSoft.DtResultados GvRemisiones.DataSource = ObjTSoft.DtResultados
Else
GvRemisiones.DataSource = Nothing
End If End If
If ObjTSoft.GetEstatusRemisiones() Then If ObjTSoft.GetEstatusRemisiones() Then
DdlEstatus.DataSource = ObjTSoft.DtResultados DdlEstatus.DataSource = ObjTSoft.DtResultados
End If End If
ObjTSoft.Dispose()
ObjTSoft.Dispose()
DdlEstatus.DataBind() DdlEstatus.DataBind()
GvRemisiones.DataBind() GvRemisiones.DataBind()
UPConsulta.Update() UPConsulta.Update()
@@ -91,16 +89,16 @@ Partial Class GPS_CatRemisionesVehiculos
UpContratos.Update() UpContratos.Update()
End Sub End Sub
Protected Sub BtnActualizarEstatus_Click(sender As Object, e As EventArgs) Protected Sub BtnActualizarEstatus_Click(sender As Object, e As EventArgs)
Dim ObjSoft As New ClsTSoft
Dim TrackingNo As String = If(TxtTracking.Text <> "", TxtTracking.Text, "-1")
Dim NumRemolque As String = If(TxtNoRemolque.Text <> "", TxtNoRemolque.Text, "-1")
Dim TrackingNo As String = If(TxtTracking.Text <> "", TxtTracking.Text, "-1")
Dim NumRemolque As String = If(TxtNoRemolque.Text <> "", TxtNoRemolque.Text, "-1")
Dim ObjSoft As New ClsTSoft
If ObjSoft.UpdateEstatusRemisiones(CveRemision, DdlEstatus.SelectedValue.ToEntero, TrackingNo, NumRemolque) Then If ObjSoft.UpdateEstatusRemisiones(CveRemision, DdlEstatus.SelectedValue.ToEntero, TrackingNo, NumRemolque) Then
Alert("El estatus se actualizó correctamente") Alert("El estatus se actualizó correctamente")
End If End If
ObjSoft.Dispose()
TxtNoRemolque.Text = "" TxtNoRemolque.Text = ""
TxtTracking.Text = "" TxtTracking.Text = ""
ObjSoft.Dispose()
CargaDatos() CargaDatos()
RegistraScript("$('#C_BtnCerrarContrato').click();") RegistraScript("$('#C_BtnCerrarContrato').click();")
End Sub End Sub
@@ -108,17 +106,19 @@ Partial Class GPS_CatRemisionesVehiculos
RegistraScript("$('#C_BtnCerrarContrato').click();") RegistraScript("$('#C_BtnCerrarContrato').click();")
End Sub End Sub
Protected Sub imgHistorial_Click(sender As Object, e As EventArgs) Protected Sub imgHistorial_Click(sender As Object, e As EventArgs)
Dim ObjSoft As New ClsTSoft
Dim Boton = CType(sender, LinkButton) Dim Boton = CType(sender, LinkButton)
Dim GvRow As GridViewRow = DirectCast(Boton.NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(Boton.NamingContainer, GridViewRow)
CveRemision = Boton.CommandArgument.ToEntero CveRemision = Boton.CommandArgument.ToEntero
Dim ObjSoft As New ClsTSoft
If ObjSoft.GETRemisionesHistorial(GvRow.DataKey("FolioRemision").ToString, GvRow.DataKey("NoEconomico").ToString) Then If ObjSoft.GETRemisionesHistorial(GvRow.DataKey("FolioRemision").ToString, GvRow.DataKey("NoEconomico").ToString) Then
GVHistorico.DataSource = ObjSoft.DtResultados GVHistorico.DataSource = ObjSoft.DtResultados
End If End If
ObjSoft.Dispose() ObjSoft.Dispose()
H1.InnerText = $"Histórico Remisión: {GvRow.DataKey("FolioRemision").ToString} " H1.InnerText = $"Histórico Remisión: {GvRow.DataKey("FolioRemision").ToString} "
GVHistorico.DataBind() GVHistorico.DataBind()
UpHistorico.Update() UpHistorico.Update()
RegistraScript("$('#dvHistorico').modal();") RegistraScript("$('#dvHistorico').modal('show');")
End Sub End Sub
End Class End Class

277
General/SaldosIniciales.aspx.vb
View File

@@ -10,7 +10,8 @@ Imports GemBox.Spreadsheet
Partial Class General_SaldosIniciales Partial Class General_SaldosIniciales
Inherits ClsPaginas Inherits ClsPaginas
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then If Not IsPostBack Then
End If End If
End Sub End Sub
@@ -68,7 +69,92 @@ Partial Class General_SaldosIniciales
'End Try 'End Try
'Conexion.Close() 'Conexion.Close()
If Not ErrorArchivo Then If Not ErrorArchivo Then
If RblFormato.SelectedValue = "1" Or RblFormato.SelectedValue = "2" Then If RblFormato.SelectedValue = "1" Or RblFormato.SelectedValue = "2" Then
If Not dt.Columns(0).ColumnName = "Codigo" Then
Alert("El nombre de la primera columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(1).ColumnName = "RazonSocial" Then
Alert("El nombre de la segunda columna debe ser 'Fecha'.Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(2).ColumnName = "RFC" Then
Alert("El nombre de la tercera columna debe ser 'RFC'.Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(3).ColumnName = "Calle" Then
Alert("El nombre de la cuarta columna debe ser 'Calle'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(4).ColumnName = "Número exterior" Then
Alert("El nombre de la quinta columna debe ser 'Número exterior' .Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(5).ColumnName = "Colonia" Then
Alert("El nombre de la sexta columna debe ser 'Colonia'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(6).ColumnName = "Código postal" Then
Alert("El nombre de la séptima columna debe ser 'Código postal'.Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(7).ColumnName = "Población" Then
Alert("El nombre de la octava columna debe ser 'Población'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(8).ColumnName = "Estado" Then
Alert("El nombre de la novena columna debe ser 'Estado'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(9).ColumnName = "Teléfono" Then
Alert("El nombre de la décima columna debe ser 'Teléfono'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(10).ColumnName = "Contacto" Then
Alert("El nombre de la onceava columna debe ser 'Contacto'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(11).ColumnName = "Celular Contacto" Then
Alert("El nombre de la doceava columna debe ser 'Celular Contacto'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(12).ColumnName = "Limite Credito" Then
Alert("El nombre de la treceava columna debe ser 'Limite Credito'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(13).ColumnName = "Plazo Cobranza" Then
Alert("El nombre de la catorceava columna debe ser 'Plazo Cobranza'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
'If Not dt.Columns(14).ColumnName = "Pais" Then
' Alert("El nombre de la quinceava columna debe ser 'Plazo Cobranza'. Favor de corregirlo", TipoMensaje.MsgError)
' Exit Sub
'End If
If Not dt.Columns(14).ColumnName.ToUpper = "BANCO" Then
Alert("El nombre de la quinceava columna debe ser 'Banco'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(15).ColumnName.ToUpper = "N° CUENTA" Then
Alert("El nombre de la dieciseisava columna debe ser 'N° Cuenta'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(16).ColumnName.ToUpper = "CLABE INTER" Then
Alert("El nombre de la diecisieteava columna debe ser 'Clabe Inter'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
ElseIf RblFormato.SelectedValue = "2" Then
If Not dt.Columns(0).ColumnName = "Codigo" Then If Not dt.Columns(0).ColumnName = "Codigo" Then
Alert("El nombre de la primera columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError) Alert("El nombre de la primera columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub Exit Sub
@@ -124,22 +210,24 @@ Partial Class General_SaldosIniciales
If Not dt.Columns(13).ColumnName = "Plazo Cobranza" Then If Not dt.Columns(13).ColumnName = "Plazo Cobranza" Then
Alert("El nombre de la treceava columna debe ser 'Plazo Cobranza'. Favor de corregirlo", TipoMensaje.MsgError) Alert("El nombre de la treceava columna debe ser 'Plazo Cobranza'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub Exit Sub
End If End If
If RblFormato.SelectedValue = "1" Then
If Not dt.Columns(14).ColumnName = "Vendedor" Then
If Not dt.Columns(14).ColumnName = "Vendedor" Then
Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError) Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub Exit Sub
End If End If
If Not dt.Columns(15).ColumnName = "Clasificación" Then If Not dt.Columns(15).ColumnName = "Clasificación" Then
Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError) Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub Exit Sub
End If End If
If Not dt.Columns(16).ColumnName = "Es distribuidor" Then If Not dt.Columns(16).ColumnName = "Es distribuidor" Then
Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError) Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub Exit Sub
End If End If
End If
ElseIf RblFormato.SelectedValue = "3" Or RblFormato.SelectedValue = "4" Then ElseIf RblFormato.SelectedValue = "3" Or RblFormato.SelectedValue = "4" Then
If Not dt.Columns(0).ColumnName = "Sucursal" Then If Not dt.Columns(0).ColumnName = "Sucursal" Then
Alert("El nombre de la primera columna debe ser 'Sucursal'. Favor de corregirlo", TipoMensaje.MsgError) Alert("El nombre de la primera columna debe ser 'Sucursal'. Favor de corregirlo", TipoMensaje.MsgError)
@@ -517,7 +605,8 @@ Partial Class General_SaldosIniciales
If Not ErrorArchivo Then If Not ErrorArchivo Then
'P R O D U C T O S / S E R V I C I O S 'P R O D U C T O S / S E R V I C I O S
If RblFormato.SelectedValue = "5" Then If RblFormato.SelectedValue = "5" Then
Dim ObjPS As New ClsProductosServicios Dim ObjPS As New ClsProductosServicios
Dim ObjGral As New ClsGenerales(ObjPS.IniciaTransacSQL()) Dim ObjGral As New ClsGenerales(ObjPS.IniciaTransacSQL())
Dim ObjClas As New ClsClasificaciones(ObjPS.IniciaTransacSQL()) Dim ObjClas As New ClsClasificaciones(ObjPS.IniciaTransacSQL())
@@ -654,10 +743,14 @@ Partial Class General_SaldosIniciales
End If End If
If Not CveClasificacion2 > 0 AndAlso Clasificacion2 <> "" Then If Not CveClasificacion2 > 0 AndAlso Clasificacion2 <> "" Then
Dim CveCategoria As Integer Dim CveCategoria As Integer
If ObjGral.GetCategorias(UsuarioActual.CveEmpresa, 4) Then If ObjGral.GetCategorias(UsuarioActual.CveEmpresa, 4) Then
CveCategoria = ObjGral.DtResultados.FiltroPrimeroValor("CveCategoria", "").ToEntero CveCategoria = ObjGral.DtResultados.FiltroPrimeroValor("CveCategoria", "").ToEntero
End If End If
If Not CveCategoria > 0 Then If Not CveCategoria > 0 Then
If ObjGral.AddCategorias(Clasificacion2, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 4) Then If ObjGral.AddCategorias(Clasificacion2, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 4) Then
@@ -665,12 +758,27 @@ Partial Class General_SaldosIniciales
CveCategoria = ObjGral.DtResultados.FiltroPrimeroValor("CveCategoria", "").ToEntero CveCategoria = ObjGral.DtResultados.FiltroPrimeroValor("CveCategoria", "").ToEntero
End If End If
End If End If
End If End If
If ObjClas.AddClasificaciones(Clasificacion2, "", -1, "-1", -1, "-1", -1, "-1", CveCategoria, UsuarioActual.CveUsuario,
UsuarioActual.CveEmpresa) Then
If ObjClas.GetClasificaciones(Tipo:=4) Then Application("GlobalDTClasificaciones2") = ObjClas.DtResultados If ObjClas.GetClasificaciones(UsuarioActual.CveEmpresa) Then
CveClasificacion2 = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion2}'").ToString.ToEntero CveClasificacion2 = ObjClas.DtResultados.FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{ Clasificacion2.Trim }'").ToEntero
End If End If
If CveClasificacion2 = 0 Then
If ObjClas.AddClasificaciones(Clasificacion2, "", -1, "-1", -1, "-1", -1, "-1", CveCategoria, UsuarioActual.CveUsuario,
UsuarioActual.CveEmpresa) Then
If ObjClas.GetClasificaciones(Tipo:=4) Then Application("GlobalDTClasificaciones2") = ObjClas.DtResultados
CveClasificacion2 = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion2}'").ToString.ToEntero
End If
End If
End If End If
If Not CveClasificacion > 0 AndAlso Clasificacion <> "" Then Alert("No se encontró la Clasificación: " + Clasificacion, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For If Not CveClasificacion > 0 AndAlso Clasificacion <> "" Then Alert("No se encontró la Clasificación: " + Clasificacion, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For
@@ -680,7 +788,7 @@ Partial Class General_SaldosIniciales
If Not CveMedida > 0 AndAlso Medida <> "" Then Alert("No se encontró la Media: " + Medida, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For If Not CveMedida > 0 AndAlso Medida <> "" Then Alert("No se encontró la Media: " + Medida, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For
If Not CveRinTamaño > 0 AndAlso RinTamaño <> "" Then Alert("No se encontró el Tamaño: " + RinTamaño, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For If Not CveRinTamaño > 0 AndAlso RinTamaño <> "" Then Alert("No se encontró el Tamaño: " + RinTamaño, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For
If Not CveModelo > 0 AndAlso Modelo <> "" Then Alert("No se encontró el Modelo: " + Modelo, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For If Not CveModelo > 0 AndAlso Modelo <> "" Then Alert("No se encontró el Modelo: " + Modelo, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For
If Not CveClasificacion2 > 0 AndAlso Clasificacion2 <> "" Then Alert("No se encontró la Serie: " + Clasificacion2, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For 'If Not CveClasificacion2 > 0 AndAlso Clasificacion2 <> "" Then Alert("No se encontró la Serie: " + Clasificacion2, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For
If CvePS > 0 Then If CvePS > 0 Then
If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, Precio, 1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS, If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, Precio, 1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS,
@@ -739,43 +847,106 @@ Partial Class General_SaldosIniciales
Dim ExisteProveedor As Boolean = False Dim ExisteProveedor As Boolean = False
ObjProv.IniciaTransacSQL() ObjProv.IniciaTransacSQL()
For Each Row As DataRow In dt.Rows For Each Row As DataRow In dt.Rows
Dim Codigo As String = Row("Codigo").ToString Dim Codigo As String = Row("Codigo").ToString
Dim RazonSocial As String = Row("RazonSocial").ToString Dim RazonSocial As String = Row("RazonSocial").ToString
Dim RFC As String = Row("RFC").ToString.Trim Dim RFC As String = Row("RFC").ToString.Trim
Dim Calle As String = Row("Calle").ToString
Dim NumExt As Decimal = Row("Número exterior").ToString.ToDecimal Dim Dirrecion As String = $"{ Row("Población").ToString}, { Row("Estado").ToString} , Colonia { Row("Colonia").ToString}, {Row("Calle").ToString} #{Row("Número exterior").ToString}"
Dim Colonia As String = Row("Colonia").ToString
Dim CodigoPostal As Decimal = Row("Código Postal").ToString.ToDecimal 'Dim NumExt As String = Row("Número exterior").ToString
Dim Poblacion As String = Row("Población").ToString
Dim Estado As String = Row("Estado").ToString
' Dim Colonia As String = Row("Colonia").ToString
Dim CodigoPostal As Integer = Row("Código Postal").ToString.ToEntero
' Dim Poblacion As String = Row("Población").ToString
'Dim Estado As String = Row("Estado").ToString
Dim Telefono As String = Row("Teléfono").ToString Dim Telefono As String = Row("Teléfono").ToString
Dim Contacto As String = Row("Contacto").ToString Dim ContactoMail As String = Row("Contacto").ToString
Dim CelularContacto As String = Row("Celular Contacto").ToString Dim CelularContacto As String = Row("Celular Contacto").ToString
Dim LimiteCredito As Double = Row("Limite Credito").ToString.ToDouble Dim LimiteCredito As Double = Row("Limite Credito").ToString.ToDouble
Dim PlazoCobranza As Integer = Row("Plazo Cobranza").ToString.ToEntero Dim PlazoCobranza As Integer = Row("Plazo Cobranza").ToString.ToEntero
Dim Banco As String = Row("Banco").ToString
Dim NumeroCuenta As String = Row("N° CUENTA").ToString.Replace("-", "").Replace(" ", "")
Dim ClabeInter As String = Row("Clabe Inter").ToString.Replace("-", "").Replace(" ", "")
Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"RFC = '{RFC}'").ToString.ToEntero Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"RFC = '{RFC}'").ToString.ToEntero
Dim CveProveedor2 As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"RazonSocial = '{RazonSocial}'").ToString.ToEntero Dim CveProveedor2 As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"RazonSocial = '{RazonSocial}'").ToString.ToEntero
Dim CveProveedor3 As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"Codigo = '{Codigo}'").ToString.ToEntero Dim CveProveedor3 As Integer = 0
If CveProveedor > 0 Or CveProveedor2 > 0 Or CveProveedor3 > 0 Then If Codigo.Trim.Length > 0 Then
Contador = Contador + 1 CveProveedor3 = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"Codigo = '{Codigo}'").ToString.ToEntero
'If Not ObjProv.UpdateProveedor(Codigo, RazonSocial, RazonSocial, RazonSocial, RFC, Calle, Telefono, End If
' Contacto, "", Telefono, LimiteCredito, PlazoCobranza, "", 0, 0, 0, -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "",
' -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, -1, True, "", "", False, CveProveedor) Then
' ErrorProv = True
' Exit For ' If CveProveedor > 0 Or CveProveedor2 > 0 Or CveProveedor3 > 0 Then
'End If If CveProveedor > 0 Or CveProveedor2 > 0 Or CveProveedor3 > 0 Then
Else Contador = Contador + 1
If Not ObjProv.AddProveedor(Codigo, RazonSocial, RazonSocial, RazonSocial, RFC, Calle, Telefono,
Contacto, "", Telefono, LimiteCredito, PlazoCobranza, "", 0, 0, 0, -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", 'If Not ObjProv.UpdateProveedor(Codigo, RazonSocial, RazonSocial, RazonSocial, RFC, Calle, Telefono,
-1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, -1, "", "", False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then ' Contacto, "", Telefono, LimiteCredito, PlazoCobranza, "", 0, 0, 0, -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "",
' -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, -1, True, "", "", False, CveProveedor) Then
' ErrorProv = True
' Exit For
'End If
Else
Telefono = Telefono.Replace("-", "").Replace("(", "").Replace(")", "").Trim
CelularContacto = CelularContacto.Replace("-", "").Replace("(", "").Replace(")", "").Trim
Telefono = If(Telefono.Length > 10, "", Telefono)
CelularContacto = If(CelularContacto.Length > 10, "", Telefono)
If Not ObjProv.AddProveedor(Codigo, RazonSocial, RazonSocial, RazonSocial, RFC, Dirrecion, Telefono,
"", ContactoMail, CelularContacto, LimiteCredito, PlazoCobranza, "", 0, 0, 0, -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "",
-1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, -1, "", "", False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CP:=CodigoPostal) Then
ErrorProv = True ErrorProv = True
Exit For Exit For
End If
End If
Next Else
Dim ErrorCuentaDeposito As Boolean = False
'RESTRICCIONES GENERALES
'QUE TENGA ALGUN DATO DE TIPO DE CUENTA
If NumeroCuenta.Trim.Length = 0 AndAlso ClabeInter.Trim.Length = 0 Then
ErrorCuentaDeposito = True
End If
'SI CLABE TIENE ALGO DEBE TENER UNA LOGITUD EXACTA DE 18
If ClabeInter.Trim.Length <> 0 AndAlso ClabeInter.Trim.Length <> 18 Then
ErrorCuentaDeposito = True
End If
If Not ErrorCuentaDeposito Then
Dim ObjGrales As New ClsGenerales(ObjProv.IniciaTransacSQL)
If Not ObjGrales.AddCuentasDepositos(Banco, "-1", "-1", NumeroCuenta, ClabeInter, "-1", "-1", "-1", "-1", UsuarioActual.CveUsuario, 1, CveProveedor:=ObjProv.CveProveedor) Then
'ErrorProv = True
End If
End If
End If
End If
Next
If Not ErrorProv Then If Not ErrorProv Then
ObjProv.Commit() ObjProv.Commit()
If ObjProv.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, -1) Then Application("GlobalDTCompProveedores") = ObjProv.DtResultados If ObjProv.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, -1) Then Application("GlobalDTCompProveedores") = ObjProv.DtResultados
@@ -1772,10 +1943,12 @@ Partial Class General_SaldosIniciales
End Sub End Sub
Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click
Dim Directorio As String = ""
Dim Directorio As String = ""
If RblFormato.SelectedValue = "1" Then If RblFormato.SelectedValue = "1" Then
Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\SaldosIniciales\FormatoClientes.xlsx" Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\SaldosIniciales\FormatoProveedor.xlsx"
ElseIf RblFormato.SelectedValue = "2" Then ElseIf RblFormato.SelectedValue = "2" Then
Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\SaldosIniciales\FormatoClientes.xlsx" Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\SaldosIniciales\FormatoClientes.xlsx"
ElseIf RblFormato.SelectedValue = "3" Then ElseIf RblFormato.SelectedValue = "3" Then

351
Inventarios/RecepcionUsados.aspx
View File

@@ -65,9 +65,9 @@
<li> <li>
<asp:HyperLink ID="HplTraspaso" Target="_blank" runat="server" Visible="false"><i class="fa fa-truck" aria-hidden="true"></i> Traspaso Almacen</asp:HyperLink> <asp:HyperLink ID="HplTraspaso" Target="_blank" runat="server" Visible="false"><i class="fa fa-truck" aria-hidden="true"></i> Traspaso Almacen</asp:HyperLink>
</li> </li>
<%-- <li style="text-align: left!important" runat="server" id="LiLnkGuias" visible="false"> <%-- <li style="text-align: left!important" runat="server" id="LiLnkGuias" visible="false">
<asp:LinkButton runat="server" ID="LnkAgregarGuia" CssClass="" data-toggle="tooltip" data-placement="left" OnClick="LnkAgregarGuia_Click" <asp:LinkButton runat="server" ID="LnkAgregarGuia" CssClass="" data-toggle="tooltip" data-placement="left" OnClick="LnkAgregarGuia_Click"
title="Paqueteria Guías." Text="<i class='fa fa-truck'></i> Paqueteria Guías"></asp:LinkButton> title="Paqueteria Guías." Text="<i class='fa fa-truck'></i> Paqueteria Guías"></asp:LinkButton>
</li>--%> </li>--%>
<li> <li>
<asp:HyperLink ID="HplPrePoliza" Target="_blank" runat="server" Visible="false"> Ver PrePóliza</asp:HyperLink> <asp:HyperLink ID="HplPrePoliza" Target="_blank" runat="server" Visible="false"> Ver PrePóliza</asp:HyperLink>
@@ -94,7 +94,7 @@
<asp:CheckBox ID="chkexpand" Checked="true" CssClass="hidden" runat="server" /> <asp:CheckBox ID="chkexpand" Checked="true" CssClass="hidden" runat="server" />
</div> </div>
<div class="caption uppercase" style="position: relative;"> <div class="caption uppercase" style="position: relative;">
<i class="fa fa-info-circle"></i>Información del movimiento <i class="fa fa-info-circle"></i>Información del movimiento
</div> </div>
</div> </div>
@@ -120,11 +120,11 @@
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RfvAlmacen" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RfvAlmacen" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
<%-- <label class="col-md-1 truncate" style="width: 110px" id="DivConcepto1" runat="server">Concepto:</label> <%-- <label class="col-md-1 truncate" style="width: 110px" id="DivConcepto1" runat="server">Concepto:</label>
<div class="col-md-2 " id="DivConcepto2" runat="server"> <div class="col-md-2 " id="DivConcepto2" runat="server">
<asp:DropDownList ID="DdlConcepto" DataTextField="Concepto" CssClass="form-control input-sm select2me" AutoPostBack="true" DataValueField="CveConcepto" runat="server" Style="max-width: 200px"></asp:DropDownList> <asp:DropDownList ID="DdlConcepto" DataTextField="Concepto" CssClass="form-control input-sm select2me" AutoPostBack="true" DataValueField="CveConcepto" runat="server" Style="max-width: 200px"></asp:DropDownList>
<asp:RequiredFieldValidator InitialValue="-1" ID="RfvConcepto" Display="None" ValidationGroup="GrpGuardar" runat="server" ControlToValidate="DdlConcepto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor seleccione uno."></asp:RequiredFieldValidator> <asp:RequiredFieldValidator InitialValue="-1" ID="RfvConcepto" Display="None" ValidationGroup="GrpGuardar" runat="server" ControlToValidate="DdlConcepto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor seleccione uno."></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VcoConcepto" runat="server" HighlightCssClass="vco" TargetControlID="RfvConcepto" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VcoConcepto" runat="server" HighlightCssClass="vco" TargetControlID="RfvConcepto" Width="350px"></ajax:ValidatorCalloutExtender>
</div>--%> </div>--%>
</div> </div>
@@ -151,7 +151,7 @@
<div class="row" id="DivFactura" runat="server" visible="false"> <div class="row" id="DivFactura" runat="server" visible="false">
<label class="col-md-1 truncate" style="width: 110px">Factura:</label> <label class="col-md-1 truncate" style="width: 110px">Factura:</label>
<div class="col-md-2"> <div class="col-md-2">
<asp:DropDownList ID="DdlFactura" runat="server" CssClass="form-control input-sm select2me" Style="max-width: 200px" DataTextField="SerieFolio" DataValueField="CveVenta"> <asp:DropDownList ID="DdlFactura" AutoPostBack="true" runat="server" CssClass="form-control input-sm select2me" Style="max-width: 200px" DataTextField="SerieFolio" DataValueField="CveVenta" OnSelectedIndexChanged="DdlFactura_SelectedIndexChanged">
</asp:DropDownList> </asp:DropDownList>
</div> </div>
</div> </div>
@@ -242,7 +242,7 @@
</div> </div>
<div class="row"> <div class="row">
<label class="col-md-1 truncate" style="width: 110px"> <label class="col-md-1 truncate" style="width: 110px">
Observaciones: Observaciones:
</label> </label>
<div class="col-md-5"> <div class="col-md-5">
@@ -298,7 +298,7 @@
</div> </div>
<div class="tools"> <div class="tools">
<asp:Panel runat="server" DefaultButton="BtnConsultarPendientes"> <asp:Panel runat="server" DefaultButton="BtnConsultarPendientes">
&nbsp; &nbsp;
<b>Sucursal:</b> <b>Sucursal:</b>
<asp:DropDownList ID="DdlSubProyectos" runat="server" CssClass="form-control input-sm select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="90px"></asp:DropDownList> <asp:DropDownList ID="DdlSubProyectos" runat="server" CssClass="form-control input-sm select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="90px"></asp:DropDownList>
@@ -347,7 +347,7 @@
<a href="javascript;" data-idchekbox="<%= chkexpand2.ClientID%>" class=" <%= IIf(chkexpand2.Checked = True, "collapse", "expand")%>"></a> <a href="javascript;" data-idchekbox="<%= chkexpand2.ClientID%>" class=" <%= IIf(chkexpand2.Checked = True, "collapse", "expand")%>"></a>
</div> </div>
<div class="caption uppercase" style="position: relative;"> <div class="caption uppercase" style="position: relative;">
<i class="fa fa-info-circle"></i>Agregar Producto <i class="fa fa-info-circle"></i>Agregar Producto
</div> </div>
</div> </div>
@@ -414,14 +414,14 @@
<asp:CheckBox ID="chkexpand2" Checked="true" CssClass="hidden" runat="server" /> <asp:CheckBox ID="chkexpand2" Checked="true" CssClass="hidden" runat="server" />
</div> </div>
<div class="caption uppercase" style="position: relative;"> <div class="caption uppercase" style="position: relative;">
<i class="fa fa-info-circle"></i>Información de registro <i class="fa fa-info-circle"></i>Información de registro
</div> </div>
</div> </div>
<div class="portlet-body"> <div class="portlet-body">
<div class="row"> <div class="row">
<label class="col-md-3 truncate"> <label class="col-md-3 truncate">
Usuario: Usuario:
</label> </label>
<div class="col-md-6"> <div class="col-md-6">
@@ -431,7 +431,7 @@
</div> </div>
<div class="row" style="margin-top: 10px;"> <div class="row" style="margin-top: 10px;">
<label class="col-md-3 truncate"> <label class="col-md-3 truncate">
Fecha: Fecha:
</label> </label>
<div class="col-md-6"> <div class="col-md-6">
@@ -440,7 +440,7 @@
</div> </div>
<div class="row" style="margin-top: 10px;"> <div class="row" style="margin-top: 10px;">
<label class="col-md-3 truncate"> <label class="col-md-3 truncate">
Referencia: Referencia:
</label> </label>
<div class="col-md-6"> <div class="col-md-6">
@@ -453,7 +453,7 @@
</div> </div>
<div class="row" runat="server" id="RowConsignacion" visible="false" style="margin-top: 10px;"> <div class="row" runat="server" id="RowConsignacion" visible="false" style="margin-top: 10px;">
<label class="col-md-3 truncate"> <label class="col-md-3 truncate">
Consignación: Consignación:
</label> </label>
<div class="col-md-6"> <div class="col-md-6">
@@ -463,7 +463,7 @@
</div> </div>
<div class="row" runat="server" id="RowTipoCambio" visible="false" style="margin-top: 10px;"> <div class="row" runat="server" id="RowTipoCambio" visible="false" style="margin-top: 10px;">
<label class="col-md-3 truncate"> <label class="col-md-3 truncate">
Tipo Cambio: Tipo Cambio:
</label> </label>
<div class="col-md-6"> <div class="col-md-6">
@@ -472,7 +472,7 @@
</div> </div>
<div class="row" runat="server" id="RowMtoRel" visible="false" style="margin-top: 10px;"> <div class="row" runat="server" id="RowMtoRel" visible="false" style="margin-top: 10px;">
<label class="col-md-3 truncate"> <label class="col-md-3 truncate">
Mto. Rel.: Mto. Rel.:
</label> </label>
<div class="col-md-6"> <div class="col-md-6">
@@ -490,7 +490,7 @@
<asp:CheckBox ID="chkexpand3" Checked="true" CssClass="hidden" runat="server" /> <asp:CheckBox ID="chkexpand3" Checked="true" CssClass="hidden" runat="server" />
</div> </div>
<div class="caption uppercase" style="position: relative;"> <div class="caption uppercase" style="position: relative;">
<i class="fa fa-info-circle"></i>Tipo de Cambio <i class="fa fa-info-circle"></i>Tipo de Cambio
</div> </div>
</div> </div>
@@ -557,9 +557,6 @@
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="row"> <div class="row">
<div style="width: 70%" align="right"> <div style="width: 70%" align="right">
<asp:Label ID="LbTotalMovimientos" Text="Total de Movimientos: 0" runat="server" /> <asp:Label ID="LbTotalMovimientos" Text="Total de Movimientos: 0" runat="server" />
@@ -567,15 +564,12 @@
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvM.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a> <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvM.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div> </div>
</div> </div>
<asp:UpdatePanel ID="UppGrid" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UppGrid" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:HiddenField runat="server" ID="HdnCodAFEdit" Value="-1" ClientIDMode="Static" /> <asp:HiddenField runat="server" ID="HdnCodAFEdit" Value="-1" ClientIDMode="Static" />
<asp:GridView ID="GvM" runat="server" GridLines="none" Width="70%" <asp:GridView ID="GvM" runat="server" GridLines="none" Width="70%"
CssClass="table table-hover ADScroller btn-xs" ShowHeader="True" CssClass="table table-hover ADScroller btn-xs" ShowHeader="True"
EmptyDataText="Aún no hay registros." DataKeyNames="No,CveMovimientoDetalle" EmptyDataText="Aún no hay registros." DataKeyNames="No,CveMovimientoDetalle,CvePS,PU,Cantidad"
AutoGenerateColumns="False" AllowPaging="False" ShowFooter="True" ShowHeaderWhenEmpty="True"> AutoGenerateColumns="False" AllowPaging="False" ShowFooter="True" ShowHeaderWhenEmpty="True">
<Columns> <Columns>
<asp:TemplateField HeaderText="" ItemStyle-Font-Size="6pt"> <asp:TemplateField HeaderText="" ItemStyle-Font-Size="6pt">
@@ -597,12 +591,16 @@
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="73px"></ItemStyle> <ItemStyle Width="73px"></ItemStyle>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Observaciones"> <asp:TemplateField HeaderText="Observaciones">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="lblObservaciones" runat="server" Text='<%# Eval("Observaciones")%>'></asp:Literal> <asp:Literal ID="lblObservaciones" runat="server" Text='<%# Eval("Observaciones")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="PU">
<ItemTemplate>
<asp:Literal ID="lbPU" runat="server" Text='<%# Eval("PU", "{0:#,##0.######}")%>'> </asp:Literal>
</ItemTemplate>
<ItemStyle Width="43px"></ItemStyle>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField> <asp:TemplateField>
<ItemTemplate> <ItemTemplate>
@@ -612,13 +610,22 @@
<ItemStyle Width="140px"></ItemStyle> <ItemStyle Width="140px"></ItemStyle>
</asp:TemplateField> </asp:TemplateField>
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<div class="row">
<div class="col-md-4">
<div id="DivTotal" runat="server" visible="false">
<div class="input-group">
<span class="input-group-addon">$</span>
<asp:TextBox ID="TxtTotal" ClientIDMode="Static" Text="0.00" CssClass="form-control input-sm" runat="server" Enabled="false" />
</div>
<ajax:FilteredTextBoxExtender ID="FTIRNC" runat="server" TargetControlID="TxtTotal" FilterType="Custom, Numbers" ValidChars=".," />
</div>
</div>
<div class="col-md-8"></div>
</div>
<br /> <br />
<div style="width: 100%; text-align: center;"> <div style="width: 100%; text-align: center;">
<asp:UpdatePanel runat="server"> <asp:UpdatePanel runat="server">
<ContentTemplate> <ContentTemplate>
@@ -628,10 +635,8 @@
<asp:Button ID="BtnContabilizar" runat="server" ValidationGroup="" Text="Contabilizar" Visible="False" CssClass="btn btn-primary" /> <asp:Button ID="BtnContabilizar" runat="server" ValidationGroup="" Text="Contabilizar" Visible="False" CssClass="btn btn-primary" />
<asp:Button ID="BtnNuevo" runat="server" ValidationGroup="" Text="Nuevo" CssClass="btn btn-success" /> <asp:Button ID="BtnNuevo" runat="server" ValidationGroup="" Text="Nuevo" CssClass="btn btn-success" />
<asp:Button ID="BtnGeneraPrepoliza" runat="server" Visible="false" ValidationGroup="" Text="GeneraPrePoliza" CssClass="btn btn-success" /> <asp:Button ID="BtnGeneraPrepoliza" runat="server" Visible="false" ValidationGroup="" Text="GeneraPrePoliza" CssClass="btn btn-success" />
<br /> <br />
<br /> <br />
<div runat="server" id="DivMensaje" visible="false"> <div runat="server" id="DivMensaje" visible="false">
<p> <p>
<code> <code>
@@ -642,14 +647,9 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<br /> <br />
<%-- EMPIEZA: BITACORA --%> <%-- EMPIEZA: BITACORA --%>
<asp:UpdatePanel runat="server"> <asp:UpdatePanel runat="server">
<ContentTemplate> <ContentTemplate>
@@ -691,9 +691,7 @@
</div> </div>
</div> </div>
<br /> <br />
<div id="ModalBitacora" class="modal ADS fade" role="dialog"> <div id="ModalBitacora" class="modal ADS fade" role="dialog">
<div class="modal-dialog"> <div class="modal-dialog">
<div class="modal-content"> <div class="modal-content">
@@ -732,7 +730,6 @@
</div> </div>
</div> </div>
</div> </div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<%-- TERMINA: BITACORA --%> <%-- TERMINA: BITACORA --%>
@@ -741,7 +738,6 @@
<asp:UpdatePanel runat="server"> <asp:UpdatePanel runat="server">
<ContentTemplate> <ContentTemplate>
<asp:Panel runat="server" DefaultButton="BtnGuardarCantidadEspecial"> <asp:Panel runat="server" DefaultButton="BtnGuardarCantidadEspecial">
<div id="ModalCantidad" class="modal ADS fade" role="dialog"> <div id="ModalCantidad" class="modal ADS fade" role="dialog">
<div class="modal-dialog"> <div class="modal-dialog">
@@ -757,8 +753,7 @@
<ContentTemplate> <ContentTemplate>
<div class="row"> <div class="row">
<div class="col-md-5" style="text-align: right;"> <div class="col-md-5" style="text-align: right;">
Cantidad Cantidad
</div> </div>
<div class="col-md-7"> <div class="col-md-7">
<asp:TextBox ClientIDMode="Static" ID="TxtCantidadEspecial" Text="" runat="server"></asp:TextBox> <asp:TextBox ClientIDMode="Static" ID="TxtCantidadEspecial" Text="" runat="server"></asp:TextBox>
@@ -779,13 +774,9 @@
</div> </div>
</div> </div>
</asp:Panel> </asp:Panel>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<div id="DivModalAgregar" class="modal ADS fade" role="dialog"> <div id="DivModalAgregar" class="modal ADS fade" role="dialog">
<div class="modal-dialog"> <div class="modal-dialog">
<asp:UpdatePanel ID="UpModalAgregar" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpModalAgregar" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
@@ -810,12 +801,12 @@
<i></i> <i></i>
</div> </div>
<%--<div class="form-group form-md-line-input "> <%--<div class="form-group form-md-line-input ">
<label for='<%= DdlClasificacion.ClientID %>'>Clasificación:</label> <label for='<%= DdlClasificacion.ClientID %>'>Clasificación:</label>
<asp:DropDownList ID="DdlClasificacion" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%" Class="form-control input-sm select2me"> <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:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div>--%> </div>--%>
<div class="form-group form-md-line-input "> <div class="form-group form-md-line-input ">
<asp:DropDownList runat="server" ID="DdlProducto2" AutoPostBack="true" AppendDataBoundItems="true" Class="form-control select2me" Style="width: 200px !important;" DataTextField="PSCodigo" DataValueField="CvePS" OnSelectedIndexChanged="DdlProducto2_SelectedIndexChanged" /> <asp:DropDownList runat="server" ID="DdlProducto2" AutoPostBack="true" AppendDataBoundItems="true" Class="form-control select2me" Style="width: 200px !important;" DataTextField="PSCodigo" DataValueField="CvePS" OnSelectedIndexChanged="DdlProducto2_SelectedIndexChanged" />
@@ -857,160 +848,166 @@
</div> </div>
</div> </div>
<asp:Button ID="BtnGenerarRNC" runat="server" ClientIDMode="Static" Text="RNC" Style="display: none;" />
</asp:Content> </asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
<script type="text/javascript"> <script type="text/javascript">
function GenerarRNC() {
$('#BtnGenerarRNC').click();
}
function CargaActivoFijo(CveAF, Codigo) { function CargaActivoFijo(CveAF, Codigo) {
$get("HdnCveActivoFijo").value = CveAF; $get("HdnCveActivoFijo").value = CveAF;
$get("HdnCodigoAF").value = Codigo; $get("HdnCodigoAF").value = Codigo;
$('#BtnVinculaAF').click(); $('#BtnVinculaAF').click();
} }
function CargaActivoFijoEdit(CveAF, Codigo, ri) { function CargaActivoFijoEdit(CveAF, Codigo, ri) {
debugger; debugger;
$get("C_Tab_tabConceptos_GvD_HdnCveActivoFijo_" + ri).value = CveAF; $get("C_Tab_tabConceptos_GvD_HdnCveActivoFijo_" + ri).value = CveAF;
$get("C_Tab_tabConceptos_GvD_HdnCodigoAF_" + ri).value = Codigo; $get("C_Tab_tabConceptos_GvD_HdnCodigoAF_" + ri).value = Codigo;
$get("C_Tab_tabConceptos_GvD_LblEditCodigo_" + ri).value = Codigo; $get("C_Tab_tabConceptos_GvD_LblEditCodigo_" + ri).value = Codigo;
} }
var H1 = ""; var H1 = "";
var H2 = ""; var H2 = "";
var T = ""; var T = "";
function EnterAFEdit(event, Txt, Hdn1, Hdn2) { function EnterAFEdit(event, Txt, Hdn1, Hdn2) {
if (event.which == 13 || event.keyCode == 13) { if (event.which == 13 || event.keyCode == 13) {
H1 = Hdn1; H1 = Hdn1;
H2 = Hdn2; H2 = Hdn2;
T = Txt; T = Txt;
$get("HdnCodAFEdit").value = Txt.value; $get("HdnCodAFEdit").value = Txt.value;
$('#BtnVinculaAFEdit').click(); $('#BtnVinculaAFEdit').click();
} }
} }
function AFBlurEdit(Txt, Hdn1, Hdn2) { function AFBlurEdit(Txt, Hdn1, Hdn2) {
H1 = Hdn1; H1 = Hdn1;
H2 = Hdn2; H2 = Hdn2;
T = Txt; T = Txt;
$get("HdnCodAFEdit").value = Txt.value; $get("HdnCodAFEdit").value = Txt.value;
if (Txt.value != '') if (Txt.value != '')
$('#BtnVinculaAFEdit').click(); $('#BtnVinculaAFEdit').click();
} }
function EnterAFEditOK(Cve, Codigo) { function EnterAFEditOK(Cve, Codigo) {
$get(H1.id).value = Cve; $get(H1.id).value = Cve;
$get(H2.id).value = Codigo; $get(H2.id).value = Codigo;
$get(T.id).value = (Codigo == -1) ? "" : Codigo; $get(T.id).value = (Codigo == -1) ? "" : Codigo;
} }
var CodigoAF = ""; var CodigoAF = "";
function EnterAF(event) { function EnterAF(event) {
if (event.which == 13 || event.keyCode == 13) { if (event.which == 13 || event.keyCode == 13) {
Focus = false; Focus = false;
$get("HdnCveActivoFijo").value = -2; $get("HdnCveActivoFijo").value = -2;
$('#BtnVinculaAF').click(); $('#BtnVinculaAF').click();
CodigoAF = $get('LblCodigo').value; CodigoAF = $get('LblCodigo').value;
} }
} }
function AFBlur() { function AFBlur() {
$get("HdnCveActivoFijo").value = -2; $get("HdnCveActivoFijo").value = -2;
if ($get('LblCodigo').value != '' && $get('LblCodigo').value != CodigoAF) { if ($get('LblCodigo').value != '' && $get('LblCodigo').value != CodigoAF) {
$('#BtnVinculaAF').click(); $('#BtnVinculaAF').click();
CodigoAF = $get('LblCodigo').value; CodigoAF = $get('LblCodigo').value;
} }
} }
function playsonidito(NomArchivo) { function playsonidito(NomArchivo) {
var URL = /Sonidos/ + NomArchivo var URL = /Sonidos/ + NomArchivo
var snd = new Audio(URL); var snd = new Audio(URL);
snd.play(); snd.play();
snd.currentTime = 0; snd.currentTime = 0;
} }
function Focus() { function Focus() {
$('#TxtCodigoBarras').focus() $('#TxtCodigoBarras').focus()
} }
function Focus2() { function Focus2() {
$('#TxtCodigo').focus() $('#TxtCodigo').focus()
} }
function FocusAdd() { function FocusAdd() {
$('#TxtCodigoPS').focus() $('#TxtCodigoPS').focus()
} }
function CantidadEspecial() { function CantidadEspecial() {
$('#ModalCantidad').modal('show'); $('#ModalCantidad').modal('show');
$('#TxtCantidadEspecial').focus() $('#TxtCantidadEspecial').focus()
} }
Sys.Application.add_load(function (s, e) { Sys.Application.add_load(function (s, e) {
<%-- if ($("#<%= DdlProductows.ClientID%>")) { <%-- if ($("#<%= DdlProductows.ClientID%>")) {
if (!($('#<%= HFProducto.ClientID %>').val() === '')) { if (!($('#<%= HFProducto.ClientID %>').val() === '')) {
AddItem($('#<%= HFTProducto.ClientID%>').val(), $('#<%= HFProducto.ClientID %>').val()); AddItem($('#<%= HFTProducto.ClientID%>').val(), $('#<%= HFProducto.ClientID %>').val());
} }
} }
if ($("#<%= DdlProductows.ClientID%>").data('creado') === '1') { } else { if ($("#<%= DdlProductows.ClientID%>").data('creado') === '1') { } else {
$("#<%= DdlProductows.ClientID%>").data('creado', '1') $("#<%= DdlProductows.ClientID%>").data('creado', '1')
$("#<%= DdlProductows.ClientID%>").select2({ $("#<%= DdlProductows.ClientID%>").select2({
ajax: { ajax: {
url: "/Ashx/SIGWeb.ashx", url: "/Ashx/SIGWeb.ashx",
dataType: 'json', dataType: 'json',
delay: 250, delay: 250,
data: function (params) { data: function (params) {
return { return {
Name: params.term, // search term Name: params.term, // search term
Metodo: 'getps' Metodo: 'getps'
}; };
}, },
processResults: function (data, params) { processResults: function (data, params) {
// parse the results into the format expected by Select2 // parse the results into the format expected by Select2
// since we are using custom formatting functions we do not need to // since we are using custom formatting functions we do not need to
// alter the remote JSON data, except to indicate that infinite // alter the remote JSON data, except to indicate that infinite
// scrolling can be used // scrolling can be used
params.page = params.page || 1; params.page = params.page || 1;
return { return {
results: data, results: data,
pagination: { pagination: {
more: (params.page * 30) < data.total_count more: (params.page * 30) < data.total_count
} }
}; };
}, },
cache: true cache: true
}, },
escapeMarkup: function (markup) { return markup; }, // let our custom formatter work escapeMarkup: function (markup) { return markup; }, // let our custom formatter work
minimumInputLength: 3 minimumInputLength: 3
}); });
} }
if ($("#<%= DdlProductows.ClientID%>")) { if ($("#<%= DdlProductows.ClientID%>")) {
if (!($('#<%= HFProducto.ClientID %>').val() === '')) { if (!($('#<%= HFProducto.ClientID %>').val() === '')) {
AddItem($('#<%= HFTProducto.ClientID%>').val(), $('#<%= HFProducto.ClientID %>').val()); AddItem($('#<%= HFTProducto.ClientID%>').val(), $('#<%= HFProducto.ClientID %>').val());
} }
$("#<%= DdlProductows.ClientID%>").on("select2:select", function (e) { console.log(e); $('#<%= HFProducto.ClientID %>').val(e.params.data.id); $('#<%= HFTProducto.ClientID%>').val(e.params.data.text); $('#<%= myhidenbutton.ClientID %>').click(); }); $("#<%= DdlProductows.ClientID%>").on("select2:select", function (e) { console.log(e); $('#<%= HFProducto.ClientID %>').val(e.params.data.id); $('#<%= HFTProducto.ClientID%>').val(e.params.data.text); $('#<%= myhidenbutton.ClientID %>').click(); });
} }
if ($("#<%= DdlProducto.ClientID%>")) { if ($("#<%= DdlProducto.ClientID%>")) {
$("#<%= DdlProducto.ClientID%>").on("select2:select", function (e) { console.log(e); $('#<%= HFProducto.ClientID %>').val(e.params.data.id); $('#<%= HFTProducto.ClientID%>').val(e.params.data.text); }); $("#<%= DdlProducto.ClientID%>").on("select2:select", function (e) { console.log(e); $('#<%= HFProducto.ClientID %>').val(e.params.data.id); $('#<%= HFTProducto.ClientID%>').val(e.params.data.text); });
}--%> }--%>
}); });
</script> </script>
</asp:Content> </asp:Content>

3997
Inventarios/RecepcionUsados.aspx.vb
View File

File diff suppressed because it is too large Load Diff

2
LogMail.txt
View File

File diff suppressed because one or more lines are too long

5267
OC/OC.aspx
View File

File diff suppressed because it is too large Load Diff

94
OC/OC.aspx.vb
View File

@@ -174,6 +174,14 @@ Partial Class OC
ViewState("NumCotizacionesGanadoras") = value ViewState("NumCotizacionesGanadoras") = value
End Set End Set
End Property End Property
Private Property NumCotizacionesEvaluar As Integer
Get
NumCotizacionesEvaluar = IfNull(ViewState("NumCotizacionesEvaluar"), "-1", ViewState("NumCotizacionesEvaluar")).ToString().ToEntero()
End Get
Set(value As Integer)
ViewState("NumCotizacionesEvaluar") = value
End Set
End Property
Private Property ProveedoresCotizacion As ArrayList Private Property ProveedoresCotizacion As ArrayList
Get Get
ProveedoresCotizacion = DirectCast(ViewState("ProveedoresCotizacion"), ArrayList) ProveedoresCotizacion = DirectCast(ViewState("ProveedoresCotizacion"), ArrayList)
@@ -964,7 +972,7 @@ Partial Class OC
DtDetalle.Columns.Add("CveContratoDetalle", GetType(Integer)) DtDetalle.Columns.Add("CveContratoDetalle", GetType(Integer))
DtDetalle.Columns.Add("CantidadNoEditable", GetType(Double)) DtDetalle.Columns.Add("CantidadNoEditable", GetType(Double))
DtDetalle.Columns.Add("CveOrdenCompraDetalle", GetType(Integer)) 'DtDetalle.Columns.Add("CveOrdenCompraDetalle", GetType(Integer))
' DtDetalle.Columns.Add("ClasificacionOG", GetType(String)) ' DtDetalle.Columns.Add("ClasificacionOG", GetType(String))
@@ -1223,9 +1231,11 @@ Partial Class OC
DdlPrioridad.SelectedValueExist(objOC.Prioridad.ToString) DdlPrioridad.SelectedValueExist(objOC.Prioridad.ToString)
ChkCotizacion.Checked = objOC.RequiereCotizacion ChkCotizacion.Checked = objOC.RequiereCotizacion
If ChkCotizacion.Checked AndAlso UsuarioActual.Empresa.Funcionalidad(565) = "1" Then If ChkCotizacion.Checked AndAlso UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
ChkCotizacion.Enabled = False ChkCotizacion.Enabled = False
End If End If
tabCotizaciones.Enabled = objOC.RequiereCotizacion tabCotizaciones.Enabled = objOC.RequiereCotizacion
tabCotizaciones.UpdatePanelID = uppOpciones.ID tabCotizaciones.UpdatePanelID = uppOpciones.ID
TxtGuia.Text = objOC.Guia TxtGuia.Text = objOC.Guia
@@ -1576,6 +1586,11 @@ Partial Class OC
'CARGA MOVTOS DE ALMACEN 'CARGA MOVTOS DE ALMACEN
InicializaMovtosAlmacen() InicializaMovtosAlmacen()
If UsuarioActual.Empresa.Funcionalidad(565) = "1" And pCveOrdenCompra > 0 And TipoOC.ToUpper() = "REQ" Then
RowCotizaciones.Visible = True
UpIvas.Update()
End If
uppEstatus.Update() uppEstatus.Update()
End Sub End Sub
@@ -2058,6 +2073,12 @@ Partial Class OC
Private Function ValidaGuardar() As Boolean Private Function ValidaGuardar() As Boolean
Dim TieneError = False Dim TieneError = False
'Entrega Directa requiere Cliente y Vendedor
If ChkEntregaDirecta.Checked And Ddlcliente.SelectedValue.ToEntero <= 0 Then
Alert("Al ser una Entrega Directa es necesario seleccionar un cliente, por favor seleccione uno.")
Return True
End If
'VALIDA QUE TENGA REGISTROS 'VALIDA QUE TENGA REGISTROS
If Not GvD.Rows.Count > 0 Then If Not GvD.Rows.Count > 0 Then
Alert(String.Format("La {0} debe de tener registros", TipoLargo), TipoMensaje.MsgAdvertencia) Alert(String.Format("La {0} debe de tener registros", TipoLargo), TipoMensaje.MsgAdvertencia)
@@ -2196,14 +2217,22 @@ Partial Class OC
End If End If
'VALIDA QUE TENGA LAS COTIZACIONES QUE DEBEN TENER 'VALIDA QUE TENGA LAS COTIZACIONES QUE DEBEN TENER
If UsuarioActual.Empresa.Funcionalidad(565) = "1" AndAlso CveConfianzaProveedor > 0 AndAlso (TipoOC.ToUpper = "REQ" And CveEstatusFinalOK = CboE.SelectedValue.ToEntero) Then If UsuarioActual.Empresa.Funcionalidad(565) = "1" AndAlso (TipoOC.ToUpper = "REQ" And CveEstatusFinalOK = CboE.SelectedValue.ToEntero) Then
If CveConfianzaProveedor > 0 Then If CveConfianzaProveedor > 0 Then
'SUMA EL TOTAL DE COTIZACIONES
For Each GvRow As GridViewRow In GvBitacoraEva.Rows
If GvRow.RowType = DataControlRowType.DataRow Then
Me.NumCotizacionesEvaluar += 1
End If
Next
If CveConfianzaProveedor = 1 AndAlso Me.NumCotizaciones < 1 Then Me.NumCotizacionesEvaluar += Me.NumCotizaciones
Alert("Para el proveedor seleccionado es necesario terner al menos 1 cotización.", TipoMensaje.MsgAdvertencia)
If CveConfianzaProveedor = 1 AndAlso Me.NumCotizacionesEvaluar < 1 Then
Alert("Para el proveedor seleccionado es necesario tener al menos 1 cotización.", TipoMensaje.MsgAdvertencia)
TieneError = True TieneError = True
ElseIf CveConfianzaProveedor = 2 AndAlso Me.NumCotizaciones < 2 Then ElseIf CveConfianzaProveedor = 2 AndAlso Me.NumCotizacionesEvaluar < 2 Then
Alert("Para el proveedor seleccionado es necesario terner al menos 2 cotizaciones", TipoMensaje.MsgAdvertencia) Alert("Para el proveedor seleccionado es necesario tener al menos 2 cotizaciones", TipoMensaje.MsgAdvertencia)
TieneError = True TieneError = True
End If End If
@@ -2222,12 +2251,6 @@ Partial Class OC
End Function End Function
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
'Entrega Directa requiere Cliente y Vendedor
If ChkEntregaDirecta.Checked And Ddlcliente.SelectedValue.ToEntero <= 0 Then
Alert("Al ser una Entrega Directa es necesario seleccionar un cliente, por favor seleccione uno.")
Exit Sub
End If
'VALIDACIONES PARA GUARDAR 'VALIDACIONES PARA GUARDAR
If ValidaGuardar() Then Exit Sub If ValidaGuardar() Then Exit Sub
@@ -4501,18 +4524,48 @@ Partial Class OC
End If End If
End If End If
End Sub End Sub
Protected Sub GvBitacoraEva_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvBitacoraEva.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("Archivo").ToString.Trim <> "" AndAlso CveOrdenCompra > 0 Then
e.Row.FCLinkButton("LinkArchivo").Visible = True
e.Row.FCLinkButton("LinkArchivo").CommandArgument = String.Format("OI\{0}", e.Row.DBCampo("Archivo").ToString)
ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("LinkArchivo")) 'Registro un evento Postbacktrigger, que recargue toda la pagina para que funcione
End If
End If
End Sub
Protected Sub LnkAddCotEva_Click(sender As Object, e As EventArgs) Handles LnkAddCotEva.Click
HdnEsCotizacion.Value = "1"
ChkEventoPrioridad.Visible = False
HBitacora.InnerText = "Cotización"
LblBitacora.InnerText = "Cotización"
UPAddEventoBitacora.Update()
UpTituloBitacora.Update()
RegistraScript("$('#ModalBitacora').modal('show');")
End Sub
Protected Sub ImgAddObs_Click(sender As Object, e As EventArgs) Handles ImgAddObs.Click
HdnEsCotizacion.Value = "0"
ChkEventoPrioridad.Visible = True
HBitacora.InnerText = "Bitácora"
LblBitacora.InnerText = "Bitácora/Observaciones"
UPAddEventoBitacora.Update()
UpTituloBitacora.Update()
RegistraScript("$('#ModalBitacora').modal('show');")
End Sub
Protected Sub BtnGuardarEventoBitacora_Click(sender As Object, e As EventArgs) Handles BtnGuardarEventoBitacora.Click Protected Sub BtnGuardarEventoBitacora_Click(sender As Object, e As EventArgs) Handles BtnGuardarEventoBitacora.Click
If CveOrdenCompra > 0 Then If CveOrdenCompra > 0 Then
GuardaBitacora() GuardaBitacora(HdnEsCotizacion.Value.ToEntero() > 0)
Else Else
AgregaBitacoraTemporal() AgregaBitacoraTemporal()
End If End If
End Sub End Sub
#Region " GUARDA DIRECTO " #Region " GUARDA DIRECTO "
Private Sub GuardaBitacora() Private Sub GuardaBitacora(Optional EsCotizacion As Boolean = False)
Dim ObjEventoBitacora As New ClsOIEventos Dim ObjEventoBitacora As New ClsOIEventos
Dim FileExtension As String = "" Dim FileExtension As String = ""
Dim Filesgral As List(Of Archivo) = Anexo.getfiles().Archivos Dim Filesgral As List(Of Archivo) = Anexo.getfiles().Archivos
@@ -4523,7 +4576,7 @@ Partial Class OC
Next Next
Dim descripcion As String = TxtEventoDescripcion.Text.Trim Dim descripcion As String = TxtEventoDescripcion.Text.Trim
Dim Prioridad As Integer = If(ChkEventoPrioridad.Checked, 3, 1) Dim Prioridad As Integer = If(EsCotizacion, 4, If(ChkEventoPrioridad.Checked, 3, 1))
If ObjEventoBitacora.AddEventoBitacora(descripcion, String.Format("{0}", FileExtension), UsuarioActual.CveUsuario, CveEmpresaActual, CveOC:=CveOrdenCompra, Prioridad:=Prioridad) Then If ObjEventoBitacora.AddEventoBitacora(descripcion, String.Format("{0}", FileExtension), UsuarioActual.CveUsuario, CveEmpresaActual, CveOC:=CveOrdenCompra, Prioridad:=Prioridad) Then
@@ -4535,7 +4588,7 @@ Partial Class OC
TxtEventoDescripcion.Text = "" TxtEventoDescripcion.Text = ""
Anexo.Text = "[]" Anexo.Text = "[]"
ChkEventoPrioridad.Checked = False ChkEventoPrioridad.Checked = False
Alert("La bitácora/observación se guardó correctamente", TipoMensaje.MsgInformacion) Alert($"La {If(EsCotizacion, "cotización", "bitácora/observación")} se guardó correctamente", TipoMensaje.MsgInformacion)
RegistraScript("$('#ModalBitacora').modal('hide')", "hidemodal") RegistraScript("$('#ModalBitacora').modal('hide')", "hidemodal")
'obtener el Evento de bitacora para enviar el correo 'obtener el Evento de bitacora para enviar el correo
@@ -4562,7 +4615,8 @@ Partial Class OC
If ObjEventoBitacora.DtResultados.FiltraParametros("CveTipoEvento IN (6,2) AND CvePrioridad=3").Rows.Count > 0 Then If ObjEventoBitacora.DtResultados.FiltraParametros("CveTipoEvento IN (6,2) AND CvePrioridad=3").Rows.Count > 0 Then
DivEventoUrgente.Visible = True DivEventoUrgente.Visible = True
End If End If
GvEB.DataSource = ObjEventoBitacora.DtResultados.FiltraParametros("CveTipoEvento IN (6,2)") GvEB.DataSource = ObjEventoBitacora.DtResultados.FiltraParametros("CveTipoEvento IN (6,2) AND CvePrioridad <> 4")
GvBitacoraEva.DataSource = ObjEventoBitacora.DtResultados.FiltraParametros("CvePrioridad = 4")
Else Else
GvEB.DataSource = Nothing GvEB.DataSource = Nothing
End If End If
@@ -4570,7 +4624,9 @@ Partial Class OC
ObjEventoBitacora.Dispose() ObjEventoBitacora.Dispose()
GvEB.DataBind() GvEB.DataBind()
GvBitacoraEva.DataBind()
UPEventoBitacora.Update() UPEventoBitacora.Update()
UpIvas.Update()
End Sub End Sub
#End Region #End Region
@@ -4638,7 +4694,7 @@ Partial Class OC
ChkEventoPrioridad.Checked = False ChkEventoPrioridad.Checked = False
RegistraScript("$('#ModalBitacora').modal('hide')", "hidemodal") RegistraScript("$('#ModalBitacora').modal('hide')", "hidemodal")
CargaEventoBitacoraTemp() CargaEventoBitacoraTemp()
End Sub End Sub
@@ -4703,7 +4759,7 @@ Partial Class OC
option72.Visible = True option72.Visible = True
DivFolioAdicional.Visible = True DivFolioAdicional.Visible = True
generarAnticipo.Visible = True generarAnticipo.Visible = True
Ddlcliente.DataSource = GlobalDTCliente(CveEmpresaActual).FiltraParametros(" Estatus = 'Activo' ") Ddlcliente.DataSource = GlobalDTCliente(CveEmpresaActual)
Ddlcliente.DataBind() Ddlcliente.DataBind()
Ddlcliente.Items.Insert(0, New ListItem(" - ", "-1")) Ddlcliente.Items.Insert(0, New ListItem(" - ", "-1"))
DdlVendedor.DataSource = GlobalDTVendedores(CveEmpresaActual) DdlVendedor.DataSource = GlobalDTVendedores(CveEmpresaActual)

14
Ventas/PV.aspx.vb
View File

@@ -4641,6 +4641,8 @@ Partial Class PV
End If End If
ObjCliente.Dispose() ObjCliente.Dispose()
RecargaGlobalCliente()
End Sub End Sub
#End Region #End Region
@@ -4823,6 +4825,18 @@ Partial Class PV
ObjPS.Dispose() ObjPS.Dispose()
End Sub End Sub
Private Sub RecargaGlobalCliente()
Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDTCliente)
Hilo.Start()
End Sub
Private Sub GeneraGlobalDTCliente()
Dim Objclientes As New ClsClientes
If Objclientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, -1, Estatus:=-1, TipoCliente:=-1) Then
Application("GlobalDTCliente") = Objclientes.DtResultados
End If
Objclientes.Dispose()
End Sub
#End Region #End Region
#Region "CLASIFICACIONES DETALLES" #Region "CLASIFICACIONES DETALLES"

2
Ventas/Ventas.aspx.vb
View File

@@ -16788,7 +16788,7 @@ Partial Class Ventas
End Sub End Sub
Private Sub GeneraGlobalDTCliente() Private Sub GeneraGlobalDTCliente()
Dim Objclientes As New ClsClientes Dim Objclientes As New ClsClientes
If Objclientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, -1, Estatus:=-1) Then If Objclientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, -1, Estatus:=-1,TipoCliente:=-1) Then
Application("GlobalDTCliente") = Objclientes.DtResultados Application("GlobalDTCliente") = Objclientes.DtResultados
End If End If
Objclientes.Dispose() Objclientes.Dispose()