-

App_Code/ClsNominas.vb

@@ -3267,6 +3267,29 @@ Public Class ClsNominas
         Return retorno
     End Function
 
+    Public Function PreNominaTotalSemana(numeroPeriodo As Int32, cveEmpresa As Int32, cveSubProyecto As Int32, cveTipoNomina As Int32, tipoTrabajador As String, ejercicio As Int32, facturado As Boolean) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_RH_PreNominaTotalSemana", CommandType.StoredProcedure)
+        addParameters("@NumeroPeriodo", SqlDbType.Int, numeroPeriodo)
+        addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
+        addParameters("@CveSubProyecto", SqlDbType.Int, cveSubProyecto)
+        addParameters("@CveTipoNomina", SqlDbType.Int, cveTipoNomina)
+        addParameters("@TipoTrabajador", SqlDbType.VarChar, tipoTrabajador)
+        addParameters("@Ejercicio", SqlDbType.Int, ejercicio)
+        addParameters("@Facturado", SqlDbType.Bit, facturado)
+        retorno = RunQuery("Ocurrió un error al obtener el PA_RH_PreNominaTotalSemana.")
+        Return retorno
+    End Function
+    Public Function Embarque_TableroGet(cveEmpresa As Int32, cveSubproyecto As Int32, cveEstatus As Int32, cveCultivoCuadro As Int32) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Agro_Embarque_TableroGet", CommandType.StoredProcedure)
+        addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
+        addParameters("@CveSubproyecto", SqlDbType.Int, cveSubproyecto)
+        addParameters("@CveEstatus", SqlDbType.Int, cveEstatus)
+        addParameters("@CveCultivoCuadro", SqlDbType.Int, cveCultivoCuadro)
+        retorno = RunQuery("Ocurrió un error al obtener el PA_Agro_Embarque_TableroGet.")
+        Return retorno
+    End Function
 
 #Region "IDisposable Support"
     ' IDisposable

App_Code/ClsRH.vb

@@ -11,6 +11,13 @@ Public Class ClsRH
 
 #Region "Campos"
     'SQL 
+
+    Private noguardoXcurp As Boolean = False
+    Public ReadOnly Property noguardoXcurpb As Boolean
+        Get
+            noguardoXcurpb = noguardoXcurp
+        End Get
+    End Property
     Private SqlConexion As SqlConnection
     Private SqlAdapter As SqlDataAdapter
     Private SqlTransacc As SqlTransaction
@@ -1915,8 +1922,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         End Try
 
         Return Retorno
