From d287f481a84809afcb39c3a95d75d4bd48b693ba Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 18 Sep 2021 12:47:47 -0700 Subject: [PATCH 01/13] =?UTF-8?q?--=20cmabios=20en=20mejora=20de=20Saldosd?= =?UTF-8?q?e=20mercanc=C3=ADa=20en=20tr=C3=A1nsito=20cuando=20es=20NC=20y?= =?UTF-8?q?=20sus=20impuestos?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx | 2 +- Compras/Compras.aspx.vb | 46 ++++++++++++++++++++++++++++++++++------- 2 files changed, 40 insertions(+), 8 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index ec9888e62..52d7f470c 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -4835,7 +4835,7 @@
- + diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index a389a2184..ef527e830 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6071,12 +6071,36 @@ Partial Class Compras_Compras If chkImportacion.Checked Then ConceptoContable = 287 End If - If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero End If End If + 'si aplica NC sobre mov de almacen, el impuesto lo toma de la Factura.para la consideracion de mcia en tránsito + + If ChkNCInvNC.Checked And CveMoneda <> 1 AndAlso importeMovimiento > 0 Then + + Dim diferenciaTransito As Decimal = 0 + For Each Gvr As GridViewRow In GVNCInvAlmacen.Rows + If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then + + 'Dim DifTC As Decimal = tipoCambioActual - Gvr.DataKey("TipoCambio").ToDecimal + 'diferenciaTransito = DifTC * (Gvr.DataKey("IVA").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal) + 'diferenciaTransito += DifTC * (Gvr.DataKey("IEPSPS").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal) + importeMN = (Gvr.DataKey("IVA").ToDecimal.RoundSQL * Gvr.DataKey("TipoCambio").ToDecimal * Multiplicador).RoundSQL + 'se registra por cada compra relacionada + + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, 14, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=Gvr.DataKey("TipoCambio").ToDecimal, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then + ErrorPrepoliza = True + End If + End If + Next + importeMovimiento = 0 + importeMN = 0 + End If + + Case 287 'IVA X Acreditar importeMovimiento = importeIVAxAcreditar @@ -6790,6 +6814,7 @@ Partial Class Compras_Compras End If Next + Dim diferenciaTransito As Decimal = 0 For Each Gvr As GridViewRow In GVNCInvAlmacen.Rows If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then Dim importeMNTemp As Decimal = 0 @@ -6797,6 +6822,9 @@ Partial Class Compras_Compras ErrorMovInv = True Exit For End If + Dim DifTC As Decimal = tipoCambioActual - Gvr.DataKey("TipoCambio").ToDecimal + 'diferenciaTransito = DifTC * (Gvr.DataKey("IVA").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal) + 'diferenciaTransito += DifTC * (Gvr.DataKey("IEPSPS").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal) importeMNTemp = (Gvr.DataKey("PU").ToDecimal * Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal * Gvr.DataKey("TipoCambio").ToDecimal).RoundSQL ImporteTransito += importeMNTemp 'se registra por cada compra relacionada @@ -6806,18 +6834,22 @@ Partial Class Compras_Compras End If Next - 'si hay diferencia - Dim diferenciaTransito As Decimal = ImporteTransito - importeMN.RoundSQL + + 'la diferencia se va aplicar sobre los + + 'Dim diferenciaTransito As Decimal = ImporteTransito - importeMN.RoundSQL If diferenciaTransito <> 0 Then Dim tCveCon As Integer = 65 + IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria If diferenciaTransito < 0 Then tCveCon = 64 + IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria End If - diferenciaTransito = diferenciaTransito.Abs - IdCtaContable = 0 - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, If(tCveCon = 64, True, False), diferenciaTransito, Referencia, tCveCon, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=diferenciaTransito, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=1, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then + diferenciaTransito = Math.Abs(diferenciaTransito) + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, If(tCveCon = 64, True, False), diferenciaTransito, Referencia, tCveCon, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=diferenciaTransito, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=1, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto) Then ErrorPrepoliza = True End If End If @@ -6973,7 +7005,7 @@ Partial Class Compras_Compras tidctacon = ViewState("CtaProveedorAnticiposExtranjera").ToString.ToEntero End If - ElseIf DdlTipoComprobante.SelectedValue = "NC" AndAlso UsuarioActual.Empresa.Funcionalidad(405).ToEntero > 0 Then + ElseIf DdlTipoComprobante.SelectedValue = "NC" Then tcvecon = 259 tidctacon = UsuarioActual.Empresa.Funcionalidad(405).ToEntero From 7d49ea4257b990ef1f6fe87627f185b4377c934e Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 22 Sep 2021 11:05:09 -0700 Subject: [PATCH 02/13] -- cambios en dispose --- App_Code/ClsGPS.vb | 15 ++++++++------- App_Code/ClsSisNotificaciones.vb | 18 +++++++++--------- App_Code/ClsVentas.vb | 12 ++++++------ 3 files changed, 23 insertions(+), 22 deletions(-) diff --git a/App_Code/ClsGPS.vb b/App_Code/ClsGPS.vb index a16f069eb..790d42e8d 100644 --- a/App_Code/ClsGPS.vb +++ b/App_Code/ClsGPS.vb @@ -5695,18 +5695,19 @@ Public Class ClsGPS If Not disposedValue Then If disposing Then ' TODO: Liberar otro estado (objetos administrados). - If Not Data Is Nothing Then Data.Dispose() + If Not Data Is Nothing Then Data.Dispose() : Data = Nothing If Not Dataset Is Nothing Then Dataset.Clear() Dataset.Dispose() + Dataset = Nothing End If - If Not DtPosiciones Is Nothing Then DtPosiciones.Dispose() - If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() - If Not SqlCommand Is Nothing Then SqlCommand.Dispose() - If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() + If Not DtPosiciones Is Nothing Then DtPosiciones.Dispose() : DtPosiciones = Nothing + If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing + If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing + If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close() - If Not SqlConexion Is Nothing Then SqlConexion.Dispose() - + If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing + End If ' TODO: Liberar su propio estado (objetos no administrados). diff --git a/App_Code/ClsSisNotificaciones.vb b/App_Code/ClsSisNotificaciones.vb index 4aafd6454..37eb2e654 100644 --- a/App_Code/ClsSisNotificaciones.vb +++ b/App_Code/ClsSisNotificaciones.vb @@ -2066,19 +2066,19 @@ Public Class ClsSisNotificaciones If disposing Then ' TODO: Liberar otro estado (objetos administrados). SqlConexion.Close() - SqlConexion.Dispose() + SqlConexion.Dispose() : SqlConexion = Nothing If Not DataSet Is Nothing Then DataSet.Clear() - DataSet.Dispose() + DataSet.Dispose() : DataSet = Nothing End If - If Not Data Is Nothing Then Data.Dispose() - If Not DTNotificacionesGPS Is Nothing Then DTNotificacionesGPS.Dispose() - If Not DTNotificacionesERP Is Nothing Then DTNotificacionesERP.Dispose() - If Not DTNotificacionesArmadas Is Nothing Then DTNotificacionesArmadas.Dispose() - If Not DTReportesProgramados Is Nothing Then DTReportesProgramados.Dispose() + If Not Data Is Nothing Then Data.Dispose() : Data = Nothing + If Not DTNotificacionesGPS Is Nothing Then DTNotificacionesGPS.Dispose() : DTNotificacionesGPS = Nothing + If Not DTNotificacionesERP Is Nothing Then DTNotificacionesERP.Dispose() : DTNotificacionesERP = Nothing + If Not DTNotificacionesArmadas Is Nothing Then DTNotificacionesArmadas.Dispose() : DTNotificacionesArmadas = Nothing + If Not DTReportesProgramados Is Nothing Then DTReportesProgramados.Dispose() : DTNotificacionesGPS = Nothing NotificacionesBitacora = "" - If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() - If Not SqlCommand Is Nothing Then SqlCommand.Dispose() + If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing + If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing End If ' TODO: Liberar su propio estado (objetos no administrados). diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index c8a9c42e7..cee7e3770 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -5257,13 +5257,13 @@ Public Class ClsVentas If Not Me.disposedValue Then If disposing Then ' TODO: dispose managed state (managed objects). - If Not Data Is Nothing Then Data.Dispose() - If Not Dataset Is Nothing Then Dataset.Dispose() - If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() - If Not SqlCommand Is Nothing Then SqlCommand.Dispose() - If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() + If Not Data Is Nothing Then Data.Dispose() : Data = Nothing + If Not Dataset Is Nothing Then Dataset.Dispose() : Dataset = Nothing + If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing + If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing + If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close() - If Not SqlConexion Is Nothing Then SqlConexion.Dispose() + If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing End If ' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below. From 4c5690deaf41af35fa7ded041c41291babc8ff9b Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 22 Sep 2021 15:18:57 -0700 Subject: [PATCH 03/13] =?UTF-8?q?cache=20se=20pas=C3=B3=20a=2030=20minutos?= =?UTF-8?q?=20de=2060=20que=20tenia?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsPaginas.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 8611e3a83..49aab559a 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -5470,7 +5470,7 @@ Public Class ClsPaginas Protected Overrides Sub SavePageStateToPersistenceMedium(pviewState As Object) 'If Request.Form("__VIEWSTATE_KEY") IsNot Nothing Then Cache.Remove(Request.Form("__VIEWSTATE_KEY")) 'elimino la cachado anteriormente Dim VSKey As String = String.Format("VIEWSTATE_{0}_{1}_{2}", Session.SessionID, Request.Path, Date.Now.Ticks) - Cache.Add(VSKey, pviewState, Nothing, Date.Now.AddMinutes(60), Cache.NoSlidingExpiration, CacheItemPriority.Default, Nothing) 'Store the ViewState on Cache + Cache.Add(VSKey, pviewState, Nothing, Date.Now.AddMinutes(30), Cache.NoSlidingExpiration, CacheItemPriority.Default, Nothing) 'Store the ViewState on Cache 'Session.Add(VSKey, pviewState) 'Store the ViewState on Cache ClientScript.RegisterHiddenField("__VIEWSTATE_KEY", VSKey) From 6e00abed29094ffe425c2418c4bd080c055871bd Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 22 Sep 2021 23:49:44 -0700 Subject: [PATCH 04/13] carta porte --- App_Code/CFDITimbre.vb | 6 +++--- App_Code/ClsProductosServicios.vb | 8 ++++++-- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb index ddd73483a..a5704429e 100644 --- a/App_Code/CFDITimbre.vb +++ b/App_Code/CFDITimbre.vb @@ -587,7 +587,7 @@ End Class Public Class CFDICartaPorteUbicaciones Public Property TipoEstacion As String = "" - Public Property DistanciaRecorrida As Double = 0 + Public Property DistanciaRecorrida As Decimal = 0 'Public Property Ubicacion As New CFDICartaPorteUbicacion Public Property Origen As New CFDICartaPorteUbicacionOrigen Public Property Destino As New CFDICartaPorteUbicacionDestino @@ -680,8 +680,8 @@ Public Class CFDICartaPorteMercancia Public Property MaterialPeligroso As String = "" Public Property Embalaje As String = "" Public Property DescripEmbalaje As String = "" - Public Property PesoenKg As Double - Public Property ValorMercancia As Double + Public Property PesoenKg As Decimal + Public Property ValorMercancia As Decimal Public Property Moneda As String = "" Public Property FraccionArrancelaria As String = "" Public Property UUIDComercioExt As String = "" diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 1b1a08d6f..e245b1f44 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -92,6 +92,7 @@ Public Class ClsProductosServicios Public Property CveMaterialPeligroso As Integer Public Property CveEmbalaje As Integer Public Property PesoKg As Decimal + Public Property Dimensiones As String 'Nuevo Raul: 10/08/2018 Public Property CveUsuarioModifico As Integer @@ -301,6 +302,7 @@ Public Class ClsProductosServicios CveMaterialPeligroso = Data.Rows(0)("CveMaterialPeligroso").ToString.ToEntero CveEmbalaje = Data.Rows(0)("CveEmbalaje").ToString.ToEntero PesoKg = Data.Rows(0)("PesoKg").ToString.ToDecimal + Dimensiones = Data.Rows(0)("Dimensiones").ToString 'Nuevo Raul: 10/08/2018 CveUsuarioModifico = Data.Rows(0)("CveUsuarioModifico").ToString.ToEntero @@ -416,7 +418,7 @@ Public Class ClsProductosServicios Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "", Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False, Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False, - Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1) As Integer + Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "") As Integer Dim Retorno As Integer = -1 DataAdapter("PA_ProductosServiciosAdd") @@ -503,6 +505,7 @@ Public Class ClsProductosServicios .Add("@CveMaterialPeligroso", SqlDbType.Int).Value = CveMaterialPeligroso .Add("@CveEmbalaje", SqlDbType.Int).Value = CveEmbalaje .Add("@PesoKg", SqlDbType.SmallMoney).Value = PesoKg + .Add("@Dimensiones", SqlDbType.VarChar).Value = Dimensiones End With @@ -651,7 +654,7 @@ Public Class ClsProductosServicios Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1, Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "", Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False, Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False, - Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1) As Boolean + Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "") As Boolean Dim Retorno As Boolean = False @@ -740,6 +743,7 @@ Public Class ClsProductosServicios .Add("@CveMaterialPeligroso", SqlDbType.Int).Value = CveMaterialPeligroso .Add("@CveEmbalaje", SqlDbType.Int).Value = CveEmbalaje .Add("@PesoKg", SqlDbType.SmallMoney).Value = PesoKg + .Add("@Dimensiones", SqlDbType.VarChar).Value = Dimensiones End With From 1ecb2d874361b6fc2fb6f34c6f9e8865db0da214 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 23 Sep 2021 00:49:35 -0700 Subject: [PATCH 05/13] Parametros nuevos en catalogo de choferes y vehiculos --- Acarreos/CatChoferes.aspx | 304 ++++++++++++++++------------ Acarreos/CatChoferes.aspx.vb | 24 ++- App_Code/ClsAcarreos.vb | 49 +++-- Inventarios/TraspasoAlmacen.aspx | 31 ++- Inventarios/TraspasoAlmacen.aspx.vb | 24 ++- 5 files changed, 269 insertions(+), 163 deletions(-) diff --git a/Acarreos/CatChoferes.aspx b/Acarreos/CatChoferes.aspx index 9680d08b3..3cd1b9183 100644 --- a/Acarreos/CatChoferes.aspx +++ b/Acarreos/CatChoferes.aspx @@ -1,131 +1,173 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatChoferes.aspx.vb" Inherits="Acarreos_CatChoferes" %> - - - - - - - Catálogo de Choferes - - - - - - -
  • - -
    • -     -     -     - - - - - -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    - - - - - - - - - > - - - - - - - - - - - - -     -     - <%--POPUP AGREGAR--%> - -     - - - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatChoferes.aspx.vb" Inherits="Acarreos_CatChoferes" %> + + + + + + + Catálogo de Choferes + + + + + + +
  • + +
    • +     +     +     + + + + + +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + + + + + + + + + > + + + + + + + + + + + + +     +     + <%--POPUP AGREGAR--%> + +     + + + diff --git a/Acarreos/CatChoferes.aspx.vb b/Acarreos/CatChoferes.aspx.vb index 251fd78bb..2807faa3d 100644 --- a/Acarreos/CatChoferes.aspx.vb +++ b/Acarreos/CatChoferes.aspx.vb @@ -47,12 +47,12 @@ Partial Class Acarreos_CatChoferes Dim Estatus = 0 If ChkEstatus.Checked Then Estatus = 1 If HdnModalidad.Value = "A" Then - If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtDomicilio.Text.Trim, TxtTelefono.Text.Trim, TxtCiudad.Text.Trim, TxtLicencia.Text.Trim) Then + If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumInt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:=TxtColonia.Text.Trim, Ciudad:=TxtCiudad.Text.Trim, Estado:=TxtEstado.Text.Trim(), CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=TxtResidenciaFiscalOperador.Text.Trim) Then CargaDatos() Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion) End If ElseIf HdnModalidad.Value = "U" Then - If ObjAcar.UpdateChofer(HdnID.Value, TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtDomicilio.Text.Trim, TxtTelefono.Text.Trim, TxtCiudad.Text.Trim, TxtLicencia.Text.Trim) Then + If ObjAcar.UpdateChofer(HdnID.Value.ToEntero(), TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:=TxtColonia.Text.Trim, Ciudad:=TxtCiudad.Text.Trim, Estado:=TxtEstado.Text.Trim(), CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=TxtResidenciaFiscalOperador.Text.Trim) Then CargaDatos() Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion) End If @@ -70,13 +70,25 @@ Partial Class Acarreos_CatChoferes UpDatos.Update() BtnAgregarChofer.Text = "Actualizar" myModalLabel.InnerText = "Actualizar Chofer" + TxtChofer.Text = GvRow.DataKey("Chofer") - TxtIdentificacion.Text = GvRow.DataKey("Identificacion") - TxtDomicilio.Text = GvRow.DataKey("Domicilio") + TxtIdentificacion.Text = GvRow.DataKey("Identificacion") TxtTelefono.Text = GvRow.DataKey("Telefono") + + TxtDomicilio.Text = GvRow.DataKey("Domicilio") + TxtNumInt.Text = GvRow.DataKey("NumeroInterior") + TxtNumExt.Text = GvRow.DataKey("NumeroExterior") + TxtColonia.Text = GvRow.DataKey("Colonia") TxtCiudad.Text = GvRow.DataKey("Ciudad") - TxtLicencia.Text = GvRow.DataKey("Licencia") - DdlTransportista.SelectedValueExist(GvRow.DataKey("CveTransportista")) + TxtEstado.Text = GvRow.DataKey("Estado") + TxtCP.Text = GvRow.DataKey("CP") + TxtLicencia.Text = GvRow.DataKey("Licencia") + + TxtNumRegidTribOperador.Text = GvRow.DataKey("NumRegidTribOperador") + TxtResidenciaFiscalOperador.Text = GvRow.DataKey("ResidenciaFiscalOperador") + + DdlTransportista.SelectedValueExist(GvRow.DataKey("CveTransportista")) + divEstatus.Visible = True ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus")) UpAddChofer.Update() diff --git a/App_Code/ClsAcarreos.vb b/App_Code/ClsAcarreos.vb index 6c42c9419..14875112c 100644 --- a/App_Code/ClsAcarreos.vb +++ b/App_Code/ClsAcarreos.vb @@ -105,12 +105,13 @@ Public Class ClsAcarreos End Sub Public Sub Commit() SqlTransacc.Commit() - End Sub - - + End Sub + + #Region "Choferes" Public Function AddChofer(Chofer As String, CveUsuario As Integer, CveEmpresa As Integer, CveTransportista As Integer, Identificacion As String, Telefono As String, Licencia As String, RFC As String, Domicilio As String, - Optional NumeroExterior As String = "", Optional NumeroInterior As String = "", Optional Colonia As String = "", Optional Ciudad As String = "", Optional Estado As String = "", Optional CP As String = "") As Boolean + Optional NumeroExterior As String = "", Optional NumeroInterior As String = "", Optional Colonia As String = "", Optional Ciudad As String = "", Optional Estado As String = "", Optional CP As String = "", + Optional NumRegidTribOperador As String = "", Optional ResidenciaFiscalOperador As String = "") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Acar_ChoferesAdd") With SqlAdapter.SelectCommand.Parameters @@ -129,6 +130,8 @@ Public Class ClsAcarreos .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad .Add("@Estado", SqlDbType.VarChar).Value = Estado .Add("@CP", SqlDbType.VarChar).Value = CP + .Add("@NumRegidTribOperador", SqlDbType.VarChar).Value = NumRegidTribOperador + .Add("@ResidenciaFiscalOperador", SqlDbType.VarChar).Value = ResidenciaFiscalOperador End With Try SqlAdapter.Fill(Data) @@ -141,7 +144,8 @@ Public Class ClsAcarreos End Function Public Function UpdateChofer(CveChofer As Integer, Chofer As String, CveUsuario As Integer, CveEmpresa As Integer, Estatus As Integer, CveTransportista As Integer, Identificacion As String, Telefono As String, Licencia As String, RFC As String, Domicilio As String, - Optional NumeroExterior As String = "", Optional NumeroInterior As String = "", Optional Colonia As String = "", Optional Ciudad As String = "", Optional Estado As String = "", Optional CP As String = "") As Boolean + Optional NumeroExterior As String = "", Optional NumeroInterior As String = "", Optional Colonia As String = "", Optional Ciudad As String = "", Optional Estado As String = "", Optional CP As String = "", + Optional NumRegidTribOperador As String = "", Optional ResidenciaFiscalOperador As String = "") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Acar_ChoferesUpdate") With SqlAdapter.SelectCommand.Parameters @@ -162,6 +166,8 @@ Public Class ClsAcarreos .Add("@Estado", SqlDbType.VarChar).Value = Estado .Add("@CP", SqlDbType.VarChar).Value = CP .Add("@Estatus", SqlDbType.Int).Value = Estatus + .Add("@NumRegidTribOperador", SqlDbType.VarChar).Value = NumRegidTribOperador + .Add("@ResidenciaFiscalOperador", SqlDbType.VarChar).Value = ResidenciaFiscalOperador End With Try SqlAdapter.Fill(Data) @@ -1340,24 +1346,25 @@ Public Class ClsAcarreos End Try Return Retorno - End Function - - + End Function + + #End Region - + #Region "IDisposable Support" - ' IDisposable - Protected Overridable Sub Dispose(disposing As Boolean) - If Not Me.disposedValue Then - If disposing Then - If Not Data Is Nothing Then Data.Dispose() - If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() - If Not SqlCommand Is Nothing Then SqlCommand.Dispose() - If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close() - If Not SqlConexion Is Nothing Then SqlConexion.Dispose() - End If - End If - Me.disposedValue = True + ' IDisposable + Protected Overridable Sub Dispose(disposing As Boolean) + If Not Me.disposedValue Then + If disposing Then + If Not Data Is Nothing Then Data.Dispose() : Data = Nothing + If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing + If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing + If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing + If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close() + If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing + End If + End If + Me.disposedValue = True End Sub Public Sub Dispose() Implements IDisposable.Dispose ConexionClose() diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx index 320609c34..de0b9518b 100644 --- a/Inventarios/TraspasoAlmacen.aspx +++ b/Inventarios/TraspasoAlmacen.aspx @@ -816,15 +816,42 @@
    - +
    - +
    +
    + + + + +
    +
    + + +
    +
    + + +
    +
    + + +
    +
    + + +
    +
    + + +
    +
    diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index f585987ab..c120b52a0 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -3214,18 +3214,36 @@ Partial Class Inventarios_TraspasoAlmacen ObjInventarios.Dispose() DdlUnidadCamion.Items.Insert(0, New ListItem("Otro", "-1")) DdlUnidadCamion.DataBind() + + Using ObjGral As New ClsGenerales + If ObjGral.GetCartaPorteConfigAutoTransportes() Then + DdlConfigAuto.DataSource = ObjGral.DtResultados + End If + End Using + + DdlConfigAuto.DataBind() + End Sub Public Sub BtnAgregarCamion_Click(sender As Object, e As EventArgs) Handles BtnAgregarCamion.Click Dim ObjInventarios As New ClsInventarios - If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, UsuarioActual.CveEmpresa) Then + If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, ConfigCartaPorte:=DdlConfigAuto.SelectedValue, Anio:=TxtAnio.Text.ToEntero(), TipoPermisoSCT:=TxtTipoPermisoSCT.Text, NumPermisoSCT:=TxtNumermisoSCT.Text, NombreAseguradora:=TxtNombreAseguradora.Text, NumPolizaSeguro:=TxtNumPolizaSeguro.Text, CveEmpresa:=UsuarioActual.CveEmpresa) Then RegistraScript("$('#DivAgregarNuevoCamion').modal('hide');") CargarCamiones() - TxtPlacaNuevo.Text = "" - TxtEspecificacionNuevo.Text = "" + LimpiarAgregarCamion() End If ObjInventarios.Dispose() End Sub + Private Sub LimpiarAgregarCamion() + TxtPlacaNuevo.Text = "" + TxtEspecificacionNuevo.Text = "" + TxtAnio.Text = "" + TxtTipoPermisoSCT.Text = "" + TxtNumermisoSCT.Text = "" + TxtNombreAseguradora.Text = "" + TxtNumPolizaSeguro.Text = "" + End Sub + Private Sub DdlUnidadCamion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlUnidadCamion.SelectedIndexChanged If DdlUnidadCamion.SelectedValue = "-1" Then 'divPlacaEspecificacion.Visible = True From 3540bb759ab933994dfd2409dfb06c5df0b11b01 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 23 Sep 2021 00:49:56 -0700 Subject: [PATCH 06/13] Formato de EntradaSalidaUniforme --- Compras/PopUpVerFactura.aspx.vb | 9 +- .../72/Formatos/EntradaSalidaUniforme.rdlc | 3361 ++++++++++------- 2 files changed, 2026 insertions(+), 1344 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 19a607751..9b63a00ee 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -3520,12 +3520,11 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Total", "")) params.Add(New ReportParameter("NombreEntrego", NombreEntrego)) params.Add(New ReportParameter("NombreRecibio", Recibio)) - params.Add(New ReportParameter("PuestoRecibio", PuestoEntrego)) - params.Add(New ReportParameter("PuestoEntrego", PuestoRecibio)) - - If UsuarioActual.CveEmpresa = 72 Then + If UsuarioActual.CveEmpresa = 72 Then + params.Add(New ReportParameter("PuestoRecibio", PuestoEntrego)) + params.Add(New ReportParameter("PuestoEntrego", PuestoRecibio)) params.Add(New ReportParameter("Sucursal", SubProyecto)) - params.Add(New ReportParameter("DepartamenteRecibio", DepartamentoRecibe)) + params.Add(New ReportParameter("DepartamentoRecibio", DepartamentoRecibe)) params.Add(New ReportParameter("DepartamentoEntrego", DepartamentoEntrego)) End If diff --git a/Empresas/72/Formatos/EntradaSalidaUniforme.rdlc b/Empresas/72/Formatos/EntradaSalidaUniforme.rdlc index 0b146ba17..a2c3db492 100644 --- a/Empresas/72/Formatos/EntradaSalidaUniforme.rdlc +++ b/Empresas/72/Formatos/EntradaSalidaUniforme.rdlc @@ -1,1340 +1,2023 @@ - - - - - - - - - 1.3062cm - - - 1.91752cm - - - 16.76746cm - - - - - 0.6cm - - - - - true - true - - - - - Cant. - - - - - - - Textbox7 - - - - - 1pt - - - - 1pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Unidad - - - - - - - Textbox9 - - - - - 1pt - - - - 1pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Descripción - - - - - - - Textbox11 - - - - - 1pt - - - - 1pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.36717cm - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - 2pt - 2pt - =IIf(RowNumber(Nothing)=1,"1pt","0pt") - - - - - - - - true - true - - - - - =Fields!UnidadMedida.Value - - - - - - - Codigo - - - 2pt - 2pt - =IIf(RowNumber(Nothing)=1,"1pt","0pt") - - - - - - - - true - true - - - - - =Fields!PS.Value - - - - - - 2pt - 2pt - =IIf(RowNumber(Nothing)=1,"1pt","0pt") - - - - - - - - - - - - - - - - - - - After - - - - - - - DsInventarios - 0.17639cm - 0.12931cm - 0.96717cm - 19.99118cm - - - - - - true - true - - - - - El trabajador manifiesta que: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 14.88672cm - 12.03361cm - 0cm - 7.78259cm - 2 - - - - - - true - true - - - - - =UCase(Parameters!NombreRecibio.Value) - - - - - - - - - =Parameters!PuestoRecibio.Value - - - - - - - Textbox31 - 15.06311cm - 12.03361cm - 0.93514cm - 7.78259cm - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - 14.88672cm - 0.65058cm - 0cm - 7.8613cm - 4 - - - - - - true - true - - - - - =UCase(Parameters!UsuarioImprimio.Value) - - - - - - - - - =Parameters!PuestoEntrego.Value - - - - - - - Textbox31 - 15.00137cm - 0.65058cm - 0.99688cm - 7.8613cm - 5 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Entregado por: - - - - - - - Textbox31 - 13.2463cm - 0.65058cm - 0.6cm - 7.8613cm - 6 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Recibido por: - - - - - - - Textbox31 - 13.2463cm - 12.03361cm - 0.6cm - 7.38571cm - 7 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Observaciones.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 6.37491in - - - - - 7.95237in - - - 3.79401cm - true - true - - - true - true - - - - - =Parameters!Empresa.Value - - - - - - - Textbox1 - 0.28677cm - 3.73711cm - 0.67056cm - 10.80115cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ACTA ENTREGA DOTACIÓN - - - - - - - Textbox34 - 1.02789cm - 3.73711cm - 0.6cm - 10.75863cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!LogoPath.Value - FitProportional - 0.3175cm - 0.16459cm - 1.66316cm - 3.43141cm - 2 - - - - - - true - true - - - - - Personal: - - - - - - - - =Parameters!NombreRecibio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Folio - - - - : - - - - - - - Textbox3 - 0.31501cm - 15.40033cm - 0.59999cm - 1.82681cm - 5 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Folio.Value - - - - - - - Textbox31 - 0.31501cm - 17.33297cm - 0.63526cm - 2.13045cm - 6 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Almacen.Value - - - - - - - Textbox6 - 2.09105cm - 16.172cm - 0.6cm - 3.94849cm - 8 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FechaMovimiento.Value - - - - - - - Textbox32 - 2.84301cm - 16.172cm - 0.59999cm - 3.94849cm - 9 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Almacén: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - 0.91016cm - true - true - - - true - true - - - - - Usuario: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FechaImpresion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox3 - 0.17639cm - 18.10669cm - 0.68085cm - 2.09233cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 29.7cm - 21cm - 0.4cm - 0.4cm - 0.4cm - 0.4cm - 0.13cm - + + + + + + Textbox7 + + + + + 1pt + + + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Unidad + + + + + + + Textbox9 + + + + + 1pt + + + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descripción + + + + + + + Textbox11 + + + + + 1pt + + + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.36717cm + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!UnidadMedida.Value + + + + + + + Codigo + + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!PS.Value + + + + + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + + + + + + + + + + + + After + + + + + + + DsInventarios + 9.73314cm + 0.12931cm + 0.96717cm + 19.99118cm + + + + + + true + true + + + + + El trabajador manifiesta que: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 15.83922cm + 12.4834cm + 0cm + 6.93592cm + 2 + + + + + + true + true + + + + + =Parameters!NombreRecibio.Value + + + + + + + Textbox31 + 16.01561cm + 12.4834cm + 0.6cm + 6.93592cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + 15.83922cm + 1.39141cm + 0cm + 6.6522cm + 4 + + + + + + true + true + + + + + =Parameters!NombreEntrego.Value + + + + + + + Textbox31 + 15.95387cm + 1.43551cm + 0.6cm + 6.6081cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Entregado por: + + + + + + + Textbox31 + 14.3258cm + 1.66482cm + 0.6cm + 5.95755cm + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Recibido por: + + + + + + + Textbox31 + 14.3258cm + 12.85173cm + 0.6cm + 5.95755cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + DATOS GENERALES + + + + + + + Textbox32 + 0cm + 0.16459cm + 0.59999cm + 19.9559cm + 9 + + + Gainsboro + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Fecha de salida: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!FechaMovimiento.Value + + + + + + + Textbox32 + 0.69323cm + 16.172cm + 0.59999cm + 3.94849cm + 11 + + + Gainsboro + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Nombre del responsable a quien se le asigna el bien: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!NombreRecibio.Value + + + + + + + Textbox32 + 2.1057cm + 6.13063cm + 0.93187cm + 13.98986cm + 13 + + + Gainsboro + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Puesto: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!PuestoRecibio.Value + + + + + + + Textbox32 + 3.40216cm + 1.76501cm + 0.91749cm + 8.65262cm + 15 + + + Gainsboro + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Departamento: + + + + + + + Textbox4 + 3.40216cm + 10.55874cm + 0.91749cm + 2.75576cm + 16 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!DepartamentoRecibio.Value + + + + + + + Textbox32 + 3.38778cm + 13.3145cm + 0.93187cm + 6.80599cm + 17 + + + Gainsboro + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Empresa: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Empresa.Value + + + + + + + Textbox32 + 4.51042cm + 1.76501cm + 0.91749cm + 9.86088cm + 19 + + + Gainsboro + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Sucursal: + + + + + + + Textbox4 + 4.51042cm + 11.73172cm + 0.91749cm + 1.58278cm + 20 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Sucursal.Value + + + + + + + Textbox32 + 4.49604cm + 13.3145cm + 0.93187cm + 6.80599cm + 21 + + + Gainsboro + 2pt + 2pt + 2pt + 2pt + + + + 5.66432cm + 0.0762cm + 0cm + 20.04429cm + 22 + + 3pt + + + + + true + + + + + Nombre del responsable quien asigna el bien: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!NombreEntrego.Value + + + + + + + Textbox32 + 5.88277cm + 6.29189cm + 0.93187cm + 13.84875cm + 24 + + + Gainsboro + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Puesto: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!PuestoEntrego.Value + + + + + + + Textbox32 + 7.17923cm + 1.76501cm + 0.91749cm + 8.67277cm + 26 + + + Gainsboro + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Departamento: + + + + + + + Textbox4 + 7.17923cm + 10.57889cm + 0.91749cm + 2.75576cm + 27 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!DepartamentoEntrego.Value + + + + + + + Textbox32 + 7.16485cm + 13.33465cm + 0.93187cm + 6.80599cm + 28 + + + Gainsboro + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Empresa: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Empresa.Value + + + + + + + Textbox32 + 8.28749cm + 1.76501cm + 0.91749cm + 9.86088cm + 30 + + + Gainsboro + 2pt + 2pt + 2pt + 2pt + + + + 9.47314cm + 0.09635cm + 0cm + 20.04429cm + 31 + + 3pt + + + + + true + + + + + Sucursal: + + + + + + + Textbox4 + 8.25574cm + 11.73172cm + 0.91749cm + 1.57118cm + 32 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Folio: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Folio.Value + + + + + + + Textbox32 + 1.39553cm + 16.172cm + 0.59999cm + 3.94849cm + 34 + + + Gainsboro + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Sucursal.Value + + + + + + + Textbox32 + 8.27311cm + 13.3145cm + 0.93187cm + 6.82614cm + 35 + + + Gainsboro + 2pt + 2pt + 2pt + 2pt + + + + 6.552in + + + + + 7.95237in + + + 2.70922cm + true + true + + + true + true + + + + + =Parameters!Empresa.Value + + + + + + + Textbox1 + 0.28677cm + 3.73711cm + 0.67056cm + 10.80115cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ACTA ENTREGA DOTACIÓN + + + + + + + Textbox34 + 1.02789cm + 3.73711cm + 0.6cm + 10.75863cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.3175cm + 0.16459cm + 1.66316cm + 3.43141cm + 2 + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Folio + + + + : + + + + + + + Textbox3 + 0.31501cm + 15.40033cm + 0.59999cm + 1.82681cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Folio.Value + + + + + + + Textbox31 + 0.31501cm + 17.33297cm + 0.63526cm + 2.13045cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 0.91016cm + true + true + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.17639cm + 18.10669cm + 0.68085cm + 2.09233cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.4cm + 0.4cm + 0.4cm + 0.4cm + 0.13cm + - - - - - - Textbox2 - 0.40692cm - 1.25851cm - 0.41479cm - 2.5cm - - - 2pt - 2pt - 2pt - 2pt - - - - 1.751cm - 0.03175cm - 0cm - 4.77285cm - 1 - - - - - - true - true - - - - - Autorizó - - - - - - - Textbox2 - 0.40692cm - 8.99607cm - 0.41479cm - 2.5cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - 1.751cm - 7.97768cm - 0cm - 4.24699cm - 3 - - - - - - true - true - - - - - Cliente - - - - - - - Textbox2 - 0.40692cm - 17.20816cm - 0.41479cm - 2.5cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - 1.751cm - 16.18977cm - 0cm - 4.24699cm - 5 - - - - - - true - true - - - - - Nombre y Firma - - - - - - - Textbox8 - 1.85683cm - 17.26556cm - 0.46771cm - 2.5cm - 6 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Luz del Mar Coeto - - - - - - - Textbox8 - 1.85683cm - 8.65088cm - 0.46771cm - 3.135cm - 7 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UsuarioCreo.Value - - - - - - - Textbox8 - 1.85683cm - 0.03175cm - 0.46771cm - 4.77285cm - 8 - - - 2pt - 2pt - 2pt - 2pt - - - - true - 5.71563in - 0.05298in - 0.98611in - 8.29986in - - - - - - true - true - - - - - Devolución: - - - - - - - - - Cliente: - - - - =Parameters!ClienteNombre.Value - - - - - - - - - Calle: - - - - - - - - =Parameters!ClienteCalle.Value - - - - - - - - - Colonia: - - - - - - - - =Parameters!ClienteColonia.Value - - - - - - - - Ciudad: - - - - =Parameters!ClienteCiudad.Value - - - - - - - - - Municipio y/o Delegación: - - - - =Parameters!ClienteMunicipio.Value - - - - - - - Textbox2 - 1.62508in - 0.13457cm - 0.83626in - 3.07137in - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - true - true - - - - - "Este documento es una representación impresa de un CFDI" - - - - - - - - - Folio fiscal: - - - - =Parameters!FolioFiscal.Value - - - - - - - =Parameters!FechaCertificacion.Value - - - - Número de serie del Certificado de Sello Digital: - - - - =Parameters!CertificadoContribuyente.Value - - - - - - - =Parameters!SerieCertificadoSAT.Value - - - - - - - - - - - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!QR.Value - FitProportional - 0.0444in - 6.66374in - 1.2939in - 1.53682in - 1 - - - - - - true - 4.19067in - 0.04839in - 1.39013in - 8.30445in - 2 - - - - - - Embedded - Logo1 - FitProportional - 0.0125in - 0.04567in - 1.09458in - 1.14765in - 3 - - - - - - true - true - - - - - Estado: - - - - - - - - =Parameters!ClienteEstado.Value - - - - - - - - CP: - - - - - - - - =Parameters!ClienteCP.Value - - - - - - - - - Pais: - - - - =Parameters!ClientePais.Value - - - - - - - - RFC: - - - - =Parameters!ClienteRFC.Value - - - - - - - - - Teléfono: - - - - =Parameters!ClienteTelefono.Value - - - - - - - - - Coordinador Empresarial: - - - - =Parameters!VendedorNombre.Value - - - - - - - Textbox36 - 4.41523cm - 8.11225cm - 1.83656cm - 7.64646cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Expedido en - - - - : - - - - - - - - - =Parameters!DomicilioSucursal.Value - - - - - - - Textbox40 - 4.1277cm - 15.87387cm - 2.12409cm - 5.34235cm - 5 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - - =Parameters!Sucursal.Value - - - - - - - - - Tel. - - - - =Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "MATRIZ", "(662) 214 2200", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Tijuana", "(664) 645 1814", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Culiacán", "(667) 715 8533", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Aguascalientes", "(449) 913 4418", "")))) - - - - - - - - - SUCURSALES - - - - - - - - - - - - - Culiacán, Sin. - - - - - - - - - - - - Tijuana, B.C - - - - . - - - - - - - - Aguascalientes, Ags. - - - - - - - - - - - - - (667) - - - - 715 8533 - - - - - - - - - - - - (664) - - - - 645 1814 - - - - - - - - - - - - (449) - - - - 913 4418 - - - - - - - Textbox10 - 0.13104cm - 3.00408cm - 2.14312cm - 9.51761cm - 9 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - www. - - - - compuproveedores - - - - .com - - - - - - - Textbox2 - 1.98841cm - 3.00408cm - 0.58527cm - 9.51761cm - 10 - - - 2pt - 2pt - 2pt - 2pt - - - - 1.69533cm - 6.42953cm - 0.38833cm - 0cm - 11 - - - - - - 1.72708cm - 9.09508cm - 0.38833cm - 0cm - 12 - - - - - - true - true - - - - - Domicilio fiscal: - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - - Nota de Devolución - - - - - - - - - - - - - Serie: - - - - =Parameters!Serie.Value - - - - Folio: - - - - =Parameters!Folio.Value - - - - - - - - - Fecha: - - - - - - - - =Parameters!Fecha.Value - - - - - - - - - Fecha de Vencimiento: - - - - - - - - =Parameters!Vencimiento.Value - - - - - - - - - Forma de pago: - - - - =Parameters!FormaPago.Value - - - - - - - - - Método de pago y Cuenta: - - - - =Parameters!MetodoPago.Value - - - - - - - - =IIF(Parameters!NumCta.Value="0" Orelse Parameters!NumCta.Value="","No Identificado",Parameters!NumCta.Value) - - - - - - - - - Régimen fiscal: - - - - - - - - - - - - - Regimen General de Ley Personas Morales - - - - - - - - - - - Textbox4 - 0.05159in - 5.36844in - 1.51932in - 2.9844in - 14 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 0.87868in - - - 0.74835in - - - 0.70711in - - - 3.54151in - - - 0.63048in - - - 0.68106in - - - 1.11998in - - - - - 0.19645in - - - - - true - true - - - - - CANTIDAD - - - - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - UNIDAD - - - - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - CLAVE - - - - - - - Textbox29 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - DESCRIPCIÓN - - - - - - - Textbox17 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - %DESC - - - - - - - Textbox21 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - P/U - - - - - - - Textbox23 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - IMPORTE - - - - - - - Textbox1 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.17561in - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!UM.Value - - - - - - - UM - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Codigo.Value - - - - - - - Codigo - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PS.Value & " " & Fields!Obs.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Descuento.Value - - - - - - - Descuento - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PU.Value - - - - - - - PU - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Cantidad.Value * Fields!PU.Value - - - - - - - TiempoEntrega - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DsOC - 2.5405in - 0.04567in - 0.37206in - 8.30717in - 15 - - - - - - true - true - - - - - =Parameters!Observaciones.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - Microsoft - Fit - 8.19546cm - 0.116cm - 2.03729cm - 11.6363cm - 17 - - - - - - true - true - - - - - - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =UCase(Parameters!ImporteLetra.Value) - - - - - - - ImporteLetra - 3.36775in - 3.1938in - 0.18861in - 5.15904in - 19 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 3.46126cm - - - - - 0.48004cm - - - - - true - true - - - - - =Fields!Importe.Value - - - - - - - Importe - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - =Fields!ImpuestoLocal.Value - - - - 3.17935cm - - - true - true - - - - - =IIF(Fields!ImpuestoLocal.Value = "Total",UCase(Fields!ImpuestoLocal.Value),Fields!ImpuestoLocal.Value) - - - - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - DataSet1 - 7.77919cm - 14.57561cm - 0.48004cm - 6.64061cm - 20 - - - - - - 17.08592cm - - - - - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - IMPRESO EN SIG, Ventas - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - - - =Globals!ExecutionTime - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox35 - 0.14111cm - 18.38469cm - 0.41981cm - 2.5cm - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - 0.10583cm - 0.116cm - 0cm - 21.10021cm - 4 - - - - - - - - - - 27.94cm - 21.59cm - 0cm - 0cm - 0.5cm - 0.5cm - 1.27cm - + + + + + + Textbox2 + 0.40692cm + 1.25851cm + 0.41479cm + 2.5cm + + + 2pt + 2pt + 2pt + 2pt + + + + 1.751cm + 0.03175cm + 0cm + 4.77285cm + 1 + + + + + + true + true + + + + + Autorizó + + + + + + + Textbox2 + 0.40692cm + 8.99607cm + 0.41479cm + 2.5cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + 1.751cm + 7.97768cm + 0cm + 4.24699cm + 3 + + + + + + true + true + + + + + Cliente + + + + + + + Textbox2 + 0.40692cm + 17.20816cm + 0.41479cm + 2.5cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + 1.751cm + 16.18977cm + 0cm + 4.24699cm + 5 + + + + + + true + true + + + + + Nombre y Firma + + + + + + + Textbox8 + 1.85683cm + 17.26556cm + 0.46771cm + 2.5cm + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Luz del Mar Coeto + + + + + + + Textbox8 + 1.85683cm + 8.65088cm + 0.46771cm + 3.135cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioCreo.Value + + + + + + + Textbox8 + 1.85683cm + 0.03175cm + 0.46771cm + 4.77285cm + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + 6.91563in + 0.05298in + 0.98611in + 8.29986in + + + + + + true + true + + + + + Devolución: + + + + + + + + + Cliente: + + + + =Parameters!ClienteNombre.Value + + + + + + + + + Calle: + + + + + + + + =Parameters!ClienteCalle.Value + + + + + + + + + Colonia: + + + + + + + + =Parameters!ClienteColonia.Value + + + + + + + + Ciudad: + + + + =Parameters!ClienteCiudad.Value + + + + + + + + + Municipio y/o Delegación: + + + + =Parameters!ClienteMunicipio.Value + + + + + + + Textbox2 + 1.62508in + 0.13457cm + 0.83626in + 3.07137in + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + true + true + + + + + "Este documento es una representación impresa de un CFDI" + + + + + + + + + Folio fiscal: + + + + =Parameters!FolioFiscal.Value + + + + + + + =Parameters!FechaCertificacion.Value + + + + Número de serie del Certificado de Sello Digital: + + + + =Parameters!CertificadoContribuyente.Value + + + + + + + =Parameters!SerieCertificadoSAT.Value + + + + + + + + + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!QR.Value + FitProportional + 0.0444in + 6.66374in + 1.2939in + 1.53682in + 1 + + + + + + true + 4.19067in + 0.04839in + 1.39013in + 8.30445in + 2 + + + + + + Embedded + Logo1 + FitProportional + 0.0125in + 0.04567in + 1.09458in + 1.14765in + 3 + + + + + + true + true + + + + + Estado: + + + + + + + + =Parameters!ClienteEstado.Value + + + + + + + + CP: + + + + + + + + =Parameters!ClienteCP.Value + + + + + + + + + Pais: + + + + =Parameters!ClientePais.Value + + + + + + + + RFC: + + + + =Parameters!ClienteRFC.Value + + + + + + + + + Teléfono: + + + + =Parameters!ClienteTelefono.Value + + + + + + + + + Coordinador Empresarial: + + + + =Parameters!VendedorNombre.Value + + + + + + + Textbox36 + 4.41523cm + 8.11225cm + 1.83656cm + 7.64646cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Expedido en + + + + : + + + + + + + + + =Parameters!DomicilioSucursal.Value + + + + + + + Textbox40 + 4.1277cm + 15.87387cm + 2.12409cm + 5.34235cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + + =Parameters!Sucursal.Value + + + + + + + + + Tel. + + + + =Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "MATRIZ", "(662) 214 2200", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Tijuana", "(664) 645 1814", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Culiacán", "(667) 715 8533", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Aguascalientes", "(449) 913 4418", "")))) + + + + + + + + + SUCURSALES + + + + + + + + + + + + + Culiacán, Sin. + + + + + + + + + + + + Tijuana, B.C + + + + . + + + + + + + + Aguascalientes, Ags. + + + + + + + + + + + + + (667) + + + + 715 8533 + + + + + + + + + + + + (664) + + + + 645 1814 + + + + + + + + + + + + (449) + + + + 913 4418 + + + + + + + Textbox10 + 0.13104cm + 3.00408cm + 2.14312cm + 9.51761cm + 9 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + www. + + + + compuproveedores + + + + .com + + + + + + + Textbox2 + 1.98841cm + 3.00408cm + 0.58527cm + 9.51761cm + 10 + + + 2pt + 2pt + 2pt + 2pt + + + + 1.69533cm + 6.42953cm + 0.38833cm + 0cm + 11 + + + + + + 1.72708cm + 9.09508cm + 0.38833cm + 0cm + 12 + + + + + + true + true + + + + + Domicilio fiscal: + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + + Nota de Devolución + + + + + + + + + + + + + Serie: + + + + =Parameters!Serie.Value + + + + Folio: + + + + =Parameters!Folio.Value + + + + + + + + + Fecha: + + + + + + + + =Parameters!Fecha.Value + + + + + + + + + Fecha de Vencimiento: + + + + + + + + =Parameters!Vencimiento.Value + + + + + + + + + Forma de pago: + + + + =Parameters!FormaPago.Value + + + + + + + + + Método de pago y Cuenta: + + + + =Parameters!MetodoPago.Value + + + + + + + + =IIF(Parameters!NumCta.Value="0" Orelse Parameters!NumCta.Value="","No Identificado",Parameters!NumCta.Value) + + + + + + + + + Régimen fiscal: + + + + + + + + + + + + + Regimen General de Ley Personas Morales + + + + + + + + + + + Textbox4 + 0.05159in + 5.36844in + 1.51932in + 2.9844in + 14 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 0.87868in + + + 0.74835in + + + 0.70711in + + + 3.54151in + + + 0.63048in + + + 0.68106in + + + 1.11998in + + + + + 0.19645in + + + + + true + true + + + + + CANTIDAD + + + + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + UNIDAD + + + + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CLAVE + + + + + + + Textbox29 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + DESCRIPCIÓN + + + + + + + Textbox17 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + %DESC + + + + + + + Textbox21 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + P/U + + + + + + + Textbox23 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + IMPORTE + + + + + + + Textbox1 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.17561in + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!UM.Value + + + + + + + UM + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Codigo.Value + + + + + + + Codigo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PS.Value & " " & Fields!Obs.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Descuento.Value + + + + + + + Descuento + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PU.Value + + + + + + + PU + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cantidad.Value * Fields!PU.Value + + + + + + + TiempoEntrega + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DsOC + 2.5405in + 0.04567in + 0.37206in + 8.30717in + 15 + + + + + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + Microsoft + Fit + 8.19546cm + 0.116cm + 2.03729cm + 11.6363cm + 17 + + + + + + true + true + + + + + + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =UCase(Parameters!ImporteLetra.Value) + + + + + + + ImporteLetra + 3.36775in + 3.1938in + 0.18861in + 5.15904in + 19 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 3.46126cm + + + + + 0.48004cm + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + =Fields!ImpuestoLocal.Value + + + + 3.17935cm + + + true + true + + + + + =IIF(Fields!ImpuestoLocal.Value = "Total",UCase(Fields!ImpuestoLocal.Value),Fields!ImpuestoLocal.Value) + + + + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + DataSet1 + 7.77919cm + 14.57561cm + 0.48004cm + 6.64061cm + 20 + + + + + + + + true + true + + + + + CFDI Relacionados + + + + + + + Textbox5 + 0.11382cm + 0.05336cm + 0.54004cm + 20.58578cm + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Tipo Relación: + + + + + + + Textbox29 + 0.83025cm + 4.84153cm + 0.41981cm + 5.31841cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!TipoRelacionTexto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 2.42456cm + + + 2.05585cm + + + 3.03631cm + + + 7.7847cm + + + + + 0.44125cm + + + + + true + true + + + + + Folio + + + + + + + Textbox10 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox12 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox21 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Folio Fiscal + + + + + + + Textbox11 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.41479cm + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FolioFiscal.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet4 + 1.39643cm + 3.33979cm + 0.85604cm + 15.30142cm + 3 + + + + + + true + true + + + + + VERSION 3.3 + + + + + + + Textbox5 + 2.32303cm + 17.4509cm + 0.6cm + 3.06609cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + 14.48698cm + 0.28162cm + 2.97096cm + 20.69254cm + 21 + + =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) + + + + + + + 20.07042cm + + + + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + IMPRESO EN SIG, Ventas + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + + =Globals!ExecutionTime + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox35 + 0.14111cm + 18.38469cm + 0.41981cm + 2.5cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + 0.10583cm + 0.116cm + 0cm + 21.10021cm + 4 + + + + + + + + + + 27.94cm + 21.59cm + 0cm + 0cm + 0.5cm + 0.5cm + 1.27cm +