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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2020-07-30 19:23:56 -07:00
parent 9ff0a96723 f4d6abbeaf
commit 39c83d4bbb
12 changed files with 584 additions and 518 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
App_Code/ClsPaginas.vb
View File

@@ -1457,14 +1457,14 @@ Public Class ClsPaginas
Get
Dim AppNombre As String = String.Format("GlobalDTBancosCuentas-{0}", CveEmpresa)
'sino existe, recarga los datos
If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
Dim ObjBancos As New ClsBancos
If ObjBancos.GetBancosCuentasUsuarios(-1, CveEmpresa) Then
Application(AppNombre) = ObjBancos.DtResultados
Else
Application(AppNombre) = Nothing
End If
ObjBancos.Dispose()
If HttpContext.Current.Application(AppNombre) Is Nothing Then
Using ObjBancos As New ClsBancos
If ObjBancos.GetBancosCuentasUsuarios(-1, CveEmpresa) Then
Application(AppNombre) = ObjBancos.DtResultados
Else
Application(AppNombre) = Nothing
End If
End Using
End If
Dim Str As String = String.Format("CveEmpresa = {0} ", UsuarioActual.CveEmpresa)

3
Bancos/IE.aspx.vb
View File

@@ -3800,6 +3800,9 @@ Partial Class Bancos_IE
Else
ObjIE.RollBack()
Alert(MsgError, TipoMensaje.MsgAdvertencia)
If Opcion = "INGPC" Then
CveIE = -1
End If
End If
If Msg.ToString <> "" Then

BIN
Bin/Microsoft.Owin.Security.OAuth.dll
View File

Binary file not shown.

BIN
Bin/Microsoft.Owin.Security.dll
View File

Binary file not shown.

BIN
Bin/Microsoft.Owin.dll
View File

Binary file not shown.

4
Contratos/PopUpBuscarContrato.aspx
View File

@@ -70,11 +70,11 @@
</tr>
<tr style="text-align:left">
<td class="text-right" style="height:25px!important"><b>Proyecto:</b></td>
<td class="text-right" style="height:25px!important"><asp:Label runat="server" ID="LblProyecto" Text="Proyecto:"/></td>
<td style="height:25px!important">
<asp:DropDownList ID="DdlProyecto" Height="30px" AutoPostBack="true" Width="150" DataValueField="CveProyecto" DataTextField="Proyecto" runat="server" CssClass="select2me"></asp:DropDownList>
</td>
<td class="text-right" style="height:25px!important"><b>SubProyecto:</b></td>
<td class="text-right" style="height:25px!important"><asp:Label runat="server" ID="LblSubProyecto" Text="SubProyecto:"/></td>
<td style="height:25px!important">
<asp:DropDownList ID="DdlSubProtecto" Height="30px" Width="150" DataValueField="CveSubProyecto" DataTextField="SubProyecto" runat="server" CssClass="select2me"></asp:DropDownList>
</td>

17
Contratos/PopUpBuscarContrato.aspx.vb
View File

@@ -41,14 +41,15 @@ Partial Class Contratos_PopUpBuscarContrato
Private Sub CargaProyecto()
If UsuarioActual.Empresa.GralSoloProyecto Then
CargaSubProyectoContrato(-1)
Else
DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa)
DdlProyecto.DataBind()
End If
DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProtecto.Items.Insert(0, New ListItem("Todos", "-1"))
CargarCentrosDeCosto(DdlProyecto, DdlSubProtecto, LblProyecto, LblSubProyecto)
'If UsuarioActual.Empresa.GralSoloProyecto Then
' CargaSubProyectoContrato(-1)
'Else
' DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa)
' DdlProyecto.DataBind()
'End If
'DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
'DdlSubProtecto.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
CargaSubProyectoContrato(DdlProyecto.SelectedValue.ToEntero)

2
Empresas/119/Formatos/Polizas.rdlc
View File

@@ -1630,7 +1630,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>="Página: " &amp; Code.GetGroupPageNumber(ReportItems!NewPage.Value,Globals!PageNumber)</Value>
<Value>="Página: " &amp; Globals!PageNumber</Value>
<Style>
<FontFamily>Calibri</FontFamily>
</Style>

2
Empresas/72/Formatos/Traslado.rdlc
View File

@@ -489,7 +489,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!SeccionAlmacen.Value</Value>
<Value />
<Style>
<FontSize>9pt</FontSize>
</Style>

1051
Global.asax
View File

File diff suppressed because it is too large Load Diff

2
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -827,7 +827,7 @@ Partial Class Inventarios_EntradasSalidas
'cargar también los movimentos detalle
If Mov.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
DtMovimientos = Mov.DtResultados.FiltraParametros("", "CveMovimientoDetalle")
DtMovimientos = Mov.DtResultados
DtMovimientos.Columns("No").AutoIncrement = True
DtMovimientos.Columns("No").AutoIncrementSeed = DtMovimientos.Rows.Count + 1

5
RH/ActualizacionMasiva.aspx.vb
View File

@@ -195,6 +195,7 @@ Partial Class RH_ActualizacionMasiva
Dim OcurrioError As Boolean = False
Using ObjPersonal As ClsRH = New ClsRH()
ObjPersonal.IniciaTransacSQL()
For Each Row As GridViewRow In GvDatos.Rows
If Row.DataKey("CvePersonal") <> "" Then
'If Not ObjPersonal.UpdatePersonalMasivo(Row.FCDropDownList("DdlTurno").SelectedValue.ToEntero, Row.FCDropDownList("DdlGVSubProyecto").SelectedValue.ToEntero, Row.FCDropDownList("DdlSupervisor").SelectedValue.ToEntero,
@@ -217,7 +218,7 @@ Partial Class RH_ActualizacionMasiva
Next
If Not OcurrioError Then
'ObjPersonal.Commit()
ObjPersonal.Commit()
Alert("La información se guardó correctamente.", TipoMensaje.MsgInformacion)
Else
Alert("Ocurrió un error al guardar la información.", TipoMensaje.MsgError)
@@ -352,6 +353,8 @@ Partial Class RH_ActualizacionMasiva
Dim OcurrioError As Boolean = False
Dim contador As Integer = 0
Using ObjPersonal As ClsRH = New ClsRH()
ObjPersonal.IniciaTransacSQL()
For Each Row As DataRow In DTEXcel.Rows
If Row("Codigo").ToString() <> "" Then
Dim drow As DataRow = DTEmpleados.FiltroPrimero(String.Format("Codigo='{0}'", Row("Codigo")))