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

Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-07-17 09:08:01 -07:00
parent c0333953ce 2f2247ec29
commit 5fa9a3e268
40 changed files with 3796 additions and 1327 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
App_Code/CFDITimbre.vb
View File

@@ -308,8 +308,8 @@ Public Class CFDINominaReceptor
Public Property TipoPeriodo As String = ""
Public Property CodigoBanco As String = ""
Public Property NumeroCuenta As String = ""
Public Property SDI As Double = 0
Public Property SBC As Double = 0
Public Property SDI As Decimal = 0
Public Property SBC As Decimal = 0
Public Property CodigoEntidadFederativa As String = ""
End Class
@@ -486,7 +486,7 @@ Public Class CFDIComplementoPagos20
Get
Dim Ret As Decimal = 0
For Each cfd As CFDIComplementoPago In ComplementoPagos
Ret = Ret + ((From c In cfd.Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.0 Select c.BaseMN).Sum() * cfd.TipoCambioP)
Ret = Ret + ((From c In cfd.Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.0 Select c.BaseMN).Sum() * cfd.TipoCambioP.RoundSQL(4)) 'temporal redondeo a 4, 2023.07.07
Next
Return Ret.RoundSQL()
End Get

19
App_Code/ClsPaginas.vb
View File

@@ -6,7 +6,6 @@ Imports System.IO
Imports System.Net.Http
Imports System.Xml
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.ReportSource
Imports CrystalDecisions.Shared
Imports Extensiones
Imports iText.Kernel.Pdf
@@ -1972,6 +1971,23 @@ Public Class ClsPaginas
End Set
End Property
Property GlobalDTTipoPeriodos(CveEmpresa As Integer) As DataTable
Get
Dim AppNombre As String = $"GlobalDTTipoPeriodo-{CveEmpresa}"
If HttpContext.Current.Application(AppNombre) Is Nothing Then
Dim dtt As DataTable = GlobalDTNominasPeriodos(-1, -1, CveEmpresa)
If dtt IsNot Nothing Then
Application(AppNombre) = dtt.FiltraParametros("", DistinctColumns:={"CveTipoPeriodo", "TipoPeriodo"})
End If
End If
GlobalDTTipoPeriodos = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get
Set(value As DataTable)
Dim AppNombre As String = $"GlobalDTTipoPeriodo-{CveEmpresa}"
HttpContext.Current.Application(AppNombre) = value
End Set
End Property
'Fin TipoPeriodo
'Periodos
Property GlobalDTNominasPeriodos(CveTipoPeriodo As Integer, CvePeriodo As Integer, CveEmpresa As Integer) As DataTable
@@ -8172,6 +8188,7 @@ Public Class ClsPaginas
PaginaDict.Add("/RH/CalculoSBC.aspx".ToUpper(), 915)
PaginaDict.Add("/Inicio.aspx".ToUpper(), -1)
PaginaDict.Add("/reporteador.aspx".ToUpper(), -1)
PaginaDict.Add("/SigAyuda.aspx".ToUpper(), -1)
PaginaDict.Add("/General/CATIEPSxEntidadFed.aspx".ToUpper(), 719)
PaginaDict.Add("/GPS/ReporteUnidadesnoTransmiten.aspx".ToUpper(), 917)
PaginaDict.Add("/GPS/RepArrastre.aspx".ToUpper(), 718)

40
App_Code/ClsRH.vb
View File

@@ -1523,16 +1523,14 @@ Public Class ClsRH
Public Property TipoPeriodoPago As String
Public Property NumeroSS As String
Public Property SeInscribioSS As Boolean
Public Property SalarioDiarioPago As Double
Public Property NetoPeriodo As Double
Public Property SalarioDiario As Double
Public Property SDI As Double
Public Property SalarioDiarioSS As Double
Public Property SalarioDiarioPago As Decimal
Public Property NetoPeriodo As Decimal
Public Property SalarioDiario As Decimal
Public Property SDI As Decimal
Public Property SalarioDiarioSS As Decimal
Public Property NumDiasAguinaldo As Integer
Public Property PorPrimaVacacional As Double
Public Property Bono As Double
Public Property PorPrimaVacacional As Decimal
'Public Property Bono As Double
Public Property CveMetodoPago As Integer
Public Property MetodoPago As String
Public Property MetodoPagoSAT As String
@@ -1644,14 +1642,14 @@ Public Class ClsRH
TipoPeriodoPago = Data.Rows(0)("TipoPerioricidadPago").ToString
Me.NumeroSS = Data.Rows(0)("NumeroSS").ToString
Me.SeInscribioSS = CBool(Data.Rows(0)("SeInscribioSS").ToString)
Me.SalarioDiarioPago = Data.Rows(0)("SalarioDiarioPago").ToString.ToDouble
Me.SalarioDiarioPago = Data.Rows(0)("SalarioDiarioPago").ToString.ToDecimal
Me.NetoPeriodo = Data.Rows(0)("NetoPeriodo").ToString.ToDecimal
Me.SalarioDiario = Data.Rows(0)("SalarioDiario").ToString.ToDouble
Me.SDI = Data.Rows(0)("SDI").ToString.ToDouble
Me.Bono = Data.Rows(0)("Bono").ToString.ToDouble
Me.SalarioDiarioSS = Data.Rows(0)("SalarioDiarioSS").ToString.ToDouble
Me.SalarioDiario = Data.Rows(0)("SalarioDiario").ToString.ToDecimal
Me.SDI = Data.Rows(0)("SDI").ToString.ToDecimal
'Me.Bono = Data.Rows(0)("Bono").ToString.ToDouble
Me.SalarioDiarioSS = Data.Rows(0)("SalarioDiarioSS").ToString.ToDecimal
Me.NumDiasAguinaldo = Data.Rows(0)("NumDiasAguinaldo").ToString.ToEntero
Me.PorPrimaVacacional = Data.Rows(0)("PorPrimaVacacional").ToString.ToDouble
Me.PorPrimaVacacional = Data.Rows(0)("PorPrimaVacacional").ToString.ToDecimal
Me.CveMetodoPago = Data.Rows(0)("CveMetodoPago").ToString.ToEntero
Me.MetodoPago = Data.Rows(0)("MetodoPago").ToString
Me.MetodoPagoSAT = Data.Rows(0)("MetodoPagoSAT").ToString
@@ -1824,13 +1822,13 @@ Public Class ClsRH
Me.TipoPeriodo = Data.Rows(0)("TipoPeriodo").ToString
Me.NumeroSS = Data.Rows(0)("NumeroSS").ToString
Me.SeInscribioSS = CBool(Data.Rows(0)("SeInscribioSS").ToString)
Me.SalarioDiarioPago = Data.Rows(0)("SalarioDiarioPago").ToString.ToDouble
Me.SalarioDiario = Data.Rows(0)("SalarioDiario").ToString.ToDouble
Me.SDI = Data.Rows(0)("SDI").ToString.ToDouble
Me.Bono = Data.Rows(0)("Bono").ToString.ToDouble
Me.SalarioDiarioSS = Data.Rows(0)("SalarioDiarioSS").ToString.ToDouble
Me.SalarioDiarioPago = Data.Rows(0)("SalarioDiarioPago").ToString.ToDecimal
Me.SalarioDiario = Data.Rows(0)("SalarioDiario").ToString.ToDecimal
Me.SDI = Data.Rows(0)("SDI").ToString.ToDecimal
'Me.Bono = Data.Rows(0)("Bono").ToString.ToDouble
Me.SalarioDiarioSS = Data.Rows(0)("SalarioDiarioSS").ToString.ToDecimal
Me.NumDiasAguinaldo = Data.Rows(0)("NumDiasAguinaldo").ToString.ToEntero
Me.PorPrimaVacacional = Data.Rows(0)("PorPrimaVacacional").ToString.ToDouble
Me.PorPrimaVacacional = Data.Rows(0)("PorPrimaVacacional").ToString.ToDecimal
Me.CveMetodoPago = Data.Rows(0)("CveMetodoPago").ToString.ToEntero
Me.MetodoPago = Data.Rows(0)("MetodoPago").ToString
Me.MetodoPagoSAT = Data.Rows(0)("MetodoPagoSAT").ToString

3
App_Code/ClsSisUsuarios.vb
View File

@@ -1845,7 +1845,7 @@ Public Class ClsSisUsuarios
#Region " CLONAR USUARIOS "
Public Function ClonarUsuario(CveUsuario As Integer, CveUsuarioClonado As Integer, UsuariosEmpresas As Boolean, UsuariosModulos As Boolean, UsuariosProcesos As Boolean, UsuariosSubProyectos As Boolean, UsuariosAlmacenes As Boolean, UsuariosOC As Boolean, UsuariosOS As Boolean) As Boolean
Public Function ClonarUsuario(CveUsuario As Integer, CveUsuarioClonado As Integer, UsuariosEmpresas As Boolean, UsuariosModulos As Boolean, UsuariosProcesos As Boolean, UsuariosSubProyectos As Boolean, UsuariosAlmacenes As Boolean, UsuariosOC As Boolean, UsuariosOS As Boolean, CveUsuarioModifico As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Sis_ClonarUsuario")
@@ -1860,6 +1860,7 @@ Public Class ClsSisUsuarios
.Add("@UsuariosAlmacenes", SqlDbType.Bit).Value = UsuariosAlmacenes
.Add("@UsuariosOC", SqlDbType.Bit).Value = UsuariosOC
.Add("@UsuariosOS", SqlDbType.Bit).Value = UsuariosOS
.Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
End With
Try

4
App_Code/LogicNominas.vb
View File

@@ -140,8 +140,8 @@ Public Class LogicNominas
Dim TipoPeriodoPago As String = ""
Dim ClaveBanco As String = ""
Dim BancoNumCuenta As String = ""
Dim SDI As Double = 0
Dim SalarioDiarioSS As Double = 0
Dim SDI As Decimal = 0
Dim SalarioDiarioSS As Decimal = 0
Dim ClaveEstado As String = ""
Dim MetodoPagoFijo As Boolean
Dim totalDb As Decimal

47
App_Code/Timbrado.vb
View File

@@ -1403,7 +1403,7 @@ Public Class Timbrado
comprobante.Version = "4.0"
comprobante.Fecha = ObjCFDITimbre.Comprobante.Fecha
comprobante.FormaPago = ObjCFDITimbre.Comprobante.FormadePago
If ObjCFDITimbre.Comprobante.TipoComprobante.Contiene("I", "E", "N") Then comprobante.CondicionesDePago = ObjCFDITimbre.Comprobante.CondicionesdePago
If ObjCFDITimbre.Comprobante.TipoComprobante.Contiene("I", "E") Then comprobante.CondicionesDePago = ObjCFDITimbre.Comprobante.CondicionesdePago
comprobante.SubTotal = ObjCFDITimbre.Comprobante.SubTotal.RoundSQL(NumDecimalesImporte)
If ObjCFDITimbre.Comprobante.TipoComprobante.Contiene("I", "E", "N") AndAlso ObjCFDITimbre.Comprobante.Descuentos > 0 Then
@@ -1472,8 +1472,14 @@ Public Class Timbrado
If concep.Unidad <> "" Then comprobante.Conceptos(i).Unidad = concep.Unidad
comprobante.Conceptos(i).ClaveUnidad = concep.ClaveUnidad
comprobante.Conceptos(i).Descripcion = concep.Descripcion
comprobante.Conceptos(i).ValorUnitario = Decimal.Parse(concep.ValorUnitario.ToString("0.00####")) ' formateo forzoso, ej,2543.1
comprobante.Conceptos(i).Importe = Decimal.Parse(concep.Importe.RoundSQL(NumDecimalesImporte).ToString("0.00")) ' formateo forzoso, ej,2543.1
If ObjCFDITimbre.Comprobante.TipoComprobante.Contiene("P") Then ' consideración especial para pagos, debe ser "0" sin decimales
comprobante.Conceptos(i).ValorUnitario = 0
comprobante.Conceptos(i).Importe = 0
Else
comprobante.Conceptos(i).ValorUnitario = Decimal.Parse(concep.ValorUnitario.ToString("0.00####")) ' formateo forzoso, ej,2543.1
comprobante.Conceptos(i).Importe = Decimal.Parse(concep.Importe.RoundSQL(NumDecimalesImporte).ToString("0.00")) ' formateo forzoso, ej,2543.1
End If
comprobante.Conceptos(i).ClaveProdServ = concep.ClaveProdServ
comprobante.Conceptos(i).ObjetoImp = concep.ObjetoImpuesto
@@ -2218,8 +2224,8 @@ Public Class Timbrado
Nom.Percepciones.Percepcion(i).TipoPercepcion = percep.TipoPercepcion
Nom.Percepciones.Percepcion(i).Clave = percep.Clave
Nom.Percepciones.Percepcion(i).Concepto = percep.Concepto
Nom.Percepciones.Percepcion(i).ImporteGravado = Math.Round(percep.ImporteGravado, 2).ToString.ToDecimal
Nom.Percepciones.Percepcion(i).ImporteExento = Math.Round(percep.ImporteExento, 2).ToString.ToDecimal
Nom.Percepciones.Percepcion(i).ImporteGravado = percep.ImporteGravado.RoundSQL
Nom.Percepciones.Percepcion(i).ImporteExento = percep.ImporteExento.RoundSQL
If ObjCFDITimbre.Nomina.HorasExtras IsNot Nothing AndAlso ObjCFDITimbre.Nomina.HorasExtras.Count > 0 Then
Nom.Percepciones.Percepcion(i).HorasExtra = New Profact.TimbraCFDI33.Complementos.Nomina12.NominaPercepcionesPercepcionHorasExtra(ObjCFDITimbre.Nomina.HorasExtras.Count - 1) {}
@@ -2259,10 +2265,15 @@ Public Class Timbrado
If ObjCFDITimbre.Nomina.Deducciones IsNot Nothing AndAlso ObjCFDITimbre.Nomina.Deducciones.Count > 0 Then
Nom.Deducciones = New Profact.TimbraCFDI33.Complementos.Nomina12.NominaDeducciones()
Nom.Deducciones.TotalOtrasDeduccionesSpecified = True
Nom.Deducciones.TotalOtrasDeducciones = Math.Round(ObjCFDITimbre.Nomina.TotalDeduccionesOtras, 2)
Nom.Deducciones.TotalImpuestosRetenidosSpecified = True
Nom.Deducciones.TotalImpuestosRetenidos = Math.Round(ObjCFDITimbre.Nomina.TotalDeduccionesImpuestosRetenidos, 2)
If ObjCFDITimbre.Nomina.TotalDeduccionesOtras > 0 Then
Nom.Deducciones.TotalOtrasDeduccionesSpecified = True
Nom.Deducciones.TotalOtrasDeducciones = ObjCFDITimbre.Nomina.TotalDeduccionesOtras.RoundSQL
End If
If ObjCFDITimbre.Nomina.TotalDeduccionesImpuestosRetenidos > 0 Then
Nom.Deducciones.TotalImpuestosRetenidosSpecified = True
Nom.Deducciones.TotalImpuestosRetenidos = ObjCFDITimbre.Nomina.TotalDeduccionesImpuestosRetenidos.RoundSQL
End If
Nom.Deducciones.Deduccion = New Profact.TimbraCFDI33.Complementos.Nomina12.NominaDeduccionesDeduccion(ObjCFDITimbre.Nomina.Deducciones.Count - 1) {}
Dim i As Integer = 0
For Each deduc As CFDINominaDeducciones In ObjCFDITimbre.Nomina.Deducciones
@@ -2270,7 +2281,7 @@ Public Class Timbrado
Nom.Deducciones.Deduccion(i).TipoDeduccion = deduc.TipoDeduccion
Nom.Deducciones.Deduccion(i).Clave = deduc.Clave
Nom.Deducciones.Deduccion(i).Concepto = deduc.Concepto
Nom.Deducciones.Deduccion(i).Importe = Math.Round(deduc.Importe, 2)
Nom.Deducciones.Deduccion(i).Importe = deduc.Importe.RoundSQL
i += 1
Next
End If
@@ -2286,10 +2297,10 @@ Public Class Timbrado
Nom.OtrosPagos(i).TipoOtroPago = otpag.TipoOtroPago
Nom.OtrosPagos(i).Clave = otpag.Clave
Nom.OtrosPagos(i).Concepto = otpag.Concepto
Nom.OtrosPagos(i).Importe = otpag.Importe
Nom.OtrosPagos(i).Importe = otpag.Importe.RoundSQL
If otpag.TipoOtroPago = "002" Then
Nom.OtrosPagos(i).SubsidioAlEmpleo = New Profact.TimbraCFDI33.Complementos.Nomina12.NominaOtroPagoSubsidioAlEmpleo()
Nom.OtrosPagos(i).SubsidioAlEmpleo.SubsidioCausado = otpag.Importe
Nom.OtrosPagos(i).SubsidioAlEmpleo.SubsidioCausado = otpag.Importe.RoundSQL
End If
i += 1
Next
@@ -2316,13 +2327,15 @@ Public Class Timbrado
Nom.Receptor.RiesgoPuestoSpecified = True
Nom.Receptor.RiesgoPuesto = ObjCFDITimbre.Nomina.Receptor.CodigoRiesgoPuesto
Nom.Receptor.PeriodicidadPago = ObjCFDITimbre.Nomina.Receptor.TipoPeriodo
Nom.Receptor.BancoSpecified = True
Nom.Receptor.Banco = ObjCFDITimbre.Nomina.Receptor.CodigoBanco
Nom.Receptor.CuentaBancaria = ObjCFDITimbre.Nomina.Receptor.NumeroCuenta
If ObjCFDITimbre.Nomina.Receptor.CodigoBanco <> "" Then
Nom.Receptor.BancoSpecified = True
Nom.Receptor.Banco = ObjCFDITimbre.Nomina.Receptor.CodigoBanco
Nom.Receptor.CuentaBancaria = ObjCFDITimbre.Nomina.Receptor.NumeroCuenta
End If
Nom.Receptor.SalarioBaseCotAporSpecified = True
Nom.Receptor.SalarioBaseCotApor = Decimal.Round(ObjCFDITimbre.Nomina.Receptor.SBC.ToDecimal(), 2)
Nom.Receptor.SalarioBaseCotApor = ObjCFDITimbre.Nomina.Receptor.SBC.RoundSQL
Nom.Receptor.SalarioDiarioIntegradoSpecified = True
Nom.Receptor.SalarioDiarioIntegrado = Decimal.Round(ObjCFDITimbre.Nomina.Receptor.SDI.ToDecimal(), 2)
Nom.Receptor.SalarioDiarioIntegrado = ObjCFDITimbre.Nomina.Receptor.SDI.RoundSQL
Nom.Receptor.ClaveEntFed = ObjCFDITimbre.Nomina.Receptor.CodigoEntidadFederativa
Dim nsNom As New System.Xml.Serialization.XmlSerializerNamespaces()

1159
Bancos/IE.aspx.vb
View File

File diff suppressed because it is too large Load Diff

2
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -895,7 +895,7 @@ Partial Class Bancos_ProveedoresAbonar
IdCuenta = ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjeta").ToString.ToEntero
End If
Dim Importe42 As Decimal = Pago.ImportePago + Pago.OtroGastoIngreso
Dim Importe42 As Decimal = Pago.ImportePago
tImporteMN = If(Pago.CveMonedaPago = 2, If(DivTC.Visible, Importe42 / TxtTC.Text.ToDecimal * Pago.TCPago, Importe42 * Pago.TCPago), Importe42)
If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Importe42, tImporteMN, 42, Referencia, ConceptoMovimiento, IdCuenta, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto) Then

