cmabio de row comisiones

.gitignore

@@ -259,6 +259,7 @@ paket-files/
 # JetBrains Rider
 .idea/
 *.sln.iml
+*.sln.iml
 
 # CodeRush
 .cr/
@@ -266,3 +267,4 @@ paket-files/
 # Python Tools for Visual Studio (PTVS)
 __pycache__/
 *.pyc
+/SIGGIT.sln

App_Code/ClsVentas.vb

@@ -539,7 +539,9 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
-    Public Function UpdateEstatusFactura(Estatus As Integer, FolioFiscal As String, SelloSAT As String, FechaCancelacion As DateTime, CveVenta As Integer, Optional IdPolizaCancelacion As Integer = -1, Optional CvePAC As Integer = -1, Optional CveEstatusRefacturacion As Integer = 0) As Boolean
+    Public Function UpdateEstatusFactura(Estatus As Integer, FolioFiscal As String, SelloSAT As String, FechaCancelacion As DateTime, CveVenta As Integer,
+                                         Optional IdPolizaCancelacion As Integer = -1, Optional CvePAC As Integer = -1, Optional CveEstatusRefacturacion As Integer = 0,
+                                         Optional CveUsuarioCambiaEstatus As Integer = -1, Optional FechaCambioEstatus As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_VentasUpdateEstatus")
@@ -553,6 +555,8 @@ Public Class ClsVentas
             .Add("@IdPolizaCancelacion", SqlDbType.Int).Value = IdPolizaCancelacion
             .Add("@CvePAC", SqlDbType.SmallInt).Value = CvePAC
             .Add("@CveEstatusRefacturacion", SqlDbType.TinyInt).Value = CveEstatusRefacturacion
+            .Add("@CveUsuarioCambiaEstatus", SqlDbType.Int).Value = CveUsuarioCambiaEstatus
+            .Add("@FechaCambioEstatus", SqlDbType.VarChar).Value = FechaCambioEstatus
         End With
 
         Try

App_Code/Modelos.vb

@@ -1181,13 +1181,14 @@ Namespace Modelos
                 'Se agregan los PS
                 For Each Row As DataRow In TmpDTDetalle.Rows
                     If Not ObjVentas.AddVentaDetalle(ObjVentas.CveVenta, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("CveUM").ToString.ToEntero,
-                                                 Row("PU").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("IVA").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Math.Round((Row("Total").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)) * (1 + Row("IVA").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)))), 6),
+                                                 Row("PU").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("ImporteIVA").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Math.Round((Row("Total").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)) * (1 + Row("PorcentajeIVA").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)))), 6),
                                                  Row("Obs").ToString, Row("Descuento").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("TipoDescuento").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, Row("CvePresupuestoIngreso").ToString.ToEntero,
                                                  TiempoEntrega:=Row("TiempoEntrega").ToString, CveVentaDetallePadre:=Row("CveVentaDetalle").ToString.ToEntero, CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero,
                                                  CvePromocionDetalle:=If(DtPromociones IsNot Nothing, DtPromociones.FiltroPrimeroValor("CvePromocionDetalle", $"CvePS={Row("CvePS").ToString}").ToEntero, -1),
                                                  IEPS:=Row("ImporteIEPS").ToString.ToDouble, CveMovimientoDetallePedido:=Row("CveMovimientoDetallePedido").ToString.ToEntero,
                                                  ImporteRetIVA:=Row("ImporteRetIVA").ToString.ToDouble, ImporteRetISR:=Row("ImporteRetISR").ToString.ToDouble,
-                                                 PorcentajeIEPS:=Row("PorcentajeIEPS").ToString.ToDouble, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString.ToDouble, PorcentajeRetISR:=Row("PorcentajeRetISR").ToString.ToDouble, CuentaPredial:=Row("CuentaPredial").ToString) Then
+                                                 PorcentajeIEPS:=Row("PorcentajeIEPS").ToString.ToDouble, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString.ToDouble, PorcentajeRetISR:=Row("PorcentajeRetISR").ToString.ToDouble, CuentaPredial:=Row("CuentaPredial").ToString,
+                                                     PorcentajeIVA:=Row("PorcentajeIVA").ToString.ToDecimal) Then
                         ErrorList.Add("Ocurrió un error al agregar un Producto o Servicio a la factura.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
                         Exit For
                     Else

App_Code/Timbrado.vb

@@ -2078,6 +2078,11 @@ Public Class Timbrado
 
                     cfdi.EscribirXML(cfdi.Xml, RutaArchivo, NombreArchivoXML)
 
+                    sw.Stop()
+                    swTiempo.AppendFormat("Guardado: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds)
+                    swmili = sw.ElapsedMilliseconds
+                    sw.Start()
+
                     If ObjCFDITimbre.Comprobante.TipoComprobante <> "P" Then
 
                         'Actualiza Estatus Factura

Ashx/SIGGPS.ashx

@@ -17,6 +17,8 @@ Public Class SIGGPS : Implements IHttpHandler, IRequiresSessionState
                 Select Case context.Request("metodo")
                     Case "getimginstalacion"
                         GetImgInstalacion(context)
+                    Case "EjecutarNotificaciones"
+                        EjecutarNotificaciones(context)
                 End Select
             ElseIf context.Request.InputStream IsNot Nothing Then
                 Using reader As New StreamReader(context.Request.InputStream)
@@ -64,6 +66,14 @@ Public Class SIGGPS : Implements IHttpHandler, IRequiresSessionState
         Return URLParametros
     End Function
 
+    Private Sub EjecutarNotificaciones(ByVal context As HttpContext)
+        Dim Retorno As String = "[]"
+        Using ObjGPS As New ClsSisNotificaciones
+            ObjGPS.ObtenerNotificaciones()
+        End Using
+        context.Response.Write(Retorno)
+    End Sub
+
     Private Sub GetImgInstalacion(ByVal context As HttpContext)
         Dim params As String = Decripta(context.Request("r").ToString)
         Dim Parametros = Me.Parametros(params)

Ashx/SigFoxDecodeExample.aspx

@@ -1,193 +0,0 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="SigFoxDecodeExample.aspx.vb" Inherits="Ashx_SigFoxDecodeExample" %>
-
-<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
-</asp:Content>
-<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
-</asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
-</asp:Content>
-<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
-</asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
-</asp:Content>
-<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
-</asp:Content>
-<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
-</asp:Content>
-<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
-    <script type="text/javascript">
-
-        //e.g. parseSigFox('10b67dcc0006efda3d9816c2')
-
-        //In an attempt to make the code clearer, I will not be using ArrayBuffer 
-        function hex2Bytes(val) {
-
-            if (!val) {
-                return [];
-            }
-
-            val = val.trim();
-
-            if (val.startsWith('0x')) {
-                val = val.substring(2); //get rid of starting '0x'
-            }
-
-
-            var numBytes = val.length / 2;
-            var bytes = [];
-
-
-            for (var i = 0; i < numBytes; i++) {
-                bytes.push(parseInt(val.substring(i * 2, (i * 2) + 2), 16));
-            }
-
-            return bytes;
-        }
-
-        function parseLittleEndianInt32(buffer, offset) {
-            return (buffer[offset + 3] << 24) +
-                (buffer[offset + 2] << 16) +
-                (buffer[offset + 1] << 8) +
-                (buffer[offset]);
-        }
-
-        function parseLittleEndianInt16(buffer, offset) {
-            return (buffer[offset + 1] << 8) +
-                (buffer[offset]);
-        }
-
-        function parseLittleEndianInt16Bits(buffer, offset, bitOffset, bitLength) {
-            var temp = parseLittleEndianInt16(buffer, offset);
-            temp = temp >> bitOffset;
-            var mask = 0xffff >> (16 - bitLength);
-            return temp & mask;
-        }
-
-        //e.g. 10b67dcc0006efda3d9816c2
-        function parseSigFox(data) {
-            var buffer = hex2Bytes(data);
-
-            if (!buffer) {
-                return null;
-            }
-
-            var recordType = buffer[0] & 0x0f;
-
-            switch (recordType) {
-                case 0: //positional data
-                    return parsePositionalData(buffer);
-
-                case 1: //downlink ACK
-                    return parseDownlinkAck(buffer);
-
-                case 2: //device data
-                    return parseDeviceStats(buffer);
-
-                case 3: //extended positional data
-                    return parseExtendedData(buffer);
-
-                default:
-                    return null;
-            }
-        }
-
-        function parsePositionalData(buffer) {
-            var flags = buffer[0] & 0xF0;
-            var inTrip = (flags & 0x10) > 0;
-            var lastFixFailed = (flags & 0x20) > 0;
-
-            var latitudeRaw = parseLittleEndianInt32(buffer, 1);
-            var longitudeRaw = parseLittleEndianInt32(buffer, 5);
-            var headingRaw = buffer[9];
-            var speedRaw = buffer[10];
-            var batteryRaw = buffer[11];
-
-            return {
-                MessageType: 0,
-                InTrip: inTrip,
-                LastFixFailed: lastFixFailed,
-                Latitude: latitudeRaw * 1e-7,
-                Longitude: longitudeRaw * 1e-7,
-                Heading: headingRaw * 2,
-                SpeedKmH: speedRaw,
-                BatteryVoltage: (batteryRaw * 25) / 1000.0
-            };
-        }
-
-        function parseDownlinkAck(buffer) {
-            var flags = buffer[0] & 0xF0;
-            var downlinkAccepted = (flags & 0x10) > 0;
-
-            var firmwareMajor = buffer[2];
-            var firmwareMinor = buffer[3];
-
-            var data = [];
-            for (var i = 0; i < 8; i++) {
-                data.push(i + 4);
-            }
-
-            return {
-                MessageType: 1,
-                DownlinkAccepted: downlinkAccepted,
-                FirmwareVersion: firmwareMajor + '.' + firmwareMinor,
-                DownlinkData: data
-            };
-        }
-
-        function parseDeviceStats(buffer) {
-            var uptimeWeeks = parseLittleEndianInt16Bits(buffer, 0, 4, 9/*bits*/);
-            var txCountRaw = parseLittleEndianInt16Bits(buffer, 1, 5, 11 /*bits*/);
-            var rxCountRaw = buffer[3];
-            var tripCountRaw = parseLittleEndianInt16Bits(buffer, 4, 0, 13 /*bits*/);
-            var gpsSuccessRaw = parseLittleEndianInt16Bits(buffer, 5, 5, 10 /*bits*/);
-            var gpsFailuresRaw = parseLittleEndianInt16Bits(buffer, 6, 7, 8 /*bits*/);
-            var averageFixTime = parseLittleEndianInt16Bits(buffer, 7, 7, 9/*bits*/);
-            var averageFailTime = parseLittleEndianInt16Bits(buffer, 9, 0, 9/*bits*/);
-            var averageFreshenTime = parseLittleEndianInt16Bits(buffer, 10, 1, 8/*bits*/);
-            var wakeupsPerTrip = buffer[11] >> 1;
-
-            return {
-                MessageType: 2,
-                UptimeWeeks: uptimeWeeks,
-                TxCount: txCountRaw * 32,
-                RxCount: rxCountRaw * 32,
-                TripCount: tripCountRaw,
-                GpsSuccessCount: gpsSuccessRaw * 32,
-                GpsFailureCount: gpsFailuresRaw * 32,
-                AverageFixTimeSeconds: averageFixTime,
-                AverageFailTimeSeconds: averageFailTime,
-                AverageFreshenTimeSeconds: averageFreshenTime,
-                WakeUpsPerTrip: wakeupsPerTrip
-            };
-        }
-
-        function parseExtendedData(buffer) {
-            var headingRaw = buffer[0] >> 4;
-            var latitudeRaw = buffer[1] + buffer[2] * 256 + buffer[3] * 65536;
-            if (latitudeRaw >= 0x800000)    // 2^23
-                latitudeRaw -= 0x1000000;   // 2^24
-            var longitudeRaw = buffer[4] + buffer[5] * 256 + buffer[6] * 65536;
-            if (longitudeRaw >= 0x800000)   // 2^23
-                longitudeRaw -= 0x1000000;  // 2^24
-            var posAccRaw = buffer[7];
-            var batteryRaw = buffer[8];
-            var speedRaw = buffer[9] & 0x3F;
-            var inTrip = (buffer[9] & 0x40) > 0;
-            var lastFixFailed = (buffer[9] & 0x80) > 0;
-
-            return {
-                MessageType: 3,
-                Heading: headingRaw * 22.5,
-                Latitude: (latitudeRaw * 256) / 1e7,
-                Longitude: (longitudeRaw * 256) / 1e7,
-                PosAccM: posAccRaw * 1,
-                BatteryVoltage: (batteryRaw * 25) / 1000.0,
-                SpeedKmH: speedRaw * 2.5,
-                InTrip: inTrip,
-                LastFixFailed: lastFixFailed
-            };
-        }
-
-    </script>
-</asp:Content>
-

Ashx/SigFoxDecodeExample.aspx.vb

@@ -1,11 +0,0 @@
-Imports System.Collections
-Partial Class Ashx_SigFoxDecodeExample
-    Inherits System.Web.UI.Page
-
-    Public Sub Page_Load() Handles Me.Load
-        Dim ObjNotificaciones As New ClsSisNotificaciones
-        ObjNotificaciones.ObtenerNotificaciones()
-        ObjNotificaciones.Dispose()
-    End Sub
-
-End Class

Bancos/PopIECompras.aspx.vb

@@ -307,6 +307,8 @@ Partial Class Bancos_PopIECompras
     Public Class IEMovimiento
         Public Property SubTotal As Decimal
         Public Property IVA As Decimal
+        Public Property IVADeducible As Decimal
+        Public Property IVANoDeducible As Decimal
         Public Property RetIVA As Decimal
         Public Property RetISR As Decimal
         Public Property Total As Decimal
@@ -615,6 +617,8 @@ Partial Class Bancos_PopIECompras
                     MovimientoPagar = New IEMovimiento
                     MovimientoPagar.SubTotal = dr("SubTotal").ToString.ToDecimal
                     MovimientoPagar.IVA = dr("IVA").ToString.ToDecimal
+                    MovimientoPagar.IVADeducible = dr("IVADeducible").ToString.ToDecimal
+                    MovimientoPagar.IVANoDeducible = dr("IVANoDeducible").ToString.ToDecimal
                     MovimientoPagar.RetIVA = dr("RetIVA").ToString.ToDecimal
                     MovimientoPagar.RetISR = dr("RetISR").ToString.ToDecimal
                     MovimientoPagar.Total = dr("Total").ToString.ToDecimal
@@ -2250,16 +2254,16 @@ Partial Class Bancos_PopIECompras
 
                                                 If TotalImporte = CompraSaldo Then
                                                     If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
-                                                        ImporteMovimiento = MovimientoPagar.IVA
+                                                        ImporteMovimiento = MovimientoPagar.IVADeducible
                                                         ImporteMX = ImporteMovimiento
                                                     ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
-                                                        ImporteMovimiento = (MovimientoPagar.IVA)
+                                                        ImporteMovimiento = (MovimientoPagar.IVADeducible)
                                                         ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
                                                     ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
-                                                        ImporteMovimiento = (MovimientoPagar.IVA)
+                                                        ImporteMovimiento = (MovimientoPagar.IVADeducible)
                                                         ImporteMX = ImporteMovimiento * tipoCambioCompra
                                                     ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
-                                                        ImporteMovimiento = (MovimientoPagar.IVA)
+                                                        ImporteMovimiento = (MovimientoPagar.IVADeducible)
                                                         ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
                                                     End If
                                                     ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
@@ -2273,16 +2277,92 @@ Partial Class Bancos_PopIECompras
                                                 End If
                                             Else
                                                 If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
-                                                    ImporteMovimiento = MovimientoPagar.IVA * PorcentajePago
+                                                    ImporteMovimiento = MovimientoPagar.IVADeducible * PorcentajePago
                                                     ImporteMX = ImporteMovimiento
                                                 ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
-                                                    ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago)
+                                                    ImporteMovimiento = (MovimientoPagar.IVADeducible * PorcentajePago)
                                                     ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
                                                 ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
-                                                    ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago)
+                                                    ImporteMovimiento = (MovimientoPagar.IVADeducible * PorcentajePago)
                                                     ImporteMX = ImporteMovimiento * tipoCambioCompra
                                                 ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
-                                                    ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago)
+                                                    ImporteMovimiento = (MovimientoPagar.IVADeducible * PorcentajePago)
+                                                    ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
+                                                End If
+                                                ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
+                                                ImporteMX = Math.Round(ImporteMX, 2)
+                                                TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
+
+                                                If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
+                                            End If
+
+                                            PorcentajeImpuesto = MovimientoPagar.PorcentajeIVA
+                                            Dim IdCtaIVAXAcreditar As Integer = 0
+                                            Dim IdCtaIVAAcreditable As Integer = 0
+
+                                            If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then
+                                                IdCtaIVAXAcreditar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
+                                                IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
+                                            End If
+
+                                            IdCtaContable = If(IdCtaIVAAcreditable > 0, IdCtaIVAAcreditable, 0)
+
+                                            If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
+                                                If ObjMov.DtResultados.Rows.Count > 0 Then
+                                                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
+                                                    CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditableSIG").ToString.ToEntero
+                                                End If
+                                            End If
+                                        Case 280 'Iva Acreditable No Deducible
+                                            If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
+                                                'funcionalidad que toma el 100% del pago para acreditamiento de iva
+                                                Dim TotalImporte As Decimal
+
+                                                If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
+                                                    TotalImporte = ImportePagado.ToString.ToDecimal
+                                                ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
+                                                    TotalImporte = Math.Round(ImportePagado.ToString.ToDecimal / tipoCambioPago, 2)
+                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
+                                                    TotalImporte = Math.Round(ImportePagado.ToString.ToDecimal * tipoCambioPago, 2)
+                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
+                                                    TotalImporte = ImportePagado.ToString.ToDecimal
+                                                End If
+
+                                                If TotalImporte = CompraSaldo Then
+                                                    If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
+                                                        ImporteMovimiento = MovimientoPagar.IVANoDeducible
+                                                        ImporteMX = ImporteMovimiento
+                                                    ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
+                                                        ImporteMovimiento = (MovimientoPagar.IVANoDeducible)
+                                                        ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
+                                                    ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
+                                                        ImporteMovimiento = (MovimientoPagar.IVANoDeducible)
+                                                        ImporteMX = ImporteMovimiento * tipoCambioCompra
+                                                    ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
+                                                        ImporteMovimiento = (MovimientoPagar.IVANoDeducible)
+                                                        ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
+                                                    End If
+                                                    ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
+                                                    ImporteMX = Math.Round(ImporteMX, 2)
+                                                    TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
+
+                                                    If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
+                                                Else
+                                                    ImporteMovimiento = 0
+                                                    ImporteMX = 0
+                                                End If
+                                            Else
+                                                If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
+                                                    ImporteMovimiento = MovimientoPagar.IVANoDeducible * PorcentajePago
+                                                    ImporteMX = ImporteMovimiento
+                                                ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
+                                                    ImporteMovimiento = (MovimientoPagar.IVANoDeducible * PorcentajePago)
+                                                    ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
+                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
+                                                    ImporteMovimiento = (MovimientoPagar.IVANoDeducible * PorcentajePago)
+                                                    ImporteMX = ImporteMovimiento * tipoCambioCompra
+                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
+                                                    ImporteMovimiento = (MovimientoPagar.IVANoDeducible * PorcentajePago)
                                                     ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
                                                 End If
                                                 ImporteMovimiento = Math.Round(ImporteMovimiento, 2)

Bancos/PopIEVentas.aspx.vb

@@ -2062,7 +2062,7 @@ Partial Class Bancos_PopIEVentas
                                                     IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
                                                     CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria
                                                     tipoCambioVentaDiferenciaCambiaria = If(FechaVenta < FechaUltimaFluctuacion, TipoCambioFluctuacion, TipoCambioOriginal)
-                                                    Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
+                                                    Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVentaDiferenciaCambiaria)
                                                     TimpocambioGeneral = TCImpuestos
 
                                                     Dim Diferencia As Decimal = ((MovimientoPagar.Total * PorcentajePago) * tipoCambioVentaValuacion) - ((MovimientoPagar.Total * PorcentajePago) * tipoCambioPago) 'Añadimos la diferencia de perdida en la venta
@@ -2090,7 +2090,7 @@ Partial Class Bancos_PopIEVentas
                                                     IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
                                                     CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria
                                                     tipoCambioVentaDiferenciaCambiaria = If(FechaVenta < FechaUltimaFluctuacion, TipoCambioFluctuacion, TipoCambioOriginal)
-                                                    Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
+                                                    Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVentaDiferenciaCambiaria)
                                                     TimpocambioGeneral = TCImpuestos
 
 

Bancos/ProveedoresAbonar.aspx

@@ -358,7 +358,7 @@
     <asp:UpdatePanel ID="UPCompras" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView ID="GvCxP" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas X Pagar Pendientes" 
-                DataKeyNames="CveCompra,ImporteProgramo,Saldo,SubTotal,IVA,IEPS,RetIVA,RetISR,Original,UUID,RFC,CveFactura,SerieFolio,Descripcion,CvePrePoliza,Fecha,EstatusInventario,CveProveedor,TipoCambio, CveMoneda,CveRetIVAConcepto,IVAPorPagar,IEPSPorPagar,CveRetISRConcepto,PorcentajeIVA" 
+                DataKeyNames="CveCompra,ImporteProgramo,Saldo,SubTotal,IVA,IVADeducible,IVANoDeducible,IEPS,RetIVA,RetISR,Original,UUID,RFC,CveFactura,SerieFolio,Descripcion,CvePrePoliza,Fecha,EstatusInventario,CveProveedor,TipoCambio, CveMoneda,CveRetIVAConcepto,IVAPorPagar,IVAPorPagarDeducible,IVAPorPagarNoDeducible,IEPSPorPagar,CveRetISRConcepto,PorcentajeIVA" 
                 Width="100%" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None">
                 <Columns>
                     <asp:TemplateField>

ClsTSoft.vb

