From 7d9aca44f00383f67c8463262ba9d547acfea9ed Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 8 May 2021 06:06:46 -0700 Subject: [PATCH 01/17] -- cambios de cobro-intermediarios izettle --- Bancos/DepositosCaja.aspx | 39 +++++++++++++++++++------ Bancos/DepositosCaja.aspx.vb | 55 +++++++++++++++++++++++++++--------- 2 files changed, 73 insertions(+), 21 deletions(-) diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index 445f02eb9..5f0713e77 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -144,10 +144,7 @@ - + + + +
+
+ +
+
+ +
+
+ + + +
+
+ + +
+
+ + +
+
+ + + + +
+
- - - - +
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index b245a4e7d..9e9a43dcb 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -46,19 +46,31 @@ Partial Class Bancos_DepositosCaja DdlSubProyectoDeposito.DataSource = DdlSubProyectos.DataSource DdlSubProyectoDeposito.DataBind() - DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlSubProyectoDeposito.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlSubProyectoDescuento.DataSource = DdlSubProyectos.DataSource DdlSubProyectoDescuento.DataBind() - DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlSubProyectoDescuento.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=2) DdlClasificacion.DataBind() - DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlClasificacionDescuento.DataSource = DdlClasificacion.DataSource DdlClasificacionDescuento.DataBind() - DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlClasificacionDescuento.Items.Insert(0, New ListItem("Seleccione", "-1")) + + 'intermediario + DdlProveedorIntermediario.datasource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveProveedor in ({0})", 73343)) + DdlProveedorIntermediario.databind + + DdlClasifIntermediario.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=2) + DdlClasifIntermediario.DataBind() + + + DdlSubProyectoIntermediario.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) + DdlSubProyectoIntermediario.DataBind() + End Sub @@ -134,8 +146,11 @@ Partial Class Bancos_DepositosCaja Dim CveSubProyectoDescuento As Integer = -1 Dim CveClasificacion As Integer = -1 Dim CveClasificacionDescuento As Integer = -1 - Dim documentos As String = "Los Depósitos se realizaron exitósamente

" + Dim documentos As String = "Los Depósitos se realizaron exitosamente

