From 62c46183f5713bd11326bf5c306d479e8e1ccb5c Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 8 Jun 2022 06:46:15 -0700 Subject: [PATCH 1/5] =?UTF-8?q?--=20actualizaci=C3=B3n=20precios=20jun22?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inicio.aspx | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/Inicio.aspx b/Inicio.aspx index f4aa36e37..1beef0b6d 100644 --- a/Inicio.aspx +++ b/Inicio.aspx @@ -618,6 +618,20 @@ + +
+
+
+ ALCALINAS PISOS + +
+
+
+
+ ALCALINAS MAYOREO + +
+
From 8bd82a0b46f9c5977063efedc6507d68c4ce405a Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 9 Jun 2022 10:15:35 -0700 Subject: [PATCH 2/5] =?UTF-8?q?--=20consideraci=C3=B3n=20de=20ret=20iva.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx.vb | 256 ++---------------------------------------- 1 file changed, 7 insertions(+), 249 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 558d8b7a5..2afd68348 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -18360,6 +18360,10 @@ Partial Class Ventas Dim ClienteRetIVA = Me.ClienteRetIVA + If ClienteRetIVA <= 0 AndAlso DrPS("RetIVA").ToString.ToDecimal > 0 Then + ClienteRetIVA = DrPS("RetIVA").ToString.ToDecimal + DdlTipoRetencion.Enabled = True + End If If ClienteRetIVA <= 0 Then If CBool(DrPS("EsOutSourcing").ToString()) Then @@ -18381,8 +18385,6 @@ Partial Class Ventas Row("ImporteIVA") = (Row("PorcentajeIVA").ToString().ToDecimal * TotalCalculableImpuestosIVA).RoundSQL(NumeroDecimales) Row("ImporteRetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundSQL(NumeroDecimales) - - Row("RetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundSQL(NumeroDecimales) Row("ImporteRetISR") = (ClienteRetISR * TotalCalculableImpuestos).RoundSQL(NumeroDecimales) @@ -18556,253 +18558,9 @@ Partial Class Ventas OnError("Ocurrió un error al agregar el producto/servicio", ex) End Try - Return Retorno End Function - 'Private Function AgregarProductoServicioCotizacion(Cantidad As Decimal, CveUM As Integer, UM As String, CveClasificacion As Integer, Clasificacion As String, CvePS As Integer, PS As String, Obs As String, - ' PU As Decimal, Descuento As Decimal, PorcentajeIVA As Decimal, ImporteIVA As Decimal, CveProyecto As Integer, Proyecto As String, CveSubProyecto As Integer, SubProyecto As String, Optional Serie As String = "", Optional TiempoEntrega As String = "", - ' Optional EntregaDirecta As Integer = 0, Optional CveContratoDetalle As Integer = 0, Optional CveVentaDetalle As Integer = 0, Optional CveMovimientoDetallePedido As Integer = 0, - ' Optional CveOrdenCompraDetalle As Integer = 0, Optional CveVentaDetalleRemision As Integer = 0, Optional CveVentaDetalleCotizacion As Integer = 0, Optional CuentaPredial As String = "", - ' Optional RegeneraIEPS As Boolean = True, Optional CveVentaDetallePedido2 As Integer = 0, Optional SeActualiza As Boolean = False, Optional CvePromocionDetalle As Integer = -1, Optional EsCargo As Boolean = False, - ' Optional ImporteProntoPago As Decimal = 0) As Boolean - - ' Dim Retorno As Boolean = False - ' Try - ' If Not CvePS > 0 Then - ' Alert("Ocurrió un error al cargar la información del producto a agregar. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgError) - ' Return False - ' End If - - ' Dim Row As DataRow = Nothing - ' Dim TotalCalculableImpuestos As Decimal = 0 - ' PU = PU.RoundSQL(6) ' el precio unitario puede llevar hasta 6 decimales permitidos - ' Descuento = Descuento.RoundSQL(NumeroDecimales) - - ' If Not TmpDT.Columns.Contains("RetIVA") Then - ' TmpDT.Columns.Add("RetIVA", GetType(Decimal)) - ' End If - - ' Row = TmpDT.NewRow() - ' Row("CveProyecto") = CveProyecto - ' Row("Proyecto") = Proyecto - ' Row("CveSubProyecto") = CveSubProyecto - ' Row("SubProyecto") = SubProyecto - ' Row("Serie") = Serie - ' Row("TiempoEntrega") = TiempoEntrega - ' If Modalidad = "U" Then - ' Row("Orden") = Index - ' Else - ' Dim ConsecutivoActual As Integer = TmpDT.MAX("Consec").ToEntero() - ' If ConsecutivoActual < 0 Then - ' ConsecutivoActual = 0 - ' End If - ' Row("Orden") = ConsecutivoActual + 1 - ' End If - - ' Row("Cantidad") = Cantidad - ' Row("CveUM") = CveUM - ' Row("UM") = UM - ' Row("CveClasificacion") = CveClasificacion - ' Row("Clasificacion") = Clasificacion - ' Row("CvePS") = CvePS - ' Row("Obs") = Obs - - - ' Dim DrPS As DataRow = Nothing - - ' DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") ' Estado = -1 - - ' If DrPS Is Nothing Then - ' Alert("Ocurrió un error al cargar la información del Producto. Por favor vuelva a intentar.", TipoMensaje.MsgError) - ' Return False - ' End If - - ' If (DrPS("SATClaveUnidadMedida").ToString() = "" Or DrPS("SATClavePS").ToString() = "") Then - ' 'VALIDA CLAVESAT - ' If Not DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC") Then 'DOCUMENTOS DONDE NO SE VALIDA - ' If DrPS("SATClavePS").ToString() = "" Then - ' MensajeCveSAT.AppendFormat("{0}-{1}: Sin producto SAT
", DrPS("Codigo").ToString(), DrPS("PS").ToString()) - ' Return False - ' ElseIf DrPS("SATClaveUnidadMedida").ToString() = "" Then - ' MensajeCveSAT.AppendFormat("{0}-{1}: Sin Unidad Medida SAT
", DrPS("Codigo").ToString(), DrPS("PS").ToString()) - ' Return False - ' End If - - ' 'If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) AndAlso DrPS("SATClavePS").ToString() = "01010101" Then - ' ' MensajeCveSAT.AppendFormat("{0}-{1}: El producto/servicio no existe en el catálogo del SAT
", DrPS("Codigo").ToString(), DrPS("PS").ToString()) - ' ' Return False - ' 'End If - ' End If - ' Else - ' If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) AndAlso DrPS("SATClavePS").ToString() = "01010101" Then - ' MensajeCveSAT.AppendFormat("{0}-{1}: El producto/servicio no existe en el catálogo del SAT
", DrPS("Codigo").ToString(), DrPS("PS").ToString()) - ' Return False - ' End If - ' End If - - ' 'verifica si tiene ventaminima - ' If Cantidad > 0 AndAlso DrPS("VentaMinima").ToString().ToDecimal > 0 Then - ' 'verifico que la cantidad sea multiplo de venta minima, es decir ventaminima =5, solo puede vender 5,10,15... - ' If Cantidad Mod DrPS("VentaMinima").ToString().ToDecimal <> 0 Then - ' Alert(String.Format("El producto se vende solo en cantidades de {0}", DrPS("VentaMinima").ToString())) - ' Return False - ' End If - ' End If - - ' 'VERIFICA SI EN LA FACTURA PADRE SE DESGLOSO EL IEPS - ' Dim FacturaDesglosoIEPS As Boolean = ((CveDevolucion > 0 AndAlso NuevaFactura = 1) AndAlso (Me.ObjFacturaNC IsNot Nothing AndAlso Not Me.ObjFacturaNC.VentaDesglosaIEPS)) - - ' If Not ClienteDesglosaIEPS Then - ' If Not RegeneraIEPS AndAlso Not FacturaDesglosoIEPS Then - ' PU = PU * (1 + DrPS("IEPSPorcentaje").ToString().ToDecimal) - ' VentaDesglosaIEPS = True - ' End If - ' DrPS("IEPSPorcentaje") = 0 - ' End If - ' 'SI YA SE DESGLOSO EL IEPS SE GUARDA LA BANDERA EN ESTA FACTURA - ' If FacturaDesglosoIEPS Then - ' VentaDesglosaIEPS = True - ' End If - - - ' TotalCalculableImpuestos = (Cantidad * (PU)) - Descuento - - ' Row("PU") = PU - ' Row("Codigo") = DrPS("Codigo") - ' Row("NoIdentificacion") = DrPS("Codigo") - ' Row("ClaveSATFraccionArancelaria") = DrPS("ClaveSATFraccionArancelaria") - ' Row("ClaveSATUnidadAduana") = DrPS("ClaveSATUnidadAduana") - ' Row("ClaveSATFraccionArancelariaDescripcion") = DrPS("ClaveSATFraccionArancelariaDescripcion") - ' Row("ClaveSATUnidadAduanaDescripcion") = DrPS("ClaveSATUnidadAduanaDescripcion") - ' If Modalidad = "U" Then - ' Row("Consec") = Index - ' Else - ' Dim ConsecutivoActual As Integer = TmpDT.MAX("Consec").ToEntero() - ' If ConsecutivoActual < 0 Then - ' ConsecutivoActual = 0 - ' End If - ' Row("Consec") = ConsecutivoActual + 1 - ' End If - - ' Row("PS") = DrPS("PS") - ' Row("CodigoPS") = DrPS("PSCodigo").ToString() - ' Row("CveTipoPS") = DrPS("CveTipoPS") - ' Row("CveTipoInvPS") = DrPS("Inv_CveMetodoInventario") - ' Row("CveTamaño") = DrPS("CveTamaño") - - ' If CveClasificacion <= 0 Then Row("CveClasificacion") = DrPS("CveClasificacion") - ' If Clasificacion = "" Then Row("Clasificacion") = DrPS("Clasificacion") - - ' Row("PorcentajeIVA") = PorcentajeIVA - - ' Dim ClienteRetIVA = Me.ClienteRetIVA - - ' If ClienteRetIVA <= 0 Then - ' If CBool(DrPS("EsOutSourcing").ToString()) Then - ' ClienteRetIVA = 0.06D - ' DdlTipoRetencion.SelectedValueExist("4") - ' ElseIf DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then - ' ClienteRetIVA = 0.106667D - ' ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then - ' ClienteRetIVA = 0.04D - ' End If - ' End If - - ' LblRetIVA.Text = (ClienteRetIVA * 100).FormatoNumero - ' TrRetIVA.Style.Add("display", "") - ' DdlTipoRetencion.Visible = True - - - ' Row("IVA") = PorcentajeIVA - ' Row("ImporteIVA") = (ImporteIVA).RoundSQL(NumeroDecimales) - ' Row("ImporteRetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundSQL(NumeroDecimales) - - - - ' Row("RetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundSQL(NumeroDecimales) - - ' Row("ImporteRetISR") = (ClienteRetISR * TotalCalculableImpuestos).RoundSQL(NumeroDecimales) - ' Row("PorcentajeRetIVA") = ClienteRetIVA - ' Row("PorcentajeRetISR") = ClienteRetISR - ' Row("PorcentajeIEPS") = DrPS("IEPSPorcentaje") - ' Row("ImporteIEPS") = (DrPS("IEPSPorcentaje").ToString().ToDecimal * TotalCalculableImpuestos).RoundSQL(NumeroDecimales) - ' Row("IEPS") = Row("ImporteIEPS") - ' Row("Descuento") = (Descuento).RoundSQL(NumeroDecimales) - ' Row("TipoDescuento") = HdnTipoDescuento.Value - ' Row("CvePromocionDetalle") = CvePromocionDetalle - ' Row("Total") = (Cantidad * PU) - ' Row("TotalImporte") = (Cantidad * PU).RoundSQL(NumeroDecimales) - - ' 'Row("AsientoContableVentas") = DrPS("AsientoContableVentas") - ' ' Row("IdCtaContVentas") = IdCtaContable - ' ' Row("AplicaParaConcepto") = AplicaParaConcepto - - ' Row("SATClaveProdServ") = DrPS("SATClavePS") - ' Row("SATClaveUM") = DrPS("SATClaveUnidadMedida") - - ' If UsuarioActual.Empresa.UsaAC Then - ' Row("CvePresupuestoIngreso") = Me.DdlFuenteRecaudacion.SelectedValue - ' End If - - ' Row("EntregaDirecta") = EntregaDirecta - ' 'Contratos - ' Row("CveContratoDetalle") = CveContratoDetalle - ' Row("CveVentaDetalle") = CveVentaDetalle - ' Row("CveMovimientoDetallePedido") = CveMovimientoDetallePedido - ' Row("CveOrdenCompraDetalle") = CveOrdenCompraDetalle - ' Row("CveVentaDetalleRemision") = CveVentaDetalleRemision - ' Row("CveVentaDetalleCotizacion") = CveVentaDetalleCotizacion - ' Row("CveVentaDetallePedido2") = CveVentaDetallePedido2 - ' Row("CuentaPredial") = CuentaPredial - ' Row("EsOutSourcing") = DrPS("EsOutSourcing") - ' Row("EsCargo") = EsCargo - - ' If ImporteProntoPago > 0 Then - ' Row("ImporteProntoPago") = ImporteProntoPago - ' Row("TieneProntoPago") = "Si" - ' 'SOLO DEBE MOSTRASE SI EL PAGO ES DE CONTADO - ' If RBLPago.SelectedValue = "2" Then - ' GvPS.Columns(22).Visible = True - ' thProntoPago.Visible = True - ' thProntoPago2.Visible = True - ' End If - - ' End If - - ' If UsuarioActual.CveEmpresa = 119 Then - ' If Not RemisionesLista.Count > 0 Then 'SI VIENE DE REMISION NO SE CONSIDERA - - ' 'MONEDA DIFERENTE DEL PS AL PRIMER PS AGREGADO - ' If DdlMoneda.Enabled = False And CveVenta < 0 And TmpDT.Rows.Count > 0 Then - ' If DdlMoneda.SelectedValue <> DrPS("CveMoneda").ToString() Then - ' Alert($"La moneda base del producto: {DrPS("PSCodigo").ToString()} es diferente a la moneda del documento.", TipoMensaje.MsgAdvertencia) - ' Return False - ' End If - ' End If - - ' 'ACTIVA PRODUCTOS DE LA MISMA MONEDA - ' If TmpDT.Rows.Count = 0 And CveVenta < 0 Then - ' DdlMoneda.SelectedValueExist(DrPS("CveMoneda").ToString()) - ' CambiaMoneda() - ' DdlMoneda.Enabled = False - ' End If - ' End If - ' End If - - ' 'RECARGAR GV - ' TmpDT.Rows.Add(Row) - - ' Retorno = True - ' Catch ex As Exception - ' Retorno = False - ' OnError("Ocurrió un error al agregar el producto/servicio", ex) - ' End Try - - - ' Return Retorno - 'End Function - #End Region #Region "D A T A - T A B L E S" @@ -34697,17 +34455,17 @@ Partial Class Ventas End If Dim CveSubProyecto As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero() - Dim CveProyecto = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProyecto", "").ToEntero() + Dim CveProyecto = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProyecto", "").ToEntero() Dim Proyecto As String = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("Proyecto", "").ToString() - AgregarProductoServicio(Cantidad, CveUM, UnidadMedida, CveClasificacion, Clasificacion, + AgregarProductoServicio(Cantidad, CveUM, UnidadMedida, CveClasificacion, Clasificacion, CvePSServicio, "", TxtObservacionesMercancia.Text.Trim, PU, Descuento, CveProyecto, Proyecto, CveSubProyecto, DdlSubProyectoDatos.SelectedItem.Text, Serie:="", TiempoEntrega:="", CuentaPredial:="", RegeneraIEPS:=ClienteDesglosaIEPS, CvePromocionDetalle:=-1, ImporteProntoPago:=0) - CalculaUsados() + CalculaUsados() CalculaTotalesVenta() Else From 0d8410fde2bdd3e7f59376db39ed8382d0405c26 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 9 Jun 2022 19:09:20 -0700 Subject: [PATCH 3/5] E13. Formato de carta porte en 1 sola hoja --- Compras/PopUpVerFactura.aspx.vb | 6 +- Empresas/13/Formatos/CartaPorteTimbrado.rdlc | 563 +++++++------- Empresas/13/Formatos/Factura.rdlc | 724 +++++++++---------- 3 files changed, 634 insertions(+), 659 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 2486ed8af..f54ffac71 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -2047,6 +2047,7 @@ Partial Class PopUpVerFactura For Each parametro As ReportParameter In params retorno.Parametros.Add(New ReportParameter($"SRP_{parametro.Name}", parametro.Values.Item(0))) Next + retorno.Parametros.Add(New ReportParameter($"TieneCartaPorte", "True")) Else retorno.Parametros.AddRange(params) End If @@ -2690,7 +2691,7 @@ Partial Class PopUpVerFactura Dim CveTimbreCartaPorteVenta As Integer = -1 Dim CartaPorte As Modelos.MSubReportData = Nothing - If Vta.TipoDocto = "Ing" Then + If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto = "Ing" Then Using ObjGral As New ClsGenerales If ObjGral.GetGralTimbre(-1, "Ing", MinFecha, MaxFecha, 0, UsuarioActual.CveEmpresa, -1, CveVenta:=CveVenta) AndAlso ObjGral.DtResultados.Rows.Count > 0 Then Dim RowCP As DataRow = ObjGral.DtResultados.Rows(0) @@ -2713,6 +2714,9 @@ Partial Class PopUpVerFactura 'CartaPorte.DataSources.Add(New ReportDataSource() With {.Name = "DataSet1", .Value = dt}) CartaPorte = PreParaImpresionCartaPorte(CveTimbreCartaPorteVenta, AplicaSubReporte:=True) + Else + CartaPorte = New Modelos.MSubReportData() + CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False")) End If End If diff --git a/Empresas/13/Formatos/CartaPorteTimbrado.rdlc b/Empresas/13/Formatos/CartaPorteTimbrado.rdlc index 970407272..3bf625808 100644 --- a/Empresas/13/Formatos/CartaPorteTimbrado.rdlc +++ b/Empresas/13/Formatos/CartaPorteTimbrado.rdlc @@ -18,7 +18,7 @@ Cantidad @@ -64,7 +64,7 @@ - 0.6cm + 0.36188cm @@ -78,7 +78,7 @@ =Fields!UnidadMedida.Value @@ -112,7 +112,7 @@ =Fields!Descripcion.Value @@ -146,7 +146,7 @@ =Fields!CveMaterialPeligroso.Value @@ -180,7 +180,7 @@ =Fields!Embalaje.Value @@ -214,7 +214,7 @@ =Fields!PesoEnKg.Value @@ -244,7 +244,7 @@ - 0.52062cm + 0.36187cm true @@ -256,7 +256,7 @@ Unidad @@ -282,7 +282,7 @@ - 0.52062cm + 0.36187cm true @@ -294,7 +294,7 @@ Producto @@ -320,7 +320,7 @@ - 0.52062cm + 0.36187cm true @@ -329,21 +329,13 @@ - Cod. Material + Cod. Material Peligroso - - Peligroso - - @@ -404,7 +396,7 @@ - 0.52062cm + 0.36187cm true @@ -416,7 +408,7 @@ Peso (KG) @@ -459,7 +451,7 @@ =Fields!Cantidad.Value @@ -488,9 +480,9 @@ true true DataSet3 - 6.6164cm + 4.93365cm 0.06623cm - 1.12062cm + 0.72375cm 20.36729cm @@ -521,8 +513,8 @@ Textbox3 - 6.1004cm - 0.06623cm + 4.4494cm + 0.0927cm 0.50189cm 8.01543in 1 @@ -553,7 +545,7 @@ Distancia @@ -601,7 +593,7 @@ - 0.6cm + 0.46771cm @@ -615,7 +607,7 @@ =Fields!TipoUbicacion.Value @@ -663,7 +655,7 @@ =Fields!RFC.Value @@ -711,7 +703,7 @@ =Fields!Nombre.Value @@ -751,7 +743,7 @@ =Fields!FechaHoraSalida.Value @@ -792,7 +784,7 @@ =Fields!Direccion.Value @@ -832,7 +824,7 @@ - 0.52062cm + 0.44125cm true @@ -844,7 +836,7 @@ Ubicación @@ -872,7 +864,7 @@ - 0.52062cm + 0.44125cm true @@ -884,7 +876,7 @@ RFC @@ -912,7 +904,7 @@ - 0.52062cm + 0.44125cm true @@ -924,7 +916,7 @@ Nombre @@ -952,7 +944,7 @@ - 0.52062cm + 0.44125cm true @@ -964,7 +956,7 @@ Fecha @@ -992,7 +984,7 @@ - 0.52062cm + 0.44125cm true @@ -1004,7 +996,7 @@ Dirección @@ -1049,7 +1041,7 @@ =Fields!Distancia.Value @@ -1092,9 +1084,9 @@ true true DataSet2 - 9.1543cm + 6.1698cm 0.06623cm - 1.12062cm + 0.90895cm 20.38566cm 2 @@ -1125,9 +1117,9 @@ Textbox3 - 8.56422cm + 5.77022cm 0.06623cm - 0.5cm + 0.41369cm 8.01861in 3 @@ -1196,7 +1188,7 @@ - 0.6cm + 0.41479cm @@ -1210,7 +1202,7 @@ =Fields!NumLicencia.Value @@ -1258,7 +1250,7 @@ =Fields!NombreOperador.Value @@ -1298,7 +1290,7 @@ - 0.52062cm + 0.41479cm true @@ -1310,7 +1302,7 @@ LICENCIA @@ -1338,7 +1330,7 @@ - 0.52062cm + 0.41479cm true @@ -1350,7 +1342,7 @@ NOMBRE OPERADOR @@ -1395,7 +1387,7 @@ =Fields!RFC.Value @@ -1438,9 +1430,9 @@ true true DataSet4 - 11.8213cm + 7.59855cm 0.06623cm - 1.12062cm + 0.82958cm 20.36724cm 4 @@ -1471,9 +1463,9 @@ Textbox3 - 11.23122cm + 7.18459cm 0.06623cm - 0.5cm + 0.41396cm 8.01861in 5 - - - : - @@ -1513,7 +1497,7 @@ =Parameters!MedioTransporte.Value @@ -1528,7 +1512,7 @@ Transporte Internacional: @@ -1536,7 +1520,7 @@ =Parameters!TransporteInternacional.Value @@ -1551,7 +1535,7 @@ Permiso SCT: @@ -1559,7 +1543,7 @@ @@ -1567,7 +1551,7 @@ =Parameters!PermisoSTCC.Value @@ -1579,83 +1563,13 @@ - Numero de Permiso + - - : - - - - =Parameters!NumPermiso.Value - - - - - - - - - Placa: - - - - =Parameters!PlacaVM.Value - - - - - - - - - Año: - - - - =Parameters!AnioVM.Value - - - - - - @@ -1719,75 +1633,6 @@ true true - - - - Aseguradora Responsabilidad Civil: - - - - =Parameters!Aseguradora.Value - - - - - - - - - Número de Póliza: - - - - =Parameters!NumPoliza.Value - - - - - - - - - Aseguradora Medio Ambiente: - - - - =Parameters!NombreAseguradoraMedioAmbiente.Value - - - - - @@ -1874,10 +1719,10 @@ Textbox2 - 1.09361in - 9.72269cm - 0.95951in - 4.21685in + 1.07972in + 14.61748cm + 0.48798in + 2.26893in 8 Placa: =Parameters!RemolquePlaca1.Value Tipo Rem: =Parameters!RemolqueSubtimo1.Value @@ -1931,9 +1776,9 @@ Textbox38 - 5.28548cm + 4.01548cm 0.06623cm - 0.45862cm + 0.35631cm 9.62118cm 9 @@ -1958,32 +1803,32 @@ Remolque 2 Placa: =Parameters!RemolquePlaca2.Value Tipo Rem: =Parameters!RemolqueSubtimo2.Value @@ -1991,9 +1836,9 @@ Textbox38 - 5.28548cm + 4.01548cm 9.72269cm - 0.45862cm + 0.35631cm 10.7292cm 10 @@ -2381,7 +2226,7 @@ true - 13.15006cm + 8.48281cm 0.06623cm 1.78092cm 20.36726cm @@ -3585,7 +3430,7 @@ true - 15.01212cm + 10.34487cm 0.0743cm 7.44771cm 20.42542cm @@ -3609,14 +3454,14 @@ Pesto Neto Total (KG): =Parameters!PesoNetoTotal.Value @@ -3624,9 +3469,9 @@ Textbox46 - 7.86463cm - 0.10048cm - 0.56201cm + 5.70563cm + 0.06623cm + 0.3768cm 8.87863cm 14 =Parameters!DistanciaTotal.Value @@ -3664,10 +3509,10 @@ Textbox46 - 10.43366cm + 7.18459cm 0.0743cm - 0.6cm - 8.90481cm + 0.37869cm + 6.32091cm 15 + + true + true + + + + + Numero de Permiso: + + + + =Parameters!NumPermiso.Value + + + + + + + =Parameters!PlacaVM.Value + + + + + + + + + Año: + + + + =Parameters!AnioVM.Value + + + + + + + + + + + Textbox53 + 2.77933cm + 5.36787cm + 1.20263cm + 3.86975cm + 16 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Aseguradora Responsabilidad Civil: + + + + =Parameters!Aseguradora.Value + + + + + + + =Parameters!NumPoliza.Value + + + + + + + + + Aseguradora Medio Ambiente: + + + + =Parameters!NombreAseguradoraMedioAmbiente.Value + + + + + + + Textbox57 + 2.77778cm + 9.30817cm + 1.20419cm + 5.25306cm + 17 + + + 2pt + 2pt + 2pt + 2pt + + - 8.84245in + 7.00495in - - - - - - - - DE C.V. RFC: EMD950206SRA + EXPLORACIONES MINERAS DEL DESIERTO S.A. DE C.V. RFC: EMD950206SRA @@ -121,9 +109,9 @@ Embedded Logo1 FitProportional - 0.92917cm - 2.88998cm - 3.84225cm + 1.06146cm + 1.91102cm + 2.76081cm 1 @@ -150,8 +138,8 @@ Textbox19 - 1.88777in - 0.1441cm + 1.43777in + 0.27639cm 0.17222in 0.81128in 2 @@ -191,10 +179,10 @@ Textbox19 - 1.88777in - 0.86801in + 1.43777in + 0.93398in 0.17222in - 4.18029in + 3.24868in 3 @@ -305,7 +293,7 @@ Codigo @@ -351,7 +339,7 @@ C.U. SAT @@ -394,26 +382,10 @@ - Clave + Clave Prod. - - - - - - - - Producto - @@ -458,7 +430,7 @@ Descripción @@ -503,7 +475,7 @@ P.U. @@ -549,7 +521,7 @@ Impuestos @@ -594,7 +566,7 @@ Importe @@ -973,15 +945,16 @@ DsOC - 6.28717cm - 0.08756cm - 1.2353cm + 4.63617cm + 0.21985cm + 0.97072cm 20.06999cm 4 + 8pt @@ -1002,8 +975,8 @@ Textbox1 - 8.59672cm - 14.50693cm + 7.70772cm + 14.63922cm 0.54708cm 5.65062cm 5 @@ -1040,7 +1013,7 @@ =Fields!Importe.Value @@ -1082,7 +1055,7 @@ =Replace(Parameters!Moneda.Value,"Pesos","Peso mexicano") @@ -1135,7 +1108,7 @@ =Fields!ImpuestoLocal.Value @@ -1174,7 +1147,7 @@ Moneda @@ -1203,8 +1176,8 @@ DataSet1 - 7.71422cm - 14.47478cm + 7.14272cm + 14.60707cm 0.65551cm 5.68277cm 6 @@ -1224,7 +1197,7 @@ Folio Factura @@ -1234,8 +1207,8 @@ Textbox2 - 2.79612cm - 14.15252cm + 1.84362cm + 14.28481cm 0.41303cm 2.08346cm 7 @@ -1259,7 +1232,7 @@ =IIF(Parameters!Serie.Value.ToString="",Parameters!Folio.Value,Parameters!Serie.Value & "-" &Parameters!Folio.Value) @@ -1269,8 +1242,8 @@ Textbox3 - 2.79612cm - 17.03869cm + 1.84362cm + 17.17098cm 0.41303cm 3.066cm 8 @@ -1294,7 +1267,7 @@ Fecha @@ -1304,8 +1277,8 @@ Textbox2 - 3.22326cm - 14.15252cm + 2.27076cm + 14.28481cm 0.42714cm 2.08346cm 9 @@ -1329,7 +1302,7 @@ =Parameters!Fecha.Value @@ -1339,8 +1312,8 @@ Textbox12 - 3.22326cm - 17.03869cm + 2.27076cm + 17.17098cm 0.42714cm 3.066cm 10 @@ -1364,7 +1337,7 @@ Lugar de Expedición @@ -1374,8 +1347,8 @@ Textbox2 - 3.75976cm - 14.14208cm + 2.77551cm + 14.27437cm 0.46681cm 2.86133cm 11 @@ -1400,6 +1373,7 @@ @@ -1447,8 +1421,8 @@ Textbox2 - 3.0229cm - 0.1441cm + 1.8799cm + 0.27639cm 0.42944cm 3.80164cm 13 @@ -1472,7 +1446,7 @@ =Parameters!FormaPago.Value @@ -1482,8 +1456,8 @@ Textbox3 - 3.0229cm - 4.12213cm + 1.8799cm + 4.25442cm 0.42944cm 6.76133cm 14 @@ -1507,7 +1481,7 @@ Método de Pago @@ -1517,8 +1491,8 @@ Textbox2 - 3.46293cm - 0.1441cm + 2.28818cm + 0.27639cm 0.40122cm 3.80164cm 15 @@ -1542,7 +1516,7 @@ =IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value) @@ -1552,8 +1526,8 @@ Textbox3 - 3.46998cm - 4.12213cm + 2.29523cm + 4.25442cm 0.40122cm 6.76133cm 16 @@ -1577,7 +1551,7 @@ Moneda @@ -1587,8 +1561,8 @@ Textbox2 - 3.94529cm - 0.17938cm + 2.73879cm + 0.27639cm 0.39417cm 3.80164cm 17 @@ -1612,21 +1586,21 @@ =Parameters!Moneda.Value Tipo de Cambio @@ -1635,21 +1609,21 @@ =Parameters!TipoCambio.Value @@ -1659,8 +1633,8 @@ Textbox3 - 3.95234cm - 4.12213cm + 2.74584cm + 4.25442cm 0.43297cm 6.76133cm 18 @@ -1684,7 +1658,7 @@ Datos del Cliente @@ -1694,8 +1668,8 @@ Textbox2 - 4.41707cm - 0.1441cm + 3.14707cm + 0.27639cm 0.44708cm 3.80164cm 19 @@ -1719,7 +1693,7 @@ R.F.C.: @@ -1728,10 +1702,10 @@ Textbox19 - 2.05999in - 0.1441cm - 0.19861in - 0.81128in + 1.43777in + 10.65925cm + 0.1875in + 0.36336in 20 @@ -1813,10 +1787,10 @@ Textbox19 - 2.03499in - 6.65114cm - 0.19861in - 0.81128in + 1.43777in + 14.44108cm + 0.17222in + 0.63582in 22 @@ -1899,8 +1873,8 @@ Textbox19 - 2.2586in - 0.1441cm + 1.62527in + 0.27639cm 0.15972in 0.81128in 24 @@ -1940,8 +1914,8 @@ Textbox19 - 2.2586in - 0.86801in + 1.62527in + 0.92009in 0.15972in 4.18029in 25 @@ -1975,7 +1949,7 @@ OBSERVACIONES GENERALES: @@ -1984,8 +1958,8 @@ Textbox19 - 2.97039in - 0.06399cm + 2.77039in + 0.19628cm 0.17324in 1.7828in 26 @@ -2018,7 +1992,7 @@ =Parameters!Observaciones.Value @@ -2028,8 +2002,8 @@ Textbox3 - 7.54478cm - 4.69815cm + 7.03678cm + 4.83044cm 0.44003cm 9.60024cm 27 @@ -2052,7 +2026,7 @@ =Parameters!ImporteLetra.Value @@ -2060,8 +2034,8 @@ Textbox19 - 3.13113in - 1.10063in + 2.93113in + 1.15271in 0.44842cm 4.52866in 28 @@ -2095,7 +2069,7 @@ Importe Con Letra: @@ -2105,8 +2079,8 @@ Textbox2 - 7.95306cm - 0.08756cm + 7.44506cm + 0.21985cm 0.44842cm 2.5581cm 29 @@ -2124,10 +2098,10 @@ External =Parameters!QR.Value FitProportional - 3.40943in - 0.08769in - 1.14694in - 1.34784in + 3.05943in + 0.13977in + 0.68104in + 0.78032in 30 @@ -2155,8 +2129,8 @@ Textbox2 - 9.29495cm - 9.45782cm + 7.89591cm + 3.36322cm 0.35889cm 4.93935cm 31 @@ -2180,7 +2154,7 @@ Folio Fiscal @@ -2190,8 +2164,8 @@ Textbox2 - 9.67148cm - 9.45782cm + 8.29008cm + 3.36322cm 0.40122cm 4.93935cm 32 @@ -2215,7 +2189,7 @@ No. de Serie del Certificado de l SAT @@ -2225,8 +2199,8 @@ Textbox2 - 10.05859cm - 9.45782cm + 8.72658cm + 3.36322cm 0.3536cm 4.93935cm 33 @@ -2250,7 +2224,7 @@ Fecha y Hora de Certificación @@ -2260,8 +2234,8 @@ Textbox2 - 10.41395cm - 9.45782cm + 9.12251cm + 3.36322cm 0.31479cm 4.93935cm 34 @@ -2285,7 +2259,7 @@ =Parameters!CertificadoContribuyente.Value @@ -2295,8 +2269,8 @@ Textbox2 - 9.29495cm - 14.46772cm + 7.89591cm + 8.37312cm 0.35889cm 5.62289cm 35 @@ -2320,7 +2294,7 @@ =Parameters!FolioFiscal.Value @@ -2330,8 +2304,8 @@ Textbox2 - 9.67148cm - 14.46772cm + 8.29008cm + 8.37312cm 0.40122cm 5.62289cm 36 @@ -2355,7 +2329,7 @@ =Parameters!SerieCertificadoSAT.Value @@ -2365,8 +2339,8 @@ Textbox2 - 10.05859cm - 14.46772cm + 8.72658cm + 8.37312cm 0.3536cm 5.62289cm 37 @@ -2390,7 +2364,7 @@ =Parameters!FechaCertificacion.Value @@ -2400,8 +2374,8 @@ Textbox2 - 10.41395cm - 14.46772cm + 9.12251cm + 8.37312cm 0.31479cm 5.62289cm 38 @@ -2422,23 +2396,9 @@ - Este documento es una representación impresa de un CFDI + Este documento es una representación impresa de un CFDI Version 3.3 - - - - - - - - Version 3.3 - @@ -2449,10 +2409,10 @@ Textbox19 - 4.27878in - 9.45782cm - 0.34009in - 4.18614in + 3.26381in + 14.1724cm + 0.47666in + 2.40844in 39 @@ -2537,10 +2497,10 @@ Textbox2 - 11.78131cm - 0.10785cm + 9.55881cm + 0.25897cm 0.44842cm - 8.9127cm + 8.89387cm 41 @@ -2615,8 +2575,8 @@ Textbox2 - 12.74125cm - 0.12668cm + 10.4235cm + 0.25897cm 0.33552cm 8.89387cm 43 @@ -2648,8 +2608,8 @@ Textbox19 - 5.57948in - 0.05673in + 4.55448in + 0.09839in 0.11805in 7.86825in 44 @@ -2683,7 +2643,7 @@ Cadena Original del Complemento del Certificación Digital del SAT @@ -2693,8 +2653,8 @@ Textbox2 - 13.72346cm - 0.12669cm + 11.157cm + 0.20606cm 0.34259cm 8.89387cm 45 @@ -3159,7 +3119,7 @@ true - 14.54249cm + 12.06599cm 2.28935cm 20.28984cm 46 @@ -3172,203 +3132,167 @@ - + - - true - true - - - - - CARTA PORTE - TRASLADO - - - - - - - Textbox6 - 0.12917cm - 0.06399cm - 0.6cm - 20.02662cm + + CartaPorteTimbrado + + + =Parameters!SRP_LogoPath.Value + + + =Parameters!SRP_RFC.Value + + + =Parameters!SRP_SerieFolio.Value + + + =Parameters!SRP_DomicilioFiscal.Value + + + =Parameters!SRP_RegimenFiscal.Value + + + =Parameters!SRP_DomicilioExpedicion.Value + + + =Parameters!SRP_ClienteDireccion.Value + + + =Parameters!SRP_ClienteNombre.Value + + + =Parameters!SRP_ClienteRFC.Value + + + =Parameters!SRP_MedioTransporte.Value + + + =Parameters!SRP_TransporteInternacional.Value + + + =Parameters!SRP_FolioFiscal.Value + + + =Parameters!SRP_FechaCertificacion.Value + + + =Parameters!SRP_CertificadoContribuyente.Value + + + =Parameters!SRP_SerieCertificadoSAT.Value + + + =Parameters!SRP_SelloCFDI.Value + + + =Parameters!SRP_CadenaOriginal.Value + + + =Parameters!SRP_SelloSAT.Value + + + =Parameters!SRP_QR.Value + + + =Parameters!SRP_PermisoSTCC.Value + + + =Parameters!SRP_NumPermiso.Value + + + =Parameters!SRP_Aseguradora.Value + + + =Parameters!SRP_NumPoliza.Value + + + =Parameters!SRP_PlacaVM.Value + + + =Parameters!SRP_AnioVM.Value + + + =Parameters!SRP_TipoTI.Value + + + =Parameters!SRP_ViaTI.Value + + + =Parameters!SRP_UsoCFDi.Value + + + =Parameters!SRP_SubTotal.Value + + + =Parameters!SRP_Total.Value + + + =Parameters!SRP_Descuentos.Value + + + =Parameters!SRP_NombreAseguradoraMedioAmbiente.Value + + + =Parameters!SRP_NumPolizaSeguroMedioAmbiente.Value + + + =Parameters!SRP_NombreAseguradoraCarga.Value + + + =Parameters!SRP_NumPolizaSeguroCarga.Value + + + =Parameters!SRP_RemolquePlaca1.Value + + + =Parameters!SRP_RemolqueSubtimo1.Value + + + =Parameters!SRP_RemolquePlaca2.Value + + + =Parameters!SRP_RemolqueSubtimo2.Value + + + =True + + + =Parameters!SRP_PesoNetoTotal.Value + + + =Parameters!SRP_DistanciaTotal.Value + + + 0.06863cm + 1.11461cm + 20.12945cm - 2pt - 2pt - 2pt - 2pt - + - - Start - true - 16.87906cm - 0.80985cm - 20.28984cm + 5.71625cm + 1.2341cm + 20.2229cm 47 + + =Not Parameters!TieneCartaPorte.Value + - - CartaPorteTimbrado - - - =Parameters!SRP_LogoPath.Value - - - =Parameters!SRP_RFC.Value - - - =Parameters!SRP_SerieFolio.Value - - - =Parameters!SRP_DomicilioFiscal.Value - - - =Parameters!SRP_RegimenFiscal.Value - - - =Parameters!SRP_DomicilioExpedicion.Value - - - =Parameters!SRP_ClienteDireccion.Value - - - =Parameters!SRP_ClienteNombre.Value - - - =Parameters!SRP_ClienteRFC.Value - - - =Parameters!SRP_MedioTransporte.Value - - - =Parameters!SRP_TransporteInternacional.Value - - - =Parameters!SRP_FolioFiscal.Value - - - =Parameters!SRP_FechaCertificacion.Value - - - =Parameters!SRP_CertificadoContribuyente.Value - - - =Parameters!SRP_SerieCertificadoSAT.Value - - - =Parameters!SRP_SelloCFDI.Value - - - =Parameters!SRP_CadenaOriginal.Value - - - =Parameters!SRP_SelloSAT.Value - - - =Parameters!SRP_QR.Value - - - =Parameters!SRP_PermisoSTCC.Value - - - =Parameters!SRP_NumPermiso.Value - - - =Parameters!SRP_Aseguradora.Value - - - =Parameters!SRP_NumPoliza.Value - - - =Parameters!SRP_PlacaVM.Value - - - =Parameters!SRP_AnioVM.Value - - - =Parameters!SRP_TipoTI.Value - - - =Parameters!SRP_ViaTI.Value - - - =Parameters!SRP_UsoCFDi.Value - - - =Parameters!SRP_SubTotal.Value - - - =Parameters!SRP_Total.Value - - - =Parameters!SRP_Descuentos.Value - - - =Parameters!SRP_NombreAseguradoraMedioAmbiente.Value - - - =Parameters!SRP_NumPolizaSeguroMedioAmbiente.Value - - - =Parameters!SRP_NombreAseguradoraCarga.Value - - - =Parameters!SRP_NumPolizaSeguroCarga.Value - - - =Parameters!SRP_RemolquePlaca1.Value - - - =Parameters!SRP_RemolqueSubtimo1.Value - - - =Parameters!SRP_RemolquePlaca2.Value - - - =Parameters!SRP_RemolqueSubtimo2.Value - - - =True - - - =Parameters!SRP_PesoNetoTotal.Value - - - =Parameters!SRP_DistanciaTotal.Value - - - 17.78979cm - 1.77607cm - 20.12945cm - 48 - - - - - 19.56586cm + 14.35534cm