From 6ca85600645667b70680bf53037abce1f6cb280e Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 21 Dec 2020 10:54:06 -0700 Subject: [PATCH 01/13] Validacion de nc --- Ventas/Ventas.aspx | 19 +++++++------- Ventas/Ventas.aspx.vb | 61 ++++++++++++++++++++++++++++++++++++++----- 2 files changed, 63 insertions(+), 17 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 06fa7fab1..940dd9a15 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -7220,7 +7220,7 @@ if (Chk.checked) { let SaldoMaximoUtilizable = ToDouble(HdnSaldoMaximoUsados.value) let ImportesAsignados = 0; - + $('.ImportesRNCCargo').each(function () { if ($(this).context.id != TxtImporte.id) { ImportesAsignados += ToDouble($(this).val()); @@ -7235,16 +7235,15 @@ TxtImporte.value = FormatoNumero(Saldo, 2); } } else { - TxtImporte.value = ""; - Chk.checked = false; - //if (SaldoMaximoUtilizable > 0) { - // TxtImporte.value = ""; - // Chk.checked = false; - //} else { - // TxtImporte.value = FormatoNumero(Saldo, 2); - //} - } + if (SaldoMaximoUtilizable > 0) { + TxtImporte.value = ""; + Chk.checked = false; + } else { + TxtImporte.value = FormatoNumero(Saldo, 2); + } + } + } else { TxtImporte.value = ""; } diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 69d5f99cf..8515d295b 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -10078,6 +10078,11 @@ Partial Class Ventas tPS = String.Format("{0} {1}", drr("PS"), drr("Obs")) End If End If + + If tPS.Length > 1000 Then + tPS = tPS.Remove(999, tPS.Length - 1) + End If + 'condicionante, especial If UsuarioActual.CveEmpresa = 15 Then drr("UM") = "" ' les comentan que no debe de ir la etiqueta de "unidad" en el producto @@ -16395,10 +16400,10 @@ Partial Class Ventas Return False End If - If (Obs.Length + PS.Length > 1000) AndAlso DdlTipoComprobante.SelectedValue <> "Cot" Then - Alert(String.Format("El Nombre y observación del producto tiene longitud de {0} caracteres y excede los 1000 caracteres permitidos.", Obs.Length + PS.Length), TipoMensaje.MsgAdvertencia) - Return False - End If + 'If (Obs.Length + PS.Length > 1000) AndAlso DdlTipoComprobante.SelectedValue <> "Cot" Then + ' Alert(String.Format("El Nombre y observación del producto tiene longitud de {0} caracteres y excede los 1000 caracteres permitidos.", Obs.Length + PS.Length), TipoMensaje.MsgAdvertencia) + ' Return False + 'End If 'VALIDA CONCEPTOS EN CERO - YA SE VALIDA ANTES CON FUNCIONALIDAD - A MIRAS DE ELIMINAR - IPP 28 AGOSTO 2017 If Not DdlTipoComprobante.SelectedValue.Contiene("Ped", "Ant") Then @@ -24888,6 +24893,7 @@ Partial Class Ventas For Each RNC In ListaNC Dim UltimoRenglonRNC As Integer = 1 Dim TotalAcumuladoRNC As Decimal = 0 + Dim Terminar As Boolean = False For Each RowUsado As DataRow In Me.TmpDTRNCDetalleSelecciondas.FiltraParametros($"CveVenta={RNC.CveVenta}").Rows @@ -24911,8 +24917,32 @@ Partial Class Ventas TotalAcumuladoRNC += (TotalCalculableImpuestos + ImporteIVA) + + 'SI EL IMPORTE ES MAYOR REALIZA EL AJUSTE + If TotalAcumuladoRNC > RNC.TotalRemNCAplicado Then + Terminar = True + 'RESTA LO SUMANDO DEL ACUMULADO + TotalAcumuladoRNC -= (TotalCalculableImpuestos + ImporteIVA + ImporteIEPS - ImporteRetIVA - ImporteRetISR) + + Dim Diferencia As Decimal = RNC.TotalRemNCAplicado - TotalAcumuladoRNC + + Dim TotalPartida As Decimal = (TotalCalculableImpuestos + ImporteIVA + ImporteIEPS - ImporteRetIVA - ImporteRetISR) + + Dim PorcentajePorAplicar As Decimal = (Diferencia / TotalPartida) + + Cantidad = Cantidad * PorcentajePorAplicar + + TotalCalculableImpuestos = (Cantidad * ImportePU) + ImporteIVA = (TotalCalculableImpuestos * RowUsado("PorcentajeIVA").ToString().ToDecimal).RoundSQL(2) + + + ImporteTotal = TotalCalculableImpuestos + + TotalAcumuladoRNC += (TotalCalculableImpuestos + ImporteIVA + ImporteIEPS - ImporteRetIVA - ImporteRetISR) + End If + 'SI ES EL ULTIMO REGLON REALIZA UN AJUSTE - If UltimoRenglonRNC = RNC.DtDetalle.Rows.Count Then + If UltimoRenglonRNC = Me.TmpDTRNCDetalleSelecciondas.FiltraParametros($"CveVenta={RNC.CveVenta}").Rows.Count OrElse Terminar Then Dim Ajuste As Decimal = 0 If Math.Abs(RNC.TotalRemNCAplicado - TotalAcumuladoRNC) > 0.00 Then Ajuste = RNC.TotalRemNCAplicado - TotalAcumuladoRNC @@ -24927,6 +24957,10 @@ Partial Class Ventas Obs, Cantidad, ImportePU, RowUsado("PorcentajeIVA").ToString().ToDecimal, ImporteIVA, 0, ImporteRetIVA, 0, ImporteRetISR, 0, ImporteIEPS, -1, 0.0, ImporteTotal, "", "", -1, -1, DrPS("SATClavePS").ToString(), DrPS("SATClaveUnidadMedida").ToString(), -1, -1, -1, -1, -1, -1, CveVentaDetalleRNC:=RowUsado("CveVentaDetalleRNC").ToString().ToEntero()) + + If Terminar Then + Exit For + End If Next Next @@ -28043,7 +28077,7 @@ Partial Class Ventas End Select If ChkMostarProductosRNC.Checked Then - + Dim TotalAcumulado As Decimal = 0 Me.AplicaRNCXDetalle = True For Each GvRow As GridViewRow In GvRemisionesNCDetalle.Rows @@ -28051,12 +28085,13 @@ Partial Class Ventas If GvRow.FCCheckBox("ChkAplicar").Checked Then Dim Rows = TmpDTRNCDetalle.Select($"CveVentaDetalleRNC = {GvRow.DataKey("CveVentaDetalleRNC").ToEntero()}") For Each row In Rows - row("Cantidad") = GvRow.FCTextBox("TxtCantidadRNC").Text.ToEntero() + row("Cantidad") = GvRow.FCTextBox("TxtCantidadRNC").Text.ToDecimal() TmpDTRNCDetalleSelecciondas.Rows.Add(row.ItemArray) Next End If End If Next + Dim TerminarCiclo As Boolean = False For Each Dr As DataRow In TmpDTRNCDetalleSelecciondas.FiltraParametros("", DistinctColumns:={"CveVenta"}).Rows Dim RemNC As New Modelos.Factura(UsuarioActual, Dr("CveVenta").ToString().ToEntero(), UsuarioActual.CveEmpresa) @@ -28082,6 +28117,14 @@ Partial Class Ventas End If Next + TotalAcumulado += TotalRNC + + 'SI SE EXECE RESTA AL ULTIMO + If TotalAcumulado > LtlSMU.Text.ToDecimal() Then + TerminarCiclo = True + TotalAcumulado -= TotalRNC + TotalRNC = LtlSMU.Text.ToDecimal() - TotalAcumulado + End If RemNC.TotalRemNCAplicado = TotalRNC 'MARCA LA VENTA QUE FUE USADA PARA EL FILTRO @@ -28095,6 +28138,10 @@ Partial Class Ventas End If ListaRemisionesNC.Add(RemNC) + + If TerminarCiclo Then + Exit For + End If Next Else From 523b27d4b26766c48d4209dea9a7a64ab72f6433 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 21 Dec 2020 10:54:19 -0700 Subject: [PATCH 02/13] Funcionalidad de verificacion ante el sat --- App_Code/Modelos.vb | 116 ++++++++++++++++++++++++------------------- App_Code/Timbrado.vb | 16 +++--- 2 files changed, 75 insertions(+), 57 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 1dead2777..732c68020 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -4407,63 +4407,79 @@ Namespace Modelos If ObjFactura.FolioFiscal <> "" Then If ObjFactura.TipoDocto.Contiene("Ing", "Ant", "Dev", "Egs") Then - Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, TotalT.ToString(), UsuarioActual.Empresa.FacturaProduccion) + 'VERIFICA SI DEBE VALIDAR ANTE EL SAT + If Not (UsuarioActual.Empresa.Funcionalidad(529) = "1") Then - If Vigencia IsNot Nothing Then - If Vigencia.EsCancelable.ToUpper() = "NO CANCELABLE" Then - Retorno.Mensaje = "Esta factura no es cancelable." + Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, TotalT.ToString(), UsuarioActual.Empresa.FacturaProduccion) + + If Vigencia IsNot Nothing Then + If Vigencia.EsCancelable.ToUpper() = "NO CANCELABLE" Then + Retorno.Mensaje = "Esta factura no es cancelable." + Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia + + Return Retorno + End If + If Vigencia.Estado.ToUpper().Contains("CANCELADO") Then + ContinuarCancelacion = False + ObtenerAcuse = True + Dim solicitud = New WSGF.Service1SoapClient() + Dim acuse = solicitud.GetAcuse(UsuarioActual.Empresa.RFC, "rene.molina@adsistemas.mx", "rene2018", FolioFiscal) + + If acuse.Estado = 0 Then + Dim xmlAcuse = New System.Xml.XmlDocument() + xmlAcuse.LoadXml(DecodeBase64(acuse.CfdiB64)) + CancelacionAcuse = xmlAcuse.GetElementsByTagName("SignatureValue")(0).InnerText + CancelacionFecha = xmlAcuse.SelectSingleNode("Acuse").Attributes("Fecha").Value.ToDate() + CveEstatus = 5 + Else + CancelacionFecha = Now.Date + CancelacionAcuse = "" + CveEstatus = 5 + End If + + ElseIf Vigencia.Estado.ToUpper().Contains("VIGENTE") Then + + If Vigencia.EstatusCancelacion.ToUpper() = "EN PROCESO" Then + CveEstatus = 20 + ContinuarCancelacion = False + ElseIf Vigencia.EsCancelable.ToUpper() = "CANCELABLE CON ACEPTACIÓN" Then + CveEstatus = 20 + ContinuarCancelacion = True + RequiereAceptacion = True + ElseIf Vigencia.EsCancelable.ToUpper() = "CANCELABLE SIN ACEPTACIÓN" Then + ContinuarCancelacion = True + CveEstatus = 5 + End If + + Else + If Vigencia.EsCancelable.ToUpper() = "CANCELABLE SIN ACEPTACIÓN" Then + ContinuarCancelacion = True + CveEstatus = 5 + Else + CveEstatus = 20 + ContinuarCancelacion = False + CancelacionFecha = Now.Date + CancelacionAcuse = "" + End If + End If + Else + Retorno.Mensaje = "SAT - No se pudo verificar el estatus de la factura." Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia Return Retorno End If - If Vigencia.Estado.ToUpper().Contains("CANCELADO") Then - ContinuarCancelacion = False - ObtenerAcuse = True - Dim solicitud = New WSGF.Service1SoapClient() - Dim acuse = solicitud.GetAcuse(UsuarioActual.Empresa.RFC, "rene.molina@adsistemas.mx", "rene2018", FolioFiscal) - - If acuse.Estado = 0 Then - Dim xmlAcuse = New System.Xml.XmlDocument() - xmlAcuse.LoadXml(DecodeBase64(acuse.CfdiB64)) - CancelacionAcuse = xmlAcuse.GetElementsByTagName("SignatureValue")(0).InnerText - CancelacionFecha = xmlAcuse.SelectSingleNode("Acuse").Attributes("Fecha").Value.ToDate() - CveEstatus = 5 - Else - CancelacionFecha = Now.Date - CancelacionAcuse = "" - CveEstatus = 5 - End If - - ElseIf Vigencia.Estado.ToUpper().Contains("VIGENTE") Then - - If Vigencia.EstatusCancelacion.ToUpper() = "EN PROCESO" Then - CveEstatus = 20 - ContinuarCancelacion = False - ElseIf Vigencia.EsCancelable.ToUpper() = "CANCELABLE CON ACEPTACIÓN" Then - CveEstatus = 20 - ContinuarCancelacion = True - RequiereAceptacion = True - ElseIf Vigencia.EsCancelable.ToUpper() = "CANCELABLE SIN ACEPTACIÓN" Then - ContinuarCancelacion = True - CveEstatus = 5 - End If - - Else - If Vigencia.EsCancelable.ToUpper() = "CANCELABLE SIN ACEPTACIÓN" Then - ContinuarCancelacion = True - CveEstatus = 5 - Else - CveEstatus = 20 - ContinuarCancelacion = False - CancelacionFecha = Now.Date - CancelacionAcuse = "" - End If - End If Else - Retorno.Mensaje = "SAT - No se pudo verificar el estatus de la factura." - Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia + ObtenerAcuse = False + ContinuarCancelacion = True + CancelacionFecha = Now.Date + CancelacionAcuse = "" + + Dim diasTimbrado As Decimal = DateDiff(DateInterval.Day, ObjFactura.FechaCP, Now) + + If ObjFactura.Total < 5000D OrElse diasTimbrado <= 3 OrElse ObjFactura.Cliente.RFC.Contiene("XAXX010101000", "XEXX010101000") Then + RequiereAceptacion = False + End If - Return Retorno End If If Not ObtenerAcuse Then diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index e4cda96bc..d4788ee22 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -59,18 +59,20 @@ Public Class Timbrado Public Function CFDICancelar(Empresa As Empresa, FolioFiscal As String, Total As Decimal, RFCReceptor As String, RFCEmisor As String, Optional CvePACCancelacion As Integer = 2, Optional ValidaFactura As Boolean = True) As Boolean Dim Retorno As Boolean = False Dim MsgCancelacion As New StringBuilder - If ValidaFactura Then - Dim Vigencia = VerificarVigenciaSAT(FolioFiscal, RFCEmisor, RFCReceptor, Total.ToString(), True) - If Vigencia IsNot Nothing Then - If Vigencia.EsCancelable.ToUpper() = "NO CANCELABLE" Then + + If Not (Empresa.Funcionalidad(529) = "1") Then + If ValidaFactura Then + Dim Vigencia = VerificarVigenciaSAT(FolioFiscal, RFCEmisor, RFCReceptor, Total.ToString(), True) + If Vigencia IsNot Nothing Then + If Vigencia.EsCancelable.ToUpper() = "NO CANCELABLE" Then + Return False + End If + Else Return False End If - Else - Return False End If End If - MsgCancelacion.AppendFormat("CvePAC:{0}", CvePACCancelacion) Select Case CvePACCancelacion From edd4aa61be2fadece0ba5bcd9e1bed3ccd0431bd Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 21 Dec 2020 10:54:52 -0700 Subject: [PATCH 03/13] Filtro de acreditamiento --- Ventas/Clientes.aspx | 1 + 1 file changed, 1 insertion(+) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 2f20bd2b4..e64276495 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -4257,6 +4257,7 @@ + From 2f585049c93258338a134764f31079556dd8c4f2 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Mon, 21 Dec 2020 14:39:18 -0700 Subject: [PATCH 04/13] --- vwd.webinfo | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/vwd.webinfo b/vwd.webinfo index 6f5921d9b..3de4958f8 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -150,6 +150,10 @@ + + + + From 7087335653cc40abe1a36ef20a275eb99649d642 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Tue, 22 Dec 2020 15:47:18 -0700 Subject: [PATCH 05/13] facturas --- Empresas/119/Formatos/NotaDevolucion.rdlc | 72 +++++++++++------------ Empresas/140/Formatos/Factura.rdlc | 2 +- 2 files changed, 37 insertions(+), 37 deletions(-) diff --git a/Empresas/119/Formatos/NotaDevolucion.rdlc b/Empresas/119/Formatos/NotaDevolucion.rdlc index 01485fb10..c1f00da0f 100644 --- a/Empresas/119/Formatos/NotaDevolucion.rdlc +++ b/Empresas/119/Formatos/NotaDevolucion.rdlc @@ -3,40 +3,6 @@ - - - true - true - - - - - =Parameters!TipoRelacionTexto.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - true 5.67653in 0.06096in @@ -2377,6 +2343,39 @@ 2pt + + true + true + + + + + =Parameters!TipoRelacionTexto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + true true @@ -2403,7 +2402,7 @@ 0.21692cm 0.54004cm 20.7077cm - 17 + 18 @@ -2440,7 +2439,7 @@ 17.56899cm 0.6cm 3.32021cm - 18 + 19 @@ -2623,6 +2622,7 @@ c220a38d-e45b-4e04-917e-7dfd9cc3345f + diff --git a/Empresas/140/Formatos/Factura.rdlc b/Empresas/140/Formatos/Factura.rdlc index 2ad22df67..c2e5f7e8d 100644 --- a/Empresas/140/Formatos/Factura.rdlc +++ b/Empresas/140/Formatos/Factura.rdlc @@ -2204,7 +2204,7 @@ - =Fields!Cantidad.Value * Fields!PU.Value + =(Fields!Cantidad.Value * Fields!PU.Value) - Fields!Descuento.Value - - - - - - Textbox3 - 2.44856cm - 0.2667cm - 0.6cm - 18.82013cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - VSH VIGILANCIA Y PROTECCION SA DE CV - - - - - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - VSH - FitProportional - 0.35576cm - 0.2667cm - 2.02224cm - 3.36239cm - 2 - - - - - - true - true - - - - - PROVEEDOR: - - - - =Parameters!ProveedorNombre.Value - - - - - - - =Parameters!ProveedorDireccion.Value - - - - - - - =Parameters!ProveedorTel.Value - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - FECHA DE REGISTRO: - - - - =Parameters!FechaSolicitud.Value - - - - - - - =Parameters!FechaEntrega.Value - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - - - - true - true - - - - - DESCRIPCION: - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Justificacion.Value - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - - =Parameters!Folio.Value - - - - - - - Textbox2 - 0.35576cm - 17.81988cm - 0.6cm - 1.75917cm - 7 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - No. - - - - - - - Textbox19 - 0.35576cm - 16.43113cm - 0.6cm - 1.38875cm - 8 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 1.97712cm - - - 1.53649cm - - - 4.25385cm - - - 4.73296cm - - - 2.24377cm - - - 1.01139cm - - - 2.00619cm - - - 1.75917cm - - - - - 0.473cm - - - - - true - true - - - - - CANTIDAD - - - - - - - Textbox1 - - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - CODIGO - - - - - - - Textbox7 - - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - PRODUCTO - - - - - - - Textbox9 - - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - D E S C R I P C I O N - - - - - - - Textbox9 - - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Sub Proyecto - - - - - - - Textbox4 - - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - A.F. - - - - - - - Textbox21 - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - P. UNITARIO - - - - - - - Textbox13 - - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - IMPORTE - - - - - - - Textbox5 - - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.38833cm - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad1 - - - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =Fields!CodPS.Value - - - - - - - CodPS - - - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =Fields!Producto.Value - - - - - - - Producto - - - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =Fields!Obs.Value - - - - - - - Obs - - - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =Fields!SubProyecto.Value - - - - - - - SubProyecto - - - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =Fields!CodigoAF.Value - - - - - - - CodigoAF - - - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =Fields!Importe.Value - - - - - - - Importe - - - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =Fields!Total.Value - - - - - - - Total - - - 2pt - 2pt - 1pt - - - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DsOC - 7.26722cm - 0.02288in - 0.86133cm - 19.52094cm - 9 - - - - - - true - true - - - - - =IIF(CInt(Parameters!TipoTermino.Value)=2, "C A N C E L A D O", "") - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Uso CFDI 3.3: - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UsoCFDI.Value - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 3.23147in - - - - - - true - true - - - - - NOTAS: RECEPCION DE FACTURAS VIERNES UNICAMENTE NO SE RECIBIRA SU FACTURA SIN ESTA ORDEN DE COMPRA - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =UCase(Parameters!ImporteLetra.Value) - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - _______________ - - - - - - - Textbox17 - 2.70608cm - 0.48139cm - 1.30584cm - 3.1477cm - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - = "__________________________________" & Chr(10) - & Parameters!NombreAutorizo.Value & Chr(10) - & "FIRMA AUTORIZADA" - - - - - Textbox17 - 2.70608cm - 5.12961cm - 1.30584cm - 6.9577cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Banco - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Cuenta/Clabe bancaria/Referencia - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - I.V.A. - - - - - - - Textbox20 - 1.62008cm - 14.6301cm - 0.45183cm - 2.5cm - 7 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - DESCUENTO: - - - - - - - Textbox20 - 0.71938cm - 14.63363cm - 0.45183cm - 2.5cm - 8 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!IVA.Value - - - - - - - Textbox20 - 1.62008cm - 17.1301cm - 0.45183cm - 2.5cm - 9 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Descuento.Value - - - - - - - Textbox20 - 0.71938cm - 17.13363cm - 0.45183cm - 2.5cm - 10 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - SUB-TOTAL - - - - - - - Textbox20 - 0.26755cm - 14.63363cm - 0.45183cm - 2.5cm - 11 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!SubTotal.Value - - - - - - - Textbox20 - 0.26755cm - 17.13363cm - 0.45183cm - 2.5cm - 12 - - - 2pt - 2pt - 2pt - 2pt - - - - - - true - true - - - - - TOTAL - - - - - - - Textbox20 - 0.02173cm - 0.45183cm - 2.5cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Total.Value - - - - - - - Textbox20 - 0.05181cm - 2.5cm - 0.45183cm - 2.5cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - 2.07191cm - 14.63363cm - 0.50364cm - 5cm - 13 - - =Microsoft.VisualBasic.Interaction.iif(Parameters!RetIVA.Value <= 0 And Parameters!RetISR.Value <= 0, False, True) - - - - - - - - - true - true - - - - - Ret IVA - - - - - - - Textbox20 - 0.0247cm - 0.45183cm - 2.5cm - - =Microsoft.VisualBasic.Interaction.iif(Parameters!RetIVA.Value > 0, False, True) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!RetIVA.Value - - - - - - - Textbox20 - 2.5cm - 0.45183cm - 2.5cm - 1 - - =Microsoft.VisualBasic.Interaction.iif(Parameters!RetIVA.Value > 0, False, True) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!RetISR.Value - - - - - - - Textbox20 - 0.48711cm - 2.50353cm - 0.45183cm - 2.5cm - 2 - - =Microsoft.VisualBasic.Interaction.iif(Parameters!RetISR.Value > 0, False, True) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Ret ISR - - - - - - - Textbox20 - 0.51181cm - 0.01059cm - 0.45183cm - 2.5cm - 3 - - =Microsoft.VisualBasic.Interaction.iif(Parameters!RetISR.Value > 0, False, True) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - TOTAL - - - - - - - Textbox20 - 0.94193cm - 0.00353cm - 0.45183cm - 2.5cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Total.Value - - - - - - - Textbox20 - 0.94193cm - 2.50353cm - 0.45183cm - 2.5cm - 5 - - - 2pt - 2pt - 2pt - 2pt - - - - true - 2.61082cm - 14.62657cm - 1.39376cm - 5.00353cm - 14 - - =Microsoft.VisualBasic.Interaction.iif(Parameters!RetIVA.Value > 0 Or Parameters!RetISR.Value > 0, False, True) - - - - - - - External - =Parameters!FirmaAutorizo.Value - Fit - 0.82196cm - 6.69573cm - 3.09107cm - 3.55292cm - 15 - - =iif(Parameters!FirmaAutorizo.Value <> "",False,True) - - - - - - - true - true - - - - - SUB-TOTAL 2 - - - - - - - Textbox20 - 1.13297cm - 14.63716cm - 0.45183cm - 2.5cm - 16 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!SubTotal2.Value - - - - - - - Textbox20 - 1.13297cm - 17.13716cm - 0.45183cm - 2.5cm - 17 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - - - =Today - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 27.94cm - 21.59cm - 1cm - 0cm - 1cm - 1cm - 0.13cm - + + + + + + Textbox3 + 2.44856cm + 0.2667cm + 0.6cm + 18.82013cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + VSH VIGILANCIA Y PROTECCION SA DE CV + + + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + VSH + FitProportional + 0.35576cm + 0.2667cm + 2.02224cm + 3.36239cm + 2 + + + + + + true + true + + + + + PROVEEDOR: + + + + =Parameters!ProveedorNombre.Value + + + + + + + =Parameters!ProveedorDireccion.Value + + + + + + + =Parameters!ProveedorTel.Value + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + FECHA DE REGISTRO: + + + + =Parameters!FechaSolicitud.Value + + + + + + + =Parameters!FechaEntrega.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + + + + true + true + + + + + DESCRIPCION: + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Descripcion.Value + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + + =Parameters!Folio.Value + + + + + + + Textbox2 + 0.35576cm + 17.81988cm + 0.6cm + 1.75917cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + No. + + + + + + + Textbox19 + 0.35576cm + 16.43113cm + 0.6cm + 1.38875cm + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 1.97712cm + + + 1.53649cm + + + 4.25385cm + + + 4.73296cm + + + 2.24377cm + + + 1.01139cm + + + 2.00619cm + + + 1.75917cm + + + + + 0.473cm + + + + + true + true + + + + + CANTIDAD + + + + + + + Textbox1 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CODIGO + + + + + + + Textbox7 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + PRODUCTO + + + + + + + Textbox9 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + D E S C R I P C I O N + + + + + + + Textbox9 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Sub Proyecto + + + + + + + Textbox4 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + A.F. + + + + + + + Textbox21 + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + P. UNITARIO + + + + + + + Textbox13 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + IMPORTE + + + + + + + Textbox5 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.38833cm + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad1 + + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!CodPS.Value + + + + + + + CodPS + + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!Producto.Value + + + + + + + Producto + + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!Obs.Value + + + + + + + Obs + + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!SubProyecto.Value + + + + + + + SubProyecto + + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!CodigoAF.Value + + + + + + + CodigoAF + + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe + + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!Total.Value + + + + + + + Total + + + 2pt + 2pt + 1pt + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DsOC + 7.26722cm + 0.02288in + 0.86133cm + 19.52094cm + 9 + + + + + + true + true + + + + + =IIF(CInt(Parameters!TipoTermino.Value)=2, "C A N C E L A D O", "") + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Uso CFDI 3.3: + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsoCFDI.Value + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 3.23147in + + + + + + true + true + + + + + NOTAS: RECEPCION DE FACTURAS VIERNES UNICAMENTE NO SE RECIBIRA SU FACTURA SIN ESTA ORDEN DE COMPRA + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =UCase(Parameters!ImporteLetra.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + _______________ + + + + + + + Textbox17 + 2.70608cm + 0.48139cm + 1.30584cm + 3.1477cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + = "__________________________________" & Chr(10) + & Parameters!NombreAutorizo.Value & Chr(10) + & "FIRMA AUTORIZADA" + + + + + Textbox17 + 2.70608cm + 5.12961cm + 1.30584cm + 6.9577cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Banco + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Cuenta/Clabe bancaria/Referencia + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + I.V.A. + + + + + + + Textbox20 + 1.62008cm + 14.6301cm + 0.45183cm + 2.5cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + DESCUENTO: + + + + + + + Textbox20 + 0.71938cm + 14.63363cm + 0.45183cm + 2.5cm + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!IVA.Value + + + + + + + Textbox20 + 1.62008cm + 17.1301cm + 0.45183cm + 2.5cm + 9 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Descuento.Value + + + + + + + Textbox20 + 0.71938cm + 17.13363cm + 0.45183cm + 2.5cm + 10 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + SUB-TOTAL + + + + + + + Textbox20 + 0.26755cm + 14.63363cm + 0.45183cm + 2.5cm + 11 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SubTotal.Value + + + + + + + Textbox20 + 0.26755cm + 17.13363cm + 0.45183cm + 2.5cm + 12 + + + 2pt + 2pt + 2pt + 2pt + + + + + + true + true + + + + + TOTAL + + + + + + + Textbox20 + 0.02173cm + 0.45183cm + 2.5cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Total.Value + + + + + + + Textbox20 + 0.05181cm + 2.5cm + 0.45183cm + 2.5cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + 2.07191cm + 14.63363cm + 0.50364cm + 5cm + 13 + + =Microsoft.VisualBasic.Interaction.iif(Parameters!RetIVA.Value <= 0 And Parameters!RetISR.Value <= 0, False, True) + + + + + + + + + true + true + + + + + Ret IVA + + + + + + + Textbox20 + 0.0247cm + 0.45183cm + 2.5cm + + =Microsoft.VisualBasic.Interaction.iif(Parameters!RetIVA.Value > 0, False, True) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!RetIVA.Value + + + + + + + Textbox20 + 2.5cm + 0.45183cm + 2.5cm + 1 + + =Microsoft.VisualBasic.Interaction.iif(Parameters!RetIVA.Value > 0, False, True) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!RetISR.Value + + + + + + + Textbox20 + 0.48711cm + 2.50353cm + 0.45183cm + 2.5cm + 2 + + =Microsoft.VisualBasic.Interaction.iif(Parameters!RetISR.Value > 0, False, True) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Ret ISR + + + + + + + Textbox20 + 0.51181cm + 0.01059cm + 0.45183cm + 2.5cm + 3 + + =Microsoft.VisualBasic.Interaction.iif(Parameters!RetISR.Value > 0, False, True) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + TOTAL + + + + + + + Textbox20 + 0.94193cm + 0.00353cm + 0.45183cm + 2.5cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Total.Value + + + + + + + Textbox20 + 0.94193cm + 2.50353cm + 0.45183cm + 2.5cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + 2.61082cm + 14.62657cm + 1.39376cm + 5.00353cm + 14 + + =Microsoft.VisualBasic.Interaction.iif(Parameters!RetIVA.Value > 0 Or Parameters!RetISR.Value > 0, False, True) + + + + + + + External + =Parameters!FirmaAutorizo.Value + Fit + 0.82196cm + 6.69573cm + 3.09107cm + 3.55292cm + 15 + + =iif(Parameters!FirmaAutorizo.Value <> "",False,True) + + + + + + + true + true + + + + + SUB-TOTAL 2 + + + + + + + Textbox20 + 1.13297cm + 14.63716cm + 0.45183cm + 2.5cm + 16 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SubTotal2.Value + + + + + + + Textbox20 + 1.13297cm + 17.13716cm + 0.45183cm + 2.5cm + 17 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + + =Today + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 1cm + 0cm + 1cm + 1cm + 0.13cm +