@@ -1,155 +0,0 @@
-Imports Microsoft.VisualBasic
-Imports System.Collections.Generic
-Imports System.Linq
-Imports System.Web
-Imports System.Data
-Imports System.Text
-Imports Extensiones
-
-Public Class ClsTSoft
-    Inherits ClsClaseBase
-
-    Public Sub New()'(Optional adsObj As ClsClaseBase = Nothing)
-        'MyBase.New(adsObj)
-    End Sub
-#Region "CRUD_Remisiones"
-    Public Function AddRemisiones(FolioRemision As String, NoEconomico As String, CveEstatus As Integer, GeoInicio As String, GeoFin As String, Fecha As Date) As Boolean
-        Dim Retorno As Boolean = False
-
-        SqlDataAdapter("PA_GPS_RemisionesAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@FolioRemision", SqlDbType.VarChar).Value = FolioRemision
-            .Add("@NoEconomico", SqlDbType.VarChar).Value = NoEconomico
-            .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
-            .Add("@GeoInicio", SqlDbType.VarChar).Value = GeoInicio
-            .Add("@GeoFin", SqlDbType.VarChar).Value = GeoFin
-            .Add("@Fecha", SqlDbType.Date).Value = Fecha
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un Error al agregar la Remision.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function UpdateEstatusRemisiones(CveRemision As Integer, CveEstatus As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        SqlDataAdapter("PA_GPS_RemisionesEstatusUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveRemision", SqlDbType.Int).Value = CveRemision
-            .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un Error al agregar la Remision.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function GetRemisiones(CveCliente As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        SqlDataAdapter("PA_GPS_RemisionesGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un Error al agregar la Remision.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    'Public Function UpRemisiones(CveRemision As Integer, FolioRemision As String, CveDispositivo As Integer, CveEstatus As Integer, GeoInicio As String, GeoFin As String,
-    '    Lat As String, Lon As String) As Boolean
-    '    Dim strSQL As New StringBuilder()
-    '    Dim retorno As Boolean = False
-    '    strSQL.Append("  UPDATE TSoft_Remisiones Set ")
-    '    strSQL.Append(" FolioRemision=@FolioRemision")
-    '    strSQL.Append(", CveDispositivo =@CveDispositivo")
-    '    strSQL.Append(", CveEstatus =@CveEstatus")
-    '    strSQL.Append(", GeoInicio =@GeoInicio")
-    '    strSQL.Append(", GeoFin =@GeoFin")
-    '    strSQL.Append(", Lat =@Lat")
-    '    strSQL.Append(", Lon =@Lon")
-    '    strSQL.Append(" WHERE [CveRemision]=@CveRemision ")
-    '    DataAdapter(strSQL.ToString())
-    '    addParameters("@CveRemision", SqlDbType.Int, CveRemision)
-    '    addParameters("@FolioRemision", SqlDbType.VarChar, FolioRemision)
-    '    addParameters("@CveDispositivo", SqlDbType.Int, CveDispositivo)
-    '    addParameters("@CveEstatus", SqlDbType.Int, CveEstatus)
-    '    addParameters("@GeoInicio", SqlDbType.VarChar, GeoInicio)
-    '    addParameters("@GeoFin", SqlDbType.VarChar, GeoFin)
-    '    addParameters("@Lat", SqlDbType.VarChar, Lat)
-    '    addParameters("@Lon", SqlDbType.VarChar, Lon)
-
-    '    retorno = RunQuery("Ocurrió un error al actualizar el Remisiones.")
-    '    strSQL.Clear()
-    '    Return retorno
-    'End Function
-
-    Public Function RemoveRemisiones(CveRemision As Integer) As Boolean
-        Dim strSQL As New StringBuilder()
-        Dim retorno As Boolean = False
-        strSQL.Append("  DELETE FROM TSoft_Remisiones ")
-        strSQL.Append(" WHERE [CveRemision]=@CveRemision ")
-        DataAdapter(strSQL.ToString())
-        addParameters("@CveRemision", SqlDbType.Int, CveRemision)
-        retorno = RunQuery("Ocurrió un error al eliminar el Remisiones.")
-        strSQL.Clear()
-        Return retorno
-    End Function
-#End Region
-#Region "Otros"
-
-    Public Function UpEstatusRemision(FolioRemision As String, CveEstatus As Integer) As Boolean
-        Dim strSQL As New StringBuilder()
-        Dim retorno As Boolean = False
-        strSQL.AppendLine("	BEGIN")
-        strSQL.AppendLine("	    DECLARE @Lat AS VARCHAR(20)=''")
-        strSQL.AppendLine("	    DECLARE @Lon AS VARCHAR(20)=''")
-        strSQL.AppendLine("	    DECLARE @CveRemision AS INT =(SELECT TOP 1 REM.CveRemision FROM TSoft_Remisiones REM WHERE FolioRemision= @FolioRemision)")
-        strSQL.AppendLine("	    Declare @CveDispositivo AS INT=( SELECT TOP 1 REM.CveDispositivo FROM TSoft_Remisiones REM WHERE CveRemision=@CveRemision)")
-        strSQL.AppendLine("	    SELECT Top 1 @Lat= Geom.Lat ,@Lon=Geom.Long FROM GPS_Posiciones WHERE CveDispositivo=@CveDispositivo ORDER BY  FechaTrama")
-        strSQL.AppendLine("	    UPDATE TSoft_Remisiones SET CveEstatus=@CveEstatus WHERE CveRemision=@CveRemision")
-        strSQL.AppendLine("	    INSERT INTO [TSoft_RemisionesHistorial] ([CveRemisison], [CveEstatus], [Lat], [Lon]) VALUES (@CveRemision, @CveEstatus, @Lat, @Lon)")
-        strSQL.AppendLine("	END")
-        DataAdapter(strSQL.ToString())
-        addParameters("@FolioRemision", SqlDbType.VarChar, FolioRemision)
-        addParameters("@CveEstatus", SqlDbType.Int, CveEstatus)
-        retorno = RunQuery("Ocurrió un error al agregar el Remisiones.")
-        strSQL.Clear()
-        Return retorno
-    End Function
-    Public Function GETRemisionesHistorial(FolioRemision As String, NoEconomico As String) As Boolean
-        Dim strSQL As New StringBuilder()
-        Dim retorno As Boolean = False
-        strSQL.AppendLine("	Declare @CveDispositivo AS INT=(SELECT S_Di.CveDispositivo FROM GPS_Dispositivos AS S_Di WHERE NoEconomico=@NoEconomico AND CveCliente=183798)")
-        strSQL.AppendLine("	SELECT @NoEconomico AS NoEconomico, REMHIST.Fecha,REMHIST.Lat,REMHIST.Lon,REM.FolioRemision,REMHIST.CveEstatus FROM TSoft_Remisiones REM")
-        strSQL.AppendLine("	INNER JOIN TSoft_RemisionesHistorial REMHIST ON REMHIST.CveRemisison=REM.CveRemision")
-        strSQL.AppendLine("	WHERE CveDispositivo=@CveDispositivo AND FolioRemision= @FolioRemision ORDER BY REMHIST.Fecha DESC")
-        DataAdapter(strSQL.ToString())
-        addParameters("@FolioRemision", SqlDbType.VarChar, FolioRemision)
-        addParameters("@NoEconomico", SqlDbType.VarChar, NoEconomico)
-        retorno = RunQuery("Ocurrió un error al agregar el Remisiones.")
-        strSQL.Clear()
-        Return retorno
-    End Function
-#End Region
-End Class

Compras/Compras.aspx.cs

@@ -1,14 +0,0 @@
-using System;
-using System.Collections.Generic;
-using System.Linq;
-using System.Web;
-using System.Web.UI;
-using System.Web.UI.WebControls;
-
-public partial class Compras_Default :  ClsPaginas
-{
-    protected void Page_Load(object sender, EventArgs e)
-    {
-        Alert(UsuarioActual.Nombre);
-    }
-}

Compras/Compras.aspx.vb

@@ -3729,6 +3729,20 @@ Partial Class Compras_Compras
             End If
         End If
 
+        'Si se marcó No Deducible en el encabezado mínimo se debe registrar un No Deducible en el Detalle 
+        Dim GuardaNoDeducibles As Boolean = False
+        If ChkEsNoDeducible.Checked Then
+            For Each Row As DataRow In TmpDT.Rows
+                If Row("NoDeducible").ToString = "True" Then
+                    GuardaNoDeducibles = True
+                End If
+            Next
+            If GuardaNoDeducibles = False Then
+                Alert("Si la compra es No Deducible, mínimo se debe registrar un producto No Deducible", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+        End If
+
 
         If CierrePeriodo Then
             Alert("El periodo de la compra actual ya se encuentra cerrado. No podra registrar la compra.", TipoMensaje.MsgAdvertencia)
@@ -7596,6 +7610,8 @@ Partial Class Compras_Compras
                                     Else
                                         MsgAccionAceptar = "if (window.opener){window.opener.location.href = window.opener.location.href; window.close();}"
                                     End If
+                                Else
+                                    MsgAccionAceptar = "location.href =""Compras.aspx"""
                                 End If
 
                                 'Simplificacion de PrePolizas

Contabilidad/RepIVA.aspx

@@ -117,6 +117,7 @@
                     <asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveVenta" Target="_blank" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" HeaderText="Folio" ControlStyle-Width="85px" />
                     <asp:BoundField HeaderText="SubTotal" DataField="SubTotal" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="IVA" DataField="IVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="%IVA" DataField="PorcentajeIVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="IEPS" DataField="IEPS" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="RetIVA" DataField="RetIVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="RetISR" DataField="RetISR" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />  

Empresas/144/Formatos/Factura.rdlc

@@ -1137,7 +1137,7 @@
                     </Style>
                   </TextRun>
                   <TextRun>
-                    <Value> Por éste pagare prometo (emos) pagar incondicionalmente a la orden de Soluciones en Telemedición JAR SA de CV, a su vencimiento  el  </Value>
+                    <Value> Por éste pagare prometo (emos) pagar incondicionalmente a la orden de PAOLA CASTILLO VALENZUELA, a su vencimiento  el  </Value>
                     <Style>
                       <FontStyle>Normal</FontStyle>
                       <FontFamily>calibri</FontFamily>

Empresas/70/Formatos/Factura.rdlc

@@ -203,7 +203,7 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>www.adsistemas.mx|facturacion@adsistemas.mx</Value>
+                <Value>www.adsistemas.mx|facturacion@adssistemas.mx</Value>
                 <Style>
                   <FontStyle>Normal</FontStyle>
                   <FontFamily>Calibri</FontFamily>
@@ -534,6 +534,7 @@
               <TextRun>
                 <Value>Nombre</Value>
                 <Style>
+                  <FontFamily>calibri</FontFamily>
                   <FontSize>9pt</FontSize>
                 </Style>
               </TextRun>
@@ -702,7 +703,7 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>Cuidad</Value>
+                <Value>Ciudad</Value>
                 <Style>
                   <FontFamily>Calibri</FontFamily>
                   <FontSize>9pt</FontSize>

OS/CatTiposOrdenesServicios.aspx

@@ -3,116 +3,175 @@
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+        .Widthall {
+            width: 100% !important;
+        }
+
+        .dataTables_scrollHeadInner {
+            width: 100% !important;
+            background-color: #dddddd;
+            padding-left: 0px !important;
+        }
+
+        .dataTables_scrollFoot {
+            display: none;
+            position: static;
+        }
+
+        .table-scrollable {
+            margin: 0px !important;
+        }
+
+        .dataTables_scroll {
+            margin-bottom: 0px;
+        }
+
+        .table.dataTable {
+            margin-top: 0px !important;
+        }
+
+        .dataTables_scrollBody table th {
+            padding: 0px !important;
+            padding-right: 4px !important;
+            padding-left: 4px !important;
+        }
+
+        .sinlink td a {
+            pointer-events: none;
+            cursor: default;
+            color: black;
+            font-size: small;
+        }
+
+        .white a {
+            color: white !important;
+        }
+    </style>
 </asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
-</asp:Content>
-<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
     Catálogo de Tipos de Ordenes de Servicio
 </asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-</asp:Content>
+    <asp:UpdatePanel runat="server" ID="UpAgregar">
-<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
-    <asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <table class="table table-striped table-advance table-hover">
+            <li>
-                <thead>
+                <asp:LinkButton runat="server" ID="BtnAgregarTiposOS" data-toggle="tooltip" data-placement="left" Text="<i class='fa fa-plus'></i> Agregar Tipo de OS"></asp:LinkButton>
-                    <tr class="Titulos">
+            </li>
-                        <th width="250px">
-                            <asp:LinkButton ID="LbTipoOrdenServicio" runat="server" CausesValidation="false" Text="" CommandArgument="TipoOrdenServicio" OnClick="LbOrden_Click">
-                                Tipo de Orden de Servicio
-                                <asp:Literal ID="ImgTipoOrdenServicio" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
-                            </asp:LinkButton>
-                        </th>
-                        <th width="100px">
-                            <asp:LinkButton ID="LbEstatus" runat="server" CausesValidation="false" Text="" CommandArgument="Estatus" OnClick="LbOrden_Click">
-                                Estatus 
-                                <asp:Literal ID="ImgEstatus" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
-                            </asp:LinkButton>
-                        </th>
-                        <th width="100px">
-                            <asp:LinkButton ID="LbFechaIng" runat="server" CausesValidation="false" Text="" CommandArgument="FechaIng" OnClick="LbOrden_Click">
-                                Fecha Ing.
-                                <asp:Literal ID="ImgFechaIng" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
-                            </asp:LinkButton>
-                        </th>
-                        <th width="100px">
-                            <asp:LinkButton ID="LbUsuario" runat="server" CausesValidation="false" Text="" CommandArgument="Usuario" OnClick="LbOrden_Click">
-                                Usuario
-                                <asp:Literal ID="ImgUsuario" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
-                            </asp:LinkButton>
-                        </th>
-                        <th width="161px">Comandos</th>
-                    </tr>
-                </thead>
-                <tr>
-                    <td style="text-align: center">
-                        <asp:TextBox ID="TxtTipoOrdenServicio" runat="server" CausesValidation="true" MaxLength="50" ValidationGroup="GrpGuardar" Width="234px"></asp:TextBox>
-                        <asp:RequiredFieldValidator ID="RFVTipoOrdenServicio" runat="server" ControlToValidate="TxtTipoOrdenServicio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Orden de Servicio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                        <ajax:ValidatorCalloutExtender ID="VCTipoOrdenServicio" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoOrdenServicio" Width="300px"></ajax:ValidatorCalloutExtender>
-                    </td>
-                    <td>&nbsp;</td>
-                    <td>&nbsp;</td>
-                    <td>&nbsp;</td>
-                    <td style="text-align: center">
-                        <asp:LinkButton ID="LbAgregar" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpGuardar"></asp:LinkButton></td>
-                </tr>
-            </table>
-        </ContentTemplate>
-    </asp:UpdatePanel>
-    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveOrdenServicioTipo" EmptyDataText="No se encontraron Tipos de Orden Servicios Registrados" ToolTip="Listado de Tipos de Ordenes de Servicios" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px;" GridLines="None">
-                <Columns>
-                    <asp:TemplateField>
-                        <ItemTemplate>
-                            &nbsp;<asp:Literal ID="LtlTipoOrdenServicio" runat="server" Text='<%# Eval("OrdenServicioTipo", "{0}") %>'></asp:Literal>
-                        </ItemTemplate>
-                        <EditItemTemplate>
-                            <asp:TextBox ID="TxtTipoOrdenServicio" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("OrdenServicioTipo") %>' ValidationGroup="GrpGV" Width="234px"></asp:TextBox>
-                            <asp:RequiredFieldValidator ID="RFVTipoOrdenServicio" runat="server" ControlToValidate="TxtTipoOrdenServicio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Orden de Servicio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
-                            <ajax:ValidatorCalloutExtender ID="VCTipoOrdenServicio" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoOrdenServicio" Width="300px"></ajax:ValidatorCalloutExtender>
-                        </EditItemTemplate>
-                    </asp:TemplateField>
-                    <asp:TemplateField>
-                        <ItemTemplate>
-                            <asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("Estatus") %>'></asp:Literal>
-                        </ItemTemplate>
-                        <EditItemTemplate>
-                            <asp:CheckBox ID="ChkEstatus" runat="server" Checked='<%# If (Eval("Estatus").ToString = "Activo", True, False)  %>' />
-                        </EditItemTemplate>
-                    </asp:TemplateField>
-                    <asp:TemplateField>
-                        <ItemTemplate>
-                            <asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:TemplateField>
-                        <ItemTemplate>
-                            <asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Editar">
-                        <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" />
-                                &nbsp;<asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
-                            </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>" />
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Eliminar">
-                        <ItemTemplate>
-                            <asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                </Columns>
-                <RowStyle CssClass="Texto" />
-                <AlternatingRowStyle CssClass="TextoAlterno" />
-            </asp:GridView>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>
-<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel ID="UpGral" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+
+            <div class="row">
+                <div class="Widthall" style="text-align: right!important; margin-top: 20px!important; margin-bottom: 2px!important">
+                    <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvTiposOS.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                    <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvTiposOS.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                </div>
+            </div>
+
+            <div class="row" style="margin:5px">
+                <asp:UpdatePanel ID="UPGvTiposOS" runat="server" UpdateMode="Conditional">
+                    <ContentTemplate>
+
+                        <asp:GridView ID="GvTiposOS" runat="server" AutoGenerateColumns="False"
+                            DataKeyNames="CveOrdenServicioTipo, OrdenServicioTipo, Estatus"
+                            EmptyDataText="No se encontraron registros"
+                            CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
+                            data-sort="true"
+                            data-freezerows="1"
+                            GridLines="None">
+                            <Columns>
+                                <asp:TemplateField HeaderText="Tipo de Orden de Servicio">
+                                    <ItemTemplate>
+                                        &nbsp;<asp:Literal ID="LblTiposOS" runat="server" Text='<%# Eval("OrdenServicioTipo") %>'></asp:Literal>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+
+                                <asp:TemplateField HeaderText="Estatus" ItemStyle-Width="150px">
+                                    <ItemTemplate>
+                                        &nbsp;<asp:Literal ID="LblPuntos" runat="server" Text='<%# Eval("Estatus")%>'></asp:Literal>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+
+                                <asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" ItemStyle-Width="150px">
+                                    <ItemTemplate>
+                                        &nbsp;<asp:Literal ID="lblFecha" runat="server" Text='<%# Eval("FechaIng", "{0:d}")%>'></asp:Literal>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+
+                                <asp:TemplateField ItemStyle-Width="300px" HeaderText="Usuario">
+                                    <ItemTemplate>
+                                        <asp:Literal ID="lblUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+
+                                <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="80px">
+                                    <ItemTemplate>
+                                        <asp:LinkButton ID="ImgE" OnClick="Edit_ClickTiposOS" runat="server" AlternateText="Editar" CausesValidation="False"
+                                            CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="40px">
+                                    <ItemTemplate>
+                                        <asp:LinkButton ID="imgD" OnClick="Remove_ClickTiposOS" runat="server" AlternateText="Eliminar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                            </Columns>
+                        </asp:GridView>
+
+                    </ContentTemplate>
+                </asp:UpdatePanel>
+            </div>
+
+            <br />
+            <br />
+
+            <div id="DivAgregarTiposOS" class="modal ADS fade" role="dialog">
+                <div class="modal-dialog" style="width: 450px;">
+                    <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposOS" UpdateMode="Conditional">
+                        <ContentTemplate>
+                            <div class="modal-header ">
+                                <button type="button" class="close" data-dismiss="modal">×</button>
+                                <h4 class="modal-title">
+                                    <asp:Literal ID="LtlTituloModalTiposOS" runat="server">Agregar Tipo Defecto</asp:Literal></h4>
+                            </div>
+                            <div class="modal-body">
+
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtTiposOS" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RfvTxtTiposOS" runat="server" ControlToValidate="TxtTiposOS" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposOS"></asp:RequiredFieldValidator>
+                                    <label for="<%= TxtTiposOS.ClientID.ToString()%>">Tipo:</label>
+                                    <i></i>
+                                </div>
+
+
+                                <div ID="DivEstatus" runat="server" class="form-group form-md-line-input input-iconright" Visible="false">
+                                    <label for="<%= ChkEstatus.ClientID.ToString()%>">Activo:</label>&nbsp;
+                                    <asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
+                                    <i></i>
+                                </div>
+
+                            </div>
+
+                            <div class="modal-footer">
+                                <asp:Button ID="BtnAgregarTiposOSModal" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpTiposOS" />
+                                <button id="Button3" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                            </div>
+
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+</asp:Content>
+<asp:Content ID="Content9" ContentPlaceHolderID="JS" runat="Server">
 </asp:Content>

OS/CatTiposOrdenesServicios.aspx.vb

@@ -6,179 +6,165 @@ Imports System.Linq
 Imports Extensiones
 
 Partial Class OS_CatTiposOrdenesServicios
-	Inherits ClsPaginas
+    Inherits ClsPaginas
 
-	Public Property PuedeEditar As Boolean
+    Private Property CveOrdenServicioTipo As Integer
-		Get
+        Get
-			Return CBool(ViewState("PuedeEditar"))
+            If Not ViewState("CveOrdenServicioTipo") Is Nothing Then
-		End Get
+                Return ViewState("CveOrdenServicioTipo").ToString.ToEntero
-		Set(value As Boolean)
+            Else
-			ViewState("PuedeEditar") = value
+                Return -1
-		End Set
+            End If
-	End Property
 
-	Public Property PuedeEliminar As Boolean
+        End Get
-		Get
+        Set(value As Integer)
-			Return CBool(ViewState("PuedeEditar"))
+            ViewState("CveOrdenServicioTipo") = value
-		End Get
+        End Set
-		Set(value As Boolean)
-			ViewState("PuedeEditar") = value
-		End Set
-	End Property
 
-	Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+    End Property
-		If Not Page.IsPostBack Then
-			ViewState("Orden") = ""
-			CargaDatos()
-		End If
-	End Sub
 
-	Public Sub CargaDatos()
+    Private Property Actualizar As Boolean
-		Dim ObjSubTipoOrdenServicios As New ClsOS
+        Get
+            If Not ViewState("Actualizar") Is Nothing Then
+                Return DirectCast(ViewState("Actualizar"), Boolean)
+            Else
+                Return False
+            End If
+        End Get
+        Set(value As Boolean)
+            ViewState("Actualizar") = value
+        End Set
+    End Property
+
+
+    Private Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        If Not Page.IsPostBack Then
+            CargadatosGvTiposOS()
+        End If
+
+    End Sub
+
+    Private Sub CargadatosGvTiposOS()
+
+        Dim ObjSubTipoOrdenServicios As New ClsOS
         If ObjSubTipoOrdenServicios.GetTipoOrdenesServicios(-1) Then
-            ViewState("DTTipoOrdenServicios") = ObjSubTipoOrdenServicios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GvTiposOS.DataSource = ObjSubTipoOrdenServicios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
             GlobalDTSubTipoOrdenServicios = ObjSubTipoOrdenServicios.DtResultados
         Else
-            Me.GvDatos.DataSource = Nothing
+            GvTiposOS.DataSource = Nothing
         End If
 
-		ObjSubTipoOrdenServicios.Dispose()
+        ObjSubTipoOrdenServicios.Dispose()
 
-		If ViewState("Orden").ToString() <> String.Empty Then
+        GvTiposOS.DataBind()
-			CargaGrid(ViewState("Orden").ToString())
+        UpGral.Update()
-		Else
-			CargaGrid("")
-		End If
-	End Sub
 
-	Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
+    End Sub
-		Dim ObjTipoOrdenServicios As New ClsOS
-		If ObjTipoOrdenServicios.AddTipoOrdenServicio(TxtTipoOrdenServicio.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-			TxtTipoOrdenServicio.Text = ""
-			Alert("El nuevo Tipo de Orden de Servicio se guardó correctamente.", TipoMensaje.MsgInformacion)
-			UpTitulos.Update()
-			ViewState("DTTipoOrdenServicios") = ObjTipoOrdenServicios.DtResultados '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            'GlobalDTTipoOrdenServicios(-1) = ObjTipoOrdenServicios.DtResultados
 
-            If ViewState("Orden").ToString() <> String.Empty Then
+    Protected Sub BtnAgregarTiposOS_Click(sender As Object, e As EventArgs) Handles BtnAgregarTiposOS.Click
-				CargaGrid(ViewState("Orden").ToString())
+        LtlTituloModalTiposOS.Text = "Agregar Tipo de Orden de Servicio"
-			Else
+        BtnAgregarTiposOSModal.Text = "Agregar"
-				CargaGrid("")
+        DivEstatus.Visible = False
-			End If
-		End If
-		ObjTipoOrdenServicios.Dispose()
-	End Sub
 
-#Region "G V  D A T O S"
+        TxtTiposOS.Text = ""
-    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
+
-        If e.Row.RowType = DataControlRowType.DataRow Then
+        Actualizar = False
-            If e.Row.RowIndex = 0 Then
+        UpGral.Update()
-                e.Row.Cells(0).Width = Unit.Pixel(250)
+        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposOS"))
-                e.Row.Cells(1).Width = Unit.Pixel(100)
+
-                e.Row.Cells(2).Width = Unit.Pixel(100)
+    End Sub
-                e.Row.Cells(3).Width = Unit.Pixel(100)
+
-                e.Row.Cells(4).Width = Unit.Pixel(100)
+    Protected Sub BtnAgregarTiposOSModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarTiposOSModal.Click
-                e.Row.Cells(5).Width = Unit.Pixel(61)
+
+        Dim ObjTipoOrdenServicios As New ClsOS
+
+        If Not Actualizar Then
+            If ObjTipoOrdenServicios.AddTipoOrdenServicio(TxtTiposOS.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+
+                TxtTiposOS.Text = ""
+                ChkEstatus.Checked = True
+
+                CargadatosGvTiposOS()
+
+                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposOS"), "jsHideModalTiposOS")
+                'GeneraGlobalDT()
+                UpGral.Update()
+
+                Alert("Tipo de Orden de Servicio Agregado Correctamente", TipoMensaje.MsgInformacion)
+            Else
+                Alert("Ocurrio un error al guardar el Tipo de Orden de Servicio", TipoMensaje.MsgError)
             End If
-            e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
-            e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center
-            e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center
-            e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Center
-            e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center
-            e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center
-        End If
-    End Sub
-
-    Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
-        Dim ObjTipoOrdenServicios As New ClsOS
-        If ObjTipoOrdenServicios.RemoveTipoOrdenServicio(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
-            GvDatos.EditIndex = -1
-            ViewState("DTTipoOrdenServicios") = ObjTipoOrdenServicios.DtResultados '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            'GlobalDTTipoOrdenServicios(-1) = ObjTipoOrdenServicios.DtResultados
-            Alert("El Tipo de Orden de Servicio se eliminó correctamente.", TipoMensaje.MsgInformacion)
-        End If
-        ObjTipoOrdenServicios.Dispose()
-        If ViewState("Orden").ToString() <> String.Empty Then
-            CargaGrid(ViewState("Orden").ToString())
         Else
-            CargaGrid("")
+            If ObjTipoOrdenServicios.UpdateTipoOrdenServicio(TxtTiposOS.Text.Trim, False, ChkEstatus.Checked, CveOrdenServicioTipo) Then
-        End If
-    End Sub
 
-    Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatos.RowCancelingEdit
+                TxtTiposOS.Text = ""
-        GvDatos.EditIndex = -1
+                ChkEstatus.Checked = True
-        If ViewState("Orden").ToString() <> String.Empty Then
-            CargaGrid(ViewState("Orden").ToString())
-        Else
-            CargaGrid("")
-        End If
-    End Sub
 
-    Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating
+                CargadatosGvTiposOS()
-        Dim ObjTipoOrdenServicios As New ClsOS
+                'GeneraGlobalDT()
-        Dim TipoOrdenServicio As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtTipoOrdenServicio"), TextBox).Text.Trim
+                UpModalTiposOS.Update()
-        Dim Estatus As Boolean = GvDatos.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
-        Dim CveTipoOrdenServicio As Integer = GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero
 
-        If ObjTipoOrdenServicios.UpdateTipoOrdenServicio(TipoOrdenServicio, False, Estatus, CveTipoOrdenServicio) Then
+                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposOS"), "jsHideModalTiposOS")
-            GvDatos.EditIndex = -1
+
-            ViewState("DTTipoOrdenServicios") = ObjTipoOrdenServicios.DtResultados '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+                UpGral.Update()
-            'GlobalDTTipoOrdenServicios(-1) = ObjTipoOrdenServicios.DtResultados
+                Alert("Tipo de Orden de Servicio Actualizado Correctamente", TipoMensaje.MsgInformacion)
-            Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
+            Else
+                Alert("Ocurrio un error al Actualizar el Tipo de Orden de Servicio", TipoMensaje.MsgError)
+            End If
         End If
+
+        CveOrdenServicioTipo = -1
+        Actualizar = False
+
         ObjTipoOrdenServicios.Dispose()
 
-        If ViewState("Orden").ToString() <> String.Empty Then
-            CargaGrid(ViewState("Orden").ToString())
-        Else
-            CargaGrid("")
-        End If
     End Sub
 
-    Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDatos.RowEditing
+    Public Sub Remove_ClickTiposOS(sender As Object, e As EventArgs)
-        GvDatos.EditIndex = e.NewEditIndex
+
-        If ViewState("Orden").ToString() <> String.Empty Then
+        Dim ObjTipoOrdenServicios As New ClsOS
-            CargaGrid(ViewState("Orden").ToString())
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim activo As Boolean = False
+        CveOrdenServicioTipo = GvRow.DataKey("CveOrdenServicioTipo").ToEntero
+
+        If ObjTipoOrdenServicios.RemoveTipoOrdenServicio(CveOrdenServicioTipo) Then
+            CargadatosGvTiposOS()
+            'GeneraGlobalDT()
+
+            Alert("El Tipo de Orden de Servicio se eliminó Correctamente ", TipoMensaje.MsgInformacion)
         Else
-            CargaGrid("")
+            Alert("Ocurrio un error al Eliminar el Tipo de Orden de Servicio", TipoMensaje.MsgError)
         End If
-    End Sub
-#End Region
 
-#Region "O R D E N A M I E N T O"
+        ObjTipoOrdenServicios.Dispose()
-    Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
-        Dim Orden As String = ""
-        Dim Campo As String = ""
-        Dim Literal As Literal = Nothing
-        Const OrdenInicial As String = ""
-        Dim Arg(2) As String
 
-        Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
+        CargadatosGvTiposOS()
-        Campo = Arg(0)
+
-        Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)
+        CveOrdenServicioTipo = -1
 
-        If ViewState(String.Format("O{0}", Campo)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo)).ToString = String.Format("{0} DESC", Campo) Then
-            ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
-            Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
-        Else
-            ViewState(String.Format("O{0}", Campo)) = String.Format("{0} DESC", Campo)
-            Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
-        End If
-        Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo)).ToString
-        ViewState("Orden") = Orden
-        CargaGrid(Orden)
     End Sub
 
-    Private Sub CargaGrid(Orden As String)
+    Public Sub Edit_ClickTiposOS(sender As Object, e As EventArgs)
-        If Orden <> String.Empty Then
+
-            Dim DV As New DataView(CType(ViewState("DTTipoOrdenServicios"), DataTable), "", Orden, DataViewRowState.CurrentRows)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-            GvDatos.DataSource = DV.ToTable()
+        Dim activo As Boolean = False
-            DV.Dispose()
+
-        Else
+        LtlTituloModalTiposOS.Text = "Editar Tipo de Orden de Servicio"
-            GvDatos.DataSource = CType(ViewState("DTTipoOrdenServicios"), DataTable)
+        Actualizar = True
-        End If
+        DivEstatus.Visible = True
-        GvDatos.DataBind()
+
-        UpDatos.Update()
+        CveOrdenServicioTipo = GvRow.DataKey("CveOrdenServicioTipo").ToEntero
+
+        TxtTiposOS.Text = GvRow.DataKey("OrdenServicioTipo")
+        ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False)
+
+        BtnAgregarTiposOSModal.Text = "Actualizar"
+
+        UpModalTiposOS.Update()
+
+        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposOS"))
+
     End Sub
-#End Region
+
 End Class

OS/OrdenesServicios.aspx

@@ -86,7 +86,7 @@
                                             <div class="col-md-4">
                                                 <asp:Label ID="LblCliente" runat="server"></asp:Label>
                                             </div>
-                                             <div class="col-md-2">
+                                            <div class="col-md-2">
                                                 <b>Fecha Recibido:</b>
                                             </div>
                                             <div class="col-md-4">
@@ -152,6 +152,8 @@
                                             <div class="col-md-3" style="margin-top: 5px;">
                                                 <asp:DropDownList ID="DdlTipoOrdenOS" CssClass="form-control input-sm select2me" runat="server" DataTextField="OrdenServicioTipo" DataValueField="CveOrdenServicioTipo" Width="100%" Height="30px">
                                                 </asp:DropDownList>
+                                                <asp:RequiredFieldValidator ID="RFVTipoOS" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlTipoOrdenOS" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Orden''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                <ajax:ValidatorCalloutExtender ID="VCETipoOS" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoOS" Width="100px"></ajax:ValidatorCalloutExtender>
                                             </div>
                                         </div>
                                     </div>

PRESENTACIONES/Clientes2.aspx.exclude

@@ -1,350 +0,0 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Clientes2.aspx.vb" Inherits="PRESENTACIONES_Clientes2" %>
-<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
-<asp:Content ID="Content1" ContentPlaceHolderID="H" Runat="Server">
-        <img id="ImgAddVenta" runat="server" alt="Registrar Nueva Venta" style="cursor: pointer;" src="/Imagenes/Nota.gif" width="20" height="25" />
-</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>
-</asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="C" Runat="Server">
-
-<%--<script language="javascript" type="text/javascript">
-
-    function SetText(ObjFrom, ObjTo) {
-        ObjTo.innerText = ObjFrom.value;
-    }
-
-    function SetText2(ObjTo, Value) {
-        ObjTo.innerText = Value;
-    }
-
-    function getSelectedText(Obj, IfIsNull) {
-        if (Obj.selectedIndex == -1)
-            return IfIsNull;
-        else
-            return Obj.options[Obj.selectedIndex].text;
-    }
-
-    //this pageLoad will only works if you are using ASP.Net AJAX
-    //if you're not, you can use the other way.
-    function pageLoad() {
-        var grid = document.getElementById('<%=GvCxC.ClientID %>');
-        var grid2 = document.getElementById('<%=GvCxCHistorial.ClientID %>');
-
-        var firstRowHeaderClone = null;
-
-        if (grid && grid2 && grid.cells && grid2.cells) {
-            if (grid && grid.cells.length > 1) {
-                firstRowHeaderClone = grid.tBodies[0].rows[0].cloneNode(true);
-                grid.tBodies[0].insertBefore(firstRowHeaderClone, grid.tBodies[0].rows[0]);
-
-                var Row1 = grid.tBodies[0].rows[0];
-                var Row2 = grid.tBodies[0].rows[1];
-
-                if (Row1.cells.length > 1 && Row2.cells.length > 1) {
-                    Row2.deleteCell(0);
-                    Row2.deleteCell(0);
-                    Row2.deleteCell(0);
-                    Row2.deleteCell(0);
-                    Row2.deleteCell(0);
-
-                    Row1.cells[0].rowSpan = 2;
-                    Row1.cells[1].rowSpan = 2;
-                    Row1.cells[2].rowSpan = 2;
-                    Row1.cells[3].rowSpan = 2;
-                    Row1.cells[4].rowSpan = 2;
-
-                    Row1.deleteCell(6);
-                    Row1.deleteCell(7);
-
-                    Row1.cells[5].colSpan = 2;
-                    Row1.cells[6].colSpan = 2;
-
-
-                    Row2.deleteCell(4);
-                    Row2.deleteCell(4);
-
-
-                    Row1.cells[7].rowSpan = 2;
-                    Row1.cells[8].rowSpan = 2;
-                }
-            }
-
-            var firstRowHeaderClone2 = null;
-            if (grid2 && grid2.cells.length > 1) {
-                firstRowHeaderClone2 = grid2.tBodies[0].rows[0].cloneNode(true);
-                grid2.tBodies[0].insertBefore(firstRowHeaderClone2, grid2.tBodies[0].rows[0]);
-
-                var Row12 = grid2.tBodies[0].rows[0];
-                var Row22 = grid2.tBodies[0].rows[1];
-
-                if (Row12.cells.length > 1 && Row22.cells.length > 1) {
-                    Row22.deleteCell(0);
-                    Row22.deleteCell(0);
-                    Row22.deleteCell(0);
-                    Row22.deleteCell(0);
-                    Row22.deleteCell(0);
-
-                    Row12.cells[0].rowSpan = 2;
-                    Row12.cells[1].rowSpan = 2;
-                    Row12.cells[2].rowSpan = 2;
-                    Row12.cells[3].rowSpan = 2;
-                    Row12.cells[4].rowSpan = 2;
-
-                    Row12.deleteCell(6);
-                    Row12.deleteCell(7);
-
-                    Row12.cells[5].colSpan = 2;
-                    Row12.cells[6].colSpan = 2;
-
-                    Row22.deleteCell(4);
-                    Row22.deleteCell(4);
-
-                    Row12.cells[7].rowSpan = 2;
-                    Row12.cells[8].rowSpan = 2;
-                }
-            }
-        }
-    }
-
-    </script>--%>
-   
-    <table border="0" cellpadding="0" cellspacing="0" width="100%" style="padding-top:20px;">
-        <tr>
-            <td align="left">
-                <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
-                    <ContentTemplate>
-                        <ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%">
-                            <ajax:TabPanel ID="TabAlta" runat="server" HeaderText="Información del Cliente">
-                                <ContentTemplate>
-                                    <table border="0" class="contenido">
-                                        <tr>
-                                            <td>
-                                                <div>
-                                                    <fieldset>
-                                                        <legend><b>Datos del Cliente</b></legend>
-                                                        <table border="0">
-                                                            <tr>
-                                                                <td>Nombre:</td>
-                                                                <td>
-                                                                    <asp:TextBox ID="TxtNombre" runat="server" MaxLength="96" Width="400px"></asp:TextBox>
-                                                                    <asp:RequiredFieldValidator ID="RFVNombre" runat="server" ControlToValidate="TxtNombre" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre del Cliente''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                                    <ajax:ValidatorCallOutExtender ID="VCENombre" runat="server" HighlightCssClass="vco" TargetControlID="RFVNombre" Width="300px"></ajax:ValidatorCallOutExtender>
-                                                                </td>
-                                                            </tr>
-                                                            <tr>
-                                                                <td>Dirección:</td>
-                                                                <td>
-                                                                    <asp:TextBox ID="TxtDireccion" runat="server" MaxLength="90" Width="400px"></asp:TextBox>
-                                                                    <asp:RequiredFieldValidator ID="RFVDireccion" runat="server" ControlToValidate="TxtDireccion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Direccion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                                    <ajax:ValidatorCallOutExtender ID="VCEDireccion" runat="server" HighlightCssClass="vco" TargetControlID="RFVDireccion" Width="300px"></ajax:ValidatorCallOutExtender>
-                                                                </td>
-                                                            </tr>
-                                                            <tr>
-                                                                <td>No. Ext.</td>
-                                                                <td>
-                                                                    <table border="0" cellpadding="0" cellspacing="0">
-                                                                        <tr>
-                                                                            <td>
-                                                                                <asp:TextBox ID="TxtNoExt" runat="server" MaxLength="10" Width="40px"></asp:TextBox>
-                                                                            </td>
-                                                                            <td>&nbsp;No. Int.</td>
-                                                                            <td>
-                                                                                <asp:TextBox ID="TxtNoInt" runat="server" MaxLength="10" Width="40px"></asp:TextBox>
-                                                                            </td>
-                                                                        </tr>
-                                                                    </table>
-                                                                </td>
-                                                            </tr>
-                                                            <tr>
-                                                                <td>Colonia:</td>
-                                                                <td>
-                                                                    <asp:TextBox ID="TxtColonia" runat="server" MaxLength="50" Width="200px"></asp:TextBox>
-                                                                    <asp:RequiredFieldValidator ID="RFVColonia" runat="server" ControlToValidate="TxtColonia" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Colonia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                                    <ajax:ValidatorCallOutExtender ID="VCOColonia" runat="server" HighlightCssClass="vco" TargetControlID="RFVColonia" Width="300px"></ajax:ValidatorCallOutExtender>
-                                                                </td>
-                                                            </tr>
-                                                            <tr>
-                                                                <td>Localidad:</td>
-                                                                <td>
-                                                                    <asp:TextBox ID="TxtLocalidad" runat="server" MaxLength="50" Width="200px"></asp:TextBox>
-                                                                    <asp:RequiredFieldValidator ID="RFVLocalidad" runat="server" ControlToValidate="TxtLocalidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Localidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                                    <ajax:ValidatorCallOutExtender ID="VCOLocalidad" runat="server" HighlightCssClass="vco" TargetControlID="RFVLocalidad" Width="300px"></ajax:ValidatorCallOutExtender>
-                                                                </td>
-                                                            </tr>
-                                                            <tr>
-                                                                <td>Ciudad:</td>
-                                                                <td>
-                                                                    <asp:TextBox ID="TxtCiudad" runat="server" MaxLength="40" Width="200px"></asp:TextBox>
-                                                                    <asp:RequiredFieldValidator ID="RFVCiudad" runat="server" ControlToValidate="TxtCiudad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ciudad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                                    <ajax:ValidatorCallOutExtender ID="VCECiudad" runat="server" HighlightCssClass="vco" TargetControlID="RFVCiudad" Width="300px"></ajax:ValidatorCallOutExtender>
-                                                                </td>
-                                                            </tr>
-                                                            <tr>
-                                                                <td>Estado:</td>
-                                                                <td>
-                                                                    <asp:TextBox ID="TxtEstado" runat="server" MaxLength="25" Width="200px"></asp:TextBox>
-                                                                    <asp:RequiredFieldValidator ID="RFVEstado" runat="server" ControlToValidate="TxtEstado" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                                    <ajax:ValidatorCallOutExtender ID="VCEEstado" runat="server" HighlightCssClass="vco" TargetControlID="RFVEstado" Width="300px"></ajax:ValidatorCallOutExtender>
-                                                                </td>
-                                                            </tr>
-                                                            <tr>
-                                                                <td>RFC:</td>
-                                                                <td>
-                                                                    <asp:TextBox ID="TxtRFC" runat="server" MaxLength="13" Width="200px"></asp:TextBox>
-                                                                    <asp:RequiredFieldValidator ID="RFVRFC" runat="server" ControlToValidate="TxtRFC" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                                    <ajax:ValidatorCallOutExtender ID="VCERFC" runat="server" HighlightCssClass="vco" TargetControlID="RFVRFC" Width="300px"></ajax:ValidatorCallOutExtender>
-                                                                </td>
-                                                            </tr>
-                                                            <tr>
-                                                                <td>Código Postal:</td>
-                                                                <td>
-                                                                    <asp:TextBox ID="TxtCP" runat="server" MaxLength="5" Width="40px"></asp:TextBox>
-                                                                    <asp:CompareValidator ID="CVCP" runat="server" ControlToValidate="TxtCP" Display="None" ErrorMessage="El campo <b>''Codigo Postal''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Integer" ValidationGroup="GrpGuardar"></asp:CompareValidator>
-                                                                    <ajax:ValidatorCallOutExtender ID="VCOCP" runat="server" HighlightCssClass="vco" TargetControlID="CVCP" Width="300px"></ajax:ValidatorCallOutExtender>
-                                                                </td>
-                                                            </tr>
-                                                            <tr>
-                                                                <td>Teléfono:</td>
-                                                                <td><asp:TextBox ID="TxtTelefono" runat="server" MaxLength="15" Width="100px" ValidationGroup="GrpGuardar"></asp:TextBox></td>
-                                                            </tr>
-                                                            <tr>
-                                                                <td>Contacto:</td>
-                                                                <td><asp:TextBox ID="TxtContacto" runat="server" MaxLength="50" Width="200px"></asp:TextBox></td>
-                                                            </tr>
-                                                            <tr>
-                                                                <td>Email:</td>
-                                                                <td>
-                                                                    <asp:TextBox ID="TxtEmail" runat="server" MaxLength="50" Width="200px"></asp:TextBox>
-                                                                    <asp:RegularExpressionValidator ID="REVEmail" runat="server" ValidationExpression="\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*" ControlToValidate="TxtEmail" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Email''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardar"></asp:RegularExpressionValidator>
-                                                                    <ajax:ValidatorCallOutExtender ID="VCOMail" runat="server" HighlightCssClass="vco" TargetControlID="REVEmail" Width="300px"></ajax:ValidatorCallOutExtender>
-                                                                </td>
-                                                            </tr>
-                                                            <tr>
-                                                                <td>ConfirmarnContraseña de Acceso:</td>
-                                                                <td><asp:TextBox ID="TxtConfirmarContraseñaAcceso" runat="server" MaxLength="50" Width="200px"></asp:TextBox></td>
-                                                            </tr>
-                                                        </table>
-                                                    </fieldset>
-                                                </div>
-                                            </td>
-                                        </tr>
-                                    </table>
-                                </ContentTemplate>
-                            </ajax:TabPanel>
-                        </ajax:TabContainer>
-                     </ContentTemplate>
-                </asp:UpdatePanel>
-            </td>
-        </tr>
-        <tr>
-            <td align="center">
-                <asp:UpdatePanel ID="UpGuardar" runat="server" UpdateMode="Conditional">
-                    <ContentTemplate>
-                        <asp:Button ID="BtnGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" /> 
-                        <asp:Button ID="BtnEliminar" runat="server" Text="Eliminar" />
-                        <asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
-                        <asp:Button ID="BtnCancelar" runat="server" Text="Cancelar" OnClientClick="javascript:window.location.href='/Ventas/CatClientes.aspx'; return false;" />
-                    </ContentTemplate>
-                </asp:UpdatePanel>
-            </td>
-        </tr>
-    </table>
-    <div id ="DivMail" style="width:350px; background-color:White; border:solid 1px black;  color:Black; display:none; position:fixed; z-index: 1500">
-        <asp:UpdatePanel ID="UpSendMail" runat="server" UpdateMode="Conditional">
-            <ContentTemplate>
-                <asp:HiddenField ID="HdnCveVenta" runat="server" ClientIDMode="Static" Value="-1" />
-                <asp:HiddenField ID="HdnFolioVenta" runat="server" ClientIDMode="Static" Value="-1" />
-                <asp:HiddenField ID="HdnTipoDocto" runat="server" ClientIDMode="Static" Value="-1" />
-                <table border="1" rules="all" style="border-collapse: collapse; width: 350px">
-                    <tr align="left">
-                        <td width="150">Para:</td>
-                        <td width="200">
-                            <asp:TextBox ID="TxtParaMail" runat="server" ClientIDMode="Static" Width="194px" ReadOnly="true"></asp:TextBox>
-                            <asp:RegularExpressionValidator ID="REVParaMail" runat="server" Display="None" ValidationExpression="\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*" ControlToValidate="TxtParaMail" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Para (Mail)''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardar"></asp:RegularExpressionValidator>
-                            <ajax:ValidatorCallOutExtender ID="VCOParaMail" runat="server" HighlightCssClass="vco" TargetControlID="REVParaMail" Width="300px"></ajax:ValidatorCallOutExtender>
-                        </td>
-                    </tr>
-                    <tr align="left">
-                        <td>
-                            Con copia para:<br />
-                            (Separar con: ;)
-                        </td>
-                        <td><asp:TextBox ID="TxtCC" runat="server" TextMode="MultiLine" Columns="3" Rows="3" Width="194px"></asp:TextBox></td>
-                    </tr>
-                    <tr align="left">
-                        <td>Texto Adicional:</td>
-                        <td><asp:TextBox ID="TxtBody" runat="server" TextMode="MultiLine" Columns="3" Rows="3" Width="194px"></asp:TextBox></td>
-                    </tr>
-                    <tr>
-                        <td align="center" colspan="2"><asp:Button ID="BtnSendMail" runat="server" OnClientClick="javascript:$get('DivMail').style.display='none';" Text="Enviar" />&nbsp;<input type="button" value="Cancelar" onclick="javascript:$get('DivMail').style.display='none';" /></td>
-                    </tr>
-                </table>
-            </ContentTemplate>
-        </asp:UpdatePanel>
-    </div>
-    <div id ="DivAddPago" style="width:350px; background-color:White; border:solid 1px black;  color:Black; display:none; position:fixed; z-index: 1500">
-        <asp:UpdatePanel ID="UpdatePanel1" runat="server" UpdateMode="Conditional">
-            <ContentTemplate>
-                <asp:HiddenField ID="HdnCveVentaAbono" runat="server" ClientIDMode="Static" Value="-1" />
-                <table border="1" rules="all" style="border-collapse: collapse; width: 350px">
-                    <tr align="left">
-                        <td width="150">Cantidad:</td>
-                        <td width="200">
-                            <asp:TextBox ID="TxtCantidad" runat="server" ClientIDMode="Static" ValidationGroup="GpoGuardarAbonar" Width="80px"></asp:TextBox>
-                            <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="GpoGuardarAbonar"></asp:RequiredFieldValidator>
-                            <asp:CompareValidator ID="CVCantidadAbonar" runat="server" 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, por favor corrija." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GpoGuardarAbonar"></asp:CompareValidator>
-                            <ajax:ValidatorCallOutExtender ID="VCOCantidad" runat="server" HighlightCssClass="vco" TargetControlID="RFVCantidad" Width="300px"></ajax:ValidatorCallOutExtender>
-                            <ajax:ValidatorCallOutExtender ID="VCOCantidad2" runat="server" HighlightCssClass="vco" TargetControlID="CVCantidadAbonar" Width="300px"></ajax:ValidatorCallOutExtender>
-                        </td>
-                    </tr>
-                      
-                    <td><b>Fecha:</b>&nbsp;</td>
-                    <td>
-                        <asp:TextBox ID="TxtFechaPago" runat="server" BorderStyle="None" CausesValidation="true" MaxLength="10" ValidationGroup="GpoGuardarAbonar"></asp:TextBox>
-                        &nbsp;<asp:ImageButton runat="server" ID="ImgFechaPago" Visible="false" ImageUrl="/Imagenes/calendar.png" ImageAlign="AbsMiddle" Width="16px" Height="16px" AlternateText="Click para ver el Calendario" />
-                        <ajax:MaskedEditExtender ID="MEEFechaPago" runat="server" TargetControlID="TxtFechaPago" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                        <ajax:CalendarExtender runat="server" ID="CEFechaPago" TargetControlID="TxtFechaPago" PopupButtonID="ImgFechaPago" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                        <asp:RequiredFieldValidator ID="RFVFechaPago" runat="server" ControlToValidate="TxtFechaPago" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GpoGuardarAbonar"></asp:RequiredFieldValidator>
-                        <asp:CompareValidator ID="CVFechaPago" runat="server" ControlToValidate="TxtFechaPago" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GpoGuardarAbonar"></asp:CompareValidator>
-                        <ajax:ValidatorCalloutExtender ID="VCOFechaPago1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaPago" Width="350px"></ajax:ValidatorCalloutExtender>&nbsp;
-                        <ajax:ValidatorCalloutExtender ID="VCOFechaPago2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaPago" Width="350px"></ajax:ValidatorCalloutExtender>&nbsp;
-                    </td>
-                    <tr>
-                        <td>Referencia:</td>
-                        <td>
-                            <asp:TextBox ID="TxtReferencia" runat="server" ClientIDMode="Static" ValidationGroup="GpoGuardarAbonar" Width="80px"></asp:TextBox>
-                            <asp:RequiredFieldValidator ID="RFVReferencia" runat="server" ControlToValidate="TxtReferencia" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Referencia''</b> es necesario, por favor ingréselo." ValidationGroup="GpoGuardarAbonar"></asp:RequiredFieldValidator>
-                            <ajax:ValidatorCallOutExtender ID="VCOReferencia" runat="server" HighlightCssClass="vco" TargetControlID="RFVReferencia" Width="300px"></ajax:ValidatorCallOutExtender>
-                        </td>
-                    </tr>
-                    <tr>
-                        <td align="center" colspan="2"><asp:Button ID="BtnAbonar" runat="server" Text="Abonar" ValidationGroup="GpoGuardarAbonar" />&nbsp;<input type="button" value="Cancelar" onclick="javascript:$get('DivAddPago').style.display='none';" /></td>
-                    </tr>
-                </table>
-            </ContentTemplate>
-        </asp:UpdatePanel>
-    </div>
-    <br />
-    <asp:UpdateProgress ID="upProgress" runat="server" DisplayAfter="0">
-    <ProgressTemplate>
-        <div id="overlay">
-            <div id="modalprogress">
-                <div id="theprogress">
-                    <center>
-                        <table border="0" cellpadding="0" cellspacing="0">
-                            <tr>
-                                <td>La información se está procesando...</td>
-                            </tr>
-                            <tr>
-                                <td><img src="/Imagenes/Cargando.gif" style="border-width: 0px;" alt="" /></td>
-                            </tr>
-                        </table>
-                    </center>
-                </div>
-            </div>
-        </div>
-    </ProgressTemplate>
-</asp:UpdateProgress>
-</asp:Content>
-

PRESENTACIONES/Clientes2.aspx.vb.exclude

@@ -1,118 +0,0 @@
-Option Explicit On
-Option Strict On
-
-Imports Extensiones
-Imports System.Runtime.InteropServices
-Imports System.IO
-Imports System.Data
-
-Partial Class PRESENTACIONES_Clientes2
-	Inherits ClsPaginas
-
-	'Configuración
-	Private ReadOnly Property CveCliente As Integer
-		Get
-			Return ViewState("CveCliente").ToString.ToEntero
-		End Get
-	End Property
-
-	Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-		If Not IsPostBack Then
-
-			SetValues()
-			SetPermisos()
-
-			If Request("CveCliente") IsNot Nothing AndAlso IsNumeric(Request("CveCliente")) AndAlso Request("CveCliente").ToEntero > 0 Then
-				ViewState("CveCliente") = Request("CveCliente")
-				CargaDatos()
-				'Configuración de Modalidad Update
-				BtnGuardar.Text = "Guardar Cambios"
-				LtlTitulo.Text = "Consulta del Cliente:"
-				'ImgAddVenta
-				ImgAddVenta.Attributes.Add("OnClick", "window.location = '/Ventas/Ventas.aspx?CveCliente=" & CveCliente & "'")
-				If Request("Opt") IsNot Nothing AndAlso IsNumeric(Request("Opt")) Then TAB.ActiveTabIndex = Request("Opt").ToEntero
-			Else
-				'Configuración de Modalidad Insert
-				ViewState("CveCliente") = -1
-				BtnEliminar.Visible = False
-			End If
-
-		End If
-	End Sub
-
-	Private Sub SetValues()
-		ViewState("Orden") = ""
-		ViewState("OSucursalCliente") = "SucursalCliente DESC"
-		ViewState("OEstado") = "Estado DESC"
-		ViewState("OFecha") = "Fecha DESC"
-		ViewState("OUsuario") = "Usuario DESC"
-		TxtFechaPago.Text = Now.ToShortDateString
-	End Sub
-
-	Private Sub SetPermisos()
-
-	End Sub
-
-	Private Sub CargaDatos()
-		Dim ObjClientes As New ClsClientes()
-		If ObjClientes.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
-			If ObjClientes.DtResultados.Rows.Count > 0 Then
-				'Campos para Modificación
-				LtlCliente.Text = ObjClientes.Nombre
-				TxtNombre.Text = ObjClientes.Nombre
-				TxtDireccion.Text = ObjClientes.Direccion
-				TxtNoExt.Text = ObjClientes.NoExt
-				TxtNoInt.Text = ObjClientes.NoInt
-				TxtColonia.Text = ObjClientes.Colonia
-				TxtLocalidad.Text = ObjClientes.Localidad
-				TxtCiudad.Text = ObjClientes.Ciudad
-				TxtEstado.Text = ObjClientes.Estado
-				TxtRFC.Text = ObjClientes.RFC
-				TxtCP.Text = ObjClientes.CP.ToString
-				TxtTelefono.Text = ObjClientes.Telefono
-				TxtContacto.Text = ObjClientes.Contacto
-				TxtEmail.Text = ObjClientes.Mail
-				TxtParaMail.Text = ObjClientes.Mail
-			Else
-				Alert("El Cliente Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
-				BtnGuardar.Enabled = False
-			End If
-		End If
-		ObjClientes.Dispose()
-	End Sub
-	Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
-
-		Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
-		SendMail()
-
-	End Sub
-
-	'Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click
-	'	Dim ObjClientes As New ClsClientes()
-	'	If ObjClientes.RemoveCliente(CveCliente) Then
-	'		Alert("El Cliente se Eliminó correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Ventas/CatClientes.aspx""")
-	'	End If
-	'	ObjClientes.Dispose()
-	'End Sub
-
-	Protected Sub SendMail()
-		Dim ObjMail As New ClsSisMail()
-        If ObjMail.Mandacorreo(UsuarioActual.Empresa.SendMail, UsuarioActual.Empresa.SendMailPassword, "JULIAN@adsistemas.mx", "Acceso AIMMG", "Acceso a AIMMG <table><tr><td>ADSISTEMAS.NO-IP/PRESENTACIONES/LOGIN2.ASPX</td></tr><tr><td>" & TxtEmail.Text.Trim & ", " & TxtConfirmarContraseñaAcceso.Text.Trim & " </td></tr></table>") Then
-        End If
-	End Sub
-
-	'Protected Sub BtnAbonar_Click(sender As Object, e As System.EventArgs) Handles BtnAbonar.Click
-	'	Dim ObjMovtos As New ClsMovimientos()
-	'	If ObjMovtos.AddMovimiento(2, "Cli", CveCliente.ToString, HdnCveVentaAbono.Value, 0, TxtCantidad.Text.Trim.ToDouble, TxtFechaPago.Text.ToDate, TxtReferencia.Text.Trim, DdlCtaContableClientes.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-	'		Alert("El abono se guardó correctamente", TipoMensaje.MsgInformacion, "$get(""DivAddPago"").style.display=""none"";")
-
-	'		TxtCantidad.Text = ""
-	'		TxtReferencia.Text = ""
-	'		UpDatos.Update()
-	'	End If
-	'	ObjMovtos.Dispose()
-	'End Sub
-
-
-
-End Class

PRESENTACIONES/Clientes3.aspx.exclude

@@ -1,618 +0,0 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Clientes3.aspx.vb" Inherits="PRESENTACIONES_Clientes3" %>
-<asp:Content ID="Content1" ContentPlaceHolderID="H" Runat="Server">
-        <img id="ImgAddVenta" runat="server" alt="Registrar Nueva Venta" style="cursor: pointer;" src="/Imagenes/Nota.gif" width="20" height="25" />
-</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>
-</asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="C" Runat="Server">
-
-<script language="javascript" type="text/javascript">
-
-    function SetText(ObjFrom, ObjTo) {
-        ObjTo.innerText = ObjFrom.value;
-    }
-
-    function SetText2(ObjTo, Value) {
-        ObjTo.innerText = Value;
-    }
-
-    function getSelectedText(Obj, IfIsNull) {
-        if (Obj.selectedIndex == -1)
-            return IfIsNull;
-        else
-            return Obj.options[Obj.selectedIndex].text;
-    }
-
-    //this pageLoad will only works if you are using ASP.Net AJAX
-    //if you're not, you can use the other way.
-    function pageLoad() {
-        var grid = document.getElementById('<%=GvCxC.ClientID %>');
-        var grid2 = document.getElementById('<%=GvCxCHistorial.ClientID %>');
-
-        var firstRowHeaderClone = null;
-
-        if (grid && grid2 && grid.cells && grid2.cells) {
-            if (grid && grid.cells.length > 1) {
-                firstRowHeaderClone = grid.tBodies[0].rows[0].cloneNode(true);
-                grid.tBodies[0].insertBefore(firstRowHeaderClone, grid.tBodies[0].rows[0]);
-
-                var Row1 = grid.tBodies[0].rows[0];
-                var Row2 = grid.tBodies[0].rows[1];
-
-                if (Row1.cells.length > 1 && Row2.cells.length > 1) {
-                    Row2.deleteCell(0);
-                    Row2.deleteCell(0);
-                    Row2.deleteCell(0);
-                    Row2.deleteCell(0);
-                    Row2.deleteCell(0);
-
-                    Row1.cells[0].rowSpan = 2;
-                    Row1.cells[1].rowSpan = 2;
-                    Row1.cells[2].rowSpan = 2;
-                    Row1.cells[3].rowSpan = 2;
-                    Row1.cells[4].rowSpan = 2;
-
-                    Row1.deleteCell(6);
-                    Row1.deleteCell(7);
-
-                    Row1.cells[5].colSpan = 2;
-                    Row1.cells[6].colSpan = 2;
-
-
-                    Row2.deleteCell(4);
-                    Row2.deleteCell(4);
-
-
-                    Row1.cells[7].rowSpan = 2;
-                    Row1.cells[8].rowSpan = 2;
-                }
-            }
-
-            var firstRowHeaderClone2 = null;
-            if (grid2 && grid2.cells.length > 1) {
-                firstRowHeaderClone2 = grid2.tBodies[0].rows[0].cloneNode(true);
-                grid2.tBodies[0].insertBefore(firstRowHeaderClone2, grid2.tBodies[0].rows[0]);
-
-                var Row12 = grid2.tBodies[0].rows[0];
-                var Row22 = grid2.tBodies[0].rows[1];
-
-                if (Row12.cells.length > 1 && Row22.cells.length > 1) {
-                    Row22.deleteCell(0);
-                    Row22.deleteCell(0);
-                    Row22.deleteCell(0);
-                    Row22.deleteCell(0);
-                    Row22.deleteCell(0);
-
-                    Row12.cells[0].rowSpan = 2;
-                    Row12.cells[1].rowSpan = 2;
-                    Row12.cells[2].rowSpan = 2;
-                    Row12.cells[3].rowSpan = 2;
-                    Row12.cells[4].rowSpan = 2;
-
-                    Row12.deleteCell(6);
-                    Row12.deleteCell(7);
-
-                    Row12.cells[5].colSpan = 2;
-                    Row12.cells[6].colSpan = 2;
-
-                    Row22.deleteCell(4);
-                    Row22.deleteCell(4);
-
-                    Row12.cells[7].rowSpan = 2;
-                    Row12.cells[8].rowSpan = 2;
-                }
-            }
-        }
-    }
-
-    </script>
-   
-    <table border="0" cellpadding="0" cellspacing="0" width="100%" style="padding-top:20px;">
-        <tr>
-            <td align="left">
-                <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
-                    <ContentTemplate>
-                        <ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%">
-                            <ajax:TabPanel ID="TabAlta" runat="server" HeaderText="Información del Cliente">
-                                <ContentTemplate>
-                                    <table border="0" class="contenido">
-                                        <tr>
-                                            <td>
-                                                <div>
-                                                    <fieldset>
-                                                        <legend><b>Datos del Cliente</b></legend>
-                                                        <table border="0">
-                                                            <tr>
-                                                                <td>Nombre:</td>
-                                                                <td>
-                                                                    <asp:TextBox ID="TxtNombre" runat="server" MaxLength="96" Width="400px"></asp:TextBox>
-                                                                    <asp:RequiredFieldValidator ID="RFVNombre" runat="server" ControlToValidate="TxtNombre" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre del Cliente''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                                    <ajax:ValidatorCallOutExtender ID="VCENombre" runat="server" HighlightCssClass="vco" TargetControlID="RFVNombre" Width="300px"></ajax:ValidatorCallOutExtender>
-                                                                </td>
-                                                            </tr>
-                                                            <tr>
-                                                                <td>Dirección:</td>
-                                                                <td>
-                                                                    <asp:TextBox ID="TxtDireccion" runat="server" MaxLength="90" Width="400px"></asp:TextBox>
-                                                                    <asp:RequiredFieldValidator ID="RFVDireccion" runat="server" ControlToValidate="TxtDireccion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Direccion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                                    <ajax:ValidatorCallOutExtender ID="VCEDireccion" runat="server" HighlightCssClass="vco" TargetControlID="RFVDireccion" Width="300px"></ajax:ValidatorCallOutExtender>
-                                                                </td>
-                                                            </tr>
-                                                            <tr>
-                                                                <td>No. Ext.</td>
-                                                                <td>
-                                                                    <table border="0" cellpadding="0" cellspacing="0">
-                                                                        <tr>
-                                                                            <td>
-                                                                                <asp:TextBox ID="TxtNoExt" runat="server" MaxLength="10" Width="40px"></asp:TextBox>
-                                                                            </td>
-                                                                            <td>&nbsp;No. Int.</td>
-                                                                            <td>
-                                                                                <asp:TextBox ID="TxtNoInt" runat="server" MaxLength="10" Width="40px"></asp:TextBox>
-                                                                            </td>
-                                                                        </tr>
-                                                                    </table>
-                                                                </td>
-                                                            </tr>
-                                                            <tr>
-                                                                <td>Colonia:</td>
-                                                                <td>
-                                                                    <asp:TextBox ID="TxtColonia" runat="server" MaxLength="50" Width="200px"></asp:TextBox>
-                                                                    <asp:RequiredFieldValidator ID="RFVColonia" runat="server" ControlToValidate="TxtColonia" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Colonia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                                    <ajax:ValidatorCallOutExtender ID="VCOColonia" runat="server" HighlightCssClass="vco" TargetControlID="RFVColonia" Width="300px"></ajax:ValidatorCallOutExtender>
-                                                                </td>
-                                                            </tr>
-                                                            <tr>
-                                                                <td>Localidad:</td>
-                                                                <td>
-                                                                    <asp:TextBox ID="TxtLocalidad" runat="server" MaxLength="50" Width="200px"></asp:TextBox>
-                                                                    <asp:RequiredFieldValidator ID="RFVLocalidad" runat="server" ControlToValidate="TxtLocalidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Localidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                                    <ajax:ValidatorCallOutExtender ID="VCOLocalidad" runat="server" HighlightCssClass="vco" TargetControlID="RFVLocalidad" Width="300px"></ajax:ValidatorCallOutExtender>
-                                                                </td>
-                                                            </tr>
-                                                            <tr>
-                                                                <td>Ciudad:</td>
-                                                                <td>
-                                                                    <asp:TextBox ID="TxtCiudad" runat="server" MaxLength="40" Width="200px"></asp:TextBox>
-                                                                    <asp:RequiredFieldValidator ID="RFVCiudad" runat="server" ControlToValidate="TxtCiudad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ciudad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                                    <ajax:ValidatorCallOutExtender ID="VCECiudad" runat="server" HighlightCssClass="vco" TargetControlID="RFVCiudad" Width="300px"></ajax:ValidatorCallOutExtender>
-                                                                </td>
-                                                            </tr>
-                                                            <tr>
-                                                                <td>Estado:</td>
-                                                                <td>
-                                                                    <asp:TextBox ID="TxtEstado" runat="server" MaxLength="25" Width="200px"></asp:TextBox>
-                                                                    <asp:RequiredFieldValidator ID="RFVEstado" runat="server" ControlToValidate="TxtEstado" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                                    <ajax:ValidatorCallOutExtender ID="VCEEstado" runat="server" HighlightCssClass="vco" TargetControlID="RFVEstado" Width="300px"></ajax:ValidatorCallOutExtender>
-                                                                </td>
-                                                            </tr>
-                                                            <tr>
-                                                                <td>RFC:</td>
-                                                                <td>
-                                                                    <asp:TextBox ID="TxtRFC" runat="server" MaxLength="13" Width="200px"></asp:TextBox>
-                                                                    <asp:RequiredFieldValidator ID="RFVRFC" runat="server" ControlToValidate="TxtRFC" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                                    <ajax:ValidatorCallOutExtender ID="VCERFC" runat="server" HighlightCssClass="vco" TargetControlID="RFVRFC" Width="300px"></ajax:ValidatorCallOutExtender>
-                                                                </td>
-                                                            </tr>
-                                                            <tr>
-                                                                <td>Código Postal:</td>
-                                                                <td>
-                                                                    <asp:TextBox ID="TxtCP" runat="server" MaxLength="5" Width="40px"></asp:TextBox>
-                                                                    <asp:CompareValidator ID="CVCP" runat="server" ControlToValidate="TxtCP" Display="None" ErrorMessage="El campo <b>''Codigo Postal''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Integer" ValidationGroup="GrpGuardar"></asp:CompareValidator>
-                                                                    <ajax:ValidatorCallOutExtender ID="VCOCP" runat="server" HighlightCssClass="vco" TargetControlID="CVCP" Width="300px"></ajax:ValidatorCallOutExtender>
-                                                                </td>
-                                                            </tr>
-                                                            <tr>
-                                                                <td>Teléfono:</td>
-                                                                <td><asp:TextBox ID="TxtTelefono" runat="server" MaxLength="15" Width="100px" ValidationGroup="GrpGuardar"></asp:TextBox></td>
-                                                            </tr>
-                                                            <tr>
-                                                                <td>Contacto:</td>
-                                                                <td><asp:TextBox ID="TxtContacto" runat="server" MaxLength="50" Width="200px"></asp:TextBox></td>
-                                                            </tr>
-                                                            <tr>
-                                                                <td>Email:</td>
-                                                                <td>
-                                                                    <asp:TextBox ID="TxtEmail" runat="server" MaxLength="50" Width="200px"></asp:TextBox>
-                                                                    <asp:RegularExpressionValidator ID="REVEmail" runat="server" ValidationExpression="\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*" ControlToValidate="TxtEmail" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Email''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardar"></asp:RegularExpressionValidator>
-                                                                    <ajax:ValidatorCallOutExtender ID="VCOMail" runat="server" HighlightCssClass="vco" TargetControlID="REVEmail" Width="300px"></ajax:ValidatorCallOutExtender>
-                                                                </td>
-                                                            </tr>
-                                                            <tr>
-                                                                <td>ConfirmarnContraseña de Acceso:</td>
-                                                                <td><asp:TextBox ID="TxtConfirmarContraseñaAcceso" runat="server" MaxLength="50" Width="200px"></asp:TextBox></td>
-                                                            </tr>
-                                                        </table>
-                                                    </fieldset>
-                                                </div>
-                                            </td>
-                                        </tr>
-                                    </table>
-                                </ContentTemplate>
-                            </ajax:TabPanel>
-                            <ajax:TabPanel ID="TabHistorial" runat="server" HeaderText="Historial de Ventas">
-                                <ContentTemplate>
-                                    <table border="0" class="contenido">
-                                        <tr>
-                                            <td>
-                                                <div>
-                                                    <fieldset>
-                                                        <legend><b>Historial de Ventas</b></legend>
-                                                        <table border="0">
-                                                            <tr>
-                                                                <td>
-                                                                    <asp:UpdatePanel ID="UpnHistorial" runat="server" UpdateMode="Conditional">
-                                                                        <ContentTemplate>
-                                                                            <asp:GridView ID="GVHistorial" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas en el Cliente" ToolTip="Listado de Historial de Ventas">
-                                                                                <Columns>
-                                                                                    <asp:TemplateField>
-                                                                                        <HeaderTemplate>Factura</HeaderTemplate>
-                                                                                        <ItemTemplate>
-                                                                                            <asp:Literal ID="LtlFactura" runat="server"></asp:Literal>
-                                                                                        </ItemTemplate>
-                                                                                    </asp:TemplateField>
-                                                                                    <asp:TemplateField>
-                                                                                        <HeaderTemplate>Fecha</HeaderTemplate>
-                                                                                        <ItemTemplate>
-                                                                                            <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Literal>
-                                                                                        </ItemTemplate>
-                                                                                    </asp:TemplateField>
-                                                                                    <asp:TemplateField>
-                                                                                        <HeaderTemplate>Sub Total</HeaderTemplate>
-                                                                                        <ItemTemplate>
-                                                                                            <asp:Literal ID="LtlSubTotal" runat="server" Text='<%# If (CDbl(Eval("SubTotal")) = 0, "", Eval("SubTotal", "{0:N2}")) %>'></asp:Literal>
-                                                                                        </ItemTemplate>
-                                                                                    </asp:TemplateField>
-                                                                                    <asp:TemplateField>
-                                                                                        <HeaderTemplate>Descuento</HeaderTemplate>
-                                                                                        <ItemTemplate>
-                                                                                            <asp:Literal ID="LtlDescuento" runat="server" Text='<%# If (CDbl(Eval("Descuento")) = 0, "", Eval("Descuento", "{0:N2}")) %>'></asp:Literal>
-                                                                                        </ItemTemplate>
-                                                                                    </asp:TemplateField>
-                                                                                    <asp:TemplateField>
-                                                                                        <HeaderTemplate>Amortización</HeaderTemplate>
-                                                                                        <ItemTemplate>
-                                                                                            <asp:Literal ID="LtlAmort" runat="server" Text='<%# If (CDbl(Eval("Amortizacion")) = 0, "", Eval("Amortizacion", "{0:N2}")) %>'></asp:Literal>
-                                                                                        </ItemTemplate>
-                                                                                    </asp:TemplateField>
-                                                                                    <asp:TemplateField>
-                                                                                        <HeaderTemplate>Total</HeaderTemplate>
-                                                                                        <ItemTemplate>
-                                                                                            <asp:Literal ID="LtlTotal" runat="server" Text='<%# If (CDbl(Eval("Total")) = 0, "", Eval("Total", "{0:N2}")) %>'></asp:Literal>
-                                                                                        </ItemTemplate>
-                                                                                    </asp:TemplateField>
-                                                                                    <asp:TemplateField>
-                                                                                        <HeaderTemplate>Estatus</HeaderTemplate>
-                                                                                        <ItemTemplate>
-                                                                                            <asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("EstatusFactura") %>'></asp:Literal>
-                                                                                        </ItemTemplate>
-                                                                                    </asp:TemplateField>
-                                                                                    <asp:TemplateField>
-                                                                                        <HeaderTemplate>Se Timbró</HeaderTemplate>
-                                                                                        <ItemTemplate>
-                                                                                            <asp:Literal ID="LtlTimbro" runat="server" Text='<%# Eval("SeTimbro") %>'></asp:Literal>
-                                                                                        </ItemTemplate>
-                                                                                    </asp:TemplateField>
-                                                                                    <asp:TemplateField>
-                                                                                        <HeaderTemplate>Envío Mail</HeaderTemplate>
-                                                                                        <ItemTemplate>
-                                                                                            <asp:Literal ID="LtlEnvioMail" runat="server" Text='<%# Eval("EnvioMail") %>'></asp:Literal>
-                                                                                        </ItemTemplate>
-                                                                                    </asp:TemplateField>
-                                                                                    <asp:TemplateField>
-                                                                                        <HeaderTemplate>Reenviar</HeaderTemplate>
-                                                                                        <ItemTemplate>
-                                                                                            <a id="HLSendMail" runat="server" class="Texto"><img alt="Reenviar Mail" style="border: 0px none white" src="/Imagenes/SendMail.jpg" height="25px" width="30px" /></a>
-                                                                                        </ItemTemplate>
-                                                                                    </asp:TemplateField>
-                                                                                </Columns>
-                                                                                <RowStyle CssClass="Texto" />
-                                                                                <AlternatingRowStyle CssClass="TextoAlterno" />
-                                                                                <HeaderStyle CssClass="Titulos" />
-                                                                            </asp:GridView>
-                                                                        </ContentTemplate>
-                                                                    </asp:UpdatePanel>
-                                                                </td>
-                                                            </tr>
-                                                        </table>
-                                                    </fieldset>
-                                                </div>
-                                            </td>
-                                        </tr>
-                                    </table>
-                                </ContentTemplate>
-                            </ajax:TabPanel>
-                            <ajax:TabPanel ID="TabCxC" runat="server" HeaderText="Cuentas x Cobrar">
-                                <ContentTemplate>
-                                    <table border="0" class="contenido">
-                                        <tr>
-                                            <td>&nbsp;</td>
-                                        </tr>
-                                        <tr>
-                                            <td>
-                                                <div>
-                                                    <fieldset>
-                                                        <legend><b>CxC Activas</b></legend>
-                                                        <table border="0">
-                                                            <tr>
-                                                                <td>
-                                                                     <asp:GridView ID="GvCxC" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas X Cobrar Pendientes" ToolTip="Listado de CxC">
-                                                                        <Columns>
-                                                                            <asp:TemplateField>
-                                                                                <HeaderTemplate>Factura</HeaderTemplate>
-                                                                                <ItemTemplate>
-                                                                                    <asp:Literal ID="LtlFactura" runat="server"></asp:Literal>
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>
-                                                                            <asp:TemplateField>
-                                                                                <HeaderTemplate>Fecha Venta</HeaderTemplate>
-                                                                                <ItemTemplate>
-                                                                                    <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Literal>
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>
-                                                                            <asp:TemplateField>
-                                                                                <HeaderTemplate>Fecha Vencimiento</HeaderTemplate>
-                                                                                <ItemTemplate>
-                                                                                    <asp:Literal ID="LtlFechaVenci" runat="server" Text='<%# Eval("FechaVencimiento", "{0:d}") %>'></asp:Literal>
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>
-                                                                            <asp:TemplateField>
-                                                                                <HeaderTemplate>Días Vencidos</HeaderTemplate>
-                                                                                <ItemTemplate>
-                                                                                    <asp:Literal ID="LtlDiasVencido" runat="server" Text='<%# Eval("DiasVencidos", "{0}") %>'></asp:Literal>&nbsp;
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>
-                                                                            <asp:TemplateField>
-                                                                                <HeaderTemplate>Monto Venta (Saldo Orig)</HeaderTemplate>
-                                                                                <ItemTemplate>
-                                                                                    <asp:Literal ID="LtlSaldoOriginal" runat="server" Text='<%# Eval("Original", "{0:N2}") %>'></asp:Literal>&nbsp;
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>
-                                                                            <asp:TemplateField>
-                                                                                <HeaderTemplate>Abonado</HeaderTemplate>
-                                                                                <ItemTemplate>
-                                                                                    <asp:Literal ID="LtlAbonado" runat="server" Text='<%# Eval("Abonado", "{0:N2}") %>'></asp:Literal>&nbsp;
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>
-                                                                            <asp:TemplateField>
-                                                                                <HeaderTemplate>% Recuperado</HeaderTemplate>
-                                                                                <ItemTemplate>
-                                                                                    <asp:Literal ID="LtlPorRecuperado" runat="server" Text='<%# Eval("PorRecuperado", "{0:N2}%") %>'></asp:Literal>&nbsp;
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>
-                                                                            <asp:TemplateField>
-                                                                                <HeaderTemplate>Saldo</HeaderTemplate>
-                                                                                <ItemTemplate>
-                                                                                    <asp:Literal ID="LtlSaldo" runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Literal>&nbsp;
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>
-                                                                            <asp:TemplateField>
-                                                                                <HeaderTemplate>% A Recuperar</HeaderTemplate>
-                                                                                <ItemTemplate>
-                                                                                    <asp:Literal ID="LtlPorXRecuperar" runat="server" Text='<%# Eval("PorXRecuperar", "{0:N2}%") %>'></asp:Literal>&nbsp;
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>
-                                                                            <asp:TemplateField>
-                                                                                <HeaderTemplate>Auxiliar</HeaderTemplate>
-                                                                                <ItemTemplate>
-                                                                                    <asp:Literal ID="LtlAux" runat="server"></asp:Literal>
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>
-                                                                            <asp:TemplateField>
-                                                                                <HeaderTemplate>Abonar</HeaderTemplate>
-                                                                                <ItemTemplate>
-                                                                                    <asp:Image ID="ImgAbonar" runat="server" ImageUrl="~/Imagenes/Money_add.png" AlternateText="Registrar Pago/Abono" Style="cursor:pointer;" />
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>
-                                                                        </Columns>
-                                                                        <RowStyle CssClass="Texto" />
-                                                                        <AlternatingRowStyle CssClass="TextoAlterno" />
-                                                                        <HeaderStyle CssClass="Titulos" />
-                                                                    </asp:GridView>
-                                                                </td>
-                                                            </tr>
-                                                        </table>
-                                                    </fieldset>
-                                                </div>
-                                            </td>
-                                        </tr>
-                                        <tr>
-                                            <td>&nbsp;</td>
-                                        </tr>
-                                        <tr>
-                                            <td>
-                                                <div>
-                                                    <fieldset>
-                                                        <legend><b>Historial de CxC</b></legend>
-                                                        <table border="0">
-                                                            <tr>
-                                                                <td>
-                                                                     <asp:GridView ID="GvCxCHistorial" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró Historial de Cuentas X Cobrar" ToolTip="Listado de Historia CxC">
-                                                                        <Columns>
-                                                                            <asp:TemplateField>
-                                                                                <HeaderTemplate>Factura</HeaderTemplate>
-                                                                                <ItemTemplate>
-                                                                                    <asp:Literal ID="LtlFactura" runat="server"></asp:Literal>
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>
-                                                                            <asp:TemplateField>
-                                                                                <HeaderTemplate>Fecha Venta</HeaderTemplate>
-                                                                                <ItemTemplate>
-                                                                                    <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Literal>
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>
-                                                                            <asp:TemplateField>
-                                                                                <HeaderTemplate>Fecha Vencimiento</HeaderTemplate>
-                                                                                <ItemTemplate>
-                                                                                    <asp:Literal ID="LtlFechaVenci" runat="server" Text='<%# Eval("FechaVencimiento", "{0:d}") %>'></asp:Literal>
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>
-                                                                            <asp:TemplateField>
-                                                                                <HeaderTemplate>Días Vencidos</HeaderTemplate>
-                                                                                <ItemTemplate>
-                                                                                    <asp:Literal ID="LtlDiasVencido" runat="server" Text='<%# Eval("DiasVencidos", "{0}") %>'></asp:Literal>&nbsp;
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>
-                                                                            <asp:TemplateField>
-                                                                                <HeaderTemplate>Monto Venta (Saldo Orig)</HeaderTemplate>
-                                                                                <ItemTemplate>
-                                                                                    <asp:Literal ID="LtlSaldoOriginal" runat="server" Text='<%# Eval("Original", "{0:N2}") %>'></asp:Literal>&nbsp;
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>
-                                                                            <asp:TemplateField>
-                                                                                <HeaderTemplate>Abonado</HeaderTemplate>
-                                                                                <ItemTemplate>
-                                                                                    <asp:Literal ID="LtlAbonado" runat="server" Text='<%# Eval("Abonado", "{0:N2}") %>'></asp:Literal>&nbsp;
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>
-                                                                            <asp:TemplateField>
-                                                                                <HeaderTemplate>% Recuperado</HeaderTemplate>
-                                                                                <ItemTemplate>
-                                                                                    <asp:Literal ID="LtlPorRecuperado" runat="server" Text='<%# Eval("PorRecuperado", "{0:N2}%") %>'></asp:Literal>&nbsp;
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>
-                                                                            <asp:TemplateField>
-                                                                                <HeaderTemplate>Saldo</HeaderTemplate>
-                                                                                <ItemTemplate>
-                                                                                    <asp:Literal ID="LtlSaldo" runat="server" Text='<%# Eval("Saldo", "{0:N2};") %>'></asp:Literal>&nbsp
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>
-                                                                            <asp:TemplateField>
-                                                                                <HeaderTemplate>% A Recuperar</HeaderTemplate>
-                                                                                <ItemTemplate>
-                                                                                    <asp:Literal ID="LtlPorXRecuperar" runat="server" Text='<%# Eval("PorXRecuperar", "{0:N2}%") %>'></asp:Literal>&nbsp;
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>
-                                                                            <asp:TemplateField>
-                                                                                <HeaderTemplate>Auxiliar</HeaderTemplate>
-                                                                                <ItemTemplate>
-                                                                                    <asp:Literal ID="LtlAux" runat="server"></asp:Literal>
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>
-                                                                            <asp:TemplateField>
-                                                                                <HeaderTemplate>Abonar</HeaderTemplate>
-                                                                                <ItemTemplate>
-                                                                                    <asp:Image ID="ImgAbonar" runat="server" ImageUrl="~/Imagenes/Money_add.png" AlternateText="Registrar Pago/Abono" Style="cursor:pointer;" />
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>
-                                                                        </Columns>
-                                                                        <RowStyle CssClass="Texto" />
-                                                                        <AlternatingRowStyle CssClass="TextoAlterno" />
-                                                                        <HeaderStyle CssClass="Titulos" />
-                                                                    </asp:GridView>
-                                                                </td>
-                                                            </tr>
-                                                        </table>
-                                                    </fieldset>
-                                                </div>
-                                            </td>
-                                        </tr>
-                                    </table>
-                                </ContentTemplate>
-                            </ajax:TabPanel>
-                        </ajax:TabContainer>
-                     </ContentTemplate>
-                </asp:UpdatePanel>
-            </td>
-        </tr>
-       
-    </table>
-    <div id ="DivMail" style="width:350px; background-color:White; border:solid 1px black;  color:Black; display:none; position:fixed; z-index: 1500">
-        <asp:UpdatePanel ID="UpSendMail" runat="server" UpdateMode="Conditional">
-            <ContentTemplate>
-                <asp:HiddenField ID="HdnCveVenta" runat="server" ClientIDMode="Static" Value="-1" />
-                <asp:HiddenField ID="HdnFolioVenta" runat="server" ClientIDMode="Static" Value="-1" />
-                <asp:HiddenField ID="HdnTipoDocto" runat="server" ClientIDMode="Static" Value="-1" />
-                <table border="1" rules="all" style="border-collapse: collapse; width: 350px">
-                    <tr align="left">
-                        <td width="150">Para:</td>
-                        <td width="200">
-                            <asp:TextBox ID="TxtParaMail" runat="server" ClientIDMode="Static" Width="194px" ReadOnly="true"></asp:TextBox>
-                            <asp:RegularExpressionValidator ID="REVParaMail" runat="server" Display="None" ValidationExpression="\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*" ControlToValidate="TxtParaMail" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Para (Mail)''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardar"></asp:RegularExpressionValidator>
-                            <ajax:ValidatorCallOutExtender ID="VCOParaMail" runat="server" HighlightCssClass="vco" TargetControlID="REVParaMail" Width="300px"></ajax:ValidatorCallOutExtender>
-                        </td>
-                    </tr>
-                    <tr align="left">
-                        <td>
-                            Con copia para:<br />
-                            (Separar con: ;)
-                        </td>
-                        <td><asp:TextBox ID="TxtCC" runat="server" TextMode="MultiLine" Columns="3" Rows="3" Width="194px"></asp:TextBox></td>
-                    </tr>
-                    <tr align="left">
-                        <td>Texto Adicional:</td>
-                        <td><asp:TextBox ID="TxtBody" runat="server" TextMode="MultiLine" Columns="3" Rows="3" Width="194px"></asp:TextBox></td>
-                    </tr>
-                    <tr>
-                        <td align="center" colspan="2"><asp:Button ID="BtnSendMail" runat="server" OnClientClick="javascript:$get('DivMail').style.display='none';" Text="Enviar" />&nbsp;<input type="button" value="Cancelar" onclick="javascript:$get('DivMail').style.display='none';" /></td>
-                    </tr>
-                </table>
-            </ContentTemplate>
-        </asp:UpdatePanel>
-    </div>
-    <div id ="DivAddPago" style="width:350px; background-color:White; border:solid 1px black;  color:Black; display:none; position:fixed; z-index: 1500">
-        <asp:UpdatePanel ID="UpdatePanel1" runat="server" UpdateMode="Conditional">
-            <ContentTemplate>
-                <asp:HiddenField ID="HdnCveVentaAbono" runat="server" ClientIDMode="Static" Value="-1" />
-                <table border="1" rules="all" style="border-collapse: collapse; width: 350px">
-                    <tr align="left">
-                        <td width="150">Cantidad:</td>
-                        <td width="200">
-                            <asp:TextBox ID="TxtCantidad" runat="server" ClientIDMode="Static" ValidationGroup="GpoGuardarAbonar" Width="80px"></asp:TextBox>
-                            <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="GpoGuardarAbonar"></asp:RequiredFieldValidator>
-                            <asp:CompareValidator ID="CVCantidadAbonar" runat="server" 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, por favor corrija." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GpoGuardarAbonar"></asp:CompareValidator>
-                            <ajax:ValidatorCallOutExtender ID="VCOCantidad" runat="server" HighlightCssClass="vco" TargetControlID="RFVCantidad" Width="300px"></ajax:ValidatorCallOutExtender>
-                            <ajax:ValidatorCallOutExtender ID="VCOCantidad2" runat="server" HighlightCssClass="vco" TargetControlID="CVCantidadAbonar" Width="300px"></ajax:ValidatorCallOutExtender>
-                        </td>
-                    </tr>
-                      
-                    <td><b>Fecha:</b>&nbsp;</td>
-                    <td>
-                        <asp:TextBox ID="TxtFechaPago" runat="server" BorderStyle="None" CausesValidation="true" MaxLength="10" ValidationGroup="GpoGuardarAbonar"></asp:TextBox>
-                        &nbsp;<asp:ImageButton runat="server" ID="ImgFechaPago" Visible="false" ImageUrl="/Imagenes/calendar.png" ImageAlign="AbsMiddle" Width="16px" Height="16px" AlternateText="Click para ver el Calendario" />
-                        <ajax:MaskedEditExtender ID="MEEFechaPago" runat="server" TargetControlID="TxtFechaPago" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                        <ajax:CalendarExtender runat="server" ID="CEFechaPago" TargetControlID="TxtFechaPago" PopupButtonID="ImgFechaPago" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                        <asp:RequiredFieldValidator ID="RFVFechaPago" runat="server" ControlToValidate="TxtFechaPago" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GpoGuardarAbonar"></asp:RequiredFieldValidator>
-                        <asp:CompareValidator ID="CVFechaPago" runat="server" ControlToValidate="TxtFechaPago" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GpoGuardarAbonar"></asp:CompareValidator>
-                        <ajax:ValidatorCalloutExtender ID="VCOFechaPago1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaPago" Width="350px"></ajax:ValidatorCalloutExtender>&nbsp;
-                        <ajax:ValidatorCalloutExtender ID="VCOFechaPago2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaPago" Width="350px"></ajax:ValidatorCalloutExtender>&nbsp;
-                    </td>
-                    <tr>
-                        <td>Referencia:</td>
-                        <td>
-                            <asp:TextBox ID="TxtReferencia" runat="server" ClientIDMode="Static" ValidationGroup="GpoGuardarAbonar" Width="80px"></asp:TextBox>
-                            <asp:RequiredFieldValidator ID="RFVReferencia" runat="server" ControlToValidate="TxtReferencia" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Referencia''</b> es necesario, por favor ingréselo." ValidationGroup="GpoGuardarAbonar"></asp:RequiredFieldValidator>
-                            <ajax:ValidatorCallOutExtender ID="VCOReferencia" runat="server" HighlightCssClass="vco" TargetControlID="RFVReferencia" Width="300px"></ajax:ValidatorCallOutExtender>
-                        </td>
-                    </tr>
-                    <tr>
-                        <td align="center" colspan="2"><asp:Button ID="BtnAbonar" runat="server" Text="Abonar" ValidationGroup="GpoGuardarAbonar" />&nbsp;<input type="button" value="Cancelar" onclick="javascript:$get('DivAddPago').style.display='none';" /></td>
-                    </tr>
-                </table>
-            </ContentTemplate>
-        </asp:UpdatePanel>
-    </div>
-    <br />
-    <asp:UpdateProgress ID="upProgress" runat="server" DisplayAfter="0">
-    <ProgressTemplate>
-        <div id="overlay">
-            <div id="modalprogress">
-                <div id="theprogress">
-                    <center>
-                        <table border="0" cellpadding="0" cellspacing="0">
-                            <tr>
-                                <td>La información se está procesando...</td>
-                            </tr>
-                            <tr>
-                                <td><img src="/Imagenes/Cargando.gif" style="border-width: 0px;" alt="" /></td>
-                            </tr>
-                        </table>
-                    </center>
-                </div>
-            </div>
-        </div>
-    </ProgressTemplate>
-</asp:UpdateProgress>
-</asp:Content>
-

PRESENTACIONES/Clientes3.aspx.vb.exclude

@@ -1,314 +0,0 @@
-Option Explicit On
-Option Strict On
-
-Imports Extensiones
-Imports System.Runtime.InteropServices
-Imports System.IO
-Imports System.Data
-
-Partial Class PRESENTACIONES_Clientes3
-	Inherits ClsPaginas
-
-	'Configuración
-	Private ReadOnly Property CveCliente As Integer
-		Get
-			Return ViewState("CveCliente").ToString.ToEntero
-		End Get
-	End Property
-
-	Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-		If Not IsPostBack Then
-
-			SetValues()
-			SetPermisos()
-
-			If Request("CveCliente") IsNot Nothing AndAlso IsNumeric(Request("CveCliente")) AndAlso Request("CveCliente").ToEntero > 0 Then
-				ViewState("CveCliente") = Request("CveCliente")
-				CargaDatos()
-				CargaHistorial()
-				CargaCxC()
-				'Configuración de Modalidad Update
-				LtlTitulo.Text = "Consulta del Cliente:"
-				'ImgAddVenta
-				ImgAddVenta.Attributes.Add("OnClick", "window.location = '/Ventas/Ventas.aspx?CveCliente=" & CveCliente & "'")
-				If Request("Opt") IsNot Nothing AndAlso IsNumeric(Request("Opt")) Then Tab.ActiveTabIndex = Request("Opt").ToEntero
-			Else
-				'Configuración de Modalidad Insert
-				ViewState("CveCliente") = -1
-			End If
-
-		End If
-	End Sub
-
-	Private Sub SetValues()
-		ViewState("Orden") = ""
-		ViewState("OSucursalCliente") = "SucursalCliente DESC"
-		ViewState("OEstado") = "Estado DESC"
-		ViewState("OFecha") = "Fecha DESC"
-		ViewState("OUsuario") = "Usuario DESC"
-		TxtFechaPago.Text = Now.ToShortDateString
-	End Sub
-
-	Private Sub SetPermisos()
-
-	End Sub
-
-
-	Private Sub CargaDatos()
-		Dim ObjClientes As New ClsClientes()
-		If ObjClientes.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
-			If ObjClientes.DtResultados.Rows.Count > 0 Then
-				'Campos para Modificación
-				LtlCliente.Text = ObjClientes.Nombre
-				TxtNombre.Text = ObjClientes.Nombre
-				TxtDireccion.Text = ObjClientes.Direccion
-				TxtNoExt.Text = ObjClientes.NoExt
-				TxtNoInt.Text = ObjClientes.NoInt
-				TxtColonia.Text = ObjClientes.Colonia
-				TxtLocalidad.Text = ObjClientes.Localidad
-				TxtCiudad.Text = ObjClientes.Ciudad
-				TxtEstado.Text = ObjClientes.Estado
-				TxtRFC.Text = ObjClientes.RFC
-				TxtCP.Text = ObjClientes.CP.ToString
-				TxtTelefono.Text = ObjClientes.Telefono
-				TxtContacto.Text = ObjClientes.Contacto
-				TxtEmail.Text = ObjClientes.Mail
-			Else
-				Alert("El Cliente Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
-			End If
-		End If
-		ObjClientes.Dispose()
-	End Sub
-
-	
-
-	Private Sub CargaHistorial()
-		Dim ObjClientes As New ClsClientes()
-		If ObjClientes.GetHistorialVentas(CveCliente) Then
-			If ObjClientes.DtResultados.Rows.Count > 0 Then
-				'Carga Generales
-				'Carga Grid
-				GVHistorial.DataSource = ObjClientes.DtResultados
-			Else
-				GVHistorial.DataSource = Nothing
-			End If
-		Else
-			GVHistorial.DataSource = Nothing
-		End If
-		ObjClientes.Dispose()
-		GVHistorial.DataBind()
-	End Sub
-
-	Private Sub CargaCxC()
-		Dim ObjMovtos As New ClsMovimientos()
-		'CxC Activas
-		If ObjMovtos.GetCxCCliente(CveCliente) Then
-			GvCxC.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'")
-			GvCxCHistorial.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'")
-		Else
-			GvCxC.DataSource = Nothing
-			GvCxCHistorial.DataSource = Nothing
-		End If
-
-		ObjMovtos.Dispose()
-		GvCxC.DataBind()
-		GvCxCHistorial.DataBind()
-	End Sub
-
-	
-
-	Protected Sub GVHistorial_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVHistorial.RowDataBound
-		If e.Row.RowType = DataControlRowType.DataRow Then
-			If e.Row.RowIndex = 0 Then
-				e.Row.BackColor = Drawing.Color.LightGray
-				DirectCast(e.Row.FindControl("HLSendMail"), HtmlAnchor).Visible = False
-			End If
-
-			Dim Liga As String = String.Format("<a class=""Texto"" href=""/Ventas/Ventas.aspx?CveVenta={0}"">", e.Row.DBCampo("CveVenta"))
-			e.Row.FCLiteral("LtlFactura").Text = Liga & e.Row.DBCampo("Folio") & "</a>"
-
-			e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Right
-			e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Right
-			e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right
-			e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
-			DirectCast(e.Row.FindControl("HLSendMail"), HtmlAnchor).HRef = "javascript:$get('HdnTipoDocto').value='Fact';$get('HdnCveVenta').value='" & e.Row.DBCampo("CveVenta") & "';$get('HdnFolioVenta').value='" & e.Row.DBCampo("folio") & "';$('#DivMail').show(1000);PosicionaObjeto('" & DirectCast(e.Row.FindControl("HLSendMail"), HtmlAnchor).ClientID & "', 'DivMail');"
-
-		End If
-	End Sub
-
-	Protected Sub GvCxC_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxC.RowDataBound, GvCxCHistorial.RowDataBound
-		If e.Row.RowType = DataControlRowType.DataRow Then
-			If e.Row.RowIndex = 0 Then
-				e.Row.Cells(0).ColumnSpan = 4
-				e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right
-				e.Row.FCLiteral("LtlFactura").Text = "Total" & "&nbsp;"
-				e.Row.Cells(1).Visible = False
-				e.Row.Cells(2).Visible = False
-				e.Row.Cells(3).Visible = False
-				e.Row.Cells(9).ColumnSpan = 2
-				e.Row.Cells(10).Visible = False
-				e.Row.BackColor = Drawing.Color.LightGray
-				e.Row.FCImage("ImgAbonar").Visible = False
-			End If
-			If e.Row.RowIndex = 1 Then
-				e.Row.Cells(0).Width = Unit.Pixel(60)
-				e.Row.Cells(1).Width = Unit.Pixel(70)
-				e.Row.Cells(2).Width = Unit.Pixel(80)
-				e.Row.Cells(3).Width = Unit.Pixel(80)
-				e.Row.Cells(4).Width = Unit.Pixel(90)
-				e.Row.Cells(5).Width = Unit.Pixel(90)
-				e.Row.Cells(6).Width = Unit.Pixel(105)
-				e.Row.Cells(7).Width = Unit.Pixel(90)
-				e.Row.Cells(8).Width = Unit.Pixel(105)
-				e.Row.Cells(9).Width = Unit.Pixel(70)
-				e.Row.Cells(10).Width = Unit.Pixel(70)
-			End If
-
-			e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right
-			e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
-			e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
-			e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right
-			e.Row.Cells(8).HorizontalAlign = HorizontalAlign.Right
-
-			If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(5).ForeColor = Drawing.Color.Red
-			If e.Row.DBCampo("DiasVencidos").ToDouble > 0 AndAlso CType(sender, GridView).ID = "GvCxC" Then e.Row.Cells(3).ForeColor = Drawing.Color.Red
-			If e.Row.DBCampo("Original").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldoOriginal"), Literal).Text = ""
-			If e.Row.DBCampo("Abonado").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlAbonado"), Literal).Text = ""
-			If e.Row.DBCampo("PorRecuperado").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlPorRecuperado"), Literal).Text = ""
-			If e.Row.DBCampo("Saldo").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldo"), Literal).Text = ""
-			If e.Row.DBCampo("PorXRecuperar").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlPorXRecuperar"), Literal).Text = ""
-
-			If e.Row.DBCampo("Folio") = "N/D" Then
-				e.Row.FCLiteral("LtlFactura").Text = e.Row.DBCampo("Folio")
-			Else
-				Dim Liga As String = String.Format("<a class=""Texto"" href=""/Ventas/Ventas.aspx?CveVenta={0}"">", e.Row.DBCampo("CveVenta"))
-				e.Row.FCLiteral("LtlFactura").Text = Liga & e.Row.DBCampo("Folio") & "</a>"
-
-			End If
-			If e.Row.RowIndex > 0 Then e.Row.FCLiteral("LtlAux").Text = "<a class=""Texto thickbox"" href=""/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente=" & CveCliente & "&CveVenta=" & e.Row.DBCampo("CveVenta") & "&TB_iframe=true&height=370&width=900"" />Ir</a>"
-			DirectCast(e.Row.FindControl("ImgAbonar"), Image).Attributes.Add("onclick", "$get('HdnCveVenta').value='" & e.Row.DBCampo("CveVenta") & "';$get('HdnCveVentaAbono').value='" & e.Row.DBCampo("CveVenta") & "';$('#DivAddPago').show(1000);PosicionaObjeto('" & DirectCast(e.Row.FindControl("ImgAbonar"), Image).ClientID & "', 'DivAddPago');")
-
-			If CType(sender, GridView).ID = "GvCxCHistorial" Then
-				DirectCast(e.Row.FindControl("ImgAbonar"), Image).Visible = False
-				DirectCast(e.Row.FindControl("LtlDiasVencido"), Literal).Text = ""
-			Else
-				e.Row.Cells(7).Font.Bold = True
-				e.Row.Cells(8).Font.Bold = True
-			End If
-		End If
-	End Sub
-
-	
-
-	Protected Sub BtnSendMail_Click(sender As Object, e As System.EventArgs) Handles BtnSendMail.Click
-		Try
-
-			If HdnCveVenta.Value <> "-1" AndAlso HdnFolioVenta.Value <> "-1" Then
-                'Dim ObjEmprea As New ClsEmpresas()
-                'If ObjEmprea.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
-                Dim ObjMail As New ClsSisMail()
-                Dim Ruta As String = AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\"
-
-                If UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso HdnTipoDocto.Value = "Fact" Then
-                    If File.Exists(Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf") AndAlso File.Exists(Ruta & "XML\" & HdnFolioVenta.Value & ".xml") Then
-                        Dim PDF As String = Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf"
-                        Dim XML As String = Ruta & "XML\" & HdnFolioVenta.Value & ".xml"
-                        Dim ArrayCC() As String = TxtCC.Text.Trim.Split(Convert.ToChar(";"))
-
-                        Dim ResultadoMail As Integer = 0
-                        If ObjMail.Mandacorreo(UsuarioActual.Empresa.SendMail, UsuarioActual.Empresa.SendMailPassword, TxtParaMail.Text.Trim, "Entrega de Factura", PDF, XML, ArrayCC, TxtBody.Text.Trim) Then
-                            ResultadoMail = 1
-                            TxtCC.Text = ""
-                            TxtBody.Text = ""
-                            Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
-                            CargaHistorial()
-                            UpnHistorial.Update()
-                        Else
-                            ResultadoMail = 3
-                        End If
-
-                        Dim ObjVentas As New ClsVentas
-                        ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta.Value.ToEntero)
-                        ObjVentas.Dispose()
-                    Else
-                        Alert("No se pudo adjuntar el correo electrónica.", TipoMensaje.MsgAdvertencia)
-                    End If
-                ElseIf UsuarioActual.Empresa.TipoFacturacion = "CBB" AndAlso HdnTipoDocto.Value = "Fact" Then
-                    If File.Exists(Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf") Then
-                        Dim PDF As String = Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf"
-                        Dim ArrayCC() As String = TxtCC.Text.Trim.Split(Convert.ToChar(";"))
-
-                        Dim ResultadoMail As Integer = 0
-                        If ObjMail.Mandacorreo(UsuarioActual.Empresa.SendMail, UsuarioActual.Empresa.SendMailPassword, TxtParaMail.Text.Trim, "Entrega de Factura", PDF, "", ArrayCC, TxtBody.Text.Trim) Then
-                            ResultadoMail = 1
-                            TxtCC.Text = ""
-                            TxtBody.Text = ""
-                            Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
-                            CargaHistorial()
-                            UpnHistorial.Update()
-                        Else
-                            ResultadoMail = 3
-                        End If
-
-                        Dim ObjVentas As New ClsVentas
-                        ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta.Value.ToEntero)
-                        ObjVentas.Dispose()
-                    Else
-                        Alert("No se pudo adjuntar el correo electrónica.", TipoMensaje.MsgAdvertencia)
-                    End If
-                ElseIf HdnTipoDocto.Value = "Cot" Then
-                    If File.Exists(Ruta & "PDF\Cotizacion_" & HdnFolioVenta.Value & ".pdf") Then
-                        Dim PDF As String = Ruta & "PDF\Cotizacion_" & HdnFolioVenta.Value & ".pdf"
-                        Dim ArrayCC() As String = TxtCC.Text.Trim.Split(Convert.ToChar(";"))
-
-                        Dim ResultadoMail As Integer = 0
-                        If ObjMail.Mandacorreo(UsuarioActual.Empresa.SendMail, UsuarioActual.Empresa.SendMailPassword, TxtParaMail.Text.Trim, "Entrega de Cotización", PDF, "", ArrayCC, TxtBody.Text.Trim) Then
-                            ResultadoMail = 1
-                            TxtCC.Text = ""
-                            TxtBody.Text = ""
-                            Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
-                            CargaHistorial()
-                            UpnHistorial.Update()
-                        Else
-                            ResultadoMail = 3
-                        End If
-
-                        Dim ObjVentas As New ClsVentas
-                        ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta.Value.ToEntero)
-                        ObjVentas.Dispose()
-                    Else
-                        Alert("No se pudo adjuntar el correo electrónica.", TipoMensaje.MsgAdvertencia)
-                    End If
-                End If
-
-                'End If
-                'ObjEmprea.Dispose()
-            Else
-                Alert("No se seleccionó ninguna factura para envíar.", TipoMensaje.MsgAdvertencia)
-            End If
-        Catch ex As Exception
-            OnError("Ocurrió error al mandar MAIL", ex)
-            Dim ObjVentas As New ClsVentas
-            ObjVentas.UpdateVentaMail(3, HdnCveVenta.Value.ToEntero)
-            ObjVentas.Dispose()
-        End Try
-	End Sub
-
-	'Protected Sub BtnAbonar_Click(sender As Object, e As System.EventArgs) Handles BtnAbonar.Click
-	'	Dim ObjMovtos As New ClsMovimientos()
-	'	If ObjMovtos.AddMovimiento(2, "Cli", CveCliente.ToString, HdnCveVentaAbono.Value, 0, TxtCantidad.Text.Trim.ToDouble, TxtFechaPago.Text.ToDate, TxtReferencia.Text.Trim, DdlCtaContableClientes.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-	'		Alert("El abono se guardó correctamente", TipoMensaje.MsgInformacion, "$get(""DivAddPago"").style.display=""none"";")
-	'		CargaCxC()
-	'		TxtCantidad.Text = ""
-	'		TxtReferencia.Text = ""
-	'		UpDatos.Update()
-	'	End If
-	'	ObjMovtos.Dispose()
-	'End Sub
-
-
-
-
-
-
-End Class

PRESENTACIONES/SeguridadPublica/CapturaIncidencias.aspx

@@ -1,225 +0,0 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CapturaIncidencias.aspx.vb" Inherits="PRESENTACIONES_SeguridadPublica_CapturaIncidencias" %>
-
-<asp:Content ID="Content1" ContentPlaceHolderID="H" Runat="Server">
-</asp:Content>
-<asp:Content ID="Content2" ContentPlaceHolderID="E" Runat="Server">
-Captura de Incidencias
-</asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="C" Runat="Server">
-    <table width="100%" align="center" style="text-align: center">
-        <tr>
-            <td>Portal: Captura de incidencias</td>
-        </tr>
-        <tr>
-            <td>Seguridad Pública</td>
-        </tr>
-        <tr>
-            <td>Soporte Técnico TECNOLOGÍAS DE LA INFORMACIÓN</td>
-        </tr>
-    </table>
-    <br />
-    <table width="100%">
-        <tr>
-            <td>
-                <asp:Label ID="Label1" runat="server" Text="0007727/13N" Font-Bold="True"></asp:Label>
-            </td>
-            <td>
-                <asp:Label ID="Label2" runat="server" Text="Zona" Font-Bold="True"></asp:Label><br />
-                <asp:DropDownList ID="DropDownList1" runat="server"><asp:ListItem>Norte</asp:ListItem></asp:DropDownList>
-            </td>
-            <td>
-                <asp:Label ID="Label3" runat="server" Text="Fecha" Font-Bold="True"></asp:Label>
-                <asp:Label ID="Label6" runat="server" Text="dd/mm/aaaa" Font-Size="Smaller"></asp:Label><br />
-                <asp:TextBox ID="TextBox1" runat="server" Width="100px">05/11/2013</asp:TextBox>
-            </td>
-            <td>
-                <asp:Label ID="Label4" runat="server" Text="Hora" Font-Bold="True" Width="52px"></asp:Label>&nbsp;<asp:Label ID="Label7" runat="server" Text="Min" Font-Bold="True"></asp:Label><br />
-                
-                <asp:DropDownList ID="DropDownList2" runat="server"><asp:ListItem>02</asp:ListItem></asp:DropDownList>
-                <asp:Label ID="Label5" runat="server" Text=":" ></asp:Label>
-                <asp:TextBox ID="TextBox2" runat="server" Width="17px">10</asp:TextBox>
-            </td>
-        </tr>
-    </table>
-    <br />
-    <table width="90%" >
-        <tr>
-            <td style="width: 169px">
-                <asp:Label ID="Label8" runat="server" Text="Autoridad"></asp:Label>
-            </td>
-            <td>
-                <asp:DropDownList ID="DropDownList3" runat="server" Width="100%">
-                    <asp:ListItem></asp:ListItem>
-                </asp:DropDownList>
-            </td>
-        </tr>
-        <tr>
-            <td style="width: 169px">
-                <asp:Label ID="Label9" runat="server" Text="Puesto:"></asp:Label>
-            </td>
-            <td>
-                <asp:TextBox ID="TextBox3" runat="server" Width="100%"></asp:TextBox>
-            </td>
-        </tr>
-        <tr>
-            <td style="width: 169px">
-                <asp:Label ID="Label10" runat="server" Text="Dirección:"></asp:Label>
-            </td>
-            <td>
-                <asp:TextBox ID="TextBox4" runat="server" Width="100%"></asp:TextBox>
-            </td>
-        </tr>
-        <tr>
-            <td style="width: 169px">
-                <asp:Label ID="Label11" runat="server" Text="Descripción Breve del Suceso"></asp:Label>
-            </td>
-            <td>
-                <asp:TextBox ID="TextBox5" runat="server" TextMode="MultiLine" Width="100%"></asp:TextBox>
-            </td>
-        </tr>
-        <tr>
-            <td style="width: 169px">
-                <asp:Label ID="Label12" runat="server" Text="Nombre del Detenido:"></asp:Label>
-            </td>
-            <td>
-                <asp:TextBox ID="TextBox6" runat="server" Width="100%"></asp:TextBox>
-            </td>
-        </tr>
-        <tr>
-            <td style="width: 169px">
-                <asp:Label ID="Label13" runat="server" Text="Alias:"></asp:Label>
-            </td>
-            <td>
-                <asp:TextBox ID="TextBox7" runat="server" Width="100%"></asp:TextBox>
-            </td>
-        </tr>
-        <tr>
-            <td style="width: 169px">
-                
-            </td>
-            <td>
-                <table>
-                    <tr>
-                        <td>&nbsp;
-                            <asp:Label ID="Label14" runat="server" Text="Edad:"></asp:Label>
-                            <asp:TextBox ID="TextBox8" runat="server"></asp:TextBox>
-                        </td>
-                        <td>&nbsp;
-                            <asp:Label ID="Label18" runat="server" Text="Sexo:"></asp:Label>
-                            <asp:DropDownList ID="DropDownList4" runat="server"><asp:ListItem>Femenino</asp:ListItem></asp:DropDownList>
-                        </td>
-                        <td>&nbsp;
-                            <asp:Label ID="Label19" runat="server" Text="Boleta de Entrada:"></asp:Label>
-                            <asp:TextBox ID="TextBox10" runat="server"></asp:TextBox>
-                        </td>
-                    </tr>
-                </table>
-                </td>
-            
-        </tr>
-        <tr>
-            <td style="width: 169px">
-                <asp:Label ID="Label15" runat="server" Text="Motivo"></asp:Label>
-                :</td>
-            <td>
-                <asp:TextBox ID="TextBox11" runat="server" TextMode="MultiLine" Width="100%"></asp:TextBox>
-            </td>
-        </tr>
-        <tr>
-            <td align="center" colspan="4">
-                <asp:Button ID="Button1" runat="server" Text="Agregar Detenido" />
-            </td>
-        </tr>
-        <tr>
-            <td colspan="4">
-                <table width="100%" border="1">
-                    <tr bgcolor="#999999" style="text-align: center; font-weight: bold;">
-                        <td>
-                            <asp:Label ID="Label16" runat="server" Text="Nombre del Detenido"></asp:Label>
-                        </td>
-                        <td>
-                            <asp:Label ID="Label17" runat="server" Text="Edad"></asp:Label>
-                        </td>
-                        <td>
-                            <asp:Label ID="Label20" runat="server" Text="Borrar"></asp:Label>
-                        </td>
-                    </tr>
-                    <tr align="center">
-                        <td>
-                            <asp:Label ID="Label21" runat="server" Text="-"></asp:Label>
-                        </td>
-                        <td>
-                            <asp:Label ID="Label22" runat="server" Text="-"></asp:Label>
-                        </td>
-                        <td align="center">
-                            <asp:Image ID="Image1" runat="server" ImageUrl="~/Imagenes/Basura1.png" />
-                        </td>
-                    </tr>
-                </table>
-            </td>
-        </tr>
-        <br />
-        <tr><td style="width: 169px">
-            <asp:Label ID="Label23" runat="server" Text="Nombre del Perjudicado:"></asp:Label></td><td>
-                <asp:TextBox ID="TextBox12" runat="server" Width="100%"></asp:TextBox>
-            </td></tr>
-        <tr><td style="width: 169px"></td>
-            <td>
-                <table>
-                    <tr>
-                        <td>&nbsp;
-                            <asp:Label ID="Label24" runat="server" Text="Edad:"></asp:Label>
-                            <asp:TextBox ID="TextBox9" runat="server"></asp:TextBox>
-                        </td>
-                        <td>&nbsp;
-                            <asp:Label ID="Label25" runat="server" Text="Sexo:"></asp:Label>
-                            <asp:DropDownList ID="DropDownList5" runat="server"><asp:ListItem>Femenino</asp:ListItem></asp:DropDownList>
-                        </td>
-                    </tr>
-                </table>
-                </td></tr>
-        <tr>
-            <td style="width: 169px">
-                <asp:Label ID="Label26" runat="server" Text="Observaciones:"></asp:Label>
-            </td>
-            <td>
-                <asp:TextBox ID="TextBox13" runat="server" TextMode="MultiLine" Width="100%"></asp:TextBox>
-            </td>
-        </tr>
-        
-        <tr>
-            <td align="center" colspan="4">
-                <asp:Button ID="Button2" runat="server" Text="Agregar Perjudicado" />
-            </td>
-        </tr>
-        <tr>
-            <td colspan="4">
-                <table width="100%" border="1">
-                    <tr bgcolor="#999999" style="text-align: center; font-weight: bold;">
-                        <td>
-                            <asp:Label ID="Label27" runat="server" Text="Nombre del Detenido"></asp:Label>
-                        </td>
-                        <td>
-                            <asp:Label ID="Label28" runat="server" Text="Edad"></asp:Label>
-                        </td>
-                        <td>
-                            <asp:Label ID="Label29" runat="server" Text="Borrar"></asp:Label>
-                        </td>
-                    </tr>
-                    <tr align="center">
-                        <td>
-                            <asp:Label ID="Label30" runat="server" Text="-"></asp:Label>
-                        </td>
-                        <td>
-                            <asp:Label ID="Label31" runat="server" Text="-"></asp:Label>
-                        </td>
-                        <td align="center">
-                            <asp:Image ID="Image2" runat="server" ImageUrl="~/Imagenes/Basura1.png" />
-                        </td>
-                    </tr>
-                </table>
-            </td>
-        </tr>
-    </table>
-</asp:Content>
-

PRESENTACIONES/SeguridadPublica/CapturaIncidencias.aspx.vb

@@ -1,5 +0,0 @@
-
-Partial Class PRESENTACIONES_SeguridadPublica_CapturaIncidencias
-    Inherits System.Web.UI.Page
-
-End Class

PRESENTACIONES/SeguridadPublica/CapturaIncidenciasTransito.aspx

@@ -1,457 +0,0 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CapturaIncidenciasTransito.aspx.vb" Inherits="PRESENTACIONES_SeguridadPublica_CapturaIncidenciasTransito" %>
-
-<asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
-</asp:Content>
-<asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
-    Captura de Incidencias de Tránsito
-</asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="C" runat="Server">
-    <table width="100%" class="Titulos">
-        <tr>
-            <td>
-                <asp:Label ID="Label1" runat="server" Text="JEFATURA DE POLICIA PREVENTIVA Y TRÁNSITO MUNICIPAL"></asp:Label>
-            </td>
-        </tr>
-        <tr>
-            <td>
-                <asp:DropDownList ID="DropDownList1" runat="server">
-                    <asp:ListItem>Reporte de Choque</asp:ListItem>
-                </asp:DropDownList>
-            </td>
-        </tr>
-        <tr>
-            <td>
-                <asp:Label ID="Label2" runat="server" Text="H. AYUNTAMIENTO DE HERMOSILLO - Folio = 000270/12N_1"></asp:Label>
-            </td>
-        </tr>
-    </table>
-    <table width="100%" border="1" style="border-right: 1; border: thin solid #C0C0C0;">
-        <tr>
-            <td class="Titulos" width="5%">
-                <asp:Label ID="Label3" runat="server" Text="1"></asp:Label>
-            </td>
-            <td>
-                <table width="100%" border="1" style="border-right: 1; border: thin solid #C0C0C0;">
-                    <tr>
-                        <td>
-                            <asp:Label ID="Label13" runat="server" Text="Fecha(dd/mm/aaaa)"></asp:Label><br />
-                            <asp:TextBox ID="TextBox1" runat="server" Width="115px"></asp:TextBox>
-                        </td>
-                        <td>
-                            <asp:Label ID="Label14" runat="server" Text="Hora : Minutos "></asp:Label><br />
-                            <asp:DropDownList ID="DropDownList2" runat="server">
-                                <asp:ListItem>13</asp:ListItem>
-                            </asp:DropDownList>
-                            :
-                            <asp:TextBox ID="TextBox2" runat="server" Width="16px">00</asp:TextBox>
-                        </td>
-                        <td>
-                            <asp:Label ID="Label15" runat="server" Text="ZONA"></asp:Label><br />
-                            <asp:DropDownList ID="DropDownList3" runat="server">
-                                <asp:ListItem>Norte</asp:ListItem>
-                            </asp:DropDownList>
-                        </td>
-                        <td>
-                            <asp:Label ID="Label16" runat="server" Text="Horario"></asp:Label><br />
-                            <asp:DropDownList ID="DropDownList4" runat="server">
-                                <asp:ListItem>A</asp:ListItem>
-                            </asp:DropDownList>
-                        </td>
-                    </tr>
-                </table>
-            </td>
-        </tr>
-        <tr>
-            <td class="Titulos" width="5%">
-                <asp:Label ID="Label4" runat="server" Text="2"></asp:Label>
-            </td>
-            <td>
-                <table width="100%" border="1" style="border-right: 1; border: thin solid #C0C0C0;">
-                    <tr>
-                        <td>
-                            <asp:Label ID="Label17" runat="server" Text="Unidades "></asp:Label>
-                            <asp:TextBox ID="TextBox3" runat="server"></asp:TextBox>
-                        </td>
-                        <td>
-                            <asp:Label ID="Label18" runat="server" Text="Lesionados "></asp:Label>
-                            <asp:TextBox ID="TextBox4" runat="server"></asp:TextBox>
-                        </td>
-                        <td>
-                            <asp:Label ID="Label19" runat="server" Text="Muertos "></asp:Label>
-                            <asp:TextBox ID="TextBox5" runat="server"></asp:TextBox>
-                        </td>
-                        <td>
-                            <asp:Label ID="Label20" runat="server" Text="Daños en $ "></asp:Label>
-                            <asp:TextBox ID="TextBox6" runat="server"></asp:TextBox>
-                        </td>
-                    </tr>
-                </table>
-            </td>
-        </tr>
-        <tr>
-            <td class="Titulos" width="5%">
-                <asp:Label ID="Label5" runat="server" Text="3"></asp:Label>
-            </td>
-            <td>
-                <table width="100%" border="1" style="border-right: 1; border: thin solid #C0C0C0;">
-                    <tr>
-                        <td width="10%">
-                            <asp:Label ID="Label21" runat="server" Text="Localización"></asp:Label>
-                        </td>
-                        <td width="20%" align="right">
-                            <table>
-                                <tr>
-                                    <td>
-                                        <asp:Label ID="Label22" runat="server" Text="Vía"></asp:Label>
-                                    </td>
-                                </tr>
-                                <tr>
-                                    <td>
-                                        <asp:Label ID="Label23" runat="server" Text="Con"></asp:Label>
-                                    </td>
-                                </tr>
-                                <tr>
-                                    <td>
-                                        <asp:Label ID="Label24" runat="server" Text="Entre"></asp:Label>
-                                    </td>
-                                </tr>
-                                <tr>
-                                    <td>
-                                        <asp:Label ID="Label25" runat="server" Text="Colonia"></asp:Label>
-                                    </td>
-                                </tr>
-                            </table>
-                        </td>
-                        <td width="70%" align="left">
-                            <table>
-                                <tr>
-                                    <td>
-                                        <asp:TextBox ID="TextBox7" runat="server" Width="220px"></asp:TextBox>
-                                    </td>
-                                </tr>
-                                <tr>
-                                    <td>
-                                        <asp:TextBox ID="TextBox8" runat="server" Width="220px"></asp:TextBox>
-                                    </td>
-                                </tr>
-                                <tr>
-                                    <td>
-                                        <asp:TextBox ID="TextBox9" runat="server" Width="220px"></asp:TextBox>
-                                    </td>
-                                </tr>
-                                <tr>
-                                    <td>
-                                        <asp:DropDownList ID="DropDownList5" runat="server" Width="220px">
-                                            <asp:ListItem>Carmen Serdán</asp:ListItem>
-                                        </asp:DropDownList>
-                                    </td>
-                                </tr>
-                            </table>
-                        </td>
-                    </tr>
-                </table>
-            </td>
-        </tr>
-        <tr>
-            <td class="Titulos" width="5%">
-                <asp:Label ID="Label6" runat="server" Text="4"></asp:Label>
-            </td>
-            <td>
-                <table border="1" style="border-right: 1; border: thin solid #C0C0C0;">
-                    <tr>
-                        <td>
-                            <asp:DropDownList ID="DropDownList6" runat="server">
-                                <asp:ListItem>A</asp:ListItem>
-                            </asp:DropDownList><br />
-                            <asp:Label ID="Label26" runat="server" Text="Unidad Móvil"></asp:Label>
-                        </td>
-                        <td>
-                            <table border="1" style="border-right: 1; border: thin solid #C0C0C0;">
-                                <tr>
-                                    <td>
-                                        <asp:Label ID="Label27" runat="server" Text="Licencia"></asp:Label><br />
-                                        <asp:TextBox ID="TextBox11" runat="server"></asp:TextBox>
-                                    </td>
-                                </tr>
-                                <tr>
-                                    <td>
-                                        <asp:Label ID="Label28" runat="server" Text="Razón Social"></asp:Label><br />
-                                        <asp:TextBox ID="TextBox10" runat="server"></asp:TextBox><br /><br />
-                                        <asp:Label ID="Label29" runat="server" Text="Cinturón"></asp:Label><br />
-                                        <asp:CheckBox ID="CheckBox1" runat="server" />
-                                        
-                                    </td>
-                                </tr>
-                                <tr>
-                                    <td>
-                                        <asp:Label ID="Label30" runat="server" Text="Mismo Cond."></asp:Label><br />
-                                        <asp:CheckBox ID="CheckBox2" runat="server" />
-                                    </td>
-                                </tr>
-                                <tr>
-                                    <td>
-                                        <asp:Label ID="Label31" runat="server" Text="Marca"></asp:Label><br />
-                                        <asp:DropDownList ID="DropDownList7" runat="server" Width="115px">
-                                            <asp:ListItem>Marca</asp:ListItem>
-                                        </asp:DropDownList>
-                                    </td>
-                                </tr>
-                                <tr>
-                                    <td>
-                                        <asp:Label ID="Label32" runat="server" Text="Capacidad"></asp:Label><br />
-                                        <asp:DropDownList ID="DropDownList8" runat="server" Width="115px">
-                                        <asp:ListItem>Capacidad</asp:ListItem>
-                                        </asp:DropDownList>
-                                    </td>
-                                </tr>
-                            </table>
-                        </td>
-                        <td><table border="1" style="border-right: 1; border: thin solid #C0C0C0;">
-                            <tr>
-                                <td>
-                                    <table>
-                                        <tr>
-                                            <td>
-                                                <asp:Label ID="Label33" runat="server" Text="Tipo"></asp:Label><br />
-                                                <asp:TextBox ID="TextBox12" runat="server"></asp:TextBox>
-                                            </td>
-                                            <td>
-                                                <asp:Label ID="Label34" runat="server" Text="Daños"></asp:Label><br />
-                                                <asp:TextBox ID="TextBox13" runat="server"></asp:TextBox>
-                                            </td>
-                                        </tr>
-                                    </table>
-                                </td>
-                            </tr>
-                                <tr>
-                                    <td>
-                                        <asp:RadioButtonList ID="RadioButtonList1" runat="server">
-                                        <asp:ListItem>Conductor</asp:ListItem>
-                                        <asp:ListItem>Peaton</asp:ListItem>
-                                        <asp:ListItem>Ciclista</asp:ListItem>
-                                        </asp:RadioButtonList>
-                                    </td>
-                                </tr>
-                                <tr>
-                                    <td>
-                                        <asp:Label ID="Label35" runat="server" Text="Nombre del Propietario"></asp:Label><br />
-                                        <asp:TextBox ID="TextBox14" runat="server"></asp:TextBox>
-                                    </td>
-                                </tr>
-                                <tr>
-                                    <td>
-                                        <asp:Label ID="Label36" runat="server" Text="Modelo"></asp:Label><br />
-                                        <asp:DropDownList ID="DropDownList9" runat="server" Width="115">
-                                        <asp:ListItem>Modelo</asp:ListItem>
-                                        </asp:DropDownList>
-                                    </td>
-                                </tr>
-                                <tr>
-                                    <td>
-                                        <asp:Label ID="Label37" runat="server" Text="Número ECO"></asp:Label><br />
-                                        <asp:TextBox ID="TextBox15" runat="server"></asp:TextBox>
-                                    </td>
-                                </tr>
-                            </table>
-                        </td>
-                        <td><table border="1" style="border-right: 1; border: thin solid #C0C0C0;">
-                                <tr>
-                                    <td>
-                                    <table><tr>
-                                            <td>
-                                                <asp:Label ID="Label38" runat="server" Text="Estado"></asp:Label><br />
-                                                <asp:TextBox ID="TextBox16" runat="server"></asp:TextBox>
-                                            </td>
-                                            <td>
-                                                <asp:Label ID="Label39" runat="server" Text="Vigencia"></asp:Label><br />
-                                                <asp:TextBox ID="TextBox17" runat="server"></asp:TextBox>
-                                            </td>
-                                        </tr></table>
-                                    </td>
-                                </tr>
-                                <tr>
-                                    <td>
-                                        <asp:Label ID="Label40" runat="server" Text="Nombre"></asp:Label><br /></br>
-                                        <asp:TextBox ID="TextBox18" runat="server"></asp:TextBox></br>
-                                    </td>
-                                </tr>
-                                <tr>
-                                    <td>
-                                        <asp:Label ID="Label41" runat="server" Text="Dirección"></asp:Label><br /></br>
-                                        <asp:TextBox ID="TextBox19" runat="server"></asp:TextBox></br>
-                                    </td>
-                                </tr>
-                                <tr>
-                                    <td>
-                                        <table border="1" style="border-right: 1; border: thin solid #C0C0C0;">
-                                            <tr>
-                                                <td>
-                                                    <asp:Label ID="Label42" runat="server" Text="Placas"></asp:Label><br /></br>
-                                                    <asp:TextBox ID="TextBox20" runat="server"></asp:TextBox>
-                                                </td>
-                                                <td>
-                                                    <table border="1" style="border-right: 1; border: thin solid #C0C0C0;">
-                                                        <tr>
-                                                            <td>
-                                        <asp:Label ID="Label43" runat="server" Text="Estado"></asp:Label><br /></br>
-                                        <asp:TextBox ID="TextBox21" runat="server"></asp:TextBox>
-                                                            </td>
-                                                            <td>
-                                        <asp:Label ID="Label44" runat="server" Text="Año"></asp:Label><br /></br>
-                                        <asp:TextBox ID="TextBox22" runat="server"></asp:TextBox>
-                                                            </td>
-                                                        </tr>
-                                                    </table>
-                                                </td>
-                                            </tr>
-                                        </table>
-                                    </td>
-                                </tr>
-                                <tr>
-                                    <td>
-                                    <table width="100%"  border="1" style="border-right: 1; border: thin solid #C0C0C0;"><tr><td><asp:Label ID="Label45" runat="server" Text="Color"></asp:Label><br />
-                                        <asp:DropDownList ID="DropDownList10" runat="server">
-                                        <asp:ListItem>Color</asp:ListItem>
-                                        </asp:DropDownList>
-                                    </td>
-                                    <td> 
-                                        <asp:Label ID="Label46" runat="server" Text="Infracción y Artículos"></asp:Label><br />
-                                        <asp:TextBox ID="TextBox23" runat="server"></asp:TextBox><br />
-                                        <asp:DropDownList ID="DropDownList11" runat="server">
-                                        <asp:ListItem>Infracción No.</asp:ListItem>
-                                        </asp:DropDownList></td></tr></table>
-                                        
-                                    </td>
-                                </tr>
-                            </table>
-                        </td>
-                        <td><table>
-                                <tr>
-                                    <td>
-                                    </td>
-                                </tr>
-                                <tr>
-                                    <td>
-                                    </td>
-                                </tr>
-                                <tr>
-                                    <td>
-                                    </td>
-                                </tr>
-                                <tr>
-                                    <td>
-                                    </td>
-                                </tr>
-                                <tr>
-                                    <td>
-                                    </td>
-                                </tr>
-                            </table>
-                        </td>
-                        <td><table>
-                                <tr>
-                                    <td>
-                                    </td>
-                                </tr>
-                                <tr>
-                                    <td>
-                                    </td>
-                                </tr>
-                                <tr>
-                                    <td>
-                                    </td>
-                                </tr>
-                                <tr>
-                                    <td>
-                                    </td>
-                                </tr>
-                                <tr>
-                                    <td>
-                                    </td>
-                                </tr>
-                            </table>
-                        </td>
-                    </tr>
-                </table>
-            </td>
-        </tr>
-        <tr>
-            <td class="Titulos" width="5%">
-                <asp:Label ID="Label7" runat="server" Text="5"></asp:Label>
-            </td>
-            <td>
-                <table>
-                    <tr>
-                        <td>
-                        </td>
-                    </tr>
-                </table>
-            </td>
-        </tr>
-        <tr>
-            <td class="Titulos" width="5%">
-                <asp:Label ID="Label8" runat="server" Text="6"></asp:Label>
-            </td>
-            <td>
-                <table>
-                    <tr>
-                        <td>
-                        </td>
-                    </tr>
-                </table>
-            </td>
-        </tr>
-        <tr>
-            <td class="Titulos" width="5%">
-                <asp:Label ID="Label9" runat="server" Text="7"></asp:Label>
-            </td>
-            <td>
-                <table>
-                    <tr>
-                        <td>
-                        </td>
-                    </tr>
-                </table>
-            </td>
-        </tr>
-        <tr>
-            <td class="Titulos" width="5%">
-                <asp:Label ID="Label10" runat="server" Text="8"></asp:Label>
-            </td>
-            <td>
-                <table>
-                    <tr>
-                        <td>
-                        </td>
-                    </tr>
-                </table>
-            </td>
-        </tr>
-        <tr>
-            <td class="Titulos" width="5%">
-                <asp:Label ID="Label11" runat="server" Text="9"></asp:Label>
-            </td>
-            <td>
-                <table>
-                    <tr>
-                        <td>
-                        </td>
-                    </tr>
-                </table>
-            </td>
-        </tr>
-        <tr>
-            <td class="Titulos" width="5%">
-                <asp:Label ID="Label12" runat="server" Text="10"></asp:Label>
-            </td>
-            <td>
-                <table>
-                    <tr>
-                        <td>
-                        </td>
-                    </tr>
-                </table>
-            </td>
-        </tr>
-    </table>
-</asp:Content>

PRESENTACIONES/SeguridadPublica/CapturaIncidenciasTransito.aspx.vb

@@ -1,5 +0,0 @@
-
-Partial Class PRESENTACIONES_SeguridadPublica_CapturaIncidenciasTransito
-    Inherits System.Web.UI.Page
-
-End Class

PRESENTACIONES/SeguridadPublica/RegistroEmergencias.aspx

@@ -1,172 +0,0 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegistroEmergencias.aspx.vb" Inherits="PRESENTACIONES_SeguridadPublica_RegistroEmergencias" %>
-
-<asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
-</asp:Content>
-<asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
-    Registro de Emergencias
-</asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="C" runat="Server">
-    <table>
-    <tr><td>
-        <asp:Label ID="Label15" runat="server" Text="Módulo:"></asp:Label><asp:TextBox ID="TextBox21" runat="server" Enabled="False"></asp:TextBox></td>
-        <td>
-        <asp:Label ID="Label16" runat="server" Text="Usuario:"></asp:Label><asp:TextBox ID="TextBox22" runat="server" Enabled="False"></asp:TextBox></td>
-        <td>
-        <asp:Label ID="Label17" runat="server" Text="Fecha/Hora:"></asp:Label><asp:TextBox ID="TextBox23" runat="server" Enabled="False"></asp:TextBox></td></tr>
-        <tr>
-            <td>
-                <fieldset>
-                    <table>
-                        <tr>
-                            <td>
-                                <asp:Label ID="Label1" runat="server" Text="Descripción del Evento:"></asp:Label>
-                            </td>
-                            <td>
-                                <asp:TextBox ID="TextBox7" runat="server" TextMode="MultiLine"></asp:TextBox>
-                            </td>
-                        </tr>
-                        <tr>
-                            <td>
-                                <asp:Label ID="Label2" runat="server" Text="Lugar de la Detención:"></asp:Label>
-                            </td>
-                            <td>
-                                <asp:TextBox ID="TextBox8" runat="server" TextMode="MultiLine"></asp:TextBox>
-                            </td>
-                        </tr>
-                        <tr>
-                            <td>
-                                <asp:Label ID="Label3" runat="server" Text="Colonia:"></asp:Label>
-                            </td>
-                            <td>
-                                <asp:TextBox ID="TextBox9" runat="server"></asp:TextBox>
-                            </td>
-                        </tr>
-                        <tr>
-                            <td>
-                                <asp:Label ID="Label4" runat="server" Text="Ciudad:"></asp:Label>
-                            </td>
-                            <td>
-                                <asp:TextBox ID="TextBox10" runat="server"></asp:TextBox>
-                            </td>
-                        </tr>
-                    </table>
-                </fieldset>
-            </td>
-            <td>
-                <table>
-                    <tr>
-                        <td>
-                            <fieldset>
-                                <table>
-                                    <tr>
-                                        <td align="right">
-                                            <asp:Label ID="Label11" runat="server" Text="Corporación:"></asp:Label>
-                                        </td>
-                                        <td colspan="3">
-                                            <asp:TextBox ID="TextBox11" runat="server" Width="400px"></asp:TextBox>
-                                        </td>
-                                    </tr>
-                                    <tr>
-                                        <td>
-                                            <asp:Label ID="Label12" runat="server" Text="Unidades Involucradas"></asp:Label><br />
-                                            <asp:TextBox ID="TextBox12" runat="server"></asp:TextBox><br />
-                                            <asp:TextBox ID="TextBox13" runat="server"></asp:TextBox><br />
-                                            <asp:TextBox ID="TextBox14" runat="server"></asp:TextBox><br />
-                                        </td>
-                                        <td>
-                                            <asp:Label ID="Label13" runat="server" Text="Clave"></asp:Label><br />
-                                            <asp:TextBox ID="TextBox15" runat="server" Width="50px"></asp:TextBox><br />
-                                            <asp:TextBox ID="TextBox16" runat="server" Width="50px"></asp:TextBox><br />
-                                            <asp:TextBox ID="TextBox17" runat="server" Width="50px"></asp:TextBox><br />
-                                        </td>
-                                        <td>
-                                            <asp:Label ID="Label14" runat="server" Text="Nombre del Responsable"></asp:Label><br />
-                                            <asp:TextBox ID="TextBox18" runat="server" Width="345px"></asp:TextBox><br />
-                                            <asp:TextBox ID="TextBox19" runat="server" Width="345px"></asp:TextBox><br />
-                                            <asp:TextBox ID="TextBox20" runat="server" Width="345px"></asp:TextBox><br />
-                                        </td>
-                                    </tr>
-                                    <tr>
-                                    <td colspan="3">
-                                        <asp:CheckBox ID="CheckBox1" runat="server" />Catálogo de Responsables de Unidad
-                                        
-                                            <asp:Button ID="Button4" runat="server" Text="Guardar Evento" />
-                                                <asp:Button ID="Button7" runat="server" Text="Cancelar Evento" /></td></tr>
-
-                                </table>
-                            </fieldset>
-                        </td>
-                    </tr>
-                </table>
-            </td>
-        </tr>
-    </table>
-    <table border="0" width="100%" >
-        <tr>
-            <td width="80%">
-                <fieldset>
-                    <legend><b>Datos del Detenido</b></legend>
-                    <table>
-                        <tr>
-                            <td>
-                                <table>
-                                    <tr>
-                                        <td>
-                                            <asp:Label ID="Label5" runat="server" Text="Nombre:"></asp:Label><br />
-                                            <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
-                                        </td>
-                                        <td>
-                                            <asp:Label ID="Label8" runat="server" Text="Alias:"></asp:Label><br />
-                                            <asp:TextBox ID="TextBox4" runat="server"></asp:TextBox>
-                                        </td>
-                                    </tr>
-                                    <tr>
-                                        <td>
-                                            <asp:Label ID="Label6" runat="server" Text="Apellido Paterno:"></asp:Label><br />
-                                            <asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
-                                        </td>
-                                        <td>
-                                            <asp:Label ID="Label9" runat="server" Text="Fecha de Nacimiento:"></asp:Label><br />
-                                            <asp:TextBox ID="TextBox5" runat="server"></asp:TextBox>
-                                        </td>
-                                    </tr>
-                                    <tr>
-                                        <td>
-                                            <asp:Label ID="Label7" runat="server" Text="Apellido Materno:"></asp:Label><br />
-                                            <asp:TextBox ID="TextBox3" runat="server"></asp:TextBox>
-                                        </td>
-                                        <td>
-                                            <asp:Label ID="Label10" runat="server" Text="Edad:"></asp:Label><br />
-                                            <asp:TextBox ID="TextBox6" runat="server"></asp:TextBox>
-                                        </td>
-                                    </tr>
-                                </table>
-                            </td>
-                            <td>
-                                <table>
-                                    <tr>
-                                        <td align="center">
-                                            <asp:Button ID="Button3" runat="server" Text="Generales" /><br />
-                                            <asp:ImageButton ID="ImageButton1" runat="server" ImageUrl="~/Imagenes/buscar.gif" />
-                                        </td>
-                                        <td>
-                                            <asp:Button ID="Button5" runat="server" Text="Filiación" /><br />
-                                            <asp:Button ID="Button6" runat="server" Text="Motivos" />
-                                        </td>
-                                    </tr>
-                                </table>
-                            </td>
-                        </tr>
-                    </table>
-                </fieldset>
-            </td>
-            <td width="20%">
-                <fieldset>
-                    <legend><b>¿Registrar?</b></legend><br /><br /><br />
-                    <asp:Button ID="Button1" runat="server" Text="Otro Detenido" /><br />
-                    <asp:Button ID="Button2" runat="server" Text="OtroEvento" /><br /><br /><br />
-                </fieldset>
-            </td>
-        </tr>
-    </table>
-</asp:Content>

PRESENTACIONES/SeguridadPublica/RegistroEmergencias.aspx.vb

@@ -1,5 +0,0 @@
-
-Partial Class PRESENTACIONES_SeguridadPublica_RegistroEmergencias
-    Inherits System.Web.UI.Page
-
-End Class

PruebasOrlando/Sonidito.aspx

@@ -1,32 +0,0 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Sonidito.aspx.vb" Inherits="PruebasOrlando_Sonidito" %>
-
-<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
-</asp:Content>
-<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
-</asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
-</asp:Content>
-<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
-</asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
-</asp:Content>
-<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
-</asp:Content>
-<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
-    <asp:UpdatePanel runat="server" ID="up" UpdateMode="conditional">
-        <ContentTemplate>
-      <asp:linkbutton runat="server" OnClick="LBPlaySonidito_Click" ID="LBPlaySonidito" text="<i class='fa fa-print' aria-hidden='true'></i>" CssClass="btn btn-sm btn-circle grey "></asp:linkbutton>
-            <asp:linkbutton runat="server"  ID="lnkFacturas" text="<i class='fa fa-download' aria-hidden='true'></i>" CssClass="btn btn-sm btn-circle grey "></asp:linkbutton>
-        </ContentTemplate>
-    </asp:UpdatePanel>
-</asp:Content>
-<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
-     <script type="text/javascript">
-         function playsonidito() {
-             var snd = new Audio("/Sonidos/142608__autistic-lucario__error.wav");
-             snd.play();
-             snd.currentTime = 0;
-         }
-         </script>
-</asp:Content>
-

PruebasOrlando/Sonidito.aspx.vb

@@ -1,75 +0,0 @@
-Imports Extensiones
-Imports System.Data
-Imports System.Diagnostics
-Imports System.IO
-Imports Microsoft.Reporting.WebForms
-Imports System.Security
-
-Partial Class PruebasOrlando_Sonidito
-    Inherits System.Web.UI.Page
-
-    Protected Sub LBPlaySonidito_Click(sender As Object, e As EventArgs)
-        Dim ruta = "C:\inetpub\wwwroot\ADSistemas\Sonidos\142608__autistic-lucario__error.wav"
-        RegistraScript("playsonidito();")
-    End Sub
-
-    Private Function VerificaCorreo() As Boolean Handles lnkFacturas.Click
-        Dim Retorno As Boolean = False
-
-        AbreComoSistema()
-
-        Return Retorno
-    End Function
-
-
-    Public Sub AbreComoSistema()
-        Dim Retorno As Boolean = False
-
-        Dim ObjProcess As Process = Nothing
-        Dim Mensajes As String = ""
-        Dim Ejecutable = Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "Utilerias\UtileriasAD.exe")
-        Dim Folder = Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "Empresas\")
-        Dim error1 As Boolean = False
-        Try
-            ObjProcess = New Process()
-            ObjProcess.StartInfo.RedirectStandardOutput = True
-            ObjProcess.StartInfo.FileName = Ejecutable
-            '    ObjProcess.StartInfo.UserName = "Orlando"
-            '   ObjProcess.StartInfo.Password = ToSecureString("memy")
-            '  ObjProcess.StartInfo.Verb = "runas"
-            ObjProcess.StartInfo.Arguments = $"2 {Folder}"
-            ObjProcess.StartInfo.UseShellExecute = False
-            ObjProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal
-            ObjProcess.Start()
-
-
-            ObjProcess.WaitForExit()
-            ObjProcess.Close()
-        Catch ex As Exception
-            error1 = True
-            OnError("Ocurrió un error al ejecutar el actualizador.", ex)
-        End Try
-
-
-    End Sub
-
-    Public Function ToSecureString(Source As String) As SecureString
-        If (String.IsNullOrWhiteSpace(Source)) Then
-            Return Nothing
-        Else
-            Dim Result As SecureString = New SecureString()
-            For Each c As Char In Source.ToCharArray()
-                Result.AppendChar(c)
-            Next
-            Return Result
-        End If
-
-
-    End Function
-
-
-
-
-
-
-End Class

PruebasOrlando/Soniditos.aspx

@@ -1,22 +0,0 @@
-<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="Soniditos.aspx.cs" Inherits="PruebasOrlando_Soniditos" %>
-
-<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
-</asp:Content>
-<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
-</asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
-</asp:Content>
-<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
-</asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
-</asp:Content>
-<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
-</asp:Content>
-<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
-    <asp:linkbutton runat="server" OnClick="Unnamed_Click" ID="LBPlaySonidito" text="+" CssClass="btn btn-sm btn-circle green"></asp:linkbutton>
-</asp:Content>
-<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
-
-    
-</asp:Content>
-

PruebasOrlando/Soniditos.aspx.cs

@@ -1,19 +0,0 @@
-using System;
-using System.Collections.Generic;
-using System.Linq;
-using System.Web;
-using System.Web.UI;
-using System.Web.UI.WebControls;
-
-public partial class PruebasOrlando_Soniditos : System.Web.UI.Page
-{
-    protected void Page_Load(object sender, EventArgs e)
-    {
-
-    }
-
-    protected void Unnamed_Click(object sender, EventArgs e)
-    {
-  
-    }
-}

Rene.aspx

@@ -1,26 +0,0 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Rene.aspx.vb" Inherits="Rene" %>
-
-<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
-    CP
-</asp:Content>
-<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
-</asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
-    E
-</asp:Content>
-<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
-    HB
-</asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
-    H
-</asp:Content>
-<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
-    HA
-</asp:Content>
-<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
-    C
-    <asp:TextBox ID="Txt" runat="server" TextMode="MultiLine" Height="200px" Width="500px"></asp:TextBox>
-</asp:Content>
-<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
-</asp:Content>
-

Rene.aspx.vb

@@ -1,88 +0,0 @@
-
-Imports System.Net
-Imports System.Net.NetworkInformation
-
-Partial Class Rene
-    Inherits System.Web.UI.Page
-
-    Private Sub Rene_Load(sender As Object, e As EventArgs) Handles Me.Load
-
-        'Dim Correo As New ClsSisMail
-
-        If Not IsPostBack Then
-            IpAddress()
-        End If
-
-        'Correo.SendMail(Nothing, "rene.molina@adsistemas.mx", "asunto", "Body", CCP:="rene.molina@adsistemas.mx;julian@adsistemas.mx;rene.molina@adsistemas.mx;julian@adsistemas.mx;paola@adsistemas.mx;")
-    End Sub
-
-    Private Sub IpAddress()
-        Dim ClientIP As String = String.Empty
-        Dim Tipo As String = String.Empty
-        Dim HTML As String = String.Empty
-        Dim IP As String = String.Empty
-
-        IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
-        If Not String.IsNullOrEmpty(IP) Then
-            Dim ipRange As String() = IP.Trim().Split(","c)
-            Dim le As Integer = ipRange.Length - 1
-            ClientIP = ipRange(le)
-            Tipo = "1: "
-        End If
-        HTML &= (ClientIP)
-        HTML &= ("<br>")
-        HTML &= (Tipo)
-
-        IP = Request.ServerVariables("HTTP_X_CLUSTER_CLIENT_IP")
-        If Not String.IsNullOrEmpty(IP) Then
-            ClientIP = IP
-            Tipo = "2: "
-        End If
-        HTML &= (ClientIP)
-        HTML &= ("<br>")
-        HTML &= (Tipo)
-
-        If IP = Request.ServerVariables("REMOTE_ADDR") Then
-            ClientIP = Request.ServerVariables("REMOTE_ADDR")
-            Tipo = "3: "
-        End If
-        HTML &= (ClientIP)
-        HTML &= ("<br>")
-        HTML &= (Tipo)
-
-        HTML &= ("<br>Tipo 4: ")
-        HTML &= (System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName()).AddressList.GetValue(0).ToString())
-
-        HTML &= ("<br>Tipo 5: ")
-        HTML &= (HttpContext.Current.Request.Params("HTTP_CLIENT_IP"))
-
-        HTML &= ("<br>Tipo 6: ")
-        HTML &= (HttpContext.Current.Request.UserHostAddress)
-
-
-
-
-        Dim nics As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces()
-        Dim sMacAddress As String = String.Empty
-        Dim ipv4 As String = String.Empty
-        For Each adapter As NetworkInterface In nics
-            If sMacAddress = String.Empty Then
-                ' only return MAC Address from first card  
-                Dim properties As IPInterfaceProperties = adapter.GetIPProperties()
-                sMacAddress = adapter.GetPhysicalAddress().ToString()
-                ipv4 = adapter.GetIPv4Statistics().ToString
-                HTML &= ("<br>Tipo 7: " & sMacAddress & " - " & ipv4)
-            End If
-        Next
-        ' To Get IP Address
-
-        HTML &= ("<br>Tipo 8: ")
-        Dim IPHost As String = Dns.GetHostName()
-        Dim IP2 As String = Dns.GetHostByName(IPHost).AddressList(0).ToString()
-
-        HTML &= IPHost & " - " & IP2
-
-        Txt.Text = HTML
-
-    End Sub
-End Class

Sistemas/SessionesActivas.aspx.vb

@@ -17,12 +17,12 @@ Partial Class SessionesActivas
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
-            Dim listacve As New List(Of String)
+            '         Dim listacve As New List(Of String)
-            listacve.Add("1815")
+            '         listacve.Add("1815")
-            Notificaciones.AlertaVentana("notificacion", listacve, timeoutseconds:=0)
+            '         Notificaciones.AlertaVentana("notificacion", listacve, timeoutseconds:=0)
 
-            RCveUsuario = "0"
+            '         RCveUsuario = "0"
-			ClsSisNotificaciones.SendNotificacionERP(100, "Titulo", "Hola Mundo", 1)
+            'ClsSisNotificaciones.SendNotificacionERP(100, "Titulo", "Hola Mundo", 1)
             CargaDatos("")
         End If
     End Sub

Ventas/ClientesAbonar.aspx.vb

@@ -2104,23 +2104,23 @@ Partial Class Ventas_ClientesAbonar
                     ' iva
                     Dim PorcentajeImpuesto As Decimal = gr.DataKey("PorcentajeIVA").ToDecimal
 
-                    Dim IdCtaIVATrasladado As Integer = 0
+                    Dim IdCtaIVAXTrasladar As Integer = 0
-                    Dim CveCuentaIVATrasladado As Integer = 0
+                    Dim CveCuentaIVAxTrasladar As Integer = 0
 
                     If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then
-                        IdCtaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVATrasladado").ToString.ToEntero
+                        IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString.ToEntero
-                        CveCuentaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVATrasladado").ToString.ToEntero
+                        CveCuentaIVAxTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVAxTrasladar").ToString.ToEntero
                     End If
 
-                    IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado)
+                    IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
-                    CveCuenta = If(CveCuentaIVATrasladado > 0, CveCuentaIVATrasladado, UsuarioActual.Empresa.CveCuentaIVATrasladado)
+                    CveCuenta = If(CveCuentaIVAxTrasladar > 0, CveCuentaIVAxTrasladar, UsuarioActual.Empresa.CveCuentaIVAxTrasladar)
-                    If IVA > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IVA, gr.DataKey("SerieFolio").ToString, 61, TxtObsSaldarIncobrable.Text.Trim, TxtFechaIncobrable.Text.ToDate, IdCtaContable, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, IVA, IVA * TCVenta), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
+                    If IVA > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IVA, gr.DataKey("SerieFolio").ToString, 13, TxtObsSaldarIncobrable.Text.Trim, TxtFechaIncobrable.Text.ToDate, IdCtaContable, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, IVA, IVA * TCVenta), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
 