2
Bancos/RepComplementoPago.aspx.vb
View File

@@ -241,7 +241,7 @@ Partial Class Bancos_RepComplementoPago
e.Row.FCLabel("LblImp").ForeColor = Drawing.Color.Red
e.Row.FCLabel("LblImp").ToolTip = String.Format("Importe Pagado:{0} Importe Pagado PUE: {1}, Ot. Ingresos {2}", e.Row.DBCampo("Importe").FormatoNumero, e.Row.DBCampo("PagadoPUE").FormatoNumero, e.Row.DBCampo("PagadoOtIngresos").FormatoNumero) ' VentasTotalPagado
'si hay una diferencia generado por el tipo de cambio o alguna situación especial, detendrá el timbrado
If Math.Abs(e.Row.DBCampo("Importe").ToDecimal - e.Row.DBCampo("VentasTotalPagado").ToDecimal) > 11 Then
If Math.Abs(e.Row.DBCampo("Importe").ToDecimal - e.Row.DBCampo("VentasTotalPagado").ToDecimal) > 20 Then
' si tiene pagado PUE, habilitamos la condición porque esa puede ser la diferencia
If e.Row.DBCampo("PagadoPUE").ToDecimal > 0 OrElse e.Row.DBCampo("PagadoOtIngresos").ToDecimal > 0 Then
e.Row.FCCheckBox("Chk").Visible = True

22
Compras/ReembolsosComprobaciones.aspx.vb
View File

@@ -402,8 +402,10 @@ Partial Class Compras_ReembolsosComprobaciones
Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
Dim ValFechaDocumento As Boolean = False
Dim FoliosFechasValFechaDocumento As New StringBuilder
FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha de mes superior al mes del pago: <br/>")
Dim FoliosFechasValFechaDocumentoAnio As New StringBuilder
Dim FoliosFechasValFechaDocumentoPagoMesSuperior As New StringBuilder
Dim FoliosFechasValFechaDocumentoMesInferior As New StringBuilder
For Each gvRowVal As GridViewRow In GvCxP.Rows
@@ -422,12 +424,16 @@ Partial Class Compras_ReembolsosComprobaciones
Dim MesDocumento As Integer = FechaDocumento.Month
If AnioFactura > AnioDocumento Then
FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("FechaCompra").ToDate.ToString("dd/MM/yyyy") } <br/>")
FoliosFechasValFechaDocumentoAnio.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("FechaCompra").ToDate.ToString("dd/MM/yyyy") } <br/>")
ValFechaDocumento = True
ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then
FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("FechaCompra").ToDate.ToString("dd/MM/yyyy") } <br/>")
FoliosFechasValFechaDocumentoMesInferior.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("FechaCompra").ToDate.ToString("dd/MM/yyyy") } <br/>")
ValFechaDocumento = True
ElseIf AnioFactura = AnioDocumento And MesDocumento > MesFactura Then
FoliosFechasValFechaDocumentoPagoMesSuperior.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("FechaCompra").ToDate.ToString("dd/MM/yyyy") } <br/>")
ValFechaDocumento = True
End If
End If
Next
@@ -437,7 +443,13 @@ Partial Class Compras_ReembolsosComprobaciones
End If
If ValFechaDocumento Then
Alert(FoliosFechasValFechaDocumento.ToString, TipoMensaje.MsgAdvertencia)
Dim strMensajeValFechas As String = ""
strMensajeValFechas = $"{strMensajeValFechas}{If(FoliosFechasValFechaDocumentoAnio.Length > 0, "Se seleccionarón facturas con fecha de año superior al año del pago: <br/>" & FoliosFechasValFechaDocumentoAnio.ToString, "")}"
strMensajeValFechas = $"{strMensajeValFechas}{If(FoliosFechasValFechaDocumentoPagoMesSuperior.Length > 0, "Se seleccionarón facturas con fecha de mes inferior al mes del pago: <br/>" & FoliosFechasValFechaDocumentoPagoMesSuperior.ToString, "")}"
strMensajeValFechas = $"{strMensajeValFechas}{If(FoliosFechasValFechaDocumentoMesInferior.Length > 0, "Se seleccionarón facturas con fecha de mes superior al mes del pago: <br/>" & FoliosFechasValFechaDocumentoMesInferior.ToString, "")}"
Alert(strMensajeValFechas, TipoMensaje.MsgAdvertencia)
Exit Sub
End If

202
Compras/eFacturas.aspx
View File

@@ -80,6 +80,9 @@
<asp:LinkButton ID="LnkPersonalizar" runat="server" OnClick="LnkPersonalizar_Click" ><i class="fa fa-pencil"></i> Personalizar</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkRegistarFactura" runat="server" OnClick="LnkRegistarFactura_Click" ><i class="fa fa-plus-square-o"></i> Registar Compras</asp:LinkButton>
</li>
</ContentTemplate>
@@ -184,11 +187,157 @@
</asp:UpdatePanel>
<div class="row" style="margin-left: 0px; margin-right: 0px;">
<div style="width: 100%;">
<asp:UpdatePanel ID="UpRegistroFacturas" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet light xspadding bordered" id="DVRegistraFacturas" runat="server" visible="false">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Registro de Facturas</span>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
<div class="tools">
<a href="javascript:;" class="collapse"></a>
</div>
</div>
<div class="portlet-body form">
<div class="row">
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:HiddenField runat="server" ID="HdnTipoPS" Value="-1" />
<asp:DropDownList ID="DdlClasificacion" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%">
<asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
</asp:DropDownList>
<label for="<%= DdlClasificacion.ClientID.ToString()%>">Clasificación:</label>
</div>
</div>
<div class="col-md-4">
<asp:RadioButtonList ID="RBLContado" runat="server" RepeatDirection="Horizontal" Style="margin: auto" AutoPostBack="True" RepeatColumns="3">
<asp:ListItem Value="6" Selected="True" >Caja Chica</asp:ListItem>
<asp:ListItem Value="2">Viáticos</asp:ListItem>
</asp:RadioButtonList>
</div>
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright" >
<asp:DropDownList ID="DdlRetIVAConcepto" AppendDataBoundItems="true" CssClass="form-control input-sm select2me" Style="width: 100%;" runat="server"></asp:DropDownList>
<label runat="server" id="LblRetIVAConcepto" for="<%= DdlRetIVAConcepto.ClientID.ToString()%>">Ret. IVA:</label>
</div>
</div>
</div>
<div class="row">
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright" style="padding-top:14px">
<ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClass="form-control input-sm DdlPS" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" Width="100%" />
<label for="<%= DdlPS.ClientID.ToString()%>">
Productos / Servicio:<label>
</div>
</div>
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright" >
<asp:TextBox ID="TxtNumeroReembolso" runat="server" Width="100%" CssClass=" form-control input-sm " />
<label runat="server" id="LblNumeroReembolso" for="<%= TxtNumeroReembolso.ClientID.ToString()%>">Número de Reembolso:</label>
<asp:RequiredFieldValidator ID="RfvTxtNumeroReembolso" runat="server" ControlToValidate="TxtNumeroReembolso" InitialValue="" Display="Dynamic"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Num. Reembolso''</b> es necesario, por favor ingreselo." ValidationGroup="GrpRegistroFactura">
</asp:RequiredFieldValidator>
</div>
</div>
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright" >
<asp:DropDownList ID="DdlRetISRConcepto" AppendDataBoundItems="true" CssClass="form-control input-sm select2me" Style="width: 100%;" runat="server"></asp:DropDownList>
<label runat="server" id="LblRetISRConcepto" for="<%= DdlRetISRConcepto.ClientID.ToString()%>">Ret. ISR:</label>
</div>
</div>
</div>
<div class="row">
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright" >
<asp:DropDownList ID="DdlSubProyecto" CssClass=" form-control input-sm select2me" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" >
<asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<label runat="server" id="LblSubProyecto" for="<%= DdlSubProyecto.ClientID.ToString()%>">SubProyecto:</label>
</div>
</div>
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright" id="DivCuentaCajaChicaReembolso" runat="server" >
<asp:DropDownList ID="DdlCuentaCajaChicaReembolso" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="100%" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Seleccione cuenta" Value="-1"></asp:ListItem>
</asp:DropDownList>
<label runat="server" id="LblCuentaCajaChicaReembolso" for="<%= DdlCuentaCajaChicaReembolso.ClientID.ToString()%>">Caja Chica:</label>
</div>
<div class="form-group form-md-line-input input-iconright" id="DivPersonalReembolso" runat="server" visible="false" >
<asp:DropDownList ID="DdlPersonalReembolso" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NombreCompletoNombre" DataValueField="CvePersonal" Width="100%" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<label runat="server" id="LblPersonalReembolso" for="<%= DdlPersonalReembolso.ClientID.ToString()%>">Viáticos:</label>
</div>
</div>
<div class="col-md-4" style="text-align:center; " >
<asp:Button ID="BtnGuardarFacturas" runat="server" Text="Guardar" class="btn btn-primary" OnClick="BtnGuardarFacturas_Click" style="margin: 0; position: absolute; top: 50%; transform: translateY(30%);" />
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%">
<ajax:TabPanel ID="TabFacturass" runat="server" HeaderText="Facturas">
<ContentTemplate>
<asp:UpdatePanel ID="UPRegistros" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<table cellpadding="0" border="0" width="100%">
@@ -201,50 +350,22 @@
</table>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row" runat="server" id="DVRegistroFacturas">
<div class="col-md-12">
<asp:UpdatePanel ID="UPPClasificacion" runat="server" UpdateMode="Conditional" RenderMode="Inline">
<ContentTemplate>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:HiddenField runat="server" ID="HdnTipoPS" Value="-1" />
<asp:DropDownList ID="DdlClasificacion" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%">
<asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
</asp:DropDownList>
<label for="<%= DdlClasificacion.ClientID.ToString()%>">Clasificación:</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClass="form-control input-sm DdlPS" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
<label for="<%= DdlPS.ClientID.ToString()%>">
Productos / Servicio:<label>
</div>
</div>
</div>
<br />
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<div class="row">
<div class="col-md-12">
<asp:GridView ID="GvD" runat="server" Width="100%" AutoGenerateColumns="False" DataKeyNames="CveFactura,CveCompra,CveProveedor,SerieFolio,NombreProveedor,UUID,RFCDe,RFCPara,TipoFactura,FueValidado,TipoComprobante,Version,RFCde,XML,PDF,BloquePorComplemento,Total"
<asp:GridView ID="GvD" runat="server" Width="100%" AutoGenerateColumns="False" DataKeyNames="CveFactura,CveCompra,CveProveedor,SerieFolio,NombreProveedor,UUID,RFCDe,RFCPara,TipoFactura,FueValidado,TipoComprobante,Version,RFCde,XML,PDF,BloquePorComplemento,Total,CveTipoProveedor"
EmptyDataText="No se encontraron Registros con el filtro actual" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" GridLines="None">
<Columns>
<asp:TemplateField Visible="false">
<ItemTemplate>
<asp:CheckBox ID="chkRegistraFactura" runat="server"></asp:CheckBox>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Tipo">
<ItemTemplate>
<asp:Label ID="LtTipoComprobante" runat="server" Text='<%# Eval("TipoComprobante") %>'></asp:Label>
@@ -268,16 +389,7 @@
</asp:TemplateField>
<asp:TemplateField HeaderText="Importe" ItemStyle-Width="125px">
<ItemTemplate>
<%-- <table>
<tr>
<td><asp:Literal ID="LtlTotal" runat="server" Text='<%# String.Format("{0}", Eval("Total", "{0:N2}")) %>'></asp:Literal></td>
<td><asp:Literal ID="LtlAbre" runat="server" Text='<%# String.Format("{0}", Eval("Abreviatura")) %>'></asp:Literal></td>
</tr>
</table>--%>
<%--<asp:Literal ID="LtlTotal" runat="server" Text='<%# String.Format("{0} {1}", Eval("Total", "{0:N2}"), Eval("Abreviatura")) %>'></asp:Literal>--%>
<asp:Literal ID="LtlTotal" runat="server" Text='<%# String.Format("{0}", Eval("Total", "{0:N2}")) %>'></asp:Literal>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>

