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

Ajustes comparacion

Browse Source
This commit is contained in:
rakcsle
2023-08-23 17:09:44 -07:00
parent ffcd10080b
commit de83379635
8 changed files with 54 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
Edoc/CatDocumentos.aspx.vb
View File

@@ -1,9 +1,12 @@

Option Explicit On
Option Strict On
Imports System.Data
Imports System.Linq
Imports Extensiones
Imports System.IO
Imports iText.StyledXmlParser.Css.Resolve.Shorthand.Impl
Partial Class RH_CatDocumentos
Inherits ClsPaginas
@@ -92,10 +95,9 @@ Partial Class RH_CatDocumentos
Property Estatus As Boolean
Get
If ViewState("Estatus") Is Nothing Then
Return False
Else
Return DirectCast(ViewState("Estatus"), Boolean)
ViewState("Estatus") = False
End If
Return DirectCast(ViewState("Estatus"), Boolean)
End Get
Set(value As Boolean)
ViewState("Estatus") = value
@@ -219,17 +221,18 @@ Partial Class RH_CatDocumentos
CveDocumentacionTipo = GvRow.DataKey("CveDocumentacionTipo").ToEntero
DocumentacionTipo = GvRow.DataKey("DocumentacionTipo")
Orden = GvRow.DataKey("Orden").ToEntero
Estatus = GvRow.DataKey("Estatus") = "True"
Requerido = GvRow.DataKey("Requerido") = "True"
Estatus = Boolean.Parse(GvRow.DataKey("Estatus"))
Requerido = Boolean.Parse(GvRow.DataKey("Requerido"))
Txtdocumentacion.Text = Documentacion
TxtOrden.Text = GvRow.DataKey("Orden")
TxtOrden.Text = Orden.ToString
TxtDiasLimite.Text = GvRow.DataKey("DiasLimite")
ChkAplicaDiasLimite.Checked = GvRow.DataKey("AplicaDiasLimite") = "True"
ChkAplicaDiasLimite.Checked = Boolean.Parse(GvRow.DataKey("AplicaDiasLimite"))
TxtPeriodicidad.Text = GvRow.DataKey("Periodicidad")
ChkAplicaFechaVencimiento.Checked = GvRow.DataKey("AplicaFechaVencimiento") = "True"
ChkAplicaFechaVencimiento.Checked = Boolean.Parse(GvRow.DataKey("AplicaFechaVencimiento"))
DdlDocumentacionTipo.SelectedValueExist(CveDocumentacionTipo)
chkEstatus.Checked = Estatus

4
Edoc/CatDocumentosContratos.aspx.vb
View File

@@ -1,4 +1,6 @@
Option Strict On
Option Explicit On
Option Strict On
Imports System.Data
Imports System.Linq

4
Edoc/CatTipoContratos.aspx.vb
View File

@@ -1,4 +1,6 @@
Option Strict On
Option Explicit On
Option Strict On
Imports System.Data
Imports System.Linq

4
Edoc/Contratos.aspx.vb
View File

@@ -1,4 +1,6 @@
Option Strict On
Option Explicit On
Option Strict On
Imports System.Data
Imports System.Linq

28
Empresas/Grales/Formatos/EntradasSalidas.rdlc
View File