-                    IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSTrasladado
+                    IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSxTrasladar
-                    CveCuenta = UsuarioActual.Empresa.CveCuentaIEPSTrasladado
+                    CveCuenta = UsuarioActual.Empresa.CveCuentaIEPSxTrasladar
-                    If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IEPS, gr.DataKey("SerieFolio").ToString, 39, TxtObsSaldarIncobrable.Text.Trim, TxtFechaIncobrable.Text.ToDate, IdCtaContable, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, IEPS, IEPS * TCVenta), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
+                    If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IEPS, gr.DataKey("SerieFolio").ToString, 38, TxtObsSaldarIncobrable.Text.Trim, TxtFechaIncobrable.Text.ToDate, IdCtaContable, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, IEPS, IEPS * TCVenta), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
 

Ventas/RepVentasUtilidad.aspx

@@ -87,10 +87,10 @@
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
     <li>
-        <asp:LinkButton ID="ImgImprimir" runat="server"> <i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
+        <asp:LinkButton ID="ImgImprimir" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
     </li>
     <li>
-        <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
+        <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
     </li>
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
@@ -164,9 +164,8 @@
                             Cliente:
                         </div>
                         <div class="col-md-2 ">
-                            <asp:DropDownList ID="DdlClientes" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" CssClass="form-control  input-small input-sm select2me" Width="100%">
+                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;">
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                            </ADS:Dropdownlost>
-                            </asp:DropDownList>
                         </div>
 
                         <div class="col-md-1 truncate">
