This commit is contained in:
Oscar Irigoyen
2023-03-31 13:23:19 -07:00
31 changed files with 449 additions and 242 deletions

View File

@@ -52,8 +52,8 @@
</thead>
<tr>
<td>
<asp:DropDownList ID="DdlTipos" runat="server" AppendDataBoundItems="true" DataValueField="CveTipoActivoFijo" DataTextField="TipoActivoFijo" ValidationGroup="GrpGuardar" Width="190px">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
<asp:DropDownList ID="DdlTipos" runat="server" DataValueField="CveTipoActivoFijo" DataTextField="TipoActivoFijo" ValidationGroup="GrpGuardar" Width="190px">
</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>

View File

@@ -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

View File

@@ -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"

View File

@@ -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>

View File

@@ -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"

View File

@@ -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

View File

@@ -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

View File

@@ -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

View File

@@ -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
<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"
#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 = ""

View File

@@ -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>

View File

@@ -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

Binary file not shown.

Binary file not shown.

View File

@@ -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

View File

@@ -346,10 +346,11 @@
<div class="row">
<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="False" Text="Acreedor" Value="2"></asp:ListItem>
<asp:ListItem Selected="False" Text="Ambos" Value="3"></asp:ListItem>
<asp:DropDownList ID="DdlCveTipoProveedor" runat="server" CssClass="form-control select2me " Width="206px" AutoPostBack="True" OnSelectedIndexChanged="DdlCveTipoProveedor_SelectedIndexChanged">
<asp:ListItem Selected="True" Text="-" Value="0"></asp:ListItem>
<asp:ListItem Text="Proveedor" Value="1"></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>

View File

@@ -52,11 +52,9 @@
<asp:ListItem Text="Diciembre" Value="12"></asp:ListItem>
</asp:DropDownList>
</div>
<div class="col-md-1">
<asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
</div>
<div class="col-md-2">
<asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
<div class="col-md-2" id="DivProyecto" runat="server">
<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>

View File

@@ -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

View File

@@ -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="Almacen" ItemStyle-Width="140px" HeaderText="Almacén" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Concepto" HeaderText="Movimiento" 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>
</ItemTemplate>
</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>
</ItemTemplate>
</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>
</ItemTemplate>
</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>
</ItemTemplate>
</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>
</ItemTemplate>
</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>
@@ -453,22 +446,19 @@
<ItemTemplate>
<asp:Label ID="lbImporte" runat="server"
Text='<%# Eval("Importe", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
<ItemStyle Width="100px" HorizontalAlign="Right"></ItemStyle>
</ItemTemplate>
</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>
</ItemTemplate>
</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>
</ItemTemplate>
</asp:TemplateField>
</Columns>
<RowStyle CssClass="Texto" />

View File

@@ -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>

View File

@@ -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();

View File

@@ -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,

View File

@@ -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>
</span>
<ajax:MaskedEditExtender ID="MEEFechaAsistencia" runat="server" TargetControlID="TxtFechaAsistencia" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEFechaAsistencia" TargetControlID="TxtFechaAsistencia" PopupButtonID="ImgFechaAsistencia" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<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>
<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>
<ajax:ValidatorCalloutExtender ID="VCOFechaAsistencia1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaAsistencia" Width="350px"></ajax:ValidatorCalloutExtender>
&nbsp;
<ajax:ValidatorCalloutExtender ID="VCOFechaAsistencia2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaAsistencia" Width="350px"></ajax:ValidatorCalloutExtender>
<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>
</div>
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaAsistencia" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaAsistencia" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<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>
<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>
<ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
</li>
</ul>
</div>

View File

@@ -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"})

View File