" Dim imprimirFolios As String = "" + Dim CveSubProyectoIntermediario As Integer = -1 + Dim CveClasificacionIntermediario As Integer = -1 + If drOrigen IsNot Nothing Then CveMoneda = drOrigen("CveMoneda").ToString.ToEntero IdCuentaBancariaOrigen = drOrigen("IdCtaContable").ToString.ToEntero @@ -172,13 +187,6 @@ Partial Class Bancos_DepositosCaja End If - If IVA <> 0 Then - IVA = CDec(0.16) - If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, IVA, DdlClasificacion.SelectedItem.Text, 14, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then - OcurrioError = True - End If - End If - End If If ChkDescuento.Checked Then @@ -189,6 +197,24 @@ Partial Class Bancos_DepositosCaja OcurrioError = True End If End If + + If 1 = 1 Then + + CveSubProyectoIntermediario = DdlSubProyectoIntermediario.SelectedValue.ToEntero + CveSubProyectoIntermediario = DdlClasificacionIntermediario.SelectedValue.ToEntero + + If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then + OcurrioError = True + End If + + If IVA <> 0 Then + If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, IVA, DdlClasificacionIntermediario.SelectedItem.Text, 14, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, ImporteMX:=IVA, CveCuenta:=CveCuentaBancariaOrigen, PorcentajeImpuesto:=0.16D) Then + OcurrioError = True + End If + End If + + End If + Else OcurrioError = True End If @@ -210,17 +236,20 @@ Partial Class Bancos_DepositosCaja FolioIE = ObjBancos.GetNextFolio(DdlCajaChica.SelectedValue.ToEntero, 2) If Not FolioIE > 0 Then OcurrioError = True + Exit For End If CveIEDestino = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, String.Format("Depósito Bancario: {0}", SerieFolio), Importe, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then OcurrioError = True + Exit For End If 'Asignamos la cuenta Deposito - If Not ObjBancos.UpdateBancos_IECuentaDeposito(CveIEDestino, CveIE) Then + If Not OcurrioError AndAlso Not ObjBancos.UpdateBancos_IECuentaDeposito(CveIEDestino, CveIE) Then OcurrioError = True + Exit For End If Dim StrEncript As String = Encripta($"OP=DC&CveIE={CveIEDestino}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}") From 690d0d56f1e65e8a4eb5681171738fcf4d3c34cd Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Sat, 8 May 2021 12:25:45 -0700 Subject: [PATCH 02/17] --- Bancos/DepositosCaja.aspx | 162 +++++++++++++++++++++++++---------- Bancos/DepositosCaja.aspx.vb | 81 +++++++++++++----- 2 files changed, 176 insertions(+), 67 deletions(-) diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index 445f02eb9..f84f1a279 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -136,7 +136,7 @@
-
+
@@ -144,10 +144,7 @@
- + - -
+
@@ -164,7 +164,7 @@
-
+
@@ -189,7 +189,7 @@
-
+
From fce3c2c6200d2e09549ba0183be5144dcbf16d47 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 11 May 2021 10:51:58 -0700 Subject: [PATCH 08/17] -- regnerar prepoliza, quitar cveempresa119 --- Compras/Compras.aspx.vb | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 2c8b5f753..a1754b4d9 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -10586,7 +10586,6 @@ Partial Class Compras_Compras If ObjConta.GetRetCuenta(49, Row2("CveActivoFijo").ToString.ToEntero) Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContActivoFijo").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContActivoFijoSIG").ToString.ToEntero End If End If @@ -10626,7 +10625,6 @@ Partial Class Compras_Compras If ObjConta.GetRetCuenta(68, GvInv.HeaderRow.FCDropDownList("ddlAlmacen").SelectedValue.ToString.ToEntero) Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero End If End If If importeMovimiento <> 0 Then @@ -10709,7 +10707,7 @@ Partial Class Compras_Compras DtAlmacenes.Dispose() 'QUITA 1-[MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA)] 2-[NC CON PRODUCTOS] - If UsuarioActual.CveEmpresa.Contiene(119) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen > 0 Then + If UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen > 0 Then DT = DT.FiltraParametros("CveTipoPS <> 2") End If @@ -10736,10 +10734,8 @@ Partial Class Compras_Compras If ObjConta.GetRetCuenta(6, Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero) Then If ObjConta.DtResultados.Rows.Count > 0 AndAlso ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero > 0 Then IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaGastoSIG").ToString.ToEntero Else IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGasto", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToString.ToEntero - CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToString.ToEntero End If End If End If From cdeb36f3d1d3bd1214f7436d8ca49ae30ad40fe7 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 11 May 2021 10:52:48 -0700 Subject: [PATCH 09/17] - rowdatabound, que se inserte en subporyectos y tipogastos, valor "-" --- Contabilidad/RegPrePoliza.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index 5ada370a1..995cf219e 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/Contabilidad/RegPrePoliza.aspx.vb @@ -517,13 +517,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 From 365f7b4cd0f5d1db311dc9e09ae3958ba1a170b2 Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Wed, 12 May 2021 12:09:49 -0700 Subject: [PATCH 10/17] Agregar el filtro de cliente y el movimiento del almacen --- Acumuladores/RepEntradasUsadosClientes.aspx | 10 +++++++--- Acumuladores/RepEntradasUsadosClientes.aspx.vb | 12 ++++++++---- App_Code/ClsAcumuladores.vb | 4 +++- 3 files changed, 18 insertions(+), 8 deletions(-) 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/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 From 92ee2c921879884b2f2fb0d4421c597c5ef9475d Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Wed, 12 May 2021 21:26:50 -0700 Subject: [PATCH 11/17] --- App_Code/ClsPaginas.vb | 1 - App_Code/ClsSucursales.vb | 383 ++ Compras/RepComprasAFDetalle.aspx.vb | 12 +- Contabilidad/FiltraPolizas.aspx.vb | 20 +- Contabilidad/RegPrePoliza.aspx | 3 + Contabilidad/RegPrePoliza.aspx.vb | 96 +- Contabilidad/RegPrePolizaS.aspx | 11 +- Contabilidad/RegPrePolizaS.aspx.vb | 14 +- .../Grales/Formatos/ClienteHistorial.rdlc | 3240 +++++++++-------- Empresas/Grales/Formatos/Cuentas.rdlc | 14 +- .../Grales/Formatos/RepComprasAFDetalle.rdlc | 1765 ++++----- Ventas/Clientes.aspx | 2 +- Ventas/Clientes.aspx.vb | 4 + 13 files changed, 3046 insertions(+), 2519 deletions(-) create mode 100644 App_Code/ClsSucursales.vb diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 4c4d73133..ccb61fddf 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/Compras/RepComprasAFDetalle.aspx.vb b/Compras/RepComprasAFDetalle.aspx.vb index c75979d6e..1f5ae872f 100644 --- a/Compras/RepComprasAFDetalle.aspx.vb +++ b/Compras/RepComprasAFDetalle.aspx.vb @@ -86,7 +86,6 @@ Partial Class Compras_RepComprasAFDetalle If Not IsPostBack Then CargaCombos() 'ImgPersonalizar.Attributes.Add("onclick", "javascript:$('#DivPersonalizar').show(1000); PosicionaObjeto(this.id,'DivPersonalizar');") - DdlPS.ddl.Visible = False @@ -190,6 +189,17 @@ Partial Class Compras_RepComprasAFDetalle DdlActivoFijo.DataBind() DdlActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") + If DdlPS.UsaWebService Then + DdlPS.ddlWS.Attributes.Add("data-Estatus", "-1") + DdlPS.ddlWS.Attributes.Add("data-pagina", "Inventarios") + DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue) + + 'DdlClasificacion.AutoPostBack = False + Else + DdlPS.ddl.Items.Add(New ListItem("Seleccione", "-1")) + DdlPS.ddl.Items.Add(New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2")) + End If If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then DdlProyecto.Visible = False diff --git a/Contabilidad/FiltraPolizas.aspx.vb b/Contabilidad/FiltraPolizas.aspx.vb index efeb1b6c0..cf6c11e5c 100644 --- a/Contabilidad/FiltraPolizas.aspx.vb +++ b/Contabilidad/FiltraPolizas.aspx.vb @@ -234,7 +234,7 @@ Partial Class Contabilidad_FiltraPolizas Dim ObjCompra As New ClsCompras Dim ObjIE As New ClsBancos() Dim pathPoliza As String = "" - Dim TieneComprobante As Boolean + Dim TieneComprobante As String = "" Tick = DateTime.Now.Ticks.ToString Dim ObjContabilidad As New ClsContabilidad Dim CvePrePoliza As Integer @@ -252,7 +252,7 @@ Partial Class Contabilidad_FiltraPolizas ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza) TieneComprobante = VerificarComprobante(ObjContabilidad.DtResultados) - If TieneComprobante And SinComprobante Then + If TieneComprobante = "" And Not SinComprobante Then Path = ImprimirPolizaPDF(CvePrePoliza) pathPoliza = Path @@ -331,8 +331,8 @@ Partial Class Contabilidad_FiltraPolizas End If Next Else - If Not TieneComprobante Then - PolizasSinComprobante += String.Format("{1} {2}
", TempPolizas.DataKey("CvePrePoliza").ToString, TempPolizas.DataKey("TipoPol").ToString, TempPolizas.DataKey("Folio").ToString) + If TieneComprobante <> "" Then + PolizasSinComprobante += String.Format("{1} {2}
", TieneComprobante, TempPolizas.DataKey("TipoPol").ToString, TempPolizas.DataKey("Folio").ToString) SinComprobante = True End If @@ -381,7 +381,7 @@ Partial Class Contabilidad_FiltraPolizas 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)) @@ -493,12 +493,12 @@ Partial Class Contabilidad_FiltraPolizas End Sub - Private Function VerificarComprobante(ByVal PrepolizaDetalle As DataTable) As Boolean + 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 Boolean = False + Dim TieneComprobante As String = "" For Each Row As DataRow In dt.FiltraParametros("CveConceptoContable = 30").Rows @@ -506,14 +506,14 @@ Partial Class Contabilidad_FiltraPolizas 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 + TieneComprobante = "" Exit For Else - TieneComprobante = False + TieneComprobante = Row("CveIE").ToString Exit For End If Else - TieneComprobante = False + TieneComprobante = Row("CveIE").ToString Exit For End If End If 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 5ada370a1..91c34414b 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/Contabilidad/RegPrePoliza.aspx.vb @@ -250,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 @@ -1840,21 +1842,21 @@ 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 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 @@ -1889,7 +1891,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)) @@ -2343,20 +2345,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() @@ -2364,5 +2366,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 434d07f95..858da02e8 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -75,14 +75,14 @@ Crear Complemento de Pago
  • - Imprimir Poliza + Imprimir Poliza
  • - Agregar Concepto + Agregar Concepto
    • @@ -342,7 +342,7 @@
    + DataKeyNames="IdMov,IDCuenta,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta" Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None"> Cuenta @@ -558,10 +558,11 @@ - + - + + diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 869450e2f..a12253b63 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 @@ -1362,6 +1366,8 @@ Partial Class ContabilidadC_RegPrePolizaS GvPrePoliza.DataBind() UpPrePoliza.Update() End If + GvPrePoliza.Columns(11).Visible = True + GvPrePoliza.Rows(IndiceGrid).FCCheckBox("chkModificado").Checked = True End If End If @@ -2028,7 +2034,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)) diff --git a/Empresas/Grales/Formatos/ClienteHistorial.rdlc b/Empresas/Grales/Formatos/ClienteHistorial.rdlc index 7a7951ae1..ceec5295f 100644 --- a/Empresas/Grales/Formatos/ClienteHistorial.rdlc +++ b/Empresas/Grales/Formatos/ClienteHistorial.rdlc @@ -1,1593 +1,5 @@ - - - - - - - - 1.20536cm - - - 1.68162cm - - - 1.81391cm - - - 2.23724cm - - - 2.18174cm - - - 2.15786cm - - - 1.81391cm - - - 1.58613cm - - - 1.77963cm - - - 1.3112cm - - - 2.35917cm - - - - - 0.61323cm - - - - - true - true - - - - - Tipo - - - - - - - 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 + @@ -685,7 +689,7 @@ - CuentaFormato1 + CodigoPadre @@ -776,7 +780,7 @@ - =Fields!AgrupadorSAT.Value + =Fields!Codigo.Value & " - " & Fields!CodigoPadre.Value @@ -971,7 +975,7 @@ true DataSet1 0.98834cm - 24.33863cm + 24.33862cm diff --git a/Empresas/Grales/Formatos/RepComprasAFDetalle.rdlc b/Empresas/Grales/Formatos/RepComprasAFDetalle.rdlc index e449afc9c..1a66132ee 100644 --- a/Empresas/Grales/Formatos/RepComprasAFDetalle.rdlc +++ b/Empresas/Grales/Formatos/RepComprasAFDetalle.rdlc @@ -1,884 +1,5 @@  - - - - - true - true - - - - - =Parameters!AgrupadoPor.Value - HTML - - - - - - 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 + + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 21cm + 29.7cm + 1cm + 1cm + 0.25cm + 0.25cm + 0.13cm +