diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index 19d38432e..ba3ba2c77 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -1726,7 +1726,7 @@ Public Class ClsOC Public Function GetOrdenesCompraRep(Tipo As String, CveProyecto As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveEstatus As Integer, FechaInicio As Date, FechaFin As Date, CveOrdenCompra As Integer, CveProveedor As Integer, Folio As Integer, CveUsuarioRegistro As Integer, CveUsuario As Integer, CveEmpresa As Integer, CvePS As Integer, Optional PendientePorSurtir As Boolean = False, Optional CveCliente As Integer = -1, Optional Guia As String = "-1", Optional CveActivoFijo As Integer = -1, - Optional SoloSubProyectosConPermiso As Boolean = False) As Boolean + Optional SoloSubProyectosConPermiso As Boolean = False, Optional CveUsuarioAutorizo As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OC_OrdenesCompraRep") @@ -1751,6 +1751,7 @@ Public Class ClsOC .Add("@Guia", SqlDbType.VarChar).Value = Guia .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo .Add("@SoloSubProyectosConPermiso", SqlDbType.Bit).Value = SoloSubProyectosConPermiso + .Add("@CveUsuarioAutorizo", SqlDbType.Int).Value = CveUsuarioAutorizo End With diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 7e142edeb..b27cfb067 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -4660,7 +4660,7 @@ Partial Class Bancos_IE trCuentaDeposito.Visible = True DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) Else - Alert("El proveedor no tiene ninguna cuenta deposito registrada ante el sistema BBVA BANCOMER", TipoMensaje.MsgAdvertencia) + Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia) End If Else @@ -4668,25 +4668,12 @@ Partial Class Bancos_IE If Dep.DtResultados.Rows.Count > 0 Then trCuentaDeposito.Visible = True DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + End If End If - ''ANTIGUO - 'GVCuentasPago.DataSource = Dep.DtResultados - 'If Dep.DtResultados.Rows.Count > 1 Then - ' trCuentaDeposito.Visible = True - ' DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) - ' 'Si tiene seleccionado Tipo Mov: Layout y no tiene cuenta deposito - 'ElseIf DdlTipoTransaccion.SelectedValue = "9" AndAlso Not Dep.DtResultados.Rows.Count > 0 Then - ' trCuentaDeposito.Visible = True - ' DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) - - ' BtnIEGuardar.Enabled = False - ' UpGuardar.Update() - ' Alert("El proveedor no tiene ninguna cuenta deposito registrada ante el sistema BBVA BANCOMER", TipoMensaje.MsgAdvertencia) - 'End If End If Dep.Dispose() diff --git a/Bancos/PagoElectronico.aspx.vb b/Bancos/PagoElectronico.aspx.vb index 93a64cde4..90bbff120 100644 --- a/Bancos/PagoElectronico.aspx.vb +++ b/Bancos/PagoElectronico.aspx.vb @@ -801,7 +801,7 @@ Partial Class Bancos_PagoElectronico HeaderTexto = String.Format("H{0}{1}GRUPO01 ", convenio.PadLeft(9, PadCeros), DateTime.Now().ToString("yyyy-MM-dd")) 'Campo #5 del Header - Dim IdentificadoUsuario As String = UsuarioActual.Usuario.Replace(" ", "").Replace(".", "").Replace("@", "").Replace("/", "").ToUpper.Trim + Dim IdentificadoUsuario As String = UsuarioActual.Usuario.Replace(" ", "").Replace(".", "").Replace("@", "").Replace("/", "").Replace("\", "").Replace("-", "").Replace("&", "").Replace(",", "").Replace("+", "").Replace("_", "").ToUpper.Trim IdentificadoUsuario = If(IdentificadoUsuario.Length > 12, IdentificadoUsuario.Substring(0, 12), IdentificadoUsuario) ' Dim Identificado As String = String.Format("{0}{1}", UsuarioActual.Usuario, DateTime.Now().ToString("yyyyMMdd"))) diff --git a/Bancos/PagoElectronicoGrupos.aspx.vb b/Bancos/PagoElectronicoGrupos.aspx.vb index 62b657d9f..acf4a927d 100644 --- a/Bancos/PagoElectronicoGrupos.aspx.vb +++ b/Bancos/PagoElectronicoGrupos.aspx.vb @@ -966,16 +966,18 @@ Partial Class Bancos_PagoElectronicoGrupos RegistrosPago.Append("PSC") End If - If drow("CLABEOrigen").ToString.Trim.Length = 18 Then - RegistrosPago.Append(drow("CLABEOrigen").ToString) + If drow("CLABEOrigen").ToString.Trim.Length.Contiene(10, 18) Then + + RegistrosPago.Append(drow("CLABEOrigen").ToString.PadLeft(18, CeroRelleno)) + Else ErrorLayout = True MENSAJEError.AppendLine("ERROR EN CLABE cuenta origen") Exit For End If - If drow("CLABEDestino").ToString.Trim.Length = 18 Then - RegistrosPago.Append(drow("CLABEDestino").ToString) + If drow("CLABEDestino").ToString.Trim.Length.Contiene(10, 18) Then + RegistrosPago.Append(drow("CLABEDestino").ToString.PadLeft(18, CeroRelleno)) Else ErrorLayout = True MENSAJEError.AppendLine("ERROR EN CLABE cuenta destino") @@ -988,10 +990,22 @@ Partial Class Bancos_PagoElectronicoGrupos If drow("BancoNombre").ToString.ToUpper.Contains("BANCOMER") Or drow("BancoNombre").ToString.ToUpper.Contains("BBVA") Then - If drow("Observaciones").ToString.Trim.Length > 30 Then - RegistrosPago.Append(drow("Observaciones").ToString.Substring(0, 30)) + + If drow("Observaciones").ToString.Trim.Length = 0 Then + + If drow("RazonSocial").ToString.Trim.Length > 30 Then + RegistrosPago.Append(drow("RazonSocial").ToString.Substring(0, 30)) + Else + RegistrosPago.Append(drow("RazonSocial").ToString.PadRight(30, EspacioRelleno)) + End If Else - RegistrosPago.Append(drow("Observaciones").ToString.PadRight(30, EspacioRelleno)) + + If drow("Observaciones").ToString.Trim.Length > 30 Then + RegistrosPago.Append(drow("Observaciones").ToString.Substring(0, 30)) + Else + RegistrosPago.Append(drow("Observaciones").ToString.PadRight(30, EspacioRelleno)) + End If + End If Else diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index c608e31d7..e1909a2b2 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/Bancos/PopIECompras.aspx.vb @@ -942,7 +942,7 @@ Partial Class Bancos_PopIECompras DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) Else BtnGuardar.Enabled = False - Alert("El proveedor no tiene ninguna cuenta deposito registrada ante el sistema BBVA BANCOMER", TipoMensaje.MsgAdvertencia) + Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia) End If Else diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 1f79da289..6ca16c29c 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -2515,33 +2515,24 @@ Partial Class Bancos_ProveedoresAbonar DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) Else BtnIEGuardar.Enabled = False - Alert("El proveedor no tiene ninguna cuenta deposito registrada ante el sistema BBVA BANCOMER", TipoMensaje.MsgAdvertencia) + Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia) End If ElseIf DdlTipoTransaccion.SelectedValue = "17" Then If Dep.DtResultados.Rows.Count > 0 Then - DdlCuentaDeposito.DataSource = Dep.DtResultados '.FiltraParametros("EstatusPagoElectronicoGrupos = 'True' AND Estatus ='True'") + DdlCuentaDeposito.DataSource = Dep.DtResultados trCuentaDeposito.Visible = True BtnIEGuardar.ToolTip = "" Else - 'Alert("El proveedor no tiene cuentas deposito registradas.") BtnIEGuardar.Enabled = False BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito" - - End If - 'If Dep.DtResultados.FiltraParametros("EstatusPagoElectronicoGrupos = 'True' AND Estatus ='True'").Rows.Count > 0 Then - ' trCuentaDeposito.Visible = True - ' DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) - 'Else - ' BtnIEGuardar.Enabled = False - ' Alert("El proveedor no tiene ninguna cuenta deposito registrada ", TipoMensaje.MsgAdvertencia) - 'End If + UpGuardar.Update() Else DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("Estatus ='True'") diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 07ce7e246..741df6d20 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -10771,7 +10771,7 @@ Partial Class Compras_Compras e.Row.FCDropDownList("DdlAC5").Items.Clear() e.Row.FCDropDownList("DdlAC5").Visible = True - e.Row.FCDropDownList("DdlAC5").DataSource = DtPresupuestos.FiltraParametros("NOT CodigoCOG like '1%'", DistinctColumns:={"CveClasificacion", "CodigoClasificacion"}, Orderby:="CodigoClasificacion") 'GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("Afectable = 1 ") 'DtPresupuestos.FiltraParametros("", DistinctColumns:={"CveClasificacion", "CodigoClasificacion"}, Orderby:="CodigoClasificacion") + e.Row.FCDropDownList("DdlAC5").DataSource = DtPresupuestos.FiltraParametros("", DistinctColumns:={"CveClasificacion", "CodigoClasificacion"}, Orderby:="CodigoClasificacion") 'GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("Afectable = 1 ") 'DtPresupuestos.FiltraParametros("", DistinctColumns:={"CveClasificacion", "CodigoClasificacion"}, Orderby:="CodigoClasificacion") e.Row.FCDropDownList("DdlAC5").DataBind() e.Row.FCDropDownList("DdlAC5").SelectedValueExist(e.Row.DBCampo("CveClasificacionOG")) @@ -12878,12 +12878,13 @@ Partial Class Compras_Compras DdlACGeneral4.DataBind() DdlACGeneral5.Items.Clear() - DdlACGeneral5.DataSource = DtPresupuestos.FiltraParametros("NOT CodigoCOG like '1%'", DistinctColumns:={"CveClasificacion", "CodigoClasificacion"}, Orderby:="CodigoClasificacion") - If UsuarioActual.CveEmpresa.Contiene(120) Then - DdlACGeneral5.DataSource = DtPresupuestos.FiltraParametros("", DistinctColumns:={"CveClasificacion", "CodigoClasificacion"}, Orderby:="CodigoClasificacion") - Else - DdlACGeneral5.DataSource = DtPresupuestos.FiltraParametros("NOT CodigoCOG like '1%'", DistinctColumns:={"CveClasificacion", "CodigoClasificacion"}, Orderby:="CodigoClasificacion") - End If + DdlACGeneral5.DataSource = DtPresupuestos.FiltraParametros("", DistinctColumns:={"CveClasificacion", "CodigoClasificacion"}, Orderby:="CodigoClasificacion") + 'RM 2020.05.19. se mostraran todas las partidas del presupuesto, no se limintan las 1% + 'If UsuarioActual.CveEmpresa.Contiene(120) Then + ' DdlACGeneral5.DataSource = DtPresupuestos.FiltraParametros("", DistinctColumns:={"CveClasificacion", "CodigoClasificacion"}, Orderby:="CodigoClasificacion") + 'Else + ' DdlACGeneral5.DataSource = DtPresupuestos.FiltraParametros("NOT CodigoCOG like '1%'", DistinctColumns:={"CveClasificacion", "CodigoClasificacion"}, Orderby:="CodigoClasificacion") + 'End If DdlACGeneral5.DataBind() If CveCompra > 0 Then diff --git a/OC/RepOC.aspx b/OC/RepOC.aspx index 1c595f300..7784cd01c 100644 --- a/OC/RepOC.aspx +++ b/OC/RepOC.aspx @@ -1,490 +1,495 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepOC.aspx.vb" Inherits="RepOC" %> - - - - - - - - - - - - - - -
  • - PDF por Atender -
    • -     - - - -     -
  • - Excel por Atender -
    • -
  • - Excel Pendientes -
    • -
  • - Excel -
    • -     - - - - - -     -
  • - Reporte Semanal -
    • - - - -     - - - Reporte de Requisiciones y Ordenes de Compra - - - - - - - -
    -
    -
    - - - "> - -
    -
    -
    -
    - - -
    -
    - - - - - - -
    - -
    - - -
    - -
    - - -
    -
    - - - -
    -
    -
    -
    -
    > -
    -
    - -
    - - -
    -
    - -
    - - -
    - -
    -
    - - - - -
    - - - - - - -
    - -
    -
    - - - - -
    - - - - - - -
    -
    -
    - -
    - - -
    - -
    - -
    -
    - - -
    -
    -
    - -
    - -
    - -
    - -
    -
    -
    -
    -     -     -
    - - - -
    -
    -
    -
    - -
    -
    -
    -
    -
    -

    - $ - - - -

    - TOTAL ORDENES DE COMPRA -
    -
    - -
    -
    -
    -
    -
    - -
    -
    - " style="display: inline-block; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    - -
    - " style="display: inline-block; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    - -
    - " style="display: inline-block; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    -
    -
    -
    -     -     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -     - - - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepOC.aspx.vb" Inherits="RepOC" %> + + + + + + + + + + + + + + +
  • + PDF por Atender +
    • +     + + + +     +
  • + Excel por Atender +
    • +
  • + Excel Pendientes +
    • +
  • + Excel +
    • +     + + + + + +     +
  • + Reporte Semanal +
    • + + + +     + + + Reporte de Requisiciones y Ordenes de Compra + + + + + + + +
    +
    +
    + + + "> + +
    +
    +
    +
    + + +
    +
    + + + + + + +
    + +
    + + +
    + +
    + + +
    +
    + + + +
    +
    +
    +
    +
    > +
    +
    + +
    + + +
    +
    + +
    + + +
    + +
    + + +
    + +
    +
    + +
    + + +
    + +
    + +
    + +
    +
    + + + + +
    + + + + + + +
    + +
    +
    + + + + +
    + + + + + + +
    +
    +
    + +
    + +
    + +
    + +
    +
    + +
    +
    +
    +
    +     +     +
    + + + +
    +
    +
    +
    + +
    +
    +
    +
    +
    +

    + $ + + + +

    + TOTAL ORDENES DE COMPRA +
    +
    + +
    +
    +
    +
    +
    + +
    +
    + " style="display: inline-block; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + +
    + " style="display: inline-block; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + +
    + " style="display: inline-block; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    +
    +
    +     +     + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +     + + + - + +     diff --git a/OC/RepOC.aspx.vb b/OC/RepOC.aspx.vb index a06502eed..f945d7c81 100644 --- a/OC/RepOC.aspx.vb +++ b/OC/RepOC.aspx.vb @@ -95,7 +95,12 @@ Partial Class RepOC Protected Sub CargaUsuarios() ddlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) ddlUsuario.DataBind() - ddlUsuario.Items.Insert(0, New ListItem("Todos", "-1")) + ddlUsuario.Items.Insert(0, New ListItem("Todos", "-1")) + + DdlUsuarioAutorizo.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) + DdlUsuarioAutorizo.DataBind() + DdlUsuarioAutorizo.Items.Insert(0, New ListItem("Todos", "-1")) + End Sub Protected Sub CargaProveedores() ddlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) @@ -313,7 +318,7 @@ Partial Class RepOC If OC.GetOrdenesCompraRep(DdlTipo.SelectedValue.ToString, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, ddlProveedor.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero, If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False), ddlcliente.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, - SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False)) Then + SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False), CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero()) Then GvConsultar.DataSource = OC.DtResultados DtOC = OC.DtResultados diff --git a/Site.master.vb b/Site.master.vb index bd03f5832..71df0dc42 100644 --- a/Site.master.vb +++ b/Site.master.vb @@ -463,7 +463,7 @@ Partial Class Site Private Function ConvertCER() As String Try - Dim Archivo As String = String.Format("{0}Empresas\{1}\Certificados\{2}", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.ArchivoCer) + Dim Archivo As String = String.Format("{0}Empresas\{1}\Certificados\{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.ArchivoCer) If File.Exists(Archivo) Then Dim CerFile As New FileStream(Archivo, FileMode.Open, FileAccess.Read) Dim Size As Integer = CerFile.Length.ToString.ToEntero()