From f068d86220f640f330b03d21388a61f5fcf345a4 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 22 Feb 2025 16:47:23 -0700 Subject: [PATCH 01/48] =?UTF-8?q?--unificaci=C3=B3n=20de=20funci=C3=B3n=20?= =?UTF-8?q?para=20env=C3=ADo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ashx/TareasProgramadas.ashx | 118 ++++++++- TareasProgramadas/TareasReporteDiario.ashx | 294 --------------------- 2 files changed, 110 insertions(+), 302 deletions(-) delete mode 100644 TareasProgramadas/TareasReporteDiario.ashx diff --git a/Ashx/TareasProgramadas.ashx b/Ashx/TareasProgramadas.ashx index 11eaff1b9..d93f99402 100644 --- a/Ashx/TareasProgramadas.ashx +++ b/Ashx/TareasProgramadas.ashx @@ -11,7 +11,7 @@ Imports CrystalDecisions.CrystalReports.Engine Imports CrystalDecisions.Shared Imports Microsoft.Reporting.WebForms -Public Class TareasProgramadas : Implements IHttpHandler +Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState Private ReadOnly Property GlobalDTUsuariosE140(Optional CveUsuario As Integer = -1, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1) As DataTable @@ -95,12 +95,16 @@ Public Class TareasProgramadas : Implements IHttpHandler CargaEstadosCuenta(context, 119, -1, FechaEnvio, FechaActual) Case "ScoreCard" - CargaScoreCard(context, 140, FechaEnvio) + CargaScoreCard(context, 140, FechaEnvio) + Case "EjecutaReporteDiario" + Dim tCveEmpresa As Integer = context.Request("CveEmpresa").ToString.ToEntero + retorno = If(ReporteDiario(tCveEmpresa, context), "True", "false") + context.Response.Write(retorno) End Select Catch ex As Exception ex.GuardaLog(ex.ToString()) context.Response.Write(retorno) - End Try + End Try End Sub @@ -332,7 +336,7 @@ Public Class TareasProgramadas : Implements IHttpHandler If DtEmpresas IsNot Nothing Then For Each Row As DataRow In DtEmpresas.Rows - Dim Usuario As Usuario = ValidaUsuarioSistema(Row("CveEmpresa").ToString().ToEntero()) + Dim Usuario As Usuario = ValidaUsuarioSistema(100, Row("CveEmpresa").ToString().ToEntero()) Dim obj As JObject = EjecutarEnvioEstadoCuenta(Usuario, FechaEnvio, FechaActual, pCveCliente:=pCveCliente) Retorno.Add(obj) @@ -347,11 +351,11 @@ Public Class TareasProgramadas : Implements IHttpHandler End Sub - Private Function ValidaUsuarioSistema(CveEmpresa As Integer) As Usuario + Private Function ValidaUsuarioSistema(CveUsuario As Integer, CveEmpresa As Integer) As Usuario Dim UsuarioActual As Usuario = Nothing Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexion(CveEmpresa) Dim ObjUsuarios As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena) - UsuarioActual = ObjUsuarios.GetUsuarioDetalle(100) + UsuarioActual = ObjUsuarios.GetUsuarioDetalle(CveUsuario, CveEmpresa) If UsuarioActual IsNot Nothing Then HttpContext.Current.Session("UsuarioSIG") = UsuarioActual 'CreaObjetoEmpresa(UsuarioActual) @@ -874,7 +878,7 @@ Public Class TareasProgramadas : Implements IHttpHandler #Region "S C O R E C A R D" Private Sub CargaScoreCard(ByVal context As HttpContext, pCveEmpresa As Integer, FechaEnvio As DateTime) - Dim Usuario As Usuario = ValidaUsuarioSistema(pCveEmpresa) + Dim Usuario As Usuario = ValidaUsuarioSistema(100, pCveEmpresa) Dim obj As Boolean = EjecutarEnvioScoreCard(Usuario, FechaEnvio) End Sub @@ -1298,4 +1302,102 @@ Public Class TareasProgramadas : Implements IHttpHandler End Function #End Region -End Class \ No newline at end of file +#Region "R E P O R T E D I A R I O " + Private Function ReporteDiario(ByVal CveEmpresa As Integer, ByVal context As HttpContext) As Boolean + Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa) + Dim objGenerales As ClsGenerales = New ClsGenerales() + Dim respuesta As Boolean = True + Dim sbTablas As StringBuilder = New StringBuilder() + sbTablas.Append($"
Reporte Diario {DateTime.Now.ToString("dd/MM/yyyy HH:mm:ss")}


