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

AF/CatSubTipos.aspx

@@ -52,8 +52,8 @@
                 </thead>
                 <tr>
                     <td>
-                        <asp:DropDownList ID="DdlTipos" runat="server" AppendDataBoundItems="true" DataValueField="CveTipoActivoFijo" DataTextField="TipoActivoFijo" ValidationGroup="GrpGuardar" Width="190px">
+                        <asp:DropDownList ID="DdlTipos" runat="server" DataValueField="CveTipoActivoFijo" DataTextField="TipoActivoFijo" ValidationGroup="GrpGuardar" Width="190px">
-                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                            
                         </asp:DropDownList>
                         <asp:RequiredFieldValidator ID="RFVTipos" runat="server" ControlToValidate="DdlTipos" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipos''</b> es necesario, por favor ingréselo." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                         <ajax:ValidatorCalloutExtender ID="VCOTipos" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipos" Width="300px"></ajax:ValidatorCalloutExtender>

AF/CatSubTipos.aspx.vb

@@ -18,8 +18,10 @@ Partial Class AF_CatSubTipos
 	End Sub
 
     Private Sub CargaTipos()
+        DdlTipos.Items.Clear()
         DdlTipos.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
         DdlTipos.DataBind()
+        DdlTipos.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
 
     Private Sub CargaGlobal()
@@ -46,7 +48,6 @@ Partial Class AF_CatSubTipos
         Else
             CargaGrid("")
         End If
-        CargaGlobal()
     End Sub
 
 #Region "G V  D A T O S"
@@ -93,6 +94,7 @@ Partial Class AF_CatSubTipos
         End If
 
         If Not TieneError Then
+            CargaGlobal()
             CargaDatos()
         End If
     End Sub
@@ -134,6 +136,7 @@ Partial Class AF_CatSubTipos
         End If
 
         If Not TieneError Then
+            CargaGlobal()
             CargaDatos()
         End If
     End Sub
@@ -200,6 +203,8 @@ Partial Class AF_CatSubTipos
         ObjAF.Dispose()
 
         If Not TieneError Then
+            CargaGlobal()
+
             CargaDatos()
         End If
 

AF/CatTipos.aspx.vb

@@ -104,11 +104,7 @@ Partial Class AF_CatTipos
         UpDatos.Update()
     End Sub
     Private Sub CargaGlobal()
-        Dim ObjTipo As New ClsAF
+        GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) = Nothing
-        If ObjTipo.GetTiposActivosFijos(-1) Then
-            GlobalDTTipoActivoFijo(-1) = ObjTipo.DtResultados
-        End If
-        ObjTipo.Dispose()
     End Sub
 
 #Region " G V - D A T O S"

App_Code/CFDITimbre.vb

@@ -327,12 +327,14 @@ Public Class CFDIConceptos
     Public Property ClaveProdServ As String = ""
     Public Property ClaveUnidad As String = ""
     Public Property Impuestos As List(Of CFDIConceptosImpuestos)
+    Public Property ACuentaTerceros As CFDIConceptosACuentaTerceros
     Public Property Descuento As Decimal = 0.00D
     Public Property ObjetoImpuesto As String = "02"
     Public Property ImporteGravaIVAAdicional As Decimal = 0.00D 'caso IEPS
 
     Sub New()
         Impuestos = New List(Of CFDIConceptosImpuestos)
+        ACuentaTerceros = New CFDIConceptosACuentaTerceros
     End Sub
 
 End Class
@@ -349,6 +351,16 @@ Public Class CFDIConceptosImpuestos
     Public Property ImporteMN As Decimal = 0.000000D
 
 
+End Class
+
+<Serializable>
+Public Class CFDIConceptosACuentaTerceros
+    Public Property RfcACuentaTerceros As String = ""
+    Public Property NombreACuentaTerceros As String = ""
+    Public Property RegimenFiscalACuentaTerceros As String = ""
+    Public Property DomicilioFiscalACuentaTerceros As String = ""
+
+
 End Class
 
 <Serializable>

App_Code/ClsBancos.vb

@@ -1113,7 +1113,8 @@ Public Class ClsBancos
                 Timbre = Timbrado.PreparaTimbrePago40(RFCEmpresa, UsuarioActual.Empresa.Empresa, UsuarioActual.Empresa.CodigoRegimenFiscal,
                                     RFCCliente, dr("NombreCliente").ToString, dr("ClienteCP").ToString, dr("CodigoRegimenFiscal").ToString, Serie, Folio.ToString, FechaTimbrado, Cuentapago,
                                      dr("FechaDocumento").ToString.ToDate, dr("ClaveFormaPagoSAT").ToString, dr("AbreviaturaSAT").ToString, dr("VentasTotalPagado").ToString.ToDecimal,
-                                                UsuarioActual.Empresa.CP.ToString, CuentaBeneficiario, dr("TipoCambioPago").ToString.ToDecimal, dttpagos, dttpagosimpuestos, CFDIRelacionado:=CFDIRelacionado)
+                                                UsuarioActual.Empresa.CP.ToString, CuentaBeneficiario, dr("TipoCambioPago").ToString.ToDecimal, dttpagos, dttpagosimpuestos, CFDIRelacionado:=CFDIRelacionado,
+                                     RfcACuentaTerceros:=dr("RfcACuentaTerceros").ToString, NombreACuentaTerceros:=dr("NombreACuentaTerceros").ToString, RegimenFiscalACuentaTerceros:=dr("RegimenFiscalACuentaTerceros").ToString, DomicilioFiscalACuentaTerceros:=dr("DomicilioFiscalACuentaTerceros").ToString)
 
             Else
                 CFDIVersion = "3.3"

App_Code/ClsContabilidad.vb

@@ -1325,7 +1325,7 @@ Public Class ClsContabilidad
 
             Try
 
-                If GetEncabezadoPrePoliza(CvePrePoliza, Empresa.CveEmpresa) Then
+                If GetEncabezadoPrePoliza(CvePrePoliza, Empresa.CveEmpresa) AndAlso DtResultados.Rows.Count > 0 Then
                     CveTipoPoliza = Data.Rows(0)("CveTipoPoliza").ToString.ToEntero
                     Cargos = Data.Rows(0)("Cargos").ToString.ToDecimal
                     Abonos = Data.Rows(0)("Abonos").ToString.ToDecimal

App_Code/ClsPaginas.vb

@@ -7788,7 +7788,7 @@ Public Class ClsPaginas
         'concepto pago
         Concepto = String.Format("{0} NC:{1}", CompraActual.ProveedorNombre, Pago.Referencia)
         If Pago.TipoPago = "Egsc" AndAlso Not ErrorMovtos Then ' A N T I C I P O   /   E G R E S O S   X   C O M P R O B A R 
-            Dim ConPrepAplicacion As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(11, CompraActual.CveMoneda, True, CompraActual.CveTipoConceptoProveedor)
+            Dim ConPrepAplicacion As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(11, Pago.CveMonedaPago, True, CompraActual.CveTipoConceptoProveedor)
             If Pago.CveMonedaPago > 1 Then
                 'Agregamos la Extranjera
                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, ConPrepAplicacion.CveConcepto, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=Pago.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
@@ -7800,7 +7800,7 @@ Public Class ClsPaginas
             End If
         End If
         If Pago.TipoPago.Contiene("NC", "DEV") AndAlso Not ErrorMovtos Then ' N O T A   D E   C R E D I T O 
-            Dim ConPrepAplicacion As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(15, CompraActual.CveMoneda, True, CompraActual.CveTipoConceptoProveedor)
+            Dim ConPrepAplicacion As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(15, Pago.CveMonedaPago, True, CompraActual.CveTipoConceptoProveedor)
             If Pago.CveMonedaPago > 1 Then
                 'Agregamos la Extranjera
                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, ConPrepAplicacion.CveConcepto, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
@@ -7812,7 +7812,7 @@ Public Class ClsPaginas
             End If
         End If
         If Pago.TipoPago = "DD" AndAlso Not ErrorMovtos Then '  D E U D O R   D I V E R S O
-            Dim ConPrepAplicacion As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(17, CompraActual.CveMoneda, True, CompraActual.CveTipoConceptoProveedor)
+            Dim ConPrepAplicacion As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(17, Pago.CveMonedaPago, True, CompraActual.CveTipoConceptoProveedor)
             If Pago.CveMonedaPago > 1 Then
                 'Agregamos la Extranjera
                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, ConPrepAplicacion.CveConcepto, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=Pago.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True

