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

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

Browse Source
This commit is contained in:
Antonio Gonzalez
2019-09-02 10:05:57 -05:00
parent 9a4d9b3df8 06ecb0e085
commit 3d1c6028ea
16 changed files with 489 additions and 273 deletions
Download Patch File Download Diff File Expand all files Collapse all files

394
.gitignore vendored
View File

@@ -1,127 +1,267 @@
################################################################################ ## Ignore Visual Studio temporary files, build results, and
# Este archivo .gitignore ha sido creado automáticamente por Microsoft(R) Visual Studio. ## files generated by popular Visual Studio add-ons.
################################################################################ web.config
*.txt
/Empresas [Mm]enu/
/Menu [Tt]emp/
/Web.config [Ee]mpresas/
/Log.txt # User-specific files
/.vs/localhost/v14/.suo *.suo
/LogMail.txt *.user
/.vs *.userosscache
/packages *.sln.docstates
/Temp/637019018406489106-FormatoPS (1).xlsx
/Temp/637025911245561139-FormatoAlmacenTest2.xlsx # User-specific files (MonoDevelop/Xamarin Studio)
/Temp/637025910298823073-FormatoAlmacenTest2.xlsx *.userprefs
/Temp/637025890843842072-FormatoAlmacenTest.xlsx
/Temp/637025890070124286-FormatoAlmacenTest.xlsx # Build results
/Temp/637025889649837823-FormatoAlmacenTest.xlsx [Dd]ebug/
/Temp/637025888979809566-FormatoAlmacenTest.xlsx [Dd]ebugPublic/
/Temp/637025888317991027-FormatoAlmacenTest.xlsx [Rr]elease/
/Temp/637025886969280729-FormatoAlmacenTest.xlsx [Rr]eleases/
/Temp/637025883478481189-FormatoAlmacenTest.xlsx x64/
/Temp/637025881893726971-FormatoAlmacenTest.xlsx x86/
/Temp/637025875318390368-FormatoAlmacenTest.xlsx bld/
/Temp/637025873461693799-FormatoAlmacenTest.xlsx [Bb]in/
/Temp/637025867243299753-FormatoAlmacenTest.xlsx [Oo]bj/
/Temp/637025866028329141-FormatoAlmacenTest.xlsx [Ll]og/
/Temp/637025858967837880-FormatoAlmacen (8).xlsx
/Temp/637025856623805153-FormatoAlmacenTest.xlsx # Visual Studio 2015 cache/options directory
/Temp/637025854225974598-FormatoAlmacenTest.xlsx .vs/
/Temp/637025850746443741-FormatoAlmacenTest.xlsx # Uncomment if you have tasks that create the project's static files in wwwroot
/Temp/637025849906896827-FormatoAlmacenTest.xlsx #wwwroot/
/Temp/637025811751064573-FormatoAlmacen (9).xlsx
/Temp/637025802306385270-FormatoAlmacen (9).xlsx # MSTest test Results
/Temp/637024955677385188-FormatoAlmacen (8).xlsx [Tt]est[Rr]esult*/
/Temp/637024223339157610-FormatoAlmacen (8).xlsx [Bb]uild[Ll]og.*
/Temp/637024211080831453-FormatoAlmacen (8).xlsx
/Temp/637024208748075824-FormatoAlmacen (8).xlsx # NUNIT
/Temp/637024206124827330-FormatoAlmacen (8).xlsx *.VisualState.xml
/Temp/637024198603668842-FormatoAlmacen (8).xlsx TestResult.xml
/Temp/637024194937999485-FormatoAlmacen (8).xlsx
/Temp/637024187194477421-FormatoAlmacen (8).xlsx # Build Results of an ATL Project
/Temp/637024175396114926-FormatoAlmacen(1).xlsx [Dd]ebugPS/
/Temp/637024174152414578-FormatoAlmacen(1).xlsx [Rr]eleasePS/
/Temp/637024172516905613-FormatoAlmacen(1).xlsx dlldata.c
/Temp/637024172339379953-FormatoAlmacen(1).xlsx
/Temp/637024168678743644-FormatoAlmacen(1).xlsx # DNX
/Temp/637024167899990250-FormatoAlmacen(1).xlsx project.lock.json
/Temp/637024163796303799-FormatoAlmacen(1).xlsx project.fragment.lock.json
/Temp/637024162382548932-FormatoAlmacen(1).xlsx artifacts/
/Temp/637024154734150595-FormatoAlmacen(1).xlsx
/Temp/637024152618695056-FormatoAlmacen(1).xlsx *_i.c
/Temp/637024129146071459-FormatoAlmacen(1).xlsx *_p.c
/Temp/637024111695874769-FormatoAlmacen(1).xlsx *_i.h
/Temp/637022418959236013-FormatoAlmacen (4).xlsx *.ilk
/Temp/637022412610855769-FormatoAlmacen (4).xlsx *.meta
/Temp/637022411585353362-FormatoAlmacen (4).xlsx *.obj
/Temp/637022404788752537-FormatoAlmacen (3).xlsx *.pch
/Temp/637022403501450734-FormatoAlmacen (3).xlsx *.pdb
/Temp/637022402924630398-FormatoAlmacen (3).xlsx *.pgc
/Temp/637022401250489074-FormatoAlmacen (5).xlsx *.pgd
/Temp/637022398545213986-FormatoAlmacen (3).xlsx *.rsp
/Temp/637022382214133336-FormatoAlmacen (5).xlsx *.sbr
/Temp/637022380557097080-FormatoAlmacen (5).xlsx *.tlb
/Temp/637022379412790662-FormatoAlmacen (5).xlsx *.tli
/Temp/637022378793902185-FormatoAlmacen (5).xlsx *.tlh
/Temp/637021654534481890-FormatoAlmacen (3).xlsx *.tmp
/Temp/637021651345315739-FormatoAlmacen (3).xlsx *.tmp_proj
/Temp/637021616508913486-FormatoAlmacen (3).xlsx *.log
/Temp/637021593875864770-FormatoAlmacen (3).xlsx *.vspscc
/Temp/637021592631992296-FormatoAlmacen (3).xlsx *.vssscc
/Temp/637021592488982043-FormatoAlmacen (3).xlsx .builds
/Temp/637021560097934922-FormatoAlmacen (3).xlsx *.pidb
/Temp/637021554559110062-FormatoPS (1).xlsx *.svclog
/Temp/637021550053083909-FormatoAlmacen (3).xlsx *.scc
/Temp/637021547214247040-FormatoAlmacen (3).xlsx
/Temp/637021545638924577-FormatoAlmacen (3).xlsx # Chutzpah Test files
/Temp/637021527971651311-FormatoAlmacen (3).xlsx _Chutzpah*
/Temp/637021527073950270-FormatoAlmacen (3).xlsx
/Temp/637021526064707043-FormatoAlmacen (3).xlsx # Visual C++ cache files
/Temp/637021522586485282-FormatoAlmacen (3).xlsx ipch/
/Temp/637021521403851473-FormatoAlmacen (3).xlsx *.aps
/Temp/637021519837377736-FormatoAlmacen (3).xlsx *.ncb
/Temp/637021515778751967-FormatoAlmacen (3).xlsx *.opendb
/Temp/637020728341171393-FormatoAlmacen (2).xlsx *.opensdf
/Temp/637020724850629405-FormatoAlmacen (2).xlsx *.sdf
/Temp/637020723186758192-FormatoAlmacen (2).xlsx *.cachefile
/Temp/637020721382428289-FormatoAlmacen (2).xlsx *.VC.db
/Temp/637019818530193505-FormatoPS (1).xlsx *.VC.VC.opendb
/Temp/637019811169546741-FormatoPS (1).xlsx
/Temp/637019803848526814-FormatoPS (1).xlsx # Visual Studio profiler
/Temp/637019796396388291-FormatoPS (1).xlsx *.psess
/Temp/637019783731773074-FormatoPS (1).xlsx *.vsp
/Temp/637019781961714106-FormatoPS (1).xlsx *.vspx
/Temp/637019780290041928-FormatoPS (1).xlsx *.sap
/Temp/637019777705293557-FormatoPS (1).xlsx
/Temp/637019766664551609-FormatoPS (1).xlsx # TFS 2012 Local Workspace
/Temp/637019765307733182-FormatoPS (1).xlsx $tf/
/Temp/637019764041447352-FormatoPS (1).xlsx
/Temp/637019759922681271-FormatoPS (1).xlsx # Guidance Automation Toolkit
/Temp/637019028539049368-FormatoPS (1).xlsx *.gpState
/Temp/637019027752495331-FormatoPS (1).xlsx
/Temp/637019026870914833-FormatoPS (1).xlsx # ReSharper is a .NET coding add-in
/Temp/637019020024023961-FormatoPS (1).xlsx _ReSharper*/
/Temp/637019018783282466-FormatoPS (1).xlsx *.[Rr]e[Ss]harper
/Temp/637025921934403738-FormatoAlmacen (4)(1).xlsx *.DotSettings.user
/Temp/637025871940254054-FormatoAlmacenTest.xlsx
/Temp/637025819297716436-FormatoAlmacen (9).xlsx # JustCode is a .NET coding add-in
/Temp/637025813094826506-FormatoAlmacen (9).xlsx .JustCode
/Temp/637025803627482072-FormatoAlmacen (9).xlsx
/Temp/637024210197949659-FormatoAlmacen (8).xlsx # TeamCity is a build add-in
/Temp/637024207387517397-FormatoAlmacen (8).xlsx _TeamCity*
/Temp/637024203939520361-FormatoAlmacen (8).xlsx
/Temp/637024200918571845-FormatoAlmacen (8).xlsx # DotCover is a Code Coverage Tool
/Temp/637024199786848948-FormatoAlmacen (8).xlsx *.dotCover
/Temp/637024188637374314-FormatoAlmacen (8).xlsx
/Temp/637024170730017118-FormatoAlmacen(1).xlsx # NCrunch
/Temp/637024164939543846-FormatoAlmacen(1).xlsx _NCrunch_*
/Temp/637024164072145623-FormatoAlmacen(1).xlsx .*crunch*.local.xml
/Temp/637024156159485931-FormatoAlmacen(1).xlsx nCrunchTemp_*
/Temp/637024153420640718-FormatoAlmacen(1).xlsx
/Temp/637024148711869965-FormatoAlmacen(1).xlsx # MightyMoose
/Temp/637022414752610497-FormatoAlmacen (4).xlsx *.mm.*
/Temp/637021629396074854-FormatoAlmacen (3).xlsx AutoTest.Net/
/Temp/637021627402424201-FormatoAlmacen (3).xlsx
/Temp/637021547606916146-FormatoAlmacen (3).xlsx # Web workbench (sass)
/Temp/637021529455078900-FormatoAlmacen (3).xlsx .sass-cache/
# Installshield output folder
[Ee]xpress/
# DocProject is a documentation generator add-in
DocProject/buildhelp/
DocProject/Help/*.HxT
DocProject/Help/*.HxC
DocProject/Help/*.hhc
DocProject/Help/*.hhk
DocProject/Help/*.hhp
DocProject/Help/Html2
DocProject/Help/html
# Click-Once directory
publish/
# Publish Web Output
*.[Pp]ublish.xml
*.azurePubxml
# TODO: Comment the next line if you want to checkin your web deploy settings
# but database connection strings (with potential passwords) will be unencrypted
#*.pubxml
*.publishproj
# Microsoft Azure Web App publish settings. Comment the next line if you want to
# checkin your Azure Web App publish settings, but sensitive information contained
# in these scripts will be unencrypted
PublishScripts/
# NuGet Packages
*.nupkg
# The packages folder can be ignored because of Package Restore
**/packages/*
# except build/, which is used as an MSBuild target.
!**/packages/build/
# Uncomment if necessary however generally it will be regenerated when needed
#!**/packages/repositories.config
# NuGet v3's project.json files produces more ignoreable files
*.nuget.props
*.nuget.targets
# Microsoft Azure Build Output
csx/
*.build.csdef
# Microsoft Azure Emulator
ecf/
rcf/
# Windows Store app package directories and files
AppPackages/
BundleArtifacts/
Package.StoreAssociation.xml
_pkginfo.txt
# Visual Studio cache files
# files ending in .cache can be ignored
*.[Cc]ache
# but keep track of directories ending in .cache
!*.[Cc]ache/
# Others
ClientBin/
~$*
*~
*.dbmdl
*.dbproj.schemaview
*.jfm
*.pfx
*.publishsettings
node_modules/
orleans.codegen.cs
# Since there are multiple workflows, uncomment next line to ignore bower_components
# (https://github.com/github/gitignore/pull/1529#issuecomment-104372622)
#bower_components/
# RIA/Silverlight projects
Generated_Code/
# Backup & report files from converting an old project file
# to a newer Visual Studio version. Backup files are not needed,
# because we have git ;-)
_UpgradeReport_Files/
Backup*/
UpgradeLog*.XML
UpgradeLog*.htm
# SQL Server files
*.mdf
*.ldf
# Business Intelligence projects
*.rdl.data
*.bim.layout
*.bim_*.settings
# Microsoft Fakes
FakesAssemblies/
# GhostDoc plugin setting file
*.GhostDoc.xml
# Node.js Tools for Visual Studio
.ntvs_analysis.dat
# Visual Studio 6 build log
*.plg
# Visual Studio 6 workspace options file
*.opt
# Visual Studio LightSwitch build output
**/*.HTMLClient/GeneratedArtifacts
**/*.DesktopClient/GeneratedArtifacts
**/*.DesktopClient/ModelManifest.xml
**/*.Server/GeneratedArtifacts
**/*.Server/ModelManifest.xml
_Pvt_Extensions
# Paket dependency manager
.paket/paket.exe
paket-files/
# FAKE - F# Make
.fake/
# JetBrains Rider
.idea/
*.sln.iml
*.sln
# CodeRush
.cr/
# Python Tools for Visual Studio (PTVS)
__pycache__/
*.pyc
/Utilerias

17
App_Code/ClsContPAQi.vb
View File

@@ -2005,7 +2005,7 @@ Public Class ClsContPAQi
''' <remarks></remarks> ''' <remarks></remarks>
''' '''
Public Function AddPoliza(TipoPol As Integer, Concepto As String, Cargos As Double, Abonos As Double, CveUsuario As Integer, FechaPoliza As Date, Optional pFolio As String = "-1", Public Function AddPoliza(TipoPol As Integer, Concepto As String, Cargos As Double, Abonos As Double, CveUsuario As Integer, FechaPoliza As Date, Optional pFolio As String = "-1",
Optional pTipo As String = "", Optional Guid As String = "-1") As Integer Optional pTipo As String = "", Optional Guid As String = "-1", Optional CvePlantillaPoliza As Integer = -1) As Integer
'Tipo As String, pFolioPoliza As Integer) As Boolean 'Tipo As String, pFolioPoliza As Integer) As Boolean
Dim Retorno As Integer = 0 Dim Retorno As Integer = 0
If Guid = "-1" Then Guid = System.Guid.NewGuid().ToString() If Guid = "-1" Then Guid = System.Guid.NewGuid().ToString()
@@ -2078,11 +2078,11 @@ Public Class ClsContPAQi
StrSQL.AppendLine(" INSERT INTO Polizas (Id, RowVersion, Ejercicio, Periodo, TipoPol, Folio, Clase, Impresa, ") StrSQL.AppendLine(" INSERT INTO Polizas (Id, RowVersion, Ejercicio, Periodo, TipoPol, Folio, Clase, Impresa, ")
StrSQL.AppendLine(" Concepto, Fecha, Cargos, Abonos, IdDiario, SistOrig, Ajuste, IdUsuario, ") StrSQL.AppendLine(" Concepto, Fecha, Cargos, Abonos, IdDiario, SistOrig, Ajuste, IdUsuario, ")
StrSQL.AppendLine(" ConFlujo, ConCuadre, TimeStamp,Guid)") StrSQL.AppendLine(" ConFlujo, ConCuadre, TimeStamp,Guid,CvePlantillaPoliza)")
StrSQL.AppendLine(" ") StrSQL.AppendLine(" ")
StrSQL.AppendLine(" VALUES (@IdPoliza, @RowVersion, @Ejercicio, @Periodo, @TipoPol, @Folio, @Clase, @Impresa, ") StrSQL.AppendLine(" VALUES (@IdPoliza, @RowVersion, @Ejercicio, @Periodo, @TipoPol, @Folio, @Clase, @Impresa, ")
StrSQL.AppendLine(" @Concepto, @Fecha, ROUND(@Cargos,2), ROUND(@Abonos,2), @IdDiario, @SistOrig, @Ajuste, @IdUsuario, ") StrSQL.AppendLine(" @Concepto, @Fecha, ROUND(@Cargos,2), ROUND(@Abonos,2), @IdDiario, @SistOrig, @Ajuste, @IdUsuario, ")
StrSQL.AppendLine(" @ConFlujo, @ConCuadre, @TimeStamp,@Guid)") StrSQL.AppendLine(" @ConFlujo, @ConCuadre, @TimeStamp,@Guid,@CvePlantillaPoliza)")
StrSQL.AppendLine(" ") StrSQL.AppendLine(" ")
StrSQL.AppendLine(" EXEC PA_UpdateId 'Id_Poliza';") StrSQL.AppendLine(" EXEC PA_UpdateId 'Id_Poliza';")
StrSQL.AppendLine(" ") StrSQL.AppendLine(" ")
@@ -2123,6 +2123,7 @@ Public Class ClsContPAQi
.Add("@FechaPoliza", SqlDbType.DateTime).Value = FechaPoliza .Add("@FechaPoliza", SqlDbType.DateTime).Value = FechaPoliza
.Add("@pFolio", SqlDbType.VarChar).Value = pFolio .Add("@pFolio", SqlDbType.VarChar).Value = pFolio
.Add("@Guid", SqlDbType.VarChar).Value = Guid .Add("@Guid", SqlDbType.VarChar).Value = Guid
.Add("@CvePlantillaPoliza", SqlDbType.Int).Value = CvePlantillaPoliza
.Add("@IdPoliza", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@IdPoliza", SqlDbType.Int).Direction = ParameterDirection.Output
End With End With
@@ -7308,7 +7309,7 @@ Public Class ClsContPAQi
Return Retorno Return Retorno
End Function End Function
Public Function GetPolizasMasivo(Inicio As Date, Fin As Date, FolioI As Integer, FolioF As Integer, TipoPol As Integer, CveUsuario As Integer, CveSubProyecto As Integer, CveCuenta As Integer) As Boolean Public Function GetPolizasMasivo(Inicio As Date, Fin As Date, FolioI As Integer, FolioF As Integer, TipoPol As Integer, CveUsuario As Integer, CveSubProyecto As Integer, CveCuenta As Integer, CveGrupoPlantillaPoliza As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
StrSQL.Clear() StrSQL.Clear()
@@ -7338,6 +7339,12 @@ Public Class ClsContPAQi
StrSQL.Append(" AND (@CveSubProyecto = -1 OR ( MP.IdPoliza IN (SELECT IdPoliza FROM @DtSeg)) OR (@CveSubProyecto = -2 AND MP.IdSegNeg = 0) ) ") StrSQL.Append(" AND (@CveSubProyecto = -1 OR ( MP.IdPoliza IN (SELECT IdPoliza FROM @DtSeg)) OR (@CveSubProyecto = -2 AND MP.IdSegNeg = 0) ) ")
StrSQL.Append(" AND (@CveUsuario = -1 OR P.IdUsuario = @CveUsuario) ") StrSQL.Append(" AND (@CveUsuario = -1 OR P.IdUsuario = @CveUsuario) ")
StrSQL.Append(" AND (@Cvecuenta = -1 OR C.Id = @Cvecuenta) ") StrSQL.Append(" AND (@Cvecuenta = -1 OR C.Id = @Cvecuenta) ")
StrSQL.Append(" AND (@CveGrupoPlantillaPoliza = -1
OR ( @CveGrupoPlantillaPoliza = 1 AND ISNULL(P.CvePlantillaPoliza,0) IN (1,22,43, 53, 60, 69, 74, 58, 59, 58, 59, 61, 62, 70,78, 89,94,95,96, 97,99,
64,65,68,72,75,79,80,81,82,83,84,90,91,93,40,41,42,48,54,55,14,24,32,34,37) )
OR ( @CveGrupoPlantillaPoliza = 2 AND ISNULL(P.CvePlantillaPoliza,0) IN (4,7,47,10,12,74) )
OR ( @CveGrupoPlantillaPoliza = 3 And ISNULL(P.CvePlantillaPoliza,0) IN (2, 3, 5, 8, 9, 13,15,17,19,21, 36,44, 45, 49, 50, 51, 52, 56, 57, 67, 71,73,77,85,86,87,88, 92,98,76,23,38) )
OR ( @CveGrupoPlantillaPoliza = 4 AND ISNULL(P.CvePlantillaPoliza,0) IN (6, 11,16, 63,46,47,39,100) ) )")
StrSQL.Append(" ORDER BY P.Folio, MP.NumMovto ") StrSQL.Append(" ORDER BY P.Folio, MP.NumMovto ")
StrSQL.Append(" END; ") StrSQL.Append(" END; ")
@@ -7353,6 +7360,8 @@ Public Class ClsContPAQi
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@cvecuenta", SqlDbType.Int).Value = CveCuenta .Add("@cvecuenta", SqlDbType.Int).Value = CveCuenta
.Add("@CveGrupoPlantillaPoliza", SqlDbType.Int).Value = CveGrupoPlantillaPoliza
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

5
App_Code/ClsContabilidad.vb
View File

@@ -1050,7 +1050,7 @@ Public Class ClsContabilidad
Dim tIdPoliza As Integer Dim tIdPoliza As Integer
Dim CveTipoPoliza, FolioFijo As Integer Dim CveTipoPoliza, FolioFijo, CvePlantillaPoliza As Integer
Dim Cargos As Decimal Dim Cargos As Decimal
Dim Abonos As Decimal Dim Abonos As Decimal
Dim NumPoliza As String = "" Dim NumPoliza As String = ""
@@ -1087,6 +1087,7 @@ Public Class ClsContabilidad
FolioFijo = Data.Rows(0)("FolioFijo").ToString.ToEntero FolioFijo = Data.Rows(0)("FolioFijo").ToString.ToEntero
TipoPoliza = Data.Rows(0)("TipoPoliza").ToString TipoPoliza = Data.Rows(0)("TipoPoliza").ToString
CodigoNumeroPoliza = Data.Rows(0)("CodigoNumeroPoliza").ToString CodigoNumeroPoliza = Data.Rows(0)("CodigoNumeroPoliza").ToString
CvePlantillaPoliza = Data.Rows(0)("CvePlantillaPoliza").ToString.ToEntero
'FolioFiscal = Data.Rows(0)("FolioFiscal").ToString 'FolioFiscal = Data.Rows(0)("FolioFiscal").ToString
'MetodoPagoSAT = Data.Rows(0)("ClaveSAT").ToString 'MetodoPagoSAT = Data.Rows(0)("ClaveSAT").ToString
@@ -1106,7 +1107,7 @@ Public Class ClsContabilidad
ObjConta.RemoveCausacionesIVA(-1, tIdPoliza) ObjConta.RemoveCausacionesIVA(-1, tIdPoliza)
ObjConta.RemoveDevolucionesIVA(-1, tIdPoliza) ObjConta.RemoveDevolucionesIVA(-1, tIdPoliza)
Else Else
tIdPoliza = ObjConta.AddPoliza(CveTipoPoliza, Concepto, Cargos, Abonos, CveUsuario, Fecha, FolioFijo.ToString, CodigoNumeroPoliza) tIdPoliza = ObjConta.AddPoliza(CveTipoPoliza, Concepto, Cargos, Abonos, CveUsuario, Fecha, FolioFijo.ToString, CodigoNumeroPoliza, CvePlantillaPoliza:=CvePlantillaPoliza)
ContaFolio = ObjConta.Folio.ToString ContaFolio = ObjConta.Folio.ToString
End If End If

2
App_Code/ClsPaginas.vb
View File

@@ -4124,7 +4124,7 @@ Public Class ClsPaginas
PaginaDict.Add("/Nomina/CatSatRegimenContratacion.aspx".ToUpper(), 257) PaginaDict.Add("/Nomina/CatSatRegimenContratacion.aspx".ToUpper(), 257)
PaginaDict.Add("/Nomina/CatSatTipoIncapacidad.aspx".ToUpper(), 258) PaginaDict.Add("/Nomina/CatSatTipoIncapacidad.aspx".ToUpper(), 258)
PaginaDict.Add("/Nomina/CatSatRiesgoPuesto.aspx".ToUpper(), 259) PaginaDict.Add("/Nomina/CatSatRiesgoPuesto.aspx".ToUpper(), 259)
PaginaDict.Add("/Nomina/Utilidades.aspx".ToUpper(), 870) PaginaDict.Add("/Nomina/ReportePTU.aspx".ToUpper(), 870)
#End Region #End Region
'Ordenes de Servicios 'Ordenes de Servicios
#Region "OS" #Region "OS"

22
App_Code/ClsRH.vb
View File

@@ -2024,6 +2024,28 @@ Public Class ClsRH
Return Retorno Return Retorno
End Function End Function
Public Function UpPersonalAltas(CvePersonal As Integer, fechaInicio As String, fechaFin As String, CvePeriodoFiniquito As Integer, CveMotivoBaja As Integer, esLiquidacion As Boolean) As Boolean
Dim Retorno As Boolean = False
SqlDataAdapter("PA_RH_PersonalAltasUp")
With SqlAdapter.SelectCommand.Parameters
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
.Add("@fechaInicio", SqlDbType.VarChar).Value = fechaInicio
.Add("@fechaFin", SqlDbType.VarChar).Value = fechaFin
.Add("@CvePeriodoFiniquito", SqlDbType.Int).Value = CvePeriodoFiniquito
.Add("@CveMotivoBaja", SqlDbType.Int).Value = CveMotivoBaja
.Add("@esLiquidacion", SqlDbType.Int).Value = If(esLiquidacion, 1, 0)
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener el reporte de Altas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function GetPersonalAltas(CvePersonal As Integer) As Boolean Public Function GetPersonalAltas(CvePersonal As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
SqlDataAdapter("PA_RH_PersonalAltasGet") SqlDataAdapter("PA_RH_PersonalAltasGet")

93
App_Code/Modelos.vb
View File

@@ -2780,23 +2780,17 @@ Namespace Modelos
Next Next
End If End If
If DtRemisionesRelacionadas Is Nothing Then If ObjFactura.RemisionesLista.Count = 0 AndAlso (DtRemisionesRelacionadas IsNot Nothing AndAlso DtRemisionesRelacionadas.Rows.Count > 0) Then
If ObjVentas.GetRemisionesRelacionadas(ObjFactura.CveVenta, ObjFactura.TipoDocto) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then For Each Row As DataRow In DtRemisionesRelacionadas.Rows
DtRemisionesRelacionadas = ObjVentas.DtResultados.Copy() ObjFactura.RemisionesLista.Add(Row("CveVenta").ToString().ToEntero())
End If Next
End If End If
'Si es Facturacion de una remision cancelamos, traspasamos saldos y agregamos evento a la bitacora 'Si es Facturacion de una remision cancelamos, traspasamos saldos y agregamos evento a la bitacora
If (DtRemisionesRelacionadas IsNot Nothing AndAlso DtRemisionesRelacionadas.Rows.Count > 0) OrElse ObjFactura.RemisionesLista.Count > 0 Then If (DtRemisionesRelacionadas IsNot Nothing AndAlso DtRemisionesRelacionadas.Rows.Count > 0) OrElse ObjFactura.RemisionesLista.Count > 0 Then
If ObjFactura.RemisionesLista.Count = 0 AndAlso (DtRemisionesRelacionadas IsNot Nothing AndAlso DtRemisionesRelacionadas.Rows.Count > 0) Then
For Each Row As DataRow In DtRemisionesRelacionadas.Rows
ObjFactura.RemisionesLista.Add(Row("CveVenta").ToString().ToEntero())
Next
End If
If ObjFactura.RemisionesLista.Count > 0 Then If ObjFactura.RemisionesLista.Count > 0 Then
For Each CveRemision As Integer In RemisionesLista For Each CveRemision As Integer In RemisionesLista
If Not ObjConta.TraspasarSaldosRemision(CveRemision, ObjFactura.CvePrePoliza, ObjFactura.CveVenta) Then If Not ObjConta.TraspasarSaldosRemision(CveRemision, ObjFactura.CvePrePoliza, ObjFactura.CveVenta) Then
@@ -2817,25 +2811,30 @@ Namespace Modelos
Exit For Exit For
End If End If
Next Next
End If
'REGRESA SALDO A LAS REMISIONES QUE SE FACTURARON EN EL INGRESO QUE SE ESTA CANCELANDO
If ObjFactura.TipoDocto = "Ing" And ValorMultiplicador = -1 AndAlso NuevaFactura <> 1 AndAlso Not SeCancelaRemisionProceso Then ' se debe de excluir cuando es refacturación
For Each Dr As DataRow In DtRemisionesRelacionadas.Rows
Dim DebeCancelar As Boolean = CancelarRemisiones AndAlso ListaRemisionesCancelar.Any(Function(CveRemision) CveRemision = Dr("CveVenta").ToString.ToEntero())
If Not DebeCancelar Then
If Not ObjConta.TraspasarSaldosRemision(Dr("CveVenta").ToString.ToEntero, ObjFactura.CvePrePoliza, ObjFactura.CveVenta, 1) Then
ErrorPrepoliza = True
End If
If Not ObjEventos.AddEventoBitacora($"Facturación cancelada en: <a href='/Ventas/Ventas.aspx?CveVenta={ObjFactura.CveVenta}' target='_blank' class='Texto'>{ObjFactura.Folio}</a>", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=Dr("CveVenta").ToString.ToEntero) Then
ErrorPrepoliza = True
End If
End If
Next
End If End If
End If
If DtRemisionesRelacionadas Is Nothing Then
If ObjVentas.GetRemisionesRelacionadas(ObjFactura.CveVenta, ObjFactura.TipoDocto) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
DtRemisionesRelacionadas = ObjVentas.DtResultados.Copy()
End If
End If
'REGRESA SALDO A LAS REMISIONES QUE SE FACTURARON EN EL INGRESO QUE SE ESTA CANCELANDO
If ObjFactura.TipoDocto = "Ing" And ValorMultiplicador = -1 AndAlso NuevaFactura <> 1 AndAlso Not SeCancelaRemisionProceso AndAlso DtRemisionesRelacionadas IsNot Nothing Then ' se debe de excluir cuando es refacturación
For Each Dr As DataRow In DtRemisionesRelacionadas.Rows
Dim DebeCancelar As Boolean = CancelarRemisiones AndAlso ListaRemisionesCancelar.Any(Function(CveRemision) CveRemision = Dr("CveVenta").ToString.ToEntero())
If Not DebeCancelar Then
If Not ObjConta.TraspasarSaldosRemision(Dr("CveVenta").ToString.ToEntero, ObjFactura.CvePrePoliza, ObjFactura.CveVenta, 1) Then
ErrorPrepoliza = True
End If
If Not ObjEventos.AddEventoBitacora($"Facturación cancelada en: <a href='/Ventas/Ventas.aspx?CveVenta={ObjFactura.CveVenta}' target='_blank' class='Texto'>{ObjFactura.Folio}</a>", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=Dr("CveVenta").ToString.ToEntero) Then
ErrorPrepoliza = True
End If
End If
Next
End If End If
@@ -3583,6 +3582,13 @@ Namespace Modelos
Dim TieneAlmacen As Boolean = False Dim TieneAlmacen As Boolean = False
If ObjFactura.SaldoAlmacen <> 0 Then
Retorno.Mensaje = "El pedido no se puede cancelar ya que tiene movimientos de almacén.<br/>Nota: Primero hay que hacer la devolución al almacén."
Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia
Return Retorno
End If
'VALIDA QUE LA FACTURA NO TENGA PAGOS 'VALIDA QUE LA FACTURA NO TENGA PAGOS
If ObjFactura.TipoDocto.Contiene("Ing", "Rem") AndAlso ObjFactura.Pagado > 0 Then If ObjFactura.TipoDocto.Contiene("Ing", "Rem") AndAlso ObjFactura.Pagado > 0 Then
Retorno.Mensaje = "La factura no se puede cancelar debido a que tiene pagos vinculados." Retorno.Mensaje = "La factura no se puede cancelar debido a que tiene pagos vinculados."
@@ -3608,7 +3614,7 @@ Namespace Modelos
End If End If
'LA VALIDACION DE SALDOS CUANDO ES REFACTURACION SE HACE ANTES ASI QUE SI ES REFACTURACION IGNORAMOS ESTA CONDICION, SI ES ANTICIPO VERIFICA QUE NO ESTÉ APLICADO 'LA VALIDACION DE SALDOS CUANDO ES REFACTURACION SE HACE ANTES ASI QUE SI ES REFACTURACION IGNORAMOS ESTA CONDICION, SI ES ANTICIPO VERIFICA QUE NO ESTÉ APLICADO
If ObjFactura.TipoDocto = "Ant" AndAlso ObjFactura.Pagado > 0 AndAlso DTDocumentosRelacionados.Rows.Count > 0 Then If ObjFactura.TipoDocto.Contiene("Ing", "Ant", "Rem") AndAlso ObjFactura.Pagado > 0 AndAlso DTDocumentosRelacionados.Rows.Count > 0 Then
Retorno.Mensaje = "La factura no se puede cancelar debido a que tiene pagos vinculados." Retorno.Mensaje = "La factura no se puede cancelar debido a que tiene pagos vinculados."
Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia
@@ -3670,7 +3676,7 @@ Namespace Modelos
Dim RevivirRemisiones = Not EsRefacturacion AndAlso ((TieneRemisionesRelacionadas AndAlso ListaRemisionesCancelar Is Nothing) OrElse (DtRemisionesRelacionadas.Rows.Count > ListaRemisionesCancelar.Count)) Dim RevivirRemisiones = Not EsRefacturacion AndAlso ((TieneRemisionesRelacionadas AndAlso ListaRemisionesCancelar Is Nothing) OrElse (DtRemisionesRelacionadas.Rows.Count > ListaRemisionesCancelar.Count))
'REMISION YA SE DEBE HACER POR EL PROCESO DE DEVOLUCION DE ALMACEN 'REMISION YA SE DEBE HACER POR EL PROCESO DE DEVOLUCION DE ALMACEN
If Not EsRefacturacion AndAlso (ObjFactura.SaldoAlmacen > 0 AndAlso ObjFactura.EsDevolucionVenta.Contiene(0, 1)) AndAlso Not RealizarDevolucionAlmacen And RevivirRemisiones = False Then If Not EsRefacturacion AndAlso (ObjFactura.SaldoAlmacen <> 0 AndAlso ObjFactura.EsDevolucionVenta.Contiene(0, 1)) AndAlso Not RealizarDevolucionAlmacen And RevivirRemisiones = False Then
Retorno.Mensaje = "La factura no se puede cancelar debido a que tiene movimientos de inventario." Retorno.Mensaje = "La factura no se puede cancelar debido a que tiene movimientos de inventario."
Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia
@@ -4190,7 +4196,8 @@ Namespace Modelos
End If End If
Dim CveEstatusRefacturacion As Integer = 0 Dim CveEstatusRefacturacion As Integer = If(ObjFactura.CveEstatusRefacturacion <= 0, 0, ObjFactura.CveEstatusRefacturacion)
'ACTUALIZA ESTATUS 'ACTUALIZA ESTATUS
If Not ErrorCancelar Then If Not ErrorCancelar Then
Select Case ObjFactura.TipoDocto Select Case ObjFactura.TipoDocto
@@ -4208,11 +4215,17 @@ Namespace Modelos
End If End If
End If End If
If CveEstatus.Contiene(4, 5) Then
If Not ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, CancelacionAcuse, CancelacionFecha, CveVenta, IDPoliza, CvePAC:=CvePACCancelacion, CveEstatusRefacturacion:=CveEstatusRefacturacion, If Not ObjVentas.UpdateCancelaVenta(CveVenta, CancelacionFecha, CancelacionAcuse, UsuarioActual.CveEmpresa, CvePACCancelacion) Then
CveUsuarioCambiaEstatus:=UsuarioActual.CveUsuario, FechaCambioEstatus:=Now.ToString("yyyy-MM-dd hh:mm:ss.mmm")) Then ErrorCancelar = True
ErrorCancelar = True MensajeError = "Ocurrió un error al guardar el estatus de cancelación."
MensajeError = "Ocurrió un error al guardar el estatus de cancelación." End If
Else
If Not ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, CancelacionAcuse, CancelacionFecha, CveVenta, IDPoliza, CvePAC:=CvePACCancelacion, CveEstatusRefacturacion:=CveEstatusRefacturacion,
CveUsuarioCambiaEstatus:=UsuarioActual.CveUsuario, FechaCambioEstatus:=Now.ToString("yyyy-MM-dd hh:mm:ss.mmm")) Then
ErrorCancelar = True
MensajeError = "Ocurrió un error al guardar el estatus de cancelación."
End If
End If End If
If CancelarRemisiones Then If CancelarRemisiones Then
@@ -4701,8 +4714,8 @@ Namespace Modelos
#End Region #End Region
#Region "P R O P I E D A D E S" #Region "P R O P I E D A D E S"
Public Property CveEstatusRefacturacion As Integer = 0
Public Property NuevaFactura As Integer Public Property NuevaFactura As Integer
Public Property EnviarCorreo As Boolean = False Public Property EnviarCorreo As Boolean = False
Public Property ErrorList As List(Of String) Public Property ErrorList As List(Of String)

22
App_Code/Timbrado.vb
View File

@@ -634,7 +634,7 @@ Public Class Timbrado
'Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas, TmpDTConceptos, TmpDTImpuestos, TmpDTComplementos, Ruta, LstFordASN, FordGSDBM, ObjV) 'Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas, TmpDTConceptos, TmpDTImpuestos, TmpDTComplementos, Ruta, LstFordASN, FordGSDBM, ObjV)
Case 4 Case 4
Dim Ret As String = TimbrarFacturaGoCFDIv33(Ventas, UsuarioActual) Dim Ret As String = TimbrarFacturaGoCFDIv33(Ventas, UsuarioActual, CvePACEspecial)
Retorno = If(Ret = "", True, False) Retorno = If(Ret = "", True, False)
End Select End Select
@@ -1571,7 +1571,10 @@ Public Class Timbrado
'GC.Collect() 'GC.Collect()
Return Retorno Return Retorno
End Function End Function
Public Function TimbrarFacturaGoCFDIv33(Ventas As Modelos.Factura, UsuarioActual As Usuario) As String Public Function TimbrarFacturaGoCFDIv33(Ventas As Modelos.Factura, UsuarioActual As Usuario, Optional CvePACEspecial As Integer = -1) As String
If CvePACEspecial = -1 Then
CvePACEspecial = UsuarioActual.Empresa.CvePAC
End If
Dim sw As New Diagnostics.Stopwatch Dim sw As New Diagnostics.Stopwatch
Dim swmili As Long = 0 Dim swmili As Long = 0
Dim swTiempo As New StringBuilder Dim swTiempo As New StringBuilder
@@ -1581,8 +1584,8 @@ Public Class Timbrado
' 'Sucursal matriz de la empresa ' 'Sucursal matriz de la empresa
Dim ArchivoLLave As String = String.Format("{0}Certificados\{1}", UsuarioActual.Empresa.Ruta, UsuarioActual.Empresa.ArchivoKey) Dim ArchivoLLave As String = String.Format("{0}Certificados\{1}", UsuarioActual.Empresa.Ruta, UsuarioActual.Empresa.ArchivoKey)
Dim ArchivoCertificado As String = String.Format("{0}Certificados\{1}", UsuarioActual.Empresa.Ruta, UsuarioActual.Empresa.ArchivoCer) Dim ArchivoCertificado As String = String.Format("{0}Certificados\{1}", UsuarioActual.Empresa.Ruta, UsuarioActual.Empresa.ArchivoCer)
Dim UsuarioServicio As String = If(UsuarioActual.Empresa.CvePAC = 2, UsuarioActual.Empresa.RFC, "rene.molina@adsistemas.mx") Dim UsuarioServicio As String = If(CvePACEspecial = 2, UsuarioActual.Empresa.RFC, "rene.molina@adsistemas.mx")
Dim ClaveServicio As String = If(UsuarioActual.Empresa.CvePAC = 2, UsuarioActual.Empresa.RFC.ToLower, "rene2018") Dim ClaveServicio As String = If(CvePACEspecial = 2, UsuarioActual.Empresa.RFC.ToLower, "rene2018")
Dim Clave As String = UsuarioActual.Empresa.ContraseñaKey Dim Clave As String = UsuarioActual.Empresa.ContraseñaKey
Dim EmisorRFC As String = UsuarioActual.Empresa.RFC Dim EmisorRFC As String = UsuarioActual.Empresa.RFC
Dim UrlServicio As String = "" ' Produccion Dim UrlServicio As String = "" ' Produccion
@@ -1591,8 +1594,7 @@ Public Class Timbrado
Dim SubTotal As Decimal = 0 Dim SubTotal As Decimal = 0
Dim TimbraProduccion As Boolean = True Dim TimbraProduccion As Boolean = True
If Not Directory.Exists(RutaArchivo) Then Directory.CreateDirectory(RutaArchivo) If Not Directory.Exists(RutaArchivo) Then Directory.CreateDirectory(RutaArchivo)
Select Case CvePACEspecial
Select Case UsuarioActual.Empresa.CvePAC
Case 2 Case 2
UrlServicio = "http://generacfdi.com.mx/rvltimbrado/service1.asmx?WSDL" UrlServicio = "http://generacfdi.com.mx/rvltimbrado/service1.asmx?WSDL"
Case 4 Case 4
@@ -1606,7 +1608,7 @@ Public Class Timbrado
ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\CSD01_AAA010101AAA.cer" ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\CSD01_AAA010101AAA.cer"
Clave = "12345678a" Clave = "12345678a"
TimbraProduccion = False TimbraProduccion = False
Select Case UsuarioActual.Empresa.CvePAC Select Case CvePACEspecial
Case 2 Case 2
UsuarioServicio = "fgomez" UsuarioServicio = "fgomez"
ClaveServicio = "12121212" ClaveServicio = "12121212"
@@ -2090,7 +2092,7 @@ Public Class Timbrado
Using ObjVentas As New ClsVentas() Using ObjVentas As New ClsVentas()
If ObjVentas.UpdateEstatusFactura(3, FolioFiscal, "", ObjCFDITimbre.Comprobante.Fecha, Ventas.CveVenta, CvePAC:=UsuarioActual.Empresa.CvePAC) Then If ObjVentas.UpdateEstatusFactura(3, FolioFiscal, "", ObjCFDITimbre.Comprobante.Fecha, Ventas.CveVenta, CvePAC:=CvePACEspecial) Then
Retorno = "" Retorno = ""
Else Else
Retorno = "Error" Retorno = "Error"
@@ -2113,7 +2115,7 @@ Public Class Timbrado
If ObjCFDITimbre.Comprobante.TipoComprobante = "N" Then If ObjCFDITimbre.Comprobante.TipoComprobante = "N" Then
Using ObjNomina2 As New ClsNominas() Using ObjNomina2 As New ClsNominas()
If ObjNomina2.UpdateEstatusNomNominas(3, UsuarioActual.Empresa.CvePAC, FolioFiscal, "", ("01/01/2000").ToDate, ObjCFDITimbre.Nomina.CveNomina, 0, 0, 0, 0, 0) Then If ObjNomina2.UpdateEstatusNomNominas(3, CvePACEspecial, FolioFiscal, "", ("01/01/2000").ToDate, ObjCFDITimbre.Nomina.CveNomina, 0, 0, 0, 0, 0) Then
Retorno = "" Retorno = ""
Else Else
Retorno = "Error" Retorno = "Error"
@@ -2159,7 +2161,7 @@ Public Class Timbrado
End If End If
#End Region #End Region
GuardaLogTimbrado(swTiempo.ToString, UsuarioActual.Empresa.CvePAC) GuardaLogTimbrado(swTiempo.ToString, CvePACEspecial)
Return Retorno Return Retorno
End Function End Function
Public Sub GuardaLogTimbrado(Str As String, CvePAC As Integer) Public Sub GuardaLogTimbrado(Str As String, CvePAC As Integer)

2
Bancos/IE.aspx.vb
View File

@@ -3939,7 +3939,7 @@ Partial Class Bancos_IE
End If End If
Else Else
Alert("Se presento un error al cancelar el complemento.") Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgAdvertencia)
End If End If
Else Else
ErrorCancelarComplemento = False ErrorCancelarComplemento = False

4
Compras/Compras.aspx.vb
View File

@@ -6207,7 +6207,6 @@ Partial Class Compras_Compras
Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
If importeMovimiento <> 0 Then
'Conta ContPAQ 'Conta ContPAQ
If IdCtaContable = 0 Then If IdCtaContable = 0 Then
CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString) CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
@@ -6224,9 +6223,8 @@ Partial Class Compras_Compras
End If End If
End If
Dim ContienePSNeteoBonif As Boolean = False Dim ContienePSNeteoBonif As Boolean = False
For Each Dr As DataRow In TmpDT.Rows For Each Dr As DataRow In TmpDT.Rows
If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Then 'clasificación de Bonificación, no se incluirá en el neteo If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Then 'clasificación de Bonificación, no se incluirá en el neteo
ContienePSNeteoBonif = True ContienePSNeteoBonif = True

10
Contabilidad/PolizasImpresion.aspx
View File

@@ -84,6 +84,16 @@
<div class="col-md-2 "> <div class="col-md-2 ">
<asp:DropDownList ID="DdlCuenta" DataTextField="CodigoNombre" DataValueField="Id" CssClass="form-control input-sm select2me" runat="server"></asp:DropDownList> <asp:DropDownList ID="DdlCuenta" DataTextField="CodigoNombre" DataValueField="Id" CssClass="form-control input-sm select2me" runat="server"></asp:DropDownList>
</div> </div>
<label class="col-md-1 truncate" data-toggle="tooltip" data-placement="top" title="Grupo Plantilla">Grupo Plantilla:</label>
<div class="col-md-2 ">
<asp:DropDownList ID="DdlGrupoPlantilla" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
<asp:ListItem Text="Compras" Value="1"></asp:ListItem>
<asp:ListItem Text="Ventas" Value="2"></asp:ListItem>
<asp:ListItem Text="Pago Compra" Value="3"></asp:ListItem>
<asp:ListItem Text="Pago Venta" Value="4"></asp:ListItem>
</asp:DropDownList>
</div>
</div> </div>
</div> </div>

2
Contabilidad/PolizasImpresion.aspx.vb
View File

@@ -40,7 +40,7 @@ Partial Class Contabilidad_PolizasImpresion
Dim objcont As New ClsContPAQi(UsuarioActual.Empresa) Dim objcont As New ClsContPAQi(UsuarioActual.Empresa)
If objcont.GetPolizasMasivo(TxtFechaInicio.Text.ToDate, TxtFechaFin.Text.ToDate, foli, folf, ddlTipoPoliza.SelectedValue.ToEntero, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlSegmentoNeg.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero) Then If objcont.GetPolizasMasivo(TxtFechaInicio.Text.ToDate, TxtFechaFin.Text.ToDate, foli, folf, ddlTipoPoliza.SelectedValue.ToEntero, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlSegmentoNeg.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, DdlGrupoPlantilla.SelectedValue.ToEntero) Then
If objcont.DtResultados.Rows.Count < 10000 Then If objcont.DtResultados.Rows.Count < 10000 Then
If objcont.DtResultados.Rows.Count > 0 Then If objcont.DtResultados.Rows.Count > 0 Then

4
LogTimbrado.txt Normal file
View File

@@ -0,0 +1,4 @@

.. PAC: 4 - Verificado : (5) 5 Certificado : (501) 506 Armado: (25) 531 Genera: (494) 1025 Timbrado: (748) 1773 ..20/08/2019:03:33 p. m.
.. PAC: 4 - Verificado : (2) 2 Certificado : (388) 390 Armado: (4) 394 Genera: (440) 834 Timbrado: (1030) 1864 Guardado: (361) 2225 Actualizado: (99) 2324 ..20/08/2019:03:39 p. m.

24
Nomina/Finiquito.aspx
View File

@@ -188,6 +188,10 @@
</asp:DropDownList> </asp:DropDownList>
<asp:Label runat="server" Text="Concepto:" AssociatedControlID="DdlConcepto"></asp:Label> <asp:Label runat="server" Text="Concepto:" AssociatedControlID="DdlConcepto"></asp:Label>
</div> </div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtImporte" CssClass="form-control" runat="server"></asp:TextBox>
<asp:Label runat="server" Text="Concepto:" AssociatedControlID="DdlConcepto"></asp:Label>
</div>
</div> </div>
<div class="modal-footer"> <div class="modal-footer">
<asp:UpdatePanel runat="server" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" UpdateMode="Conditional">
@@ -228,6 +232,10 @@
</asp:DropDownList> </asp:DropDownList>
<asp:Label runat="server" Text="Motivo de Baja: " AssociatedControlID="DdlMotivoBaja"></asp:Label> <asp:Label runat="server" Text="Motivo de Baja: " AssociatedControlID="DdlMotivoBaja"></asp:Label>
</div> </div>
<div class="">
¿es Liquidación?
<asp:CheckBox ID="ChkesLiquidacion" CssClass="chksino" Text=" " runat="server" />
</div>
<div class="row"> <div class="row">
<div class="col-md-6" style="padding-right: 0px"> <div class="col-md-6" style="padding-right: 0px">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
@@ -285,6 +293,22 @@
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
<%--"<tr class=\"thTituloConcepto\"> <th scope=\"col\" colspan=\"2\">Percepciones</th><th scope=\"col\" colspan=\"2\">Deducciones</th> </tr>"--%> <%--"<tr class=\"thTituloConcepto\"> <th scope=\"col\" colspan=\"2\">Percepciones</th><th scope=\"col\" colspan=\"2\">Deducciones</th> </tr>"--%>
<script> <script>
function insertParam(key, value) {
key = encodeURIComponent(key); value = encodeURIComponent(value);
var s = document.location.search;
var kvp = key + "=" + value;
var r = new RegExp("(&|\\?)" + key + "=[^\&]*");
s = s.replace(r, "$1" + kvp);
if (!RegExp.$1) { s += (s.length > 0 ? '&' : '?') + kvp; };
//again, do what you will here
document.location.search = s;
}
function ADSBegin() { function ADSBegin() {
if ($('.thTituloConcepto').length == 0) { if ($('.thTituloConcepto').length == 0) {
$('.GvConceptos').prepend("<tr class=\"thTituloConcepto\"> <th scope=\"col\" colspan=\"2\">Percepciones</th><th scope=\"col\" colspan=\"2\">Deducciones</th> </tr>"); $('.GvConceptos').prepend("<tr class=\"thTituloConcepto\"> <th scope=\"col\" colspan=\"2\">Percepciones</th><th scope=\"col\" colspan=\"2\">Deducciones</th> </tr>");

110
Nomina/Finiquito.aspx.vb
View File

@@ -130,7 +130,7 @@ Partial Class Nomina_Finiquito
obj.EstatusD = dtD.Rows(index)("Estatus").ToString().ToEntero() obj.EstatusD = dtD.Rows(index)("Estatus").ToString().ToEntero()
ElseIf index = noD Then ElseIf index = noD Then
obj.EstatusD = -1 obj.EstatusD = -1
obj.ConceptoD = "Agregar" obj.ConceptoD = "Agregar"
End If End If
listaconceptos.Add(obj) listaconceptos.Add(obj)
Next Next
@@ -155,7 +155,7 @@ Partial Class Nomina_Finiquito
objT.CveConcepto = 0 objT.CveConcepto = 0
objT.Concepto = "" objT.Concepto = ""
objT.Estatus = -3 objT.Estatus = -3
objT.ImporteD = objST.Importe - objT.Importe objT.ImporteD = objST.Importe + objST.ImporteD
objT.CveConceptoD = 0 objT.CveConceptoD = 0
objT.ConceptoD = "Total" objT.ConceptoD = "Total"
objT.EstatusD = -3 objT.EstatusD = -3
@@ -188,6 +188,20 @@ Partial Class Nomina_Finiquito
ViewState("DTConceptos") = Value ViewState("DTConceptos") = Value
End Set End Set
End Property End Property
Private Property esLiquidacion As Boolean
Get
If Not IsNothing(ViewState("esLiquidacion")) Then
Return CBool(ViewState("esLiquidacion"))
Else
Return False
End If
End Get
Set
ViewState("esLiquidacion") = Value
End Set
End Property
#End Region #End Region
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
@@ -217,7 +231,7 @@ Partial Class Nomina_Finiquito
End Sub End Sub
Private Sub CargaDdlPersonal() Private Sub CargaDdlPersonal()
Dim ObjPersonal As New ClsRH Dim ObjPersonal As New ClsRH
If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, 2, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then If ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
DdlPersonal.DataSource = ObjPersonal.DtResultados DdlPersonal.DataSource = ObjPersonal.DtResultados
DdlPersonal.DataBind() DdlPersonal.DataBind()
End If End If
@@ -227,29 +241,40 @@ Partial Class Nomina_Finiquito
Private Function CargaDatosFiniquito() As Boolean Private Function CargaDatosFiniquito() As Boolean
Dim retorno As Boolean = True Dim retorno As Boolean = True
If CvePersonal > 0 Then If CvePersonal > 0 Then
DdlPersonal.SelectedValueExist(CvePersonal.ToString()) DdlPersonal.SelectedValueExist(CvePersonal.ToString())
Dim Nombre As String = "" Dim Nombre As String = ""
Dim FechaBaja As String = "" Dim FechaBaja As String = ""
Dim MotivoBaja As String = ""
Dim EstatusPersonal As String = "" Dim EstatusPersonal As String = ""
CvePeriodoFiniquito = 0 CvePeriodoFiniquito = 0
CveTipoPeriodo = 0 CveTipoPeriodo = 0
esLiquidacion = False
pnlupValoresFiniquito.Visible = False pnlupValoresFiniquito.Visible = False
Dim ObjPersonal As New ClsRH DdlMotivoBaja.SelectedValue = "-1"
If ObjPersonal.GetPersonal(CvePersonal, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, 2, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then Using ObjPersonal As New ClsRH()
Nombre = ObjPersonal.DtResultados.Rows(0)("Nombre").ToString() If ObjPersonal.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then
FechaBaja = String.Format("{0:dd/MM/yyyy}", ObjPersonal.FechaBaja) Nombre = ObjPersonal.DtResultados.Rows(0)("Nombre").ToString()
MotivoBaja = String.Format("{0}", ObjPersonal.DtResultados.Rows(0)("MotivoBaja")) FechaBaja = String.Format("{0:dd/MM/yyyy}", ObjPersonal.FechaBaja)
EstatusPersonal = String.Format("{0}", ObjPersonal.DtResultados.Rows(0)("EstatusPersonal")) EstatusPersonal = String.Format("{0}", ObjPersonal.DtResultados.Rows(0)("EstatusPersonal"))
CvePeriodoFiniquito = ObjPersonal.DtResultados.Rows(0)("CvePeriodoFiniquito").ToString().ToEntero() CveTipoPeriodo = ObjPersonal.DtResultados.Rows(0)("CveTipoPeriodo").ToString().ToEntero()
CveTipoPeriodo = ObjPersonal.DtResultados.Rows(0)("CveTipoPeriodo").ToString().ToEntero() End If
End If If ObjPersonal.GetPersonalAltas(CvePersonal) AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then
ObjPersonal.Dispose() CvePeriodoFiniquito = ObjPersonal.DtResultados.Rows(0)("CvePeriodoFiniquito").ToString().ToEntero()
FechaBaja = String.Format("{0:dd/MM/yyyy}", ObjPersonal.DtResultados.Rows(0)("FechaFin"))
DdlMotivoBaja.SelectedValueExist(ObjPersonal.DtResultados.Rows(0)("CveMotivoBaja").ToString().ToEntero())
Dim stringesliquidacion = ObjPersonal.DtResultados.Rows(0)("esLiquidacion").ToString()
esLiquidacion = (stringesliquidacion = "True" OrElse stringesliquidacion = "1")
End If
End Using
If DdlMotivoBaja.SelectedValue.ToEntero() > 0 Then
LblMotivoBaja.Text = DdlMotivoBaja.SelectedItem.Text
Else
LblMotivoBaja.Text = ""
End If
HypEmpleado.Text = Nombre HypEmpleado.Text = Nombre
HypEmpleado.NavigateUrl = String.Format("/RH/Personal.aspx?CvePersonal={0}", CvePersonal) HypEmpleado.NavigateUrl = String.Format("/RH/Personal.aspx?CvePersonal={0}", CvePersonal)
LblFechaBaja.Text = FechaBaja LblFechaBaja.Text = FechaBaja
LblMotivoBaja.Text = MotivoBaja
LblEstatus.Text = EstatusPersonal LblEstatus.Text = EstatusPersonal
TxtFechaBaja.Text = FechaBaja TxtFechaBaja.Text = FechaBaja
If CvePeriodoFiniquito <= 0 Then If CvePeriodoFiniquito <= 0 Then
@@ -257,11 +282,11 @@ Partial Class Nomina_Finiquito
retorno = False retorno = False
pnlupValoresFiniquito.Visible = True pnlupValoresFiniquito.Visible = True
End If End If
Dim ObjNom As New ClsNominas Using ObjNom As New ClsNominas()
If ObjNom.GetFiniquitosPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then If ObjNom.GetFiniquitosPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then
DTConceptosPersonal = ObjNom.DtResultados DTConceptosPersonal = ObjNom.DtResultados
End If End If
ObjNom.Dispose() End Using
GvConceptos.DataSource = ConceptsPersonas GvConceptos.DataSource = ConceptsPersonas
GvConceptos.DataBind() GvConceptos.DataBind()
Else Else
@@ -273,6 +298,13 @@ Partial Class Nomina_Finiquito
Protected Sub LnkCampiarEmpleado_Click(sender As Object, e As EventArgs) Protected Sub LnkCampiarEmpleado_Click(sender As Object, e As EventArgs)
CvePersonal = DdlPersonal.SelectedValue.ToEntero() CvePersonal = DdlPersonal.SelectedValue.ToEntero()
Using ObjPersonal As New ClsRH()
If ObjPersonal.UpPersonalAltas(CvePersonal, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked) AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then
End If
End Using
If pnlupValoresFiniquito.Visible Then If pnlupValoresFiniquito.Visible Then
End If End If
@@ -295,7 +327,9 @@ Partial Class Nomina_Finiquito
End Sub End Sub
Protected Sub DdlPersonal_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlPersonal_SelectedIndexChanged(sender As Object, e As EventArgs)
Response.Redirect($"/Nomina/Finiquito.aspx?CvePersonal={DdlPersonal.SelectedValue}")
'Alert($"insertParam('CvePersonal','{DdlPersonal.SelectedValue}')")
'RegistraScript($"insertParam('CvePersonal','{DdlPersonal.SelectedValue}')")
End Sub End Sub
Protected Sub DdlTipoPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlTipoPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs)
Dim CveTipoPeriodoactual As Integer = If(DdlTipoPeriodo.SelectedValue.ToEntero() > 0, DdlTipoPeriodo.SelectedValue.ToEntero(), CveTipoPeriodo) Dim CveTipoPeriodoactual As Integer = If(DdlTipoPeriodo.SelectedValue.ToEntero() > 0, DdlTipoPeriodo.SelectedValue.ToEntero(), CveTipoPeriodo)
@@ -354,24 +388,24 @@ Partial Class Nomina_Finiquito
End If End If
If Estatus = -1 Then If Estatus = -1 Then
LtlConcepto.Visible = False LtlConcepto.Visible = False
ElseIf Estatus > 0 Then ElseIf Estatus > 0 Then
LtlImporte.Visible = False LtlImporte.Visible = False
End If
If EstatusD = -1 Then
LtlConceptoD.Visible = False
ElseIf EstatusD > 0 Then
LtlImporteD.Visible = False
End If
LnkConcepto.Visible = Not LtlConcepto.Visible
LnkConceptoD.Visible = Not LtlConceptoD.Visible
LnkImporte.Visible = Not LtlImporte.Visible
LnkImporteD.Visible = Not LtlImporteD.Visible
End If End If
If EstatusD = -1 Then
LtlConceptoD.Visible = False
ElseIf EstatusD > 0 Then
LtlImporteD.Visible = False
End If
LnkConcepto.Visible = Not LtlConcepto.Visible
LnkConceptoD.Visible = Not LtlConceptoD.Visible
LnkImporte.Visible = Not LtlImporte.Visible
LnkImporteD.Visible = Not LtlImporteD.Visible
End If
End Sub End Sub
Protected Sub LnkConcepto_Click(sender As Object, e As EventArgs) Protected Sub LnkConcepto_Click(sender As Object, e As EventArgs)

6
Ventas/Ventas.aspx.vb
View File

@@ -17455,7 +17455,11 @@ Partial Class Ventas
If resp.CveEstatus = 5 Then If resp.CveEstatus = 5 Then
Alert(resp.Mensaje, resp.TipoMensaje, JSBtnAceptar:="BtnEnviarMailCancelacion();", TextoConfirmacion:="&nbsp;&nbsp;&nbsp;&nbsp;Si&nbsp;&nbsp;&nbsp;&nbsp;", TextoCancelacion:="&nbsp;&nbsp;&nbsp;&nbsp;<a onclick='Recargar()'>No</>&nbsp;&nbsp;&nbsp;&nbsp;") Alert(resp.Mensaje, resp.TipoMensaje, JSBtnAceptar:="BtnEnviarMailCancelacion();", TextoConfirmacion:="&nbsp;&nbsp;&nbsp;&nbsp;Si&nbsp;&nbsp;&nbsp;&nbsp;", TextoCancelacion:="&nbsp;&nbsp;&nbsp;&nbsp;<a onclick='Recargar()'>No</>&nbsp;&nbsp;&nbsp;&nbsp;")
Else Else
Alert(resp.Mensaje, resp.TipoMensaje, JSBtnAceptar:="BtnRefrescarPagina();") If Not EsRefacturacion Then
Alert(resp.Mensaje, resp.TipoMensaje, JSBtnAceptar:="BtnRefrescarPagina();")
Else
Response.Redirect($"/Ventas/RepCancelacionesPorRespuesta.aspx?CveVenta={Me.CveVenta}")
End If
End If End If
ObjFactura.CveAlmacen = -1 ObjFactura.CveAlmacen = -1

45
localhost.sln
View File

@@ -1,45 +0,0 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 15
VisualStudioVersion = 15.0.27703.2035
MinimumVisualStudioVersion = 10.0.40219.1
Project("{E24C65DC-7377-472B-9ABA-BC803B73C61A}") = "http://localhost", "http://localhost", "{82D0C8D1-3CF5-471D-92AF-71A9AE4B4335}"
ProjectSection(WebsiteProperties) = preProject
SccProjectName = ""$/localhost", CAAAAAAA"
SccAuxPath = ""
SccLocalPath = "."
SccProvider = "MSSCCI:Microsoft Visual SourceSafe"
UseIISExpress = "false"
TargetFrameworkMoniker = ".NETFramework,Version%3Dv4.6"
Debug.AspNetCompiler.VirtualPath = "/localhost"
Debug.AspNetCompiler.PhysicalPath = "..\..\..\..\..\inetpub\SIGIT\"
Debug.AspNetCompiler.TargetPath = "PrecompiledWeb\localhost\"
Debug.AspNetCompiler.Updateable = "true"
Debug.AspNetCompiler.ForceOverwrite = "true"
Debug.AspNetCompiler.FixedNames = "false"
Debug.AspNetCompiler.Debug = "True"
Release.AspNetCompiler.VirtualPath = "/localhost"
Release.AspNetCompiler.PhysicalPath = "..\..\..\..\..\inetpub\SIGIT\"
Release.AspNetCompiler.TargetPath = "PrecompiledWeb\localhost\"
Release.AspNetCompiler.Updateable = "true"
Release.AspNetCompiler.ForceOverwrite = "true"
Release.AspNetCompiler.FixedNames = "false"
Release.AspNetCompiler.Debug = "False"
SlnRelativePath = "..\..\..\..\..\inetpub\SIGIT\"
EndProjectSection
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{82D0C8D1-3CF5-471D-92AF-71A9AE4B4335}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{82D0C8D1-3CF5-471D-92AF-71A9AE4B4335}.Debug|Any CPU.Build.0 = Debug|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
GlobalSection(ExtensibilityGlobals) = postSolution
SolutionGuid = {B4590109-7BF9-411C-A1AE-792C02707CE6}
EndGlobalSection
EndGlobal