From 96248cb9bf56ee25c40be2e85c957f59a997f178 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 Feb 2023 13:23:05 -0700 Subject: [PATCH 01/53] =?UTF-8?q?--=20correcci=C3=B3n=20de=20datos.=20de?= =?UTF-8?q?=20global?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Planeacion/CatProyectos.aspx.vb | 22 ++++++++++------------ 1 file changed, 10 insertions(+), 12 deletions(-) diff --git a/Planeacion/CatProyectos.aspx.vb b/Planeacion/CatProyectos.aspx.vb index af4480faf..d413d762a 100644 --- a/Planeacion/CatProyectos.aspx.vb +++ b/Planeacion/CatProyectos.aspx.vb @@ -63,8 +63,7 @@ Partial Class CatProyectos Public Sub CargaDatos() Dim ObjProyectos As New ClsProyectos - If ObjProyectos.GetProyectos(1) Then - Application("GlobalDTProyectos") = ObjProyectos.DtResultados + If ObjProyectos.GetProyectos(UsuarioActual.CveEmpresa) Then GvDatos.DataSource = ObjProyectos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) GvDatos.DataBind() End If @@ -82,20 +81,19 @@ Partial Class CatProyectos End Sub Private Sub RecargaGlobal() - Dim ObjProyectos As New ClsProyectos - If ObjProyectos.GetProyectos(1) Then - GlobalDTProyectos(-1) = ObjProyectos.DtResultados - End If - ObjProyectos.Dispose() + + GlobalDTProyectos(UsuarioActual.CveEmpresa) = Nothing + End Sub Private Sub CargaSuproyectos() - Dim ObjSubProyectos As New ClsSubProyectos - If ObjSubProyectos.GetSubProyectos() Then - GlobalDTSubProyectos(-1) = ObjSubProyectos.DtResultados - End If + GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing + 'Dim ObjSubProyectos As New ClsSubProyectos + 'If ObjSubProyectos.GetSubProyectos(UsuarioActual.CveEmpresa) Then - ObjSubProyectos.Dispose() + 'End If + + 'ObjSubProyectos.Dispose() End Sub Protected Sub LbAgregar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles LbAgregar.Click From 4cf19e838167196981f291f4cf56708f89fa0c0d Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Wed, 1 Feb 2023 19:31:09 -0700 Subject: [PATCH 02/53] RDLC Factura 178 --- Empresas/178/Formatos/Factura.rdlc | 6232 ++++++++++++++++++++++++++++ 1 file changed, 6232 insertions(+) create mode 100644 Empresas/178/Formatos/Factura.rdlc diff --git a/Empresas/178/Formatos/Factura.rdlc b/Empresas/178/Formatos/Factura.rdlc new file mode 100644 index 000000000..0ed784364 --- /dev/null +++ b/Empresas/178/Formatos/Factura.rdlc @@ -0,0 +1,6232 @@ + + + 0 + + + + System.Data.DataSet + /* Local Connection */ + + 06ae5329-8ff5-42b5-b7f4-6d68e5186420 + + + + System.Data.DataSet + /* Local Connection */ + + 3fde81d4-b9ca-4175-9160-5293ca8b9aa9 + + + + System.Data.DataSet + /* Local Connection */ + + c220a38d-e45b-4e04-917e-7dfd9cc3345f + + + + System.Data.DataSet + /* Local Connection */ + + c220a38d-e45b-4e04-917e-7dfd9cc3345f + + + + System.Data.DataSet + /* Local Connection */ + + c220a38d-e45b-4e04-917e-7dfd9cc3345f + + + + System.Data.DataSet + /* Local Connection */ + + c220a38d-e45b-4e04-917e-7dfd9cc3345f + + + + + + DsOC + /* Local Query */ + + + + ImporteIEPS + System.Decimal + + + ImporteIVA + System.Decimal + + + PorcentajeIEPS + System.Decimal + + + PorcentajeIVA + System.Decimal + + + Cantidad + System.Double + + + CveUnidadMedida + System.Int64 + + + Abreviatura + System.String + + + PS + System.String + + + CveClasificacion + System.Int64 + + + Clasificacion + System.String + + + CveActivoFijo + System.Int64 + + + Codigo + System.String + + + TipoDato + System.Int64 + + + CodigoAF + System.String + + + CodigoPS + System.String + + + UnidadMedida + System.String + + + Importe + System.Decimal + + + Total + System.Decimal + + + UM + System.String + + + Obs + System.String + + + SubProyecto + System.String + + + PU + System.String + + + Descuento + System.String + + + Marca + System.String + + + Titulo + System.String + + + Nombre + System.String + + + Puesto + System.String + + + Lado + System.String + + + SATClaveProdServ + System.String + + + SATClaveUM + System.String + + + CodigoObjetoImpuesto + System.String + + + + DsOC + C:\Users\Orlando Bojorquez\Documents\Visual Studio 2013\WebSites\WebSite1\App_Code\DsOC.xsd + DtOCDetalle + + + + + + + + DataSet2 + /* Local Query */ + + + + ImpuestoLocal + System.String + + + Importe + System.Double + + + Nombre + System.String + + + ImporteT + System.String + + + Orden + System.String + + + + DataSet2 + C:\Users\jesus\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DataSet2.xsd + DataTable1 + + + + + + + + DsFirmas + /* Local Query */ + + + + Titulo + System.String + + + Nombre + System.String + + + Puesto + System.String + + + Lado + System.String + + + + DsFirmas + C:\Users\Jesus Murua\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DsFirmas.xsd + DataTable1 + + + + + + + + DsDesgloseImpuestos + /* Local Query */ + + + + Impuesto + System.String + + + tasa + System.String + + + Importe + System.String + + + Orden + System.String + + + + DsDesgloseImpuestos + C:\Users\Jesus Murua\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DsFirmas.xsd + DataTable1 + + + + + + + + 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 + + + + + + + + + + + + true + + + + + Tipo + + + + + + + Textbox3 + 0.90692in + 5.662in + 0.5cm + 2.24597in + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Fecha y hora de emisión + + + + + + + + + + + + + + + + Textbox3 + 0.46414in + 5.662in + 0.5cm + 2.24597in + 1 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =IIF(Parameters!Serie.Value.ToString="",Parameters!Folio.Value,Parameters!Serie.Value & "-" &Parameters!Folio.Value) + + + + + + + Textbox3 + 0.22455in + 5.662in + 0.60856cm + 2.24597in + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!TipoDocumento.Value + + + + + + + Textbox3 + 0.0412cm + 5.662in + 0.5cm + 2.24597in + 3 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + + + + + GRUPO CUYSAT + + + + + + + + + R.F.C GCU101122LQ4 + + + + + + + Textbox4 + 1.76749in + 0.46414in + 3.86673in + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Fecha.Value + + + + + + + Textbox3 + 0.66099in + 5.662in + 0.25114in + 2.24597in + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Tipo.Value & Parameters!Ref.Value + + + + + + + Textbox3 + 1.10364in + 5.662in + 0.25635in + 2.24597in + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Domicilio Fiscal + + + + + + + + + CALLE EMILIANO ZAPATA, #76, Col.:LOS REYES ACAQUILPAN CENTRO, + + + + + + + + + C.P. 56400 LA PAZ, MEXICO + + + + + + + Textbox10 + 0.53358in + 1.7536in + 0.61185in + 2.01842in + 7 + + true + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + LUGAR DE EXPEDICIÓN: + + + + + + + + + =Parameters!CP.Value + + + + + + + Textbox10 + 0.53358in + 3.77202in + 0.61185in + 1.88998in + 8 + + + Top + + + + true + 22.50468cm + 0.0208cm + 2.10099cm + 20.06179cm + 9 + + true + + + + + + + + + + 1.27365cm + + + 1.78562cm + + + 2.0584cm + + + 3.47821cm + + + 4.82589cm + + + 2.5cm + + + 1.6882cm + + + 2.33651cm + + + + + 0.52063cm + + + + + true + + + + + Cant. + + + + + + + Textbox34 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Unidad SAT + + + + + + + Textbox2 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Producto SAT + + + + + + + Textbox25 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Descripción + + + + + + + Textbox79 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox1 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Obj. Imp. + + + + + + + Textbox22 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + P. Unitario + + + + + + + Textbox84 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Importe + + + + + + + + + + + + + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.57355cm + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SATClaveUM.Value + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SATClaveProdServ.Value + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =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) + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + =Fields!CodigoObjetoImpuesto.Value + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 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.6cm + + + + + true + true + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 3.47821cm + + + + + 0.6cm + + + + + true + true + + + + + =Fields!Titulo.Value + + + + + + + + + + + + + + + + + + __________________________________ + + + + + + + + + =Fields!Nombre.Value + + + + + + + + + =Fields!Puesto.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + true + DataSet2 + 1 + + + + + + + + + + + + + 4.82589cm + + + + + 0.6cm + + + + + true + true + + + + + =Fields!Titulo.Value + + + + + + + + + + + + + + + + + + __________________________________ + + + + + + + + + =Fields!Nombre.Value + + + + + + + + + =Fields!Puesto.Value + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + DataSet2 + 2 + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + 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 + + + + + + + + true + true + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + =Fields!PS.Value Is Nothing + + + + Before + + + Before + + + + DsOC + 5.79515cm + 0.11516cm + 2.29418cm + 19.94648cm + 10 + + + + + + + + External + =Parameters!QR.Value + FitProportional + 0.03128in + 1.3497in + 1.5531in + + + + + + true + true + + + + + Folio Fiscal: + + + + + + + Textbox54 + 0.00077in + 1.63514in + 0.18056in + 4.03672in + 1 + + + + + + + White + + + + + + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + No. Serie del Certificado del SAT: + + + + + + + Textbox54 + 0.19522in + 1.63514in + 0.18056in + 4.03672in + 2 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha y Hora de certificación: + + + + + + + Textbox54 + 0.39377in + 1.63514in + 0.19444in + 4.03672in + 3 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Certificado del Contribuyente: + + + + + + + Textbox54 + 0.59938in + 1.63514in + 0.19445in + 4.03672in + 4 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FolioFiscal.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SerieCertificadoSAT.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaCertificacion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!CertificadoContribuyente.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Regímen: Regímen General de Ley Personas Morales 601 + + + + + + + =IIF(Parameters!MetodoPago.Value.ToString="","No Identificado", iif( Parameters!MetodoPago.Value = "PUE-Pago en una sola exhibición","PUE","PPD")) + + + + + + + =Parameters!FormaPago.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Éste documento es una representacion impresa de un CFDi + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + 15.10221cm + 0.04257cm + 3.74574cm + 20.109cm + 11 + + + + + + + + true + true + + + + + =Parameters!CadenaOriginal.Value + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 2.57553cm + + + + + 0.6cm + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + + + + + + + + + + + + =Fields!ImpuestoLocal.Value + + + + 2.45694cm + + + true + true + + + + + =Fields!ImpuestoLocal.Value + + + + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + DataSet1 + 0.04588cm + 14.93861cm + 0.6cm + 5.03247cm + 1 + + + + + + + + + 3.74028cm + + + 11.08915cm + + + + + 0.6cm + + + + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + + Textbox128 + + + + + + + + + + + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.6cm + + + + + true + true + + + + + Importe con letra: + + + + + + + Textbox126 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #c4d79b + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + ="SON: " & Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value) + + + + + + + Textbox127 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Forma de pago: + + + + + + + Textbox130 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #c4d79b + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!FormaPago.Value + + + + + + + Textbox131 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Uso CFDI: + + + + + + + Textbox27 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #c4d79b + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!UsoCFDI.Value + + + + + + + Textbox37 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 1.8cm + + + + + true + true + + + + + Sello digital del CFDI: + + + + + + + Textbox132 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #c4d79b + 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 + + #c4d79b + 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 + + + + + + + + + + + + + + 1pt + + #c4d79b + Middle + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + + + + + + + + + + + + + + true + + + + + + + + + DsOC + 0.04588cm + 0.03862cm + 6cm + 14.82943cm + 2 + + + + + + + + + 0.73688in + + + 0.5734in + + + 0.671in + + + + + 0.19645in + + + + + true + true + + + + + Impuesto + + + + + + + Textbox22 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Tasa + + + + + + + Textbox15 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox29 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.14436in + + + + + true + true + + + + + =Fields!Impuesto.Value + + + + + + + Cantidad1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!tasa.Value + + + + + + + UM + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Codigo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet3 + 0.26817in + 5.88134in + 0.34081in + 1.98128in + 3 + + + + + + true + 8.26307cm + 0.11516cm + 6.80033cm + 20.03641cm + 12 + + + + + + true + true + + + + + Moneda: + + + 2pt + 2pt + 2pt + 2pt + + + + + + true + true + + + + + CFDI Relacionados + + + + + + + Textbox5 + 0.11382cm + 0.05336cm + 0.54004cm + 20.00281cm + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Tipo Relación: + + + + + + + Textbox29 + 0.83025cm + 4.33636cm + 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 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox12 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox21 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Folio Fiscal + + + + + + + Textbox11 + + + #c4d79b + 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.83462cm + 0.85604cm + 15.30142cm + 3 + + + + + + true + 18.86206cm + 0.00547cm + 2.25247cm + 20.1554cm + 14 + + =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) + + + + + + + true + true + + + + + Nombre: + + + + + + + + + + + + + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClienteNombre.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + RFC: + + + + =Parameters!ClienteRFC.Value + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Regimen Fiscal: + + + + + + + + + + + + + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!RegimenFiscalCodigo.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Dirección: + + + + + + + + + + + + + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClienteDireccion.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Estado: + + + + + + + + + + + + + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClienteEstado.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + País: + + + + + + + + + + + + + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClientePais.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + Logo + FitProportional + 0.0412cm + 0.38753cm + 2.66008cm + 3.1044cm + 26 + + + + + + 24.92317cm + + + + + + + Textbox3 + 0.14111cm + 16.12728cm + 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 + - - - - - true - true - true - - - - - Sello Digital del CFDI: - - - - - - - - - - - - - - - - - - - - - - - - - VERSION - - - - =Parameters!CFDIVersion.Value - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - 6.32868in - 0.06752in - 1.42169in - 8.23953in - - - - - - - - - 0.54014in - - - 0.59111in - - - 0.80359in - - - 0.66404in - - - 2.11562in - - - 0.6863in - - - 0.69852in - - - 0.6403in - - - 0.67895in - - - 0.80447in - - - - - 0.19645in - - - - - true - true - - - - - # Cant. - - - - - - - - 2pt - - - - 2pt - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Unidad - - - - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Clave Pr./Se - - - - - - - Textbox29 - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Clave U. - - - - - - - Textbox2 - - - - - 2pt - - - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Nombre - - - - - - - Textbox17 - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Obj. Imp. - - - - - - - Textbox26 - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Precio - - - - - - - Textbox53 - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Tasa IVA - - - - - - - Textbox21 - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Descto. - - - - - - - Textbox23 - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - SubTotal - - - - - - - Textbox1 - - - - Black - - 2pt - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.16561in - - - - - true - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - true - - - - - =Fields!UM.Value - - - - - - - UM - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - true - - - - - =Fields!SATClaveProdServ.Value - - - - - - - SATClaveProdServ - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - true - - - - - =Fields!SATClaveUM.Value - - - - - - - SATClaveUM - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - true - - - - - =Fields!PS.Value & IIF(Fields!Obs.Value <> "",System.Environment.NewLine &"Observaciones: ","") & Fields!Obs.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!CodigoObjetoImpuesto.Value - - - - - - - CodigoObjetoImpuesto - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - true - - - - - =Fields!PU.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - true - - - - - =Fields!PorcentajeIVA.Value - - - - - - - PorcentajeIVA - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - true - - - - - =Fields!Descuento.Value - - - - - - - Descuento1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - true - - - - - =Fields!Cantidad.Value * Fields!PU.Value - - - - - - - TiempoEntrega - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DsOC - 1.75278in - 0.09836in - 0.36206in - 8.22304in - 1 - - - - - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Observaciones.Value - - - - - - - - =iif(Parameters!Kilometraje.Value = "-1", "","Kilometraje: "& Parameters!Kilometraje.Value) - - - - - - - - ="<br/><b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & " <b>Próxima Alineación: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) - HTML - - - - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - ID2 - FitProportional - 0.15875cm - 1.15361cm - 2.2881cm - 2.75323cm - 4 - - - - - - true - true - - - - - ECONOLLANTAS SERVICIOS Y ACCESORIOS SA DE CV - - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Expedido en Sucursal: - - - - =Parameters!Sucursal.Value - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =UCase(Parameters!TipoDocumento.Value) - - - - - - - Textbox8 - 18.23008cm - 0.96018cm - 2.79101cm - 7 - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =IIF(Parameters!Serie.Value.ToString="",Parameters!Folio.Value,Parameters!Serie.Value & "-" &Parameters!Folio.Value) - - - - - - - Textbox8 - 0.97782cm - 18.23008cm - 0.6cm - 2.79101cm - 8 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha y Hora: - - - - - - - - - =Parameters!Fecha.Value - - - - - - - Textbox8 - 1.57782cm - 18.23008cm - 0.86903cm - 2.79101cm - 9 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - true - - - - - Folio Fiscal: - - - - =Parameters!FolioFiscal.Value - - - - - - - - - Fecha y hora de certificacion: - - - - =Parameters!FechaCertificacion.Value - - - - - - - - - No. de Serie del Certificado del SAT: - - - - =Parameters!SerieCertificadoSAT.Value - - - - - - - Textbox4 - 2.47332cm - 0.28014cm - 1.09007cm - 9.71199cm - 10 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - true - - - - - No. de Serie del Certificado del CSD: - - - - =Parameters!CertificadoContribuyente.Value - - - - - - - =Parameters!CiudadSucursal.Value - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ClienteNombre.Value - - - - - - - - - - - =Parameters!ClienteColonia.Value - - - - - - - - =Parameters!ClienteCiudad.Value - - - - - - - - =Parameters!ClienteEstado.Value - - - - CP - - - - =Parameters!ClienteCP.Value - - - - - - - - =Parameters!ClientePais.Value - - - - - - - - - - - =Parameters!ClienteTelefono.Value - - - - - - - - =iif(Parameters!ClienteContactoMail.Value = "","","Correo: ") - - - - =Parameters!ClienteContactoMail.Value - - - - - - - =Parameters!ClienteRFC.Value - - - - - - - =Parameters!RegimenFiscalCodigo.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!CondicionPago.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - true - - - - - Esta Póliza cubre cualquier daño que presente la llanta que no esté cubierta por el fabricante, Esta será reemplazada solo si el daño no es reparable, por una llanta nueva igual o equivalente, cargo al cliente el desgaste por el uso que presente la banda de rodamiento, paq. de serv. y póliza nueva. *NO APLICA EN DESGASTE, ROBO O INCENDIO. - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - true - - - - - Sonora: - - - - Rodríguez (662) 213-0388 - Camino del seri (662) 220-3070 - Colosio (662) 260-8088 - Colosio II (662) 118-9939 - Veracruz (662) 210-0041 - Monteverde (662) 688-1512 - Morelos (662) 211-0805 - Palo Verde (662) 436-3254 - Perisur (662) 254-4849 - Portillo (662) 688-5349 - Progreso (662) 310-5781 - Reforma (662) 213-8724 - Sahuaro (662) 216-1471 - Solidaridad (662) 216-0935 - Quiroga (662) 261-0838 - Guaymas (622) 222-2417 - Nogales (631) 319-0093 - San Luis Rio Colorado (653) 596-1799 - Agua Prieta (633) 688-0080 - Caborca (637) 372-4214 - Magdalena (632) 322-4080 - Cananea (645) 332-2040 - Obregón (644) 412-2002 - Obregón II (644) 413-1543 - Obregón III (644) 413-4501 - Navojoa (642) 422-9852 – - - - - Sinaloa: - - - - Mochis (668) 817-0209 - Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Guamúchil (673) 688-0108 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Sanalona (667) 713-6671 - Tres Ríos (667) 211-4696 - La Primavera (667) 304-2060 - Corredor Automotriz (667) 715-5004 - Del Valle (667) 721-5577 - Mazatlán (669) 910-2122 - - - - - Baja California - - - - : Tijuana (664) 622-5221 – Tijuana II (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 - Mexicali II (686) 326 02 79 - Tecate (665) 5212080 - Ensenada (646) 172-4075 – Ensenada II (646) 176-2703 - - - - - Baja California Sur - - - - : La Paz (612) 146-3656 - La Paz II (612) 121-3185 - Los Cabos (624) 688 3552 - San José del Cabo (624) 247-4739 - - - - - - - Textbox4 - 10.20293cm - 0.22108cm - 2.03224cm - 20.79751cm - 15 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - - - Embedded - ID3 - FitProportional - 24.6983cm - 0.28014cm - 0.93046cm - 5.37042cm - 17 - - - - - - true - true - - - - - DESCARGA NUESTRA NUEVA APLICACIÓN - - - - - - - Textbox60 - 22.36352cm - 0.28014cm - 0.6882cm - 20.71217cm - 18 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Ord. Compra: - - - - =IIf(Parameters!OrdenCompra.Value = "-1", "", Parameters!OrdenCompra.Value) - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Tipo de Comprobante:I - - - - =UCase(Parameters!TipoDocumento.Value) - - - - ,Moneda: - - - - =Parameters!MonedaAbreviatura.Value - - - - , Uso de CFDI: - - - - =Parameters!UsoCFDI.Value - - - - , Forma de Pago: - - - - =Parameters!FormaPago.Value - - - - , Método de Pago: - - - - =IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value) - - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Precio Total: - - - - - - - Textbox19 - 5.27553in - 6.21617in - 0.17608in - 0.94607in - 21 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Descuento: - - - - - - - Textbox19 - 5.4305in - 6.21616in - 0.17608in - 0.94607in - 22 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Sub Total: - - - - - - - Textbox19 - 5.59199in - 6.21616in - 0.17608in - 0.94607in - 23 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - IVA: - - - - - - - Textbox19 - 5.76074in - 6.22658in - 0.17608in - 0.94607in - 24 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - T O T A L : - - - - - - - Textbox19 - 5.92637in - 6.237in - 0.19596in - 0.94607in - 25 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.IIF(Parameters!SubTotal.Value.ToString() = "", "-", Parameters!SubTotal.Value) - - - - - - - Textbox42 - 5.27553in - 7.16224in - 0.17608in - 0.98426in - 26 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.iif(Parameters!Descuento.Value.ToString() = "", "-", Parameters!Descuento.Value) - - - - - - - Textbox42 - 5.4305in - 7.16224in - 0.17608in - 0.98425in - 27 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.IIF(Parameters!SubTotal2.Value.ToString() = "", "-", Parameters!SubTotal2.Value) - - - - - - - Textbox42 - 5.59199in - 7.17266in - 0.17608in - 0.98425in - 28 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.iif(Parameters!IVA.Value.ToString() = "", "-", Parameters!IVA.Value) - - - - - - - Textbox42 - 5.76074in - 7.17266in - 0.17608in - 0.98425in - 29 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Total.Value - - - - - - - Textbox42 - 5.92637in - 7.18308in - 0.19596in - 0.98425in - 30 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - www.econollantas.com - 01800 560-6757 - - - - - - - Textbox90 - 1.77125cm - 7.90108cm - 0.78cm - 4.3635cm - 31 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - true - - - - - ** SI LAS LLANTAS NO SON INSTALADAS EN ECONOLLANTAS PIERDE SU GARANTÍA DE FABRICA ** - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - Database - =System.Convert.FromBase64String(Parameters!QRDescarga.Value) - image/png - FitProportional - 9.3435in - 6.67743in - 0.6035in - 0.78275in - 34 - - - - - - true - true - - - - - Puedes encontrarla en Appstore o Google play - - - - - - - - - como Econollantas: - - - - - - - Textbox60 - 22.8083cm - 0.28014cm - 1.49135cm - 5.37042cm - 35 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Con tu aplicación el beneficio más - - - - - - - - - importante es poder escanear el código QR de tu póliza y siempre traerla contigo para - - - - - - - - - atenderte - - - - - - - - - MÁS RÁPIDO Y MEJOR. - - - - - - - Textbox60 - 22.8083cm - 7.45145cm - 2.45709cm - 6.56105cm - 38 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Una vez descargada la App utiliza la podrás agregar tu póliza escaneando el código QR - - - - - - - Textbox60 - 22.79852cm - 14.67145cm - 1.46939cm - 6.32076cm - 39 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - PARA UNA OPTIMA DURACIÓN DE SUS LLANTAS, ESTAS DEBEN ALINEARSE, BALANCEARSE Y ROTAR CADA 6 MESES O 1O MIL KILOMETROS. - - - - PARA HACER VÁLIDA UNA RECLAMACIÓN DEBERÁN CUMPLIR CON EL ANTERIOR REQUISITO - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - true - true - - - - - CFDI Relacionados - - - - - - - Textbox5 - 0.14926cm - 0.07193cm - 0.54004cm - 20.7077cm - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Tipo Relación: - - - - - - - Textbox29 - 0.83025cm - 4.78817cm - 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 - - - Black - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Fecha - - - - - - - Textbox12 - - - Black - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Importe - - - - - - - Textbox21 - - - Black - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Folio Fiscal - - - - - - - Textbox11 - - - Black - 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 - 3.28643cm - 0.85604cm - 15.30142cm - 3 - - - - - - true - 19.97297cm - 0.13424cm - 2.25247cm - 20.89818cm - 41 - - =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) - - - - - - - true - true - - - - - Acepto ajuste - - - - ____________________ - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - LogoLlantas1 - FitProportional - 12.27878cm - 0.20617cm - 0.85359cm - 20.86494cm - 43 - - - - - - true - true - true - - - - - < ** Toda corrección de los datos del comprobante debera efectuarse a más tardar tres dias despues de su expedición. ** > - - - - - - - Textbox4 - 9.73684cm - 0.20617cm - 0.44183cm - 20.83436cm - 44 - - - 2pt - 2pt - 2pt - 2pt - - - - 25.75074cm - - - - - - - - =Globals!ExecutionTime - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Usuario Imprimio: - - - - - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox35 - 0.00882cm - 18.54098cm - 0.50624cm - 2.5cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 27.94cm - 21.59cm - 0cm - 0cm - 0.5cm - 0.5cm - 1.27cm - - - - - - - - - Cliente: - - - - =Parameters!ClienteCodigo.Value - - - - - - - - - =Parameters!ClienteNombre.Value - - - - - - - - - RFC: - - - - =Parameters!ClienteRFC.Value - - - - - - - - - Calle: - - - - - - - - =Parameters!ClienteCalle.Value & IIF(Parameters!ClienteNoExt.Value <> "", " No.Ext: " & Parameters!ClienteNoExt.Value & iif(Parameters!ClienteNoInt.Value <> ""," No.Int: " & Parameters!ClienteNoInt.Value,""),iif(Parameters!ClienteNoInt.Value <> ""," No.Int: " & Parameters!ClienteNoInt.Value,"")) - - - - - - - - - Colonia: - - - - - - - - =Parameters!ClienteColonia.Value - - - - - - - - - Ciudad: - - - - =Parameters!ClienteCiudad.Value - - - - - - - - Estado: - - - - - - - - =Parameters!ClienteEstado.Value - - - - - - - - - Municipio y/o Delegación: - - - - =Parameters!ClienteMunicipio.Value - - - - - - - - - - - - - Pais: - - - - =Parameters!ClientePais.Value - - - - - - - - CP: - - - - - - - - =Parameters!ClienteCP.Value - - - - - - - - - Reg.fiscal: - - - - - - - - =Parameters!RegimenFiscalCodigo.Value - - - - - - - Textbox2 - 0.05159in - 4.36025cm - 1.46225in - 3.20861in - - - 2pt - 2pt - 2pt - 2pt - - - - - - true - true - - - - - "Este documento es una representación impresa de un CFDI" - - - - - - - - - Folio fiscal: - - - - =Parameters!FolioFiscal.Value - - - - - - - =Parameters!FechaCertificacion.Value - - - - Número de serie del Certificado de Sello Digital: - - - - =Parameters!CertificadoContribuyente.Value - - - - - - - =Parameters!SerieCertificadoSAT.Value - - - - - - - - - - - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!QR.Value - FitProportional - 0.0444in - 6.56374in - 1.13974in - 1.53682in - 1 - - - - - - true - 3.82538in - 0.05395in - 1.21305in - 8.22763in - 1 - - - - - - true - true - - - - - Domicilio fiscal: - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - = IIF(Parameters!Tipo.Value = "INGRESO","FACTURA","NOTA DE CRÉDITO") - - - - - - - - - - - - - Serie: - - - - =Parameters!Serie.Value - - - - - - - - Folio: - - - - =Parameters!Folio.Value - - - - - - - - - Fecha: - - - - - - - - =Format(Cdate(Parameters!Fecha.Value),"dd/MM/yyyy") - - - - - - - - - Moneda: - - - - - - - - =Parameters!MonedaAbreviatura.Value - - - - - - - - - Vencimiento - - - - : - - - - =Parameters!Vencimiento.Value - - - - - - - - - - - - - Forma de pago: - - - - =Parameters!FormaPago.Value - - - - - - - - - Método de pago: - - - - =Parameters!MetodoPago.Value - - - - - - - - - Uso CFDI: - - - - =Parameters!UsoCFDI.Value - - - - - - - - - Régimen fiscal: - - - - Regimen General de Ley Personas Morales - - - - - - - - - - - Textbox4 - 0.05022in - 5.03983in - 1.62345in - 3.24175in - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Expedido en - - - - : - - - - - - - - - =Parameters!DomicilioSucursal.Value - - - - - - - - - BBD021220APA - - - - - - - - - - - - - - - - - - Vendedor: - - - - =Parameters!VendedorNombre.Value - - - - - - - Textbox40 - 4.25cm - 13.31398cm - 1.42163cm - 7.72123cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 0.54927in - - - 0.826in - - - 0.8527in - - - 3.41945in - - - 0.57354in - - - 0.59047in - - - 0.61967in - - - 0.79194in - - - - - 0.19645in - - - - - true - true - - - - - CANT - - - - - - - Textbox22 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - UNIDAD - - - - - - - Textbox15 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - CLAVE SAT - - - - - - - Textbox29 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - DESCRIPCIÓN - - - - - - - Textbox17 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - PU - - - - - - - Textbox3 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - DESC. - - - - - - - Textbox8 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - IVA - - - - - - - Textbox2 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - TOTAL - - - - - - - Textbox1 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.14436in - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =(Fields!UM.Value & "-" & Fields!UnidadMedida.Value) - - - - - - - UM - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SATClaveProdServ.Value - - - - - - - SATClaveProdServ - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PS.Value & " " & Fields!Obs.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PU.Value - - - - - - - PU - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Descuento.Value - - - - - - - Descuento - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!ImporteIVA.Value - - - - - - - ImporteIVA - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =(Fields!Cantidad.Value * Fields!PU.Value) - Fields!Descuento.Value - - - - - - - TiempoEntrega - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DsOC - 2.25503in - 0.05854in - 0.34081in - 8.22304in - 5 - - - - - - true - true - - - - - - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =UCase(Parameters!ImporteLetra.Value) - - - - - - - ImporteLetra - 3.05676in - 2.30237in - 0.18861in - 5.97921in - 8 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Observaciones.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 2.99824cm - - - - - 0.48004cm - - - - - true - true - - - - - =Fields!Importe.Value - - - - - - - Importe - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - =Fields!ImpuestoLocal.Value - - - - 2.93858cm - - - true - true - - - - - =IIF(Fields!ImpuestoLocal.Value = "Total",UCase(Fields!ImpuestoLocal.Value),Fields!ImpuestoLocal.Value) - - - - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - DataSet1 - 6.99203cm - 15.09838cm - 0.48004cm - 5.93682cm - 12 - - - - - - - - true - true - - - - - CFDI Relacionados - - - - - - - Textbox5 - 0.14926cm - 0.07193cm - 0.54004cm - 20.7077cm - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Tipo Relación: - - - - - - - Textbox29 - 0.83025cm - 4.78817cm - 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 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Fecha - - - - - - - Textbox12 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Importe - - - - - - - Textbox21 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Folio Fiscal - - - - - - - Textbox11 - - - #3a4173 - 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 - 3.28643cm - 0.85604cm - 15.30142cm - 3 - - - - - - true - true - - - - - VERSION 4.0 - - - - - - - Textbox5 - 2.32303cm - 17.39754cm - 0.6cm - 3.32021cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - true - 14.89676cm - 0.13702cm - 2.97096cm - 20.89818cm - 13 - - =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) - - - - - - - - - - 0.78719in - - - 0.58129in - - - 0.71694in - - - - - 0.19645in - - - - - true - true - - - - - IMPUESTO - - - - - - - Textbox22 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - TASA - - - - - - - Textbox15 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - IMPORTE - - - - - - - Textbox29 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.14436in - - - - - true - true - - - - - =Fields!Impuesto.Value - - - - - - - Cantidad1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!tasa.Value - - - - - - - UM - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Importe.Value - - - - - - - Codigo - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - After - - - - - - - DataSet3 - 2.75704in - 0.05854in - 0.34081in - 2.08542in - 14 - - - - - - true - true - - - - - "REVISAR SU FACTURA Y SUS PRODUCTOS AL MOMENTO DE RECIBIRLAS, YA QUE NO SE REALIZARAN CAMBIOS EN FACTURA. - - - - - - - - - TODA DEVOLUCIÓN NO REALIZADA EL DÍA DE LA COMPRA CAUSARÁ EL 10% DE CARGO" - - - - - - - Textbox1 - 8.39473cm - 1.07794cm - 20.85477cm - 15 - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - Logo - FitProportional - 0.12756cm - 0.15969cm - 2.38455cm - 3.48217cm - 16 - - - - - - true - true - - - - - Banco: - - - - BBVA BANCOMER SA - - - - - - - 0160660639 - - - - - - - 012760001606606397 - - - - - - - pagos@bdhbaterias.com - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 14.16139cm - 14.38124cm - 0cm - 6.65396cm - 18 - - - - - - true - true - - - - - Nombre - - - - - - - Textbox39 - 14.33778cm - 14.38124cm - 0.47784cm - 6.65396cm - 19 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Recibí Producto - - - - - - - Textbox38 - 13.25486cm - 14.38124cm - 0.4148cm - 6.65396cm - 20 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - BDH - - - - Baterias Distribuciones de Hermosillo SA de CV - - - - - - - Textbox16 - 2.16641cm - 0.13011cm - 1.21002cm - 4.23014cm - 21 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - 20.4cm - - - - - 5cm - - - - - - - true - true - - - - - Serie: - - - - - - - - =Parameters!Serie.Value - - - - - - - - Folio: - - - - =Parameters!Folio.Value - - - - - - - Textbox81 - 0.01788in - 4.70028in - 0.18682in - 2.8585in - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - Logo - Fit - 0.23694in - 1.40934cm - 2.57947cm - 1 - - - - - - true - true - - - - - - - - - Cliente: - - - - =Parameters!ClienteCodigo.Value - - - - - - - - - =Parameters!ClienteNombre.Value - - - - - - - - - =Parameters!ClienteRFC.Value - - - - - - - - - Domicilio: - - - - =Parameters!ClienteDireccion.Value - - - - , - - - - =Parameters!ClienteCiudad.Value - - - - , - - - - =Parameters!ClienteEstado.Value - - - - - - - Textbox36 - 0.55521cm - 3.35769cm - 0.85414cm - 14.87889cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - 1.44462cm - 0cm - 20.4cm - 3 - - - - - - true - true - - - - - POR ESTE - - - - PAGARÉ - - - - PROMETO(EMOS), Y ME (NOS) OBLIGO (AMOS) A PAGAR INCONDICIONALMENTE A LA ORDEN DE - - - - BDH BATERIAS DISTRIBUCIONES DE HERMOSILLO SA DE CV - - - - , EN LA CIUDAD DE HERMOSILLO, SONORA, O CUALQUIER OTRA CIUDAD QUE DESIGNE EL TITULAR DEL DOCUMENTO, LA CANTIDAD DE - - - - $ - - - - - - - - =Parameters!Total.Value - - - - *** - - - - SON - - - - =Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value) - - - - *** VALOR QUE RECONOZCO (EMOS) ADEUDARLE OBLIGÁNDOME (NOS) A CUBRIR A SU VENCIMIENTO - - - - =Parameters!Vencimiento.Value - - - - , DE NO PAGARSE CAUSARÍA UN - - - - INTERÉS MORATORIO - - - - DEL 10% POR CIENTO MENSUAL, POR EL TIEMPO QUE PERMANEZCA INSOLUTO EL ADEUDO EXISTENTE, QUEDANDO EXPRESAMENTE CONVENIDO QUE LA FALTA DE PAGO OPORTUNO OCASIONA AL DEUDOR GASTOS DE COBRO JUDICIALES O EXTRAJUDICIALES Y LOS QUE SE OCASIONEN, RENUNCIANDO EL DEUDOR AL FUERO DE SU DOMICILIO QUE PUDIERA CORRESPONDERLE, ESTE PAGARÉ ES MERCANTIL Y ESTÁ PROTEGIDO POR LA LEY GENERAL DE TÍTULOS Y OPERACIONES DE CRÉDITO. - - - - - - - 4.51022cm - 6.8587cm - 0cm - 6.65396cm - 5 - - - - - - true - true - - - - - ACEPTO (AMOS) DE CONFORMIDAD - - - - - - - Textbox39 - 4.43261cm - 6.8587cm - 0.46771cm - 6.65396cm - 6 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Obligado - - - - - - - Textbox38 - 3.82594cm - 6.8587cm - 0.38834cm - 6.65396cm - 7 - - - 2pt - 2pt - 2pt - 2pt - - - - - Start - - true - - =iif(Parameters!AplicaPagare.Value="0",True,False) - - - - - - - - - - - - - - - - - - - - - - DsOC - 1.3095cm - 0.26694cm - 5cm - 20.4cm - - - 10pt - - - - 0.85886cm - 0.45412cm - 0cm - 20.17719cm - 1 - - - - - - Embedded - TijerasRedimencionada - FitProportional - 0.33044cm - 0.75436cm - 1.2769cm - 2 - - - - - - true - 18.18344cm - 6.3095cm - 21.01663cm - 22 - - - - - - 24.49294cm - - - - - 21.1673cm - - - 0.5327cm - true - true - - - true - true - - - - - Fecha Impresión: - - - - =Parameters!FechaImpresion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox35 - 0.11289cm - 18.41665cm - 0.41981cm - 2.5cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 27.94cm - 21.59cm - 0cm - 0cm - 0.5cm - 0.5cm - 1.27cm - + + + + + + + + Cliente: + + + + =Parameters!ClienteCodigo.Value + + + + - + + + + =Parameters!ClienteNombre.Value + + + + + + + + + RFC: + + + + =Parameters!ClienteRFC.Value + + + + + + + + + Calle: + + + + + + + + =Parameters!ClienteCalle.Value & IIF(Parameters!ClienteNoExt.Value <> "", " No.Ext: " & Parameters!ClienteNoExt.Value & iif(Parameters!ClienteNoInt.Value <> ""," No.Int: " & Parameters!ClienteNoInt.Value,""),iif(Parameters!ClienteNoInt.Value <> ""," No.Int: " & Parameters!ClienteNoInt.Value,"")) + + + + + + + + + Colonia: + + + + + + + + =Parameters!ClienteColonia.Value + + + + + + + + + Ciudad: + + + + =Parameters!ClienteCiudad.Value + + + + + + + + Estado: + + + + + + + + =Parameters!ClienteEstado.Value + + + + + + + + + Municipio y/o Delegación: + + + + =Parameters!ClienteMunicipio.Value + + + + + + + + + + + + + Pais: + + + + =Parameters!ClientePais.Value + + + + + + + + CP: + + + + + + + + =Parameters!ClienteCP.Value + + + + + + + + + Reg.fiscal: + + + + + + + + =Parameters!RegimenFiscalCodigo.Value + + + + + + + Textbox2 + 0.05159in + 4.36025cm + 1.46225in + 3.20861in + + + 2pt + 2pt + 2pt + 2pt + + + + + + true + true + + + + + "Este documento es una representación impresa de un CFDI" + + + + + + + + + Folio fiscal: + + + + =Parameters!FolioFiscal.Value + + + + + + + =Parameters!FechaCertificacion.Value + + + + Número de serie del Certificado de Sello Digital: + + + + =Parameters!CertificadoContribuyente.Value + + + + + + + =Parameters!SerieCertificadoSAT.Value + + + + + + + + + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!QR.Value + FitProportional + 0.0444in + 6.56374in + 1.13974in + 1.53682in + 1 + + + + + + true + 3.82538in + 0.05395in + 1.21305in + 8.22763in + 1 + + + + + + true + true + + + + + Domicilio fiscal: + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + = IIF(Parameters!Tipo.Value = "INGRESO","FACTURA","NOTA DE CRÉDITO") + + + + + + + + + + + + + Serie: + + + + =Parameters!Serie.Value + + + + + + + + Folio: + + + + =Parameters!Folio.Value + + + + + + + + + Fecha: + + + + + + + + =Format(Cdate(Parameters!Fecha.Value),"dd/MM/yyyy") + + + + + + + + + Moneda: + + + + + + + + =Parameters!MonedaAbreviatura.Value + + + + + + + + + Vencimiento + + + + : + + + + =Parameters!Vencimiento.Value + + + + + + + + + + + + + Forma de pago: + + + + =Parameters!FormaPago.Value + + + + + + + + + Método de pago: + + + + =Parameters!MetodoPago.Value + + + + + + + + + Uso CFDI: + + + + =Parameters!UsoCFDI.Value + + + + + + + + + Régimen fiscal: + + + + Regimen General de Ley Personas Morales + + + + + + + + + + + Textbox4 + 0.05022in + 5.03983in + 1.62345in + 3.24175in + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Expedido en + + + + : + + + + + + + + + =Parameters!DomicilioSucursal.Value + + + + + + + + + BBD021220APA + + + + + + + + + + + + + + + + + + Vendedor: + + + + =Parameters!VendedorNombre.Value + + + + + + + Textbox40 + 4.25cm + 13.31398cm + 1.42163cm + 7.72123cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 0.54927in + + + 0.74976in + + + 0.76555in + + + 3.107in + + + 0.63292in + + + 0.57354in + + + 0.59047in + + + 0.45526in + + + 0.79194in + + + + + 0.19645in + + + + + true + true + + + + + CANT + + + + + + + Textbox22 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + UNIDAD + + + + + + + Textbox15 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CLAVE SAT + + + + + + + Textbox29 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + DESCRIPCIÓN + + + + + + + Textbox17 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Obj. Imp. + + + + + + + Textbox22 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + PU + + + + + + + Textbox3 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + DESC. + + + + + + + Textbox8 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + IVA + + + + + + + Textbox2 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + TOTAL + + + + + + + Textbox1 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.167in + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =(Fields!UM.Value & "-" & Fields!UnidadMedida.Value) + + + + + + + UM + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SATClaveProdServ.Value + + + + + + + SATClaveProdServ + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PS.Value & " " & Fields!Obs.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!CodigoObjetoImpuesto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PU.Value + + + + + + + PU + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Descuento.Value + + + + + + + Descuento + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteIVA.Value + + + + + + + ImporteIVA + + + 2pt + 2pt + 2pt + 2pt + + + true + + + + + + true + true + + + + + =(Fields!Cantidad.Value * Fields!PU.Value) - Fields!Descuento.Value + Fields!ImporteIVA.Value + + + + + + + TiempoEntrega + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DsOC + 2.25503in + 0.05854in + 0.36345in + 8.21572in + 5 + + + + + + true + true + + + + + + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =UCase(Parameters!ImporteLetra.Value) + + + + + + + ImporteLetra + 3.05676in + 2.30237in + 0.18861in + 5.97921in + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 2.99824cm + + + + + 0.48004cm + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + =Fields!ImpuestoLocal.Value + + + + 2.93858cm + + + true + true + + + + + =IIF(Fields!ImpuestoLocal.Value = "Total",UCase(Fields!ImpuestoLocal.Value),Fields!ImpuestoLocal.Value) + + + + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + DataSet1 + 6.99203cm + 15.09838cm + 0.48004cm + 5.93682cm + 12 + + + + + + + + true + true + + + + + CFDI Relacionados + + + + + + + Textbox5 + 0.14926cm + 0.07193cm + 0.54004cm + 20.7077cm + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Tipo Relación: + + + + + + + Textbox29 + 0.83025cm + 4.78817cm + 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 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox12 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox21 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Folio Fiscal + + + + + + + Textbox11 + + + #3a4173 + 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 + 3.28643cm + 0.85604cm + 15.30142cm + 3 + + + + + + true + true + + + + + VERSION 4.0 + + + + + + + Textbox5 + 2.32303cm + 17.39754cm + 0.6cm + 3.32021cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + 14.89676cm + 0.13702cm + 2.97096cm + 20.89818cm + 13 + + =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) + + + + + + + + + + 0.78719in + + + 0.58129in + + + 0.71694in + + + + + 0.19645in + + + + + true + true + + + + + IMPUESTO + + + + + + + Textbox22 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + TASA + + + + + + + Textbox15 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + IMPORTE + + + + + + + Textbox29 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.14436in + + + + + true + true + + + + + =Fields!Impuesto.Value + + + + + + + Cantidad1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!tasa.Value + + + + + + + UM + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Codigo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet3 + 2.75704in + 0.05854in + 0.34081in + 2.08542in + 14 + + + + + + true + true + + + + + "REVISAR SU FACTURA Y SUS PRODUCTOS AL MOMENTO DE RECIBIRLAS, YA QUE NO SE REALIZARAN CAMBIOS EN FACTURA. + + + + + + + + + TODA DEVOLUCIÓN NO REALIZADA EL DÍA DE LA COMPRA CAUSARÁ EL 10% DE CARGO" + + + + + + + Textbox1 + 8.39473cm + 1.07794cm + 20.85477cm + 15 + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + Logo + FitProportional + 0.12756cm + 0.15969cm + 2.38455cm + 3.48217cm + 16 + + + + + + true + true + + + + + Banco: + + + + BBVA BANCOMER SA + + + + + + + 0160660639 + + + + + + + 012760001606606397 + + + + + + + pagos@bdhbaterias.com + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 14.16139cm + 14.38124cm + 0cm + 6.65396cm + 18 + + + + + + true + true + + + + + Nombre + + + + + + + Textbox39 + 14.33778cm + 14.38124cm + 0.47784cm + 6.65396cm + 19 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Recibí Producto + + + + + + + Textbox38 + 13.25486cm + 14.38124cm + 0.4148cm + 6.65396cm + 20 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + BDH + + + + Baterias Distribuciones de Hermosillo SA de CV + + + + + + + Textbox16 + 2.16641cm + 0.13011cm + 1.21002cm + 4.23014cm + 21 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 20.4cm + + + + + 5cm + + + + + + + true + true + + + + + Serie: + + + + + + + + =Parameters!Serie.Value + + + + + + + + Folio: + + + + =Parameters!Folio.Value + + + + + + + Textbox81 + 0.01788in + 4.70028in + 0.18682in + 2.8585in + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + Logo + Fit + 0.23694in + 1.40934cm + 2.57947cm + 1 + + + + + + true + true + + + + + + + + + Cliente: + + + + =Parameters!ClienteCodigo.Value + + + + - + + + + =Parameters!ClienteNombre.Value + + + + - + + + + =Parameters!ClienteRFC.Value + + + + + + + + + Domicilio: + + + + =Parameters!ClienteDireccion.Value + + + + , + + + + =Parameters!ClienteCiudad.Value + + + + , + + + + =Parameters!ClienteEstado.Value + + + + + + + Textbox36 + 0.55521cm + 3.35769cm + 0.85414cm + 14.87889cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + 1.44462cm + 0cm + 20.4cm + 3 + + + + + + true + true + + + + + POR ESTE + + + + PAGARÉ + + + + PROMETO(EMOS), Y ME (NOS) OBLIGO (AMOS) A PAGAR INCONDICIONALMENTE A LA ORDEN DE + + + + BDH BATERIAS DISTRIBUCIONES DE HERMOSILLO SA DE CV + + + + , EN LA CIUDAD DE HERMOSILLO, SONORA, O CUALQUIER OTRA CIUDAD QUE DESIGNE EL TITULAR DEL DOCUMENTO, LA CANTIDAD DE + + + + $ + + + + + + + + =Parameters!Total.Value + + + + *** + + + + SON + + + + =Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value) + + + + *** VALOR QUE RECONOZCO (EMOS) ADEUDARLE OBLIGÁNDOME (NOS) A CUBRIR A SU VENCIMIENTO + + + + =Parameters!Vencimiento.Value + + + + , DE NO PAGARSE CAUSARÍA UN + + + + INTERÉS MORATORIO + + + + DEL 10% POR CIENTO MENSUAL, POR EL TIEMPO QUE PERMANEZCA INSOLUTO EL ADEUDO EXISTENTE, QUEDANDO EXPRESAMENTE CONVENIDO QUE LA FALTA DE PAGO OPORTUNO OCASIONA AL DEUDOR GASTOS DE COBRO JUDICIALES O EXTRAJUDICIALES Y LOS QUE SE OCASIONEN, RENUNCIANDO EL DEUDOR AL FUERO DE SU DOMICILIO QUE PUDIERA CORRESPONDERLE, ESTE PAGARÉ ES MERCANTIL Y ESTÁ PROTEGIDO POR LA LEY GENERAL DE TÍTULOS Y OPERACIONES DE CRÉDITO. + + + + + + + 4.51022cm + 6.8587cm + 0cm + 6.65396cm + 5 + + + + + + true + true + + + + + ACEPTO (AMOS) DE CONFORMIDAD + + + + + + + Textbox39 + 4.43261cm + 6.8587cm + 0.46771cm + 6.65396cm + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Obligado + + + + + + + Textbox38 + 3.82594cm + 6.8587cm + 0.38834cm + 6.65396cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + + Start + + true + + =iif(Parameters!AplicaPagare.Value="0",True,False) + + + + + + + + + + + + + + + + + + + + + + DsOC + 1.3095cm + 0.26694cm + 5cm + 20.4cm + + + 10pt + + + + 0.85886cm + 0.45412cm + 0cm + 20.17719cm + 1 + + + + + + Embedded + TijerasRedimencionada + FitProportional + 0.33044cm + 0.75436cm + 1.2769cm + 2 + + + + + + true + 18.18344cm + 6.3095cm + 21.01663cm + 22 + + + + + + 24.49294cm + + + + + 21.03521cm + + + 0.5327cm + true + true + + + true + true + + + + + Fecha Impresión: + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox35 + 0.11289cm + 18.41665cm + 0.41981cm + 2.5cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0cm + 0cm + 0.5cm + 0.5cm + 1.27cm + - - - - =Parameters!CP.Value - - - - - Textbox10 0.53358in @@ -5423,6 +5408,18 @@ true ReportParameter1 + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb index 45514ef77..9c3b88a19 100644 --- a/Ventas/Promociones.aspx.vb +++ b/Ventas/Promociones.aspx.vb @@ -315,10 +315,10 @@ Partial Class Ventas_Promociones ButBtnEliminar.Visible = True - If CvePromocionPadre > 0 Then - BtnGuardar.Enabled = False - ButBtnEliminar.Enabled = False - End If + 'If CvePromocionPadre > 0 Then + ' BtnGuardar.Enabled = False + ' ButBtnEliminar.Enabled = False + 'End If ObjVentas.Dispose() End Sub From dcfc1b273354adfb4d6545a5df8370b31082a744 Mon Sep 17 00:00:00 2001 From: MLopez Date: Thu, 9 Feb 2023 19:47:36 -0700 Subject: [PATCH 48/53] =?UTF-8?q?Fix=20error=20compilaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Clientes.aspx.vb | 2 -- 1 file changed, 2 deletions(-) diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index bd06ab0dd..ff59d73be 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1301,7 +1301,6 @@ Partial Class Clientes Private Sub CargaCombos() - CargaSubProyectoss() CargaMetodosPago() CargaPrecioLista() CargaVendedores() @@ -1504,7 +1503,6 @@ Partial Class Clientes ' CargaDocs() CargaCombos() CargaDocumentacionCliente() - CargaSubProyectosSuscursales() 'CargaMetodosPago33() 'CargaFormaPago33() 'CargaComboCFDI() From a24bc5d0861b5482d5ac770ea4fa62289675b44c Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 10 Feb 2023 09:32:54 -0700 Subject: [PATCH 49/53] - --- Nomina/FiniquitoOld.aspx | 516 ------------------------------------ Nomina/FiniquitoOld.aspx.cs | 515 ----------------------------------- Nomina/FiniquitoOld.aspx.vb | 462 -------------------------------- 3 files changed, 1493 deletions(-) delete mode 100644 Nomina/FiniquitoOld.aspx delete mode 100644 Nomina/FiniquitoOld.aspx.cs delete mode 100644 Nomina/FiniquitoOld.aspx.vb diff --git a/Nomina/FiniquitoOld.aspx b/Nomina/FiniquitoOld.aspx deleted file mode 100644 index df6cee227..000000000 --- a/Nomina/FiniquitoOld.aspx +++ /dev/null @@ -1,516 +0,0 @@ -<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="FiniquitoOld.aspx.cs" Inherits="Nomina_Finiquito" %> - - - - - - - - Finiquito - - - - - - - -
  • - Cambiar Empleado
    • -
  • - ReCalcular
    • -
  • - done_allAutorizar
    • -
  • - Timbrar
    • -
  • - Formato Renuncia
    • -     -     -     - - - - - - -
    -
    - -
    -
    -
    - - Datos del Empleado -
    -
    - - -
    -
    -
    -
    -
    Empleado:
    -
    - -
    -
    -
    -
    Estatus
    -
    - -
    -
    -
    -
    Motivo Baja
    -
    - -
    -
    -
    -
    Fecha Baja
    -
    - -
    -
    -
    -
    Perido Finiquito
    -
    - -
    -
    -
    -
    -
    - -
    - - - - - -
    - -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    -
    -     -     - - -
    - -
    -
    -
    -
    -
    $
    -
    -
    -
    Aguinaldo ejercicio completo
    -
    -
    -
    -
    -
    $
    -
    -
    -
    Aguinaldo
    -
    -
    -
    -
    -
    -
    -
    -
    Aguinaldo Pagado
    -
    -
    -
    -
    -
    -
    -
    -
    Aguinaldo por pagar
    -
    -
    -
    -
    -
    -
    -
    -
    -
    -
    Dias Ejercicio
    -
    -
    -
    -
    -
    -
    -
    -
    Dias Laborados
    -
    -
    -
    -
    -
    -
    -
    -
    Dias pago Aguinaldo
    -
    -
    -
    -
    - -
    -     -     - - -
    - -
    -
    -
    -
    - - -
    -
    -
    -
    - - -
    -
    -
    -
    - - -
    -
    -
    -
    - - -
    -
    -
    -
    -
    -
    - - -
    -
    -
    -
    - - -
    -
    -
    -
    - - -
    -
    -
    -
    - - -
    -
    -
    - -
    -
    -
    - - -
    -
    -
    -
    - - -
    -
    -
    -
    - - -
    -
    -
    -
    - - -
    -
    -
    -
    -
    -     -     -     - - - - - -     -     -     - - <%--" PercepcionesDeducciones "--%> - - diff --git a/Nomina/FiniquitoOld.aspx.cs b/Nomina/FiniquitoOld.aspx.cs deleted file mode 100644 index 95eeedff3..000000000 --- a/Nomina/FiniquitoOld.aspx.cs +++ /dev/null @@ -1,515 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using Microsoft.VisualBasic; -using System.Data; -using Extensiones; -using System.Web.UI.WebControls; - -partial class Nomina_Finiquito : ClsPaginas -{ - private class NConcepto - { - //Concepto,CveConcepto,Importe,Estatus,ConceptoD,CveConceptoD,ImporteD,EstatusD - - - - public string NoConceptoP { get; set; } - public string ConceptoP { get; set; } - public string LabelValorP { get; set; } - public int CveConceptoP { get; set; } - public double ImporteP { get; set; } - public double ValorP { get; set; } - public int EstatusP { get; set; } - public bool isEditedP { get; set; } - - - public string NoConceptoD { get; set; } - public string ConceptoD { get; set; } - public string LabelValorD { get; set; } - public int CveConceptoD { get; set; } - public double ImporteD { get; set; } - public double ValorD { get; set; } - public int EstatusD { get; set; } - public bool isEditedD { get; set; } - } - - private class ConceptosPersonal - { - public ConceptosPersonal() - { - Concepto = ""; - ConceptoD = ""; - CveConcepto = 0; - CveConceptoD = 0; - Estatus = 0; - Estatus = 0; - } - public string Concepto { get; set; } - public int CveConcepto { get; set; } - public decimal Importe { get; set; } - public int Estatus { get; set; } - - public string ConceptoD { get; set; } - public int CveConceptoD { get; set; } - public decimal ImporteD { get; set; } - public int EstatusD { get; set; } - } - #region Propiedades - private int CvePersonal - { - get { return ViewState["CvePersonal"] != null ? ViewState["CvePersonal"].ToString().ToEntero() : 0; } - set { ViewState["CvePersonal"] = value; } - } - private int CveTipoPeriodo - { - get { return ViewState["CveTipoPeriodo"] != null ? ViewState["CveTipoPeriodo"].ToString().ToEntero() : 0; } - set - { - ViewState["CveTipoPeriodo"] = value; - } - } - private int CvePeriodoFiniquito - { - get { return ViewState["CvePeriodoFiniquito"] != null ? ViewState["CvePeriodoFiniquito"].ToString().ToEntero() : 0; } - set { ViewState["CvePeriodoFiniquito"] = value; } - } - - private int GCEstatus - { - get { return ViewState["GCEstatus"] != null ? ViewState["GCEstatus"].ToString().ToEntero() : 0; } - set { ViewState["GCEstatus"] = value; } - } - private int GCCveConcepto - { - get { return ViewState["GCCveConcepto"] != null ? ViewState["GCCveConcepto"].ToString().ToEntero() : 0; } - set { ViewState["GCCveConcepto"] = value; } - } - private decimal GCImporte - { - get { return ViewState["GCImporte"] != null ? ViewState["GCImporte"].ToString().ToDecimal() : 0; } - set { ViewState["GCImporte"] = value; } - } - - - private DataTable DTConceptosPersonal - { - get { return ViewState["DTConceptosPersonal"] != null ? (DataTable)ViewState["DTConceptosPersonal"] : null; } - set { ViewState["DTConceptosPersonal"] = value; } - } - private DataTable DTConceptos - { - get { return ViewState["DTConceptos"] != null ? (DataTable)ViewState["DTConceptos"] : null; } - set { ViewState["DTConceptos"] = value; } - } - private bool esLiquidacion - { - get { return ViewState["esLiquidacion"] != null ? System.Convert.ToBoolean(ViewState["esLiquidacion"]) : false; } - set { ViewState["esLiquidacion"] = value; } - } - #endregion - - private List ConceptsPersonas - { - get - { - List listaconceptos = new List(); - decimal TotalP = 0; - decimal TotalD = 0; - if ((!Information.IsNothing(DTConceptosPersonal) && DTConceptosPersonal.Rows.Count > 0)) - { - DataTable dtP = DTConceptosPersonal.FiltraParametros("Tipo=1"); - DataTable dtD = DTConceptosPersonal.FiltraParametros("Tipo=2"); - var noP = dtP.Rows.Count; - var noD = dtD.Rows.Count; - var max = noP > noD ? noP : noD; - TotalP = dtP.SUM("Importe").ToString().ToDecimal(); - TotalD = dtD.SUM("Importe").ToString().ToDecimal(); - for (int index = 0; index <= max; index++) - { - ConceptosPersonal obj = new ConceptosPersonal(); - if (index < noP) - { - obj.Importe = dtP.Rows[index]["Importe"].ToString().ToDecimal(); - obj.CveConcepto = dtP.Rows[index]["CveConcepto"].ToString().ToEntero(); - obj.Concepto = dtP.Rows[index]["Concepto"].ToString(); - obj.Estatus = dtP.Rows[index]["Estatus"].ToString().ToEntero(); - } - else if (index == noP) - { - obj.Estatus = -1; - obj.Concepto = "Agregar"; - } - if (index < noD) - { - obj.ImporteD = dtD.Rows[index]["Importe"].ToString().ToDecimal(); - obj.CveConceptoD = dtD.Rows[index]["CveConcepto"].ToString().ToEntero(); - obj.ConceptoD = dtD.Rows[index]["Concepto"].ToString(); - obj.EstatusD = dtD.Rows[index]["Estatus"].ToString().ToEntero(); - } - else if (index == noD) - { - obj.EstatusD = -1; - obj.ConceptoD = "Agregar"; - } - listaconceptos.Add(obj); - } - } - listaconceptos.Add(new ConceptosPersonal()); - - - ConceptosPersonal objST = new ConceptosPersonal(); - objST.Importe = TotalP; - objST.CveConcepto = 0; - objST.Concepto = "Total Percepciones"; - objST.Estatus = -2; - objST.ImporteD = TotalD; - objST.CveConceptoD = 0; - objST.ConceptoD = "Total Deducciones"; - objST.EstatusD = -2; - - listaconceptos.Add(objST); - - ConceptosPersonal objT = new ConceptosPersonal(); - - objT.CveConcepto = 0; - objT.Concepto = ""; - objT.Estatus = -3; - objT.ImporteD = objST.Importe + objST.ImporteD; - objT.CveConceptoD = 0; - objT.ConceptoD = "Total"; - objT.EstatusD = -3; - listaconceptos.Add(objT); - return listaconceptos; - } - } - - protected void Page_Load(object sender, EventArgs e) - { - if (!Page.IsPostBack) - { - CargaDdlPersonal(); - CargaMotivoBaja(); - CvePeriodoFiniquito = 0; - if (Request["CvePersonal"] != null && Request["CvePersonal"].ToString().ToEntero() > 0) - { - CvePersonal = Request["CvePersonal"].ToString().ToEntero(); - } - else - { - CvePersonal = -1; - } - if (!CargaDatosFiniquito()) - { - } - RegistraScript("$('#ModalEmpleados').modal();"); - } - - if (CvePersonal > 0 & CvePeriodoFiniquito > 0) - { - LtlEmpleadoCancelar.Visible = true; - } - } - - private void CargaMotivoBaja() - { - DdlMotivoBaja.DataSource = GlobalDTMotivoBaja.FiltraParametros("CveEmpresa = " + UsuarioActual.CveEmpresa); - DdlMotivoBaja.DataBind(); - } - private void CargaDdlPersonal() - { - ClsRH ObjPersonal = new ClsRH(); - if (ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa)) - { - DdlPersonal.DataSource = ObjPersonal.DtResultados; - DdlPersonal.DataBind(); - } - ObjPersonal.Dispose(); - } - - private bool CargaDatosFiniquito() - { - bool retorno = true; - if (CvePersonal > 0) - { - DdlPersonal.SelectedValueExist(CvePersonal.ToString()); - string Nombre = ""; - string FechaBaja = ""; - string EstatusPersonal = ""; - CvePeriodoFiniquito = 0; - CveTipoPeriodo = 0; - esLiquidacion = false; - pnlupValoresFiniquito.Visible = false; - DdlMotivoBaja.SelectedValue = "-1"; - using (ClsRH ObjPersonal = new ClsRH()) - { - if (ObjPersonal.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) && ObjPersonal.DtResultados.Rows.Count > 0) - { - DataRow prow = ObjPersonal.DtResultados.Rows[0]; - Nombre = prow["Nombre"].ToString(); - FechaBaja = string.Format("{0:dd/MM/yyyy}", ObjPersonal.FechaBaja); - EstatusPersonal = string.Format("{0}", prow["EstatusPersonal"]); - CveTipoPeriodo = prow["CveTipoPeriodo"].ToString().ToEntero(); - } - if (ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0) - { - DataRow prow = ObjPersonal.DtResultados.Rows[0]; - CvePeriodoFiniquito = prow["CvePeriodoFiniquito"].ToString().ToEntero(); - FechaBaja = string.Format("{0:dd/MM/yyyy}", prow["FechaFin"]); - DdlMotivoBaja.SelectedValueExist(prow["CveMotivoBaja"].ToString().ToEntero()); - var stringesliquidacion = prow["esLiquidacion"].ToString(); - esLiquidacion = (stringesliquidacion == "True" || stringesliquidacion == "1"); - ChkesLiquidacion.Checked = esLiquidacion; - } - } - Timbrado tr; - if (DdlMotivoBaja.SelectedValue.ToEntero() > 0) - LblMotivoBaja.Text = DdlMotivoBaja.SelectedItem.Text; - else - LblMotivoBaja.Text = ""; - HypEmpleado.Text = Nombre; - HypEmpleado.NavigateUrl = string.Format("/RH/Personal.aspx?CvePersonal={0}", CvePersonal); - LblFechaBaja.Text = FechaBaja; - LblEstatus.Text = EstatusPersonal; - TxtFechaBaja.Text = FechaBaja; - DdlTipoPeriodo_SelectedIndexChanged(null, null); - LblPerido.Text = DdlPeriodo.SelectedItem.Text; - if (CvePeriodoFiniquito <= 0) - retorno = false; - pnlupValoresFiniquito.Visible = true; - using (ClsNominas ObjNom = new ClsNominas()) - { - if (ObjNom.GetFiniquitosPersonal(CvePersonal, UsuarioActual.CveEmpresa)) - { - DataRow finrow = ObjNom.DtResultados.Rows[0]; - TxtAntiguedad.Text = $"{finrow["Antiguedad"]}"; - TxtdiasVacaciones.Text = $"{finrow["Diasvacaciones"]}"; - TxtDiasLaborados.Text = $"{finrow["diaslaborados"]}"; - TxtDiasProporcion.Text = $"{finrow["diasProporcion"]}"; - - TxtVaciones.Text = $"{finrow["Vacaciones"]}"; - TxtDiasPago.Text = $"{finrow["Diasvacaciones"]}"; - TxtDiasPendientes.Text = $"{finrow["diasporpagar"]}"; - TxtVacacionesporPagar.Text = $"{finrow["VacacionesporPagar"]}"; - - TxtPorcentjePrima.Text = $"{finrow["PrimaPorcentaje"]}"; - TxtPrimaVacacional.Text = $"{finrow["PrimaVacacional"]}"; - TxtPrimaPagada.Text = $"{finrow["PrimaPagada"]}"; - TxtPrimaPorPagar.Text = $"{finrow["PrimaVacacionalPorPagar"]}"; - } - if (ObjNom.DTSetResultados.Tables.Count > 5) - { - DataTable dtconceptos = ObjNom.DTSetResultados.Tables[1]; - DataTable dtconpersonal = ObjNom.DTSetResultados.Tables[5]; - - int maxFila = dtconpersonal.MAX("Fila", "Tipo<3").ToEntero(); - List lfin = new List(); - - if (maxFila > 0) - { - DataRow conPerrow; - DataRow conrow; - NConcepto sr; - - for (int i = 1; i <= maxFila; i++) - { - sr = new NConcepto(); - conPerrow = dtconpersonal.FiltroPrimero(string.Format("Tipo=1 AND Fila ={0}", i)); - if (conPerrow != null) - { - sr.CveConceptoP = conPerrow["CveConcepto"].ToString().ToEntero(); - conrow = dtconceptos.FiltroPrimero(string.Format("CveConcepto ={0}", sr.CveConceptoP)); - sr.ConceptoP = conrow["Concepto"].ToString(); - sr.ValorP = conPerrow["Valor"].ToString().ToDouble(); - sr.ImporteP = conPerrow["Importe"].ToString().ToDouble(); - sr.NoConceptoP = conrow["Codigo"].ToString(); - } - - - conPerrow = dtconpersonal.FiltroPrimero(string.Format("Tipo=2 AND Fila ={0}", i)); - if (conPerrow != null) - { - sr.CveConceptoD = conPerrow["CveConcepto"].ToString().ToEntero(); - conrow = dtconceptos.FiltroPrimero(string.Format("CveConcepto ={0}", sr.CveConceptoD)); - sr.ConceptoD = conrow["Concepto"].ToString(); - sr.ValorD= conPerrow["Valor"].ToString().ToDouble(); - sr.ImporteD = conPerrow["Importe"].ToString().ToDouble(); - sr.NoConceptoD = conrow["Codigo"].ToString(); - } - - - - lfin.Add(sr); - } - } - GvConceptos.DataSource = lfin; - GvConceptos.DataBind(); - } - } - //GvConceptos.DataSource = ConceptsPersonas; - //GvConceptos.DataBind(); - } - else - retorno = false; - return retorno; - } - - - protected void LnkCampiarEmpleado_Click(object sender, EventArgs e) - { - CvePersonal = DdlPersonal.SelectedValue.ToEntero(); - - - using (ClsRH ObjPersonal = new ClsRH()) - { - if (ObjPersonal.UpPersonalAltas(CvePersonal, UsuarioActual.CveUsuario, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked) && ObjPersonal.DtResultados.Rows.Count > 0) - { - } - } - if (pnlupValoresFiniquito.Visible) - { - } - if (!CargaDatosFiniquito()) - RegistraScript("$('#ModalEmpleados').modal('hide');"); - upDatos.Update(); - } - protected void LnkCalcular_Click(object sender, EventArgs e) - { - } - protected void LnkAutorizar_Click(object sender, EventArgs e) - { - } - protected void LnkTimbrar_Click(object sender, EventArgs e) - { - } - protected void LnkFormatoRenuncia_Click(object sender, EventArgs e) - { - } - protected void DdlPersonal_SelectedIndexChanged(object sender, EventArgs e) - { - Response.Redirect($"/Nomina/Finiquito.aspx?CvePersonal={DdlPersonal.SelectedValue}"); - } - protected void DdlTipoPeriodo_SelectedIndexChanged(object sender, EventArgs e) - { - int CveTipoPeriodoactual = DdlTipoPeriodo.SelectedValue.ToEntero() > 0 ? DdlTipoPeriodo.SelectedValue.ToEntero() : CveTipoPeriodo; - string fechabaja = TxtFechaBaja.Text; - DataTable dtperiodos = new DataTable(); - ClsNominas ObjPeriodos = new ClsNominas(); - if (ObjPeriodos.GetPeriodos(-1, UsuarioActual.CveEmpresa, -1, -1, -1)) - { - dtperiodos = ObjPeriodos.DtResultados; - if (Information.IsNothing(sender) && CvePeriodoFiniquito > 0) - { - DataRow row = dtperiodos.FiltroPrimero(string.Format("CvePeriodo={0} ", CvePeriodoFiniquito)); - if (!Information.IsNothing(row)) - { - CveTipoPeriodoactual = row["CveTipoPeriodo"].ToString().ToEntero(); - DdlTipoPeriodo.SelectedValueExist(CveTipoPeriodoactual == 6 ? "6" : "-1"); - } - } - dtperiodos = ObjPeriodos.DtResultados.FiltraParametros(string.Format("(Estatus IN (1,2,3,4) AND CveTipoPeriodo={0}) ", CveTipoPeriodoactual)); - // FechaInicio, P.FechaFin - DdlPeriodo.Items.Clear(); - DdlPeriodo.Items.Add(new ListItem("Seleccione", "-1")); - DdlPeriodo.SelectedValue = "-1"; - DdlPeriodo.DataSource = dtperiodos; - } - else - DdlPeriodo.DataSource = null; - ObjPeriodos.Dispose(); - DdlPeriodo.DataBind(); - if (fechabaja.Length > 0 && dtperiodos.Rows.Count > 0) - { - if ((CvePeriodoFiniquito > 0) && Information.IsNothing(sender)) - DdlPeriodo.SelectedValueExist(CvePeriodoFiniquito); - else - { - DataRow row = dtperiodos.FiltroPrimero(string.Format("(FechaInicio<='{0:yyyy/MM/dd}' AND FechaFin>='{0:yyyy/MM/dd}') ", fechabaja.ToDate())); - if (!Information.IsNothing(row)) - DdlPeriodo.SelectedValueExist(row["CvePeriodo"]); - } - } - } - - protected void GvConceptos_RowDataBound(object sender, GridViewRowEventArgs e) - { - if (e.Row.RowType == DataControlRowType.DataRow) - { - // Datakeys - // Concepto,CveConcepto,Importe,Estatus,ConceptoD,CveConceptoD,ImporteD,EstatusD - int CveConcepto = e.Row.DataKey("CveConceptoP").ToEntero(); - int CveConceptoD = e.Row.DataKey("CveConceptoD").ToEntero(); - // Dim Importe As Decimal = e.Row.DataKey("Importe").ToDecimal() - // Dim ImporteD As Decimal = e.Row.DataKey("ImporteD").ToDecimal() - int Estatus = e.Row.DataKey("EstatusP").ToEntero(); - int EstatusD = e.Row.DataKey("EstatusD").ToEntero(); - - // Controles - Label LtlConcepto = e.Row.FCLabel("LtlConcepto"); - LinkButton LnkConcepto = e.Row.FCLinkButton("LnkConcepto"); - Label LtlConceptoD = e.Row.FCLabel("LtlConceptoD"); - LinkButton LnkConceptoD = e.Row.FCLinkButton("LnkConceptod"); - Label LtlImporte = e.Row.FCLabel("LtlImporte"); - LinkButton LnkImporte = e.Row.FCLinkButton("LnkImporte"); - Label LtlImporteD = e.Row.FCLabel("LtlImporteD"); - LinkButton LnkImporteD = e.Row.FCLinkButton("LnkImporteD"); - - if (Estatus < -1 | EstatusD < -1) - e.Row.CssClass = "ConceptosTotales"; - if (CveConcepto == 0 && (Estatus == 0 || Estatus == -1 || Estatus == -3)) - LtlImporte.Text = ""; - - if (CveConceptoD == 0 && (EstatusD == 0 || EstatusD == -1)) - LtlImporteD.Text = ""; - - if (Estatus == -1) - LtlConcepto.Visible = false; - else if (Estatus > 0) - LtlImporte.Visible = false; - - if (EstatusD == -1) - LtlConceptoD.Visible = false; - else if (EstatusD > 0) - LtlImporteD.Visible = false; - - - LnkConcepto.Visible = !LtlConcepto.Visible; - LnkConceptoD.Visible = !LtlConceptoD.Visible; - LnkImporte.Visible = !LtlImporte.Visible; - LnkImporteD.Visible = !LtlImporteD.Visible; - } - } - - protected void LnkConcepto_Click(object sender, EventArgs e) - { - GridViewRow gvRow = (GridViewRow)((LinkButton)sender).NamingContainer; - GCEstatus = gvRow.DataKey("Estatus").ToEntero(); - GCCveConcepto = gvRow.DataKey("CveConcepto").ToEntero(); - GCImporte = gvRow.DataKey("Importe").ToDecimal(); - OpenModalConceptos(1); - } - protected void LnkConceptoD_Click(object sender, EventArgs e) - { - GridViewRow gvRow = (GridViewRow)((LinkButton)sender).NamingContainer; - GCEstatus = gvRow.DataKey("Estatus").ToEntero(); - GCCveConcepto = gvRow.DataKey("CveConcepto").ToEntero(); - GCImporte = gvRow.DataKey("Importe").ToDecimal(); - OpenModalConceptos(2); - } - - private void OpenModalConceptos(int Tipo) - { - if (GCEstatus == -1) - { - } - else - { - } - RegistraScript("$('#ModalConceptos').modal();"); - } - - protected void LnkAceptarConceptos_Click(object sender, EventArgs e) - { - RegistraScript("$('#ModalConceptos').modal('hide');"); - } -} diff --git a/Nomina/FiniquitoOld.aspx.vb b/Nomina/FiniquitoOld.aspx.vb deleted file mode 100644 index 18c1cda0f..000000000 --- a/Nomina/FiniquitoOld.aspx.vb +++ /dev/null @@ -1,462 +0,0 @@ -Option Strict On - -Imports System.Data -Imports Extensiones - -Partial Class Nomina_FiniquitoVB - Inherits ClsPaginas - Private Class ConceptosPersonal - Public Sub New() - Concepto = "" - ConceptoD = "" - CveConcepto = 0 - CveConceptoD = 0 - Estatus = 0 - Estatus = 0 - End Sub - Public Property Concepto As String - Public Property CveConcepto As Integer - Public Property Importe As Decimal - Public Property Estatus As Integer - - Public Property ConceptoD As String - Public Property CveConceptoD As Integer - Public Property ImporteD As Decimal - Public Property EstatusD As Integer - End Class -#Region "Propiedades" - - Private Property CvePersonal As Integer - Get - If Not IsNothing(ViewState("CvePersonal")) Then - Return ViewState("CvePersonal").ToString().ToEntero() - Else - Return 0 - End If - End Get - Set(value As Integer) - ViewState("CvePersonal") = value - End Set - End Property - Private Property CveTipoPeriodo As Integer - Get - If Not IsNothing(ViewState("CveTipoPeriodo")) Then - Return ViewState("CveTipoPeriodo").ToString().ToEntero() - Else - Return 0 - End If - End Get - Set(value As Integer) - ViewState("CveTipoPeriodo") = value - End Set - End Property - Private Property CvePeriodoFiniquito As Integer - Get - If Not IsNothing(ViewState("CvePeriodoFiniquito")) Then - Return ViewState("CvePeriodoFiniquito").ToString().ToEntero() - Else - Return 0 - End If - End Get - Set(value As Integer) - ViewState("CvePeriodoFiniquito") = value - End Set - End Property - - Private Property GCEstatus As Integer - Get - If Not IsNothing(ViewState("GCEstatus")) Then - Return ViewState("GCEstatus").ToString().ToEntero() - Else - Return 0 - End If - End Get - Set - ViewState("GCEstatus") = Value - End Set - End Property - Private Property GCCveConcepto As Integer - Get - If Not IsNothing(ViewState("GCCveConcepto")) Then - Return ViewState("GCCveConcepto").ToString().ToEntero() - Else - Return 0 - End If - End Get - Set - ViewState("GCCveConcepto") = Value - End Set - End Property - Private Property GCImporte As Decimal - Get - If Not IsNothing(ViewState("GCImporte")) Then - Return ViewState("GCImporte").ToString().ToDecimal() - Else - Return 0 - End If - End Get - Set - ViewState("GCImporte") = Value - End Set - End Property - Private ReadOnly Property ConceptsPersonas As List(Of ConceptosPersonal) - Get - Dim listaconceptos As New List(Of ConceptosPersonal) - Dim TotalP As Decimal = 0 - Dim TotalD As Decimal = 0 - If (Not IsNothing(DTConceptosPersonal) AndAlso DTConceptosPersonal.Rows.Count > 0) Then - Dim dtP As DataTable = DTConceptosPersonal.FiltraParametros("Tipo=1") - Dim dtD As DataTable = DTConceptosPersonal.FiltraParametros("Tipo=2") - Dim noP = dtP.Rows.Count() - Dim noD = dtD.Rows.Count() - Dim max = If(noP > noD, noP, noD) - TotalP = dtP.SUM("Importe").ToString().ToDecimal() - TotalD = dtD.SUM("Importe").ToString().ToDecimal() - For index = 0 To max - Dim obj As New ConceptosPersonal() - If index < noP Then - obj.Importe = dtP.Rows(index)("Importe").ToString().ToDecimal() - obj.CveConcepto = dtP.Rows(index)("CveConcepto").ToString().ToEntero() - obj.Concepto = dtP.Rows(index)("Concepto").ToString() - obj.Estatus = dtP.Rows(index)("Estatus").ToString().ToEntero() - ElseIf index = noP Then - obj.Estatus = -1 - obj.Concepto = "Agregar" - End If - If index < noD Then - obj.ImporteD = dtD.Rows(index)("Importe").ToString().ToDecimal() - obj.CveConceptoD = dtD.Rows(index)("CveConcepto").ToString().ToEntero() - obj.ConceptoD = dtD.Rows(index)("Concepto").ToString() - obj.EstatusD = dtD.Rows(index)("Estatus").ToString().ToEntero() - ElseIf index = noD Then - obj.EstatusD = -1 - obj.ConceptoD = "Agregar" - End If - listaconceptos.Add(obj) - Next - End If - listaconceptos.Add(New ConceptosPersonal()) - - - Dim objST As New ConceptosPersonal() - objST.Importe = TotalP - objST.CveConcepto = 0 - objST.Concepto = "Total Percepciones" - objST.Estatus = -2 - objST.ImporteD = TotalD - objST.CveConceptoD = 0 - objST.ConceptoD = "Total Deducciones" - objST.EstatusD = -2 - - listaconceptos.Add(objST) - - Dim objT As New ConceptosPersonal() - - objT.CveConcepto = 0 - objT.Concepto = "" - objT.Estatus = -3 - objT.ImporteD = objST.Importe + objST.ImporteD - objT.CveConceptoD = 0 - objT.ConceptoD = "Total" - objT.EstatusD = -3 - listaconceptos.Add(objT) - Return listaconceptos - End Get - End Property - - Private Property DTConceptosPersonal As DataTable - Get - If Not IsNothing(ViewState("DTConceptosPersonal")) Then - Return DirectCast(ViewState("DTConceptosPersonal"), DataTable) - Else - Return Nothing - End If - End Get - Set - ViewState("DTConceptosPersonal") = Value - End Set - End Property - Private Property DTConceptos As DataTable - Get - If Not IsNothing(ViewState("DTConceptos")) Then - Return DirectCast(ViewState("DTConceptos"), DataTable) - Else - Return Nothing - End If - End Get - Set - ViewState("DTConceptos") = Value - End Set - End Property - - - Private Property esLiquidacion As Boolean - Get - If Not IsNothing(ViewState("esLiquidacion")) Then - Return CBool(ViewState("esLiquidacion")) - Else - Return False - End If - End Get - Set - ViewState("esLiquidacion") = Value - End Set - End Property -#End Region - Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load - If Not Page.IsPostBack Then - - CargaDdlPersonal() - CargaMotivoBaja() - CvePeriodoFiniquito = 0 - If Request("CvePersonal") IsNot Nothing AndAlso IsNumeric(Request("CvePersonal")) AndAlso Request("CvePersonal").ToEntero > 0 Then - ViewState("CvePersonal") = Request("CvePersonal") - Else - CvePersonal = -1 - End If - If Not CargaDatosFiniquito() Then - End If - RegistraScript("$('#ModalEmpleados').modal();") - - End If - - If CvePersonal > 0 And CvePeriodoFiniquito > 0 Then - LtlEmpleadoCancelar.Visible = True - End If - End Sub - - Private Sub CargaMotivoBaja() - DdlMotivoBaja.DataSource = GlobalDTMotivoBaja.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - DdlMotivoBaja.DataBind() - End Sub - Private Sub CargaDdlPersonal() - Dim ObjPersonal As New ClsRH - If ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa) Then - DdlPersonal.DataSource = ObjPersonal.DtResultados - DdlPersonal.DataBind() - End If - ObjPersonal.Dispose() - End Sub - - Private Function CargaDatosFiniquito() As Boolean - Dim retorno As Boolean = True - If CvePersonal > 0 Then - - DdlPersonal.SelectedValueExist(CvePersonal.ToString()) - Dim Nombre As String = "" - Dim FechaBaja As String = "" - Dim EstatusPersonal As String = "" - CvePeriodoFiniquito = 0 - CveTipoPeriodo = 0 - esLiquidacion = False - pnlupValoresFiniquito.Visible = False - DdlMotivoBaja.SelectedValue = "-1" - Using ObjPersonal As New ClsRH() - If ObjPersonal.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then - Nombre = ObjPersonal.DtResultados.Rows(0)("Nombre").ToString() - FechaBaja = String.Format("{0:dd/MM/yyyy}", ObjPersonal.FechaBaja) - EstatusPersonal = String.Format("{0}", ObjPersonal.DtResultados.Rows(0)("EstatusPersonal")) - CveTipoPeriodo = ObjPersonal.DtResultados.Rows(0)("CveTipoPeriodo").ToString().ToEntero() - End If - If ObjPersonal.GetPersonalAltas(CvePersonal) AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then - CvePeriodoFiniquito = ObjPersonal.DtResultados.Rows(0)("CvePeriodoFiniquito").ToString().ToEntero() - FechaBaja = String.Format("{0:dd/MM/yyyy}", ObjPersonal.DtResultados.Rows(0)("FechaFin")) - DdlMotivoBaja.SelectedValueExist(ObjPersonal.DtResultados.Rows(0)("CveMotivoBaja").ToString().ToEntero()) - Dim stringesliquidacion = ObjPersonal.DtResultados.Rows(0)("esLiquidacion").ToString() - esLiquidacion = (stringesliquidacion = "True" OrElse stringesliquidacion = "1") - ChkesLiquidacion.Checked = esLiquidacion - End If - End Using - If DdlMotivoBaja.SelectedValue.ToEntero() > 0 Then - LblMotivoBaja.Text = DdlMotivoBaja.SelectedItem.Text - Else - LblMotivoBaja.Text = "" - End If - HypEmpleado.Text = Nombre - HypEmpleado.NavigateUrl = String.Format("/RH/Personal.aspx?CvePersonal={0}", CvePersonal) - LblFechaBaja.Text = FechaBaja - LblEstatus.Text = EstatusPersonal - TxtFechaBaja.Text = FechaBaja - DdlTipoPeriodo_SelectedIndexChanged(Nothing, Nothing) - LblPerido.Text = DdlPeriodo.SelectedItem.Text - If CvePeriodoFiniquito <= 0 Then - retorno = False - End If - pnlupValoresFiniquito.Visible = True - Using ObjNom As New ClsNominas() - 'If ObjNom.GetFiniquitosPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then - ' DTConceptosPersonal = ObjNom.DtResultados - 'Autoriza nomina - 'Finiquita Liquidación - 'Rep Nomina - 'RepInversion de nomina - 'Alertas Altas /Bajas - ' - 'End If - End Using - GvConceptos.DataSource = ConceptsPersonas - GvConceptos.DataBind() - Else - retorno = False - End If - Return retorno - End Function - - - Protected Sub LnkCampiarEmpleado_Click(sender As Object, e As EventArgs) - CvePersonal = DdlPersonal.SelectedValue.ToEntero() - - - Using ObjPersonal As New ClsRH() - If ObjPersonal.UpPersonalAltas(CvePersonal, UsuarioActual.CveUsuario, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked) AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then - - End If - End Using - If pnlupValoresFiniquito.Visible Then - - End If - If Not CargaDatosFiniquito() Then - - RegistraScript("$('#ModalEmpleados').modal('hide');") - End If - upDatos.Update() - End Sub - Protected Sub LnkCalcular_Click(sender As Object, e As EventArgs) - - End Sub - Protected Sub LnkAutorizar_Click(sender As Object, e As EventArgs) - - End Sub - Protected Sub LnkTimbrar_Click(sender As Object, e As EventArgs) - - End Sub - Protected Sub LnkFormatoRenuncia_Click(sender As Object, e As EventArgs) - - End Sub - Protected Sub DdlPersonal_SelectedIndexChanged(sender As Object, e As EventArgs) - Response.Redirect($"/Nomina/Finiquito.aspx?CvePersonal={DdlPersonal.SelectedValue}") - 'Alert($"insertParam('CvePersonal','{DdlPersonal.SelectedValue}')") - 'RegistraScript($"insertParam('CvePersonal','{DdlPersonal.SelectedValue}')") - End Sub - Protected Sub DdlTipoPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs) - Dim CveTipoPeriodoactual As Integer = If(DdlTipoPeriodo.SelectedValue.ToEntero() > 0, DdlTipoPeriodo.SelectedValue.ToEntero(), CveTipoPeriodo) - Dim fechabaja As String = TxtFechaBaja.Text - Dim dtperiodos As New DataTable - Dim ObjPeriodos As New ClsNominas - If ObjPeriodos.GetPeriodos(-1, UsuarioActual.CveEmpresa, -1, -1, -1) Then - dtperiodos = ObjPeriodos.DtResultados - If IsNothing(sender) AndAlso CvePeriodoFiniquito > 0 Then - Dim row As DataRow = dtperiodos.FiltroPrimero(String.Format("CvePeriodo={0} ", CvePeriodoFiniquito)) - If Not IsNothing(row) Then - CveTipoPeriodoactual = row("CveTipoPeriodo").ToString().ToEntero() - DdlTipoPeriodo.SelectedValueExist(If(CveTipoPeriodoactual = 6, "6", "-1")) - End If - End If - dtperiodos = ObjPeriodos.DtResultados.FiltraParametros(String.Format("(Estatus IN (1,2,3,4) AND CveTipoPeriodo={0}) ", CveTipoPeriodoactual)) - 'FechaInicio, P.FechaFin - DdlPeriodo.Items.Clear() - DdlPeriodo.Items.Add(New ListItem("Seleccione", "-1")) - DdlPeriodo.SelectedValue = "-1" - DdlPeriodo.DataSource = dtperiodos - Else - DdlPeriodo.DataSource = Nothing - End If - ObjPeriodos.Dispose() - DdlPeriodo.DataBind() - If fechabaja.Length > 0 AndAlso dtperiodos.Rows.Count > 0 Then - If (CvePeriodoFiniquito > 0) AndAlso IsNothing(sender) Then - DdlPeriodo.SelectedValueExist(CvePeriodoFiniquito) - Else - Dim row As DataRow = dtperiodos.FiltroPrimero(String.Format("(FechaInicio<='{0:yyyy/MM/dd}' AND FechaFin>='{0:yyyy/MM/dd}') ", fechabaja.ToDate())) - If Not IsNothing(row) Then - DdlPeriodo.SelectedValueExist(row("CvePeriodo")) - End If - End If - - End If - End Sub - -#Region "Conceptos" - Protected Sub GvConceptos_RowDataBound(sender As Object, e As GridViewRowEventArgs) - If e.Row.RowType = DataControlRowType.DataRow Then - 'Datakeys - 'Concepto,CveConcepto,Importe,Estatus,ConceptoD,CveConceptoD,ImporteD,EstatusD - Dim CveConcepto As Integer = e.Row.DataKey("CveConcepto").ToEntero() - Dim CveConceptoD As Integer = e.Row.DataKey("CveConceptoD").ToEntero() - 'Dim Importe As Decimal = e.Row.DataKey("Importe").ToDecimal() - 'Dim ImporteD As Decimal = e.Row.DataKey("ImporteD").ToDecimal() - Dim Estatus As Integer = e.Row.DataKey("Estatus").ToEntero() - Dim EstatusD As Integer = e.Row.DataKey("EstatusD").ToEntero() - - 'Controles - Dim LtlConcepto As Label = e.Row.FCLabel("LtlConcepto") - Dim LnkConcepto As LinkButton = e.Row.FCLinkButton("LnkConcepto") - Dim LtlConceptoD As Label = e.Row.FCLabel("LtlConceptoD") - Dim LnkConceptoD As LinkButton = e.Row.FCLinkButton("LnkConceptod") - Dim LtlImporte As Label = e.Row.FCLabel("LtlImporte") - Dim LnkImporte As LinkButton = e.Row.FCLinkButton("LnkImporte") - Dim LtlImporteD As Label = e.Row.FCLabel("LtlImporteD") - Dim LnkImporteD As LinkButton = e.Row.FCLinkButton("LnkImporteD") - - If Estatus < -1 Or EstatusD < -1 Then - e.Row.CssClass = "ConceptosTotales" - End If - If CveConcepto = 0 AndAlso (Estatus = 0 OrElse Estatus = -1 OrElse Estatus = -3) Then - LtlImporte.Text = "" - End If - - If CveConceptoD = 0 AndAlso (EstatusD = 0 OrElse EstatusD = -1) Then - LtlImporteD.Text = "" - End If - - If Estatus = -1 Then - LtlConcepto.Visible = False - ElseIf Estatus > 0 Then - LtlImporte.Visible = False - End If - - If EstatusD = -1 Then - LtlConceptoD.Visible = False - ElseIf EstatusD > 0 Then - LtlImporteD.Visible = False - End If - - - LnkConcepto.Visible = Not LtlConcepto.Visible - LnkConceptoD.Visible = Not LtlConceptoD.Visible - LnkImporte.Visible = Not LtlImporte.Visible - LnkImporteD.Visible = Not LtlImporteD.Visible - - End If - End Sub - - Protected Sub LnkConcepto_Click(sender As Object, e As EventArgs) - Dim gvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - GCEstatus = gvRow.DataKey("Estatus").ToEntero() - GCCveConcepto = gvRow.DataKey("CveConcepto").ToEntero() - GCImporte = gvRow.DataKey("Importe").ToDecimal() - OpenModalConceptos(1) - End Sub - Protected Sub LnkConceptoD_Click(sender As Object, e As EventArgs) - Dim gvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - GCEstatus = gvRow.DataKey("Estatus").ToEntero() - GCCveConcepto = gvRow.DataKey("CveConcepto").ToEntero() - GCImporte = gvRow.DataKey("Importe").ToDecimal() - OpenModalConceptos(2) - End Sub - - Private Sub OpenModalConceptos(Tipo As Integer) - If GCEstatus = -1 Then - Else - - End If - RegistraScript("$('#ModalConceptos').modal();") - End Sub - - Protected Sub LnkAceptarConceptos_Click(sender As Object, e As EventArgs) - - RegistraScript("$('#ModalConceptos').modal('hide');") - End Sub - -#End Region -End Class From b0ab32496c97441fb734e3e9edec959e3f4dce1d Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 10 Feb 2023 13:28:07 -0700 Subject: [PATCH 50/53] =?UTF-8?q?--=20correcci=C3=B3n=20pago=20intermediar?= =?UTF-8?q?io?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/ClientesAbonar.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 19d47eaed..ac6acc141 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -824,7 +824,7 @@ Partial Class Ventas_ClientesAbonar If DdlCuenta.SelectedValue > 0 Then CveMoneda = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero Else - CveMoneda = If(Request("CveMoneda").ToString.ToEntero > 0, Request("CveMoneda").ToString.ToEntero, 1) + CveMoneda = IfNull(Request("CveMoneda"), "1").ToString.ToEntero End If CvePrePoliza = ObjMov.AddPrePolizas("Ventas/ClientesAbonar", 11, TxtImporte.Text.Trim.ToDecimal, TxtImporte.Text.Trim.ToDecimal, CveMoneda, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) @@ -1151,7 +1151,7 @@ Partial Class Ventas_ClientesAbonar Dim ImporteMN As Decimal = (ImporteMovimiento * tipoCambioPago).RoundSQL Dim IdCtaContable As Integer = 0 - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, VentaActual.SerieFolio, 134, VentaActual.SerieFolio, IdCtaContable, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveProveedor:=DdlProveedorPagoInt.SelectedValue.ToEntero) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 134, VentaActual.SerieFolio, VentaActual.SerieFolio, IdCtaContable, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveProveedor:=DdlProveedorPagoInt.SelectedValue.ToEntero) Then MsgError = "No se pudo insertar la póliza" End If End If From 93ded478fc7ea7cc86ed9c13d722595c06c00599 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 10 Feb 2023 13:28:47 -0700 Subject: [PATCH 51/53] =?UTF-8?q?--=20correccii=C3=B3n=20llamado=20a=20fun?= =?UTF-8?q?ciones?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Clientes.aspx.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index bd06ab0dd..b7f88b4ed 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1300,8 +1300,8 @@ Partial Class Clientes End Sub - Private Sub CargaCombos() - CargaSubProyectoss() + Private Sub CargaCombos() + CargaMetodosPago() CargaPrecioLista() CargaVendedores() @@ -1504,7 +1504,7 @@ Partial Class Clientes ' CargaDocs() CargaCombos() CargaDocumentacionCliente() - CargaSubProyectosSuscursales() + 'CargaSubProyectosSucursales() 'CargaMetodosPago33() 'CargaFormaPago33() 'CargaComboCFDI() From e6994d9f458ef102d6d2592b56f52eeef906c1f8 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Fri, 10 Feb 2023 16:49:54 -0700 Subject: [PATCH 52/53] OC Bloquear cancelacion cuando exista movimiento de almacen --- Compras/Compras.aspx | 2 +- OC/OC.aspx.vb | 21 +++++++++++++++++++++ 2 files changed, 22 insertions(+), 1 deletion(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index cd7e217ee..be2e48980 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -875,7 +875,7 @@ Anticipos/NC Vinculados - diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 0c1b1972b..959542ab0 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -922,10 +922,31 @@ Partial Class OC_OC MostrarUsuarioAsignado() + ValidaCancelacionConAlamcen() + Me.Form.DefaultButton = "" End Sub + Private Sub ValidaCancelacionConAlamcen() + + ' BtnCancelarPrevio.Visible = True + ' BtnCancelarPrevio.Enabled = True + + If BtnCancelarPrevio.Visible AndAlso BtnCancelarPrevio.Enabled And GVInv.Rows.Count > 0 Then + + + 'BtnCancelarPrevio.Attributes.Remove("onclick") + BtnCancelarPrevio.Attributes.Add("Data-toggle", "tooltip") + BtnCancelarPrevio.Attributes.Add("Title", "La orden de compra no se puede cancelar porque tiene movimientos de almacén.") + BtnCancelarPrevio.OnClientClick = "return false;" + 'BtnCancelarPrevio.Attributes.Add("onclick", "$('#DivCancelarCompra').modal('hide')") + + End If + + + End Sub + #Region " PERMISOS PAGINA " Private Sub PermisosPagina() ActivarIVAEditable() From b57f4712292f523677a50bdb7c92d3d1a1799e0d Mon Sep 17 00:00:00 2001 From: MLopez Date: Fri, 10 Feb 2023 17:19:23 -0700 Subject: [PATCH 53/53] E119 Filtros Lineas Adicionales -Por Comercializador -Por Estatus CAMBIOS BD: -PA_Vta_LineasAdicionalesGet en SIG_Resp_MLR y Ventas + @CveProveedor = -1 --- App_Code/ClsVentas.vb | 3 ++- Ventas/Clientes.aspx | 30 +++++++++++++++++++++++++++- Ventas/Clientes.aspx.vb | 44 ++++++++++++++++++++++++++++++++++++----- 3 files changed, 70 insertions(+), 7 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 454d6d5c8..c64f9bbda 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -5528,12 +5528,13 @@ Public Class ClsVentas End Function - Public Function GetLineasAdicionales(CveCliente As Integer, TipoLinea As Integer, CveMoneda As Integer, CveLineaAdicionalEstatus As Integer, CveEmpresa As Integer) As Boolean + Public Function GetLineasAdicionales(CveCliente As Integer, CveProveedor As Integer, TipoLinea As Integer, CveMoneda As Integer, CveLineaAdicionalEstatus As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_LineasAdicionalesGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@TipoLinea", SqlDbType.Int).Value = TipoLinea .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda .Add("@CveLineaAdicionalEstatus", SqlDbType.Int).Value = CveLineaAdicionalEstatus diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 26a2963a6..6cc3bcfc3 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -4535,7 +4535,35 @@ - + + +
    +
    +
    + + +
    +
    +
    + +
    + +
    + +
    + + + + + +
    +
    +
    +
    +
    +     +
    diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index f3820c77b..82de53a46 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -452,7 +452,16 @@ Partial Class Clientes Set(value As DataTable) ViewState("DtAnticipoHistorial") = value End Set + End Property + Private Property DtLineaAdicional As DataTable + Get + Return CType(ViewState("DtLineaAdicional"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtLineaAdicional") = value + End Set End Property + 'Private Property EstatusAnteriorCliente As Boolean ' Get ' If ViewState("EstatusAnteriorCliente") Is Nothing Then @@ -10318,6 +10327,11 @@ Partial Class Clientes Private Sub CargaCombosLineasAdicionales() + DdlProveedorLineaAdicional.setEsWebService(True) + DdlProveedorLineaAdicional.Attributes.Add("data-metodo", "getproveedores") + DdlProveedorLineaAdicional.SelectedText = "-" + DdlProveedorLineaAdicional.SelectedValue = "-1" + DdlProveedorLineaAdicionalModal.setEsWebService(True) DdlProveedorLineaAdicionalModal.Attributes.Add("data-metodo", "getproveedores") DdlProveedorLineaAdicionalModal.SelectedText = "-" @@ -10326,22 +10340,42 @@ Partial Class Clientes DdlCategoriaLineaAdicionalModal.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa) DdlCategoriaLineaAdicionalModal.DataBind() DdlCategoriaLineaAdicionalModal.Items.Insert(0, New ListItem("-", "-1")) - + End Sub + Protected Sub BtnConsultarLineas_Click(sender As Object, e As EventArgs) + FiltrarLineasAdicionales() + End Sub + + Protected Sub FiltrarLineasAdicionales() + Dim ObjVentas As New ClsVentas + If ObjVentas.GetLineasAdicionales(CveCliente, DdlProveedorLineaAdicional.SelectedValue.ToEntero, -1, -1, DdlEstatusLineaAdicional.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + GvLineasAdicionales.DataSource = ObjVentas.DtResultados + End If + ObjVentas.Dispose() + GvLineasAdicionales.DataBind() + UpLineasAdicionales.Update() + End Sub + 'Protected Sub DdlProveedorLineaAdicional_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedorLineaAdicional.selectedindexchange + ' FiltrarLineasAdicionales() + 'End Sub + + 'Protected Sub DdlEstatusLineasAdicionales_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEstatusLineaAdicional.SelectedIndexChanged + ' FiltrarLineasAdicionales() + 'End Sub + Private Sub GetLineasAdicionales() Dim ObjVentas As New ClsVentas - If ObjVentas.GetLineasAdicionales(CveCliente, -1, -1, -1, UsuarioActual.CveEmpresa) Then + If ObjVentas.GetLineasAdicionales(CveCliente, DdlProveedorLineaAdicional.SelectedValue.ToEntero, -1, -1, -1, UsuarioActual.CveEmpresa) Then GvLineasAdicionales.DataSource = ObjVentas.DtResultados End If - ObjVentas.Dispose() + GvLineasAdicionales.DataBind() + FiltrarLineasAdicionales() UpLineasAdicionales.Update() - - End Sub Protected Sub LnkAgregarLineaAdicional_Click(sender As Object, e As EventArgs)