App_Code/Timbrado.vb

@@ -10,6 +10,8 @@ Imports System.Xml
 Imports System.Xml.Serialization
 Imports Extensiones
 Imports Newtonsoft.Json.Linq
+Imports Profact.TimbraCFDI33.Complementos.CartaPorte10
+Imports Profact.TimbraCFDI33.Complementos.CartaPorte20
 Imports ProfactCartaPorte = Profact.TimbraCFDI33.Complementos.CartaPorte20
 
 
@@ -1042,7 +1044,11 @@ Public Class Timbrado
                                   Serie As String, Folio As String, FechaTimbrado As DateTime,
                                   CuentaPago As String, FechaPago As DateTime, FormaPago As String, MonedaPago As String, Monto As Decimal, LugarExpedicion As String,
                                   CuentaBeneficiario As String, TipoCambioP As Decimal, dttpagos As Data.DataTable, dttpagosimpuestos As DataTable,
-                                  Optional UsoCFDI As String = "CP01", Optional CFDIRelacionado As String = "") As CFDITimbre
+                                  Optional UsoCFDI As String = "CP01", Optional CFDIRelacionado As String = "",
+                                    Optional RfcACuentaTerceros As String = "",
+                                    Optional NombreACuentaTerceros As String = "",
+                                    Optional RegimenFiscalACuentaTerceros As String = "",
+                                    Optional DomicilioFiscalACuentaTerceros As String = "") As CFDITimbre
 
         Dim Timbre As New CFDITimbre
 
@@ -1087,6 +1093,14 @@ Public Class Timbrado
                                                         .ClaveProdServ = "84111506",
                                                         .Noidentificacion = "",
                                                         .ObjetoImpuesto = "01"}
+
+        'Pago ACuentaTerceros
+        If RfcACuentaTerceros <> "" Then
+            concepto.ACuentaTerceros.RfcACuentaTerceros = RfcACuentaTerceros
+            concepto.ACuentaTerceros.NombreACuentaTerceros = NombreACuentaTerceros
+            concepto.ACuentaTerceros.DomicilioFiscalACuentaTerceros = DomicilioFiscalACuentaTerceros
+            concepto.ACuentaTerceros.RegimenFiscalACuentaTerceros = RegimenFiscalACuentaTerceros
+        End If
         Timbre.Conceptos.Add(concepto)
 
         Select Case FormaPago
@@ -1137,6 +1151,7 @@ Public Class Timbrado
                 ObjetoImpuesto = dr("ObjetoImpuesto").ToString
                 VentaImportePagoMN = dr("VentasTotalPagado").ToString.ToDecimal
 
+
                 '' si la moneda es igual, se omite el tipo de cambio de la venta
                 If MonedaPago = VentaAbreviaturaSAT Then
                     VentaTipoCambio = 1
@@ -3628,10 +3643,10 @@ Public Class Timbrado
         If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 Then
             AmbienteProductivo = False
             Clave = "12345678a"
-            EmisorRFC = "IIA040805DZ4"
+            EmisorRFC = "EKU9003173C9"
-            EmisorNombre = "INDISTRIA ILUMINADORA DE ALMACENES SA DE CV"
+            UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE"
-            ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\publicKey.key"
+            ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.key"
-            ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\publicCer.cer"
+            ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.cer"
             UsuarioActual.Empresa.CodigoRegimenFiscal = "601"
         End If
 
@@ -3792,6 +3807,11 @@ Public Class Timbrado
                     comprobante.Conceptos(i).InformacionAduanera = New Profact.TimbraCFDI40.ComprobanteConceptoInformacionAduanera(1) {} 'solo un codigo por el momento
                     comprobante.Conceptos(i).InformacionAduanera(0) = New Profact.TimbraCFDI40.ComprobanteConceptoInformacionAduanera() With {.NumeroPedimento = concep.NumeroPedimento}
                 End If
+                If concep.ACuentaTerceros IsNot Nothing AndAlso concep.ACuentaTerceros.RfcACuentaTerceros <> "" Then
+                    comprobante.Conceptos(i).ACuentaTerceros = New Profact.TimbraCFDI40.ComprobanteConceptoACuentaTerceros() With {
+                                            .RfcACuentaTerceros = concep.ACuentaTerceros.RfcACuentaTerceros, .NombreACuentaTerceros = concep.ACuentaTerceros.NombreACuentaTerceros,
+                                            .RegimenFiscalACuentaTerceros = concep.ACuentaTerceros.RegimenFiscalACuentaTerceros, .DomicilioFiscalACuentaTerceros = concep.ACuentaTerceros.DomicilioFiscalACuentaTerceros}
+                End If
 
                 j = 0
                 k = 0
@@ -4246,7 +4266,9 @@ Public Class Timbrado
                                 ComPag.Pago(ii).ImpuestosP(0).TrasladosP(x).ImpuestoP = Tra.Impuesto
                                 ComPag.Pago(ii).ImpuestosP(0).TrasladosP(x).TipoFactorP = Tra.TipoFactor
                                 ComPag.Pago(ii).ImpuestosP(0).TrasladosP(x).TasaOCuotaP = Tra.TasaOCuota.RoundSQL(6)
+                                ComPag.Pago(ii).ImpuestosP(0).TrasladosP(x).TasaOCuotaPSpecified = True
                                 ComPag.Pago(ii).ImpuestosP(0).TrasladosP(x).ImporteP = Tra.ImporteMN.RoundSQL(6)
+                                ComPag.Pago(ii).ImpuestosP(0).TrasladosP(x).ImportePSpecified = True
                                 ComPag.Pago(ii).ImpuestosP(0).TrasladosP(x).BaseP = Tra.BaseMN.RoundSQL(2)
                                 x += 1
                             Next
@@ -4333,7 +4355,7 @@ Public Class Timbrado
                         ComCartaPorte.Mercancias.Mercancia(i) = New ProfactCartaPorte.CartaPorteMercanciasMercancia
 
                         If concep.BienesTransp <> "" Then
-                            ComCartaPorte.Mercancias.Mercancia(i).BienesTransp = CType([Enum].Parse(GetType(ProfactCartaPorte.c_ClaveProdServCP), "Item" & concep.BienesTransp), ProfactCartaPorte.c_ClaveProdServCP)
+                            ComCartaPorte.Mercancias.Mercancia(i).BienesTransp = concep.BienesTransp
                         End If
 
                         ComCartaPorte.Mercancias.Mercancia(i).Descripcion = concep.Descripción
@@ -4345,7 +4367,7 @@ Public Class Timbrado
                             ComCartaPorte.Mercancias.Mercancia(i).CveMaterialPeligrosoSpecified = True
                             'si lleva material pelgroso, debe llevar embalaje
                             ComCartaPorte.Mercancias.Mercancia(i).EmbalajeSpecified = True
-                            ComCartaPorte.Mercancias.Mercancia(i).Embalaje = CType([Enum].Parse(GetType(ProfactCartaPorte.c_TipoEmbalaje), "Item" & concep.Embalaje), ProfactCartaPorte.c_TipoEmbalaje)
+                            ComCartaPorte.Mercancias.Mercancia(i).Embalaje = concep.Embalaje
                             ComCartaPorte.Mercancias.Mercancia(i).DescripEmbalaje = concep.DescripEmbalaje
                         End If
 
@@ -4760,22 +4782,17 @@ Public Class Timbrado
 
                         If Retorno = "[]" Then
                             Retorno = resultadoTimbre.Descripcion
+                            MensajeErrorCFDI = resultadoTimbre.Descripcion
                         End If
-                        If MensajeErrorCFDI = "[]" Then
-                            Retorno = resultadoTimbre.Descripcion
-                        End If
-
                     End If
                     resultadoTimbre.GuardaXml(RutaArchivo, NombreArchivoXML)
                 Catch ex As Exception
                     Retorno = ex.ToString()
                 End Try
-
             Else
                 Retorno = resultadoTimbre.Detalle
                 MensajeErrorCFDI = resultadoTimbre.Detalle
             End If
-
         End If
 
         GuardaLogTimbrado(swTiempo.ToString, UsuarioActual.Empresa.CvePAC)
@@ -4851,6 +4868,11 @@ Public Class Timbrado
                 Next
                 If concep.CuentaPredial <> "" Then cfdi.CuentaPredial(concep.CuentaPredial)
                 If concep.NumeroPedimento <> "" Then cfdi.InformacionAduanera(concep.NumeroPedimento)