@@ -232,8 +231,8 @@
             <div id="dvCa" style="width: 100%; top: 40px">
                 <table id="dTable" class="correcto table  Widthall Titulos">
                     <tr>
-                        <td id="dvInv" runat="server" class="dataTables_scrollHead" style="text-align: center!important; width: 30.5%; font-size: 14px;"><b>Venta</b></td>
+                        <td id="dvInv" runat="server" class="dataTables_scrollHead" style="text-align: center!important; width: 42%; font-size: 14px;"><b>Venta</b></td>
-                        <td id="dvVen" runat="server" class="dataTables_scrollHead" style="text-align: center!important; font-size: 14px; border-right-color: white!important; border-left-color: white!important; width: 32.5%; border-style: solid;"><b>Costo</b></td>
+                        <td id="dvVen" runat="server" class="dataTables_scrollHead" style="text-align: center!important; font-size: 14px; border-right-color: white!important; border-left-color: white!important; width: 25%; border-style: solid;"><b>Costo</b></td>
                         <td id="dvUt" runat="server" class="dataTables_scrollHead" style="text-align: center!important; width: 40%; font-size: 14px;"><b>Utilidad/Pérdida</b></td>
                     </tr>
                 </table>
@@ -250,6 +249,9 @@
                     <asp:HyperLinkField  ItemStyle-HorizontalAlign="Center" HeaderText="Serie Folio"   DataTextField="SerieFolio" DataTextFormatString="{0}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
                     <asp:HyperLinkField  ItemStyle-HorizontalAlign="Center" HeaderText="Fecha"   DataTextField="FechaVenta" DataTextFormatString="{0:d}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
                     <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" HeaderText="SubTotal"   DataTextField="SubTotal" DataTextFormatString="{0:N}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
