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

-- cambio de GlobalDTSubProyectos

Browse Source 
- cambio en GlobalDTUsuarios
This commit is contained in:
rrene
2024-08-01 05:46:28 -07:00
parent 14f053bc86
commit 1c14bceea9
240 changed files with 692 additions and 689 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
OS/Asignaciones.aspx.vb
View File

@@ -109,17 +109,17 @@ Partial Class OS_Asignaciones
Private Sub CargaSubProyecto()
DdlSubProyecto.Items.Clear()
DdlSubProyecto.SelectedValue = Nothing
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Private Sub CargaUsuarios()
DdlPersonas.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
DdlPersonas.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlPersonas.DataBind()
DdlPersonas.Items.Insert(0, New ListItem("Todos", "-1"))
DdlTecnico.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
DdlTecnico.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlTecnico.DataBind()
DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1"))

2
OS/CatEstatusOrdenServicio.aspx.vb
View File

@@ -77,7 +77,7 @@ Partial Class OS_CatEstatusOrdenServicio
End Sub
Public Sub CargaDatos()
DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
DTUsuarios = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
Using ObjEstatusOrdenServicios As New ClsOS
If ObjEstatusOrdenServicios.GetEstatusOrdenServicio(UsuarioActual.CveEmpresa) Then
DtEstatusOS = ObjEstatusOrdenServicios.DtResultados

5
OS/OrdenesServicios.aspx
View File

@@ -385,10 +385,11 @@
<asp:UpdatePanel ID="UpGvUM" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvMateriales" CssClass="table table-striped table-hover Widthall mysmallbtn" GridLines="None" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS" EmptyDataText="Sin Materiales en la Orden de Servicio" ToolTip="Listado de Materiales de Orden de Servicio">
<asp:GridView ID="GvMateriales" CssClass="table table-striped table-hover Widthall mysmallbtn" GridLines="None" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS" EmptyDataText="Sin Materiales en la Orden de Servicio" OnRowDataBound="GvMateriales_RowDataBound">
<Columns>
<asp:BoundField HeaderText="Cantidad" DataField="Cantidad" ItemStyle-Width="60px" DataFormatString="{0:N3}" />
<asp:BoundField HeaderText="Cant" DataField="Cantidad" ItemStyle-Width="30px" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Producto" DataField="PS" />
<asp:BoundField HeaderText="Util." DataField="CantidadRemision" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" Visible="false" />
<asp:TemplateField Visible="false">
<ItemTemplate>
<asp:Literal ID="LtlSeFacturara" runat="server" Text='<%# If(Eval("SeFacturara").ToString = "True", "Sí", "No")%>'></asp:Literal>

11
OS/OrdenesServicios.aspx.vb
View File

@@ -903,14 +903,15 @@ Partial Class OS_OrdenesServicios
ObjMateriales.Dispose()
End Sub
Private Sub CargaMateriales()
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then GvMateriales.Columns(2).Visible = True
Dim objOS As New ClsOS
If objOS.GetDetalleMateriales(-1, CveOS) Then
GvMateriales.DataSource = objOS.DtResultados
End If
objOS.Dispose()
GvMateriales.DataBind()
If (GvMateriales.Rows.Count > 0) Then
GvMateriales.UseAccessibleHeader = True
GvMateriales.HeaderRow.TableSection = TableRowSection.TableHeader
@@ -3576,4 +3577,12 @@ Partial Class OS_OrdenesServicios
Archivo = Nothing
End Sub
Protected Sub GvMateriales_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("CantidadRemision").ToDecimal > 0 Then
e.Row.CssClass = "bg-green-turquoise bg-font-green-turquoise"
End If
End If
End Sub
End Class

6
OS/PopUpBuscarOS.aspx.vb
View File

@@ -91,8 +91,8 @@ Partial Class OS_PopUpBuscarOS
Private Sub CargaUsuarioRecibio()
DdlUsuarioRecibio.Items.Clear()
DdlUsuarioRecibio.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlUsuarioRecibio.DataBind()
DdlUsuarioRecibio.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuarioRecibio.DataBind()
DdlUsuarioRecibio.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Private Sub CargaEstatusOrdenServicio()
@@ -105,7 +105,7 @@ Partial Class OS_PopUpBuscarOS
Private Sub CargaSucursales()
DdlSubProyecto.Items.Clear()
DdlSubProyecto.SelectedValue = Nothing
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))

6
OS/RepOrdenesServicios.aspx.vb
View File

@@ -31,11 +31,11 @@ Partial Class OS_RepOrdenesServicios
DdlClientes.setEsWebService(True)
'CargaSubProyectos
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1)
DdlSubProyecto.DataBind()
'CargaUsuarios
DdlUsuarioRecibio.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlUsuarioRecibio.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuarioRecibio.DataBind()
DdlUsuarioRecibio.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -45,7 +45,7 @@ Partial Class OS_RepOrdenesServicios
DdlEstatusOS.Items.Insert(0, New ListItem("Todos", "-1"))
'CargaTecnico
DdlTecnico.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlTecnico.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlTecnico.DataBind()
DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub

6
OS/RepServicioDomicilio.aspx.vb
View File

