From f4ab75336418ee86e00d53964a245c9fd8b3131c Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sat, 30 Apr 2022 15:32:53 -0700
Subject: [PATCH 1/5] Cancelar como refacturacion las que tienen el estatus de
 refacturacion en 4

---
 App_Code/Modelos.vb | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index e6fbe82fd..7a6893c9d 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -4668,6 +4668,13 @@ Namespace Modelos
             Dim TieneAlmacen As Boolean = False
             Dim AplicaRefacturacionConPagos As Boolean = False
 
+            Dim CveEstatusRefacturacion As Integer = If(ObjFactura.CveEstatusRefacturacion <= 0, 0, ObjFactura.CveEstatusRefacturacion)
+
+            'SI YA FUE MARCADA COMO REFACTURACION Y FUE SEPARADA, MANTENER EL COMPORTAMIENTO DE CANCELACION COMO REFACTURACION
+            If Not EsRefacturacion AndAlso CveEstatusRefacturacion = 4 Then
+                EsRefacturacion = True
+            End If
+
             '1 NORMAL, 2 CON PAGOS
             Dim ModalidadRefacturacion As Integer = UsuarioActual.Empresa.Funcionalidad(586).ToEntero()
 
@@ -4800,11 +4807,7 @@ Namespace Modelos
                 Return Retorno
             End If
 
-
-            Dim CveEstatusRefacturacion As Integer = If(ObjFactura.CveEstatusRefacturacion <= 0, 0, ObjFactura.CveEstatusRefacturacion)
-
-
-            If Not EsRefacturacion Then
+            If Not EsRefacturacion AndAlso CveEstatusRefacturacion <> 4 Then
                 CveEstatusRefacturacion = 0
             End If
 

From a5e12e0544af7a3eddb0b46e9b6387fa9a4381ca Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Mon, 2 May 2022 13:00:41 -0700
Subject: [PATCH 2/5] Compras refacturacion, Nominas layout Banorte,
 RegPrepolizas

---
 App_Code/ClsContabilidad.vb         |  4 ++-
 Compras/Compras.aspx                |  2 +-
 Compras/Compras.aspx.vb             | 39 +++++++++++++++++++----
 Compras/Proveedores.aspx.vb         |  5 ---
 Compras/eFacturas.aspx.vb           | 49 ++++++++++++++++++-----------
 Contabilidad/RegPrePolizaS.aspx.vb  |  8 ++++-
 Empresas/141/Formatos/CHQ-7452.rdlc | 10 +++---
 Nomina/Nomina.aspx.cs               |  7 +++--
 8 files changed, 83 insertions(+), 41 deletions(-)

diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 20a20bd32..2d0ab9c7d 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -1188,8 +1188,10 @@ Public Class ClsContabilidad
         Catch ex As Exception
             If ex.Message.Contains("50015;") Then
                 OnError("No se puede actualizar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            ElseIf ex.Message.Contains("IDX_UN_ContaPrePolizasCveEmpresaCveTipoPolizaFoliosAnioMes") Then
+                OnError($"El Folio <b>{Folio}</b> ya esta registrado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             Else
-                OnError("Ocurrió un error al contabilizar las prepoliza detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+                    OnError("Ocurrió un error al contabilizar las prepoliza detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
             End If
         End Try
         Return Retorno
diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 333a8f44d..4a67fbb34 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -5844,7 +5844,7 @@
             }
 
             //var SaldoCompra = parseFloat(parseFloat($get('HdnCompraSaldo').value).toFixed(2));
-            var SaldoCompra = (Total - FnSumaValoresAnt() + txtvalue).toFixed(2); // le agrego lo del valor actual para validarlo
+            var SaldoCompra = (TotalSaldo - FnSumaValoresAnt() + txtvalue).toFixed(2); // le agrego lo del valor actual para validarlo
 
 
 
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 399a06781..859abbf64 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1025,6 +1025,21 @@ Partial Class Compras_Compras
         End Set
     End Property
 
+    Private Property SubTotalRefacturacion As Decimal
+        Get
+
+            If ViewState("SubTotalRefacturacion") Is Nothing Then
+                ViewState("SubTotalRefacturacion") = 0.0D
+            End If
+
+            Return ViewState("SubTotalRefacturacion").ToString.ToDecimal
+
+        End Get
+        Set(value As Decimal)
+            ViewState("SubTotalRefacturacion") = value
+        End Set
+    End Property
+
     Private Property IVAOriginal As Double
         Get
 
@@ -2165,7 +2180,7 @@ Partial Class Compras_Compras
 
             DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
             ''If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
-            'DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5"))
+            DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5"))
             ''End If
 
         End If
@@ -5925,7 +5940,7 @@ Partial Class Compras_Compras
                                                     Dim Concepto As String = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, NombreProveedor, $"{TxtSerie.Text}-{TxtFolio.Text}", If(TxtDocumentoFolio.Visible, TxtDocumentoFolio.Text, If(TxtDocumentoFolioCaja.Visible, TxtDocumentoFolioCaja.Text, ConceptoPersonal)))
                                                     Dim importeMN As Decimal = 0
 
-                                                    Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, -1, 1)
+                                                    Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, 1, -1)
 
 
                                                     Dim Referencia As String = $"{TxtSerie.Text}-{TxtFolio.Text}" ' concatenation interpolation
@@ -6314,7 +6329,7 @@ Partial Class Compras_Compras
                                                                         Funcionalidad = 313
                                                                         ConceptoContable = 248
                                                                     ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then
-                                                                        Funcionalidad = 577
+                                                                        Funcionalidad = 578
                                                                         ConceptoContable = 285
                                                                     End If
 
@@ -6517,7 +6532,14 @@ Partial Class Compras_Compras
                                                                 Exit Select 'Es credito el concepto 6 se agrega en CASE 17
                                                             End If
 
-                                                            If Not CveCompraRefacturacion > 0 OrElse (ChkRefacNC.Checked) Then
+
+                                                            Dim DifSubTotatles As Decimal = 0D
+
+                                                            If CveCompraRefacturacion > 0 Then
+                                                                DifSubTotatles = Math.Abs(SubTotalRefacturacion - TxtSubTotal2.Text.ToDecimal)
+                                                            End If
+
+                                                            If DifSubTotatles > 0 Or (Not CveCompraRefacturacion > 0 OrElse (ChkRefacNC.Checked)) Then
                                                                 'AF TipoAF 2 Es para las compras
                                                                 DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) = 2 And ISNULL(AplicaCostoIndirecto,0) <> 1 ")
                                                                 If DT.Rows.Count > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