@@ -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"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
<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-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
<Columns>
<asp:TemplateField ItemStyle-HorizontalAlign="Left">
<HeaderTemplate>
@@ -105,8 +105,7 @@
<ItemTemplate>
<asp:Label ID="Label1" runat="server" Text='<%# Bind("NombreCompleto")%>'></asp:Label>
</ItemTemplate>
<ControlStyle CssClass="Texto" />
<ItemStyle Width="450px" />
<ControlStyle CssClass="Texto" />
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
@@ -118,8 +117,7 @@
<ItemTemplate>
<asp:Label ID="Label2" runat="server" Text='<%# Bind("FechaIngreso", "{0:d}")%>'></asp:Label>
</ItemTemplate>
<ControlStyle CssClass="Texto" />
<ItemStyle Width="200px" />
<ControlStyle CssClass="Texto" />
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
@@ -131,8 +129,7 @@
<ItemTemplate>
<asp:Label ID="Label3" runat="server" Text='<%# Bind("Turno")%>'></asp:Label>
</ItemTemplate>
<ControlStyle CssClass="Texto" />
<ItemStyle Width="110px" />
<ControlStyle CssClass="Texto" />
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
@@ -144,8 +141,7 @@
<ItemTemplate>
<asp:Label ID="Label4" runat="server" Text='<%# Bind("Departamento")%>'></asp:Label>
</ItemTemplate>
<ControlStyle CssClass="Texto" />
<ItemStyle Width="150px" />
<ControlStyle CssClass="Texto" />
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
@@ -157,8 +153,7 @@
<ItemTemplate>
<asp:Label ID="Label5" runat="server" Text='<%# Bind("Puesto")%>'></asp:Label>
</ItemTemplate>
<ControlStyle CssClass="Texto" />
<ItemStyle Width="200px" />
<ControlStyle CssClass="Texto" />
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
@@ -170,8 +165,7 @@
<ItemTemplate>
<asp:Label ID="Label6" runat="server" Text='<%# Bind("Proyecto")%>'></asp:Label>
</ItemTemplate>
<ControlStyle CssClass="Texto" />
<ItemStyle Width="300px" />
<ControlStyle CssClass="Texto" />
</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>
@@ -196,8 +190,7 @@
<ItemTemplate>
<asp:Label ID="Label8" runat="server" Text='<%# Bind("SeInscribioSS")%>'></asp:Label>
</ItemTemplate>
<ControlStyle CssClass="Texto" />
<ItemStyle Width="450px" />
<ControlStyle CssClass="Texto" />
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
@@ -209,26 +202,20 @@
<ItemTemplate>
<asp:Label ID="Label9" runat="server" Text='<%# Bind("FechaFinContrato", "{0:d}")%>'></asp:Label>
</ItemTemplate>
<ControlStyle CssClass="Texto" />
<ItemStyle Width="200px" />
<ControlStyle CssClass="Texto" />
</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>--%>
Estatus
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="Label10" runat="server" Text='<%# Bind("Estatus")%>'></asp:Label>
</ItemTemplate>
<ControlStyle CssClass="Texto" />
<ItemStyle Width="110px" />
</asp:TemplateField>
<ControlStyle CssClass="Texto" />
</asp:TemplateField>
</Columns>
<HeaderStyle CssClass="Titulos"></HeaderStyle>
<AlternatingRowStyle CssClass="TextoAlterno"></AlternatingRowStyle>
<RowStyle CssClass="Texto"></RowStyle>
<RowStyle CssClass="Texto" />
<HeaderStyle CssClass="Titulos" />
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
@@ -376,8 +363,7 @@
<ItemStyle Width="400px" />
</asp:TemplateField>
</Columns>
<HeaderStyle CssClass="Titulos"></HeaderStyle>
<AlternatingRowStyle CssClass="TextoAlterno"></AlternatingRowStyle>
<HeaderStyle CssClass="Titulos"></HeaderStyle>
<RowStyle CssClass="Texto"></RowStyle>
</asp:GridView>
</ContentTemplate>

View File