+                    <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" HeaderText="Descuento"   DataTextField="Descuento" DataTextFormatString="{0:N}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
+                    <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" HeaderText="Bonificacion"   DataTextField="Bonificacion" DataTextFormatString="{0:N}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
+                    <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" HeaderText="SubTotal2"   DataTextField="SubTotal2" DataTextFormatString="{0:N}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
                     <asp:HyperLinkField Text="Ir" DataNavigateUrlFields="CveVenta" ItemStyle-Width="2.5%" ItemStyle-HorizontalAlign="Center" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
                      <asp:HyperLinkField  ItemStyle-HorizontalAlign="Center" HeaderText="Folio"  ItemStyle-CssClass="Texto"  DataTextField="FolioMovto" DataTextFormatString="{0}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
                      <asp:HyperLinkField  ItemStyle-HorizontalAlign="Center" HeaderText="Fecha"   DataTextField="FechaMovto" DataTextFormatString="{0:d}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>

Ventas/RepVentasUtilidad.aspx.vb

@@ -38,8 +38,17 @@ Partial Class Ventas_RepVentasUtilidad
         txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
 
         'Carga Clientes
-        DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+        Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
-        DdlClientes.DataBind()
+        If EsWS Then
+            DdlClientes.setEsWebService(True)
+            DdlClientes.SelectedValue = "-1"
+            DdlClientes.SelectedText = "Todos"
+        Else
+            DdlClientes.setEsWebService(False)
+            DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
+            DdlClientes.DataBind()
+            DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+        End If
 
         'CargaSubProyectos
         DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