-    End Function
+    End Function
-
     Public Function AddPersonal(Codigo As String, APaterno As String, AMaterno As String, Nombres As String, Correo As String, FechaIngreso As Date, CveTipoPeriodo As Integer, NumeroSS As String, SeInscribioSS As Boolean, SalarioDiarioPago As Double, SalarioDiario As Double, SDI As Double,
         SalarioDiarioSS As Double, Bono As Double, NumDiasAguinaldo As Integer, PorPrimaVacacional As Double, CveMetodoPago As Integer, FechaInicioContrato As Date, FechaFinContrato As String,
         CveTipoContrato As Integer, Ubicacion As String, CveTurno As Integer, CvePuesto As Integer, CveDepartamento As Integer, CveRuta As Integer, CveEscolaridad As Integer,
@@ -1928,7 +1934,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
-
+        Dim noguardoXcurp = False
         SqlDataAdapter("PA_RH_PersonalAdd")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -2033,7 +2039,9 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             ElseIf Ex1.Message.Contains("Chk_RH_PersonalSalarioIMSS") Then
                 Alert("El nuevo personal no se guardo debido a que se presento un problema al calcular el salario", TipoMensaje.MsgAdvertencia)
                 GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al guardar el nuevo personal.", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
-            ElseIf Ex1.Message.Contains("dbo.Vw_Val_Nom_Curps") Then
+            ElseIf Ex1.Message.Contains("dbo.Vw_Val_Nom_Curps") Then
+                Retorno = True
+                noguardoXcurp = True
                 Alert(String.Format("El nuevo personal no se guardo, ya existe un personal con esta curp '{0}'", CURP), TipoMensaje.MsgAdvertencia)
                 GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al guardar el nuevo personal.", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
             Else

App_Code/ClsVentas.vb

@@ -5121,7 +5121,7 @@ Public Class ClsVentas
 
 #Region " U S A D O S "
 
-    Public Function AddVentaUsado(CveVenta As Integer, CvePS As Integer, Cantidad As Decimal, PU As Decimal, Optional CveBCI As Integer = -1, Optional CveModeloAuto As Integer = -1) As Boolean
+    Public Function AddVentaUsado(CveVenta As Integer, CvePS As Integer, Cantidad As Decimal, PU As Decimal, Optional CveBCI As Integer = -1, Optional CveModeloAuto As Integer = -1, Optional CveVentaDetalle As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Vta_VentasUsadosAdd", CommandType.StoredProcedure)
@@ -5133,6 +5133,7 @@ Public Class ClsVentas
             .Add("@PU", SqlDbType.Money).Value = PU
             .Add("@CveBCI", SqlDbType.Int).Value = CveBCI
             .Add("@CveModeloAuto", SqlDbType.Int).Value = CveModeloAuto
+            .Add("@CveVentaDetalle", SqlDbType.Int).Value = CveVentaDetalle
         End With
 
         Try
@@ -5396,7 +5397,7 @@ Public Class ClsVentas
         Return Retorno
     End Function
 
-    Public Function GetAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, TipoDocumento As String, Optional CveEstatus As Integer = -1, Optional FechaI As DateTime = MinFecha, Optional FechaF As DateTime = MaxFecha) As Boolean
+    Public Function GetAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, TipoDocumento As String, Optional CveEstatus As Integer = -1, Optional FechaI As DateTime = MinFecha, Optional FechaF As DateTime = MaxFecha, Optional CveUsuarioConsulta As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_AutorizacionLimitesGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -5407,6 +5408,7 @@ Public Class ClsVentas
             .Add("@TipoDocumento", SqlDbType.VarChar).Value = TipoDocumento
             .Add("@FechaI", SqlDbType.Date).Value = FechaI
             .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/Modelos.vb

@@ -1578,10 +1578,14 @@ Namespace Modelos
                         End If
 
                         If DtRecepcionUsados IsNot Nothing Then
-                            If DtRecepcionUsados.Select($"CvePS={Row("CvePS").ToString.ToEntero}").Length > 0 Then
+                            Try
-                                Dim rowInv As DataRow = DtRecepcionUsados.Select($"CvePS={Row("CvePS").ToString.ToEntero}")(0)
+                                If DtRecepcionUsados.Select($"ConsecUsado={Row("Consec").ToString.ToEntero}").Length > 0 Then
-                                rowInv("CveVentaDetalle") = ObjVentas.CveVentaDetalle
+                                    Dim rowUsados As DataRow = DtRecepcionUsados.Select($"ConsecUsado={Row("Consec").ToString.ToEntero}")(0)
-                            End If
+                                    rowUsados("CveVentaDetalle") = ObjVentas.CveVentaDetalle
+                                End If
+                            Catch ex As Exception
+                                GuardaLog("Ocurrió un error al relacionar los usados. " & ex.ToString())
+                            End Try
                         End If
 
                         If DtPolizasVirtuales IsNot Nothing Then
@@ -2138,7 +2142,7 @@ Namespace Modelos
                 If factura.TipoDocto.Contiene("Rem") Then
                     If factura.DtRecepcionUsados IsNot Nothing Then
                         For Each drow As DataRow In factura.DtRecepcionUsados.Rows
-                            If Not ObjVentas.AddVentaUsado(factura.CveVenta, drow("CvePS").ToString.ToEntero, drow("Cantidad").ToString.ToDecimal, drow("PU").ToString.ToDecimal, drow("CveBCIUsado").ToString.ToEntero, drow("CveModeloAuto").ToString.ToEntero) Then
+                            If Not ObjVentas.AddVentaUsado(factura.CveVenta, drow("CvePS").ToString.ToEntero, drow("Cantidad").ToString.ToDecimal, drow("PU").ToString.ToDecimal, drow("CveBCIUsado").ToString.ToEntero, drow("CveModeloAuto").ToString.ToEntero, CveVentaDetalle:=drow("CveVentaDetalle").ToString.ToEntero) Then
                                 Resultado = False
                                 Exit For
                             End If

Ashx/SIGWeb.ashx

@@ -1529,6 +1529,144 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
                 xfile.SetAttributeValue("EXT", Path.GetExtension(urfile))
                 xfile.SetAttributeValue("urlfile", urfile)
                 xfolder.Add(xfile)
+                Dim fecha As String = ""
+                Dim uuid As String = ""
+                If Path.GetExtension(urfile).ToUpper() = ".XML" Then
+                    fecha = ""
+                    uuid = ""
+                    Dim settings As System.Xml.XmlReaderSettings = New System.Xml.XmlReaderSettings()
+                    settings.ConformanceLevel = System.Xml.ConformanceLevel.Fragment
+                    settings.IgnoreWhitespace = True
+                    settings.IgnoreComments = True
+                    Using xtr As System.Xml.XmlReader = System.Xml.XmlReader.Create(urfile, settings)
+                        Dim canread As Boolean = True
+                        Dim keyComprobante As String = "cfdi:Comprobante"
+                        Dim keyCfdiRelacionados As String = "cfdi:CfdiRelacionados"
+                        Dim keyEmisor As String = "cfdi:Emisor"
+                        Dim keyReceptor As String = "cfdi:Receptor"
+                        Dim keyConceptos As String = "cfdi:Conceptos"
+                        Dim keyImpuestos As String = "cfdi:Impuestos"
+                        Dim keyComplemento As String = "cfdi:Complemento"
+                        xtr.Read()
+
+                        While xtr.Read()
+                            If xtr.NodeType = System.Xml.XmlNodeType.Element AndAlso xtr.Name = keyComprobante Then
+
+                                Dim Nivel As Integer = xtr.Depth
+                                Dim cont As Boolean = xtr.MoveToFirstAttribute()
+                                While cont
+
+                                    Select Case xtr.Name.ToUpper()
+                                        Case "XMLNS:CFDI"
+                                        'xmlCFDI.comprobante.xmlns_cfdi = xtr.Value
+                                        Case "XMLNS:XSI"
+                                        'xmlCFDI.comprobante.xmlns_xsi = xtr.Value
+                                    'Case "XSI:SCHEMALOCATION"
+                                    '    xmlCFDI.comprobante.xsi_schemaLocation = xtr.Value
+                                    'Case "VERSION"
+                                    '    xmlCFDI.comprobante.Version = xtr.Value
+                                    'Case "SERIE"
+                                    '    xmlCFDI.comprobante.Serie = xtr.Value
+                                    'Case "FOLIO"
+                                    '    xmlCFDI.comprobante.Folio = xtr.Value
+                                        Case "FECHA"
+                                            fecha = xtr.Value
+                                            'Case "MONEDA"
+                                            '    xmlCFDI.comprobante.Moneda = xtr.Value
+                                            'Case "SUBTOTAL"
+                                            '    Dim SubTotal As Decimal = 0
+                                            '    Decimal.TryParse(xtr.Value, SubTotal)
+                                            '    xmlCFDI.comprobante.SubTotal = SubTotal
+                                            'Case "TOTAL"
+                                            '    Dim Total As Decimal = 0
+                                            '    Decimal.TryParse(xtr.Value, Total)
+                                            '    xmlCFDI.comprobante.Total = Total
+                                            'Case "DESCUENTO"
+                                            '    Dim Descuento As Decimal = 0
+                                            '    Decimal.TryParse(xtr.Value, Descuento)
+                                            '    xmlCFDI.comprobante.Descuento = Descuento
+                                            'Case "TIPOCAMBIO"
+                                            '    Dim TipoCambio As Decimal = 0
+                                            '    Decimal.TryParse(xtr.Value, TipoCambio)
+                                            '    xmlCFDI.comprobante.TipoCambio = TipoCambio
+                                            'Case "TIPODECOMPROBANTE"
+                                            '    xmlCFDI.comprobante.TipoDeComprobante = xtr.Value
+                                            'Case "FORMAPAGO"
+                                            '    xmlCFDI.comprobante.FormaPago = xtr.Value
+                                            'Case "FORMADEPAGO"
+                                            '    xmlCFDI.comprobante.FormaPago = xtr.Value
+                                            'Case "METODOPAGO"
+                                            '    xmlCFDI.comprobante.MetodoPago = xtr.Value
+                                            'Case "METODODEPAGO"
+                                            '    xmlCFDI.comprobante.MetodoPago = xtr.Value
+                                            'Case "CONDICIONESDEPAGO"
+                                            '    xmlCFDI.comprobante.CondicionesDePago = xtr.Value
+                                            'Case "LUGAREXPEDICION"
+                                            '    xmlCFDI.comprobante.LugarExpedicion = xtr.Value
+                                            'Case "CONFIRMACION"
+                                            '    xmlCFDI.comprobante.Confirmacion = xtr.Value
+                                            'Case "NOCERTIFICADO"
+                                            '    xmlCFDI.comprobante.NoCertificado = xtr.Value
+                                            'Case "SELLO"
+                                            '    xmlCFDI.comprobante.Sello = xtr.Value
+                                            'Case "CERTIFICADO"
+                                            '    xmlCFDI.comprobante.Certificado = xtr.Value
+                                    End Select
+
+                                    cont = xtr.MoveToNextAttribute()
+                                End While
+
+                                cont = xtr.MoveToFirstAttribute()
+                                While xtr.Read() AndAlso xtr.NodeType <> System.Xml.XmlNodeType.Element
+                                End While
+                            End If
+
+
+
+                            If xtr.NodeType = System.Xml.XmlNodeType.Element AndAlso xtr.Name = keyComplemento Then
+                                Dim cDepth As Integer = xtr.Depth
+                                While xtr.Read() AndAlso xtr.NodeType <> System.Xml.XmlNodeType.Element
+                                End While
+
+                                While xtr.Read() AndAlso xtr.Depth > cDepth
+
+                                    If xtr.NodeType = System.Xml.XmlNodeType.Element AndAlso xtr.LocalName = "TimbreFiscalDigital" Then
+                                        'xmlCFDI.complemento.xmlns_tfd = xtr.GetAttribute("xmlns:tfd")
+                                        'xmlCFDI.complemento.xsi_schemaLocation = xtr.GetAttribute("xsi:schemaLocation")
+                                        'xmlCFDI.complemento.Version = xtr.GetAttribute("Version")
+                                        uuid = xtr.GetAttribute("UUID")
+                                        'xmlCFDI.complemento.FechaTimbrado = xtr.GetAttribute("FechaTimbrado")
+                                        'xmlCFDI.complemento.RfcProvCertif = xtr.GetAttribute("RfcProvCertif")
+                                        'xmlCFDI.complemento.SelloCFD = If((xmlCFDI.comprobante.Version = "3.3" OrElse xmlCFDI.comprobante.Version = "4.0"), xtr.GetAttribute("SelloCFD"), xtr.GetAttribute("selloCFD"))
+                                        'xmlCFDI.complemento.NoCertificadoSAT = If(xmlCFDI.comprobante.Version = "3.3", xtr.GetAttribute("NoCertificadoSAT"), xtr.GetAttribute("noCertificadoSAT"))
+                                        'xmlCFDI.complemento.SelloSAT = If((xmlCFDI.comprobante.Version = "3.3" OrElse xmlCFDI.comprobante.Version = "4.0"), xtr.GetAttribute("SelloSAT"), xtr.GetAttribute("selloSAT"))
+                                    End If
+
+
+                                End While
+                            End If
+                        End While
+                        xtr.Close()
+                        xtr.
+                    End Using
+                    If (System.IO.File.Exists(urfile)) Then
+                        Dim fechita As DateTime = fecha.ToDateTime()
+
+                        Dim direct As String = $"C:\Users\caudi\Desktop\Nueva carpeta\APH20210302\{fechita:yyyyMMdd}\"
+
+                        If Not System.IO.Directory.Exists(direct) Then
+                            System.IO.Directory.CreateDirectory(direct)
+                        End If
+                        Dim fileurl As String = $"{direct}{Path.GetFileName(urfile)}"
+                        If uuid.Length Then
+                            fileurl = $"{direct}{uuid}{Path.GetExtension(urfile)}"
+                        End If
+                        System.IO.File.Move(urfile, fileurl)
+                        Dim x = ""
+
+                    End If
+
+                End If
 
             Next
             xmlarchivos.Add(xfolder)

Compras/PopUpVerFactura.aspx.vb

@@ -198,27 +198,110 @@ Partial Class PopUpVerFactura
             End If
 
             If Request("onlyPrint") IsNot Nothing Then
-                If Request("onlyPrint").ToString() = "Pallet" Then
+                If Request("onlyPrint").ToString() = "Pallet" AndAlso Not IsNothing(Request("CvePallet")) Then
                     imprimirpallet2(Request("CvePallet").ToString.ToEntero())
                 End If
-                If Request("onlyPrint").ToString() = "PalletCaja" Then
+                If Request("onlyPrint").ToString() = "PalletCaja" AndAlso Not IsNothing(Request("CvePallet")) Then
                     imprimirpallet(Request("CvePallet").ToString.ToEntero())
                 End If
 
-                If Request("onlyPrint").ToString() = "manifiesto" Then
+                If Request("onlyPrint").ToString() = "manifiesto" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then
                     imprimirManifiesto(Request("cveEmbarqueManifiesto").ToString.ToEntero())
                 End If
-                If Request("onlyPrint").ToString() = "manifiestoRemision" Then
+                If Request("onlyPrint").ToString() = "manifiestoRemision" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then
                     imprimirManifiestoRemision(Request("cveEmbarqueManifiesto").ToString.ToEntero())
                 End If
-                If Request("onlyPrint").ToString() = "manifiestoCartaPorte" Then
+                If Request("onlyPrint").ToString() = "manifiestoCartaPorte" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then
                     imprimirManifiestoCartaPorte(Request("cveEmbarqueManifiesto").ToString.ToEntero())
                 End If
+
+                If Request("onlyPrint").ToString() = "rfctxtvalidar" Then
+                    rfctxtvalidar()
+                End If
+                If Request("onlyPrint").ToString() = "Recibo" Then
+                    ReciboAgropecuaria()
+                End If
             End If
 
-        End If
+            End If
     End Sub
 
+    Private Sub ReciboAgropecuaria()
+        Dim numeroPeriodo As Integer = 0
+        Dim cveSubProyecto As Integer = -1
+        Dim cveTipoNomina As Integer = -1
+        Dim ejercicio As Integer = 0
+        Dim cvePersonal As Integer = 0
+        Dim tipoTrabajador As String = ""
+        Dim facturado As Boolean = False
+        If Not IsNothing(Request("numeroPeriodo")) Then
+            numeroPeriodo = Request("numeroPeriodo").ToString.ToEntero()
+        End If
+        If Not IsNothing(Request("ejercicio")) Then
+            ejercicio = Request("ejercicio").ToString.ToEntero()
+        End If
+        If Not IsNothing(Request("cvePersonal")) Then
+            cvePersonal = Request("cvePersonal").ToString.ToEntero()
+        End If
+        Dim params As New List(Of ReportParameter)
+        Dim lrds As New List(Of ReportDataSource)
+        Using objnom As New ClsNominas
+            If objnom.PreNominaTotalSemana(numeroPeriodo, UsuarioActual.CveEmpresa, cveSubProyecto, cveTipoNomina, tipoTrabajador, ejercicio, facturado) Then
+                Dim dt As New DataTable
+                dt = objnom.DtResultados.FiltraParametros("CvePersonal >0")
+                If (cvePersonal > 0) Then
+                    dt = dt.FiltraParametros($"CvePersonal ={cvePersonal }")
+                End If
+
+                lrds.Add(New ReportDataSource With {.Name = "DataSet1", .Value = dt})
+                End If
+
+        End Using
+
+        'endimg
+        '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
+        '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
+        ImprimirPDF("GPS/ReciboNom.rdlc", lrds, params, "Pallet", Content_Disposition:="Inline")
+    End Sub
+    Private Sub rfctxtvalidar()
+        Dim numeroPeriodo As Integer = 0
+        Dim cveSubProyecto As Integer = -1
+        Dim cveTipoNomina As Integer = -1
+        Dim ejercicio As Integer = 0
+        Dim cvePersonal As Integer = 0
+        Dim tipoTrabajador As String = ""
+        Dim facturado As Boolean = False
+        If Not IsNothing(Request("numeroPeriodo")) Then
+            numeroPeriodo = Request("numeroPeriodo").ToString.ToEntero()
+        End If
+        If Not IsNothing(Request("ejercicio")) Then
+            ejercicio = Request("ejercicio").ToString.ToEntero()
+        End If
+        If Not IsNothing(Request("cvePersonal")) Then
+            cvePersonal = Request("cvePersonal").ToString.ToEntero()
+        End If
+        Dim RFCs As New StringBuilder
+        Dim contador = 0
+        Using objnom As New ClsNominas
+            If objnom.PreNominaTotalSemana(numeroPeriodo, UsuarioActual.CveEmpresa, cveSubProyecto, cveTipoNomina, tipoTrabajador, ejercicio, facturado) Then
+                For Each item As DataRow In objnom.DtResultados.Select("CvePersonal > 0")
+                    Dim rfc As String = item("RFC").ToString().Trim()
+                    If rfc.Length > 0 Then
+                        contador = contador + 1
+                        RFCs.AppendLine(String.Format("{0}|{1}", contador, rfc))
+                    End If
+                Next
+            End If
+
+        End Using
+        Response.Clear()
+        Response.ContentType = "text/plain"
+        Response.AppendHeader("content-disposition", "attachment;filename=RFCs_Validacion_Masiva.txt")
+
+        'Response.Write(contador.ToString())
+        Response.Write(RFCs.ToString())
+        Response.End()
+    End Sub
 
     Private Sub imprimirManifiesto(cveEmbarqueManifiesto As Integer)
         Dim NoEmbarque As String = ""
@@ -506,7 +589,6 @@ Partial Class PopUpVerFactura
         ImprimirPDF("GPS/EmbarqueManifiestoRemision.rdlc", lrds, params, "Remisión", Content_Disposition:="Inline")
     End Sub
 
-
     Private Sub imprimirManifiestoCartaPorte(cveEmbarqueManifiesto As Integer)
         Dim NoEmbarque As String = ""
         Dim Fecha As String = ""
@@ -675,7 +757,6 @@ Partial Class PopUpVerFactura
 
     End Sub
 
-
     Private Sub imprimirpallet2(cvePallet As Integer)
         Dim Envase As String = ""
         Dim Tamano As String = ""

Contabilidad/RegPrePolizaS.aspx.vb

@@ -400,6 +400,8 @@ Partial Class ContabilidadC_RegPrePolizaS
             .Add("EsComplementaria", Type.GetType("System.Boolean"))
             .Add("EsMonedaExtranjera", Type.GetType("System.Boolean"))
             .Add("TC", Type.GetType("System.Decimal"))
+            .Add("CvePrePoliza", Type.GetType("System.Int32"))
+
         End With
 
         If Not DtMovimientos.Columns.Contains("Cargo") Then

Empresas/13/Formatos/Factura.rdlc

@@ -662,7 +662,7 @@
                 </TablixCell>
                 <TablixCell>
                   <CellContents>
-                    <Textbox Name="SATClaveProdServ">
+                    <Textbox Name="Codigo1">
                       <CanGrow>true</CanGrow>
                       <KeepTogether>true</KeepTogether>
                       <Paragraphs>
@@ -674,19 +674,13 @@
                                 <FontSize>7pt</FontSize>
                               </Style>
                             </TextRun>
-                            <TextRun>
-                              <Value xml:space="preserve"> </Value>
-                              <Style>
-                                <FontSize>7pt</FontSize>
-                              </Style>
-                            </TextRun>
                           </TextRuns>
                           <Style>
                             <TextAlign>Left</TextAlign>
                           </Style>
                         </Paragraph>
                       </Paragraphs>
-                      <rd:DefaultName>SATClaveProdServ</rd:DefaultName>
+                      <rd:DefaultName>Codigo1</rd:DefaultName>
                       <Style>
                         <Border>
                           <Color>LightGrey</Color>
@@ -742,7 +736,7 @@
                 </TablixCell>
                 <TablixCell>
                   <CellContents>
-                    <Textbox Name="Codigo">
+                    <Textbox Name="SATClaveProdServ">
                       <CanGrow>true</CanGrow>
                       <KeepTogether>true</KeepTogether>
                       <Paragraphs>
@@ -760,7 +754,7 @@
                           </Style>
                         </Paragraph>
                       </Paragraphs>
-                      <rd:DefaultName>Codigo</rd:DefaultName>
+                      <rd:DefaultName>SATClaveProdServ</rd:DefaultName>
                       <Style>
                         <Border>
                           <Color>LightGrey</Color>
@@ -3275,6 +3269,18 @@
               <Parameter Name="NumTotalMercancias">
                 <Value>=Parameters!SRP_NumTotalMercancias.Value</Value>
               </Parameter>
+              <Parameter Name="PermisoSCTRemolque1">
+                <Value>=Parameters!SRP_PermisoSCTRemolque1.Value</Value>
+              </Parameter>
+              <Parameter Name="PermisoSCTRemolque2">
+                <Value>=Parameters!SRP_PermisoSCTRemolque2.Value</Value>
+              </Parameter>
+              <Parameter Name="ConfATR1">
+                <Value>=Parameters!SRP_ConfATR1.Value</Value>
+              </Parameter>
+              <Parameter Name="ConfATR2">
+                <Value>=Parameters!SRP_ConfATR2.Value</Value>
+              </Parameter>
             </Parameters>
             <Top>0.06863cm</Top>
             <Height>1.11461cm</Height>
@@ -4668,6 +4674,30 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="SRP_PermisoSCTRemolque1">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="SRP_PermisoSCTRemolque2">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="SRP_ConfATR1">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="SRP_ConfATR2">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="Logo">

GPS/RepUnidades.aspx

@@ -142,13 +142,13 @@
                                 <asp:DropDownList ID="DdlCliente" runat="server" Width="200px" DataTextField="Nombre" DataValueField="CveCliente" CssClass="form-control input-sm select2me">
                                 </asp:DropDownList>
                             </li>
-                            <li>Fecha Inicio:
+                            <li>Fecha Inicio:
                                                
                                 <div class="input-group input-sm  date date-picker " data-date-format="dd/mm/yyyy hh:mm" style="display: inline-block;">
                                     <asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="18" Width="132px "></asp:TextBox>
                                 </div>
                             </li>
-                            <li>Fecha Fin:
+                            <li>Fecha Fin:
                                            
                                 <div class="input-group input-sm date date-picker " data-date-format="dd/mm/yyyy" style="display: inline-block;">
                                     <asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="18" Width="132px "></asp:TextBox>
@@ -247,6 +247,7 @@
                             <asp:BoundField DataField="IMEI" ItemStyle-Width="12.5%" HeaderText="IMEI" ItemStyle-HorizontalAlign="Center" />
                             <asp:BoundField DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="12.5%" HeaderText="Fecha Ingreso" ItemStyle-HorizontalAlign="Center" />
                             <asp:BoundField DataField="FechaAlta" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="12.5%" HeaderText="Fecha Alta" ItemStyle-HorizontalAlign="Center" />
+                            <asp:BoundField DataField="FechaBaja" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="15%" HeaderText="Fecha Baja" ItemStyle-HorizontalAlign="Left" />
                             <asp:TemplateField ItemStyle-Width="12.5%" HeaderText="Estatus" ItemStyle-HorizontalAlign="Center">
                                 <ItemTemplate>
                                     <asp:Label ID="LblEstatus" runat="server" Text='<%# Eval("Estatus") %>'></asp:Label>

GPS/ReporteUnidadesnoTransmiten.aspx

@@ -81,6 +81,7 @@
                     <asp:BoundField DataField="IMEI" ItemStyle-Width="10%" HeaderText="IMEI" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField DataField="NumeroTelefono" ItemStyle-Width="20%" HeaderText="Número Teléfono" ItemStyle-HorizontalAlign="Center" />
                     <asp:BoundField DataField="Ultimaconexion" ItemStyle-Width="15%" HeaderText="Ultima conexión" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="FechaBaja" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="15%" HeaderText="Fecha Baja" ItemStyle-HorizontalAlign="Left" />
 
                 </Columns>
             </asp:GridView>

General/SaldosIniciales.aspx.vb

@@ -2372,6 +2372,10 @@ Partial Class General_SaldosIniciales
 
                 Dim CvePersonal As Integer = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePersonal", $"NombreCompletoNombre = '{NombreCompleto}'").ToString.ToEntero()
 
+                If Not (CvePersonal > 0) Then
+                    CvePersonal = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePersonal", $"CURP = '{CURP}'").ToString.ToEntero()
+
+                End If
 
                 'PENDIENTES POR MEJORAR
                 Dim CveSATRegimenContratacion As Integer = 1
@@ -2430,10 +2434,13 @@ Partial Class General_SaldosIniciales
                                   -1, -1, -1, CveMetodoPago, FechaIn, FechaFn.ToString, CveTipoContrato, Direccion, CveTurno, CvePuesto, CveDepartamento, -1, CveEscolaridad, CveEstadoCivil, CveGenero, -1, FechaBaja, CveEstatusPersonal, FechaNac,
                                  LugarNacimiento, Direccion, "", "", "", CodigoPostal, Ciudad, CveEstado, Telefono, Celular, RFC, CURP, NombrePadre, NombreMadre, -1, CveSATRiesgoPuesto, CveSATRegimenContratacion, -1, CveSubProyecto, "", -1,
                                  ClabeInterbancaria, "", CveJornada, CveJornada, "", -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveUsuarioNomina, CveRegistroPatronal:=CveRegistroPatronal) Then