2299
Compras/eFacturas.aspx.vb
View File

File diff suppressed because it is too large Load Diff

8
Contabilidad/CatCuentas.aspx.vb
View File

@@ -28,10 +28,10 @@ Partial Class Contabilidad_CatCuentas
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
If Not UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso EsProduccion Then
Response.Redirect("/Contabilidad2/CatCuentas.aspx")
Exit Sub
End If
'If Not UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso EsProduccion Then
' Response.Redirect("/Contabilidad2/CatCuentas.aspx")
' Exit Sub
'End If
If UsuarioActual.Empresa.UsaContabilidad Then
CargaMonedas()

329
Contabilidad/RepAnexoCatalogoSegmento.aspx
View File

@@ -145,171 +145,170 @@
</asp:TemplateField>
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" visible="False" />
</Columns>

14
Contabilidad/RepAnexoCatalogoSegmento.aspx.vb
View File

@@ -3,6 +3,7 @@ Option Strict On
Imports System.Data
Imports Extensiones
Imports Microsoft.Extensions.Primitives
Imports Microsoft.Reporting.WebForms
Partial Class AC_RepAnexoCatalogoSegmento
@@ -339,10 +340,19 @@ Partial Class AC_RepAnexoCatalogoSegmento
Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
'GvDatos.ExportToExcelG("RepAnexoCatalogoSegmento", "RepAnexoCatalogoSegmento", UsuarioActual)
GvDatos.ExportToExcelX("RepAnexoCatalogoSegmento")
'GvDatos.ExportToExcelX("RepAnexoCatalogoSegmento")
Dim SbFiltros As New StringBuilder()
SbFiltros.Append($"Fecha Inicio: {TxtFechaDel.Text} Fecha Fin: {TxtFechaAl.Text} ")
SbFiltros.Append($" Cuenta: {TxtCuenta.Text}")
GvDatos.ExportToExcelGembox($"RepAnexoCatalogoSegmento{Now.ToString("yyyyMMddhhss")}", UsuarioActual, "Anexo del Catálogo Por Segmento", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
End Sub
'Private Sub ImprimirReporte(Optional Formato As String = "PDF")
' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
' 'ubicacion del rdlc
' Dim reportpath As String = "Contabilidad/Reportes/RepAnexoCatalogo.rdlc"
' 'nombre del reporte

5
Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx
View File

@@ -37,10 +37,8 @@
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter">
<div class="portlet-title portlet-filterT smalltitle">
<div class="tools">
@@ -97,7 +95,7 @@
</div>
</div>
</div>
<div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
<div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
<div class="row">
<div class="col-md-1 truncate">
Tipo Movto
@@ -136,6 +134,7 @@
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<div class="row" style="margin-right: 10px; margin-top: 8px;" align="right">

4
Documentacion/TableroMaterialidad.aspx.cs
View File

@@ -1128,8 +1128,8 @@ namespace ADSistemaLibrary3.SatXml
case "TIPOJORNADA": xmlCFDI.complemento.nomina12.Receptor.CodigoTipoJornada = xtr.Value; break;
case "PUESTO": xmlCFDI.complemento.nomina12.Receptor.Puesto = xtr.Value; break;
case "RIESGOPUESTO": xmlCFDI.complemento.nomina12.Receptor.CodigoRiesgoPuesto = xtr.Value; break;
case "SALARIOBASECOTAPOR": xmlCFDI.complemento.nomina12.Receptor.SBC = xtr.Value.ToDouble(); break;
case "SALARIODIARIOINTEGRADO": xmlCFDI.complemento.nomina12.Receptor.SDI = xtr.Value.ToDouble(); break;
case "SALARIOBASECOTAPOR": xmlCFDI.complemento.nomina12.Receptor.SBC = xtr.Value.ToDecimal(); break;
case "SALARIODIARIOINTEGRADO": xmlCFDI.complemento.nomina12.Receptor.SDI = xtr.Value.ToDecimal(); break;
case "CLAVEENTFED": xmlCFDI.complemento.nomina12.Receptor.CodigoEntidadFederativa = xtr.Value; break;
case "PERIODICIDADPAGO": xmlCFDI.complemento.nomina12.Receptor.TipoPeriodo = xtr.Value; break;
case "CUENTABANCARIA": xmlCFDI.complemento.nomina12.Receptor.NumeroCuenta = xtr.Value; break;

4
Documentacion/TableroMaterialidad2.aspx.cs
View File

@@ -1047,8 +1047,8 @@ namespace ADSistemaLibrary43.SatXml
case "TIPOJORNADA": xmlCFDI.complemento.nomina12.Receptor.CodigoTipoJornada = xtr.Value; break;
case "PUESTO": xmlCFDI.complemento.nomina12.Receptor.Puesto = xtr.Value; break;
case "RIESGOPUESTO": xmlCFDI.complemento.nomina12.Receptor.CodigoRiesgoPuesto = xtr.Value; break;
case "SALARIOBASECOTAPOR": xmlCFDI.complemento.nomina12.Receptor.SBC = xtr.Value.ToDouble(); break;
case "SALARIODIARIOINTEGRADO": xmlCFDI.complemento.nomina12.Receptor.SDI = xtr.Value.ToDouble(); break;
case "SALARIOBASECOTAPOR": xmlCFDI.complemento.nomina12.Receptor.SBC = xtr.Value.ToDecimal(); break;
case "SALARIODIARIOINTEGRADO": xmlCFDI.complemento.nomina12.Receptor.SDI = xtr.Value.ToDecimal(); break;
case "CLAVEENTFED": xmlCFDI.complemento.nomina12.Receptor.CodigoEntidadFederativa = xtr.Value; break;
case "PERIODICIDADPAGO": xmlCFDI.complemento.nomina12.Receptor.TipoPeriodo = xtr.Value; break;
case "CUENTABANCARIA": xmlCFDI.complemento.nomina12.Receptor.NumeroCuenta = xtr.Value; break;

26
Inventarios/PopUpExistenciasAlmacen.aspx
View File

@@ -159,17 +159,10 @@
<asp:Label ID="LblUM" runat="server" Text='<%# Eval("UnidadMedida") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="Existencia" ItemStyle-HorizontalAlign="Right" HeaderText="Existencia" DataFormatString="{0:#,###.######}" />
<%--<asp:BoundField DataField="Existencia" ItemStyle-HorizontalAlign="Right" HeaderText="Existencia" DataFormatString="{0:#,###.######}" />--%>
<%--<asp:BoundField DataField="PendientePorSurtir" ItemStyle-HorizontalAlign="Right" HeaderText="Pendiente Por Surtir" DataFormatString="{0:#,###.######}" /> --%>
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
<HeaderTemplate>
<asp:Label ID="LblPPPH" runat="server" ToolTip="Pendiente Por Surtir" Text="Pendiente <br/> Por Surtir"></asp:Label>
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="LblPP" runat="server" Text='<%# String.Format("{0:#,###.######}", Eval("PendientePorSurtir")) %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="ExistenciaFinal" ItemStyle-HorizontalAlign="Right" HeaderText="Existencia Real" DataFormatString="{0:#,###.######}" />
<asp:BoundField DataField="ExistenciaFinal" ItemStyle-HorizontalAlign="Center" HeaderText="Existencia Real" DataFormatString="{0:#,###.######}" />
<asp:BoundField DataField="Importe" ItemStyle-HorizontalAlign="Right" HeaderText="Precio Neto" DataFormatString="{0:N2}"/>
<%--<asp:BoundField DataField="ImportePromocion" ItemStyle-HorizontalAlign="Right" HeaderText="Precio Promoción" DataFormatString="{0:N2}"/>--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
@@ -180,8 +173,7 @@
<asp:Label ID="LblP" runat="server" Text='<%# String.Format("{0:N2}", Eval("ImportePromocion")) %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<%--<asp:BoundField DataField="CantidadMinimaPromo" ItemStyle-HorizontalAlign="Right" HeaderText="Cant. Min. Promo" DataFormatString="{0:N0}"/>--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
<asp:TemplateField ItemStyle-HorizontalAlign="Center">
<HeaderTemplate>
<asp:Label ID="LblCMPH" runat="server" ToolTip="Cantidad Mínima Promoción" Text="Cant. Min. <br/> Promoción"></asp:Label>
</HeaderTemplate>
@@ -189,8 +181,16 @@
<asp:Label ID="LblCMP" runat="server" Text='<%# String.Format("{0:N0}", Eval("CantidadMinimaPromo")) %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="CantidadDisponibleInv" ItemStyle-HorizontalAlign="Right" HeaderText="Pendiente Por Recibir" DataFormatString="{0:#,###.######}" Visible="false"/>
<asp:BoundField DataField="Transito" ItemStyle-HorizontalAlign="Right" HeaderText="En Tránsito" DataFormatString="{0:#,###.######}" />
<asp:TemplateField ItemStyle-HorizontalAlign="Center">
<HeaderTemplate>
<asp:Label ID="LblCMPH2" runat="server" Text="Por Recibir <br/> Fecha"></asp:Label>
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="LblPR" runat="server" Text='<%# String.Format("{0:#,###}", Eval("PorRecibir")) %>'></asp:Label><br />
<asp:Label Font-Size="10px" Font-Italic="true" ID="Label1" runat="server" Text='<%# String.Format("{0:dd MMMM}", Eval("FechaPorRecibir")) %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>

4
Inventarios/PopUpExistenciasAlmacen.aspx.vb
View File

@@ -274,10 +274,14 @@ Partial Class Inventarios_Default
Dim ObjInventarios As New ClsInventarios
If ObjInventarios.GetExistenciasMedRin(DDlPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlRin.SelectedValue.ToEntero, DdlMedidas.SelectedValue.ToEntero) Then
GvMedRin.DataSource = ObjInventarios.DtResultados
If ObjInventarios.DtResultados.Rows.Count > 0 Then
GvMedRin.Columns(5).Visible = ObjInventarios.DtResultados.MAX("CantidadMinimaPromo") <> ""
End If
End If
ObjInventarios.Dispose()
GvMedRin.DataBind()
UPDatos.Update()
DivMedRin.Visible = True
End Sub

9
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -4054,7 +4054,6 @@ Partial Class Inventarios_RecepcionAlmacen
ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa)
Dim TotalCosto As Decimal = ObjInventario.DtResultados.SUMD("Total").RoundSQL()
Dim IdCtaContableCostoInd As Integer = 0
'si reciben parcialidades de producto. en base al total de la importacion y lo recibido.
Dim PorcentajeRecepcionCompras As Decimal = TotalCosto / DtTempCompras.SUMD("SubTotalTC")
Dim ConceptoPartida As String = String.Format("{0}- Inv#{1}", HLFolio.Text, InvFolio)
@@ -4071,19 +4070,15 @@ Partial Class Inventarios_RecepcionAlmacen
Dim ImporteAbonoME As Decimal = 0
Dim CveConceptoCostoIndirecto As Integer = If(CveImportacionSurtir > 0, 240, 237)
If ObjConta.GetRetCuenta(CveConceptoCostoIndirecto, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
IdCtaContableCostoInd = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero
End If
If UsaComplementariaCostoIndirecto Then
CveConceptoCostoIndirecto = If(CveImportacionSurtir > 0, 241, 238)
ImporteAbono = SubTotalPartida
ImporteAbonoME = (SubTotalPartida * dr("TipoCambio").ToString.ToDecimal) - SubTotalPartida
End If
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAbono, ConceptoPartida, CveConceptoCostoIndirecto, ConceptoPartida, FechaMovto, IdCtaContableCostoInd, -1, CveCompra:=CveComp, CveProveedor:=dr("CveProveedor").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ImporteAbono, CveSubProyecto:=CveSubProyecto) Then
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAbono, ConceptoPartida, CveConceptoCostoIndirecto, ConceptoPartida, FechaMovto, 0, -1, CveCompra:=CveComp, CveProveedor:=dr("CveProveedor").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ImporteAbono, CveSubProyecto:=CveSubProyecto) Then
' si tiene valor es que hay complementaria
If ImporteAbonoME > 0 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAbono, ConceptoPartida, If(CveImportacionSurtir > 0, 242, 239), ConceptoPartida, FechaMovto, IdCtaContableCostoInd, -1, CveCompra:=CveComp, CveProveedor:=dr("CveProveedor").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ImporteAbono) Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAbono, ConceptoPartida, If(CveImportacionSurtir > 0, 242, 239), ConceptoPartida, FechaMovto, 0, -1, CveCompra:=CveComp, CveProveedor:=dr("CveProveedor").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ImporteAbono) Then
ErrorMovInv = True
End If
End If

29
Inventarios/RepEntregaAlmacenRuta.aspx.cs
View File

