diff --git a/AF/CatSubTipos.aspx b/AF/CatSubTipos.aspx index 1c87568c5..1c97e6a3e 100644 --- a/AF/CatSubTipos.aspx +++ b/AF/CatSubTipos.aspx @@ -52,8 +52,8 @@ - - + + diff --git a/AF/CatSubTipos.aspx.vb b/AF/CatSubTipos.aspx.vb index cc023e732..d35a95f54 100644 --- a/AF/CatSubTipos.aspx.vb +++ b/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" @@ -92,7 +93,8 @@ Partial Class AF_CatSubTipos CargaGrid("") End If - If Not TieneError Then + If Not TieneError Then + CargaGlobal() CargaDatos() End If End Sub @@ -133,7 +135,8 @@ Partial Class AF_CatSubTipos CargaGrid("") End If - If Not TieneError Then + If Not TieneError Then + CargaGlobal() CargaDatos() End If End Sub @@ -199,7 +202,9 @@ Partial Class AF_CatSubTipos End If ObjAF.Dispose() - If Not TieneError Then + If Not TieneError Then + CargaGlobal() + CargaDatos() End If diff --git a/AF/CatTipos.aspx.vb b/AF/CatTipos.aspx.vb index 310644925..d7dd84cf6 100644 --- a/AF/CatTipos.aspx.vb +++ b/AF/CatTipos.aspx.vb @@ -104,11 +104,7 @@ Partial Class AF_CatTipos UpDatos.Update() End Sub Private Sub CargaGlobal() - Dim ObjTipo As New ClsAF - If ObjTipo.GetTiposActivosFijos(-1) Then - GlobalDTTipoActivoFijo(-1) = ObjTipo.DtResultados - End If - ObjTipo.Dispose() + GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) = Nothing End Sub #Region " G V - D A T O S" diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb index b0e2013b4..8080a8225 100644 --- a/App_Code/CFDITimbre.vb +++ b/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 + + +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 diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 7c010deb9..8b1f062b8 100644 --- a/App_Code/ClsBancos.vb +++ b/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" diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index a10b756f0..822536e62 100644 --- a/App_Code/ClsContabilidad.vb +++ b/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 diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 79dc0d4f2..eb20408ad 100644 --- a/App_Code/ClsPaginas.vb +++ b/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 diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index ed304f1ff..499b625e0 100644 --- a/App_Code/Timbrado.vb +++ b/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" - EmisorNombre = "INDISTRIA ILUMINADORA DE ALMACENES SA DE CV" - ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\publicKey.key" - ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\publicCer.cer" + EmisorRFC = "EKU9003173C9" + UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE" + ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.key" + 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 diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index c9901fe10..a8437e242 100644 --- a/App_Code/modExtensiones.vb +++ b/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 @@ -3826,11 +3924,71 @@ Namespace Extensiones Dim FechaF As DateTime = New DateTime(Year, 10, 1, 23, 59, 59).GetLastWeekdayOfMonth(DayOfWeek.Sunday) 'ULTIMO DOMINGO DE OCTUBRE Return fecha >= FechaI AndAlso fecha <= FechaF + End Function + + + 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 + + + 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" + +#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("
  • Inicio
    • ") + 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 = "" diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index 74dcf3c93..a707d96a5 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -1421,7 +1421,7 @@ diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index c28aae75d..28d3c6bbc 100644 --- a/Bancos/IE.aspx.vb +++ b/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 diff --git a/Bin/GoCfdi.dll b/Bin/GoCfdi.dll index 7dbd0787b..21ce57ca2 100644 Binary files a/Bin/GoCfdi.dll and b/Bin/GoCfdi.dll differ diff --git a/Bin/Profact.TimbraCFDI.dll b/Bin/Profact.TimbraCFDI.dll index b1c756dcf..9754ce481 100644 Binary files a/Bin/Profact.TimbraCFDI.dll and b/Bin/Profact.TimbraCFDI.dll differ diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index c20eb252e..30294692a 100644 --- a/Compras/Compras.aspx.vb +++ b/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 diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx index 715520321..4165a41c9 100644 --- a/Compras/Proveedores.aspx +++ b/Compras/Proveedores.aspx @@ -346,10 +346,11 @@
    - - - - + + + + + diff --git a/Contabilidad2/RepEstadoActividades.aspx b/Contabilidad2/RepEstadoActividades.aspx index ed4a8de04..24eae304f 100644 --- a/Contabilidad2/RepEstadoActividades.aspx +++ b/Contabilidad2/RepEstadoActividades.aspx @@ -52,11 +52,9 @@
    - -
    - Proyecto: -
    -
    + + Proyecto: +
    diff --git a/Contabilidad2/RepEstadoActividades.aspx.vb b/Contabilidad2/RepEstadoActividades.aspx.vb index e14be48d4..6d7b33fa3 100644 --- a/Contabilidad2/RepEstadoActividades.aspx.vb +++ b/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 diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx index 3d498a255..35f2e4e57 100644 --- a/Inventarios/Kardex.aspx +++ b/Inventarios/Kardex.aspx @@ -381,68 +381,61 @@ - - + + - + - + - + - - - + - - + - - + - + - - + - + - - + - + - - + @@ -453,22 +446,19 @@ - - + - + - - + - - + diff --git a/Inventarios/RepConsumoInterno.aspx b/Inventarios/RepConsumoInterno.aspx index 857981789..9afde798e 100644 --- a/Inventarios/RepConsumoInterno.aspx +++ b/Inventarios/RepConsumoInterno.aspx @@ -146,13 +146,14 @@ - + - + + <%-- diff --git a/Inventarios/RepConsumoInterno.aspx.cs b/Inventarios/RepConsumoInterno.aspx.cs index e81864e3f..36a79e39b 100644 --- a/Inventarios/RepConsumoInterno.aspx.cs +++ b/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(); diff --git a/Metronic/assets/admin/layout/css/custom.css b/Metronic/assets/admin/layout/css/custom.css index e36932996..32a99628f 100644 --- a/Metronic/assets/admin/layout/css/custom.css +++ b/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, diff --git a/RH/Asistencias.aspx b/RH/Asistencias.aspx index c1355d4d0..2e2aa8fcf 100644 --- a/RH/Asistencias.aspx +++ b/RH/Asistencias.aspx @@ -34,7 +34,7 @@
    • Cliente: -
      • -
    • +
    • F. Asistencia: - - - - - - - -   - +
      + + + + +
      + + + + + +
    diff --git a/RH/Asistencias.aspx.vb b/RH/Asistencias.aspx.vb index 62bdc408a..bc966e3e0 100644 --- a/RH/Asistencias.aspx.vb +++ b/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() - Dim ObjClientes As New ClsClientes - If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1) Then - DdlCliente.DataSource = ObjClientes.DtResultados - Else - DdlCliente.DataSource = Nothing - End If - ObjClientes.Dispose() - 'Application("GlobalDTResponsable") + 'Private Sub CargaClientes() + ' Dim ObjClientes As New ClsClientes + ' If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1) Then + ' DdlCliente.DataSource = ObjClientes.DtResultados + ' Else + ' DdlCliente.DataSource = Nothing + ' End If + ' ObjClientes.Dispose() + ' 'Application("GlobalDTResponsable") - DdlCliente.DataBind() - End Sub + ' DdlCliente.DataBind() + 'End Sub - Protected Sub BtnCargarClientes_Click(sender As Object, e As System.EventArgs) Handles BtnCargarClientes.Click - CargaClientes() - DdlCliente.Attributes.Remove("onclick") - End Sub + 'Protected Sub BtnCargarClientes_Click(sender As Object, e As System.EventArgs) Handles BtnCargarClientes.Click + ' 'CargaClientes() + ' 'DdlCliente.Attributes.Remove("onclick") + 'End Sub Private Sub CargaProyecto() 'DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", DistinctColumns:={"CveProyecto", "Proyecto"}) diff --git a/RH/RepPersonalInconsistencias.aspx b/RH/RepPersonalInconsistencias.aspx index 917c8df7e..178e2ecc2 100644 --- a/RH/RepPersonalInconsistencias.aspx +++ b/RH/RepPersonalInconsistencias.aspx @@ -92,8 +92,8 @@

    - + @@ -105,8 +105,7 @@ - - + @@ -118,8 +117,7 @@ - - + @@ -131,8 +129,7 @@ - - + @@ -144,8 +141,7 @@ - - + @@ -157,8 +153,7 @@ - - + @@ -170,8 +165,7 @@ - - + @@ -184,7 +178,7 @@     - +     @@ -196,8 +190,7 @@ - - + @@ -209,26 +202,20 @@ - - + - <%-- --%> - Estatus - <%-- - --%> + Estatus - - - + +     - - - + + @@ -376,8 +363,7 @@     - - + diff --git a/Site.master b/Site.master index c67e7ac23..7101ccf0b 100644 --- a/Site.master +++ b/Site.master @@ -13,6 +13,11 @@ + <%: Scripts.Render("~/bundles/modernizr") %> <%: Styles.Render("~/Content/AjaxControlToolkit/Styles/Bundle") %> @@ -149,7 +154,7 @@ -
    @@ -682,63 +688,63 @@ - - - - -
    -
    - -

    Folios descargados

    -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + +
    +
    + +

    Folios descargados

    +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    +
    + +
    -
    - -
    -
    - - - + + +