-                        ErrorRH = True
+                        If (ObjRH.noguardoXcurpb) Then
-                        Exit For
+                        Else
+                            ErrorRH = True
+                            Exit For
+                        End If
                     Else
-                        ContadorAgregados = ContadorAgregados + 1
+                            ContadorAgregados = ContadorAgregados + 1
                     End If
                 End If
 

Inventarios/RecepcionUsados.aspx

@@ -130,7 +130,7 @@
                                             <div id="DivCliente" runat="server" visible="true">
                                                 <label class="col-md-1 truncate" style="width: 110px">Cliente:</label>
                                                 <div class="col-md-2">
-                                                    <asp:DropDownList ID="DdlClientes" AutoPostBack="False" OnSelectedIndexChanged="DdlClientes_SelectedIndexChanged" AppendDataBoundItems="true" runat="server" CssClass="form-control input-sm select2me" Style="max-width: 200px" DataTextField="NombreComercial" DataValueField="CveCliente"></asp:DropDownList>
+                                                    <ADS:Dropdownlost ID="DdlClientes" Width="100%" CssStyle="width: 100%;" UsaWebService="true" AppendDataBoundItems="true" AutoPostBack="true" CssClass="select2me" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente"></ADS:Dropdownlost>
                                                 </div>
                                                 <div class="col-md-2">
                                                     <label class="col-md-1 truncate" style="width: 125px">Todos los clientes:</label>