") + + If objGenerales.GetReporteDiario(CveEmpresa) Then + Dim TablaActual As Integer = 1 + + For Each tabla As DataTable In objGenerales.DSResultados.Tables + sbTablas.AppendLine(ConvertDataTableToHtml(tabla)) + TablaActual += 1 + sbTablas.Append("
") + sbTablas.Append("
") + Next + Else + respuesta = False + End If + + objGenerales.Dispose() + 'MandaCorreoDiario + 'Dim Correos As String = "hdiaz@grupodiaz.com.mx;libarra@grupodiaz.com.mx;jguerrero@grupodiaz.com.mx;contabilidad@grupodiaz.com.mx;cnazarit@yahoo.com;julian@adsistemas.mx;rene.molina@adssistemas.mx" + Dim Correos As String = " rene.molina@adssistemas.mx" + MandaCorreoDiario(sbTablas.ToString(), Correos, respuesta) + Return respuesta + End Function + + Private Function ConvertDataTableToHtml(ByVal table As DataTable) As String + Dim html As StringBuilder = New StringBuilder() + Dim ColumnaTitulo As String = "Titulo" + html.Append("") + If table.Columns(0).ColumnName = ColumnaTitulo AndAlso table.Rows.Count > 0 Then html.AppendFormat(" ", table.Rows(0)(ColumnaTitulo)) + html.Append("") + + For Each column As DataColumn In table.Columns + If ColumnaTitulo <> column.ColumnName Then html.Append($"") + Next + + html.Append("") + html.Append("") + Dim numericValue As Decimal = Nothing + + For Each row As DataRow In table.Rows + html.Append("") + + For Each column As DataColumn In table.Columns + + If ColumnaTitulo <> column.ColumnName Then + Dim value As Object = row(column) + Dim cellValue As String + + If column.DataType = GetType(Integer) OrElse column.DataType = GetType(Decimal) OrElse column.DataType = GetType(Double) OrElse column.DataType = GetType(Single) Then + + If value IsNot DBNull.Value AndAlso Decimal.TryParse(value.ToString(), numericValue) Then + + If numericValue <> 0 Then + cellValue = numericValue.ToString("N2") + Else + cellValue = "" + End If + Else + cellValue = "" + End If + + html.Append($"") + Else + cellValue = If(value?.ToString(), String.Empty) + html.Append($"") + End If + End If + Next + + html.Append("") + Next + + html.Append("") + html.Append("
{0}
{column.ColumnName}
{cellValue}{cellValue}
") + Return html.ToString() + End Function + + Private Sub MandaCorreoDiario(ByVal Cuerpo As String, Correos As String, ByVal ProcesoOK As Boolean) + Try + Dim ListaArchivos As List(Of ClsSisMail.ArchivoMail) = New List(Of ClsSisMail.ArchivoMail)() + Dim Correo As ClsSisMail = New ClsSisMail() + Dim Para As String = Correos '"hdiaz@grupodiaz.com.mx;libarra@grupodiaz.com.mx;jguerrero@grupodiaz.com.mx;contabilidad@grupodiaz.com.mx;cnazarit@yahoo.com;julian@adsistemas.mx;rene.molina@adssistemas.mx" + Dim Asunto As String = If(ProcesoOK, $"Reporte Diario", "Reporte Diario Error") + Asunto = $"{Asunto} {DateTime.Now.ToString("dd/MM/yyyy HH:mm:ss")}" + Correo.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Cuerpo, Archivos:=ListaArchivos) + Me.GuardaLog($"EjecutaReporteDiario: MandaCorreo() correo enviado. ") + Catch ex As Exception + Extensiones.ModExtensiones.GuardaLog(Nothing, $"Error Tareas Programadas 119 error enviar mail --> {ex.Message} ") + Me.GuardaLog($"EjecutaReporteDiario: MandaCorreo() Error {ex.StackTrace.ToString()}. ") + End Try + End Sub +End Class +#End Region + \ No newline at end of file diff --git a/TareasProgramadas/TareasReporteDiario.ashx b/TareasProgramadas/TareasReporteDiario.ashx deleted file mode 100644 index 2e0b676eb..000000000 --- a/TareasProgramadas/TareasReporteDiario.ashx +++ /dev/null @@ -1,294 +0,0 @@ -<%@ WebHandler Language="C#" Class="TareasReporteDairio" %> - -using System; -using System.Web; -using Extensiones; -using System.Net; -using System.IO; -using System.Web.Services; -using System.Web.Services.Protocols; -using GemBox.Spreadsheet; -using System.Data; -using System.Text; -using System.Collections.Generic; -using ClosedXML; - -using System.Web.SessionState; -using System.Web.Hosting; - -public class TareasReporteDairio : IHttpHandler -{ - - public void ProcessRequest(HttpContext context) - { - context.Response.ContentType = "text/plain"; - //context.Response.Write("Hello World"); - bool retorno = false; - string Metodo = context.Request["Metodo"] ==null?"": context.Request["Metodo"]; - int CveEmpresa =context.Request["CveEmpresa"] ==null?0: context.Request["CveEmpresa"].ToEntero(); - switch (Metodo) - { - case "EjecutaReporteDiario": - retorno = ReporteDiario(CveEmpresa, context); - break; - default: - break; - } - - if (retorno) - { - context.Response.Write("True"); - - }else - { - context.Response.Write("False"); - - } - - context.Response.End(); - - } - private bool ReporteDiario(int CveEmpresa, HttpContext context) - { - Usuario Usuario = ValidaUsuarioSistema(100, CveEmpresa); - - ClsGenerales objGenerales = new ClsGenerales(); - bool respuesta = true; - StringBuilder sbTablas = new StringBuilder(); - sbTablas.Append($"
Reporte Diario {DateTime.Now.ToString("dd/MM/yyyy HH:mm:ss")}