+
+                If concep.ACuentaTerceros IsNot Nothing AndAlso concep.ACuentaTerceros.RfcACuentaTerceros <> "" Then
+                    cfdi.ACuentaTerceros(concep.ACuentaTerceros.RfcACuentaTerceros, concep.ACuentaTerceros.NombreACuentaTerceros,
+                                              concep.ACuentaTerceros.RegimenFiscalACuentaTerceros, concep.ACuentaTerceros.DomicilioFiscalACuentaTerceros)
+                End If
             Next
         End If
 
@@ -5121,7 +5143,6 @@ Public Class Timbrado
                               docp.CadPago,
                               docp.SelloPago)
 
-
                 If docp.DocumentosRelacionados.Count > 0 Then
 
                     For Each doc As CFDIComplementoPagosDocsRelacionados In docp.DocumentosRelacionados
@@ -5555,7 +5576,7 @@ Public Class Timbrado
         If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 Then
 
             EmisorRFC = "EKU9003173C9"
-            UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE SA DE CV"
+            UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE"
             ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.key"
             ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.cer"
 
@@ -6522,7 +6543,7 @@ Public Class Timbrado
                         ComCartaPorte.Mercancias.Mercancia(i) = New ProfactCartaPorte.CartaPorteMercanciasMercancia
 
                         If concep.BienesTransp <> "" Then
-                            ComCartaPorte.Mercancias.Mercancia(i).BienesTransp = CType([Enum].Parse(GetType(ProfactCartaPorte.c_ClaveProdServCP), "Item" & concep.BienesTransp), ProfactCartaPorte.c_ClaveProdServCP)
+                            ComCartaPorte.Mercancias.Mercancia(i).BienesTransp = concep.BienesTransp
                         End If
 
                         ComCartaPorte.Mercancias.Mercancia(i).Descripcion = concep.Descripción
@@ -6534,7 +6555,7 @@ Public Class Timbrado
                             ComCartaPorte.Mercancias.Mercancia(i).CveMaterialPeligrosoSpecified = True
                             'si lleva material pelgroso, debe llevar embalaje
                             ComCartaPorte.Mercancias.Mercancia(i).EmbalajeSpecified = True
-                            ComCartaPorte.Mercancias.Mercancia(i).Embalaje = CType([Enum].Parse(GetType(ProfactCartaPorte.c_TipoEmbalaje), "Item" & concep.Embalaje), ProfactCartaPorte.c_TipoEmbalaje)
+                            ComCartaPorte.Mercancias.Mercancia(i).Embalaje = concep.Embalaje
 
                         End If
 

App_Code/modExtensiones.vb

@@ -29,6 +29,104 @@ Namespace Extensiones
 
 #Region "E X T E N S I O N E S"
     Public Module ModExtensiones
+
+        Public ReadOnly Property foreign_characters As Dictionary(Of String, String)
+            Get
+                Dim fgk As Dictionary(Of String, String) = New Dictionary(Of String, String) From {
+                {"äæǽ", "ae"},
+                {"öœ", "oe"},
+                {"ü", "ue"},
+                {"Ä", "Ae"},
+                {"Ü", "Ue"},
+                {"Ö", "Oe"},
+                {"ÀÁÂÃÄÅǺĀĂĄǍΑΆẢẠẦẪẨẬẰẮẴẲẶА", "A"},
+                {"àáâãåǻāăąǎªαάảạầấẫẩậằắẵẳặа", "a"},
+                {"Б", "B"},
+                {"б", "b"},
+                {"ÇĆĈĊČ", "C"},
+                {"çćĉċč", "c"},
+                {"Д", "D"},
+                {"д", "d"},
+                {"ÐĎĐΔ", "Dj"},
+                {"ðďđδ", "dj"},
+                {"ÈÉÊËĒĔĖĘĚΕΈẼẺẸỀẾỄỂỆЕЭ", "E"},
+                {"èéêëēĕėęěέεẽẻẹềếễểệеэ", "e"},
+                {"Ф", "F"},
+                {"ф", "f"},
+                {"ĜĞĠĢΓГҐ", "G"},
+                {"ĝğġģγгґ", "g"},
+                {"ĤĦ", "H"},
+                {"ĥħ", "h"},
+                {"ÌÍÎÏĨĪĬǏĮİΗΉΊΙΪỈỊИЫ", "I"},
+                {"ìíîïĩīĭǐįıηήίιϊỉịиыї", "i"},
+                {"Ĵ", "J"},
+                {"ĵ", "j"},
+                {"ĶΚК", "K"},
+                {"ķκк", "k"},
+                {"ĹĻĽĿŁΛЛ", "L"},
+                {"ĺļľŀłλл", "l"},
+                {"М", "M"},
+                {"м", "m"},
+                {"ÑŃŅŇΝН", "N"},
+                {"ñńņňʼnνн", "n"},
+                {"ÒÓÔÕŌŎǑŐƠØǾΟΌΩΏỎỌỒỐỖỔỘỜỚỠỞỢО", "O"},
+                {"òóôõōŏǒőơøǿºοόωώỏọồốỗổộờớỡởợо", "o"},
+                {"П", "P"},
+                {"п", "p"},
+                {"ŔŖŘΡР", "R"},
+                {"ŕŗřρр", "r"},
+                {"ŚŜŞȘŠΣС", "S"},
+                {"śŝşșšſσςс", "s"},
+                {"ȚŢŤŦτТ", "T"},
+                {"țţťŧт", "t"},
+                {"ÙÚÛŨŪŬŮŰŲƯǓǕǗǙǛŨỦỤỪỨỮỬỰУ", "U"},
+                {"ùúûũūŭůűųưǔǖǘǚǜυύϋủụừứữửựу", "u"},
+                {"ÝŸŶΥΎΫỲỸỶỴЙ", "Y"},
+                {"ýÿŷỳỹỷỵй", "y"},
+                {"В", "V"},
+                {"в", "v"},
+                {"Ŵ", "W"},
+                {"ŵ", "w"},
+                {"ŹŻŽΖЗ", "Z"},
+                {"źżžζз", "z"},
+                {"ÆǼ", "AE"},
+                {"ß", "ss"},
+                {"IJ", "IJ"},
+                {"ij", "ij"},
+                {"Œ", "OE"},
+                {"ƒ", "f"},
+                {"ξ", "ks"},
+                {"π", "p"},
+                {"β", "v"},
+                {"μ", "m"},
+                {"ψ", "ps"},
+                {"Ё", "Yo"},
+                {"ё", "yo"},
+                {"Є", "Ye"},
+                {"є", "ye"},
+                {"Ї", "Yi"},
+                {"Ж", "Zh"},
+                {"ж", "zh"},
+                {"Х", "Kh"},
+                {"х", "kh"},
+                {"Ц", "Ts"},
+                {"ц", "ts"},
+                {"Ч", "Ch"},
+                {"ч", "ch"},
+                {"Ш", "Sh"},
+                {"ш", "sh"},
+                {"Щ", "Shch"},
+                {"щ", "shch"},
+                {"ЪъЬь", ""},
+                {"Ю", "Yu"},
+                {"ю", "yu"},
+                {"Я", "Ya"},
+                {"я", "ya"}
+            }
+                Return fgk
+            End Get
+        End Property
+
         Public ReadOnly Property DirectorioBaseEmpresas As String
             Get
                 If IsNothing(System.Configuration.ConfigurationManager.AppSettings("DirectorioBaseEmpresas")) Then
@@ -3827,10 +3925,70 @@ Namespace Extensiones
 
             Return fecha >= FechaI AndAlso fecha <= FechaF
         End Function
+
+        <Runtime.CompilerServices.Extension()>
+        Function RemoveDiacritics(ByVal c As Char) As Char
+            For Each entry As KeyValuePair(Of String, String) In foreign_characters
+
+                If entry.Key.IndexOf(c) <> -1 Then
+                    Return entry.Value(0)
+                End If
+            Next
+
+            Return c
+        End Function
+
+        <Runtime.CompilerServices.Extension()>
+        Function RemoveDiacritics(ByVal s As String) As String
+            Dim text As String = ""
+
+            For Each c As Char In s
+                Dim len As Integer = text.Length
+
+                For Each entry As KeyValuePair(Of String, String) In foreign_characters
+
+                    If entry.Key.IndexOf(c) <> -1 Then
+                        text += entry.Value
+                        Exit For
+                    End If
+                Next
+
+                If len = text.Length Then
+                    text += c
+                End If
+            Next
+
+            Return text
+        End Function
     End Module
 #End Region
 