@@ -856,7 +856,7 @@ Partial Class OS_RepServicioDomicilio
Dim CveSubProyectoTecnico As Integer = If(DdlTecnicoAsignar.SelectedValue.ToEntero > 0, GlobalDTUsuarios(DdlTecnicoAsignar.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0 ").ToEntero, -1)
If CveSubProyectoTecnico = 0 And DdlTecnicoAsignar.SelectedValue.ToEntero = 100 Then
CveSubProyectoTecnico = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1).FiltroPrimeroValor("CveSubProyecto").ToEntero
CveSubProyectoTecnico = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
End If
@@ -1021,9 +1021,9 @@ Partial Class OS_RepServicioDomicilio
ObjOS.Dispose()
Dim CorreoAsignado As String = GlobalDTUsuarios(DdlTecnicoAsignar.SelectedValue.ToEntero).Rows(0)("Correo").ToString
Dim CorreoAsignado As String = GlobalDTUsuarios(DdlTecnicoAsignar.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0)("Correo").ToString
If Not TieneError And CorreoAsignado.Trim.Length > 0 AndAlso DdlTecnicoAsignar.SelectedValue.ToEntero > 0 Then
CorreoAsignado = GlobalDTUsuarios(DdlTecnicoAsignar.SelectedValue.ToEntero).Rows(0)("Correo").ToString
CorreoAsignado = GlobalDTUsuarios(DdlTecnicoAsignar.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0)("Correo").ToString
MandaCorreOS(CveOS, CorreoAsignado)
End If

37
OS/RepServiciosMedicos.aspx
View File

@@ -121,9 +121,10 @@
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
<li>
<asp:LinkButton ID="LnkColores" runat="server" OnClientClick ="$('#ModalColores').modal('show'); return false;"> <i class="fa fa-list"></i> Código Colores</asp:LinkButton>
</li>
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
Reporte Órdenes Médicas
@@ -179,16 +180,7 @@
</div>
</ContentTemplate>
</asp:UpdatePanel>
<div class="row">
<div class="col-md-9">
</div>
<div class="col-md-3" style="text-align:right;">
<button type="button" class="btn btn-default" onclick="$('#ModalColores').modal('show');">Código Colores</button>
</div>
</div>
<div id="ModalColores" class="modal ADS fade" role="dialog">
<asp:UpdatePanel class="modal-dialog" runat="server" ID="UpdatePanel1" UpdateMode="Conditional">
<ContentTemplate>
@@ -471,19 +463,19 @@
<hr style="border: 0; height: 1px; background-image: linear-gradient(to right, rgba(0, 0, 0, 0), rgba(0, 0, 0, 0.75), rgba(0, 0, 0, 0));" />
<div class="row" >
<div class="col-md-12">
<asp:GridView ID="GvPS" CssClass="table table-striped table-hover Widthall mysmallbtn" GridLines="None" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS" >
<div class="row" >
<div style="max-height: 250px; overflow-y: scroll">
<div class="col-md-12" >
<asp:GridView ID="GvPS" CssClass="table table-striped table-hover Widthall mysmallbtn" GridLines="None" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS" OnRowDataBound="GvPS_RowDataBound" >
<Columns>
<asp:BoundField HeaderText="Cantidad" DataField="Cantidad" ItemStyle-Width="60px" DataFormatString="{0:#,###.##}" />
<asp:BoundField HeaderText="Producto" DataField="PS" />
<asp:BoundField HeaderText="Producto" DataField="PS" />
<asp:BoundField HeaderText="Utilizado" DataField="CantidadRemision" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
</Columns>
</asp:GridView>
</div>
</div>
</div>
</div>
</div>
<div class="modal-footer">
@@ -735,6 +727,7 @@
$('#calendar').fullCalendar('destroy'); // destroy the calendar
$('#calendar').fullCalendar({ //re-initialize the calendar
header: h,
defaultView: 'agendaWeek',
monthNames: ["Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"],
monthNamesShort: ['Ene', 'Feb', 'Mar', 'Abr', 'May', 'Jun', 'Jul', 'Ago', 'Sep', 'Oct', 'Nov', 'Dic'],
dayNames: ['Domingo', 'Lunes', 'Martes', 'Miércoles', 'Jueves', 'Viernes', 'Sábado'],
@@ -767,7 +760,7 @@
eventDrop: eventDropped,
eventResize: eventResized
});
clickSemana();
//clickSemana();
}

22
OS/RepServiciosMedicos.aspx.vb
View File

@@ -609,12 +609,16 @@ Partial Class OS_RepServiciosMedicos
Dim tCve As Integer = ObjOS.CveVenta 'busca la remisión
If tCve <= 0 Then tCve = ObjOS.CveCotizacion 'sino hay remisión toma el pedido
If tCve > 0 Then
Dim objv As New ClsVentas
'Dim objv As New ClsVentas
Dim dttps As New DataTable
If objv.GetVentaDetalle(tCve) Then
dttps = objv.DtResultados
If ObjOS.GetDetalleMateriales(-1, CveOsConsultar) Then
dttps = ObjOS.DtResultados
End If
objv.Dispose()
'If objv.GetVentaDetalle(tCve) Then
' dttps = objv.DtResultados
'End If
'objv.Dispose()
GvPS.DataSource = dttps
GvPS.DataBind()
End If
@@ -723,4 +727,14 @@ Partial Class OS_RepServiciosMedicos
ObjOS.Dispose()
End Sub
Protected Sub GvPS_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("CantidadRemision").ToDecimal > 0 Then
e.Row.CssClass = "bg-green-turquoise bg-font-green-turquoise"
End If
End If
End Sub
End Class