@@ -8972,7 +8994,7 @@ Partial Class Compras_Compras
                                             IdCtaContable = 0
                                             Dim Concepto As String = String.Format("{0}-{1}", TxtSerie.Text, TxtFolio.Text)
                                             Dim importeMN As Decimal = 0
-                                            Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, -1, 1)
+                                            Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, 1, -1)
                                             Dim PorcentajeImpuesto As Decimal = 0
                                             Dim ConceptoPartida As String = String.Format("{0}-{1}", TxtSerie.Text, TxtFolio.Text)
 
@@ -10591,7 +10613,7 @@ Partial Class Compras_Compras
                 Dim importeMovimiento As Decimal = 0
                 Dim IdCtaContable As Integer = 0
                 Dim importeMN As Decimal = 0
-                Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, -1, 1)
+                Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, 1, -1)
                 Dim Referencia As String = $"{TxtSerie.Text}-{TxtFolio.Text}" ' concatenation interpolation
 
                 Select Case ConceptoContable
@@ -14731,14 +14753,19 @@ Partial Class Compras_Compras
 
     Private Sub DdlRefacturacionFacturas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlRefacturacionFacturas.SelectedIndexChanged
 
+        SubTotalRefacturacion = 0.0D
+
         If DdlRefacturacionFacturas.SelectedValue.ToEntero > 0 Then
             Dim dr As DataRow = DtRefacturacion.FiltroPrimero(String.Format("CveCompra ={0}", DdlRefacturacionFacturas.SelectedValue))
             If dr IsNot Nothing Then
 
                 HdnRefacturacionConcepto.Value = dr("CveConceptoContableAlmacen").ToString
                 ChkRefacturacionConAlmacen.Checked = If(dr("CveMovimientoAlmacen").ToString.ToEntero > 0, True, False)
+                SubTotalRefacturacion = dr("SubTotal").ToString.ToDecimal
             End If
 
+
+
         End If
 
     End Sub
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index d8176bb72..e06070550 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -728,15 +728,10 @@ Partial Class Compras_Proveedores
                     cfdVer = "http://www.sat.gob.mx/cfd/4"
                 End If
 
-
-
                 'If Prefijo.ToLower <> "cfdi" Then cfdVer = "http://www.sat.gob.mx/cfd/2"
                 namespaces.AddNamespace(Prefijo, cfdVer)
 
 
-
-
-
                 Dim node As XmlNode
                 node = XMLDoc.SelectSingleNode(String.Format("//{0}:Emisor", Prefijo), namespaces)
                 If node IsNot Nothing Then
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index c73ff32d0..e50b0a6ec 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -2883,7 +2883,7 @@ Partial Class Compras_eFacturas
         DTDocumentosRelacionados.Columns.Add("Manual", GetType(Boolean))
 
 
-
+        Dim TieneRegistros As Boolean = False
         If IO.File.Exists(Archivo) Then
 
 
@@ -3034,18 +3034,29 @@ Partial Class Compras_eFacturas
                 End If
             End If
 
+
             ObjCompraFolios.Dispose()
+            DTDocumentosRelacionados = DTDocumentosRelacionados.FiltraParametros("CveIE > 0 AND  LEN(IdDocumento) > 0")
             GVPDocumentosRelacionadosPagos.DataSource = DTDocumentosRelacionados
             GVPDocumentosRelacionadosPagos.DataBind()
 
             DTGVPagosVinculacion = DTDocumentosRelacionados
 
+            BtnVincularPago.Visible = False
+            If DTDocumentosRelacionados.Rows.Count > 0 Then
+                SerieFolioIE = DTDocumentosRelacionados.Rows(0)("SerieFolio").ToString
+                DivVincularPagoManualmente.Visible = False
+                BtnVincularPago.Visible = True
+                TieneRegistros = True
+            Else
+                DivVincularPagoManualmente.Visible = True
+                BtnVincularPago.Visible = False
+            End If
 
             ComprasEnComplemento = DTGVPagosVinculacion.COUNT("CveCompra", " CveCompra > 0")
 
 
 
-
             If DTDocumentosRelacionados.MAX("CveCompra").ToString.ToEntero > 0 Then
                 TieneCompras = True
             Else
@@ -3096,25 +3107,25 @@ Partial Class Compras_eFacturas
         Dim ObjCompras As New ClsCompras
 
 
-        Dim TieneRegistros As Boolean = False
 
-        If ObjCompras.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace("pago10:", "").Replace("pagos10:", ""), UsuarioActual.CveEmpresa) Then
-            GvVincularPago.DataSource = ObjCompras.DtResultados
 
-            If ObjCompras.DtResultados.Rows.Count > 0 Then
-                SerieFolioIE = ObjCompras.DtResultados.Rows(0)("SerieFolio").ToString
-                DivVincularPagoManualmente.Visible = False
-                BtnVincularPago.Visible = True
-                TieneRegistros = True
-            Else
-                DivVincularPagoManualmente.Visible = True
-                BtnVincularPago.Visible = False
-            End If
-            'ImportePago = ObjCompras.DtResultados.SUMD("Monto")
-        Else
-            DivVincularPagoManualmente.Visible = False
-            BtnVincularPago.Visible = False
-        End If
+        'If ObjCompras.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace("pago10:", "").Replace("pagos10:", ""), UsuarioActual.CveEmpresa) Then
+        '    GvVincularPago.DataSource = ObjCompras.DtResultados
+
+        '    If ObjCompras.DtResultados.Rows.Count > 0 Then
+        '        SerieFolioIE = ObjCompras.DtResultados.Rows(0)("SerieFolio").ToString
+        '        DivVincularPagoManualmente.Visible = False
+        '        BtnVincularPago.Visible = True
+        '        TieneRegistros = True
+        '    Else
+        '        DivVincularPagoManualmente.Visible = True
+        '        BtnVincularPago.Visible = False
+        '    End If
+        '    'ImportePago = ObjCompras.DtResultados.SUMD("Monto")
+        'Else
+        '    DivVincularPagoManualmente.Visible = False
+        '    BtnVincularPago.Visible = False
+        'End If
 
         For Each GvRowF As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
 
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 05f6994b1..9bf82bd72 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -2724,7 +2724,10 @@ Partial Class ContabilidadC_RegPrePolizaS
 
                     TxtFolio.Text = ObjConta.ContaFolio.ToString()
                     LnkFolioManual.Visible = False
