From cac6ee80a71fe61aed9c30cf4ff1c29d6af0d923 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Mon, 10 Aug 2020 11:07:09 -0700 Subject: [PATCH 01/30] - --- Contabilidad/LibroDiario.aspx.vb | 13 +++--- Contabilidad2/RepLibroDiario.aspx | 4 +- Contabilidad2/RepLibroDiario.aspx.vb | 60 ++++++++++++++++++++++------ 3 files changed, 56 insertions(+), 21 deletions(-) diff --git a/Contabilidad/LibroDiario.aspx.vb b/Contabilidad/LibroDiario.aspx.vb index d3507a095..fd61a89cf 100644 --- a/Contabilidad/LibroDiario.aspx.vb +++ b/Contabilidad/LibroDiario.aspx.vb @@ -51,11 +51,12 @@ Partial Class Contabilidad_LibroDiario InicializaValores() - If UsuarioActual.Empresa.UsaAC Then - BtnConsultar.Enabled = True - Else - Alert("La empresa no usa Armonización Contable", TipoMensaje.MsgError) - End If + BtnConsultar.Enabled = True + 'If UsuarioActual.Empresa.UsaAC Then + ' BtnConsultar.Enabled = True + 'Else + ' Alert("La empresa no usa Armonización Contable", TipoMensaje.MsgError) + 'End If End If End Sub @@ -212,7 +213,6 @@ Partial Class Contabilidad_LibroDiario #Region " IMPRIMIR " -#End Region Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click 'FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate) 'FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate) @@ -245,5 +245,6 @@ Partial Class Contabilidad_LibroDiario ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/LibroDiario.rpt"), DtDatos, lista, "LibroDiario", Formato), "LibroDiario", Formato) End Sub +#End Region End Class diff --git a/Contabilidad2/RepLibroDiario.aspx b/Contabilidad2/RepLibroDiario.aspx index 4224c2fa5..33fb505ac 100644 --- a/Contabilidad2/RepLibroDiario.aspx +++ b/Contabilidad2/RepLibroDiario.aspx @@ -83,8 +83,8 @@ - - + + diff --git a/Contabilidad2/RepLibroDiario.aspx.vb b/Contabilidad2/RepLibroDiario.aspx.vb index 3f01252dc..5eb60c12e 100644 --- a/Contabilidad2/RepLibroDiario.aspx.vb +++ b/Contabilidad2/RepLibroDiario.aspx.vb @@ -90,20 +90,19 @@ Partial Class Contabilidad2_RepLibroDiario Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then - - ''CABECERA - 'If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 1 Then - ' e.Row.Font.Bold = True - ' e.Row.Cells(4).Text = "" - ' e.Row.Cells(5).Text = "" - ' e.Row.Cells(6).Text = "" - ' e.Row.Cells(7).Text = "" - ' e.Row.Cells(8).Text = "" - ' e.Row.CssClass = "SubTotales" ' - 'End If + 'CABECERA + If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 1 Then + e.Row.Font.Bold = True + e.Row.Cells(4).Text = "" + e.Row.Cells(5).Text = "" + e.Row.Cells(6).Text = "" + e.Row.Cells(7).Text = "" + e.Row.Cells(8).Text = "" + e.Row.CssClass = "SubTotales" ' + End If 'DETALLE - If e.Row.DBCampo("Codigo") <> "" Then + If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 2 Then e.Row.Cells(0).Text = "" e.Row.Cells(1).Text = "" e.Row.Cells(2).Text = "" @@ -111,7 +110,7 @@ Partial Class Contabilidad2_RepLibroDiario End If 'SUBTOTAL - If e.Row.DBCampo("Codigo") = "" Then + If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 3 Then e.Row.Font.Bold = True e.Row.Cells(0).Text = "" e.Row.Cells(1).Text = "" @@ -141,4 +140,39 @@ Partial Class Contabilidad2_RepLibroDiario End If End Sub +#Region " IMPRIMIR " + + Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click + 'FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate) + 'FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate) + 'DtDatos = DtDatos + ImprimirReporte() + End Sub + + Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click + 'FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate) + 'FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate) + 'DtDatos = DtDatos + ImprimirReporte("EXCEL") + End Sub + + Private Sub ImprimirReporte(Optional Formato As String = "PDF") + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + + Dim lista = New List(Of CrystalParametro) + lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa)) + lista.Add(New CrystalParametro("FechaInicio", FechaInicio.ToString("dd/MM/yyyy"))) + lista.Add(New CrystalParametro("FechaFin", FechaFin.ToString("dd/MM/yyyy"))) + lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre)) + + If Imagen.Exists Then + lista.Add(New CrystalParametro("LogoPath", logouri)) + Else + lista.Add(New CrystalParametro("LogoPath", "")) + End If + + ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/LibroDiario.rpt"), DtDatos, lista, "LibroDiario", Formato), "LibroDiario", Formato) + End Sub +#End Region End Class From c4b062ffcfd14ae0a040836af097423c0fd7796c Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Mon, 10 Aug 2020 11:17:06 -0700 Subject: [PATCH 02/30] Personal vacaiones acentos --- RH/Personal.aspx | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/RH/Personal.aspx b/RH/Personal.aspx index ce2b06451..509c01ad6 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -2193,11 +2193,11 @@ - + - + @@ -2412,7 +2412,7 @@ AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False"> - + @@ -2471,8 +2471,8 @@ AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False"> - - + + From 621d8aefd6854aafb27b461bee76a27aa067b23c Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Mon, 10 Aug 2020 12:17:12 -0700 Subject: [PATCH 03/30] ParametroDomicilio fiscal agregado --- Empresas/Grales/Formatos/EntradasSalidas.rdlc | 4359 +++++++++-------- 1 file changed, 2182 insertions(+), 2177 deletions(-) diff --git a/Empresas/Grales/Formatos/EntradasSalidas.rdlc b/Empresas/Grales/Formatos/EntradasSalidas.rdlc index 1bbcecdbc..176b0a50e 100644 --- a/Empresas/Grales/Formatos/EntradasSalidas.rdlc +++ b/Empresas/Grales/Formatos/EntradasSalidas.rdlc @@ -1,2178 +1,2183 @@ - - - 0 - - - - System.Data.DataSet - /* Local Connection */ - - db271139-498f-42f1-b0bc-9c6d57014da7 - - - - - - DataSet - /* Local Query */ - - - - CvePS - System.Int16 - - - CveMoneda - System.Int16 - - - CveProveedor - System.Int16 - - - CveConcepto - System.Int16 - - - FechaI - System.DateTime - - - FechaF - System.DateTime - - - PS - System.String - - - SaldoIniCant - System.Int16 - - - SaldoInitCant - System.Int16 - - - EntradaCant - System.Int16 - - - SalidaCant - System.Int16 - - - SaldoFCant - System.Int16 - - - SaldoIniImp - System.Int16 - - - EntradaImp - System.Int16 - - - SalidaImp - System.Int16 - - - SaldoFImp - System.Int16 - - - Orden - System.Int16 - - - Codigo - System.String - - - - DataSet - C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite3\App_Code\DataSet.xsd - DataTable1 - - - - - - - - - - - - - - - 1.82858cm - - - 5.84308cm - - - 1.40241cm - - - 1.59046cm - - - 1.59046cm - - - 1.3846cm - - - 1.62687cm - - - 1.99138cm - - - 1.7797cm - - - 1.865cm - - - - - 0.6cm - - - - - true - true - - - - - - - - - - - - Textbox14 - - - - White - - 1pt - - - LightGrey - - 1pt - - - White - - 1pt - - #d3d3d3 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox9 - - - - White - - 1pt - - - LightGrey - - 1pt - - - White - - 1pt - - #d3d3d3 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Cantidad - - - - - - - Textbox10 - - - - White - - 1pt - - - White - - 1pt - - - White - - 1pt - - - White - - 1pt - - #d3d3d3 - 2pt - 2pt - 2pt - 2pt - - - 4 - - - - - - - - - true - true - - - - - Importe - - - - - - - Textbox18 - - - - White - - 1pt - - - White - - 1pt - - - White - - 1pt - - - LightGrey - - 1pt - - #d3d3d3 - 2pt - 2pt - 2pt - 2pt - - - 4 - - - - - - - - - 0.9175cm - - - - - true - true - - - - - Código - - - - - - - Textbox15 - - - - White - - 1pt - - - LightGrey - - 1pt - - - White - - 1pt - - #d3d3d3 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Articulos - - - - - - - Textbox2 - - - - White - - 1pt - - - LightGrey - - 1pt - - - White - - 1pt - - #d3d3d3 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Exist. Inicial - - - - - - - Textbox4 - - - - White - - 1pt - - - White - - 1pt - - - White - - 1pt - - - White - - 1pt - - #d3d3d3 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Entradas - - - - - - - Textbox7 - - - - White - - 1pt - - - White - - 1pt - - - White - - 1pt - - - White - - 1pt - - #d3d3d3 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Salidas - - - - - - - Textbox13 - - - - White - - 1pt - - - White - - 1pt - - - White - - 1pt - - - White - - 1pt - - #d3d3d3 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Exist. - - - - - - - - - Final - - - - - - - Textbox16 - - - - White - - 1pt - - - White - - 1pt - - - White - - 1pt - - - White - - 1pt - - #d3d3d3 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Saldo Inicial - - - - - - - Textbox19 - - - - White - - 1pt - - - White - - 1pt - - - White - - 1pt - - - White - - 1pt - - #d3d3d3 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Entradas - - - - - - - Textbox22 - - - - White - - 1pt - - - White - - 1pt - - - White - - 1pt - - - White - - 1pt - - #d3d3d3 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Salidas - - - - - - - Textbox25 - - - - White - - 1pt - - - White - - 1pt - - - White - - 1pt - - - White - - 1pt - - #d3d3d3 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Saldo Final - - - - - - - Textbox28 - - - - White - - 1pt - - - White - - 1pt - - - White - - 1pt - - - LightGrey - - 1pt - - #d3d3d3 - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.40421cm - - - - - true - - - - - =Fields!Codigo.Value - - - - - - - LightGrey - - - - LightGrey - - - =Iif(Fields!CvePS.Value=-1, "#67809F","White") - 2pt - 2pt - 1pt - - - - - - - - true - - - - - =Fields!PS.Value - - - - - - - LightGrey - - - - LightGrey - - - =Iif(Fields!CvePS.Value=-1, "#67809F","White") - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =IIF(Fields!SaldoIniCant.Value = "0", "-", Fields!SaldoIniCant.Value) - - - - - - - SaldoInitCant - - - - LightGrey - - - - LightGrey - - - =Iif(Fields!CvePS.Value=-1, "#67809F","White") - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =IIF(Fields!EntradaCant.Value = "0", "-", Fields!EntradaCant.Value) - - - - - - - EntradaCant - - - - LightGrey - - - - LightGrey - - - =Iif(Fields!CvePS.Value=-1, "#67809F","White") - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =IIF(Fields!SalidaCant.Value = "0", "-", Fields!SalidaCant.Value) - - - - - - - SalidaCant - - - - LightGrey - - - - LightGrey - - - =Iif(Fields!CvePS.Value=-1, "#67809F","White") - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =IIF(Fields!SaldoFCant.Value = "0", "-", Fields!SaldoFCant.Value) - - - - - - - SaldoFCant - - - - LightGrey - - - - LightGrey - - - =Iif(Fields!CvePS.Value=-1, "#67809F","White") - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =IIF(Fields!SaldoIniImp.Value = "0", "-", Fields!SaldoIniImp.Value) - - - - - - - SaldoIniImp - - - - LightGrey - - - - LightGrey - - - =Iif(Fields!CvePS.Value=-1, "#67809F","White") - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =IIF(Fields!EntradaImp.Value = "0", "-", Fields!EntradaImp.Value) - - - - - - - EntradaImp - - - - LightGrey - - - - LightGrey - - - =Iif(Fields!CvePS.Value=-1, "#67809F","White") - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =IIF(Fields!SalidaImp.Value = "0", "-", Fields!SalidaImp.Value) - - - - - - - SalidaImp - - - - LightGrey - - - - LightGrey - - - =Iif(Fields!CvePS.Value=-1, "#67809F","White") - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =IIF(Fields!SaldoFImp.Value = "0", "-", Fields!SaldoFImp.Value) - - - - - - - SaldoFImp - - - - LightGrey - - - - LightGrey - - - =Iif(Fields!CvePS.Value=-1, "#67809F","White") - 2pt - 2pt - 1pt - - - - - - - - 0.6cm - - - - - true - true - - - - - - - - - - - =Iif(Fields!CvePS.Value=-1, "LightGrey","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - =Iif(Fields!CvePS.Value=-1, "LightGrey","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Fields!SaldoInitCant.Value, "DataSet1") - - - - - - =Iif(Fields!CvePS.Value=-1, "LightGrey","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Fields!EntradaCant.Value, "DataSet1") - - - - - - =Iif(Fields!CvePS.Value=-1, "LightGrey","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Fields!SalidaCant.Value, "DataSet1") - - - - - - =Iif(Fields!CvePS.Value=-1, "LightGrey","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Fields!SaldoFCant.Value, "DataSet1") - - - - - - =Iif(Fields!CvePS.Value=-1, "LightGrey","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Fields!SaldoIniImp.Value, "DataSet1") - - - - - - =Iif(Fields!CvePS.Value=-1, "LightGrey","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Fields!EntradaImp.Value, "DataSet1") - - - - - - =Iif(Fields!CvePS.Value=-1, "LightGrey","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Fields!SalidaImp.Value, "DataSet1") - - - - - - =Iif(Fields!CvePS.Value=-1, "LightGrey","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Fields!SaldoFImp.Value, "DataSet1") - - - - - - =Iif(Fields!CvePS.Value=-1, "LightGrey","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - - - - After - true - true - - - After - true - true - - - - - - - true - - Before - - - - DataSet1 - 0.20849cm - 0.00415cm - 2.52171cm - 20.90254cm - - - - - - 1.16692in - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - REPORTE DE ENTRADAS Y SALIDAS - - - - - - - - - - - - - - - - Textbox2 - 1.13799cm - 4.68157cm - 0.52945cm - 9.98771cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - External - = Parameters!pImg.Value - FitProportional - 0.01325cm - 2.22362cm - 2.33715cm - 2 - - - - - - true - true - - - - - =Parameters!AgrupadoPor.Value - HTML - - - 2pt - 2pt - 2pt - 2pt - - - - 4.4023cm - 0.01325cm - 0cm - 20.90669cm - 4 - - - - - - - - - - - 0.727cm - true - true - - - true - true - - - - - ="Página: " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox3 - 0.28575cm - 15.06595cm - 0.44125cm - 5.51625cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Usuario: - - - - - - - Textbox8 - 0.28575cm - 0.6059cm - 0.44125cm - 1.60042cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UsuarioImprimio.Value - - - - - - - Textbox9 - 0.28575cm - 2.15023cm - 0.44125cm - 5.14936cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - - Textbox10 - 0.28575cm - 7.47001cm - 0.44125cm - 2.92333cm - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - = Format(Now(),"dd-MM-yyyy HH:mm tt") - - - - - - - Textbox11 - 0.28575cm - 10.37923cm - 0.44125cm - 4.32745cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - 0.127cm - 0cm - 0cm - 20.90669cm - 5 - - - - - - - - - - 27.94cm - 21.59cm - 0.5cm - 0cm - 0.5cm - 1cm - 0.13cm - + + + + + + Textbox14 + + + + White + + 1pt + + + LightGrey + + 1pt + + + White + + 1pt + + #d3d3d3 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox9 + + + + White + + 1pt + + + LightGrey + + 1pt + + + White + + 1pt + + #d3d3d3 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cantidad + + + + + + + Textbox10 + + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + #d3d3d3 + 2pt + 2pt + 2pt + 2pt + + + 4 + + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox18 + + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + + LightGrey + + 1pt + + #d3d3d3 + 2pt + 2pt + 2pt + 2pt + + + 4 + + + + + + + + + 0.9175cm + + + + + true + true + + + + + Código + + + + + + + Textbox15 + + + + White + + 1pt + + + LightGrey + + 1pt + + + White + + 1pt + + #d3d3d3 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Articulos + + + + + + + Textbox2 + + + + White + + 1pt + + + LightGrey + + 1pt + + + White + + 1pt + + #d3d3d3 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Exist. Inicial + + + + + + + Textbox4 + + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + #d3d3d3 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Entradas + + + + + + + Textbox7 + + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + #d3d3d3 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Salidas + + + + + + + Textbox13 + + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + #d3d3d3 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Exist. + + + + + + + + + Final + + + + + + + Textbox16 + + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + #d3d3d3 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldo Inicial + + + + + + + Textbox19 + + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + #d3d3d3 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Entradas + + + + + + + Textbox22 + + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + #d3d3d3 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Salidas + + + + + + + Textbox25 + + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + #d3d3d3 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldo Final + + + + + + + Textbox28 + + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + + LightGrey + + 1pt + + #d3d3d3 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.40421cm + + + + + true + + + + + =Fields!Codigo.Value + + + + + + + LightGrey + + + + LightGrey + + + =Iif(Fields!CvePS.Value=-1, "#67809F","White") + 2pt + 2pt + 1pt + + + + + + + + true + + + + + =Fields!PS.Value + + + + + + + LightGrey + + + + LightGrey + + + =Iif(Fields!CvePS.Value=-1, "#67809F","White") + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =IIF(Fields!SaldoIniCant.Value = "0", "-", Fields!SaldoIniCant.Value) + + + + + + + SaldoInitCant + + + + LightGrey + + + + LightGrey + + + =Iif(Fields!CvePS.Value=-1, "#67809F","White") + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =IIF(Fields!EntradaCant.Value = "0", "-", Fields!EntradaCant.Value) + + + + + + + EntradaCant + + + + LightGrey + + + + LightGrey + + + =Iif(Fields!CvePS.Value=-1, "#67809F","White") + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =IIF(Fields!SalidaCant.Value = "0", "-", Fields!SalidaCant.Value) + + + + + + + SalidaCant + + + + LightGrey + + + + LightGrey + + + =Iif(Fields!CvePS.Value=-1, "#67809F","White") + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =IIF(Fields!SaldoFCant.Value = "0", "-", Fields!SaldoFCant.Value) + + + + + + + SaldoFCant + + + + LightGrey + + + + LightGrey + + + =Iif(Fields!CvePS.Value=-1, "#67809F","White") + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =IIF(Fields!SaldoIniImp.Value = "0", "-", Fields!SaldoIniImp.Value) + + + + + + + SaldoIniImp + + + + LightGrey + + + + LightGrey + + + =Iif(Fields!CvePS.Value=-1, "#67809F","White") + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =IIF(Fields!EntradaImp.Value = "0", "-", Fields!EntradaImp.Value) + + + + + + + EntradaImp + + + + LightGrey + + + + LightGrey + + + =Iif(Fields!CvePS.Value=-1, "#67809F","White") + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =IIF(Fields!SalidaImp.Value = "0", "-", Fields!SalidaImp.Value) + + + + + + + SalidaImp + + + + LightGrey + + + + LightGrey + + + =Iif(Fields!CvePS.Value=-1, "#67809F","White") + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =IIF(Fields!SaldoFImp.Value = "0", "-", Fields!SaldoFImp.Value) + + + + + + + SaldoFImp + + + + LightGrey + + + + LightGrey + + + =Iif(Fields!CvePS.Value=-1, "#67809F","White") + 2pt + 2pt + 1pt + + + + + + + + 0.6cm + + + + + true + true + + + + + + + + + + + =Iif(Fields!CvePS.Value=-1, "LightGrey","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + =Iif(Fields!CvePS.Value=-1, "LightGrey","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!SaldoInitCant.Value, "DataSet1") + + + + + + =Iif(Fields!CvePS.Value=-1, "LightGrey","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!EntradaCant.Value, "DataSet1") + + + + + + =Iif(Fields!CvePS.Value=-1, "LightGrey","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!SalidaCant.Value, "DataSet1") + + + + + + =Iif(Fields!CvePS.Value=-1, "LightGrey","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!SaldoFCant.Value, "DataSet1") + + + + + + =Iif(Fields!CvePS.Value=-1, "LightGrey","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!SaldoIniImp.Value, "DataSet1") + + + + + + =Iif(Fields!CvePS.Value=-1, "LightGrey","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!EntradaImp.Value, "DataSet1") + + + + + + =Iif(Fields!CvePS.Value=-1, "LightGrey","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!SalidaImp.Value, "DataSet1") + + + + + + =Iif(Fields!CvePS.Value=-1, "LightGrey","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!SaldoFImp.Value, "DataSet1") + + + + + + =Iif(Fields!CvePS.Value=-1, "LightGrey","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + After + true + true + + + After + true + true + + + + + + + true + + Before + + + + DataSet1 + 0.20849cm + 0.00415cm + 2.52171cm + 20.90254cm + + + + + + 1.16692in + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE DE ENTRADAS Y SALIDAS + + + + + + + + + + + + + + + + Textbox2 + 1.13799cm + 4.68157cm + 0.52945cm + 9.98771cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + = Parameters!pImg.Value + FitProportional + 0.01325cm + 2.22362cm + 2.33715cm + 2 + + + + + + true + true + + + + + =Parameters!AgrupadoPor.Value + HTML + + + 2pt + 2pt + 2pt + 2pt + + + + 4.4023cm + 0.01325cm + 0cm + 20.90669cm + 4 + + + + + + + + + + + 0.727cm + true + true + + + true + true + + + + + ="Página: " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.28575cm + 15.06595cm + 0.44125cm + 5.51625cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + + Textbox8 + 0.28575cm + 0.6059cm + 0.44125cm + 1.60042cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + + Textbox9 + 0.28575cm + 2.15023cm + 0.44125cm + 5.14936cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + Textbox10 + 0.28575cm + 7.47001cm + 0.44125cm + 2.92333cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + = Format(Now(),"dd-MM-yyyy HH:mm tt") + + + + + + + Textbox11 + 0.28575cm + 10.37923cm + 0.44125cm + 4.32745cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + 0.127cm + 0cm + 20.90669cm + 5 + + + + + + + + + + 27.94cm + 21.59cm + 0.5cm + 0cm + 0.5cm + 1cm + 0.13cm + - - - - - - Textbox12 - - - - Black - - 1pt - - - Black - - 1pt - - White - 2pt - 2pt - 2pt - 2pt - - - - @@ -314,7 +266,7 @@ =Fields!Cantidad.Value @@ -347,7 +299,7 @@ =Fields!Codigo.Value @@ -379,7 +331,7 @@ =Fields!PS.Value @@ -409,7 +361,7 @@ =Fields!SerieLote.Value @@ -439,7 +391,7 @@ =Fields!Lote.Value @@ -458,36 +410,6 @@ - - - - true - true - - - - - =Fields!Batch.Value - - - - - - 2pt - 2pt - =IIf(RowNumber(Nothing)=1,"1pt","0pt") - - - - @@ -503,11 +425,6 @@ =IIF(String.IsNullOrEmpty(Fields!Lote.Value), True,False) - - - =IIF(String.IsNullOrEmpty(Fields!Batch.Value), True,False) - - @@ -524,7 +441,7 @@ 0.17639cm 0.22456cm 1.11096cm - 17.50518cm + 20.39971cm @@ -567,7 +484,7 @@ 0.82291in @@ -937,9 +857,9 @@ Textbox32 3.09701cm - 14.14cm + 14.4575cm 0.59999cm - 3.65324cm + 5.9022cm 11 - - - - - 2pt - 2pt - 2pt - 2pt - - - - 0.84237cm - 0.20849cm - 0cm - 27.38607cm - 1 - - - - - - - - - 5.86021cm - - - 1.40551cm - - - 1.83854cm - - - 9.56026cm - - - 2.34042cm - - - 2.91042cm - - - 1.70625cm - - - 1.89146cm - - - - - 0.6cm - - - - - true - true - - - - - Nombre Completo - - - - - - - Textbox4 - - - - Silver - - - Silver - - - Silver - - - Silver - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Folio - - - - - - - Textbox15 - - - - Silver - - - Silver - - - Silver - - - Silver - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Fecha - - - - - - - Textbox17 - - - - Silver - - - Silver - - - Silver - - - Silver - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Descripción - - - - - - - Textbox3 - - - - Silver - - - Silver - - - Silver - - - Silver - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Sucursal - - - - - - - Textbox5 - - - - Silver - - - Silver - - - Silver - - - Silver - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Departamento - - - - - - - Textbox13 - - - - Silver - - - Silver - - - Silver - - - Silver - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Cantidad - - - - - - - Textbox14 - - - - Silver - - - Silver - - - Silver - - - Silver - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Total - - - - - - - Textbox18 - - - - Silver - - - Silver - - - Silver - - - Silver - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - =Fields!NombreCompleto.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Folio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!FechaMovto.Value - - - - - - - FechaMovto - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!CodigoPS.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SubProyecto.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Departamento.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Surtir - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Precio.Value - - - - - - - Precio - - - 2pt - 2pt - 2pt - 2pt - - - true - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DataSet1 - 1.10695cm - 0.08149cm - 1.2cm - 27.51307cm - 2 - - - - - - 0.94992in - - - - - - - Textbox1 - 0.18521cm - 6.07218cm - 0.6cm - 14.02238cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - REPORTE UNIFORMES - - - - - - - - - - - - - - - - Textbox2 - 1.10271cm - 6.07218cm - 0.52945cm - 14.02238cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!LogoPath.Value - FitProportional - 0.06614cm - 2.22362cm - 2.33715cm - 2 - - - - - - - - - - - 0.76376cm - true - true - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox3 - 0.08291cm - 25.20741cm - 0.68085cm - 2.09233cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Usuario: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FechaImpresion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 21cm - 29.7cm - 1cm - 1cm - 0.25cm - 0.25cm - 0.13cm - + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.84237cm + 0.20849cm + 0cm + 27.38607cm + 1 + + + + + + + + + 5.86021cm + + + 1.40551cm + + + 1.83854cm + + + 9.56026cm + + + 2.34042cm + + + 2.91042cm + + + 1.70625cm + + + 1.89146cm + + + + + 0.6cm + + + + + true + true + + + + + Nombre Completo + + + + + + + Textbox4 + + + + Silver + + + Silver + + + Silver + + + Silver + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Folio + + + + + + + Textbox15 + + + + Silver + + + Silver + + + Silver + + + Silver + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox17 + + + + Silver + + + Silver + + + Silver + + + Silver + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descripción + + + + + + + Textbox3 + + + + Silver + + + Silver + + + Silver + + + Silver + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Sucursal + + + + + + + Textbox5 + + + + Silver + + + Silver + + + Silver + + + Silver + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Departamento + + + + + + + Textbox13 + + + + Silver + + + Silver + + + Silver + + + Silver + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cantidad + + + + + + + Textbox14 + + + + Silver + + + Silver + + + Silver + + + Silver + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Total + + + + + + + Textbox18 + + + + Silver + + + Silver + + + Silver + + + Silver + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!NombreCompleto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Folio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FechaMovto.Value + + + + + + + FechaMovto + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!CodigoPS.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SubProyecto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Departamento.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Surtir + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Precio.Value + + + + + + + Precio + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 1.10695cm + 0.08149cm + 1.2cm + 27.51307cm + 2 + + + + + + 0.94992in + + + + + + + Textbox1 + 0.18521cm + 6.07218cm + 0.6cm + 14.02238cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE RESGUARDO UNIFORMES + + + + + + + + + + + + + + + + Textbox2 + 1.10271cm + 6.07218cm + 0.52945cm + 14.02238cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.76376cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 25.20741cm + 0.68085cm + 2.09233cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 21cm + 29.7cm + 1cm + 1cm + 0.25cm + 0.25cm + 0.13cm + - Reporte de Compras / Notas Sin Entrada + Reporte de Compras Sin Entrada-Ventas Sin Salida From 6321a170631e18606df028cbbe8e6259ba95c1a0 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 11 Aug 2020 17:55:49 -0700 Subject: [PATCH 11/30] - cambio en grid vacio --- Inventarios/CatAlmacenClasificacionSecciones.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/CatAlmacenClasificacionSecciones.aspx b/Inventarios/CatAlmacenClasificacionSecciones.aspx index 20e77d5e7..f321f1242 100644 --- a/Inventarios/CatAlmacenClasificacionSecciones.aspx +++ b/Inventarios/CatAlmacenClasificacionSecciones.aspx @@ -24,7 +24,7 @@ From bcc75f24c6c07d2fff08c60eac33899279048a25 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 11 Aug 2020 17:56:16 -0700 Subject: [PATCH 12/30] -- que tome el globaldtcleintes, los inactivos tambien, al editar --- Inventarios/EntradasSalidas.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index af0790b36..bce30ff42 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -779,7 +779,7 @@ Partial Class Inventarios_EntradasSalidas 'Carga Cliente y ClienteSucursal If Mov.CveCliente > 0 Then If DdlClientes.Items.FindByValue(Mov.CveCliente.ToString()) Is Nothing Then - Dim dr As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=Mov.CveCliente).FiltroPrimero("") + Dim dr As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=Mov.CveCliente, Estatus:=-1).FiltroPrimero("") If dr IsNot Nothing Then DdlClientes.Items.Insert(0, New ListItem(dr("NombreComercial").ToString, dr("CveCliente").ToString)) End If From 2b1a31b0b4fe338e9cdbc1cccb716ba1749092b7 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 11 Aug 2020 17:56:43 -0700 Subject: [PATCH 13/30] -- que la cancelacion sea sobre el timbre, y que no genere 1 peso --- Bancos/RepComplementoPago.aspx.vb | 63 +++++++++++++++++++++++++++---- 1 file changed, 56 insertions(+), 7 deletions(-) diff --git a/Bancos/RepComplementoPago.aspx.vb b/Bancos/RepComplementoPago.aspx.vb index 287bbdbdb..bcfde9140 100644 --- a/Bancos/RepComplementoPago.aspx.vb +++ b/Bancos/RepComplementoPago.aspx.vb @@ -300,23 +300,72 @@ Partial Class Bancos_RepComplementoPago Dim CveIE As Integer = Gvr.DataKey("CveIE").ToEntero Dim SerieFolioPago As String = Gvr.DataKey("SerieFolioPago").ToString - Dim CFDIRelacionado As String = Gvr.DataKey("FolioFiscalComplemento").ToString + Dim FolioFiscalCancelar As String = Gvr.DataKey("FolioFiscalComplemento").ToString + Dim CveComplementoPagoCancelar As Integer = Gvr.DataKey("CveComplementoPago").ToEntero + Dim CvePACCancelacion As Integer = UsuarioActual.Empresa.CvePAC + Dim RFCReceptorCancelar As String = Gvr.DataKey("RFC").ToString - If CFDIRelacionado <> "" Then - Dim objBancos As New ClsBancos + If FolioFiscalCancelar <> "" Then + Dim ObjCancelacion As New Timbrado + Dim ObjBanco As New ClsBancos + + If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then + + If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then + + Alert("El complemento se cancelo correctamente.") + End If - If objBancos.GeneraTimbrePago(CveIE, -1, UsuarioActual, -1, CFDIRelacionado, True) Then - Alert($"Complemento {SerieFolioPago} cancelado correctamente.") Else - Alert($"Se presento un error al cancelar el complementob {SerieFolioPago}.", TipoMensaje.MsgError) + + If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion) Then + + If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse) Then + + Alert("El complemento se cancelo correctamente.") + End If + Else + Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgError) + End If + End If - objBancos.Dispose() + ObjBanco.Dispose() + + 'Dim objBancos As New ClsBancos + + 'If objBancos.GeneraTimbrePago(CveIE, -1, UsuarioActual, -1, CFDIRelacionado, True) Then + ' Alert($"Complemento {SerieFolioPago} cancelado correctamente.") + 'Else + ' Alert($"Se presento un error al cancelar el complementob {SerieFolioPago}.", TipoMensaje.MsgError) + 'End If + + 'objBancos.Dispose() End If End Sub + Function EstatusSATCancelado(FolioFiscal As String, RFCDe As String, RFCReceptor As String) As Boolean + + Dim respuesta As Boolean = False + + Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, RFCDe, RFCReceptor, "0", True) + + If Vigencia IsNot Nothing Then + If Vigencia.Estado.ToUpper = "CANCELADO" Then + respuesta = True + Else + respuesta = False + End If + Else + respuesta = False + End If + + Return respuesta + End Function + + Protected Sub LnkSendMail_Click(sender As Object, e As EventArgs) Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) HdnSerieFolioPago.Value = gvRow.DataKey("SerieFolioPago").ToString From 4a386095834150ddd2fd42ed30b02f39b3ece8d3 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 11 Aug 2020 17:57:07 -0700 Subject: [PATCH 14/30] - se quito cancelacion a 1 peso --- App_Code/ClsBancos.vb | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 93abdad57..b9f29edb9 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -943,7 +943,7 @@ Public Class ClsBancos #Region "Complemento Pagos" - Public Function GeneraTimbrePago(CveIE As Integer, CveVenta As Integer, UsuarioActual As Usuario, Optional CveCliente As Integer = -1, Optional CFDIRelacionado As String = "-1", Optional EsCancelacion As Boolean = False, Optional EsRegeneracion As Boolean = False, Optional CvePrePoliza As Integer = -1, Optional FechaTimbrado As DateTime = MinFecha) As Boolean + Public Function GeneraTimbrePago(CveIE As Integer, CveVenta As Integer, UsuarioActual As Usuario, Optional CveCliente As Integer = -1, Optional CFDIRelacionado As String = "-1", Optional EsRegeneracion As Boolean = False, Optional CvePrePoliza As Integer = -1, Optional FechaTimbrado As DateTime = MinFecha) As Boolean If FechaTimbrado = MinFecha Then FechaTimbrado = DateTime.Now Dim Serie As String = "Pag" @@ -954,11 +954,11 @@ Public Class ClsBancos Dim dttpagos As DataTable = Nothing Dim dr As Data.DataRow = Nothing - If GetComplementoPagosRep(-1, Now.AddYears(-2), Now, If(CvePrePoliza > 0, -1, CveIE), CveVenta, If(EsCancelacion OrElse EsRegeneracion, 2, 1), UsuarioActual.CveEmpresa, CvePrePoliza:=CvePrePoliza) Then + If GetComplementoPagosRep(-1, Now.AddYears(-2), Now, If(CvePrePoliza > 0, -1, CveIE), CveVenta, If(EsRegeneracion, 2, 1), UsuarioActual.CveEmpresa, CvePrePoliza:=CvePrePoliza) Then dr = DtResultados.FiltroPrimero("CveVenta IS NULL") dttpagos = DtResultados.FiltraParametros("CveVenta > 0") End If - If EsCancelacion Then Estatus = 2 + 'If EsCancelacion Then Estatus = 2 If EsRegeneracion Then Estatus = 3 @@ -1044,9 +1044,9 @@ Public Class ClsBancos End Select - If EsCancelacion AndAlso (CFDIRelacionado = "-1" OrElse CFDIRelacionado = "") Then - Mensaje += " La cancelación debe de tener documento relacionado" - End If + 'If EsCancelacion AndAlso (CFDIRelacionado = "-1" OrElse CFDIRelacionado = "") Then + ' Mensaje += " La cancelación debe de tener documento relacionado" + 'End If If Not Mensaje.Length = 0 Then GuardaLog(Mensaje) @@ -1061,7 +1061,7 @@ Public Class ClsBancos Timbre = Timbrado.PreparaTimbrePago(RFCEmpresa, UsuarioActual.Empresa.Empresa, UsuarioActual.Empresa.CodigoRegimenFiscal, RFCCliente, dr("NombreCliente").ToString, Serie, Folio.ToString, FechaTimbrado, Cuentapago, dr("FechaDocumento").ToString.ToDate, dr("ClaveFormaPagoSAT").ToString, dr("AbreviaturaSAT").ToString, dr("VentasTotalPagado").ToString.ToDouble, - UsuarioActual.Empresa.CP.ToString, CuentaBeneficiario, dr("TipoCambioPago").ToString.ToDouble, dttpagos, CFDIRelacionado:=CFDIRelacionado, EsCancelacion:=EsCancelacion) + UsuarioActual.Empresa.CP.ToString, CuentaBeneficiario, dr("TipoCambioPago").ToString.ToDouble, dttpagos, CFDIRelacionado:=CFDIRelacionado, EsCancelacion:=False) ''PREPARA PARA CANCELACION POR SUSTITUCION DE COMPLEMENTO DE PAGO 'If CFDIRelacionado <> "-1" And CFDIRelacionado <> "" Then From c343bef7dc25fe383fd3aa3ab3a43e95acf28865 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 11 Aug 2020 17:57:35 -0700 Subject: [PATCH 15/30] - se agregan referncia a nuevos conceptos de prov y clientes, al mandar contabilizar --- App_Code/ClsContabilidad.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index c84577b78..5ce542163 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -1211,11 +1211,11 @@ Public Class ClsContabilidad CveConceptoContable = dr("CveConceptoContable").ToString().ToEntero Select Case CveConceptoContable - Case 6, 5, 17, 14, 19, 15, 16, 272, 275 + Case 6, 5, 17, 14, 19, 15, 16, 272, 275, 305, 306, 307, 308, 309, 310, 311, 312, 313, 314, 315, 316 SigReferencia = dr("CveCompra").ToString.ContaReferencia(TipoContaReferencia.Compra) - Case 2, 4, 1, 13, 61, 62, 63, 8, 9, 91, 251, 226 + Case 2, 4, 1, 13, 61, 62, 63, 8, 9, 91, 251, 226, 291, 292, 293, 294, 295, 296 SigReferencia = dr("CveVenta").ToString.ContaReferencia(TipoContaReferencia.Venta) - Case 30, 66, 92 + Case 30, 66, 92, 204 SigReferencia = dr("CveIE").ToString.ContaReferencia(TipoContaReferencia.Banco) End Select From cc714c2ea44877dd18af4e4d985f1490954204c7 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 11 Aug 2020 17:58:27 -0700 Subject: [PATCH 16/30] -- que tome la cuenta de proveedor o acredor, segun el tipo de factura --- Compras/Compras.aspx.vb | 46 +++++++++++------------------------------ 1 file changed, 12 insertions(+), 34 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 5d65c848e..9db681e2b 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -5714,7 +5714,7 @@ Partial Class Compras_Compras importeMovimiento = importeMovimiento / TipoCambioCompra End If importeMN = importeMovimiento * TipoCambioCompra * Multiplicador - IdCtaContable = CtaProveedor + IdCtaContable = If(CveTipoConcepto = 2, CtaProveedorAcreedores, CtaProveedor) CveCuenta = CveCuentaProveedor @@ -5755,11 +5755,7 @@ Partial Class Compras_Compras CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString) idCuentaContabilizacion = 0 End If - 'Conta SIG - If CveCuenta = 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString) - CveCuentaContabilizacion = 0 - End If + End If Next @@ -6371,11 +6367,7 @@ Partial Class Compras_Compras CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 49))("ConceptoContable").ToString) idCuentaContabilizacion = 0 End If - 'Conta SIG - If CveCuenta = 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 49))("ConceptoContable").ToString) - CveCuentaContabilizacion = 0 - End If + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Row2("CodAF").ToString, 49, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveActivoFijo:=Row2("CveActivoFijo").ToString.ToEntero, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If @@ -6817,7 +6809,7 @@ Partial Class Compras_Compras If CveTipoConcepto = 2 Then CveConceptoContableComplementaria = 307 If tipoCambioActual = 1 Then - IdCtaContable = CtaProveedor + IdCtaContable = If(CveTipoConcepto = 2, CtaProveedorAcreedores, CtaProveedor) CveCuenta = CveCuentaProveedor Else IdCtaContable = CtaProveedorComplementaria @@ -6860,11 +6852,6 @@ Partial Class Compras_Compras CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) idCuentaContabilizacion = 0 End If - 'Conta SIG - If CveCuenta = 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) - CveCuentaContabilizacion = 0 - End If If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True @@ -7120,11 +7107,6 @@ Partial Class Compras_Compras CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) idCuentaContabilizacion = 0 End If - 'Conta SIG - If CveCuenta = 0 Then - CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) - idCuentaContabilizacion = 0 - End If 'AMORTIZACIÓN NC ESPECIAL COMPLEMENTARIA If ConceptoContableAnticipo.Contiene(60) And DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then @@ -7457,11 +7439,7 @@ Partial Class Compras_Compras CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) idCuentaContabilizacion = 0 End If - 'COnta SIG - If CveCuenta = 0 Then - CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) - CveCuentaContabilizacion = 0 - End If + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=Math.Round(importeMN, 2, MidpointRounding.AwayFromZero), ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True @@ -16874,14 +16852,8 @@ Partial Class Compras_Compras 'VALIDA IMPORTES 'VALIDA TOTAL CON LOS IMPORTES TOTALES Dim TempSubTotal, TempDescuentos, TempIVA, TempSubTotal2, TempRetIVA, TempRetISR, TempTotal, DifTotales, TempIEPS As Double - 'Dim TempPorcentajeRetIVA = LblRetIVA.Text.ToDouble / 100 - 'Dim TempPorcentajeRetISR = LblRetISR.Text.ToDouble / 100 - Dim Amortizacion As Decimal = 0 - If UsuarioActual.CveEmpresa = 119 Then - Amortizacion = LblAmortizacion.Text.Trim.ToDecimal - TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + Amortizacion).ToString - End If + Dim Amortizacion As Decimal = 0 Dim TieneAmortizacion As Boolean = False If ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 Then TieneAmortizacion = True @@ -16891,6 +16863,12 @@ Partial Class Compras_Compras LblAmortizacion.Text = "0.00" End If + If UsuarioActual.CveEmpresa = 119 AndAlso TieneAmortizacion Then + Amortizacion = LblAmortizacion.Text.Trim.ToDecimal + TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + Amortizacion).ToString + End If + + TempSubTotal = TxtSubTotal.Text.ToDouble SubTotalOriginal = TxtSubTotal.Text.ToDouble SubTotal2Original = TxtSubTotal2.Text.ToDouble From 18a463360ce0b06a6f4a0324274385a361032c5b Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 11 Aug 2020 17:59:41 -0700 Subject: [PATCH 17/30] -- al cancelar una venta en dolares, que tome la cuenta correspondiente --- App_Code/Modelos.vb | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index ad137e7d5..b29e7d852 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -2197,6 +2197,7 @@ Namespace Modelos Dim ImporteAcumulado91 As Decimal = 0 Dim CveUltimaVenta As Integer = 0 If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" + IdCtaContable = 0 If tipoCambio = 1 Then IdCtaContable = ObjFactura.Cliente.IdCtaContClientes CveCuenta = ObjFactura.Cliente.CveCuentaClientes @@ -2600,8 +2601,12 @@ Namespace Modelos 'CTACONTABLE 'IdCtaContable = IdCtaContAnticipos 'CveCuenta = CveCuentaAnticipos - IdCtaContable = ObjFactura.Cliente.IdCtaContClientes - CveCuenta = ObjFactura.Cliente.CveCuentaClientes + + If tipoCambio = 1 Then + IdCtaContable = ObjFactura.Cliente.IdCtaContClientes + Else + IdCtaContable = ObjFactura.Cliente.IdCtaContMonedaExtranjera + End If CveSubProyectoContabilizar = CveSubProyectoVenta From e7568ba37593734f8849a906e60b28bc85178970 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 11 Aug 2020 18:46:49 -0700 Subject: [PATCH 18/30] - --- App_Code/ClsAF.vb | 67 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 67 insertions(+) diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb index ee7e27b43..a865065a6 100644 --- a/App_Code/ClsAF.vb +++ b/App_Code/ClsAF.vb @@ -3241,6 +3241,73 @@ Public Class ClsAF Return Retorno End Function #End Region +#Region "M E T R I C A S" + Public Function GetMetricas(CveMetrica As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_MetricasGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las metricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetMetricasValores(Optional CveMetricaValor As Integer = -1, Optional CveAF As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveUsuario As Integer = -1, + Optional CveSubProyecto As Integer = -1, Optional Fecha As String = "1900-01-01", Optional FechaIng As String = "1900-01-01") As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_MetricasValoresGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor + .Add("@CveAF", SqlDbType.Int).Value = CveAF + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@Fecha", SqlDbType.DateTime).Value = Fecha + .Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los valores demetricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetMetricasValoresDetalle(Optional CveMetricaValor As Integer = -1, Optional CveMetrica As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_MetricasValoresDetalleGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor + .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los valores demetricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + +#End Region #Region " IDisposable Support " From 7baf930b95c902db85b27a129c27d4db7f301d1c Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 12 Aug 2020 10:07:09 -0700 Subject: [PATCH 19/30] se agrego la carga del centro de costo --- Contratos/PopUpBuscarContrato.aspx | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Contratos/PopUpBuscarContrato.aspx b/Contratos/PopUpBuscarContrato.aspx index c0311468f..c77389ac3 100644 --- a/Contratos/PopUpBuscarContrato.aspx +++ b/Contratos/PopUpBuscarContrato.aspx @@ -70,11 +70,11 @@ - + - + From 9e45ca63a30bd8c2b465d696e3939adb3149f378 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 12 Aug 2020 11:03:49 -0700 Subject: [PATCH 20/30] - --- App_Code/ClsAF.vb | 131 ++++++++++++++++++++++++++++++++++++++++++++-- 1 file changed, 128 insertions(+), 3 deletions(-) diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb index a865065a6..410a4db11 100644 --- a/App_Code/ClsAF.vb +++ b/App_Code/ClsAF.vb @@ -3255,7 +3255,45 @@ Public Class ClsAF SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception - OnError("Ocurrió un error al obtener las metricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + OnError("Ocurrió un error al obtener las métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function AddMetricas(Metrica As String) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_MetricasAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Metrica", SqlDbType.Int).Value = Metrica + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar la métrica de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function DeleteMetricas(CveMetrica As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_MetricasRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar la métrica de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno @@ -3281,7 +3319,52 @@ Public Class ClsAF SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception - OnError("Ocurrió un error al obtener los valores demetricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + OnError("Ocurrió un error al obtener los valores de métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function AddMetricasValores(Optional CveAF As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveUsuario As Integer = -1, + Optional CveSubProyecto As Integer = -1, Optional Fecha As String = "1900-01-01", Optional FechaIng As String = "1900-01-01") As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_MetricasValoresAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveAF", SqlDbType.Int).Value = CveAF + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@Fecha", SqlDbType.DateTime).Value = Fecha + .Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el valor de métrica de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function RemoveMetricasValores(CveMetricaValor As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_MetricasValoresRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el valor de métrica de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno @@ -3301,7 +3384,49 @@ Public Class ClsAF SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception - OnError("Ocurrió un error al obtener los valores demetricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + OnError("Ocurrió un error al obtener los valores de métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function AddMetricasValoresDetalle(Optional CveMetricaValor As Integer = -1, Optional CveMetrica As Integer = -1, Optional Valor As String = "-1") As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_MetricasValoresDetalleAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor + .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica + .Add("@Valor", SqlDbType.NVarChar).Value = Valor + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el detalle de los valores de métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function DeleteMetricasValoresDetalle(Optional CveMetricaValor As Integer = -1, Optional CveMetrica As Integer = -1, Optional Valor As String = "-1") As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_MetricasValoresDetalleAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor + .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica + .Add("@Valor", SqlDbType.NVarChar).Value = Valor + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el detalle de los valores de métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno From 5a2c039883f8afd0f0b581a65d085e89751eaef8 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Wed, 12 Aug 2020 13:11:12 -0700 Subject: [PATCH 21/30] --- Global.asax | 16 +++++++++++++++- LogIn.aspx.vb | 2 +- RH/Personal.aspx | 4 ++-- RH/RepUniformesResguardo.aspx | 2 +- vwd.webinfo | 2 ++ 5 files changed, 21 insertions(+), 5 deletions(-) diff --git a/Global.asax b/Global.asax index 53d481a72..ed1954d2f 100644 --- a/Global.asax +++ b/Global.asax @@ -19,7 +19,7 @@ End Get End Property Private Sub GuardaLogAsax(str As String) - 'GuardaLog(str) + GuardaLog(str) End Sub Sub Application_Start(sender As Object, e As EventArgs) Stimulsoft.Base.StiLicense.Key = "6vJhGtLLLz2GNviWmUTrhSqnOItdDwjBylQzQcAOiHmhQEs54hwXWiqhb7jE6yoykR4jHwP3Mz0nuxn0JR9fNMeDKv" + "sS5s+rCYr7Ex4DRTHaUJIUDqrvGmvWyMjzUl9RAEz/XG8RenfJvoEilBZ9Wqq8Uu/n92YhChB4PbAh9FeH3abSU3PF" + "LuVa6GydYWQvZGpHhFs98Idp754TAgWZatzcF3Ksp6q4laYxnyUY0cA0hYejanRBjIT1Nu59xmlOKE7EGIb9wKlLn/" + "XnW8k8PUNuReOk7ATeHO07JSMLikmvIytkWET2bXDmBI43tAX3fLUE+KlOe7FR/hvfQ6oqqtVRlSZ22QBanel09+XE" + "X8aVC8b+WuRv1nInJeQHBD9zF8b67n4ouKRgv2/vSxopOhCZXdaqdyO4ct+FmSC8cAAcMIGeiKnc5ww8Cq44ClTqJl" + "V2qsCjoS4bb8Nzd2Gy+q/TG/D3dAEKSpPGUx2EEksora/kIkNooq6+bgyH7hqCG2bHKaSQwr2g0keNrYIUcTIwROn1" + "cnQDetzsBqX4lvu64VZWq5+cQD+dyPJwOS6M" @@ -276,19 +276,33 @@ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'SAT Using ObjGrales As New ClsGenerales + GuardaLogAsax(String.Format("Globalasax 18.01:{0}", DateTime.Now)) If ObjGrales.GetSATProductosServicios Then Application("GlobalDTPSATPS") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTPSATPS") = Nothing + GuardaLogAsax(String.Format("Globalasax 18.02:{0}", DateTime.Now)) If ObjGrales.GetSATUnidadMedida Then Application("GlobalDTPSATUM") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTPSATUM") = Nothing + GuardaLogAsax(String.Format("Globalasax 18.03:{0}", DateTime.Now)) If ObjGrales.GetSATUsosCFDI Then Application("GlobalDTSATUsosCFDI") = ObjGrales.DtResultados Else Application("GlobalDTSATUsosCFDI") = Nothing + GuardaLogAsax(String.Format("Globalasax 18.04:{0}", DateTime.Now)) If ObjGrales.GetSATFraccionArancelaria Then Application("GlobalDTFraccionArancelaria") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTFraccionArancelaria") = Nothing + GuardaLogAsax(String.Format("Globalasax 18.05:{0}", DateTime.Now)) If ObjGrales.GetSATIncoterm Then Application("GlobalDTIncoterm") = ObjGrales.DtResultados Else Application("GlobalDTIncoterm") = Nothing + GuardaLogAsax(String.Format("Globalasax 18.06:{0}", DateTime.Now)) If ObjGrales.GetSATTipoOperacion Then Application("GlobalDTTipoOperacion") = ObjGrales.DtResultados Else Application("GlobalDTTipoOperacion") = Nothing + GuardaLogAsax(String.Format("Globalasax 18.07:{0}", DateTime.Now)) If ObjGrales.GetSATMotivoTraslado Then Application("GlobalDTSATMotivoTraslado") = ObjGrales.DtResultados Else Application("GlobalDTSATMotivoTraslado") = Nothing + GuardaLogAsax(String.Format("Globalasax 18.08:{0}", DateTime.Now)) If ObjGrales.GetSATUnidadesAduana Then Application("GlobalDTUnidadAduana") = ObjGrales.DtResultados Else Application("GlobalDTUnidadAduana") = Nothing + GuardaLogAsax(String.Format("Globalasax 18.09:{0}", DateTime.Now)) If ObjGrales.GetSATClavePedimento Then Application("GlobalDTClavePedimento") = ObjGrales.DtResultados Else Application("GlobalDTClavePedimento") = Nothing + GuardaLogAsax(String.Format("Globalasax 18.10:{0}", DateTime.Now)) If ObjGrales.GetSATPais Then Application("GlobalDTPais") = ObjGrales.DtResultados Else Application("GlobalDTPais") = Nothing + GuardaLogAsax(String.Format("Globalasax 18.11:{0}", DateTime.Now)) If ObjGrales.GetSATEstado("-1") Then Application("GlobalDTEstado") = ObjGrales.DtResultados Else Application("GlobalDTEstado") = Nothing + GuardaLogAsax(String.Format("Globalasax 18.12:{0}", DateTime.Now)) If ObjGrales.GetSATMunicipio("-1") Then Application("GlobalDTMunicipio") = ObjGrales.DtResultados Else Application("GlobalDTMunicipio") = Nothing + GuardaLogAsax(String.Format("Globalasax 18.13:{0}", DateTime.Now)) If ObjGrales.GetSATColonia("-1") Then Application("GlobalDTColonia") = ObjGrales.DtResultados Else Application("GlobalDTColonia") = Nothing + GuardaLogAsax(String.Format("Globalasax 18.14:{0}", DateTime.Now)) End Using GuardaLogAsax(String.Format("Globalasax 19:{0}", DateTime.Now)) diff --git a/LogIn.aspx.vb b/LogIn.aspx.vb index 94f7e4907..01bba28d1 100644 --- a/LogIn.aspx.vb +++ b/LogIn.aspx.vb @@ -266,7 +266,7 @@ Partial Class LogIn userm.Nombre = Usuario.Nombre userm.Contraseña = Usuario.Contraseña userm.CvePerfil = Usuario.CveRol - userm.CveEmpresa = 119 'Usuario.CveEmpresa + userm.CveEmpresa = 1 'Usuario.CveEmpresa userm.CveUsuarioModifico = Usuario.CveEmpresa userm.CveUsuarioRegistro = Usuario.CveEmpresa RegistraScript(String.Format("opennewlocation('{0}','{1}')", ReturnUrl, GenerateJSONWebToken(userm))) diff --git a/RH/Personal.aspx b/RH/Personal.aspx index 16ff6e369..cfe26b005 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -766,7 +766,7 @@
- Uniforme: + Resguardos:
@@ -1288,7 +1288,7 @@ - +
diff --git a/RH/RepUniformesResguardo.aspx b/RH/RepUniformesResguardo.aspx index f972b443e..4052978cc 100644 --- a/RH/RepUniformesResguardo.aspx +++ b/RH/RepUniformesResguardo.aspx @@ -5,7 +5,7 @@ - Reporte de Uniformes + Resguardos del personal diff --git a/vwd.webinfo b/vwd.webinfo index 55467f44f..4edae1c8c 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -84,6 +84,8 @@ + + From f5a5debe7d8773f24e6bd31594547e129cef181a Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 12 Aug 2020 15:00:37 -0700 Subject: [PATCH 22/30] - --- Contratos/Contrato.aspx | 4 ++-- Contratos/Contrato.aspx.vb | 17 +++++++++-------- Empresas/Grales/Formatos/LibroDiario.rpt | Bin 245760 -> 245760 bytes 3 files changed, 11 insertions(+), 10 deletions(-) diff --git a/Contratos/Contrato.aspx b/Contratos/Contrato.aspx index e28415dcf..8483f7265 100644 --- a/Contratos/Contrato.aspx +++ b/Contratos/Contrato.aspx @@ -373,7 +373,7 @@
- + Proyecto:
@@ -383,7 +383,7 @@
- + diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index b124bd0a3..dce2ecdcf 100644 --- a/Contratos/Contrato.aspx.vb +++ b/Contratos/Contrato.aspx.vb @@ -1488,14 +1488,15 @@ Partial Class Contratos_Default #Region "COMBOS - INFO GENERAL" Private Sub CargaProyecto() - If UsuarioActual.Empresa.GralSoloProyecto Then - CargaSubProyectoContrato(-1) - trddlproyecto.Visible = False - lblsubproyecto.Text = "Proyecto" - Else - DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"}) - DdlProyecto.DataBind() - End If + CargarCentrosDeCosto(DdlProyecto, DdlSubProyectoContrato, LblProyecto, lblsubproyecto) + trddlproyecto.Visible = LblProyecto.Visible + 'If UsuarioActual.Empresa.GralSoloProyecto Then + ' CargaSubProyectoContrato(-1) + ' lblsubproyecto.Text = "Proyecto" + 'Else + ' DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"}) + ' DdlProyecto.DataBind() + 'End If End Sub Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged CargaSubProyectoContrato(DdlProyecto.SelectedValue.ToEntero) diff --git a/Empresas/Grales/Formatos/LibroDiario.rpt b/Empresas/Grales/Formatos/LibroDiario.rpt index e91fe1e651b76f7beffd4202b45254563e62f82e..87f844a972bf6a00b49aa99c88fbb3b119a11d5a 100644 GIT binary patch delta 8853 zcmV;GB5K`$fDeFx53mpde{^!&8l`epnGrRd7>xN!I{*I6Al6q~xX!c=t|bk~&IZVo zH29}a9cCrRHIG`iOo>JD?Tr6V^I!=Ryd@X@n(R0Dby zwAt>-Yrq1EUk#o{jNIqq`1+{^Y_6ie_5O(-`0%%N><>E_0CJopqe*YQRY#eqgt2ei z%#8cdfrEgQ{l3sx9UJd4XS=u5c%U9T!ymIr^Sewi)`+mVf8HkWT`T+Sn_kx0_Sn4} zU$|KJSXY&XfO}ra~k!*Y} z>QxN3T!LhqY6x+FsrQ;}L$o)Urm8B{r4P@PH5-^s!R3@D0JttT6%>O#??T?@9PcUS zT>!RzJmx3lf5`LmlVrz(#C7HD1sWz`^U+8m3O)hZU^~W2fA?7;fp}#!LrL<);#1_# zNQ$Ro+q_VQ!kH?wbn1tAs|&6IAvB4B_@`4ir2AC42W&D%uI*1H zMX^NOezdZ74zACmBjWRV%z59H20-MuF8YY*MRm9Oe}oahXs+zkz94d6HV}Ug+ z6$k?iNkW0Xs$=_JOw6%kGN3h_$&ZmQY_(k0?Uw4!U`7dJf}DNwJdDJ=XFq$%IMtmO zrewg%;V7RloFxg*K$>{#r%%SFD^Bz8L0%AfT8!D0SPe z9dFH+e+DfBm^f8d_6U072$}tFZB}qaWRj`v@ifz{f@@+F^P0enk2=()cu542CFXJ& zjk?&{k1l+OK0xi)ts##@n$g%HD{sh*_ApAcp7X(TT-I=NU-%~#SzIlP;|LJ$SFR-oF4x24%qz>7!HX%la4k8%Gjpd9pu-I@D0Al> zY6nDXZ`Kl!u~0{YgOJ*IgYGosr9+M)^rYr}NIrfeATN2$_^I1xpp3AFmK?ow?gc;l zf5_(~uCpyL4rZt8#U49td+azBcaXNz4+jf)1zy$ySh;G3IufM-UO*?T`Q~*L(kxsU z}(9?rPS7{+#tlHIYkpA~?BsT~hF!jAaU% z6M+B}L(|`NZ{S&A`c{i&&So{m?`*0bf@ZJZsF{yjP_YZk6i4<4XFVg{!7_Z*<7=YN zu?HMuOA;eEtb;3wq4lJ{HV`?G<7;Hp|`g8;U5KngDX5*-1&5A^#~ zy#UMQG94HM8oCh8*Ey>7!GH4+01(cUE`k=C&p`^^P7F3$hhgJ3bzaA%NGIC!&~^-h zm;4o7VO6;ZxF_k>e|7yULsUV2;DvSahbh$QV!bidKb3Z!mKCNL5^)-2RMfQ>MeL~# zF|c+gh=I9iJdyaJKShQ|16g^mL+Ga-Nc6H|CsC@9(93e~1gJ3H1?bCdkJRVIrM) zGk%B#N}MrE=W*-&%M;)vvmlYlQIcCgF~PU~J=*PqHu5!h&DPplXy}A(gIIXGC!hJg zWWA??6E-n5hHksJoudcy=(RiwzYY6{b^2aM$s$im?O!}QIV1ta zlcb5H?>bhb)~nGSL|NvVW7r<@D}g{qXH@M0A$lq@e^GoQY2F!)kn*Cw?Y0Ic9xQo8 zc?>v=D+>RJck0Q)ADi&_1!dB0@Q}Q&_lN1fSf1YDznRdt9enDx^*%jIC`SD%k5QA@ z!;-qC;6dmnV|2&+*QPSF>7O{f$Le^ztsf(-@7pj4iRdj?H2~iekY=uj|7yPO)(WWB zl3$?Jf8$5OdKJ3bdC!IxQV!}NZGb@aB%i&>U^hW|Gt8K^Jh*P_u`;&hIUTi0SxiY~ zn`s{A@+u#c%~}ZT_(ed^4++oIPxZ*V`pYyj6DW@QW~vLD=_5JeR)hwl&1_FMDAhD8 z8)EsFSBKT_z*oNRc5p@%AxySX)yrvx`uHQ}e?^qmPQ-xnlLh4lopPUIpb%?$RdRPa zT6wp;I$-0-VD$Q6V3CbMBL2vB=ndM4a3Acj)_`I4p)WUbPMW{4dnKX-s)%WTb)TuX z(}Pn5NG%r&n;0T0FitSaXo0!adpXdJNgmZ71u(+r9ho|Jz6$1Rguk;OMBvT(XrKO0 zf2gZ-h4RtjJ3HMHiNHuV8@Xe}?c9s$%eM}R;qs&>%%e6_9-SclSZiG%ePOT-{V|5*P zmG2_h7Yq9`HUL$;*U`Kg{zRV{s%9iAf3i@^K-nNTsf{)?exj4Rqk_Hz&bNSP>g=0bQ3X!Y9uARt2*T8O$bg_EK7dTpcFiLfgme~oK8 zZr@a=?`aOE?vo(b;BYxM9pY|3^Za+DZjxf#3!~XhNO+5=*CbTPkDLiEHiluHRm)Ue~bA47rt)I#=d(v_woVk=K$Xz^Omk8vwAP?8hmPZ zKzOC;%{@&r-JH!>O@?}iO3p0E@#IZg!zi?}y|W^7G|%~6wznhm99wcj{yb`6+iKjU z24YDkv#}PYW+k<;72{cQ;4blveP#N=23tq7aHScTAlmOD?W^P<)9O=kfB(y~4?#>4 zA68a#;_H}s+y%=vS)3f4$yry2n71-B^^^%LZ}|wkmJP(m@?zfAJHi52G}p;m*cMejVnPPTRYQ7 zH2A8@6h5;xlhnY-k!sM8=T@zS%^9RW<|Sx?76afPrT?$jTZ%!XSFs%{_N2(T1*;Qve%9S?f3rHlfE@S&3Sc00 zqMf^K|E14PzqYV_z{9+N4@edByibOmY}vsCxuZ)4{qB-j~)2Dz{|&WtUkK+ro` zh2kW3_+_PIb}}*=g2)xgI;y=7cITNN<5`XHcF;ST}swIPB_aa^+L zF3iGN^oKTof2aoe9yMr|JkY9OWg|moxpOXmfwng~5LZ&BN}?K_-FF z*fd_8Ba3ezpWrUN9l7;*h&B8kX&%Rq^|YRY`OIDyqHYwVWW&cQ%kL*CY(lHfPU>@L!aDAUn+nCgL&3}?{S$q9>hs-Tfga73yY>1Ue+t&4gqVU&hHdG00 zma4IT3*0y~K=S3F5ie`mHz}+h*g6E-mbjkRpE!HgbT_fhCcS-!ag$gl(x=x>t5vVl6L7=2(nhB@nV&rTJJ5eBW;VnpyB; zFi@SHGD&_35&&>5%(fgH^4F+Y)@X_-e?Du$oeWVR3pEp+p%^1cm_EvL)EgQJZ@^de zhU^zyy@Fx0SgJb(xL|AyRk<)C*AX_Ifmt0o9n17UT*Jz(l8X;c(Ug5D2Jr;c$cUAcyiG0f+J+0=M!Y10GlqbaLAorE*r8 z5jC6`jQL7Bw;*`~O#ua&mGwjBnGlI9LXsNUDXe`i&dvUxRNFC?fhB2(0x^D6yd2avOyCf<7o^^?m|hGRfH8)D|wPub=XqDng=Kr~ptpc_zD9 zPTRejNi$?6R}P&4mDP%U_M5nrw@FKkQ&lwEGk;2<@OK+1$MWwixB;FFy#XtiLyI45 z60BH?G%n(Dk89rkzoi)vbA-T*@x!?xuGt{QmUW(Vd37}OHCgC^0jPjJ+Akc}%VeD| zfZOBmiG~1g+k^R9RSwEJ#IAIh^Q30641n5a|D4FzuyPKUNzvuz_2)?CDo!CpdvaQ< z34dj9rd}*<0_uXI_Iv`|;aP>0X?*%ph%ovx4sxH#EJ8ORP$xgWAinO~-U@mhrez_Y zAoKF9&GgaoNHKAWxaMH+*``$5xI^|OfdXa1(-(d$+Hqw&GBvgI?H42UuUt5#twE6{ zv*wNUv0Pf5?WeCQXV#D9@~g@0Uw9<<6@TEwaB#0Wz*$k=jDYH|FfX&95y|H-4jUCv zgz@EEu~iD2eE=~Kr95Bx1g`Y5Mfi+odkC`kFw3z|H%R`&Z{M6(LaA)j_ALMY+I<@R zg`lw6dCz|5_^g7UMm0dxaVCWxNN;l?Z2R7MXD~do3wu7GJAbCgJ_Ly1+A;fQ_7K#Ia~HIHTp*V>#sy>?6un=Gc+P^g|wl z=x0v?ru2B){>~(JVvd6Vm5RpZ4oMwFC3CpUB{08u48gyS{)lD)%3B590Vsp@4-n~9 z>$#seMC|B!A)xO&B7a`n6^%e@4f+dEUaxP<=P{ogX$c+h)X^${7AO!n zLYdDSAd{>3GRa+@0vkR4;!i|*nmjEk{BEq)VZ_KJsiYEql@2uTyf4rj)7zmB!J|-hX0S+W0lB zePMV1A=z4aASlM)=WTs$;a-Z4*E@q(L2In_=FK&42JTFwIksXv54ir@e#gK@@sWl= zGoKH&hD|<97Of|txPHlB3gtIx7ksGWJi{n7Erx^RP<$C6zd)j2dAhA}S4xk4rmc|J zlgLv@I8fp^oA+@)!T_y7!hh+emN5`9w1TmDs+VU*e$eUkaDs(#BIl)cHTCD-Zq{zk z_7-z}$FQk1tL)|{Sp+Avyn=&VZjE7`uD&zTB|E63m_aMaq>Vo$G9njWZhuXbh}H=B z^2jM{5UP~BZeZiALb+!#>c>3CqX7%wk4QaCMnu2*@A2{R{nc|C8-M&9?&r#ysJ^N; zx@w1UKdf=OtXJY9Z$LFHbEpB;;Ydw#k6+c=*;*nw+iDkW4R;wsG z23Vz)r4<#n?MHUJZh;TW@@?d2alVnzfIvjB68`FKVx+-brlRl!2EMonK=V_+**{a(_{@y~q1calWU=S_Ee^ zxxIYrn~dQy`h0U*CQUC(_kuRiJ#Tp6%5mn~Df4hlRJGnbi5#_%AvVMN3WfJ;8o;^1^BEXiCWgJq|JIPUpZUG z4x(K=X5qNdp%nEd3bM_cwE#}ca6m)W%DCQjF@ovV(@(TgHm4)sNo(b^8Un2Q*o*ki z9EHhZy&ycMZ(B}U$w|=@G7ms9iozxXI}27bw2A~WEq?{innyxylB1z%X~sv3niSYh zBNUtG#`%z{`Azi$_N9++wf)L>5jrgq+hezV!d_21UM9xna{)YFQf{NguquXYHPA}1 z-grS+)>p1aE9f0|0zCrD!uFx2FdVfP6_sY5pSLKa2<*F7nFM~68m|rkmAns3CR^QA&u!Emh zAiD8wd-QCItR%ht`s%w|%3f??65qBoj2_H>Ocw#z%4q&h_h?`c>P=$^I5 zTMxEUm~=M4G=(m+ou08o_`bt0R5=QTLB(0kVXTkQ0ZNDgb)M<)kajzJY1(5$IZJzL{ zpLbv$jMK)7%=9fKIN+x{Te810oP~DTqkot?;){+x$!?s!>Rxi2Bli?dUKFg78)3Au zZYKERLJ{B{FN6SG%?LSolrj(Ni^x)3{ml48r0f6r55mR;dpm}Ee4}ecfmz*&1Yf|O zTC0~yq_dP_^{PtTvA3T$)se`F>)pG=+JeJMc66GaARLDlXA_|7WjqHK1#m(93V%RD zE4=|DjA_?QE2-3{HosHzy`c^F&U8#a0L4OLEqu52Y#m_VWYk%0|IFA8(l{q6~47Dq)L_q zMJJ`eP`5}52~j$x(4B28JgDw~uw~XT3uzGBm3)i1G8)GR^Ag39Krp~334aR=({a0H z7>yaCY}^eZ|BS)!z3Ir3n5;3@OAAq;ts2tki`zQDI3DCZtfIN5L1>$*&RY(LylrDJ zwV4^xgk}grVJNvc^3~WPWy9RegbC zq?^yu!%<|VYS#m#mfw9%B9-l~`W|W{d~zfF5ra^d#*6e(_q$7|-H^kkz?cpUiz>$j z9(56Iekw<%AeD@a8xQh)f`G1h_Q~`pNJ>$C2u=Xr{7RnU+;>%r?@eZ zrS+S_ap`V(Fp8fKHD~bv=wY+pSc|*bJ-nn}FB}u}qZ$H4c#nZ%6WRay%6mm2nF}_s zXr7MBa}RrlqklCrP6{6q*VG{;mJN3*h1`9nH)!b9QEFa@g1Vkl4%t8tafbW2uKUx= z@XLk!zQ5@gK2V;G;~D_67KsXht*Zxk9rPEOEi|V)UpHso!J3Wm4rKL5L3mqR0q6A5*UoO^rfy@As=r{pbRg_~ zlXHYSkSX3(oQnmb;2<7Ggl1fV%=0#|v#8%{vD-b&=FRzT| z7(R1PR@RJopp&CT_hcaVO}L?I+(x0~W!bbsiFhs@M*B=BZ9i(T>SusPqmnt*tfG#_45;p39Acw#1o=LUs2 zfhrh~BJx>W)CKTrJVm9^z~niTzfYl{B>`OBlCN;|L#Uujpu`Jf-Q?UNSv}OL8M~N@$LR2Czqc2^ zuJYv)y4nfpH!I$uA>J$I8cJQpKyKm1IV^acG&X>B3K5Lp0g>^>?ihIKemEidOD2rr zJ>E7bYfUUq^yCk-d2`67{QzJD#Fr#oz&WG67uZH>#iSh2mmzcmd6s$uYz^S$u5{sW X)&T>nxWd!)kIb zHG34#pm~iKZ-Z`5KDU{ro`ykNi+tquo;Q7S_0Y|9IMd=B-V%}p1Kt^<4r~~0=~tL^ zX5s;nU6VjEOIipn8|x|2Yr*Ykq|#yV;pdr6nG1x~)(MgS@!g1l`11CA!vUEz?e3n!3IP^43dt-TEs|t5_89!&R-fzf z3TSCu+Mk;2@%2a`g&jS{;aL-FutFklu)#bfTdx6H8SccdZ})uMVFHW3vMNy8YZ{?S zp@APqzt`Ky_IqnD=$KS2+2dKNrprcSnMW73ORNAu8vIV7f2U})&C3$9#67f1QsL2; z6xcLnv*U~zQm~bo;cm{imw|;{5k~Pb$T=pJ_9AM^%HcEKWKD;JfkG#-8Orodw4+@v zH;;oMwoZf_J>5mkFvuY5l0uArS|adjF+T**F%Ur^kCE z>*Q?DqQhR>6|jGDU}7cL_J^0|Kt~Gc@_)UyGeZi)f4A?3HNqnh{6y{GJlQ!Kl2e*} zGBqFm$=%+-#)E@nD$D@^ZdRq^QR~fJ&K2OLDh&g`KhxwQ)Ge3)NZvi7p)R66+g&OX$#+&AS$4HrmegGe<(_!Z(5+bz z1=E^CcBPmV9_%K#tJ$u#CW-7le?{aoT^K(I%@~Qk<7<4up_`6mfK9dShz_4(Lw%*q z4>-_eq%ZJ%bf$wir!d;jq7oxz7Z7j){4xv36e{G=Yk>$axC=18)PX)l0 ze=Ebs(%>f>yKev!Aa0n75va|M z|2*71(!&hC9xy!I+E5}Z?!o2ZTq6;el)D;T6Y`i1P5jXxaYf*;ydF&F8zdm;LqbfqQ-{W0s=Yt(RkB}4 zh<9W^!N9zRC9W+HmBUH4FPHw;w<7Xx%SD8Yki`cOhS@K;eM|y$lpa@D>~ExOf8huU z9PGbj$O(17U?Ao=74K}f=Ll|t`~SE?5513ZuuIX5a`mN zCo08CO9$zq2saNjh3)`CD+IRZi1F-AGP@&^!QWa$pAW?o_{Xu9ad4P@)d`$ zO1XI8LU8Ji5XrQlNPFuwfb9_0e>zH*!hq6nFCMqrDm+op7hw>ySS338qI!Wlug!cg zOBalZLqzmeIsJ36Z7H#~{iNYbUuZT`V;khNu|iOR zapUQ#>A#r}8k7wF1{vf&i{{H{~vjhk<0VXv7 z002M$006M1nNeu~002M$0000000000002M$006Kt7W9vAlU@mUe+;fR$vjLEQ;Ope zNDF@*#5K3Ud{Kc{B3plX`ala@aB?n&4+D)U1`p{y{+TQVMDe04kr3rAlw9t7hu?0B|zLF8W z>_v|%Mbv5>_)TaW$q&qvO`4(_~_lwI|FYn>DuZq>EiQ*duw+Z z=L4fzQA;$&$_e^ub=V(n3nD{)7Y71wU&06r^?Q(;e$0@lfflo`Y=a22W*3G*+w6N_ z7BEdA|2?4n1hAc!U!dfeG(Uz_2y`bk13Z6j#fWJ9JKw89e~!jdAgn1AT7ovzol10Y z0`J2HqJe#b5X=adRX*ip>nGrgR7#+8J}bw4)b0GCtgi_qSyMQSiQ&D4KbwRBJkG1} zj%UKh!7}chpF}7hzIi$|=;5mo$A`HhYh+L-Z~^wi-hsri^A|_8D4Y%il419TJQ``X z?K7#RO3?mIe*;4v3#cHIS-tQ+FQtO5s;dN>DDlyJwJe;7Q^lmdre4ih#jesR0e+QmYWG88Zw&dyxAL<{LujaXo zSti&xc{7VC7|^~ExY1QmG8;SMj}R|!zPvlN+3P04pjDUMV>=?~W3J~ra3!UOOO`6c z<3t3f>ipej??z<}J6Mg8j;0AT2X{`&D(-g7)&)GD*nBZQ2)`Eq{=XB;@d5v!-it{ug zxyt|{TRNYHfRLmD#Q)KkE0J>ng%&FL%Mb(+NpzE1Iq45&W*xbhoE>JF*Ct)%mDRAj&lKf3MbxhK~l+dRT4>H(}n!2(xed8@9Jx zKYqy`+3Yv4lGynB-_{i7L131YS~fi4k{MJ)>9?`!7JI2rbt;Z?1e~$ci{4oO(OTy; z6N&MN0vgsdd@2_ykK^(jUxSMHrVRFkM}nJ%gLqqGRl+EV(M(3x4L#jWve6L&$ds<) zf5oPlsG)z=3q7A)%auL(WCn)l9nuR_zITTFQ@>xdhwKF(t^%j0BgndE9dlXfBad9YubSz9Y@Z3Db!f5Ef9l+C^0o=Im&y1 zfylnbxV=LH9uIR%@VyGoSfF}F7=rgM>rAl&oBov@N4!u<$y~somr#C)gg!RQ(L5CF z^0zZas78W6N0B~PWK)gDVEekOt_HaIQ20?L#eq}-iK8mw?NMxLbbl^CHS@mPf2;VS zaH&+0?=g@`?E;J7+`4So5yYSLlB;+MaZut%vSN%(gN1#JRu3U`283?_HpK*WOytPq z&h}6STckf-h0o&9%Rh4Eg)h82Qvp4C0ms+(-v{`Z~nSIOke7Ckaqt62ve*#!7-T~+q3{~K&ppwf;&uqIn-(Cns$f368 z%WB^7QcLh*P z+OL4q1o>5%8ZRE_>e+=JeG6S&P*WpR@+w8)68;MyPE(kEQG84P>cW+eo*yc-OsdPA zyYXG_W4g21Wu8;2(qzApf26l%Zxja~-!!xm zRDS(7gnWH#!$zddbs3Azo;o91BKuE&*)EbPeob+{_q4=F=Q33we`_Mr^8##nrj8Wt zMEy=L>Zk%KlVwy5v_;BorM7g1h6BzpXLi!j6AIEA#m_%pbHH#?KUT4g&N`Y&@gx@*~nADnq4s!v;SZ#0Ge~>1tj!q z+h)qxH*swq)h&X& z8MK-Fx1qyvOf*o8vHc-V?}Z)fsvn_@Xs_a9-&NKc1#N}5W1XzOLUNoY+&?Ldf4AYd$73w>>rU5ncEFK5y~I7I1`K9`!R-q4gWt86b}igjleZcNyzm&PZxco{4|=2x4f*o$Ao7W9V*56-t8c_u3zMiUr#r4dS?Hhah>bDmeV@+ zox|c&LtGm6b8R5;Ulc{cXy9$peLT<3umYy}`+&J48K!m}CA)BA!DAU-+D<4hyOB*O zf3ALW9Q@jZq{SVn@uuDh0SNN0y^{8k=40$*X@LDL}#B? z&gsdFj>ot-Nynx>7%IHd=%4hXx#HK+`pT;fgQ)@Q43j%Gd9WfV2hIO?8mk@`bZ}^< zScrY$wZ214oj2Y?te>49=sLWv3gICA;8K7p&Bfd}wCP5+LU^EQT$BD>SVxYRe?fOy zDfrj+4Uxg_S7sq=;xmH2XdQoJFU^7gXMlo=kF;86z&&^#-s4_h##@}hi=4$cGr;^C zzim}nP$4Fib#N+h-$yJB(GbUamo;1?I;d7#0Met~ySgP*-s&umSTPL8nF1^CYm9+Q zutZwkpf^ve{;-f(h>xLTPD3gZe^d)rnA~!KR|XDORA{-Y&(caS(De!wr8BItcDbo= zS9#L_5Np&EN=3JGEx#DN{e5=F^d7GhMN!t?a*Ha@2&b-B{x5(2;H~C5I>ifI)~pnM z7Ui#Bjs1(<+SDJtiq~&s_A}n+-`)Z`>~I|&twEiE_V9y`mWT%5c0b4yLJ$PlVJurk zlxDcq=f>vn<`cEz{fdtCXYhWM>4nb=wX@N=+YKo%L%|0dkI8l)H!1z@V!{b#M?w(j{dKI-w;*`~O#ua#9`uiImvVXoh5>!I`FaBf0e=r7G%pYUKtd?rTAIxE`y#+% zoqdP}#~f3{8qGrtu(Fcf3hhhW?YJ+3521U~mOOeJlb$$?_0=jw)4spYS&&L+uji*S zZBN1a+%kPy#V&3IS8iTw>TUbfNTIo%J4CAHT}s~4HwWnvebIIGHLRIiY}=!x0eycZ z*)%}d34i=d70t4{`J3vxX1_6|gtkUt1WUc0RHBAI&?#{^n>IXpCVk^qt2GF@`*g4| zXhS|g+U=wONS)-Hjw`6fMJ}>D*@LmJIuSZAug>d)n~Lf8$3O~c_#0u}%DDdSATaqr2)F`k}M2Oqs*a%x+THjKiC|^ z%(oeIfw>-3bz9>7d)K`uEmleU2Jvv;Rx6JaS4I79BzsV#Z}7ZHKzt@xwDf`m$Yxe$ z&!(OT%lS5rR%NpFMp?JxbdU~^uaJQdQX}*yk>@ZN$)~11CFk}InNhJ;jE$BV) z^nVY_SOJvLjDevIR&2kUJFO$fL~*<^ZljU0bN;vrquFO}^`JdBONlLQ>6V$7Nye}< zjQWW*HmMOSBc2#J7t-U0gXRto*jjQtoSbeNu!?7uJxN@KFQskFSgV~xvSZ4)#8apa z8F$NWQR^qb;_=1czCan8RmPu+=KeyiTz@L1<)Tfk^SUtkNDi4d4mN<74=1)CLWAvL zuZ~u{s_XQ5iCWMcK<(l_+kzr79|EFqK1yk;p7@1Sb0DL#%0*y_^^enO`W|;l{uXm+ ztl~rLfQ2is`!A@-hLMjs5U#VC5=l%u@l(lDF@Z4xARGhs3{&y5Ot#u>s;x`Ibbpqj z94>4#&bDHh2=4w}hj}#8B)8Ugmes*NNZl3j^s`8`GxO2N=MinF6PNwhMZLt@EztKz zZm8*KE^;^;y|ScTfA%V?3eD)o#4ab)SuHwi#x@UDg|Y@QWEDD;FfAoN4sufd1U& zX~XgF&XtoUY)H|d6@BIP!qC^_1V=w@hS;|(r+^2+FRAJw-FhtOI4Y*lf&^c$#s6Nb zQqja&MyGqNiCh~_0eM$9YkyqOZI9N@lV0wDi^o{(?^!>&3P#_-;WB z{I?BD92kFu&r_3Fr;*CKTqP@WuVuleP~xgkfhEMqU-sChawyC)*B@_)_!*N$!pTQ& zjuF90*|sH)5{YukN7u^RETEaa&ll12**!5+f#{tIr-FVYJW$6rqJP<&sgY(~Wi~{8 zJXg@~3~r0^a0go*-m>w=!>!Zl(PyTcdmTI!fh#R%%R*+qbdGs{gs%}v27lbSfWtft zBK&IxhaY_NNSh!2LzSJ*U`O@A=JiS`j1$BbjDNOHt>p6_YpnTYo%5Oc&!^=x3>g)zl!cO4|K4B)jT_FnOd`B|Bggd7vg$oU7Ke23NvM zaBxF@Di_x*$)i@AJ){nGSGck>ertZzDSw8;w>PVv@RStFl)J*`$fe)inR-w-&K6nl zh>!lHR4lcESk>Eg3u~mYJfYOB?Ohfc>ZvDpsc3jj?XA@y#@@9%a7$iA4BYzhofNI$I@eC`guQ${ zddL8Zpw-gjLh7uwS7Synb$DaHx^<61WN-^J&;4uLGe;Nd4@Ym6~0 zb63V_-G5{3M98t`j5dD#)$C$13;v)=Av~_<;s8pHzFXO0I@{Zsm!@PPjbjBAS73KI zR`f(7Lh^sb`*2aB!-0nd>+7w~YlF1JjzE=`ddoZY-4KKzN5INkldm#H9sP(yB*8lS zo1!zofI7J|dEV+YEutcm(a(_jzye1%0T>X?Ntq#VziKr-y8g4e( z(obz5!%Y49Z1-bpHZh_r!=}^zE|Jw5+bC5?h^Im+Z*|veS(*`QF_aV*zxA0W|Nb zn}4PF#&kqebG*qfif_s4gF$)F54|aIO{UThrA7QoaKiLzL61iP?$Z|)1UWtvt!G5JEq7arwa$=FE-8$y z>z?6vj%cWHm!Xe`@#_+_0pPxYbdmIZWq)Q?`Fs1f5Cmbc0W*HhK91M!-4IQ)TV&R1 zK(E=R0J?KID1#?6S~VImniKBY>$T6s7JpT)n%MWDwJaJ!XP;p5?0L;sZuRg3J!?d) zJki!K`M0g?0_KS?RD=s6awBm`hIOv^tRDS)ta?FufLO~x;kydur@%l`QT#cLK7Z-} zgV#B^wK|-LWxU%=`#6rh+&+<;@qv`(`7CPJ4_Vh=Zh3S=>^GkW*?h|gtL+ePCHqaE zM;ai9hHK~KOr@N(co7HWbq}{r1MyAS`P2)+MEoq#AKfx`W}bZLEZkplBuJMIjTYKe z6yZOg+4ooBtu^>tTwe+3y$A20;eTEVZT;EsocVZrzJtYcS;}cGi6@V)81Fm0kyU|# z7$t^56?+YV2H@3Cq1ZJ|tp;Q)sc19CbeQ0N#1_HIIaFQ#Qw}d_d z>D-+TQk-D%0hXw(_f6i^2Ut}Gl4@U`x~v^{)`ZyG&OW<(fH#}E7IS4VzA!%QySZ~O z!oh|C*M7F;uFniljt9ObnM-`XO4$QYi0Bi|^amY;lb1)pOZamy81zR=j&^f&-cYmqaljVFm4-Ha?yL8ogWWc z=YAx?zi`cKT_8xU=>Q= zgCHdBK=aYhHNIFsx{yJobNS^A|0VX1-Qmu&&uoj#_9 zzT|PB&xw;IAQwJ8NtyfV*Abz10urJjB)<@rE)o>{MBCBxJBD!l1&^Vhlp^u$H0d=VC$*f2-PRn^Lv+Xn%QP3Q zYJ8!m(B!ZN*P0{gEy@kj0h)FDNFZq+*Z+y$I{WA56eZG8>nCMUpo@Ve&o7B-*)U`x z-xY{U2LG0PvwsU-#NHkqs0&+Z|5kEvui?@eW!wk`UZd5kN)c#=&=Yu@unYO7M=!76 ze|+u_{aKyt`Rv3VE#DD>t;*#v+cPDMSNqLsz4<#fP|F3;V<$1v#E=^x%DHk!1gryG z_n#*})^;`%l`jSToqPoA4U8dj0Fj(AB@pzBmmavDX@94`S~=L+Vj<11h(FMpgLZVC zspxW^a$D_!LpuHPQP!l?z7Y7Bu#pGFW1(78x;>DiKlK+eSptjm4K-t|YMx=SfuV=z zoS{C@ST{kJfC8<2*IB=<(D&9^$&*mwMbQg8TxQvpa?j4HFkva$7`imz&Im7ln8A7? zxXiTCGk+Lnxp0`r>;WQbU6jABXaGW_2;5v{UNscl+L0h0HBQ=!f8BHYIn5A%N0p&| zG$WOKj{R@RA#Yzz8~HfO{Pjn2i)Y!J`j#z`PC$sq8)2HBd{T0{4 zWyt+hM(7dexj9n#bbN%o?KZdfD4MYH)`B6$XV1n%IOpxqL9p4}s`V3Kn1s&Rxsc3* z-+u`+LiYQ=;vO3Ho(SNy2d{?b9x?~rhq2&vdOAtQ>p49n_hIdC0bjHMy5xZy5bL4i zOZy9@i^ug`Gf@Tuj!5t|rcq1H(-FyqB*gr-_#gNOx{`7f8fLUQrIM1{Q$~taz*_mE zrx#8$3qp80Gr_)6hw^zs@9dLl@A=k0aerF+UG$4I=&JM}*FW)2&I$9DAQ0PSS5noR zWyZxi{uMMPS7aC9T9A%Q8tG~1K&CQV|CN@Tx{Zv#IHsMPgh9&5-hKlj0$!2SviX^I zk#P3Cg;ri`PiLMQIjD#*#s@EobTD^X!s8Q^|MKq-mRkCk=e4fn)D__WZF%f!1ss3Y zs}=CrOWV{*ZIj^7i)#)qdz Date: Wed, 12 Aug 2020 15:57:36 -0700 Subject: [PATCH 23/30] inicial registro revision --- AF/RegistroRevision.aspx | 210 ++++++++++++++++++++++++++++++++++++ AF/RegistroRevision.aspx.vb | 74 +++++++++++++ App_Code/ClsPaginas.vb | 1 + 3 files changed, 285 insertions(+) create mode 100644 AF/RegistroRevision.aspx create mode 100644 AF/RegistroRevision.aspx.vb diff --git a/AF/RegistroRevision.aspx b/AF/RegistroRevision.aspx new file mode 100644 index 000000000..32727f609 --- /dev/null +++ b/AF/RegistroRevision.aspx @@ -0,0 +1,210 @@ +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegistroRevision.aspx.vb" Inherits="AF_RegistroRevision" %> + + + + + + + + +<%-- + +
  • + + Nuevo Activo Fijo + +
    • +
  • + PDF +
    • +
  • + + Excel + +
    • + +     + + + + +     --%> + + +     + + Catálogo de Activos Fijos + + + + + + + + +
    +
    +
    + + + + + + +
    +
    + +
    + + +
    +
    + +
    +
    Fecha:
    +
    +
    + +
    + + + + +
    + + + <%-- + --%> + +
    +
    +
    + + +
    +
    + +
    + +     +     + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +     + + + + + + diff --git a/AF/RegistroRevision.aspx.vb b/AF/RegistroRevision.aspx.vb new file mode 100644 index 000000000..b1a64a62e --- /dev/null +++ b/AF/RegistroRevision.aspx.vb @@ -0,0 +1,74 @@ +Option Explicit On +Option Strict On + +Imports System.Data +Imports Extensiones +Imports Microsoft.Reporting.WebForms + +Partial Class AF_RegistroRevision + Inherits ClsPaginas + +#Region " PROPIEDADES" + +#End Region + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + + CargaCombos() + + CargaDatos() + + End If + End Sub + + +#Region " CARGA PARAMETROS " + +#End Region + +#Region " CARGA COMBOS " + Protected Sub CargaCombos() + CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto) + End Sub + + +#End Region + +#Region " CARGA DATOS " + Protected Sub BtnFiltrar_Click(sender As Object, e As EventArgs) + CargaDatos() + + End Sub + + +#End Region + +#Region " GV DATOS " + + Private Sub CargaDatos() + + Dim ObjAF As New ClsAF + + + ObjAF.Dispose() + + End Sub + + + Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound + + If e.Row.RowType = DataControlRowType.DataRow Then + + + + End If + + End Sub + +#End Region + + + + +End Class diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 40f6c1946..68a9d44e3 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -3950,6 +3950,7 @@ Public Class ClsPaginas PaginaDict.Add("/AF/RepServicios.aspx".ToUpper(), -1) PaginaDict.Add("/AF/RepDepreciacion.aspx".ToUpper(), -1) PaginaDict.Add("/AF/RepEventosProgramados.aspx".ToUpper(), 656) + PaginaDict.Add("/AF/RegistroRevision.aspx".ToUpper(), 1251) #End Region 'AIMMGM #Region "AIMMGM" From c8ac996eeab2784b5cb9e411cd4e61056d55e587 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 12 Aug 2020 16:24:36 -0700 Subject: [PATCH 24/30] =?UTF-8?q?validaci=C3=B3n=20del=20DropDownList=20ya?= =?UTF-8?q?=20se=20subi=C3=B3=20a=20producci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/PopUpExistenciasAlmacen.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx.vb b/Inventarios/PopUpExistenciasAlmacen.aspx.vb index 2f729867e..8ad38121e 100644 --- a/Inventarios/PopUpExistenciasAlmacen.aspx.vb +++ b/Inventarios/PopUpExistenciasAlmacen.aspx.vb @@ -164,7 +164,7 @@ Partial Class Inventarios_Default UPDatos.Update() TblBusqueda.Visible = True Else - Alert("Seleccione un producto o servicio", TipoMensaje.MsgAdvertencia) + Alert("Seleccione un producto", TipoMensaje.MsgAdvertencia) End If End Sub Private Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound From d5f8bbce891ae0b2028da00544a1149ca6219293 Mon Sep 17 00:00:00 2001 From: Raul Pimienta Date: Wed, 12 Aug 2020 22:27:59 -0700 Subject: [PATCH 25/30] Se agregaron dos columnas al RepAnticiposEspeciales (Saldo, % Por Amortizar). --- Ventas/RepAnticiposEspeciales.aspx | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/Ventas/RepAnticiposEspeciales.aspx b/Ventas/RepAnticiposEspeciales.aspx index 28f529dba..8ae071ee7 100644 --- a/Ventas/RepAnticiposEspeciales.aspx +++ b/Ventas/RepAnticiposEspeciales.aspx @@ -184,6 +184,18 @@ + + +   + + + + + +   + + + From b7bebf887528a838068559b74a74916ab86461d8 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 13 Aug 2020 16:19:09 -0700 Subject: [PATCH 26/30] -- filtro de resguardados, y cambio texto de uniforme --- RH/Personal.aspx.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 685e8d9e0..b6e87641f 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -5105,7 +5105,7 @@ Partial Class RH_Personal Dim ObjInv As New ClsInventarios - If ObjInv.GetResguardoUniformesRep(UsuarioActual.CveEmpresa, CvePersonal, -1, -1, Todo:=True) Then + If ObjInv.GetResguardoUniformesRep(UsuarioActual.CveEmpresa, CvePersonal, -1, -1) Then GvUniformesResguardo.DataSource = ObjInv.DtResultados UniformesInfo = ObjInv.DtResultados Else @@ -5168,15 +5168,15 @@ Partial Class RH_Personal Dim ObjInventario As New ClsInventarios ObjInventario.IniciaTransacSQL() - Dim CveResultadoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenUniforme, 3, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme) + Dim CveResultadoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenUniforme, 3, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoRelacionado:=CveMovimientoUniforme, Observaciones:=DescripcionUniforme, Modulo:="RHLibResg") Dim ResultadoDetalleSalida As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoSalida, 1.0, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacenUniforme, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme) Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero - Dim CveResultadoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, 2, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme, CveMovimientoRelacionado:=CveMovimientoUniforme) + Dim CveResultadoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, 2, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme, CveMovimientoRelacionado:=CveResultadoSalida, Modulo:="RHLibResg2") Dim ResultadoDetalleEntrada As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoEntrada, 1.0, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacen) If ResultadoDetalleSalida And ResultadoDetalleEntrada Then ObjInventario.Commit() - Alert("Uniforme liberado") + Alert("Resguardo liberado correctamente") RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalUniforme")) CargaUniformesPersonal() Else From e94d908ee07d9a003b2738aea84fd881c4f3f2e0 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 13 Aug 2020 16:19:42 -0700 Subject: [PATCH 27/30] -- visualizar el nombre del personal, si esta asignado --- Inventarios/EntradasSalidas.aspx.vb | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index bce30ff42..39e43da47 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -790,6 +790,15 @@ Partial Class Inventarios_EntradasSalidas End If + 'carga personal + If Mov.CvePersonal > 0 Then + DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal:=Mov.CvePersonal) + DdlPersonal.DataBind() + DdlPersonal.SelectedValueExist(Mov.CvePersonal) + DdlPersonal.Enabled = False + TrPersonal.Visible = True + End If + If Mov.CveClienteSucursal > 0 Then CambiaCliente() From d2c94503e7534dd57d4e3b334d3573fc04f4fdf4 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 13 Aug 2020 16:20:10 -0700 Subject: [PATCH 28/30] ajuste de negativos --- Contabilidad2/RepLibroDiario.aspx.vb | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/Contabilidad2/RepLibroDiario.aspx.vb b/Contabilidad2/RepLibroDiario.aspx.vb index 9ae6cf4b7..60dd72327 100644 --- a/Contabilidad2/RepLibroDiario.aspx.vb +++ b/Contabilidad2/RepLibroDiario.aspx.vb @@ -113,8 +113,13 @@ Partial Class Contabilidad2_RepLibroDiario e.Row.Cells(1).Text = "" e.Row.Cells(2).Text = "" e.Row.Cells(3).Text = "" - e.Row.Cells(7).Text = If(e.Row.Cells(7).Text.ToEntero() > 0, e.Row.Cells(7).Text, "") - e.Row.Cells(8).Text = If(e.Row.Cells(8).Text.ToEntero() > 0, e.Row.Cells(8).Text, "") + If e.Row.DBCampo("TipoMovto") = "True" Then + e.Row.Cells(7).Text = "" + Else + e.Row.Cells(8).Text = "" + End If + 'e.Row.Cells(7).Text = If(e.Row.Cells(7).Text.ToEntero() > 0, e.Row.Cells(7).Text, "") + 'e.Row.Cells(8).Text = If(e.Row.Cells(8).Text.ToEntero() > 0, e.Row.Cells(8).Text, "") End If 'SUBTOTAL From d401ee8be3ebd3d83b7ed93fba9e427b2cdf26a5 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 13 Aug 2020 16:21:07 -0700 Subject: [PATCH 29/30] -tama;o del grid de desapartado --- Inventarios/Apartados.aspx | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Inventarios/Apartados.aspx b/Inventarios/Apartados.aspx index 2661d78f5..a64a30f2b 100644 --- a/Inventarios/Apartados.aspx +++ b/Inventarios/Apartados.aspx @@ -397,11 +397,11 @@ <%--GV DATOS APARTADOS--%>
    -
    +
    - + From bae917feabcf29901d3cb7fdb31a53fb6c5ef237 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 13 Aug 2020 16:21:50 -0700 Subject: [PATCH 30/30] -- seccionalmacen en el desapartado automatico --- Inventarios/EntregaAlmacen.aspx.vb | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 093b01a9f..0c025cc20 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -2128,6 +2128,8 @@ Partial Class Inventarios_EntregaAlmacen CveMovimientoSalida = DtTraspasos.FiltroPrimeroValor("CveMovimientoSalida", $"CveAlmacen = {Dr1("CveAlmacen")}").ToEntero If Not CveMovimientoSalida > 0 Then + + CveMovimientoSalida = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString.ToEntero, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, Modulo:="RE/G3") @@ -2149,6 +2151,12 @@ Partial Class Inventarios_EntregaAlmacen DtTraspasos.Rows.Add(DrMovto) End If + Dim CveSeccionAlmacen As Integer = -1 + If CBool(Dr("AplicaSeccion")) Then + CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, Dr1("CveAlmacen").ToString.ToEntero, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero + Else + CveSeccionAlmacen = -1 + End If CantidadPendiente = If(Dr1("ExistenciaFinal").ToString.ToDecimal > CantidadSaldo, CantidadSaldo, Dr1("ExistenciaFinal").ToString.ToDecimal) @@ -2157,7 +2165,7 @@ Partial Class Inventarios_EntregaAlmacen CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), - CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then + CveSeccionAlmacen:=CveSeccionAlmacen) Then ErrorMovInv = True TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.") Exit For