"); - - if (objGenerales.GetReporteDiario(CveEmpresa)) - { - int TablaActual = 1; - foreach (DataTable tabla in objGenerales.DSResultados.Tables) - { - sbTablas.AppendLine(ConvertDataTableToHtml(tabla)); - TablaActual++; - sbTablas.Append("
"); - sbTablas.Append("
"); - } - } - else - { - respuesta = false; - } - - objGenerales.Dispose(); - - MandaCorreo(sbTablas.ToString(), respuesta); - - return respuesta; - } - - private string ConvertDataTableToHtml(DataTable table) - { - StringBuilder html = new StringBuilder(); - string ColumnaTitulo = "Titulo"; - html.Append(""); - if(table.Columns[0].ColumnName==ColumnaTitulo && table.Rows.Count > 0) html.AppendFormat(" ", table.Rows[0][ColumnaTitulo]); - - html.Append(""); - foreach (DataColumn column in table.Columns) - { - if (ColumnaTitulo != column.ColumnName) html.Append($""); - } - html.Append(""); - - html.Append(""); - foreach (DataRow row in table.Rows) - { - html.Append(""); - foreach (DataColumn column in table.Columns) - { - if (ColumnaTitulo != column.ColumnName) - { - object value = row[column]; - string cellValue; - if (column.DataType == typeof(int) || column.DataType == typeof(decimal) || column.DataType == typeof(double) || column.DataType == typeof(float)) - { - if (value != DBNull.Value && decimal.TryParse(value.ToString(), out decimal numericValue)) - { - if (numericValue != 0) - { - cellValue = numericValue.ToString("N2"); - } - else - { - cellValue = "";//0.00 - } - } - else - { - cellValue = "";//0.00 - } - html.Append($""); - } - else - { - cellValue = value?.ToString() ?? string.Empty; - html.Append($""); - } - } - - } - html.Append(""); - } - html.Append(""); - - // Cerrar la tabla - html.Append("
{0}
{column.ColumnName}
{cellValue}{cellValue}
"); - - return html.ToString(); - } - - - - - //private string ConvertDataTableToHtml(DataTable table) - //{ - // StringBuilder html = new StringBuilder(); - - // html.Append(""); - - // html.Append(""); - // foreach (DataColumn column in table.Columns) - // { - // html.Append($""); - // } - // html.Append(""); - - - // html.Append(""); - // foreach (DataRow row in table.Rows) - // { - // html.Append(""); - // foreach (DataColumn column in table.Columns) - // { - // html.Append($""); - // } - // html.Append(""); - // } - // html.Append(""); - - - // html.Append("
{column.ColumnName}
{row[column]}
"); - - // return html.ToString(); - //} - - - private void MandaCorreo(string Cuerpo, bool PrceosoOK) - { - try - { - List ListaArchivos = new List(); - ClsSisMail Correo = new ClsSisMail(); - //string Para = "julian@adssistemas.mx;rene.molina@adssistemas.mx;oscar.irigoyen@adssistemas.mx"; - - //string Para = "rene.molina@adssistemas.mx"; // oscar.irigoyen@adssistemas.mx; - string Para = "hdiaz@grupodiaz.com.mx;libarra@grupodiaz.com.mx;jguerrero@grupodiaz.com.mx;contabilidad@grupodiaz.com.mx;cnazarit@yahoo.com;julian@adsistemas.mx;rene.molina@adssistemas.mx"; - - string Asunto = PrceosoOK ? $"Reporte Diario":"Reporte Diario Error"; - Asunto = $"{Asunto} {DateTime.Now.ToString("dd/MM/yyyy HH:mm:ss")}"; - - Correo.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Cuerpo, Archivos:ListaArchivos); - this.GuardaLog($"EjecutaReporteDiario: MandaCorreo() correo enviado. "); - - }catch(Exception ex) - { - Extensiones.ModExtensiones.GuardaLog(null,$"Error Tareas Programadas 119 error enviar mail --> {ex.Message} "); - this.GuardaLog($"EjecutaReporteDiario: MandaCorreo() Error {ex.StackTrace.ToString()}. "); - } - } - - - - - private Usuario ValidaUsuarioSistema(int CveUsuario, int CveEmpresa) - { - Usuario UsuarioActual = null/* TODO Change to default(_) if this is not a reference type */; - - string NombreCadena = ClsPaginas.get_GlobalNombreCadenaConexion(CveEmpresa); - ClsSisUsuarioAutenticacion ObjUsuarios = new ClsSisUsuarioAutenticacion(NombreCadena:NombreCadena); - UsuarioActual = ObjUsuarios.GetUsuarioDetalle(CveUsuario); - - if (UsuarioActual != null) - { - if( HttpContext.Current.Session == null) - { - // CrearHttpContextArtificial(); - CrearHttpContextConSession(); - } - HttpContext.Current.Session["UsuarioSIG"] = UsuarioActual; - } - - ObjUsuarios.Dispose(); - return UsuarioActual; - } - - - - - public static void CrearHttpContextConSession() - { - //CrearHttpContextArtificial(); - - // Para agregar soporte de sesión, debemos inicializar el manejador de sesión - var sessionContainer = new HttpSessionStateContainer("id", - new SessionStateItemCollection(), - new HttpStaticObjectsCollection(), - 10, - true, - HttpCookieMode.AutoDetect, - SessionStateMode.InProc, - false); - - SessionStateUtility.AddHttpSessionStateToContext(HttpContext.Current, sessionContainer); - } - - - private bool VerificarArchivo(FileInfo FInfo, long Tamanio, string FTPServer, string FTPUsr, string FTPPass) - { - bool Respuesta = false; - - - try - { - this.GuardaLog($"EjecutaThalamus: VerificarArchivo() conectando a FTP ."); - FtpWebRequest request = (FtpWebRequest)WebRequest.Create($"{FTPServer}/{FInfo.Name}"); - request.Credentials = new NetworkCredential(FTPUsr, FTPPass); - request.Method = WebRequestMethods.Ftp.GetFileSize; - request.UseBinary = true; - FtpWebResponse loginresponse = (FtpWebResponse)request.GetResponse(); - FtpWebResponse respSize = (FtpWebResponse)request.GetResponse(); - respSize = (FtpWebResponse)request.GetResponse(); - long size = respSize.ContentLength; - respSize.Close(); - - this.GuardaLog($"EjecutaThalamus: VerificarArchivo() tamaño local {Tamanio} ftp { size}. "); - if (Tamanio == size) - { - Respuesta = true; - this.GuardaLog($"EjecutaThalamus: VerificarArchivo() tamaño ok. "); - } - - }catch(Exception ex) - { - - Extensiones.ModExtensiones.GuardaLog(null,$"Error Tareas Programadas 119 verificando archivo { FInfo.Name } {ex.Message} "); - this.GuardaLog($"EjecutaThalamus: VerificarArchivo() Error {ex.StackTrace.ToString()}. " ); - - Respuesta = false; - } - - return Respuesta; - } - - - - public bool IsReusable - { - get { return false; } - } - -} \ No newline at end of file From 1e4852891d66da7ce73dead7912b4a297d1e0b62 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 22 Feb 2025 17:20:24 -0700 Subject: [PATCH 02/48] - --- Ashx/SIGFacturacion.ashx | 2 +- Ashx/TareasProgramadas.ashx | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Ashx/SIGFacturacion.ashx b/Ashx/SIGFacturacion.ashx index b549c0ccd..dc63aff2a 100644 --- a/Ashx/SIGFacturacion.ashx +++ b/Ashx/SIGFacturacion.ashx @@ -31,7 +31,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState pFechaI = context.Request("FechaI") pFechaF = context.Request("FechaF") End If - + If context.Request("CveEmpresa") IsNot Nothing Then CveEmpresaFacturar = context.Request("CveEmpresa").ToString.ToEntero Retorno = IniciaFacturacionMasiva(CveEmpresaFacturar.ToString, pFechaI, pFechaF) End If GuardaLogFacturacion(" -------------------------- Fin de Petición Metodo:" & Metodo & " --------------------------") diff --git a/Ashx/TareasProgramadas.ashx b/Ashx/TareasProgramadas.ashx index d93f99402..d92128d64 100644 --- a/Ashx/TareasProgramadas.ashx +++ b/Ashx/TareasProgramadas.ashx @@ -1325,8 +1325,8 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState objGenerales.Dispose() 'MandaCorreoDiario - 'Dim Correos As String = "hdiaz@grupodiaz.com.mx;libarra@grupodiaz.com.mx;jguerrero@grupodiaz.com.mx;contabilidad@grupodiaz.com.mx;cnazarit@yahoo.com;julian@adsistemas.mx;rene.molina@adssistemas.mx" - Dim Correos As String = " rene.molina@adssistemas.mx" + Dim Correos As String = "hdiaz@grupodiaz.com.mx;libarra@grupodiaz.com.mx;jguerrero@grupodiaz.com.mx;contabilidad@grupodiaz.com.mx;cnazarit@yahoo.com;julian@adsistemas.mx;rene.molina@adssistemas.mx" + ' Dim Correos As String = " rene.molina@adssistemas.mx" MandaCorreoDiario(sbTablas.ToString(), Correos, respuesta) Return respuesta End Function From d4f25efbfdd329bbe070b2483c495e929ec10ae7 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 22 Feb 2025 17:20:58 -0700 Subject: [PATCH 03/48] - E189 - Devoluciones, con descuento previo de RNC. --- Compras/Compras.aspx | 4 ++-- Compras/Compras.aspx.vb | 45 +++++++++++++++++++++++++++++------------ 2 files changed, 34 insertions(+), 15 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 6f55e7050..00698f6f0 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -1541,9 +1541,9 @@ - + - + diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 4c2820c32..2b3255f1e 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1271,7 +1271,17 @@ Partial Class Compras_Compras ViewState("FechaMovtoDev") = value End Set End Property - + Private Property DevolucionImporteOriginal As Decimal + Get + If ViewState("DevolucionImporteOriginal") Is Nothing Then + ViewState("DevolucionImporteOriginal") = 0 + End If + Return ViewState("DevolucionImporteOriginal").ToString.ToDecimal + End Get + Set(value As Decimal) + ViewState("DevolucionImporteOriginal") = value + End Set + End Property @@ -4432,7 +4442,6 @@ Partial Class Compras_Compras End If Dim TotalRealDevolucion As Decimal = 0 - Dim EstatusCredito As Integer = 0 Dim CveSubProyecto As Integer = 0 'Credito Multiple @@ -6873,7 +6882,6 @@ Partial Class Compras_Compras ErrorMovInv = True Exit For End If - ' Dim DifTC As Decimal = tipoCambioActual - Gvr.DataKey("TipoCambio").ToDecimal 'diferenciaTransito = DifTC * (Gvr.DataKey("IVA").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal) 'diferenciaTransito += DifTC * (Gvr.DataKey("IEPSPS").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal) @@ -6881,7 +6889,6 @@ Partial Class Compras_Compras ImporteTransito += importeMNTemp CveCompraAmortizacion = Gvr.DataKey("CveCompra").ToEntero 'se registra por cada compra relacionada - End If Next @@ -6927,14 +6934,27 @@ Partial Class Compras_Compras DiferenciaDevolucion = -DiferenciaDevolucion End If If UsuarioActual.Empresa.Funcionalidad(574) = "1" Then ' las devoluciones, que tengan descuento por rnc, debe de descontar del saldo de la factura aplicada - tConceptoDiferencia = 272 - tCveCompraAmortizacion = tCveCompra - If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then - tCveCompra = ObjConta.DtResultados.FiltroPrimeroValor("CveCompraAmortizacion", "CveConceptoContable = 60").ToEntero 'a aplicación de la nc + Dim DiferenciaSaldo As Decimal = DevolucionImporteOriginal ''If(DdlMoneda.SelectedValue.ToEntero <> 1, (importeMovimiento * TxtTC.Text.ToDecimal), importeMovimiento) - DevolucionImporteOriginal + + If DiferenciaSaldo <> 0 Then + DiferenciaDevolucion += DiferenciaSaldo ' si hay diferencia se manda al costo + Dim DiferenciaBonif As Decimal = DiferenciaSaldo * (PorcentajeIVA) 'se saca el iva de la dif + DiferenciaSaldo = -DiferenciaSaldo * (1 + PorcentajeIVA) 'se invierte su aplicación + + tCveCompraAmortizacion = tCveCompra + If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then + tCveCompra = ObjConta.DtResultados.FiltroPrimeroValor("CveCompraAmortizacion", "CveConceptoContable = 60").ToEntero 'a aplicación de la nc + End If + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, DiferenciaSaldo, DiferenciaSaldo, 272, Referencia, Concepto, CveCompra:=tCveCompra, CveCompraAmortizacion:=tCveCompraAmortizacion, CveProveedor:=CveProveedorConcepto, ImporteME:=If(tipoCambioActual = 1, 0, DiferenciaDevolucion), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza, CveSubProyecto:=tCveSubProyecto, CveClasificacion:=tCveClasif) Then + ErrorPrepoliza = True + End If + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, DiferenciaBonif, DiferenciaBonif, 259, Referencia, Concepto, CveCompra:=tCveCompra, CveCompraAmortizacion:=tCveCompraAmortizacion, CveProveedor:=CveProveedorConcepto, ImporteME:=If(tipoCambioActual = 1, 0, DiferenciaDevolucion), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza, CveSubProyecto:=tCveSubProyecto, CveClasificacion:=tCveClasif) Then + ErrorPrepoliza = True + End If End If End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, DiferenciaDevolucion, DiferenciaDevolucion, tConceptoDiferencia, Referencia, Concepto, CveCompra:=tCveCompra, CveCompraAmortizacion:=tCveCompraAmortizacion, CveProveedor:=CveProveedorConcepto, ImporteME:=If(tipoCambioActual = 1, 0, DiferenciaDevolucion), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza, CveSubProyecto:=tCveSubProyecto, CveClasificacion:=tCveClasif) Then + If DiferenciaDevolucion <> 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, DiferenciaDevolucion, DiferenciaDevolucion, tConceptoDiferencia, Referencia, Concepto, CveCompra:=tCveCompra, CveCompraAmortizacion:=tCveCompraAmortizacion, CveProveedor:=CveProveedorConcepto, ImporteME:=If(tipoCambioActual = 1, 0, DiferenciaDevolucion), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza, CveSubProyecto:=tCveSubProyecto, CveClasificacion:=tCveClasif) Then ErrorPrepoliza = True End If End If @@ -13992,7 +14012,6 @@ Partial Class Compras_Compras Try Dim subtotaldevolucion As Decimal = 0 Dim realizadevolucion As Boolean = False - 'Calculo los subtotales para comparar con la NC Dim cantidad As Decimal = 0D @@ -14015,14 +14034,13 @@ Partial Class Compras_Compras If Math.Abs(TxtSubTotal2.Text.ToDecimal - subtotaldevolucion) <= tTolerancia Then VinculaDevolucion() - If EsGrupoDiaz AndAlso FechaMovtoDev <> MinFecha AndAlso (FechaMovtoDev >= TxtFecha.Text.ToDate) Then + If FechaMovtoDev <> MinFecha AndAlso (FechaMovtoDev >= TxtFecha.Text.ToDate) Then TxtFecha.Text = FechaMovtoDev.AddDays(1).ToString("dd/MM/yyyy") Alert("La fecha de la devolución se cambiará a una fecha posterior al ingreso.", TipoMensaje.ToastAdventencia) UpParametros.Update() End If - Else - Alert("El Total de la NC debe ser igual al total de la devolucion", TipoMensaje.MsgAdvertencia) + Alert("El Total de la NC debe ser igual al total de la devolución", TipoMensaje.MsgAdvertencia) End If Else Alert("No se ha seleccionado nada para la devolución. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) @@ -14106,6 +14124,7 @@ Partial Class Compras_Compras Dim PSRow As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePSRNC).FiltroPrimero("") Dim PS As String = PSRow("PSCodigo").ToString Dim tDif As Decimal = TxtSubTotal2.Text.ToDecimal - Total + DevolucionImporteOriginal = tDif AddPS(1, PSRow("CveUnidadMedida").ToString.ToEntero, PSRow("UnidadMedida").ToString, PSRow("CveClasificacion").ToString.ToEntero, PSRow("Clasificacion").ToString, CvePSRNC, PS, 1, CveSubProyectoDev.ToString, SubProyecto, "", "-1", "", tDif, tDif, IVAPorcentajeCompra, 0, 0, 0, 0, 0) From 7f237bec64e80684100fa470fa9372d55f9075d0 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 24 Feb 2025 08:42:52 -0700 Subject: [PATCH 04/48] Clientes Abonar Anticipo Dolares Dolares, CP Nom 043 --- App_Code/ClsCompras.vb | 16 ++++++++++++++++ Compras/eFacturas.aspx | 11 ++++++++--- Compras/eFacturas.aspx.vb | 3 +++ Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc | 16 ++++++++-------- Ventas/ClientesAbonar.aspx.vb | 13 ++++++++++--- 5 files changed, 45 insertions(+), 14 deletions(-) diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index c5682ee52..83ca8fdb9 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -3540,6 +3540,22 @@ Public Class ClsCompras Return Retorno End Function + Public Function GetVinculacionRNC(UUID As String, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasMedicosRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@UUID", SqlDbType.VarChar).Value = UUID + .Add("@CveMedico", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar gasto de médico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + #End Region End Class diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx index 577e6b336..19862f6c0 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -106,7 +106,7 @@
- +
@@ -231,6 +231,12 @@ + + +   Prueba + + +
@@ -1362,10 +1368,9 @@

-   Consultar -   Prueba +
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index dcd6b6243..96fd708f7 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -6113,8 +6113,11 @@ Partial Class Compras_eFacturas CompraActual.Descripcion = TxtDescripcionCompra.Text.Trim CompraActual.NombreProveedor = GvRow.DataKey("NombreProveedor") + Dim listaRNC As New List(Of Integer) For Each DR As String In CompraActual.DocumentosRelacionadosUUIDSList + If Objcompras.GetVinculacionRNC(UUID:=DR, CveEmpresa:=UsuarioActual.CveEmpresa) Then + End If Next diff --git a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc index f02dfff7c..987d6d497 100644 --- a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc +++ b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc @@ -4916,19 +4916,19 @@ - 4.56775cm + 1.94544cm - 4.37718cm + 9.84993cm - 2.87158cm + 2.13881cm - 2.93598cm + 1.84139cm - 2.78062cm + 2.05903cm @@ -4957,7 +4957,7 @@ - trasporte + transporte @@ -5298,7 +5298,7 @@ DataSet3 0.06703cm 1cm - 17.53311cm + 17.83459cm @@ -5310,7 +5310,7 @@ 11.49939cm 1.33863cm 1.06703cm - 17.82891cm + 17.83459cm 21 @@ -67,18 +100,17 @@ -
+
-
+
- - + @@ -86,16 +118,54 @@ - + + <%-- + + + + + + + + + --%>
- - -
- - - +
+ Fecha Inicio: + +
+
+
+ + + + +
+ + + + + + +
+
+ Fecha Fin: + +
+
+
+ + + + +
+ + + + + +
-
@@ -120,67 +190,52 @@
- - - -
-
-
+ +
" style="display: inline-block; margin-right: -20px; width: 150px;" /> @@ -221,8 +222,18 @@ CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None"> - - + + <%----%> + + + + Fecha + + + + + + diff --git a/Ventas/RepRemisiones.aspx.vb b/Ventas/RepRemisiones.aspx.vb index 19a3d659f..366aaedd6 100644 --- a/Ventas/RepRemisiones.aspx.vb +++ b/Ventas/RepRemisiones.aspx.vb @@ -130,7 +130,12 @@ Partial Class RepRemisiones e.Row.Cells(2).ForeColor = Drawing.Color.Red End If - e.Row.Cells(1).Text = $"{e.Row.DataKey("Fecha").ToDate().ToString("dd/MM/yyyy HH:mm:ss")}" + 'e.Row.Cells(1).Text = $"{e.Row.DataKey("Fecha").ToDate().ToString("dd/MM/yyyy HH:mm:ss")}" + Dim LnkFecha = e.Row.FCLinkButton("LnkFecha") + LnkFecha.Text = If(UsuarioActual.Empresa.Funcionalidad(578) = "1", e.Row.DataKey("Fecha").ToDate().ToString("dd/MM/yyyy HH:mm"), e.Row.DataKey("Fecha").ToDate().ToString("dd/MM/yyyy HH:mm:ss")) + LnkFecha.Attributes("onclick") = $"window.open('./Ventas.aspx?CveVenta={e.Row.DataKey("CveVenta")}', '_blank'); return false;" + + End If @@ -155,8 +160,8 @@ Partial Class RepRemisiones GvDatos.Columns(7).Visible = True 'columna de fecha GvDatos.Columns(1).HeaderText = "Fecha Cirugía" - CType(GvDatos.Columns(1), HyperLinkField).DataTextFormatString = "{0:dd/MM/yyyy HH:mm}" - CType(GvDatos.Columns(1), HyperLinkField).ItemStyle.Width = Unit.Pixel(120) + 'CType(GvDatos.Columns(1), HyperLinkField).DataTextFormatString = "{0:dd/MM/yyyy HH:mm}" + 'CType(GvDatos.Columns(1), HyperLinkField).ItemStyle.Width = Unit.Pixel(120) GvDatos.Columns(16).Visible = True End If From df21e26eabd51e21d49f2d89fe46ee651270eccc Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 27 Feb 2025 12:25:22 -0700 Subject: [PATCH 15/48] =?UTF-8?q?--=20considerar=20la=20opci=C3=B3n=20NC:?= =?UTF-8?q?=20que=20no=20afecte=20almacen.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx.vb | 27 ++++++++++----------------- 1 file changed, 10 insertions(+), 17 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 2b3255f1e..8ad5465df 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -4399,14 +4399,14 @@ Partial Class Compras_Compras '------------------ INICIA VALIDACIONES ------------------ - If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso UsuarioActual.CveUsuario <> 1803 Then - Dim AnioFactura As Integer = TxtFecha.Text.ToDate.Year - Dim Fecha28Dic As Date = New Date(2024, 12, 28) - If NowADS() >= Fecha28Dic AndAlso TxtFecha.Text.ToDate.Year < 2025 Then - Alert("A partir del 28 de diciembre de 2024 no se pueden registrar facturas de 2024.", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - End If + 'If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso UsuarioActual.CveUsuario <> 1803 Then + ' Dim AnioFactura As Integer = TxtFecha.Text.ToDate.Year + ' Dim Fecha28Dic As Date = New Date(2024, 12, 28) + ' If NowADS() >= Fecha28Dic AndAlso TxtFecha.Text.ToDate.Year < 2025 Then + ' Alert("A partir del 28 de diciembre de 2024 no se pueden registrar facturas de 2024.", TipoMensaje.MsgAdvertencia) + ' Exit Sub + ' End If + 'End If If Not ValidaPresupuesto(2) Then Exit Sub @@ -6500,7 +6500,7 @@ Partial Class Compras_Compras Dim AgregaMercanciaInventario As Boolean = UsuarioActual.Empresa.UsaInventarios If UsuarioActual.CveEmpresa.Contiene(13, 83, 7, 11, 12, 122) Then AgregaMercanciaInventario = False - Dim RegistraConcepto225 As Boolean = AgregaMercanciaInventario AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") + Dim RegistraConcepto225 As Boolean = AgregaMercanciaInventario AndAlso DdlTipoComprobante.SelectedValue.Contiene("DEV") Dim Insertado205 As Boolean = False @@ -7526,7 +7526,6 @@ Partial Class Compras_Compras Next importeMovimiento = 0 End If - End Select If ErrorPrepoliza Then @@ -18220,7 +18219,7 @@ Partial Class Compras_Compras Case "U" 'UPDATE UpdatePS(CveContratoDetalle) - Alert("Concepto actualizado Correctamente.", TipoMensaje.MsgInformacion) + Alert("Concepto actualizado Correctamente.", TipoMensaje.ToastInformacion) RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddProducto")) End Select ActualizaTotales = False @@ -18232,13 +18231,8 @@ Partial Class Compras_Compras GuardaAC() End If - - - - If CveCompra > 0 AndAlso ChkModalDesvincularAF.Checked Then - If Not TmpDT.Columns.Contains("DesvicularAF") Then TmpDT.Columns.Add("DesvicularAF", GetType(Boolean)) End If @@ -18492,7 +18486,6 @@ Partial Class Compras_Compras Exit Sub End Try - 'BANDERA Dim AplicaCalculaTotales As Boolean = False From 6eeea911345547fca8bc9dbbc79c6206df173574 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 27 Feb 2025 12:25:38 -0700 Subject: [PATCH 16/48] - comentar candado EMD registro 2024 --- Compras/eFacturas.aspx.vb | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 96fd708f7..066cf8806 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -1156,12 +1156,12 @@ Partial Class Compras_eFacturas e.Row.FCCheckBox("chkRegistraFactura").Visible = False End If - If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso UsuarioActual.CveUsuario <> 1803 Then - Dim Fecha28Dic As Date = New Date(2024, 12, 28) - If NowADS() >= Fecha28Dic AndAlso e.Row.DBCampo("FechaFactura").ToDate.Year < 2025 Then - e.Row.FCHyperLink("HplAgregar").Visible = False - End If - End If + 'If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso UsuarioActual.CveUsuario <> 1803 Then + ' Dim Fecha28Dic As Date = New Date(2024, 12, 28) + ' If NowADS() >= Fecha28Dic AndAlso e.Row.DBCampo("FechaFactura").ToDate.Year < 2025 Then + ' e.Row.FCHyperLink("HplAgregar").Visible = False + ' End If + 'End If e.Row.FCCheckBox("chkRegistraFactura").Attributes.Add("onclick", "ChkRegsitraFacturas()") From 03e51a2d608120ed18f5d21ab2c698c454787bfe Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 27 Feb 2025 12:26:24 -0700 Subject: [PATCH 17/48] =?UTF-8?q?-=20correcci=C3=B3n=20de=20contabilziar?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Contabilidad/RegPrePolizaS.aspx.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index c4129847f..caf9c6f53 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -2847,6 +2847,7 @@ Partial Class ContabilidadC_RegPrePolizaS LnkFolioManual.Visible = True BtnDescontabilizar.Visible = False BtnContabilizar.Visible = True + Folio = "0" End If ObjConta.Dispose() @@ -2857,7 +2858,7 @@ Partial Class ContabilidadC_RegPrePolizaS End Sub Private Sub LnkFolioManual_Click(sender As Object, e As EventArgs) Handles LnkFolioManual.Click - + Folio = "0" TxtFolio.Enabled = True TxtFolio.Focus() UpPoliza.Update() From b6821ba16ad81c9222bc05732459e1137b71efee Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 27 Feb 2025 12:30:09 -0700 Subject: [PATCH 18/48] Impresion Reembolsos no sale leyenda en FE --- Compras/PopUpVerFactura.aspx.vb | 12 + .../Formatos/RepRembolsosComprobaciones.rdlc | 4 +- .../Grales/Formatos/rptChequeMovimientos.rdlc | 3667 +++++++++-------- 3 files changed, 1872 insertions(+), 1811 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index a4e7e7422..8922c3ac0 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -5,6 +5,7 @@ Imports System.Data Imports System.IO Imports System.Xml Imports Extensiones +Imports iText.Barcodes.Dmcode Imports Microsoft.Reporting.WebForms Imports ZXing @@ -6020,6 +6021,9 @@ Partial Class PopUpVerFactura End If Else If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then + + ParamComprobacion = ObjIE.DtResultados + If ObjIE.DtResultados.Rows.Count > 0 Then Dim reportDataSetsList As New List(Of ReportDataSource) @@ -6096,6 +6100,14 @@ Partial Class PopUpVerFactura ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientosPrePoliza.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF") Else + + If UsuarioActual.CveEmpresa = 140 Then + Dim Aplicado As Decimal = 0 + Dim ImporteDoc As Decimal = ParamComprobacion.Rows(0)("Importe").ToString.ToDecimal + Dim LeyendaSaldo As String = $"Folio #{ParamComprobacion.Rows(0)("Folio").ToString} con importe de ${ImporteDoc.ToString("###,###,###.00")} y saldo antes de la comprobación de ${SaldoTotal.ToString("###,###,###.00")}, Comprobaciones a la fecha {ParamComprobacion.Rows(0)("FechaDocumento").ToString().ToDate().ToString("dd/MM/yyyy")} ${ImportePagoTotal.ToString("###,###,###.00")} saldo después de la comprobación ${(SaldoTotal - ImportePagoTotal).ToString("###,###,###.00")} ." + paramList.Add(New ReportParameter("LeyendaSaldo", LeyendaSaldo)) + End If + ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF") End If diff --git a/Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc b/Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc index baf4d6fd7..fe395548e 100644 --- a/Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc +++ b/Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc @@ -1121,7 +1121,9 @@ - Textbox1 diff --git a/Empresas/Grales/Formatos/rptChequeMovimientos.rdlc b/Empresas/Grales/Formatos/rptChequeMovimientos.rdlc index 22ac7bbe0..42a6e879e 100644 --- a/Empresas/Grales/Formatos/rptChequeMovimientos.rdlc +++ b/Empresas/Grales/Formatos/rptChequeMovimientos.rdlc @@ -1,1814 +1,5 @@ - - - - - true - true - - - - - =Parameters!Cuenta.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Paguese.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="<b>Importe: </b>" & FormatCurrency(Parameters!Importe.Value, 2) & " " & Parameters!MonedaAbreviatura.Value - HTML - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Observaciones.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 2.57974cm - - - 6.32386cm - - - 2.08353cm - - - 2.00257cm - - - 2.29951cm - - - 1.79499cm - - - 2.18122cm - - - - - 0.4677cm - - - - - true - true - - - - - Factura - - - - - - - Textbox19 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Descripción - - - - - - - Textbox21 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - F. Factura - - - - - - - Textbox23 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Original - - - - - - - Textbox25 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Abonado - - - - - - - Textbox27 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - N.C - - - - - - - Textbox2 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Saldo - - - - - - - Textbox3 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - =Fields!SerieFolio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Descripcion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!FechaCompra.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Total.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Importe.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Fields!ImporteNC.Value) - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Saldo.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - Total - - - - : - - - - - - - Textbox30 - - - 2pt - 2pt - 2pt - 2pt - - - 4 - - - - - - - - - true - true - - - - - =IiF(SUM(Fields!Importe.Value) > 0, SUM(Fields!Importe.Value),0.00) - - - - - - - Importe2 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Fields!ImporteNC.Value) - - - - - - - Textbox5 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Fields!Saldo.Value) - - - - - - - Textbox6 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - After - - - - - =Fields!SerieFolio.Value - =Fields!Descripcion.Value - =Fields!FechaCompra.Value - =Fields!Total.Value - =Fields!Importe.Value - =Fields!Saldo.Value - - - - - Before - - - - true - DataSet1 - 2.18687cm - 0.25413cm - 1.6677cm - 19.26542cm - 4 - - - - - - true - true - - - - - Cuenta: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Paguese: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Obs: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 2.03432cm - 19.51955cm - 0cm - -19.47588cm - 8 - - - - - - true - true - - - - - ="<b> Folio: </b>" & Parameters!Folio.Value - HTML - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 2.5cm - - - 2.95074cm - - - 2.5cm - - - - - 0.52063cm - - - - - true - true - - - - - Resumen Notas de Crédito - - - - - - - Textbox7 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - 0.6cm - - - - - true - true - - - - - Factura - - - - - - - Textbox4 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Nota de Crédito - - - - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Importe - - - - - - - Textbox10 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - =Fields!SerieFolio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SerieFolioNC.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Importe.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - Total: - - - - - - - Textbox13 - - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - =SUM(Fields!Importe.Value) - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - After - - - After - - - - - - =Fields!SerieFolio.Value - - - - - - - - Before - - - - true - DataSet2 - 4.20735cm - 0.25413cm - 2.32063cm - 7.95074cm - 10 - - =iif(Sum(Fields!Importe.Value)>0,false, true) - - - - - - - 6.70437cm - 19.51955cm - 0cm - -19.51955cm - 11 - - - - - - true - true - - - - - Fecha: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Fecha.Value - - - - - - - Cuenta - 0.0635cm - 6.22945in - 0.23622in - 1.40532in - 13 - - - 2pt - 2pt - 2pt - 2pt - - - - 7.24235cm - - - - - - - Textbox1 - 0.3175cm - 2.52765cm - 0.6cm - 14.40301cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - REPORTE DE PAGO DE MOVIMIENTOS - - - - - - - - - - - - - - - - Textbox2 - 0.95278cm - 2.52765cm - 0.55591cm - 14.40301cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!LogoPath.Value - FitProportional - 0.15522cm - 2.22362cm - 2.33715cm - 2 - - - - - - - - - - - 0.52063cm - true - true - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox41 - 0.01764cm - 16.41607cm - 0.48535cm - 2.97625cm - - - 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 - - - - - - - - 27.94cm - 21.59cm - 1cm - 1cm - 1.5cm - 1.5cm - 0.13cm - + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Paguese.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="<b>Importe: </b>" & FormatCurrency(Parameters!Importe.Value, 2) & " " & Parameters!MonedaAbreviatura.Value + HTML + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 2.57974cm + + + 6.32386cm + + + 2.08353cm + + + 2.00257cm + + + 2.29951cm + + + 1.79499cm + + + 2.18122cm + + + + + 0.4677cm + + + + + true + true + + + + + Factura + + + + + + + Textbox19 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descripción + + + + + + + Textbox21 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + F. Factura + + + + + + + Textbox23 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Original + + + + + + + Textbox25 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Abonado + + + + + + + Textbox27 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + N.C + + + + + + + Textbox2 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldo + + + + + + + Textbox3 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Descripcion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FechaCompra.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Total.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteNC.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Saldo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Total + + + + : + + + + + + + Textbox30 + + + 2pt + 2pt + 2pt + 2pt + + + 4 + + + + + + + + + true + true + + + + + =IiF(SUM(Fields!Importe.Value) > 0, SUM(Fields!Importe.Value),0.00) + + + + + + + Importe2 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteNC.Value) + + + + + + + Textbox5 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!Saldo.Value) + + + + + + + Textbox6 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + After + + + + + =Fields!SerieFolio.Value + =Fields!Descripcion.Value + =Fields!FechaCompra.Value + =Fields!Total.Value + =Fields!Importe.Value + =Fields!Saldo.Value + + + + + Before + + + + true + DataSet1 + 2.18687cm + 0.24221cm + 1.6677cm + 19.26542cm + 4 + + + + + + true + true + + + + + Cuenta: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Paguese: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Obs: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 2.03432cm + 19.50763cm + 0cm + -19.47588cm + 8 + + + + + + true + true + + + + + ="<b> Folio: </b>" & Parameters!Folio.Value + HTML + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 2.5cm + + + 2.95074cm + + + 2.5cm + + + + + 0.52063cm + + + + + true + true + + + + + Resumen Notas de Crédito + + + + + + + Textbox7 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.6cm + + + + + true + true + + + + + Factura + + + + + + + Textbox4 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Nota de Crédito + + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox10 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SerieFolioNC.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Total: + + + + + + + Textbox13 + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + =SUM(Fields!Importe.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + + + After + + + + + + =Fields!SerieFolio.Value + + + + + + + + Before + + + + true + DataSet2 + 4.90585cm + 0.24221cm + 2.32063cm + 7.95074cm + 10 + + =iif(Sum(Fields!Importe.Value)>0,false, true) + + + + + + + 7.33937cm + 19.45252cm + 0cm + -18.86119cm + 11 + + + + + + true + true + + + + + Fecha: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Fecha.Value + + + + + + + Cuenta + 0.0635cm + 6.22476in + 0.23622in + 1.40532in + 13 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + true + + + + + =Parameters!LeyendaSaldo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 7.33937cm + + + + + + + Textbox1 + 0.3175cm + 2.54748cm + 0.6cm + 14.40301cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE DE PAGO DE MOVIMIENTOS + + + + + + + + + + + + + + + + Textbox2 + 0.95278cm + 2.54748cm + 0.55591cm + 14.40301cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.17505cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.52063cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox41 + 0.01764cm + 16.46765cm + 0.48535cm + 2.97625cm + + + 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 + + + + + + + + 27.94cm + 21.59cm + 1cm + 1cm + 1.5cm + 1.5cm + 0.13cm + @@ -5310,7 +5310,7 @@ 11.49939cm 1.33863cm 1.06703cm - 17.83459cm + 17.8346cm 21