From 1a914210846cc577d9b7098ca9bf2e845b39068e Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 16 Jan 2023 08:16:19 -0700 Subject: [PATCH 01/38] -- mejora visual --- Ventas/Clientes.aspx | 2 +- Ventas/Clientes.aspx.vb | 7 ++++--- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 97e44ab27..2f995fb48 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -1740,7 +1740,7 @@ - + diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index bff2d9844..23ed3e41b 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1050,7 +1050,7 @@ Partial Class Clientes DdlEstadoSAT.DataSource = GlobalDTGralEstados(ClaveSATPais) DdlEstadoSAT.DataBind() - DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlEstadoSAT.Items.Insert(0, New ListItem("-", "-1")) UpDatos.Update() End Sub @@ -1059,11 +1059,11 @@ Partial Class Clientes Dim Dt As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("True", "Nombre") DdlResponsable.DataSource = Dt.FiltraParametros("Estatus = 1", "", {"CveUsuario", "Nombre"}) DdlResponsable.DataBind() - DdlResponsable.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlResponsable.Items.Insert(0, New ListItem("-", "-1")) DdlResponsableSucursal.DataSource = Dt DdlResponsableSucursal.DataBind() - DdlResponsableSucursal.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlResponsableSucursal.Items.Insert(0, New ListItem("-", "-1")) UpAgregarSucursal.Update() UpDatos.Update() @@ -1975,6 +1975,7 @@ Partial Class Clientes DtCxCActivas = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "Moneda, OrdenVencimiento, FechaVencimiento") GvCxC.DataSource = DtCxCActivas If DtCxCActivas.MAX("LineaAdicional") = "" Then GvCxC.Columns(6).Visible = False + If DtCxCActivas.MAX("CobranzaEstatus") = "" Then GvCxC.Columns(10).Visible = False 'solo tomo los 10 ultimos mas el totalizador general Dim dt As DataTable = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'") DtHistorialCxC = dt From feaf21e6d4e34b5f1138c2669966116de0b2b4f6 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 16 Jan 2023 15:31:06 -0700 Subject: [PATCH 02/38] -- mejoras --- Ventas/Clientes.aspx | 10 +++----- Ventas/Clientes.aspx.vb | 47 +++++++++-------------------------- Ventas/ClientesAbonar.aspx | 9 +++++++ Ventas/ClientesAbonar.aspx.vb | 22 +++++++--------- 4 files changed, 33 insertions(+), 55 deletions(-) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 2f995fb48..342e0bd09 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -4514,11 +4514,7 @@ - - - - - +
@@ -6686,9 +6682,9 @@
- - + + diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 23ed3e41b..26e5d7efc 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -917,7 +917,6 @@ Partial Class Clientes ChecaPermiteCredito() - 'Crea y carga CuentasBancarias - tab:Bancos CargaCuentasBancarias() @@ -939,8 +938,6 @@ Partial Class Clientes TxtFechaICredito.Text = Now.AddYears(-2).ToShortDateString() TxtFechaFCredito.Text = Now.ToShortDateString() - - If UsuarioActual.TienePermisoProceso(257) Then 'Falta agregar proceso DivMapAddSucursal.Visible = True LiLnkAgragarDireccion.Visible = True @@ -950,17 +947,12 @@ Partial Class Clientes MostrarTxtDireccionesClienteEnvio() - - If CveCliente > 0 AndAlso UsuarioActual.CveEmpresa.Contiene(119, 1) AndAlso UsuarioActual.CveRol = 1 Then + If CveCliente > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(705) = "1" AndAlso UsuarioActual.TienePermisoProceso(350) Then CargaCombosLineasAdicionales() TabLineasAdicionales.Visible = True LnkAgregarLineaAdicional.Visible = True GetLineasAdicionales() - - End If - - - + End If End If 'EN SERIO SE OCUPA EN CADA POSTBACK ??? IPP 7 SEPTIEMNRE 2017 @@ -10338,8 +10330,7 @@ Partial Class Clientes If RdTipoPersona.SelectedValue.ToEntero = 1 And UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then DivRazonSocial2.Attributes.Add("class", "col-md-8") - DVRegimenSociedad.Visible = True - TxtNombreComercial.Enabled = False + DVRegimenSociedad.Visible = True Else TxtNombreComercial.Enabled = True End If @@ -10365,31 +10356,17 @@ Partial Class Clientes - Private Sub CargaCombosLineasAdicionales() - - If (UsuarioActual.Empresa.Funcionalidad(105) = "1") Then - DdlProveedorLineaAdicionalModal.setEsWebService(True) - DdlProveedorLineaAdicionalModal.Attributes.Add("data-metodo", "getproveedores") - DdlProveedorLineaAdicionalModal.SelectedText = "-" - DdlProveedorLineaAdicionalModal.SelectedValue = "-1" - - - - Else - DdlProveedorLineaAdicionalModal.setEsWebService(False) - DdlProveedorLineaAdicionalModal.ddl.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - DdlProveedorLineaAdicionalModal.ddl.DataBind() - DdlProveedorLineaAdicionalModal.ddl.Items.Insert(0, New ListItem("-", "-1")) - End If - - - + Private Sub CargaCombosLineasAdicionales() + + DdlProveedorLineaAdicionalModal.setEsWebService(True) + DdlProveedorLineaAdicionalModal.Attributes.Add("data-metodo", "getproveedores") + DdlProveedorLineaAdicionalModal.SelectedText = "-" + DdlProveedorLineaAdicionalModal.SelectedValue = "-1" + DdlCategoriaLineaAdicionalModal.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa) DdlCategoriaLineaAdicionalModal.DataBind() - DdlCategoriaLineaAdicionalModal.Items.Insert(0, New ListItem("-", "-1")) - - - + DdlCategoriaLineaAdicionalModal.Items.Insert(0, New ListItem("-", "-1")) + End Sub Private Sub GetLineasAdicionales() diff --git a/Ventas/ClientesAbonar.aspx b/Ventas/ClientesAbonar.aspx index 326731853..07d9c10b3 100644 --- a/Ventas/ClientesAbonar.aspx +++ b/Ventas/ClientesAbonar.aspx @@ -224,6 +224,15 @@
+
+
Préstamo:
+
+ +
+
+ +
+
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index f295d80c9..d7af7a10b 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -1811,13 +1811,6 @@ Partial Class Ventas_ClientesAbonar If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then ObjFacturaDevolucion.Version = "4.0" - - 'If ObjFacturaDevolucion.Cliente Is Nothing Then - ' ObjFacturaDevolucion.Cliente = New Modelos.ClienteModel - 'End If - - 'ObjFacturaDevolucion.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal - 'ObjFacturaDevolucion.Cliente.RegimenFiscal = ClienteRegimenFiscal Else ObjFacturaDevolucion.Version = "3.3" End If @@ -1826,9 +1819,12 @@ Partial Class Ventas_ClientesAbonar ObjFacturaDevolucion.MetodoPago33 = "PUE - Pago en una sola exhibición" ObjFacturaDevolucion.ClaveMetodoPagoSAT = "PUE" - ObjFacturaDevolucion.CveFormaPago33 = 21 - ObjFacturaDevolucion.FormaPago33 = "30 - Aplicación de anticipos" - ObjFacturaDevolucion.FormaPagoSAT33 = "30" + Dim drtt As DataRow = GlobalDTTipoTransacciones.FiltroPrimero("CveTipoTransaccion =" & DdlTipoTransaccion.SelectedValue) + Dim dra As DataRow = GlobalDTVtaFormaPago.FiltroPrimero("CveFormaPago = " & drtt("CveFormaPago")) + + ObjFacturaDevolucion.CveFormaPago33 = dra("CveFormaPago").ToString + ObjFacturaDevolucion.FormaPago33 = dra("FormaPagoSAT").ToString + ObjFacturaDevolucion.FormaPagoSAT33 = dra("ClaveFormaPagoSAT").ToString ObjFacturaDevolucion.CveSubProyecto = CveSubProyecto ObjFacturaDevolucion.SetSubProyecto() @@ -1840,9 +1836,9 @@ Partial Class Ventas_ClientesAbonar If ObjCliente.GetClientes(ObjFacturaDevolucion.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then If ObjCliente.DtResultados.Rows.Count > 0 Then - ObjFacturaDevolucion.CveUsoCFDI = ObjCliente.CveUsoCFDI - ObjFacturaDevolucion.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI)) - ObjFacturaDevolucion.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI)) + ObjFacturaDevolucion.CveUsoCFDI = 2 + ObjFacturaDevolucion.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", 2)) + ObjFacturaDevolucion.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", 2)) ObjFacturaDevolucion.DtDetalle = CreaDTDetalleNC() From afa022087e7d5caecfe8d59d3944d8fdfda8118c Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Mon, 16 Jan 2023 16:18:37 -0700 Subject: [PATCH 03/38] Actualziar Compra con cambio de tipo de compra --- App_Code/ClsCompras.vb | 3 +- Compras/Compras.aspx.vb | 68 +++++++++++++++++++++++++---- Inventarios/EntradasSalidas.aspx.vb | 12 +++-- 3 files changed, 70 insertions(+), 13 deletions(-) diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index 5d751b497..e92fdf12d 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -1931,7 +1931,7 @@ Public Class ClsCompras #Region " REFACTURACION " - Public Function GetRefacturacion(CveProveedor As Integer, SubTotal As Double, IVA As Double, Total As Double, Opcion As Integer, CveEmpresa As Integer) As Boolean + Public Function GetRefacturacion(CveProveedor As Integer, SubTotal As Double, IVA As Double, Total As Double, Opcion As Integer, CveEmpresa As Integer, Optional Top As Integer = 100000) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Comp_RefacturacionGet") @@ -1942,6 +1942,7 @@ Public Class ClsCompras .Add("@Total", SqlDbType.Float).Value = Total .Add("@Opcion", SqlDbType.Int).Value = Opcion ' 1. Exácta, 2. Con diferencia .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Top", SqlDbType.Int).Value = Top End With Try diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 8c2a90d53..b68c99bc0 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1199,6 +1199,22 @@ Partial Class Compras_Compras End Set End Property + Private Property TipoCompraOriginal As Integer + Get + + If ViewState("TipoCompraOriginal") Is Nothing Then + ViewState("TipoCompraOriginal") = -1 + End If + + Return ViewState("TipoCompraOriginal").ToString.ToEntero + + End Get + Set(value As Integer) + ViewState("TipoCompraOriginal") = value + End Set + End Property + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then @@ -2616,6 +2632,7 @@ Partial Class Compras_Compras CvePrePoliza = dr("CvePrePoliza").ToString.ToEntero EstatusAlmacen = dr("EstatusAlmacen").ToString.ToEntero DdlTipoCompra.SelectedValueExist(dr("CveTipoCompra")) + TipoCompraOriginal = dr("CveTipoCompra").ToString.ToEntero CveTipoConcepto = dr("CveTipoConcepto").ToString.ToEntero ChkEsNoDeducible.Checked = Boolean.Parse(dr("NoDeducible").ToString) @@ -6391,6 +6408,7 @@ Partial Class Compras_Compras 'RECORREMOS PARA DETECTAR LA MODALIDAD DEL ALMACEN, EN CASO DE SER SOLO EXISTENCIA LIMPIAMOS CVEALMACEN 'SI LA COMPRA ES DE TIPO GASTO CON ALMACEN DEBE REGISTRAR MOVIMIENTO Dim AlmacenSoloExistencia As Boolean = False + If DdlTipoCompra.SelectedValue <> "10" Then For Each Dr As DataRow In DT.Rows If DtAlmacenes.FiltroPrimeroValor("Modalidad", $"CveAlmacen = {Dr("CveAlmacen").ToString.ToEntero}").ToString = "Solo Existencia" Then @@ -6400,6 +6418,7 @@ Partial Class Compras_Compras Dr.AcceptChanges() Next End If + DT.AcceptChanges() DT = DT.FiltraParametros("ISNULL(CveAlmacen,0) > 0") If DT.Rows.Count > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then @@ -9433,6 +9452,8 @@ Partial Class Compras_Compras Msg.Append("La Compra se actualizó correctamente") Alert(Msg.ToString()) + TipoCompraOriginal = DdlTipoCompra.SelectedValue.ToEntero + Else ObjCompra.RollBack() If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack() @@ -9468,7 +9489,8 @@ Partial Class Compras_Compras (row1("CveActivoFijo").ToString.ToEntero <> row2("CveActivoFijo").ToString.ToEntero) Or (row1("AFMedida").ToString.ToEntero <> row2("AFMedida").ToString.ToEntero) Or (row1("TipoAF").ToString.ToEntero <> row2("TipoAF").ToString.ToEntero) Or - (row1("CvePS").ToString.ToEntero <> row2("CvePS").ToString.ToEntero) Then + (row1("CvePS").ToString.ToEntero <> row2("CvePS").ToString.ToEntero Or + DdlTipoCompra.SelectedValue.ToEntero <> TipoCompraOriginal) Then Return False End If End If @@ -9582,6 +9604,7 @@ Partial Class Compras_Compras 'Removemos los conceptos de la prepoliza If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 6, CveCompra, 1) Then ErrorPrepoliza = True 'GASTO If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 68, CveCompra, 1) Then ErrorPrepoliza = True 'ALMACEN + If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 95, CveCompra, 1) Then ErrorPrepoliza = True 'GASTO CON ALMACEN RELLENO If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 49, CveCompra, 1) Then ErrorPrepoliza = True 'AF If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 205, CveCompra, 1) Then ErrorPrepoliza = True 'PS YA RECIBIDO If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 230, CveCompra, 1) Then ErrorPrepoliza = True 'PS YA RECIBIDO @@ -9590,6 +9613,15 @@ Partial Class Compras_Compras If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 228, CveCompra, 1) Then ErrorPrepoliza = True 'PS NO RECIBIDO If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 229, CveCompra, 1) Then ErrorPrepoliza = True 'PS NO RECIBIDO + + 'SI ES GASTO CON ALMACEN REGISTRA EL CONCEPTO 95 + If DdlTipoCompra.SelectedValue = "10" Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMN, Referencia, 95, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=False) Then + ErrorPrepoliza = True + End If + End If + + 'OBTIENE METODO DE CONTABILIZACIÓN AL GUARDAR Dim ConceptoContabilizacionAlmacen = 0 If ObjCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then @@ -9659,8 +9691,11 @@ Partial Class Compras_Compras importeMovimiento = 0 IdCtaContable = 0 + + + 'INV [MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA) ] - If UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen.Contiene(176, 205) Then + If DdlTipoCompra.SelectedValue.ToEntero <> 10 AndAlso UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen.Contiene(176, 205) Then importeMovimiento = TmpDT.SUM("Total", $"ISNULL(TipoAF,0) <> 2 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal importeMN = importeMovimiento * tipoCambioActual * Multiplicador @@ -9713,18 +9748,29 @@ Partial Class Compras_Compras DT.AcceptChanges() DtAlmacenes.Dispose() - 'QUITA 1-[MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA)] 2-[NC CON PRODUCTOS] - If UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen > 0 Then - DT = DT.FiltraParametros("CveTipoPS <> 2") + + If DdlTipoCompra.SelectedValue.ToEntero <> 10 Then + 'QUITA 1-[MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA)] 2-[NC CON PRODUCTOS] + If UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen > 0 Then + DT = DT.FiltraParametros("CveTipoPS <> 2") + End If End If + Dim DTDistinct = DT.Copy - If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then - DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"}) + + If DdlTipoCompra.SelectedValue.ToEntero = 10 Then + DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto", "CveAlmacen"}) Else - DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"}) + + If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then + DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"}) + Else + DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"}) + End If End If + If DTDistinct.Rows.Count > 0 Then For Each Row2 As DataRow In DTDistinct.Rows @@ -9734,6 +9780,12 @@ Partial Class Compras_Compras Else importeMovimiento = DT.SUM("Total", String.Format("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveClasificacion = {0} AND CveSubProyecto = {1} AND ISNULL(CveTipoGasto,0) = {2}", Row2("CveClasificacion").ToString.ToEntero, Row2("CveSubProyecto").ToString.ToEntero, Row2("CveTipoGasto").ToString.ToEntero)).ToString.ToDecimal End If + + If DdlTipoCompra.SelectedValue.ToEntero = 10 Then + importeMovimiento = DT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"CveAlmacen > 0 ").ToString.ToDecimal + TmpDT.SUM("CostoIndirectoAlmacen", $"CveAlmacen > 0").ToString.ToDecimal + End If + + importeMN = importeMovimiento * tipoCambioActual * Multiplicador 'CLASIFICACION diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 25c18b4f9..c62b4a2ae 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -4623,12 +4623,16 @@ Partial Class Inventarios_EntradasSalidas tIdCtaGasto = 1321 End Select - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ValorSalida + ValorEntrada, "", 290, tConcepto, Fecha, tIdCtaGasto, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=tCveClasificacion, CveSubProyecto:=tCveSubProyectoSalida, ImporteMX:=ValorSalida + ValorEntrada, Contabilizable:=EsContabilizable) Then - ErrorMovInv = True - Mensaje = "Ocurrió un error al guardar los movimientos contables de ajuste de salida" + If Math.Abs((ValorSalida + ValorEntrada)) <> 0 Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ValorSalida + ValorEntrada, "", 290, tConcepto, Fecha, tIdCtaGasto, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=tCveClasificacion, CveSubProyecto:=tCveSubProyectoSalida, ImporteMX:=ValorSalida + ValorEntrada, Contabilizable:=EsContabilizable) Then + ErrorMovInv = True + Mensaje = "Ocurrió un error al guardar los movimientos contables de ajuste de salida" + End If End If End If - End If + + + End If If Not ErrorMovInv Then If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then From 5a05c40114d8e9b9890652278237dc7fbd97d1e4 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 16 Jan 2023 18:38:35 -0700 Subject: [PATCH 04/38] Impresion de excel en estados de cuenta stimultsoft --- App_Code/ClsPaginas.vb | 20 ++++++++--- Ventas/Clientes.aspx.vb | 77 +++++++++++++++++++++++++++++++++++++---- 2 files changed, 87 insertions(+), 10 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 887b33ddb..b351cfde5 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -6118,7 +6118,12 @@ Public Class ClsPaginas rds.Value = DtDatos lrds.Add(rds) - ImprimirbytesPDF(StreamBytesStimulsoft("Facturas", RutaReporte, lrds, Parametros, NombreArchivo:=NombreArchivo, Formato:="PDF"), NombreArchivo, Formato, Content_Disposition:=Content_Disposition) + Dim Extension = "pdf" + If Formato.ToLower() = "excel" Then + Extension = "xlsx" + End If + + ImprimirbytesPDF(StreamBytesStimulsoft("Facturas", RutaReporte, lrds, Parametros, NombreArchivo:=NombreArchivo, Formato:=Formato), NombreArchivo, Formato, Content_Disposition:=Content_Disposition, Extension:=Extension) End Sub Public Sub ImprimirPDFMultiDS(RutaReporte As String, lrds As List(Of ReportDataSource), Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional RDSName As String = "DataSet1", Optional MR As ReportViewer = Nothing) ImprimirPDF(RutaReporte, lrds, Parametros, NombreArchivo, Formato, MR) @@ -6582,10 +6587,9 @@ Public Class ClsPaginas ''' ''' ''' - Public Sub ImprimirbytesPDF(bytes As Byte(), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional Descarga As Boolean = False, Optional Content_Disposition As String = "attachment") + Public Sub ImprimirbytesPDF(bytes As Byte(), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional Descarga As Boolean = False, Optional Content_Disposition As String = "attachment", Optional Extension As String = "") 'limpio ReportViwer Dim mimeType As String = Nothing - Dim extension As String = Nothing 'If Descarga Then ' Try @@ -6610,7 +6614,15 @@ Public Class ClsPaginas Response.ContentType = mimeType End If Response.ClearHeaders() - Response.AddHeader("content-disposition", String.Format("{0}; filename=""{1}.{2}""", Content_Disposition, NombreArchivo, If(Formato = "PDF", "pdf", "xls"))) + + Dim fileExtension As String = "" + If Not String.IsNullOrEmpty(extension) Then + fileExtension = extension + Else + fileExtension = If(Formato = "PDF", "pdf", "xls") + End If + + Response.AddHeader("content-disposition", String.Format("{0}; filename=""{1}.{2}""", Content_Disposition, NombreArchivo, fileExtension)) Response.BinaryWrite(bytes) ' create the file Response.Flush() ' send it to the client to download bytes = Nothing diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index b40560271..2cf7a8eb5 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -4249,7 +4249,23 @@ Partial Class Clientes Try Dim File As Byte() If Archivo.Exists Then - File = ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.rpt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato) + Dim ArchivoSti As New System.IO.FileInfo(String.Format("{0}Formatos/RepClientesCxC.mrt", UsuarioActual.Empresa.Ruta)) + If ArchivoSti.Exists Then + Dim listass As New List(Of ReportParameter) + For Each item As CrystalParametro In lista + listass.Add(New ReportParameter(item.Nombre, item.Valor.ToString())) + Next + + Dim lrds As New List(Of ReportDataSource) + Dim rds As New ReportDataSource + rds.Name = "Datos" + rds.Value = DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha") + lrds.Add(rds) + + File = StreamBytesStimulsoft("Facturas", $"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.mrt", lrds, listass, NombreArchivo:="Estado de cuenta", Formato:=Formato) + Else + File = ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.rpt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato) + End If Else File = ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/RepClientesCxC.rpt"), DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato) End If @@ -4282,7 +4298,6 @@ Partial Class Clientes Alert("El correo se envió con éxito", TipoMensaje.MsgInformacion) Catch ex As Exception Alert("Ocurrió un error al enviar el correo", TipoMensaje.MsgAdvertencia) - End Try Catch ex As Exception @@ -4295,8 +4310,8 @@ Partial Class Clientes Dim listass As New List(Of ReportParameter) For Each item As CrystalParametro In lista listass.Add(New ReportParameter(item.Nombre, item.Valor.ToString())) - Next - ImprimirPDFStimulsoft($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.mrt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), listass, "Estado de cuenta", Formato) + Next + ImprimirPDFStimulsoft($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.mrt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), listass, "Estado de cuenta", Formato) Else ImprimirbytesPDF(ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.rpt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato) End If @@ -4348,8 +4363,8 @@ Partial Class Clientes Dim listass As New List(Of ReportParameter) For Each item As CrystalParametro In lista listass.Add(New ReportParameter(item.Nombre, item.Valor.ToString())) - Next - ImprimirPDFStimulsoft($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.mrt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), listass, "Estado de cuenta", Formato) + Next + ImprimirPDFStimulsoft($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.mrt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), listass, "Estado de cuenta", Formato) Else ImprimirbytesPDF(ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.rpt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato) End If @@ -4357,6 +4372,56 @@ Partial Class Clientes ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/RepClientesCxC.rpt"), DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato) End If End If + End Sub + + Public Sub ImprimirExcelStimulsoft(RutaReporte As String, DtDatos As DataTable, Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional RDSName As String = "Datos", Optional Content_Disposition As String = "attachment") + Dim lrds As New List(Of ReportDataSource) + Dim rds As New ReportDataSource + rds.Name = RDSName + rds.Value = DtDatos + lrds.Add(rds) + + ImprimirbytesExcel(StreamBytesStimulsoft("Facturas", RutaReporte, lrds, Parametros, NombreArchivo:=NombreArchivo, Formato:="EXCEL"), NombreArchivo, "EXCEL", Content_Disposition:=Content_Disposition) + End Sub + Public Sub ImprimirbytesExcel(bytes As Byte(), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional Descarga As Boolean = False, Optional Content_Disposition As String = "attachment") + 'limpio ReportViwer + Dim mimeType As String = Nothing + Dim extension As String = Nothing + + 'If Descarga Then + ' Try + ' bytes = bytes + ' File.WriteAllBytes(String.Format("{0}PDF/whatever.gif", UsuarioActual.Empresa.Ruta), img) + ' Catch ex As Exception + ' If UsuarioActual.CveRol = 1 Then + ' Alert(ex.Message, TipoMensaje.MsgAdvertencia) + ' Else + ' Alert("Ocurrió un error al generar la descarga. Favor de contactar a soporte tecnico cod'IMPDFclspag'", TipoMensaje.MsgAdvertencia) + ' End If + ' End Try + 'End If + + Try + bytes = bytes + Response.Buffer = True + Response.Clear() + Response.ContentType = "application/vnd.ms-excel" + Response.ClearHeaders() + Response.AddHeader("content-disposition", String.Format("{0}; filename=""{1}.{2}""", Content_Disposition, NombreArchivo, If(Formato = "PDF", "pdf", "xlsx"))) + Response.BinaryWrite(bytes) ' create the file + Response.Flush() ' send it to the client to download + bytes = Nothing + HttpContext.Current.Response.SuppressContent = True + HttpContext.Current.ApplicationInstance.CompleteRequest() + 'HttpContext.Current.Response.End() + Catch ex As Exception + + If UsuarioActual.CveRol = 1 Then + Alert($"Error: {ex.Message} | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))}", TipoMensaje.MsgAdvertencia) + Else + Alert("Ocurrió un error al generar la descarga. Favor de contactar a soporte tecnico cod:'IMPDFclspag'", TipoMensaje.MsgAdvertencia) + End If + End Try End Sub Private Sub MandaCorreoEstadoCuenta(CveUsuario As Integer, CveEmpresa As Integer, CveCliente As Integer, File As Byte(), Para As String, Asunto As String, Body As String, Optional GuardarBitacora As Boolean = False) From 4cfbacdafb2b6c852cad9da4052ef4aa615a6cf6 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 16 Jan 2023 18:40:24 -0700 Subject: [PATCH 05/38] Error en cobro cliente en prisay --- Bancos/RepCxCCliente.aspx.vb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/Bancos/RepCxCCliente.aspx.vb b/Bancos/RepCxCCliente.aspx.vb index ffa1a3378..15e89aa8f 100644 --- a/Bancos/RepCxCCliente.aspx.vb +++ b/Bancos/RepCxCCliente.aspx.vb @@ -71,11 +71,13 @@ Partial Class Bancos_RepCxCCliente If (GvCxC.Rows.Count > 0) Then GvCxC.UseAccessibleHeader = True - GvCxC.HeaderRow.TableSection = TableRowSection.TableHeader + If GvCxC.HeaderRow IsNot Nothing Then + GvCxC.HeaderRow.TableSection = TableRowSection.TableHeader + End If RegistraScript("OrdenarGV();") - UPDatos.Update() End If + UPDatos.Update() End Sub Protected Sub GvCxC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvCxC.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then From f8a2e691e3a9191ba3626121be74dae1bb2c85c8 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 16 Jan 2023 18:41:09 -0700 Subject: [PATCH 06/38] No recargaba al cambiar de almacen --- Inventarios/EntregaAlmacen.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index d32123b5b..852d7dd7d 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -3963,7 +3963,7 @@ Partial Class Inventarios_EntregaAlmacen RegistraScript("$('#ModalVerSugerencias').modal('hide')") End Sub - Protected Sub DdlAlmacen_SelectedIndexChanged(sender As Object, e As EventArgs) 'Handles DdlAlmacen.SelectedIndexChanged + Protected Sub DdlAlmacen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAlmacen.SelectedIndexChanged RecargaporAlmacenes() End Sub From 052ac4fb81ed6ab1bcc25d407090578e3366d62f Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 16 Jan 2023 18:43:02 -0700 Subject: [PATCH 07/38] Error de compilacion --- Documentacion/TableroMaterialidad.aspx.cs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/Documentacion/TableroMaterialidad.aspx.cs b/Documentacion/TableroMaterialidad.aspx.cs index ccf91f23e..fb1099367 100644 --- a/Documentacion/TableroMaterialidad.aspx.cs +++ b/Documentacion/TableroMaterialidad.aspx.cs @@ -14,7 +14,6 @@ using System.Text; using System.Text.RegularExpressions; using System.Xml; using System.Xml.Linq; -using iTextSharp.text.pdf; public partial class Documentacion_TableroMaterialidad : ClsPaginas @@ -286,8 +285,8 @@ public partial class Documentacion_TableroMaterialidad : ClsPaginas { XElement xfile = new XElement("archivo"); xfile.SetAttributeValue("URL", urfile); - xfile.SetAttributeValue("EXT", Path.GetExtension(urfile).ToLower()); - if (Path.GetExtension(urfile).ToLower() == ".xml") + xfile.SetAttributeValue("EXT",System.IO.Path.GetExtension(urfile).ToLower()); + if (System.IO.Path.GetExtension(urfile).ToLower() == ".xml") { var xmlobj = ADSistemaLibrary3.SatXml.XmlSatCFDI.readXML(urfile); @@ -372,7 +371,7 @@ public partial class Documentacion_TableroMaterialidad : ClsPaginas { try { - PdfReader reader = new PdfReader(urfile); + var reader = new iTextSharp.text.pdf.PdfReader(urfile); text = iTextSharp.text.pdf.parser.PdfTextExtractor.GetTextFromPage(reader, 1, new iTextSharp.text.pdf.parser.LocationTextExtractionStrategy()); foliofiscal = string.Empty; From 1bfb7432d16bdaab7bde7d451140a0e1d6f78951 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 16 Jan 2023 18:44:26 -0700 Subject: [PATCH 08/38] Ocultar impresion en cotizaciones en econo --- Ventas/PopUpBuscarFolio.aspx.vb | 15 ++++++++++++--- Ventas/Ventas.aspx.vb | 4 ++++ 2 files changed, 16 insertions(+), 3 deletions(-) diff --git a/Ventas/PopUpBuscarFolio.aspx.vb b/Ventas/PopUpBuscarFolio.aspx.vb index cabab782b..ee4647234 100644 --- a/Ventas/PopUpBuscarFolio.aspx.vb +++ b/Ventas/PopUpBuscarFolio.aspx.vb @@ -186,12 +186,21 @@ Partial Class PopUpBuscarFolio e.Row.FCLiteral("LtlXML").Text = "
" End If - If IO.File.Exists($"{Ruta}PDF\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("Folio")}.pdf") Then - e.Row.FCLiteral("LtlPDF").Text = String.Format("
PDF
", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio")) + If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then + If e.Row.DBCampo("TipoDocto") <> "Cot" AndAlso IO.File.Exists($"{Ruta}PDF\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("Folio")}.pdf") Then + e.Row.FCLiteral("LtlPDF").Text = String.Format("
PDF
", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio")) + Else + e.Row.FCLiteral("LtlPDF").Text = "
" + End If Else - e.Row.FCLiteral("LtlPDF").Text = "
" + If IO.File.Exists($"{Ruta}PDF\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("Folio")}.pdf") Then + e.Row.FCLiteral("LtlPDF").Text = String.Format("
PDF
", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio")) + Else + e.Row.FCLiteral("LtlPDF").Text = "
" + End If End If + End If End Sub diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 8a0583f6d..6f69118b0 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -3440,6 +3440,10 @@ Partial Class Ventas LblRotacion.Text = FechaRotaAlinea.AddMonths(6).ToShortDateString LblAlineacion.Text = FechaRotaAlinea.AddMonths(6).ToShortDateString + If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso Me.CveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then + HplDownPDF.Visible = False + End If + UPObservaciones.Update() End If From 956d7342676957723c65d3ef49cd13a8ddd1f502 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 16 Jan 2023 18:45:01 -0700 Subject: [PATCH 09/38] Correcion de validacion masiva de cancelacion en reporte de cancelaciones por respuesta --- Ventas/RepCancelacionesPorRespuesta.aspx | 2 +- Ventas/RepCancelacionesPorRespuesta.aspx.cs | 5 +++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/Ventas/RepCancelacionesPorRespuesta.aspx b/Ventas/RepCancelacionesPorRespuesta.aspx index 5a4da6268..c87394d52 100644 --- a/Ventas/RepCancelacionesPorRespuesta.aspx +++ b/Ventas/RepCancelacionesPorRespuesta.aspx @@ -36,7 +36,7 @@
- Facturas Pendientes Por Respuesta + Facturas Pendientes Por Respuesta
diff --git a/Ventas/RepCancelacionesPorRespuesta.aspx.cs b/Ventas/RepCancelacionesPorRespuesta.aspx.cs index 796c5587b..8269b0937 100644 --- a/Ventas/RepCancelacionesPorRespuesta.aspx.cs +++ b/Ventas/RepCancelacionesPorRespuesta.aspx.cs @@ -551,7 +551,7 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas if (DtVentas != null) { var sb = new StringBuilder(); - foreach (DataRow Row in DtVentas.Rows) + foreach (DataRow Row in DtVentas.FiltraParametros("(CveEstatusFactura IN (20) AND CveEstatusRefacturacion IN (0,4))").Rows) { int CveVenta = Row["CveVenta"].ToEntero(); string Total = Row["Total"].ToString(); @@ -564,7 +564,8 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas int CveCliente = Row["CveCliente"].ToEntero(); if (CveVenta > 0) { - sb.AppendFormat("{0}
", VerificarVigenciaSAT(CveVenta, CveCliente, Folio, TipoDocto, Uuid, UsuarioActual.Empresa.RFC, RFCReceptor, SubTotal)); + var resp = VerificarVigenciaSAT(CveVenta, CveCliente, Folio, TipoDocto, Uuid, UsuarioActual.Empresa.RFC, RFCReceptor, SubTotal); + sb.AppendFormat("{0}
",resp.Mensaje); } } Alert(sb.ToString()); From dbe7502a66f223033566291c3918603001e4ed73 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 16 Jan 2023 18:45:38 -0700 Subject: [PATCH 10/38] BDH.Correcion de importes de virtuales en traspasos --- Inventarios/TraspasoAlmacen.aspx.vb | 59 +++++++++++++++++------------ 1 file changed, 34 insertions(+), 25 deletions(-) diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index b4088ea7e..97ff5f072 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -1639,7 +1639,7 @@ Partial Class Inventarios_TraspasoAlmacen ErrorMovInv = True Else Dim CveMovimientoDetalleSalida As Integer = 0 - Dim importe As Double = 0 + 'Dim importe As Double = 0 For Each GvRow As GridViewRow In GvDatosRecepcion.Rows If GvRow.RowType = DataControlRowType.DataRow Then @@ -1675,7 +1675,7 @@ Partial Class Inventarios_TraspasoAlmacen End If End If - importe += Cantidad * PrecioUnitario + 'importe += Cantidad * PrecioUnitario End If End If Next @@ -1700,15 +1700,15 @@ Partial Class Inventarios_TraspasoAlmacen If CveAlmacenVirtual > 0 And CveAlmacenVirtualSalida > 0 Then Dim dtvirtual As DataTable = Nothing - Dim importePoliza As Decimal = 0 + 'Dim importePoliza As Decimal = 0 If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoEntrada, UsuarioActual.CveEmpresa, CveMovimientoRelacionado:=CveMovimientoSalida) Then dtvirtual = ObjInventario.DtResultados If dtvirtual.Rows.Count > 0 Then - CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/C2") + CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveMovimientoRelacionado:=CveMovimientoEntrada, MovimientoFijo:=True, Modulo:="TA/C2") - CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtualSalida, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveMovimientoRelacionado:=CveMovimientoSalidaTransitorio, Modulo:="TA/C3") + CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtualSalida, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveMovimientoRelacionado:=CveMovimientoSalidaTransitorio, MovimientoFijo:=True, Modulo:="TA/C3") FolioVirtualEntrada = ObjInventario.Folio @@ -1720,7 +1720,7 @@ Partial Class Inventarios_TraspasoAlmacen Dim CostoIndirecto As Decimal = RowVirtual("CostoIndirecto").ToString().ToDecimal() - importePoliza = importePoliza + (CantidadUsado * PU) + 'importePoliza = importePoliza + (CantidadUsado * PU) If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualEntrada, CantidadUsado, CveUM, CvePS, PU, -1, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then ErrorMovInv = True @@ -1743,6 +1743,11 @@ Partial Class Inventarios_TraspasoAlmacen If Not ErrorMovInv AndAlso (CveMovimientoSalida > 0 And CveMovimientoVirtualEntrada > 0) Then + Dim importePoliza As Decimal = 0 + If ObjInventario.GetMovimientosDetalle(CveMovimientoVirtualEntrada, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then + importePoliza = ObjInventario.DtResultados.SUMD("Total").RoundSQL + End If + Dim CvePrePolizaMovVirtual As Integer = ObjConta.AddPrePolizas("TA/C2|TA/C3", 53, importePoliza, importePoliza, 1, TxtFecha.Text.ToDate, "TA/C2|TA/C3", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If CvePrePolizaMovVirtual > 0 Then If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePolizaMovVirtual, True, importePoliza, importePoliza, 68, TxtObservacionesRecepcion.Text, TxtObservacionesRecepcion.Text, -1, -1, CveMovimientoAlmacen:=CveMovimientoVirtualSalida, Contabilizable:=False) Then @@ -1770,7 +1775,11 @@ Partial Class Inventarios_TraspasoAlmacen End If If Not ErrorMovInv Then - Dim ImporteDecimal As Decimal = importe.ToDecimal.RoundAD + Dim ImporteDecimal As Decimal = 0 + If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then + ImporteDecimal = ObjInventario.DtResultados.SUMD("Total").RoundSQL + End If + Dim IdCtaContable As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero)).ToEntero If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteDecimal, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, @@ -3354,28 +3363,28 @@ Partial Class Inventarios_TraspasoAlmacen Return Respuesta End Function - Private Sub CargaDireccionesEnvio() - Dim ObjClientes As New ClsClientes - Dim TieneError = False + 'Private Sub CargaDireccionesEnvio() + ' Dim ObjClientes As New ClsClientes + ' Dim TieneError = False - DdlDireccionEnvio.Items.Clear() - If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then - DdlDireccionEnvio.DataSource = ObjClientes.DtResultados.FiltraParametros(String.Format("Estatus = 1")) - DdlDireccionEnvio.DataBind() - 'DdlDireccionEnvio.Items.Insert(0, New ListItem("Seleccione", "-1")) - TmpDTEnvioDireccion = ObjClientes.DtResultados - Else - TieneError = True - End If + ' DdlDireccionEnvio.Items.Clear() + ' If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then + ' DdlDireccionEnvio.DataSource = ObjClientes.DtResultados.FiltraParametros(String.Format("Estatus = 1")) + ' DdlDireccionEnvio.DataBind() + ' 'DdlDireccionEnvio.Items.Insert(0, New ListItem("Seleccione", "-1")) + ' TmpDTEnvioDireccion = ObjClientes.DtResultados + ' Else + ' TieneError = True + ' End If - If TieneError Then - Alert("Ocurrió un error al obtener las direcciones de envío", TipoMensaje.MsgError) - End If + ' If TieneError Then + ' Alert("Ocurrió un error al obtener las direcciones de envío", TipoMensaje.MsgError) + ' End If - ObjClientes.Dispose() - UpCliente.Update() + ' ObjClientes.Dispose() + ' UpCliente.Update() - End Sub + 'End Sub #End Region End Class From 9582c37f238d368e2e84b4f2e3b49c69d9d590db Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 16 Jan 2023 19:20:10 -0700 Subject: [PATCH 11/38] mejora warnings --- SiteAngular.aspx.cs | 1 + Ventas/Clientes.aspx.vb | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/SiteAngular.aspx.cs b/SiteAngular.aspx.cs index f0fa903ac..c68c01a99 100644 --- a/SiteAngular.aspx.cs +++ b/SiteAngular.aspx.cs @@ -25,6 +25,7 @@ public partial class SiteAngular : System.Web.UI.Page } catch (Exception ex) { + string a = ex.Message; return null; } } diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 26e5d7efc..44b308663 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -10337,7 +10337,7 @@ Partial Class Clientes ' DdlRegimenFiscal.SelectedIndex = -1 Dim dt As DataTable = GlobalDTRegimenesFiscales(RdTipoPersona.SelectedValue.ToEntero).FiltraParametros("", "CodigoRegimenFiscal") - Dim Val As String + Dim Val As String = "" If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then 'verifico que sino existe el valor. lo limpie From f37096513f1d5b88b99141e4c7c2b939e43de115 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 17 Jan 2023 10:16:36 -0700 Subject: [PATCH 12/38] -- quitar el log. --- App_Code/ClsPaginas.vb | 1 - 1 file changed, 1 deletion(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 38b6db274..a30cd4ec3 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1475,7 +1475,6 @@ Public Class ClsPaginas Dim ObjSubProyectos As New ClsSubProyectos() If ObjSubProyectos.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then Application(AppNombre) = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) Else Alert("Ocurrió un error al cargar los Proyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError) ObjSubProyectos.Dispose() - GuardaLog("Se Cargo GlobalDTProyectosUsuarios") End If If CveUsuario <> -1 OrElse CveProyecto <> -1 OrElse CveEmpresa <> -1 OrElse CveEstatus <> -1 Then From 2a05e0cf572bd10b5c3753e0a52ad721b85a7c8f Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Tue, 17 Jan 2023 10:29:35 -0700 Subject: [PATCH 13/38] Rep OC Proveedores DropDownLost --- OC/RepOC.aspx | 10 ++++++---- OC/RepOC.aspx.vb | 21 ++++++++++++++++----- 2 files changed, 22 insertions(+), 9 deletions(-) diff --git a/OC/RepOC.aspx b/OC/RepOC.aspx index 7a1acc1b7..23093ba9d 100644 --- a/OC/RepOC.aspx +++ b/OC/RepOC.aspx @@ -177,11 +177,11 @@
- +
- +
@@ -201,7 +201,7 @@
- +
@@ -242,7 +242,9 @@
- + <%----%> + +
diff --git a/OC/RepOC.aspx.vb b/OC/RepOC.aspx.vb index c3ed79e0f..fca85e652 100644 --- a/OC/RepOC.aspx.vb +++ b/OC/RepOC.aspx.vb @@ -88,6 +88,9 @@ Partial Class RepOC #Region " CARGA COMBOS " + + + Protected Sub CargaProyectos() 'DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1)) 'DdlProyectos.DataBind() @@ -120,9 +123,17 @@ Partial Class RepOC End Sub Protected Sub CargaProveedores() - ddlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - ddlProveedor.DataBind() - ddlProveedor.Items.Insert(0, New ListItem("Todos", "-1")) + If (UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1") Then + DdlProveedores.setEsWebService(True) + DdlProveedores.Attributes.Add("data-metodo", "getproveedores") + DdlProveedores.SelectedText = "Todos" + DdlProveedores.SelectedValue = "-1" + Else + DdlProveedores.setEsWebService(False) + DdlProveedores.ddl.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) + DdlProveedores.ddl.DataBind() + DdlProveedores.ddl.Items.Insert(0, New ListItem("Todos", "-1")) + End If End Sub Protected Sub CargaClientes() clintesdiv1.Visible = True @@ -366,7 +377,7 @@ Partial Class RepOC Dim OC As New ClsOC If OC.GetOrdenesCompraRep(DdlTipo.SelectedValue.ToString, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero, - DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, ddlProveedor.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero, + DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, DdlProveedores.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero, If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False), ddlcliente.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False), CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then @@ -512,7 +523,7 @@ Partial Class RepOC Dim Clasificacion = If(DDlClasificacion.SelectedValue = "-1", "", $" Clasificación: {DDlClasificacion.SelectedItem.Text}") Dim Producto = If(DDlPS.SelectedValue = "-1", "", $" Producto/Servicio: {DDlPS.SelectedText}") Dim Completa As String = If(CheckNoCompleta.Checked = False, "", $" , No completa ") - Dim Proveedor = If(ddlProveedor.SelectedValue = "-1", "", $" Proveedor: {ddlProveedor.SelectedItem.Text}") + Dim Proveedor = If(DdlProveedores.SelectedValue = "-1", "", $" Proveedor: {DdlProveedores.txtText.Value }") Dim Cliente = If(ddlcliente.SelectedValue = "-1", "", $" Cliente: {ddlcliente.SelectedItem.Text}") If DtPorAtender IsNot Nothing AndAlso DtPorAtender.Rows.Count > 0 Then From 3fe6851ef3cce8b4a8cede613877fd5911d59ece Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Tue, 17 Jan 2023 16:15:59 -0700 Subject: [PATCH 14/38] RepCotizaciones se DdlProveedores a dropdown lost --- Bin/GoCfdi.dll | Bin 565248 -> 565760 bytes Empresas/1/Formatos/Factura.rdlc | 6653 ++++++++++++++--------------- OC/RepCotizacionesDetalle.aspx | 11 +- OC/RepCotizacionesDetalle.aspx.vb | 33 +- 4 files changed, 3237 insertions(+), 3460 deletions(-) diff --git a/Bin/GoCfdi.dll b/Bin/GoCfdi.dll index e25ec66283395a05f296e8252da1a882849fc48d..d7ecf5043d35c54d5aa8c884e61036f3d351d5e7 100644 GIT binary patch delta 13127 zcmY-03s_Y}9suw;bI+VJ7ZDEJ2bT*OC?YB<>Q%8&F;Ve_Xs&Vr6%a&SOKK^tY%f=l zw5-)IFSe*?sHo&pnxKi2sgYWen&E27CMp{FNZ0U@?aZ0K#P)sex4-$Hne&=6=YQr7 zc{LsL4s~3yG&Cw|`wRsCHK2|m?W8D#KBNdKqVV3zty6qTD=8Y!T|?0vnKd|@$4T)1f`C` zC^6W8B)t@&@+^XC5)Hhqt~(QP&J1!8BhDOs{GKTc*xA$hu`NZktuX9sxZrbrf* z?NNSt=BUD#mUk#Dsh11u7Sh63vi%D`Uf#}gB1Q5loL58&-^(6uG)2j12Rn!^{2&(J z&91zgEiFCkT3)~pxd3%Q+f5Hp{4$}Ixcw%hl>3g*Fk04q|EHzcl|n@`j`)X3=zXEyk;hHpQhuS(tIvLK>MljORtt_9m2Mg!m3o9O zCtWrTl_sqb8r|-OX@q1e7Fs+*LzAULpr>N6d5ToNR>Wrd7|qF2**c+K?flHsq|@t# z3L?YN45_R{sBygAoFye~a0w>QSZSIiE!-&dQdBsaCyo6`XlnaV^Gnj*QlZpH4b7Jv zn}nvb!(Jd2Z5Aqu-)>qYRc#gW9p2r%QmWZ5RK~8wKc&2Kq47hG`>&PKK1O{11!zlL zxM{squ|ov&laKg+Bpv^k&|}9S(mOzHJ7UZ{T}APze|le3((UE z;pnmCb@b0&AZ!+*L6e>AagPM`oScmjj??9)n~X(fgi|5r-G41pE@+~WZ@C692XC%&U2f!)$c9Zk`FPuFk=-hd#qx9=LIZm%NWxVjhOBWK)7WqH zdQ9Um#$}+PSVIOJ^{t3~k9a)Q(j?*e5@t^~;&pVsL{Mb8qcJ#P9zRNR=p z)$EHS>z`UlLpH$v$Te!F7!y z_I20G=8ib-vWOk&+HCHG+jihE+^EM2Xb$VLVYpdrN%JO4$Q6eF3&B{{y*lIHAvj^O z#-v=)cR?paYbYH1f=01h(FF&9cn9u+p9aOpYD^KJ+GGhu;0d7n{WR1SCxfoAp4ZKV zGk|9!81WokZhAdJWBMD!6o(Ua$8SK)?9iCpRkk`s4l(8$42D8UnF5r#R67Jn|}k{~$MAF-2oc zgy7i08j8kFP|RQ_8i>M0jejsz388&#Fd2+(O?oFq zxd|E?f=fURl46O)A-{;2IYUDUxD?dH2B`74_y)ZH9x&?zye$)F*2QExxnlAmO+T;0)NLgBE)lnJbV|#bAiRUK@l;YUKQX> zD#X*PcQDI;^)`8S<-x1Gg?M(g0VnxzvG*TOuQuZ-KM~~V)o$Db;^|c-Ztxc|o?h+6 zO(r3pUhT(W79pNqeTiE@JiR)McUeV@XIHiOe1H(ou1?@8n=TjP>D6~Q%`SpGz4`%{ zfOvXUkL6$y zi)TBEAue15dA8Hekl#g!XFHl9HbRJJJN^boS0SG5SPgT#3Gr+v$gr=w5YKi(3=utq zc(&8g5Y|(OCp+PWmR>@37t40K8SP16l=eGdG4H|9PY6!~|T0i=E%ML?nmXNEv zhFqT-GG_|D(A{R)X$YGobd;o6sth@Egk;t&_Zy1;Ds-D|dBBkPg3v{_=fzYqX#ipMP=U*4%A7}Rr z%ik2@A7@04b_sRP$g=p#4Q`>Y$Js2wa!9_=q}W$2p>ov{E;s5wBF@lNZU)79#TmNE zu8;x|jAg;@a-yyRls;#XB~oq%y~JKQz2uOkV$0XYEVD$(k3jdm5~RLz;xZ9iIaWaq zIqn^y(C%D$#asobzac?#$Thm$s4G)H8M)Sq;14)K>MtjPGQ8O9NL~f<$Kfbi&Rs9I zysLzxXXHj*ZZuonBgM$gB_fulCP;(ikPSi?$0bOE<$a)CETb4A@7u^@Zghcl*;u*c zBe;l*vCZGo&NTX$WvrsfkO2^5|cL?uMXcxCd-YL5`X^|phey*EK}r1dawX>cdW6b z$|ZY5MNh&8OPZXxS7>tf18JsQ11ip1VVNz@{anQImF<=n<*0pP7oF8A%Y3;-7rXds ziunzBS2eU56KejuoVlOne|-0ECDd5*`6*=(E0SEFZ`bUp&zX%Nn^( zmmBSiIcM1*CmrN5HySpe%Cbp5e@JZU)A^{hRn9#kR2$|*TV=WSNz8$_%2iza{r5C` zZ*P+uAV^u3wq0KOHQ&^YrjKc~l*Hp>oq)lt#Rvk9T*oiaKm6z8~Z*(2`* zr6;7D4$4u-MQm5*ZyC?@88&a_My;|Ev`2BU%1gX!nd6*2i)%h<|eZA?NBU&~KAO zYK3TclxvPvA`QT2qUJF*gE|j%B246F-e>{s!7d^uV?k%rE~y5R3A&SJK?bq_G{gRi zRVEdn*O>@u0!7;2uqq_v7t!Vj`x`E+N|J!VL2fH0D?kn=BdG;>Ti&vI5p+XT3}tFZ zqCtx3U8^_A0X@ako|J*+S_-W`qygk+@+G#LqLmj-YpgDfBm$Q(`jMre3#Ro}e^LXw z&txJkAeVWQ)l8ypiDo=Z7BUO8C2+gdN=iW0OaY`G^rQJxtBq*4MZG&rfi4m+h>m3K zvD(Q3ke8o^f=GU=4p@Upoh~d(VFmX=>GZ>rfJRPt@xbFx7hmS*5E0?NBaTN0Kw3uYGNnv81V0 zH?0#${BQdE&yDW09Zn%dzln4Dx&3`>5@`nA@I7HkBU+1y-SAZcW|2HyZWP1L@Fh|Q zu{B|)fR_oqFShK+uFNaM)~aLH1tdooyP~Y#LQ-=d-haE(?pxm^<_DtUN$rGX35jl% z67Vi5)5Tsn>dFy&os>_XjU^^@&zd~%0Hr0C* zL67wJpBv2!i!*E{nT-5Nzt+WxwvdIO`&~4qrJ!S-oT!YHfX;Q&n94y(NkIWy$stf? zQb(q5h4f)(8>xqwBO@DcBe%HN`;W$DNN5{*1i`s1xSg1P7YFkii)|+%AT1>umy>8v zNQ#8YNgU{EdN%%;q=N3HOXy=V3-sOaY`lZyfzA(?&7Qi zNrEBxkM2&ilQ=*dS%$uo#DY9tPPB_8fi|!laTm!1=LXJjGh^(2jHDJYt?xto-L z#GOF4i7j<;w8^IUixC2(u*Wt^8Ct5eYdqKZ6-CI;ZyN& z-z#kj?~_NKHLOtUi1~qtRuv^0du~i+txjuGYEp8s=ecRD^uso#AxZ`ItY)RYXWEqZ zP?|m0rm<%I4SzQKj1pn+44%#!NN7_!Qpq%U-e;w*x7(CXQc83cP&~6bAW5ke(z|n# z5-f|W##5gp#R1}}Pm;0_#8V%qvI@jgAE#0V8er;WOI8{{6PQvIn~R7>Px$w@r7DS_ zYfMv>rJy;1gKX238qixz)0Gy`6V;UY zG|`r+bX8q?MO5iK-8M&wRi9{%Ek~))~x@j#^%5}NX7*=nc@(5x+ojVS2FlF!8U&)%Et{r8d5_Wf6?oYprLufI)7w71?2ZhOx#Od*_ zeO-wG@vePc$p`VS{j*XG;$8b^r2=#&uxDVi(geE3^otVW@)eE#5!f&AhLQv_+xrFH zR8|O~)mbrtx0G5?151kTDD|y6X1%9GX}lFTI?HbE10_#a0s4g1d#F@_erEL^E48gU zW|ho2-CY7zwb%def93F0q5Z*?Jvzx=$_rJ&(6ov6K90-88e zV=4ztXE7i35NIxo`KWcE*Ty@MuiC_v#@|x~<2A;+5G?EOM4IYt5@+#ge~rloIy%~k z{M0DW>CqZf4Cp78+xV-KK)buQxgNA@A08?v|19NH;VWWI7a;*#D~DKYGbR`*~Y2SHom180mrLL zbrm2!0w$_QL3{-Ki+a9QH?7HPOrWU8N5C|7c_0j{KAlSf)75=?umJHPFhi|v)dA}a z)od3P`3RWxe-Ft_H4|d|A<0&2b%}>$mf8T~56LXG8N?rw*{U3bQ3UUM{3)5OYK&Zb z2%MuvfcOwNhxefevsfSMqnC<4l&i)Ec@k!`(ihv5y4Cz3&qh}2yRA*>duom6zq9dh z*OfMf|5P98(%<5N>(#Je{Q>wq9KzM0s~xudV>`?zUd72l4J!qTT}W?pC78Pl?kA zFcbR*H3rm!X``C!5=0$+yzL*Ur67r2@J(t(s}5KmP~d-_J=qV86` zpBBfDXLhykRUJb5HQB2!g&4mkd({#Uzb1RtCJ?_SpQ|WDw8F2+=PLV|UB9&hExqjf z)UlumOx0?>3m6>K-@aen2XZhSQ161)n+Dly)W}fLOf}ONY9?rvJKZu4en|E1DC)&C9aiH&}5FBB4+H2KjP&(7sYFH<+dcbr{T_uFR=$mant~P+OwAKEnR5?tqhqAO>`@hv3U2deYNAM@LCJY|IW!ZW5 zOKJ;jI@<4nbVa3|Ma9v6$E?@XG+kmIZ+$e!f+*oKG#NJQM zvs)>R5L<3$Z`43)Yt=DpFwN2BMlZ87452j;Tg6T=l(vA9*$IYG+Lg7!C$E#)8Fry* zoIK59JM2y?bQPd)eM;<+RPH8r=*y-x95kX;NrujWRAusWvxlQR# zTI2cKOZ>yHO<@gvH+J2z5AU@GnPwPN@qOG2u1@Vct zv-Ce8KGAme|IYs3^g4_2AJ!;e@bqtb2R7vkp3c#SAimz|95wXOFR8xX=^XV2@%2vU zsTsuAJDsObf%vS@kF+z0&kFrWdxH3^&;{C`i%%@_X`u^r2n5fthx{TP3F2#-F49Dh z!lu?5XcEYeO|3Q1bkN~=_Ja|f4LTjKF})1pssB&(br4Vef1-%4?(_&s);s$_#&z%dJV)EQC*|AL3|O_HTnQFgq{6$iu;P&l*rEhI&BBy>!g0B zW)NQ|)l7pyF24GznT7%R>Z@kjLrCwXztEu&8)k5#U+5^%M1#gO5mcP{X3!0q3@Xc9 z%rrwtZ{;Rk0x`b+^(K86G|a_D(VKKNaBX}xzD3u8%Hkz-i*6Cpo4HM^A;yRM+w`z5 zx4!Q0HvJZ2e1+hz^vshOyW79g1`$L1N4*_%htBG!UnjJ_zbn-I2bKE^UhBTvpBQ(6 zd{aLR@-{{c5V2$?Ut=-InUP`kH^xPa*tVn(g940IpowEQ1lf(H14ZmemvGd<81{_N zJTC=>7;AL7QALL0V(j~@9@Nh;#5huj@?j^$I3C1@oe*OZ=w;URLXBx4K3s(wXM@&{ z*c#N)_>wL+-8$l5Os_+XU;IwSMG)hQk6oRN%S90F9KkXMV^YkY2h+tkUr1lI+{Nh9 z<)*x17voY9L!(CS4vH{F4EeKOU*nTkA0KA>8e{a>6{)c+SG=x6OcvDFWnA2*qQh7! zr0>vSEY~G==rDc;u`SQB#e~Lc(B9|RFI2`OLhKr{<%7n0AvC~2qyfgFSbk`3bZpFZ z%RpnpP$9n5;5nmf;d7j;(Q9K42MssYfXvZTm6664P=CWk6mN_kCbsO#G|IRDgi;O% zjW*VS_Qj7wV~vkM4IX1oe9{v1p<-h2{c&%tzKi-@u7 z6pqr2A)_iEy@sRbm>;n}6zL^-S5Xut1+)L{Ek#zn72k;2KSO1FqrAeR{aEK+QFHO| zm@T!R`2=1KuX(HKzRdm+_D`v7y06x)jePQFE&M=(*>4O>*&nJbWq+MA@%gytwPn-0 zyt3rj(4zKlY{}U1rf+4Vhf>M^IQ)eQtAVcY{~xk4)GF0`ENkff%8+$5UaIu@kUlWr PmI0N1>*!5sWt93qP)VJ= delta 13077 zcmY-04}6W){{Zmwoco;TIhV0#yMK1~CvBP;hRMY+tPG2pk=SK2Y&QGq+v=yN)ZImk zQt_SKDKbLCD&gy2^CzKYtAs=r`(`wnfAQ5w`hCuGKGwcoFTHx7&pGG$cb;?3bM8@i zpl#v4wu|OR?LGW|QwaX4C2b>HD)EGra6&Yh*njc*v8@}naWX=9A18U1#Zk6^T22DM zTmQ{Tg#UU8k1O^l?OV+AL%~Q$FDZUq>7=|{yiIAZykC4qY1=+>JA~j*3jC#nku@ol zq(@kYVx|&uGn0`&V&ffMoB9|jXw5|d zZHf3_t66qP-k`Z}#GDV~f*=V~%7R{GxOx|O&DiyCw4dlCnZA$eU zQcr+fitA0OPxb2H2b8?Gr1tB(gCA7pFOn*maws@jNm(q_Ew0)Yqg4M(>iNFk+d3(; zyzfX3du)=em(s9Q>U_p|+at>I5~-mruh<4FS?@{BonnwNO2Bfd2NJ1$ta1}IwYAkg zPPw*1#=5o)vOlRrtduH>iy>2#YpA*rVfGxQwA3qu#|}e3%?#Td6dDB(u&NcPRJ+#r}!ZJ$FCbTBR1%sz*OtnNqPy#$Hr<+czqO zo29mmxua}RQnpAHXw|{nl$)s3v4iY8l(KCi<|7+|#@i1oH+K+m{33F^Ukv$LnZHvO z{C@mo`?t!zT~ad#{KI}+x%QbF6}&4<)Wr*7<)4ZhBXlXUbbd z{)~3hKb5$zWbnbX7;;Y;C1oCh&`c>FKE?wt@(fg$F}ak`g{FLbt+m8X=o*X#^jra| zK#j7BoX1hu2Z~x6q`W*aNl-m34)5bR*+LPfinzbmIh{~9>Y#b}R8+g+B4;+Lq@B=g z)ZErWOHdlz8A8iZ`Je%X3!U|~%=x9)`hi`gN#96T_BIHkYi3%w^R37 zsgT?+><(IwQYW;qIca>Yj0FX@@Y-Co9QjRNni59&e`N6ShY#DsX{MK3+IRA>L@( z4}(e2yxP%07#umq0HtAUWP(9r=vdTa@F?2Ti73&4+tXZBN|FI8Kvj-YNGx53y4}Md z9q4M*1!#F4y>tWeR4kBgHs#}&Vhzw|7}MMy(usb7F}vFURb%WoX!&vUIL7X_GeAFK zZ0=(o(wUye*qe_Tpeqf1m zJau8rt{I>xjP)PnA>C*PjHM4UKo4UqF3>|BrhPE>NT2~4=*8gI&?$7M!!USupaB|< zv5^pS(@cy_f|#4;V61bFhxDLNVXRM%0eT)|-G_KcPx=bR`VTQcuVL)vu^!TkzI_4u zf6?tM8fyScFqqokAPIC8DzU$Z^rq`k)!onOz3Hc@+U^dB?Ls}3xPtYe`%!ZeZ`k|L zD%9>4=k&hx80vHj2kA>|F39nZKhe!Y5@{UD{YRqlQO0GU%Ec_tnKQiMoH6+M2vOIG=89l*$~uJNRjO@{ZKb0E5h+b$>{`2`&FQ zdh)JRIgFyu(@lSY#Q2v3lYv>3CUbB3iCXiRslFG_Qq}m|gj4O-m^;yIMs{TM5DVC#F~H=qy79#q??$jSrF%)2rTSCuq6M8?GI>RU=&ro2Q^_*-o%!cC3_`?Kmx4J4lJyPPj$w zBqe4$k(PouDKXn=Ynk3zN=$ZQEJ1e4&c7oYXC(FWk85FafE|&UkQgf9U zTQ^IpTWT%qV(VcUoglT0^|K{es(VW%jE}Jmv@Gu{6+b@NHpDW2fK*L#Kif!)`w^*y zt-K3tqbkmbl?kUE#s}!*VlCYS7Ra@|?w$ zF4YbCl9`s}sB>dshHS|mC1ckgd)hX~Qt*V7t)muQ=MFnEtcuIQis`i#}3PmX;LaQ%RQF5e5vb@bFZajy3|?7 zdB9TlPbu*YaM%*?td#f$IAuwgAtk;6&RO_#QsNunyw}o*6yE^9STbhH;BVuW+kUk~ zzbGX>&Td(b&z2G&XG|@8MXKH897muU>y!FwxXTft=FOEFo%FmTN+quf`AE;f$(9bP z8M}tSI30tL-rmkkA)LEvAh?agm_;Iyjn~eQ3Xf+$7#%))`_*+Eg1T1olRg<^N zN;|oiIWpDy9a8?ZRgNsRWT(`a+&jutmG6>Tp0mg?P2Gx`r)_lnQ=Rphi1|o6eTQSF znp7ck_SDDQUsCU){E1QaSJd*|F#i*We=TjFW1bqfM`rzyM%mw1=kJyJclTwEchrJ? z_w}t~nd(z>bQkBsjvR+O7@_x)s*Q=xw zB*wo7Vcg!J#tMQs%+fZhM@;$1#9?)gay9lV8SBu|<@i{wLG?|GvTspS4$D}w`;ud) zs#Zx&N}FWcug*ek&Hmj{t&(apW`4*VQx}=?7MWjl$J8JF_nMaywcDn#XwHCDfxBuy;>q;WIK$1->dV#G0S;@Eu257b>GVKj)%5> zN-aAgCB9uwtCcA6?NX!GqjHrr30l=zT2qb41dwTQ2(TD9?*l=zPN zkD7Q~mh)y$ive!^Uh>OnZhB5lKOwbmNRYEmz59by`+PS&ua=yYT0JDxc|j#VN$pUg zo%L$m8L4-mmMdx{$~P^@c~zbM9~t`zbWP>wrLKFYxt-V5nhTO+^7}b&s55?%5??^K z)JoLM{1oT!YWzhRYtwDC^AEKF6`V8Pc~?!nBxBpAOmW^*vr*!c>o2v!RFV1Y6=wV@ zau)HJcyGQ_VX??Q@lS)?sCK`fkEsD>WporGnnzKvfyoy zjU}PH_O(tsn}za&9BdQn!_bXRC#y&828FQ5YqFM~?3aJQ=be_n?ZAX#;{6LKC%J|#xmCpS#Utd@%9cZ9hG6+QQ}xu zld7Cu*$z`aa??2>pgZF?Ww{f|PN$nCpvvI;uLn!^HgT`BCtGC7M|L?T1SGIpjHSDe zIeW7Q{wu3_&Uh=hAB%5Njq?$<(3FpK4Ve%ynAKqHW9__i2y1gomisEu{YBBh0tJ}^D=Kft4yb}1WBa3A;Nejtim8N_o5w7qV=4zBVmqpt` zo@ME%ws2>jV_8kAa?WBqOu-$6a|n7%~9i9$E&QcNm|I8?3yVU za^MP=vZOmQXU~quoPPE)YAD>9_t>H))i_tO22(!r0~~M->+^>!H^-O|u$HBOVEpru zr=ycC>sYxA@{8>~eFo&K9D6 znUqUEVrx*hCMo12wh8s!pj`Sft3=fdQpm^bxG5O_*1}rHC#(U3|Aw`WPgwKiqfM+4 zW0PRfZ4)#8lvnr^e0*x>r z7B(BT8fNHQ*nE_~g@7V$x1F8YR|}cCswg1Xya> z#b%+Ng0G`pY#u7n3yWu;vE@jyc=j19Ly48G3bqd=R<31NJkT#$DoQ-iFIfgkJkUy3fD#W>t%N7) zrxR$h@uHbL7oO~(kfUr7@sAOy+nS}GW!1#L0a62hYnIx;xc|=ybWmUySOF(QR&bjo z`$s-W2O0Uz5;d(*@vnOlYF*bX)uvS_{yQS|=VqyqTBG7mn+V5hL;tR}v*z}%nh4d7 zYnIqYE1>>ckkwe)EOm%hPW?l(XtMWcv((XAy{RHjr|u5P&PG4;vN zW~0Q^Cqp}c5>p?KR)Z2#ACGno)yvk^HBO6F3XQbY*HKsEeQp+7VQK zXg}AJ8i%!i@vvV5P1KT57hK7%ENvD_3r%)S(l((s+lRR(YxSr@peb6UX4XQkD5G52 z+B2G0a(m!JSH3nMgWCi1T?JaBDIYlr!{1CTMVC3-k>_2rw6{@91LwG2*48v>p=*xD z;im^Na4dsz^R*09MPyB;-?cz{6SdoT)&9D+oKyLUx7&E%^@es03zonz_NJC3e(r@& zp025DTyJS}P;VJ7N3ph~NmrdE+D%hFG7QSSuO+vTqD&) zb#?e*rA(_u{V{wvEz`_l#BZHK9|^o<2IR}JStEYW6nJA|0>l}}#JyUg|075=CO1p0 z)@B9xX*M+N_nW1j(zXWp$3Uw0$7ZP)v}>kB(?0CFq`6v|cgbwpm$d0pX4Af;%|nT% zeMzfEiKhLlR)-Qz`&X?Ibt1G&XoD8t+N_gb1YOqhyvV;odxT!mN>TQ(9-&vYlTu`9 zPGaaa%?LCLl3JJ)-OwVNROP&-%`)X9r{Lk<(JC?aDU|y|BZe&ZE0nvZ8BMBkDtew_ zHfLIQ4deo??2IwYgBE(wj z0m1ULr$el@?n1pV!b1Y}cu3KD4tQX){mU zY#Q$CiMH2SKaLV@uZ!M*5^b-G4nHc2{(<+h%?$0TC!j`x;`IVAGC%Z{ z&~ADe>NU{AdM)aL>($Wiy2~M}(L!Ghb?fP<&Gv<%J@omgL!h4eJ}Kxri$i;d!iSd@54@^m*!yd=}~R8XvVGU6?nre|PKbbR`t<5B|2Rku{HZzy@I}2N- z&qH+vt=22NlB8|xfUpnr29yFfe68Ntq`l5{dh!F}5I*uG-0-shx#8>eB^VPoe1qO- zs)!$eb+wJU(MF!yiELN^)FV*e!7r-iy1Nbbtu^qIYPqUxFG5+O1c6 zkrClN!}jQEq^!mb+N&p`R@(Z7?bBzVc7s0G%TY_hlEe1vb*OEiFZ75gSxbk|VPOaK z(Wn&AL46@=MEIz%L;8Uzugv-^@JszJ1_#?cVU@bOt&B|qeWg!Foes+iJFKrk-2qkU zHB#jB?zv&rdhA1HIg(>64L+u)HfcuKkNOT%K4QSD`?JoY@fBQ6R zdVORj9B?9UKJ;htJToYV{z<&rl$_U1=5;91t4-$DP@-3x!g-u|c(YTR!tE%r*(00B zp~OazY>vwV^5Z>+Cty&#$2mM5CEnv4o{19g@l-woC0^sHyb!e*HYnxt64dG#1GEP9 zb)tvl@d{L3q5-Hhq%$V#1p5--h{`m#ahtkgCVq~h9yZomMU~1XFS>i%I zy0bt28PPR2OI^knb@tB_soR>RuH)66{U;$c@V92ETR8W3dRBb+b@}^P`*^b73yI$R zW{F?(LQ|r@J`naDU)L1V$aj2`sbcOPnH~NeZ$u63kPiy%DylB#BRUj-Tqt+XzRFRa zg!)4f$}_c;-^!U8ev}t_O&0N?iiaHKYf#DXJIqmDiAsTcdz3ez;>?^zyle!mO}SC6 zJR;{9DYHvG$|ssy>}oSMx#iKOXCgM`9p%r(-|w5?u^;6xV>NT&u^;6{sDDDG$M{<) zug3uSQH_&5yyC02!g;?JYR zs?Zt!ijY`X6w5+q_-hzE0WbMk{x(YNX*$bGP#P?))$&qQ5G<|L^7W{LDe!|4{}gpR z#Q^O>iK+k3d_PJ|{eR|FreI-F>@hmWk6}=3F*?UWsI?w-$ z5}T;b^Lr?Z*iA_`&`J<=-aP^n?P*gfx{U!c5O6-&Rm1m;FKB)$tjq-}!R}FkRQtZBJ;Lk~! zt@JWqfU$uV54p@2qefW_(7UMR*)NA*;j2+)*>gb~rOaBc@~<%__P<``-=hY4p%=Z% z&mdQ%(c`H*sF1q{c+=(%k$>UJt*)H@VGP$jYAHDEnVLwTI-zPD_KC^)4zf^WE?OYe7#L8wU!s)}cI;C)Tb*Oy|X=9zVT~O*e2rV*o0OTOuz1FH`1>M#LDf57C>rGSgfNtxb82j*1 z*i2|;1Iz>RU5~;qRMyr~aN4ka&>AU4dbyd>%UWy7N2-Qha`d*wJ|b_v*lO^o)qB9? zQu4yEgW-d${815HO6&;}v?10cR8PxUl431HbpSnP-G?IM4~7r5x(3Q}6)D3>sx=w) zN9+VL+**SgN~*#~Skseb&WAxGt+igHds0>S^4mCc$jWX6cf3S?L zjQgF8x3(D~RK&%5@T4`ylzb1Kw06aqcn>C8d)<%0doaTj4LX&!J4=RP/* Local Query */ - - ImporteIEPS - System.Decimal + + CveOrdenCompraDetalle + System.Int64 - - ImporteIVA - System.Decimal - - - PorcentajeIEPS - System.Decimal - - - PorcentajeIVA - System.Decimal + + CveOrdenCompra + System.Int64 Cantidad @@ -156,6 +148,10 @@ SATClaveUM System.String + + PorcentajeIVA + System.String + CodigoObjetoImpuesto System.String @@ -343,945 +339,159 @@ - - true - - - - - Tipo - - - - - - - Textbox3 - 0.90692in - 5.662in - 0.5cm - 2.24597in - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - Fecha y hora de emisión - - - - - - - - - - - - - - - - Textbox3 - 0.46414in - 5.662in - 0.5cm - 2.24597in - 1 - - - #4f81bd - 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 - - - - - Folio - - - - - - - Textbox3 - 0.0412cm - 5.662in - 0.5cm - 2.24597in - 3 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - VSH VIGILANCIA Y PROTECCION SA DE CV - - - - - - - - - R.F.C. VVP091222RF5|Reg. Fed. DGSP/122-10/1558|Reg. Est. - - - - =IIF(UCase(Parameters!Sucursal.Value.ToString) ="TIJUANA" or UCase(Parameters!Sucursal.Value.ToString) = "MEXICALI" , "SSP-01PM20120309140", "LSP-R-2010-M-271" ) - - - - - - - - - |www.vsh-seguridad.com|ventas@vsh-seguridad.com| - - - - 0cm - 0cm - - - - Textbox4 - 1.93416in - 0.66099in - 3.62386in - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - Logo - FitProportional - 0.30578cm - 0.03093cm - 2.88998cm - 4.56434cm - 5 - - - - - - true - - - - - =Parameters!Fecha.Value - - - - - - - Textbox3 - 0.66099in - 5.662in - 0.25114in - 2.24597in - 6 - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!Tipo.Value & Parameters!Ref.Value - - - - - - - Textbox3 - 1.10364in - 5.662in - 0.25635in - 2.24597in - 7 - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - Domicilio Fiscal - - - - - - - - - Calle Benito Juarez #32, Local 3, Col.: Hermosillo Centro C.P 83000 Hermosillo, Sonora, México Tel.:(662)210-64-00 - - - - - - - Textbox10 - 0.51102in - 1.93416in - 0.65513in - 1.79619in - 8 - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - Lugar de Expedición - - - - - - - - - =Parameters!DomicilioSucursal.Value - - - - - - - Textbox10 - 0.51102in - 3.77202in - 0.65513in - 1.786in - 9 - - - Top - - - - true - true - - - - - Nombre - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!ClienteNombre.Value - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Dirección - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!ClienteDireccion.Value - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Ciudad - - - - - - - #4f81bd - - 1.25pt - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!ClienteLugar.Value - - - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - + - + + External + =Parameters!QR.Value + FitProportional + 0.04167in + 1.37377in + 1.7524in + + + + + true + true true - P A G A R E con Folio + Sello Digital del CFDI: + + + + + + + + + + + + + + + + + + + + + - =Parameters!Serie.Value + VERSION - - + =Parameters!CFDIVersion.Value - - - =Parameters!Folio.Value - - - - Por éste pagare prometo (emos) pagar incondicionalmente a la orden de VSH Vigilancia y Proteccion, S.A de C.V, a su vencimiento el - - - - =Parameters!Vencimiento.Value - - - - , en Hermosillo, Sonora o en el domicilio señalado a elección del acreedor o tenedor la cantidad de $ - - - - =Parameters!Total.Value - - - - SON: ( - - - - =Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value) - - - - ). Valor recibido a mi (nuestra) entera satisfacción. la falta de pago de éste documento a su vencimiento dará derecho a VSH Vigilancia y Proteccion, S.A de C.V o tenedor, desde el día siguiente a cobrar el 10% mensual de interes moratorios hasta su total liquidación y los gastos judiciales que se ocasionen. Lugar y Fecha de Suscripción: Hermosillo, Sonora a - - - - =CDATE(Parameters!Fecha.Value).ToString("dd/MM/yyyy") - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Nombre: - - - - =Parameters!ClienteNombre.Value - - - - - - - =Parameters!ClienteDireccion.Value - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Acepto de conformidad - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - 1.25pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Area de Sello y Fecha Recepción - - - - - - - Textbox69 - 1.1706in - 2.94478in - 0.25in - 1.971in - 5 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Éste documento es una representación impresa de un CFDi - - - - - - 2pt - 2pt - 2pt - 2pt - - true - 20.98246cm - 0.01861cm - 7.22972cm - 20.05706cm - 16 - - = (Parameters!AplicaPagare.Value="0" ORelse Parameters!AplicaPagare.Value="") - + 6.32868in + 0.06752in + 1.42169in + 8.23953in - + - 1.50708cm + 0.54014in - 1.53472cm + 0.59111in - 1.63629cm + 0.80359in - 9.22751cm + 0.66404in - 2.19617cm + 2.11562in - 1.8977cm + 0.6863in - 2.0429cm + 0.69852in + + + 0.6403in + + + 0.67895in + + + 0.80447in - 0.52063cm + 0.19645in - + + true true - Cantidad + # Cant. - + + - #4f81bd + + + 2pt + + + + 2pt + + White 2pt 2pt 2pt @@ -1539,70 +596,38 @@ - + true true - UM + Unidad - - - - Textbox14 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Codigo - - - - + + - #4f81bd + + Black + + 2pt + + + Black + + 2pt + 2pt 2pt 2pt @@ -1613,17 +638,17 @@ - + + true true - Descripción + Clave Pr./Se @@ -1632,13 +657,21 @@ - Textbox79 + Textbox29 + - #4f81bd + + Black + + 2pt + + + Black + + 2pt + 2pt 2pt 2pt @@ -1656,11 +689,10 @@ - Obj. Imp. + Clave U. @@ -1672,10 +704,16 @@ Textbox2 + - #4f81bd + + + 2pt + + + + 2pt + 2pt 2pt 2pt @@ -1686,32 +724,40 @@ - + + true true - P. Unitario + Nombre - Textbox84 + Textbox17 + - #4f81bd + + Black + + 2pt + + + Black + + 2pt + 2pt 2pt 2pt @@ -1722,17 +768,105 @@ - + + true true - Importe + 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 + @@ -1740,27 +874,110 @@ Center + + Textbox21 + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + - + Descto. - - Textbox87 + Textbox23 + - #4f81bd + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + SubTotal + + + + + + + Textbox1 + + + + Black + + 2pt + + + Black + + 2pt + 2pt 2pt 2pt @@ -1772,12 +989,13 @@ - 0.4148cm + 0.16561in true + true true @@ -1785,8 +1003,10 @@ =Fields!Cantidad.Value @@ -1798,21 +1018,8 @@ Cantidad1 + - - - - - - - - #4f81bd - - - #4f81bd - 2pt 2pt 2pt @@ -1825,6 +1032,7 @@ true + true true @@ -1832,52 +1040,22 @@ =Fields!UM.Value - - - - - - - - - =Fields!SATClaveUM.Value - - - - UM + - - - - - - - - - - - #4f81bd - 2pt 2pt 2pt @@ -1890,6 +1068,7 @@ true + true true @@ -1897,7 +1076,9 @@ =Fields!SATClaveProdServ.Value @@ -1909,21 +1090,8 @@ SATClaveProdServ + - - - - - - - - - - - #4f81bd - 2pt 2pt 2pt @@ -1934,40 +1102,66 @@ - + true + true true - =Fields!PS.Value & " " & Fields!Obs.Value + =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 + + - - - - - - - - - - - #4f81bd - 2pt 2pt 2pt @@ -1987,31 +1181,22 @@ =Fields!CodigoObjetoImpuesto.Value - CodigoObjetoImpuesto + - - - - - - - - - - - #4f81bd - 2pt 2pt 2pt @@ -2024,6 +1209,7 @@ true + true true @@ -2031,20 +1217,19 @@ =Fields!PU.Value - + 2pt @@ -2057,17 +1242,21 @@ - + true + true true - =Fields!Cantidad.Value*Fields!PU.Value + =Fields!PorcentajeIVA.Value @@ -2076,63 +1265,11 @@ - Textbox88 - - - - - - - - - - #4f81bd - - - #4f81bd - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - - - - - 0.08406cm - - - - - true - true - - - - - - - - #4f81bd - - 2pt 2pt 2pt @@ -2143,29 +1280,34 @@ - + true + true true - - - - Textbox17 + Descuento1 - - #4f81bd - - 2pt 2pt 2pt @@ -2176,166 +1318,34 @@ - + true + true true - - - - Textbox36 + TiempoEntrega - - #4f81bd - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - #4f81bd - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - #4f81bd - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - #4f81bd - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - #4f81bd - - - - #4f81bd - - 1pt - 2pt 2pt 2pt @@ -2357,6 +1367,9 @@ + + + @@ -2365,742 +1378,53 @@ After - - - - Before + DsOC - 4.66273cm - 0.11469cm - 1.01949cm - 20.04237cm - 17 + 1.75278in + 0.09836in + 0.36206in + 8.22304in + 1 - + + true true - RFC: - - - - =Parameters!ClienteRFC.Value - - - - - + + + - - - - - - - - - + Black 2pt 2pt 2pt 2pt - - - - External - =Parameters!QR.Value - FitProportional - 0.06275in - 0.02693in - 1.31152in - 1.73765in - - - - - - true - true - - - - - Regímen: Regímen General de Ley Personas Morales; Condiciones de pago: - - - - =IIF(Parameters!CondicionPago.Value.ToString="","No Identificado",Parameters!CondicionPago.Value) - - - - ; Método de Pago: - - - - =IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value) - - - - ; Num. Cta Pago: - - - - =IIF(Parameters!NumCta.Value="0" Orelse Parameters!NumCta.Value="","No Identificado",Parameters!NumCta.Value) - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 9.32053cm - - - 5.68277cm - - - - - 0.4721cm - - - - - true - true - - - - - Folio Fiscal: - - - - - - - Textbox9 - - - - White - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!FolioFiscal.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.52062cm - - - - - true - true - - - - - No. Serie del Certificado del SAT: - - - - - - - Textbox24 - - - - White - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!SerieCertificadoSAT.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.49417cm - - - - - true - true - - - - - Fecha y Hora de certificación: - - - - - - - Textbox26 - - - - White - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!FechaCertificacion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.49417cm - - - - - true - true - - - - - Certificado del Contribuyente: - - - - - - - Textbox28 - - - - White - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!CertificadoContribuyente.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.46771cm - - - - - true - true - - - - - CFC - - - - CFDI RELACIONADOS - - - - - - - Textbox35 - - - White - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - 0.41479cm - - - - - true - true - - - - - Tipo Relación: - - - - - - - Textbox37 - - - - White - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!TipoRelacionTexto.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.46771cm - - - - - true - true - - - - - Folio Fiscal - - - - - - - Textbox39 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!FolioFiscalRelacionado.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - =IIF(Parameters!TipoRelacionTexto.Value = "" OR Parameters!FolioFiscalRelacionado.Value = "", True,False) - - - - - =IIF(Parameters!TipoRelacionTexto.Value = "" OR Parameters!FolioFiscalRelacionado.Value = "", True,False) - - - - - =IIF(Parameters!TipoRelacionTexto.Value = "" OR Parameters!FolioFiscalRelacionado.Value = "", True,False) - - - - - DataSet1 - 0.15938cm - 5.04053cm - 3.33127cm - 15.0033cm - 2 - - - - - - true - 13.17821cm - 0.04629cm - 4.44266cm - 20.04383cm - 19 - - - - true true @@ -3108,7 +1432,1138 @@ - =Parameters!ClienteDatoExtra1.Value + =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) + + + + + + + + + + + + - - - - - 3.15414cm - - - - - 0.6cm - - - - - true - true - - - - - =Fields!Importe.Value - - - - - - - Importe - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - - - - - 0.6cm - - - - - true - true - - - - - =Replace(Parameters!Moneda.Value,"Pesos","Peso mexicano") - - - - - - - Textbox47 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - =Fields!ImpuestoLocal.Value - - - - 2.52863cm - - - true - true - - - - - =Fields!ImpuestoLocal.Value - - - - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - - - - 2.52863cm - - - true - true - - - - - Moneda - - - - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - - Before - - - - DataSet1 - 5.84097cm - 14.47429cm - 1.2cm - 5.68277cm + + true + true + + + + + Precio Total: + + + + + + + Textbox19 + 5.27553in + 6.21617in + 0.17608in + 0.94607in 21 + 2pt + 2pt + 2pt + 2pt - - - - - - 3.33075cm - - - 10.99712cm - - - - - 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 - - #4f81bd - Middle - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - ="SON: " & Microsoft.VisualBasic.Strings.UCase(Replace(Parameters!ImporteLetra.Value,"M.N.","MXN")) - - - - - - - Textbox127 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - Método de pago: - - - - - - - Textbox130 - - - - - 1pt - - - - 1pt - - - - 1pt - - - - 1pt - - #4f81bd - Middle - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - =IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value) - - - - - - - Textbox131 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - Forma de pago: - - - - - - - Textbox23 - - - - - 1pt - - - - 1pt - - - - 1pt - - - - 1pt - - #4f81bd - Middle - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!FormaPago.Value - - - - - - - - - - - Textbox41 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.66668cm - - - - - true - true - - - - - Uso CFDI: - - - - - - - Textbox43 - - - - - 1pt - - - - 1pt - - - - 1pt - - - - 1pt - - #4f81bd - Middle - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!UsoCFDI.Value - - - - - - - Textbox44 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 1.8cm - - - - - true - true - - - - - Sello digital del CFDI: - - - - - - - Textbox132 - - - - - 1pt - - - - 1pt - - - - 1pt - - - - 1pt - - #4f81bd - 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 - - #4f81bd - 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 - - #4f81bd - Middle - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - 0.6cm - - - - - true - true - - - - - =Parameters!CadenaOriginal.Value - - - - - - - Textbox6 - - - - - - - - - - - - - - 1pt - - Middle - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - - - - - - - - - - - - - - - - - - - - - DsOC - 5.84097cm - 0.10736cm - 7.26668cm - 14.32787cm + + + 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 @@ -4131,7 +3431,7 @@ @@ -4142,15 +3442,15 @@ Textbox5 - 0.11382cm - 0.05336cm + 0.14926cm + 0.07193cm 0.54004cm - 20.00281cm + 20.7077cm - #4f81bd + Black 2pt 2pt 2pt @@ -4179,7 +3479,7 @@ Textbox29 0.83025cm - 4.33636cm + 4.78817cm 0.41981cm 5.31841cm 1 @@ -4193,7 +3493,7 @@ 2pt - + true true @@ -4212,7 +3512,7 @@ Textbox29 0.83025cm - 9.65477cm + 10.10658cm 0.41981cm 7.14985cm 2 @@ -4226,7 +3526,7 @@ 2pt - + @@ -4248,7 +3548,7 @@ - + true true @@ -4259,7 +3559,7 @@ @@ -4274,7 +3574,7 @@ - #4f81bd + Black 2pt 2pt 2pt @@ -4285,7 +3585,7 @@ - + true true @@ -4296,7 +3596,7 @@ @@ -4311,7 +3611,7 @@ - #4f81bd + Black 2pt 2pt 2pt @@ -4322,7 +3622,7 @@ - + true true @@ -4333,7 +3633,7 @@ @@ -4348,7 +3648,7 @@ - #4f81bd + Black 2pt 2pt 2pt @@ -4359,7 +3659,7 @@ - + true true @@ -4370,7 +3670,7 @@ @@ -4385,7 +3685,7 @@ - #4f81bd + Black 2pt 2pt 2pt @@ -4551,13 +3851,13 @@ After - + DataSet4 1.39643cm - 2.83462cm + 3.28643cm 0.85604cm 15.30142cm 3 @@ -4569,11 +3869,11 @@ true - 17.79725cm - 0.05538cm + 19.97297cm + 0.13424cm 2.25247cm - 20.1554cm - 23 + 20.89818cm + 41 =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) @@ -4583,26 +3883,92 @@ - + true true - VERSION + Acepto ajuste - =Parameters!CFDIVersion.Value + ____________________ + + + + + + + + 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. ** > + @@ -4611,12 +3977,12 @@ - Textbox5 - 20.12028cm - 16.52562cm - 0.65292cm - 3.68516cm - 24 + Textbox4 + 9.73684cm + 0.20617cm + 0.44183cm + 20.83436cm + 44 @@ -4627,103 +3993,109 @@ 2pt - - true - true - - - - - Reg.fiscal - - - - - - - #4f81bd - - 1.25pt - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!RegimenFiscalCodigo.Value - - - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - 28.21218cm + 25.75074cm + + + + + + + =Globals!ExecutionTime + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario Imprimio: + + + + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + true true @@ -4733,6 +4105,7 @@ ="Página " & Globals.PageNumber & " de " & Globals.TotalPages @@ -4742,11 +4115,12 @@ - Textbox3 - 0.10583cm - 16.30721cm - 0.6cm - 3.95896cm + Textbox35 + 0.00882cm + 18.54098cm + 0.50624cm + 2.5cm + 2 @@ -4766,9 +4140,9 @@ 27.94cm 21.59cm - 0.5cm - 0.5cm - 1cm + 0cm + 0cm + 0.5cm 0.5cm 1.27cm + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.84237cm + 0.15558cm + 0cm + 19.84166cm + 1 + + + + + + + + + 5.28731cm + + + 3.31895cm + + + 3.00271cm + + + 2.76458cm + + + 2.31105cm + + + 2.5cm + + + + + 0.6cm + + + + + true + true + + + + + Proveedor + + + + + + + Textbox3 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Banco Nombre + + + + + + + Textbox5 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cuenta + + + + + + + Textbox13 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CLABE + + + + + + + Textbox15 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CIE + + + + + + + Textbox17 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Referencia + + + + + + + Textbox19 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.57354cm + + + + + true + true + + + + + =Fields!RazonSocial.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!BancoNombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cuenta.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!CLABE.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!CIE.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Referencia.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 1.01876cm + 0.15558cm + 1.17354cm + 19.18461cm + 2 + + + + + + 0.86311in + + + + + + + Textbox1 + 0.18521cm + 3.21468cm + 0.6cm + 14.02238cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE CUENTAS BANCARIAS DE PROVEEDOR + + + + + + + Textbox2 + 1.10271cm + 3.21468cm + 0.52945cm + 14.02238cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.76376cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 17.90491cm + 0.68085cm + 2.09233cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + Textbox10 + 0.08291cm + 8.20622cm + 0.68085cm + 2.92333cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox11 + 0.08291cm + 11.11544cm + 0.68085cm + 4.32745cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.25cm + 0.25cm + 1cm + 1cm + 0.13cm +