@@ -188,7 +188,22 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
}
}
private int CveCliente
{
get
{
if (ViewState["CveCliente"] == null)
{
ViewState["CveCliente"] = -1;
}
return ViewState["CveCliente"].ToString().ToEntero();
}
set
{
ViewState["CveCliente"] = value;
}
}
private int CveDireccionOrigen
{
@@ -358,9 +373,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
CveEntregaAlmacen = GvRow.DataKey("CveEntregaAlmacen").ToEntero();
CveTimbre = GvRow.DataKey("CveTimbre").ToEntero();
int CveCliente = GvRow.DataKey("CveCliente").ToEntero();
int CveAlmacen = GvRow.DataKey("CveAlmacen").ToEntero();
DdlModalCamion.SelectedValueExist(GvRow.DataKey("CveCamion"));
DdlModalChofer.SelectedValueExist(GvRow.DataKey("CveChofer"));
@@ -383,6 +395,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
}
CveDireccionOrigen = GvRow.DataKey("CveDireccionOrigen").ToEntero();
CveDireccionDestino = GvRow.DataKey("CveDireccionDestino").ToEntero();
CveCliente = GvRow.DataKey("CveCliente").ToEntero();
ModalActualizaDirecciones(CveTimbre);
@@ -399,14 +412,11 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
LnkDireccionDestino.Text = GvRow.DataKey("Direccion") + " <i class='fa fa-search' aria-hidden='true'></i>";
}
UpModalEditarentrega.Update();
RegistraScript("$('#DivEditarEntrega').modal({ backdrop: 'static', keyboard: false });");
}
private void ModalActualizaDirecciones(int CveTimbre)
{
ClsGenerales ObjGeneral = new ClsGenerales();
@@ -1028,9 +1038,10 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
public void EditDireccionOrigen_Click(object sender, EventArgs e)
{
//GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
//GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
//int CveDireccionOrigen = GvRow.DataKey("CveDireccionOrigen").ToEntero();
CveDireccionEditar = CveDireccionOrigen;
//CveCliente = GvRow.DataKey("CveCliente").ToEntero();
LblTitulodireccion.Text = "Actualizar dirección origen";
CargaDatosDireccion(CveDireccionOrigen);
}
@@ -1067,7 +1078,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
TxtEnvioNoInt.Text = DT.Rows[0]["EnvioNoInt"].ToString();
TxtEnvioCP.Text = DT.Rows[0]["EnvioCP"].ToString();
// TxtEnvioTel.Text = GvRow.DataKey("EnvioTel")
CveCliente = DT.Rows[0]["CveCliente"].ToString().ToEntero();
DdlDirClientePais.SelectedValueExist(DT.Rows[0]["CvePais"].ToString());
CargaDirClienteEstado();
@@ -1094,7 +1105,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
bool ErrorProceso = false;
//CveDireccionEditar
if (!ObjCli.DireccionEnvioUpdate(-1, TxtEnvioDireccion.Text, TxtEnvioNoExt.Text, TxtEnvioNoInt.Text, "-1", "-1", "-1", TxtEnvioCP.Text, "-1", UsuarioActual.CveUsuario, -1, CveDireccionEditar, "-1", -1, "-1",
if (!ObjCli.DireccionEnvioUpdate(CveCliente, TxtEnvioDireccion.Text, TxtEnvioNoExt.Text, TxtEnvioNoInt.Text, "-1", "-1", "-1", TxtEnvioCP.Text, "-1", UsuarioActual.CveUsuario, -1, CveDireccionEditar, "-1", -1, "-1",
DdlDirClientePais.SelectedValue.ToEntero(), DdlDirClienteEstado.SelectedValue.ToEntero(), DdlDirClienteMunicipio.SelectedValue.ToEntero(), DdlDirClienteLocalidad.SelectedValue.ToEntero(), DdlDirClienteColonia.SelectedValue.ToEntero()))
{
ErrorProceso = true;

72
Nomina/Nomina.aspx.cs
View File

@@ -1,12 +1,7 @@

using AjaxControlToolkit.HtmlEditor.ToolbarButtons;
using ClbNegBICFDv3_3;
using Extensiones;
using Extensiones;
using iTextSharp.text.pdf;
using Profact.TimbraCFDI40;
using System;
using System.Collections.Generic;
using System.Collections.Specialized;
using System.Data;
using System.Drawing;
using System.IO;
@@ -328,11 +323,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
DdlTipoTrabajador.SelectedValueExist("-1");
}
}
if (UsuarioActual.CveUsuario == 100)
{
Alert("recuerda que solo la empresa (119) tiene activado el timbrado 4.0", TipoMensaje.ToastAdventencia);
}
//CreaObjetoEmpresa(UsuarioActual);
DataTable dtperinc = null;
using (ClsNominas objnom = new ClsNominas())
{
@@ -490,7 +481,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
}
private void CargaTiposPeriodo()
{
DdlTipoPeriodo.DataSource = GlobalDTTipoPeriodo.FiltraParametros("Estatus = 'Activo'");
DdlTipoPeriodo.DataSource = get_GlobalDTTipoPeriodos(UsuarioActual.CveEmpresa) ;
DdlTipoPeriodoCM.DataSource = DdlTipoPeriodo.DataSource;
DdlTipoPeriodoSim.DataSource = DdlTipoPeriodo.DataSource;
DdlTipoPeriodoSim.DataBind();
@@ -1442,7 +1433,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
LogicNominas lognom = new LogicNominas();
string Msg = "";
Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, UsuarioActual, versionTimbre: VersionTimbradoEnum.Version4_0);
Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, UsuarioActual, UsuarioActual.Empresa.CvePAC);
if (Msg != null && Msg.Length > 0)
{
@@ -8943,16 +8934,24 @@ public partial class Nomina_Nomina2 : ClsPaginas
CvePrePolizaasmilidos = objnom.DtResultados.Rows[0]["CvePrePolizaAsimilables"].ToString().ToEntero();
CvePrePolizaProrrateo = objnom.DtResultados.Rows[0]["CvePrePolizaProrrateo"].ToString().ToEntero();
}
string mensaje = string.Format("La provision a sido autorizada.<br/><a href=\"../Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}&Tipo=NOMPROV\">Provision </a><br/>", CvePrePolizaProvision);
string mensaje = string.Format("La provisión a sido generada.<br/><a href='../Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}' class='Texto'>Provisión </a><br/>", CvePrePolizaProvision);
if (CvePrePolizaasmilidos > 0)
{
mensaje = string.Format("{0} <a href=\"../Contabilidad/RegPrePoliza.aspx?CvePrePoliza={1}&Tipo=NOMPROV\"> Asimilados</a><br/>", mensaje, CvePrePolizaasmilidos);
mensaje = string.Format("{0} <a href='../Contabilidad/RegPrePoliza.aspx?CvePrePoliza={1}' class='Texto'> Asimilados</a><br/>", mensaje, CvePrePolizaasmilidos);
}
if (CvePrePolizaProrrateo > 0)
{
mensaje = string.Format("{0} <a href=\"../Contabilidad/RegPrePoliza.aspx?CvePrePoliza={1}&Tipo=NOMPROV\"> Prorrateo</a><br/>", mensaje, CvePrePolizaProrrateo);
mensaje = string.Format("{0} <a href='../Contabilidad/RegPrePoliza.aspx?CvePrePoliza={1}' class='Texto'> Prorrateo</a><br/>", mensaje, CvePrePolizaProrrateo);
}
if (CvePrePolizaProvision > 0)
{
using (ClsContabilidad objconta = new ClsContabilidad())
{
var objUsuario = UsuarioActual;
if (objconta.ValidacionesPrePoliza(CvePrePolizaProvision, ref objUsuario))
{
}
}
}
Alert(mensaje);
}
@@ -8966,9 +8965,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
if (ObjContaz.GetConta_ConceptosContables())
{
ContaConceptossource = ObjContaz.DtResultados;
}
}
if (UsuarioActual.Empresa.TipoContabilidad == 1)
@@ -9003,42 +9000,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
GVProvision.DataBind();
RegistraScript("$('#ModalRegistraProvision').modal();");
UpRegistroProvision.Update();
/*
StringBuilder str = new StringBuilder();
str.Append("<table>");
str.Append("<tbody>");
//ConceptoContable ConceptoNomina CodigoNombreCompleto
str.Append("<tr>");
str.Append("<th>");
str.Append("Concepto Contable");
str.Append("</th>");
str.Append("<th>");
str.Append("Concepto Nomina");
str.Append("</th>");
str.Append("<th>");
str.Append("Personal");
str.Append("</th>");
str.Append("</tr>");
foreach (DataRow item in objnom.DTSetResultados.Tables[1].Rows)
{
str.Append("<tr>");
str.Append("<td>");
str.Append(item["ConceptoContable"]);
str.Append("</td>");
str.Append("<td>");
str.Append(item["ConceptoNomina"]);
str.Append("</td>");
str.Append("<td>");
str.Append(item["CodigoNombreCompleto"]);
str.Append("</td>");
str.Append("</tr>");
}
str.Append("</tbody>");
str.Append("</table>");
Alert(string.Format("<div>no se pudo registrar la provisión, existen cuentas sin vincular.</div> {0}", str));
*/
}
}
}

11
OC/OC.aspx.vb
View File

@@ -2401,7 +2401,15 @@ Partial Class OC_OC
TieneError = True
End If
''validación que para empresas llanteras, y la clasif son llantas, que requiere la fecha de estimación
If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
Dim dtc As DataTable = DtDetalle.FiltraParametros("Clasificacion like '%Llanta%'")
If dtc IsNot Nothing AndAlso dtc.Rows.Count > 0 AndAlso TxtFechaEstimadaEntrega.Text.ToDate <= MinFecha Then
Alert("Cuando se incluyan productos llantas, deberán especificar fecha estimada de entrega.", TipoMensaje.MsgAdvertencia)
TieneError = True
End If
End If
'SI ES REQUISICION, NO REQUIERE COTIZACION Y ES ESTATUSFINALOK... ENTONCES DEBE DE TENER UN PROVEEDOR SELECCIONADO Y LOS PRECIOS CAPTURADOS
'If (TipoOC = "REQ" And ChkCotizacion.Checked = False And CboE.SelectedValue.ToEntero = CveEstatusFinalOK) OrElse TipoOC = "OC" Then
@@ -2590,9 +2598,6 @@ Partial Class OC_OC
'VALIDACIONES PARA GUARDAR
If ValidaGuardar() Then Exit Sub
Dim MsgError As String = "Hubo un error al registrar"
'VARIABLES
Dim CveProveedorSucursal As Integer = -1

8
RH/CatTurno.aspx.vb
View File

@@ -127,13 +127,7 @@ Partial Class RH_CatTurno
Private Sub CargaGlobalDTTurno()
Dim ObjRH As New ClsRH
If ObjRH.GetTurnos() Then
Application("GlobalDTTurno") = ObjRH.DtResultados
Else
Application("GlobalDTTurno") = Nothing
End If
ObjRH.Dispose()
GlobalDTTurno(UsuarioActual.CveEmpresa) = Nothing
End Sub
Public Sub Delete_Click(sender As Object, e As EventArgs)

161
RH/Personal.aspx
View File

