From 95990b3b646593375fec555fe704727d97f38d94 Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 19 Feb 2023 23:10:59 -0700 Subject: [PATCH 01/12] -- usoclasif ingresos e ingresos/gastos --- Ventas/Ventas.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 2662b079d..9b857f9fc 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -7685,7 +7685,7 @@ Partial Class Ventas DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=1).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion") DdlClasificacionPyME.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=1).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion") Else - DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=1).FiltraParametros("Estado = 1", Orderby:="Clasificacion") + DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("UsoClasificacion IN (1,3) and Estado = 1", Orderby:="Clasificacion") DdlClasificacionPyME.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=1).FiltraParametros("", Orderby:="Clasificacion") End If 'DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) From ffdaca18f3232a3c64f7ed30da160ad52103807a Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 20 Feb 2023 08:40:54 -0700 Subject: [PATCH 02/12] =?UTF-8?q?--=20correcci=C3=B3n=20de=20plantilla=20p?= =?UTF-8?q?=C3=B3liza?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/PagoAcreedor.aspx.cs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Bancos/PagoAcreedor.aspx.cs b/Bancos/PagoAcreedor.aspx.cs index 7079468f1..ca0559b4b 100644 --- a/Bancos/PagoAcreedor.aspx.cs +++ b/Bancos/PagoAcreedor.aspx.cs @@ -277,7 +277,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas int CveConceptoContablePago = 42; int CveConceptoContableBancoComplementario = 204; int CveConceptoContablePrestamoComplementario = 202; - int CvePlantillaPoliza = 21; + int CvePlantillaPoliza = 43; int CvePrePoliza = 0; int CveMonedaPago = get_GlobalDTBancosCuentas(-1, CveEmpresa: UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero()}").ToEntero(); int FolioFijo = 0; @@ -704,7 +704,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas int CveConceptoContablePrestamo = 41; int CveConceptoContableBancoComplementario = 204; int CveConceptoContablePrestamoComplementario = 202; - int CvePlantillaPoliza = 45; + int CvePlantillaPoliza = 44; int CvePrePoliza = 0; int CveMoneda = get_GlobalDTBancosCuentas(-1, CveEmpresa: UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuentaPrestamo.SelectedValue.ToEntero()}").ToEntero(); int FolioFijo = 0; From 810e864662728a1a1dffd96263a704affd72e045 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 20 Feb 2023 12:30:06 -0700 Subject: [PATCH 03/12] =?UTF-8?q?-=20mejora=20en=20env=C3=ADo=20de=20cuent?= =?UTF-8?q?as=20dep=C3=B3sitos?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Proveedores.aspx | 60 ++++++++--- Compras/Proveedores.aspx.vb | 200 ++++-------------------------------- 2 files changed, 64 insertions(+), 196 deletions(-) diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx index 5f998a8ad..4596c2638 100644 --- a/Compras/Proveedores.aspx +++ b/Compras/Proveedores.aspx @@ -3629,67 +3629,97 @@
-
- - - - -
-
- - -
+
+
+
+ + + + +
+
+
+
+ + +
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
<%----%>
- +
+
- +
+
+
+
- +
+
+
+
+
- +
+
- +
+
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index fe3667f6a..f35031cc5 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -506,6 +506,7 @@ Partial Class Compras_Proveedores CargaAnticipos(CveProveedorSucursal) CargaBancos(CveProveedorSucursal) CargaProveedorSucursales() + CargaCuentasBancarias() CargaOC() CargaDocs() @@ -3091,37 +3092,30 @@ Partial Class Compras_Proveedores ' CargaCuentasBancarias() 'End Sub Private Sub CargaCuentasBancarias() - Dim ObjCuentasBancos As New ClsGenerales + ViewState("OrdenCuentasBancos") = "" DTCuentasBancos = New DataTable TempDTCuentasBancos = New DataTable - If ObjCuentasBancos.GetCuentasDepositos(CveProveedor) Then - DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados) - Else - Alert("No se pudieron cargar las cuentas bancarias. Por favor intente nuevamente.", TipoMensaje.MsgAdvertencia) + If CveProveedor > 0 Then + Dim ObjCuentasBancos As New ClsGenerales + If ObjCuentasBancos.GetCuentasDepositos(CveProveedor, CveCliente:=-2, CvePersonal:=-2, CveEmpresa:=UsuarioActual.CveEmpresa) Then + DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados) + Else + Alert("No se pudieron cargar las cuentas bancarias. Por favor intente nuevamente.", TipoMensaje.MsgAdvertencia) + End If + ObjCuentasBancos.Dispose() End If + If CveProveedor < 0 Then 'Alert("No hay proveedor", TipoMensaje.MsgInformacion) TempDTCuentasBancos = DTCuentasBancos.Clone - 'Esconde columna estatus - 'THEstatus.Visible = False - 'THEstatusTexto.Visible = False - 'GvBancosCuentas.Columns(11).Visible = False 'Es la columna estatus CheckBox - - 'Mexicanada para acomadar las columnas' - 'TDEstatusLayout.Visible = False - 'TDEstatusTexto.Visible = False - End If - ObjCuentasBancos.Dispose() CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString) - RecargaGlobalCuentasBancarias() - End Sub Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs) @@ -3213,21 +3207,22 @@ Partial Class Compras_Proveedores CveMoneda As Integer, Moneda As String, Estatus As Boolean, Correo As String, BBVAAlias As String, EstatusPagoElectronico As Boolean, EstatusPagoElectronicoGrupos As Boolean, CveSATBanco As Integer, ConceptoCIE As String) - Dim ObjCuentasBancos As New ClsGenerales + If Modalidad = "A" Then If CveProveedor > 0 Then - + Dim ObjCuentasBancos As New ClsGenerales If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, CveProveedor:=CveProveedor, Correo:=Correo, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos, CveSATBanco:=CveSATBanco, ConceptoCIE:=ConceptoCIE) Then DTCuentasBancos.Clear() DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor))) Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion) RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias")) + CargaCuentasBancarias() Else Alert("Error al registrar la cuenta bancaria. Por favor intente nuevamente", TipoMensaje.MsgError) End If - + ObjCuentasBancos.Dispose() Else Dim Row As DataRow Row = TempDTCuentasBancos.NewRow @@ -3261,7 +3256,7 @@ Partial Class Compras_Proveedores If CveProveedor > 0 Then - + Dim ObjCuentasBancos As New ClsGenerales If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString.ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, False, Estatus, CveMoneda, Correo:=Correo, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos, CveSATBanco:=CveSATBanco, ConceptoCIE:=ConceptoCIE) Then @@ -3269,9 +3264,11 @@ Partial Class Compras_Proveedores DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor))) Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion) RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias")) + CargaCuentasBancarias() Else Alert("Error al actualizar la cuenta bancaria. Por favor intente nuevamente.", TipoMensaje.MsgError) End If + ObjCuentasBancos.Dispose() Else @@ -3301,7 +3298,7 @@ Partial Class Compras_Proveedores End If End If - ObjCuentasBancos.Dispose() + LimpiaCuentasBancarias() CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString) RecargaGlobalCuentasBancarias() @@ -3387,160 +3384,6 @@ Partial Class Compras_Proveedores End If End Sub - ''Protected Sub GvBancosCuentas_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvBancosCuentas.RowEditing - '' Dim id As Integer = e.NewEditIndex - '' GvBancosCuentas.EditIndex = id - '' CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString) - - '' 'Dim x As String = GvBancosCuentas.SelectedRowStyle("EstatusPagoElectronico") - - '' 'If CBool(e.Row.DBCampo("EstatusPagoElectronico")) AndAlso e.Row.DBCampo("Referencia").ToString <> "" Then - - '' 'End If - - ''End Sub - 'Protected Sub GvBancosCuentas_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvBancosCuentas.RowCancelingEdit - ' GvBancosCuentas.EditIndex = -1 - ' CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString) - 'End Sub - 'Protected Sub GvBancosCuentas_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvBancosCuentas.RowUpdating - - ' Dim NombreBanco = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNombreBanco").Text.Trim - ' Dim NumeroSucursal = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNumeroSucursal").Text.Trim - ' Dim CLABE = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtCLABE").Text.Trim - ' Dim SWIFT = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtSWIFT").Text.Trim - ' Dim Plaza = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtPlaza").Text.Trim - ' Dim NumeroCuenta = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNumeroCuenta").Text.Trim - ' Dim ConvenioCIE = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtConvenioCIE").Text.Trim - ' Dim Referencia = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtReferencia").Text.Trim - ' Dim RefCrediProveedor = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtRefCrediProveedor").Text.Trim - ' Dim CveMoneda = GvBancosCuentas.Rows(e.RowIndex).FCDropDownList("DdlMoneda").SelectedValue.ToString.ToEntero - ' Dim Moneda = GvBancosCuentas.Rows(e.RowIndex).FCDropDownList("DdlMoneda").SelectedItem.Text - ' Dim Estatus = GvBancosCuentas.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked - - ' Dim EsBancomer = False - - ' If NombreBanco.ToUpper.Contains("BBVA") Or NombreBanco.ToUpper.Contains("BANCOMER") Or (CLABE.Length = 18 AndAlso CLABE.Substring(0, 3) = "012") Then - ' EsBancomer = True - ' End If - - ' ''COMENTADO PARA PERMITIR ENTRADA DE UNA CUENTA A PROVEEDOR, 22 DE SEPTIEMBRE, ISRAEL PIÑA - ' 'If EsBancomer AndAlso (CLABE.Length <> 18 AndAlso Not CLABE.Substring(0, 3) = "012") Then - ' ' Alert("La CLABE ingresada no pertenece a BANCOMER.", TipoMensaje.MsgAdvertencia) - ' ' Exit Sub - ' 'End If - - ' ''CLABE SIEMPRE OBLIGATORIA CUANDO NO ES BANCOMER CON CIE - ' 'If (CLABE.Trim.Length <> 18 And Not EsBancomer) Or (EsBancomer And ConvenioCIE.Trim.Length <> 6 And CLABE.Trim.Length <> 18) Then - ' ' Alert("La CLABE es obligatoria y debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - ' ' Exit Sub - ' 'End If - - ' 'QUE TENGA ALGUN DATO DE TIPO DE CUENTA - ' If NumeroCuenta.Length = 0 AndAlso CLABE.Length = 0 AndAlso SWIFT.Length = 0 AndAlso ConvenioCIE.Length = 0 Then - ' Alert("Debe especificar al menos un numero de cuenta.", TipoMensaje.MsgAdvertencia) - ' Exit Sub - ' End If - - ' 'SI CLABE TIENE ALGO DEBE TENER UNA LOGITUD EXACTA DE 18 - ' If CLABE.Trim.Length <> 0 AndAlso CLABE.Trim.Length <> 18 Then - ' Alert("La CLABE debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - ' Exit Sub - ' End If - - ' If UsuarioActual.CveEmpresa = 66 Then - ' 'CLABE SIEMPRE OBLIGATORIA SI NO ES BANCOMER - ' If CLABE.Trim.Length <> 18 And CLABE.Trim.Length = 0 And Not EsBancomer And SWIFT.Length = 0 Then - ' Alert("La CLABE es obligatoria y debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - ' Exit Sub - ' End If - - ' 'SI CUENTA TIENE ALGO Y BANCO BANCOMER DEBE TENER UNA LOGITUD EXACTA DE 10 - ' If NumeroCuenta.Trim.Length <> 0 AndAlso NumeroCuenta.Trim.Length <> 10 AndAlso EsBancomer Then - ' Alert("El número de cuenta debe tener una longitud de 10 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - ' Exit Sub - ' End If - - ' 'SI CIE TIENE ALGO REFERENCIA OBLIGATORIA - ' If ConvenioCIE.Trim.Length <> 0 And Referencia.Trim.Length < 3 Then - ' Alert("Cuando se ingresa Convenio CIE se debe especificar una referencia. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - ' Exit Sub - ' End If - - ' 'CUANDO SEA "BBVA" O "BANCOMER" DEBE TENER "CIE" O "CUENTA" - ' If EsBancomer AndAlso Not (NumeroCuenta.Trim.Length = 10 Or ConvenioCIE.Trim.Length <> 0) Then - ' Alert("Para cuentas BBVA BANCOMER es obligatorio el Número de Cuenta o CIE.", TipoMensaje.MsgAdvertencia) - ' Exit Sub - ' End If - ' Else - ' 'SI CIE TIENE ALGO DEBE TENER UNA LOGITUD MINIMA DE 5 - ' If ConvenioCIE.Trim.Length <> 0 And ConvenioCIE.Trim.Length < 5 Then - ' Alert("El Convenio CIE debe tener una longitud de al menos 5 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - ' Exit Sub - ' End If - ' End If - - - - ' Dim ObjCuentasBancos As New ClsGenerales - ' If CveProveedor > 0 Then - ' If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString.ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, False, Estatus, CveMoneda) Then - ' DTCuentasBancos.Clear() - ' DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor))) - ' Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion) - ' Else - ' Alert("Error al actualizar la cuenta bancaria. Por favor intente nuevamente.", TipoMensaje.MsgError) - ' End If - ' Else - ' Dim index = GvBancosCuentas.Rows(e.RowIndex).DataKey("CveCuentaDeposito").ToString.ToEntero - 1 - ' Dim Row As DataRow = TempDTCuentasBancos.Rows(index) - ' Row("BancoNombre") = NombreBanco - ' Row("Sucursal") = NumeroSucursal - ' Row("CLABE") = CLABE - ' Row("SWIFT") = SWIFT - ' Row("Plaza") = Plaza - ' Row("Cuenta") = NumeroCuenta - ' Row("CIE") = ConvenioCIE - ' Row("Referencia") = Referencia - ' Row("RefCrediProveedor") = RefCrediProveedor - ' Row("CveMoneda") = CveMoneda - ' Row("Moneda") = Moneda - ' Row("Estatus") = Estatus - ' TempDTCuentasBancos.AcceptChanges() - ' End If - - ' ObjCuentasBancos.Dispose() - - ' GvBancosCuentas.EditIndex = -1 - ' CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString) - ' RecargaGlobalCuentasBancarias() - 'End Sub - 'Protected Sub GvBancosCuentas_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvBancosCuentas.RowDeleting - ' Dim ObjCuentasBancos As New ClsGenerales - - ' If CveProveedor > 0 Then - ' If ObjCuentasBancos.RemoveCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString.ToEntero) Then - ' DTCuentasBancos.Clear() - ' DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor))) - - ' Alert("Cuenta Bancaria borrada con éxito.", TipoMensaje.MsgInformacion) - ' Else - ' Alert("No se pudo borrar la Cuenta Bancaria. Por favor intente nuevamente.", TipoMensaje.MsgError) - ' End If - ' Else - ' Dim index = GvBancosCuentas.Rows(e.RowIndex).DataKey("CveCuentaDeposito").ToString.ToEntero - 1 - ' TempDTCuentasBancos.Rows.RemoveAt(index) - ' End If - - ' If ObjCuentasBancos.GetCuentasDepositos Then - ' GlobalDTProveedoresCuentas(CveProveedor, True) = ObjCuentasBancos.DtResultados - ' End If - - ' CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString) - ' ObjCuentasBancos.Dispose() - ' RecargaGlobalCuentasBancarias() - 'End Sub - Public Sub Delete_Click(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim ObjCuentasBancos As New ClsGenerales @@ -3567,12 +3410,7 @@ Partial Class Compras_Proveedores Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1) If CveProveedor > 0 Then GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing - 'Dim ObjCuentasBancos As New ClsGenerales - 'If ObjCuentasBancos.GetCuentasDepositos() Then - ' GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1, True) = ObjCuentasBancos.DtResultados - 'End If - 'ObjCuentasBancos.Dispose() End If End Sub From b21e791eea2b7bf10c054582d1a0e72fffbcb590 Mon Sep 17 00:00:00 2001 From: MLopez Date: Mon, 20 Feb 2023 19:57:50 -0700 Subject: [PATCH 04/12] Inventarios agregar CveFolioGarantia - Se guarda en Inv_Movimientos el valor de CveFolioGarantia al hacer un traspaso de salida desde Acumuladores/CatFoliosGarantia.aspx *** CAMBIOS EN BD VENTAS *** Inv_Movimientos + Col CveFolioGarantia int nullable Comp_Compras + Col CveFolioGarantia int nullable PA_Inv_MovimientosAdd + @CveFolioGarantia INT = -1 --- App_Code/ClsInventarios.vb | 6 ++++-- Inventarios/TraspasoAlmacen.aspx.vb | 6 ++++-- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 0ff33a38c..a86c1393f 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -136,6 +136,7 @@ Public Class ClsInventarios Public Property Modulo As String Public Property ConAplicacion As Boolean Public Property CveInventarioFisicoPadre As Integer + Public Property CveFolioGarantia As Integer @@ -875,7 +876,7 @@ Public Class ClsInventarios ResponsableCarga = dr("ResponsableCarga").ToString ResponsableRecibio = dr("ResponsableRecibio").ToString Modulo = dr("Modulo").ToString - + CveFolioGarantia = dr("CveFolioGarantia").ToString.ToEntero Retorno = True End If @@ -985,7 +986,7 @@ Public Class ClsInventarios Optional CveMovimientoRelacionado As Integer = -1, Optional TipoCambio As Double = -1, Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional MovimientoFijo As Boolean = False, Optional CveContrato As Integer = -1, Optional CveProveedor As Integer = -1, Optional Remision As String = "", Optional CveClienteSucursal As Integer = -1, Optional DepartamentoEntrega As String = "", Optional PedidoContrato As String = "", Optional GastoIndirecto As Double = -1, Optional CveChofer As Integer = -1, Optional CveCamion As Integer = -1, Optional Placa As String = "", Optional FechaEntrega As String = "", Optional EspecifUnidad As String = "", Optional ResponsableCarga As String = "", Optional ResponsableRecibio As String = "", Optional Identificacion As String = "", Optional Domicilio As String = "", - Optional Telefono As String = "", Optional Ciudad As String = "", Optional Licencia As String = "", Optional Modulo As String = "", Optional CveOP As Integer = -1) As Integer + Optional Telefono As String = "", Optional Ciudad As String = "", Optional Licencia As String = "", Optional Modulo As String = "", Optional CveOP As Integer = -1, Optional CveFolioGarantia As Integer = -1) As Integer Dim Retorno As Integer = -1 @@ -1045,6 +1046,7 @@ Public Class ClsInventarios .Add("@Licencia", SqlDbType.VarChar).Value = Licencia .Add("@Modulo", SqlDbType.VarChar).Value = Modulo .Add("@CveOP", SqlDbType.Int).Value = CveOP + .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia End With Try diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 2394c7a2c..39c126845 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -1006,13 +1006,15 @@ Partial Class Inventarios_TraspasoAlmacen Dim CveConceptoEntrada As Integer = 27 If Not ChkTransitorio.Checked Then CveConceptoEntrada = 27 Else CveConceptoEntrada = 9 + Dim CveFolioGarantia As Integer = Request.QueryString("CveFolioGarantia").ToEntero + 'AGREGAMOS LA SALIDA DEL ALMACEN ORIGEN CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, TipoMovimientoSalida, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, "-1"), CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, GastoIndirecto:=If(ChkTransitorio.Checked And TxtGastoIndirecto.Text.ToDouble > 0, TxtGastoIndirecto.Text, "-1").ToDouble, CveChofer:=If(ChkTransitorio.Checked, DdlChofer.SelectedValue.ToEntero, -1), Placa:="", FechaEntrega:=If(ChkTransitorio.Checked, TxtFechaEntrega.Text.Trim.ToDateTime.ToString("dd/MM/yyyy"), "-1"), EspecifUnidad:="", ResponsableCarga:="", ResponsableRecibio:="", Identificacion:="", Domicilio:="", - Telefono:="", Ciudad:="", Licencia:="", Modulo:="TA/G2") + Telefono:="", Ciudad:="", Licencia:="", Modulo:="TA/G2", CveFolioGarantia:=If(CveFolioGarantia > 0, CveFolioGarantia, -1)) FolioSalida = ObjInventario.Folio Folio = ObjInventario.Folio If CveMovimientoSalida <= 0 Then @@ -1033,7 +1035,7 @@ Partial Class Inventarios_TraspasoAlmacen 'ENTRADA CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacenEntrada, CveConceptoEntrada, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, "-1"), - CveAlmacenDestino:=If(ChkTransitorio.Checked, DdlAlmacenDestino.SelectedValue.ToEntero, -1), CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/G3") + CveAlmacenDestino:=If(ChkTransitorio.Checked, DdlAlmacenDestino.SelectedValue.ToEntero, -1), CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/G3", CveFolioGarantia:=If(CveFolioGarantia > 0, CveFolioGarantia, -1)) FolioEntrada = ObjInventario.Folio If CveMovimientoEntrada <= 0 Then TextoError = "Ocurrió un error al generar el movimiento de entrada" From 4c96c5e6cf5535933394771d526dc0dfc88cdc4d Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 20 Feb 2023 20:14:12 -0700 Subject: [PATCH 05/12] parametro de marca --- Acumuladores/RepAcumuladoresVigencia.aspx | 10 +++++++--- Acumuladores/RepAcumuladoresVigencia.aspx.cs | 10 +++++++--- App_Code/ClsAcumuladores.vb | 3 ++- 3 files changed, 16 insertions(+), 7 deletions(-) diff --git a/Acumuladores/RepAcumuladoresVigencia.aspx b/Acumuladores/RepAcumuladoresVigencia.aspx index 2ec474f82..1fdbabe12 100644 --- a/Acumuladores/RepAcumuladoresVigencia.aspx +++ b/Acumuladores/RepAcumuladoresVigencia.aspx @@ -30,12 +30,16 @@
+ +
+ +
-
+
-
+
@@ -92,7 +96,7 @@ - + diff --git a/Acumuladores/RepAcumuladoresVigencia.aspx.cs b/Acumuladores/RepAcumuladoresVigencia.aspx.cs index 1d388aa4c..da9ed60da 100644 --- a/Acumuladores/RepAcumuladoresVigencia.aspx.cs +++ b/Acumuladores/RepAcumuladoresVigencia.aspx.cs @@ -61,10 +61,14 @@ public partial class Acumuladores_RepAcumuladoresVigencia : ClsPaginas private void CargaCombos() { CargarCentrosDeCosto(null, DdlSubProyecto, null, LblSubProyecto); - DdlClasificaciones.DataSource = get_GlobalDTClasificaciones(UsuarioActual.CveEmpresa); + DdlClasificaciones.DataSource = get_GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("Categoria = 'ACUMULADORES'"); DdlClasificaciones.DataBind(); DdlClasificaciones.Items.Insert(0, new ListItem("Todos", "-1")); - } + + DdlMarcas.DataSource = get_GlobalDTGralMarcas(UsuarioActual.CveEmpresa); + DdlMarcas.DataBind(); + DdlMarcas.Items.Insert(0, new ListItem("Todas", "-1")); + } protected void BtnConsultar_Click(object sender, EventArgs e) { @@ -76,7 +80,7 @@ public partial class Acumuladores_RepAcumuladoresVigencia : ClsPaginas { ClsAcumuladores ObjAcum = new ClsAcumuladores(); - if (ObjAcum.GetVigencias(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlClasificaciones.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero())) + if (ObjAcum.GetVigencias(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlMarcas.SelectedValue.ToEntero(), DdlClasificaciones.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero())) { GvAcum.DataSource = ObjAcum.DtResultados; } diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb index 354172fa2..8c9eb613c 100644 --- a/App_Code/ClsAcumuladores.vb +++ b/App_Code/ClsAcumuladores.vb @@ -1315,11 +1315,12 @@ Public Class ClsAcumuladores End Function #Region "VIGENCIA ACUMULADORES" - Public Function GetVigencias(FechaInicio As Date, FechaFin As Date, CveClasificacion As Integer, CveEmpresa As Integer, CveSubProyecto As Integer) As Boolean + Public Function GetVigencias(FechaInicio As Date, FechaFin As Date, CveMarca As Integer, CveClasificacion As Integer, CveEmpresa As Integer, CveSubProyecto As Integer) As Boolean Dim Retorno As Boolean = False SqlDataAdapter("PA_Inv_ProductosFechasComprasSerie") With SqlAdapter.SelectCommand.Parameters + .Add("@CveMarca", SqlDbType.Int).Value = CveMarca .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@FechaIni", SqlDbType.Date).Value = FechaInicio From 9fb5e91d35efa154cf01e3569e75ea2ca324d3c5 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 20 Feb 2023 20:15:18 -0700 Subject: [PATCH 06/12] =?UTF-8?q?-=20correcci=C3=B3n=20de=20columna=20sucu?= =?UTF-8?q?rsal=20a=20subproyecto?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OC/RepOCSinFactura.aspx | 2 +- OC/RepOCSinFactura.aspx.vb | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/OC/RepOCSinFactura.aspx b/OC/RepOCSinFactura.aspx index 026109788..d42dba4b3 100644 --- a/OC/RepOCSinFactura.aspx +++ b/OC/RepOCSinFactura.aspx @@ -69,7 +69,7 @@ - + diff --git a/OC/RepOCSinFactura.aspx.vb b/OC/RepOCSinFactura.aspx.vb index ef5494c07..508f7bf7c 100644 --- a/OC/RepOCSinFactura.aspx.vb +++ b/OC/RepOCSinFactura.aspx.vb @@ -17,7 +17,7 @@ Partial Class OC_RepOCSinFactura Private Sub CargaCombos() 'CargaSucursales - DdlSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) + DdlSucursal.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSucursal.DataBind() 'Vendedor From 206b794fd2830ebca22eed0c821ea181190c9313 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 20 Feb 2023 20:15:39 -0700 Subject: [PATCH 07/12] =?UTF-8?q?-activaci=C3=B3n=20de=20ver=20el=20compue?= =?UTF-8?q?sto=20en=20E119?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/PopUpExistenciasAlmacen.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx.vb b/Inventarios/PopUpExistenciasAlmacen.aspx.vb index 029c3cf8a..06de2d38f 100644 --- a/Inventarios/PopUpExistenciasAlmacen.aspx.vb +++ b/Inventarios/PopUpExistenciasAlmacen.aspx.vb @@ -77,7 +77,7 @@ Partial Class Inventarios_Default DivEquivalentes.Visible = True DivPS.Visible = False End If - If UsuarioActual.CveEmpresa = 119 AndAlso UsuarioActual.CveUsuario.Contiene(1703, 100) Then + If UsuarioActual.CveEmpresa = 119 Then TrCompuesto.Visible = True End If Dim Txt As String = IfNull(Request("Txt"), "").ToString @@ -98,7 +98,7 @@ Partial Class Inventarios_Default If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then CargarDatosMedRin() CargaEquivalencia() - ElseIf UsuarioActual.CveEmpresa = 119 AndAlso UsuarioActual.CveUsuario.Contiene(1703, 100) Then + ElseIf UsuarioActual.CveEmpresa = 119 Then CargaDatosCompuesto() Else CargaDatos(DDlPS.SelectedValue.ToEntero, 1) From 4bcce25f557e5a73e7b18f7a0acf3b6e3863981d Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 20 Feb 2023 20:16:02 -0700 Subject: [PATCH 08/12] =?UTF-8?q?correcci=C3=B3n=20en=20clasificaciones?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 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 1ece45ca0..990afa21c 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -834,7 +834,7 @@ Public Class ClsPaginas End If Dim filtros As New List(Of String) If CveCategoria <> -1 Then filtros.Add($"CveCategoria = {CveCategoria}") - If UsoClasificacion <> -1 Then filtros.Add($"UsoClasificacion = {UsoClasificacion}") + If UsoClasificacion <> -1 Then filtros.Add($"UsoClasificacion IN ({UsoClasificacion},3) ") If CveClasificacion <> -1 Then filtros.Add($"CveClasificacion = {CveClasificacion}") If filtros.Count > 0 Then Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), String.Join(" AND ", filtros), "", DataViewRowState.CurrentRows) From 4dbcf516d384c4960f5d23aaa3604e0c3ac40495 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 20 Feb 2023 20:17:26 -0700 Subject: [PATCH 09/12] =?UTF-8?q?correcci=C3=B3n=20de=20acentos?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- AF/RepDepreciacion.aspx | 6 +++--- AF/RepDepreciacion.aspx.vb | 6 ++---- 2 files changed, 5 insertions(+), 7 deletions(-) diff --git a/AF/RepDepreciacion.aspx b/AF/RepDepreciacion.aspx index a988c3520..81b4c087e 100644 --- a/AF/RepDepreciacion.aspx +++ b/AF/RepDepreciacion.aspx @@ -43,7 +43,7 @@ Personalizar
  • - +
    • @@ -97,7 +97,7 @@
    - + @@ -203,7 +203,7 @@
    - +
    diff --git a/AF/RepDepreciacion.aspx.vb b/AF/RepDepreciacion.aspx.vb index 3a0e849b6..00cdc75ca 100644 --- a/AF/RepDepreciacion.aspx.vb +++ b/AF/RepDepreciacion.aspx.vb @@ -30,17 +30,15 @@ Partial Class AF_RepDepreciacion Dim ObjInventario As New ClsInventarios Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL()) Dim ErrorMovInv As Boolean = False - Dim ConceptoPoliza As String = String.Format("Depreciacion - {0}", txtFechaI.Text) + Dim ConceptoPoliza As String = String.Format("Depreciación - {0}", txtFechaI.Text) Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero Dim CvePrePoliza = ObjConta.AddPrePolizas("Depreciacion", 74, 0, 0, 1, txtFechaI.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - - For Each RowsDt As GridViewRow In GvDatos.Rows CveActivoFijo = RowsDt.DataKey("CveActivoFijo").ToEntero Dim MontoDepreciacion As Decimal = RowsDt.FCLiteral("LtlDepreciacionMensual").Text.ToDecimal If MontoDepreciacion > 0 And CveActivoFijo <> 0 Then - Dim ConceptoPolizaDetalle As String = String.Format("Depreciacion - {0} - {1}", txtFechaI.Text, RowsDt.FCLiteral("LtlDescripcion").Text) + Dim ConceptoPolizaDetalle As String = String.Format("Depreciación - {0} - {1}", txtFechaI.Text, RowsDt.FCLiteral("LtlDescripcion").Text) If CvePrePoliza > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, -MontoDepreciacion, -MontoDepreciacion, 270, ConceptoPolizaDetalle, ConceptoPolizaDetalle, 0, CveActivoFijo:=CveActivoFijo, CveSubProyecto:=CveSubProyecto) Then From d96e4bd3c6aee1dd94409885cffba7ffcccb0843 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 20 Feb 2023 20:18:14 -0700 Subject: [PATCH 10/12] =?UTF-8?q?--=20cuentas=20dep=C3=B3sitos=20correcci?= =?UTF-8?q?=C3=B3n=20y=20agregado=20de=20cveempresa?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/IE.aspx.vb | 72 +++++++++++------------------- Bancos/ProveedoresAbonar.aspx.vb | 76 ++++++++++---------------------- Compras/Proveedores.aspx.vb | 4 +- General/SaldosIniciales.aspx.vb | 41 +++++++++++------ RH/Personal.aspx.vb | 4 +- Ventas/Clientes.aspx.vb | 2 +- 6 files changed, 81 insertions(+), 118 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index d2b1a1088..7b28e1a9d 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -1146,20 +1146,17 @@ Partial Class Bancos_IE Else If DdlTipoTransaccion.SelectedValue = "9" Then - Dim Dep As New ClsGenerales - If Dep.GetCuentasDepositos(CveProveedor:=ObjIE.CveProveedor) Then - DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" Estatus = 'True' ") - If Dep.DtResultados.Rows.Count > 0 Then + Dim dtc As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) + + If dtc IsNot Nothing Then + DdlCuentaDeposito.DataSource = dtc.FiltraParametros(" Estatus = 'True' ") + If dtc.Rows.Count > 0 Then trCuentaDeposito.Visible = True DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) - 'ElseIf Dep.DtResultados.Rows.Count = 1 Then - ' TrCuentaDepositado.Visible = True - ' LitTextoDepositado.Text = "Cuenta Depósito" - ' LitDepositado.Text = Dep.DtResultados.Rows(0)("CuentaDeposito").ToString - 'End If + End If End If - Dep.Dispose() + DdlCuentaDeposito.DataBind() UpCuentaDeposito.Update() End If @@ -1167,9 +1164,6 @@ Partial Class Bancos_IE End If LnkComplementoPago.Visible = True - - - If ObjIE.CveEstatusIE = 1 AndAlso ObjIE.CveIECancelado > 0 Then 'cuando es cheque devuelto TabCancelacion.Visible = True @@ -1185,8 +1179,6 @@ Partial Class Bancos_IE End If - - 'DATOS DE CANCELACION If ObjIE.CveEstatusIE = 2 OrElse (ObjIE.CveEstatusIE = 1 AndAlso ObjIE.CveIECancelacion > 0) Then TabCancelacion.Visible = True @@ -1327,8 +1319,6 @@ Partial Class Bancos_IE End If - - RecargaGlobalCuentasBancarias() ObjIE.Dispose() ObjIE2.Dispose() UPPP.Update() @@ -3968,7 +3958,6 @@ Partial Class Bancos_IE End If Msg.Clear() - RecargaGlobalCuentasBancarias() ObjIE.Dispose() ObjMov.Dispose() If ObjComp IsNot Nothing Then ObjComp.Dispose() @@ -5206,15 +5195,23 @@ Partial Class Bancos_IE 'If DdlTipoTransaccion.SelectedValue.Contiene("2", "9") Then ' transferencias y layout trCuentaDeposito.Visible = False + Dim dtc As DataTable = Nothing - Dim Dep As New ClsGenerales - If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor, CveCliente:=CveCliente, CvePersonal:=CvePersonal) Then + If CveProveedor > 0 Then + dtc = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) + ElseIf CveCliente > 0 Then + dtc = GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, CveCliente:=CveCliente) + End If + + + ' If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor, CveCliente:=CveCliente, CvePersonal:=CvePersonal) Then + If dtc IsNot Nothing Then If DdlTipoTransaccion.SelectedValue = "9" And CveIE <= -1 Then - DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'") + DdlCuentaDeposito.DataSource = dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'") - If Dep.DtResultados.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'").Rows.Count > 0 Then + If dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'").Rows.Count > 0 Then trCuentaDeposito.Visible = True DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) Else @@ -5223,10 +5220,9 @@ Partial Class Bancos_IE DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) ElseIf DdlTipoTransaccion.SelectedValue = "17" And CveIE <= -1 Then + If dtc.Rows.Count > 0 Then - If Dep.DtResultados.Rows.Count > 0 Then - - DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" Estatus = 'True' ") + DdlCuentaDeposito.DataSource = dtc.FiltraParametros(" Estatus = 'True' ") trCuentaDeposito.Visible = True BtnGuardar.ToolTip = "" @@ -5242,15 +5238,14 @@ Partial Class Bancos_IE UpGuardar.Update() Else - DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("Estatus ='True'") - If Dep.DtResultados.Rows.Count > 0 Then + DdlCuentaDeposito.DataSource = dtc.FiltraParametros("Estatus ='True'") + If dtc.Rows.Count > 0 Then trCuentaDeposito.Visible = True DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) End If End If - Else If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") And CveIE <= -1 Then @@ -5265,9 +5260,8 @@ Partial Class Bancos_IE UpGuardar.Update() - End If - Dep.Dispose() + 'If DdlTipoTransaccion.SelectedValue = "9" AndAlso DdlCuentaDeposito.Items.Count = 0 Then ' BtnIEGuardar.Enabled = False @@ -5280,7 +5274,7 @@ Partial Class Bancos_IE ' trCuentaDeposito.Visible = False ' DdlCuentaDeposito.Items.Clear() 'End If - RecargaGlobalCuentasBancarias() + UpCuentaDeposito.Update() UpDatos.Update() End Sub @@ -5305,18 +5299,6 @@ Partial Class Bancos_IE End Sub - 'Recaga CuentasBancarias de Proveedor - Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1) - If CveProveedor > 0 Then - GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing - 'Dim ObjCuentasBancos As New ClsGenerales - - 'If ObjCuentasBancos.GetCuentasDepositos(CveEmpresa:=UsuarioActual.CveEmpresa) Then - ' GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados - 'End If - 'ObjCuentasBancos.Dispose() - End If - End Sub Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs) Dim Dep As New ClsGenerales @@ -6640,7 +6622,6 @@ Partial Class Bancos_IE trCuentaDeposito.Visible = True DdlCuentaDeposito.Enabled = True - Dim Dep As New ClsGenerales If Dep.GetCuentasDepositos(CveCliente:=CveCliente) Then @@ -6651,15 +6632,12 @@ Partial Class Bancos_IE DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) End If - End If Dep.Dispose() DdlCuentaDeposito.DataBind() UpCuentaDeposito.Update() - - End If End Sub diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 660e1a514..d96237c96 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -650,16 +650,14 @@ Partial Class Bancos_ProveedoresAbonar Exit Sub End If - Dim Dep As New ClsGenerales - If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor) Then - Dim Row = Dep.DtResultados.FiltroPrimero(String.Format("CveCuentaDeposito = {0}", DdlCuentaDeposito.SelectedValue.ToEntero)) + Dim dtc As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) + If dtc IsNot Nothing Then + Dim Row = dtc.FiltroPrimero(String.Format("CveCuentaDeposito = {0}", DdlCuentaDeposito.SelectedValue.ToEntero)) If Row IsNot Nothing AndAlso Row("Estatus").ToString = "False" Then Alert("La cuenta depósito del proveedor esta inactiva.", TipoMensaje.MsgAdvertencia) - Dep.Dispose() Exit Sub End If End If - Dep.Dispose() 'proceso que restringue solo el pago de apartir del dia de hoy y como limite fin de mes If UsuarioActual.TienePermisoProceso(105) AndAlso (TxtFechaDocumento.Text.ToDate < Now.Date Or TxtFechaDocumento.Text.ToDate > Now.LastDayOfMonth) Then @@ -1310,22 +1308,22 @@ Partial Class Bancos_ProveedoresAbonar #Region " CUENTAS DEPOSITOS" Private Sub CargaCuentasDepositos() DdlCuentaDeposito.Items.Clear() - ' If DdlTipoTransaccion.SelectedValue.Contiene("2", "9") Then ' transferencias y layout + trCuentaDeposito.Visible = False - Dim Dep As New ClsGenerales - If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor) Then + Dim dtc As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) + If dtc IsNot Nothing Then - If Dep.DtResultados.FiltraParametros("Estatus ='True'").Rows.Count > 0 Then + If dtc.FiltraParametros("Estatus ='True'").Rows.Count > 0 Then If DdlTipoTransaccion.SelectedValue = "9" Then - If Dep.DtResultados.Rows.Count > 0 Then - DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'") + If dtc.Rows.Count > 0 Then + DdlCuentaDeposito.DataSource = dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'") DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) End If - If Dep.DtResultados.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'").Rows.Count > 0 Then + If dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'").Rows.Count > 0 Then trCuentaDeposito.Visible = True DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) Else @@ -1335,45 +1333,28 @@ Partial Class Bancos_ProveedoresAbonar ElseIf DdlTipoTransaccion.SelectedValue = "17" Then - - If Dep.DtResultados.Rows.Count > 0 Then - - DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" Estatus ='True'") + If dtc.Rows.Count > 0 Then + DdlCuentaDeposito.DataSource = dtc.FiltraParametros(" Estatus ='True'") DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) - trCuentaDeposito.Visible = True BtnIEGuardar.ToolTip = "" Else - BtnIEGuardar.Enabled = False BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito" Alert("El proveedor no tiene cuentas deposito.", TipoMensaje.MsgAdvertencia) - End If - - UpGuardar.Update() Else - DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("Estatus ='True'") - If Dep.DtResultados.Rows.Count > 0 Then + DdlCuentaDeposito.DataSource = dtc.FiltraParametros("Estatus ='True'") + If dtc.Rows.Count > 0 Then trCuentaDeposito.Visible = True DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) End If End If - DdlCuentaDeposito.DataBind() - - - 'If DdlCuentaDeposito.Items.Count > 1 Then - ' DdlCuentaDeposito.SelectedIndex = 1 - 'End If - - Else - If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then - BtnIEGuardar.Enabled = False BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito" Alert("El proveedor no tiene cuentas deposito.", TipoMensaje.MsgAdvertencia) @@ -1382,17 +1363,11 @@ Partial Class Bancos_ProveedoresAbonar BtnIEGuardar.Enabled = True BtnIEGuardar.ToolTip = "" End If - UpGuardar.Update() - End If - - Else - If DdlTipoTransaccion.SelectedValue = "17" Then - BtnIEGuardar.Enabled = False BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito" Else @@ -1402,11 +1377,8 @@ Partial Class Bancos_ProveedoresAbonar End If UpGuardar.Update() - - End If - Dep.Dispose() 'Else ' trCuentaDeposito.Visible = False ' DdlCuentaDeposito.Items.Clear() @@ -1428,28 +1400,27 @@ Partial Class Bancos_ProveedoresAbonar Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs) - Dim Dep As New ClsGenerales + Dim dtc As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) + If dtc IsNot Nothing AndAlso dtc.Rows.Count = 1 Then - If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero) AndAlso Dep.DtResultados.Rows.Count = 1 Then + If dtc.Rows.Count > 0 Then - If Dep.DtResultados.Rows.Count > 0 Then - - If Dep.DtResultados.Rows(0)("TieneCIE").ToString.ToEntero = 1 Then + If dtc.Rows(0)("TieneCIE").ToString.ToEntero = 1 Then TrReferenciaCIE.Visible = True - TxtReferenciaCIE.Text = Dep.DtResultados.Rows(0)("Referencia").ToString - TxtConceptoCIE.Text = Dep.DtResultados.Rows(0)("ConceptoCIE").ToString + TxtReferenciaCIE.Text = dtc.Rows(0)("Referencia").ToString + TxtConceptoCIE.Text = dtc.Rows(0)("ConceptoCIE").ToString - OriReferenciaCIE = Dep.DtResultados.Rows(0)("Referencia").ToString - OriConceptoCIE = Dep.DtResultados.Rows(0)("ConceptoCIE").ToString + OriReferenciaCIE = dtc.Rows(0)("Referencia").ToString + OriConceptoCIE = dtc.Rows(0)("ConceptoCIE").ToString Else TrReferenciaCIE.Visible = False End If - If Boolean.Parse(Dep.DtResultados.Rows(0)("EstatusPagoElectronicoGrupos").ToString) = True AndAlso Dep.DtResultados.Rows(0)("CveSATBanco").ToString.ToEntero <= 0 Then + If Boolean.Parse(dtc.Rows(0)("EstatusPagoElectronicoGrupos").ToString) = True AndAlso dtc.Rows(0)("CveSATBanco").ToString.ToEntero <= 0 Then Alert("Es necesario establecer el banco de la cuenta deposito", TipoMensaje.MsgAdvertencia) BtnIEGuardar.Enabled = False @@ -1466,7 +1437,6 @@ Partial Class Bancos_ProveedoresAbonar TrReferenciaCIE.Visible = False End If - Dep.Dispose() UpCuentaDeposito.Update() UpGuardar.Update() End Sub diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index f35031cc5..fd28a8ce2 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -1730,7 +1730,7 @@ Partial Class Compras_Proveedores ''Agregar Cuentas Bancarias If TempDTCuentasBancos.Rows.Count > 0 Then For Each row As DataRow In TempDTCuentasBancos.Rows - If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString, row("Plaza").ToString, row("Sucursal").ToString, row("Cuenta").ToString, row("CLABE").ToString, row("CIE").ToString, row("SWIFT").ToString, row("Referencia").ToString, row("RefCrediProveedor").ToString, UsuarioActual.CveUsuario, row("CveMoneda").ToString.ToEntero, + If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString, row("Plaza").ToString, row("Sucursal").ToString, row("Cuenta").ToString, row("CLABE").ToString, row("CIE").ToString, row("SWIFT").ToString, row("Referencia").ToString, row("RefCrediProveedor").ToString, UsuarioActual.CveUsuario, row("CveMoneda").ToString.ToEntero, UsuarioActual.CveEmpresa, CveProveedor:=NuevoCveProveedor, Correo:=row("Correo").ToString, BBVAAlias:=row("BBVAAlias").ToString, EstatusPagoElectronico:=Boolean.Parse(row("EstatusPagoElectronico").ToString), EstatusPagoElectronicoGrupos:=Boolean.Parse(row("EstatusPagoElectronicoGrupos").ToString), CveSATBanco:=row("CveSATBanco").ToString.ToEntero) Then ErrorBancos = True @@ -3212,7 +3212,7 @@ Partial Class Compras_Proveedores If CveProveedor > 0 Then Dim ObjCuentasBancos As New ClsGenerales - If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, CveProveedor:=CveProveedor, + If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor, Correo:=Correo, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos, CveSATBanco:=CveSATBanco, ConceptoCIE:=ConceptoCIE) Then DTCuentasBancos.Clear() DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor))) diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 2d3778ac7..67d851a82 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -1170,7 +1170,7 @@ Partial Class General_SaldosIniciales If Not ErrorCuentaDeposito Then Dim ObjGrales As New ClsGenerales(ObjProv.IniciaTransacSQL) - If Not ObjGrales.AddCuentasDepositos(Banco, "-1", "-1", NumeroCuenta, ClabeInter, "-1", "-1", "-1", "-1", UsuarioActual.CveUsuario, 1, CveProveedor:=ObjProv.CveProveedor) Then + If Not ObjGrales.AddCuentasDepositos(Banco, "-1", "-1", NumeroCuenta, ClabeInter, "-1", "-1", "-1", "-1", UsuarioActual.CveUsuario, 1, UsuarioActual.CveEmpresa, CveProveedor:=ObjProv.CveProveedor) Then 'ErrorProv = True End If End If @@ -1811,6 +1811,9 @@ Partial Class General_SaldosIniciales If Not dt.Columns.Contains("CveCuentaContable") Then dt.Columns.Add("CveCuentaContable", GetType(Integer)) End If + If Not dt.Columns.Contains("CveCuentaContableDepreciacion") Then + dt.Columns.Add("CveCuentaContableDepreciacion", GetType(Integer)) + End If Dim sbErrores As New StringBuilder For Each Row As DataRow In dt.Rows @@ -1830,6 +1833,18 @@ Partial Class General_SaldosIniciales ErrorAF = True End If End If + CuentaContable = Row("Cuenta Depreciación").ToString().Trim.Replace("-", "").Replace(" ", "") + + If CuentaContable.Length > 0 Then + Dim CveCuentaContable As Integer = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero() + + If CveCuentaContable > 0 Then + Row("CveCuentaContableDepreciacion") = CveCuentaContable + Else + sbErrores.AppendLine($"Activo Fijo {Codigo} {Descripcion} cuenta {CuentaContable} no encontrada.
    ") + ErrorAF = True + End If + End If Next If Not ErrorAF Then @@ -1840,9 +1855,11 @@ Partial Class General_SaldosIniciales End If Dim ObjAF As New ClsAF + ObjAF.IniciaTransacSQL() + Dim ObjConta As New ClsContabilidad(ObjAF.IniciaTransacSQL) Try - ObjAF.IniciaTransacSQL() + Dim Contador As Integer = 0 Dim NumRow As Integer = 0 @@ -1872,7 +1889,7 @@ Partial Class General_SaldosIniciales Dim CveEstadoActivoFijo As Integer = GlobalDTEstadoActivoFijo().FiltroPrimeroValor("CveEstadoActivoFijo", $"EstadoActivoFijo = '{Estado}'").ToString().ToEntero() Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"Nombre = '{Cliente}'").ToString().ToEntero() Dim CveCuentaContable As Integer = Row("CveCuentaContable").ToString().ToEntero() - + Dim CveCuentaContableDepreciacion As Integer = Row("CveCuentaContable").ToString().ToEntero() 'VALIDACIONES If Not CveSubTipoAF > 0 Then Alert($"No se encontró el SubTipo: {TipoAF} Descripcion: {Descripcion} Renglón: {NumRow}: ", TipoMensaje.MsgAdvertencia) : ErrorAF = True : Exit For @@ -1890,27 +1907,27 @@ Partial Class General_SaldosIniciales If CveAF > 0 Then If CveCuentaContable > 0 Then - - Dim ObjConta As New ClsContabilidad(ObjAF.IniciaTransacSQL) - If Not ObjConta.AddCuentasAsignaciones(49, UsuarioActual.CveEmpresa, CveCuentaContable, -1, -1, -1, -1, -1, -1, 0, CveBancoCuenta:=-1, CveConceptoNomina:=-1, CveSubProyecto:=-1, CveActivoFijo:=CveAF, CveTipoGasto:=-1, RegeneraCuenta:=False) Then ErrorAF = True End If - + End If + If CveCuentaContableDepreciacion > 0 Then + If Not ObjConta.AddCuentasAsignaciones(101, UsuarioActual.CveEmpresa, CveCuentaContableDepreciacion, -1, + -1, -1, -1, -1, -1, 0, CveBancoCuenta:=-1, CveConceptoNomina:=-1, CveSubProyecto:=-1, CveActivoFijo:=CveAF, + CveTipoGasto:=-1, RegeneraCuenta:=False) Then + ErrorAF = True + End If End If Else ErrorAF = True Exit For End If End If - - NumRow = NumRow + 1 Next - If Not ErrorAF Then If Contador > 0 Then Alert(String.Format("Se agregaron: {0} Activos Fijos correctamente.
    Se Omitieron: {1} Activos Fijos ya que ya se encontraban registrados.", NumRows - Contador, Contador), TipoMensaje.MsgInformacion) @@ -1933,19 +1950,17 @@ Partial Class General_SaldosIniciales Finally ObjAF.Dispose() + ObjConta.Dispose() End Try #End Region - - ' C U E N T A S C O N T A B L E S ElseIf RblFormato.SelectedValue = "8" Then Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) ObjConta.IniciaTransacSQL() Try - Dim TieneError As Boolean = False Dim ContadorUpdate As Integer = 0 Dim ContadorError As Integer = 0 diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 077c0520a..4cd7b9e07 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -1999,7 +1999,7 @@ Partial Class RH_Personal If TempDTCuentasBancos.Rows.Count > 0 Then For Each row As DataRow In TempDTCuentasBancos.Rows - If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString(), row("Plaza").ToString(), row("Sucursal").ToString(), row("Cuenta").ToString(), row("CLABE").ToString(), row("CIE").ToString(), row("SWIFT").ToString(), row("Referencia").ToString(), "", UsuarioActual.CveUsuario, row("CveMoneda").ToString().ToEntero(), CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=row("BBVAAlias").ToString()) Then + If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString(), row("Plaza").ToString(), row("Sucursal").ToString(), row("Cuenta").ToString(), row("CLABE").ToString(), row("CIE").ToString(), row("SWIFT").ToString(), row("Referencia").ToString(), "", UsuarioActual.CveUsuario, row("CveMoneda").ToString().ToEntero(), UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=row("BBVAAlias").ToString()) Then TieneError = True Exit For End If @@ -3353,7 +3353,7 @@ Partial Class RH_Personal If CvePersonal > 0 Then Dim ObjCuentasBancos As New ClsGenerales - If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", UsuarioActual.CveUsuario, CveMoneda, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias, CveSATBanco:=CveSATBanco, EstatusPagoElectronico:=EstatusPagoElectronico) Then + If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", UsuarioActual.CveUsuario, CveMoneda, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias, CveSATBanco:=CveSATBanco, EstatusPagoElectronico:=EstatusPagoElectronico) Then DTCuentasBancos.Clear() DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CvePersonal = {0}", CvePersonal))) diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 1d0794060..2f6dd43b3 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -6615,7 +6615,7 @@ Partial Class Clientes If CveCliente > 0 Then - If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, CveCliente:=CveCliente) Then + If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, UsuarioActual.CveEmpresa, CveCliente:=CveCliente) Then DTCuentasBancos.Clear() DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveCliente = {0}", CveCliente))) Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion) From 17f018503527acbe354ea33646b7bfba2f88ba03 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Mon, 20 Feb 2023 20:20:08 -0700 Subject: [PATCH 11/12] Compras Impresion de pedf de poliza, clases de compras para subproyectos, RepEstadoResultados --- AC/RepPresupuestoEgresosMensual.aspx | 21 +- AC/RepPresupuestoEgresosMensual.aspx.vb | 11 + AC/Reportes/RepPresupuestoEgresosMensual.rdlc | 2888 +++++++++-------- App_Code/ClsCompras.vb | 8 +- Compras/Compras.aspx | 4 + Compras/Compras.aspx.vb | 33 +- Compras/PopUpVerFactura.aspx.vb | 183 ++ Contabilidad/RegPrePolizaS.aspx.vb | 179 +- Contabilidad/RepIVA.aspx.cs | 8 +- .../RepEstadoResultadosHorizontal.aspx | 10 +- .../RepEstadoResultadosHorizontal.aspx.vb | 38 +- Empresas/119/Formatos/RepIVAAcreditable.rpt | Bin 131072 -> 131072 bytes 12 files changed, 1908 insertions(+), 1475 deletions(-) diff --git a/AC/RepPresupuestoEgresosMensual.aspx b/AC/RepPresupuestoEgresosMensual.aspx index 5f9f72882..4deec460f 100644 --- a/AC/RepPresupuestoEgresosMensual.aspx +++ b/AC/RepPresupuestoEgresosMensual.aspx @@ -10,9 +10,24 @@ Estado del Ejercicio del Presupuesto de Egresos - Mensual - -   -   + + + + +
  • + Exporta Excel +
    • +
  • + Imprimir +
    • +     + + + + +     + +     diff --git a/AC/RepPresupuestoEgresosMensual.aspx.vb b/AC/RepPresupuestoEgresosMensual.aspx.vb index f081fa26b..70514d7bd 100644 --- a/AC/RepPresupuestoEgresosMensual.aspx.vb +++ b/AC/RepPresupuestoEgresosMensual.aspx.vb @@ -18,6 +18,8 @@ Partial Class AC_RepPresupuestoEgresosMensual If Not Page.IsPostBack Then CargaEjercicios() CargaCombos() + + End If End Sub @@ -68,6 +70,10 @@ Partial Class AC_RepPresupuestoEgresosMensual Private Sub CargaDatos() + + ImgExcel.Visible = False + BtnImprimir.Visible = False + Dim objAC As New ClsContPAQi(UsuarioActual.Empresa) Dim Capitulo As String = If(DdlCapituloClasificaciones.SelectedValue.ToEntero = -1, "-1", GlobalDTACClasificadorObjetoGasto.FiltraParametros(String.Format("CveClasificacion = {0}", DdlCapituloClasificaciones.SelectedValue.ToEntero)).Rows(0)("Codigo").ToString.Substring(0, 1)) UPPDatos.Update() @@ -83,6 +89,11 @@ Partial Class AC_RepPresupuestoEgresosMensual End If Gv.DataSource = DtPresupuestoEgresos + If DtPresupuestoEgresos IsNot Nothing AndAlso DtPresupuestoEgresos.Rows.Count > 0 Then + ImgExcel.Visible = True + BtnImprimir.Visible = True + End If + Else Gv.DataSource = Nothing DtPresupuestoEgresos = Nothing diff --git a/AC/Reportes/RepPresupuestoEgresosMensual.rdlc b/AC/Reportes/RepPresupuestoEgresosMensual.rdlc index 8223a6e20..3565217d5 100644 --- a/AC/Reportes/RepPresupuestoEgresosMensual.rdlc +++ b/AC/Reportes/RepPresupuestoEgresosMensual.rdlc @@ -1,1439 +1,5 @@ - - - - - External - = Parameters!pImg.Value - FitProportional - 0.17639cm - 0.76271cm - 1.76458cm - 1.8175cm - - - - - - true - true - - - - - ="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy") - - - - - - - Textbox11 - 0.07056cm - 22.60218cm - 1.02333cm - 4.21979cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!pEmp.Value - - - - - - - Textbox1 - 0.07056cm - 6.67449cm - 0.81167cm - 14.52244cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Presupuesto de Egresos Mensual del Ejercicio - - - - =Parameters!pEjercicio.Value - - - - - - - - - =Parameters!pMomentoContable.Value - - - - - - - Textbox5 - 0.9175cm - 4.55304cm - 0.74538cm - 17.17202cm - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 3.86309cm - - - 1.75cm - - - 1.75cm - - - 1.75cm - - - 1.75cm - - - 1.75cm - - - 1.75cm - - - 1.75cm - - - 1.75cm - - - 1.75cm - - - 1.75cm - - - 1.75cm - - - 1.75cm - - - 1.97212cm - - - - - 0.6cm - - - - - true - true - - - - - Grupo - - - - - - - Textbox2 - - - - - - - - true - true - - - - - Ene - - - - - - - Textbox29 - - - - - - - - true - true - - - - - Feb - - - - - - - Textbox31 - - - - - - - - true - true - - - - - Mar - - - - - - - Textbox4 - - - - - - - - true - true - - - - - Abr - - - - - - - Textbox8 - - - - - - - - true - true - - - - - May - - - - - - - Textbox10 - - - - - - - - true - true - - - - - Jun - - - - - - - Textbox14 - - - - - - - - true - true - - - - - Jul - - - - - - - Textbox5 - - - - - - - - true - true - - - - - Ago - - - - - - - Textbox13 - - - - - - - - true - true - - - - - Sep - - - - - - - Textbox16 - - - - - - - - true - true - - - - - Oct - - - - - - - Textbox18 - - - - - - - - true - true - - - - - Nov - - - - - - - Textbox20 - - - - - - - - true - true - - - - - Dic - - - - - - - Textbox22 - - - - - - - - true - true - - - - - Total - - - - - - - Textbox24 - - - - - - - - 0.6cm - - - - - true - true - - - - - =Code.Niveles(Fields!GPO.Value,Fields!Clasificacion1.Value,Fields!Clasificacion2.Value,Fields!Clasificacion3.Value,Fields!Nivel.Value) - - - - - - - Textbox26 - - - - - - - - true - true - - - - - =Fields!Ene.Value - - - - - - - Ene - - - - - - - - true - true - - - - - =Fields!Feb.Value - - - - - - - Feb - - - - - - - - true - true - - - - - =Fields!Mar.Value - - - - - - - Mar - - - - - - - - true - true - - - - - =Fields!Abr.Value - - - - - - - Abr - - - - - - - - true - true - - - - - =Fields!May.Value - - - - - - - May - - - - - - - - true - true - - - - - =Fields!Jun.Value - - - - - - - Jun - - - - - - - - true - true - - - - - =Fields!Jul.Value - - - - - - - Jul - - - - - - - - true - true - - - - - =Fields!Ago.Value - - - - - - - Ago - - - - - - - - true - true - - - - - =Fields!Sep.Value - - - - - - - Sep - - - - - - - - true - true - - - - - =Fields!Oct.Value - - - - - - - Oct - - - - - - - - true - true - - - - - =Fields!Nov.Value - - - - - - - Nov - - - - - - - - true - true - - - - - =Fields!Dic.Value - - - - - - - Dic - - - - - - - - true - true - - - - - =Fields!TotalAcumulado.Value - - - - - - - TotalAcumulado - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - After - true - - - - - - - DataSet1 - 2.11736cm - 0.36197cm - 1.2cm - 26.83521cm - 4 - - - - - - 1.40986in - - - - =Parameters!pEjercicio.Value - - - - - - - - - =Parameters!pMomentoContable.Value - - - - - - - Textbox5 - 0.18197cm - 4.55304cm - 0.6cm - 17.17202cm - - = (Globals.PageNumber=1) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy") - - - - - - - Textbox8 - 0.20285cm - 23.32948cm - 0.57912cm - 3.49249cm - 1 - - = (Globals.PageNumber=1) - - - - 2pt - 2pt - - - - - - - - - 0.94395cm - true - true - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox3 - 0.17639cm - 21.30572cm - 0.6cm - 5.51625cm - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 21.59cm - 27.94cm - 0.25cm - 0.25cm - 0.25cm - 0.25cm - 0.13cm - + + + + + true + true + + + + + ="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy") + + + + + + + Textbox11 + 0.07056cm + 22.60218cm + 1.02333cm + 4.21979cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + + =Parameters!pEmp.Value + + + + + + + + + + + Textbox1 + 0.07056cm + 6.67449cm + 0.81167cm + 14.52244cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Presupuesto de Egresos Mensual del Ejercicio + + + + =Parameters!pEjercicio.Value + + + + - + + + + =Parameters!pMomentoContable.Value + + + + + + + Textbox5 + 0.9175cm + 4.55304cm + 0.74538cm + 17.17202cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 3.86309cm + + + 1.75cm + + + 1.75cm + + + 1.75cm + + + 1.75cm + + + 1.75cm + + + 1.75cm + + + 1.75cm + + + 1.75cm + + + 1.75cm + + + 1.75cm + + + 1.75cm + + + 1.75cm + + + 1.97212cm + + + + + 0.6cm + + + + + true + true + + + + + Grupo + + + + + + + Textbox2 + + + + + + + + true + true + + + + + Ene + + + + + + + Textbox29 + + + + + + + + true + true + + + + + Feb + + + + + + + Textbox31 + + + + + + + + true + true + + + + + Mar + + + + + + + Textbox4 + + + + + + + + true + true + + + + + Abr + + + + + + + Textbox8 + + + + + + + + true + true + + + + + May + + + + + + + Textbox10 + + + + + + + + true + true + + + + + Jun + + + + + + + Textbox14 + + + + + + + + true + true + + + + + Jul + + + + + + + Textbox5 + + + + + + + + true + true + + + + + Ago + + + + + + + Textbox13 + + + + + + + + true + true + + + + + Sep + + + + + + + Textbox16 + + + + + + + + true + true + + + + + Oct + + + + + + + Textbox18 + + + + + + + + true + true + + + + + Nov + + + + + + + Textbox20 + + + + + + + + true + true + + + + + Dic + + + + + + + Textbox22 + + + + + + + + true + true + + + + + Total + + + + + + + Textbox24 + + + + + + + + 0.6cm + + + + + true + true + + + + + =Code.Niveles(Fields!GPO.Value,Fields!Clasificacion1.Value,Fields!Clasificacion2.Value,Fields!Clasificacion3.Value,Fields!Nivel.Value) + + + + + + + Textbox26 + + + + + + + + true + true + + + + + =Fields!Ene.Value + + + + + + + Ene + + + + + + + + true + true + + + + + =Fields!Feb.Value + + + + + + + Feb + + + + + + + + true + true + + + + + =Fields!Mar.Value + + + + + + + Mar + + + + + + + + true + true + + + + + =Fields!Abr.Value + + + + + + + Abr + + + + + + + + true + true + + + + + =Fields!May.Value + + + + + + + May + + + + + + + + true + true + + + + + =Fields!Jun.Value + + + + + + + Jun + + + + + + + + true + true + + + + + =Fields!Jul.Value + + + + + + + Jul + + + + + + + + true + true + + + + + =Fields!Ago.Value + + + + + + + Ago + + + + + + + + true + true + + + + + =Fields!Sep.Value + + + + + + + Sep + + + + + + + + true + true + + + + + =Fields!Oct.Value + + + + + + + Oct + + + + + + + + true + true + + + + + =Fields!Nov.Value + + + + + + + Nov + + + + + + + + true + true + + + + + =Fields!Dic.Value + + + + + + + Dic + + + + + + + + true + true + + + + + =Fields!TotalAcumulado.Value + + + + + + + TotalAcumulado + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + After + true + + + + + + + DataSet1 + 2.11736cm + 0.36197cm + 1.2cm + 26.83521cm + 4 + + + + + + 1.40986in + + + + =Parameters!pEjercicio.Value + + + + - + + + + =Parameters!pMomentoContable.Value + + + + + + + Textbox5 + 0.18197cm + 4.55304cm + 0.6cm + 17.17202cm + + = (Globals.PageNumber=1) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy") + + + + + + + Textbox8 + 0.20285cm + 23.32948cm + 0.57912cm + 3.49249cm + 1 + + = (Globals.PageNumber=1) + + + + 2pt + 2pt + + + + + + + + + 0.94395cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.17639cm + 21.30572cm + 0.6cm + 5.51625cm + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 21.59cm + 27.94cm + 0.25cm + 0.25cm + 0.25cm + 0.25cm + 0.13cm +