+
 #Region "C L A S E S"
+    Public Class TipoCambioActual
+        Public Fecha As Date
+        Public TipoCambio As Decimal
+    End Class
+
+    Public Class MenuModal
+        Public Sub New()
+            HeaderBar = New StringBuilder("<li><i class='fa fa-home'></i><a href='/Inicio.aspx'>Inicio</a></li>")
+            MenuHTML = New StringBuilder()
+            modpadres = New List(Of String)
+        End Sub
+
+        Property CveModuloSeleccionado As Integer
+        Property CveModuloSeleccionadoPadre As Integer
+        Property dt As DataTable
+
+        Property HeaderBar As StringBuilder
+        Property MenuHTML As StringBuilder
+        Property ScriptColorGrupoModulo As String
+        Property strdomain As String
+        Property modpadres As List(Of String)
+
+
+    End Class
     Public Class Archivo
         Public Sub New()
             filename = ""

Bancos/IE.aspx

@@ -1421,7 +1421,7 @@
                                 <asp:TemplateField HeaderText="Cancelar" Visible="false" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">
                                     <ItemTemplate>
                                         <asp:LinkButton ID="LnkCancelarComplemetno"  OnClick="LnkCancelarComplemetno_Click" runat="server" AlternateText="Editar" CausesValidation="False"
-                                            data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el complemento?" data-btn-ok-label="si"
+                                            data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el complemento?" data-btn-ok-label="si" Visible="false"
                                             CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-minus'></i>" />
                                     </ItemTemplate>
                                 </asp:TemplateField>

Bancos/IE.aspx.vb

@@ -5702,10 +5702,11 @@ Partial Class Bancos_IE
                     If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 Then
                         DVGenerarComplementoModal.Visible = True
                     End If
-                    If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 1 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 Then
+                    If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count >= 1 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 Then
                         DivCancelarComplemento.Visible = True
                         GvComplementoPagos.Columns(7).Visible = True
-                        If UsuarioActual.TienePermisoProceso(85) Then GvComplementoPagos.Columns(8).Visible = True
+                        ' si tiene el permiso para eliminar IE o editar IE
+                        If UsuarioActual.TienePermisoProceso(85) OrElse UsuarioActual.TienePermisoProceso(99) Then GvComplementoPagos.Columns(8).Visible = True
                     End If
                     GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "FolioFiscal", "Folio", "SerieFolio", "FechaComplemento", "Importe", "RFCReceptor", "StrEstatus", "FechaCancelacion", "Tipo", "Estatus", "CveIE", "CvePAC", "MotivoCancelacion"})
 
@@ -5745,9 +5746,6 @@ Partial Class Bancos_IE
                     End If
 
                 Else
-                    e.Row.FCLinkButton("LnkCancelarComplemetno").Visible = False
-                    e.Row.FCDropDownList("DdlMotivoCancelacion").Visible = False
-
                     If e.Row.DataKey("Estatus").ToEntero = 2 Then
                         e.Row.FCLiteral("LtlMotivoCancelacion").Visible = True
                     End If

Compras/Compras.aspx.vb

@@ -13940,7 +13940,7 @@ Partial Class Compras_Compras
     Protected Sub BtnRefacturacionVer_Click(sender As Object, e As EventArgs) Handles BtnRefacturacionVer.Click
         Dim Opcion As Integer = 1
 
-        If UsuarioActual.CveEmpresa.Contiene(119, 1, 140) Then Opcion = 2
+        If UsuarioActual.CveEmpresa.Contiene(119, 1, 140, 172, 173, 174) Then Opcion = 2
 
         Dim ObjCompras As New ClsCompras
 

Compras/Proveedores.aspx

@@ -347,9 +347,10 @@
                                                 <div class="col-md-12">
                                                     <div class="form-group form-md-line-input">            
                                                         <asp:DropDownList ID="DdlCveTipoProveedor" runat="server" CssClass="form-control select2me " Width="206px" AutoPostBack="True" OnSelectedIndexChanged="DdlCveTipoProveedor_SelectedIndexChanged">
-                                                            <asp:ListItem Selected="True" Text="Proveedor" Value="1"></asp:ListItem>
+                                                             <asp:ListItem Selected="True" Text="-" Value="0"></asp:ListItem>
-                                                            <asp:ListItem Selected="False" Text="Acreedor" Value="2"></asp:ListItem>
+                                                            <asp:ListItem   Text="Proveedor" Value="1"></asp:ListItem>
-                                                            <asp:ListItem Selected="False" Text="Ambos" Value="3"></asp:ListItem>
+                                                            <asp:ListItem   Text="Acreedor" Value="2"></asp:ListItem>
+                                                            <asp:ListItem   Text="Ambos" Value="3"></asp:ListItem>
                                                         </asp:DropDownList>
                                                         <asp:RequiredFieldValidator ID="RFVCveTipoProveedor" runat="server" ControlToValidate="DdlCveTipoProveedor" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Proveedor''</b> es necesario, por favor seleccione uno." InitialValue="0" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                         <ajax:ValidatorCalloutExtender ID="VCECveTipoProveedor" runat="server" HighlightCssClass="vco posicionvalidation" TargetControlID="RFVCveTipoProveedor" Width="350px"></ajax:ValidatorCalloutExtender>

Contabilidad2/RepEstadoActividades.aspx

@@ -53,10 +53,8 @@
                                 </asp:DropDownList>
                             </div>
                                                         
-                            <div class="col-md-1">
                             <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>                          
-                            </div>
+                            <div class="col-md-2" id="DivProyecto" runat="server">
-                            <div class="col-md-2">
                                 <asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="95%">
                                 </asp:DropDownList>
                             </div>

Contabilidad2/RepEstadoActividades.aspx.vb

@@ -117,7 +117,7 @@ Partial Class AC_RepEstadoActividades
         End If
         DdlPeriodo.SelectedValue = Now.Month.ToString
 
-        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto)
+        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
 
     End Sub
 

Inventarios/Kardex.aspx

@@ -381,68 +381,61 @@
                             <asp:LinkButton data-toggle="tooltip" title="Editar Fecha" ID="LnkEditarFecha" OnClick="LnkEditarFecha_Click" CssClass="btn btn-circle btn-sm green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:BoundField DataField="Concepto" ItemStyle-Width="170px" HeaderText="Movimiento" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="Concepto" HeaderText="Movimiento" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField DataField="Almacen" ItemStyle-Width="140px" HeaderText="Almacén" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="Almacen" HeaderText="Almacén" ItemStyle-HorizontalAlign="Left" />
                     <asp:TemplateField ItemStyle-Width="70px" HeaderText="Folio">
                         <ItemTemplate>
                             <asp:HyperLink ID="hlFolio" runat="server" Text='<%# Eval("Folio")%>' CssClass="Texto" NavigateUrl='<%# Eval("CveMovimiento", "/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}")%>' Target="_blank" />
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-Width="140px" ItemStyle-HorizontalAlign="Left" HeaderText="Folio Doc.">
+                    <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Folio Doc.">
                         <ItemTemplate>
                             <asp:HyperLink runat="server" Target="_blank" ID="hlFolioD" Text='<%# Eval("FolioDocto")%>' CssClass="Texto" />
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Left" HeaderText="Folio Rel." Visible="false">
+                    <asp:TemplateField  ItemStyle-HorizontalAlign="Left" HeaderText="Folio Rel." Visible="false">
                         <ItemTemplate>
                             <asp:HyperLink runat="server" Target="_blank" ID="hlFolioDr" Text='<%# Eval("FolioRelacionEntrada")%>' NavigateUrl='<%# Eval("CveVentaRelacionada", "/Ventas/Ventas.aspx?CveVenta={0}")%>' CssClass="Texto" />
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Left" HeaderText="U. M.">
+                    <asp:TemplateField ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Left" HeaderText="U. M.">
                         <ItemTemplate>
                             <asp:Label ID="lbUm" runat="server" Text='<%# Eval("UnidadMedida")%>' data-toggle="tooltip" title='<%# Eval("CveUnidadMedida")%>'></asp:Label>
                         </ItemTemplate>
