AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- mejoras de GlobalDT

Browse Source
This commit is contained in:
rrene
2024-08-01 19:44:55 -07:00
parent 0a938008e7
commit 19aba02fb6
11 changed files with 31 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
OC/OC.aspx.vb
View File

@@ -728,7 +728,7 @@ Partial Class OC_OC
'temporal
If UsuarioActual.CveEmpresa = 189 Then
'GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC)
DdlSubProyectoGral.DataSource = GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC) 'GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("", "SubProyecto")
DdlSubProyectoGral.DataSource = GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC).FiltraParametros("", "SubProyecto", DistinctColumns:={"CveSubProyecto", "SubProyecto"})
DdlSubProyectoGral.DataBind()
DdlSubProyectoGral.SelectedValueExist(UsuarioActual.CveSubProyecto)
End If
@@ -957,8 +957,11 @@ Partial Class OC_OC
End If
End If
If UsuarioActual.CveRol = 1 Then
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
chkSubProyectoEntrega.Visible = True
LblPrioridad.Text = "Sucursal"
DdlPrioridad.Visible = False
DdlSubProyectoGral.Visible = True
End If
End If
@@ -4956,7 +4959,7 @@ Partial Class OC_OC
End If
End Sub
Private Sub BtnEliminarCotizacion_Click(sender As Object, e As EventArgs) Handles BtnEliminarCotizacion.Click
Dim Body As String = GeneraCorreoEliminarCotizacion(HdnCveCotizacion.Value.ToEntero, TxtMotivoEliminacion.Text.Trim)
Dim Body As String = GeneraCorreoEliminarCotizacion(HdnCveCotizacion.Value.ToEntero, TxtMotivoEliminacion.Text.Trim, UsuarioActual.CveEmpresa)
RegistraScript("hideDivEC();")
End Sub
#End Region
@@ -6428,7 +6431,7 @@ Partial Class OC_OC
'verifico los permisos según el estatus
If objOC.GetOrdenesDetalle(CveOrdenCompra) Then
If objOC.GetOrdenesDetalle(CveOrdenCompra, UsuarioActual.CveEmpresa) Then
For Each dr As DataRow In objOC.DtResultados.Rows
strBody.AppendFormat("<tr class='Texto'><td>{0}</td><td>{1}</td><td><span style='width: 220px; border-bottom: 1px solid gray;'>{2}</span><br>{3}</td><td>{4}</td><td style='width:150px;'><span style='width: 150px; border-bottom: 1px solid gray;'>{5}</span><br>{6}</td><td>{7}</td><td align='right'>{8}</td><td align='right'>{9}</td></tr>",
dr("Cantidad").ToString.FormatoNumero, dr("Abreviatura"), dr("Clasificacion"), dr("PS"), dr("Observacion"), dr("Proyecto"), If(CveEmpresaActual = 66, "", dr("SubProyecto")), dr("Codigo"), If(Not IsDBNull(dr("Importe")), FormatCurrency(dr("Importe").ToString), ""), If(Not IsDBNull(dr("Total")), FormatCurrency(dr("Total").ToString), ""))
@@ -6470,7 +6473,7 @@ Partial Class OC_OC
objOC.GetOC(CveOrdenCompra, CveEmpresaActual)
CveProveedor = objOC.CveProveedor
Dim DttDetalle As DataTable = Nothing
If objOC.GetOrdenesDetalle(CveOrdenCompra) Then
If objOC.GetOrdenesDetalle(CveOrdenCompra, CveEmpresaActual) Then
DttDetalle = objOC.DtResultados
End If
@@ -6567,7 +6570,7 @@ Partial Class OC_OC
#End Region
#Region "Correo Eliminar Cotización"
Private Function GeneraCorreoEliminarCotizacion(CveCotizacion As Integer, Motivo As String) As String
Private Function GeneraCorreoEliminarCotizacion(CveCotizacion As Integer, Motivo As String, CveEmpresaActual As Integer) As String
Dim ObjCotizacion As New ClsOC
ObjCotizacion.GetCotizaciones(CveOrdenCompra, CveCotizacion)
Dim strBody As New StringBuilder
@@ -6650,7 +6653,7 @@ Partial Class OC_OC
strBody.Append(" </tr>")
Dim dtConceptos As DataTable = Nothing
If ObjCotizacion.GetOrdenesDetalle(CveOrdenCompra) Then
If ObjCotizacion.GetOrdenesDetalle(CveOrdenCompra, CveEmpresaActual) Then
dtConceptos = ObjCotizacion.DtResultados
End If
@@ -9282,6 +9285,8 @@ Partial Class OC_OC
End Sub
Protected Sub DdlSubProyectoGral_SelectedIndexChanged(sender As Object, e As EventArgs)
DdlSubProyecto.SelectedValueExist(DdlSubProyectoGral.SelectedValue)
UPPDetalle.Update()
CargaFolios()
End Sub
End Class