From 7149f23be188f337050c8cf1bea821e5c3c6a47f Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 25 Oct 2023 07:29:26 -0700 Subject: [PATCH 01/65] - --- App_Code/ClsPaginas.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 7a59a1ea4..afa1c8e06 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -6045,7 +6045,7 @@ Public Class ClsPaginas Else RutaFormato = RutaFormato.Replace(".rdlc", ".mrt") - params.Add(New ReportParameter("SucursalCliente", If(Vta.ClienteSucursal.Sucursal Is Nothing, "", Vta.ClienteSucursal.Sucursal.ToString))) + params.Add(New ReportParameter("ClienteSucursal", If(Vta.ClienteSucursal.Sucursal Is Nothing, "", Vta.ClienteSucursal.Sucursal.ToString))) retorno = StreamBytesStimul("Facturas", RutaFormato, lrds, params, NombreArchivo:=NombreArchivo, Formato:="PDF") If UsuarioActual.Empresa.Funcionalidad(707) = "1" Then From 4737bbde3810212bad66f2525f74023811e53ad1 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 25 Oct 2023 14:14:13 -0700 Subject: [PATCH 02/65] -- cambio de tipo de dato de int a string, del campo Empresas.CP --- App_Code/ClsBancos.vb | 2 +- App_Code/ClsSisEmpresas.vb | 10 +++++----- App_Code/Empresa.vb | 2 +- Sistemas/Empresa.aspx.vb | 40 ++++++++++++-------------------------- 4 files changed, 19 insertions(+), 35 deletions(-) diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index e7a21f5c5..f12d507c9 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -1123,7 +1123,7 @@ Public Class ClsBancos Timbre = Timbrado.PreparaTimbrePago40(RFCEmpresa, UsuarioActual.Empresa.Empresa, UsuarioActual.Empresa.CodigoRegimenFiscal, RFCCliente, dr("NombreCliente").ToString, dr("ClienteCP").ToString, dr("CodigoRegimenFiscal").ToString, Serie, Folio.ToString, FechaTimbrado, Cuentapago, dr("FechaDocumento").ToString.ToDate, dr("ClaveFormaPagoSAT").ToString, dr("AbreviaturaSAT").ToString, dr("VentasTotalPagado").ToString.ToDecimal, - UsuarioActual.Empresa.CP.ToString, CuentaBeneficiario, dr("TipoCambioPago").ToString.ToDecimal, dttpagos, dttpagosimpuestos, CFDIRelacionado:=CFDIRelacionado, + UsuarioActual.Empresa.CP, CuentaBeneficiario, dr("TipoCambioPago").ToString.ToDecimal, dttpagos, dttpagosimpuestos, CFDIRelacionado:=CFDIRelacionado, RfcACuentaTerceros:=dr("RfcACuentaTerceros").ToString, NombreACuentaTerceros:=dr("NombreACuentaTerceros").ToString, RegimenFiscalACuentaTerceros:=dr("RegimenFiscalACuentaTerceros").ToString, DomicilioFiscalACuentaTerceros:=dr("DomicilioFiscalACuentaTerceros").ToString) diff --git a/App_Code/ClsSisEmpresas.vb b/App_Code/ClsSisEmpresas.vb index 7218f50ce..ada1fd59f 100644 --- a/App_Code/ClsSisEmpresas.vb +++ b/App_Code/ClsSisEmpresas.vb @@ -338,7 +338,7 @@ Public Class ClsSisEmpresas _Empresa.Colonia = Data.Rows(0)("Colonia").ToString _Empresa.Ciudad = Data.Rows(0)("Ciudad").ToString _Empresa.Estado = Data.Rows(0)("Estado").ToString - _Empresa.CP = Data.Rows(0)("CP").ToString().ToEntero + _Empresa.CP = Data.Rows(0)("CP").ToString() _Empresa.Regimen = Data.Rows(0)("Regimen").ToString _Empresa.CodigoRegimenFiscal = Data.Rows(0)("CodigoRegimenFiscal").ToString _Empresa.RegimenFiscal = Data.Rows(0)("RegimenFiscal").ToString @@ -458,7 +458,7 @@ Public Class ClsSisEmpresas Return Retorno End Function Public Function AddEmpresa(CveEmpresa As Integer, Empresa As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Ciudad As String, Estado As String, - RFC As String, CP As Integer, Telefono As String, Contacto As String, Mail As String, TipoFacturacion As String, BIUsuario As String, BIContraseña As String, ContraseñaKey As String, ArchivoKey As String, + RFC As String, CP As String, Telefono As String, Contacto As String, Mail As String, TipoFacturacion As String, BIUsuario As String, BIContraseña As String, ContraseñaKey As String, ArchivoKey As String, ArchivoCer As String, ArchivoPfx As String, Banner As String, CveUsuario As Integer, FacturaProduccion As Boolean, MostrarRetIVA As Boolean, MostrarRetISR As Boolean, Regimen As String, EstatusFacturacion As Boolean, SendMail As String, SendMailPassword As String, SendMailServer As String, SendMailPuerto As Integer, SendMailSSL As Boolean, UsaContabilidad As Boolean, UsaBancos As Boolean, UsaVentas As Boolean, UsaCxC As Boolean, UsaCompras As Boolean, UsaInventarios As Boolean, UsaRH As Boolean, UsaNomina As Boolean, UsaOS As Boolean, BDContPAQi As String, ServerContPAQi As String, UsrContPAQi As String, PwdContPAQi As String, Buzon_Mail As String, @@ -487,7 +487,7 @@ Public Class ClsSisEmpresas .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad .Add("@Estado", SqlDbType.VarChar).Value = Estado .Add("@RFC", SqlDbType.VarChar).Value = RFC - .Add("@CP", SqlDbType.Int).Value = CP + .Add("@CP", SqlDbType.VarChar).Value = CP .Add("@Contacto", SqlDbType.VarChar).Value = Contacto .Add("@Telefono", SqlDbType.VarChar).Value = Telefono .Add("@Mail", SqlDbType.VarChar).Value = Mail @@ -588,7 +588,7 @@ Public Class ClsSisEmpresas End Function Public Function UpdateEmpresa(Empresa As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Ciudad As String, Estado As String, - RFC As String, CP As Integer, Telefono As String, Contacto As String, Mail As String, TipoFacturacion As String, BIUsuario As String, BIContraseña As String, ContraseñaKey As String, ArchivoKey As String, + RFC As String, CP As String, Telefono As String, Contacto As String, Mail As String, TipoFacturacion As String, BIUsuario As String, BIContraseña As String, ContraseñaKey As String, ArchivoKey As String, ArchivoCer As String, ArchivoPfx As String, Banner As String, Estatus As Boolean, FacturaProduccion As Boolean, MostrarRetIVA As Boolean, MostrarRetISR As Boolean, Regimen As String, EstatusFacturacion As Boolean, SendMail As String, SendMailPassword As String, SendMailServer As String, SendMailPuerto As Integer, SendMailSSL As Boolean, UsaContabilidad As Boolean, UsaBancos As Boolean, UsaVentas As Boolean, UsaCxC As Boolean, UsaCompras As Boolean, UsaInventarios As Boolean, UsaRH As Boolean, UsaNomina As Boolean, UsaOS As Boolean, BDContPAQi As String, ServerContPAQi As String, UsrContPAQi As String, PwdContPAQi As String, Buzon_Mail As String, @@ -611,7 +611,7 @@ Public Class ClsSisEmpresas .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad .Add("@Estado", SqlDbType.VarChar).Value = Estado .Add("@RFC", SqlDbType.VarChar).Value = RFC - .Add("@CP", SqlDbType.Int).Value = CP + .Add("@CP", SqlDbType.VarChar).Value = CP .Add("@Telefono", SqlDbType.VarChar).Value = Telefono .Add("@Contacto", SqlDbType.VarChar).Value = Contacto .Add("@Mail", SqlDbType.VarChar).Value = Mail diff --git a/App_Code/Empresa.vb b/App_Code/Empresa.vb index ff38fa730..9125fe0bd 100644 --- a/App_Code/Empresa.vb +++ b/App_Code/Empresa.vb @@ -13,7 +13,7 @@ Public Class Empresa Public Property Colonia As String Public Property Ciudad As String Public Property Estado As String - Public Property CP As Integer + Public Property CP As String Public Property RFC As String Public Property CURP As String Public Property Telefono As String diff --git a/Sistemas/Empresa.aspx.vb b/Sistemas/Empresa.aspx.vb index 00a305730..907dc904d 100644 --- a/Sistemas/Empresa.aspx.vb +++ b/Sistemas/Empresa.aspx.vb @@ -5,7 +5,6 @@ Imports System.Data Imports Extensiones Imports System.IO - Partial Class Sistemas_Empresa Inherits ClsPaginas @@ -379,12 +378,12 @@ Partial Class Sistemas_Empresa Dim ObjContPAQ As ClsContPAQi = Nothing Dim Indicador As New ClsIndicadores(ObjEmpresas.IniciaTransacSQL()) - Dim TextoError = "" - Dim TextoOK = "" + Dim TextoError As String = "" + Dim TextoOK As String = "" If CveEmpresa = -1 Then If ObjEmpresas.AddEmpresa(TxtCveEmpresa.Text.Trim.ToEntero, TxtEmpresa.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, - TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim.ToEntero, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, + TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, DdlTipoFacturacion.SelectedValue, TxtBIUsuario.Text.Trim, TxtBIContraseña.Text.Trim, TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim, TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, "", UsuarioActual.CveUsuario, ChkFacturaProduccion.Checked, ChkMostrarRetIVA.Checked, ChkMostrarRetISR.Checked, "-1", ChkEstatusFacturacion.Checked, TxtSendMail.Text.Trim, TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim, @@ -431,7 +430,7 @@ Partial Class Sistemas_Empresa Else If ObjEmpresas.UpdateEmpresa(TxtEmpresa.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim, - TxtCP.Text.Trim.ToEntero, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, DdlTipoFacturacion.SelectedItem.ToString, TxtBIUsuario.Text.Trim, + TxtCP.Text.Trim, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, DdlTipoFacturacion.SelectedItem.ToString, TxtBIUsuario.Text.Trim, TxtBIContraseña.Text.Trim, TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim, TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, "", ChkEstatus.Checked, ChkFacturaProduccion.Checked, ChkMostrarRetIVA.Checked, ChkMostrarRetISR.Checked, "", ChkEstatusFacturacion.Checked, TxtSendMail.Text.Trim, TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim, TxtSendMailPort.Text.Trim.ToEntero, ChkSendMailSSL.Checked, ChkUsaContabilidad.Checked, ChkUsaBancos.Checked, @@ -551,7 +550,7 @@ Partial Class Sistemas_Empresa If ObjContPAQ IsNot Nothing Then ObjContPAQ.Dispose() End Sub Private Function AgregarFuncionalidad(ObjEmpresas As ClsSisEmpresas, CveFuncionalidad As Integer, ByRef Ddl As DropDownList) As String - Dim Retorno = "" + Dim Retorno As String = "" If Not ObjEmpresas.AddUpdateEmpresaFuncionalidades(TxtCveEmpresa.Text.Trim.ToEntero, CveFuncionalidad, Ddl.SelectedValue) Then Retorno = "Ocurrió un error al vincular la cuenta contable" @@ -683,8 +682,8 @@ Partial Class Sistemas_Empresa Dim Archivokey As Archivo = Nothing Dim Archivocer As Archivo = Nothing - Dim dirbase = "" ' String.Format("{0}Empresas\{1}\Certificados\Fiel\", ModExtensiones.DirectorioBaseEmpresas, ViewState("CveEmpresa")) - Dim dirbasepfx = "" ' String.Format("{0}Empresas\{1}\Certificados\", ModExtensiones.DirectorioBaseEmpresas, ViewState("CveEmpresa")) + Dim dirbase As String = "" ' String.Format("{0}Empresas\{1}\Certificados\Fiel\", ModExtensiones.DirectorioBaseEmpresas, ViewState("CveEmpresa")) + Dim dirbasepfx As String = "" ' String.Format("{0}Empresas\{1}\Certificados\", ModExtensiones.DirectorioBaseEmpresas, ViewState("CveEmpresa")) If EmpresaEditar IsNot Nothing Then dirbase = String.Format("{0}Certificados\Fiel\", EmpresaEditar.Ruta) dirbasepfx = String.Format("{0}Certificados\", EmpresaEditar.Ruta) @@ -832,11 +831,11 @@ Partial Class Sistemas_Empresa Dim ArchivoLLave As String = String.Format("{0}\Certificados\{1}", EmpresaEditar.Ruta, EmpresaEditar.ArchivoKey) Dim ArchivoCertificado As String = String.Format("{0}\Certificados\{1}", EmpresaEditar.Ruta, EmpresaEditar.ArchivoCer) - Dim llaveByte = System.IO.File.ReadAllBytes(ArchivoLLave) - Dim certByte = System.IO.File.ReadAllBytes(ArchivoCertificado) + Dim llaveByte As Byte() = System.IO.File.ReadAllBytes(ArchivoLLave) + Dim certByte As Byte() = System.IO.File.ReadAllBytes(ArchivoCertificado) - Dim RFCEmisor = TxtRFC.Text.Trim() - Dim contrasena = TxtContraseñaKey.Text.Trim() + Dim RFCEmisor As String = TxtRFC.Text.Trim() + Dim contrasena As String = TxtContraseñaKey.Text.Trim() Dim conector As New Profact.TimbraCFDI33.Conector(EmpresaEditar.FacturaProduccion) @@ -846,7 +845,7 @@ Partial Class Sistemas_Empresa conector.EstableceCredenciales(Credenciales) End If - Dim result = conector.RegistraEmisor(RFCEmisor, certByte, llaveByte, contrasena) + Dim result As Profact.TimbraCFDI.ResultadoRegistro = conector.RegistraEmisor(RFCEmisor, certByte, llaveByte, contrasena) If result.Exitoso Then Alert("El emisor se registró correctamente.
" & result.Descripcion) @@ -860,11 +859,6 @@ Partial Class Sistemas_Empresa End Sub - - - - - Protected Sub LnkArchivoKey_Click(sender As Object, e As EventArgs) Handles LnkArchivoKey.Click TxtCargaImg.getfiles().Archivos = Nothing TxtCargaImg.Text = "[]" @@ -953,14 +947,8 @@ Partial Class Sistemas_Empresa End If - - Next - - - - If Not TieneError Then Alert("Certificado cargado con exito") RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalArchvivo")) @@ -968,10 +956,6 @@ Partial Class Sistemas_Empresa TxtCargaImg.getfiles().Archivos = Nothing UpAddArchivo.Update() - - - - End Sub Protected Sub LbArchivoKeyDescarga_Download(sender As Object, e As EventArgs) Handles LbArchivoKeyDescarga.Click From c51bc18ea6f1a23a38fc27068816d65fce762f3c Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 25 Oct 2023 14:15:24 -0700 Subject: [PATCH 03/65] -- que no se cargue combo de cuentas --- Contabilidad/RegPrePolizaS.aspx.vb | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 7c8cb4597..98d0b4655 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -463,7 +463,6 @@ Partial Class ContabilidadC_RegPrePolizaS LnkAddConcepto.Visible = True CargaConceptos() CargaSubProyectos() - CargaCuentasContables() End If ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) @@ -663,11 +662,11 @@ Partial Class ContabilidadC_RegPrePolizaS Dim ObjConta As New ClsContabilidad If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then DdlCuentaContableE.DataSource = ObjConta.DtResultados - DdlCuentaContable.DataSource = ObjConta.DtResultados + 'DdlCuentaContable.DataSource = ObjConta.DtResultados DtCuentasContables = ObjConta.DtResultados End If ObjConta.Dispose() - DdlCuentaContable.DataBind() + 'DdlCuentaContable.DataBind() DdlCuentaContable.Items.Insert(0, New ListItem("Seleccione", "0")) DdlCuentaContableE.DataBind() DdlCuentaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0")) From a32120285ef496bdcc15dfee2778b393bd2d6a60 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 25 Oct 2023 19:43:06 -0700 Subject: [PATCH 04/65] =?UTF-8?q?--=20correci=C3=B3n=20en=20visualizaci?= =?UTF-8?q?=C3=B3n=20de=20gr=C3=A1ficas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb index 381008825..e11cceb97 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb @@ -2060,15 +2060,17 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal If dColumn.ColumnName.ToEntero > 0 Then If DtDatosSubProyectoH.MAX(String.Format("[{0}]", dColumn.ColumnName)).ToDecimal = 0 Then ColumnasEliminar.Add(dColumn.ColumnName) - 'DtDatosSubProyectoH.Columns.Remove(dColumn.ColumnName) End If End If - Next If ColumnasEliminar.Count > 0 Then For Each columna As String In ColumnasEliminar DtDatosSubProyectoH.Columns.Remove(columna) + Dim drrs As DataRow() = DTSubProyectosCabecerasH.Select($"CveSubProyecto = {columna}") 'limpio los valores + For Each drt As DataRow In drrs + DTSubProyectosCabecerasH.Rows.Remove(drt) + Next Next End If @@ -2162,14 +2164,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal CType(GvGastosSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}" GvGastosSubProyectoH.Columns(IndexGv + 1).Visible = True End If - If dColumn.ColumnName = "SinSubProyecto" Then GvIngresosSubProyectoH.Columns(IndexGv).Visible = False GvIngresosSubProyectoH.Columns(IndexGv + 1).Visible = False End If - End If - listaCampos.Add(New String() {dColumn.ColumnName.ToString(), DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()}) + listaCampos.Add(New String() {dColumn.ColumnName.ToString(), DTSubProyectosCabecerasH.FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {dColumn.ColumnName}")}) End If Else From 5bb31e6c94e3523c485635d9381753ce157b47ab Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 27 Oct 2023 10:32:58 -0700 Subject: [PATCH 05/65] -- nueva columna clasif ecommerce --- App_Code/ClsProductosServicios.vb | 6 ++++-- Ventas/ProductosServicios.aspx | 23 +++++++++++++++-------- Ventas/ProductosServicios.aspx.vb | 8 ++++++-- 3 files changed, 25 insertions(+), 12 deletions(-) diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 368ab5a2f..3b544ba40 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -412,7 +412,7 @@ Public Class ClsProductosServicios Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False, Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "", Optional CveObjetoImpuesto As Integer = 0, Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False, Optional CveTipoEmpacado As Integer = -1, Optional CveTipoOrganico As Integer = -1, - Optional NombreComercial As String = "", Optional NotasAdicionales As String = "", Optional EcommerceEtiquetas As String = "", Optional ActivoEcommerce As Boolean = False, Optional EcommercePrecio As Decimal = 0) As Integer + Optional NombreComercial As String = "", Optional NotasAdicionales As String = "", Optional EcommerceEtiquetas As String = "", Optional ActivoEcommerce As Boolean = False, Optional EcommercePrecio As Decimal = 0, Optional CveClasificacionEcommerce As Integer = -1) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_ProductosServiciosAdd") @@ -515,6 +515,7 @@ Public Class ClsProductosServicios .Add("@EcommerceEtiquetas", SqlDbType.VarChar).Value = EcommerceEtiquetas .Add("@ActivoEcommerce", SqlDbType.VarChar).Value = ActivoEcommerce .Add("@EcommercePrecio", SqlDbType.SmallMoney).Value = EcommercePrecio + .Add("@CveClasificacionEcommerce", SqlDbType.Int).Value = CveClasificacionEcommerce End With @@ -650,7 +651,7 @@ Public Class ClsProductosServicios Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False, Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "", Optional CveObjetoImpuesto As Integer = 0, Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False, Optional CveTipoEmpacado As Integer = -1, Optional CveTipoOrganico As Integer = -1, - Optional NombreComercial As String = "", Optional NotasAdicionales As String = "", Optional EcommerceEtiquetas As String = "", Optional ActivoEcommerce As Boolean = False, Optional EcommercePrecio As Decimal = 0) As Boolean + Optional NombreComercial As String = "", Optional NotasAdicionales As String = "", Optional EcommerceEtiquetas As String = "", Optional ActivoEcommerce As Boolean = False, Optional EcommercePrecio As Decimal = 0, Optional CveClasificacionEcommerce As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -753,6 +754,7 @@ Public Class ClsProductosServicios .Add("@EcommerceEtiquetas", SqlDbType.VarChar).Value = EcommerceEtiquetas .Add("@ActivoEcommerce", SqlDbType.VarChar).Value = ActivoEcommerce .Add("@EcommercePrecio", SqlDbType.SmallMoney).Value = EcommercePrecio + .Add("@CveClasificacionEcommerce", SqlDbType.Int).Value = CveClasificacionEcommerce End With diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index 570c23b81..12fdc005c 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -561,20 +561,27 @@ -
-
- - - - -
- +
+
+ + + + +
+
+ + + + + +
+
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 4815e1a3a..90fc18d49 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -430,6 +430,9 @@ Partial Class ProductosyServicios End If If UsuarioActual.CveEmpresa = 119 Then DiveCommerce.Visible = True + Dim CveCategoria2 As Integer = GlobalDTGralCategorias2(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCategoria", "Categoria = 'Ecommerce'").ToEntero + DdlEcommerceClasificacion.DataSource = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa, CveCategoria2) + DdlEcommerceClasificacion.DataBind() End If End Sub @@ -978,6 +981,7 @@ Partial Class ProductosyServicios TxtEcommerceNota.Text = ObjProductosServicios.DtResultados.Rows(0)("NotasAdicionales").ToString TxtEcommerceEtiquetas.Text = ObjProductosServicios.DtResultados.Rows(0)("EcommerceEtiquetas").ToString TxtEcommercePrecio.Text = ObjProductosServicios.DtResultados.Rows(0)("EcommercePrecio").ToString.ToDecimal.ToString("#,###.####") + DdlEcommerceClasificacion.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveClasificacionEcommerce").ToString) Try DdlClasificacion_SelectedIndexChanged(DdlClasificacion, Nothing) @@ -1464,7 +1468,7 @@ Partial Class ProductosyServicios CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked, CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim, CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero, Litraje:=TxtLitraje.Text.ToDecimal, RegistroRSCO:=TxtRegistroRSCO.Text, FechaVigenciaRSCO:=TxtFechaVigenciaRSCO.Text.ToDate, VigenciaIndeterminadaRSCO:=ChkFechaIndeterminadaRSCO.Checked, - NombreComercial:=TxtNombreComercial.Text.Trim, NotasAdicionales:=TxtEcommerceNota.Text.Trim, EcommerceEtiquetas:=TxtEcommerceEtiquetas.Text.Trim, EcommercePrecio:=TxtEcommercePrecio.Text.Trim.ToDecimal) > 0 Then + NombreComercial:=TxtNombreComercial.Text.Trim, NotasAdicionales:=TxtEcommerceNota.Text.Trim, EcommerceEtiquetas:=TxtEcommerceEtiquetas.Text.Trim, EcommercePrecio:=TxtEcommercePrecio.Text.Trim.ToDecimal, CveClasificacionEcommerce:=DdlEcommerceClasificacion.SelectedValue.ToEntero) > 0 Then ViewState("CvePS") = ObjProductosServicios.CvePS For Each GVR As GridViewRow In GvImpuestosLocales.Rows If GVR.FCCheckBox("ChkDeduccion").Checked Then @@ -1536,7 +1540,7 @@ Partial Class ProductosyServicios CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim, CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero, Litraje:=TxtLitraje.Text.ToDecimal, RegistroRSCO:=TxtRegistroRSCO.Text, FechaVigenciaRSCO:=TxtFechaVigenciaRSCO.Text.ToDate, VigenciaIndeterminadaRSCO:=ChkFechaIndeterminadaRSCO.Checked, - NombreComercial:=TxtNombreComercial.Text.Trim, NotasAdicionales:=TxtEcommerceNota.Text.Trim, EcommerceEtiquetas:=TxtEcommerceEtiquetas.Text.Trim, ActivoEcommerce:=ChkActivoEcommerce.Checked, EcommercePrecio:=TxtEcommercePrecio.Text.Trim.ToDecimal) Then + NombreComercial:=TxtNombreComercial.Text.Trim, NotasAdicionales:=TxtEcommerceNota.Text.Trim, EcommerceEtiquetas:=TxtEcommerceEtiquetas.Text.Trim, ActivoEcommerce:=ChkActivoEcommerce.Checked, EcommercePrecio:=TxtEcommercePrecio.Text.Trim.ToDecimal, CveClasificacionEcommerce:= DdlEcommerceClasificacion.SelectedValue.toentero) Then If Not ObjProductosServicios.LimpiaImpuestosLocales(CvePS) Then TieneError = True From 7f2770d4878704d8b6bad27f57a97b2883d44063 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 27 Oct 2023 10:33:17 -0700 Subject: [PATCH 06/65] -- redirect a nuevos dominios SMS, VYA --- LogIn.aspx.vb | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) diff --git a/LogIn.aspx.vb b/LogIn.aspx.vb index ef77f6476..d8a2015f0 100644 --- a/LogIn.aspx.vb +++ b/LogIn.aspx.vb @@ -47,7 +47,7 @@ Partial Class LogIn ReturnUrl = Request("ReturnUrl").ToString() End If - Dim strdomain = Request.Url.AbsoluteUri.Replace(Request.Url.PathAndQuery, "") + Dim strdomain As String = Request.Url.AbsoluteUri.Replace(Request.Url.PathAndQuery, "") If Request.Url.Port <> 80 Then strdomain = strdomain.Replace(String.Format(":{0}", Request.Url.Port), "") End If @@ -210,7 +210,7 @@ Partial Class LogIn Dim Usuario As Usuario = Nothing 'Dim UsuarioAsignaciones As Usuario = Nothing - Dim isgps = Request.Url.Host.ToUpper().Contains("SIGNALSGPS".ToUpper()) + Dim isgps As Boolean = Request.Url.Host.ToUpper().Contains("SIGNALSGPS".ToUpper()) Usuario = ObjUsuario.ValidaUsuario(txtUsuario.Text, Encripta(TxtContraseña.Text.Trim), IMEI, CvePlataforma:=If(isgps, 3, -1)) 'UsuarioAsignaciones = ObjUsuario.ValidaUsuarioAsignacion(Usuario.CveUsuario, Usuario.CveEmpresa) If Not isgps AndAlso Usuario IsNot Nothing AndAlso Usuario.CvePlataforma = 3 Then ' SI ES de la plataforma 3(GPS), no debe de entar por liga normal @@ -235,13 +235,15 @@ Partial Class LogIn If Request.Url.Host.ToUpper().Contains("ALATEL".ToUpper()) Then tcveEmpresa = 183 If Request.Url.Host.ToUpper().Contains("SERVEC".ToUpper()) Then tcveEmpresa = 153 If Request.Url.Host.ToUpper().Contains("EMD".ToUpper()) Then tcveEmpresa = 13 + If Request.Url.Host.ToUpper().Contains("SMS".ToUpper()) Then tcveEmpresa = 186 + If Request.Url.Host.ToUpper().Contains("VYA".ToUpper()) Then tcveEmpresa = 188 Usuario.CveEmpresa = tcveEmpresa End If CreaObjetoEmpresa(Usuario) ADSSessionConfig.sessionUser.MultipleEmpresa = True Dim x As New ADSSessionObj(Usuario.CveUsuario, Usuario.CveEmpresa) - Dim _sessionid = Encripta(String.Format("{0}|{1}", Usuario.CveUsuario, x.SessionID)) + Dim _sessionid As String = Encripta(String.Format("{0}|{1}", Usuario.CveUsuario, x.SessionID)) ADSSessionConfig.SessionManager(OpcionSession.agregarSession, x) If Usuario.CvePlataforma = 6 And Usuario.CveRol = 10 Then @@ -281,7 +283,7 @@ Partial Class LogIn End Using End If - Dim cookie = FormsAuthentication.GetAuthCookie(Usuario.CveUsuario.ToString, False) + Dim cookie As HttpCookie = FormsAuthentication.GetAuthCookie(Usuario.CveUsuario.ToString, False) Response.Cookies.Add(cookie) Dim routeangular As String Dim puerto As String = "" @@ -291,7 +293,7 @@ Partial Class LogIn Else puerto = String.Format(":{0}", 84) End If - Dim strdomain = Request.Url.AbsoluteUri.Replace(Request.Url.PathAndQuery, "") + Dim strdomain As String = Request.Url.AbsoluteUri.Replace(Request.Url.PathAndQuery, "") If Request.Url.Port <> 80 Then strdomain = strdomain.Replace(String.Format(":{0}", Request.Url.Port), "") End If @@ -323,7 +325,7 @@ Partial Class LogIn If Not IsNothing(Context.Session("UsuarioSIG")) Then Dim usuario As Usuario = DirectCast(Context.Session("UsuarioSIG"), Usuario) - Dim tokenDescriptor = New Microsoft.IdentityModel.Tokens.SecurityTokenDescriptor With { + Dim tokenDescriptor As New Microsoft.IdentityModel.Tokens.SecurityTokenDescriptor With { .Subject = New System.Security.Claims.ClaimsIdentity(New System.Security.Claims.Claim() {New System.Security.Claims.Claim("CvePlataforma", usuario.CvePlataforma.ToString()), New System.Security.Claims.Claim("CveUsuario", usuario.CveUsuario.ToString()), New System.Security.Claims.Claim("CveEmpresa", usuario.CveEmpresa.ToString()), New System.Security.Claims.Claim("CveRol", usuario.CveRol.ToString()), New System.Security.Claims.Claim("Fecha", ClsPaginas.NowADS().ToLongDateString())}), @@ -331,8 +333,8 @@ Partial Class LogIn .SigningCredentials = New Microsoft.IdentityModel.Tokens.SigningCredentials( New Microsoft.IdentityModel.Tokens.SymmetricSecurityKey(Encoding.ASCII.GetBytes("*_AsistenciaDesarrolloSistemas-SIGAPI_*17-06-2020")), Microsoft.IdentityModel.Tokens.SecurityAlgorithms.HmacSha256Signature)} - Dim tokenHandler = New System.IdentityModel.Tokens.Jwt.JwtSecurityTokenHandler() - Dim newtoken = tokenHandler.CreateToken(tokenDescriptor) + Dim tokenHandler As New System.IdentityModel.Tokens.Jwt.JwtSecurityTokenHandler() + Dim newtoken As SecurityToken = tokenHandler.CreateToken(tokenDescriptor) Dim stokenn As String = tokenHandler.WriteToken(newtoken) Return stokenn Else @@ -395,18 +397,16 @@ Partial Class LogIn End Sub Public Function GenerateJSONWebToken(ByVal user As UserModel) As String - Dim securityKey = New SymmetricSecurityKey(Encoding.UTF8.GetBytes("ThisismySecretKey")) - Dim credentials = New SigningCredentials(securityKey, SecurityAlgorithms.HmacSha256) - Dim claims = {New Claim("Nombre", user.Nombre), New Claim("CveUsuario", user.CveUsuario.ToString()), New Claim("CveEmpresa", user.CveEmpresa.ToString()), New Claim("CvePerfil", user.CvePerfil.ToString()), New Claim("Mail", user.Mail.ToString())} - Dim token = New JwtSecurityToken("Test.com", "Test.com", claims, expires:=ClsPaginas.NowADS().AddMinutes(120), signingCredentials:=credentials) + Dim securityKey As New SymmetricSecurityKey(Encoding.UTF8.GetBytes("ThisismySecretKey")) + Dim credentials As New SigningCredentials(securityKey, SecurityAlgorithms.HmacSha256) + Dim claims As IEnumerable(Of Claim) = {New Claim("Nombre", user.Nombre), New Claim("CveUsuario", user.CveUsuario.ToString()), New Claim("CveEmpresa", user.CveEmpresa.ToString()), New Claim("CvePerfil", user.CvePerfil.ToString()), New Claim("Mail", user.Mail.ToString())} + Dim token As New JwtSecurityToken("Test.com", "Test.com", claims, expires:=ClsPaginas.NowADS().AddMinutes(120), signingCredentials:=credentials) Return New JwtSecurityTokenHandler().WriteToken(token) End Function Public Class UserModel Public Sub New() Me.CveUsuario = -1 End Sub - - Public Property CveUsuario As Integer Public Property Mail As String Public Property Nombre As String From 2e186d30bbbaafae1fca706b42f36054c6462ca1 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 27 Oct 2023 10:33:40 -0700 Subject: [PATCH 07/65] option explicit --- Sistemas/DefinicionEmpresa.aspx.vb | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/Sistemas/DefinicionEmpresa.aspx.vb b/Sistemas/DefinicionEmpresa.aspx.vb index fd0370de2..92beea029 100644 --- a/Sistemas/DefinicionEmpresa.aspx.vb +++ b/Sistemas/DefinicionEmpresa.aspx.vb @@ -712,8 +712,8 @@ Partial Class Sistemas_DefinicionEmpresa Dim ObjContPAQ As ClsContPAQi = Nothing Dim Indicador As New ClsIndicadores(ObjEmpresas.IniciaTransacSQL()) - Dim TextoError = "" - Dim TextoOK = "" + Dim TextoError As String = "" + Dim TextoOK As String = "" If False Then @@ -781,7 +781,7 @@ Partial Class Sistemas_DefinicionEmpresa ' DdlTerminalTipo.SelectedValue.ToEntero, IdCuentaDSV:=-1, IdCuentaImpuestosLocales:=-1, IdCuentaIEPSxAcreditar:=-1, IdCuentaIEPSAcreditable:=-1, ' IdCuentaIEPSxTrasladar:=-1, IdCuentaIEPSTrasladado:=-1) Then If ObjEmpresas.UpdateEmpresa(TxtEmpresa.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim, - TxtCP.Text.Trim.ToEntero, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, "CFDi", "-1", + TxtCP.Text.Trim, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, "CFDi", "-1", "-1", TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim, TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, "", Estatus, FacturaProduccion, ChkMostrarRetIVA.Checked, ChkMostrarRetISR.Checked, "", EstatusFacturacion, TxtSendMail.Text.Trim, TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim, TxtSendMailPort.Text.Trim.ToEntero, ChkSendMailSSL.Checked, UsaContabilidad, UsaBancos, @@ -884,7 +884,7 @@ Partial Class Sistemas_DefinicionEmpresa If ObjContPAQ IsNot Nothing Then ObjContPAQ.Dispose() End Sub Private Function AgregarFuncionalidad(ObjEmpresas As ClsSisEmpresas, CveFuncionalidad As Integer, ByRef Ddl As DropDownList) As String - Dim Retorno = "" + Dim Retorno As String = "" If Not ObjEmpresas.AddUpdateEmpresaFuncionalidades(UsuarioActual.CveEmpresa, CveFuncionalidad, Ddl.SelectedValue) Then Retorno = "Ocurrió un error al vincular la cuenta contable" @@ -1038,11 +1038,11 @@ Partial Class Sistemas_DefinicionEmpresa Dim ArchivoLLave As String = String.Format("{0}\Certificados\{1}", EmpresaEditar.Ruta, EmpresaEditar.ArchivoKey) Dim ArchivoCertificado As String = String.Format("{0}\Certificados\{1}", EmpresaEditar.Ruta, EmpresaEditar.ArchivoCer) - Dim llaveByte = System.IO.File.ReadAllBytes(ArchivoLLave) - Dim certByte = System.IO.File.ReadAllBytes(ArchivoCertificado) + Dim llaveByte As Byte() = System.IO.File.ReadAllBytes(ArchivoLLave) + Dim certByte As Byte() = System.IO.File.ReadAllBytes(ArchivoCertificado) - Dim RFCEmisor = TxtRFC.Text.Trim() - Dim contrasena = TxtContraseñaKey.Text.Trim() + Dim RFCEmisor As String = TxtRFC.Text.Trim() + Dim contrasena As String = TxtContraseñaKey.Text.Trim() Dim conector As New Profact.TimbraCFDI33.Conector(EmpresaEditar.FacturaProduccion) @@ -1052,7 +1052,7 @@ Partial Class Sistemas_DefinicionEmpresa conector.EstableceCredenciales(Credenciales) End If - Dim result = conector.RegistraEmisor(RFCEmisor, certByte, llaveByte, contrasena) + Dim result As Profact.TimbraCFDI.ResultadoRegistro = conector.RegistraEmisor(RFCEmisor, certByte, llaveByte, contrasena) If result.Exitoso Then Alert("El emisor se registró correctamente.
" & result.Descripcion) From 295dc694164f67eaa2b359a729e10424731a1f8a Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 27 Oct 2023 10:34:01 -0700 Subject: [PATCH 08/65] =?UTF-8?q?--=20correcci=C3=B3n=20de=20error=20en=20?= =?UTF-8?q?columnas=20de=20ot.=20ingresos?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/ReembolsosComprobaciones.aspx | 15 +-------------- Compras/ReembolsosComprobaciones.aspx.vb | 18 +++++++++--------- 2 files changed, 10 insertions(+), 23 deletions(-) diff --git a/Compras/ReembolsosComprobaciones.aspx b/Compras/ReembolsosComprobaciones.aspx index 23e5a0f69..6e09a63bc 100644 --- a/Compras/ReembolsosComprobaciones.aspx +++ b/Compras/ReembolsosComprobaciones.aspx @@ -401,20 +401,7 @@ - - - CveCompra - - - - - - CveProveedor - - - - - + Ot. Ing. diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index 6fdb67d3c..cfb6c0604 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -273,11 +273,11 @@ Partial Class Compras_ReembolsosComprobaciones If ChkAjusteOI.Checked Then TxtOtrosImportes.Visible = True TxtTotal.Visible = True - GvCxP.Columns(15).Visible = True + GvCxP.Columns(12).Visible = True Else TxtOtrosImportes.Visible = False TxtTotal.Visible = False - GvCxP.Columns(15).Visible = False + GvCxP.Columns(12).Visible = False TxtOtrosImportes.Text = "" TxtTotal.Text = "" RegistraScript("$get('TxtImporte').value = FormatoNumero(SumaValores(), 2);") @@ -292,11 +292,11 @@ Partial Class Compras_ReembolsosComprobaciones If ChkOtrosIngresosCheque.Checked Then TxtOtrosImportes.Visible = True TxtTotal.Visible = True - GvCxP.Columns(15).Visible = True + GvCxP.Columns(14).Visible = True Else TxtOtrosImportes.Visible = False TxtTotal.Visible = False - GvCxP.Columns(15).Visible = False + GvCxP.Columns(14).Visible = False TxtOtrosImportes.Text = "" TxtTotal.Text = "" RegistraScript("$get('TxtImporte').value = FormatoNumero(SumaValores(), 2);") @@ -687,7 +687,7 @@ Partial Class Compras_ReembolsosComprobaciones If Not ChkReembolsarSinBancos.Checked AndAlso (Not HdnCheque.Value.ToEntero > 0 Or Not UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso Not ChkMesSiguiente.Checked) Then 'Si es caja chica metemos el concepto 30, si es funcionario metemos 29 ImporteMovto += Pago.OtroGastoIngreso ' si ajuste, sedebe de aplicar en su contraparte - If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, ImporteMovto, ImporteMovto * tipoCambio, If(CveCajaChica > 0, 30, 29), Referencia, ConceptoMovimiento, CveIE:=CveIEPago, CveIEDevolucion:=If(CveCajaChica > 0, If(DDlCheques.SelectedValue.ToEntero = -1, CveIECajaChica, DDlCheques.SelectedValue.ToEntero), -1), CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteMovto), CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, Contabilizable:=If(CveCajaChica > 0 Or CvePersonal > 0, Not UsaSimplificacionCajaChica, True)) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, ImporteMovto, ImporteMovto * tipoCambio, If(CveCajaChica > 0, 30, 29), Referencia, ConceptoMovimiento, CveIE:=CveIEPago, CveIEDevolucion:=If(CveCajaChica > 0, If(DDlCheques.SelectedValue.ToEntero = -1, CveIECajaChica, DDlCheques.SelectedValue.ToEntero), -1), CvePersonal:=CvePersonal, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteMovto), CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, Contabilizable:=If(CveCajaChica > 0 Or CvePersonal > 0, Not UsaSimplificacionCajaChica, True)) Then MsgError = "Detalle" End If End If @@ -698,13 +698,13 @@ Partial Class Compras_ReembolsosComprobaciones If MsgError = "" AndAlso UsuarioActual.Empresa.Funcionalidad(506) = "1" And CbPermitirExcedente.Checked = True And SaldoExcedente > 0 Then If DDlPermitirExcedente.SelectedValue = "1" Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, SaldoExcedente, SaldoExcedente * tipoCambio, 132, Referencia, ConceptoMovimiento, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, SaldoExcedente), CvePersonal:=CvePersonal, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, SaldoExcedente, SaldoExcedente * tipoCambio, 132, Referencia, ConceptoMovimiento, CveIE:=CveIEPago, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, ImporteME:=If(tipoCambio = 1, 0, SaldoExcedente), CvePersonal:=CvePersonal, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal) Then MsgError = "Detalle Reembolso Personal" End If ElseIf DDlPermitirExcedente.SelectedValue = "2" Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, SaldoExcedente, SaldoExcedente * tipoCambio, 29, Referencia, ConceptoMovimiento, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, SaldoExcedente), CvePersonal:=CvePersonal, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, SaldoExcedente, SaldoExcedente * tipoCambio, 29, Referencia, ConceptoMovimiento, CveIE:=CveIEPago, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, ImporteME:=If(tipoCambio = 1, 0, SaldoExcedente), CvePersonal:=CvePersonal, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal) Then MsgError = "Detalle Reembolso Personal Excedente" End If End If @@ -747,7 +747,7 @@ Partial Class Compras_ReembolsosComprobaciones Pago.CveMonedaPago = CveMoneda Pago.CvePersonal = CvePersonal - If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, ImporteMovto, ImporteMovto * tipoCambio, 30, Referencia, ConceptoMovimiento, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteMovto)) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, ImporteMovto, ImporteMovto * tipoCambio, 30, Referencia, ConceptoMovimiento, CveIE:=CveIEExcedente, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteMovto)) Then MsgError = "no se pudo insertar el detalle de la poliza" End If @@ -757,7 +757,7 @@ Partial Class Compras_ReembolsosComprobaciones 'Otros Ingresos If ChkAjusteOI.Checked Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.FCTextBox("TxtComision").Text.ToDecimal, gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, 78, Referencia, ConceptoMovimiento, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal)) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.FCTextBox("TxtComision").Text.ToDecimal, gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, 78, Referencia, ConceptoMovimiento, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal)) Then MsgError = "no se pudo insertar el detalle de la poliza de otros ingresos" End If End If From c21d0641c99a871de928d1d1d5458bb6e500e616 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 27 Oct 2023 10:34:27 -0700 Subject: [PATCH 09/65] =?UTF-8?q?mejora=20en=20validaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/RepVentasUtilidadPadre.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/RepVentasUtilidadPadre.aspx.vb b/Ventas/RepVentasUtilidadPadre.aspx.vb index 83879613c..ebf3144c8 100644 --- a/Ventas/RepVentasUtilidadPadre.aspx.vb +++ b/Ventas/RepVentasUtilidadPadre.aspx.vb @@ -136,7 +136,7 @@ Partial Class Ventas_RepVentasUtilidadPadre GvDatos.DataSource = ObjVentas.DtResultados DtDatos = ObjVentas.DtResultados End If - If DtDatos.Rows.Count > 0 Then + If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then Dim Utilidad As Double = DtDatos.Rows(0)("Utilidad").ToString.ToDouble Dim Perdida As Double = DtDatos.Rows(0)("Perdida").ToString.ToDouble Dim Costo As Double = DtDatos.Rows(0)("Costo").ToString.ToDouble From bceb1064f083f49dee032b51ff05ca5aa8d7a8f7 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 27 Oct 2023 10:34:59 -0700 Subject: [PATCH 10/65] -- unificar a un solo campo de Tipo de cambio --- Bancos/ProveedoresAbonar.aspx | 26 +++++++++--------------- Bancos/ProveedoresAbonar.aspx.vb | 35 +++++++++++++------------------- 2 files changed, 24 insertions(+), 37 deletions(-) diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx index 20835831c..a8ea186c6 100644 --- a/Bancos/ProveedoresAbonar.aspx +++ b/Bancos/ProveedoresAbonar.aspx @@ -70,16 +70,10 @@ - - - -
- T.C: - - - - + +
+