From 1e205891be97d228299b9dac61d3df9a0135de08 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 14 Feb 2023 17:52:07 -0700 Subject: [PATCH 1/3] Correcion en descarga de evaluacion de proveedores --- Compras/Proveedores.aspx.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 975465cb7..ebc6772bf 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -5726,10 +5726,10 @@ Partial Class Compras_Proveedores End Sub Protected Sub DescargarFormatoCarta(Proveedor As String, Dia As String, Mes As String, Calificacion As String, Resultado As String) Try - Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas + Dim PathRoot As String = Server.MapPath("/") Dim Documento As String = "CartaProveedor.docx" Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}" - Dim PathDestino As String = PathRoot & "Temp\" & Documento + Dim PathDestino As String = PathRoot & "Temp\" & Proveedor & "_" & Documento If File.Exists(PathDestino) Then File.Delete(PathDestino) @@ -5749,10 +5749,10 @@ Partial Class Compras_Proveedores End Sub Protected Sub DescargarFormatoEvaluacion(Proveedor As String, Dia As String, Mes As String, Calificacion As String, Resultado As String) Try - Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas + Dim PathRoot As String = Server.MapPath("/") Dim Documento As String = "FormatoEvaluacionProveedor.docx" Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}" - Dim PathDestino As String = PathRoot & "Temp\" & Documento + Dim PathDestino As String = PathRoot & "Temp\" & Proveedor & "_" & Documento If File.Exists(PathDestino) Then File.Delete(PathDestino) From 6a78ed35deea3f2324da3957be241cc0a124bb85 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 15 Feb 2023 09:48:04 -0700 Subject: [PATCH 2/3] EMD. cambios en contratos --- Contratos/Contrato.aspx.vb | 102 +++++++++++++++++++++++++++++++------ Ventas/Ventas.aspx | 4 +- 2 files changed, 88 insertions(+), 18 deletions(-) diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index d2c3340ef..50d451713 100644 --- a/Contratos/Contrato.aspx.vb +++ b/Contratos/Contrato.aspx.vb @@ -487,6 +487,10 @@ Partial Class Contratos_Default End If If UsuarioActual.CveEmpresa.Contiene(72, 80) Then divResponsable.Visible = False + If UsuarioActual.CveEmpresa = 13 Then + rpCompra.Visible = False + End If + End Sub Public Sub CargaDireccionesEnvios(CveCliente As Integer) @@ -728,11 +732,11 @@ Partial Class Contratos_Default DvTotal.Visible = True - If CveContrato > 0 AndAlso CveContratoTipo <> 25 Then + If CveContrato > 0 AndAlso Not CveContratoTipo.Contiene(25, 33) Then TableDatosCabecera.Visible = True End If - If CveContratoTipo = 25 Then + If CveContratoTipo.Contiene(25, 33) Then DvMax.Visible = False DvMin.Visible = False DvTotal.Visible = False @@ -749,11 +753,11 @@ Partial Class Contratos_Default DvTotal.Visible = True 'TxtCantidad.Visible = False - If CveContrato > 0 AndAlso CveContratoTipo <> 25 Then + If CveContrato > 0 AndAlso Not CveContratoTipo.Contiene(25, 33) Then TableDatosCabecera.Visible = True End If - If CveContratoTipo = 25 Then + If CveContratoTipo.Contiene(25, 33) Then DvMax.Visible = False DvMin.Visible = False DvTotal.Visible = False @@ -835,6 +839,48 @@ Partial Class Contratos_Default CargaPlantillas() TrContratoPlantilla.Visible = True TabPres.HeaderText = "Partidas" + End If + + + If CveContratoTipo = 33 Then + TabContratosGastos.Visible = False + TabAF.Visible = False + TabReporteAvance.Visible = False + TabAvanveDocumento.Visible = False + TabContratosGastos.Visible = False + TabAF.Visible = False + TabPed.Visible = False + TabAddendum.Visible = False + TabFacCiclica.Visible = False + + TabPVInsumos.Visible = False + + thOcCliente.Visible = False + tdOcCliente.Visible = False + + thLimitar.Visible = False + tdLimitar2.Visible = False + + trLicitacion.Visible = False + divResponsable.Visible = False + 'TrPeriodo.Visible = True + trIva.Visible = False + trAnticipo.Visible = False + trAmortizacion.Visible = False + trPorGarantia.Visible = False + DvMin.Visible = False + RowFlexible.Visible = False + RowPorcentajeComision.Visible = False + DvMax.Visible = False + DvTotal.Visible = False + 'RowEstatus.Visible = False + DdlSubProyectoContrato.AutoPostBack = False + + dvAddendum.Visible = False + + DivFianzas.Visible = False + Div4.Visible = False + DivImpuestosLocales.Visible = False End If @@ -938,6 +984,27 @@ Partial Class Contratos_Default thLimitar.Visible = False tdLimitar2.Visible = False + + trLicitacion.Visible = False + divResponsable.Visible = False + 'TrPeriodo.Visible = True + trIva.Visible = False + trAnticipo.Visible = False + trAmortizacion.Visible = False + trPorGarantia.Visible = False + DvMin.Visible = False + RowFlexible.Visible = False + RowPorcentajeComision.Visible = False + DvMax.Visible = False + DvTotal.Visible = False + RowEstatus.Visible = False + DdlSubProyectoContrato.AutoPostBack = False + + dvAddendum.Visible = False + + DivFianzas.Visible = False + Div4.Visible = False + DivImpuestosLocales.Visible = False End If If ObjContratos.CveProveedor > 0 Then @@ -1232,20 +1299,23 @@ Partial Class Contratos_Default Private Sub CargarFianzas() - DivFianzas.Visible = True - - Dim ObjContrato As ClsContratos = New ClsContratos() - - If ObjContrato.GetContratoFianza(CveContrato, -1, "-1", "-1", UsuarioActual.CveEmpresa, -1) Then - DtTmpFianzas = ObjContrato.DtResultados - GvFianzas.DataSource = ObjContrato.DtResultados - - DtTmpFianzasInicial = DtTmpFianzas.Copy() - + If CveContratoTipo <> 33 Then + DivFianzas.Visible = True + + Dim ObjContrato As ClsContratos = New ClsContratos() + + If ObjContrato.GetContratoFianza(CveContrato, -1, "-1", "-1", UsuarioActual.CveEmpresa, -1) Then + DtTmpFianzas = ObjContrato.DtResultados + GvFianzas.DataSource = ObjContrato.DtResultados + + DtTmpFianzasInicial = DtTmpFianzas.Copy() + + End If + + ObjContrato.Dispose() + GvFianzas.DataBind() End If - ObjContrato.Dispose() - GvFianzas.DataBind() UpGvFianzas.Update() End Sub diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 3fb93897b..e654fa7f1 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -555,7 +555,7 @@ - Descripción de factura: + Descripción: @@ -3226,7 +3226,7 @@ - + OC Cliente From d742eb44d72f6d0a6f5e5a0b5cc64c6933d8b82c Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Wed, 15 Feb 2023 09:50:15 -0700 Subject: [PATCH 3/3] Transferencias Validacino prepoliza y contabilizar --- Bancos/Transferencias.aspx.vb | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/Bancos/Transferencias.aspx.vb b/Bancos/Transferencias.aspx.vb index ff4a419e3..e198bbd5b 100644 --- a/Bancos/Transferencias.aspx.vb +++ b/Bancos/Transferencias.aspx.vb @@ -447,6 +447,20 @@ Partial Class Bancos_Transferencias MsgError = "Error al guardar" End If + + + If MsgError = "" Then + If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then + If ObjMov.ValorPolizaDescuadre > 0 Then + MsgError = ObjMov.MensajePolizaDescuadre + GuardaLogAD($"Bancos/Transferencias | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") + End If + Else + MsgError = "No se pudo validar la prepoliza de cuadre." + End If + End If + + If MsgError = "" Then ObjIE.Commit() Alert(String.Format("El Movimiento se realizo correctamente.
{0}", AlertaGlobal), TipoMensaje.MsgInformacion)