From ebb6f15df44910ceb267b9f328ca0941a5dbbbff Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Fri, 30 Aug 2019 16:31:51 -0700 Subject: [PATCH 1/8] =?UTF-8?q?apertura=20de=20registro=20de=20conexi?= =?UTF-8?q?=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .gitignore | 20 ++++++++++++ App_Code/ClsVentas.vb | 47 +++++++++++++++++++++++++++++ Inventarios/EntradasSalidas.aspx.vb | 2 +- Ventas/ProductosServicios.aspx | 10 +++++- Ventas/Ventas.aspx.vb | 7 +++-- 5 files changed, 81 insertions(+), 5 deletions(-) diff --git a/.gitignore b/.gitignore index 7bbbff371..e887da8ff 100644 --- a/.gitignore +++ b/.gitignore @@ -6,3 +6,23 @@ /Menu /Web.config /Log.txt +/LogTimbrado.txt +/LogMail.txt +/Bin/Microsoft.ReportViewer.WebForms.dll.refresh +/Bin/Microsoft.ReportViewer.WebForms.dll +/Bin/Microsoft.ReportViewer.WebDesign.dll.refresh +/Bin/Microsoft.ReportViewer.WebDesign.dll +/Bin/Microsoft.ReportViewer.ProcessingObjectModel.dll.refresh +/Bin/Microsoft.ReportViewer.ProcessingObjectModel.dll +/Bin/Microsoft.ReportViewer.Design.dll.refresh +/Bin/Microsoft.ReportViewer.Design.dll +/Bin/Microsoft.ReportViewer.DataVisualization.dll.refresh +/Bin/Microsoft.ReportViewer.DataVisualization.dll +/Bin/Microsoft.ReportViewer.Common.dll.refresh +/Bin/Microsoft.ReportViewer.Common.dll +/.vs +/Temp/637022536882545607-PLANTILLA CFE 2019 DISTRIBUCION.xlsx +/Temp/637020871040720361-FormatoAlmacen (1).xlsx +/Temp/637020865803848374-FormatoAlmacen (1).xlsx +/Temp/637020863973072383-FormatoAlmacen (1).xlsx +/Temp/637020854397859419-FormatoAlmacen (1).xlsx diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index c74d9d6a6..9c625731f 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -75,6 +75,7 @@ Public Class ClsVentas Public Sub RollBack() SqlTransacc.Rollback() End Sub + Private CveConexion As Integer = 0 Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) If TransaccionCompartida Is Nothing Then @@ -82,6 +83,7 @@ Public Class ClsVentas SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString Try SqlConexion.Open() + AddConexion() Catch ex As Exception OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex) End Try @@ -93,6 +95,8 @@ Public Class ClsVentas SqlAdapter = New SqlDataAdapter("", SqlConexion) End Sub + + Private Sub DataAdapter(ByVal pStrSQL As String, Optional ByVal TipoComando As CommandType = CommandType.StoredProcedure) With SqlAdapter.SelectCommand .Parameters.Clear() @@ -102,6 +106,48 @@ Public Class ClsVentas If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc Data = New DataTable End Sub + + +#Region "Conexiones" + + + Private Sub ConexionAdd() + If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then + + DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo) VALUES ('ClsVentas',{0})", HttpContext.Current.Request.Url.Authority), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo + With SqlAdapter.SelectCommand.Parameters + + .Add("@CveConexion", SqlDbType.Int).Direction = ParameterDirection.Output + End With + + Try + SqlAdapter.Fill(Data) + CveConexion = SqlAdapter.SelectCommand.Parameters("@Opcion").Value.ToString.ToEntero + Catch ex As Exception + OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + End If + End Sub + + Private Sub ConexionClose() + If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then + + DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE WHERE CveConexion = ", CveConexion), CommandType.Text) + + Try + SqlAdapter.Fill(Data) + + Catch ex As Exception + OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + End If + + End Sub + +#End Region + Public Function GetVenta(CveVenta As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_VentasGet") @@ -3879,6 +3925,7 @@ Public Class ClsVentas Protected Overridable Sub Dispose(disposing As Boolean) If Not Me.disposedValue Then If disposing Then + AddConexion() ' TODO: dispose managed state (managed objects). If Not Data Is Nothing Then Data.Dispose() If Not Dataset Is Nothing Then Dataset.Dispose() diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index be7cc478a..f2a7e7405 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -1089,7 +1089,7 @@ Partial Class Inventarios_EntradasSalidas If ObjConta IsNot Nothing Then ObjConta.RollBack() Inv.RollBack() - Alert("Ocurrió un error al eliminar el movimiento. Por favor vuelva a intetar.", TipoMensaje.MsgError) + Alert("Ocurrió un error al eliminar el movimiento. Por favor vuelva a intentar.", TipoMensaje.MsgError) End If CveMovimiento = 0 diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index 29c2aca5d..06edab7a6 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -209,7 +209,15 @@ - + +
+ + + + + +
+
Seleccione diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index e6643891b..e7ba78c06 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -15750,12 +15750,13 @@ Partial Class Ventas Next End If + Dim ErrorLista As New StringBuilder 'Orden Produccion' If Not OcurrioError Then If UsuarioActual.CveEmpresa.Contiene(126) Then If CveVenta > 0 And DdlOrdenProduccion.SelectedValue.ToEntero > 0 Then If Not ObjCGame.UpdateOrdenProduccionVenta(DdlOrdenProduccion.SelectedValue.ToEntero(), CveVenta) Then - ErrorList.Add("Ocurrió un error al actualizar la orden de producción") + ErrorLista.Append("Ocurrió un error al actualizar la orden de producción") End If End If End If @@ -15765,7 +15766,7 @@ Partial Class Ventas If ObjConta.ValorPolizaDescuadre > 0 Then If ObjConta.ValorPolizaDescuadre = 2 Then OcurrioError = True - ErrorList.Add(ObjConta.MensajePolizaDescuadre) + ErrorLista.Append(ObjConta.MensajePolizaDescuadre) End If End If End If @@ -15778,7 +15779,7 @@ Partial Class Ventas If OcurrioError Then ObjVentas.RollBack() - Alert("Ocurrió un error al guardar los cambios. Por favor intente de nuevo.", TipoMensaje.MsgError) + Alert("Ocurrió un error al guardar los cambios. Por favor intente de nuevo." & ErrorLista.ToString, TipoMensaje.MsgError) Else ObjVentas.Commit() If ObjAC IsNot Nothing Then ObjAC.Commit() From 6f6294d91da2118be302c44b2c385c9fb2b0a14d Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Sun, 1 Sep 2019 13:50:01 -0700 Subject: [PATCH 2/8] Nominas Timbrado --- .gitignore | 2 +- App_Code/ClsPaginas.vb | 2 +- App_Code/ClsRH.vb | 22 ++++++++ App_Code/Timbrado.vb | 22 ++++---- Nomina/Finiquito.aspx | 24 +++++++++ Nomina/Finiquito.aspx.vb | 110 +++++++++++++++++++++++++-------------- 6 files changed, 132 insertions(+), 50 deletions(-) diff --git a/.gitignore b/.gitignore index b14cc0feb..03c601b3e 100644 --- a/.gitignore +++ b/.gitignore @@ -1,7 +1,7 @@ ################################################################################ # Este archivo .gitignore ha sido creado automáticamente por Microsoft(R) Visual Studio. ################################################################################ - +/Utilerias /Empresas /Menu /Web.config diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 653c048d5..e498feb95 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4124,7 +4124,7 @@ Public Class ClsPaginas PaginaDict.Add("/Nomina/CatSatRegimenContratacion.aspx".ToUpper(), 257) PaginaDict.Add("/Nomina/CatSatTipoIncapacidad.aspx".ToUpper(), 258) PaginaDict.Add("/Nomina/CatSatRiesgoPuesto.aspx".ToUpper(), 259) - PaginaDict.Add("/Nomina/Utilidades.aspx".ToUpper(), 870) + PaginaDict.Add("/Nomina/ReportePTU.aspx".ToUpper(), 870) #End Region 'Ordenes de Servicios #Region "OS" diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index c6400cce7..e21b6511f 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -1984,6 +1984,28 @@ Public Class ClsRH Return Retorno 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 Dim Retorno As Boolean = False SqlDataAdapter("PA_RH_PersonalAltasGet") diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index ef77aa206..9ccf49d07 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -634,7 +634,7 @@ Public Class Timbrado 'Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas, TmpDTConceptos, TmpDTImpuestos, TmpDTComplementos, Ruta, LstFordASN, FordGSDBM, ObjV) Case 4 - Dim Ret As String = TimbrarFacturaGoCFDIv33(Ventas, UsuarioActual) + Dim Ret As String = TimbrarFacturaGoCFDIv33(Ventas, UsuarioActual, CvePACEspecial) Retorno = If(Ret = "", True, False) End Select @@ -1571,7 +1571,10 @@ Public Class Timbrado 'GC.Collect() Return Retorno 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 swmili As Long = 0 Dim swTiempo As New StringBuilder @@ -1581,8 +1584,8 @@ Public Class Timbrado ' 'Sucursal matriz de la empresa 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 UsuarioServicio As String = If(UsuarioActual.Empresa.CvePAC = 2, UsuarioActual.Empresa.RFC, "rene.molina@adsistemas.mx") - Dim ClaveServicio As String = If(UsuarioActual.Empresa.CvePAC = 2, UsuarioActual.Empresa.RFC.ToLower, "rene2018") + Dim UsuarioServicio As String = If(CvePACEspecial = 2, UsuarioActual.Empresa.RFC, "rene.molina@adsistemas.mx") + Dim ClaveServicio As String = If(CvePACEspecial = 2, UsuarioActual.Empresa.RFC.ToLower, "rene2018") Dim Clave As String = UsuarioActual.Empresa.ContraseñaKey Dim EmisorRFC As String = UsuarioActual.Empresa.RFC Dim UrlServicio As String = "" ' Produccion @@ -1591,8 +1594,7 @@ Public Class Timbrado Dim SubTotal As Decimal = 0 Dim TimbraProduccion As Boolean = True If Not Directory.Exists(RutaArchivo) Then Directory.CreateDirectory(RutaArchivo) - - Select Case UsuarioActual.Empresa.CvePAC + Select Case CvePACEspecial Case 2 UrlServicio = "http://generacfdi.com.mx/rvltimbrado/service1.asmx?WSDL" Case 4 @@ -1606,7 +1608,7 @@ Public Class Timbrado ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\CSD01_AAA010101AAA.cer" Clave = "12345678a" TimbraProduccion = False - Select Case UsuarioActual.Empresa.CvePAC + Select Case CvePACEspecial Case 2 UsuarioServicio = "fgomez" ClaveServicio = "12121212" @@ -2090,7 +2092,7 @@ Public Class Timbrado 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 = "" Else Retorno = "Error" @@ -2113,7 +2115,7 @@ Public Class Timbrado If ObjCFDITimbre.Comprobante.TipoComprobante = "N" Then 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 = "" Else Retorno = "Error" @@ -2159,7 +2161,7 @@ Public Class Timbrado End If #End Region - GuardaLogTimbrado(swTiempo.ToString, UsuarioActual.Empresa.CvePAC) + GuardaLogTimbrado(swTiempo.ToString, CvePACEspecial) Return Retorno End Function Public Sub GuardaLogTimbrado(Str As String, CvePAC As Integer) diff --git a/Nomina/Finiquito.aspx b/Nomina/Finiquito.aspx index 599e4f46c..44af81510 100644 --- a/Nomina/Finiquito.aspx +++ b/Nomina/Finiquito.aspx @@ -188,6 +188,10 @@
+
+ + +
@@ -228,6 +232,10 @@
+
+ ¿es Liquidación? + +
@@ -285,6 +293,22 @@ <%--" PercepcionesDeducciones "--%>