@@ -84,7 +93,10 @@ Partial Class Ventas_RepVentasUtilidad
 
         DdlSubProyecto.SelectedValuesIfExistM(CveSubProyecto)
         DdlVendedor.SelectedValuesIfExistM(CveVendedor)
-        DdlClientes.SelectedValueExist(CveCliente)
+        If CveCliente <> "-1" Then
+            DdlClientes.SelectedValue = CveCliente
+            DdlClientes.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}").FiltroPrimeroValor("Nombre")
+        End If
         DdlClasificacion.SelectedValueExist(CveClasificacion)
         DdlPS.SelectedValue = CvePS
         If CvePS.ToEntero > 0 AndAlso GlobalDTPS(UsuarioActual.CveEmpresa, CvePS.ToEntero).Rows.Count > 0 Then
@@ -184,17 +196,25 @@ Partial Class Ventas_RepVentasUtilidad
 
             End If
 
+
+            If e.Row.DBCampo("CveVenta") = "" Then
+                e.Row.Cells(6).Text = ""
+                e.Row.Cells(7).Text = ""
+                e.Row.Cells(8).Text = ""
+                e.Row.Cells(10).Text = ""
+            End If
+
             If e.Row.DBCampo("CveMovimiento") = "" Then
-                e.Row.Cells(3).Text = ""
+                e.Row.Cells(7).Text = ""
+                e.Row.Cells(8).Text = ""
+                e.Row.Cells(10).Text = ""
             End If
 
             If e.Row.DBCampo("CveVenta") = "" Then
                 e.Row.CssClass = "Totales"
             End If
 
