-

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

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
+            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))
+                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)
+                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
+            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))
+                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)
+                OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto3), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-                Else
+            Else
-                    OnError("Ocurrió un error al Guardar", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+                OnError("Ocurrió un error al Guardar", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             End If '
         Catch ex As Exception
             If ex.Message.Contains("50015;") Then
@@ -1195,8 +1195,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

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)

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
 
@@ -6970,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)
 

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
 
-
+            If Not EsRefacturacion AndAlso CveEstatusRefacturacion <> 4 Then
-            Dim CveEstatusRefacturacion As Integer = If(ObjFactura.CveEstatusRefacturacion <= 0, 0, ObjFactura.CveEstatusRefacturacion)
-
-
-            If Not EsRefacturacion Then
                 CveEstatusRefacturacion = 0
             End If
 

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"
 

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
@@ -6310,7 +6325,7 @@ Partial Class Compras_Compras
                                                                         Funcionalidad = 313
                                                                         ConceptoContable = 248
                                                                     ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then
-                                                                        Funcionalidad = 577
+                                                                        Funcionalidad = 578
                                                                         ConceptoContable = 285
                                                                     End If
 
@@ -6513,7 +6528,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
@@ -8963,7 +8985,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)
 
@@ -10582,7 +10604,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
@@ -14722,14 +14744,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
@@ -17502,8 +17529,8 @@ Partial Class Compras_Compras
 
         'RETENCIONES
         Dim Retenciones = 0D
-        Retenciones = TxtRetIVA.Text.ToDecimal
+        Retenciones = RetIVA.ToDecimal
-        Retenciones += TxtRetISR.Text.ToDecimal
+        Retenciones += RetISR.ToDecimal
 
 
         SubTotal2 = SubTotal - Descuentos ' - Amortizacion '[IPP] COMENTADO CASO JAM 12653 CON NC 27122 | 23/MAYO/2018
@@ -18394,7 +18421,7 @@ Partial Class Compras_Compras
                 End If
 
             Next
-                TmpDT.AcceptChanges()
+            TmpDT.AcceptChanges()
             'Else
             '    Retorno = False
             'End If

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"
 

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

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
+        'If ObjCompras.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace("pago10:", "").Replace("pagos10:", ""), UsuarioActual.CveEmpresa) Then
-                SerieFolioIE = ObjCompras.DtResultados.Rows(0)("SerieFolio").ToString
+        '    GvVincularPago.DataSource = ObjCompras.DtResultados
-                DivVincularPagoManualmente.Visible = False
+
-                BtnVincularPago.Visible = True
+        '    If ObjCompras.DtResultados.Rows.Count > 0 Then
-                TieneRegistros = True
+        '        SerieFolioIE = ObjCompras.DtResultados.Rows(0)("SerieFolio").ToString
-            Else
+        '        DivVincularPagoManualmente.Visible = False
-                DivVincularPagoManualmente.Visible = True
+        '        BtnVincularPago.Visible = True
-                BtnVincularPago.Visible = False
+        '        TieneRegistros = True
-            End If
+        '    Else
-            'ImportePago = ObjCompras.DtResultados.SUMD("Monto")
+        '        DivVincularPagoManualmente.Visible = True
-        Else
+        '        BtnVincularPago.Visible = False
-            DivVincularPagoManualmente.Visible = False
+        '    End If
-            BtnVincularPago.Visible = False
+        '    'ImportePago = ObjCompras.DtResultados.SUMD("Monto")
-        End If
+        'Else
+        '    DivVincularPagoManualmente.Visible = False
+        '    BtnVincularPago.Visible = False
+        'End If
 
         For Each GvRowF As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
 

Contabilidad/RegPrePolizaS.aspx.vb

@@ -2560,7 +2560,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
 
@@ -3044,15 +3047,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()
 
 
 

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>

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">

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>
+                    <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>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
@@ -323,39 +295,11 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
-                        <ColSpan>2</ColSpan>
+                        <ColSpan>3</ColSpan>
                       </CellContents>
                     </TablixCell>
                     <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>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
@@ -422,39 +366,11 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
-                        <ColSpan>2</ColSpan>
+                        <ColSpan>3</ColSpan>
                       </CellContents>
                     </TablixCell>
                     <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>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
@@ -522,39 +438,11 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
-                        <ColSpan>2</ColSpan>
+                        <ColSpan>3</ColSpan>
                       </CellContents>
                     </TablixCell>
                     <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>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
@@ -621,39 +509,11 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
-                        <ColSpan>2</ColSpan>
+                        <ColSpan>3</ColSpan>
                       </CellContents>
                     </TablixCell>
                     <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>
                   </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>
+            <Height>12.57959cm</Height>
-            <Width>9.64969cm</Width>
+            <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>

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>
 

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

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" />--%>

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))

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;
         }
@@ -834,7 +834,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

Inventarios/TraspasoAlmacen.aspx.vb

@@ -3355,7 +3355,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

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));
 
 
                 }

Ventas/Ventas.aspx.vb

@@ -34085,12 +34085,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
 
@@ -34224,7 +34224,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

vwd.webinfo

@@ -474,6 +474,10 @@
     
   
     
+  
+    
+  
+