@@ -292,16 +292,22 @@
</div>
</div>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtColonia" runat="server" MaxLength="70"></asp:TextBox>
<label for="<%= TxtColonia.ClientID.ToString()%>">Colonia: </label>
<i></i>
</div>
<div class="row" style="margin-bottom: 5px">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtColonia" runat="server" MaxLength="70"></asp:TextBox>
<label for="<%= TxtColonia.ClientID.ToString()%>">Colonia: </label>
<i></i>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtCP" runat="server" MaxLength="5"></asp:TextBox>
<label for="<%= TxtCP.ClientID.ToString()%>">Código Postal: </label>
<i></i>
</div>
</div>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtCiudad" runat="server" MaxLength="30"></asp:TextBox>
<label for="<%= TxtCiudad.ClientID.ToString()%>">Ciudad: </label>
@@ -593,22 +599,19 @@
<asp:Label AssociatedControlID="DdlEmpresaAsignada" runat="server" Text="Outsourcing :"></asp:Label>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright">
<div class="form-group form-md-line-input input-iconright" id="divAgroTipoTrabajador" runat="server" visible="false">
<asp:DropDownList Width="100%" ID="DdlTipoTrabajador" CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true"
DataTextField="TipoTrabajadorB" DataValueField="CveTipoTrabajador" ValidationGroup="GrpGuardar" OnSelectedIndexChanged="DdlTipoTrabajador_SelectedIndexChanged">
</asp:DropDownList>
<asp:Label AssociatedControlID="DdlTipoTrabajador" runat="server" Text="Tipo trabajador:"></asp:Label>
</div>
<div class="form-group form-md-line-input input-iconright">
<div class="form-group form-md-line-input input-iconright" id="divAgroDepto" runat="server" visible="false">
<asp:DropDownList Width="100%" ID="DDlAgroDepartamento" CssClass="form-control input-sm select2me" runat="server"
DataTextField="Departamento" DataValueField="CveDepartamento" ValidationGroup="GrpGuardar">
</asp:DropDownList>
<asp:Label AssociatedControlID="DDlAgroDepartamento" runat="server" Text="Depto:"></asp:Label>
</div>
<div class="form-group form-md-line-input input-iconright">
<div class="form-group form-md-line-input input-iconright" id="divMedioTransporte" runat="server" visible="false">
<asp:DropDownList Width="100%" ID="DdlMedioTransporte" CssClass="form-control input-sm select2me" runat="server"
DataTextField="Nombre" DataValueField="CveOrigen" ValidationGroup="GrpGuardar">
</asp:DropDownList>
@@ -625,7 +628,7 @@
<asp:CheckBox ID="ChkSindicalizado" CssClass="chksino " Text=" " runat="server" />
</div>
</div>
<div class="row">
<div class="row" id="divAgro1" runat="server" visible="false">
<div class="col-md-6">
<asp:Label AssociatedControlID="ChkEstemporal" CssClass="lblforchk" runat="server" Text="¿es Temporal?:"></asp:Label>
<asp:CheckBox ID="ChkEstemporal" Text=" " AutoPostBack="true" OnCheckedChanged="ChkEstemporal_CheckedChanged" CssClass="chksino" runat="server" />
@@ -642,7 +645,7 @@
</div>
</div>
<div class="row">
<div class="row" id="divAgro2" runat="server" visible="false">
<div class="col-md-6">
<asp:Label AssociatedControlID="chkEsReserva" CssClass="lblforchk" runat="server" Text="Es reserva:"></asp:Label>
<asp:CheckBox ID="chkEsReserva" CssClass="chksino " Text=" " runat="server" />
@@ -660,7 +663,6 @@
<asp:CheckBox ID="CHKRFCValidado" Text=" " CssClass="chksino" runat="server" />
</div>
</div>
</div>
</div>
</div>
@@ -1530,19 +1532,22 @@
<asp:CompareValidator ID="CVBono" runat="server" ControlToValidate="TxtBono" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Bono''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtNumDiasAguinaldo" Text="15" runat="server" MaxLength="10"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtNumDiasAguinaldo" Text="Número de días Aguinaldo:"></asp:Label>
<i></i>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtNumDiasAguinaldo" Text="15" runat="server" MaxLength="10"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtNumDiasAguinaldo" Text="Días Aguinaldo:"></asp:Label>
<i></i>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtPorPrimaVacacional" Text="25" runat="server" MaxLength="10"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtPorPrimaVacacional" Text="Prima Vacacional:"></asp:Label>
<i>%</i>
</div>
</div>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtPorPrimaVacacional" Text="25" runat="server" MaxLength="10"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtPorPrimaVacacional" Text="Prima Vacacional:"></asp:Label>
<i>%</i>
</div>
<div class="form-group form-md-line-input input-iconright" runat="server" id="DVNetoPeriodo" visible="false" >
<asp:TextBox CssClass="form-control" ID="TxtNetoPeriodo" runat="server" MaxLength="10"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtNetoPeriodo" Text="Neto Periodo:"></asp:Label>
@@ -2398,7 +2403,7 @@
</div>
<div class="portlet-body portlet-filter">
<div class="row">
<div class="form-group form-md-line-input input-iconright col-md-2">
<div class="form-group form-md-line-input input-iconright col-md-2" id="divCliente" runat="server" visible="false">
<label class="col-md-1 truncate" style="width: 100px; margin-top: -10px; margin-left: -15px; margin-bottom: 2px; font-size: 13px">Cliente: </label>
<ADS:Dropdownlost CssClassDdl="form-control input-sm select2me" ID="DdlClienteAsistenciaC" Width="100%" data-metodo="getcliente" runat="server" DataTextField="Nombre" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
<%--<asp:DropDownList Width="100%" ID="DdlClienteAsistenciaC" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" CssClass=" form-control select2me ">
@@ -2456,10 +2461,10 @@
<table class="table table-striped table-hover Widthall" id="GvAsistenciaHeader">
<%--<thead>--%>
<tr class="Titulos">
<th style="width: 120px">
<th style="width: 130px">
<asp:LinkButton ID="LbFechaAsistencia" runat="server" CausesValidation="false" Text="Fecha" CommandArgument="" OnClick="LbOrden_Click"></asp:LinkButton>
</th>
<th style="width: 180px">
<th style="width: 180px" id="tdCliente1" runat="server" visible ="false">
<asp:LinkButton ID="LbClienteAsistencia" runat="server" CausesValidation="false" Text="Cliente" CommandArgument="Cliente1;1" OnClick="LbOrden_Click">
<asp:Literal ID="ImgCliente1" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</asp:LinkButton>
@@ -2501,7 +2506,7 @@
<%--</thead>--%>
<tr>
<td>
<div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="min-width: 100px; max-width: 200px;">
<div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="min-width: 110px; max-width: 200px;">
<asp:TextBox ID="TxtFechaAsistencia" runat="server" CausesValidation="true" CssClass="form-control input-sm"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgCalendarioAsistencia" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
@@ -2514,9 +2519,8 @@
<ajax:ValidatorCalloutExtender ID="VCOFechaAsistencia1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaAsistencia" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="VCOFechaAsistencia2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaAsistencia" Width="350px"></ajax:ValidatorCalloutExtender>
</td>
<td>
<td id="tdCliente2" runat="server" visible ="false">
<ADS:Dropdownlost CssClassDdl="form-control input-sm select2me" ID="DdlClienteAsistenciaA" Width="100%" data-metodo="getcliente" runat="server" DataTextField="Nombre" DataValueField="CveCliente" UsaWebService="true" CssStyle="width: 100%;"></ADS:Dropdownlost>
</td>
<td>
<asp:DropDownList Width="100%" ID="DdlProyectoAsistenciaA" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;" ValidationGroup="GrpGuardarAsistencia">
@@ -2529,7 +2533,7 @@
</asp:DropDownList>
</td>
<td>
<asp:DropDownList Width="100%" ID="DdlTipoAsistencias" runat="server" DataTextField="Tipo" DataValueField="CveAsistenciasInasistencias" CssClass="table-group-action-input form-control input-inline input-small input-sm" Style="width: 70px !important;" ValidationGroup="GrpGuardarAsistencia"
<asp:DropDownList Width="100%" ID="DdlTipoAsistencias" runat="server" DataTextField="Tipo" DataValueField="CveAsistenciasInasistencias" CssClass="table-group-action-input form-control input-inline input-small input-sm" Style="min-width: 70px" ValidationGroup="GrpGuardarAsistencia"
AutoPostBack="true" OnSelectedIndexChanged="DdlTipoAsistencias_SelectedIndexChanged">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
@@ -2542,7 +2546,7 @@
<asp:TextBox CssClass="form-control input-sm" ID="TxtHorasTriples" runat="server" MaxLength="3" Text="0" Width="50px"></asp:TextBox></td>
<td>
<asp:DropDownList Width="100%" ID="DdlMotivoHoraExtra" runat="server" AppendDataBoundItems="true" DataTextField="MotivoHoraExtra" DataValueField="CveMotivoHoraExtra" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 110px !important;">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
<asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
</asp:DropDownList>
</td>
<td>
@@ -2563,7 +2567,7 @@
<asp:Literal ID="LtlFecha" runat="server"></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<asp:TemplateField Visible="false">
<HeaderTemplate>Cliente</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlCliente" runat="server" Text='<%# Eval("Cliente") %>'></asp:Literal>
@@ -2584,39 +2588,39 @@
<asp:TemplateField>
<HeaderTemplate>Asistencia</HeaderTemplate>
<ItemTemplate>
<asp:DropDownList ID="DdlTipoAsistencias" runat="server" TabIndex="2" DataTextField="Tipo" DataValueField="CveAsistenciasInasistencias" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 70px !important;"></asp:DropDownList>
<asp:DropDownList ID="DdlTipoAsistencias" runat="server" TabIndex="2" DataTextField="Tipo" DataValueField="CveAsistenciasInasistencias" Class="table-group-action-input form-control input-inline input-small input-sm" Style="min-width: 70px;"></asp:DropDownList>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>% Pago</HeaderTemplate>
<ItemTemplate>
<asp:TextBox CssClass="form-control" ID="TxtPorPago" TabIndex="1" runat="server" MaxLength="3" Text="100" Width="44px"></asp:TextBox>
<asp:TextBox CssClass="input-group input-sm" ID="TxtPorPago" TabIndex="1" runat="server" MaxLength="3" Text="100" Width="44px"></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>Hrs Dob.</HeaderTemplate>
<ItemTemplate>
<asp:TextBox CssClass="form-control" ID="TxtHorasDobles" TabIndex="1" runat="server" MaxLength="3" Text="0" Width="50px"></asp:TextBox>
<asp:TextBox CssClass="form-control input-sm" ID="TxtHorasDobles" TabIndex="1" runat="server" MaxLength="3" Text="0" Width="50px"></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>Hrs Trip.</HeaderTemplate>
<ItemTemplate>
<asp:TextBox CssClass="form-control" ID="TxtHorasTriples" TabIndex="1" runat="server" MaxLength="3" Text="0" Width="50px"></asp:TextBox>
<asp:TextBox CssClass="form-control input-sm" ID="TxtHorasTriples" TabIndex="1" runat="server" MaxLength="3" Text="0" Width="50px"></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>Motivo H. Extras</HeaderTemplate>
<ItemTemplate>
<asp:DropDownList ID="DdlMotivoHoraExtra" runat="server" TabIndex="2" AppendDataBoundItems="true" DataTextField="MotivoHoraExtra" DataValueField="CveMotivoHoraExtra" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 110px !important;">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
<asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
</asp:DropDownList>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>Obs.</HeaderTemplate>
<ItemTemplate>
<asp:TextBox CssClass="form-control" ID="TxtObservaciones" TabIndex="3" runat="server" Width="84px" MaxLength="150"></asp:TextBox>
<asp:TextBox CssClass="form-control input-sm" ID="TxtObservaciones" TabIndex="3" runat="server" Width="84px" MaxLength="150"></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" Visible="false">
@@ -2873,9 +2877,10 @@
<div class="tools"><a href="javascript;" class="collapse" data-original-title="" title=""></a></div>
<div class="actions">
<div class="btn-group">
<asp:HyperLink data-toggle="modal" data-target="#ModalAddVacaciones" runat="server" class="btn green btn-outline btn-sm">
<asp:LinkButton runat="server" id="LnkSolicitarVacaciones" CssClass="btn green btn-outline btn-sm" OnClick="LnkSolicitarVacaciones_Click" > <i class="fa fa-plus"></i> Solicitar Vacaciones</asp:LinkButton>
<%--<asp:HyperLink data-toggle="modal" data-target="#ModalAddVacaciones" runat="server" class="btn green btn-outline btn-sm">
<i class="fa fa-plus"></i> Solicitar Vacaciones
</asp:HyperLink>
</asp:HyperLink>--%>
</div>
</div>
@@ -3034,7 +3039,7 @@
</div>
<div class="modal-body">
<asp:UpdatePanel runat="server" ID="UpdatePanel2" UpdateMode="Conditional">
<asp:UpdatePanel runat="server" ID="UpSolicitarVacaciones" UpdateMode="Conditional">
<ContentTemplate>
<div class="row">
@@ -3061,11 +3066,12 @@
</div>
</div>
<asp:Panel runat="server" ID="PnlVacfechas" CssClass="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright calendarlinealinput" style="width: 100px !important">
<div class="col-md-3">
<div class="form-group form-md-line-input input-iconright calendarlinealinput" style="width: 100px !important">
<div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="width: 160px;">
<asp:TextBox ID="TxtFechaInicioVac" runat="server" CausesValidation="true" CssClass="form-control input-sm"></asp:TextBox>
<asp:TextBox ID="TxtFechaInicioVac" runat="server" CausesValidation="true" CssClass="form-control input-sm" onblur="calculaFechasVacaciones();" ></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgTxtFechaInicioVac" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
@@ -3074,13 +3080,25 @@
<label>Fecha Inicial</label>
</div>
</div>
</div>
<asp:Panel runat="server" ID="PnlVacDiasPago" CssClass="col-md-3">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtVacDiasPago" CssClass="form-control input-sm form-small" type="number" runat="server" style="margin-top:20px!important" onblur="calculaFechasVacaciones();" ></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtVacDiasPago" style="margin-top:10px!important">Días pago</asp:Label>
</div>
</asp:Panel>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright " style="width: 100px !important">
<div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="width: 160px;">
<asp:TextBox ID="TxtFechaFinVac" runat="server" CausesValidation="true" CssClass="form-control input-sm"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgTxtFechaFinVac" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
<asp:TextBox ID="TxtFechaFinVac" runat="server" CausesValidation="true" CssClass="form-control input-sm" ClientIDMode="Static"></asp:TextBox>
<span class="input-group-btn " >
<asp:LinkButton ID="ImgTxtFechaFinVac" class="btn default " Text="<i class='fa fa-calendar'></i>" style="display:none!important" runat="server"></asp:LinkButton>
</span>
<ajax:MaskedEditExtender ID="MEETxtFechaFinVac" runat="server" TargetControlID="TxtFechaFinVac" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CETxtFechaFinVac" TargetControlID="TxtFechaFinVac" PopupButtonID="ImgTxtFechaFinVac" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
@@ -3093,7 +3111,7 @@
<asp:Panel runat="server" ID="PnlVacDias" CssClass="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright calendarlinealinput form-small">
<asp:TextBox ID="Txtdiasinabiles" runat="server" TextMode="Number" CausesValidation="true" CssClass="form-control input-sm form-small"></asp:TextBox>
<asp:TextBox ID="Txtdiasinabiles" runat="server" TextMode="Number" CausesValidation="true" CssClass="form-control input-sm form-small" ClientIDMode="Static"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="Txtdiasinabiles">Días feriados</asp:Label>
</div>
</div>
@@ -3119,12 +3137,7 @@
</div>
</div>
</div>
<asp:Panel runat="server" ID="PnlVacDiasPago" CssClass="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtVacDiasPago" CssClass="form-control input-sm form-small" type="number" runat="server"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtVacDiasPago">Días pago</asp:Label>
</div>
</asp:Panel>
</asp:Panel>
<asp:Panel runat="server" ID="PnlVacChecks" CssClass="row">
@@ -3141,6 +3154,9 @@
<asp:CheckBox ID="ChkVacCobrarIMSS" CssClass="chksino " Checked="true" Text=" " runat="server" />
</div>
</asp:Panel>
<asp:Button runat="server" ClientIDMode="Static" ID="LnkCalculaFechasVacaciones" OnClick="LnkCalculaFechasVacaciones_Click" style="display:none!important" ></asp:Button>
</ContentTemplate>
</asp:UpdatePanel>
</div>
@@ -5744,6 +5760,7 @@
</div>
<iframe id="my_iframe" style="display: none;"></iframe>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
<script src="/Metronic/assets/global/plugins/dropzone/dropzone.js"></script>
@@ -5758,6 +5775,30 @@
height: 50
});
$('[data-toggle="tooltip"]').tooltip();
$("#Txtdiasinabiles").prop("readonly", true);
$("#Txtdiasinabiles").on("paste", function (event) {
event.preventDefault();
});
$("#Txtdiasinabiles").on("contextmenu", function (event) {
if (event.which === 3) {
event.preventDefault();
}
});
$("#TxtFechaFinVac").prop("readonly", true);
$("#TxtFechaFinVac").on("paste", function (event) {
event.preventDefault();
});
$("#TxtFechaFinVac").on("contextmenu", function (event) {
if (event.which === 3) {
event.preventDefault();
}
});
});
}
@@ -7272,5 +7313,11 @@
return pstCURP
}
function calculaFechasVacaciones(){
$('#LnkCalculaFechasVacaciones').click();
}
</script>
</asp:Content>

121
RH/Personal.aspx.vb
View File

