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

4
Inventarios/Equivalencia.aspx.vb
View File

@@ -29,7 +29,7 @@ Partial Class Inventarios_Equivalencia
Private Sub InicializarListas() Private Sub InicializarListas()
'Llenar el dropdownlist de unidad de medida 'Llenar el dropdownlist de unidad de medida
ddlUnidad.DataSource = GlobalDTUnidadesMedida() ddlUnidad.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
ddlUnidad.DataBind() ddlUnidad.DataBind()
@@ -245,7 +245,7 @@ Partial Class Inventarios_Equivalencia
Protected Sub gvEquivalencias_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles gvEquivalencias.RowDataBound Protected Sub gvEquivalencias_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles gvEquivalencias.RowDataBound
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida() e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
e.Row.FCDropDownList("ddlEUnidad").SelectedValue = e.Row.DBCampo("CveUnidadMedida") e.Row.FCDropDownList("ddlEUnidad").SelectedValue = e.Row.DBCampo("CveUnidadMedida")
e.Row.FCDropDownList("ddlEUnidad").DataBind() e.Row.FCDropDownList("ddlEUnidad").DataBind()
End If End If

4
OC/CotizacionEnvio.aspx.vb
View File

@@ -230,7 +230,7 @@ Partial Class OC_CotizacionEnvio
If objCotizacion.AddCotizacion(CveOrdenCompra, CveProveedor, CveColectiva, "-1", "-1", "", 1, 0, 0) Then If objCotizacion.AddCotizacion(CveOrdenCompra, CveProveedor, CveColectiva, "-1", "-1", "", 1, 0, 0) Then
'Cargar los detalles de la cotizacion 'Cargar los detalles de la cotizacion
If objCotizacion.GetOrdenesDetalle(CveOrdenCompra) Then If objCotizacion.GetOrdenesDetalle(CveOrdenCompra, UsuarioActual.CveEmpresa) Then
'Agrega CveCotizacion a la lista 'Agrega CveCotizacion a la lista
OrdenCotizacion.Add(objCotizacion.CveCotizacion) OrdenCotizacion.Add(objCotizacion.CveCotizacion)
For Each RowCD As DataRow In objCotizacion.DtResultados.Rows For Each RowCD As DataRow In objCotizacion.DtResultados.Rows
@@ -397,7 +397,7 @@ Partial Class OC_CotizacionEnvio
'verifico los permisos según el estatus 'verifico los permisos según el estatus
Dim dtConceptos As DataTable = Nothing Dim dtConceptos As DataTable = Nothing
If objOC.GetOrdenesDetalle(CveOrdenCompra) Then If objOC.GetOrdenesDetalle(CveOrdenCompra, UsuarioActual.CveEmpresa) Then
dtConceptos = objOC.DtResultados dtConceptos = objOC.DtResultados
End If End If

14
OC/OC.aspx
View File