-                        <ItemStyle Width="100px"></ItemStyle>
                     </asp:TemplateField>
                      <asp:TemplateField ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Left" HeaderText="Sección" Visible="false">
                         <ItemTemplate>
                             <asp:Literal ID="lbSA" runat="server" Text='<%# Eval("SeccionAlmacen")%>'></asp:Literal>
                         </ItemTemplate>                       
-                        <ItemStyle Width="100px"></ItemStyle>
                     </asp:TemplateField>
                     <asp:TemplateField ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Left" HeaderText="Serie" Visible="false">
                         <ItemTemplate>
                             <asp:Literal ID="lbS" runat="server" Text='<%# Eval("Serie")%>'></asp:Literal>
                         </ItemTemplate>                       
-                        <ItemStyle Width="100px"></ItemStyle>
                     </asp:TemplateField>
                     <asp:TemplateField ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Left" HeaderText="Lote" Visible="false">
                         <ItemTemplate>
                             <asp:Literal ID="lbL" runat="server" Text='<%# Eval("Lote")%>'></asp:Literal>
                         </ItemTemplate>                     
-                        <ItemStyle Width="70"></ItemStyle>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Center" HeaderText="F. Caducidad" Visible="false">
+                    <asp:TemplateField ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Center" HeaderText="F. Caducidad" Visible="false">
                         <ItemTemplate>
                             <asp:Label ID="lbFCad" runat="server" Text='<%# Eval("FechaCaducidad", "{0:d}")%>' data-toggle="tooltip"></asp:Label>
                         </ItemTemplate>                      
-                        <ItemStyle Width="75px"></ItemStyle>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right" HeaderText="Entrada">
+                    <asp:TemplateField ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" HeaderText="Entrada">
                         <ItemTemplate>
                             <asp:Label ID="lbEntrada" runat="server"
                                 Text='<%# Eval("Entrada", "{0:###,###.####}")%>'></asp:Label>
                         </ItemTemplate>                       
-                        <ItemStyle Width="100px" HorizontalAlign="Right"></ItemStyle>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right" HeaderText="Salida">
+                    <asp:TemplateField ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" HeaderText="Salida">
                         <ItemTemplate>
                             <asp:Label ID="lbSalida" runat="server"
                                 Text='<%# Eval("Salida", "{0:###,###.####}")%>'></asp:Label>
                         </ItemTemplate>
-                        <ItemStyle Width="100px" HorizontalAlign="Right"></ItemStyle>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right" HeaderText="Costo">
+                    <asp:TemplateField ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Right" HeaderText="Costo">
                         <ItemTemplate>
                             <asp:Label ID="lbCosto" runat="server"
                                 Text='<%# Eval("Costo", "{0:N2}")%>'></asp:Label>
@@ -454,21 +447,18 @@
                             <asp:Label ID="lbImporte" runat="server"
                                 Text='<%# Eval("Importe", "{0:N2}")%>'></asp:Label>
                         </ItemTemplate>                       
-                        <ItemStyle Width="100px" HorizontalAlign="Right"></ItemStyle>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right" HeaderText="Existencias">
+                    <asp:TemplateField ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Right" HeaderText="Existencias">
                         <ItemTemplate>
                             <asp:Label ID="lbExistencias" runat="server"
                                 Text='<%# Eval("Existencias", "{0:#,###.####}")%>'></asp:Label>
                         </ItemTemplate>                      
-                        <ItemStyle Width="100px"></ItemStyle>
                     </asp:TemplateField>
                     <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right" HeaderText="Valor">
                         <ItemTemplate>
                             <asp:Label ID="lbValor" runat="server"
                                 Text='<%# Eval("ValorInventario", "{0:N2}")%>'></asp:Label>
                         </ItemTemplate>                      
-                        <ItemStyle Width="100px" HorizontalAlign="Right"></ItemStyle>
                     </asp:TemplateField>
                 </Columns>
                 <RowStyle CssClass="Texto" />

Inventarios/RepConsumoInterno.aspx

@@ -146,13 +146,14 @@
                     <asp:BoundField DataField="FechaMovto" HeaderText="Fecha"  ItemStyle-Width="5%" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" />
                     <asp:BoundField DataField="Almacen" HeaderText="Almacén" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" />
                     
-                    <asp:BoundField DataField="CodPS" HeaderText="Producto" ItemStyle-Width="30%" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="CodPS" HeaderText="Producto" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField DataField="Cantidad" HeaderText="Cantidad" ItemStyle-Width="5%"  DataFormatString="{0:N0}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField DataField="Observaciones" HeaderText="Observaciones" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Left" />
 
                     <asp:BoundField DataField="NombreCompleto" HeaderText="Personal" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField DataField="CodigoAF" HeaderText="Activo Fijo" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField DataField="PU" Visible ="false" HeaderText="Importe" DataFormatString="{0:N2}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField DataField="PU" Visible ="false" HeaderText="PU" DataFormatString="{0:N2}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField DataField="Importe" Visible ="false" HeaderText="Importe" DataFormatString="{0:N2}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
                    
                   <%--  <asp:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="7%">
                         <ItemTemplate>

Inventarios/RepConsumoInterno.aspx.cs

@@ -64,6 +64,7 @@ public partial class Inventarios_RepConsumoInterno : ClsPaginas
         ObjGeneral.Dispose();
         bool TienePermisoImportes = UsuarioActual.TienePermisoProceso(201);
         GVDatos.Columns[8].Visible = TienePermisoImportes; // costo
+        GVDatos.Columns[9].Visible = TienePermisoImportes; // costo
 
         GVDatos.DataBind();
        

Metronic/assets/admin/layout/css/custom.css

@@ -12,7 +12,9 @@
 .table-hover > tbody > tr:hover {
     background-color: #e5e5e5;
 }
-
+.page-sidebar-menu .dnone {
+    display: none;
+}
 .table-striped > tbody > tr:nth-of-type(odd).ADSRow,
 table > tbody > tr.ADSRow > td, table.table > tbody > tr.ADSRow > td,
 table > tr.ADSRow > td, table.table > tr.ADSRow > td,

RH/Asistencias.aspx

@@ -34,7 +34,7 @@
                     <div class="titlefiltros ">
                         <ul class="list-inline">
                             <li>Cliente:
-                                <asp:Button ID="BtnCargarClientes" runat="server" ClientIDMode="Static" Text="CargarClientes" Style="display: none;" />
+                               
                                 <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlCliente" Width="100%" data-metodo="getcliente" UsaWebService="true" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%"></ADS:Dropdownlost>
                                 <%--<asp:DropDownList ID="DdlCliente" runat="server" AppendDataBoundItems="true" Style="display: inline-block; width: 250px;" DataTextField="Nombre" DataValueField="CveCliente" Class="form-control input-sm select2me">
                                     <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
@@ -66,17 +66,20 @@
                                     <asp:ListItem Text="Cabecera" Value="0"></asp:ListItem>
                                 </asp:DropDownList>
                             </li>
-                            <li style="width: 227px">
+                            <li style="width: 167px">
                                 <asp:Label runat="server" AssociatedControlID="TxtFechaAsistencia">F. Asistencia: </asp:Label>
-                                <asp:TextBox ID="TxtFechaAsistencia" runat="server" MaxLength="10" Width="90px" Height="28px"></asp:TextBox><span class="input-group-btn "><asp:LinkButton ID="ImgFechaAsistencia" class="btn default " Style="padding: 4px 8px;" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                                    <asp:TextBox Width="80px" ID="txtFechaAsistencia" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                                     </span>
-                                <ajax:MaskedEditExtender ID="MEEFechaAsistencia" runat="server" TargetControlID="TxtFechaAsistencia" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                </div>
-                                <ajax:CalendarExtender runat="server" ID="CEFechaAsistencia" TargetControlID="TxtFechaAsistencia" PopupButtonID="ImgFechaAsistencia" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaAsistencia" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                <asp:RequiredFieldValidator ID="RFVFechaAsistencia" runat="server" ControlToValidate="TxtFechaAsistencia" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Ingreso''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaAsistencia" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                <asp:CompareValidator ID="CVFechaAsistencia" runat="server" ControlToValidate="TxtFechaAsistencia" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Ingreso''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaAsistencia" Display="None" ErrorMessage="El campo <b>''Fecha Asistencia''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
-                                <ajax:ValidatorCalloutExtender ID="VCOFechaAsistencia1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaAsistencia" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaAsistencia" Display="None" ErrorMessage="El campo <b>''Fecha Asistencia''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
-                                &nbsp;
+                                <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
-                        <ajax:ValidatorCalloutExtender ID="VCOFechaAsistencia2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaAsistencia" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
                             </li>
                         </ul>
                     </div>