Inventarios/RecepcionUsados.aspx.vb

@@ -15,14 +15,14 @@ Partial Class Inventarios_RecepcionUsados
 
     Private _dtDatos As DataTable
 
-    Public Property DtClientes() As DataTable
+    'Public Property DtClientes() As DataTable
-        Get
+    '    Get
-            Return CType(ViewState("DtClientes"), DataTable)
+    '        Return CType(ViewState("DtClientes"), DataTable)
-        End Get
+    '    End Get
-        Set(value As DataTable)
+    '    Set(value As DataTable)
-            ViewState("DtClientes") = value
+    '        ViewState("DtClientes") = value
-        End Set
+    '    End Set
-    End Property
+    'End Property
 
     Public Property DtMovimientos() As DataTable
         Get
@@ -454,6 +454,7 @@ Partial Class Inventarios_RecepcionUsados
         Dim Fecha As DateTime = IfNull(Request("Fecha"), Now.ToString("dd/MM/yyyy")).ToString().ToDateTime()
 
         If Not String.IsNullOrEmpty(RFC) Then
+            Dim DtClientes = GlobalDTCliente(UsuarioActual.CveEmpresa)
             If DtClientes Is Nothing Then
                 Alert("No se encontraron clientes para filtrar", TipoMensaje.MsgError)
                 Exit Sub
