diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index 80ab83c67..de2c67ba8 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -979,13 +979,13 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState End If If DTUM.Count > 0 Then - DtPSRetorno = New DataView(DTUM.OrderBy(Function(a) a!Nombre).CopyToDataTable).ToTable(True, {"CveSATUnidadMedida", "ClaveNombre"}) + DtPSRetorno = New DataView(DTUM.OrderBy(Function(a) a!Nombre).CopyToDataTable).ToTable(True, {"CveUnidadMedidaSAT", "ClaveNombre"}) Else DtPSRetorno = Nothing End If If DtPSRetorno IsNot Nothing AndAlso DtPSRetorno.Rows.Count > 0 Then - DtPSRetorno.Columns("CveSATUnidadMedida").ColumnName = "id" + DtPSRetorno.Columns("CveUnidadMedidaSAT").ColumnName = "id" DtPSRetorno.Columns("ClaveNombre").ColumnName = "text" retorno = JsonConvert.SerializeObject(DtPSRetorno).ToString context.Response.Write(retorno) diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 9b7939b2c..a80f0bc98 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -2652,10 +2652,12 @@ Partial Class Bancos_ProveedoresAbonar 'cuando es cheque If DdlTipoTransaccion.SelectedValue = "1" Then ChkAbonoCuenta.Visible = True - + TxtPagueseA.Enabled = True Else ChkAbonoCuenta.Visible = False + TxtPagueseA.Enabled = False + End If If DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(9, 17) Then diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 468820bed..2c8b5f753 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -11176,7 +11176,7 @@ Partial Class Compras_Compras 'SI UM NO ESTA REGISTRADA If e.Row.DBCampo("CveUM").ToString.ToEntero <= 0 Then - e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("onclick", $"FncUMEquivalencias(1,'{e.Row.DBCampo("UM").Replace("'", "")}',{e.Row.RowIndex},'{DtEquivalencias.FiltroPrimeroValor("UnidadMedida", "UnidadBase = 1")}','{e.Row.DBCampo("CveSATUnidadMedida")}','{e.Row.DBCampo("SATClaveUnidadMedida")}')") + e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("onclick", $"FncUMEquivalencias(1,'{e.Row.DBCampo("UM").Replace("'", "")}',{e.Row.RowIndex},'{DtEquivalencias.FiltroPrimeroValor("UnidadMedida", "UnidadBase = 1")}','{e.Row.DBCampo("CveUnidadMedidaSAT")}','{e.Row.DBCampo("SATClaveUnidadMedida")}')") e.Row.FCLabel("LtlUnidadMedida").CssClass = "label label-danger manita centrarUM" e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("data-toggle", "tooltip") e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("title", "Unidad de medida SIN registrar") @@ -11197,7 +11197,7 @@ Partial Class Compras_Compras End If Else 'SIN EQUIVALENCIA - e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("onclick", $"FncUMEquivalencias(3,'{e.Row.DBCampo("UM").Replace("'", "")}',{e.Row.RowIndex},'{DtEquivalencias.FiltroPrimeroValor("UnidadMedida", "UnidadBase = 1")}','{e.Row.DBCampo("CveSATUnidadMedida")}','{e.Row.DBCampo("SATClaveUnidadMedida")}')") + e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("onclick", $"FncUMEquivalencias(3,'{e.Row.DBCampo("UM").Replace("'", "")}',{e.Row.RowIndex},'{DtEquivalencias.FiltroPrimeroValor("UnidadMedida", "UnidadBase = 1")}','{e.Row.DBCampo("CveUnidadMedidaSAT")}','{e.Row.DBCampo("SATClaveUnidadMedida")}')") e.Row.FCLabel("LtlUnidadMedida").CssClass = "label label-danger manita centrarUM" e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("data-toggle", "tooltip") e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("title", "Unidad de medida SIN equivalencia") @@ -11549,7 +11549,7 @@ Partial Class Compras_Compras 'SAT TmpDT.Columns.Add("CveSATPS", GetType(Integer)) TmpDT.Columns.Add("SATClaveProductoServicio", GetType(String)) - TmpDT.Columns.Add("CveSATUnidadMedida", GetType(Integer)) + TmpDT.Columns.Add("CveUnidadMedidaSAT", GetType(Integer)) TmpDT.Columns.Add("SATClaveUnidadMedida", GetType(String)) 'Tipo de Gasto @@ -11661,7 +11661,7 @@ Partial Class Compras_Compras 'SAT TmpDTOriginal.Columns.Add("CveSATPS", GetType(Integer)) TmpDTOriginal.Columns.Add("SATClaveProductoServicio", GetType(String)) - TmpDTOriginal.Columns.Add("CveSATUnidadMedida", GetType(Integer)) + TmpDTOriginal.Columns.Add("CveUnidadMedidaSAT", GetType(Integer)) TmpDTOriginal.Columns.Add("SATClaveUnidadMedida", GetType(String)) 'Tipo de Gasto diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index 16798628d..5028ae5f6 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/Contabilidad/RegPrePoliza.aspx.vb @@ -202,7 +202,6 @@ Partial Class ContabilidadC_RegPrePoliza Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then - Tick = DateTime.Now.Ticks.ToString If UsuarioActual.Empresa.TipoContabilizacion = 1 OrElse UsuarioActual.Empresa.TipoContabilidad = 1 Then Response.Redirect(Request.Url.PathAndQuery.Replace("RegPrePoliza", "RegPrePolizaS")) @@ -1778,6 +1777,7 @@ Partial Class ContabilidadC_RegPrePoliza Dim ObjIE As New ClsBancos() Dim pathPoliza As String = "" Dim TieneComprobante As Boolean + Tick = DateTime.Now.Ticks.ToString Try TieneComprobante = VerificarComprobante() @@ -1859,20 +1859,18 @@ Partial Class ContabilidadC_RegPrePoliza End If End If Next - MergePdfFiles(Pathpdf.ToArray) - If File.Exists(pathPoliza) Then - Directory.Delete(String.Format("{0}{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True) - End If - Else Alert("No se tiene cargado comprobante de pago", TipoMensaje.MsgAdvertencia) End If - Catch ex As Exception Alert("Error al descargar el paquete", TipoMensaje.MsgError) End Try + + If Directory.Exists(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick)) Then + Directory.Delete(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True) + End If ObjCompra.Dispose() ObjIE.Dispose() End Sub diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 2c82e48bf..c47ca9b94 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -2047,6 +2047,9 @@ Partial Class ContabilidadC_RegPrePolizaS If UsuarioActual.CveEmpresa = 119 Then params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre"))) End If + If UsuarioActual.CveEmpresa = 140 Then + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + End If If Archivo.Exists Then ruta = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc" Else diff --git a/Contratos/FacturacionMasiva.aspx.vb b/Contratos/FacturacionMasiva.aspx.vb index b9f676193..7e2e5216f 100644 --- a/Contratos/FacturacionMasiva.aspx.vb +++ b/Contratos/FacturacionMasiva.aspx.vb @@ -566,13 +566,13 @@ Partial Class Contratos_FacturacionMasiva DtR("Cantidad") = row("CantidadContratada") DtR("CveUM") = row("CveUM") DtR("UM") = row("UM") - DtR("SATClaveUM") = row("SATClaveUM") + DtR("SATClaveUM") = row("SATClaveUnidadMedida") DtR("CveClasificacion") = row("CveClasificacion") DtR("Clasificacion") = row("Clasificacion") DtR("CvePS") = row("CvePS") DtR("PS") = row("PS") DtR("CodigoPS") = row("CodigoPS") - DtR("SATClaveProdServ") = row("SATClaveProdServ") + DtR("SATClaveProdServ") = row("SATClavePS") DtR("NoIdentificacion") = row("NoIdentificacion") DtR("CveTipoPS") = drPS("CveTipoPS") DtR("CveTipoInvPS") = drPS("Inv_CveMetodoInventario") diff --git a/CxC/RepCxCDetalle.aspx b/CxC/RepCxCDetalle.aspx index d20c79363..72a3d882d 100644 --- a/CxC/RepCxCDetalle.aspx +++ b/CxC/RepCxCDetalle.aspx @@ -434,13 +434,14 @@ <%----%> - + - + + @@ -506,8 +507,7 @@ - - + @@ -515,7 +515,7 @@ - + @@ -525,9 +525,10 @@ - + - + + @@ -535,9 +536,9 @@ - + - + @@ -545,9 +546,9 @@ - + - + @@ -555,57 +556,57 @@ - + + + - - - + - - + - - + - + - - + - + + - - - + + + + - + + + + - - diff --git a/CxC/RepCxCDetalle.aspx.vb b/CxC/RepCxCDetalle.aspx.vb index 1ebca9cb7..c166a273a 100644 --- a/CxC/RepCxCDetalle.aspx.vb +++ b/CxC/RepCxCDetalle.aspx.vb @@ -534,47 +534,47 @@ Partial Class RepCxCDetalle End If If ChkTotal.Checked Then + GvDatos.Columns(9).Visible = True + SePersonalizo = 1 + Else + GvDatos.Columns(9).Visible = False + End If + + If ChkSubTotal.Checked Then GvDatos.Columns(3).Visible = True SePersonalizo = 1 Else GvDatos.Columns(3).Visible = False End If - If ChkSubTotal.Checked Then - GvDatos.Columns(4).Visible = True - SePersonalizo = 1 - Else - GvDatos.Columns(4).Visible = False - End If - If ChkIVA.Checked Then - GvDatos.Columns(5).Visible = True - SePersonalizo = 1 - Else - GvDatos.Columns(5).Visible = False - End If - - If ChkDescuento.Checked Then GvDatos.Columns(6).Visible = True SePersonalizo = 1 Else GvDatos.Columns(6).Visible = False End If + If ChkDescuento.Checked Then + GvDatos.Columns(4).Visible = True + SePersonalizo = 1 + Else + GvDatos.Columns(4).Visible = False + End If + If ChkAmortizacion.Checked Then + GvDatos.Columns(5).Visible = True + SePersonalizo = 1 + Else + GvDatos.Columns(5).Visible = False + End If + + If ChkRetIVA.Checked Then GvDatos.Columns(7).Visible = True SePersonalizo = 1 Else GvDatos.Columns(7).Visible = False End If - If ChkRetIVA.Checked Then - GvDatos.Columns(8).Visible = True - SePersonalizo = 1 - Else - GvDatos.Columns(8).Visible = False - End If - If ChkRetISR.Checked Then GvDatos.Columns(9).Visible = True SePersonalizo = 1 diff --git a/Empresas/140/Formatos/Polizas.rdlc b/Empresas/140/Formatos/Polizas.rdlc new file mode 100644 index 000000000..ffc1b50d8 --- /dev/null +++ b/Empresas/140/Formatos/Polizas.rdlc @@ -0,0 +1,2255 @@ + + + 0 + + + + System.Data.DataSet + /* Local Connection */ + + 7ef92796-1755-4a85-b80c-8c8266256a94 + + + + + + DataSet1 + /* Local Query */ + + + + Id + System.Int32 + + + Fecha + System.DateTime + + + TipoPoliza + System.String + + + NombreCuenta + System.String + + + CodigoCuenta + System.String + + + Numero + System.Int32 + + + Folio + System.Int32 + + + Referencia + System.String + + + Concepto + System.String + + + ConceptoPoliza + System.String + + + TipoMovto + System.Int32 + + + Cargos + System.String + + + Abonos + System.String + + + SegNeg + System.String + + + Cargo + System.Decimal + + + Abono + System.Decimal + + + Codigo + System.String + + + NombreUsuario + System.String + + + + DataSet1 + C:\inetpub\wwwroot\ADSistemas\Ventas.root\Reportes\DataSet1.xsd + DataTable1 + + + + + + + + + + + + + + + 2.15421cm + + + 2.15421cm + + + 2.15421cm + + + 2.15421cm + + + 2.15421cm + + + 2.15421cm + + + 2.15421cm + + + 2.15421cm + + + 2.15421cm + + + + + 0.6cm + + + + + true + true + + + + + + + + + + + + Textbox1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox2 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox3 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox34 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox25 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox17 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox5 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.6cm + + + + + true + true + + + + + Concepto: + + + + =Fields!ConceptoPoliza.Value + + + + + + + Textbox103 + + + 2pt + 2pt + 2pt + 2pt + + + 7 + + + + + + + + + + + + true + true + + + + + Fecha: + + + + =Fields!Fecha.Value + + + + + + + Textbox107 + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.6cm + + + + + true + true + + + + + Referencia + + + + + + + Textbox15 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cuenta + + + + + + + Textbox16 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Concepto + + + + + + + Textbox28 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + 4 + + + + + + + + + true + true + + + + + Sucursal + + + + + + + Textbox46 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cargos + + + + + + + Textbox52 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Abonos + + + + + + + Textbox66 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.37063cm + + + + + true + + + + + =Fields!Referencia.Value + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + + + + + =Fields!CodigoCuenta.Value + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + =Fields!NombreCuenta.Value + + + + + + + Cuenta1 + + + 1pt + 1pt + 1pt + 1pt + + + 4 + + + + + + + + + true + true + + + + + =Fields!SegNeg.Value + + + + + + + SegNeg + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + + + + + =Fields!Cargo.Value + + + + + + + Cargo + + =iif(Fields!TipoMovto.Value = "1", true, false) + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + + + + + =Fields!Abono.Value + + + + + + + Abono + + =iif(Fields!TipoMovto.Value = "0", true, false) + + + + 1pt + 1pt + 1pt + 1pt + es-MX + + + + + + + + 0.41479cm + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + =Fields!Concepto.Value + + + + + + + Concepto + + + 1pt + 1pt + 1pt + 1pt + + + 4 + + + + + + + + + true + true + + + + + + + + + + + + Textbox6 + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + + Textbox114 + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + + Textbox115 + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Code.IsNewPage(Fields!Id.Value,nothing,nothing) + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + =Fields!NombreUsuario.Value + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + Totales: + + + + + + + Textbox11 + + + + Black + + 1pt + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + =Sum(Fields!Cargo.Value) + + + + + + + Textbox12 + + + + + + 1pt + 1pt + 1pt + 1pt + en-US + + + + + + + + true + true + + + + + =Sum(Fields!Abono.Value) + + + + + + + Abono + + + + + + 1pt + 1pt + 1pt + 1pt + en-US + + + + + + + + + + + + + + + + + + + + + + + + + + + =Fields!Fecha.Value + =Fields!TipoPoliza.Value + =Fields!Numero.Value + =Fields!ConceptoPoliza.Value + + + End + true + + + + =Fields!NombreUsuario.Value + + + + + + =Fields!Folio.Value + + + + + After + + + After + + + After + + + + + + + + + + Before + + + + + + true + DataSet1 + + End + true + + 0.05076cm + 3.18542cm + 19.38789cm + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 5.82055cm + + + + + + + + + Impreso de póliza + + + + + + + + + =UCase(Parameters!TipoPoliza.Value) + + + + + + + Textbox4 + 0.19844cm + 2.10635in + 1.6616cm + 9.94376cm + + + 2pt + 2pt + + + + Embedded + Logo + FitProportional + 0.00896cm + 2.5433cm + 4.13cm + 1 + + + + + + + + + + + 0.7827cm + true + true + + + true + true + + + + + Fecha Impresión: + + + + + + + + =Now() + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página: " & Globals!PageNumber + + + + + + + Textbox35 + 0.13103cm + 16.24302cm + 0.46771cm + 2.8175cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario Imprimio: + + + + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 1.25pt + + + + 27.94cm + 21.59cm + 0.5cm + 0.5cm + 0.5cm + 0.5cm + 0.03cm +