From eca126a8610d727a936b6e1931c09bec916b6a39 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Tue, 11 Aug 2020 08:58:52 -0700 Subject: [PATCH] Uniformes y RepAnexoCatalogoVertical(parametros) --- App_Code/ClsInventarios.vb | 3 +- Bancos/IE.aspx.vb | 22 +- .../RepAnexoCatalogoVertical.aspx.vb | 2 +- .../RepEstadoResultadosHorizontal.aspx.vb | 2 +- Empresas/Grales/Formatos/EntradaSalida.rdlc | 132 +- .../Formatos/RepUniformesResguardo.rdlc | 2359 ++++++++--------- RH/Personal.aspx | 2 +- RH/Personal.aspx.vb | 2 +- RH/RepUniformesResguardo.aspx | 2 +- RH/RepUniformesResguardo.aspx.vb | 2 +- 10 files changed, 1228 insertions(+), 1300 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 974bce081..7d260f7a6 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -4632,7 +4632,7 @@ Public Class ClsInventarios #Region "INVENTARIOS - REPORTE UNIFORMES RESGUARDO" - Public Function GetResguardoUniformesRep(CveEmpresa As Integer, Optional CvePersonal As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveDepartamento As Integer = -1, Optional FechaInicio As String = "-1", Optional FechaFin As String = "-1") As Boolean + Public Function GetResguardoUniformesRep(CveEmpresa As Integer, Optional CvePersonal As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveDepartamento As Integer = -1, Optional FechaInicio As String = "-1", Optional FechaFin As String = "-1", Optional Todo As Boolean = False) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_ResguardoUniformesRep") @@ -4643,6 +4643,7 @@ Public Class ClsInventarios .Add("@CveDepartamento", SqlDbType.Int).Value = CveDepartamento .Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio .Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin + .Add("@Todo", SqlDbType.Bit).Value = Todo End With Try SqlAdapter.Fill(Data) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index bd5cbd3fa..7b3891368 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -2469,17 +2469,25 @@ Partial Class Bancos_IE - 'If CveOCSolicitudAnticipo > 0 Then - ' If TxtImporte.Text.ToDecimal > SaldoOCAnticipo Then - ' EsValido = False - ' Alert($"El importe del movimiento es mayor al saldo de la orden de compra importe movmiento {TxtImporte.Text.FormatoNumero } saldo orden de compra: {SaldoOCAnticipo.ToString.FormatoNumero}", TipoMensaje.MsgAdvertencia) + If CveOCSolicitudAnticipo > 0 Then - ' End If - 'End If - + Dim ObjOC As New ClsOC + If ObjOC.GetOCAnticipoSaldo(CveOCSolicitudAnticipo, UsuarioActual.CveEmpresa) Then + SaldoOCAnticipo = ObjOC.DtResultados(0)("Saldo").ToString.ToDecimal + Else + SaldoOCAnticipo = 0 + End If + ObjOC.Dispose() + + If TxtImporte.Text.ToDecimal > SaldoOCAnticipo Then + EsValido = False + Alert($"El importe del movimiento es mayor al saldo de la orden de compra importe movmiento {TxtImporte.Text.FormatoNumero } saldo orden de compra: {SaldoOCAnticipo.ToString.FormatoNumero}", TipoMensaje.MsgAdvertencia) + End If + End If Return EsValido + End Function Protected Sub BtnCambiaTipoMoneda_Click(sender As Object, e As EventArgs) diff --git a/Contabilidad2/RepAnexoCatalogoVertical.aspx.vb b/Contabilidad2/RepAnexoCatalogoVertical.aspx.vb index 64d542999..d0582aa0c 100644 --- a/Contabilidad2/RepAnexoCatalogoVertical.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogoVertical.aspx.vb @@ -71,7 +71,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoVertical Private Sub CargaDatos() Dim Conta As New ClsContabilidad - If Conta.GetAnexoCatalagoCC(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + If Conta.GetAnexoCatalagoCC(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1, 12) Then Dim DtHeaders As DataTable = Conta.DSResultados.Tables(0) GvCC.DataSource = Conta.DSResultados.Tables(1) diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb index 111600ced..28d168f57 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb @@ -1663,7 +1663,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Next IndiceInicio - e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={FEchaMesFinal.ToString("dd/MM/yyyy")}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={-1}" + e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoCC.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then diff --git a/Empresas/Grales/Formatos/EntradaSalida.rdlc b/Empresas/Grales/Formatos/EntradaSalida.rdlc index 8d45b31b5..c80980b50 100644 --- a/Empresas/Grales/Formatos/EntradaSalida.rdlc +++ b/Empresas/Grales/Formatos/EntradaSalida.rdlc @@ -6,22 +6,19 @@ - 1.72112cm + 1.14223cm - 2.33244cm + 3.14766cm - 7.27452cm + 11.67011cm 2.70027cm - 1.89819cm - - - 1.57864cm + 1.73945cm @@ -172,7 +169,7 @@ - Serie Lote + Serie - - - - - - Textbox12 - - - - Black - - 1pt - - - Black - - 1pt - - White - 2pt - 2pt - 2pt - 2pt - - - - @@ -314,7 +266,7 @@ =Fields!Cantidad.Value @@ -347,7 +299,7 @@ =Fields!Codigo.Value @@ -379,7 +331,7 @@ =Fields!PS.Value @@ -409,7 +361,7 @@ =Fields!SerieLote.Value @@ -439,7 +391,7 @@ =Fields!Lote.Value @@ -458,36 +410,6 @@ - - - - true - true - - - - - =Fields!Batch.Value - - - - - - 2pt - 2pt - =IIf(RowNumber(Nothing)=1,"1pt","0pt") - - - - @@ -503,11 +425,6 @@ =IIF(String.IsNullOrEmpty(Fields!Lote.Value), True,False) - - - =IIF(String.IsNullOrEmpty(Fields!Batch.Value), True,False) - - @@ -524,7 +441,7 @@ 0.17639cm 0.22456cm 1.11096cm - 17.50518cm + 20.39971cm @@ -567,7 +484,7 @@ 0.82291in @@ -937,9 +857,9 @@ Textbox32 3.09701cm - 14.14cm + 14.4575cm 0.59999cm - 3.65324cm + 5.9022cm 11 - - - - - 2pt - 2pt - 2pt - 2pt - - - - 0.84237cm - 0.20849cm - 0cm - 27.38607cm - 1 - - - - - - - - - 5.86021cm - - - 1.40551cm - - - 1.83854cm - - - 9.56026cm - - - 2.34042cm - - - 2.91042cm - - - 1.70625cm - - - 1.89146cm - - - - - 0.6cm - - - - - true - true - - - - - Nombre Completo - - - - - - - Textbox4 - - - - Silver - - - Silver - - - Silver - - - Silver - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Folio - - - - - - - Textbox15 - - - - Silver - - - Silver - - - Silver - - - Silver - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Fecha - - - - - - - Textbox17 - - - - Silver - - - Silver - - - Silver - - - Silver - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Descripción - - - - - - - Textbox3 - - - - Silver - - - Silver - - - Silver - - - Silver - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Sucursal - - - - - - - Textbox5 - - - - Silver - - - Silver - - - Silver - - - Silver - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Departamento - - - - - - - Textbox13 - - - - Silver - - - Silver - - - Silver - - - Silver - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Cantidad - - - - - - - Textbox14 - - - - Silver - - - Silver - - - Silver - - - Silver - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Total - - - - - - - Textbox18 - - - - Silver - - - Silver - - - Silver - - - Silver - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - =Fields!NombreCompleto.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Folio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!FechaMovto.Value - - - - - - - FechaMovto - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!CodigoPS.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SubProyecto.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Departamento.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Surtir - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Precio.Value - - - - - - - Precio - - - 2pt - 2pt - 2pt - 2pt - - - true - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DataSet1 - 1.10695cm - 0.08149cm - 1.2cm - 27.51307cm - 2 - - - - - - 0.94992in - - - - - - - Textbox1 - 0.18521cm - 6.07218cm - 0.6cm - 14.02238cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - REPORTE UNIFORMES - - - - - - - - - - - - - - - - Textbox2 - 1.10271cm - 6.07218cm - 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.20849cm + 0cm + 27.38607cm + 1 + + + + + + + + + 5.86021cm + + + 1.40551cm + + + 1.83854cm + + + 9.56026cm + + + 2.34042cm + + + 2.91042cm + + + 1.70625cm + + + 1.89146cm + + + + + 0.6cm + + + + + true + true + + + + + Nombre Completo + + + + + + + Textbox4 + + + + Silver + + + Silver + + + Silver + + + Silver + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Folio + + + + + + + Textbox15 + + + + Silver + + + Silver + + + Silver + + + Silver + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox17 + + + + Silver + + + Silver + + + Silver + + + Silver + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descripción + + + + + + + Textbox3 + + + + Silver + + + Silver + + + Silver + + + Silver + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Sucursal + + + + + + + Textbox5 + + + + Silver + + + Silver + + + Silver + + + Silver + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Departamento + + + + + + + Textbox13 + + + + Silver + + + Silver + + + Silver + + + Silver + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cantidad + + + + + + + Textbox14 + + + + Silver + + + Silver + + + Silver + + + Silver + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Total + + + + + + + Textbox18 + + + + Silver + + + Silver + + + Silver + + + Silver + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!NombreCompleto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Folio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FechaMovto.Value + + + + + + + FechaMovto + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!CodigoPS.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SubProyecto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Departamento.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Surtir + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Precio.Value + + + + + + + Precio + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 1.10695cm + 0.08149cm + 1.2cm + 27.51307cm + 2 + + + + + + 0.94992in + + + + + + + Textbox1 + 0.18521cm + 6.07218cm + 0.6cm + 14.02238cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE RESGUARDO UNIFORMES + + + + + + + + + + + + + + + + Textbox2 + 1.10271cm + 6.07218cm + 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 +