@@ -476,8 +477,10 @@ Partial Class Inventarios_RecepcionUsados
             End If
 
             Dim CveCliente As Integer = RowCliente("CveCliente").ToString().ToEntero()
+            Dim Cliente = RowCliente("NombreComercial").ToString()
 
-            DdlClientes.SelectedValueExist(CveCliente)
+            DdlClientes.SelectedValue = CveCliente.ToString()
+            DdlClientes.SelectedText = Cliente
             DdlClientes_SelectedIndexChanged(DdlClientes, EventArgs.Empty)
 
             DdlAlmacen.SelectedValueExist(CveAlmacen)
@@ -775,6 +778,10 @@ Partial Class Inventarios_RecepcionUsados
         EsDistribuidor = False
         InicializaClientes(True)
         DdlClientes.Enabled = True
+        If Not String.IsNullOrEmpty(DdlClientes.ddlWS.Attributes.Item("disabled")) Then
+            DdlClientes.ddlWS.Attributes.Remove("disabled")
+        End If
+
         ChkClientesTodos.Enabled = True
 
         SiguienteFolio()
@@ -2008,14 +2015,11 @@ Partial Class Inventarios_RecepcionUsados
 
 #Region "DDL CLIENTE / CLIENTE SUCURSAL - SELECTED INDEX CHANGED"
     Private Sub InicializaClientes(Todos As Boolean)
-        DtClientes = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros(If(Todos, "", "EsDistribuidor = 1"))
+        DdlClientes.ddlWS.Attributes.Add("data-esdistribuidor", If(Todos, "-1", "1"))
-
-        DdlClientes.DataSource = DtClientes
-        DdlClientes.DataBind()
-
-        DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlClientes.SelectedValue = "-1"
+        DdlClientes.SelectedText = "Seleccione"
 
+        UpGenerales.Update()
     End Sub
     'Protected Sub ActivaClientes()
     '    If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
@@ -2027,7 +2031,7 @@ Partial Class Inventarios_RecepcionUsados
 
 
     'End Sub
-    Protected Sub DdlClientes_SelectedIndexChanged(sender As Object, e As EventArgs)
+    Protected Sub DdlClientes_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClientes.selectedindexchange
         CambiaCliente()
     End Sub
     Private Sub CambiaCliente(Optional CargaSucursales As Boolean = True, Optional CargaFacturas As Boolean = True)
@@ -2314,11 +2318,16 @@ Partial Class Inventarios_RecepcionUsados
 
             'RELACIONA LA VENTA DETALLA DE LA REMISION
             If DtUsados IsNot Nothing Then
-                DtUsados.Columns.Add(New DataColumn("CveVentaDetalle", GetType(Integer)))
+                If Not DtUsados.Columns.Contains("CveVentaDetalle") Then
+                    DtUsados.Columns.Add(New DataColumn("CveVentaDetalle", GetType(Integer)))
+                End If
+
                 For Each RowUsado As DataRow In DtUsados.Rows
