From 6cdba771cf3c48c24f12141cfc7ee2ee024d991e Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 12 Oct 2022 10:57:53 -0700 Subject: [PATCH 1/9] =?UTF-8?q?--=20correcci=C3=B3n=20texto?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/RepCompras.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Compras/RepCompras.aspx b/Compras/RepCompras.aspx index 27dd1c5b4..f094031ad 100644 --- a/Compras/RepCompras.aspx +++ b/Compras/RepCompras.aspx @@ -257,7 +257,7 @@
- + From e9901a83a7039dd8d023a0b829c1c18fafdef09f Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 12 Oct 2022 10:58:06 -0700 Subject: [PATCH 2/9] bander para calculo de cuenta --- Compras/RepCxPDetalle.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb index 84ad7bd28..7538bb0e3 100644 --- a/Compras/RepCxPDetalle.aspx.vb +++ b/Compras/RepCxPDetalle.aspx.vb @@ -406,7 +406,7 @@ Partial Class RepCxPDetalle TMP_DTDatos = ObjMovtos.DtResultados TMP_DTDatos.Columns.Add("Cuenta") - If DdlGrupo.SelectedValue.ToEntero = 5 And UsuarioActual.Empresa.UsaContabilidad Then 'cuando es grupo por proveedor, se muestra la cuneta contable + If DdlGrupo.SelectedValue.ToEntero = 5 And UsuarioActual.Empresa.TipoContabilidad = 2 Then 'cuando es grupo por proveedor, se muestra la cuneta contable TMP_DTDatos = CargaCuentasContables(TMP_DTDatos) GvDatos.Columns(13).Visible = True Else From f6396ac45bb6a97f46d3e06d646244189d159c83 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 12 Oct 2022 10:58:18 -0700 Subject: [PATCH 3/9] -- visible centro de costo --- Contabilidad2/RepSituacionFinanciera.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Contabilidad2/RepSituacionFinanciera.aspx b/Contabilidad2/RepSituacionFinanciera.aspx index 658c61e07..655bd61dc 100644 --- a/Contabilidad2/RepSituacionFinanciera.aspx +++ b/Contabilidad2/RepSituacionFinanciera.aspx @@ -58,7 +58,7 @@ -
+
From 10a52db406eebcb52b5333991bcc802128798041 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 12 Oct 2022 10:58:49 -0700 Subject: [PATCH 4/9] -- mejora carga de clientes --- Contabilidad/RegPrePolizaS.aspx.vb | 41 ++++++++++++++++-------------- 1 file changed, 22 insertions(+), 19 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index edfc29a1a..f93a39a5f 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -736,8 +736,8 @@ Partial Class ContabilidadC_RegPrePolizaS Private Sub CargaClientes() DdlClientes.setEsWebService(True) DdlClientes.Attributes.Add("data-metodo", "getcliente") - DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) - DdlClientes.DataBind() + 'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) + 'DdlClientes.DataBind() ' DdlClientes.Items.Insert(0, New ListItem(" - ", "-1")) End Sub @@ -1359,16 +1359,17 @@ Partial Class ContabilidadC_RegPrePolizaS If CveCliente > 0 Then DvModalconceptoCliente.Visible = True - DdlClientesE.SelectedValue = CveCliente - DdlClientesE.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial", "") - DdlClientesE_SelectedIndexChanged(DdlClientesE, e) + DdlClientesE.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial", "") + DdlClientesE.ddl.Items.Insert(0, New ListItem(GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial", ""), CveCliente)) + DdlClientesE.SelectedValue = CveCliente + + CargaVentasE(CveCliente) End If If CveVenta > 0 Then DdlVentasE.SelectedValueExist(CveVenta) End If - If CveClasificacion > 0 Then DdlClasificacionesE.SelectedValue = CveClasificacion End If @@ -1621,11 +1622,20 @@ Partial Class ContabilidadC_RegPrePolizaS DdlClientesE.setEsWebService(True) DdlClientesE.Attributes.Add("data-metodo", "getcliente") - 'DdlClientesE.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) - 'DdlClientesE.DataBind() - ' DdlClientes.Items.Insert(0, New ListItem(" - ", "-1")) + End Sub - Private Sub CargaVentasE(CveCliente As Integer, Optional CveMoneda As Integer = -1) + Private Sub CargaVentasE(CveCliente As Integer) + If CveCliente <= 0 Then Exit Sub + + If DrConceptoContable IsNot Nothing Then + Dim AplicaME = Boolean.Parse(DrConceptoContable("EsMonedaExtranjera").ToString) + Dim AplicaVenta = Boolean.Parse(DrConceptoContable("AplicaVenta").ToString) + If AplicaME Then + CveMoneda = 2 + End If + If Not AplicaVenta Then Exit Sub + End If + DvModalconceptoVenta.Visible = True DdlVentasE.DataSource = Nothing DdlVentasE.ClearSelection() @@ -1661,16 +1671,9 @@ Partial Class ContabilidadC_RegPrePolizaS CargaComprasE(DdlProveedoresE.SelectedValue.ToEntero) End Sub Private Sub DdlClientesE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClientesE.selectedindexchange - Dim tCveMoneda As Integer = 1 - If DrConceptoContable IsNot Nothing Then - Dim AplicaME = Boolean.Parse(DrConceptoContable("EsMonedaExtranjera").ToString) - If AplicaME Then - tCveMoneda = 2 - End If - End If + If DdlClientesE.SelectedValue.ToEntero > 0 Then CargaVentasE(DdlClientesE.SelectedValue.ToEntero) - CargaVentasE(DdlClientesE.SelectedValue.ToEntero, tCveMoneda) End Sub Private Function CargaValidacionesConcepto() As Boolean @@ -1853,7 +1856,7 @@ Partial Class ContabilidadC_RegPrePolizaS TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero UpTotalCargo.Update() UpTotalAbono.Update() - DdlClientesE.SelectedValue = "-1" + DdlClientesE.ddl.Items.Clear() DdlClientesE.SelectedText = "" End If From 65041ddace0e4c6127e41624c928c90bc5876476 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 12 Oct 2022 10:59:05 -0700 Subject: [PATCH 5/9] --bandera de tipocontabilidad --- Bancos/CuentasBancariasDetalle.aspx.vb | 16 ++-------------- 1 file changed, 2 insertions(+), 14 deletions(-) diff --git a/Bancos/CuentasBancariasDetalle.aspx.vb b/Bancos/CuentasBancariasDetalle.aspx.vb index 707282855..00e7bf7a4 100644 --- a/Bancos/CuentasBancariasDetalle.aspx.vb +++ b/Bancos/CuentasBancariasDetalle.aspx.vb @@ -99,7 +99,7 @@ Partial Class Bancos_CuentasBancariasDetalle Private Sub CargaCuentasContables() Dim dt As DataTable = Nothing - If UsuarioActual.Empresa.TipoContabilizacion = 1 Then + If UsuarioActual.Empresa.TipoContabilidad = 1 Then Using ObjContabilidad As New ClsContabilidad 'UsuarioActual.Empresa.Funcionalidad(208).ToEntero If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then @@ -212,36 +212,24 @@ Partial Class Bancos_CuentasBancariasDetalle End If Next - If ExisteEnIntems Then DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContable.ToString) Else - - If UsuarioActual.Empresa.UsaContabilidad Then + If UsuarioActual.Empresa.TipoContabilidad = 2 Then Dim objCont As New ClsContPAQi(UsuarioActual.Empresa) - If objCont.GetCuentas(ObjCuentasBancariasDetalle.IdCtaContable, "-1", -1) Then If objCont.DtResultados.Rows.Count > 0 Then DDlCuentaContable.Items.Add(New ListItem(objCont.DtResultados.Rows(0)("CtaCodigo").ToString, objCont.DtResultados.Rows(0)("id").ToString)) DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContable.ToString) - End If End If - - objCont.Dispose() - End If - End If - - DdlCuentaContableComplementaria.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContableComplementaria.ToString) - - End If Else From 1366b20be2396c4e6872db0864fe77d8b46aa748 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 12 Oct 2022 17:33:35 -0700 Subject: [PATCH 6/9] =?UTF-8?q?--=20mejoras=20recepci=C3=B3n=20por=20oc?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx.vb | 2 +- Inventarios/RecepcionAlmacen.aspx.vb | 3 +-- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index ee2823cb8..9d865406b 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -14290,7 +14290,7 @@ Partial Class Compras_Compras 'SI PUEDE RECIBIR POR OC Y COMPRA ' si usa almacen, si tiene activado que reciba por OC, y que si la compra tipo Proveedor. que lo muestre - If UsuarioActual.CveEmpresa = 119 AndAlso UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 AndAlso CveTipoConcepto = 1 Then + If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 AndAlso CveTipoConcepto = 1 Then DivOCVinculaInv.Visible = True End If diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index b1be09e13..5be5719cd 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -842,8 +842,7 @@ Partial Class Inventarios_RecepcionAlmacen Dim DtPendientes As New DataTable If ObjInventarios.ComprasPendientesAlmacenGet(-1, TxtFechaPendientes.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - Dim FiltroTemporal = If(UsuarioActual.CveEmpresa.Contiene(119, 140, 1, 72, 80, 153, 154), "AND TipoDocto IN ('Fac','NC','DEV')", "AND TipoDocto IN ('Fac')") - DtPendientes = ObjInventarios.DtResultados.FiltraParametros($"CantOC >= 0 {FiltroTemporal}") + DtPendientes = ObjInventarios.DtResultados.FiltraParametros($"CantOC >= 0 AND TipoDocto IN ('Fac','NC','DEV') ") Else DtPendientes = Nothing Alert("Ocurrió un error al obtener las Compras pendientes de recibir del proveedor. Por favor vuelva a intentar", TipoMensaje.MsgError) From 60e5095f7b811d698431ee20c07394d76feedc58 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 12 Oct 2022 17:40:32 -0700 Subject: [PATCH 7/9] =?UTF-8?q?--bandera=20de=20contabilizaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/CuentasBancariasDetalle.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Bancos/CuentasBancariasDetalle.aspx.vb b/Bancos/CuentasBancariasDetalle.aspx.vb index 00e7bf7a4..9576baed7 100644 --- a/Bancos/CuentasBancariasDetalle.aspx.vb +++ b/Bancos/CuentasBancariasDetalle.aspx.vb @@ -122,7 +122,7 @@ Partial Class Bancos_CuentasBancariasDetalle trCuentaContableComplementaria.Visible = True Else - If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then + If UsuarioActual.Empresa.TipoContabilidad = 2 Or UsuarioActual.Empresa.UsaAC Then Dim IdPadre As Integer Dim Conta As New ClsContPAQi(UsuarioActual.Empresa) From ac9d5750c5928fc02bb9007218edcc15ec39d627 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 13 Oct 2022 00:38:36 -0700 Subject: [PATCH 8/9] ImprimirPDF stimulsoft E172 y E174 --- App_Code/ClsPaginas.vb | 34 +++++++++++++++++++++++++++++++++- 1 file changed, 33 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 6fc77753c..0bba928f7 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -7994,6 +7994,14 @@ Public Class ClsPaginas Next End If + 'TEMPORAL, DEBE CAMBIARSE A FUNCIONALIDAD + If Vta.CveEmpresa.Contiene(172, 173) Then + Dim ArchivoStimulsfot As New System.IO.FileInfo(RutaFormato.Replace(".rdlc", ".mrt")) + If ArchivoStimulsfot.Exists Then + UsarStimulsoft = True + End If + End If + If Not UsarStimulsoft Then Dim Archivo As New System.IO.FileInfo(RutaFormato) If Archivo.Exists Then @@ -8038,6 +8046,30 @@ Public Class ClsPaginas Else RutaFormato = RutaFormato.Replace(".rdlc", ".mrt") retorno = StreamBytesStimulsoft("Facturas", RutaFormato, lrds, params, NombreArchivo:=NombreArchivo, Formato:="PDF") + + 'TEMPORAL, EMPRESAS EN LAS QUE SE UTILIZARA PRIMERO STIMULSOFT + If Vta.CveEmpresa.Contiene(172, 173) Then + Dim ArchivoPDF As New System.IO.FileInfo(String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio)) + If Guardar Then + If Not ArchivoPDF.Exists Then + Try + DirectoryExistsCreate(String.Format("{0}PDF", UsuarioActual.Empresa.Ruta)) + DirectoryExistsCreate(String.Format("{0}PDF\{1}", UsuarioActual.Empresa.Ruta, Vta.TipoDocto)) + File.WriteAllBytes(String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio), retorno) + Catch ex As Exception + Alert("Ocurrió un error al generar el PDF", TipoMensaje.MsgAdvertencia) + End Try + Else + Try + ArchivoPDF.Delete() + File.WriteAllBytes(String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio), retorno) + Catch ex As Exception + Alert("Ocurrió un error al generar el PDF", TipoMensaje.MsgAdvertencia) + End Try + End If + End If + End If + End If Catch ex As Exception @@ -8089,7 +8121,7 @@ Public Class ClsPaginas For Each rds As ReportDataSource In DataSource Dim Nombre As String = rds.Name - If RutaReporte.Contains("Factura.mrt") Then + If RutaReporte.Contains("Factura.mrt") OrElse RutaReporte.Contains("Remision.mrt") OrElse RutaReporte.Contains("Cotizacion.mrt") OrElse RutaReporte.Contains("NotaDevolucion.mrt") Then Select Case rds.Name Case "DsOC" Nombre = "DtDetalle" From 498690aa41b87dd5748240bebf7151a06fb0e4a3 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 13 Oct 2022 00:39:18 -0700 Subject: [PATCH 9/9] Regimen fiscal en Empresa.VB --- App_Code/ClsPaginas.vb | 2 ++ App_Code/ClsSisEmpresas.vb | 1 + App_Code/Empresa.vb | 3 ++- 3 files changed, 5 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 0bba928f7..3c87cf0e2 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -7999,6 +7999,8 @@ Public Class ClsPaginas Dim ArchivoStimulsfot As New System.IO.FileInfo(RutaFormato.Replace(".rdlc", ".mrt")) If ArchivoStimulsfot.Exists Then UsarStimulsoft = True + + params.Add(New ReportParameter("RegimenFiscalEmpresa", String.Format("{0} - {1}", UsuarioActual.Empresa.CodigoRegimenFiscal, UsuarioActual.Empresa.RegimenFiscal))) End If End If diff --git a/App_Code/ClsSisEmpresas.vb b/App_Code/ClsSisEmpresas.vb index 179c07d60..c1b5f590c 100644 --- a/App_Code/ClsSisEmpresas.vb +++ b/App_Code/ClsSisEmpresas.vb @@ -341,6 +341,7 @@ Public Class ClsSisEmpresas _Empresa.CP = Data.Rows(0)("CP").ToString().ToEntero _Empresa.Regimen = Data.Rows(0)("Regimen").ToString _Empresa.CodigoRegimenFiscal = Data.Rows(0)("CodigoRegimenFiscal").ToString + _Empresa.RegimenFiscal = Data.Rows(0)("RegimenFiscal").ToString _Empresa.RFC = Data.Rows(0)("RFC").ToString _Empresa.CURP = Data.Rows(0)("CURP").ToString _Empresa.Telefono = Data.Rows(0)("Telefono").ToString diff --git a/App_Code/Empresa.vb b/App_Code/Empresa.vb index 1217f4dbc..c55637868 100644 --- a/App_Code/Empresa.vb +++ b/App_Code/Empresa.vb @@ -64,7 +64,8 @@ Public Class Empresa Public Property Importe As Decimal Public Property CveMetodoPago As Integer - Public Property CodigoRegimenFiscal As String + Public Property CodigoRegimenFiscal As String + Public Property RegimenFiscal As String Public Property EstatusFacturacion As Boolean Public Property Estatus As Boolean Public Property UsaContabilidad As Boolean