RH/Asistencias.aspx.vb

@@ -9,7 +9,7 @@ Partial Class RH_Asistencias
 
         If Not IsPostBack Then
             'CargaClientes()
-            DdlCliente.Attributes.Add("onclick", "CargaClientes();")
+            'DdlCliente.Attributes.Add("onclick", "CargaClientes();")
             CargaSuperioresOrganigrama()
             CargaProyecto()
             CargaTurnos()
@@ -44,23 +44,23 @@ Partial Class RH_Asistencias
 
     End Sub
 #End Region
-    Private Sub CargaClientes()
+    'Private Sub CargaClientes()
-        Dim ObjClientes As New ClsClientes
+    '    Dim ObjClientes As New ClsClientes
-        If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1) Then
+    '    If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1) Then
-            DdlCliente.DataSource = ObjClientes.DtResultados
+    '        DdlCliente.DataSource = ObjClientes.DtResultados
-        Else
+    '    Else
-            DdlCliente.DataSource = Nothing
+    '        DdlCliente.DataSource = Nothing
-        End If
+    '    End If
-        ObjClientes.Dispose()
+    '    ObjClientes.Dispose()
-        'Application("GlobalDTResponsable")
+    '    'Application("GlobalDTResponsable")
 
-        DdlCliente.DataBind()
+    '    DdlCliente.DataBind()
-    End Sub
+    'End Sub
 
-    Protected Sub BtnCargarClientes_Click(sender As Object, e As System.EventArgs) Handles BtnCargarClientes.Click
+    'Protected Sub BtnCargarClientes_Click(sender As Object, e As System.EventArgs) Handles BtnCargarClientes.Click
-        CargaClientes()
+    '    'CargaClientes()
-        DdlCliente.Attributes.Remove("onclick")
+    '    'DdlCliente.Attributes.Remove("onclick")
-    End Sub
+    'End Sub
 
     Private Sub CargaProyecto()
         'DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", DistinctColumns:={"CveProyecto", "Proyecto"})

RH/RepPersonalInconsistencias.aspx

@@ -92,8 +92,8 @@
                             <ContentTemplate>
                                 <asp:Label ID="LbTotalContratos" runat="server" Font-Size="Medium"></asp:Label><br />
                                 <br />
-                                <asp:GridView ID="GV" runat="server" ShowHeader="True" AutoGenerateColumns="False" EmptyDataText="No se encontraron Registros de Contratos Vencidos o Próximos a Vencer." CellPadding="1" CellSpacing="1" RowStyle-VerticalAlign="Middle" RowStyle-HorizontalAlign="Center" 
+                                <asp:GridView ID="GV" runat="server" ShowHeader="True" AutoGenerateColumns="False" EmptyDataText="No se encontraron Registros de Contratos Vencidos o Próximos a Vencer." CellPadding="1" CellSpacing="1" RowStyle-VerticalAlign="Middle"  
-                                     CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
+                                     CssClass="table table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
                                     <Columns>
                                         <asp:TemplateField  ItemStyle-HorizontalAlign="Left">
                                             <HeaderTemplate>
@@ -106,7 +106,6 @@
                                                 <asp:Label ID="Label1" runat="server" Text='<%# Bind("NombreCompleto")%>'></asp:Label>
                                             </ItemTemplate>
                                             <ControlStyle CssClass="Texto" />                                          
-                                            <ItemStyle Width="450px" />
                                         </asp:TemplateField>
                                         <asp:TemplateField>
                                             <HeaderTemplate>
@@ -119,7 +118,6 @@
                                                 <asp:Label ID="Label2" runat="server" Text='<%# Bind("FechaIngreso", "{0:d}")%>'></asp:Label>
                                             </ItemTemplate>
                                             <ControlStyle CssClass="Texto" />                                          
-                                            <ItemStyle Width="200px" />
                                         </asp:TemplateField>
                                         <asp:TemplateField>
                                             <HeaderTemplate>
@@ -132,7 +130,6 @@
                                                 <asp:Label ID="Label3" runat="server" Text='<%# Bind("Turno")%>'></asp:Label>
                                             </ItemTemplate>
                                             <ControlStyle CssClass="Texto" />                                          
-                                            <ItemStyle Width="110px" />
                                         </asp:TemplateField>
                                         <asp:TemplateField>
                                             <HeaderTemplate>
@@ -145,7 +142,6 @@
                                                 <asp:Label ID="Label4" runat="server" Text='<%# Bind("Departamento")%>'></asp:Label>
                                             </ItemTemplate>
                                             <ControlStyle CssClass="Texto" />                                          
-                                            <ItemStyle Width="150px" />
                                         </asp:TemplateField>
                                         <asp:TemplateField>
                                             <HeaderTemplate>
@@ -158,7 +154,6 @@
                                                 <asp:Label ID="Label5" runat="server" Text='<%# Bind("Puesto")%>'></asp:Label>
                                             </ItemTemplate>
                                             <ControlStyle CssClass="Texto" />                                           
-                                            <ItemStyle Width="200px" />
                                         </asp:TemplateField>
                                         <asp:TemplateField>
                                             <HeaderTemplate>
@@ -171,7 +166,6 @@
                                                 <asp:Label ID="Label6" runat="server" Text='<%# Bind("Proyecto")%>'></asp:Label>
                                             </ItemTemplate>
                                             <ControlStyle CssClass="Texto" />                                           
-                                            <ItemStyle Width="300px" />
                                         </asp:TemplateField>
                                         <asp:TemplateField>
                                             <HeaderTemplate>
@@ -184,7 +178,7 @@
                                                 <asp:Label ID="Label7" runat="server" Text='<%# Bind("SubProyecto")%>'></asp:Label>
                                             </ItemTemplate>
                                             <ControlStyle CssClass="Texto" />
-                                            <ItemStyle Width="300px" />
+                                           
                                         </asp:TemplateField>
                                         <asp:TemplateField>
                                             <HeaderTemplate>
@@ -197,7 +191,6 @@
                                                 <asp:Label ID="Label8" runat="server" Text='<%# Bind("SeInscribioSS")%>'></asp:Label>
                                             </ItemTemplate>
                                             <ControlStyle CssClass="Texto" />                                           
-                                            <ItemStyle Width="450px" />
                                         </asp:TemplateField>
                                         <asp:TemplateField>
                                             <HeaderTemplate>
@@ -210,25 +203,19 @@
                                                 <asp:Label ID="Label9" runat="server" Text='<%# Bind("FechaFinContrato", "{0:d}")%>'></asp:Label>
                                             </ItemTemplate>
                                             <ControlStyle CssClass="Texto" />                                          
-                                            <ItemStyle Width="200px" />
                                         </asp:TemplateField>
                                         <asp:TemplateField>
                                             <HeaderTemplate>
-                                               <%-- <asp:LinkButton ID="LbEstatus" runat="server" CausesValidation="False" Text="" CommandArgument="Estatus0;0" OnClick="LbOrden_Click">--%>
                                              Estatus
-                                                   <%-- <asp:Literal ID="ImgEstatus0" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
-                                                </asp:LinkButton>--%>
                                             </HeaderTemplate>
                                             <ItemTemplate>
                                                 <asp:Label ID="Label10" runat="server" Text='<%# Bind("Estatus")%>'></asp:Label>
                                             </ItemTemplate>
                                             <ControlStyle CssClass="Texto" />                                          
-                                            <ItemStyle Width="110px" />
                                         </asp:TemplateField>                                        
                                     </Columns>
-                                    <HeaderStyle CssClass="Titulos"></HeaderStyle>
+                                    <RowStyle CssClass="Texto" />
-                                    <AlternatingRowStyle CssClass="TextoAlterno"></AlternatingRowStyle>
+                                    <HeaderStyle CssClass="Titulos" />
-                                    <RowStyle CssClass="Texto"></RowStyle>
                                 </asp:GridView>
                             </ContentTemplate>
                         </asp:UpdatePanel>
@@ -377,7 +364,6 @@
                                         </asp:TemplateField>
                                     </Columns>
                                     <HeaderStyle CssClass="Titulos"></HeaderStyle>                                  