+                    BtnContabilizar.Visible = False
+                    BtnDescontabilizar.Visible = True
                     UpPoliza.Update()
+                    UpGuardar.Update()
 
                 End If
 
@@ -3215,15 +3218,18 @@ Partial Class ContabilidadC_RegPrePolizaS
 
 
         If ObjConta.ContabilizaDesContabilizaPrePoliza(CvePrePoliza, False, UsuarioActual.CveEmpresa) Then
+
             Alert("Descontabilizado Correctamente.", TipoMensaje.MsgInformacion)
             TxtFolio.Text = ""
             LnkFolioManual.Visible = True
+            BtnDescontabilizar.Visible = False
+            BtnContabilizar.Visible = True
         End If
 
         ObjConta.Dispose()
 
         UpPoliza.Update()
-
+        UpGuardar.Update()
 
 
 
diff --git a/Empresas/141/Formatos/CHQ-7452.rdlc b/Empresas/141/Formatos/CHQ-7452.rdlc
index 3c26bcd98..77447f2a8 100644
--- a/Empresas/141/Formatos/CHQ-7452.rdlc
+++ b/Empresas/141/Formatos/CHQ-7452.rdlc
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
   <AutoRefresh>0</AutoRefresh>
   <DataSources>
     <DataSource Name="DataSet">
@@ -93,9 +93,9 @@
             </Paragraphs>
             <rd:DefaultName>Textbox1</rd:DefaultName>
             <Top>3.15903cm</Top>
-            <Left>2.98488cm</Left>
+            <Left>0.58123cm</Left>
             <Height>0.6cm</Height>
-            <Width>14.64437cm</Width>
+            <Width>17.04802cm</Width>
             <ZIndex>1</ZIndex>
             <Style>
               <Border>
@@ -261,9 +261,9 @@
             </Paragraphs>
             <rd:DefaultName>Textbox1</rd:DefaultName>
             <Top>4.15713cm</Top>
-            <Left>2.98488cm</Left>
+            <Left>0.58123cm</Left>
             <Height>0.6cm</Height>
-            <Width>16.08307cm</Width>
+            <Width>18.48672cm</Width>
             <ZIndex>6</ZIndex>
             <Style>
               <Border>
diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs
index cc6e9f9d7..2ede3383d 100644
--- a/Nomina/Nomina.aspx.cs
+++ b/Nomina/Nomina.aspx.cs
@@ -8800,7 +8800,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
 
                     //Tipo de registro A 1 1-1
-                    sb.AppendLine("D");
+                    sb.AppendLine("");
+                    sb.Append("D");
                     //Fecha Aplicacion N 8 2-9
                     sb.Append(DateTime.Now.ToString("yyyyMMdd"));
 
@@ -8828,13 +8829,13 @@ public partial class Nomina_Nomina2 : ClsPaginas
                     //NumeroCuenta N 18 120-137
                     sb.Append(NumeroCuenta.PadLeft(18, Cero));
                     //Tipo movimiento N 1 138-138
-                    sb.Append(TipoCuenta.PadLeft(1, Cero));
+                    sb.Append(TipoMovimiento.PadLeft(1, Cero));
                     //Accion N 1 139-139
                     sb.Append(Accion.PadLeft(1, Espacio));
                     //ImporteIvaOperacion 140-147
                     sb.Append(ImporteIvaOperacion.PadLeft(8, Cero));
                     //filler 18 148-165
-                    sb.Append(string.Empty.PadLeft(77, Espacio));
+                    sb.Append(string.Empty.PadLeft(18, Espacio));
 
 
                 }

From 6f6a0a5dbe257c67e41d42da246fb79dbe3c7ffa Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Mon, 2 May 2022 18:44:05 -0700
Subject: [PATCH 3/5]

