Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

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
 

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()

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")))
 

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

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

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'")

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

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

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()