-                                    <AlternatingRowStyle CssClass="TextoAlterno"></AlternatingRowStyle>
                                     <RowStyle CssClass="Texto"></RowStyle>
                                 </asp:GridView>
                             </ContentTemplate>

Site.master

@@ -13,6 +13,11 @@
     <meta content="" name="description" />
     <meta content="" name="author" />
     <!-- BEGIN STYLES -->
+    <style>
+        .page-sidebar-menu .dnone {
+            display: none;
+        }
+    </style>
     <%: Scripts.Render("~/bundles/modernizr") %>
     <%: Styles.Render("~/Content/AjaxControlToolkit/Styles/Bundle") %>
     <link rel="preconnect" href="https://fonts.googleapis.com">
@@ -284,7 +289,8 @@
                                     <li runat="server" id="DivPerfil" visible="false">
                                         <a runat="server" id="A1" href="/RH/MiPerfil.aspx" style="cursor: pointer;"><i class="fa fa-user"></i>Mi Perfil</a>
                                     </li>
-                                    <li><asp:LinkButton ID="LnkDescargarManual" runat="server" Text="<i class='fa fa-download'></i>  Descargar Manual SIG" OnClick="LnkDescargarManual_Click"></asp:LinkButton></li>
+                                    <li>
+                                        <asp:LinkButton ID="LnkDescargarManual" runat="server" Text="<i class='fa fa-download'></i>  Descargar Manual SIG" OnClick="LnkDescargarManual_Click"></asp:LinkButton></li>
                                     <li><a onclick="javascript:AbrirVentana('/Sistemas/CatContrasenia.aspx');"><i class="fa fa-exchange"></i>Cambiar Contraseña</a></li>
                                     <li runat="server" id="DivConfiguracionEmpresa" visible="false"><a runat="server" id="BtnConfiguracionEmpresa" style="cursor: pointer;"><i class="fa fa-cog"></i>Configuración Empresa</a></li>
                                     <li><a runat="server" id="BtnCerrarSesion"><i class="fa fa-key"></i>Cerrar Sesión</a></li>
@@ -683,7 +689,7 @@
 
         <!-- END JAVASCRIPTS -->
 
-    <asp:panel runat="server" id="pnlNotificacionSAT" Visible="false"  CssClass="modal ADS fade" role="dialog">
+        <asp:Panel runat="server" ID="pnlNotificacionSAT" Visible="false" CssClass="modal ADS fade" role="dialog">
             <asp:UpdatePanel ID="UpNotificacionesFoliosSAT" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
                 <ContentTemplate>
                     <div class="modal-content rowpadding">
@@ -693,7 +699,7 @@
                             </button>
                             <h4 class="modal-title" runat="server" style="text-align: left">Folios descargados</h4>
                         </div>
-                    <div class="modal-body" style="min-width:1000px;">
+                        <div class="modal-body" style="min-width: 1000px;">
                             <asp:TextBox ID="TxtCveNotisat" CssClass="hidden" runat="server"></asp:TextBox><asp:Button ID="btnoknotisat" OnClick="btnoknotisat_Click" CssClass="hidden" runat="server" Text="Button" />
 
                             <asp:GridView ID="GVnotiFoliosSAT" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVFoliosSAT" AutoGenerateColumns="False"
@@ -738,7 +744,7 @@
                     </div>
                 </ContentTemplate>
             </asp:UpdatePanel>
-    </asp:panel>
+        </asp:Panel>
         <div id="pogresspostback" class="hidden" style="z-index: 10000;" runat="server">
             <div style="width: 200px; position: absolute; margin: 0 0 0 -100px; top: 50%; left: 50%; background-color: transparent;">
                 <div class="loading-spinner" style="width: 300px;">

Site.master.vb

@@ -1,12 +1,14 @@
 Option Explicit On
 Option Strict On
 
+Imports System.Activities.Statements
 Imports System.Data
 Imports System.IO
 Imports System.Security.Cryptography.X509Certificates
 Imports ADSNetLibrary.SIGAPI.Services.SAT.DescargaCFDI
 Imports DocumentFormat.OpenXml.Math
 Imports DocumentFormat.OpenXml.Packaging
+Imports DocumentFormat.OpenXml.Spreadsheet
 Imports Extensiones
 'Imports Microsoft.AspNet.SignalR.Client
 'Imports ChatHub
@@ -305,22 +307,6 @@ Partial Class Site
     '    dt.ReadXml(String.Format("{0}\Menu\ERP\{1}_Conf.xml", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveUsuario))
 
     'End Sub
-    Public Class MenuModal
-        Public Sub New()
-            HeaderBar = New StringBuilder("<li><i class='fa fa-home'></i><a href='/Inicio.aspx'>Inicio</a></li>")
-            MenuHTML = New StringBuilder()
-        End Sub
-
-        Property CveModuloSeleccionado As Integer
-        Property CveModuloSeleccionadoPadre As Integer
-        Property dt As DataTable
-
-        Property HeaderBar As StringBuilder
-        Property MenuHTML As StringBuilder
-        Property ScriptColorGrupoModulo As String
-
-
-    End Class
     Private Function ArmarMenu(CveModulo As Integer, ByRef menuobj As MenuModal) As MenuModal
         Dim listaModulos As EnumerableRowCollection(Of DataRow) = From i In menuobj.dt.AsEnumerable Where i!CvePadre.Equals(CveModulo) Order By i!Orden
         Dim cveModuloActual As Integer
@@ -329,7 +315,8 @@ Partial Class Site
         Dim estilo As String
         For Each drP As DataRow In listaModulos
             cveModuloActual = drP("CveModulo").ToString().ToEntero()