-                    Dim CveVentaDetalle As Integer = Me.ObjFactura.DtDetalle.FiltroPrimeroValor("CveVentaDetalle", $"EsCargo = 1 AND Cantidad = {RowUsado("Cantidad")} AND CvePS = {RowUsado("CvePS")}").ToEntero()
+                    If RowUsado("CveVentaDetalle").ToString().ToEntero() <= 0 Then
-                    If CveVentaDetalle > 0 Then
+                        Dim CveVentaDetalle As Integer = Me.ObjFactura.DtDetalle.FiltroPrimeroValor("CveVentaDetalle", $"EsCargo = 1 AND Cantidad = {RowUsado("Cantidad")} AND CvePS = {RowUsado("CvePS")}").ToEntero()
-                        RowUsado("CveVentaDetalle") = CveVentaDetalle
+                        If CveVentaDetalle > 0 Then
+                            RowUsado("CveVentaDetalle") = CveVentaDetalle
+                        End If
                     End If
                 Next
             End If
@@ -2330,13 +2339,15 @@ Partial Class Inventarios_RecepcionUsados
             If CveCliente > 0 Then
                 DivCliente.Visible = True
 
-                DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveCliente = {0}", CveCliente))
+                Dim Cliente = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial")
-                DdlClientes.DataBind()
+
+                DdlClientes.SelectedValue = CveCliente.ToString()
+                DdlClientes.SelectedText = Cliente
 
-                DdlClientes.SelectedValueExist(CveCliente)
                 CambiaCliente(False, False)
 
                 DdlClientes.Enabled = False
+                DdlClientes.ddlWS.Attributes.Add("disabled", "disabled")
                 ChkClientesTodos.Enabled = False
             End If
 
@@ -3414,7 +3425,6 @@ Partial Class Inventarios_RecepcionUsados
 #End Region
 
     Protected Sub SeleccionarTipoDeClientes(sender As Object, e As EventArgs)
-        DdlClientes.Items.Clear()
         InicializaClientes(ChkClientesTodos.Checked)
     End Sub
 

Metronic/assets/admin/layout/css/custom.css

@@ -12,6 +12,7 @@
 .table-hover > tbody > tr:hover {
     background-color: #e5e5e5;
 }
+
 .table-striped > tbody > tr:nth-of-type(odd).ADSRow,
 table > tbody > tr.ADSRow > td, table.table > tbody > tr.ADSRow > td,
 table > tr.ADSRow > td, table.table > tr.ADSRow > td,
@@ -2996,4 +2997,8 @@ div.mypaste * {
 }
 .btn-circle.btn-sm btn-xs {
     line-height: 1;
+}
+
+table > tbody > tr.hidetrad {
+    display: none;
 }

Nomina/Nomina.aspx.cs