@@ -47,39 +47,39 @@
</Field>
<Field Name="SaldoIniCant">
<DataField>SaldoIniCant</DataField>
<rd:TypeName>System.Int16</rd:TypeName>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="SaldoInitCant">
<DataField>SaldoInitCant</DataField>
<rd:TypeName>System.Int16</rd:TypeName>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="EntradaCant">
<DataField>EntradaCant</DataField>
<rd:TypeName>System.Int16</rd:TypeName>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="SalidaCant">
<DataField>SalidaCant</DataField>
<rd:TypeName>System.Int16</rd:TypeName>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="SaldoFCant">
<DataField>SaldoFCant</DataField>
<rd:TypeName>System.Int16</rd:TypeName>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="SaldoIniImp">
<DataField>SaldoIniImp</DataField>
<rd:TypeName>System.Int16</rd:TypeName>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="EntradaImp">
<DataField>EntradaImp</DataField>
<rd:TypeName>System.Int16</rd:TypeName>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="SalidaImp">
<DataField>SalidaImp</DataField>
<rd:TypeName>System.Int16</rd:TypeName>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="SaldoFImp">
<DataField>SaldoFImp</DataField>
<rd:TypeName>System.Int16</rd:TypeName>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="Orden">
<DataField>Orden</DataField>
@@ -1012,7 +1012,7 @@
<Value>=IIF(Fields!SaldoIniCant.Value = "0", "-", Fields!SaldoIniCant.Value)</Value>
<Style>
<FontSize>8pt</FontSize>
<Format>0;(0)</Format>
<Format>#,0.0000;(#,0.0000)</Format>
<Color>=Iif(Fields!CvePS.Value=-1, "White","Black")</Color>
<Language>es-MX</Language>
</Style>
@@ -1056,7 +1056,7 @@
<Value>=IIF(Fields!EntradaCant.Value = "0", "-", Fields!EntradaCant.Value)</Value>
<Style>
<FontSize>8pt</FontSize>
<Format>0;(0)</Format>
<Format>#,0.0000;(#,0.0000)</Format>
<Color>=Iif(Fields!CvePS.Value=-1, "White","Black")</Color>
<Language>es-MX</Language>
</Style>
@@ -1100,7 +1100,7 @@
<Value>=IIF(Fields!SalidaCant.Value = "0", "-", Fields!SalidaCant.Value)</Value>
<Style>
<FontSize>8pt</FontSize>
<Format>0;(0)</Format>
<Format>#,0.0000;(#,0.0000)</Format>
<Color>=Iif(Fields!CvePS.Value=-1, "White","Black")</Color>
<Language>es-MX</Language>
</Style>
@@ -1144,7 +1144,7 @@
<Value>=IIF(Fields!SaldoFCant.Value = "0", "-", Fields!SaldoFCant.Value)</Value>
<Style>
<FontSize>8pt</FontSize>
<Format>0;(0)</Format>
<Format>#,0.0000;(#,0.0000)</Format>
<Color>=Iif(Fields!CvePS.Value=-1, "White","Black")</Color>
<Language>es-MX</Language>
</Style>
@@ -1726,7 +1726,6 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
</TablixCells>
@@ -1859,6 +1858,7 @@
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>1.13799cm</Top>
<Left>0.01cm</Left>
<Height>0.52945cm</Height>
<Width>20.5896cm</Width>
<ZIndex>1</ZIndex>

9
Inventarios/RepEntradasSalidas.aspx.vb
View File

@@ -1,4 +1,7 @@
Imports System.Data
Option Explicit On
Option Strict On
Imports System.Data
Imports System.IO
Imports Extensiones
Imports Microsoft.Reporting.WebForms
@@ -65,7 +68,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
End If
TxtFechaI.Text = Now.AddMonths(-1).ToShortDateString
TxtFechaF.Text = Now
TxtFechaF.Text = Now.ToString("dd/MM/yyyy")
FechaInicial = "-1"
FechaFinal = "-1"
@@ -374,7 +377,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
FechaI = "01-01-0001"
End If
If FechaF = "-1" OrElse FechaFinal.ToDate > Now.ToDate Then
FechaF = Now
FechaF = Now.ToString("dd/MM/yyyy")
End If
Dim RutaPDF As String
Dim Ruta As String = UsuarioActual.Empresa.Ruta

4
RH/Personal.aspx.vb
View File

@@ -1704,7 +1704,7 @@ Partial Class RH_Personal
'TxtContactoAlterno.Text = ObjPersonal.ContactoAlterno
If ObjPersonal.CveUniforme > 0 Then
If ObjPersonal.CveUniforme > 0 Or UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
LnkSurtir.Visible = True
ViewState("CveUniforme") = ObjPersonal.CveUniforme
DdlUniforme.SelectedValueExist(CveUniforme)
@@ -5636,7 +5636,7 @@ Partial Class RH_Personal
Private Sub CargaUniformesPersonal()
If Not UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 153, 154, 140) Then
If Not UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 153, 154, 140, 7, 11, 12, 122, 145) Then
GvUniforme.Visible = True
GvUniformesResguardo.Visible = False

11
Ventas/ClientesAbonar.aspx.vb
View File

@@ -260,7 +260,16 @@ Partial Class Ventas_ClientesAbonar
Dim CveTipoCuenta As Integer = 2
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then CveTipoCuenta = -1 'que se muestren todas, para empresa acumuladores
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa, CveTipoCuenta:=CveTipoCuenta)
Dim dt As DataTable
If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
dt = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa, CveTipoCuenta:=-1).FiltraParametros(" CveTipoCuenta in (1,2) ")
Else
dt = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa, CveTipoCuenta:=CveTipoCuenta)
End If
If ChkPagarPesos.Checked Then
dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1))