@@ -1048,22 +1048,14 @@ Partial Class RH_Personal
End Sub
Private Sub SetValues()
ViewState("Orden") = String.Empty
'DdlClienteAsignado.Attributes.Add("onclick", "CargaClientes();")
'DdlClienteAsistenciaC.Attributes.Add("onclick", "CargaClientes();")
'DdlClienteAsistenciaA.Attributes.Add("onclick", "CargaClientes();")
CargaClientes()
Dim fechainicioasistencia As String
Dim fechaFinasistencia As String
If Now.Day >= 15 Then
'fechainicioasistencia = String.Format("{0:01/MM/yyyy}", Now)
'fechaFinasistencia = String.Format("{0:15/MM/yyyy}", Now)
fechainicioasistencia = String.Format("{0:16/MM/yyyy}", Now)
Dim dateendasis As DateTime = String.Format("{0:01/MM/yyyy}", Now).ToDateTime().AddMonths(1).AddDays(-1)
fechaFinasistencia = String.Format("{0:dd/MM/yyyy}", dateendasis)
Else
'Dim dateendasis As DateTime = String.Format("{0:01/MM/yyyy}", Now).ToDateTime().AddDays(-1)
'fechainicioasistencia = String.Format("{0:16/MM/yyyy}", dateendasis)
'fechaFinasistencia = String.Format("{0:dd/MM/yyyy}", dateendasis)
fechainicioasistencia = String.Format("{0:01/MM/yyyy}", Now)
fechaFinasistencia = String.Format("{0:15/MM/yyyy}", Now)
End If
@@ -1089,12 +1081,18 @@ Partial Class RH_Personal
DdlSubProyectoAsistenciasC.SelectedValue = Request("CveSubProyecto")
End If
End If
'DdlProyectoAsistenciaC
'DdlSubProyectoAsistenciasC
End If
TxtFechaICredito.Text = $"01/01/{Now.Year}"
TxtFechaFCredito.Text = Now.ToShortDateString
If UsuarioActual.Empresa.Funcionalidad(509) = "1" Then
divCliente.Visible = True
tdCliente1.Visible = True
tdCliente2.Visible = True
GVAsistencia.Columns(1).Visible = True
End If
End Sub
Private Sub SetPermisos()
'Permisos
@@ -1147,20 +1145,29 @@ Partial Class RH_Personal
End Sub
Protected Sub cargaagrodeptos()
Using objrh As New ClsRH()
If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveTipoTrabajador ={0}", DdlTipoTrabajador.SelectedValue.ToEntero()))
Dim drow As DataRow = dt.NewRow()
drow("CveDepartamento") = "-1"
drow("Departamento") = "Seleccione"
dt.Rows.InsertAt(drow, 0)
If DDlAgroDepartamento.Items.Count() > 0 Then
DDlAgroDepartamento.SelectedValueExist("-1")
If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then 'empresa agricola
Using objrh As New ClsRH()
divAgroTipoTrabajador.Visible = True
divAgroDepto.Visible = True
divMedioTransporte.Visible = True
divAgro1.Visible = True
divAgro2.Visible = True
If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveTipoTrabajador ={0}", DdlTipoTrabajador.SelectedValue.ToEntero()))
Dim drow As DataRow = dt.NewRow()
drow("CveDepartamento") = "-1"
drow("Departamento") = "Seleccione"
dt.Rows.InsertAt(drow, 0)
If DDlAgroDepartamento.Items.Count() > 0 Then
DDlAgroDepartamento.SelectedValueExist("-1")
End If
DDlAgroDepartamento.DataSource = dt
DDlAgroDepartamento.DataBind()
End If
DDlAgroDepartamento.DataSource = dt
DDlAgroDepartamento.DataBind()
End If
End Using
End Using
End If
End Sub
Private Sub CargaEscolaridad()
DdlEscolaridad.DataSource = GlobalDTEscolaridad
@@ -1786,7 +1793,7 @@ Partial Class RH_Personal
salarioVariable = If(salarioVariable > 0, salarioVariable, 0)
TxtSalarioCotizado.Text = ObjPersonal.SalarioDiarioSS.ToString()
TxtFISalariodiario.Text = ObjPersonal.SalarioDiario.ToString()
TxtBono.Text = ObjPersonal.Bono.ToString()
'TxtBono.Text = ObjPersonal.Bono.ToString()
TxtNumDiasAguinaldo.Text = ObjPersonal.NumDiasAguinaldo.ToString()
TxtFIAguinaldo.Text = ObjPersonal.NumDiasAguinaldo.ToString()
TxtPorPrimaVacacional.Text = ObjPersonal.PorPrimaVacacional.ToString()
@@ -1889,6 +1896,8 @@ Partial Class RH_Personal
TxtFechaFinVac.Text = Now.AddDays(VacDiasDisponibles).ToString("dd/MM/yyyy")
'PERSONAL ALTAS
If ObjPersonal.GetPersonalAltas(CvePersonal) Then
GvPersonalAltas.DataSource = ObjPersonal.DtResultados
@@ -3746,7 +3755,7 @@ Partial Class RH_Personal
params.Add(New ReportParameter("SDD", ObjPersonal.SalarioDiario.ToString()))
params.Add(New ReportParameter("SDI", ObjPersonal.SDI.ToString()))
params.Add(New ReportParameter("SalarioIMSS", ObjPersonal.SalarioDiarioSS.ToString()))
params.Add(New ReportParameter("Bono", ObjPersonal.Bono.ToString()))
params.Add(New ReportParameter("Bono", ""))
params.Add(New ReportParameter("DiasAguinaldo", ObjPersonal.NumDiasAguinaldo.ToString()))
params.Add(New ReportParameter("PrimaVacacional", ObjPersonal.PorPrimaVacacional.ToString()))
params.Add(New ReportParameter("MetodoPago", If(DdlMetodoPago.SelectedValue = "-1", "", DdlMetodoPago.SelectedItem.Text)))
@@ -3836,7 +3845,7 @@ Partial Class RH_Personal
params.Add(New ReportParameter("SDD", ObjPersonal.SalarioDiario.ToString()))
params.Add(New ReportParameter("SDI", ObjPersonal.SDI.ToString()))
params.Add(New ReportParameter("SalarioIMSS", ObjPersonal.SalarioDiarioSS.ToString()))
params.Add(New ReportParameter("Bono", ObjPersonal.Bono.ToString()))
params.Add(New ReportParameter("Bono", ""))
params.Add(New ReportParameter("DiasAguinaldo", ObjPersonal.NumDiasAguinaldo.ToString()))
params.Add(New ReportParameter("PrimaVacacional", ObjPersonal.PorPrimaVacacional.ToString()))
params.Add(New ReportParameter("MetodoPago", If(DdlMetodoPago.SelectedValue = "-1", "", DdlMetodoPago.SelectedItem.Text)))
@@ -7807,5 +7816,65 @@ Partial Class RH_Personal
#End Region
Protected Sub LnkSolicitarVacaciones_Click(sender As Object, e As EventArgs)
TxtVacDiasPago.Text = VacDiasDisponibles.ToString
Dim diaDescanso As Integer = GlobalDTTurno(UsuarioActual.CveEmpresa).FiltroPrimeroValor("DiaDescanso", $" CveTurno = {DdlTurno.SelectedValue.ToEntero}").ToEntero
diaDescanso = If(diaDescanso <= 0, 1, diaDescanso)
ContarDiasDeLaSemana(TxtFechaInicioVac.Text.ToDate, TxtVacDiasPago.Text.ToEntero)
If Not diaDescanso > 0 Then
Alert("El turno no tiene día de descanso, provisionalmente se tomara el domingo.", TipoMensaje.MsgAdvertencia)
End If
RegistraScript("$('#ModalAddVacaciones').modal('show');")
End Sub
Private Sub ContarDiasDeLaSemana(fechaInicio As Date, diasVacaciones As Integer)
If TxtVacDiasPago.Text.ToEntero > VacDiasDisponibles Then
TxtVacDiasPago.Text = VacDiasDisponibles.ToString
End If
Dim diaDescanso As Integer = GlobalDTTurno(UsuarioActual.CveEmpresa).FiltroPrimeroValor("DiaDescanso", $" CveTurno = {DdlTurno.SelectedValue.ToEntero}").ToEntero
diaDescanso = If(diaDescanso <= 0, 1, diaDescanso)
Dim DiasAgregados As Integer = 0
Dim FechaFin As Date = fechaInicio
For x = 2 To diasVacaciones
Dim day_of_week = CType(FechaFin.DayOfWeek, Integer) + 1
If day_of_week = diaDescanso Then
FechaFin = FechaFin.AddDays(2)
DiasAgregados = DiasAgregados + 1
Else
FechaFin = FechaFin.AddDays(1)
day_of_week = CType(FechaFin.DayOfWeek, Integer) + 1
If day_of_week = diaDescanso Then
DiasAgregados = DiasAgregados + 1
End If
End If
Next
TxtFechaFinVac.Text = FechaFin.ToString
Txtdiasinabiles.Text = DiasAgregados.ToString
UpSolicitarVacaciones.Update()
End Sub
Protected Sub LnkCalculaFechasVacaciones_Click(sender As Object, e As EventArgs)
ContarDiasDeLaSemana(TxtFechaInicioVac.Text.ToDate, TxtVacDiasPago.Text.ToEntero)
End Sub
End Class

42
SigAyuda.aspx
View File

@@ -621,6 +621,48 @@
</ul>
</div>
<%-- O I --%>
<div class="mt-list-container list-todo">
<div class="list-todo-line"></div>
<ul>
<li class="mt-list-item">
<div class="list-todo-icon bg-white">
<i class="fa fa-users"></i>
</div>
<div class="list-todo-item grey">
<a class="list-toggle-container font-white" data-toggle="collapse" href="#divtaskOI" aria-expanded="false">
<div class="list-toggle done uppercase">
<div class="list-toggle-title bold">Organización Interna</div>
<div class="badge badge-default pull-right bold">1</div>
</div>
</a>
<div class="task-list panel-collapse collapse " id="divtaskOI" runat="server" ClientIDMode="Static">
<ul>
<li class="task-list-item done">
<div class="task-icon">
<a href="javascript:;">
<i class="fa fa-file-pdf-o fa-3"></i>
</a>
</div>
<div class="task-status">
<a class="done" href="javascript:downFile('Manuales/OI/Manual OI.pdf');">
<i class="fa fa-download fa-3"></i>
</a>
</div>
<div class="task-content">
<h4 class="uppercase bold">Manual OI
</h4>
</div>
</li>
</ul>
</div>
</div>
</li>
</ul>
</div>
<%--</div>
<div class="tab-content">

51
SigAyuda.aspx.vb
View File

@@ -1,32 +1,45 @@