---
 App_Code/ClsPaginas.vb              |  16 +--
 Compras/PopUpVerFactura.aspx.vb     |  15 ++-
 GPS/EmbarqueManifiestoRemision.rdlc |  12 +-
 GPS/PalletEtiqueta2.rdlc            | 186 +++-------------------------
 vwd.webinfo                         |   4 +
 5 files changed, 43 insertions(+), 190 deletions(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index e89ff7969..c6d4a2ed1 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -6356,20 +6356,6 @@ Public Class ClsPaginas
 
         Try
             bytes = bytes
-
-
-            'Response.Clear()
-            'Response.ContentType = "application/pdf"
-            'Response.Cache.SetCacheability(HttpCacheability.Private)
-            'Response.Expires = -1
-            'Response.Buffer = True
-            ''Uncomment to handle the file as attachment
-            'Response.AddHeader("Content-Disposition", String.Format("inline; filename={0}.{1}", NombreArchivo, If(Formato = "PDF", "pdf", "xls")))
-            ''Response.BinaryWrite(bytes)
-            'bytes = Nothing
-            'Response.End()
-
-
             Response.Buffer = True
             Response.Clear()
             If Formato = "PDF" Then
@@ -6380,9 +6366,9 @@ Public Class ClsPaginas
             Response.AddHeader("content-disposition", String.Format("{0}; filename={1}.{2}", Content_Disposition, NombreArchivo, If(Formato = "PDF", "pdf", "xls")))
             Response.BinaryWrite(bytes) ' create the file
             Response.Flush() ' send it to the client to download
+            bytes = Nothing
             HttpContext.Current.Response.SuppressContent = True
             HttpContext.Current.ApplicationInstance.CompleteRequest()
-            bytes = Nothing
             'HttpContext.Current.Response.End()
         Catch ex As Exception
 
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 27a2772a3..e0bb52ba3 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -343,7 +343,7 @@ Partial Class PopUpVerFactura
         lrds.Add(rds)
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        ImprimirPDF("GPS/EmbarqueManifiesto.rdlc", lrds, params, "Manifesto")
+        ImprimirPDF("GPS/EmbarqueManifiesto.rdlc", lrds, params, "Manifesto", Content_Disposition:="Inline")
     End Sub
 
     Private Sub imprimirManifiestoRemision(cveEmbarqueManifiesto As Integer)
@@ -373,6 +373,7 @@ Partial Class PopUpVerFactura
         Dim TotalDlls As String = ""
         Dim Cliente As String = ""
         Dim Direccion As String = ""
+        Dim BinsPrecio As String = ""
 
 
 
@@ -403,6 +404,7 @@ Partial Class PopUpVerFactura
                 CAJASDECARTON = String.Format("{0:N0}", row("CAJASDECARTON"))
                 RPC = String.Format("{0:N0}", row("RPC"))
                 BINSDECARTON = String.Format("{0:N0}", row("BINSDECARTON"))
+                BinsPrecio = String.Format("{0:N0}", row("BINSDECARTON").ToString().ToDecimal() * 5)
                 TotalDlls = String.Format("{0:N0}", row("TotalDlls"))
 
 
@@ -482,6 +484,8 @@ Partial Class PopUpVerFactura
         params.Add(New ReportParameter("CAJASDECARTON", CAJASDECARTON))
         params.Add(New ReportParameter("RPC", RPC))
         params.Add(New ReportParameter("BINSDECARTON", BINSDECARTON))
+        params.Add(New ReportParameter("BinsPrecio", BinsPrecio))
+
         params.Add(New ReportParameter("TotalDlls", TotalDlls))
 
 
@@ -493,7 +497,7 @@ Partial Class PopUpVerFactura
         lrds.Add(rds)
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        ImprimirPDF("GPS/EmbarqueManifiestoRemision.rdlc", lrds, params, "Remisión")
+        ImprimirPDF("GPS/EmbarqueManifiestoRemision.rdlc", lrds, params, "Remisión", Content_Disposition:="Inline")
     End Sub
 
 
@@ -521,6 +525,7 @@ Partial Class PopUpVerFactura
         Dim CAJASDECARTON As String = ""
         Dim RPC As String = ""
         Dim BINSDECARTON As String = ""
+        Dim BinsPrecio As String = ""
         Dim TotalDlls As String = ""
         Dim Cliente As String = ""
         Dim Direccion As String = ""
@@ -659,7 +664,7 @@ Partial Class PopUpVerFactura
             'GuardaLogFacturacion($"Ruta XML {ArchivoXML}")
             'ResultadoMail = 3
         End If
-        ImprimirPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte", Content_Disposition:="inline")
+        ImprimirPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte", Content_Disposition:="Inline")
 
 
     End Sub
@@ -728,7 +733,7 @@ Partial Class PopUpVerFactura
         'endimg
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        ImprimirPDF("GPS/PalletEtiqueta2.rdlc", lrds, params, "Pallet")
+        ImprimirPDF("GPS/PalletEtiqueta2.rdlc", lrds, params, "Pallet", Content_Disposition:="Inline")
     End Sub
     Private Sub imprimirpallet(cvePallet As Integer)
         Dim Envase As String = ""
@@ -825,7 +830,7 @@ Partial Class PopUpVerFactura
         'If CvetypeImpresion = 2 Then
         '    ruta = "GPS/PalletEtiqueta_2.rdlc"
         'End If
-        ImprimirPDF(ruta, lrds, params, "Pallet Caja")
+        ImprimirPDF(ruta, lrds, params, "Pallet Caja", Content_Disposition:="Inline")
     End Sub
 #Region "U S U A R I O - T O K E N"
 
diff --git a/GPS/EmbarqueManifiestoRemision.rdlc b/GPS/EmbarqueManifiestoRemision.rdlc
index eccfa2163..188610262 100644
--- a/GPS/EmbarqueManifiestoRemision.rdlc
+++ b/GPS/EmbarqueManifiestoRemision.rdlc
@@ -541,7 +541,6 @@
                           </Style>
                         </Textbox>
                         <ColSpan>2</ColSpan>
-                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell />
@@ -2081,7 +2080,7 @@ Hermosillo, Sonora, Mexico
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>$1.00</Value>
+                                  <Value>$5.00</Value>
                                   <Style />
                                 </TextRun>
                               </TextRuns>
@@ -2132,7 +2131,7 @@ Hermosillo, Sonora, Mexico
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>=Parameters!BINSDECARTON.Value</Value>
+                                  <Value>=Parameters!BinsPrecio.Value</Value>
                                   <Style />
                                 </TextRun>
                               </TextRuns>
@@ -2341,6 +2340,7 @@ Hermosillo, Sonora, Mexico
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                   </TablixCells>
@@ -2866,6 +2866,12 @@ Hermosillo, Sonora, Mexico
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="BinsPrecio">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="logojam">
diff --git a/GPS/PalletEtiqueta2.rdlc b/GPS/PalletEtiqueta2.rdlc
index e75b2bc6e..656ddb873 100644
--- a/GPS/PalletEtiqueta2.rdlc
+++ b/GPS/PalletEtiqueta2.rdlc
@@ -40,16 +40,16 @@
             <TablixBody>
               <TablixColumns>
                 <TablixColumn>
-                  <Width>2.20952cm</Width>
+                  <Width>2.81806cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>1.99728cm</Width>
+                  <Width>2.93411cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>1.99728cm</Width>
+                  <Width>2.28832cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>3.44561cm</Width>
+                  <Width>2.65186cm</Width>
                 </TablixColumn>
               </TablixColumns>
               <TablixRows>
@@ -224,39 +224,11 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
-                        <ColSpan>2</ColSpan>
+                        <ColSpan>3</ColSpan>
                       </CellContents>
                     </TablixCell>
                     <TablixCell />
-                    <TablixCell>
-                      <CellContents>
-                        <Textbox Name="Textbox388">
-                          <CanGrow>true</CanGrow>
-                          <KeepTogether>true</KeepTogether>
-                          <Paragraphs>
-                            <Paragraph>
-                              <TextRuns>
-                                <TextRun>
-                                  <Value />
-                                  <Style />
-                                </TextRun>
-                              </TextRuns>
-                              <Style />
-                            </Paragraph>
-                          </Paragraphs>
-                          <rd:DefaultName>Textbox388</rd:DefaultName>
-                          <Style>
-                            <Border>
-                              <Style>None</Style>
-                            </Border>
-                            <PaddingLeft>2pt</PaddingLeft>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
-                          </Style>
-                        </Textbox>
-                      </CellContents>
-                    </TablixCell>
+                    <TablixCell />
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
@@ -323,39 +295,11 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
-                        <ColSpan>2</ColSpan>
+                        <ColSpan>3</ColSpan>
                       </CellContents>
                     </TablixCell>
                     <TablixCell />
-                    <TablixCell>
-                      <CellContents>
-                        <Textbox Name="Textbox384">
-                          <CanGrow>true</CanGrow>
-                          <KeepTogether>true</KeepTogether>
-                          <Paragraphs>
-                            <Paragraph>
-                              <TextRuns>
-                                <TextRun>
-                                  <Value />
-                                  <Style />
-                                </TextRun>
-                              </TextRuns>
-                              <Style />
-                            </Paragraph>
-                          </Paragraphs>
-                          <rd:DefaultName>Textbox384</rd:DefaultName>
-                          <Style>
-                            <Border>
-                              <Style>None</Style>
-                            </Border>
-                            <PaddingLeft>2pt</PaddingLeft>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
-                          </Style>
-                        </Textbox>
-                      </CellContents>
-                    </TablixCell>
+                    <TablixCell />
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
@@ -422,39 +366,11 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
-                        <ColSpan>2</ColSpan>
+                        <ColSpan>3</ColSpan>
                       </CellContents>
                     </TablixCell>
                     <TablixCell />
-                    <TablixCell>
-                      <CellContents>
-                        <Textbox Name="Textbox380">
-                          <CanGrow>true</CanGrow>
-                          <KeepTogether>true</KeepTogether>
-                          <Paragraphs>
-                            <Paragraph>
-                              <TextRuns>
-                                <TextRun>
-                                  <Value />
-                                  <Style />
-                                </TextRun>
-                              </TextRuns>
-                              <Style />
-                            </Paragraph>
-                          </Paragraphs>
-                          <rd:DefaultName>Textbox380</rd:DefaultName>
-                          <Style>
-                            <Border>
-                              <Style>None</Style>
-                            </Border>
-                            <PaddingLeft>2pt</PaddingLeft>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
-                          </Style>
-                        </Textbox>
-                      </CellContents>
-                    </TablixCell>
+                    <TablixCell />
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
@@ -522,39 +438,11 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
-                        <ColSpan>2</ColSpan>
+                        <ColSpan>3</ColSpan>
                       </CellContents>
                     </TablixCell>
                     <TablixCell />
-                    <TablixCell>
-                      <CellContents>
-                        <Textbox Name="Textbox376">
-                          <CanGrow>true</CanGrow>
-                          <KeepTogether>true</KeepTogether>
-                          <Paragraphs>
-                            <Paragraph>
-                              <TextRuns>
-                                <TextRun>
-                                  <Value />
-                                  <Style />
-                                </TextRun>
-                              </TextRuns>
-                              <Style />
-                            </Paragraph>
-                          </Paragraphs>
-                          <rd:DefaultName>Textbox376</rd:DefaultName>
-                          <Style>
-                            <Border>
-                              <Style>None</Style>
-                            </Border>
-                            <PaddingLeft>2pt</PaddingLeft>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
-                          </Style>
-                        </Textbox>
-                      </CellContents>
-                    </TablixCell>
+                    <TablixCell />
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
@@ -621,39 +509,11 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
-                        <ColSpan>2</ColSpan>
+                        <ColSpan>3</ColSpan>
                       </CellContents>
                     </TablixCell>
                     <TablixCell />
-                    <TablixCell>
-                      <CellContents>
-                        <Textbox Name="Textbox372">
-                          <CanGrow>true</CanGrow>
-                          <KeepTogether>true</KeepTogether>
-                          <Paragraphs>
-                            <Paragraph>
-                              <TextRuns>
-                                <TextRun>
-                                  <Value />
-                                  <Style />
-                                </TextRun>
-                              </TextRuns>
-                              <Style />
-                            </Paragraph>
-                          </Paragraphs>
-                          <rd:DefaultName>Textbox372</rd:DefaultName>
-                          <Style>
-                            <Border>
-                              <Style>None</Style>
-                            </Border>
-                            <PaddingLeft>2pt</PaddingLeft>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
-                          </Style>
-                        </Textbox>
-                      </CellContents>
-                    </TablixCell>
+                    <TablixCell />
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
@@ -1354,12 +1214,11 @@
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.38833cm</Height>
+                  <Height>0.45921cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox75">
-                          <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
                             <Paragraph>
@@ -1390,7 +1249,6 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox76">
-                          <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
                             <Paragraph>
@@ -2011,7 +1869,6 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox95">
-                          <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
                             <Paragraph>
@@ -2042,7 +1899,6 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox96">
-                          <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
                             <Paragraph>
@@ -2663,7 +2519,6 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox115">
-                          <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
                             <Paragraph>
@@ -2694,7 +2549,6 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox116">
-                          <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
                             <Paragraph>
@@ -3315,7 +3169,6 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox17">
-                          <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
                             <Paragraph>
@@ -3346,7 +3199,6 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox18">
-                          <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
                             <Paragraph>
@@ -3754,8 +3606,8 @@
             </TablixRowHierarchy>
             <Top>0.0762cm</Top>
             <Left>0.10266cm</Left>
-            <Height>12.50875cm</Height>
-            <Width>9.64969cm</Width>
+            <Height>12.57959cm</Height>
+            <Width>10.69235cm</Width>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -3763,10 +3615,10 @@
             </Style>
           </Tablix>
         </ReportItems>
-        <Height>4.95471in</Height>
+        <Height>5.09718in</Height>
         <Style />
       </Body>
-      <Width>3.97917in</Width>
+      <Width>4.25in</Width>
       <Page>
         <PageHeight>29.7cm</PageHeight>
         <PageWidth>21cm</PageWidth>
diff --git a/vwd.webinfo b/vwd.webinfo
index b27ee6992..4bc095d77 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -474,6 +474,10 @@
     
   
     
+  
+    
+  
+    
   
     
   

From 821dc0df6c36a775150230c9af13c790de7e8a37 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Wed, 4 May 2022 08:36:51 -0700
Subject: [PATCH 4/5] Carta Porte CatUnidades Esatatus

---
 App_Code/ClsCompras.vb                    |  2 ++
 App_Code/ClsContabilidad.vb               | 16 ++++++++--------
 App_Code/ClsInventarios.vb                |  6 ++++--
 Compras/Compras.aspx.vb                   |  4 ++--
 Inventarios/CartaPorteManual.aspx         |  4 ++--
 Inventarios/CartaPorteManual.aspx.vb      |  6 +++---
 Inventarios/CatUnidades.aspx              | 16 +++++++++++++---
 Inventarios/CatUnidades.aspx.vb           |  9 +++++----
 Inventarios/RepEntregaAlmacenRuta.aspx.cs |  8 ++++----
 Inventarios/TraspasoAlmacen.aspx.vb       |  6 +++---
 Ventas/Ventas.aspx.vb                     |  6 +++---
 11 files changed, 49 insertions(+), 34 deletions(-)

diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb
index 95802d410..35d8638ea 100644
--- a/App_Code/ClsCompras.vb
+++ b/App_Code/ClsCompras.vb
@@ -1980,6 +1980,7 @@ Public Class ClsCompras
         End With
 
         Try
+
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
@@ -2023,6 +2024,7 @@ Public Class ClsCompras
         End With
 
         Try
+            SqlAdapter.SelectCommand.CommandTimeout = 0
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index c6e6a1d11..069c2aaa3 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -996,14 +996,14 @@ Public Class ClsContabilidad
                 '    Strr = Strr + " - Clasificación: " + DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("", "")
                 'End If
                 OnError(String.Format("El concepto '{0}' no tiene especificada la cuenta. Favor de especificarla en la asignación de cuentas.", dr("ConceptoContable").ToString), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-                ElseIf ex1.Message.Contains("Vw_Val_Conta_CuentasResultados_SubProyectos") Then
-                    Dim Concepto2 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
-                    OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto2), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-                ElseIf ex1.Message.Contains("UK_Vw_Val_Conta_CuentasResultados_SubProyectos") Then
-                    Dim Concepto3 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
-                    OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto3), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-                Else
-                    OnError("Ocurrió un error al Guardar", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            ElseIf ex1.Message.Contains("Vw_Val_Conta_CuentasResultados_SubProyectos") Then
+                Dim Concepto2 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
+                OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto2), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            ElseIf ex1.Message.Contains("UK_Vw_Val_Conta_CuentasResultados_SubProyectos") Then
+                Dim Concepto3 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
+                OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto3), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            Else
+                OnError("Ocurrió un error al Guardar", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             End If '
         Catch ex As Exception
             If ex.Message.Contains("50015;") Then
diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 00613e593..8b89df8a6 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -5567,7 +5567,7 @@ Public Class ClsInventarios
     Public Function AddCamiones(Placa As String, Especificacion As String, CveEmpresa As Integer, CveConfigAutoTransporte As Integer, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String,
                                 NumPolizaSeguro As String, CveUsuario As Integer, NombreAseguradoraMedioAmbiente As String, NumPolizaSeguroMedioAmbiente As String, NombreAseguradoraCarga As String, NumPolizaSeguroCarga As String,
                                 Optional CveTipoCamion As Integer = 1, Optional LongitudCaja As String = "", Optional LineaTransportacion As String = "", Optional SCAC As String = "", Optional CAAT As String = "",
-                                Optional CveTipoRemolque As Integer = -1, Optional NumeroTrailer As String = "") As Boolean
+                                Optional CveTipoRemolque As Integer = -1, Optional NumeroTrailer As String = "", Optional Estatus As Boolean = False) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_CamionesAdd")
@@ -5593,6 +5593,7 @@ Public Class ClsInventarios
             .Add("@SCAC", SqlDbType.VarChar).Value = SCAC
             .Add("@CAAT", SqlDbType.VarChar).Value = CAAT
             .Add("@NumeroTrailer", SqlDbType.VarChar).Value = NumeroTrailer
