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 d1ba33607..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 @@ -9387,6 +9387,9 @@ Public Class ClsPaginas PaginaDict.Add("/RH/CatRegistroPatronal.aspx".ToUpper(), 1324) PaginaDict.Add("/SAT/SolicitudesNominaSat.aspx".ToUpper(), 545) PaginaDict.Add("/SAT/SolicitudesIngresoSat.aspx".ToUpper(), 1329) + + PaginaDict.Add("/RH/RepAsistencias.aspx".ToUpper(), 1336) + #End Region #Region "Sistema" '--------------------- Páginas que deben tener restricción --------------------- diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 466f25b58..ee95fedd3 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -2616,8 +2616,9 @@ Public Class ClsRH End Try Return Retorno - End Function - + End Function + + Public Function GetAsistencias(CvePersonal As Integer, CveClienteAsignado As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CveEstatusPersonal As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -2641,6 +2642,33 @@ Public Class ClsRH OnError("Ocurrió un error al consultar las Asistencias del Personal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try + Return Retorno + End Function + + Public Function RepGetAsistencias(Grupo As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, CveTurno As Integer, CveEstatusPersonal As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CvePersonalPadre As Integer) As Boolean + Dim Retorno As Boolean = False + + SqlDataAdapter("PA_RH_RepPersonalAsistenciasGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@Grupo", SqlDbType.Int).Value = Grupo + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveClienteAsignado", SqlDbType.Int).Value = CveClienteAsignado + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveTurno", SqlDbType.Int).Value = CveTurno + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CvePersonalPadre", SqlDbType.Int).Value = CvePersonalPadre + .Add("@CveEstatusPersonal", SqlDbType.Int).Value = CveEstatusPersonal + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + OnError("Ocurrió un error al consultar las Asistencias del Personal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno End Function @@ -7283,7 +7311,7 @@ Public Class ClsRH #End Region -#Region "Checador" +#Region "Checador" Public Function GetChecadores(CveChecador As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_RH_ChecadorGet") @@ -7356,6 +7384,45 @@ Public Class ClsRH End Try Return Retorno End Function + + + Public Function AddRemoveChecadoresSubProyectos(CveChecador As Integer, CveSubProyecto As Integer, CveUsuario As Integer, Agreagar As Boolean) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_RH_ChecadorSubProyectosAddRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveChecador", SqlDbType.Int).Value = CveChecador + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Agreagar", SqlDbType.Bit).Value = Agreagar + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el sub proyecto", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + + Public Function GetChecadoresSubProyectos(CveChecador As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_RH_ChecadorSubProyectosGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveChecador", SqlDbType.Int).Value = CveChecador + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obteger los sub proyecto", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + + #End Region #Region " A C T I V I D A D E S" 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/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/RepBalanceGeneralHorizontal.aspx b/Contabilidad2/RepBalanceGeneralHorizontal.aspx index 54d5f2b59..07b44d2d0 100644 --- a/Contabilidad2/RepBalanceGeneralHorizontal.aspx +++ b/Contabilidad2/RepBalanceGeneralHorizontal.aspx @@ -113,7 +113,7 @@
-
+ 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/Empresas/132/Formatos/Factura.rdlc b/Empresas/132/Formatos/Factura.rdlc index 08567045a..24e0bce1a 100644 --- a/Empresas/132/Formatos/Factura.rdlc +++ b/Empresas/132/Formatos/Factura.rdlc @@ -252,6 +252,74 @@ + + + DsDesgloseImpuestos + /* Local Query */ + + + + SerieFolio + System.String + + + Fecha + System.String + + + Importe + System.String + + + FolioFiscal + System.String + + + + DsDocumentosRelacionados + C:\Users\Jesus Murua\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DsFirmas.xsd + DataTable1 + + + + + + + + DsDesgloseImpuestos + /* Local Query */ + + + + SerieFolio + System.String + + + Fecha + System.String + + + SubTotal + System.String + + + Importe + System.String + + + Moneda + System.String + + + + DsNCVinculadas + C:\Users\Jesus Murua\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DsFirmas.xsd + DataTable1 + + + + + @@ -278,7 +346,7 @@ Textbox3 0.92083in - 5.662in + 5.80966in 0.5cm 2.24597in + + + + true + true + + + + + CFDI Relacionados + + + + + + + Textbox5 + 0.14926cm + 0.07193cm + 0.54004cm + 20.37581cm + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Tipo Relación: + + + + + + + Textbox29 + 0.83025cm + 4.47067cm + 0.41981cm + 5.31841cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!TipoRelacionTexto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 2.42456cm + + + 2.05585cm + + + 3.03631cm + + + 7.7847cm + + + + + 0.44125cm + + + + + true + true + + + + + Folio + + + + + + + Textbox10 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox12 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox21 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Folio Fiscal + + + + + + + Textbox11 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.41479cm + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FolioFiscal.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet4 + 1.39643cm + 2.96893cm + 0.85604cm + 15.30142cm + 3 + + + + + + true + 18.68872cm + 0.05262cm + 2.25247cm + 20.44774cm + 36 + + =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) + + + + + + + true + true + + + + + VERSION + + + + =Parameters!CFDIVersion.Value + + + + + + + Textbox5 + 20.97646cm + 16.09752cm + 0.65292cm + 4.4256cm + 37 + + + 2pt + 2pt + 2pt + 2pt + + - 22.64365cm + 25.88215cm - - true - true - - - - - Fecha Impresión: - - - - - - - - =Today - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - Textbox3 - 0.90692in - 5.72826in - 0.5cm - 2.2in - - - - Black - 1pt - - - - - - Black - 1pt - - - Black - 1pt - - #fcc103 - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - Fecha y hora de emisión - - - - - - - - - - - - - - - - Textbox3 - 0.45372in - 5.72826in - 0.5cm - 2.2in - 1 - - - - Black - 1pt - - - - - - Black - 1pt - - - Black - 1pt - - #fcc103 - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =IIF(Parameters!Serie.Value.ToString="",Parameters!Folio.Value,Parameters!Serie.Value & "-" &Parameters!Folio.Value) - - - - - - - Textbox3 - 0.21413in - 5.72826in - 0.60856cm - 2.2in - 2 - - - - Black - 1pt - - - - - - Black - 1pt - - - Black - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!TipoDocumento.Value - - - - - - - Textbox3 - 0.01474cm - 5.72826in - 0.5cm - 2.2in - 3 - - - - Black - 1pt - - - - - - Black - 1pt - - - Black - 1pt - - #fcc103 - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - VALPA SUPERVISIONES SA DE CV - - - - - - - - - R.F.C VSU150805S23 - - - - - - - Textbox4 - 1.77389in - 0.51102in - 3.9084in - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - LOGO - FitProportional - 0.19995cm - 0.13893cm - 2.11686cm - 5.69451cm - 5 - - - - - - true - - - - - =Parameters!Fecha.Value - - - - - - - Textbox3 - 0.66099in - 5.72826in - 0.25114in - 2.2in - 6 - - - - Black - 1pt - - - - - - Black - 1pt - - - Black - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!Tipo.Value & Parameters!Ref.Value - - - - - - - Textbox3 - 1.10364in - 5.72826in - 0.25635in - 2.2in - 7 - - - - Black - - - Black - - - Black - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - Domicilio Fiscal - - - - - - - - - Cerrada de Minas #65, Col.: Valle Bonito, - - - - - - - - - C.P. 83240 Hermosillo, Sonora, México - - - - - - - Textbox10 - 0.51102in - 1.77389in - 0.65513in - 2.01842in - 8 - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - Lugar de Expedición - - - - - - - - - =Parameters!DomicilioSucursal.Value - - - - - - - Textbox10 - 0.51102in - 3.79231in - 0.65513in - 1.88998in - 9 - - - Top - - - - true - true - - - - - Nombre - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!ClienteNombre.Value - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Dirección - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!ClienteDireccion.Value - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Ciudad - - - - - - - - 1.25pt - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!ClienteLugar.Value - - - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - true - true - - - - - P A G A R E con Folio - - - - =Parameters!Serie.Value - - - - - - - - - =Parameters!Folio.Value - - - - Por éste pagare prometo (emos) pagar incondicionalmente a la orden de VALPA SUPERVISIONES SA DE CV, a su vencimiento el - - - - =Parameters!Vencimiento.Value - - - - , en Hermosillo, Sonora o en el domicilio señalado a elección del acreedor o tenedor la cantidad de $ - - - - =Parameters!Total.Value - - - - SON: ( - - - - =Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value) - - - - ). Valor recibido a mi (nuestra) entera satisfacción. la falta de pago de éste documento a su vencimiento dará derecho a VALPA SUPERVISIONES SA DE CV o tenedor, desde el día siguiente a cobrar el 10% mensual de interes moratorios hasta su total liquidación y los gastos judiciales que se ocasionen. Lugar y Fecha de Suscripción: Hermosillo, Sonora a - - - - =CDATE(Parameters!Fecha.Value).ToString("dd/MM/yyyy") - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Nombre: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Dirección: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ClienteNombre.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ClienteDireccion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Acepto de conformidad - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 3.15cm - 15.1696cm - 0cm - 4.87315cm - 6 - - - - - - - - true - true - - - - - CFDI Relacionados - - - - - - - Textbox5 - 0.30801cm - 0.07193cm - 0.54004cm - 19.98181cm - - - #fcc103 - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Tipo Relación: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!TipoRelacionTexto.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Folio Fiscal: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FolioFiscalRelacionado.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - 3.58328cm - 2.07667cm - 20.12951cm - 7 - - =Microsoft.VisualBasic.Interaction.iif(Parameters!TipoRelacionTexto.Value <> "" Or Parameters!FolioFiscalRelacionado.Value <> "", False, True) - - - - - - - true - 17.24694cm - 5.65995cm - 20.18336cm - 16 - - = (Parameters!AplicaPagare.Value="0" OrElse Parameters!AplicaPagare.Value="") - - - - - - 1.5pt - - - - - true - - - - - RFC: - - - - =Parameters!ClienteRFC.Value - - - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - true - true - - - - - =Parameters!CadenaOriginal.Value - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 3.33075cm - - - 10.99712cm - - - - - 0.6cm - - - - - true - true - - - - - =Parameters!Observaciones.Value - - - - - - - Textbox128 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - 0.6cm - - - - - true - true - - - - - Importe con letra: - - - - - - - Textbox126 - - - - - 1pt - - - - 1pt - - - - 1pt - - - - 1pt - - #fcc103 - Middle - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - ="SON: " & Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value) - - - - - - - Textbox127 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - Método de pago: - - - - - - - Textbox42 - - - - - 1pt - - - - 1pt - - - - 1pt - - - - 1pt - - #fcc103 - Middle - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value) - - - - - - - Textbox43 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - Forma de pago: - - - - - - - Textbox130 - - - - - 1pt - - - - 1pt - - - - 1pt - - - - 1pt - - #fcc103 - Middle - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!FormaPago.Value - - - - - - - Textbox131 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - Uso CFDI: - - - - - - - Textbox44 - - - - - 1pt - - - - 1pt - - - - 1pt - - - - 1pt - - #fcc103 - Middle - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!UsoCFDI.Value - - - - - - - Textbox45 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 1.8cm - - - - - true - true - - - - - Sello digital del CFDI: - - - - - - - Textbox132 - - - - - 1pt - - - - 1pt - - - - 1pt - - - - 1pt - - #fcc103 - Middle - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!SelloCFDI.Value - - - - - - - Textbox133 - - - Top - 2pt - 2pt - 2pt - 2pt - - - - - - - - 1.2cm - - - - - true - true - - - - - Sello del SAT: - - - - - - - Textbox134 - - - - - 1pt - - - - 1pt - - - - 1pt - - - - 1pt - - #fcc103 - Middle - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!SelloSAT.Value - - - - - - - Textbox135 - - - Top - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - Cadena original del complemento de certificación digital del SAT: - - - - - - - Textbox136 - - - #fcc103 - Middle - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - - - - - - - - - - - - - - - - - - - - DsOC - 0.11287cm - 6.6cm - 14.32787cm - 1 - - - - - - - - - 3.167cm - - - - - 0.6cm - - - - - true - true - - - - - =Fields!Importe.Value - - - - - - - Importe - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - - - - - 0.6cm - - - - - true - true - - - - - =Parameters!Moneda.Value - - - - - - - Textbox9 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - =Fields!ImpuestoLocal.Value - - - - 2.44936cm - - - true - true - - - - - =Fields!ImpuestoLocal.Value - - - - - - #fcc103 - 2pt - 2pt - 2pt - 2pt - - - - - - - - 2.44936cm - - - true - true - - - - - Moneda - - - - - - #fcc103 - 2pt - 2pt - 2pt - 2pt - - - - - Before - - - - DataSet1 - 0.11287cm - 14.32786cm - 1.2cm - 5.61636cm - 2 - - - - - - true - 6.48302cm - 0.17537cm - 7.01685cm - 20.00799cm - 18 - - - - - - - - External - =Parameters!QR.Value - FitProportional - 1.3497in - 1.5531in - - - - - - true - true - - - - - Regímen: Regímen General de Ley Personas Morales; Condiciones de pago: - - - - =IIF(Parameters!CondicionPago.Value.ToString="","No Identificado",Parameters!CondicionPago.Value) - - - - ; Método de Pago: - - - - =IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value) - - - - ; Num. Cta Pago: - - - - =IIF(Parameters!NumCta.Value="0" Orelse Parameters!NumCta.Value="","No Identificado",Parameters!NumCta.Value) - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Éste documento es una representacion impresa de un CFDi - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 10.30048cm - - - 5.58714cm - - - - - 0.52062cm - - - - - true - true - - - - - Folio Fiscal: - - - - - - - Textbox97 - - - - - - - White - 1pt - - - - - - - - #fcc103 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!FolioFiscal.Value - - - - - - - Textbox99 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.49417cm - - - - - true - true - - - - - No. Serie del Certificado del SAT: - - - - - - - Textbox103 - - - - - - - White - 1pt - - - - - - - - #fcc103 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!SerieCertificadoSAT.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.44125cm - - - - - true - true - - - - - Fecha y Hora de certificación: - - - - - - - Textbox106 - - - - - - - White - 1pt - - - - - - - - #fcc103 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!FechaCertificacion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.44125cm - - - - - true - true - - - - - Certificado del Contribuyente: - - - - - - - Textbox109 - - - - - - - White - 1pt - - - - - - - - #fcc103 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!CertificadoContribuyente.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - DsOC - 0.06104cm - 4.0748cm - 1.89729cm - 15.88762cm - 3 - - - - - - true - 13.60571cm - 0.17537cm - 3.53187cm - 20.00799cm - 19 - - - - - - - - - 2.12527cm - - - 2.02474cm - - - 2cm - - - 4.49cm - - - 4.49cm - - - 1.78174cm - - - 3.04984cm - - - - - 0.52063cm - - - - - true - - - - - Cantidad - - - - - - - Textbox34 - - - #fcc103 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - UM - - - - - - - Textbox53 - - - #fcc103 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Código - - - - - - - Textbox27 - - - #fcc103 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - Descripción - - - - - - - Textbox79 - - - - - - #fcc103 - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - - - - - P. Unitario - - - - - - - Textbox84 - - - #fcc103 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - Importe - - - - - - - - - - - - - - - #fcc103 - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.4118cm - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad1 - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!UM.Value - - - - - - - - - =Fields!SATClaveUM.Value - - - - - - - UM1 - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SATClaveProdServ.Value - - - - - - - SATClaveProdServ - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.IIF(Fields!PS.Value = "-" OrElse Fields!PS.Value = "." OrElse Fields!PS.Value = "=" OrElse Fields!PS.Value = "--" OrElse Fields!PS.Value = "---" OrElse Fields!PS.Value = ".." OrElse Fields!PS.Value = "/", "" & Fields!Obs.Value, Fields!PS.Value & " " & Fields!Obs.Value) - - - - - - - Obs - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - =Fields!PU.Value - - - - - - - PU1 - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Cantidad.Value * Fields!PU.Value - - - - - - - Textbox88 - - - - - - - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - - - - - 0.4118cm - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - 4.49cm - - - - - 0.4118cm - - - - - true - true - - - - - =Fields!Titulo.Value - - - - - - - - - - - - - - - - - - __________________________________ - - - - - - - - - =Fields!Nombre.Value - - - - - - - - - =Fields!Puesto.Value - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - true - DataSet2 - 1 - - - - - - - - - - - - - 4.49cm - - - - - 0.4118cm - - - - - true - true - - - - - =Fields!Titulo.Value - - - - - - - - - - - - - - - - - - __________________________________ - - - - - - - - - =Fields!Nombre.Value - - - - - - - - - =Fields!Puesto.Value - - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - DataSet2 - 2 - - - - - - - - - - true - true - - - - - - - - - - 1pt - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.4118cm - - - - - true - true - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - After - - - - - =Fields!PS.Value Is Nothing - - - - Before - - - Before - - - - DsOC - 4.62939cm - 0.17537cm - 1.75603cm - 19.96159cm - 20 - - - - - - 22.90689cm - - - - - - - Textbox3 - 0.03528cm - 16.2244cm - 0.6cm - 3.95896cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - - - =Today - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 27.94cm - 21.59cm - 0.5cm - 0.5cm - 1cm - 0.5cm - 1.27cm - + + + + + + Textbox3 + 0.90692in + 5.72826in + 0.5cm + 2.2in + + + + Black + 1pt + + + + + + Black + 1pt + + + Black + 1pt + + #fcc103 + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Fecha y hora de emisión + + + + + + + + + + + + + + + + Textbox3 + 0.45372in + 5.72826in + 0.5cm + 2.2in + 1 + + + + Black + 1pt + + + + + + Black + 1pt + + + Black + 1pt + + #fcc103 + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =IIF(Parameters!Serie.Value.ToString="",Parameters!Folio.Value,Parameters!Serie.Value & "-" &Parameters!Folio.Value) + + + + + + + Textbox3 + 0.21413in + 5.72826in + 0.60856cm + 2.2in + 2 + + + + Black + 1pt + + + + + + Black + 1pt + + + Black + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!TipoDocumento.Value + + + + + + + Textbox3 + 0.01474cm + 5.72826in + 0.5cm + 2.2in + 3 + + + + Black + 1pt + + + + + + Black + 1pt + + + Black + 1pt + + #fcc103 + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + VALPA SUPERVISIONES SA DE CV + + + + + + + + + R.F.C VSU150805S23 + + + + + + + Textbox4 + 1.77389in + 0.51102in + 3.9084in + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + LOGO + FitProportional + 0.19995cm + 0.13893cm + 2.11686cm + 5.69451cm + 5 + + + + + + true + + + + + =Parameters!Fecha.Value + + + + + + + Textbox3 + 0.66099in + 5.72826in + 0.25114in + 2.2in + 6 + + + + Black + 1pt + + + + + + Black + 1pt + + + Black + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Tipo.Value & Parameters!Ref.Value + + + + + + + Textbox3 + 1.10364in + 5.72826in + 0.25635in + 2.2in + 7 + + + + Black + + + Black + + + Black + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Domicilio Fiscal + + + + + + + + + Cerrada de Minas #65, Col.: Valle Bonito, + + + + + + + + + C.P. 83240 Hermosillo, Sonora, México + + + + + + + Textbox10 + 0.51102in + 1.77389in + 0.65513in + 2.01842in + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Lugar de Expedición + + + + + + + + + =Parameters!DomicilioSucursal.Value + + + + + + + Textbox10 + 0.51102in + 3.79231in + 0.65513in + 1.88998in + 9 + + + Top + + + + true + true + + + + + Nombre + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClienteNombre.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Dirección + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClienteDireccion.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Ciudad + + + + + + + + 1.25pt + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClienteLugar.Value + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + true + true + + + + + P A G A R E con Folio + + + + =Parameters!Serie.Value + + + + - + + + + =Parameters!Folio.Value + + + + Por éste pagare prometo (emos) pagar incondicionalmente a la orden de VALPA SUPERVISIONES SA DE CV, a su vencimiento el + + + + =Parameters!Vencimiento.Value + + + + , en Hermosillo, Sonora o en el domicilio señalado a elección del acreedor o tenedor la cantidad de $ + + + + =Parameters!Total.Value + + + + SON: ( + + + + =Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value) + + + + ). Valor recibido a mi (nuestra) entera satisfacción. la falta de pago de éste documento a su vencimiento dará derecho a VALPA SUPERVISIONES SA DE CV o tenedor, desde el día siguiente a cobrar el 10% mensual de interes moratorios hasta su total liquidación y los gastos judiciales que se ocasionen. Lugar y Fecha de Suscripción: Hermosillo, Sonora a + + + + =CDATE(Parameters!Fecha.Value).ToString("dd/MM/yyyy") + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Nombre: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Dirección: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ClienteNombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ClienteDireccion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Acepto de conformidad + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 3.15cm + 15.1696cm + 0cm + 4.87315cm + 6 + + + + + + + + true + true + + + + + CFDI Relacionados + + + + + + + Textbox5 + 0.30801cm + 0.07193cm + 0.54004cm + 19.98181cm + + + #fcc103 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Tipo Relación: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!TipoRelacionTexto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Folio Fiscal: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FolioFiscalRelacionado.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + 3.58328cm + 2.07667cm + 20.12951cm + 7 + + =Microsoft.VisualBasic.Interaction.iif(Parameters!TipoRelacionTexto.Value <> "" Or Parameters!FolioFiscalRelacionado.Value <> "", False, True) + + + + + + + true + 17.24694cm + 5.65995cm + 20.18336cm + 16 + + = (Parameters!AplicaPagare.Value="0" OrElse Parameters!AplicaPagare.Value="") + + + + + + 1.5pt + + + + + true + + + + + RFC: + + + + =Parameters!ClienteRFC.Value + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + true + true + + + + + =Parameters!CadenaOriginal.Value + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 3.33075cm + + + 10.99712cm + + + + + 0.6cm + + + + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + + Textbox128 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.6cm + + + + + true + true + + + + + Importe con letra: + + + + + + + Textbox126 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #fcc103 + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + ="SON: " & Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value) + + + + + + + Textbox127 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Método de pago: + + + + + + + Textbox42 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #fcc103 + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value) + + + + + + + Textbox43 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Forma de pago: + + + + + + + Textbox130 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #fcc103 + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!FormaPago.Value + + + + + + + Textbox131 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Uso CFDI: + + + + + + + Textbox44 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #fcc103 + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!UsoCFDI.Value + + + + + + + Textbox45 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 1.8cm + + + + + true + true + + + + + Sello digital del CFDI: + + + + + + + Textbox132 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #fcc103 + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!SelloCFDI.Value + + + + + + + Textbox133 + + + Top + 2pt + 2pt + 2pt + 2pt + + + + + + + + 1.2cm + + + + + true + true + + + + + Sello del SAT: + + + + + + + Textbox134 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #fcc103 + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!SelloSAT.Value + + + + + + + Textbox135 + + + Top + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Cadena original del complemento de certificación digital del SAT: + + + + + + + Textbox136 + + + #fcc103 + Middle + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + + + + + + + + + + + + + + + + + + + + DsOC + 0.11287cm + 6.6cm + 14.32787cm + 1 + + + + + + + + + 3.167cm + + + + + 0.6cm + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + 0.6cm + + + + + true + true + + + + + =Parameters!Moneda.Value + + + + + + + Textbox9 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + =Fields!ImpuestoLocal.Value + + + + 2.44936cm + + + true + true + + + + + =Fields!ImpuestoLocal.Value + + + + + + #fcc103 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 2.44936cm + + + true + true + + + + + Moneda + + + + + + #fcc103 + 2pt + 2pt + 2pt + 2pt + + + + + Before + + + + DataSet1 + 0.11287cm + 14.32786cm + 1.2cm + 5.61636cm + 2 + + + + + + true + 6.48302cm + 0.17537cm + 7.01685cm + 20.00799cm + 18 + + + + + + + + External + =Parameters!QR.Value + FitProportional + 1.3497in + 1.5531in + + + + + + true + true + + + + + Regímen: Regímen General de Ley Personas Morales; Condiciones de pago: + + + + =IIF(Parameters!CondicionPago.Value.ToString="","No Identificado",Parameters!CondicionPago.Value) + + + + ; Método de Pago: + + + + =IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value) + + + + ; Num. Cta Pago: + + + + =IIF(Parameters!NumCta.Value="0" Orelse Parameters!NumCta.Value="","No Identificado",Parameters!NumCta.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Éste documento es una representacion impresa de un CFDi + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 10.30048cm + + + 5.58714cm + + + + + 0.52062cm + + + + + true + true + + + + + Folio Fiscal: + + + + + + + Textbox97 + + + + + + + White + 1pt + + + + + + + + #fcc103 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!FolioFiscal.Value + + + + + + + Textbox99 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.49417cm + + + + + true + true + + + + + No. Serie del Certificado del SAT: + + + + + + + Textbox103 + + + + + + + White + 1pt + + + + + + + + #fcc103 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!SerieCertificadoSAT.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.44125cm + + + + + true + true + + + + + Fecha y Hora de certificación: + + + + + + + Textbox106 + + + + + + + White + 1pt + + + + + + + + #fcc103 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!FechaCertificacion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.44125cm + + + + + true + true + + + + + Certificado del Contribuyente: + + + + + + + Textbox109 + + + + + + + White + 1pt + + + + + + + + #fcc103 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!CertificadoContribuyente.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + DsOC + 0.06104cm + 4.0748cm + 1.89729cm + 15.88762cm + 3 + + + + + + true + 13.60571cm + 0.17537cm + 3.53187cm + 20.00799cm + 19 + + + + + + + + + 2.12527cm + + + 2.02474cm + + + 2cm + + + 4.49cm + + + 4.49cm + + + 1.78174cm + + + 3.04984cm + + + + + 0.52063cm + + + + + true + + + + + Cantidad + + + + + + + Textbox34 + + + #fcc103 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + UM + + + + + + + Textbox53 + + + #fcc103 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Código + + + + + + + Textbox27 + + + #fcc103 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Descripción + + + + + + + Textbox79 + + + + + + #fcc103 + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + + + + + P. Unitario + + + + + + + Textbox84 + + + #fcc103 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Importe + + + + + + + + + + + + + + + #fcc103 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.4118cm + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad1 + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!UM.Value + + + + + + + + + =Fields!SATClaveUM.Value + + + + + + + UM1 + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SATClaveProdServ.Value + + + + + + + SATClaveProdServ + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIF(Fields!PS.Value = "-" OrElse Fields!PS.Value = "." OrElse Fields!PS.Value = "=" OrElse Fields!PS.Value = "--" OrElse Fields!PS.Value = "---" OrElse Fields!PS.Value = ".." OrElse Fields!PS.Value = "/", "" & Fields!Obs.Value, Fields!PS.Value & " " & Fields!Obs.Value) + + + + + + + Obs + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + =Fields!PU.Value + + + + + + + PU1 + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cantidad.Value * Fields!PU.Value + + + + + + + Textbox88 + + + + + + + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + 0.4118cm + + + + + true + true + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 4.49cm + + + + + 0.4118cm + + + + + true + true + + + + + =Fields!Titulo.Value + + + + + + + + + + + + + + + + + + __________________________________ + + + + + + + + + =Fields!Nombre.Value + + + + + + + + + =Fields!Puesto.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + true + DataSet2 + 1 + + + + + + + + + + + + + 4.49cm + + + + + 0.4118cm + + + + + true + true + + + + + =Fields!Titulo.Value + + + + + + + + + + + + + + + + + + __________________________________ + + + + + + + + + =Fields!Nombre.Value + + + + + + + + + =Fields!Puesto.Value + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + DataSet2 + 2 + + + + + + + + + + true + true + + + + + + + + + + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.4118cm + + + + + true + true + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + After + + + + + =Fields!PS.Value Is Nothing + + + + Before + + + Before + + + + DsOC + 4.62939cm + 0.17537cm + 1.75603cm + 19.96159cm + 20 + + + + + + 22.90689cm + + + + + + + Textbox3 + 0.03528cm + 16.2244cm + 0.6cm + 3.95896cm + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0.5cm + 0.5cm + 1cm + 0.5cm + 1.27cm + - Textbox1 @@ -130,10 +135,7 @@ 1pt - 2pt - 2pt - 2pt - 2pt + Silver @@ -148,10 +150,15 @@ Personal - - Textbox3 @@ -179,10 +186,7 @@ 1pt - 2pt - 2pt - 2pt - 2pt + Silver @@ -197,10 +201,15 @@ Asistencias - - Textbox5 @@ -228,10 +237,7 @@ 1pt - 2pt - 2pt - 2pt - 2pt + Silver @@ -246,10 +252,15 @@ % de Pago - - Textbox9 @@ -277,10 +288,7 @@ 1pt - 2pt - 2pt - 2pt - 2pt + Silver @@ -295,10 +303,15 @@ Horas Dobles - - Textbox11 @@ -326,10 +339,7 @@ 1pt - 2pt - 2pt - 2pt - 2pt + Silver @@ -344,10 +354,15 @@ Horas Triples - - Textbox7 @@ -375,10 +390,7 @@ 1pt - 2pt - 2pt - 2pt - 2pt + Silver @@ -393,10 +405,15 @@ Firma - - Textbox13 @@ -424,10 +441,7 @@ 1pt - 2pt - 2pt - 2pt - 2pt + Silver @@ -435,7 +449,7 @@ - 0.6cm + 0.36188cm @@ -447,7 +461,9 @@ =Fields!Codigo.Value - + 0.5pt @@ -480,10 +496,6 @@ 0.5pt - 2pt - 2pt - 2pt - 2pt @@ -498,7 +510,9 @@ =Fields!Nombre.Value - 0.5pt - 2pt - 2pt - 2pt - 2pt @@ -549,7 +559,9 @@ =Fields!AsistenciasInasistencias.Value - 0.5pt - 2pt - 2pt - 2pt - 2pt @@ -601,6 +609,7 @@ =Fields!PorcentajePago.Value @@ -615,13 +624,8 @@ 0.5pt - 2pt - 2pt - 2pt - 2pt - true @@ -634,7 +638,9 @@ =IIf(Fields!HorasDobles.Value>0,Fields!HorasDobles.Value.ToString(),"") - 0.5pt - 2pt - 2pt - 2pt - 2pt @@ -685,7 +687,9 @@ =IIf(Fields!HorasTriples.Value>0,Fields!HorasTriples.Value.ToString(),"") - 0.5pt - 2pt - 2pt - 2pt - 2pt @@ -736,7 +736,9 @@ - 0.5pt - 2pt - 2pt - 2pt - 2pt @@ -805,8 +803,8 @@ DataSet1 3.2953cm 0.31432cm - 1.2cm - 18.8639cm + 0.77667cm + 19.31368cm @@ -901,7 +899,7 @@ - 1.92637in + 1.6972in Textbox4 0.14111cm - 16.67822cm + 16.00382cm 0.6cm - 2.5cm + 3.62419cm 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/RH/CatChecadores.aspx b/RH/CatChecadores.aspx index eda1ec2e2..b31922afe 100644 --- a/RH/CatChecadores.aspx +++ b/RH/CatChecadores.aspx @@ -96,6 +96,33 @@
+ +
+
+
+
+
+ + + + + + + + + + + + + + +
+
+ +
+
diff --git a/RH/CatChecadores.aspx.cs b/RH/CatChecadores.aspx.cs index 61b237c5c..9252de7da 100644 --- a/RH/CatChecadores.aspx.cs +++ b/RH/CatChecadores.aspx.cs @@ -57,6 +57,11 @@ public partial class RH_CatChecadores : ClsPaginas TxtPuerto.Text = ""; BtnChecadorAgregar.Text = "Agregar"; divChkEstatus.Visible = false; + + GvChecadorSubProyectos.DataSource = null; + GvChecadorSubProyectos.DataBind(); + GvChecadorSubProyectos.Visible = false; + UpModalTiposD.Update(); RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD")); } @@ -64,6 +69,7 @@ public partial class RH_CatChecadores : ClsPaginas protected void BtnChecadorAgregar_Click(object sender, EventArgs e) { ClsRH ObjRH = new ClsRH(); + if (BtnChecadorAgregar.Text == "Agregar") { if (ObjRH.AddChecadores(TxtChecador.Text, DdlSubProyecto.SelectedValue.ToEntero(), TxtIPLocal.Text, TxtPuerto.Text, UsuarioActual.CveUsuario,CveModelo:DdlModelo.SelectedValue.ToEntero())) @@ -73,10 +79,37 @@ public partial class RH_CatChecadores : ClsPaginas } else { + bool errorProceso = false; + //ObjRH.IniciaTransacSQL(); + if (ObjRH.UpdateChecadores(CveChecador,TxtChecador.Text,DdlSubProyecto.SelectedValue.ToEntero(),TxtIPLocal.Text,TxtPuerto.Text,Estatus: ChkEstatus.Checked, CveModelo: DdlModelo.SelectedValue.ToEntero())) { Alert("Checador actualizado correctamente"); } + + foreach(GridViewRow GvRow in GvChecadorSubProyectos.Rows) + { + if(GvRow.RowType == DataControlRowType.DataRow) + { + CheckBox Chk = GvRow.FCCheckBox("Chk"); + if (!ObjRH.AddRemoveChecadoresSubProyectos(CveChecador, GvRow.DataKey("CveSubProyecto").ToEntero(), UsuarioActual.CveUsuario, Chk.Checked)) + { + errorProceso = true; + break; + } + } + } + + //if (errorProceso) + //{ + // ObjRH.RollBack(); + //} + //else + //{ + // ObjRH.Commit(); + //} + + } ObjRH.Dispose(); CargaDatos(); @@ -90,13 +123,30 @@ public partial class RH_CatChecadores : ClsPaginas CveChecador = GvRow.DataKey("CveChecador").ToEntero(); TxtChecador.Text = GvRow.DataKey("Checador"); - DdlSubProyecto.SelectedValue = GvRow.DataKey("CveSubProyecto"); + DdlSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto")); + DdlModelo.SelectedValue = GvRow.DataKey("CveModelo"); TxtIPLocal.Text = GvRow.DataKey("IPLocal"); TxtPuerto.Text = GvRow.DataKey("Puerto"); BtnChecadorAgregar.Text = "Actualizar"; ChkEstatus.Checked = GvRow.DataKey("Estatus") == "Activo"; divChkEstatus.Visible = true; + + GvChecadorSubProyectos.Visible = true; + + ClsRH objRH = new ClsRH(); + + if (objRH.GetChecadoresSubProyectos(CveChecador, UsuarioActual.CveEmpresa)) + { + GvChecadorSubProyectos.DataSource = objRH.DtResultados; + } + + GvChecadorSubProyectos.DataBind(); + objRH.Dispose(); + + + + UpModalTiposD.Update(); RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD")); } @@ -114,4 +164,12 @@ public partial class RH_CatChecadores : ClsPaginas } ObjRH.Dispose(); } + + protected void GvChecadorSubProyectos_RowDataBound(object sender, GridViewRowEventArgs e) + { + if(e.Row.RowType == DataControlRowType.DataRow) + { + e.Row.FCCheckBox("Chk").Checked = e.Row.DataKey("CveChecador").ToEntero() > 0 ? true : false; + } + } } \ No newline at end of file diff --git a/RH/RepAsistencias.aspx b/RH/RepAsistencias.aspx new file mode 100644 index 000000000..9d22adddd --- /dev/null +++ b/RH/RepAsistencias.aspx @@ -0,0 +1,311 @@ +<%@ Page Title="RH - Captura de Asistencias" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAsistencias.aspx.vb" Inherits="RH_RepAsistencias" %> + + + + + + + + + Reporte Asistencias + + + + + + +
  • + Generar Excel +
    • + +     + + + +     + +     + + + + + +
    +
    +
    + + "><%--class="expand"--%> + +
    +
    + +
    + +
    + Grupo: +
    +
    + + Cliente + Personal + +
    + +
    + Cliente: +
    +
    +
    + +
    + SubProyecto: +
    +
    + + + +
    +
    + Turno: +
    +
    + + + +
    +
    + +
    +
    + + + + + +
    +
    + + +
    +
    +
    > + +
    + +
    + F. Inicial: +
    +
    +
    + + + + + + + + + + + +
    +
    + +
    + F. Fin: +
    +
    +
    + + + + + + + + + +
    +
    + + +
    + +
    +
    + + + +     +     + + +
    +
    + + + + + <%--'SUM(1) CountEmpleados, ISNULL(C.CveCliente,-1) AS CveCliente, ISNULL(C.Nombre,''Cliente sin Asignar'') AS Cliente ,RH.CvePersonal, RH.NombreCompleto, ',--%> + + + + + Grupo + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    + +
    + + + + + +     + + + diff --git a/RH/RepAsistencias.aspx.vb b/RH/RepAsistencias.aspx.vb new file mode 100644 index 000000000..a16013f14 --- /dev/null +++ b/RH/RepAsistencias.aspx.vb @@ -0,0 +1,184 @@ +Imports System.Data +Imports Extensiones + + +Partial Class RH_RepAsistencias + Inherits ClsPaginas + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + + If Not IsPostBack Then + 'CargaClientes() + DdlCliente.Attributes.Add("onclick", "CargaClientes();") + + CargaProyecto() + CargaTurnos() + + TxtFechaAsistenciaFin.Text = Now.ToShortDateString + TxtFechaAsistencia.Text = $"01/{Now.ToString("MM")}/{Now.Year}" + + + End If + End Sub + +#Region "CargaCombos" + + + 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 + + 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"}) + 'DdlProyecto.DataBind() + + CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectoAsignado) + 'DivProyectosAsignado.Visible = LblProyectoAsignado.Visible + + + DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) + DdlSubProyecto.DataBind() + DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) + End Sub + + Private Sub CargaSubProyecto() + DdlSubProyecto.Items.Clear() + DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1) + DdlSubProyecto.DataBind() + DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) + End Sub + + Private Sub CargaTurnos() + DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) + DdlTurno.DataBind() + End Sub + +#End Region + + 'Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged + ' CargaSubProyecto() + 'End Sub + + Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click + + LnkExportar.Visible = False + GvOcultarColumnas() + + If TxtFechaAsistencia.Text.Trim.ToDate.Year.Contiene(Now.Year - 1, Now.Year, Now.Year + 1) Then + + Dim objpersonal As New ClsRH + Dim dtTemp As New DataTable + Dim CveClienteAsignado As Integer = If(DdlCliente.SelectedValue.ToEntero > 0, DdlCliente.SelectedValue.ToEntero, -1) + + If objpersonal.RepGetAsistencias(DdlGrupo.SelectedValue.ToEntero, CveClienteAsignado, DdlSubProyecto.SelectedValue.ToEntero, DdlTurno.SelectedValue.ToEntero, 1, TxtFechaAsistencia.Text.Trim.ToDate, + TxtFechaAsistenciaFin.Text.Trim.ToDate, UsuarioActual.CveEmpresa, DdlSupervisorOrganigrama.SelectedValue.ToEntero()) Then + dtTemp = objpersonal.DtResultados + + GvMostrarColumnas(dtTemp) + GV.DataSource = dtTemp + + If dtTemp.Rows.Count > 0 Then + LnkExportar.Visible = True + End If + + Else + GV.DataSource = Nothing + End If + + objpersonal.Dispose() + GV.DataBind() + + UpDatos.Update() + UpAcciones.Update() + + Else + Alert("La Fecha está fuera de los parámetros establecidos, por favor revise. Fecha: " & TxtFechaAsistencia.Text, TipoMensaje.MsgAdvertencia) + End If + End Sub + + Private Sub GvOcultarColumnas() + + Dim index = 1 + + For index = 1 To GV.Columns.Count - 1 + CType(GV.Columns(index), BoundField).DataField = Nothing + Next + UpDatos.Update() + End Sub + Private Sub GvMostrarColumnas(dt As DataTable) + Dim index = 1 + + + For index = 1 To dt.Columns.Count - 5 + CType(GV.Columns(index + 4), BoundField).DataField = dt.Columns(index + 4).ColumnName + + Dim tmpDate As Date + If (Date.TryParse(dt.Columns(index + 4).ColumnName, tmpDate)) Then + CType(GV.Columns(index + 4), BoundField).HeaderText = tmpDate.ToString("dd-MMM").Replace(".", "") + Else + CType(GV.Columns(index + 4), BoundField).HeaderText = dt.Columns(index + 4).ColumnName + End If + + + + + Next + + + UpDatos.Update() + End Sub + + Protected Sub GV_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GV.RowDataBound + + If e.Row.RowType = DataControlRowType.DataRow Then + + If e.Row.DataKey("Ordenador").ToEntero = 0 Then + e.Row.CssClass = "SubTotales" + + End If + + e.Row.Attributes.Add("style", "max-height: 22px;") + + End If + + + + End Sub + + Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click + + Dim SubProyecto As String = "" + + If DdlSubProyecto.SelectedValue.ToEntero > 0 Then + SubProyecto = DdlSubProyecto.SelectedItem.Text + End If + + Dim SbFiltros As New StringBuilder() + SbFiltros.Append($"Fecha Inicio: {TxtFechaAsistencia.Text} Fecha Fin: {TxtFechaAsistenciaFin.Text} ") + SbFiltros.Append($"SubProyecto: {SubProyecto}") + + GV.ExportToExcelGembox("ReporteIncidencias", UsuarioActual, "Reporte Incidencias", "", DatosFiltros:=SbFiltros.ToString()) + 'GvAnual.ExportToExcelGembox("AnexoCatálogoAnual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio2.SelectedValue}", "Anexo del Catálogo - Anual", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}") + + End Sub + + + Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) + End Sub + + +End Class 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/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index e72160b41..e9a1071eb 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -1988,17 +1988,17 @@
    -
    -
    - -    -
    -
    +
    +
    +
    + +    +
    diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 2bef9fa2e..386a974d3 100644 --- a/Ventas/Clientes.aspx.vb +++ b/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()