-            If e.Row.DBCampo("CveVenta") = "" Then
+
-                e.Row.Cells(7).Text = ""
-            End If
 
 
             Dim Liga As String = String.Format("/Ventas/RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}",
@@ -249,7 +269,7 @@ Partial Class Ventas_RepVentasUtilidad
         If txtFechaI.Text = "" Then FechaI = MinFecha
         If txtFechaF.Text = "" Then FechaF = MaxFecha
 
-        Dim Cliente = If(DdlClientes.SelectedValue = "", "", $"&emsp;<b>Cliente:</b> {DdlClientes.SelectedItem.Text}")
+        Dim Cliente = If(DdlClientes.SelectedValue = "", "", $"&emsp;<b>Cliente:</b> {DdlClientes.SelectedText}")
         Dim Sucursal = If(DdlSubProyecto.GetSelectedText = "", "", $"&emsp;<b>Sucursal:</b> {DdlSubProyecto.GetSelectedText}")
         Dim Vendedor = If(DdlVendedor.GetSelectedText = "", "", $"&emsp;<b>Vendedor:</b> {DdlVendedor.GetSelectedText}")
         Dim PS = If(DdlPS.SelectedValue = "-1", "", $"&emsp;<b>P.S.:</b> {DdlPS.SelectedText}")
@@ -305,7 +325,7 @@ Partial Class Ventas_RepVentasUtilidad
         Dim Sucursal = If(DdlSubProyecto.GetSelectedText = "", "", $"&emsp;<b>Sucursal:</b> {DdlSubProyecto.GetSelectedText}")
         Dim FechaIn As String = $"&emsp;<b>Fecha Inicio:</b> {txtFechaI.Text}"
         Dim FechaFn As String = $"&emsp;<b>Fecha Fin:</b> {txtFechaF.Text}"
-        Dim Cliente = If(DdlClientes.SelectedValue = "-1", "", $"&emsp;<b>Cliente:</b> {DdlClientes.SelectedItem.Text}")
+        Dim Cliente = If(DdlClientes.SelectedValue = "-1", "", $"&emsp;<b>Cliente:</b> {DdlClientes.SelectedText}")
         Dim Vendedor = If(DdlVendedor.GetSelectedText = "", "", $"&emsp;<b>Vendedor:</b> {DdlVendedor.GetSelectedText}")
         Dim PS = If(DdlPS.SelectedValue = "-1", "", $"&emsp;<b>P.S.:</b> {DdlPS.SelectedText}")
         Dim Clasificacion = If(DdlClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificacion:</b> {DdlClasificacion.SelectedItem.Text}")

Ventas/RepVentasUtilidadDetalle.aspx

@@ -260,6 +260,16 @@
                                 <asp:Label ID="LbSubTotalDolares" Visible="false" runat="server" Text="SubTotal"></asp:Label>
                             </td>
                         </tr>
+                        <tr align="left">
+                            <td><b>Dias Emision:</b>&nbsp;</td>
+                            <td>
+                                <asp:Label ID="LblDiasEmision" runat="server" Text="Dias Emision"></asp:Label>
+                            </td>
+                            <td><b>Dias Vencimiento:</b>&nbsp;</td>
+                            <td>
+                                <asp:Label ID="LblDiasVencimiento" runat="server" Text="Dias Vencimiento"></asp:Label>
+                            </td>
+                        </tr>
                     </table>
                 </div>
             </div>

Ventas/RepVentasUtilidadDetalle.aspx.vb

@@ -181,6 +181,8 @@ Partial Class Ventas_RepVentasUtilidadDetalle
             If ObjVentas.DtResultados.Rows.Count > 0 Then
                 CveMovimiento = ObjVentas.DtResultados.Rows(1)("CveMovimiento").ToString.ToEntero
 
+                LblDiasVencimiento.Text = ObjVentas.DtResultados.Rows(1)("DiasVencimiento").ToString
+                LblDiasEmision.Text = ObjVentas.DtResultados.Rows(1)("DiasEmision").ToString
                 LblCostoFecha.Text = "$" + ObjVentas.Costo.ToString("N2")
                 HLCostoFolio.Text = ObjVentas.FolioCosto
                 LblFechaSalid.Text = ObjVentas.FechaSalidaCosto.ToDate.ToShortDateString

Ventas/RepVentasUtilidadPadre.aspx

@@ -139,8 +139,7 @@
                             Cliente:
                         </div>
                         <div class="col-md-2 ">
-                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientesWS" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width:150px;">
+                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientesWS" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width:150px;"></ADS:Dropdownlost>
-                            </ADS:Dropdownlost>
                         </div>
                         <div class="col-md-1 truncate">
                             Vendedor:

Ventas/RepVentasUtilidadPadre.aspx.vb

@@ -39,12 +39,15 @@ Partial Class Ventas_RepVentasUtilidadPadre
 
 #Region "  INICIALIZA VALORES "
     Private Sub CargaCombos()
+
         txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
         txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
 
         'Carga Clientes
-        If UsuarioActual.CveEmpresa = 119 Then
+        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1" Then
             DdlClientesWS.setEsWebService(True)
+            DdlClientesWS.SelectedValue = "-1"
+            DdlClientesWS.SelectedText = "Todos"
         Else
             DdlClientesWS.setEsWebService(False)
             DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)

Ventas/Ventas.aspx.vb

@@ -5105,8 +5105,10 @@ Partial Class Ventas
                     If CveVenta <= 0 Then
                         CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString.ToEntero
 
-                        DdlFormaPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveFormaPago33").ToString)
                         DdlMetodoPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveMetodoPago33").ToString)
+                        DdlMetodoPago33_SelectedIndexChanged(DdlMetodoPago33, EventArgs.Empty)
+
+                        DdlFormaPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveFormaPago33").ToString)
                         DdlUsoCFDI.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveUsoCFDI").ToString)
                     End If
 
@@ -5133,8 +5135,10 @@ Partial Class Ventas
                     If CveVenta <= 0 Then
                         CveMetodoPagoCliente = ObjCliente.CveMetodoPago
 
-                        DdlFormaPago33.SelectedValueExist(ObjCliente.CveFormaPago33)
                         DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago33)
+                        DdlMetodoPago33_SelectedIndexChanged(DdlMetodoPago33, EventArgs.Empty)
+
+                        DdlFormaPago33.SelectedValueExist(ObjCliente.CveFormaPago33)
                         DdlUsoCFDI.SelectedValueExist(ObjCliente.CveUsoCFDI)
                     End If
 
@@ -6150,6 +6154,10 @@ Partial Class Ventas
             End If
         End If
 