+            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -5620,7 +5621,7 @@ Public Class ClsInventarios
     Public Function UpdateCamiones(CveCamion As Integer, Placa As String, Especificacion As String, CveConfigAutoTransporte As Integer, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String,
                                    NumPolizaSeguro As String, CveUsuario As Integer, CveEmpresa As Integer, NombreAseguradoraMedioAmbiente As String, NumPolizaSeguroMedioAmbiente As String, NombreAseguradoraCarga As String,
                                    NumPolizaSeguroCarga As String, Optional CveTipoCamion As Integer = -1, Optional LongitudCaja As String = "", Optional LineaTransportacion As String = "", Optional SCAC As String = "", Optional CAAT As String = "",
-                                   Optional CveTipoRemolque As Integer = -1, Optional NumeroTrailer As String = "") As Boolean
+                                   Optional CveTipoRemolque As Integer = -1, Optional NumeroTrailer As String = "", Optional Estatus As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_CamionesUpdate")
         With SqlAdapter.SelectCommand.Parameters
@@ -5646,6 +5647,7 @@ Public Class ClsInventarios
             .Add("@SCAC", SqlDbType.VarChar).Value = SCAC
             .Add("@CAAT", SqlDbType.VarChar).Value = CAAT
             .Add("@NumeroTrailer", SqlDbType.VarChar).Value = NumeroTrailer