@@ -216,8 +216,12 @@ public partial class Nomina_Nomina2 : ClsPaginas
             using (ClsNominas objnom = new ClsNominas())
             {
                 objnom.GetNominasSinTimbrar(-1, UsuarioActual.CveEmpresa);
+                if (objnom.DTSetResultados.Tables.Count > 0)
+                {
+
                 GVNominaPendiente.DataSource = objnom.DTSetResultados.Tables[0];
                 GVNominaPendiente.DataBind();
+                }
                 if (GVNominaPendiente.Rows.Count > 0)
                 {
                     RegistraScript("$('#ModalNominaPendiente').modal();");
@@ -2203,7 +2207,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
         DataRow drow = dtempleados.FiltroPrimero(string.Format("CvePersonal = {0}", SRCvePersonal));
         TxtCCSysSalarioMinimo.Text = "";
-        TxtCCSysUMA.Text = "$89.62";
+        TxtCCSysUMA.Text = "$96.22";
         if (drow != null)
         {
             TxtCCSysSalarioMinimo.Text = string.Format("${0:N2}", drow["SalarioMinimo"]);
@@ -2245,7 +2249,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         if (drow != null)
         {
             int Fechafin = string.Format("{0:yyyyMMdd}", drow["FechaFin"]).ToEntero();
-            decimal UMA = 89.62M;
+            decimal UMA = 96.22M;
             decimal SalarioDiarioIMSS = drow["SalarioDiarioIMSS"].ToString().ToDecimal();
             decimal DiasIMSS = drow["DiasIMSS"].ToString().ToDecimal();
             decimal importeparacuota = SalarioDiarioIMSS > (3 * UMA) ? SalarioDiarioIMSS - (3 * UMA) : 0M;
@@ -2298,13 +2302,13 @@ public partial class Nomina_Nomina2 : ClsPaginas
         DataRow drow = dtempleados.FiltroPrimero(string.Format("CvePersonal = {0}", SRCvePersonal));
         if (drow != null)
         {
-            decimal UMA = 89.62M;
+            decimal UMA = 96.22M;
             decimal HorasDobles = drow["HorasDobles"].ToString().ToDecimal();
             decimal HorasTriples = drow["HorasTriples"].ToString().ToDecimal();
             decimal ImporteHora = drow["SalarioDiario"].ToString().ToDecimal() / 8;
-            decimal Semanaslaboradas = Decimal.Truncate((drow["DiasLaborados"].ToString().ToDecimal() / 7));
+            decimal Semanaslaboradas = Decimal.Truncate((drow["DiasLaborados"].ToString().ToDecimal() / 7M));
             bool seExentandobles = !(drow["SalarioDiario"].ToString().ToDecimal() > drow["SalarioMinimo"].ToString().ToDecimal());
-            decimal TopeHorasDobles = Semanaslaboradas * 9;
+            decimal TopeHorasDobles = Semanaslaboradas * 9M;
             decimal HorasExcentas = HorasDobles > TopeHorasDobles ? TopeHorasDobles : HorasDobles;
             decimal ImporteHorasExtrasAntes = HorasExcentas * ImporteHora * (seExentandobles ? 2 : 1);
             decimal TopeImporte = Semanaslaboradas * 5 * UMA;

RH/CatPersonal.aspx

@@ -336,12 +336,12 @@
     <div class="portlet light smmallpadding bordered">
         <div class="portlet-title">
             <div class="caption">
-                <i class="icon-user"></i><span class="caption-subject bold uppercase" style="font-size: 18px;">Personal</span>
+                <i class="icon-user"></i><span class="caption-subject bold uppercase" style="font-size: 18px;">Personal (<span id="contaper" ></span>)</span>
             </div>
             <div class="tools">
                 <div style="display: inline-block">
-                    <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px; height: 25px; border-color: #89C4F4;" />
+                    <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTablaClass('TxtBusqueda','{0}','contaper')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px; height: 25px; border-color: #89C4F4;" />
-                    <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                    <a href="javascript:;" onclick="<%= String.Format("FiltrarTablaClass('TxtBusqueda','{0}','contaper')", GvDatos.ClientID) %>" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                 </div>
                 <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
             </div>
@@ -1293,6 +1293,11 @@
     <script src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
 
     <script type="text/javascript">
+
+
+        Sys.Application.add_load(function (s, e) {
+        <%= String.Format("FiltrarTablaClass('TxtBusqueda','{0}','contaper');", GvDatos.ClientID) %>
+        });
         function OrdenarGV() {
 
         }
@@ -2168,8 +2173,6 @@
             return homonimio;
         }
 
-
-
         function fnCalculaCURP(pstNombre, pstPaterno, pstMaterno, dfecha, pstSexo, pnuCveEntidad) {
 
             pstCURP = "";

RH/Personal.aspx.vb

@@ -1560,7 +1560,7 @@ Partial Class RH_Personal
                 CHKRFCValidado.Checked = drow("RFCValidado").ToString() = "1"
                 'ChkPensionado.Checked = drow("Pensionado").ToString().ToUpper().Contiene("1", "TRUE")
                 ChkSindicalizado.Checked = drow("Sindicalizado").ToString().ToUpper().Contiene("1", "TRUE")
-                TxtMailrecibonomina.Text = drow("MaiReciboNomina").ToString()
+                'TxtMailrecibonomina.Text = drow("MaiReciboNomina").ToString()
                 'Carga Datos Personales
                 LtlPersonal.Text = ObjPersonal.NombreCompleto
                 NombreCompleto = ObjPersonal.NombreCompleto

Scripts/custom.js

@@ -70,21 +70,37 @@ function log(mensaje) {
     console.log(mensaje);
 }
 function FiltrarTabla(idtxt, idtable, idcontador) {
-    if ($('#' + idtxt).val() == '') { $('table#' + idtable + ' tr').css('display', 'table-row'); }
+    if ($('#' + idtxt).val() == '') { $('table#' + idtable + ' tr').css('display', ''); }
     else {
-        $('table#' + idtable + ' tr:not(.ADtr)').css('display', 'none'); $('table#' + idtable + ' tr:contains("' + $('#' + idtxt).val() + '")').css('display', 'table-row');
+        $('table#' + idtable + ' tr:not(.ADtr)').css('display', 'none'); $('table#' + idtable + ' tr:contains("' + $('#' + idtxt).val() + '")').css('display', '');
         $('div.ADScroller .ADScroller-header table#' + idtable + ' tr:not(.ADtr)').css('display', '');
     }
     if ($('#' + idcontador).length > 0) {
         $('#' + idcontador).html($('#' + idtable + ' tr:visible').length);
     }
 }
+function FiltrarTablaClass(idtxt, idtable, idcontador, resta) {
+    if (resta == null) {
+        resta =1
+    }
+    if ($('#' + idtxt).val() == '') { $('table#' + idtable + ' tr').removeClass('hidetrad') }
+    else {
+        $('table#' + idtable + ' tr:not(.ADtr)').addClass('hidetrad'); $('table#' + idtable + ' tr:contains("' + $('#' + idtxt).val() + '")').removeClass('hidetrad');
+        $('div.ADScroller .ADScroller-header table#' + idtable + ' tr:not(.ADtr)').removeClass('hidetrad');
+    }
+    if ($('#' + idcontador).length > 0) {
+        let numconta = $('#' + idtable + ' tr:not(.hidetrad):not(.ADtr)').length;
+        if (numconta > 0) { numconta - resta}
+        $('#' + idcontador).html(numconta );
+    }
+}
+
 
 function FiltrarTablaV2(idtxt, idtable, idcontador) {
     if ($(idtxt).val() == '') { $(idtable + ' tr').css('display', ''); }
     else {
         $(idtable + ' tr:not(.ADtr)').css('display', 'none'); $(idtable + ' tr:contains("' + $(idtxt).val() + '")').css('display', '');
-        $('div.ADScroller .ADScroller-header '+idtable + ' tr:not(.ADtr)').css('display', '');
+        $('div.ADScroller .ADScroller-header ' + idtable + ' tr:not(.ADtr)').css('display', '');
     }
     if ($('#' + idcontador).length > 0) {
         $('#' + idcontador).html($(idtable + ' tr:visible').length);
@@ -542,7 +558,7 @@ function ADScroller2() {
                 function () { $('table#ADCol' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').addClass('hover'); },
                 function () { $('table#ADCol' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').removeClass('hover'); });
             setTimeout(sizeoftablefunc, 100);
-             
+
             Tthis.parent().parent().bind('resize', function () {
                 setTimeout(resizefncscroller, 100);
             })
@@ -912,7 +928,7 @@ ADSScroll = function (tablescroll) {
         //objDiv.append(tablescroll);
         if (firsttr) {
             let childitem = firsttr.find('> td,th').length;
-            let contador =1
+            let contador = 1
             firsttr.find('> td,th').each(function () {
                 var thistd = $(this);
                 let widthitem = thistd.width();
@@ -1099,7 +1115,7 @@ function ADDropzone(txtid) {
                 document.getElementById(txtid + '-paste').onpaste = function (event) {
                     var __This = myDropzone;
                     var objfiles = JSON.parse(TxtField.val());
-                    if ((maxFile != null) || (maxFile < 1)  || objfiles.length < maxFile) {
+                    if ((maxFile != null) || (maxFile < 1) || objfiles.length < maxFile) {
                         // use event.originalEvent.clipboard for newer chrome versions
                         var items = (event.clipboardData || event.originalEvent.clipboardData).items;
                         //console.log(JSON.stringify(items)); // will give you the mime types

Ventas/CatAutorizacionLimites.aspx.vb

@@ -77,7 +77,7 @@ Partial Class Ventas_CatAutorizacionLimites
         FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim.ToDate, MaxFecha)
 
         Dim ObjGral As New ClsVentas
-        If ObjGral.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedorFiltro.SelectedValue.ToEntero(), "-1", CveEstatus:=DdlEstatus.SelectedValue.ToEntero(), FechaI:=FechaI, FechaF:=FechaF) Then
+        If ObjGral.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedorFiltro.SelectedValue.ToEntero(), "-1", CveEstatus:=DdlEstatus.SelectedValue.ToEntero(), FechaI:=FechaI, FechaF:=FechaF, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
             GvDatos.DataSource = ObjGral.DtResultados
         End If
         ObjGral.Dispose()

Ventas/Clientes.aspx

@@ -4502,7 +4502,7 @@
 
                                                         <asp:TemplateField HeaderText="Cargo" ItemStyle-HorizontalAlign="Center">
                                                             <ItemTemplate>
-                                                                <asp:CheckBox ID="ChkCargo" runat="server"></asp:CheckBox>
+                                                                <asp:CheckBox ID="ChkCargo" runat="server" Visible="false" Checked="false"></asp:CheckBox>
                                                             </ItemTemplate>
                                                         </asp:TemplateField>
                                                         <asp:TemplateField HeaderText="Bonificación" ItemStyle-HorizontalAlign="Center">

Ventas/Clientes.aspx.vb

@@ -9219,13 +9219,13 @@ Partial Class Clientes
                 Dim FacturadoCargo As Boolean = Boolean.Parse(e.Row.DataKey("FacturadoCargo"))
                 Dim FacturadoBonificacion As Boolean = Boolean.Parse(e.Row.DataKey("FacturadoBonificacion"))
 
-                If FacturadoCargo Then
+                'If FacturadoCargo Then
-                    e.Row.FCCheckBox("ChkCargo").Checked = False
+                '    e.Row.FCCheckBox("ChkCargo").Checked = False
-                    e.Row.FCCheckBox("ChkCargo").Visible = False
+                '    e.Row.FCCheckBox("ChkCargo").Visible = False
-                Else
+                'Else
-                    e.Row.FCCheckBox("ChkCargo").Checked = False
+                '    e.Row.FCCheckBox("ChkCargo").Checked = False
-                    e.Row.FCCheckBox("ChkCargo").Visible = False 'True
+                '    e.Row.FCCheckBox("ChkCargo").Visible = False 'True
-                End If
+                'End If
 
                 If FacturadoBonificacion Then
                     e.Row.FCCheckBox("ChkBonificacion").Checked = False
@@ -9240,6 +9240,10 @@ Partial Class Clientes
                     ElseIf e.Row.DBCampo("EsUsadoAjuste") = "1" Then
                         e.Row.FCCheckBox("ChkBonificacion").Visible = False
                     End If
+
+                    If e.Row.DBCampo("ImporteBonificacion").ToDecimal() = 0 Then
+                        e.Row.FCCheckBox("ChkBonificacion").Visible = False
+                    End If
                 End If
 
             Else

Ventas/PV.aspx

@@ -2482,7 +2482,7 @@
                         <div class="row" style="padding-left: 16px;">
                             <div class="form-group form-md-line-input input-iconright col-xs-9">
                                 <asp:TextBox ID="TxtRFCCliente" Text="XAXX010101000" Style="text-transform: uppercase;" placeholder="Ingrese el RFC para su validación" runat="server" CssClass="form-control" MaxLength="13" CausesValidation="true"></asp:TextBox>
-                                <asp:RegularExpressionValidator ID="REVRFCCliente" runat="server" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es incorrecto, por favor ingréselo." ValidationGroup="GrpGuardarCliente" ControlToValidate="TxtRFCCliente" ValidationExpression="[a-z,ñ,A-Z,Ñ,&]{3,4}[0-9]{2}[0-1][0-9][0-3][0-9][A-Z,0-9]?[A-Z,0-9]?[0-9,A-Z]?"></asp:RegularExpressionValidator>
+                                <asp:RegularExpressionValidator ID="REVRFCCliente" runat="server" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es incorrecto, por favor ingréselo." ValidationGroup="GrpGuardarCliente" ControlToValidate="TxtRFCCliente" ValidationExpression="^[a-zñA-ZÑ.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$"></asp:RegularExpressionValidator>
                                 <label for="<%= TxtRFCCliente.ClientID.ToString()%>">RFC:</label>
                             </div>
                             <div class="form-group form-md-line-input input-iconright col-xs-3">

Ventas/PV.aspx.vb

@@ -5014,7 +5014,7 @@ Partial Class PV
         If Modalidad = "A" Then
             Row("Consec") = TmpDT.MAX("Consec").ToEntero() + 1
             If Not EsCargo Then
-                ConsecutivoVenta = TmpDT.MAX("Consec").ToEntero() + 1
+                ConsecutivoVenta = Row("Consec").ToString.ToEntero
             End If
         ElseIf Modalidad = "U" Then
             If Not EsCargo Then
@@ -7661,6 +7661,7 @@ Partial Class PV
         TmpDTRecepcionUsados = New DataTable
         TmpDTRecepcionUsados.Columns.Add("CvePS", GetType(Integer))
         TmpDTRecepcionUsados.Columns.Add("CvePSRelacionado", GetType(Integer))
+        TmpDTRecepcionUsados.Columns.Add("ConsecUsado", GetType(Integer))
         TmpDTRecepcionUsados.Columns.Add("ConsecRelacionado", GetType(Integer))
         TmpDTRecepcionUsados.Columns.Add("Cantidad", GetType(Decimal))
         TmpDTRecepcionUsados.Columns.Add("AnioVehiculo", GetType(String))
@@ -7743,6 +7744,9 @@ Partial Class PV
             Row("PU") = DrTamanio("Cargo").ToString().ToDecimal
             Row("CveBCIUsado") = DdlBCIUsado.SelectedValue.ToEntero
             Row("CveModeloAuto") = DdlModeloAuto.SelectedValue.ToEntero
+            If ListaPSCargo IsNot Nothing AndAlso ListaPSCargo.Count = 1 Then
+                Row("ConsecUsado") = ListaPSCargo.FirstOrDefault().ConsecutivoUsado
+            End If
             Row("ConsecRelacionado") = ConsecPSPadre
             Row("FechaUsado") = TxtFechaVigencia.Text.ToDateTime()
             Row("AnioVehiculo") = TxtAnioVehiculo.Text
@@ -7878,6 +7882,7 @@ Partial Class PV
     End Sub
     Public Class MConceptoUsado
         Public Property Consecutivo As Integer
+        Public Property ConsecutivoUsado As Integer
         Public Property CvePS As Integer
     End Class
     Private Function CalculaUsados(Consec As Integer, Optional LimpiarUsados As Boolean = True) As List(Of MConceptoUsado)
@@ -7985,12 +7990,12 @@ Partial Class PV
 
         For Each drowPsTamaños As DataRow In DTPSTemp.Rows
             If drowPsTamaños("PU").ToString.ToDecimal > 0 Then
-                Dim Concec = AgregarProductoServicio(drowPsTamaños("Cantidad").ToString.ToEntero, drowPsTamaños("CveUnidadMedida").ToString.ToEntero, drowPsTamaños("UnidadMedida").ToString,
+                Dim ConsecutivoUsado As Integer = AgregarProductoServicio(drowPsTamaños("Cantidad").ToString.ToEntero, drowPsTamaños("CveUnidadMedida").ToString.ToEntero, drowPsTamaños("UnidadMedida").ToString,
                                                 drowPsTamaños("CveClasificacion").ToString.ToEntero, drowPsTamaños("Clasificacion").ToString, drowPsTamaños("CvePS").ToString.ToEntero,
                                                 drowPsTamaños("PS").ToString, "", drowPsTamaños("PU").ToString.ToDecimal, 0, -1, "", drowPsTamaños("CveSubProyecto").ToString.ToEntero,
                                                 drowPsTamaños("SubProyecto").ToString, EsCargo:=True, ConsecPSPadre:=drowPsTamaños("ConsecPSPadre").ToString.ToEntero, EliminarDB:=CBool(drowPsTamaños("EliminarDB").ToString()))
                 If Consec > 0 Then
-                    ListaPScargo.Add(New MConceptoUsado() With {.Consecutivo = Consec, .CvePS = drowPsTamaños("CvePS").ToString.ToEntero})
+                    ListaPScargo.Add(New MConceptoUsado() With {.Consecutivo = Consec, .ConsecutivoUsado = ConsecutivoUsado, .CvePS = drowPsTamaños("CvePS").ToString.ToEntero})
                 End If
             End If
         Next

Ventas/RepVentasPeriodo.aspx.vb

@@ -399,7 +399,7 @@ Partial Class RepVentasPeriodo
             For Each DbRow As DataRow In DTDatos.Rows
                 Dim moneda As String = DbRow("Moneda").ToString
                 Dim total As String = DbRow("GPO").ToString
-                If total <> "Total Pesos" Then
+                If total <> "Total Peso Mexicano" Then
                     If moneda = "Peso Mexicano" Then
                         Info = String.Format("{2}['{1}',{0}],", DbRow(ColValue), DbRow(ColTitle), Info)
                     End If

vwd.webinfo

@@ -510,6 +510,10 @@
     
   
     
+  
+    
+  
+