From 91d7b86d724846f01c28904d46246725d24cc476 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Mon, 21 Apr 2025 10:27:44 -0700
Subject: [PATCH] =?UTF-8?q?EMD=20eFacturas=20registro=201=20factura=20desp?=
 =?UTF-8?q?ues=20de=20fecha=20limite,=20=20Servec=20formatos=20cambio=20di?=
 =?UTF-8?q?recci=C3=B3n,=20Usurios=20Detalle=20reset=20al=20guardar=20alct?=
 =?UTF-8?q?ualizar=20usaurio=20de=20global=20DT=20=20GlobalDTOCEstatus?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/eFacturas.aspx.vb                 |  2 +-
 Contabilidad/DiarioPagos.aspx             |  2 +-
 Empresas/153/Formatos/Cotizacion.rdlc     |  4 ++--
 Empresas/153/Formatos/Factura.rdlc        | 16 ++--------------
 Empresas/153/Formatos/NotaDevolucion.rdlc | 16 ++--------------
 Empresas/153/Formatos/Remision.rdlc       | 21 +++++++++++++++------
 Sistemas/UsuarioDetalle.aspx.vb           | 15 ++++++++-------
 7 files changed, 31 insertions(+), 45 deletions(-)

diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index 95591bce5..58af0d5ec 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -1168,7 +1168,7 @@ Partial Class Compras_eFacturas
             'End If
 
             Dim Funcionalidad123 As Integer = UsuarioActual.Empresa.Funcionalidad(123).ToEntero
-            If Funcionalidad123 > 0 Then
+            If Funcionalidad123 > 0 AndAlso Not e.Row.DataKey("CveFactura").ToEntero.Contiene(1223188) Then
                 If NowADS().Day >= Funcionalidad123 Then
                     Dim FechaLimite As Date = New Date(NowADS().Year, NowADS().Month, 1)
                     If e.Row.DBCampo("FechaFactura").ToDate < FechaLimite Then
diff --git a/Contabilidad/DiarioPagos.aspx b/Contabilidad/DiarioPagos.aspx
index df56da6ec..640fd5901 100644
--- a/Contabilidad/DiarioPagos.aspx
+++ b/Contabilidad/DiarioPagos.aspx
@@ -1,4 +1,4 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="DiarioPagos.aspx.vb" Inherits="Contabilidad_DiarioPagos" %>
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="DiarioPagos.aspx.vb" Inherits="Contabilidad_DiarioPagos" ValidateRequest="false"  %>
 <%@ Import Namespace="Extensiones" %>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
diff --git a/Empresas/153/Formatos/Cotizacion.rdlc b/Empresas/153/Formatos/Cotizacion.rdlc
index 6a5cf12c3..47c8076a7 100644
--- a/Empresas/153/Formatos/Cotizacion.rdlc
+++ b/Empresas/153/Formatos/Cotizacion.rdlc
@@ -1217,8 +1217,8 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>CAMELIA No.Ext: 619, Col: Libertad,
-CP: 83130, Hermosillo,Sonora, México</Value>
+                    <Value>SIMON BLEY  No.Ext: 355, No.Int: A, Col: Olivares,
+CP: 83180, Hermosillo,Sonora, México</Value>
                     <Style>
                       <FontFamily>Calibri</FontFamily>
                       <FontSize>9pt</FontSize>
diff --git a/Empresas/153/Formatos/Factura.rdlc b/Empresas/153/Formatos/Factura.rdlc
index 6803ae6a7..55e1051f3 100644
--- a/Empresas/153/Formatos/Factura.rdlc
+++ b/Empresas/153/Formatos/Factura.rdlc
@@ -1471,20 +1471,8 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>SIMON BLEY  355, COL. OLIVARES</Value>
-                    <Style>
-                      <FontFamily>Calibri</FontFamily>
-                      <FontSize>9pt</FontSize>
-                      <FontWeight>Normal</FontWeight>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style />
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>HERMOSILLO SONORA CP 83180 MEXICO</Value>
+                    <Value>SIMON BLEY  No.Ext: 355, No.Int: A, Col: Olivares,
+CP: 83180, Hermosillo,Sonora, México</Value>
                     <Style>
                       <FontFamily>Calibri</FontFamily>
                       <FontSize>9pt</FontSize>
diff --git a/Empresas/153/Formatos/NotaDevolucion.rdlc b/Empresas/153/Formatos/NotaDevolucion.rdlc
index e920d7ff5..980ca2338 100644
--- a/Empresas/153/Formatos/NotaDevolucion.rdlc
+++ b/Empresas/153/Formatos/NotaDevolucion.rdlc
@@ -1385,20 +1385,8 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>CAMELIA 619 LIBERTAD HERMOSILLO</Value>
-                    <Style>
-                      <FontFamily>Calibri</FontFamily>
-                      <FontSize>9pt</FontSize>
-                      <FontWeight>Normal</FontWeight>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style />
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>HERMOSILLO SONORA CP 83130 MEXICO</Value>
+                    <Value>SIMON BLEY  No.Ext: 355, No.Int: A, Col: Olivares,
+CP: 83180, Hermosillo,Sonora, México</Value>
                     <Style>
                       <FontFamily>Calibri</FontFamily>
                       <FontSize>9pt</FontSize>
diff --git a/Empresas/153/Formatos/Remision.rdlc b/Empresas/153/Formatos/Remision.rdlc
index 4444bd5fd..98f798741 100644
--- a/Empresas/153/Formatos/Remision.rdlc
+++ b/Empresas/153/Formatos/Remision.rdlc
@@ -630,8 +630,11 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>Camelia No. Ext. 619</Value>
-                    <Style />
+                    <Value>SIMON BLEY  No.Ext: 355, No.Int: A, </Value>
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontWeight>Normal</FontWeight>
+                    </Style>
                   </TextRun>
                 </TextRuns>
                 <Style>
@@ -641,8 +644,11 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>Col. Libertad C.P. 83130</Value>
-                    <Style />
+                    <Value>Col: Olivares, CP: 83180,</Value>
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontWeight>Normal</FontWeight>
+                    </Style>
                   </TextRun>
                 </TextRuns>
                 <Style>
@@ -652,8 +658,11 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>México</Value>
-                    <Style />
+                    <Value> Hermosillo,Sonora, México</Value>
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontWeight>Normal</FontWeight>
+                    </Style>
                   </TextRun>
                 </TextRuns>
                 <Style>
diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb
index 46a4906b3..3113d2ecc 100644
--- a/Sistemas/UsuarioDetalle.aspx.vb
+++ b/Sistemas/UsuarioDetalle.aspx.vb
@@ -1382,13 +1382,14 @@ Partial Class Sistemas_UsuarioDetalle
         ' End If
 
         'RECARGA GLOBAL ESTATUS
-        GlobalDTOCEstatusUsuarios(tCveEmpresa) = Nothing
-
-        'If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing
-
-
-        'RECARGA GLOBAL ALMACEN
-        'If ObjUsuarios.GetAlmacen(-1, UsuarioActual.CveEmpresa) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
+        GlobalDTOCEstatus(tCveEmpresa) = Nothing
+        GlobalDTOCEstatusUsuarios(tCveEmpresa) = Nothing
+
+        'If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing
+
+
+        'RECARGA GLOBAL ALMACEN
+        'If ObjUsuarios.GetAlmacen(-1, UsuarioActual.CveEmpresa) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
         GlobalDTAlmacenUsuarios(-1, tCveEmpresa) = Nothing
 
         'RECARGA GLOBAL EMPRESAS USUARIOS