+            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
         End With
         Try
             SqlAdapter.Fill(Data)
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index eb7aa91c3..9d3db4aa4 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -17538,8 +17538,8 @@ Partial Class Compras_Compras
 
         'RETENCIONES
         Dim Retenciones = 0D
-        Retenciones = TxtRetIVA.Text.ToDecimal
-        Retenciones += TxtRetISR.Text.ToDecimal
+        Retenciones = RetIVA.ToDecimal
+        Retenciones += RetISR.ToDecimal
 
 
         SubTotal2 = SubTotal - Descuentos ' - Amortizacion '[IPP] COMENTADO CASO JAM 12653 CON NC 27122 | 23/MAYO/2018
diff --git a/Inventarios/CartaPorteManual.aspx b/Inventarios/CartaPorteManual.aspx
index fc0b9f4de..e290b9bca 100644
--- a/Inventarios/CartaPorteManual.aspx
+++ b/Inventarios/CartaPorteManual.aspx
@@ -221,7 +221,7 @@
                                                     <ajax:ValidatorCalloutExtender ID="VceDdlChofer" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlChofer" Width="350px"></ajax:ValidatorCalloutExtender>
                                                 </div>
                                                 <div class="col-md-1" style="text-align:left!important">
-                                                    <asp:LinkButton ID="LnkAgregarChofer" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Agregar Chofer"   />
+                                                    <asp:LinkButton ID="LnkAgregarChofer" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Agregar Chofer"  Visible="false"  />
                                                 </div>
                                             </div>
                                             <div class="row rowpadding">
@@ -232,7 +232,7 @@
                                                     <ajax:ValidatorCalloutExtender ID="VceDdlUnidadCamion" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlUnidadCamion" Width="350px"></ajax:ValidatorCalloutExtender>
                                                 </div>
                                                   <div class="col-md-1" style="text-align:left!important">