@@ -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">
@@ -149,7 +154,7 @@
<i aria-hidden="true" class="icon-magnifier"></i>
</a>
<ul class="dropdown-menu">
<ul class="dropdown-menu">
<li id="tdCliente" runat="server" visible="false">
<a onclick="javascript:AbrirVentana('/Ventas/PopUpBuscarClientes.aspx');">
<i class="fa fa-users"></i>
@@ -179,7 +184,7 @@
<i class="fa fa-truck"></i>
Buscar Proveedor
</a>
</li>
</li>
<li id="tdCheques" runat="server" visible="false">
<a onclick="javascript:AbrirVentana('/Bancos/PopUpBuscarIE.aspx');">
<i class="fa fa-university"></i>
@@ -248,7 +253,7 @@
Buscar Producto Servicios
</a>
</li>
<li id="TdBuscaActivoFijo" runat="server" visible="False">
<li id="TdBuscaActivoFijo" runat="server" visible="False">
<a onclick="javascript:AbrirVentana('/AF/PopUpBuscarAF.aspx',800,600,'N');">
<i class="fa fa-building"></i>
Buscar Activo Fijo
@@ -260,7 +265,7 @@
Buscar Cuentas Proveedor
</a>
</li>
<li id="tdBuscarMilitante" runat="server" visible="false">
<li id="tdBuscarMilitante" runat="server" visible="false">
<a onclick="javascript:AbrirVentana('/ZDG/PopUpBuscarMilitante.aspx',1250);">
<i class="fa fa-male"></i>
Buscar Militante
@@ -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>
@@ -388,15 +394,15 @@
<div class="col-sm-2">
<asp:TextBox ID="TxtTit" BorderStyle="None" CssClass="form-control input-sm" runat="server" Visible="false" Width="100%"></asp:TextBox>
</div>
<div class="col-sm-3 text-right" style="padding-top: 8px; white-space: nowrap; direction: rtl;">
<div class="col-sm-3 text-right" style="padding-top: 8px; white-space: nowrap; direction: rtl;">
<div style="direction: ltr">
<i class="icon-calendar"></i>
<asp:UpdatePanel ID="UPGP" runat="server" RenderMode="Inline">
<ContentTemplate>
<asp:Label ID="lblFecha" CssClass="thin uppercase hidden-xs" runat="server"></asp:Label>
<asp:Label ID="lblFecha" CssClass="thin uppercase hidden-xs" runat="server"></asp:Label>
</ContentTemplate>
</asp:UpdatePanel>
<asp:Label ID="lblTipoCambio" CssClass="thin uppercase hidden-xs" runat="server"></asp:Label>
</div>
</div>
@@ -432,7 +438,7 @@
</div>
<div class="ContentPlaceHolderc">
<asp:ContentPlaceHolder ID="C" runat="server">
</asp:ContentPlaceHolder>
</asp:ContentPlaceHolder>
</div>
</div>
</div>
@@ -682,63 +688,63 @@
<!-- END FOOTER -->
<!-- END JAVASCRIPTS -->
<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">
<div class="modal-header">
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
<span aria-hidden="true">&times;</span>
</button>
<h4 class="modal-title" runat="server" style="text-align: left">Folios descargados</h4>
</div>
<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"
DataKeyNames="UUID" data-sort="2">
<Columns>
<asp:TemplateField HeaderText="Folio Fiscal ">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("UUID")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Tipo Comprobante">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("TipoComprobante")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="RFC">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("RFCDe")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Serie - Folio ">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("SerieFolio")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("FechaFactura","{0: dd/MM/yyyy}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("Total","{0:N2}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
<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">
<div class="modal-header">
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
<span aria-hidden="true">&times;</span>
</button>
<h4 class="modal-title" runat="server" style="text-align: left">Folios descargados</h4>
</div>
<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"
DataKeyNames="UUID" data-sort="2">
<Columns>
<asp:TemplateField HeaderText="Folio Fiscal ">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("UUID")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Tipo Comprobante">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("TipoComprobante")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="RFC">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("RFCDe")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Serie - Folio ">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("SerieFolio")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("FechaFactura","{0: dd/MM/yyyy}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("Total","{0:N2}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
<div class="modal-footer">
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</div>
</div>
<div class="modal-footer">
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</asp:panel>
</ContentTemplate>
</asp:UpdatePanel>
</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;">

View File

@@ -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()
@@ -702,8 +701,4 @@ Partial Class Site
Catch ex As Exception
End Try
End Sub
End Class
Public Class TipoCambioActual
Public Fecha As Date
Public TipoCambio As Decimal
End Class

View File

@@ -1988,17 +1988,17 @@
<asp:CheckBox ID="ChkCobranzaEnviarCorreo" runat="server" Text="Enviar Correo Cobranza" />
</div>
</div>
<div class="row">
<div class="col-md-12 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">
<div class="row">
<div class="col-md-4 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">

View File

@@ -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()

View File

@@ -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">

View File

@@ -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)

View File

@@ -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()