Partial Class Metronic_SigAyuda
Inherits System.Web.UI.Page
Option Explicit On
Option Strict On
Imports Extensiones
Partial Class Metronic_SigAyuda
Inherits ClsPaginas
Private Sub Metronic_SigAyuda_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
If usuarioActual.CveEmpresa.Contiene(13, 83) Then
divtaskOI.Visible = True
End If
End If
End Sub
Protected Sub btnDownload_Click(sender As Object, e As EventArgs)
Try
Dim docto As String = TxtDocto.Text.Replace("/", "\")
Dim path As String = $"{AppDomain.CurrentDomain.BaseDirectory}{docto}"
Dim file As New System.IO.FileInfo(path)
Dim mimeType As String = "text/plain"
Try
mimeType = MimeMapping.GetMimeMapping(path)
Catch ex As Exception
End Try
'Response.Write(path)
Response.Clear()
Response.ClearHeaders()
Response.ClearContent()
Response.AddHeader("Content-Disposition", $"attachment; filename= {Uri.EscapeDataString(file.Name)}")
Response.AddHeader("Content-Length", file.Length.ToString())
Response.ContentType = mimeType
Response.Flush()
Response.TransmitFile(file.FullName)
Response.End()
Dim mimeType As String = "text/plain"
Try
mimeType = MimeMapping.GetMimeMapping(path)
Catch ex As Exception
End Try
'Response.Write(path)
Response.Clear()
Response.ClearHeaders()
Response.ClearContent()
Response.AddHeader("Content-Disposition", $"attachment; filename= {Uri.EscapeDataString(file.Name)}")
Response.AddHeader("Content-Length", file.Length.ToString())
Response.ContentType = mimeType
Response.Flush()
Response.TransmitFile(file.FullName)
Response.End()
Catch ex As Exception
'GuardaLog($"GenerateFile: {ex.ToString()}")
End Try
End Sub
End Class

2
Sistemas/UsuarioDetalle.aspx.vb
View File

@@ -3838,7 +3838,7 @@ Partial Class Sistemas_UsuarioDetalle
Dim Retorno = False
If CveUsuarioClonado > 0 Then
If ObjUsuarios.ClonarUsuario(CveUsuario, CveUsuarioClonado, ChkEmpresas.Checked, ChkModulos.Checked, ChkPermisos.Checked, ChkProyectos.Checked, ChkAlmacenes.Checked, ChkEstatusOC.Checked, ChkEstatusOS.Checked) Then
If ObjUsuarios.ClonarUsuario(CveUsuario, CveUsuarioClonado, ChkEmpresas.Checked, ChkModulos.Checked, ChkPermisos.Checked, ChkProyectos.Checked, ChkAlmacenes.Checked, ChkEstatusOC.Checked, ChkEstatusOS.Checked, UsuarioActual.CveUsuario) Then
Alert("El usuario fue clonado con exito.", TipoMensaje.MsgInformacion, "document.location.href=""/Sistemas/Usuarios.aspx"";")
Retorno = True
Else

122
Site.master.vb
View File

@@ -1,17 +1,12 @@
Option Explicit On
Option Strict On
Imports System.Activities.Statements
Imports System.Data
Imports System.IO
Imports System.Security.Cryptography.X509Certificates
Imports ADSNetLibrary.SIGAPI.Services.SAT.DescargaCFDI
Imports DocumentFormat.OpenXml.Math
Imports DocumentFormat.OpenXml.Packaging
Imports DocumentFormat.OpenXml.Spreadsheet
Imports Extensiones
'Imports Microsoft.AspNet.SignalR.Client
'Imports ChatHub
Partial Class Site
Inherits BaseMasterPage
@@ -383,19 +378,6 @@ Partial Class Site
dt.ReadXml(String.Format("{0}\Menu\ERP\{1}.xml", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveUsuario))
End If
'Dim Inicio = From i In dt.AsEnumerable Where i!CvePadre.Equals(0) Order By i!Orden
'Dim CveModuloPadre, CveModuloPadreSeleccionado, CveModuloHijoSeleccionado, CveModuloNietoSeleccionado As Integer
'Dim CveModulo As Integer = CveModulomasterpage.Text.ToEntero()
'Dim ScriptColorGrupoModulo As String = ""
'Dim LinkBase = "javascript:;"
'Dim HeaderBar As New StringBuilder("<li><i class='fa fa-home'></i><a href='/Inicio.aspx'>Inicio</a>")
'Dim LinkPadre = ""
'Dim Linkpapa As String = ""
'Dim LinkHijo = ""
'Dim Linkson As String = ""
'Dim LinkNieto = ""
'Dim ClassActive As String
'CveModuloPadreSeleccionado = 0 : CveModuloHijoSeleccionado = 0 : CveModuloNietoSeleccionado = 0
Dim menuobj = New MenuModal()
menuobj.dt = dt
menuobj.CveModuloSeleccionado = CveModulomasterpage.Text.ToEntero()
@@ -408,116 +390,14 @@ Partial Class Site
menuobj.HeaderBar.Append(stritem)
Next
'Dim MenuHTML As New StringBuilder
'For Each drP As DataRow In Inicio
' CveModuloPadre = drP("CveModulo").ToString().ToEntero()
' LinkPadre = drP("LIGA").ToString()
' If drP("PopUp").ToString() = "S" Then LinkPadre = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drP("LIGA"), drP("ANCHO"), drP("ALTO"))
' Dim Hijos = From h In dt.AsEnumerable Where h!CvePadre.Equals(CveModuloPadre) Order By h!Orden
' If CveModulo = drP("CveModulo").ToString().ToEntero() Then
' HeaderBar.AppendFormat("<i class='fa fa-angle-right'></i></li> <li><a href='{0}'>{1}</a>", LinkPadre, drP("Modulo").ToString())
' ScriptColorGrupoModulo = ColorPage(drP("CveGrupoModulo").ToString().ToEntero())
' End If
' If Hijos.Count > 0 Then
' Linkpapa = LinkPadre
' LinkPadre = LinkBase
' MenuHTML.AppendFormat("<li id='m{3}'><a href='{0}'>{2}<span class='title'>{1}</span><span id='j{3}' ></span><span class='arrow '></span></a><ul class='sub-menu'>", LinkPadre, drP("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drP("Estilo")), ""), drP("CveModulo"))
' For Each drH As DataRow In Hijos
' Dim CveModuloHijo As Integer = drH("CveModulo").ToString().ToEntero()
' LinkHijo = drH("LIGA").ToString()
' If (drH("IsAngular").ToString() = "1") Then
' LinkHijo = String.Format("{1}:84{0}", drH("LIGA"), strdomain)
' End If
' If CveModulo = drH("CveModulo").ToString().ToEntero() Then
' CveModuloPadreSeleccionado = CveModuloPadre
' ClassActive = "class='active'"
' HeaderBar.AppendFormat("<i class='fa fa-angle-right'></i> </li><li><a href='{0}'>{1}</a> <i class='fa fa-angle-right'></i> </li><li><a href='{2}'>{3}</a>", Linkpapa, drP("Modulo").ToString(), LinkHijo, drH("Modulo").ToString())
' ScriptColorGrupoModulo = ColorPage(drH("CveGrupoModulo").ToString().ToEntero())
' Else
' ClassActive = ""
' End If
' If drH("PopUp").ToString() = "S" Then LinkHijo = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drH("LIGA"), drH("ANCHO"), drH("ALTO"))
' Dim Nietos = From h In dt.AsEnumerable Where h!CvePadre.Equals(CveModuloHijo) Order By h!Orden
' If Nietos.Count > 0 Then
' Linkson = LinkHijo
' LinkHijo = LinkBase
' MenuHTML.AppendFormat("<li id='m{3}'><a href='{0}'>{2}{1}<span class='arrow '></span> </a><ul class='sub-menu'>", LinkHijo, drH("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drH("Estilo")), ""), drH("CveModulo"))
' For Each drN As DataRow In Nietos
' LinkNieto = drN("LIGA").ToString()
' If (drN("IsAngular").ToString() = "1") Then
' LinkNieto = String.Format("{1}:84{0}", drN("LIGA"), strdomain)
' End If
' If CveModulo = drN("CveModulo").ToString().ToEntero() Then
' CveModuloPadreSeleccionado = CveModuloPadre : CveModuloHijoSeleccionado = CveModuloHijo
' ClassActive = "class='active'"
' HeaderBar.AppendFormat("<i class='fa fa-angle-right'></i> </li><li><a href='{0}'>{1}</a> <i class='fa fa-angle-right'></i> </li><li><a href='{2}'>{3}</a> <i class='fa fa-angle-right'></i> </li><li><a href='{4}'>{5}</a>", Linkpapa, drP("Modulo").ToString(), Linkson, drH("Modulo").ToString(), LinkNieto, drN("Modulo"))
' ScriptColorGrupoModulo = ColorPage(drN("CveGrupoModulo").ToString().ToEntero())
' Else
' ClassActive = ""
' End If
' If drN("PopUp").ToString() = "S" Then LinkNieto = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drN("LIGA"), drN("ANCHO"), drN("ALTO"))
' Dim bizNietos = From h In dt.AsEnumerable Where h!CvePadre.Equals(drN("CveModulo").ToString().ToEntero()) Order By h!Orden
' Dim LinkBizNieto As String
' If bizNietos.Count = 0 Then
' MenuHTML.AppendFormat("<li id='m{4}'{3}><a href=""{0}"">{2}{1}</a></li>", LinkNieto, drN("Modulo"), If(drN("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drN("Estilo")), ""), ClassActive, drN("CveModulo").ToString().ToEntero())
' Else
' MenuHTML.AppendFormat("<li id='m{3}'><a href='{0}'>{2}{1}<span class='arrow '></span> </a><ul class='sub-menu'>", LinkNieto, drN("Modulo"), If(drN("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drN("Estilo")), ""), drN("CveModulo"))
' For Each drBN As DataRow In bizNietos
' LinkBizNieto = drBN("LIGA").ToString()
' If (drBN("IsAngular").ToString() = "1") Then
' LinkBizNieto = String.Format("{1}:84{0}", drBN("LIGA"), strdomain)
' End If
' If CveModulo = drBN("CveModulo").ToString().ToEntero() Then
' CveModuloPadreSeleccionado = CveModuloPadre : CveModuloHijoSeleccionado = CveModuloHijo
' ClassActive = "class='active'"
' HeaderBar.AppendFormat("<i class='fa fa-angle-right'></i> </li><li><a href='{0}'>{1}</a> <i class='fa fa-angle-right'></i> </li><li><a href='{2}'>{3}</a> <i class='fa fa-angle-right'></i> </li><li><a href='{4}'>{5}</a> <i class='fa fa-angle-right'></i> </li><li><a href='{6}'>{7}</a>", Linkpapa, drP("Modulo").ToString(), Linkson, drH("Modulo").ToString(), LinkNieto, drN("Modulo"), LinkBizNieto, drBN("Modulo"))
' ScriptColorGrupoModulo = ColorPage(drBN("CveGrupoModulo").ToString().ToEntero())
' Else
' ClassActive = ""
' End If
' If drBN("PopUp").ToString() = "S" Then LinkBizNieto = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drBN("LIGA"), drBN("ANCHO"), drBN("ALTO"))
' MenuHTML.AppendFormat("<li id='m{4}'{3}><a href=""{0}"">{2}{1}</a></li>", LinkBizNieto, drBN("Modulo"), If(drBN("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drBN("Estilo")), ""), ClassActive, drBN("CveModulo").ToString().ToEntero())
' Next
' MenuHTML.AppendFormat("</ul></li>")
' End If
' Next
' MenuHTML.AppendFormat("</ul></li>")
' Else
' MenuHTML.AppendFormat("<li {3}><a href=""{0}"">{2}{1}</a></li>", LinkHijo, drH("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drH("Estilo")), ""), ClassActive)
' End If
' Next
' MenuHTML.AppendFormat("</ul></li>")
' Else
' MenuHTML.AppendFormat("<li><a href=""{0}"">{2}<span class='title'>{1}</span></a></li>", LinkPadre, drP("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drP("Estilo")), ""))
' End If
'Next
'If CveModuloPadreSeleccionado > 0 Then
' menuobj.MenuHTML = menuobj.MenuHTML.Replace(String.Format("id='m{0}'", CveModuloPadreSeleccionado), String.Format("id='m{0}' class='active open'", CveModuloPadreSeleccionado))
' menuobj.MenuHTML = menuobj.MenuHTML.Replace(String.Format("id='j{0}'", CveModuloPadreSeleccionado), String.Format("id='j{0}' class='selected'", CveModuloPadreSeleccionado))
'Else
'End If
'If CveModuloHijoSeleccionado > 0 Then
' menuobj.MenuHTML = menuobj.MenuHTML.Replace(String.Format("id='m{0}'", CveModuloHijoSeleccionado), String.Format("id='m{0}' class='open'", CveModuloHijoSeleccionado))
' menuobj.MenuHTML = menuobj.MenuHTML.Replace(String.Format("id='j{0}'", CveModuloHijoSeleccionado), String.Format("id='j{0}' class='selected'", CveModuloHijoSeleccionado))
'End If
'HeaderBar.AppendFormat("</li>")
menuobj.HeaderBar.AppendFormat("{0}", menuobj.ScriptColorGrupoModulo)
BarraNavegacion.Text = menuobj.HeaderBar.ToString()
'CargaMenu(MenuHTML)
Menu.Text = menuobj.MenuHTML.ToString()
menuobj.MenuHTML.Clear()
menuobj.HeaderBar.Clear()
End Sub
Private Function ColorPage(value As Integer) As String
Select Case value

12
Ventas/CatClasificacionesDetalle.aspx.vb
View File

@@ -40,10 +40,7 @@ Partial Class CatClasificacionesDetalle
If CargaDatos() Then
DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
DdlCategoria.DataBind()
If UsuarioActual.Empresa.UsaContabilidad Then
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
Dim Cuenta As New ClsContPAQi(UsuarioActual.Empresa)
If Cuenta.GetCuentas(-1, "-1", -1) Then
@@ -100,8 +97,8 @@ Partial Class CatClasificacionesDetalle
Dim Retorno As Boolean = False
Dim ObjClasificaciones As New ClsClasificaciones
If ObjClasificaciones.GetClasificaciones() Then
Dim dr As DataRow = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveClasificacion = {0} AND CveEmpresa = {1}", CveClasificacion, UsuarioActual.CveEmpresa)).FiltroPrimero("")
If ObjClasificaciones.GetClasificaciones(CveEmpresa:=UsuarioActual.CveEmpresa) Then
Dim dr As DataRow = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveClasificacion = {0} ", CveClasificacion)).FiltroPrimero("")
If dr IsNot Nothing Then
TxtClasificacion.Text = dr("Clasificacion").ToString
@@ -110,6 +107,8 @@ Partial Class CatClasificacionesDetalle
DdlCuentaCostos.SelectedValue = dr("IdCuentaCostos").ToString
DdlCuentaIngresos.SelectedValue = dr("IdCuentaIngresos").ToString
DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
DdlCategoria.DataBind()
DdlCategoria.SelectedValue = dr("CveCategoria").ToString
ChkEstado.Checked = dr("Estatus").ToString = "Activo"
@@ -123,6 +122,7 @@ Partial Class CatClasificacionesDetalle
Me.GvDatos.DataSource = Nothing
End If
End If
End If

154
Ventas/Clientes.aspx
View File

@@ -393,9 +393,6 @@
</div>
</div>
</div>
<div class="row" runat="server" id="DivPersonaFisica" visible="false">
<div class="col-md-4 form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtApellidoPaterno" CssClass="form-control " runat="server" MaxLength="150"></asp:TextBox>
@@ -416,8 +413,6 @@
<i></i>
</div>
</div>
<div class="form-group form-md-line-input input-iconright ">
<asp:TextBox ID="TxtNombreComercial" CssClass="form-control" runat="server" MaxLength="200" ClientIDMode="Static"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVNombreComercial" runat="server" ControlToValidate="TxtNombreComercial" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre Comercial''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -432,15 +427,21 @@
<label for="<%= TxtRFC.ClientID.ToString()%>">RFC:</label>
<i></i>
</div>
<div class="form-group form-md-line-input">
<asp:TextBox ID="TxtCodigo" runat="server" OnTextChanged="TxtCodigo_TextChanged" AutoPostBack="true" CssClass="form-control" MaxLength="25"></asp:TextBox>
<label for="<%= TxtCodigo.ClientID.ToString()%>">Código:</label>
</div>
<div class="form-group form-md-line-input">
<asp:TextBox ID="TxtNombreCorto" runat="server" CssClass="form-control" MaxLength="10"></asp:TextBox>
<label for="<%= TxtNombreCorto.ClientID.ToString()%>">Nombre Corto: </label>
<div class="row">
<div class="col-md-6 ">
<div class="form-group form-md-line-input">
<asp:TextBox ID="TxtCodigo" runat="server" OnTextChanged="TxtCodigo_TextChanged" AutoPostBack="true" CssClass="form-control" MaxLength="25"></asp:TextBox>
<label for="<%= TxtCodigo.ClientID.ToString()%>">Código:</label>
</div>
</div>
<div class="col-md-6 ">
<div class="form-group form-md-line-input">
<asp:TextBox ID="TxtNombreCorto" runat="server" CssClass="form-control" MaxLength="10"></asp:TextBox>
<label for="<%= TxtNombreCorto.ClientID.ToString()%>">Nombre Corto: </label>
</div>
</div>
</div>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtDireccion" runat="server" CssClass="form-control" MaxLength="90"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVDireccion" runat="server" ControlToValidate="TxtDireccion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Dirección''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -531,7 +532,7 @@
<div class="col-md-12">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlRegimenFiscal" DataTextField="CodigoRegimenFiscalTexto" Width="100%" DataValueField="CveRegimenFiscal" runat="server" CssClass="form-control input-sm select2me">
<asp:DropDownList ID="DdlRegimenFiscal" DataTextField="CodigoRegimenFiscalTexto" AutoPostBack ="true" Width="100%" DataValueField="CveRegimenFiscal" runat="server" CssClass="form-control input-sm select2me">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVRegimenFiscal" runat="server" InitialValue="-1" ControlToValidate="DdlRegimenFiscal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Regimen Fiscal''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -577,32 +578,30 @@
<label for="<%= TxtContacto.ClientID.ToString()%>">Contacto Compras: </label>
</div>
<div class="row">
<div class="col-md-8">
<div class="form-group form-md-line-input">
<asp:TextBox ID="TxtTelefono" CssClass="form-control" runat="server" MaxLength="10" ValidationGroup="GrpGuardar"></asp:TextBox>
<ajax:MaskedEditExtender ID="MEETelefono" runat="server" TargetControlID="TxtTelefono" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
<label for="<%= TxtTelefono.ClientID.ToString()%>">Teléfono: </label>
<div class="col-md-6">
<div class="col-md-8">
<div class="form-group form-md-line-input">
<asp:TextBox ID="TxtTelefono" CssClass="form-control" runat="server" MaxLength="10" ValidationGroup="GrpGuardar"></asp:TextBox>
<ajax:MaskedEditExtender ID="MEETelefono" runat="server" TargetControlID="TxtTelefono" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
<label for="<%= TxtTelefono.ClientID.ToString()%>">Teléfono: </label>
</div>
</div>
</div>
<div class="col-md-4">
<div class="form-group form-md-line-input">
<asp:TextBox ID="TxtExtension" CssClass="form-control" runat="server" MaxLength="10" ValidationGroup="GrpGuardar"></asp:TextBox>
<label for="<%= TxtExtension.ClientID.ToString()%>">Ext: </label>
</div>
</div>
</div>
<div class="row">
<div class="col-md-8">
<div class="form-group form-md-line-input">
<asp:TextBox ID="TxtTelefonoOtro" CssClass="form-control" runat="server" MaxLength="150"></asp:TextBox>
<ajax:MaskedEditExtender ID="MaskedEditExtender3" runat="server" TargetControlID="TxtTelefonoOtro" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
<label for="<%= TxtTelefonoOtro.ClientID.ToString()%>">Teléfono Otro: </label>
<div class="col-md-4">
<div class="form-group form-md-line-input">
<asp:TextBox ID="TxtExtension" CssClass="form-control" runat="server" MaxLength="10" ValidationGroup="GrpGuardar"></asp:TextBox>
<label for="<%= TxtExtension.ClientID.ToString()%>">Ext: </label>
</div>
</div>
</div>
<div>
<div class="col-md-6">
<div class="col-md-8">
<div class="form-group form-md-line-input">
<asp:TextBox ID="TxtTelefonoOtro" CssClass="form-control" runat="server" MaxLength="150"></asp:TextBox>
<ajax:MaskedEditExtender ID="MaskedEditExtender3" runat="server" TargetControlID="TxtTelefonoOtro" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
<label for="<%= TxtTelefonoOtro.ClientID.ToString()%>">Teléfono Otro: </label>
</div>
</div>
<div class="col-md-4">
<div class="form-group form-md-line-input">
<asp:TextBox ID="TxtExtOtro" CssClass="form-control" runat="server" MaxLength="10" ValidationGroup="GrpGuardar"></asp:TextBox>
@@ -611,7 +610,6 @@
</div>
</div>
</div>
<div class="form-group form-md-line-input">
<asp:TextBox ID="TxtCelular" CssClass="form-control" runat="server" MaxLength="150"></asp:TextBox>
<ajax:MaskedEditExtender ID="MaskedEditExtender5" runat="server" TargetControlID="TxtCelular" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
@@ -1028,7 +1026,7 @@
<HeaderTemplate>
<asp:UpdatePanel runat="server">
<ContentTemplate>
<asp:Label runat="server" Text="Fiscal/Contable" ID="HeedarContable"></asp:Label>
<asp:Label runat="server" Text="Fiscal/Contable" ID="HeaderContable"></asp:Label>
</ContentTemplate>
</asp:UpdatePanel>
</HeaderTemplate>
@@ -1052,29 +1050,19 @@
</div>
</div>
<div class="portlet-body form">
<%-- <div class="form-group form-md-line-input">
<asp:TextBox ID="TxtConvenioCIE" CssClass="form-control" runat="server" MaxLength="50" Enabled="false"></asp:TextBox>
<label for="<%= TxtConvenioCIE.ClientID.ToString()%>">Convenio CIE:</label>
</div>--%>
<div class="form-group form-md-line-input">
<asp:TextBox ID="TxtReferenciaFiscal" CssClass="form-control" runat="server" Enabled="false"></asp:TextBox>
<label for="<%= TxtReferenciaFiscal.ClientID.ToString()%>">Referencia:</label>
</div>
<%-- <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtNumCtaPago" CssClass="form-control" runat="server" MaxLength="30" Enabled="false"></asp:TextBox>
<label for="<%= TxtNumCtaPago.ClientID.ToString()%>">Número de cuenta de Pago: </label>
<i></i>
</div>--%>
<%-- <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlMetodoPago" CssClass="form-control select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="MetodoPago" DataValueField="CveMetodoPago" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<label for="<%= DdlMetodoPago.ClientID.ToString()%>">Método de Pago:</label>
<asp:RequiredFieldValidator ID="RFVMetodoPago" runat="server" ControlToValidate="DdlMetodoPago" CssClass="help-block" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Método de Pago''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<i></i>
</div>--%>
<div id="DivRetenciones" runat="server">
<div class="row">
<div class="col-md-6">
<div id="DivRetIVA" runat="server" class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtRetIVA" CssClass="form-control" runat="server" MaxLength="9" Text="0"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVRetIVA" class="help-block errorimput" runat="server" ControlToValidate="TxtRetIVA" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Retención de IVA''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="CVRetIVA" class="help-block errorimput" runat="server" ControlToValidate="TxtRetIVA" ErrorMessage="El campo <b>''Retención de IVA''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Double" ValidationGroup="GrpGuardar"></asp:CompareValidator>
<label for="<%= TxtRetIVA.ClientID.ToString()%>">¿El Cliente nos retiene IVA?: </label>
<i style="font-weight: bold;">%</i>
</div>
</div>
<div class="col-md-6">
<div id="DivTipoRetenciones" runat="server" visible="false" class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlTipoRetencion" ToolTip="Al establecer la retención de servicios, deberá especificarse el producto, como outsourcing para que se aplique la retención."
@@ -1083,22 +1071,12 @@
<asp:ListItem Text="Arrendamiento" Value="1"></asp:ListItem>
<asp:ListItem Text="Servicios Profesionales" Value="2"></asp:ListItem>
<asp:ListItem Text="Fletes" Value="3"></asp:ListItem>
<asp:ListItem Text="Servicios" Value="4"></asp:ListItem>
</asp:DropDownList>
<label for="<%= DdlTipoRetencion.ClientID.ToString()%>">Tipo de Retención de IVA:</label>
<asp:RequiredFieldValidator ID="RFVTipoRetencion" runat="server" ControlToValidate="DdlTipoRetencion" CssClass="help-block" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Retención''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<i></i>
</div>
</div>
<div class="col-md-6">
<div id="DivRetIVA" runat="server" class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtRetIVA" CssClass="form-control" runat="server" MaxLength="9" Text="0"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVRetIVA" class="help-block errorimput" runat="server" ControlToValidate="TxtRetIVA" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Retención de IVA''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="CVRetIVA" class="help-block errorimput" runat="server" ControlToValidate="TxtRetIVA" ErrorMessage="El campo <b>''Retención de IVA''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Double" ValidationGroup="GrpGuardar"></asp:CompareValidator>
<label for="<%= TxtRetIVA.ClientID.ToString()%>">¿El Cliente nos retiene IVA?: </label>
<i style="font-weight: bold;">%</i>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
@@ -1118,7 +1096,10 @@
¿El Cliente nos retiene IVA por Fletes y Acarreos?:
<asp:CheckBox ID="ChkRetIVAFletesAcarreos" CssClass="make-switchsd" runat="server" />
</div>
<br />
<div class="form-group form-md-line-input" style="display:none;">
<asp:TextBox ID="TxtReferenciaFiscal" CssClass="form-control" runat="server" Enabled="false"></asp:TextBox>
<label for="<%= TxtReferenciaFiscal.ClientID.ToString()%>">Referencia:</label>
</div>
<br />
<div class="caption font-blue">
@@ -1126,8 +1107,8 @@
<span class="caption-subject bold uppercase">CFDI Versión</span>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlUsoCFDI" CssClass="form-control select2me" runat="server" Width="250" AppendDataBoundItems="true" CausesValidation="true" DataTextField="UsoCFDIDescripcion" DataValueField="CveUsoCFDI" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
<asp:DropDownList ID="DdlUsoCFDI" CssClass="form-control select2me" runat="server" Width="250" AppendDataBoundItems="false" CausesValidation="true" DataTextField="UsoCFDIDescripcion" DataValueField="CveUsoCFDI" ValidationGroup="GrpGuardar">
<asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<label for="<%= DdlUsoCFDI.ClientID.ToString()%>">Uso CFDI:</label>
<asp:RequiredFieldValidator ID="RFVUsoCFDI" runat="server" InitialValue="-1" ControlToValidate="DdlUsoCFDI" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''USO CFDI''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -1135,7 +1116,7 @@
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlMetodoPago33" CssClass="form-control select2me" runat="server" Width="250" AppendDataBoundItems="true" CausesValidation="true" DataTextField="MetodoPagoSAT" DataValueField="CveMetodoPago" ValidationGroup="GrpGuardar" AutoPostBack="true"
<asp:DropDownList ID="DdlMetodoPago33" CssClass="form-control select2me" runat="server" Width="250" AppendDataBoundItems="true" CausesValidation="true" DataTextField="MetodoPagoSAT" DataValueField="CveMetodoPago" AutoPostBack="true"
OnSelectedIndexChanged="DdlMetodoPago33_SelectedIndexChanged">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
@@ -1143,21 +1124,26 @@
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlFormaPago33" CssClass="form-control select2me" runat="server" Width="250" AppendDataBoundItems="true" CausesValidation="true" DataTextField="FormaPagoSAT" DataValueField="CveFormaPago" ValidationGroup="GrpGuardar">
<asp:DropDownList ID="DdlFormaPago33" CssClass="form-control select2me" runat="server" Width="250" AppendDataBoundItems="true" CausesValidation="true" DataTextField="FormaPagoSAT" DataValueField="CveFormaPago">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<label for="<%= DdlFormaPago33.ClientID.ToString()%>">Forma Pago:</label>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input" id="DivDesglosaIEPS" runat="server">
El cliente desglosa IEPS:
<div class="form-group form-md-line-input" id="DivDesglosaIEPS" runat="server">
El cliente desglosa IEPS:
<asp:CheckBox ID="ChkDesglosarIEPS" Checked="true" CssClass="make-switchsd" data-size="small" runat="server" />
</div>
<div class="form-group form-md-line-input" id="DivNoDesglosaIVA" runat="server">
El cliente No desglosa IVA:
<asp:CheckBox ID="ChkNoDesglosaIVA" Checked="false" CssClass="make-switchsd" data-size="small" runat="server" />
</div>
<asp:CheckBox ID="ChkDesglosarIEPS" Checked="true" CssClass="make-switchsd" data-size="small" runat="server" />
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input" id="DivNoDesglosaIVA" runat="server">
El cliente No desglosa IVA:
<asp:CheckBox ID="ChkNoDesglosaIVA" Checked="false" CssClass="make-switchsd" data-size="small" runat="server" />
</div>
</div>
</div>
<br />
@@ -4636,7 +4622,7 @@
<asp:Button ID="BtnGuardar" runat="server" CssClass="btn btn-primary" Text="Guardar" Visible="false" ValidationGroup="GrpGuardar" />
<asp:Button ID="BtnEliminar" runat="server" CssClass="btn btn-danger" Text="Eliminar" Visible="false" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
<asp:Button ID="BtnCancelar" runat="server" CssClass="btn btn-default" Text="Cancelar" Visible="false" OnClientClick="javascript:window.location.href='/Ventas/CatClientes.aspx'; return false;" />
<asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
<asp:ValidationSummary ID="VSGuardar" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
</ContentTemplate>
</asp:UpdatePanel>
</td>

41
Ventas/Clientes.aspx.vb
View File

@@ -1436,7 +1436,7 @@ Partial Class Clientes
DdlMonedaExtranjeraAnticipos.SelectedValue = IdCtaMonedaExtranjeraAnticipos
ActivarRegistroAutomatico()
HeedarContable.Attributes.Remove("onclick")
HeaderContable.Attributes.Remove("onclick")
UpFiscalContable.Update()
End Sub
@@ -2061,30 +2061,38 @@ Partial Class Clientes
End Sub
Private Sub CargaFormaPago33()
DdlFormaPago33.Items.Clear()
DdlFormaPago33.DataSource = GlobalDTVtaFormaPago
DdlFormaPago33.DataBind()
'DdlFormaPago33.Items.Clear()
'DdlFormaPago33.DataSource = GlobalDTVtaFormaPago
'DdlFormaPago33.DataBind()
CargaFormaDePago()
DdlSucursalFormaPago33.Items.Clear()
DdlSucursalFormaPago33.DataSource = GlobalDTVtaFormaPago
DdlSucursalFormaPago33.DataBind()
End Sub
Private Sub CargaComboCFDI()
Dim RegimenFiscalCliente = DdlRegimenFiscal.SelectedValue.ToString()
'If Not UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then
' RegimenFiscalCliente = "-1"
'End If
Dim RegimenFiscalCliente As String = "-1"
If DdlRegimenFiscal.SelectedValue <> "-1" Then RegimenFiscalCliente = GlobalDTRegimenesFiscales(-1).FiltroPrimeroValor("CodigoRegimenFiscal", $"CveRegimenFiscal = {DdlRegimenFiscal.SelectedValue}")
Dim tcveuso As Integer = DdlUsoCFDI.SelectedValue.ToEntero
DdlUsoCFDI.Items.Clear()
DdlUsoCFDI.SelectedIndex = 0
Dim EsPersonaMoral As Boolean = (RdTipoPersona.SelectedValue = "1")
DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente)
DdlUsoCFDI.Items.Clear()
DdlUsoCFDI.ClearSelection()
Try
DdlUsoCFDI.DataBind()
Catch ex As Exception
End Try
DdlUsoCFDI.DataBind()
DdlUsoCFDI.Items.Insert(0, New ListItem("Seleccione", "-1"))
If tcveuso > 0 Then DdlUsoCFDI.SelectedValueExist(tcveuso)
DdlSucursalUsoCFDI.Items.Clear()
DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
DdlSucursalUsoCFDI.DataBind()
UpFiscalContable.Update()
End Sub
#End Region
@@ -10322,6 +10330,7 @@ Partial Class Clientes
DdlRegimenFiscal.DataSource = dt
DdlRegimenFiscal.DataBind()
DdlRegimenFiscal.SelectedValueExist(Val)
CargaComboCFDI()
UpDatos.Update()
End Sub
@@ -10482,8 +10491,6 @@ Partial Class Clientes
End Sub
Protected Sub LnkEliminarLineaAdicional_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim CveLineaAdicionalEliminar = GvRow.DataKey("CveLineaAdicional").ToEntero
@@ -10505,8 +10512,6 @@ Partial Class Clientes
End Sub
Protected Sub DdlTipoLineaAdicionalModal_SelectedIndexChanged(sender As Object, e As EventArgs)
DvLineaAdicionalDiasVenciemientoModal.Visible = If(DdlTipoLineaAdicionalModal.SelectedValue.ToEntero = 2, True, False)
@@ -10525,7 +10530,7 @@ Partial Class Clientes
DdlFormaPago33.Items.Clear()
If DdlMetodoPago33.SelectedValue.ToEntero = 3 Then
If DdlMetodoPago33.SelectedValue = "3" Then
DdlFormaPago33.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago = 20")
Else
DdlFormaPago33.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago <> 20")
@@ -10574,9 +10579,6 @@ Partial Class Clientes
Alert("Vendedor Cambiado Correctamente.", TipoMensaje.MsgInformacion, $"document.location.href=""/Ventas/Clientes.aspx?CveCliente={CveCliente}""")
End If
End Sub
@@ -10591,5 +10593,8 @@ Partial Class Clientes
End Sub
Private Sub DdlRegimenFiscal_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlRegimenFiscal.SelectedIndexChanged
CargaComboCFDI()
End Sub
End Class