-                                                    <asp:LinkButton ID="LnkAgregarUnidad" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Agregar Unidad"   />
+                                                    <asp:LinkButton ID="LnkAgregarUnidad" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Agregar Unidad" visible="false"  />
                                                 </div>
                                             </div>
 
diff --git a/Inventarios/CartaPorteManual.aspx.vb b/Inventarios/CartaPorteManual.aspx.vb
index 8c47ee8c4..9bca2d2ec 100644
--- a/Inventarios/CartaPorteManual.aspx.vb
+++ b/Inventarios/CartaPorteManual.aspx.vb
@@ -958,12 +958,12 @@ Partial Class Inventarios_CartaPorteManual
 
         Using ObjInv As New ClsInventarios
 
-            If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 1) Then
+            If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, Estatus:=1) Then
                 DdlUnidadCamion.DataSource = ObjInv.DtResultados
             End If
 
 
-            If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2) Then
+            If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2, Estatus:=1) Then
                 DdlRemolque1.DataSource = ObjInv.DtResultados
             End If
 
@@ -1508,7 +1508,7 @@ Partial Class Inventarios_CartaPorteManual
             DvRemolque2.Visible = True
 
             Using ObjInv As New ClsInventarios
-                If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2) Then
+                If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2, Estatus:=1) Then
                     DdlRemolque2.DataSource = ObjInv.DtResultados.FiltraParametros($"CveCamion <> {DdlRemolque1.SelectedValue.ToEntero}")
                 End If
             End Using
diff --git a/Inventarios/CatUnidades.aspx b/Inventarios/CatUnidades.aspx
index fe91310cf..73f3e234f 100644
--- a/Inventarios/CatUnidades.aspx
+++ b/Inventarios/CatUnidades.aspx
@@ -31,7 +31,8 @@
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCamion,Placa,Especificacion,CveConfigAutoTransporte,Anio,CveTipoCamion,CveProveedor,CveTipoPermisoSCT,NumPermisoSCT,NombreAseguradora,NumPolizaSeguro,NombreAseguradoraMedioAmbiente,NumPolizaSeguroMedioAmbiente,NombreAseguradoraCarga,NumPolizaSeguroCarga,LongitudCaja,LineaTransportacion,SCAC,CAAT,CveTipoRemolque,NumeroTrailer"
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" 
+                DataKeyNames="CveCamion,Placa,Especificacion,CveConfigAutoTransporte,Anio,CveTipoCamion,CveProveedor,CveTipoPermisoSCT,NumPermisoSCT,NombreAseguradora,NumPolizaSeguro,NombreAseguradoraMedioAmbiente,NumPolizaSeguroMedioAmbiente,NombreAseguradoraCarga,NumPolizaSeguroCarga,LongitudCaja,LineaTransportacion,SCAC,CAAT,CveTipoRemolque,NumeroTrailer,Estatus"
                 EmptyDataText="No se Encontraron Unidades" ToolTip="Listado de Unidades" CssClass="table table-striped table-advance table-hover mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None">
                 <Columns>
                     <asp:BoundField HeaderText="Unidad" DataField="Especificacion" ItemStyle-HorizontalAlign="Left" />
@@ -41,7 +42,7 @@
                     <asp:BoundField HeaderText="Permiso SCT" DataField="NumPermisoSCT" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Aseguradora" DataField="NombreAseguradora" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Póliza Seguro" DataField="NumPolizaSeguro" ItemStyle-HorizontalAlign="Left" />
-
+                    <asp:BoundField HeaderText="Estatus" DataField="EstatuStr" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Fecha de Ingreso" ItemStyle-HorizontalAlign="Center" DataField="FechaIng" ItemStyle-Width="5%" DataFormatString="{0:d}" />
                     <asp:BoundField HeaderText="Usuario" DataField="Usuario" />
                     <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
@@ -249,7 +250,8 @@
                         </div>
 
                         <div class="row">
-                            <div class="col-md-12">
+                            
+                            <div class="col-md-6">
                                 <div class="form-group form-md-line-input input-iconright" runat="server" id="Div1">
                                     <asp:DropDownList ID="DdlProveedor" CssClass="form-control input-sm select2me " Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="false" CausesValidation="true" DataValueField="CveProveedor" DataTextField="RazonSocial" Style="padding: 0px">
                                     </asp:DropDownList>
@@ -258,6 +260,14 @@
                                     <i></i>
                                 </div>
                             </div>
+                             <div class="col-md-6">
+                                 <div class="form-group form-md-line-input input-iconright"  runat="server">
+                                        <asp:CheckBox ID="ChkEstatus" runat="server" CssClass="form-control" />
+                                        <label for="<%= ChkEstatus.ClientID.ToString()%>">Activo:</label>
+                                  </div>
+                              </div>
+
+
                         </div>
 
                         <%--<asp:CheckBox ID="ChkesRemolque" Checked="true" TextAlign="Left" Text="¿Es remolque?:" runat="server" AutoPostBack="true" OnCheckedChanged="ChkesRemolque_CheckedChanged" />--%>
diff --git a/Inventarios/CatUnidades.aspx.vb b/Inventarios/CatUnidades.aspx.vb
index 8478b71dd..38720e266 100644
--- a/Inventarios/CatUnidades.aspx.vb
+++ b/Inventarios/CatUnidades.aspx.vb
@@ -37,10 +37,9 @@ Partial Class Inventarios_CatUnidades
     Public Sub CargaDatos()
 
 
-
         Dim ObjInventarios As New ClsInventarios
 
-        If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa) Then
+        If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa, Estatus:=-1) Then
             GvDatos.DataSource = ObjInventarios.DtResultados
         Else
             GvDatos.DataSource = Nothing
@@ -110,6 +109,7 @@ Partial Class Inventarios_CatUnidades
         TxtNumeroTrailer.Text = ""
         TxtSCAC.Text = ""
         TxtCAAT.Text = ""
+        ChkEstatus.Checked = False
 
         RdTipoUnidad.SelectedValue = "1"
         LtlTituloModal.Text = "Agregar Unidad"
@@ -153,6 +153,7 @@ Partial Class Inventarios_CatUnidades
         TxtLineaTransportacion.Text = GvRow.DataKey("LineaTransportacion")
         TxtSCAC.Text = GvRow.DataKey("SCAC")
         TxtCAAT.Text = GvRow.DataKey("CAAT")