@@ -212,7 +212,8 @@
<asp:Label runat="server" ID="lblFolio" Font-Bold="true"></asp:Label> <asp:Label runat="server" ID="lblFolio" Font-Bold="true"></asp:Label>
</label> </label>
<b> <b>
<asp:Label runat="server" ID="LblPrioridad" Text="Prioridad:" class="col-md-2" /></b>
<asp:Label runat="server" ID="LblPrioridad" Text="Prioridad:" class="col-md-2" /></b>
<div class="col-md-4" id="DivPrioridad" runat="server"> <div class="col-md-4" id="DivPrioridad" runat="server">
<asp:DropDownList ID="DdlPrioridad" CssClass="select2me" runat="server" Width="150px"> <asp:DropDownList ID="DdlPrioridad" CssClass="select2me" runat="server" Width="150px">
<asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
@@ -220,6 +221,9 @@
<asp:ListItem Text="Media" Value="2"></asp:ListItem> <asp:ListItem Text="Media" Value="2"></asp:ListItem>
<asp:ListItem Text="Baja" Value="3"></asp:ListItem> <asp:ListItem Text="Baja" Value="3"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<asp:DropDownList ID="DdlSubProyectoGral" Visible="false" CssClass="form-control select2me" runat="server" Width="85%" DataTextField="SubProyecto" DataValueField="CveSubProyecto" OnSelectedIndexChanged ="DdlSubProyectoGral_SelectedIndexChanged" AutoPostBack="true">
<asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div> </div>
</div> </div>
</ContentTemplate> </ContentTemplate>
@@ -447,14 +451,6 @@
<asp:HiddenField ID="hdnCveSuperior" runat="server" Value="-1" /> <asp:HiddenField ID="hdnCveSuperior" runat="server" Value="-1" />
</td> </td>
</tr> </tr>
<tr id="trSubProyecto">
<td><b>Sucursal:</b></td>
<td>
<asp:DropDownList ID="DdlSubProyectoGral" CssClass="form-control select2me" runat="server" Width="100%" DataTextField="SubProyecto" DataValueField="CveSubProyecto" OnSelectedIndexChanged ="DdlSubProyectoGral_SelectedIndexChanged" AutoPostBack="true">
<asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
</asp:DropDownList>
</td>
</tr>
<tr id="trCfdi" style="display:none;" > <tr id="trCfdi" style="display:none;" >
<td> <td>
<div class="caption font-green"> <div class="caption font-green">

19
OC/OC.aspx.vb
View File

@@ -728,7 +728,7 @@ Partial Class OC_OC
'temporal 'temporal
If UsuarioActual.CveEmpresa = 189 Then If UsuarioActual.CveEmpresa = 189 Then
'GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC) '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.DataBind()
DdlSubProyectoGral.SelectedValueExist(UsuarioActual.CveSubProyecto) DdlSubProyectoGral.SelectedValueExist(UsuarioActual.CveSubProyecto)
End If End If
@@ -957,8 +957,11 @@ Partial Class OC_OC
End If End If
End If End If
If UsuarioActual.CveRol = 1 Then If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
chkSubProyectoEntrega.Visible = True chkSubProyectoEntrega.Visible = True
LblPrioridad.Text = "Sucursal"
DdlPrioridad.Visible = False
DdlSubProyectoGral.Visible = True
End If End If
End If End If
@@ -4956,7 +4959,7 @@ Partial Class OC_OC
End If End If
End Sub End Sub
Private Sub BtnEliminarCotizacion_Click(sender As Object, e As EventArgs) Handles BtnEliminarCotizacion.Click 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();") RegistraScript("hideDivEC();")
End Sub End Sub
#End Region #End Region
@@ -6428,7 +6431,7 @@ Partial Class OC_OC
'verifico los permisos según el estatus '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 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>", 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), "")) 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) objOC.GetOC(CveOrdenCompra, CveEmpresaActual)
CveProveedor = objOC.CveProveedor CveProveedor = objOC.CveProveedor
Dim DttDetalle As DataTable = Nothing Dim DttDetalle As DataTable = Nothing
If objOC.GetOrdenesDetalle(CveOrdenCompra) Then If objOC.GetOrdenesDetalle(CveOrdenCompra, CveEmpresaActual) Then
DttDetalle = objOC.DtResultados DttDetalle = objOC.DtResultados
End If End If
@@ -6567,7 +6570,7 @@ Partial Class OC_OC
#End Region #End Region
#Region "Correo Eliminar Cotización" #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 Dim ObjCotizacion As New ClsOC
ObjCotizacion.GetCotizaciones(CveOrdenCompra, CveCotizacion) ObjCotizacion.GetCotizaciones(CveOrdenCompra, CveCotizacion)
Dim strBody As New StringBuilder Dim strBody As New StringBuilder
@@ -6650,7 +6653,7 @@ Partial Class OC_OC
strBody.Append(" </tr>") strBody.Append(" </tr>")
Dim dtConceptos As DataTable = Nothing Dim dtConceptos As DataTable = Nothing
If ObjCotizacion.GetOrdenesDetalle(CveOrdenCompra) Then If ObjCotizacion.GetOrdenesDetalle(CveOrdenCompra, CveEmpresaActual) Then
dtConceptos = ObjCotizacion.DtResultados dtConceptos = ObjCotizacion.DtResultados
End If End If
@@ -9282,6 +9285,8 @@ Partial Class OC_OC
End Sub End Sub
Protected Sub DdlSubProyectoGral_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlSubProyectoGral_SelectedIndexChanged(sender As Object, e As EventArgs)
DdlSubProyecto.SelectedValueExist(DdlSubProyectoGral.SelectedValue)
UPPDetalle.Update()
CargaFolios() CargaFolios()
End Sub End Sub
End Class End Class

