From 886a7fc9438b5ffc46fbe420f6356e9b3332c84d Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 23 Aug 2021 12:31:40 -0700 Subject: [PATCH] Cambios BDH, estatus de folios de garantia, numero de cantidad --- Acumuladores/CatFoliosGarantia.aspx | 20 ++++++++++++++------ Acumuladores/CatFoliosGarantia.aspx.vb | 17 +++++++++-------- App_Code/ClsAcumuladores.vb | 4 ++-- Empresas/140/Formatos/Cotizacion.rdlc | 1 + Empresas/140/Formatos/Factura.rdlc | 1 + Empresas/140/Formatos/Remision.rdlc | 1 + 6 files changed, 28 insertions(+), 16 deletions(-) diff --git a/Acumuladores/CatFoliosGarantia.aspx b/Acumuladores/CatFoliosGarantia.aspx index dac5e3565..8974fb697 100644 --- a/Acumuladores/CatFoliosGarantia.aspx +++ b/Acumuladores/CatFoliosGarantia.aspx @@ -93,6 +93,12 @@ + + + + +
+
@@ -118,7 +124,7 @@ --%>
-
- - - - + + + + + + +
diff --git a/Acumuladores/CatFoliosGarantia.aspx.vb b/Acumuladores/CatFoliosGarantia.aspx.vb index 6d76cfee3..c367fba25 100644 --- a/Acumuladores/CatFoliosGarantia.aspx.vb +++ b/Acumuladores/CatFoliosGarantia.aspx.vb @@ -47,7 +47,8 @@ Partial Class Acumuladores_CatFoliosGarantia #Region "Folios Garantía" Private Sub CargaSubProyectos() - CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, lblSubProyecto) + CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, lblSubProyecto) + CargarCentrosDeCosto(Nothing, DdlSubProyectoFiltro, Nothing, lblSubProyecto) GvFolioGarantia.Columns(3).HeaderText = lblSubProyecto.Text End Sub @@ -55,7 +56,7 @@ Partial Class Acumuladores_CatFoliosGarantia Dim objAcum As New ClsAcumuladores - If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=EstatusValor, TipoFolio:=tipoFolioValor, Area:=-1) Then + If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=EstatusValor, TipoFolio:=tipoFolioValor, Area:=-1, CveSubProyecto:=DdlSubProyectoFiltro.SelectedValue.ToEntero()) Then GvFolioGarantia.DataSource = objAcum.DtResultados Else GvFolioGarantia.DataSource = Nothing @@ -92,7 +93,7 @@ Partial Class Acumuladores_CatFoliosGarantia BtnAgregarFolioGarantiaModal.Text = "Agregar" TxtFolioGarantia.Text = "" - ChkEstatus.Checked = True + DdlEstatusEditar.SelectedValueExist("1") DdlSubProyectos.SelectedValueExist("-1") Actualizar = False @@ -114,10 +115,10 @@ Partial Class Acumuladores_CatFoliosGarantia If Not Actualizar Then - If ObjAcum.FoliosGarantiaAdd(TxtFolioGarantia.Text, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlSubProyectos.SelectedValue.ToEntero, DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero, DdlArea.SelectedValue.ToEntero) Then + If ObjAcum.FoliosGarantiaAdd(TxtFolioGarantia.Text, DdlEstatusEditar.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlSubProyectos.SelectedValue.ToEntero, DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero, DdlArea.SelectedValue.ToEntero) Then TxtFolioGarantia.Text = "" - ChkEstatus.Checked = True + DdlEstatusEditar.SelectedValueExist("1") 'TxtCargo.Text = "" 'TxtBonificacion.Text = "" 'TxtCompra.Text = "" @@ -133,11 +134,11 @@ Partial Class Acumuladores_CatFoliosGarantia Alert("Ocurrió un error al guardar el Folio de Garantía", TipoMensaje.MsgError) End If Else - If ObjAcum.FoliosGarantiaUpdate(CveFolioGarantia, TxtFolioGarantia.Text, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario, DdlSubProyectos.SelectedValue.ToEntero, + If ObjAcum.FoliosGarantiaUpdate(CveFolioGarantia, TxtFolioGarantia.Text, DdlEstatusEditar.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlSubProyectos.SelectedValue.ToEntero, DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero) Then TxtFolioGarantia.Text = "" - ChkEstatus.Checked = True + DdlEstatusEditar.SelectedValueExist("1") 'TxtCargo.Text = "" 'TxtBonificacion.Text = "" 'TxtCompra.Text = "" @@ -191,7 +192,7 @@ Partial Class Acumuladores_CatFoliosGarantia CveFolioGarantia = GvRow.DataKey("CveFolioGarantia") TxtFolioGarantia.Text = GvRow.DataKey("FolioGarantia") - ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False) + DdlEstatusEditar.SelectedValueExist(GvRow.DataKey("CveEstatus")) TxtLimite.Text = GvRow.DataKey("Limite") DdlTipoFolioModal.SelectedValue = GvRow.DataKey("tipoFolio") 'TxtCargo.Text = GvRow.DataKey("Cargo").ToDecimal.ToString("###,###,###.00") diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb index 365c14035..7f01aa20f 100644 --- a/App_Code/ClsAcumuladores.vb +++ b/App_Code/ClsAcumuladores.vb @@ -521,7 +521,7 @@ Public Class ClsAcumuladores With SqlAdapter.SelectCommand.Parameters .Add("@FolioGarantia", SqlDbType.VarChar).Value = FolioGarantia - .Add("@Estatus", SqlDbType.Bit).Value = Estatus + .Add("@Estatus", SqlDbType.Int).Value = Estatus .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto @@ -553,7 +553,7 @@ Public Class ClsAcumuladores .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia .Add("@FolioGarantia", SqlDbType.VarChar).Value = FolioGarantia - .Add("@Estatus", SqlDbType.Bit).Value = Estatus + .Add("@Estatus", SqlDbType.Int).Value = Estatus .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@TipoFolio", SqlDbType.VarChar).Value = TipoFolio diff --git a/Empresas/140/Formatos/Cotizacion.rdlc b/Empresas/140/Formatos/Cotizacion.rdlc index 8daf9c681..d94b32714 100644 --- a/Empresas/140/Formatos/Cotizacion.rdlc +++ b/Empresas/140/Formatos/Cotizacion.rdlc @@ -944,6 +944,7 @@ Myriad Pro 9pt Normal + n2 diff --git a/Empresas/140/Formatos/Factura.rdlc b/Empresas/140/Formatos/Factura.rdlc index c2e5f7e8d..d8d7cf6c7 100644 --- a/Empresas/140/Formatos/Factura.rdlc +++ b/Empresas/140/Formatos/Factura.rdlc @@ -1963,6 +1963,7 @@ Myriad Pro 7.5pt Normal + n2 diff --git a/Empresas/140/Formatos/Remision.rdlc b/Empresas/140/Formatos/Remision.rdlc index e68ef4c45..3001212dd 100644 --- a/Empresas/140/Formatos/Remision.rdlc +++ b/Empresas/140/Formatos/Remision.rdlc @@ -771,6 +771,7 @@ Myriad Pro 9.64pt Normal + n2