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

Merge branch 'master' of http://jperez@adsistemasof.sytes.net:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-03-30 09:18:26 -07:00
parent 33a0a717ab 7ef3ccde65
commit 706b2eef9b
50 changed files with 166498 additions and 5237 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
.gitignore vendored
View File

@@ -271,3 +271,4 @@ __pycache__/
/Utilerias
/Default.aspx
/Default.aspx.cs
/App_WebReferences/WSRDLC

98
App_Code/ClsContabilidad.vb
View File

@@ -5770,6 +5770,104 @@ Public Class ClsContabilidad
Return Retorno
End Function
Public Function GetCuentasAsignaciones(CveEmpresa As Integer) As Boolean
Dim Retorno = False
DataAdapter("PA_Conta_CuentasAsignacionesGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
Me.OnError("Ocurrió un error al obtener el catálogo de cuentas asignación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function AddCuentasAsignaciones(Optional CveConceptoContable As Integer = -1, Optional CveCuenta As Integer = -1, Optional IdCtaContable As Integer = -1,
Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1,
Optional CveClasificacion As Integer = -1, Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1) As Boolean
Dim Retorno = False
DataAdapter("PA_Conta_CuentasAsignacionesAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
.Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
.Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
.Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
.Add("@PorcentajeIVA", SqlDbType.Decimal).Value = PorcentajeIVA
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
Me.OnError("Ocurrió un error al agregar la cuenta asignación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function RemoveCuentasAsignaciones(CveCuentaAsignacion As Integer) As Boolean
Dim Retorno = False
DataAdapter("PA_Conta_CuentasAsignacionesDelete")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveCuentaAsignacion", SqlDbType.Int).Value = CveCuentaAsignacion
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
Me.OnError("Ocurrió un error al eliminar el catálogo de cuentas asignación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function UpdateCuentasAsignaciones(CveConceptoAsignacion As Integer, Optional CveConceptoContable As Integer = -1, Optional CveCuenta As Integer = -1,
Optional IdCtaContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1,
Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveAlmacen As Integer = -1,
Optional PorcentajeIVA As Decimal = -1) As Boolean
Dim Retorno = False
DataAdapter("PA_Conta_CuentasAsignacionesAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveCuentaAsignacion", SqlDbType.Int).Value = CveConceptoAsignacion
.Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
.Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
.Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
.Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
.Add("@PorcentajeIVA", SqlDbType.Decimal).Value = PorcentajeIVA
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
Me.OnError("Ocurrió un error al agregar la cuenta asignación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#Region " RECONSTRUCCION DE PREPOLIZAS "
Public Function ReconstruirPP_PagoCompra(CvePrePoliza As Integer) As Boolean
Dim Retorno = False

153
App_Code/ClsPaginas.vb
View File

@@ -3,7 +3,6 @@ Option Explicit On
Imports System
Imports System.Data
Imports System.Security.Cryptography
Imports Extensiones
Imports System.Web.Security
Imports System.Web
@@ -14,10 +13,6 @@ Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports CrystalDecisions.ReportSource
Imports Stimulsoft.Report
Imports Stimulsoft.Report.Dictionary
Imports Stimulsoft.Report.MobileDesign
Imports System.Linq
Imports Stimulsoft.Report.Export
Imports System.Xml
@@ -431,7 +426,7 @@ Public Class ClsPaginas
End Property
Property GlobalDTProveedorClasificacion(CveEmpresa As Integer) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTProveedorClasificacion{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTProveedorClasificacion-{0}", CveEmpresa)
'sino existe, recarga los datos
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
Dim P As New ClsCompProveedores
@@ -449,14 +444,14 @@ Public Class ClsPaginas
End Get
Set(value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTProveedorClasificacion{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTProveedorClasificacion-{0}", CveEmpresa)
Application(AppNombre) = value
End Set
End Property
Property GlobalDTProveedorSucursales(CveProveedor As Integer, CveEmpresa As Integer) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTProveedorSucursales{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTProveedorSucursales-{0}", CveEmpresa)
'sino existe, recarga los datos
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
Dim P As New ClsCompProveedores
@@ -474,7 +469,7 @@ Public Class ClsPaginas
End Get
Set(value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTProveedorSucursales{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTProveedorSucursales-{0}", CveEmpresa)
Application(AppNombre) = value
End Set
@@ -551,7 +546,7 @@ Public Class ClsPaginas
End Property
Property GlobalDTClasificaciones(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1, Optional UsoClasificacion As Integer = -1, Optional CveClasificacion As Integer = -1) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTClasificaciones{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTClasificaciones-{0}", CveEmpresa)
'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then
Dim ObjClasificaciones As New ClsClasificaciones
@@ -575,27 +570,35 @@ Public Class ClsPaginas
End Get
Set(value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTClasificaciones{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTClasificaciones-{0}", CveEmpresa)
Application(AppNombre) = value
End Set
End Property
Property GlobalDTClasificaciones2(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTClasificaciones2-{0}", CveEmpresa)
'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then
Dim ObjClasificaciones As New ClsClasificaciones
If ObjClasificaciones.GetClasificaciones(CveEmpresa, Tipo:=4) Then Application(AppNombre) = ObjClasificaciones.DtResultados
ObjClasificaciones.Dispose()
End If
If CveEmpresa <> -1 Then
Dim Str As New StringBuilder
Str.AppendFormat("CveEmpresa = {0}", CveEmpresa)
If CveCategoria <> -1 Then Str.AppendFormat(" AND CveCategoria = {0}", CveCategoria)
Dim Dv As New DataView(DirectCast(Application("GlobalDTClasificaciones2"), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows)
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows)
GlobalDTClasificaciones2 = Dv.ToTable
Dv.Dispose()
Else
GlobalDTClasificaciones2 = DirectCast(Application("GlobalDTClasificaciones2"), DataTable)
GlobalDTClasificaciones2 = DirectCast(Application(AppNombre), DataTable)
End If
End Get
Set(value As DataTable)
Application("GlobalDTClasificaciones2") = value
Dim AppNombre As String = String.Format("GlobalDTClasificaciones2-{0}", CveEmpresa)
Application(AppNombre) = value
End Set
End Property
Property GlobalDTClasificacionesSubProyectos(Optional CveClasificacion As Integer = -1, Optional CveEmpresa As Integer = -1) As DataTable
@@ -768,7 +771,7 @@ Public Class ClsPaginas
End Property
Public Property GlobalDTUnidadesMedida(Optional CveEmpresa As Integer = -1) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTUnidadesMedida{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTUnidadesMedida-{0}", CveEmpresa)
'sino existe, recarga los datos
If DirectCast(Application(AppNombre), DataTable) Is Nothing Or (DirectCast(Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(Application(AppNombre), DataTable).Rows.Count = 0) Then
Dim ObjUnidadesMedida As New ClsUnidadesMedida()
@@ -785,13 +788,13 @@ Public Class ClsPaginas
End If
End Get
Set(value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTUnidadesMedida{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTUnidadesMedida-{0}", CveEmpresa)
Application(AppNombre) = value
End Set
End Property
Property GlobalDTUnidadesMedidaAlias(Optional CveEmpresa As Integer = -1) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTUnidadesMedidaAlias{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTUnidadesMedidaAlias-{0}", CveEmpresa)
'sino existe, recarga los datos
If DirectCast(Application(AppNombre), DataTable) Is Nothing Or (DirectCast(Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(Application(AppNombre), DataTable).Rows.Count = 0) Then
Dim ObjUnidadesMedida As New ClsUnidadesMedida()
@@ -807,7 +810,7 @@ Public Class ClsPaginas
End If
End Get
Set(value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTUnidadesMedidaAlias{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTUnidadesMedidaAlias-{0}", CveEmpresa)
Application(AppNombre) = value
'Dim ObjUnidadesMedida As New ClsUnidadesMedida()
'If ObjUnidadesMedida.GetUnidadesMedidaAlias(CveEmpresa, -1) Then Application(AppNombre) = ObjUnidadesMedida.DtResultados
@@ -894,7 +897,7 @@ Public Class ClsPaginas
End Property
Public Property GlobalDTSubProyectos(CveProyecto As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1, Optional Estatus As Integer = 1) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTSubProyectos{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTSubProyectos-{0}", CveEmpresa)
'sino existe, recarga los datos
If DirectCast(Application(AppNombre), DataTable) Is Nothing Or (DirectCast(Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(Application(AppNombre), DataTable).Rows.Count = 0) Then
Dim P As New ClsSubProyectos
@@ -926,13 +929,13 @@ Public Class ClsPaginas
End Get
Set(ByVal value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTSubProyectos{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTSubProyectos-{0}", CveEmpresa)
Application(AppNombre) = value
End Set
End Property
Property GlobalDTSubProyectosUsuarios(CveUsuario As Integer, CveProyecto As Integer, CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEstatus As Integer = -1) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTSubProyectosUsuarios{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTSubProyectosUsuarios-{0}", CveEmpresa)
If Application(AppNombre) Is Nothing Then
Dim ObjSubProyectos As New ClsSubProyectos()
If ObjSubProyectos.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then Application(AppNombre) = ObjSubProyectos.DtResultados Else Alert("Ocurrió un error al cargar los SubProyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError)
@@ -965,7 +968,7 @@ Public Class ClsPaginas
End Get
Set(ByVal value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTSubProyectosUsuarios{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTSubProyectosUsuarios-{0}", CveEmpresa)
Application(AppNombre) = value
End Set
End Property
@@ -1177,7 +1180,7 @@ Public Class ClsPaginas
End Property
Public Property GlobalDTPSSimplificado(CveEmpresa As Integer, Optional CveClasificacion As Integer = -1, Optional PSCodigo As String = "-1", Optional Estatus As Integer = 1, Optional AplicaParaVenta As Integer = -1, Optional CvePS As Integer = -1) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTPSSimplificado{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa)
If CveEmpresa <> -1 Then
'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then
@@ -1208,13 +1211,13 @@ Public Class ClsPaginas
End If
End Get
Set(value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTPSSimplificado{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa)
Application(AppNombre) = value
End Set
End Property
Property GlobalDTProductosServiciosAlias(CveEmpresa As Integer, Optional Estatus As Integer = 1) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTProductosServiciosAlias{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTProductosServiciosAlias-{0}", CveEmpresa)
'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then
Dim ObjPS As New ClsProductosServicios
@@ -1237,13 +1240,13 @@ Public Class ClsPaginas
End If
End Get
Set(value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTProductosServiciosAlias{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTProductosServiciosAlias-{0}", CveEmpresa)
Application(AppNombre) = value
End Set
End Property
Public Property GlobalDTProductosServiciosEquivalencias(CvePS As Integer, CveUM As Integer, CveEmpresa As Integer) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTProductosServiciosEquivalencias{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTProductosServiciosEquivalencias-{0}", CveEmpresa)
If CveEmpresa <> -1 Then
'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then
@@ -1267,7 +1270,7 @@ Public Class ClsPaginas
End If
End Get
Set(value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTProductosServiciosEquivalencias{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTProductosServiciosEquivalencias-{0}", CveEmpresa)
Application(AppNombre) = value
End Set
@@ -1290,7 +1293,7 @@ Public Class ClsPaginas
Property GlobalDTPSAdicionales(CvePS As Integer, CveEmpresa As Integer) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTPSAdicionales{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTPSAdicionales-{0}", CveEmpresa)
If CveEmpresa <> -1 Then
'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then
@@ -1313,7 +1316,7 @@ Public Class ClsPaginas
End If
End Get
Set(value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTPSAdicionales{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTPSAdicionales-{0}", CveEmpresa)
Application(AppNombre) = value
End Set
@@ -1367,7 +1370,7 @@ Public Class ClsPaginas
End Property
Property GlobalDTImpuestosLocales(CvePS As Integer, CveEmpresa As Integer) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTImpuestosLocales{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTImpuestosLocales-{0}", CveEmpresa)
'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then
Dim ObjPS As New ClsProductosServicios
@@ -1388,7 +1391,7 @@ Public Class ClsPaginas
End If
End Get
Set(value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTImpuestosLocales{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTImpuestosLocales-{0}", CveEmpresa)
Application(AppNombre) = value
'Dim ObjPS As New ClsProductosServicios
'If ObjPS.GetPSImpuestosLocales(-1, CveEmpresa) Then Application(AppNombre) = ObjPS.DtResultados
@@ -1512,7 +1515,7 @@ Public Class ClsPaginas
'Cliente
Property GlobalDTCliente(CveEmpresa As Integer, Optional Estatus As Integer = 1, Optional CveCliente As Integer = -1) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTCliente{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTCliente-{0}", CveEmpresa)
'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then
Dim ObjClientes As New ClsClientes
@@ -1537,13 +1540,13 @@ Public Class ClsPaginas
End If
End Get
Set(value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTCliente{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTCliente-{0}", CveEmpresa)
Application(AppNombre) = value
End Set
End Property
Property GlobalDTClienteClasificaciones(CveEmpresa As Integer) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTClienteClasificaciones{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTClienteClasificaciones-{0}", CveEmpresa)
'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then
Dim ObjClientes As New ClsClientes
@@ -1560,7 +1563,7 @@ Public Class ClsPaginas
End If
End Get
Set(value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTClienteClasificaciones{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTClienteClasificaciones-{0}", CveEmpresa)
Application(AppNombre) = value
End Set
End Property
@@ -1581,7 +1584,7 @@ Public Class ClsPaginas
'Variables para Ventas
Property GlobalDTVendedores(CveEmpresa As Integer, Optional Estatus As Boolean = True, Optional VendedorTipo As Integer = 1) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTVendedores{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTVendedores-{0}", CveEmpresa)
'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then
Dim ObjVendedores As New ClsVtaVendedores
@@ -1597,7 +1600,7 @@ Public Class ClsPaginas
End If
End Get
Set(value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTVendedores{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTVendedores-{0}", CveEmpresa)
Application(AppNombre) = value
End Set
End Property
@@ -1617,7 +1620,7 @@ Public Class ClsPaginas
End Property
Property GlobalDTCompProveedores(CveEmpresa As Integer) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTCompProveedores{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTCompProveedores-{0}", CveEmpresa)
'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then
Dim ObjProveedores As New ClsCompProveedores
@@ -1635,7 +1638,7 @@ Public Class ClsPaginas
End Get
Set(value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTCompProveedores{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTCompProveedores-{0}", CveEmpresa)
Application(AppNombre) = value
'Dim ObjProveedores As New ClsCompProveedores
'If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa) Then Application(AppNombre) = ObjProveedores.DtResultados
@@ -1669,7 +1672,7 @@ Public Class ClsPaginas
End Property
Property GlobalDTContratosTipos(CveEmpresa As Integer) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTContratosTipos{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTContratosTipos-{0}", CveEmpresa)
'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then
@@ -1682,7 +1685,7 @@ Public Class ClsPaginas
End Get
Set(value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTContratosTipos{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTContratosTipos-{0}", CveEmpresa)
Application(AppNombre) = value
End Set
End Property
@@ -2850,7 +2853,7 @@ Public Class ClsPaginas
Property GlobalDTRHPersonal(CveEmpresa As Integer, Optional CvePersonal As Integer = -1) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTRHPersonal{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTRHPersonal-{0}", CveEmpresa)
'sino existe, recarga los datos
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
Dim ObjPersonal As New ClsRH
@@ -2872,7 +2875,7 @@ Public Class ClsPaginas
End Get
Set(value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTRHPersonal{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTRHPersonal-{0}", CveEmpresa)
Application(AppNombre) = value
End Set
@@ -3275,7 +3278,7 @@ Public Class ClsPaginas
Property GlobalDTAcumGarantiasMesesTipoUso(CveEmpresa As Integer, CveMarca As Integer) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTAcumGarantiasMesesTipoUso{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTAcumGarantiasMesesTipoUso-{0}", CveEmpresa)
If Application(AppNombre) Is Nothing Then
Dim ObjAcumuladores As New ClsAcumuladores()
If ObjAcumuladores.GarantiasMesesGet(-1, -1) Then Application(AppNombre) = ObjAcumuladores.DtResultados.FiltraParametros("", DistinctColumns:={"CveMarca", "CveTipoUso", "TipoUso"})
@@ -3295,7 +3298,7 @@ Public Class ClsPaginas
End Get
Set(value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTAcumGarantiasMesesTipoUso{0}", CveEmpresa)
Dim AppNombre As String = String.Format("GlobalDTAcumGarantiasMesesTipoUso-{0}", CveEmpresa)
Application(AppNombre) = value
End Set
End Property
@@ -4067,6 +4070,7 @@ Public Class ClsPaginas
PaginaDict.Add("/Contabilidad2/RepAnexoCatalogoSAT.aspx".ToUpper(), 618)
PaginaDict.Add("/Contabilidad2/MovimientosConProveedores.aspx".ToUpper(), 619)
PaginaDict.Add("/Contabilidad2/RepBalanceGeneral.aspx".ToUpper(), 530)
PaginaDict.Add("/Contabilidad2/CatCuentasAsignaciones.aspx".ToUpper(), 724)
#End Region
'CONTRATOS
#Region "Contratos"
@@ -5132,20 +5136,55 @@ Public Class ClsPaginas
'limpio ReportViwer
Dim sw As New System.Diagnostics.Stopwatch()
sw.Start()
'Dim Bytes As Byte() = Nothing
'Try
' Dim fllreport As New ADSReportLib.FullTrustReportviewer()
' fllreport.Initialize("DisplayName", RutaReporte, Parametros, New List(Of String()), True)
' For Each RDS As ReportDataSource In DataSource
' fllreport.AddDataSources(RDS)
' Next
' Dim Warnings As Warning() = Nothing
' Dim StreamIds As String() = Nothing
' Dim MimeType As String = Nothing
' Dim Encoding As String = Nothing
' Dim Extension As String = Nothing
' Bytes = fllreport.Render(Formato, Nothing, MimeType, Encoding, Extension, StreamIds, Warnings)
' fllreport = Nothing
'Catch ex As Microsoft.Reporting.WebForms.ScriptManagerNotFoundException
' GuardaLog($"Error: { If(ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, ex.Message) } | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))} - Ruta {RutaReporte}")
' 'HAY QUE VALIDAR QUE LOS OBJETOS QUE SE USAN PARA GUARDAR LOG EXISTEN!!! IPP 14 AGOSTO 2017
' 'GuardaLog($"Error: {ex.InnerException.Message} | Descripcion: {If(ex.InnerException.InnerException IsNot Nothing, ex.InnerException.InnerException.Message, "Sin descripcion")} - Ruta {RutaReporte}")
'Catch ex As Exception
' GuardaLog($"Error: { If(ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, ex.Message) } | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))} - Ruta {RutaReporte}")
''HAY QUE VALIDAR QUE LOS OBJETOS QUE SE USAN PARA GUARDAR LOG EXISTEN!!! IPP 14 AGOSTO 2017
''GuardaLog($"Error {ex.InnerException.Message} | Descripcion: {If(ex.InnerException.InnerException IsNot Nothing, ex.InnerException.InnerException.Message, "Sin descripcion")} - Ruta {RutaReporte}")
'End Try
If IsNothing(MR) Then MR = New ReportViewer
Dim Bytes As Byte() = Nothing
Try
Dim fllreport As New ADSReportLib.FullTrustReportviewer()
fllreport.Initialize("DisplayName", RutaReporte, Parametros, New List(Of String()), True)
For Each RDS As ReportDataSource In DataSource
fllreport.AddDataSources(RDS)
MR.LocalReport.DataSources.Add(RDS)
Next
'Dim permissions As New Security.PermissionSet(Security.Permissions.PermissionState.None)
'permissions.AddPermission(New Security.Permissions.FileIOPermission(Security.Permissions.PermissionState.Unrestricted))
'permissions.AddPermission(New Security.Permissions.SecurityPermission(Security.Permissions.SecurityPermissionFlag.Execution))
'MR.LocalReport.SetBasePermissionsForSandboxAppDomain(permissions)
MR.LocalReport.ReportPath = RutaReporte
MR.ProcessingMode = ProcessingMode.Local
MR.LocalReport.EnableExternalImages = True
MR.LocalReport.SetParameters(Parametros)
MR.LocalReport.Refresh()
Dim Warnings As Warning() = Nothing
Dim StreamIds As String() = Nothing
Dim MimeType As String = Nothing
Dim Encoding As String = Nothing
Dim Extension As String = Nothing
Bytes = fllreport.Render(Formato, Nothing, MimeType, Encoding, Extension, StreamIds, Warnings)
Bytes = MR.LocalReport.Render(Formato, Nothing, MimeType, Encoding, Extension, StreamIds, Warnings)
Catch ex As Microsoft.Reporting.WebForms.ScriptManagerNotFoundException
GuardaLog($"Error: { If(ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, ex.Message) } | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))} - Ruta {RutaReporte}")
'HAY QUE VALIDAR QUE LOS OBJETOS QUE SE USAN PARA GUARDAR LOG EXISTEN!!! IPP 14 AGOSTO 2017
@@ -5155,6 +5194,8 @@ Public Class ClsPaginas
'HAY QUE VALIDAR QUE LOS OBJETOS QUE SE USAN PARA GUARDAR LOG EXISTEN!!! IPP 14 AGOSTO 2017
'GuardaLog($"Error {ex.InnerException.Message} | Descripcion: {If(ex.InnerException.InnerException IsNot Nothing, ex.InnerException.InnerException.Message, "Sin descripcion")} - Ruta {RutaReporte}")
End Try
MR.LocalReport.ReleaseSandboxAppDomain()
MR.Dispose()
sw.Stop()
If sw.Elapsed.TotalSeconds > 10 Then
@@ -5285,7 +5326,7 @@ Public Class ClsPaginas
Public Function ImprimirPDFPyME(RutaReporte As String, DataSource As DataSet, Parametros As List(Of CrystalParametro), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional MR As StiReport = Nothing) As Byte()
If IsNothing(MR) Then MR = New StiReport()
If IsNothing(MR) Then MR = New Stimulsoft.Report.StiReport()
Dim Bytes As Byte() = Nothing
Try
MR.Load(RutaReporte)
@@ -5301,15 +5342,19 @@ Public Class ClsPaginas
MR.Dictionary.Synchronize()
MR.IsRendered = False
MR.Render(False)
Dim pdfSettings As New StiPdfExportSettings()
Dim pdfSettings As New Stimulsoft.Report.Export.StiPdfExportSettings()
Dim MemoryStream As New MemoryStream
Select Case Formato
Case "PDF"
MR.ExportDocument(StiExportFormat.Pdf, MemoryStream, pdfSettings)
MR.ExportDocument(Stimulsoft.Report.StiExportFormat.Pdf, MemoryStream, pdfSettings)
Case "EXCEL"
MR.ExportDocument(StiExportFormat.Excel2007, MemoryStream, pdfSettings)
MR.ExportDocument(Stimulsoft.Report.StiExportFormat.Excel2007, MemoryStream, pdfSettings)
End Select
Bytes = MemoryStream.ToArray
MR.RenderedPages.Clear()
MR.Dispose()
MemoryStream.Dispose()
Catch ex As Exception
GuardaLog($"Error: { If(ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, ex.Message) } | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))} - Ruta {RutaReporte}")
'HAY QUE VALIDAR QUE LOS OBJETOS QUE SE USAN PARA GUARDAR LOG EXISTEN!!! IPP 14 AGOSTO 2017

2
App_Code/ClsSisUsuarios.vb
View File

@@ -3156,7 +3156,7 @@ End Class
' ' TODO: Establecer campos grandes como Null.
' End If
' Me.disposedValue = True
' End Sub
' End Sub
'#Region " IDisposable Support "
' ' Visual Basic agregó este código para implementar correctamente el modelo descartable.

10280
Compras/Compras.aspx
View File

File diff suppressed because it is too large Load Diff

18
Compras/Compras.aspx.vb
View File

@@ -6357,7 +6357,7 @@ Partial Class Compras_Compras
CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero
End If
End If
If importeMovimiento <> 0 Then
If importeMN <> 0 Then
'Conta ContPAQ
If IdCtaContable = 0 Then
CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
@@ -6368,7 +6368,7 @@ Partial Class Compras_Compras
CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
CveCuentaContabilizacion = 0
End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True
End If
End If
@@ -14820,14 +14820,14 @@ Partial Class Compras_Compras
End Sub
Private Sub CargaVinculacionOC(Optional CargaInicial As Boolean = False)
'FILTRAMOS SOLO PENDIENTES POR SURTIR
DTOCGV = DTOCTemp.FiltraParametros("CantidadDisponible > 0", "CveOrdenCompra").Copy
DTOCGV = DTOCTemp.FiltraParametros("CantidadPendienteVincular > 0", "CveOrdenCompra").Copy
'SI PUEDE RECIBIR POR OC Y COMPRA
If UsuarioActual.CveEmpresa.Contiene(119) Then
If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 And Not UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 Then
Select Case DdlOCVinculaInv.SelectedValue.ToEntero
Case 176
DTOCGV = DTOCGV.FiltraParametros("((EstatusInventario IN (3,5) AND CveTipoPS = 2) OR CveTipoPS = 1) AND CantidadPorAdelantado > 0")
DTOCGV = DTOCGV.FiltraParametros("((EstatusInventario IN (3,5) AND CveTipoPS = 2) OR CveTipoPS = 1)")
Case 205
DTOCGV = DTOCGV.FiltraParametros("(EstatusInventario IN (1,2) AND CveTipoPS = 2) OR CveTipoPS = 1")
End Select
@@ -14896,7 +14896,7 @@ Partial Class Compras_Compras
Dim Cont As Integer = 0
For Each gvr As GridViewRow In GvOC1.Rows
RegistraScript($"CalculaTotalOCEdit('{gvr.DataKey("PS").Replace("'", "")}', {gvr.DataKey("CantidadDisponible").ToString.ToDouble}, {gvr.FCTextBox("TxtCantidad").ClientID}, {gvr.FCTextBox("TxtPU").ClientID}, {gvr.FCTextBox("TxtTotalOC1").ClientID}, {gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSImporte").ClientID}, {gvr.DataKey("IVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IVA").ClientID},{gvr.DataKey("RetIVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetIVA").ClientID},{gvr.DataKey("RetISR").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetISR").ClientID},{gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSIVA").ClientID},{gvr.DataKey("Descuento")},{gvr.FCHiddenField("HdnOC1Descuento").ClientID},{gvr.DataKey("IVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetIVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetISRPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSIVAPorcentaje").ToString.ToDouble});", $"Gv{Cont}")
RegistraScript($"CalculaTotalOCEdit('{gvr.DataKey("PS").Replace("'", "")}', {gvr.DataKey("CantidadPendienteVincular").ToString.ToDouble}, {gvr.FCTextBox("TxtCantidad").ClientID}, {gvr.FCTextBox("TxtPU").ClientID}, {gvr.FCTextBox("TxtTotalOC1").ClientID}, {gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSImporte").ClientID}, {gvr.DataKey("IVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IVA").ClientID},{gvr.DataKey("RetIVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetIVA").ClientID},{gvr.DataKey("RetISR").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetISR").ClientID},{gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSIVA").ClientID},{gvr.DataKey("Descuento")},{gvr.FCHiddenField("HdnOC1Descuento").ClientID},{gvr.DataKey("IVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetIVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetISRPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSIVAPorcentaje").ToString.ToDouble});", $"Gv{Cont}")
Cont += 1
Next
@@ -14912,8 +14912,8 @@ Partial Class Compras_Compras
Protected Sub GvOC1_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOC1.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
Dim JSCambiaScript = $"CalculaTotalOCEdit('{e.Row.DBCampo("PS").Replace("'", "")}', {e.Row.DBCampo("CantidadDisponible").ToString.ToDouble}, {e.Row.FCTextBox("TxtCantidad").ClientID}, {e.Row.FCTextBox("TxtPU").ClientID}, {e.Row.FCTextBox("TxtTotalOC1").ClientID}, {e.Row.DBCampo("IEPSPS").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1IEPSImporte").ClientID}, {e.Row.DBCampo("IVA").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1IVA").ClientID},{e.Row.DBCampo("RetIVA").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1RetIVA").ClientID},{e.Row.DBCampo("RetISR").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1RetISR").ClientID},{e.Row.DBCampo("IEPSPS").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1IEPSIVA").ClientID},{e.Row.DBCampo("Descuento")},{e.Row.FCHiddenField("HdnOC1Descuento").ClientID},{e.Row.DBCampo("IVAPorcentaje").ToString.ToDouble},{e.Row.DBCampo("RetIVAPorcentaje").ToString.ToDouble},{e.Row.DBCampo("RetISRPorcentaje").ToString.ToDouble},{e.Row.DBCampo("IEPSPSPorcentaje").ToString.ToDouble},{e.Row.DBCampo("IEPSPSIVAPorcentaje").ToString.ToDouble});"
e.Row.FCTextBox("TxtCantidad").Attributes.Add("onkeyup", $"LimitaCantidadOC({e.Row.DBCampo("CantidadDisponible")}, this);{JSCambiaScript}")
Dim JSCambiaScript = $"CalculaTotalOCEdit('{e.Row.DBCampo("PS").Replace("'", "")}', {e.Row.DBCampo("CantidadPendienteVincular").ToString.ToDouble}, {e.Row.FCTextBox("TxtCantidad").ClientID}, {e.Row.FCTextBox("TxtPU").ClientID}, {e.Row.FCTextBox("TxtTotalOC1").ClientID}, {e.Row.DBCampo("IEPSPS").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1IEPSImporte").ClientID}, {e.Row.DBCampo("IVA").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1IVA").ClientID},{e.Row.DBCampo("RetIVA").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1RetIVA").ClientID},{e.Row.DBCampo("RetISR").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1RetISR").ClientID},{e.Row.DBCampo("IEPSPS").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1IEPSIVA").ClientID},{e.Row.DBCampo("Descuento")},{e.Row.FCHiddenField("HdnOC1Descuento").ClientID},{e.Row.DBCampo("IVAPorcentaje").ToString.ToDouble},{e.Row.DBCampo("RetIVAPorcentaje").ToString.ToDouble},{e.Row.DBCampo("RetISRPorcentaje").ToString.ToDouble},{e.Row.DBCampo("IEPSPSPorcentaje").ToString.ToDouble},{e.Row.DBCampo("IEPSPSIVAPorcentaje").ToString.ToDouble});"
e.Row.FCTextBox("TxtCantidad").Attributes.Add("onkeyup", $"LimitaCantidadOC({e.Row.DBCampo("CantidadPendienteVincular")}, this);{JSCambiaScript}")
e.Row.FCTextBox("TxtPU").Attributes.Add("onkeyup", JSCambiaScript)
e.Row.FCTextBox("TxtCantidad").Attributes.Add("onblur", $"ValidaImporteCero('{e.Row.DBCampo("PS").Replace("'", "")}',{e.Row.FCTextBox("TxtCantidad").ClientID}, {e.Row.FCTextBox("TxtPU").ClientID});")
@@ -15225,7 +15225,7 @@ Partial Class Compras_Compras
TmpDT.Rows(Index)("TipoAF") = 1
End If
'actualizo los movimientos registrados
DTOCGV.Rows(gvr.RowIndex)("CantidadDisponible") = Cantidad
DTOCGV.Rows(gvr.RowIndex)("CantidadPendienteVincular") = Cantidad
DTOCGV.Rows(gvr.RowIndex)("Importe") = PU
DTOCGV.Rows(gvr.RowIndex)("Total") = Total
@@ -15485,7 +15485,7 @@ Partial Class Compras_Compras
TmpDT.Rows(IndexVinculacionOC)("TipoAF") = 1
End If
'actualizo los movimientos registrados
DTOCGV.Rows(gvr.RowIndex)("CantidadDisponible") = Cantidad
DTOCGV.Rows(gvr.RowIndex)("CantidadPendienteVincular") = Cantidad
DTOCGV.Rows(gvr.RowIndex)("Importe") = PU
DTOCGV.Rows(gvr.RowIndex)("Total") = Total
End Sub

124
Contabilidad2/CatCuentasAsignaciones.aspx Normal file
View File

@@ -0,0 +1,124 @@
<%@ Page Title="Contabilidad2 - Catálogo Cuentas Asignación" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatCuentasAsignaciones.aspx.vb" Inherits="Contabilidad2_CatCuentasAsignaciones" %>
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
Catálogo de Cuentas Asignación.
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" ID="UpAgregar">
<ContentTemplate>
<li>
<asp:LinkButton runat="server" ID="BtnAgregarMotivoD" data-toggle="tooltip" data-placement="left" title="Agregar un Defecto" Text="<i class='fa fa-plus'></i>Agregar Motivo Baja"></asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel runat="server" ID="UpDatos" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView runat="server" ID="GvDatos" EmptyDataText="No se encontraron Motivo de Baja Registrados" ToolTip="Listado de Motivo de Baja" CssClass="table table-striped table-advance table-hover ScrollAD"
DataKeyNames="CveCuentaAsignacion,CveConceptoContable,CveCuenta,IdCuenta,CveProveedor,CveCliente,CvePersonal,CveClasificacion,CveAlmacen,PorcentajeIVA" AutoGenerateColumns="False"
Style="margin-top: -10px; text-align: center;width:100%" GridLines="None">
<Columns>
<asp:BoundField DataField="ConceptoContable" HeaderText="Concepto Contable" ItemStyle-HorizontalAlign="Left"/>
<asp:BoundField DataField="CuentaNombre" HeaderText="Nombre Cuenta" ItemStyle-HorizontalAlign="Left"/>
<asp:BoundField DataField="IdCuenta" HeaderText="Id Cuenta" ItemStyle-HorizontalAlign="Left"/>
<asp:BoundField DataField="ProveedorNombre" HeaderText="Nombre Proveedor" ItemStyle-HorizontalAlign="Left"/>
<asp:BoundField DataField="ClienteNombre" HeaderText="Nombre Cliente" ItemStyle-HorizontalAlign="Left"/>
<asp:BoundField DataField="PersonalNombre" HeaderText="Nombre Personal" ItemStyle-HorizontalAlign="Left"/>
<asp:BoundField DataField="Clasificacion" HeaderText="Clasificación" ItemStyle-HorizontalAlign="Left"/>
<asp:BoundField DataField="Almacen" HeaderText="Almacén" ItemStyle-HorizontalAlign="Left"/>
<asp:BoundField DataField="PorcentajeIVA" HeaderText="Porcentaje IVA" ItemStyle-HorizontalAlign="Left"/>
<asp:TemplateField ItemStyle-Width="99px">
<ItemTemplate>
<asp:LinkButton ID="ImgE" runat="server" AlternateText="Editar" CausesValidation="False" OnClick="ActualizaModulo" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-Width="83px">
<ItemTemplate>
<asp:LinkButton ID="ImgEE" runat="server" AlternateText="Eliminar" CausesValidation="False" OnClick="EliminarRow" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpModal">
<ContentTemplate>
<div id="ModalCat" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalModulos" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="LtlTituloModalTiposD" runat="server">Cuentas Asignación</asp:Literal>
</h4>
</div>
<div class="modal-body" style="text-align:center">
<div class="row">
<div class="col-md-1" style="width:50%;text-align:left">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlCconceptosContables" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="240px" ValidationGroup="GrpModulo"></asp:DropDownList>
<label for="<%= DdlCconceptosContables.ClientID.ToString()%>">Concepto Contable: </label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlCuenta" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCuenta" Width="240px" ValidationGroup="GrpModulo"></asp:DropDownList>
<label for="<%= DdlCuenta.ClientID.ToString()%>">Concepto Contable: </label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtIdCuentaContable" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true" style="width:100%"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVClave" runat="server" ControlToValidate="TxtIdCuentaContable" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>'¨IdCuentaContable''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModulo"></asp:RequiredFieldValidator>
<label for="<%= TxtIdCuentaContable.ClientID.ToString()%>">IdCuentaContable:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlProveedor" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="240px" ValidationGroup="GrpModulo"></asp:DropDownList>
<label for="<%= DdlProveedor.ClientID.ToString()%>">Proveedor: </label>
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="<%= DdlClientes.ClientID.ToString()%>">Cliente: </label><br />
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="90%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
</div>
</div>
<div class="col-md-1" style="width:50%;text-align:left">
<div class="form-group form-md-line-input input-iconright">
<label for="<%= DdlPersonal.ClientID.ToString()%>">Personal: </label><br />
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlPersonal" Width="90%" data-metodo="getpersonal" runat="server" DataTextField="NombreCompleto" DataValueField="CvePersonal" CssStyle="width: 100%;"></ADS:Dropdownlost>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlClasificacion" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="240px" ValidationGroup="GrpModulo"></asp:DropDownList>
<label for="<%= DdlClasificacion.ClientID.ToString()%>">Clasificación: </label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlAlmacen" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="Almacen" DataValueField="CveAlmacen" Width="240px" ValidationGroup="GrpModulo"></asp:DropDownList>
<label for="<%= DdlAlmacen.ClientID.ToString()%>">Almacén: </label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtPorcentajeIVA" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true" style="width:100%"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtPorcentajeIVA" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>'¨PorcentajeIVA''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModulo"></asp:RequiredFieldValidator>
<label for="<%= TxtPorcentajeIVA.ClientID.ToString()%>">PorcentajeIVA:</label>
</div>
</div>
</div>
</div>
<div class="modal-footer">
<asp:LinkButton ID="LbAgregar" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpModulo" />
<button id="BtnCancelarProyecto" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>

147
Contabilidad2/CatCuentasAsignaciones.aspx.vb Normal file
View File

@@ -0,0 +1,147 @@
Imports System.Data
Imports System.Linq
Imports Extensiones
Partial Class Contabilidad2_CatCuentasAsignaciones
Inherits ClsPaginas
Private Property CveConceptoAsignacion() As Integer 'Guardamos el ID de registro para saber cual registro Editar
Get
Return If(IsNothing(ViewState("CveConceptoAsignacion")), -1, CInt(ViewState("CveConceptoAsignacion")))
End Get
Set
ViewState("CveConceptoAsignacion") = Value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargaDatos()
CargaDatosModal()
End If
End Sub
Private Sub CargaDatos()
Dim ObjConta As New ClsContabilidad
If ObjConta.GetCuentasAsignaciones(UsuarioActual.CveEmpresa) Then
GvDatos.DataSource = ObjConta.DtResultados
End If
ObjConta.Dispose()
GvDatos.DataBind()
End Sub
Private Sub CargaDatosModal()
Dim ObjConta As New ClsContabilidad
Dim ObjProveedores As New ClsCompProveedores
Dim ObjRH As New ClsRH
Dim ObjClasificaciones As New ClsClasificaciones
Dim ObjInv As New ClsInventarios
If ObjConta.GetConta_ConceptosContables() Then
DdlCconceptosContables.DataSource = ObjConta.DtResultados
End If
If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
DdlCuenta.DataSource = ObjConta.DtResultados
End If
If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
End If
DdlClientes.setEsWebService(True)
If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
DdlPersonal.DataSource = ObjRH.DtResultados
End If
If ObjClasificaciones.GetClasificaciones(CveEmpresa:=UsuarioActual.CveEmpresa) Then
DdlClasificacion.DataSource = ObjClasificaciones.DtResultados
End If
If ObjInv.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then
DdlAlmacen.DataSource = ObjInv.DtResultados
End If
ObjConta.Dispose()
ObjProveedores.Dispose()
ObjRH.Dispose()
ObjClasificaciones.Dispose()
ObjInv.Dispose()
DdlCconceptosContables.DataBind()
DdlCuenta.DataBind()
DdlProveedor.DataBind()
DdlPersonal.DataBind()
DdlClasificacion.DataBind()
DdlAlmacen.DataBind()
DdlCconceptosContables.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub
Protected Sub ActualizaModulo(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
CveConceptoAsignacion = GvRow.DataKey("CveCuentaAsignacion").ToEntero
DdlCconceptosContables.SelectedValue = GvRow.DataKey("CveConceptoContable").ToEntero
DdlCuenta.SelectedValue = GvRow.DataKey("CveCuenta").ToEntero
DdlProveedor.SelectedValue = GvRow.DataKey("CveProveedor").ToEntero
DdlClasificacion.SelectedValue = GvRow.DataKey("CveClasificacion").ToEntero
DdlAlmacen.SelectedValue = GvRow.DataKey("CveAlmacen").ToEntero
TxtIdCuentaContable.Text = GvRow.DataKey("IdCuenta")
TxtPorcentajeIVA.Text = GvRow.DataKey("PorcentajeIVA")
LbAgregar.Text = "Actualizar"
UpModalModulos.Update()
RegistraScript("$('#ModalCat').modal();")
End Sub
Protected Sub EliminarRow(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim ObjConta As New ClsContabilidad
If ObjConta.RemoveCuentasAsignaciones(GvRow.DataKey("CveCuentaAsignacion").ToEntero) Then
Alert("se elimino correctamente")
End If
ObjConta.Dispose()
End Sub
Protected Sub BtnAgregarMotivoD_Click(sender As Object, e As EventArgs) Handles BtnAgregarMotivoD.Click
CveConceptoAsignacion = -1
DdlCconceptosContables.SelectedValue = -1
DdlCuenta.SelectedValue = -1
DdlProveedor.SelectedValue = -1
DdlClasificacion.SelectedValue = -1
DdlAlmacen.SelectedValue = -1
TxtIdCuentaContable.Text = ""
TxtPorcentajeIVA.Text = ""
LbAgregar.Text = "Agregar"
UpModalModulos.Update()
RegistraScript("$('#ModalCat').modal();")
End Sub
Protected Sub LbAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click
Dim ObjConta As New ClsContabilidad
Dim ErrorString As String = ""
If LbAgregar.Text = "Agregar" Then
If ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal) Then
ErrorString = "Error al Agregar"
End If
ElseIf LbAgregar.Text = "Actualizar" Then
If ObjConta.UpdateCuentasAsignaciones(CveConceptoAsignacion, DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal) Then
ErrorString = "Error al Actualizar"
End If
End If
ObjConta.Dispose()
RegistraScript("$('#ModalCat').modal('hide');")
If ErrorString.Length > 0 Then
Alert(ErrorString)
End If
End Sub
End Class

1
Inventarios/PopUpExistenciasAlmacen.aspx
View File

@@ -121,6 +121,7 @@
<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:BoundField DataField="ExistenciaFinal" ItemStyle-HorizontalAlign="Right" HeaderText="Existencia Real" DataFormatString="{0:#,###.######}" />
<asp:BoundField DataField="Importe" ItemStyle-HorizontalAlign="Right" HeaderText="Precio" DataFormatString="{0:N2}"/>
<asp:BoundField DataField="CantidadDisponibleInv" ItemStyle-HorizontalAlign="Right" HeaderText="Pendiente Por Recibir" DataFormatString="{0:#,###.######}" Visible="false"/>
</Columns>
</asp:GridView>

4186
Localization/ar.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4840
Localization/be.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4741
Localization/bg.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4542
Localization/bh.xml Normal file
View File

File diff suppressed because it is too large Load Diff

3465
Localization/ca-ES.xml Normal file
View File

File diff suppressed because it is too large Load Diff

3460
Localization/cs.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4778
Localization/de.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4651
Localization/el-GR.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4735
Localization/en-GB.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4765
Localization/en.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4741
Localization/es.xml Normal file
View File

File diff suppressed because it is too large Load Diff

3464
Localization/eu-ES.xml Normal file
View File

File diff suppressed because it is too large Load Diff

2244
Localization/fa.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4670
Localization/fr.xml Normal file
View File

File diff suppressed because it is too large Load Diff

3465
Localization/gl-ES.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4548
Localization/hr.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4741
Localization/hu.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4071
Localization/id.xml Normal file
View File

File diff suppressed because it is too large Load Diff

3871
Localization/it.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4714
Localization/ja.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4804
Localization/ka.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4714
Localization/ko.xml Normal file
View File

File diff suppressed because it is too large Load Diff

2061
Localization/lt.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4625
Localization/nb-NO.xml Normal file
View File

File diff suppressed because it is too large Load Diff

3497
Localization/nl.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4252
Localization/pl.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4764
Localization/pt-BR.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4753
Localization/pt.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4792
Localization/ro.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4807
Localization/ru.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4751
Localization/sk.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4542
Localization/sr.xml Normal file
View File

File diff suppressed because it is too large Load Diff

3726
Localization/sv.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4460
Localization/tr.xml Normal file
View File

File diff suppressed because it is too large Load Diff

3617
Localization/uk.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4736
Localization/vi.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4727
Localization/zh-CHS.xml Normal file
View File

File diff suppressed because it is too large Load Diff

2574
Localization/zh-CHT.xml Normal file
View File

File diff suppressed because it is too large Load Diff

1
Sistemas/CatSesiones.aspx.vb
View File

@@ -107,6 +107,7 @@ Partial Class Sistemas_CatSesiones
Private Sub CargaSATMotivoTraslado()
Dim ObjGrales As New ClsGenerales
If ObjGrales.GetSATMotivoTraslado Then Application("GlobalDTSATMotivoTraslado") = ObjGrales.DtResultados Else Application("GlobalDTSATMotivoTraslado") = Nothing
If ObjGrales.GetSATProductosServicios Then Application("GlobalDTPSATPS") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTPSATPS") = Nothing
ObjGrales.Dispose()
End Sub

14
Ventas/Ventas.aspx.vb
View File

@@ -8767,12 +8767,16 @@ Partial Class Ventas
Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString)
Timbre.Comprobante.Total = Obj.Total
Try
Obj.SetSubProyecto(Me)
Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP
Catch ex As Exception
'Try
'Obj.SetSubProyecto(Me)
Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP
If Timbre.Comprobante.LugarExpedicion = "" Then
Dim aa As String = "no se guardo lugar de expedicion"
aa.GuardaLog()
End If
'Catch ex As Exception
End Try
'End Try
Timbre.Comprobante.Confirmacion = ""

2
vwd.webinfo
View File

@@ -38,8 +38,6 @@