1
Ventas/ClientesAbonar.aspx
View File

@@ -653,7 +653,6 @@
<asp:ListItem Text="Incobrable No Deducible" Value="179"></asp:ListItem>
<asp:ListItem Text="Incobrable Deducible" Value="263"></asp:ListItem>
<asp:ListItem Text="Reservas" Value="252"></asp:ListItem>
<asp:ListItem Text="Otros Ingresos" Value="78"></asp:ListItem>
</asp:DropDownList>
</div>
</div>

1
Ventas/ClientesAbonar.aspx.vb
View File

@@ -2450,7 +2450,6 @@ Partial Class Ventas_ClientesAbonar
If CveConceptoDeduccion = 179 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.Funcionalidad(559).ToEntero
If CveConceptoDeduccion = 263 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.Funcionalidad(537).ToEntero
If CveConceptoDeduccion = 252 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.Funcionalidad(581).ToEntero
If CveConceptoDeduccion = 78 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.IdCuentaOtrosIngresos
If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) Then

2
Ventas/PV.aspx
View File

@@ -2605,7 +2605,7 @@
</div>
<div id="DivFormaCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
<div class="form-group form-md-line-input input-iconright col-xs-6">
<asp:DropDownList ID="DdlMetodoCliente" runat="server" CssClass=" form-control input-sm select2me" CausesValidation="true" DataTextField="MetodoPagoSAT" DataValueField="CveMetodoPago" Width="100%">
<asp:DropDownList ID="DdlMetodoCliente" runat="server" CssClass=" form-control input-sm select2me" AutoPostBack="true" CausesValidation="true" DataTextField="MetodoPagoSAT" DataValueField="CveMetodoPago" Width="100%">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RequiredFieldValidator6" runat="server" ControlToValidate="DdlMetodoCliente" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Método Pago''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>

11
Ventas/PV.aspx.vb
View File

@@ -8661,4 +8661,15 @@ Partial Class PV
RegistraScript("AbrirModalDescuentoAdicional();")
End Sub
Private Sub DdlMetodoCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlMetodoCliente.SelectedIndexChanged
DdlFormaCliente.Items.Clear()
If DdlMetodoCliente.SelectedValue = "3" Then
DdlFormaCliente.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago = 20")
Else
DdlFormaCliente.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago <> 20")
End If
DdlFormaCliente.DataBind()
End Sub
End Class

2
Ventas/Ventas.aspx
View File

@@ -7899,7 +7899,7 @@
</div>
<div id="DivFormaCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
<div class="form-group form-md-line-input input-iconright col-xs-6">
<asp:DropDownList ID="DdlMetodoCliente" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" CausesValidation="true" DataTextField="MetodoPagoSAT" DataValueField="CveMetodoPago" Width="100%">
<asp:DropDownList ID="DdlMetodoCliente" runat="server" CssClass=" form-control input-sm select2me" AutoPostBack="true" AppendDataBoundItems="true" CausesValidation="true" DataTextField="MetodoPagoSAT" DataValueField="CveMetodoPago" Width="100%">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RequiredFieldValidator6" runat="server" ControlToValidate="DdlMetodoCliente" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Método Pago''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>

18
Ventas/Ventas.aspx.vb
View File

@@ -6151,14 +6151,10 @@ Partial Class Ventas
dtt = GlobalDTVtaFormaPago
End If
DdlFormaPago33.Items.Clear()
'DdlFormaPago33.ClearSelection()
'DdlFormaPago33.DataBind()
DdlFormaPago33.DataSource = dtt
DdlFormaPago33.SelectedValue = dtt.FiltroPrimeroValor("CveFormaPago", "")
DdlFormaPago33.DataBind()
DdlFormaCliente.DataSource = GlobalDTVtaFormaPago
DdlFormaCliente.DataBind()
DdlMetodoCliente.DataSource = GlobalDTVtaMetodoPago
DdlMetodoCliente.DataBind()
@@ -23505,7 +23501,8 @@ Partial Class Ventas
RdTipoPersona.SelectedValue = "0"
DdlMetodoCliente.SelectedValueExist(1)
DdlFormaCliente.SelectedValueExist(1)
'DdlFormaCliente.SelectedValueExist(1)
DdlRegimenFiscalCliente.DataSource = GlobalDTRegimenesFiscales().FiltraParametros("CveRegimenFiscal = 11")
DdlRegimenFiscalCliente.DataBind()
@@ -37120,5 +37117,16 @@ Partial Class Ventas
Tab.ActiveTabIndex = 0
Updatetabs.Update()
End Sub
Private Sub DdlMetodoCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlMetodoCliente.SelectedIndexChanged
DdlFormaCliente.Items.Clear()
If DdlMetodoCliente.SelectedValue = "3" Then
DdlFormaCliente.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago = 20")
Else
DdlFormaCliente.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago <> 20")
End If
DdlFormaCliente.DataBind()
End Sub
End Class