diff --git a/AC/RegNomina.aspx b/AC/RegNomina.aspx index 5f660dfe7..db1709f12 100644 --- a/AC/RegNomina.aspx +++ b/AC/RegNomina.aspx @@ -93,12 +93,23 @@ - + + - -
ISPT Servicio Médico:Fonacot:
Crédito al Salario
+ Pensión: + P. Infonavit: + + + ISR Asimilados + C. Sindical + + + + + + diff --git a/AC/RegNomina.aspx.vb b/AC/RegNomina.aspx.vb index 2d6a6cd3d..cc9ed0b49 100644 --- a/AC/RegNomina.aspx.vb +++ b/AC/RegNomina.aspx.vb @@ -373,6 +373,12 @@ Partial Class AC_RegNomina Dim IdCtaCreditoSalario As Integer = 635 Dim IdCtaDevolucionISPT As Integer = 1745 Dim IdCtaMatriz As Integer + Dim IdCtaCuotaSindical As Integer = 644 + Dim IdCtaInfonavit As Integer = 2018 + Dim IdCtaFonacot As Integer = 646 + Dim IdCtaServicioMedico As Integer = 643 + Dim IdCtaPension As Integer = 643 + Dim IdCtaISRAsimilados As Integer = 4442 Dim Importe As Double Dim MsgError As String = "" @@ -564,6 +570,7 @@ Partial Class AC_RegNomina ObjIE.UpdateIEPrePoliza(Fecha, objAC.Folio.ToString, IDPoliza, CvePrePoliza, CveIE, -1) Else + MsgError = "no se pudo agregar el movimiento bancario" TieneError = True End If @@ -586,9 +593,34 @@ Partial Class AC_RegNomina If Importe > 0 AndAlso Not objAC.AddMovimiento(IDPoliza, IdCtaCreditoSalario, False, Importe, "", Concepto, 0, Fecha, "") Then TieneError = True - 'Registro del Mov Devolución - Importe = TxtISPT.Text.ToDouble - TxtCredSalario.Text.ToDouble - If Importe <> 0 AndAlso Not objAC.AddMovimiento(IDPoliza, IdCtaDevolucionISPT, If(Importe > 0, False, True), Math.Abs(Importe), "", Concepto, 0, Fecha, "") Then TieneError = True + 'Registro Cuotas Sindicales + Importe = TxtSindical.Text.ToDouble + If Importe > 0 AndAlso Not objAC.AddMovimiento(IDPoliza, IdCtaCuotaSindical, True, Importe, "", Concepto, 0, Fecha, "") Then TieneError = True + + 'Registro Prestamo infonavit + Importe = txtInfonavit.Text.ToDouble + If Importe > 0 AndAlso Not objAC.AddMovimiento(IDPoliza, IdCtaInfonavit, True, Importe, "", Concepto, 0, Fecha, "") Then TieneError = True + + 'Registro Fonacot + Importe = txtFonacot.Text.ToDouble + If Importe > 0 AndAlso Not objAC.AddMovimiento(IDPoliza, IdCtaFonacot, True, Importe, "", Concepto, 0, Fecha, "") Then TieneError = True + + 'Registro Servicio Medico + Importe = txtServicioMedico.Text.ToDouble + If Importe > 0 AndAlso Not objAC.AddMovimiento(IDPoliza, IdCtaServicioMedico, True, Importe, "", Concepto, 0, Fecha, "") Then TieneError = True + + 'Registro Pensión + Importe = txtPension.Text.ToDouble + If Importe > 0 AndAlso Not objAC.AddMovimiento(IDPoliza, IdCtaPension, True, Importe, "", Concepto, 0, Fecha, "") Then TieneError = True + + 'Registro ISR Asimilados + Importe = TxtISRAsimilados.Text.ToDouble + If Importe > 0 AndAlso Not objAC.AddMovimiento(IDPoliza, IdCtaISRAsimilados, True, Importe, "", Concepto, 0, Fecha, "") Then TieneError = True + + + ''Registro del Mov Devolución + 'Importe = TxtISPT.Text.ToDouble - TxtCredSalario.Text.ToDouble + 'If Importe <> 0 AndAlso Not objAC.AddMovimiento(IDPoliza, IdCtaDevolucionISPT, If(Importe > 0, False, True), Math.Abs(Importe), "", Concepto, 0, Fecha, "") Then TieneError = True Else TieneError = True diff --git a/AF/CatAF.aspx.vb b/AF/CatAF.aspx.vb index b5e500e31..14a3d44f4 100644 --- a/AF/CatAF.aspx.vb +++ b/AF/CatAF.aspx.vb @@ -458,7 +458,8 @@ Partial Class AF_CatAF Dim params As New List(Of ReportParameter) Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\CatAF.rdlc", UsuarioActual.Empresa.Ruta)) + Dim Ruta As String = "" params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) @@ -468,7 +469,13 @@ Partial Class AF_CatAF Else params.Add(New ReportParameter("LogoPath", "")) End If - ImprimirPDF(String.Format("{0}Formatos\CatAF.rdlc", UsuarioActual.Empresa.Ruta), DtActivosFijos, params, "CatalogoActivosFijos", Formato:=Formato) + + If Archivo.Exists Then + Ruta = UsuarioActual.Empresa.Ruta & "Formatos/CatAF.rdlc" + Else + Ruta = "Empresas/Grales/Formatos/CatAF.rdlc" + End If + ImprimirPDF(Ruta, DtActivosFijos, params, "CatalogoActivosFijos", Formato:=Formato) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx b/Acumuladores/EntradasUsadosResumenRep.aspx index 67f945d0f..5ed52d568 100644 --- a/Acumuladores/EntradasUsadosResumenRep.aspx +++ b/Acumuladores/EntradasUsadosResumenRep.aspx @@ -11,7 +11,7 @@
  • - +
  • @@ -107,7 +107,7 @@

    -

    +
    @@ -116,7 +116,7 @@
    - +
    @@ -165,7 +165,7 @@
    - + diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx b/Acumuladores/RepEntradasUsadosClientes.aspx index 7b495acc8..d5b839932 100644 --- a/Acumuladores/RepEntradasUsadosClientes.aspx +++ b/Acumuladores/RepEntradasUsadosClientes.aspx @@ -66,7 +66,10 @@
    - +
    Cliente:
    +
    + +
    @@ -124,9 +127,10 @@ - + + - + diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx.vb b/Acumuladores/RepEntradasUsadosClientes.aspx.vb index e83cfdea4..25e180f3d 100644 --- a/Acumuladores/RepEntradasUsadosClientes.aspx.vb +++ b/Acumuladores/RepEntradasUsadosClientes.aspx.vb @@ -19,6 +19,7 @@ Partial Class Acumuladores_RepEntradasUsadosClientes If Not Page.IsPostBack Then CargaCombos() + CargaNombreClientes() End If End Sub @@ -26,8 +27,11 @@ Partial Class Acumuladores_RepEntradasUsadosClientes Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click CargaDatos() + End Sub + Private Sub CargaNombreClientes() + DdlNombre.setEsWebService(True) + DdlNombre.Attributes.Add("data-metodo", "getcliente") End Sub - Public Sub CargaCombos() DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 22) DdlAlmacen.DataBind() @@ -44,11 +48,11 @@ Partial Class Acumuladores_RepEntradasUsadosClientes FechaI = If(IsDate(TxtFechaI.Text.Trim()), TxtFechaI.Text.Trim.todate, minfecha) FechaF = If(IsDate(TxtFechaF.Text.Trim()), TxtFechaF.Text.Trim.todate, maxfecha) - Dim CveAlmacen As Integer = If(DdlAlmacen.SelectedValue = "", "-1", DdlAlmacen.SelectedValue).ToString.toentero - + Dim CveAlmacen As Integer = If(DdlAlmacen.SelectedValue = "", "-1", DdlAlmacen.SelectedValue).ToString.ToEntero + Dim CveCliente As Integer = If(DdlNombre.SelectedValue = "", "-1", DdlNombre.SelectedValue).ToString.ToEntero Dim Acum As New ClsAcumuladores - If Acum.EntradasUsadosClientesRep(CveAlmacen, FechaI, FechaF, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + If Acum.EntradasUsadosClientesRep(CveAlmacen, FechaI, FechaF, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCliente) Then GvDatos.DataSource = Acum.DtResultados.FiltraParametros("Codigo_Clientes <> 'Total:'") 'los renglones generados con esta caracteriztica son con un grouping set en la consulta, se pueden quitar DatosEntradasUsadosClientes = Acum.DtResultados.FiltraParametros("Codigo_Clientes <> 'Total:'") End If diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb index 8c9c1da2b..cd7bbc863 100644 --- a/App_Code/ClsAF.vb +++ b/App_Code/ClsAF.vb @@ -2604,7 +2604,7 @@ Public Class ClsAF .Add("@FechaVF", SqlDbType.DateTime).Value = FechaVF .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveCliente", SqlDbType.Int).Value = Estatus + .Add("@Estatus", SqlDbType.Int).Value = Estatus End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb index a52ab1a98..365c14035 100644 --- a/App_Code/ClsAcumuladores.vb +++ b/App_Code/ClsAcumuladores.vb @@ -1076,7 +1076,7 @@ Public Class ClsAcumuladores Return Retorno End Function - Public Function EntradasUsadosClientesRep(CveAlmacen As Integer, FechaI As Date, FechaF As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Public Function EntradasUsadosClientesRep(CveAlmacen As Integer, FechaI As Date, FechaF As Date, CveUsuario As Integer, CveEmpresa As Integer, Optional CveCliente As Integer = -1) As Boolean Dim Retorno As Boolean = False 'Data = New DataTable @@ -1088,6 +1088,8 @@ Public Class ClsAcumuladores .Add("@FechaFin", SqlDbType.Date).Value = FechaF .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + End With Try diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb index 58cd8559f..ec9312444 100644 --- a/App_Code/ClsContPAQi.vb +++ b/App_Code/ClsContPAQi.vb @@ -7290,12 +7290,11 @@ Public Class ClsContPAQi StrSQL.Append(" FROM [dbo].[Polizas] P ") StrSQL.Append(" LEFT JOIN TiposPolizas T ON T.Id = P.TipoPol ") StrSQL.Append(" LEFT JOIN MovimientosPoliza M ON M.IdPoliza = P.Id ") - StrSQL.Append(" LEFT JOIN [SERVIDOR].[Ventas].dbo.Conta_PrePolizas PP on P.Id = PP.IdPoliza") + StrSQL.Append(" LEFT JOIN [SERVIDOR].[Ventas].dbo.Conta_PrePolizas PP on P.Id = PP.IdPoliza AND YEAR(PP.Fecha) = @Ejercicio AND MONTH(PP.Fecha) = @Periodo AND PP.CveEmpresa = @CveEmpresa") StrSQL.Append(" WHERE P.Ejercicio = @Ejercicio ") StrSQL.Append(" AND P.Periodo = @Periodo ") StrSQL.Append(" AND (@TipoPoliza = -1 OR P.TipoPol = @TipoPoliza) ") StrSQL.Append(" AND (@SegmentoNegocio = -1 OR M.IdSegNeg = @SegmentoNegocio) ") - StrSQL.Append(" AND (PP.CveEmpresa = @CveEmpresa) ") StrSQL.Append(" GROUP BY P.Id, P.Fecha, T.Nombre, P.Concepto, P.Cargos, P.Abonos, P.Folio, PP.CvePrepoliza ") StrSQL.Append(" ORDER BY P.Folio ") diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 8b5995aea..a23c60cc3 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -2445,7 +2445,7 @@ Public Class ClsContabilidad End Function Public Function UpdateConta_PlantillasPolizasDetalle(CveConcepto As Integer, TipoMovto As Integer, IdCtaContable As Integer, Orden As Integer, CvePlantillaPolizaDetalle As Integer, CveSubProyecto As Integer, CveProveedor As Integer, - Optional CvePersonal As Integer = -1, Optional PorcentajeImpuesto As Decimal = 0) As Boolean + Optional CvePersonal As Integer = -1, Optional PorcentajeImpuesto As Decimal = 0, Optional CveCuenta As Integer = -1) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Conta_PlantillasPolizasDetalleUpdate") @@ -2460,6 +2460,8 @@ Public Class ClsContabilidad .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@PorcentajeImpuesto", SqlDbType.SmallMoney).Value = PorcentajeImpuesto + .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta + End With Try diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index a382bb7e6..35896829d 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -241,7 +241,7 @@ Public Class ClsMovimientos Gpo As Integer, CveResponsable As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoDocto As String = "-1", Optional FechaVI As String = "-1", Optional FechaVF As String = "-1", Optional FechaCorte As Date = Nothing, Optional EstatusCliente As Integer = -1, Optional CveUsuarioConsulta As Integer = -1, - Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional TipoCliente As Integer = -1) As Boolean + Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional TipoCliente As Integer = -1, Optional AplicaAnticiposPagados As Integer = 1) As Boolean Dim Retorno As Boolean = False 'Data = New DataTable @@ -273,7 +273,8 @@ Public Class ClsMovimientos .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta .Add("@CveCobranzaEstatus", SqlDbType.Int).Value = CveCobranzaEstatus .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion - .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente + .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente + .Add("@AplicaAnticiposPagados", SqlDbType.Int).Value = AplicaAnticiposPagados End With Try @@ -324,7 +325,7 @@ Public Class ClsMovimientos CveResponsable As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoDocto As String = "-1", Optional FechaVI As String = "-1", Optional FechaVF As String = "1", Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1, Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional LimiteCredito As Decimal = -1, - Optional TipoCliente As Integer = -1, Optional CveMoneda As Integer = -1, Optional EstatusCliente As Integer = -1) As Boolean + Optional TipoCliente As Integer = -1, Optional CveMoneda As Integer = -1, Optional EstatusCliente As Integer = -1, Optional AplicaAnticiposPagados As Integer = 1) As Boolean Dim Retorno As Boolean = False 'Data = New DataTable @@ -364,8 +365,8 @@ Public Class ClsMovimientos .Add("@LimiteCredito", SqlDbType.Float).Value = LimiteCredito .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .Add("@EstatusCliente", SqlDbType.Int).Value = EstatusCliente - + .Add("@EstatusCliente", SqlDbType.Int).Value = EstatusCliente + .Add("@AplicaAnticiposPagados", SqlDbType.Int).Value = AplicaAnticiposPagados End With Try diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 10e629319..1ed6016c8 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4802,7 +4802,6 @@ Public Class ClsPaginas #End Region #Region "Planeacion" 'PLANEACIÓN - PaginaDict.Add("/Planeacion/CatSucursales.aspx".ToUpper(), 17) PaginaDict.Add("/Planeacion/Sucursal.aspx".ToUpper(), 17) PaginaDict.Add("/Planeacion/CatProyectos.aspx".ToUpper(), 34) PaginaDict.Add("/Planeacion/CatSubProyectos.aspx".ToUpper(), 35) diff --git a/App_Code/ClsSucursales.vb b/App_Code/ClsSucursales.vb new file mode 100644 index 000000000..b7d3f0f00 --- /dev/null +++ b/App_Code/ClsSucursales.vb @@ -0,0 +1,383 @@ +Option Explicit On +Option Strict On + +Imports System.Data +Imports System.Data.SqlClient +Imports Extensiones +Imports System +Imports System.Configuration + +Public Class ClsSucursales + Implements IDisposable + +#Region "Campos" + + 'SQL + Private SqlConexion As SqlConnection + Private SqlAdapter As SqlDataAdapter + Private SqlTransacc As SqlTransaction + Private SqlCommand As SqlCommand + Private Data As DataTable + + Private disposedValue As Boolean = False + + 'Atributos de la clase + Private _Calle As String + Private _NoExt As String + Private _NoInt As String + Private _Colonia As String + Private _Localidad As String + Private _Municipio As String + Private _Estado As String + Private _Pais As String + Private _CP As Integer + 'PARA REGISTRAR CONEXION + Private CveConexion As Integer = 0 +#End Region + +#Region "Propiedades" + Public ReadOnly Property Calle As String + Get + Return _Calle + End Get + End Property + + Public ReadOnly Property NoExt As String + Get + Return _NoExt + End Get + End Property + + Public ReadOnly Property NoInt As String + Get + Return _NoInt + End Get + End Property + + Public ReadOnly Property Colonia As String + Get + Return _Colonia + End Get + End Property + + Public ReadOnly Property Localidad As String + Get + Return _Localidad + End Get + End Property + + Public ReadOnly Property Municipio As String + Get + Return _Municipio + End Get + End Property + + Public ReadOnly Property Estado As String + Get + Return _Estado + End Get + End Property + + Public ReadOnly Property Pais As String + Get + Return _Pais + End Get + End Property + + Public ReadOnly Property CP As Integer + Get + Return _CP + End Get + End Property + + Public ReadOnly Property DtResultados() As DataTable + Get + DtResultados = Data + End Get + End Property +#End Region + + Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) + + If TransaccionCompartida Is Nothing Then + SqlConexion = New SqlConnection + SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + Try + SqlConexion.Open() + Catch ex As Exception + OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex) + End Try + Else + SqlConexion = TransaccionCompartida.Connection + SqlTransacc = TransaccionCompartida + End If + + SqlCommand = New SqlCommand("", SqlConexion) + SqlAdapter = New SqlDataAdapter("", SqlConexion) + ConexionAdd() + End Sub + Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure) + With SqlAdapter.SelectCommand + .Parameters.Clear() + .CommandText = StrSQL + .CommandType = TipoComando + End With + If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc + Data = New DataTable + End Sub +#Region "Conexiones" + + Private Sub ConexionAdd() + If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then + + Try + 'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo) VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo + DataAdapter("PA_Sis_RegistrarConexion") + With SqlAdapter.SelectCommand.Parameters + .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name + .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString) + .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output + End With + SqlAdapter.Fill(Data) + CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero + Catch ex As Exception + OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + End If + End Sub + + Private Sub ConexionClose() + If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then + + DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) + Try + SqlAdapter.Fill(Data) + + Catch ex As Exception + OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + CveConexion = 0 + + End If + + End Sub +#End Region + Private Sub DataCommand(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure) + With SqlCommand + .Parameters.Clear() + .CommandText = pStrSQL + .CommandType = TipoComando + End With + + If Not SqlTransacc Is Nothing Then SqlCommand.Transaction = SqlTransacc + + End Sub + Public Function IniciaTransacSQL() As SqlTransaction + If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction() + Return SqlTransacc + End Function + + Public Sub RollBack() + If SqlTransacc IsNot Nothing Then SqlTransacc.Rollback() + SqlTransacc = Nothing + End Sub + Public Sub Commit() + If SqlTransacc IsNot Nothing Then SqlTransacc.Commit() + SqlTransacc = Nothing + End Sub + + 'Public Function GetSucursalesEmpresa(CveEmpresa As Integer) As Boolean + ' Dim Retorno As Boolean = False + ' Data = New DataTable + ' SqlAdapter = New SqlDataAdapter("PA_GetSucursalesEmpresa", SqlConexion) + ' SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure + + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + ' End With + + + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As SqlException + ' OnError("Ocurrió un error al consultar las Sucursales.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ' End Try + ' SqlAdapter.Dispose() + ' Return Retorno + 'End Function + + + + + Public Function GetSucursales(Optional CveEmpresa As Integer = -1) As Boolean + Dim Retorno As Boolean = False + Data = New DataTable + SqlAdapter = New SqlDataAdapter("PA_SucursalesGet", SqlConexion) + SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + OnError("Ocurrió un error al consultar las Sucursales.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + SqlAdapter.Dispose() + Return Retorno + End Function + + + + + Public Function AddSucursal(Sucursal As String, Serie As String, IVA As Double, FormatoFactura As String, CveUsuario As Integer, CveEmpresa As Integer, + Calle As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Municipio As String, Estado As String, Pais As String, CP As String, TipoSucursal As Integer) As Integer + Dim Retorno = -1 + + DataAdapter("PA_SucursalAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Sucursal", SqlDbType.VarChar).Value = Sucursal + .Add("@Serie", SqlDbType.VarChar).Value = Serie + .Add("@IVA", SqlDbType.Float).Value = IVA + .Add("@FormatoFactura", SqlDbType.VarChar).Value = FormatoFactura + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + + .Add("@Calle", SqlDbType.VarChar).Value = Calle + .Add("@NoExt", SqlDbType.VarChar).Value = NoExt + .Add("@NoInt", SqlDbType.VarChar).Value = NoInt + .Add("@Colonia", SqlDbType.VarChar).Value = Colonia + .Add("@Localidad", SqlDbType.VarChar).Value = Localidad + .Add("@Municipio", SqlDbType.VarChar).Value = Municipio + .Add("@Estado", SqlDbType.VarChar).Value = Estado + .Add("@Pais", SqlDbType.VarChar).Value = Pais + .Add("@CP", SqlDbType.VarChar).Value = CP + .Add("@TipoSucursal", SqlDbType.Int).Value = TipoSucursal + .Add("@pCveSucursal", SqlDbType.Int).Direction = ParameterDirection.Output + End With + + Try + SqlAdapter.Fill(Data) + Retorno = SqlAdapter.SelectCommand.Parameters("@pCveSucursal").Value.ToString.ToEntero + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("Ya existe una Sucursal con el mismo nombre: " & Sucursal & ".", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al Guardar la Sucursal.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al Guardar la Sucursal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + SqlAdapter.Dispose() + Return Retorno + End Function + + Public Function UpdateSucursal(Sucursal As String, Serie As String, IVA As Double, FormatoFactura As String, Estatus As Boolean, CveUsuario As Integer, CveSucursal As Integer, + Calle As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Municipio As String, Estado As String, Pais As String, CP As String, TipoSucursal As Integer) As Boolean + Dim Retorno As Boolean = False + Data = New DataTable + SqlAdapter = New SqlDataAdapter("PA_SucursalUpdate", SqlConexion) + SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure + With SqlAdapter.SelectCommand.Parameters + .Add("@Sucursal", SqlDbType.VarChar).Value = Sucursal + .Add("@Serie", SqlDbType.VarChar).Value = Serie + .Add("@IVA", SqlDbType.Float).Value = IVA + .Add("@FormatoFactura", SqlDbType.VarChar).Value = FormatoFactura + .Add("@Estatus", SqlDbType.Bit).Value = If(Estatus, 1, 0) + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveSucursal", SqlDbType.Int).Value = CveSucursal + .Add("@Calle", SqlDbType.VarChar).Value = Calle + .Add("@NoExt", SqlDbType.VarChar).Value = NoExt + .Add("@NoInt", SqlDbType.VarChar).Value = NoInt + .Add("@Colonia", SqlDbType.VarChar).Value = Colonia + .Add("@Localidad", SqlDbType.VarChar).Value = Localidad + .Add("@Municipio", SqlDbType.VarChar).Value = Municipio + .Add("@Estado", SqlDbType.VarChar).Value = Estado + .Add("@Pais", SqlDbType.VarChar).Value = Pais + .Add("@CP", SqlDbType.VarChar).Value = CP + .Add("@TipoSucursal", SqlDbType.Int).Value = TipoSucursal + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("Ya existe una Sucursal con el mismo nombre: " & Sucursal & ".", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al guardar los cambios en la Sucursal", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al guardar los cambios en la Sucursal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + SqlAdapter.Dispose() + Return Retorno + End Function + + Public Function RemoveSucursal(CveSucursal As Integer) As Boolean + Dim OnError As Boolean = False + SqlAdapter = New SqlDataAdapter("PA_SucursalRemove", SqlConexion) + SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure + With SqlAdapter.SelectCommand.Parameters + .Add("@CveSucursal", SqlDbType.Int).Value = CveSucursal + End With + Data = New DataTable() + Try + SqlAdapter.Fill(Data) + OnError = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 547;") Then + Alert("La Sucursal no se pudo eliminar por que esta siendo usada por un registro.", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al eliminar la Sucursal.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + Me.OnError("Ocurrió un error al eliminar la Sucursal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + SqlAdapter.Dispose() + Return OnError + End Function + +#Region "IDisposable Support" + + + ' IDisposable + Protected Overridable Sub Dispose(disposing As Boolean) + If Not Me.disposedValue Then + If disposing Then + ' TODO: dispose managed state (managed objects). + 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 + + ' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below. + ' TODO: set large fields to null. + End If + Me.disposedValue = True + End Sub + + ' TODO: override Finalize() only if Dispose(disposing As Boolean) above has code to free unmanaged resources. + 'Protected Overrides Sub Finalize() + ' ' Do not change this code. Put cleanup code in Dispose(disposing As Boolean) above. + ' Dispose(False) + ' MyBase.Finalize() + 'End Sub + + ' This code added by Visual Basic to correctly implement the disposable pattern. + Public Sub Dispose() Implements IDisposable.Dispose + ' Do not change this code. Put cleanup code in Dispose(disposing As Boolean) above. + ConexionClose() + Dispose(True) + GC.SuppressFinalize(Me) + End Sub +#End Region + +End Class diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index 80ab83c67..de2c67ba8 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -979,13 +979,13 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState End If If DTUM.Count > 0 Then - DtPSRetorno = New DataView(DTUM.OrderBy(Function(a) a!Nombre).CopyToDataTable).ToTable(True, {"CveSATUnidadMedida", "ClaveNombre"}) + DtPSRetorno = New DataView(DTUM.OrderBy(Function(a) a!Nombre).CopyToDataTable).ToTable(True, {"CveUnidadMedidaSAT", "ClaveNombre"}) Else DtPSRetorno = Nothing End If If DtPSRetorno IsNot Nothing AndAlso DtPSRetorno.Rows.Count > 0 Then - DtPSRetorno.Columns("CveSATUnidadMedida").ColumnName = "id" + DtPSRetorno.Columns("CveUnidadMedidaSAT").ColumnName = "id" DtPSRetorno.Columns("ClaveNombre").ColumnName = "text" retorno = JsonConvert.SerializeObject(DtPSRetorno).ToString context.Response.Write(retorno) diff --git a/Bancos/CuentasBancariasDetalle.aspx.vb b/Bancos/CuentasBancariasDetalle.aspx.vb index 656a2aa10..24f611f58 100644 --- a/Bancos/CuentasBancariasDetalle.aspx.vb +++ b/Bancos/CuentasBancariasDetalle.aspx.vb @@ -193,13 +193,53 @@ Partial Class Bancos_CuentasBancariasDetalle DdlTipoCuenta.SelectedValue = ObjCuentasBancariasDetalle.CveTipoCuenta.ToString - DdlTipoCuenta_SelectedIndexChanged(DdlTipoCuenta, EventArgs.Empty) + DdlTipoCuenta_SelectedIndexChanged(DdlTipoCuenta, EventArgs.Empty) + + If UsuarioActual.Empresa.TipoContabilizacion = 1 Then DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.CveCuentaConta.ToString) DdlCuentaContableComplementaria.SelectedValueExist(ObjCuentasBancariasDetalle.CveCuentaContaComplementaria.ToString) Else - DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContable.ToString) + + Dim ExisteEnIntems As Boolean = False + + For Each li As ListItem In DDlCuentaContable.Items + If li.Value.ToEntero = ObjCuentasBancariasDetalle.IdCtaContable Then + ExisteEnIntems = True + Exit For + End If + Next + + + If ExisteEnIntems Then + DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContable.ToString) + Else + + If UsuarioActual.Empresa.UsaContabilidad Then + Dim objCont As New ClsContPAQi(UsuarioActual.Empresa) + + + If objCont.GetCuentas(ObjCuentasBancariasDetalle.IdCtaContable, "-1", -1) Then + If objCont.DtResultados.Rows.Count > 0 Then + + DDlCuentaContable.Items.Add(New ListItem(objCont.DtResultados.Rows(0)("CtaCodigo").ToString, objCont.DtResultados.Rows(0)("id").ToString)) + DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContable.ToString) + + End If + End If + + + objCont.Dispose() + + End If + + + End If + + DdlCuentaContableComplementaria.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContableComplementaria.ToString) + + End If Else diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index 445f02eb9..df3cbc36c 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -41,7 +41,7 @@
    -
    +
    @@ -56,7 +56,7 @@
    -
    +
    @@ -110,7 +110,7 @@
    - +
    @@ -137,67 +137,89 @@
    -
    - +
    +
    - - -
  • Imprimir EXCEL
    • + +
  • + Paquete Egresos +
    • + + + @@ -133,7 +140,8 @@
    - + @@ -179,6 +187,13 @@ + + + + + + + diff --git a/Contabilidad/FiltraPolizas.aspx.vb b/Contabilidad/FiltraPolizas.aspx.vb index a2095a75f..df68997dd 100644 --- a/Contabilidad/FiltraPolizas.aspx.vb +++ b/Contabilidad/FiltraPolizas.aspx.vb @@ -1,5 +1,7 @@ Imports System.Data +Imports System.IO Imports Extensiones +Imports iTextSharp.text.pdf Imports Microsoft.Reporting.WebForms Partial Class Contabilidad_FiltraPolizas @@ -13,6 +15,14 @@ Partial Class Contabilidad_FiltraPolizas ViewState("DtDatos") = value End Set End Property + Public Property Tick As String + Get + Return CType(ViewState("Tick"), String) + End Get + Set(value As String) + ViewState("Tick") = value + End Set + End Property #End Region @@ -215,5 +225,314 @@ Partial Class Contabilidad_FiltraPolizas #End Region + Protected Sub LnkPaqueteEgre_Click(sender As Object, e As EventArgs) Handles LnkPaqueteEgre.Click + Dim filtro() As String = {"CveCompra", "CveIE", "CveConceptoContable"} + Dim filtroComplemento() As String = {"CveIE"} + Dim Pathpdf As New List(Of String) + Dim pdfs = New List(Of Byte()) + Dim Path As String + Dim ObjCompra As New ClsCompras + Dim ObjIE As New ClsBancos() + Dim pathPoliza As String = "" + Dim TieneComprobante As String = "" + Tick = DateTime.Now.Ticks.ToString + Dim ObjContabilidad As New ClsContabilidad + Dim CvePrePoliza As Integer + Dim PolizasSinComprobante As String = "Polizas sin comprobante:
    " + Dim SinComprobante As Boolean = False + Dim contador As Integer = 0 + Try + If Gv.Rows.Count > 0 Then + + + For Each TempPolizas As GridViewRow In Gv.Rows + If TempPolizas.FCCheckBox("ChkPoliza").Checked Then + contador += 1 + CvePrePoliza = TempPolizas.DataKey("CvePrePoliza").ToString.ToEntero + ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza) + TieneComprobante = VerificarComprobante(ObjContabilidad.DtResultados) + + If TieneComprobante = "" And Not SinComprobante Then + + Path = ImprimirPolizaPDF(CvePrePoliza) + pathPoliza = Path + If File.Exists(Path) Then + Pathpdf.Add(Path) + End If + Dim dt As DataTable = ObjContabilidad.DtResultados.FiltraParametros("", "", filtro) + + For Each Row As DataRow In dt.Rows + If Row("CveConceptoContable").ToString.ToEntero = 30 Then + If Row("CveIE").ToString.ToEntero > 0 Then + If ObjIE.GetBancosIE(Row("CveIE").ToString.ToEntero, UsuarioActual.CveEmpresa) Then + If ObjIE.DtResultados.Rows.Count > 0 Then + Path = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ObjIE.Comprobante.ToString) + If File.Exists(Path) Then + Dim formato As String = System.IO.Path.GetExtension(Path) + If formato.ToLower.Contiene(".jpg", ".png", ".jpeg") Then + Dim ComprobantePDF As String = String.Format("{0}\{1}\comprobante.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick) + Using crea_archivo = New iTextSharp.text.Document(iTextSharp.text.PageSize.A4, 18, 18, 18, 18) + PdfWriter.GetInstance(crea_archivo, New FileStream(ComprobantePDF, FileMode.Create)) + crea_archivo.Open() + Dim image As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(Path) + If image.Height > image.Width Then + Dim percentage As Double = 0.0F + percentage = 700 / image.Height + image.ScalePercent(percentage * 100) + Else + Dim percentage As Double = 0.0F + percentage = 540 / image.Width + image.ScalePercent(percentage * 100) + End If + crea_archivo.Add(image) + End Using + Pathpdf.Add(ComprobantePDF) + Else + Pathpdf.Add(Path) + End If + End If + End If + End If + End If + End If + If Row("CveConceptoContable").ToString.ToEntero.Contiene(17, 309, 312, 308) Then + If ObjCompra.GetCompras(Row("CveCompra").ToString.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then + If ObjCompra.DtResultados IsNot Nothing AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then + Dim dr As DataRow = ObjCompra.DtResultados.Rows(0) + Dim RFC As String = dr("RFC").ToString + Dim CveFactura As String = dr("CveFactura").ToString + Path = String.Format("{0}Compras\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, RFC, CveFactura) + If File.Exists(Path) Then + + Pathpdf.Add(Path) + End If + End If + End If + End If + Next + + + dt = ObjContabilidad.DtResultados.FiltraParametros("", "", filtroComplemento) + For Each Row As DataRow In dt.Rows + If ObjCompra.GetCompraComplementoPago(-1, UsuarioActual.CveEmpresa, Row("CveIE").ToString.ToEntero) Then + If ObjCompra.DtResultados IsNot Nothing AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then + Dim dr As DataRow = ObjCompra.DtResultados.Rows(0) + Dim RFC As String = dr("RFCde").ToString + Dim CveFactura As String = dr("CveFactura").ToString + Console.WriteLine(RFC & CveFactura) + If CveFactura <> "" Then + Path = String.Format("{0}Compras\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, RFC, CveFactura) + Console.WriteLine(Path) + If File.Exists(Path) Then + Pathpdf.Add(Path) + End If + End If + End If + End If + Next + Else + If TieneComprobante <> "" Then + PolizasSinComprobante += String.Format("{1} {2}
    ", TieneComprobante, TempPolizas.DataKey("TipoPol").ToString, TempPolizas.DataKey("Folio").ToString) + SinComprobante = True + End If + + End If + + End If + Next + If contador > 0 Then + If SinComprobante Then + Alert(PolizasSinComprobante, TipoMensaje.MsgAdvertencia) + Else + MergePdfFiles(Pathpdf.ToArray) + End If + Else + Alert("No hay polizas seleccionadas para imprimir", TipoMensaje.MsgAdvertencia) + + End If + + Else + Alert("No hay informacion cargada", TipoMensaje.MsgAdvertencia) + End If + + If File.Exists(pathPoliza) Then + Directory.Delete(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True) + End If + + Catch ex As Exception + Alert("Error al descargar el paquete", TipoMensaje.MsgError) + If File.Exists(pathPoliza) Then + Directory.Delete(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True) + End If + End Try + + ObjCompra.Dispose() + ObjIE.Dispose() + End Sub + Private Function ImprimirPolizaPDF(CvePrePoliza As Integer) As String + Dim ObjConta As New ClsContabilidad + 'Dim ObjPoliza As New ClsContPAQi(UsuarioActual.Empresa) + + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + Dim Bytes As Byte() = Nothing + + + 'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then + If ObjConta.GetPrePolizasDetalle(CvePrePoliza) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then + Dim dtVC As DataTable + Dim dr As DataRow + dtVC = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden") + dr = dtVC.Rows(0) + Dim ruta As String = "" + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString)) + params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString)) + params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString)) + params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString)) + 'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString)) + 'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString)) + params.Add(New ReportParameter("Numero", dr("FolioPoliza").ToString)) + params.Add(New ReportParameter("Moneda", "")) + params.Add(New ReportParameter("CodigoPostal", "")) + If UsuarioActual.CveEmpresa = 119 Then + params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre"))) + End If + If UsuarioActual.CveEmpresa = 140 Then + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + End If + If Archivo.Exists Then + ruta = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc" + Else + ruta = "Empresas/Grales/Formatos/Polizas.rdlc" + End If + Bytes = StreamPDF(ruta, dtVC, params, "ppoliza") + If Not File.Exists(String.Format("{0}{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, CvePrePoliza.ToString)) Then + DirectoryExistsCreate(String.Format("{0}{1}", AppDomain.CurrentDomain.BaseDirectory, Tick)) + File.WriteAllBytes(String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, CvePrePoliza.ToString), Bytes) + End If + End If + Return String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, CvePrePoliza.ToString) + ObjConta.Dispose() + + End Function + Private Sub MergePdfFiles(ByVal pdfFiles() As String) + Dim result As Boolean = False + Dim pdfCount As Integer = 0 + Dim f As Integer = 0 + Dim fileName As String + Dim reader As iTextSharp.text.pdf.PdfReader = Nothing + Dim pageCount As Integer = 0 + Dim pdfDoc As iTextSharp.text.Document = Nothing + Dim writer As PdfWriter = Nothing + Dim cb As PdfContentByte = Nothing + + Dim page As PdfImportedPage = Nothing + Dim rotation As Integer = 0 + + + Try + pdfCount = pdfFiles.Length + If pdfCount > 0 Then + fileName = pdfFiles(f) + reader = New iTextSharp.text.pdf.PdfReader(fileName) + pageCount = reader.NumberOfPages + pdfDoc = New iTextSharp.text.Document(reader.GetPageSizeWithRotation(1), 18, 18, 18, 18) + writer = PdfWriter.GetInstance(pdfDoc, New FileStream(String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, "poliza"), FileMode.Create)) + + With pdfDoc + .Open() + End With + cb = writer.DirectContent + While f < pdfCount + Dim i As Integer = 0 + While i < pageCount + i += 1 + pdfDoc.SetPageSize(reader.GetPageSizeWithRotation(i)) + pdfDoc.NewPage() + page = writer.GetImportedPage(reader, i) + rotation = reader.GetPageRotation(i) + If rotation = 90 Then + cb.AddTemplate(page, 0, -1.0F, 1.0F, 0, 0, reader.GetPageSizeWithRotation(i).Height) + ElseIf rotation = 270 Then + cb.AddTemplate(page, 0, 1.0F, -1.0F, 0, reader.GetPageSizeWithRotation(i).Width + 60, -30) + Else + cb.AddTemplate(page, 1.0F, 0, 0, 1.0F, 0, 0) + End If + End While + f += 1 + If f < pdfCount Then + fileName = pdfFiles(f) + reader = New iTextSharp.text.pdf.PdfReader(fileName) + pageCount = reader.NumberOfPages + End If + End While + + + pdfDoc.Close() + + Dim Archivo As New System.IO.FileInfo(String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, "Poliza")) + + If Archivo.Exists Then + Response.Clear() + Response.ContentType = Nothing + Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) + Response.AddHeader("Content-Length", Archivo.Length.ToString()) + Response.TransmitFile(String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, "Poliza")) + Response.Flush() ' send it to the client to download + HttpContext.Current.Response.SuppressContent = True + HttpContext.Current.ApplicationInstance.CompleteRequest() + + + End If + result = True + End If + Catch ex As Exception + End Try + + + + End Sub + + Private Function VerificarComprobante(ByVal PrepolizaDetalle As DataTable) As String + Dim filtro() As String = {"CveIE", "CveConceptoContable"} + Dim Path As String + Dim dt As DataTable = PrepolizaDetalle.FiltraParametros("", "", filtro) + Dim ObjIE As New ClsBancos() + Dim TieneComprobante As String = "" + + For Each Row As DataRow In dt.FiltraParametros("CveConceptoContable = 30").Rows + + If ObjIE.GetBancosIE(Row("CveIE").ToString.ToEntero, UsuarioActual.CveEmpresa) Then + If ObjIE.DtResultados.Rows.Count > 0 Then + Path = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ObjIE.Comprobante.ToString) + If File.Exists(Path) Then + TieneComprobante = "" + Exit For + Else + TieneComprobante = Row("CveIE").ToString + Exit For + End If + Else + TieneComprobante = Row("CveIE").ToString + Exit For + End If + End If + + Next + ObjIE.Dispose() + Return TieneComprobante + + End Function + + Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles Gv.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + 'If e.Row.DataKey("Comprobante").ToString <> "" AndAlso e.Row.DataKey("Comprobante").ToString IsNot Nothing Then + ' e.Row.FCCheckBox("ChkPoliza").Enabled = True + 'Else + ' e.Row.FCCheckBox("ChkPoliza").ToolTip = "No se tiene cargado comprobante de pago" + 'End If + End If + End Sub End Class diff --git a/Contabilidad/PlantillasPolizasDetalle.aspx b/Contabilidad/PlantillasPolizasDetalle.aspx index 3db8c7b0a..691215228 100644 --- a/Contabilidad/PlantillasPolizasDetalle.aspx +++ b/Contabilidad/PlantillasPolizasDetalle.aspx @@ -160,7 +160,7 @@ - + @@ -176,7 +176,7 @@ -  > +  > @@ -268,25 +268,24 @@
    - - - + +
    -
    - +
    +
    - +
    - +
    diff --git a/Contabilidad/PlantillasPolizasDetalle.aspx.vb b/Contabilidad/PlantillasPolizasDetalle.aspx.vb index c80bca90a..500a2c97c 100644 --- a/Contabilidad/PlantillasPolizasDetalle.aspx.vb +++ b/Contabilidad/PlantillasPolizasDetalle.aspx.vb @@ -141,7 +141,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle DdlCtaContable.Items.Insert(0, New ListItem("Seleccione", "-1")) - If UsuarioActual.Empresa.TipoContabilizacion = 2 Then + If UsuarioActual.Empresa.TipoContabilizacion = 2 Or UsuarioActual.Empresa.TipoContabilidad = 1 Then Dim Conta As New ClsContabilidad Dim dtt As New DataTable @@ -248,12 +248,13 @@ Partial Class Contabilidad_PlantillasPolizasDetalle Dim Row As DataRow Dim ErrorActualizar = False Dim ErrorDetalle = False - + Dim Cuenta As Integer = -1 If HdnModalidad.Value = "I" Then If CvePlantillaPoliza > 0 Then - If ObjPlantillaPolizaDetalle.AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza, DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlPorcentajeImpuesto.SelectedValue.ToDecimal, -CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then + If ObjPlantillaPolizaDetalle.AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza, DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedItem.ToEntero, TxtOrden.Text.Trim.ToEntero, + UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, + DdlPorcentajeImpuesto.SelectedValue.ToDecimal, CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then TxtOrden.Text = "" If Not ChkSeguirAgregando.Checked Then updatatos() @@ -289,8 +290,9 @@ CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then Else If HdnID.Value.ToEntero <> -1 Then If CvePlantillaPoliza > 0 Then - If ObjPlantillaPolizaDetalle.UpdateConta_PlantillasPolizasDetalle(DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero, - HdnID.Value.ToEntero, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlPorcentajeImpuesto.SelectedValue.ToDecimal) Then + If ObjPlantillaPolizaDetalle.UpdateConta_PlantillasPolizasDetalle(DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedItem.ToEntero, TxtOrden.Text.Trim.ToEntero, + HdnID.Value.ToEntero, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, + DdlPorcentajeImpuesto.SelectedValue.ToDecimal, CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) updatatos() Else @@ -328,8 +330,11 @@ CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then - Dim Cuenta As Integer = e.Row.DataKey("IdCtaContable").ToString.ToEntero - e.Row.FCLiteral("LtlCtaContable").Text = DTCuentasContables.FiltroPrimeroValor("Nombre", $"Id = {Cuenta}") + + If UsuarioActual.Empresa.TipoContabilidad <> 1 Then + Dim Cuenta As Integer = e.Row.DataKey("IdCtaContable").ToString.ToEntero + e.Row.FCLiteral("LtlCtaContable").Text = DTCuentasContables.FiltroPrimeroValor("Nombre", $"Id = {Cuenta}") + End If End If End Sub @@ -438,6 +443,7 @@ CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then DdlConcepto.SelectedValueExist(GvRow.DataKey("CveConcepto")) DdlTipoMovimiento.SelectedValueExist(IIf(GvRow.DataKey("TipoMovimiento") = "Abono", 1, 0).ToString) DdlCtaContable.SelectedValueExist(GvRow.DataKey("IdCtaContable")) + DdlCuentas.SelectedValueExist(GvRow.DataKey("CveCuenta")) DDLSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto")) TxtOrden.Text = GvRow.DataKey("Orden") LbAgregar.Text = "Actualizar" diff --git a/Contabilidad/RegPrePoliza.aspx b/Contabilidad/RegPrePoliza.aspx index 57d916c51..5f72a908d 100644 --- a/Contabilidad/RegPrePoliza.aspx +++ b/Contabilidad/RegPrePoliza.aspx @@ -80,6 +80,9 @@
  • Cargar Comprobante
    • +
  • + Imprimir Poliza +
    • diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index 7b4c0ec8f..b18750878 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/Contabilidad/RegPrePoliza.aspx.vb @@ -202,7 +202,6 @@ Partial Class ContabilidadC_RegPrePoliza Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then - Tick = DateTime.Now.Ticks.ToString If UsuarioActual.Empresa.TipoContabilizacion = 1 OrElse UsuarioActual.Empresa.TipoContabilidad = 1 Then Response.Redirect(Request.Url.PathAndQuery.Replace("RegPrePoliza", "RegPrePolizaS")) @@ -251,14 +250,16 @@ Partial Class ContabilidadC_RegPrePoliza GvConcepto.Columns(4).Visible = False GvMov.Columns(5).Visible = False End If + LnkExcel.Visible = False + LnkImprimirPoliza.Visible = True If IfNull(Request("Conta"), "").ToString = "1" Then Contabilizar() End If Exit Sub - LnkExcel.Visible = False Else LnkExcel.Visible = True + LnkImprimirPoliza.Visible = False CreaDT() BtnEliminar.Visible = False @@ -518,13 +519,13 @@ Partial Class ContabilidadC_RegPrePoliza 'Asignamos los Subproyectos e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) e.Row.FCDropDownList("DdlSubProyecto").DataBind() - 'e.Row.FCDropDownList("DdlSubProyecto").Items.Insert(0, New ListItem(" - ", "-1")) + e.Row.FCDropDownList("DdlSubProyecto").Items.Insert(0, New ListItem(" - ", "-1")) e.Row.FCDropDownList("DdlSubProyecto").SelectedValueExist(e.Row.DataKey("CveSubProyecto")) 'Asignamos los Tipos de Gasto e.Row.FCDropDownList("DdlTipoGasto").DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("DdlTipoGasto").DataBind() - 'e.Row.FCDropDownList("DdlTipoGasto").Items.Insert(0, New ListItem("Sin Asignar", "-1")) + e.Row.FCDropDownList("DdlTipoGasto").Items.Insert(0, New ListItem("Sin Asignar", "-1")) e.Row.FCDropDownList("DdlTipoGasto").SelectedValueExist(e.Row.DataKey("CveTipoGasto")) 'ASignamos las CuentasContables @@ -849,7 +850,10 @@ Partial Class ContabilidadC_RegPrePoliza dr("MultipleSubProyecto") = drt("MultipleSubProyecto") dr("PorcentajeImpuesto") = drt("PorcentajeImpuesto") dr("CveCuenta") = drt("CveCuenta") - dr("FolioPoliza") = drt("FolioPoliza") + If CvePrePoliza > 0 Then + dr("FolioPoliza") = drt("FolioPoliza") + End If + DtMovimientos.Rows.Add(dr) @@ -1775,6 +1779,7 @@ Partial Class ContabilidadC_RegPrePoliza Dim ObjIE As New ClsBancos() Dim pathPoliza As String = "" Dim TieneComprobante As Boolean + Tick = DateTime.Now.Ticks.ToString Try TieneComprobante = VerificarComprobante() @@ -1837,38 +1842,36 @@ Partial Class ContabilidadC_RegPrePoliza Next - dt = DtMovimientos.FiltraParametros("", "", filtroComplemento) - For Each Row As DataRow In dt.Rows + + For Each Row As DataRow In dt.FiltraParametros("CveConceptoContable = 30").Rows If ObjCompra.GetCompraComplementoPago(-1, UsuarioActual.CveEmpresa, Row("CveIE").ToString.ToEntero) Then - Console.WriteLine(Row("CveIE").ToString) If ObjCompra.DtResultados IsNot Nothing AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then - Dim dr As DataRow = ObjCompra.DtResultados.Rows(0) - Dim RFC As String = dr("RFCde").ToString - Dim CveFactura As String = dr("CveFactura").ToString - Console.WriteLine(RFC & CveFactura) - If CveFactura <> "" Then - Path = String.Format("{0}Compras\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, RFC, CveFactura) - Console.WriteLine(Path) - If File.Exists(Path) Then - Pathpdf.Add(Path) + For Each RowComple As DataRow In ObjCompra.DtResultados.FiltraParametros("", "", {"RFCde", "CveFactura"}).Rows + Dim RFC As String = RowComple.Item("RFCde").ToString + Dim CveFactura As String = RowComple.Item("CveFactura").ToString + If CveFactura <> "" Then + Path = String.Format("{0}Compras\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, RFC, CveFactura) + If File.Exists(Path) Then + Pathpdf.Add(Path) + End If End If - End If + Next + End If End If Next - MergePdfFiles(Pathpdf.ToArray) - If File.Exists(pathPoliza) Then - Directory.Delete(String.Format("{0}{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True) - End If - Else Alert("No se tiene cargado comprobante de pago", TipoMensaje.MsgAdvertencia) End If - - + If File.Exists(pathPoliza) Then + Directory.Delete(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True) + End If Catch ex As Exception Alert("Error al descargar el paquete", TipoMensaje.MsgError) + If File.Exists(pathPoliza) Then + Directory.Delete(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True) + End If End Try ObjCompra.Dispose() ObjIE.Dispose() @@ -1886,7 +1889,7 @@ Partial Class ContabilidadC_RegPrePoliza If ObjConta.GetPrePolizasDetalle(CvePrePoliza) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Dim dtVC As DataTable Dim dr As DataRow - dtVC = ObjConta.DtResultados + dtVC = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden") dr = dtVC.Rows(0) Dim ruta As String = "" params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) @@ -1902,6 +1905,9 @@ Partial Class ContabilidadC_RegPrePoliza If UsuarioActual.CveEmpresa = 119 Then params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre"))) End If + If UsuarioActual.CveEmpresa = 140 Then + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + End If If Archivo.Exists Then ruta = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc" Else @@ -1988,6 +1994,9 @@ Partial Class ContabilidadC_RegPrePoliza End If result = True + If Directory.Exists(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick)) Then + Directory.Delete(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True) + End If End If Catch ex As Exception End Try @@ -2182,6 +2191,8 @@ Partial Class ContabilidadC_RegPrePoliza Dim YaExiste As Boolean = False Dim CveConceptoContable As Integer = Row("CveConceptoContable").ToString.ToEntero Dim IdCtaContable As Integer = Row("IdCtaContable").ToString.ToEntero + 'sino viene el cveconcepto, busca por le nombre del concepto + If CveConceptoContable = 0 Then CveConceptoContable = GlobalDTContaConceptosContables(-1).FiltroPrimeroValor("CveConceptoContable", String.Format("ConceptoContable = '{0}'", Row("ConceptoContable"))).ToEntero If ObjConta.GetCuentas(-1, Cuenta.Replace("-", ""), 1, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then @@ -2332,20 +2343,20 @@ Partial Class ContabilidadC_RegPrePoliza For Each Row As DataRow In dt.FiltraParametros("CveConceptoContable = 30").Rows If ObjIE.GetBancosIE(Row("CveIE").ToString.ToEntero, UsuarioActual.CveEmpresa) Then - If ObjIE.DtResultados.Rows.Count > 0 Then - Path = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ObjIE.Comprobante.ToString) - If File.Exists(Path) Then - TieneComprobante = True - Exit For - Else - TieneComprobante = False - Exit For - End If + If ObjIE.DtResultados.Rows.Count > 0 Then + Path = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ObjIE.Comprobante.ToString) + If File.Exists(Path) Then + TieneComprobante = True + Exit For Else TieneComprobante = False Exit For End If + Else + TieneComprobante = False + Exit For End If + End If Next ObjIE.Dispose() @@ -2353,5 +2364,53 @@ Partial Class ContabilidadC_RegPrePoliza End Function + Protected Sub LnkImprimirPoliza_Click(sender As Object, e As EventArgs) + ImprimirPolizaPDFRunTime(IdPoliza) + End Sub + Private Function ImprimirPolizaPDFRunTime(IdPoliza As Integer) As String + Dim ObjConta As New ClsContabilidad + 'Dim ObjPoliza As New ClsContPAQi(UsuarioActual.Empresa) + + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + Dim Bytes As Byte() = Nothing + + + 'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then + If ObjConta.GetPrePolizasDetalle(CvePrePoliza) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then + Dim dtVC As DataTable + Dim dr As DataRow + dtVC = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden") + dr = dtVC.Rows(0) + Dim ruta As String = "" + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString)) + params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString)) + params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString)) + params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString)) + 'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString)) + 'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString)) + params.Add(New ReportParameter("Numero", dr("FolioPoliza").ToString)) + params.Add(New ReportParameter("Moneda", "")) + params.Add(New ReportParameter("CodigoPostal", "")) + If UsuarioActual.CveEmpresa = 119 Then + params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre"))) + End If + If UsuarioActual.CveEmpresa = 140 Then + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + End If + If Archivo.Exists Then + ruta = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc" + Else + ruta = "Empresas/Grales/Formatos/Polizas.rdlc" + End If + ImprimirbytesPDF(StreamPDF(ruta, dtVC, params, "ppoliza"), String.Format("{0}-{1}", TipoPoliza, dr("FolioPoliza").ToString), "PDF", True) + + End If + Return String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, IdPoliza.ToString) + ObjConta.Dispose() + + End Function + End Class diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index 3cc6b3e1b..858da02e8 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -69,20 +69,20 @@
  • - Cargar Excel + Cargar Excel
  • Crear Complemento de Pago
  • - Imprimir Poliza + Imprimir Poliza
  • - Agregar Concepto + Agregar Concepto
    • @@ -406,7 +406,6 @@ - @@ -454,7 +453,7 @@
    + DataKeyNames="CvePrePolizaDetalle, CveConceptoContable, IdCtaContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta" Width="100%" > Movimiento @@ -559,6 +558,13 @@ + + + + + + + @@ -720,7 +726,7 @@ Cuenta:
    -
    +

    diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 5a4b20361..a1949eead 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -232,10 +232,13 @@ Partial Class ContabilidadC_RegPrePolizaS DivTG.Visible = False GvMov.Columns(5).Visible = False End If + Exit Sub Else CreaDT() - BtnEliminar.Visible = False + BtnEliminar.Visible = False + LnkExcel.Visible = True + LnkImprimirPDF.Visible = False End If @@ -466,8 +469,9 @@ Partial Class ContabilidadC_RegPrePolizaS ' row.FCTextBox("TxtCargo").Enabled = False ' row.FCTextBox("TxtAbono").Enabled = False 'Next - End If - + End If + LnkExcel.Visible = False + LnkImprimirPDF.Visible = True Else Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia) BtnEliminar.Visible = False @@ -517,11 +521,6 @@ Partial Class ContabilidadC_RegPrePolizaS If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 234, 235, 240) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra")) If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen")) If CveConceptoContable.Contiene(30, 204) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE")) - - If CveConceptoContable.Contiene(30) Then - LnkImprimirPDF.Visible = True - CveIE = e.Row.DBCampo("CveIE").ToString.ToEntero - End If 'e.Row.FCHyperLink("HlReferencia").NavigateUrl = CveConceptoContable @@ -740,8 +739,8 @@ Partial Class ContabilidadC_RegPrePolizaS dr("CvePersonal") = drt("CvePersonal") dr("CveClasificacion") = -1 dr("MultipleSubProyecto") = drt("MultipleSubProyecto") - dr("FolioPoliza") = drt("FolioPoliza") - + 'dr("FolioPoliza") = 0 'drt("FolioPoliza") + DtMovimientos.Rows.Add(dr) Next @@ -1001,37 +1000,39 @@ Partial Class ContabilidadC_RegPrePolizaS For Each row As GridViewRow In GvPrePoliza.Rows If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then - If Not ObjContabilidad.UpdatePrepolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero, - row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, - row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), - CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero, - CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then - OcurrioError = True - Exit For - End If - Else + If row.FCCheckBox("chkModificado").Checked Then + If Not ObjContabilidad.UpdatePrepolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero, + row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, + row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), + CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero, + CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + OcurrioError = True + Exit For + End If + End If + Else If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, - row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), row.DataKey("Referencia").ToString, + row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), row.DataKey("Referencia").ToString, row.DataKey("CveConceptoContable").ToEntero, row.FCLiteral("TxtConcepto").Text, Now, row.DataKey("IdCtaContable").ToEntero, 0, CveSubProyecto:=row.DataKey("CveSubProyecto").ToEntero, CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), ImporteMX:=If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, - row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveProveedor:=row.DataKey("CveProveedor").ToEntero, - CveCompra:=row.DataKey("CveCompra").ToEntero, CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, - CvePersonal:=row.DataKey("CvePersonal").ToEntero) Then - OcurrioError = True - Exit For - End If - End If - - Next - - If Not OcurrioError Then - ObjContabilidad.Commit() - Alert("La PrePoliza se actualizó correctamente.", TipoMensaje.MsgInformacion) - Else - ObjContabilidad.RollBack() - Alert("Ocurrio un error al actualizar la PrePoliza.", TipoMensaje.MsgError) + row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveProveedor:=row.DataKey("CveProveedor").ToEntero, + CveCompra:=row.DataKey("CveCompra").ToEntero, CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, + CvePersonal:=row.DataKey("CvePersonal").ToEntero) Then + OcurrioError = True + Exit For + End If + End If + + Next + + If Not OcurrioError Then + ObjContabilidad.Commit() + Alert("La PrePoliza se actualizó correctamente.", TipoMensaje.MsgInformacion) + Else + ObjContabilidad.RollBack() + Alert("Ocurrio un error al actualizar la PrePoliza.", TipoMensaje.MsgError) End If ObjContabilidad.Dispose() @@ -1069,7 +1070,7 @@ Partial Class ContabilidadC_RegPrePolizaS Dim Referencia As String = GvPrePoliza.Rows(IndiceGrid).FCLiteral("TxtRef").Text Dim CveSubProyecto As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("CveSubProyecto").ToString.ToEntero Dim CveTipoGasto As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("CveTipoGasto").ToString.ToEntero - Dim IdCtaContable As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("IdCtaContable").ToString.ToEntero + Dim CveCuenta As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("CveCuenta").ToString.ToEntero Dim Cargo As Double = GvPrePoliza.Rows(IndiceGrid).FCLiteral("TxtCargo").Text.ToDouble Dim Abono As Double = GvPrePoliza.Rows(IndiceGrid).FCLiteral("TxtAbono").Text.ToDouble @@ -1096,7 +1097,7 @@ Partial Class ContabilidadC_RegPrePolizaS CargaTipoGastoE() DdlTipoGastoE.SelectedValueExist(CveTipoGasto) CargaCtaContableE() - DdlCtaContableE.SelectedValueExist(IdCtaContable) + DdlCtaContableE.SelectedValueExist(CveCuenta) If Cargo <> 0 Then TxtCargoE.Text = Cargo @@ -1364,8 +1365,10 @@ Partial Class ContabilidadC_RegPrePolizaS GvPrePoliza.DataSource = DtMovimientos GvPrePoliza.DataBind() UpPrePoliza.Update() - End If - + End If + GvPrePoliza.Columns(11).Visible = True + + GvPrePoliza.Rows(IndiceGrid).FCCheckBox("chkModificado").Checked = True End If End If @@ -1877,7 +1880,7 @@ Partial Class ContabilidadC_RegPrePolizaS ' Conexion As Odbc.OdbcConnection = Nothing Dim ErrorArchivo = False Dim ErrorExcel = False - + DdlPlantilla.SelectedValue = DdlPlantilla2.SelectedValue dt = ReadExcelFile(Ruta + FileName, True) @@ -1919,87 +1922,71 @@ Partial Class ContabilidadC_RegPrePolizaS If Not ErrorArchivo Then + DtMovimientos.Clear() Dim ObjConta As New ClsContabilidad() ObjConta.IniciaTransacSQL() Try - Dim TieneError As Boolean = False - Dim ContadorUpdate As Integer = 0 - Dim ContadorError As Integer = 0 - Dim NombreCuenta As String = "" - Dim CvePrePoliza As Integer = 0 - Dim Cuenta As String = "" - Dim Reporte As New StringBuilder - Dim TotalCargos As Integer = 0 - Dim TotalAbonos As Integer = 0 - - - CvePrePoliza = ObjConta.AddPrePolizas("Contabilidad/RegPrePolizaExcel", DdlPlantilla2.SelectedValue.ToEntero, TotalCargos, TotalAbonos, 1, TxtFecha.Text.ToDate, DdlPlantilla2.SelectedItem.Text.ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=DdlTipoPolizaAdd.SelectedValue.ToEntero) For Each Row As DataRow In dt.Rows - NombreCuenta = Row("NombreCuenta").ToString - Cuenta = Row("Cuenta").ToString - Dim Importe As Decimal = If(Row("Cargo").ToString.ToDecimal <> 0, Row("Cargo").ToString.ToDecimal, Row("Abono").ToString.ToDecimal) - Dim Concepto As String = Row("Concepto").ToString - Dim Referencia As String = Row("Referencia").ToString - Dim IdCuenta As Integer = -1 + Dim NombreCuenta As String = Row("NombreCuenta").ToString + Dim Cuenta As String = Row("Cuenta").ToString + Dim ConceptoAdministrativo As String = Row("ConceptoAdministrativo").ToString + Dim CveSubProyecto As Integer = Row("CveSubProyecto").ToString.ToEntero Dim TipoMovto As Boolean = If(Row("Cargo").ToString.ToDecimal <> 0, False, True) - Dim YaExiste As Boolean = False Dim CveConceptoContable As Integer = Row("CveConceptoContable").ToString.ToEntero Dim IdCtaContable As Integer = Row("IdCtaContable").ToString.ToEntero + Dim CveClasificacion As Integer = -1 + 'sino viene el cveconcepto, busca por le nombre del concepto + If CveConceptoContable = 0 Then CveConceptoContable = GlobalDTContaConceptosContables(-1).FiltroPrimeroValor("CveConceptoContable", String.Format("ConceptoContable = '{0}'", Row("ConceptoAdministrativo"))).ToEntero - - If Importe <> 0 Then - - If ObjConta.GetCuentas(-1, Cuenta.Replace("-", ""), 1, UsuarioActual.CveEmpresa) Then - If ObjConta.DtResultados.Rows.Count > 0 Then - IdCuenta = ObjConta.DtResultados().FiltroPrimeroValor("CveCuenta").ToEntero - 'TipoCuenta = ObjConta.DtResultados().FiltroPrimeroValor("Tipo") - Else - Reporte.AppendLine($"{Cuenta} - {NombreCuenta} - {Importe}
    ") - TieneError = True - YaExiste = True - End If - Else - TieneError = True - Exit For - End If - - - If YaExiste = False Then - If IdCuenta > 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", CveConceptoContable, Concepto, Now.ToDate, IdCtaContable, -1, ImporteMX:=Importe, CveSubProyecto:=CveSubProyecto, CveCuenta:=IdCuenta) Then - TieneError = True - Exit For - End If - Else - IdCuenta = -2 - End If - End If - + If CveConceptoContable = 69 Then + CveClasificacion = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", "").ToEntero End If + If CveSubProyecto = 0 Then CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto"))).ToEntero + + Dim dr As DataRow = DtMovimientos.NewRow + Dim CodigoCuenta As String = "" + + dr("IdCuenta") = IdCtaContable + dr("CodigoCuenta") = Cuenta & "
    " & NombreCuenta + dr("Cuenta") = ConceptoAdministrativo + dr("Referencia") = Row("Referencia").ToString + dr("Concepto") = Row("Concepto").ToString + dr("TipoMovto") = TipoMovto + dr("EsComodin") = 0 + dr("CveConcepto") = CveConceptoContable + dr("CveConceptoContable") = CveConceptoContable + dr("ConceptoContable") = "" + dr("Cargo") = Row("Cargo").ToString.ToDecimal + dr("Abono") = Row("Abono").ToString.ToDecimal + dr("Descripcion") = "" + dr("CveSubProyecto") = CveSubProyecto + dr("CveProveedor") = -1 + dr("CveCompra") = -1 + dr("CvePersonal") = -1 + dr("CveClasificacion") = CveClasificacion + dr("CveCliente") = -1 + dr("CveVenta") = -1 + + TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbono.Text.ToDouble).ToString.FormatoNumero + TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargo.Text.ToDouble).ToString.FormatoNumero + DtMovimientos.Rows.Add(dr) + DtMovimientos.AcceptChanges() Next - If Not TieneError Then - ObjConta.Commit() - Alert(String.Format("

    Prepóliza: {1}", CvePrePoliza, "Ver")) - Alert($"Se agregó la póliza {ObjConta.ContaFolio}") - - Else - Alert($"No encontraron las siguientes cuentas: {Reporte.ToString} ", TipoMensaje.MsgError) - ObjConta.RollBack() - End If + GvMov.DataSource = DtMovimientos + GvMov.DataBind() + UPMovs.Update() Catch ex As Exception - ObjConta.RollBack() + Alert("No se pudo cargar el excel") End Try - - ObjConta.Dispose() End If End Sub #End Region @@ -2021,7 +2008,7 @@ Partial Class ContabilidadC_RegPrePolizaS If ObjConta.GetPrePolizasDetalle(CvePrePoliza) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Dim dtVC As DataTable Dim dr As DataRow - dtVC = ObjConta.DtResultados + dtVC = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden") dr = dtVC.Rows(0) Dim ruta As String = "" params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) @@ -2037,6 +2024,9 @@ Partial Class ContabilidadC_RegPrePolizaS If UsuarioActual.CveEmpresa = 119 Then params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre"))) End If + If UsuarioActual.CveEmpresa = 140 Then + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + End If If Archivo.Exists Then ruta = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc" Else diff --git a/Contabilidad2/CatCuentas.aspx b/Contabilidad2/CatCuentas.aspx index d4db0e496..8e0b6c729 100644 --- a/Contabilidad2/CatCuentas.aspx +++ b/Contabilidad2/CatCuentas.aspx @@ -55,6 +55,9 @@ Catálogo de Cuentas Contables +
  • + Imprimir Cuentas +
    • diff --git a/Contabilidad2/CatCuentas.aspx.vb b/Contabilidad2/CatCuentas.aspx.vb index 86cf1a1ad..298a03af3 100644 --- a/Contabilidad2/CatCuentas.aspx.vb +++ b/Contabilidad2/CatCuentas.aspx.vb @@ -1,5 +1,6 @@ Imports System.Data Imports Extensiones +Imports Microsoft.Reporting.WebForms Partial Class Contabilidad2_CatCuentas Inherits ClsPaginas @@ -673,5 +674,19 @@ Partial Class Contabilidad2_CatCuentas End Select End If End Sub + Protected Sub LnkImprimirExcel_Click(sender As Object, e As EventArgs) + Imprime("Excel") + End Sub + Private Sub Imprime(Formato As String) + If DtDatos IsNot Nothing Then + Dim params As New List(Of ReportParameter) + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + + ImprimirPDF("Empresas/Grales/Formatos/Cuentas.rdlc", DtDatos, params, "Cuentas", Formato) + Else + Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) + End If + End Sub End Class \ No newline at end of file diff --git a/Contabilidad2/RepEstadoActividades.aspx.vb b/Contabilidad2/RepEstadoActividades.aspx.vb index ed556b6a1..22b3119c2 100644 --- a/Contabilidad2/RepEstadoActividades.aspx.vb +++ b/Contabilidad2/RepEstadoActividades.aspx.vb @@ -116,6 +116,10 @@ Partial Class AC_RepEstadoActividades DdlEjercicio.Items.Add(New ListItem(Now.Year.ToString, Now.Year.ToString)) End If DdlPeriodo.SelectedValue = Now.Month.ToString + + DdlSubproyecto.datasource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) + DdlSubproyecto.databind + End Sub Private Sub CargaDatos() diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb index 8573e6e37..9826998e5 100644 --- a/Contratos/ContratoObra.aspx.vb +++ b/Contratos/ContratoObra.aspx.vb @@ -1679,9 +1679,9 @@ Partial Class Contratos_ContratoObra If e.Row.DBCampo("PermitirEstimacion").ToString = "1" Then ' e.Row.FCCheckBox("CHKPEstimacion").Checked = True End If - If Autorizado Then - e.Row.FCLinkButton("imgE").Visible = False - e.Row.FCLinkButton("imgD").Visible = False + If Autorizado Then + ' e.Row.FCLinkButton("imgE").Visible = False + 'e.Row.FCLinkButton("imgD").Visible = False End If If CveTipoContrato = 25 Then e.Row.Cells(1).Width = Unit.Pixel(10) @@ -2044,8 +2044,8 @@ Partial Class Contratos_ContratoObra ' e.Row.FCCheckBox("CHKPEstimacion").Checked = True End If If Autorizado Then - e.Row.FCLinkButton("imgE").Visible = False - e.Row.FCLinkButton("imgD").Visible = False + 'e.Row.FCLinkButton("imgE").Visible = False + 'e.Row.FCLinkButton("imgD").Visible = False End If End If diff --git a/Contratos/FacturacionMasiva.aspx.vb b/Contratos/FacturacionMasiva.aspx.vb index 1a5a1b34a..17d923bba 100644 --- a/Contratos/FacturacionMasiva.aspx.vb +++ b/Contratos/FacturacionMasiva.aspx.vb @@ -499,16 +499,21 @@ Partial Class Contratos_FacturacionMasiva DtR("Cantidad") = row("CantidadContratada") DtR("CveUM") = row("CveUM") DtR("UM") = row("UM") + DtR("SATClaveUM") = row("SATClaveUM") DtR("CveClasificacion") = row("CveClasificacion") DtR("Clasificacion") = row("Clasificacion") DtR("CvePS") = row("CvePS") DtR("PS") = row("PS") DtR("CodigoPS") = row("CodigoPS") + DtR("SATClaveProdServ") = row("SATClaveProdServ") + DtR("NoIdentificacion") = row("NoIdentificacion") + DtR("CveTipoPS") = drPS("CveTipoPS") DtR("CveTipoInvPS") = drPS("Inv_CveMetodoInventario") + DtR("Obs") = TxtObservaciones.Text + " " + row("Observacion").ToString DtR("PU") = row("PU") DtR("IVA") = row("PorcentajeIVA") diff --git a/CxC/RepCxC.aspx b/CxC/RepCxC.aspx index 82e7afba0..374b50382 100644 --- a/CxC/RepCxC.aspx +++ b/CxC/RepCxC.aspx @@ -335,6 +335,9 @@
    +
    + +
    diff --git a/CxC/RepCxC.aspx.vb b/CxC/RepCxC.aspx.vb index f049dfde1..e625f98bc 100644 --- a/CxC/RepCxC.aspx.vb +++ b/CxC/RepCxC.aspx.vb @@ -105,6 +105,7 @@ Partial Class RepCxC CargaCombos() CargaGvPersonalizarRaqngoColumnas() CargaDatos() + If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then ChkAnticipos.visible = True ActivaEnviarEstadoCuenta() If UsuarioActual.CveRol = 1 Or UsuarioActual.TienePermisoProceso(243) Then LnkDescargarSegmentos.Visible = True CreaDataTableColor() @@ -195,12 +196,14 @@ Partial Class RepCxC CveCobranzaEstatus = DdlCobranzaEstatus.SelectedValue.ToEntero CveClienteClasificacion = DdlClienteClasificacion.SelectedValue.ToEntero Dim CveCliente = If(DdlClientesWS.SelectedValue.ToEntero > 0, DdlClientesWS.SelectedValue.ToEntero, -1) + Dim AplicaAnticipos As Integer = If(ChkAnticipos.checked, 1, 0) + If ObjMovtos.GetCxC(FechaI, FechaF, CveCliente, DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, -1, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM), FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=CveCobranzaEstatus, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, - TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero) Then + TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, AplicaAnticiposPagados:=AplicaAnticipos) Then GvDatos.DataSource = ObjMovtos.DtResultados DtDatos = ObjMovtos.DtResultados diff --git a/CxC/RepCxCDetalle.aspx b/CxC/RepCxCDetalle.aspx index d20c79363..72a3d882d 100644 --- a/CxC/RepCxCDetalle.aspx +++ b/CxC/RepCxCDetalle.aspx @@ -434,13 +434,14 @@ <%----%> - + - + + @@ -506,8 +507,7 @@     - + + + + + + + + + + + - + + + + + - + - - + + - + + - -
    - @@ -515,7 +515,7 @@
    - @@ -525,9 +525,10 @@
    - - @@ -535,9 +536,9 @@
    - - @@ -545,9 +546,9 @@
    - - @@ -555,57 +556,57 @@
    - + -
    - - - - -
    - - - +
    - + +
    + +
    diff --git a/CxC/RepCxCDetalle.aspx.vb b/CxC/RepCxCDetalle.aspx.vb index 1ebca9cb7..c166a273a 100644 --- a/CxC/RepCxCDetalle.aspx.vb +++ b/CxC/RepCxCDetalle.aspx.vb @@ -534,47 +534,47 @@ Partial Class RepCxCDetalle End If If ChkTotal.Checked Then + GvDatos.Columns(9).Visible = True + SePersonalizo = 1 + Else + GvDatos.Columns(9).Visible = False + End If + + If ChkSubTotal.Checked Then GvDatos.Columns(3).Visible = True SePersonalizo = 1 Else GvDatos.Columns(3).Visible = False End If - If ChkSubTotal.Checked Then - GvDatos.Columns(4).Visible = True - SePersonalizo = 1 - Else - GvDatos.Columns(4).Visible = False - End If - If ChkIVA.Checked Then - GvDatos.Columns(5).Visible = True - SePersonalizo = 1 - Else - GvDatos.Columns(5).Visible = False - End If - - If ChkDescuento.Checked Then GvDatos.Columns(6).Visible = True SePersonalizo = 1 Else GvDatos.Columns(6).Visible = False End If + If ChkDescuento.Checked Then + GvDatos.Columns(4).Visible = True + SePersonalizo = 1 + Else + GvDatos.Columns(4).Visible = False + End If + If ChkAmortizacion.Checked Then + GvDatos.Columns(5).Visible = True + SePersonalizo = 1 + Else + GvDatos.Columns(5).Visible = False + End If + + If ChkRetIVA.Checked Then GvDatos.Columns(7).Visible = True SePersonalizo = 1 Else GvDatos.Columns(7).Visible = False End If - If ChkRetIVA.Checked Then - GvDatos.Columns(8).Visible = True - SePersonalizo = 1 - Else - GvDatos.Columns(8).Visible = False - End If - If ChkRetISR.Checked Then GvDatos.Columns(9).Visible = True SePersonalizo = 1 diff --git a/Empresas/140/Formatos/Polizas.rdlc b/Empresas/140/Formatos/Polizas.rdlc new file mode 100644 index 000000000..ffc1b50d8 --- /dev/null +++ b/Empresas/140/Formatos/Polizas.rdlc @@ -0,0 +1,2255 @@ + + + 0 + + + + System.Data.DataSet + /* Local Connection */ + + 7ef92796-1755-4a85-b80c-8c8266256a94 + + + + + + DataSet1 + /* Local Query */ + + + + Id + System.Int32 + + + Fecha + System.DateTime + + + TipoPoliza + System.String + + + NombreCuenta + System.String + + + CodigoCuenta + System.String + + + Numero + System.Int32 + + + Folio + System.Int32 + + + Referencia + System.String + + + Concepto + System.String + + + ConceptoPoliza + System.String + + + TipoMovto + System.Int32 + + + Cargos + System.String + + + Abonos + System.String + + + SegNeg + System.String + + + Cargo + System.Decimal + + + Abono + System.Decimal + + + Codigo + System.String + + + NombreUsuario + System.String + + + + DataSet1 + C:\inetpub\wwwroot\ADSistemas\Ventas.root\Reportes\DataSet1.xsd + DataTable1 + + + + + + + + + + + + + + + 2.15421cm + + + 2.15421cm + + + 2.15421cm + + + 2.15421cm + + + 2.15421cm + + + 2.15421cm + + + 2.15421cm + + + 2.15421cm + + + 2.15421cm + + + + + 0.6cm + + + + + true + true + + + + + + + + + + + + Textbox1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox2 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox3 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox34 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox25 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox17 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox5 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.6cm + + + + + true + true + + + + + Concepto: + + + + =Fields!ConceptoPoliza.Value + + + + + + + Textbox103 + + + 2pt + 2pt + 2pt + 2pt + + + 7 + + + + + + + + + + + + true + true + + + + + Fecha: + + + + =Fields!Fecha.Value + + + + + + + Textbox107 + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.6cm + + + + + true + true + + + + + Referencia + + + + + + + Textbox15 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cuenta + + + + + + + Textbox16 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Concepto + + + + + + + Textbox28 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + 4 + + + + + + + + + true + true + + + + + Sucursal + + + + + + + Textbox46 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cargos + + + + + + + Textbox52 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Abonos + + + + + + + Textbox66 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.37063cm + + + + + true + + + + + =Fields!Referencia.Value + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + + + + + =Fields!CodigoCuenta.Value + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + =Fields!NombreCuenta.Value + + + + + + + Cuenta1 + + + 1pt + 1pt + 1pt + 1pt + + + 4 + + + + + + + + + true + true + + + + + =Fields!SegNeg.Value + + + + + + + SegNeg + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + + + + + =Fields!Cargo.Value + + + + + + + Cargo + + =iif(Fields!TipoMovto.Value = "1", true, false) + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + + + + + =Fields!Abono.Value + + + + + + + Abono + + =iif(Fields!TipoMovto.Value = "0", true, false) + + + + 1pt + 1pt + 1pt + 1pt + es-MX + + + + + + + + 0.41479cm + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + =Fields!Concepto.Value + + + + + + + Concepto + + + 1pt + 1pt + 1pt + 1pt + + + 4 + + + + + + + + + true + true + + + + + + + + + + + + Textbox6 + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + + Textbox114 + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + + Textbox115 + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Code.IsNewPage(Fields!Id.Value,nothing,nothing) + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + =Fields!NombreUsuario.Value + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + Totales: + + + + + + + Textbox11 + + + + Black + + 1pt + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + =Sum(Fields!Cargo.Value) + + + + + + + Textbox12 + + + + + + 1pt + 1pt + 1pt + 1pt + en-US + + + + + + + + true + true + + + + + =Sum(Fields!Abono.Value) + + + + + + + Abono + + + + + + 1pt + 1pt + 1pt + 1pt + en-US + + + + + + + + + + + + + + + + + + + + + + + + + + + =Fields!Fecha.Value + =Fields!TipoPoliza.Value + =Fields!Numero.Value + =Fields!ConceptoPoliza.Value + + + End + true + + + + =Fields!NombreUsuario.Value + + + + + + =Fields!Folio.Value + + + + + After + + + After + + + After + + + + + + + + + + Before + + + + + + true + DataSet1 + + End + true + + 0.05076cm + 3.18542cm + 19.38789cm + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 5.82055cm + + + + + + + + + Impreso de póliza + + + + + + + + + =UCase(Parameters!TipoPoliza.Value) + + + + + + + Textbox4 + 0.19844cm + 2.10635in + 1.6616cm + 9.94376cm + + + 2pt + 2pt + + + + Embedded + Logo + FitProportional + 0.00896cm + 2.5433cm + 4.13cm + 1 + + + + + + + + + + + 0.7827cm + true + true + + + true + true + + + + + Fecha Impresión: + + + + + + + + =Now() + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página: " & Globals!PageNumber + + + + + + + Textbox35 + 0.13103cm + 16.24302cm + 0.46771cm + 2.8175cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario Imprimio: + + + + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 1.25pt + + + + 27.94cm + 21.59cm + 0.5cm + 0.5cm + 0.5cm + 0.5cm + 0.03cm + - ="<b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & " <b>Próxima Alineacion: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) + ="<br/><b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & "<br/<b>Próxima Alineación: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) HTML - =Parameters!OrdenCompra.Value + =IIf(Parameters!OrdenCompra.Value = "-1", "", Parameters!OrdenCompra.Value) - - - - - - Textbox3 - 0.90692in - 5.662in - 0.5cm - 2.24597in - - - #c4d79b - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - Fecha y hora de emisión - - - - - - - - - - - - - - - - Textbox3 - 0.46414in - 5.662in - 0.5cm - 2.24597in - 1 - - - #c4d79b - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =IIF(Parameters!Serie.Value.ToString="",Parameters!Folio.Value,Parameters!Serie.Value & "-" &Parameters!Folio.Value) - - - - - - - Textbox3 - 0.22455in - 5.662in - 0.60856cm - 2.24597in - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!TipoDocumento.Value - - - - - - - Textbox3 - 0.0412cm - 5.662in - 0.5cm - 2.24597in - 3 - - - #c4d79b - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - ECLIPSE DEL NOROESTE SA DE CV - - - - - - - - - R.F.C ENO970305TL4 - - - - - - - - - - - - - - - - Textbox4 - 1.7536in - 0.59155in - 3.86673in - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - Logo2 - FitProportional - 0.2705cm - 0.03093cm - 2.47832cm - 4.42323cm - 5 - - - - - - true - - - - - =Parameters!Fecha.Value - - - - - - - Textbox3 - 0.66099in - 5.662in - 0.25114in - 2.24597in - 6 - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!Tipo.Value & Parameters!Ref.Value - - - - - - - Textbox3 - 1.10364in - 5.662in - 0.25635in - 2.24597in - 7 - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - Domicilio Fiscal - - - - - - - - - Av. Alfredo Eguiarte, #268, Local 10, - - - - - - - - - Col.: Jesús García, C.P. 83140 Hermosillo, - - - - - - - - - Sonora, México Tel.: (662) 14-6826 - - - - - - - Textbox10 - 0.51102in - 1.7536in - 0.65513in - 2.01842in - 8 - - true - - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - LUGAR DE EXPEDICIÓN: - - - - - - - - - - - - - 83140 - - - - - - - Textbox10 - 0.51102in - 3.77202in - 0.65513in - 1.88998in - 9 - - - Top - - - - true - true - - - - - Nombre - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!ClienteNombre.Value - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - true - true - - - - - P A G A R E con Folio - - - - =Parameters!Serie.Value - - - - - - - - - =Parameters!Folio.Value - - - - Por éste pagare prometo (emos) pagar incondicionalmente a la orden de ECLIPSE DEL NOROESTE SA DE CV, a su vencimiento el - - - - =Parameters!Vencimiento.Value - - - - , en Hermosillo, Sonora o en el domicilio señalado a elección del acreedor o tenedor la cantidad de $ - - - - =Parameters!Total.Value - - - - SON: ( - - - - =Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value) - - - - ). Valor recibido a mi (nuestra) entera satisfacción. la falta de pago de éste documento a su vencimiento dará derecho a ECLIPSE DEL NOROESTE SA DE CV o tenedor, desde el día siguiente a cobrar el 10% mensual de interes moratorios hasta su total liquidación y los gastos judiciales que se ocasionen. Lugar y Fecha de Suscripción: Hermosillo, Sonora a - - - - =CDATE(Parameters!Fecha.Value).ToString("dd/MM/yyyy") - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 0.29357cm - 0.08375cm - 0cm - 0.57653cm - 1 - - - - - - 0.29357cm - 0.71971cm - 0cm - 0.57653cm - 2 - - - - - - 0.29357cm - 1.35545cm - 0cm - 0.57653cm - 3 - - - - - - 0.29357cm - 1.66152cm - 0cm - 0.57653cm - 4 - - - - - - 0.29357cm - 2.29748cm - 0cm - 0.57653cm - 5 - - - - - - 0.29357cm - 2.93322cm - 0cm - 0.57653cm - 6 - - - - - - 0.29357cm - 3.60266cm - 0cm - 0.57653cm - 7 - - - - - - 0.29357cm - 4.23862cm - 0cm - 0.57653cm - 8 - - - - - - 0.29357cm - 4.87436cm - 0cm - 0.57653cm - 9 - - - - - - 0.29357cm - 5.18043cm - 0cm - 0.57653cm - 10 - - - - - - 0.29357cm - 5.81639cm - 0cm - 0.57653cm - 11 - - - - - - 0.29357cm - 6.45213cm - 0cm - 0.57653cm - 12 - - - - - - 0.29357cm - 7.13239cm - 0cm - 0.57653cm - 13 - - - - - - 0.29357cm - 7.76835cm - 0cm - 0.57653cm - 14 - - - - - - 0.29357cm - 8.40409cm - 0cm - 0.57653cm - 15 - - - - - - 0.29357cm - 8.71016cm - 0cm - 0.57653cm - 16 - - - - - - 0.29357cm - 9.34612cm - 0cm - 0.57653cm - 17 - - - - - - 0.29357cm - 9.98186cm - 0cm - 0.57653cm - 18 - - - - - - 0.29357cm - 14.06281cm - 0cm - 0.57653cm - 19 - - - - - - 0.29357cm - 14.69877cm - 0cm - 0.57653cm - 20 - - - - - - 0.29357cm - 15.33451cm - 0cm - 0.57653cm - 21 - - - - - - 0.29357cm - 15.64058cm - 0cm - 0.57653cm - 22 - - - - - - 0.29357cm - 16.27654cm - 0cm - 0.57653cm - 23 - - - - - - 0.29357cm - 16.91228cm - 0cm - 0.57653cm - 24 - - - - - - 0.29357cm - 10.60588cm - 0cm - 0.57653cm - 25 - - - - - - 0.29357cm - 11.24184cm - 0cm - 0.57653cm - 26 - - - - - - 0.29357cm - 11.87758cm - 0cm - 0.57653cm - 27 - - - - - - 0.29357cm - 12.18365cm - 0cm - 0.57653cm - 28 - - - - - - 0.29357cm - 12.81961cm - 0cm - 0.57653cm - 29 - - - - - - 0.29357cm - 13.45535cm - 0cm - 0.57653cm - 30 - - - - - - 0.29357cm - 18.40663cm - 0cm - 0.57653cm - 31 - - - - - - 0.29357cm - 19.04259cm - 0cm - 0.57653cm - 32 - - - - - - 0.29357cm - 17.74353cm - 0cm - 0.57653cm - 33 - - - - - - true - 21.48868cm - 0.0208cm - 2.10099cm - 20.06179cm - 12 - - = (Parameters!AplicaPagare.Value="0" OrElse Parameters!AplicaPagare.Value="") - - - - - - - - - - 1.27365cm - - - 1.78562cm - - - 2.0584cm - - - 4.44265cm - - - 6.28682cm - - - 1.6882cm - - - 2.43574cm - - - - - 0.52063cm - - - - - true - - - - - Cant. - - - - - - - Textbox34 - - - #c4d79b - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Unidad SAT - - - - - - - Textbox2 - - - #c4d79b - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Producto SAT - - - - - - - Textbox25 - - - #c4d79b - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - Descripción - - - - - - - Textbox79 - - - #c4d79b - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox1 - - - #c4d79b - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - P. Unitario - - - - - - - Textbox84 - - - #c4d79b - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - Importe - - - - - - - - - - - - - - - #c4d79b - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.57355cm - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SATClaveUM.Value - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SATClaveProdServ.Value - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =IIF(Fields!PS.Value="-" OrElse Fields!PS.Value="." OrElse Fields!PS.Value="=" OrElse Fields!PS.Value="--" OrElse Fields!PS.Value="---" OrElse Fields!PS.Value=".." OrElse Fields!PS.Value="/" ,"" & Fields!Obs.Value,Fields!PS.Value & " " & Fields!Obs.Value) - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - =Fields!PU.Value - - - - - - - PU1 - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Cantidad.Value*Fields!PU.Value - - - - - - - Textbox88 - - - - - - - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - - - - - 0.6cm - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - 4.44265cm - - - - - 0.6cm - - - - - true - true - - - - - =Fields!Titulo.Value - - - - - - - - - - - - - - - - - - __________________________________ - - - - - - - - - =Fields!Nombre.Value - - - - - - - - - =Fields!Puesto.Value - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - true - DataSet2 - 1 - - - - - - - - - - - - - 6.28682cm - - - - - 0.6cm - - - - - true - true - - - - - =Fields!Titulo.Value - - - - - - - - - - - - - - - - - - __________________________________ - - - - - - - - - =Fields!Nombre.Value - - - - - - - - - =Fields!Puesto.Value - - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - DataSet2 - 2 - - - - - - - - - - true - true - - - - - - - - - - 1pt - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - After - - - - - =Fields!PS.Value Is Nothing - - - - Before - - - Before - - - - DsOC - 4.14415cm - 0.11516cm - 2.29418cm - 19.97108cm - 13 - - - - - - true - - - - - RFC: - - - - =Parameters!ClienteRFC.Value - - - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - External - =Parameters!QR.Value - FitProportional - 0.03128in - 1.3497in - 1.5531in - - - - - - true - true - - - - - Folio Fiscal: - - - - - - - Textbox54 - 0.00077in - 1.63514in - 0.18056in - 4.03672in - 1 - - - - - - - White - - - - - - - - #c4d79b - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - No. Serie del Certificado del SAT: - - - - - - - Textbox54 - 0.19522in - 1.63514in - 0.18056in - 4.03672in - 2 - - - #c4d79b - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha y Hora de certificación: - - - - - - - Textbox54 - 0.39377in - 1.63514in - 0.19444in - 4.03672in - 3 - - - #c4d79b - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Certificado del Contribuyente: - - - - - - - Textbox54 - 0.59938in - 1.63514in - 0.19445in - 4.03672in - 4 - - - #c4d79b - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FolioFiscal.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!SerieCertificadoSAT.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FechaCertificacion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!CertificadoContribuyente.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Regímen: Regímen General de Ley Personas Morales 601; Método de Pago: - - - - =IIF(Parameters!MetodoPago.Value.ToString="","No Identificado", iif( Parameters!MetodoPago.Value = "PUE-Pago en una sola exhibición","PUE","PPD")) - - - - ; Num. Cta Pago: - - - - =IIF(Parameters!NumCta.Value="0" Orelse Parameters!NumCta.Value="","No Identificado",Parameters!NumCta.Value) - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Éste documento es una representacion impresa de un CFDi - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - 13.45121cm - 0.04257cm - 3.74574cm - 20.109cm - 15 - - - - - - - - true - true - - - - - =Parameters!CadenaOriginal.Value - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 2.57553cm - - - - - 0.6cm - - - - - true - true - - - - - =Fields!Importe.Value - - - - - - - Importe - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - - - - - - - - - - - - - - - - =Fields!ImpuestoLocal.Value - - - - 2.45694cm - - - true - true - - - - - =Fields!ImpuestoLocal.Value - - - - - - #c4d79b - 2pt - 2pt - 2pt - 2pt - - - - - - - - DataSet1 - 0.04588cm - 14.93861cm - 0.6cm - 5.03247cm - 1 - - - - - - - - - 3.74028cm - - - 11.08915cm - - - - - 0.6cm - - - - - true - true - - - - - =Parameters!Observaciones.Value - - - - - - - Textbox128 - - - - - - - - - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - 0.6cm - - - - - true - true - - - - - Importe con letra: - - - - - - - Textbox126 - - - - - 1pt - - - - 1pt - - - - 1pt - - - - 1pt - - #c4d79b - Middle - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - ="SON: " & Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value) - - - - - - - Textbox127 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - Forma de pago: - - - - - - - Textbox130 - - - - - 1pt - - - - 1pt - - - - 1pt - - - - 1pt - - #c4d79b - Middle - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!FormaPago.Value - - - - - - - Textbox131 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - Uso CFDI: - - - - - - - Textbox27 - - - - - 1pt - - - - 1pt - - - - 1pt - - - - 1pt - - #c4d79b - Middle - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!UsoCFDI.Value - - - - - - - Textbox37 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 1.8cm - - - - - true - true - - - - - Sello digital del CFDI: - - - - - - - Textbox132 - - - - - 1pt - - - - 1pt - - - - 1pt - - - - 1pt - - #c4d79b - Middle - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!SelloCFDI.Value - - - - - - - Textbox133 - - - Top - 2pt - 2pt - 2pt - 2pt - - - - - - - - 1.2cm - - - - - true - true - - - - - Sello del SAT: - - - - - - - Textbox134 - - - - - 1pt - - - - 1pt - - - - 1pt - - - - 1pt - - #c4d79b - Middle - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!SelloSAT.Value - - - - - - - Textbox135 - - - Top - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - Cadena original del complemento de certificación digital del SAT: - - - - - - - Textbox136 - - - - - - - - - - - - - - 1pt - - #c4d79b - Middle - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - - - - - - - - - - - - - - true - - - - - - - - - DsOC - 0.04588cm - 0.03862cm - 6cm - 14.82943cm - 2 - - - - - - - - - 0.74104in - - - 0.57756in - - - 0.67516in - - - - - 0.19645in - - - - - true - true - - - - - Impuesto - - - - - - - Textbox22 - - - #c4d79b - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Tasa - - - - - - - Textbox15 - - - #c4d79b - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Importe - - - - - - - Textbox29 - - - #c4d79b - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.14436in - - - - - true - true - - - - - =Fields!Impuesto.Value - - - - - - - Cantidad1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!tasa.Value - - - - - - - UM - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Importe.Value - - - - - - - Codigo - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - After - - - - - - - DataSet3 - 0.26817in - 5.86887in - 0.34081in - 1.99376in - 3 - - - - - - true - 6.61207cm - 0.11516cm - 6.80033cm - 20.03641cm - 16 - - - - - - true - true - - - - - Moneda - - - 2pt - 2pt - 2pt - 2pt - - - - - - true - true - - - - - CFDI Relacionados - - - - - - - Textbox5 - 0.11382cm - 0.05336cm - 0.54004cm - 20.00281cm - - - #c4d79b - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Tipo Relación: - - - - - - - Textbox29 - 0.83025cm - 4.33636cm - 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 - - - #c4d79b - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Fecha - - - - - - - Textbox12 - - - #c4d79b - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Importe - - - - - - - Textbox21 - - - #c4d79b - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Folio Fiscal - - - - - - - Textbox11 - - - #c4d79b - 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 - 2.83462cm - 0.85604cm - 15.30142cm - 3 - - - - - - true - true - - - - - VERSION 3.3 - - - - - - - Textbox5 - 2.28775cm - 17.08931cm - 0.6cm - 3.06609cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - true - 17.21106cm - 0.00547cm - 2.97096cm - 20.1554cm - 18 - - =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) - - - - - - - 23.58967cm - - - - - - - Textbox3 - 0.14111cm - 16.12728cm - 0.6cm - 3.95896cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - - - =Today - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 27.94cm - 21.59cm - 0.5cm - 0.5cm - 1cm - 0.5cm - 1.27cm - + + + + + + Textbox3 + 0.90692in + 5.662in + 0.5cm + 2.24597in + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Fecha y hora de emisión + + + + + + + + + + + + + + + + Textbox3 + 0.46414in + 5.662in + 0.5cm + 2.24597in + 1 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =IIF(Parameters!Serie.Value.ToString="",Parameters!Folio.Value,Parameters!Serie.Value & "-" &Parameters!Folio.Value) + + + + + + + Textbox3 + 0.22455in + 5.662in + 0.60856cm + 2.24597in + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!TipoDocumento.Value + + + + + + + Textbox3 + 0.0412cm + 5.662in + 0.5cm + 2.24597in + 3 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + ECLIPSE DEL NOROESTE SA DE CV + + + + + + + + + R.F.C ENO970305TL4 + + + + + + + + + + + + + + + + Textbox4 + 1.7536in + 0.59155in + 3.86673in + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + Logo2 + FitProportional + 0.2705cm + 0.03093cm + 2.47832cm + 4.42323cm + 5 + + + + + + true + + + + + =Parameters!Fecha.Value + + + + + + + Textbox3 + 0.66099in + 5.662in + 0.25114in + 2.24597in + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Tipo.Value & Parameters!Ref.Value + + + + + + + Textbox3 + 1.10364in + 5.662in + 0.25635in + 2.24597in + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Domicilio Fiscal + + + + + + + + + Camelia, #346, Col.:Luis Encinas, + + + + + + + + + C.P. 83138 Hermosillo, + + + + + + + + + Sonora, México Tel.: (662) 14-6826 + + + + + + + Textbox10 + 0.51102in + 1.7536in + 0.65513in + 2.01842in + 8 + + true + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + LUGAR DE EXPEDICIÓN: + + + + + + + + + + + + + 83140 + + + + + + + Textbox10 + 0.51102in + 3.77202in + 0.65513in + 1.88998in + 9 + + + Top + + + + true + true + + + + + Nombre + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClienteNombre.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + true + true + + + + + P A G A R E con Folio + + + + =Parameters!Serie.Value + + + + - + + + + =Parameters!Folio.Value + + + + Por éste pagare prometo (emos) pagar incondicionalmente a la orden de ECLIPSE DEL NOROESTE SA DE CV, a su vencimiento el + + + + =Parameters!Vencimiento.Value + + + + , en Hermosillo, Sonora o en el domicilio señalado a elección del acreedor o tenedor la cantidad de $ + + + + =Parameters!Total.Value + + + + SON: ( + + + + =Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value) + + + + ). Valor recibido a mi (nuestra) entera satisfacción. la falta de pago de éste documento a su vencimiento dará derecho a ECLIPSE DEL NOROESTE SA DE CV o tenedor, desde el día siguiente a cobrar el 10% mensual de interes moratorios hasta su total liquidación y los gastos judiciales que se ocasionen. Lugar y Fecha de Suscripción: Hermosillo, Sonora a + + + + =CDATE(Parameters!Fecha.Value).ToString("dd/MM/yyyy") + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.29357cm + 0.08375cm + 0cm + 0.57653cm + 1 + + + + + + 0.29357cm + 0.71971cm + 0cm + 0.57653cm + 2 + + + + + + 0.29357cm + 1.35545cm + 0cm + 0.57653cm + 3 + + + + + + 0.29357cm + 1.66152cm + 0cm + 0.57653cm + 4 + + + + + + 0.29357cm + 2.29748cm + 0cm + 0.57653cm + 5 + + + + + + 0.29357cm + 2.93322cm + 0cm + 0.57653cm + 6 + + + + + + 0.29357cm + 3.60266cm + 0cm + 0.57653cm + 7 + + + + + + 0.29357cm + 4.23862cm + 0cm + 0.57653cm + 8 + + + + + + 0.29357cm + 4.87436cm + 0cm + 0.57653cm + 9 + + + + + + 0.29357cm + 5.18043cm + 0cm + 0.57653cm + 10 + + + + + + 0.29357cm + 5.81639cm + 0cm + 0.57653cm + 11 + + + + + + 0.29357cm + 6.45213cm + 0cm + 0.57653cm + 12 + + + + + + 0.29357cm + 7.13239cm + 0cm + 0.57653cm + 13 + + + + + + 0.29357cm + 7.76835cm + 0cm + 0.57653cm + 14 + + + + + + 0.29357cm + 8.40409cm + 0cm + 0.57653cm + 15 + + + + + + 0.29357cm + 8.71016cm + 0cm + 0.57653cm + 16 + + + + + + 0.29357cm + 9.34612cm + 0cm + 0.57653cm + 17 + + + + + + 0.29357cm + 9.98186cm + 0cm + 0.57653cm + 18 + + + + + + 0.29357cm + 14.06281cm + 0cm + 0.57653cm + 19 + + + + + + 0.29357cm + 14.69877cm + 0cm + 0.57653cm + 20 + + + + + + 0.29357cm + 15.33451cm + 0cm + 0.57653cm + 21 + + + + + + 0.29357cm + 15.64058cm + 0cm + 0.57653cm + 22 + + + + + + 0.29357cm + 16.27654cm + 0cm + 0.57653cm + 23 + + + + + + 0.29357cm + 16.91228cm + 0cm + 0.57653cm + 24 + + + + + + 0.29357cm + 10.60588cm + 0cm + 0.57653cm + 25 + + + + + + 0.29357cm + 11.24184cm + 0cm + 0.57653cm + 26 + + + + + + 0.29357cm + 11.87758cm + 0cm + 0.57653cm + 27 + + + + + + 0.29357cm + 12.18365cm + 0cm + 0.57653cm + 28 + + + + + + 0.29357cm + 12.81961cm + 0cm + 0.57653cm + 29 + + + + + + 0.29357cm + 13.45535cm + 0cm + 0.57653cm + 30 + + + + + + 0.29357cm + 18.40663cm + 0cm + 0.57653cm + 31 + + + + + + 0.29357cm + 19.04259cm + 0cm + 0.57653cm + 32 + + + + + + 0.29357cm + 17.74353cm + 0cm + 0.57653cm + 33 + + + + + + true + 21.48868cm + 0.0208cm + 2.10099cm + 20.06179cm + 12 + + = (Parameters!AplicaPagare.Value="0" OrElse Parameters!AplicaPagare.Value="") + + + + + + + + + + 1.27365cm + + + 1.78562cm + + + 2.0584cm + + + 4.44265cm + + + 6.28682cm + + + 1.6882cm + + + 2.43574cm + + + + + 0.52063cm + + + + + true + + + + + Cant. + + + + + + + Textbox34 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Unidad SAT + + + + + + + Textbox2 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Producto SAT + + + + + + + Textbox25 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Descripción + + + + + + + Textbox79 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox1 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + P. Unitario + + + + + + + Textbox84 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Importe + + + + + + + + + + + + + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.57355cm + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SATClaveUM.Value + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SATClaveProdServ.Value + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =IIF(Fields!PS.Value="-" OrElse Fields!PS.Value="." OrElse Fields!PS.Value="=" OrElse Fields!PS.Value="--" OrElse Fields!PS.Value="---" OrElse Fields!PS.Value=".." OrElse Fields!PS.Value="/" ,"" & Fields!Obs.Value,Fields!PS.Value & " " & Fields!Obs.Value) + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + =Fields!PU.Value + + + + + + + PU1 + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cantidad.Value*Fields!PU.Value + + + + + + + Textbox88 + + + + + + + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + 0.6cm + + + + + true + true + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 4.44265cm + + + + + 0.6cm + + + + + true + true + + + + + =Fields!Titulo.Value + + + + + + + + + + + + + + + + + + __________________________________ + + + + + + + + + =Fields!Nombre.Value + + + + + + + + + =Fields!Puesto.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + true + DataSet2 + 1 + + + + + + + + + + + + + 6.28682cm + + + + + 0.6cm + + + + + true + true + + + + + =Fields!Titulo.Value + + + + + + + + + + + + + + + + + + __________________________________ + + + + + + + + + =Fields!Nombre.Value + + + + + + + + + =Fields!Puesto.Value + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + DataSet2 + 2 + + + + + + + + + + true + true + + + + + + + + + + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + After + + + + + =Fields!PS.Value Is Nothing + + + + Before + + + Before + + + + DsOC + 4.14415cm + 0.11516cm + 2.29418cm + 19.97108cm + 13 + + + + + + true + + + + + RFC: + + + + =Parameters!ClienteRFC.Value + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + External + =Parameters!QR.Value + FitProportional + 0.03128in + 1.3497in + 1.5531in + + + + + + true + true + + + + + Folio Fiscal: + + + + + + + Textbox54 + 0.00077in + 1.63514in + 0.18056in + 4.03672in + 1 + + + + + + + White + + + + + + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + No. Serie del Certificado del SAT: + + + + + + + Textbox54 + 0.19522in + 1.63514in + 0.18056in + 4.03672in + 2 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha y Hora de certificación: + + + + + + + Textbox54 + 0.39377in + 1.63514in + 0.19444in + 4.03672in + 3 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Certificado del Contribuyente: + + + + + + + Textbox54 + 0.59938in + 1.63514in + 0.19445in + 4.03672in + 4 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FolioFiscal.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SerieCertificadoSAT.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaCertificacion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!CertificadoContribuyente.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Regímen: Regímen General de Ley Personas Morales 601; Método de Pago: + + + + =IIF(Parameters!MetodoPago.Value.ToString="","No Identificado", iif( Parameters!MetodoPago.Value = "PUE-Pago en una sola exhibición","PUE","PPD")) + + + + ; Num. Cta Pago: + + + + =IIF(Parameters!NumCta.Value="0" Orelse Parameters!NumCta.Value="","No Identificado",Parameters!NumCta.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Éste documento es una representacion impresa de un CFDi + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + 13.45121cm + 0.04257cm + 3.74574cm + 20.109cm + 15 + + + + + + + + true + true + + + + + =Parameters!CadenaOriginal.Value + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 2.57553cm + + + + + 0.6cm + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + + + + + + + + + + + + =Fields!ImpuestoLocal.Value + + + + 2.45694cm + + + true + true + + + + + =Fields!ImpuestoLocal.Value + + + + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + DataSet1 + 0.04588cm + 14.93861cm + 0.6cm + 5.03247cm + 1 + + + + + + + + + 3.74028cm + + + 11.08915cm + + + + + 0.6cm + + + + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + + Textbox128 + + + + + + + + + + + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.6cm + + + + + true + true + + + + + Importe con letra: + + + + + + + Textbox126 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #c4d79b + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + ="SON: " & Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value) + + + + + + + Textbox127 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Forma de pago: + + + + + + + Textbox130 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #c4d79b + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!FormaPago.Value + + + + + + + Textbox131 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Uso CFDI: + + + + + + + Textbox27 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #c4d79b + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!UsoCFDI.Value + + + + + + + Textbox37 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 1.8cm + + + + + true + true + + + + + Sello digital del CFDI: + + + + + + + Textbox132 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #c4d79b + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!SelloCFDI.Value + + + + + + + Textbox133 + + + Top + 2pt + 2pt + 2pt + 2pt + + + + + + + + 1.2cm + + + + + true + true + + + + + Sello del SAT: + + + + + + + Textbox134 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #c4d79b + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!SelloSAT.Value + + + + + + + Textbox135 + + + Top + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Cadena original del complemento de certificación digital del SAT: + + + + + + + Textbox136 + + + + + + + + + + + + + + 1pt + + #c4d79b + Middle + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + + + + + + + + + + + + + + true + + + + + + + + + DsOC + 0.04588cm + 0.03862cm + 6cm + 14.82943cm + 2 + + + + + + + + + 0.74104in + + + 0.57756in + + + 0.67516in + + + + + 0.19645in + + + + + true + true + + + + + Impuesto + + + + + + + Textbox22 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Tasa + + + + + + + Textbox15 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox29 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.14436in + + + + + true + true + + + + + =Fields!Impuesto.Value + + + + + + + Cantidad1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!tasa.Value + + + + + + + UM + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Codigo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet3 + 0.26817in + 5.86887in + 0.34081in + 1.99376in + 3 + + + + + + true + 6.61207cm + 0.11516cm + 6.80033cm + 20.03641cm + 16 + + + + + + true + true + + + + + Moneda + + + 2pt + 2pt + 2pt + 2pt + + + + + + true + true + + + + + CFDI Relacionados + + + + + + + Textbox5 + 0.11382cm + 0.05336cm + 0.54004cm + 20.00281cm + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Tipo Relación: + + + + + + + Textbox29 + 0.83025cm + 4.33636cm + 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 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox12 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox21 + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Folio Fiscal + + + + + + + Textbox11 + + + #c4d79b + 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 + 2.83462cm + 0.85604cm + 15.30142cm + 3 + + + + + + true + true + + + + + VERSION 3.3 + + + + + + + Textbox5 + 2.28775cm + 17.08931cm + 0.6cm + 3.06609cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + 17.21106cm + 0.00547cm + 2.97096cm + 20.1554cm + 18 + + =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) + + + + + + + 23.58967cm + + + + + + + Textbox3 + 0.14111cm + 16.12728cm + 0.6cm + 3.95896cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + + =Today + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0.5cm + 0.5cm + 1cm + 0.5cm + 1.27cm + - =Parameters!OrdenCompra.Value + =IIf(Parameters!OrdenCompra.Value = "-1", "", Parameters!OrdenCompra.Value) - ="<b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & " <b>Próxima Alineacion: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) + ="<br/><b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & "<br/<b>Próxima Alineacion: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) HTML + + + + + + + =Globals!ExecutionTime + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario Imprimio: + + + + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + true true @@ -2960,55 +3051,11 @@ Textbox35 - 0.01763cm - 18.52109cm + 0.00882cm + 18.54098cm 0.50624cm 2.5cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - - - =Today - - - - @@ -3646,7 +3693,7 @@ ReportParameter1 - + image/png diff --git a/Empresas/159/Formatos/Factura.rdlc b/Empresas/159/Formatos/Factura.rdlc index 388e49af9..b5ae65114 100644 --- a/Empresas/159/Formatos/Factura.rdlc +++ b/Empresas/159/Formatos/Factura.rdlc @@ -3344,7 +3344,7 @@ - ="<b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & " <b>Próxima Alineacion: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) + ="<br/><b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & "<br/<b>Próxima Alineación: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) HTML - ="<b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & " <b>Próxima Alineacion: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) + ="<br/><b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & "<br/<b>Próxima Alineación: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) HTML - ="<b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & " <b>Próxima Alineacion: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) + ="<br/><b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & "<br/<b>Próxima Alineación: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) HTML - ="<b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & " <b>Próxima Alineacion: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) + ="<br/><b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & "<br/<b>Próxima Alineación: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) HTML - ="<b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & " <b>Próxima Alineacion: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) + ="<br/><b>Próxima Rotación y Balanceo: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) & "<br/<b>Próxima Alineación: </b>" & FormatDateTime(CDate(Parameters!Fecha.Value).AddMonths(6), DateFormat.ShortDate) HTML - - - - - - Textbox37 - - - DimGray - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Factura - - - - - - - Textbox1 - - - DimGray - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Fecha - - - - - - - Textbox3 - - - DimGray - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - SubTotal - - - - - - - Textbox5 - - - DimGray - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Descuento - - - - - - - Textbox7 - - - DimGray - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Amortización - - - - - - - Textbox9 - - - DimGray - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Total - - - - - - - Textbox11 - - - DimGray - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Moneda - - - - - - - Textbox13 - - - DimGray - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Estatus - - - - - - - Textbox15 - - - DimGray - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Timbre - - - - - - - Textbox26 - - - DimGray - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Envío Mail - - - - - - - Textbox17 - - - DimGray - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.48677cm - - - - - true - true - - - - - =Fields!TipoDocto.Value - - - - - - - TipoDocto1 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Folio.Value - - - - - - - Folio - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Fecha.Value - - - - - - - Fecha1 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SubTotal.Value - - - - - - - SubTotal1 - - - Silver - 2pt - 2pt - 2pt - 2pt - en-US - - - - - - - - true - true - - - - - =Fields!Descuento.Value - - - - - - - Descuento1 - - - Silver - 2pt - 2pt - 2pt - 2pt - en-US - - - - - - - - true - true - - - - - =Fields!Amortizacion.Value - - - - - - - Amortizacion1 - - - Silver - 2pt - 2pt - 2pt - 2pt - en-US - - - - - - - - true - - - - - =Fields!Total.Value - - - - - - - Total1 - - - Silver - 2pt - 2pt - 2pt - 2pt - es-MX - - - - - - - - true - true - - - - - =Fields!Abreviatura.Value - - - - - - - Abreviatura1 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!EstatusFactura.Value - - - - - - - EstatusFactura1 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SeTimbro.Value - - - - - - - SeTimbro1 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!EnvioMail.Value - - - - - - - EnvioMail1 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.48677cm - - - - - true - true - - - - - =Fields!TipoDocto.Value - - - - - - - TipoDocto - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Folio.Value - - - - - - - Folio2 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Fecha.Value - - - - - - - Fecha - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SubTotal.Value - - - - - - - SubTotal - - - 2pt - 2pt - 2pt - 2pt - en-US - - - - - - - - true - true - - - - - =Fields!Descuento.Value - - - - - - - Descuento - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - - - - - true - true - - - - - =Fields!Amortizacion.Value - - - - - - - Amortizacion - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - - - - - true - - - - - =Fields!Total.Value - - - - - - - Total - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - - - - - true - true - - - - - =Fields!Abreviatura.Value - - - - - - - Abreviatura - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - =Fields!EstatusFactura.Value - - - - - - - EstatusFactura - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SeTimbro.Value - - - - - - - SeTimbro - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!EnvioMail.Value - - - - - - - EnvioMail - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - =Fields!TipoDocto.Value<>"" - - - - - =Fields!TipoDocto.Value="" - - - - - - - true - true - true - true - DataSet1 - 0.31833cm - 0.18357cm - 1.58677cm - 20.12777cm - - - - - - 0.87164in - - - - - - true - true - - - - - =Parameters!NombreEmpresa.Value - - - - - - - Textbox1 - 0.29104cm - 5.15939cm - 0.6cm - 9.70195cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!DireccionEmpresa.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!TelefonoEmpresa.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - 0.94396cm - true - true - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox3 - 0.21167cm - 16.35238cm - 0.6cm - 3.95896cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =CDate(now) - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Usuario: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 29.7cm - 21cm - 0cm - 0cm - 0cm - 0.5cm - 0.13cm - + + + + + + Textbox37 + + + DimGray + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Factura + + + + + + + Textbox1 + + + DimGray + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox3 + + + DimGray + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + SubTotal + + + + + + + Textbox5 + + + DimGray + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descuento + + + + + + + Textbox7 + + + DimGray + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Amortización + + + + + + + Textbox9 + + + DimGray + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Total + + + + + + + Textbox11 + + + DimGray + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Moneda + + + + + + + Textbox13 + + + DimGray + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Estatus + + + + + + + Textbox15 + + + DimGray + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Timbre + + + + + + + Textbox26 + + + DimGray + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Mail + + + + + + + Textbox17 + + + DimGray + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.48677cm + + + + + true + true + + + + + =Fields!TipoDocto.Value + + + + + + + TipoDocto1 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Folio.Value + + + + + + + Folio + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha1 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SubTotal.Value + + + + + + + SubTotal1 + + + Silver + 2pt + 2pt + 2pt + 2pt + en-US + + + + + + + + true + true + + + + + =Fields!Descuento.Value + + + + + + + Descuento1 + + + Silver + 2pt + 2pt + 2pt + 2pt + en-US + + + + + + + + true + true + + + + + =Fields!Amortizacion.Value + + + + + + + Amortizacion1 + + + Silver + 2pt + 2pt + 2pt + 2pt + en-US + + + + + + + + true + + + + + =Fields!Total.Value + + + + + + + Total1 + + + Silver + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!Abreviatura.Value + + + + + + + Abreviatura1 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!EstatusFactura.Value + + + + + + + EstatusFactura1 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SeTimbro.Value + + + + + + + SeTimbro1 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!EnvioMail.Value + + + + + + + EnvioMail1 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.48677cm + + + + + true + true + + + + + =Fields!TipoDocto.Value + + + + + + + TipoDocto + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Folio.Value + + + + + + + Folio2 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SubTotal.Value + + + + + + + SubTotal + + + 2pt + 2pt + 2pt + 2pt + en-US + + + + + + + + true + true + + + + + =Fields!Descuento.Value + + + + + + + Descuento + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!Amortizacion.Value + + + + + + + Amortizacion + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + + + + + =Fields!Total.Value + + + + + + + Total + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!Abreviatura.Value + + + + + + + Abreviatura + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!EstatusFactura.Value + + + + + + + EstatusFactura + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SeTimbro.Value + + + + + + + SeTimbro + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!EnvioMail.Value + + + + + + + EnvioMail + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + =Fields!TipoDocto.Value<>"" + + + + + =Fields!TipoDocto.Value="" + + + + + + + true + true + true + true + DataSet1 + 0.00083cm + 0.18357cm + 1.58677cm + 18.459cm + + + + + + 0.62504in + + + + + + true + true + + + + + =Parameters!NombreEmpresa.Value + + + + + + + Textbox1 + 0.32631cm + 0.24248cm + 0.6cm + 18.4001cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Direccion: + + + + + + + + =Parameters!DireccionEmpresa.Value + + + + + + + + Telefono: + + + + =Parameters!TelefonoEmpresa.Value + + + + + + + Textbox2 + 0.92632cm + 0.24248cm + 0.6cm + 18.4001cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Cliente: + + + + + + + + =Parameters!Cliente.Value + + + + + + + Textbox2 + 1.57571cm + 0.24248cm + 0.56472cm + 18.4001cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 0.94396cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.21167cm + 14.68362cm + 0.6cm + 3.95896cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =CDate(now) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0cm + 0cm + 0cm + 0.5cm + 0.13cm + + + + + + + Textbox3 + Tablix2 + + + + Black + + + Black + + + + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Nombre + + + + + + + Textbox2 + Tablix2 + + + + Black + + + Black + + + + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + SubCuenta + + + + + + + Textbox22 + + + + Black + + + Black + + + + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Tipo Cuenta + + + + + + + Textbox20 + + + + Black + + + Black + + + + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cta Mayor + + + + + + + Textbox18 + + + + Black + + + Black + + + + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Agrupador SAT + + + + + + + Textbox16 + + + + Black + + + Black + + + + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Moneda + + + + + + + Textbox14 + + + + Black + + + Black + + + + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Dig Agrup + + + + + + + Textbox7 + + + + Black + + + Black + + + + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Nom. Ingles + + + + + + + Textbox1 + + + + Black + + + Black + + + + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Concepto + + + + + + + Textbox24 + + + + Black + + + Black + + + + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52063cm + + + + + true + true + + + + + =Fields!CuentaFormato.Value + + + + + + + CuentaFormato + + + =iif((RunningValue(CountDistinct(Fields!Codigo.Value), Sum, "DataSet1") mod 2) = 0, "LightSteelBlue", "White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Nombre.Value + + + + + + + Nombre + + + =iif((RunningValue(CountDistinct(Fields!Codigo.Value), Sum, "DataSet1") mod 2) = 0, "LightSteelBlue", "White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!CodigoPadre.Value + + + + + + + CodigoPadre + + + =iif((RunningValue(CountDistinct(Fields!Codigo.Value), Sum, "DataSet1") mod 2) = 0, "LightSteelBlue", "White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Switch(Fields!Tipo.Value = "A","Activo Deudora", Fields!Tipo.Value = "B","Activo Acreedora", Fields!Tipo.Value = "C","Pasivo Deudora", Fields!Tipo.Value = "D","Pasivo Acreedora", Fields!Tipo.Value = "E","Capital Deudora", Fields!Tipo.Value = "F","Capital Acreedora", Fields!Tipo.Value = "G","Resultados Deudora", Fields!Tipo.Value = "H","Resultados Acreedora", Fields!Tipo.Value = "I","Estadisticas Deudora", Fields!Tipo.Value = "J","Estadisticas Acredora", Fields!Tipo.Value = "K","Orden Deudora", Fields!Tipo.Value = "L","Orden Acreedora") + + + + + + + Tipo + + + =iif((RunningValue(CountDistinct(Fields!Codigo.Value), Sum, "DataSet1") mod 2) = 0, "LightSteelBlue", "White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Switch(Fields!CtaMayor.Value = "1", "Mayor", Fields!CtaMayor.Value = "2", "No", Fields!CtaMayor.Value = "3", "Titulo", Fields!CtaMayor.Value = "4", "SubTitulo") + + + + + + + CtaMayor + + + =iif((RunningValue(CountDistinct(Fields!Codigo.Value), Sum, "DataSet1") mod 2) = 0, "LightSteelBlue", "White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!CodigoNombreSAT.Value + + + + + + + CodigoNombreSAT + + + =iif((RunningValue(CountDistinct(Fields!Codigo.Value), Sum, "DataSet1") mod 2) = 0, "LightSteelBlue", "White") + 2pt + 2pt + 2pt + 2pt + + + true + + + + + + true + true + + + + + =Fields!Moneda.Value + + + + + + + Moneda + + + =iif((RunningValue(CountDistinct(Fields!Codigo.Value), Sum, "DataSet1") mod 2) = 0, "LightSteelBlue", "White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!DigAgrup.Value + + + + + + + DigAgrup + + + =iif((RunningValue(CountDistinct(Fields!Codigo.Value), Sum, "DataSet1") mod 2) = 0, "LightSteelBlue", "White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!NomIdioma.Value + + + + + + + NomIdioma + + + =iif((RunningValue(CountDistinct(Fields!Codigo.Value), Sum, "DataSet1") mod 2) = 0, "LightSteelBlue", "White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ConceptoContable.Value + + + + + + + ConceptoContable + + + =iif((RunningValue(CountDistinct(Fields!Codigo.Value), Sum, "DataSet1") mod 2) = 0, "LightSteelBlue", "White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + true + After + true + + + + + + + true + true + DataSet1 + 0.98834cm + 24.33862cm + + + + + + 0.38911in + - - - - - - - - 1.38688cm - - - 5.49871cm - - - 2.33056cm - - - 2.5cm - - - 2.5cm - - - 1.42176cm - - - 1.83034cm - - - 2.5cm - - - - - 0.46771cm - - - - - true - true - - - - - Codigo - - - - - - - Textbox3 - - - - Black - - - Black - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Nombre - - - - - - - Textbox5 - - - - Black - - - Black - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - RFC - - - - - - - Textbox15 - - - - Black - - - Black - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Sucursal - - - - - - - Textbox23 - - - - Black - - - Black - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Telefono - - - - - - - Textbox21 - - - - Black - - - Black - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Estado - - - - - - - Textbox19 - - - - Black - - - Black - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Fecha - - - - - - - Textbox27 - - - - Black - - - Black - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Usuario - - - - - - - Textbox31 - - - - Black - - - Black - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - =Fields!Codigo.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Nombre.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!RFC.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Sucursal.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Telefono.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Estatus.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Fecha.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Usuario.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DataSet1 - 0.36336cm - 0.06868cm - 1.06771cm - 19.96825cm - 1 - - - - - - 0.60091in - - - - - - true - true - - - - - =Parameters!NombreEmpresa.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - REPORTE DE CLIENTES - - - - - - - - - - - - - - - - Textbox2 - 1.03604cm - 3.80683cm - 0.52945cm - 9.98771cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - 0.79374cm - true - true - - - 0.11437cm - 0.10583cm - 0cm - 19.96285cm - - - - - - 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.22726cm - 18.00281cm - 0.36335cm - 2.06587cm - 5 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 27.94cm - 21.59cm - 0.5cm - 0.5cm - 0.5cm - 0.5cm - 0.13cm - + + + + + + + + 1.38688cm + + + 5.49871cm + + + 2.33056cm + + + 2.5cm + + + 2.5cm + + + 1.42176cm + + + 1.83034cm + + + 2.5cm + + + + + 0.46771cm + + + + + true + true + + + + + Codigo + + + + + + + Textbox3 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Nombre + + + + + + + Textbox5 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + RFC + + + + + + + Textbox15 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Sucursal + + + + + + + Textbox23 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Telefono + + + + + + + Textbox21 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Estado + + + + + + + Textbox19 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox27 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Usuario + + + + + + + Textbox31 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!Codigo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!RFC.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Sucursal.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Telefono.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Estatus.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Usuario.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 0.36336cm + 0.06868cm + 1.06771cm + 19.96825cm + 1 + + + + + + 0.60091in + + + + + + true + true + + + + + =Parameters!NombreEmpresa.Value + + + + + + + Textbox1 + 0.11854cm + 0.10583cm + 0.6cm + 19.9311cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE DE CLIENTES + + + + + + + + + + + + + + + + Textbox2 + 1.03604cm + 0.10583cm + 0.52945cm + 19.9311cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 0.79374cm + true + true + + + 0.11437cm + 0.10583cm + 0cm + 19.96285cm + + + + + + 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.22726cm + 18.00281cm + 0.36335cm + 2.06587cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0.5cm + 0.5cm + 0.5cm + 0.5cm + 0.13cm + - - - - - 2pt - 2pt - 2pt - 2pt - - - - 0.84237cm - 0.12912cm - 0cm - 19.7306cm - 1 - - - - - - - - - 14.55503cm - - - 2.5cm - - - 2.5cm - - - - - 0.49417cm - - - - - true - true - - - - - =Parameters!GPO.Value - - - - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Cantidad - - - - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Total - - - - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.41479cm - - - - - true - true - - - - - =IIF(Fields!Orden.Value.ToString = "0",Fields!Moneda.Value,Fields!GPO.Value) - - - - - - =IIF(Fields!Orden.Value.ToString = "0","Silver","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad1 - - - =IIF(Fields!Orden.Value.ToString = "0","Silver","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Total.Value - - - - - - - Total - - - =IIF(Fields!Orden.Value.ToString = "0","Silver","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - After - - - - - - - DataSet1 - 0.9482cm - 0.18203cm - 0.90896cm - 19.55503cm - 2 - - - - - - 0.94992in - - - - - - - Textbox1 - 0.18521cm - 3.21468cm - 0.6cm - 14.02238cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - - =Parameters!Titulo.Value - - - - - - - - - - - - - - - - Textbox2 - 1.10271cm - 3.21468cm - 0.52945cm - 14.02238cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!LogoPath.Value - FitProportional - 0.06614cm - 2.22362cm - 2.33715cm - 2 - - - - - - - - - - - 0.76376cm - true - true - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox3 - 0.08291cm - 17.26991cm - 0.68085cm - 2.09233cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Usuario: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FechaImpresion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 29.7cm - 21cm - 0.25cm - 0.25cm - 1cm - 1cm - 0.13cm - + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.84237cm + 0.12912cm + 0cm + 19.7306cm + 1 + + + + + + + + + 14.55503cm + + + 2.5cm + + + 2.5cm + + + + + 0.49417cm + + + + + true + true + + + + + =Parameters!GPO.Value + + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cantidad + + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Total + + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.41479cm + + + + + true + true + + + + + =IIF(Fields!Orden.Value.ToString = "0",Fields!Moneda.Value,Fields!GPO.Value) + + + + + + =IIF(Fields!Orden.Value.ToString = "0","Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad1 + + + =IIF(Fields!Orden.Value.ToString = "0","Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Total.Value + + + + + + + Total + + + =IIF(Fields!Orden.Value.ToString = "0","Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 0.9482cm + 0.18203cm + 0.90896cm + 19.55503cm + 2 + + + + + + 0.94992in + + + + + + + Textbox1 + 0.18521cm + 0.06614cm + 0.6cm + 19.67092cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + + =Parameters!Titulo.Value + + + + + + + + + + + + + + + + Textbox2 + 1.10271cm + 0.06614cm + 0.52945cm + 19.67092cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.76376cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 17.26991cm + 0.68085cm + 2.09233cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox11 + 0.08291cm + 10.51572cm + 0.68085cm + 4.32745cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.25cm + 0.25cm + 1cm + 1cm + 0.13cm + - - - - - 2pt - 2pt - 2pt - 2pt - - - - 0.84237cm - 0.12912cm - 0cm - 27.46166cm - 1 - - - - - - - - - 2.5cm - - - 7.28398cm - - - 8.01688cm - - - 2.10789cm - - - 2.5cm - - - 2.5cm - - - 2.5cm - - - - - 0.6cm - - - - - true - true - - - - - Serie Folio - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Descripcion - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Producto - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Unidad M. - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Cantidad - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - PU - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Total - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.46771cm - - - - - true - true - - - - - =Fields!SerieFolio.Value - - - - - - =IIF(Fields!Orden.Value.ToString = "0","Silver","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - =Fields!Descripcion.Value - - - - - - =IIF(Fields!Orden.Value.ToString = "0","Silver","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - =Fields!CodigoPS.Value - - - - - - =IIF(Fields!Orden.Value.ToString = "0","Silver","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!UnidadMedida.Value - - - - - - =IIF(Fields!Orden.Value.ToString = "0","Silver","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - PU - - - =IIF(Fields!Orden.Value.ToString = "0","Silver","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PU.Value - - - - - - - Cantidad - - - =IIF(Fields!Orden.Value.ToString = "0","Silver","White") - 2pt - 2pt - 2pt - 2pt - - - true - - - - - - true - true - - - - - =Fields!Total.Value - - - - - - - Total - - - =IIF(Fields!Orden.Value.ToString = "0","Silver","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DataSet1 - 0.9482cm - 0.18203cm - 1.06771cm - 27.40875cm - 2 - - - - - - 0.94992in - - - - - - - Textbox1 - 0.18521cm - 7.02468cm - 0.6cm - 14.02238cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - - =Parameters!Titulo.Value - - - - - - - - - - - - - - - - Textbox2 - 1.10271cm - 7.02468cm - 0.52945cm - 14.02238cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!LogoPath.Value - FitProportional - 0.06614cm - 2.22362cm - 2.33715cm - 2 - - - - - - - - - - - 0.76376cm - true - true - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox3 - 0.08291cm - 25.20741cm - 0.68085cm - 2.09233cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Usuario: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FechaImpresion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 21cm - 29.7cm - 1cm - 1cm - 0.25cm - 0.25cm - 0.13cm - + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.84237cm + 0.09525cm + 0cm + 25.79479cm + 1 + + + + + + + + + 2.5cm + + + 7.28398cm + + + 8.01688cm + + + 2.10789cm + + + 1.99729cm + + + 1.67979cm + + + 2.20896cm + + + + + 0.6cm + + + + + true + true + + + + + Serie Folio + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descripcion + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Producto + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Unidad M. + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cantidad + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + PU + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Total + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.46771cm + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + =IIF(Fields!Orden.Value.ToString = "0","Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!Descripcion.Value + + + + + + =IIF(Fields!Orden.Value.ToString = "0","Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!CodigoPS.Value + + + + + + =IIF(Fields!Orden.Value.ToString = "0","Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!UnidadMedida.Value + + + + + + =IIF(Fields!Orden.Value.ToString = "0","Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + PU + + + =IIF(Fields!Orden.Value.ToString = "0","Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PU.Value + + + + + + + Cantidad + + + =IIF(Fields!Orden.Value.ToString = "0","Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Total.Value + + + + + + + Total + + + =IIF(Fields!Orden.Value.ToString = "0","Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 0.9482cm + 0.09525cm + 1.06771cm + 25.79479cm + 2 + + + + + + 0.94992in + + + + + + + Textbox1 + 0.18521cm + 0.09525cm + 0.6cm + 25.79479cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + + =Parameters!Titulo.Value + + + + + + + + + + + + + + + + Textbox2 + 1.10271cm + 0.09525cm + 0.52945cm + 25.79479cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.09525cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.76376cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 23.61991cm + 0.68085cm + 2.09233cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox11 + 0.08291cm + 13.66955cm + 0.68085cm + 4.32745cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 21cm + 29.7cm + 1cm + 1cm + 0.25cm + 0.25cm + 0.13cm + + + + + + + Textbox13 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + @@ -747,7 +810,6 @@ 2pt - true @@ -888,6 +950,41 @@ 2pt + true + + + + + + true + true + + + + + =Fields!Serie.Value + + + + + + =IIf(Fields!PS.Value = "", "#9cacc1", "NoColor") + 2pt + 2pt + 2pt + 2pt + + @@ -1050,6 +1147,7 @@ + @@ -1069,7 +1167,7 @@ DataSet1 0.17639cm 1.0148cm - 24.37731cm + 24.56252cm @@ -1080,7 +1178,7 @@ 0.67394in @@ -1155,7 +1253,7 @@ Textbox2 1.07625cm 0.52945cm - 24.62205cm + 24.56252cm 1 - Reporte de Utilidad o Pérdida sobre Ventas + Reporte de utilidad o pérdida sobre venta @@ -210,11 +210,11 @@ - + - + diff --git a/vwd.webinfo b/vwd.webinfo index cf2c6525a..25dd68416 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -240,6 +240,10 @@ + + + +