2
OC/RepCotizacionesDetalle.aspx.vb
View File

@@ -131,7 +131,7 @@ Partial Class PopOCCotizacionesDetalle
Private Sub CargaOCDetalle(pCveOrden As Integer) Private Sub CargaOCDetalle(pCveOrden As Integer)
Dim objOC As New ClsOC Dim objOC As New ClsOC
If objOC.GetOrdenesDetalle(pCveOrden) Then If objOC.GetOrdenesDetalle(pCveOrden, UsuarioActual.CveEmpresa) Then
DtDetalle = objOC.DtResultados DtDetalle = objOC.DtResultados
End If End If

2
OS/OrdenesServicios.aspx.vb
View File

@@ -474,7 +474,7 @@ Partial Class OS_OrdenesServicios
End Sub End Sub
Private Sub CargaTiposVenta() Private Sub CargaTiposVenta()
DdlTipoVenta.DataSource = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ") DdlTipoVenta.DataSource = GlobalDTTipoVenta(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
DdlTipoVenta.DataBind() DdlTipoVenta.DataBind()
End Sub End Sub

2
OS/PopUpMateriales.aspx.vb
View File

@@ -127,7 +127,7 @@ Partial Class OS_PopUpMateriales
Dim RowPS As DataRow = DTPS.FiltraParametros("CvePS = " & Material("CvePS").ToString).Rows(0) Dim RowPS As DataRow = DTPS.FiltraParametros("CvePS = " & Material("CvePS").ToString).Rows(0)
Dim PS As String = RowPS("PS").ToString Dim PS As String = RowPS("PS").ToString
Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString.ToEntero Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString.ToEntero
Dim UM = GlobalDTUnidadesMedida.FiltraParametros("CveUnidadMedida = " & CveUnidadMedida).Rows(0)("UnidadMedida").ToString Dim UM = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltraParametros("CveUnidadMedida = " & CveUnidadMedida).Rows(0)("UnidadMedida").ToString
Dim CveClasificacion As Integer = RowPS("CveClasificacion").ToString.ToEntero Dim CveClasificacion As Integer = RowPS("CveClasificacion").ToString.ToEntero
Dim Clasificacion As String = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("CveClasificacion = " & CveClasificacion).Rows(0)("Clasificacion").ToString Dim Clasificacion As String = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("CveClasificacion = " & CveClasificacion).Rows(0)("Clasificacion").ToString

2
Planeacion/CatSubProyectos.aspx.vb
View File

