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

23
Edoc/CatDocumentos.aspx.vb
View File

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

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

@@ -47,39 +47,39 @@
</Field> </Field>
<Field Name="SaldoIniCant"> <Field Name="SaldoIniCant">
<DataField>SaldoIniCant</DataField> <DataField>SaldoIniCant</DataField>
<rd:TypeName>System.Int16</rd:TypeName> <rd:TypeName>System.Decimal</rd:TypeName>
</Field> </Field>
<Field Name="SaldoInitCant"> <Field Name="SaldoInitCant">
<DataField>SaldoInitCant</DataField> <DataField>SaldoInitCant</DataField>
<rd:TypeName>System.Int16</rd:TypeName> <rd:TypeName>System.Decimal</rd:TypeName>
</Field> </Field>
<Field Name="EntradaCant"> <Field Name="EntradaCant">
<DataField>EntradaCant</DataField> <DataField>EntradaCant</DataField>
<rd:TypeName>System.Int16</rd:TypeName> <rd:TypeName>System.Decimal</rd:TypeName>
</Field> </Field>
<Field Name="SalidaCant"> <Field Name="SalidaCant">
<DataField>SalidaCant</DataField> <DataField>SalidaCant</DataField>
<rd:TypeName>System.Int16</rd:TypeName> <rd:TypeName>System.Decimal</rd:TypeName>
</Field> </Field>
<Field Name="SaldoFCant"> <Field Name="SaldoFCant">
<DataField>SaldoFCant</DataField> <DataField>SaldoFCant</DataField>
<rd:TypeName>System.Int16</rd:TypeName> <rd:TypeName>System.Decimal</rd:TypeName>
</Field> </Field>
<Field Name="SaldoIniImp"> <Field Name="SaldoIniImp">
<DataField>SaldoIniImp</DataField> <DataField>SaldoIniImp</DataField>
<rd:TypeName>System.Int16</rd:TypeName> <rd:TypeName>System.Decimal</rd:TypeName>
</Field> </Field>
<Field Name="EntradaImp"> <Field Name="EntradaImp">
<DataField>EntradaImp</DataField> <DataField>EntradaImp</DataField>
<rd:TypeName>System.Int16</rd:TypeName> <rd:TypeName>System.Decimal</rd:TypeName>
</Field> </Field>
<Field Name="SalidaImp"> <Field Name="SalidaImp">
<DataField>SalidaImp</DataField> <DataField>SalidaImp</DataField>
<rd:TypeName>System.Int16</rd:TypeName> <rd:TypeName>System.Decimal</rd:TypeName>
</Field> </Field>
<Field Name="SaldoFImp"> <Field Name="SaldoFImp">
<DataField>SaldoFImp</DataField> <DataField>SaldoFImp</DataField>
<rd:TypeName>System.Int16</rd:TypeName> <rd:TypeName>System.Decimal</rd:TypeName>
</Field> </Field>
<Field Name="Orden"> <Field Name="Orden">
<DataField>Orden</DataField> <DataField>Orden</DataField>
@@ -1012,7 +1012,7 @@
<Value>=IIF(Fields!SaldoIniCant.Value = "0", "-", Fields!SaldoIniCant.Value)</Value> <Value>=IIF(Fields!SaldoIniCant.Value = "0", "-", Fields!SaldoIniCant.Value)</Value>
<Style> <Style>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<Format>0;(0)</Format> <Format>#,0.0000;(#,0.0000)</Format>
<Color>=Iif(Fields!CvePS.Value=-1, "White","Black")</Color> <Color>=Iif(Fields!CvePS.Value=-1, "White","Black")</Color>
<Language>es-MX</Language> <Language>es-MX</Language>
</Style> </Style>
@@ -1056,7 +1056,7 @@
<Value>=IIF(Fields!EntradaCant.Value = "0", "-", Fields!EntradaCant.Value)</Value> <Value>=IIF(Fields!EntradaCant.Value = "0", "-", Fields!EntradaCant.Value)</Value>
<Style> <Style>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<Format>0;(0)</Format> <Format>#,0.0000;(#,0.0000)</Format>
<Color>=Iif(Fields!CvePS.Value=-1, "White","Black")</Color> <Color>=Iif(Fields!CvePS.Value=-1, "White","Black")</Color>
<Language>es-MX</Language> <Language>es-MX</Language>
</Style> </Style>
@@ -1100,7 +1100,7 @@
<Value>=IIF(Fields!SalidaCant.Value = "0", "-", Fields!SalidaCant.Value)</Value> <Value>=IIF(Fields!SalidaCant.Value = "0", "-", Fields!SalidaCant.Value)</Value>
<Style> <Style>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<Format>0;(0)</Format> <Format>#,0.0000;(#,0.0000)</Format>
<Color>=Iif(Fields!CvePS.Value=-1, "White","Black")</Color> <Color>=Iif(Fields!CvePS.Value=-1, "White","Black")</Color>
<Language>es-MX</Language> <Language>es-MX</Language>
</Style> </Style>
@@ -1144,7 +1144,7 @@
<Value>=IIF(Fields!SaldoFCant.Value = "0", "-", Fields!SaldoFCant.Value)</Value> <Value>=IIF(Fields!SaldoFCant.Value = "0", "-", Fields!SaldoFCant.Value)</Value>
<Style> <Style>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<Format>0;(0)</Format> <Format>#,0.0000;(#,0.0000)</Format>
<Color>=Iif(Fields!CvePS.Value=-1, "White","Black")</Color> <Color>=Iif(Fields!CvePS.Value=-1, "White","Black")</Color>
<Language>es-MX</Language> <Language>es-MX</Language>
</Style> </Style>
@@ -1726,7 +1726,6 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
</TablixCells> </TablixCells>
@@ -1859,6 +1858,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>1.13799cm</Top> <Top>1.13799cm</Top>
<Left>0.01cm</Left>
<Height>0.52945cm</Height> <Height>0.52945cm</Height>
<Width>20.5896cm</Width> <Width>20.5896cm</Width>
<ZIndex>1</ZIndex> <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 System.IO
Imports Extensiones Imports Extensiones
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
@@ -65,7 +68,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
End If End If
TxtFechaI.Text = Now.AddMonths(-1).ToShortDateString TxtFechaI.Text = Now.AddMonths(-1).ToShortDateString
TxtFechaF.Text = Now TxtFechaF.Text = Now.ToString("dd/MM/yyyy")
FechaInicial = "-1" FechaInicial = "-1"
FechaFinal = "-1" FechaFinal = "-1"
@@ -374,7 +377,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
FechaI = "01-01-0001" FechaI = "01-01-0001"
End If End If
If FechaF = "-1" OrElse FechaFinal.ToDate > Now.ToDate Then If FechaF = "-1" OrElse FechaFinal.ToDate > Now.ToDate Then
FechaF = Now FechaF = Now.ToString("dd/MM/yyyy")
End If End If
Dim RutaPDF As String Dim RutaPDF As String
Dim Ruta As String = UsuarioActual.Empresa.Ruta 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 '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 LnkSurtir.Visible = True
ViewState("CveUniforme") = ObjPersonal.CveUniforme ViewState("CveUniforme") = ObjPersonal.CveUniforme
DdlUniforme.SelectedValueExist(CveUniforme) DdlUniforme.SelectedValueExist(CveUniforme)
@@ -5636,7 +5636,7 @@ Partial Class RH_Personal
Private Sub CargaUniformesPersonal() 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 GvUniforme.Visible = True
GvUniformesResguardo.Visible = False GvUniformesResguardo.Visible = False

11
Ventas/ClientesAbonar.aspx.vb
View File

@@ -260,7 +260,16 @@ Partial Class Ventas_ClientesAbonar
Dim CveTipoCuenta As Integer = 2 Dim CveTipoCuenta As Integer = 2
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then CveTipoCuenta = -1 'que se muestren todas, para empresa acumuladores 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 If ChkPagarPesos.Checked Then
dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1)) dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1))