+        ChkEstatus.Checked = If(Boolean.Parse(GvRow.DataKey("Estatus")), True, False)
 
         'ChkesRemolque.Checked = (GvRow.DataKey("CveTipoCamion") = "2")
 
@@ -206,14 +207,14 @@ Partial Class Inventarios_CatUnidades
 
             If CveCamion <= 0 Then
                 If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, UsuarioActual.CveEmpresa, DdlConfigAuto.SelectedValue.ToEntero, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero(), TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario,
-                                              TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text) Then
+                                              TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked) Then
                     Alert("Unidad agregada correctamente")
                 Else
                     ErrorPrceso = True
                 End If
             Else
                 If ObjInventarios.UpdateCamiones(CveCamion, TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, DdlConfigAuto.SelectedValue.ToEntero, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero(), TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
-                                                 TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text) Then
+                                                 TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked) Then
                     Alert("Unidad actualizada correctamente")
                     Using objbase = New ClsClaseBase()
                         objbase.runQuerystr(String.Format("UPDATE Inv_Camiones SET CveProveedor={1} WHERE  CveCamion={0}", CveCamion, DdlProveedor.SelectedValue))
diff --git a/Inventarios/RepEntregaAlmacenRuta.aspx.cs b/Inventarios/RepEntregaAlmacenRuta.aspx.cs
index 6d5380160..6bf95f172 100644
--- a/Inventarios/RepEntregaAlmacenRuta.aspx.cs
+++ b/Inventarios/RepEntregaAlmacenRuta.aspx.cs
@@ -279,7 +279,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
     {
         ClsInventarios ObjInventarios = new ClsInventarios();
 
-        if (ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa) && ObjInventarios.DtResultados.Rows.Count > 0)
+        if (ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa,Estatus:1) && ObjInventarios.DtResultados.Rows.Count > 0)
         {
             DdlModalCamion.DataSource = ObjInventarios.DtResultados;
         }
@@ -829,7 +829,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
 
             using (ClsInventarios ObjInv = new ClsInventarios())
             {
-                if (ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2))
+                if (ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2,Estatus:1))
                     DdlRemolque2.DataSource = ObjInv.DtResultados.FiltraParametros($"CveCamion <> {DdlRemolque1.SelectedValue.ToEntero()}");
             }
             try
@@ -868,10 +868,10 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
 
         using (ClsInventarios ObjInv = new ClsInventarios())
         {
-            if (ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 1))
+            if (ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 1, Estatus:1))
                 DdlModalCamion.DataSource = ObjInv.DtResultados;
 
-            if (ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2))
+            if (ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2,Estatus:1))
                 DdlRemolque1.DataSource = ObjInv.DtResultados;
         }
 
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index cf368ca73..284874758 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -3023,12 +3023,12 @@ Partial Class Inventarios_TraspasoAlmacen
 
         Using ObjInv As New ClsInventarios
 
-            If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 1) Then
+            If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 1, Estatus:=1) Then
                 DdlUnidadCamion.DataSource = ObjInv.DtResultados
             End If
 
 
-            If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2) Then
+            If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2, Estatus:=1) Then
                 DdlRemolque1.DataSource = ObjInv.DtResultados
             End If
 
@@ -3334,7 +3334,7 @@ Partial Class Inventarios_TraspasoAlmacen
             DvRemolque2.Visible = True
 
             Using ObjInv As New ClsInventarios
-                If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2) Then
+                If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2, Estatus:=1) Then
                     DdlRemolque2.DataSource = ObjInv.DtResultados.FiltraParametros($"CveCamion <> {DdlRemolque1.SelectedValue.ToEntero}")
                 End If
             End Using
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 521472341..715e89848 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -34126,12 +34126,12 @@ Partial Class Ventas
 
         Using ObjInv As New ClsInventarios
 
-            If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 1) Then
+            If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 1, Estatus:=1) Then
                 DdlUnidadCamion.DataSource = ObjInv.DtResultados
             End If
 
 
-            If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2) Then
+            If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2, Estatus:=1) Then
                 DdlRemolque1.DataSource = ObjInv.DtResultados
             End If
 
@@ -34265,7 +34265,7 @@ Partial Class Ventas
             DvRemolque2.Visible = True
 
             Using ObjInv As New ClsInventarios
-                If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2) Then
+                If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2, Estatus:=1) Then
                     DdlRemolque2.DataSource = ObjInv.DtResultados.FiltraParametros($"CveCamion <> {DdlRemolque1.SelectedValue.ToEntero}")
                 End If
             End Using

From 686f356ceaae1518ab6f9da878319e45659df58a Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Mon, 9 May 2022 09:29:53 -0700
Subject: [PATCH 5/5] Timbrado se quita SA de CV en nombre de empresa de
 prueabs,   ClsPaginas   validacion carpeta CBB

---
 App_Code/ClsPaginas.vb | 15 +++++++++++++++
 App_Code/Timbrado.vb   |  2 +-
 2 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index c6d4a2ed1..ffa920110 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -6956,7 +6956,22 @@ Public Class ClsPaginas
             RFCReceptor = Vta.RFCReceptor
         End If
 
+
+        Dim RutaCarpetaCBB As String = String.Format("{0}CBB\", Ruta)
+        Dim FinfoCarpetaCBB As New IO.DirectoryInfo(RutaCarpetaCBB)
+
+        If Not FinfoCarpetaCBB.Exists Then
+            Try
+                IO.Directory.CreateDirectory(RutaCarpetaCBB)
+            Catch ex As Exception
+                GuardaLogAD($"CveEmpresa {UsuarioActual.CveEmpresa} Vta {Vta.SerieFolio} Error al crear directorio CBB {ex.Message}")
+
+            End Try
+        End If
+
+
         Dim RutaCBB As String = String.Format("{0}CBB\{1}.jpg", Ruta, Vta.SerieFolio)
+
         Dim ImagenCBB As New System.IO.FileInfo(RutaCBB)
         Dim ImgCBB As String '= String.Format("{0}://{1}:{2}/Empresas/{3}/CBB/{4}.jpg", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, Vta.SerieFolio)
 
diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 7fc90d47b..98a1e5553 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -5548,7 +5548,7 @@ Public Class Timbrado
         If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 Then
 
             EmisorRFC = "EKU9003173C9"
-            UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE SA DE CV"
+            UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE"
             ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.key"
             ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.cer"