@@ -102,7 +102,7 @@ Partial Class CatSubProyectos
Private Sub RecargaGlobal() Private Sub RecargaGlobal()
GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = Nothing GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = Nothing
GlobalDTSubProyectosUsuarios(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing GlobalDTSubProyectosUsuarios(-1, -1, UsuarioActual.CveEmpresa) = Nothing
GlobalDTOCEstatusUsuarios(UsuarioActual.CveEmpresa) = Nothing GlobalDTOCEstatusUsuarios(UsuarioActual.CveEmpresa) = Nothing
End Sub End Sub

6
Presupuestos/GenerarPresupuestos.aspx.vb
View File

@@ -202,7 +202,7 @@ Partial Class Presupuestos_GenerarPresupuestos
ddlUM.Items.Insert(0, New System.Web.UI.WebControls.ListItem("---------", "-1")) ddlUM.Items.Insert(0, New System.Web.UI.WebControls.ListItem("---------", "-1"))
ddlMOUnidad.Items.Insert(0, New System.Web.UI.WebControls.ListItem("---------", "-1")) ddlMOUnidad.Items.Insert(0, New System.Web.UI.WebControls.ListItem("---------", "-1"))
ddlPUM.DataSource = GlobalDTUnidadesMedida.FiltraParametros("CveEmpresa=" & UsuarioActual.CveEmpresa) ddlPUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
ddlPUM.DataBind() ddlPUM.DataBind()
Dim ObjClientes As New ClsClientes Dim ObjClientes As New ClsClientes
@@ -506,7 +506,7 @@ Partial Class Presupuestos_GenerarPresupuestos
Dim PU As Double = DtPS.FiltraParametros("CvePS=" & ddlMOPS.SelectedValue.ToString).Rows(0)("Precio").ToString.ToDouble Dim PU As Double = DtPS.FiltraParametros("CvePS=" & ddlMOPS.SelectedValue.ToString).Rows(0)("Precio").ToString.ToDouble
tbPrecioMO.Text = PU.ToString tbPrecioMO.Text = PU.ToString
ddlMOUnidad.DataSource = GlobalDTUnidadesMedida.FiltraParametros("CveEmpresa=" & UsuarioActual.CveEmpresa) ddlMOUnidad.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
ddlMOUnidad.DataBind() ddlMOUnidad.DataBind()
End If End If
@@ -550,7 +550,7 @@ Partial Class Presupuestos_GenerarPresupuestos
If ddlPS.SelectedIndex > 0 Then If ddlPS.SelectedIndex > 0 Then
Dim PU As Double = DtPS.FiltroPrimero("CvePS=" & ddlPS.SelectedValue.ToString)("Precio").ToString.ToDouble Dim PU As Double = DtPS.FiltroPrimero("CvePS=" & ddlPS.SelectedValue.ToString)("Precio").ToString.ToDouble
tbPrecio.Text = PU.ToString tbPrecio.Text = PU.ToString
ddlUM.DataSource = GlobalDTUnidadesMedida.FiltraParametros("CveEmpresa=" & UsuarioActual.CveEmpresa) ddlUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
ddlUM.DataBind() ddlUM.DataBind()
End If End If
End Sub End Sub

2
Sistemas/CatSesiones.aspx.vb
View File

@@ -591,7 +591,7 @@ Partial Class Sistemas_CatSesiones
Case "" Case ""
dt = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) dt = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
Case Else Case Else
dt = DirectCast(Application(DdlVariable.SelectedValue & UsuarioActual.CveEmpresa), DataTable) dt = DirectCast(HttpContext.Current.Application(DdlVariable.SelectedValue & "-" & UsuarioActual.CveEmpresa), DataTable)
End Select End Select
Gv.DataSource = dt Gv.DataSource = dt

2
Ventas/ProductosServicios.aspx.vb
View File

@@ -1319,7 +1319,7 @@ Partial Class ProductosyServicios
#Region "GV PAQUETE DETALLE" #Region "GV PAQUETE DETALLE"
Protected Sub gvPaqueteDetalle_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles gvPaqueteDetalle.RowDataBound Protected Sub gvPaqueteDetalle_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles gvPaqueteDetalle.RowDataBound
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida() e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
e.Row.FCDropDownList("ddlEUnidad").SelectedValue = e.Row.DBCampo("CveUnidadMedida") e.Row.FCDropDownList("ddlEUnidad").SelectedValue = e.Row.DBCampo("CveUnidadMedida")
e.Row.FCDropDownList("ddlEUnidad").DataBind() e.Row.FCDropDownList("ddlEUnidad").DataBind()
End If End If