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/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/ClsAcarreos.vb b/App_Code/ClsAcarreos.vb index 0c1a3abe6..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,25 +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() : 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 + ' 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/App_Code/ClsClaseBase.vb b/App_Code/ClsClaseBase.vb index ca229a5e4..026d983d0 100644 --- a/App_Code/ClsClaseBase.vb +++ b/App_Code/ClsClaseBase.vb @@ -121,13 +121,13 @@ Public Class ClsClaseBase End If End Sub - Public Function runQuerystr(Query As String, Optional Listaparametros As List(Of parametroQuery) = Nothing, Optional msgError As String = "", Optional mostrarError As Boolean = True) As Boolean + Public Function runQuerystr(Query As String, Optional Listaparametros As List(Of parametroQuery) = Nothing, Optional msgError As String = "", Optional mostrarError As Boolean = True, Optional tipo As CommandType = CommandType.Text) As Boolean Dim retorno As Boolean = False Try If SqlConexion.State = ConnectionState.Open Then SqlAdapter.SelectCommand.Parameters.Clear() SqlAdapter.SelectCommand.CommandText = Query - SqlAdapter.SelectCommand.CommandType = CommandType.Text + SqlAdapter.SelectCommand.CommandType = tipo Data = New DataTable() If Not IsNothing(Listaparametros) Then For Each pr As parametroQuery In Listaparametros diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index e594b96c2..0c36234e9 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -2525,7 +2525,9 @@ Public Class ClsGenerales Public Function GetHistorialBitacora(CveAcarreo As Integer, CveOrdenCompra As Integer, CveActivoFijo As Integer, CveOS As Integer, CvePS As Integer, CveCompra As Integer, CveIE As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional CvePersonal As Integer = -1, - Optional IdPoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, Optional CvePeriodo As Integer = -1, Optional CveConceptoNomina As Integer = -1, Optional CvePromocion As Integer = -1) As Boolean + Optional IdPoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, Optional CvePeriodo As Integer = -1, Optional CveConceptoNomina As Integer = -1, Optional CvePromocion As Integer = -1, + Optional CveAsistencia As Integer = -1, Optional CveAsistenciaDetalle As Integer = -1, Optional CveTipoBitacora As Integer = -1, + Optional FechaInicio As String = "", Optional FechaFin As String = "") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_HistorialBitacoraGet") @@ -2547,6 +2549,11 @@ Public Class ClsGenerales .Add("@CvePromocion", SqlDbType.Int).Value = CvePromocion + .Add("@CveAsistencia", SqlDbType.Int).Value = CveAsistencia + .Add("@CveAsistenciaDetalle", SqlDbType.Int).Value = CveAsistenciaDetalle + .Add("@CveTipoBitacora", SqlDbType.Int).Value = CveTipoBitacora + .Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio + .Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin End With 'SqlTypes.SqlDateTime.Null diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 8f4ffb729..9d1572a61 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -2251,6 +2251,26 @@ Public Class ClsNominas End Try Return retorno End Function + Public Function ExcelToBD(xmlstring As String) As Boolean + Dim retorno As Boolean = False + + Try + DTSet = New DataSet() + DataAdapter("PA_ExcelToBD", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@xmlstring", SqlDbType.Xml).Value = xmlstring + End With + SqlAdapter.Fill(DTSet) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al obtener la asistenciadetalle.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al obtener la asistenciadetalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function Public Function AsistenciaDetallePorTurnoGet(FechaInicio As DateTime, FechaFin As DateTime, CveEmpresa As Integer, Optional CvePersonal As Integer = -1) As Boolean Dim retorno As Boolean = False 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) 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 diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 455ae5763..9a643e6ef 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -1807,7 +1807,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Calle As String, NumExt As String, NumInt As String, Colonia As String, CP As String, Ciudad As String, CveEstado As Integer, Telefono As String, Celular As String, RFC As String, CURP As String, NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String, CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveUsuario As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1, - Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Boolean = False, Optional CvePais As Integer = -1) As Boolean + Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Boolean = False, Optional CvePais As Integer = -1, Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -1889,7 +1889,9 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@ContactoAlterno", SqlDbType.VarChar).Value = ContactoAlterno .Add("@CveTipodeSalario", SqlDbType.Int).Value = CveTipodeSalario .Add("@Sindicalizado", SqlDbType.Bit).Value = Sindicalizado + .Add("@Pensionado", SqlDbType.Bit).Value = Pensionado .Add("@CvePais", SqlDbType.Int).Value = CvePais + .Add("@CveMedioTransporte", SqlDbType.Int).Value = CveMedioTransporte .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue @@ -1922,7 +1924,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, CvePersonal As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String, CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1, Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveUsuarioModifico As Integer = -1, - Optional FechaActivo As Date = MinFecha, Optional FechaReingreso As Date = MinFecha, Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Integer = -1, Optional CvePais As Integer = -1) As Boolean + Optional FechaActivo As Date = MinFecha, Optional FechaReingreso As Date = MinFecha, Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Integer = -1, Optional CvePais As Integer = -1, Optional Pensionado As Boolean = False) As Boolean Dim Retorno As Boolean = False @@ -2008,6 +2010,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@FechaReingreso", SqlDbType.Date).Value = FechaReingreso .Add("@CveTipodeSalario", SqlDbType.Int).Value = CveTipodeSalario .Add("@Sindicalizado", SqlDbType.Int).Value = Sindicalizado + .Add("@Pensionado", SqlDbType.Bit).Value = Pensionado .Add("@CvePais", SqlDbType.Int).Value = CvePais End With @@ -2441,7 +2444,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Function - Public Function UpAsistenciaDetalle(CveEmpresa As Integer, registros As List(Of RequestUpAsistenciaDetalle)) As Boolean + Public Function UpAsistenciaDetalle(CveEmpresa As Integer, CveUsuario As Integer, registros As List(Of RequestUpAsistenciaDetalle)) As Boolean Dim Retorno As Boolean = False Dim xmlProductos As System.Xml.Linq.XDocument = Nothing If registros IsNot Nothing AndAlso registros.Count > 0 Then @@ -2451,6 +2454,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo SqlDataAdapter("PA_RH_AsistenciaDetalleUP") With SqlAdapter.SelectCommand.Parameters .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@xmlRegistros", SqlDbType.Xml).Value = xmlProductos.ToString() End With Try @@ -7147,4 +7151,5 @@ Public Class RequestUpAsistenciaDetalle Public Property CvePersonal As Integer Public Property CveAsistenciasInasistencias As Integer Public Property CveSubProyecto As Integer + Public Property Motivo As String End Class 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 2a15a440e..27585e0ea 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 @@ -6791,6 +6815,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 @@ -6798,6 +6823,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 @@ -6807,18 +6835,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 @@ -6974,7 +7006,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 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 +