+        If GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 AndAlso ddlAlmacen.SelectedValue.ToEntero() <= 0 Then
+            Alert("Tiene que seleccionar un almacen", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
 
         EmitirImprimirNew()
     End Sub
@@ -8981,25 +8989,6 @@ Partial Class Ventas
                             End If
                         Next
                     End If
-
-                ElseIf AplicarVentaFacturada Then
-                    '25/11/2017  SE VA A ELIMINAR, DIJO EL IPP
-
-                    'If Not ObjVentas.UpdateVentaRemision(CveVenta, ObjFactura.CveVenta) Then
-                    '    ErrorList.Add("Ocurrió un error al actualizar la remisión")
-                    'End If
-
-                    'If Not ObjConta.TraspasarSaldosPrePolizas(CveVenta, ObjFactura.CveVenta, -1, ObjFactura.CvePrePoliza, 2) Then
-                    '    ErrorList.Add("Ocurrió un error al traspasar los saldos de la remisión")
-                    'End If
-
-                    ''If Not ObjConta.CancelarPrePolizas(-1, CveVenta) Then
-                    ''    ErrorList.Add("Ocurrió un error al cancelar los saldos de la remisión")
-                    ''End If
-
-                    'If Not TraspasoAlmacen(ObjInventario, CveVenta, ObjConta, True, 9) Then
-                    '    ErrorList.Add("Ocurrió un error al traspasar el almacen")
-                    'End If
                 End If
             End If
 
@@ -10251,147 +10240,152 @@ Partial Class Ventas
     End Function
     Private Function GuardarVentaInventarios(ObjInventario As ClsInventarios, ObjConta As ClsContabilidad, factura As Modelos.Factura) As Boolean
         Dim OcurrioError As Boolean = False
+        Try
 
-        If UsuarioActual.Empresa.UsaInventarios AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then
+            If UsuarioActual.Empresa.UsaInventarios AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then
 
-            If GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then
+                If RemisionesLista.Count > 0 Then
+                    For Each CveRemision As Integer In RemisionesLista
+                        'El almacen general es el Primer Almacen de Material en la Sucursal
+                        If Not TraspasoAlmacen(ObjInventario, CveRemision, ObjConta, True, 9) Then
+                            OcurrioError = True
+                            Exit For
+                        End If
+                    Next
+                End If
 
-                Dim CveAlmacen = ddlAlmacen.SelectedValue.ToEntero
+                If GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then
-                Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(CveAlmacen, 3, factura.CveMoneda, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1)
 
-                If CveMovimientoInventario <= 0 Then
+                    Dim CveAlmacen = ddlAlmacen.SelectedValue.ToEntero
-                    OcurrioError = True
+                    Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(CveAlmacen, 3, factura.CveMoneda, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1)
-                    ErrorList.Add("Ocurrió un error al agregar los Movimientos de salida al Inventario.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
-                Else
-                    Dim Mensaje As String = ""
-                    Dim i As Integer = 0
-                    Dim Cantidad As Double
-                    Dim CveUnidad As Integer
-                    Dim CveProducto As Integer
-                    Dim Existencia As Double
-                    'Dim Pu As Double
-                    'DtInv.Clone()
 
-                    Dim DtEquivalencias As DataTable
+                    If CveMovimientoInventario <= 0 Then
+                        OcurrioError = True
+                        ErrorList.Add("Ocurrió un error al agregar los Movimientos de salida al Inventario.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
+                    Else
+                        Dim Mensaje As String = ""
+                        Dim i As Integer = 0
+                        Dim Cantidad As Double
+                        Dim CveUnidad As Integer
+                        Dim CveProducto As Integer
+                        Dim Existencia As Double
+                        'Dim Pu As Double
+                        'DtInv.Clone()
 
-                    For Each Dr As DataRow In DtInv.Rows
+                        Dim DtEquivalencias As DataTable
-                        If GvInv.Rows(i).FCCheckBox("cbInv").Checked Then
 
-                            CveProducto = Dr("CvePS").ToString.ToEntero
+                        For Each Dr As DataRow In DtInv.Rows
-                            CveUnidad = Dr("CveUM").ToString.ToEntero
+                            If GvInv.Rows(i).FCCheckBox("cbInv").Checked Then
-                            Cantidad = Dr("Cantidad").ToString.ToDouble
 
-                            If Dr("CveTipoInvPS").ToString.ToEntero = 5 And Dr("SerieLote").ToString = "" Then
+                                CveProducto = Dr("CvePS").ToString.ToEntero
-                                OcurrioError = True
+                                CveUnidad = Dr("CveUM").ToString.ToEntero
-                                ErrorList.Add("Se deben especificar las Series de los productos de almacén")
+                                Cantidad = Dr("Cantidad").ToString.ToDouble
-                                Exit For
-                            End If
 
-                            If UsuarioActual.CveEmpresa.Contiene({72, 80, 119}) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing") Then
+                                If Dr("CveTipoInvPS").ToString.ToEntero = 5 And Dr("SerieLote").ToString = "" Then
-                                Existencia = ObjInventario.GetExistenciasPS(CveProducto, CveUnidad, UsuarioActual.CveEmpresa, CveAlmacen, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, RestringirAlmacenes:=1, ExcluyeApartados:=1)
-                                If Existencia < Cantidad Then
                                     OcurrioError = True
-                                    ErrorList.Add($"No cuenta con la cantidad suficiente en inventario del producto {Dr("CodigoPS")} .Cuenta con {Existencia.FormatoNumero(2)}.")
+                                    ErrorList.Add("Se deben especificar las Series de los productos de almacén")
                                     Exit For
                                 End If
-                            End If
 
-                            If UsuarioActual.CveEmpresa = 1 Then
+                                If UsuarioActual.CveEmpresa.Contiene({72, 80, 119}) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing") Then
-                                DtEquivalencias = New DataTable
+                                    Existencia = ObjInventario.GetExistenciasPS(CveProducto, CveUnidad, UsuarioActual.CveEmpresa, CveAlmacen, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, RestringirAlmacenes:=1, ExcluyeApartados:=1)
-                                DtEquivalencias = GlobalDTProductosServiciosEquivalencias(CveProducto, -1)
+                                    If Existencia < Cantidad Then
-                                Dim CveUnidadBase As Integer = DtEquivalencias.FiltroPrimeroValor("CveUM", "UnidadBase = 'True'").ToEntero
+                                        OcurrioError = True
-                                Dim drUMBase As DataRow = DtEquivalencias.FiltroPrimero("UnidadBase = 'True'")
+                                        ErrorList.Add($"No cuenta con la cantidad suficiente en inventario del producto {Dr("CodigoPS")} .Cuenta con {Existencia.FormatoNumero(2)}.")
-
+                                        Exit For
-                                'SI LA UNIDAD ACTUAL NO ES LA BASE SACA PROPORCION (EQUIVALENTE)
+                                    End If
-                                If CveUnidadBase <> CveUnidad Then
-                                    '                   LO QUE PUSE                                             LO QUE VALE UNIDAD BASE                                                                 LO QUE VALE UNIDAD SELECCIONADA
-                                    Cantidad = Dr("Cantidad").ToString.ToDouble * drUMBase("Cantidad").ToString.ToDouble / DtEquivalencias.FiltraParametros(String.Format("CveUM = {0}", CveUnidad)).Rows(0)("Cantidad").ToString.ToDouble
-                                    CveUnidad = CveUnidadBase
                                 End If
-                            End If
 
-                            If CveProducto > 0 Then
+                                If UsuarioActual.CveEmpresa = 1 Then
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, 0, -1, SerieLote:=Dr("SerieLote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then
+                                    DtEquivalencias = New DataTable
+                                    DtEquivalencias = GlobalDTProductosServiciosEquivalencias(CveProducto, -1)
+                                    Dim CveUnidadBase As Integer = DtEquivalencias.FiltroPrimeroValor("CveUM", "UnidadBase = 'True'").ToEntero
+                                    Dim drUMBase As DataRow = DtEquivalencias.FiltroPrimero("UnidadBase = 'True'")
+
+                                    'SI LA UNIDAD ACTUAL NO ES LA BASE SACA PROPORCION (EQUIVALENTE)
+                                    If CveUnidadBase <> CveUnidad Then
+                                        '                   LO QUE PUSE                                             LO QUE VALE UNIDAD BASE                                                                 LO QUE VALE UNIDAD SELECCIONADA
+                                        Cantidad = Dr("Cantidad").ToString.ToDouble * drUMBase("Cantidad").ToString.ToDouble / DtEquivalencias.FiltraParametros(String.Format("CveUM = {0}", CveUnidad)).Rows(0)("Cantidad").ToString.ToDouble
+                                        CveUnidad = CveUnidadBase
+                                    End If
+                                End If
+
+                                If CveProducto > 0 Then
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, 0, -1, SerieLote:=Dr("SerieLote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then
+                                        OcurrioError = True
+                                        ErrorList.Add("Ocurrió un error al agregar los Movimientos de salida al Inventario.<br />")
+                                        Exit For
+                                    End If
+                                Else
                                     OcurrioError = True
                                     ErrorList.Add("Ocurrió un error al agregar los Movimientos de salida al Inventario.<br />")
                                     Exit For
                                 End If
-                            Else
+
-                                OcurrioError = True
-                                ErrorList.Add("Ocurrió un error al agregar los Movimientos de salida al Inventario.<br />")
-                                Exit For
                             End If
+                            i = i + 1
+                        Next
 
-                        End If
+                        'REGISTRO LA PREPOLIZA DE COSTO VS ALMACEN
-                        i = i + 1
+                        If Not OcurrioError Then
-                    Next
+                            Dim DtCostos As DataTable = Nothing
+                            Dim ValorInventario As Decimal = 0
+                            Dim TotalCosto As Decimal = 0
+                            If ObjInventario.GetMovimientosDetalle(CveMovimientoInventario, UsuarioActual.CveEmpresa) Then
+                                DtCostos = ObjInventario.DtResultados
+                                TotalCosto = DtCostos.SUMD("Total").RoundSQL
+                                Dim tmpCostos As DataTable = DtCostos.FiltraParametros("", "", {"CveClasificacion"})
+                                Dim IdCtaContable As Integer = 0
+                                Dim CveCuenta As Integer = 0
+                                If tmpCostos.Rows.Count > 0 Then
+                                    Dim TotalCostoAcumulado As Decimal = 0
+                                    Dim cont As Integer = 1
+                                    'Se agrega movimiento separado por la cuenta de ventas (ER)
+                                    For Each RowInv As DataRow In tmpCostos.Rows
+                                        ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL
+                                        TotalCostoAcumulado += ValorInventario
 
-                    'REGISTRO LA PREPOLIZA DE COSTO VS ALMACEN
+                                        'cuando es el último movimiento y hay diferencias en los importes
-                    If Not OcurrioError Then
+                                        If cont = tmpCostos.Rows.Count AndAlso TotalCosto <> TotalCostoAcumulado Then
-                        Dim DtCostos As DataTable = Nothing
+                                            ValorInventario = ValorInventario + (TotalCosto - TotalCostoAcumulado)
-                        Dim ValorInventario As Decimal = 0
-                        Dim TotalCosto As Decimal = 0
-                        If ObjInventario.GetMovimientosDetalle(CveMovimientoInventario, UsuarioActual.CveEmpresa) Then
-                            DtCostos = ObjInventario.DtResultados
-                            TotalCosto = DtCostos.SUMD("Total").RoundSQL
-                            Dim tmpCostos As DataTable = DtCostos.FiltraParametros("", "", {"CveClasificacion"})
-                            Dim IdCtaContable As Integer = 0
-                            Dim CveCuenta As Integer = 0
-                            If tmpCostos.Rows.Count > 0 Then
-                                Dim TotalCostoAcumulado As Decimal = 0
-                                Dim cont As Integer = 1
-                                'Se agrega movimiento separado por la cuenta de ventas (ER)
-                                For Each RowInv As DataRow In tmpCostos.Rows
-                                    ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL
-                                    TotalCostoAcumulado += ValorInventario
-
-                                    'cuando es el último movimiento y hay diferencias en los importes
-                                    If cont = tmpCostos.Rows.Count AndAlso TotalCosto <> TotalCostoAcumulado Then
-                                        ValorInventario = ValorInventario + (TotalCosto - TotalCostoAcumulado)
-                                    End If
-
-                                    'Concepto = String.Format("{0} - {1}", Row2("Clasificacion").ToString, Row2("SubProyecto").ToString)
-                                    IdCtaContable = GlobalDTClasificaciones(factura.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero
-                                    CveCuenta = GlobalDTClasificaciones(factura.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero
-                                    If ValorInventario <> 0 Then
-
-                                        If Not ObjConta.AddPrePolizasDetalle(factura.CvePrePoliza, False, ValorInventario, factura.SerieFolio, 69, factura.SerieFolio, factura.Fecha, IdCtaContable, -1, CveVenta:=factura.CveVenta, CveCliente:=factura.CveCliente, CveSubProyecto:=factura.CveSubProyecto, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=ValorInventario, CveCuenta:=CveCuenta) Then
-                                            OcurrioError = True
                                         End If
-                                    End If
-                                    cont += 1
-                                Next
-                            End If
-                            IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", CveAlmacen)).ToEntero
 
-                            If TotalCosto <> 0 Then
+                                        'Concepto = String.Format("{0} - {1}", Row2("Clasificacion").ToString, Row2("SubProyecto").ToString)
-                                If Not ObjConta.AddPrePolizasDetalle(factura.CvePrePoliza, True, TotalCosto, factura.SerieFolio, 68, factura.SerieFolio, factura.Fecha, IdCtaContable, -1, CveVenta:=factura.CveVenta, CveCliente:=factura.CveCliente, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TotalCosto, CveCuenta:=CveCuenta, CveSubProyecto:=factura.CveSubProyecto) Then
+                                        IdCtaContable = GlobalDTClasificaciones(factura.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero
-                                    OcurrioError = True
+                                        CveCuenta = GlobalDTClasificaciones(factura.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero
+                                        If ValorInventario <> 0 Then
+
+                                            If Not ObjConta.AddPrePolizasDetalle(factura.CvePrePoliza, False, ValorInventario, factura.SerieFolio, 69, factura.SerieFolio, factura.Fecha, IdCtaContable, -1, CveVenta:=factura.CveVenta, CveCliente:=factura.CveCliente, CveSubProyecto:=factura.CveSubProyecto, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=ValorInventario, CveCuenta:=CveCuenta) Then
+                                                OcurrioError = True
+                                            End If
+                                        End If
+                                        cont += 1
+                                    Next
                                 End If
+                                IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", CveAlmacen)).ToEntero
+
+                                If TotalCosto <> 0 Then
+                                    If Not ObjConta.AddPrePolizasDetalle(factura.CvePrePoliza, True, TotalCosto, factura.SerieFolio, 68, factura.SerieFolio, factura.Fecha, IdCtaContable, -1, CveVenta:=factura.CveVenta, CveCliente:=factura.CveCliente, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TotalCosto, CveCuenta:=CveCuenta, CveSubProyecto:=factura.CveSubProyecto) Then
+                                        OcurrioError = True
+                                    End If
+                                End If
+
+                                factura.Inv_CveMovimiento = CveMovimientoInventario
+                                factura.Inv_ValorInventario = ValorInventario
+
                             End If
-
-                            factura.Inv_CveMovimiento = CveMovimientoInventario
-                            factura.Inv_ValorInventario = ValorInventario
-
                         End If
-                    End If
 
+                    End If
 
                 End If
 
             End If
 
-            If RemisionesLista.Count > 0 Then
+        Catch ex As Exception
-                For Each CveRemision As Integer In RemisionesLista
+            OcurrioError = True
-                    'El almacen general es el Primer Almacen de Material en la Sucursal
+            OnError("Ocurrió un error al guardar el inventario", ex)
-                    If Not TraspasoAlmacen(ObjInventario, CveRemision, ObjConta, True, 9) Then
+        End Try
-                        OcurrioError = True
-                        Exit For
-                    End If
-                Next
-            End If
-
-        End If
 
         Return OcurrioError
     End Function
@@ -12498,221 +12492,7 @@ Partial Class Ventas
 
         Return Not ErrorCancelar
     End Function
-    'Protected Sub ImgGuardaEstatus_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) Handles ImgGuardaEstatus.Click
 
-    '    'La validacion de saldos cuando es refacturacion se hace antes asi que si es refacturacion ignoramos esta condicion, si es Anticipo verifica que no esté aplicado
-    '    If DdlTipoComprobante.SelectedValue = "Ant" AndAlso (HdnPagado.Value.ToDecimal > 0 Or GvAntNC.Rows.Count > 0) Then
-    '        Alert("La factura no se puede cancelar debido a que tiene pagos vinculados.", TipoMensaje.MsgAdvertencia)
-    '        Exit Sub
-    '    End If
-
-    '    'La validacion de saldos cuando es refacturacion se hace antes asi que si es refacturacion ignoramos esta condicion
-    '    If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") AndAlso HdnPagado.Value.ToDecimal > 0 Then
-    '        Alert("La factura no se puede cancelar debido a que tiene pagos vinculados.", TipoMensaje.MsgAdvertencia)
-    '        Exit Sub
-    '    End If
-
-    '    ' si tiene movimientos en almacen, y sigue sin ser marcado como devuelto
-    '    If (GvInv.Rows.Count > 0 AndAlso DevolucionAlmacen.Contiene(0, 1)) AndAlso DdlTipoComprobante.SelectedValue <> "Rem" Then
-    '        Alert("La factura no se puede cancelar debido a que tiene movimientos de inventario.", TipoMensaje.MsgAdvertencia)
-    '        Exit Sub
-    '    End If
-
-    '    'Si la remision esta facturada no se puede cancelar
-    '    If DdlTipoComprobante.SelectedValue = "Rem" Then
-    '        Dim ObjV As New ClsVentas
-    '        If ObjV.VerificarRemisionFacturada(CveVenta) Then
-    '            If ObjV.DtResultados.Rows.Count > 0 Then
-    '                Alert("La remisión no se puede cancelar debido a que ya esta vinculada a una factura.", TipoMensaje.MsgAdvertencia)
-    '                Exit Sub
-    '            End If
-    '        End If
-    '        ObjV.Dispose()
-    '    End If
-
-
-    '    Dim ObjVentas As New ClsVentas() : ObjVentas.IniciaTransacSQL()
-    '    Dim ObjAC As ClsContPAQi = Nothing
-    '    Dim ObjConta As New ClsContabilidad(ObjVentas.IniciaTransacSQL())
-    '    Dim ObjBancos As New ClsBancos(ObjVentas.IniciaTransacSQL())
-    '    Dim ObjInventario As New ClsInventarios(ObjVentas.IniciaTransacSQL())
-    '    Dim ObjContratos As New ClsContratos(ObjVentas.IniciaTransacSQL())
-
-    '    Dim IDPoliza As Integer = -1
-    '    Dim CvePrePoliza As Integer
-    '    Dim CvePlantillaPoliza As Integer
-
-    '    Dim ErrorCancelar As Boolean = False
-    '    Dim Mensaje As String = ""
-
-    '    CreaObjetosVenta()
-    '    If UsuarioActual.Empresa.UsaAC Then
-    '        ObjAC = New ClsContPAQi(UsuarioActual.Empresa) : ObjAC.IniciaTransacSQL()
-    '    End If
-
-    '    If GvInv.Rows.Count > 0 AndAlso DdlTipoComprobante.SelectedValue = "Rem" Then
-    '        If CveAlmacenTransitorio > 0 Then
-    '            ErrorCancelar = Not TraspasoAlmacen(ObjInventario, CveVenta, ObjConta, False, 9)
-    '        Else
-    '            ErrorCancelar = Not SalidaEntradaAlmacen(ObjInventario, CveVenta, ObjConta)
-    '        End If
-    '    End If
-
-    '    If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then
-    '        CvePlantillaPoliza = 7
-    '    ElseIf ObjFactura.TipoDocto.Contiene("Ing", "Rem", "Ant") Then
-    '        CvePlantillaPoliza = 4
-    '    Else
-    '        CvePlantillaPoliza = 4
-    '    End If
-
-    '    ObjFactura.CveVenta = CveVenta
-
-    '    If HplSaldoAuxiliar.Text.ToDecimal > 0 Then
-    '        CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardaEstatus", CvePlantillaPoliza, TxtTotal.Text.ToDouble, TxtTotal.Text.Replace(",", "").ToDouble, DdlMoneda.SelectedValue.ToEntero, Now, NombreCliente, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-    '        ObjFactura.CvePrePoliza = CvePrePoliza
-
-    '        If Not ErrorCancelar Then
-    '            ErrorCancelar = ProcesoPrepolizas(ObjConta, ObjFactura, -1, TmpDT, ObjAC, -1, ObjBancos, ObjVentas)
-    '        End If
-
-    '        If Not ErrorCancelar Then
-    '            ErrorCancelar = GuardarVentaImpuestosLocales(ObjVentas, ObjConta, ObjFactura, -1)
-    '        Else
-    '            Exit Sub
-    '        End If
-    '    End If
-
-    '    'Desvincular Remisiones
-    '    '[IPP] COMENTADO PORQUE UNA REMISION USADA SE QUEMA - DETALLES CON INV - 30/ENERO/2018
-    '    'If DdlTipoComprobante.SelectedValue = "Ing" Then
-    '    '    If Not ObjVentas.LiberarRemisionesFacturadas(CveVenta) Then
-    '    '        ErrorCancelar = True
-    '    '        Mensaje = "Ocurrió un error al desvincular las remisiones"
-    '    '    End If
-    '    'End If
-
-    '    'Contratos
-    '    ErrorList = New List(Of String)
-    '    If ObjFactura.CveContrato > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant") Then
-    '        GuardarContratoAvanceEstimaciones(ObjContratos, ObjFactura, ErrorList, -1, True)
-    '        If ErrorList.Count > 0 Then : ErrorCancelar = True : End If
-    '    ElseIf ObjFactura.CveContrato > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Egs", "Dev") Then
-    '        GuardarContratoAvanceEstimaciones(ObjContratos, ObjFactura, ErrorList, 1, True)
-    '        If ErrorList.Count > 0 Then : ErrorCancelar = True : End If
-    '    End If
-
-    '    If DdlEstatus.SelectedValue = "4" Then
-
-    '        If ObjVentas.UpdateEstatusFactura(DdlEstatus.SelectedValue.ToEntero, FolioFiscal, "", Now, CveVenta, IDPoliza) Then
-    '            Mensaje = "El nuevo estatus se guardó correctamente"
-    '        Else
-    '            ErrorCancelar = True
-    '        End If
-
-    '        'Si se está mandando a Cancelada SAT
-    '    ElseIf DdlEstatus.SelectedValue = "5" Then
-    '        Try
-    '            Dim DT As DataTable = Nothing
-
-    '            If FolioFiscal = "" Then
-    '                Dim XmlDoc As New XmlDocument
-    '                XmlDoc.Load(Ruta & "XML\" & DdlTipoComprobante.SelectedValue & "\" & VentaFolio & ".xml")
-    '                ViewState("FolioFiscal") = XmlDoc.DocumentElement("cfdi:Complemento").FirstChild.Attributes("UUID").InnerText
-    '            End If
-
-    '            'Si es cancelar en el SAT:
-
-    '            'Dim xmlDoc As New System.Xml.XmlDocument()
-    '            'xmlDoc.LoadXml(Encoding.UTF8.GetString(Convert.FromBase64String("PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiIHN0YW5kYWxvbmU9InllcyI/Pgo8QWN1c2UgRmVjaGE9IjIwMTYtMTItMzBUMTg6Mjk6MjAuNTExOTg1NSIgUmZjRW1pc29yPSJNT1FKODUxMjE0SEs0IiB4bWxuczpuczI9Imh0dHA6Ly93d3cudzMub3JnLzIwMDAvMDkveG1sZHNpZyMiIHhtbG5zOm5zMz0iaHR0cDovL2NhbmNlbGFjZmQuc2F0LmdvYi5teCI+CiAgICA8bnMzOkZvbGlvcz4KICAgICAgICA8bnMzOlVVSUQ+NjNBOEQxN0UtRDMxQi00QjVFLTkzMEEtMzdDNDJDRTFBM0M4PC9uczM6VVVJRD4KICAgICAgICA8bnMzOkVzdGF0dXNVVUlEPjIwMTwvbnMzOkVzdGF0dXNVVUlEPgogICAgPC9uczM6Rm9saW9zPgogICAgPG5zMjpTaWduYXR1cmUgSWQ9IlNlbGxvU0FUIj4KICAgICAgICA8bnMyOlNpZ25lZEluZm8+CiAgICAgICAgICAgIDxuczI6Q2Fub25pY2FsaXphdGlvbk1ldGhvZCBBbGdvcml0aG09Imh0dHA6Ly93d3cudzMub3JnL1RSLzIwMDEvUkVDLXhtbC1jMTRuLTIwMDEwMzE1Ii8+CiAgICAgICAgICAgIDxuczI6U2lnbmF0dXJlTWV0aG9kIEFsZ29yaXRobT0iaHR0cDovL3d3dy53My5vcmcvMjAwMS8wNC94bWxkc2lnLW1vcmUjaG1hYy1zaGE1MTIiLz4KICAgICAgICAgICAgPG5zMjpSZWZlcmVuY2UgVVJJPSIiPgogICAgICAgICAgICAgICAgPG5zMjpUcmFuc2Zvcm1zPgogICAgICAgICAgICAgICAgICAgIDxuczI6VHJhbnNmb3JtIEFsZ29yaXRobT0iaHR0cDovL3d3dy53My5vcmcvVFIvMTk5OS9SRUMteHBhdGgtMTk5OTExMTYiPgogICAgICAgICAgICAgICAgICAgICAgICA8bnMyOlhQYXRoPm5vdChhbmNlc3Rvci1vci1zZWxmOjoqW2xvY2FsLW5hbWUoKT0nU2lnbmF0dXJlJ10pPC9uczI6WFBhdGg+CiAgICAgICAgICAgICAgICAgICAgPC9uczI6VHJhbnNmb3JtPgogICAgICAgICAgICAgICAgPC9uczI6VHJhbnNmb3Jtcz4KICAgICAgICAgICAgICAgIDxuczI6RGlnZXN0TWV0aG9kIEFsZ29yaXRobT0iaHR0cDovL3d3dy53My5vcmcvMjAwMS8wNC94bWxlbmMjc2hhNTEyIi8+CiAgICAgICAgICAgICAgICA8bnMyOkRpZ2VzdFZhbHVlPk8zNzJtbWlEMFZWWUdkcGE4WjJ5K3VPQXVVcTdZb3JURldicER3K2xnVG9CUng3c2RrREtlNDZKRjRaM01hZHZ2djh6bG9vZTYwRGtZUGZyRGNZMUZ3PT08L25zMjpEaWdlc3RWYWx1ZT4KICAgICAgICAgICAgPC9uczI6UmVmZXJlbmNlPgogICAgICAgIDwvbnMyOlNpZ25lZEluZm8+CiAgICAgICAgPG5zMjpTaWduYXR1cmVWYWx1ZT5IbEJVbHplZlZFKzFXNS9QKzRuVk9YbEFuOVZLQUladm0vK2tuSldSb2plTVI4Ung5bHBpTUdIOXBVZG5iVWtObTloOTZQSXQ4QzBFd0Z2UVptRjlCZz09PC9uczI6U2lnbmF0dXJlVmFsdWU+CiAgICAgICAgPG5zMjpLZXlJbmZvPgogICAgICAgICAgICA8bnMyOktleU5hbWU+MDAwMDEwODg4ODg4MDAwMDAwMTY8L25zMjpLZXlOYW1lPgogICAgICAgICAgICA8bnMyOktleVZhbHVlPgogICAgICAgICAgICAgICAgPG5zMjpSU0FLZXlWYWx1ZT4KICAgICAgICAgICAgICAgICAgICA8bnMyOk1vZHVsdXM+eG5MMnpEUHRINWpEc0FaRFRJZk1xYktHcnZlK0F0OEt5eDJFWnZiZlhicEs5dVZFeFdTODc0b01lbEZ6TnE2OS9ZcVNSZVQzSTdJOHdyK2pveTVPN291WkgrNEtXZElHcDRTaTZsSGUwa250eHpObXV1S3lPUGtKOXRNY250bkZtUTRiZnhGeGxnL1VkMmhDdHVveTNqMnhZa0lYdTVPNHBHTTk4Tno4cEFNPTwvbnMyOk1vZHVsdXM+CiAgICAgICAgICAgICAgICAgICAgPG5zMjpFeHBvbmVudD5BUUFCPC9uczI6RXhwb25lbnQ+CiAgICAgICAgICAgICAgICA8L25zMjpSU0FLZXlWYWx1ZT4KICAgICAgICAgICAgPC9uczI6S2V5VmFsdWU+CiAgICAgICAgPC9uczI6S2V5SW5mbz4KICAgIDwvbnMyOlNpZ25hdHVyZT4KPC9BY3VzZT4K")))
-
-    '            Dim ObjCancelacion As New Timbrado
-    '            Dim TotalT As Decimal = TxtTotal.Text.ToDecimal
-    '            Dim RFCReceptor As String = LblRFC.Text.Trim
-    '            Dim CvePACCancelacion As Integer = UsuarioActual.Empresa.CvePAC
-    '            ImprimeCancelacion(CveVenta)
-
-    '            If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, TotalT, RFCReceptor, UsuarioActual.Empresa.RFC, CvePACCancelacion) Then
-    '                'Generamos el acuse y mandamos mail de con el acuse de cancelación - DF 13/01/2017
-    '                ' ImprimeCancelacion(CveVenta)
-
-    '                If UsuarioActual.Empresa.UsaAC Then
-    '                    IDPoliza = GenerarPolizaAC(ObjAC, True)
-    '                    If IDPoliza <= 0 Then
-    '                        Mensaje = "No se pudo generar la poliza"
-    '                        ErrorCancelar = True
-    '                    End If
-    '                End If
-
-    '                If Not ErrorCancelar Then
-    '                    If ObjVentas.UpdateEstatusFactura(DdlEstatus.SelectedValue.ToEntero, FolioFiscal, ObjCancelacion.CancelacionAcuse, ObjCancelacion.CancelacionFecha, CveVenta, IDPoliza, CvePAC:=CvePACCancelacion) Then
-    '                        Mensaje = "El nuevo estatus se guardó correctamente"
-
-    '                    Else
-    '                        ErrorCancelar = True
-    '                    End If
-    '                End If
-    '            End If
-
-    '        Catch ex As Exception
-    '            Mensaje = "Ocurrio un error al Cancelar la factura"
-    '            GuardaLog($"{ex.Message}")
-    '        End Try
-
-    '    ElseIf DdlEstatus.SelectedValue = "9" Then
-
-    '        If UsuarioActual.Empresa.UsaAC Then
-    '            IDPoliza = GenerarPolizaAC(ObjAC, True)
-
-    '            If IDPoliza > 0 Then
-    '                Mensaje = "Se canceló exitosamente el compromiso."
-    '            Else
-    '                Mensaje = "No se pudo generar la poliza de cancelación"
-    '                ErrorCancelar = True
-    '            End If
-
-    '        End If
-
-    '        If Not ErrorCancelar Then
-    '            If Not ObjVentas.UpdateEstatusFactura(DdlEstatus.SelectedValue.ToEntero, "", "", TxtFecha.Text.ToDate, CveVenta, IDPoliza) Then
-    '                ErrorCancelar = True
-    '            End If
-    '        End If
-
-    '    ElseIf DdlEstatus.SelectedValue = "12" Then
-    '        If ObjVentas.UpdateEstatusFactura(DdlEstatus.SelectedValue.ToEntero, FolioFiscal, "", Now, CveVenta, IDPoliza) Then
-    '            Mensaje = "Se canceló exitosamente la Remisión"
-    '        Else
-    '            ErrorCancelar = True
-    '        End If
-    '    Else
-    '        If ObjVentas.UpdateEstatusFactura(DdlEstatus.SelectedValue.ToEntero, FolioFiscal, "", Now, CveVenta, IDPoliza) Then
-    '            'Alert("El nuevo estatus se guardó correctamente", TipoMensaje.MsgInformacion, "document.location.href=""/Ventas/Ventas.aspx?CveVenta=" & CveVenta & """;")
-    '            Mensaje = "El nuevo estatus se guardó correctamente"
-    '        Else
-    '            ErrorCancelar = True
-    '        End If
-    '    End If
-
-
-    '    If Not ErrorCancelar Then
-    '        Alert(Mensaje, TipoMensaje.MsgInformacion, "document.location.href=""/Ventas/Ventas.aspx?CveVenta=" & CveVenta & """;")
-    '        ObjVentas.Commit()
-    '        If ObjAC IsNot Nothing Then ObjAC.Commit()
-    '    Else
-    '        Alert(Mensaje, TipoMensaje.MsgError)
-    '        ObjVentas.RollBack()
-    '        If ObjAC IsNot Nothing Then ObjAC.RollBack()
-    '    End If
-
-    '    ObjVentas.Dispose()
-    '    ObjContratos.Dispose()
-    '    ObjConta.Dispose()
-    '    ObjBancos.Dispose()
-    '    ObjInventario.Dispose()
-    '    If ObjAC IsNot Nothing Then ObjAC.Dispose()
-
-    'End Sub
     Protected Sub ImgBtnAddC_Click(sender As Object, e As ImageClickEventArgs) Handles ImgBtnAddC.Click
         Dim Row As DataRow = Nothing
         Row = DTmpC.NewRow
@@ -14405,7 +14185,7 @@ Partial Class Ventas
         If TotalAmortizacion > 0 AndAlso TotalSubTotal = TotalAmortizacion Then ' si se amortizó completa la factura, debe de limpiar los impuestos
             If DdlTipoAmortizacionAnticipo.SelectedValue.Contiene("3") Then
                 For Each dr As DataRow In TmpDT.Rows
-                    dr("ImporteIVA") = 0 : dr("ImporteIEPS") = 0 : dr("ImporteRetIVA") = 0 : dr("ImporteRetISR") = 0
+                    dr("ImporteIVA") = 0 : dr("ImporteIEPS") = 0 : dr("ImporteRetIVA") = 0 : dr("ImporteRetISR") = 0 : dr("PorcentajeIVA") = 0 : dr("IVA") = 0
                 Next
 
                 If TmpDTImpuestos IsNot Nothing Then
@@ -14841,106 +14621,120 @@ Partial Class Ventas
     End Sub
     Private Function TraspasoAlmacen(ByRef ObjInventario As ClsInventarios, CveRemision As Integer, ByRef ObjConta As ClsContabilidad, ConSalida As Boolean, ConceptoMovimiento As Integer) As Boolean
         Dim OcurrioError As Boolean = False
-        Dim DtMovimientos As DataTable
+        Try
-        Dim DtMovimientosDetalles As DataTable
+            Dim DtMovimientos As DataTable
-        DtRemConceptosSurtidos = Nothing
+            Dim DtMovimientosDetalles As DataTable
+            DtRemConceptosSurtidos = Nothing
 
-        'Obtenemos los movimientos detalle
+            'Obtenemos los movimientos detalle
-        If ObjInventario.GetInv_Mov(CveRemision, UsuarioActual.CveEmpresa) Then
+            If ObjInventario.GetInv_Mov(CveRemision, UsuarioActual.CveEmpresa) Then
 
-            If ObjInventario.DtResultados.Rows.Count > 0 Then
+                If ObjInventario.DtResultados.Rows.Count > 0 Then
 
-                DtMovimientos = ObjInventario.DtResultados.FiltraParametros("", DistinctColumns:={"CveMovimiento"})
+                    DtMovimientos = ObjInventario.DtResultados.FiltraParametros("", DistinctColumns:={"CveMovimiento"})
 
-                'Si estamos facturando remisiones ajustamos por ventadetalle
+                    'Si estamos facturando remisiones ajustamos por ventadetalle
-                If RemisionesLista.Count > 0 Then
+                    If RemisionesLista.Count > 0 Then
-                    Dim resultados = From DtRemisiones In DtRemisionesTmpDT
+                        Dim resultados = From DtRemisiones In DtRemisionesTmpDT
-                                     Join DtMovDet In ObjInventario.DtResultados.FiltraParametros("CvePS > 0") On DtRemisiones("CveVentaDetalleRemision").ToString.ToEntero Equals DtMovDet("CveVentaDetalle").ToString.ToEntero
+                                         Join DtMovDet In ObjInventario.DtResultados.FiltraParametros("CvePS > 0") On DtRemisiones("CveVentaDetalleRemision").ToString.ToEntero Equals DtMovDet("CveVentaDetalle").ToString.ToEntero
-                                     Select DtMovDet
+                                         Select DtMovDet
-                    Try
+                        Try
-                        DtMovimientosDetalles = resultados.CopyToDataTable
+                            DtMovimientosDetalles = resultados.CopyToDataTable
-                    Catch ex As Exception
+                        Catch ex As Exception
-                        GuardaLog($"LOG IPP: Ventas LN: 10033. - DtRemisionesTmpDT.Rows.Count: {DtRemisionesTmpDT.Rows.Count} - ObjInventario.DtResultados.FiltraParametros('CvePS > 0').Rows.Count: {ObjInventario.DtResultados.FiltraParametros("CvePS > 0").Rows.Count}")
+                            GuardaLog($"LOG IPP: Ventas LN: 10033. - DtRemisionesTmpDT.Rows.Count: {DtRemisionesTmpDT.Rows.Count} - ObjInventario.DtResultados.FiltraParametros('CvePS > 0').Rows.Count: {ObjInventario.DtResultados.FiltraParametros("CvePS > 0").Rows.Count}")
-                        DtMovimientosDetalles = New DataTable
+                            DtMovimientosDetalles = New DataTable
-                    End Try
+                        End Try
-                Else
+                    Else
-                    DtMovimientosDetalles = ObjInventario.DtResultados.FiltraParametros("CvePS > 0")
+                        DtMovimientosDetalles = ObjInventario.DtResultados.FiltraParametros("CvePS > 0")
-                End If
+                    End If
 
-                For Each dr As DataRow In DtMovimientos.Rows
+                    If DtMovimientos.Rows.Count > 0 Then
+                        Dim GeneroMovimientoAlmacen As Boolean = False
 
-                    'Obtenemos los Movimientos de salida
+                        For Each dr As DataRow In DtMovimientos.Rows
-                    If ObjInventario.GetMovimientos(dr("CveMovimiento").ToString.ToEntero, ConceptoMovimiento, -1, UsuarioActual.CveEmpresa) Then
 
-                        If ObjInventario.DtResultados.Rows.Count > 0 AndAlso DtMovimientosDetalles.Rows.Count > 0 Then
+                            'Obtenemos los Movimientos de salida
+                            If ObjInventario.GetMovimientos(dr("CveMovimiento").ToString.ToEntero, ConceptoMovimiento, -1, UsuarioActual.CveEmpresa) Then
 
-                            Dim CveAlmacenSalida As Integer = ObjInventario.DtResultados(0)("CveAlmacen").ToString.ToEntero
+                                If ObjInventario.DtResultados.Rows.Count > 0 AndAlso DtMovimientosDetalles.Rows.Count > 0 Then
-                            Dim CveAlmacenEntrada As Integer = ObjInventario.DtResultados(0)("CveAlmacenRelacionado").ToString.ToEntero
+                                    Dim RowMovimiento As DataRow = ObjInventario.DtResultados(0)
-                            Dim CveMoneda As Integer = ObjInventario.DtResultados(0)("CveMoneda").ToString.ToEntero
-                            Dim CveTipoAlmacen As Integer = ObjInventario.DtResultados(0)("CveTipoAlmacen").ToString.ToEntero
 
-                            If (CveAlmacenEntrada > 0 AndAlso CveTipoAlmacen <> 1) Or RemisionesLista.Count = 0 Then 'Con remisiones parciales ignoramos las surtidas ya realizadas
+                                    Dim CveAlmacenSalida As Integer = RowMovimiento("CveAlmacen").ToString.ToEntero()
+                                    Dim CveAlmacenEntrada As Integer = RowMovimiento("CveAlmacenRelacionado").ToString.ToEntero()
+                                    Dim CveMoneda As Integer = RowMovimiento("CveMoneda").ToString.ToEntero()
+                                    Dim CveTipoAlmacen As Integer = RowMovimiento("CveTipoAlmacen").ToString.ToEntero()
 
-                                Dim MovDetalle As New DataTable
+                                    If (CveAlmacenEntrada > 0 AndAlso CveTipoAlmacen <> 1) Or RemisionesLista.Count = 0 Then 'Con remisiones parciales ignoramos las surtidas ya realizadas
-                                If RemisionesLista.Count > 0 Then
-                                    MovDetalle = CuadrarFacturaMovimientos(DtMovimientosDetalles.FiltraParametros($"CveMovimiento = {dr("CveMovimiento")} AND TieneSalidaxFactura IS NULL"))
-                                Else
-                                    MovDetalle = DtMovimientosDetalles.FiltraParametros($"CveMovimiento = {dr("CveMovimiento")}")
-                                End If
 
-                                If ErrorList.Count = 0 Then
+                                        Dim MovDetalle As New DataTable
-                                    If MovDetalle.Rows.Count > 0 Then
-                                        Dim CveMovimientoSalidaPorTraspaso = -1
 
-                                        'Le damos salida de apartado por traspaso
+                                        If RemisionesLista.Count > 0 Then
-                                        CveMovimientoSalidaPorTraspaso = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 8, CveMoneda, CveRemision)
+                                            MovDetalle = CuadrarFacturaMovimientos(DtMovimientosDetalles.FiltraParametros($"CveMovimiento = {dr("CveMovimiento")} AND TieneSalidaxFactura IS NULL"))
-                                        If Not CveMovimientoSalidaPorTraspaso > 0 Then
+                                        Else
-                                            OcurrioError = True
+                                            MovDetalle = DtMovimientosDetalles.FiltraParametros($"CveMovimiento = {dr("CveMovimiento")}")
-                                            Exit For
                                         End If
 
-                                        'Le damos entrada al general por traspaso
+                                        If ErrorList.Count = 0 AndAlso MovDetalle.Rows.Count > 0 Then
-                                        If Not OcurrioError Then
+                                            Dim CveMovimientoSalidaPorTraspaso As Integer = -1
-                                            If Not GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenEntrada, 9, CveMoneda, CveRemision, CveMovimientoRelacionado:=CveMovimientoSalidaPorTraspaso) > 0 Then
+
+                                            'Le damos salida de apartado por traspaso
+                                            CveMovimientoSalidaPorTraspaso = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 8, CveMoneda, CveRemision)
+
+                                            If Not CveMovimientoSalidaPorTraspaso > 0 Then
                                                 OcurrioError = True
                                                 Exit For
                                             End If
-                                        End If
 
-                                        If Not OcurrioError Then
+                                            'Le damos entrada al general por traspaso
-                                            If ConSalida Then
+                                            If Not OcurrioError Then
-                                                'Le damos salida normal
+                                                GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenEntrada, 9, CveMoneda, CveRemision, CveMovimientoRelacionado:=CveMovimientoSalidaPorTraspaso) > 0
-                                                If Not GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenEntrada, 3, CveMoneda, ObjFactura.CveVenta, MovimientoPrePoliza:=True, ObjConta:=ObjConta) > 0 Then
+
+                                                If Not GeneroMovimientoAlmacen Then
                                                     OcurrioError = True
                                                     Exit For
                                                 End If
                                             End If
+
+                                            'Le damos salida normal
+                                            If ConSalida AndAlso Not OcurrioError Then
+                                                GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenEntrada, 3, CveMoneda, ObjFactura.CveVenta, MovimientoPrePoliza:=True, ObjConta:=ObjConta) > 0
+
+                                                If Not GeneroMovimientoAlmacen Then
+                                                    OcurrioError = True
+                                                    Exit For
+                                                End If
+                                            End If
+
+                                        Else
+                                            OcurrioError = True
                                         End If
+
+                                        MovDetalle.Dispose()
                                     End If
-                                Else
+
-                                    OcurrioError = True
                                 End If
 
-                                MovDetalle.Dispose()
+                            ElseIf ObjInventario.GetMovimientos(dr("CveMovimiento").ToString.ToEntero, 3, -1, UsuarioActual.CveEmpresa) Then
+                                'Esquema viejo, evitamos que aparezca por surtir
+                                If Not ObjInventario.ActualizarEsDevolucionVenta(ObjFactura.CveVenta, 2) Then
+                                    OcurrioError = True
+                                    Exit For
+                                End If
                             End If
+                        Next
 
-                        End If
+                        OcurrioError = Not GeneroMovimientoAlmacen
-
-                    ElseIf ObjInventario.GetMovimientos(dr("CveMovimiento").ToString.ToEntero, 3, -1, UsuarioActual.CveEmpresa) Then
-
-                        'Esquema viejo, evitamos que aparezca por surtir
-                        If Not ObjInventario.ActualizarEsDevolucionVenta(ObjFactura.CveVenta, 2) Then
-                            OcurrioError = True
-                            Exit For
-                        End If
-
                     End If
-                Next
 
+                End If
+            Else
+                OcurrioError = True
             End If
 
-        End If
+        Catch ex As Exception
-
+            OcurrioError = True
+            OnError("Ocurrió un error al realizar el traspaso", ex)
+        End Try
         Return Not OcurrioError
     End Function
     Private Function CuadrarFacturaMovimientos(MovDetalle As DataTable) As DataTable
@@ -15737,7 +15531,6 @@ Partial Class Ventas
                 Row("Descuento") = Math.Round(Row("Descuento").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
                 Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
                 Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
-                Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
                 Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
                 Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
             Next
@@ -18836,8 +18629,6 @@ Partial Class Ventas
 
 #End Region
 
-
-
 #Region "D E V O L U C I O N   D E   P E D I D O "
     Private Sub CargaFacturaDevolucionPedido()
         Dim CveVenta As Integer = Me.CveVenta
@@ -23480,9 +23271,4 @@ Partial Class Ventas
 
 #End Region
 
-
-
-
-
-
 End Class