-            liga = If(drP("PopUp").ToString() = "S", String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drP("LIGA"), drP("ANCHO"), drP("ALTO")), drP("LIGA").ToString())
+
+            liga = If(drP("PopUp").ToString() = "S", String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drP("LIGA"), drP("ANCHO"), drP("ALTO")), If(drP("IsAngular").ToString() = "1", String.Format("{1}:84{0}", drP("LIGA"), menuobj.strdomain), drP("LIGA").ToString()))
             modulo = drP("Modulo").ToString()
             estilo = If(drP("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drP("Estilo")), "")
 
@@ -340,11 +327,15 @@ Partial Class Site
             End If
 
             menuobj.MenuHTML.AppendFormat("<li><a id='m{0}' href=""{1}"">{2}<span class='title'>{3}</span>", cveModuloActual, liga, estilo, modulo)
+
+
             drP.Delete()
             menuobj.dt.AcceptChanges()
             If menuobj.dt.COUNT("CveModulo", String.Format("CvePadre ={0}", cveModuloActual)) > 0 Then
                 menuobj.MenuHTML.AppendFormat("<span id='j{0}'></span><span class='arrow '></span></a><ul class='sub-menu'>", cveModuloActual)
+                menuobj.modpadres.Add(modulo.RemoveDiacritics())
                 menuobj = ArmarMenu(cveModuloActual, menuobj)
+                menuobj.modpadres.RemoveAt(menuobj.modpadres.Count - 1)
 
                 If menuobj.CveModuloSeleccionadoPadre = cveModuloActual Then
 
@@ -358,11 +349,19 @@ Partial Class Site
                     menuobj.HeaderBar.AppendFormat("<li><i class='fa fa-angle-right'></i><a href='{0}'>{1}</a></li>", liga, modulo)
                     menuobj.CveModuloSeleccionadoPadre = CveModulo
                 End If
-                menuobj.MenuHTML.AppendFormat("</ul>")
+                menuobj.MenuHTML.Append("</ul>")
             Else
-                menuobj.MenuHTML.AppendFormat("</a>")
+                menuobj.MenuHTML.Append("</a>")
             End If
-            menuobj.MenuHTML.AppendFormat("</li>")
+
+            menuobj.MenuHTML.AppendFormat("<a class='dnone'>{0}", modulo.RemoveDiacritics())
+            For Each items As String In menuobj.modpadres
+                menuobj.MenuHTML.Append("-")
+                menuobj.MenuHTML.AppendFormat("{0}", items)
+
+            Next
+            menuobj.MenuHTML.Append("</a>")
+            menuobj.MenuHTML.Append("</li>")
         Next
         Return menuobj
 
@@ -393,13 +392,13 @@ Partial Class Site
         Dim menuobj = New MenuModal()
         menuobj.dt = dt
         menuobj.CveModuloSeleccionado = CveModulomasterpage.Text.ToEntero()
+        menuobj.strdomain = Request.Url.AbsoluteUri.Replace(Request.Url.PathAndQuery, "").Replace("https://", "http://")
+        If Request.Url.Port <> 80 Then
+            menuobj.strdomain = menuobj.strdomain.Replace(String.Format(":{0}", Request.Url.Port), "")
+        End If
         Dim newmenuobj As MenuModal = ArmarMenu(0, menuobj)
 
 
-        Dim strdomain = Request.Url.AbsoluteUri.Replace(Request.Url.PathAndQuery, "").Replace("https://", "http://")
-        If Request.Url.Port <> 80 Then
-            strdomain = strdomain.Replace(String.Format(":{0}", Request.Url.Port), "")
-        End If
         'Dim MenuHTML As New StringBuilder
         'For Each drP As DataRow In Inicio
         '    CveModuloPadre = drP("CveModulo").ToString().ToEntero()
@@ -703,7 +702,3 @@ Partial Class Site
         End Try
     End Sub
 End Class
-Public Class TipoCambioActual
-    Public Fecha As Date
-    Public TipoCambio As Decimal
-End Class

Ventas/Clientes.aspx

@@ -1989,16 +1989,16 @@
                                                     </div>
                                                 </div>
                                                 <div class="row">                                                    
-                                                    <div class="col-md-12 text-center">
+                                                    <div class="col-md-4 text-center">
-                                                        <asp:LinkButton ID="LnkGenerarReporteCxC" CssClass="btn btn-success" Text="<i class='fa fa-cogs'></i>  Generar" runat="server" />
-                                                        &nbsp;&nbsp;<asp:Button ID="BtnCobranzaSMS" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" runat="server" Visible="false" Text=" Enviar SMS" OnClick="BtnCobranzaSMS_Click" CssClass="btn btn-default" />
-                                                    </div>
-                                                    <div class="col-md-12 text-center">
                                                         <asp:RadioButtonList ID="RBLGenerarReporteCxC" RepeatDirection="Horizontal" runat="server" Style="margin: 0 auto;">
                                                             <asp:ListItem Text="PDF" Value="PDF" Selected="True" />
                                                             <asp:ListItem Text="EXCEL" Value="EXCEL" />
                                                         </asp:RadioButtonList>
                                                     </div>
+                                                    <div class="col-md-4 text-center">
+                                                        <asp:LinkButton ID="LnkGenerarReporteCxC" CssClass="btn btn-success" Text="<i class='fa fa-cogs'></i>  Generar" runat="server" />
+                                                        &nbsp;&nbsp;<asp:Button ID="BtnCobranzaSMS" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" runat="server" Visible="false" Text=" Enviar SMS" OnClick="BtnCobranzaSMS_Click" CssClass="btn btn-default" />
+                                                    </div>
                                                 </div>
                                             </div>
                                             <div class="portlet-footer">

Ventas/Clientes.aspx.vb

@@ -1999,7 +1999,7 @@ Partial Class Clientes
             If DtCxCActivas.MAX("LineaAdicional") = "" Then GvCxC.Columns(6).Visible = False
             If DtCxCActivas.MAX("CobranzaEstatus") = "" Then GvCxC.Columns(10).Visible = False
             'solo tomo los 10 ultimos mas el totalizador general
-            Dim dt As DataTable = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'")
+            Dim dt As DataTable = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'", "Fecha DESC")
             DtHistorialCxC = dt
             If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
                 GvCxCHistorial.DataSource = dt.AsEnumerable().Take(22).CopyToDataTable()

Ventas/RepCancelacionesPorRespuesta.aspx

@@ -104,7 +104,7 @@
 
                             <asp:GridView ID="GvRefacturaciones" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron solicitudes de cancelación"
                                 DataKeyNames="CveVenta,CveCliente,SerieFolio,Folio,TipoDocto,Nombre,FolioFiscal,Total,SubTotal,CveEstatusFactura,RFCReceptor,CveEstatusRefacturacion,CveVentaSustitucion,TotalSustitucion,RFCReceptorSustitucion,CveClienteSustitucion,FolioFiscalSustitucion,SerieFolioSustitucion"
-                                CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" GridLines="None" Width="99%" OnRowDataBound="GvDatos_RowDataBound">
+                                CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" GridLines="None" Width="99%" OnRowDataBound="GvRefacturaciones_RowDataBound">
                                 <Columns>
                                     <asp:BoundField HeaderText="Cliente" DataField="Nombre" ItemStyle-Width="25%" />
                                     <asp:BoundField HeaderText="Folio Fiscal" DataField="FolioFiscal" ItemStyle-Width="265px" />
@@ -125,7 +125,7 @@
                                         <ItemTemplate>
                                             <div class="row" style="padding-bottom:3px;">
                                                 <div class="col-md-12">
-                                                    <asp:LinkButton ID="LnkCancelar" Visible="false" runat="server" OnClick="BtnCancelarDocumento_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-ban'> </i>" ToolTip="Cancelar refacturación" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el documento?" data-btn-ok-label="si"></asp:LinkButton>
+                                                    <asp:LinkButton ID="LnkCancelar" Visible="false" runat="server" OnClick="BtnCancelarDocumento_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-ban'> </i>" ToolTip="Esta seguro que desea cancelar la factura pendiente?" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el documento?" data-btn-ok-label="si"></asp:LinkButton>
                                                 </div>
                                             </div>
                                             <div class="row">

Ventas/RepCancelacionesPorRespuesta.aspx.cs

@@ -623,6 +623,35 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
             }
         }
     }
+
+    protected void GvRefacturaciones_RowDataBound(object sender, GridViewRowEventArgs e)
+    {
+        if (e.Row.RowType == DataControlRowType.DataRow)
+        {
+            GridView gv = (GridView)sender;
+            if (!(e.Row.DBCampo("PuedeRefacturar").ToEntero() == 0 || !string.IsNullOrEmpty(e.Row.DBCampo("FolioFiscalSustitucion"))))
+            {
+                e.Row.FCHyperLink("HplRefact").NavigateUrl = string.Format("/Ventas/Ventas.aspx?CveDevolucion={0}&NuevaFactura=1", e.Row.DBCampo("CveVenta"));
+                e.Row.FCHyperLink("HplRefact").Visible = true;
+            }
+
+            if (e.Row.DBCampo("CveEstatusFactura").ToString().ToEntero() == 23)
+            {
+                e.Row.FCLinkButton("LnkValidarRefac").Visible = false;
+            }
+
+            if (e.Row.DBCampo("PuedeRefacturar") == "0" && e.Row.DBCampo("CveEstatusFactura") == "23" && e.Row.DBCampo("CveVentaSustitucion").ToEntero() > 0)
+            {
+                if (e.Row.FCLinkButton("LnkCancelar") != null) e.Row.FCLinkButton("LnkCancelar").Visible = true;
+            }
+
+            if (string.IsNullOrEmpty(e.Row.DBCampo("FolioFiscal")))
+            {
+                e.Row.FCLinkButton("LnkValidarRefac").Visible = false;
+            }
+        }
+    }
+
     public void BtnEnviarMailCancelacion_Click(object sender, EventArgs e)
     {
         if (this.CveVenta > 0)

Ventas/Ventas.aspx.vb

@@ -23661,7 +23661,7 @@ Partial Class Ventas
 
 #Region " INVENTARIO POR ENTREGA"
     Private Sub InventarioMov(Optional CveVentaPadre As Integer = -1)
-        If CveVentaPadre > 0 Then
+        If CveVentaPadre > 0 AndAlso DdlTipoComprobante.SelectedValue <> "Dev" Then
             Dim RowVentas As DataRow = Nothing
             Using ObjVentas As New ClsVentas
                 If ObjVentas.GetVenta(CveVentaPadre, UsuarioActual.CveEmpresa, VerificaAlmacen:=False) Then
@@ -34657,6 +34657,10 @@ Partial Class Ventas
         CalculaLineasAdicionales()
         DdlLineaAdicional.Enabled = True
 
+        If UsuarioActual.TienePermisoProceso(357) AndAlso LblSeTimbro.Text = "No" Then
+            DdlUsoCFDI.Enabled = True
+        End If
+
         UpParametros.Update()
         UPObservaciones.Update()
         UpFacturar.Update()