Merge branch 'master' of http://192.168.10.111:8383/SIG

Acumuladores/RepPolizasVirtuales.aspx

@@ -117,7 +117,7 @@
             <div class="row">
                 <div class="col-md-12">
 
-                    <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePolizaVirtual,AnioVehiculo,SerieFolio,CveVenta,Descuento,Enviada,FechaEnvioPoliza,FechaIng,PU,TieneUsado,TipoPoliza,TipoServicio,Total,FechaUsado,Serie,Codigo2,IdProductoPolizaVirtual,RespuestaEnvio,IdBCI,BCI,IdModeloAuto,ModeloAuto,IdMarcaAuto,MarcaAuto,IdMarcaUsado,MarcaUsado" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None">
+                    <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePolizaVirtual,AnioVehiculo,SerieFolio,CveVenta,Descuento,Enviada,FechaEnvioPoliza,FechaIng,PU,TieneUsado,TipoPoliza,TipoServicio,Total,FechaUsado,Serie,NumeroParte,IdProductoPolizaVirtual,RespuestaEnvio,IdBCI,BCI,IdModeloAuto,ModeloAuto,IdMarcaAuto,MarcaAuto,IdMarcaUsado,MarcaUsado" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None">
                         <Columns>
 
                             <asp:HyperLinkField DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataTextField="SerieFolio" HeaderText="Serie-Folio" ItemStyle-Width="100px" Target="_blank" ControlStyle-CssClass="Texto" >
@@ -129,7 +129,7 @@
                              
                            
                             <asp:BoundField HeaderText="Serie" DataField="Serie" />
-                            <asp:BoundField HeaderText="Codigo CPK" DataField="Codigo2" />
+                            <asp:BoundField HeaderText="Codigo CPK" DataField="NumeroParte" />
                             <asp:BoundField HeaderText="RespuestaEnvio" DataField="RespuestaEnvio" />                            
                              <asp:TemplateField HeaderText="Marca">                              
                                 <ItemTemplate>

App_Code/ClsGenerales.vb

@@ -990,7 +990,7 @@ Public Class ClsGenerales
 #End Region
 
 #Region "R I M T A M A N I O S"
-    Public Function GetRimTamanios(CveEmpresa As Integer, Optional CveRinTamaño As Integer = -1) As Boolean
+    Public Function GetRinTamanios(CveEmpresa As Integer, Optional CveRinTamaño As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_TamañosGet")
 

App_Code/ClsPaginas.vb

@@ -4401,6 +4401,45 @@ Public Class ClsPaginas
             Application(AppNombre) = value
         End Set
     End Property
+
+    Public Shared Property GlobalDTPSRinTamaños(CveEmpresa As Integer, Optional CveRinTamaño As Integer = -1) As DataTable
+        Get
+            Dim AppNombre As String = $"GlobalDTPSRinTamaños-{CveEmpresa}"
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Using ObjGral As New ClsGenerales()
+                    If ObjGral.GetRinTamanios(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjGral.DtResultados Else HttpContext.Current.Application(AppNombre) = Nothing
+                End Using
+            End If
+            Dim Str As New StringBuilder
+            If CveRinTamaño > 0 Then Str.AppendFormat(" CveRinTamaño = {0} ", CveRinTamaño)
+            Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+            GlobalDTPSRinTamaños = Dv.ToTable
+        End Get
+        Set(value As DataTable)
+            Dim AppNombre As String = $"GlobalDTPSRinTamaños-{CveEmpresa}"
+            HttpContext.Current.Application(AppNombre) = value
+        End Set
+    End Property
+
+    Public Shared Property GlobalDTPSMedidas(CveEmpresa As Integer, Optional CveMedida As Integer = -1) As DataTable
+        Get
+            Dim AppNombre As String = $"GlobalDTPSMedidas-{CveEmpresa}"
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Using ObjGral As New ClsGenerales()
+                    If ObjGral.GetMedidas(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjGral.DtResultados Else HttpContext.Current.Application(AppNombre) = Nothing
+                End Using
+            End If
+            Dim Str As New StringBuilder
+            If CveMedida <> -1 Then Str.AppendFormat(" CveMedida = {0} ", CveMedida)
+            Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+            GlobalDTPSMedidas = Dv.ToTable
+        End Get
+        Set(value As DataTable)
+            Dim AppNombre As String = $"GlobalDTPSMedidas-{CveEmpresa}"
+            HttpContext.Current.Application(AppNombre) = value
+        End Set
+    End Property
+
 #Region "CITRUS GAME"
     Property GlobalDTGralEmpacados(CveEmpresa As Integer) As DataTable
         Get
@@ -5829,6 +5868,12 @@ Public Class ClsPaginas
                     NombreArchivo = "Factura"
                     NombreArchivoDescarga = "Factura"
                     TipoDocumento = "INGRESO"
+
+                    If Vta.CveSubProyecto.Contiene(12696, 12698) Then
+                        NombreArchivo = "FacturaUSA"
+                        NombreArchivoDescarga = "FacturaUSA"
+                    End If
+
                     If UsuarioActual.CveEmpresa.Contiene(137) Then
                         params.Add(New ReportParameter("CveVenta", Vta.CveVenta.ToString))
                     End If
@@ -5876,6 +5921,10 @@ Public Class ClsPaginas
                     NombreArchivo = "Remision"
                     NombreArchivoDescarga = "Remisión"
                     TipoDocumento = "REMISION"
+                    If Vta.CveSubProyecto.Contiene(12696, 12698) Then
+                        NombreArchivo = "FacturaUSA"
+                        NombreArchivoDescarga = "FacturaUSA"
+                    End If
                     params.Add(New ReportParameter("TipoDocumento", NombreArchivoDescarga))
                     params.Add(New ReportParameter("Tipo", TipoDocumento))
                     params.Add(New ReportParameter("Ref", TipoDocumentoRef))
@@ -5885,7 +5934,7 @@ Public Class ClsPaginas
                         params.Add(New ReportParameter("Documentacion", Vta.Cliente.Documentacion))
                         params.Add(New ReportParameter("Medico", Vta.Medico))
                         params.Add(New ReportParameter("Procedimiento", Vta.Procedimiento))
-                        params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy hh:mm")))
+                        params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy HH:mm")))
                     End If
 
                     RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo)
@@ -5993,7 +6042,7 @@ Public Class ClsPaginas
                         params.Add(New ReportParameter("Documentacion", Vta.Cliente.Documentacion))
                         params.Add(New ReportParameter("Medico", Vta.Medico))
                         params.Add(New ReportParameter("Procedimiento", Vta.Procedimiento))
-                        params.Add(New ReportParameter("FechaCirugia", Vta.Alfa1.ToDateTime.ToString("dd/MM/yyyy hh:mm")))
+                        params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy HH:mm")))
                     End If
 
                     RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo)
@@ -6307,7 +6356,7 @@ Public Class ClsPaginas
             Dim paramsArray As New JArray()
             For Each rds As ReportDataSource In DataSource
                 Dim Nombre As String = rds.Name
-                If RutaReporte.Contains("Factura.mrt") OrElse RutaReporte.Contains("Remision.mrt") OrElse RutaReporte.Contains("Cotizacion.mrt") OrElse RutaReporte.Contains("NotaDevolucion.mrt") OrElse RutaReporte.Contains("Pedido.mrt") Then
+                If RutaReporte.Contains("Factura") OrElse RutaReporte.Contains("Remision") OrElse RutaReporte.Contains("Cotizacion") OrElse RutaReporte.Contains("NotaDevolucion") OrElse RutaReporte.Contains("Pedido") Then
                     Select Case rds.Name
                         Case "DsOC"
                             Nombre = "DtDetalle"
@@ -9583,9 +9632,9 @@ Public Class ClsPaginas
 
 #Region "Transportes"
             PaginaDict.Add("/Transportes/ListadoContratos.aspx".ToUpper(), 598)
-            PaginaDict.Add("/Transportes/ListadoViajes.aspx".ToUpper(), 598)
+            PaginaDict.Add("/Transportes/ListadoViajes.aspx".ToUpper(), 599)
-            PaginaDict.Add("/Transportes/Boletos.aspx".ToUpper(), 598)
+            PaginaDict.Add("/Transportes/ListadoBoletos.aspx".ToUpper(), 600)
-            PaginaDict.Add("/Transportes/ListadoBoletos.aspx".ToUpper(), 598)
+            PaginaDict.Add("/Transportes/Boletos.aspx".ToUpper(), 601)
 #End Region
             'Antes de aquí.
 

App_Code/ClsProductosServicios.vb

@@ -31,7 +31,7 @@ Public Class ClsProductosServicios
     Public Property SATClavePS As String
     Public Property SATDescripcion As String
     Public Property Codigo As String
-    Public Property Codigo2 As String
+    Public Property NumeroParte As String
     Public Property CodigoBarras As String
     Public Property PS As String
     Public Property Precio As Double
@@ -202,7 +202,7 @@ Public Class ClsProductosServicios
 
     End Sub
 #End Region
-    Public Function GetPS(CvePS As Integer, CveClasificacion As Integer, CveEmpresa As Integer, Optional Codigo As String = "-1", Optional Codigo2 As String = "-1",
+    Public Function GetPS(CvePS As Integer, CveClasificacion As Integer, CveEmpresa As Integer, Optional Codigo As String = "-1", Optional NumeroParte As String = "-1",
                           Optional CodigoBarras As String = "-1", Optional PS As String = "-1", Optional EsPaquete As Integer = -1, Optional CveSubProyecto As Integer = -1,
                           Optional pAplicaParaVenta As Integer = -1, Optional pEstado As Integer = -1, Optional CveClasificacionCosto As Integer = -1, Optional CveTipoPS As Integer = -1,
                           Optional CveCompuesto As Integer = -1, Optional SATClavePS As String = "-1", Optional TopSelect As Integer = 10000, Optional CveMarca As Integer = -1) As Boolean
@@ -213,7 +213,7 @@ Public Class ClsProductosServicios
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
             .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
-            .Add("@Codigo2", SqlDbType.VarChar).Value = Codigo2
+            .Add("@NumeroParte", SqlDbType.VarChar).Value = NumeroParte
             .Add("@CodigoBarras", SqlDbType.VarChar).Value = CodigoBarras
             .Add("@PS", SqlDbType.VarChar).Value = PS
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
@@ -242,7 +242,7 @@ Public Class ClsProductosServicios
                 SATDescripcion = Data.Rows(0)("SATDescripcion").ToString
                 Me.CveTipoPS = Data.Rows(0)("CveTipoPS").ToString.ToEntero
                 Me.Codigo = Data.Rows(0)("Codigo").ToString
-                Me.Codigo2 = Data.Rows(0)("Codigo2").ToString
+                Me.NumeroParte = Data.Rows(0)("NumeroParte").ToString
                 Me.CodigoBarras = Data.Rows(0)("CodigoBarras").ToString
                 Me.PS = Data.Rows(0)("PS").ToString
                 Precio = Data.Rows(0)("Precio").ToString.ToDouble
@@ -400,7 +400,7 @@ Public Class ClsProductosServicios
         End Try
         Return Retorno
     End Function
-    Public Function AddPS(CveClasificacion As Integer, CveClasificacionCosto As Integer, CveUnidadMedida As Integer, Codigo As String, Codigo2 As String, CodigoBarras As String, PS As String, Precio As Double, IVA As Double, RetIVA As Double, Inventariable As Boolean, CveProveedorCompra As Integer,
+    Public Function AddPS(CveClasificacion As Integer, CveClasificacionCosto As Integer, CveUnidadMedida As Integer, Codigo As String, NumeroParte As String, CodigoBarras As String, PS As String, Precio As Double, IVA As Double, RetIVA As Double, Inventariable As Boolean, CveProveedorCompra As Integer,
                           AplicaParaConcepto As Boolean, AplicaParaVenta As Boolean, CveUsuario As Integer, CveEmpresa As Integer, CveMetodoInventario As Integer, EsPaquete As Integer,
                           Optional CveTipoPS As Integer = -1, Optional FuePorXML As Boolean = True, Optional TipoServicio As Integer = -1, Optional CveClasificacion2 As Integer = -1,
                           Optional CveMarca As Integer = -1, Optional AlmacenSeccion As String = "", Optional AplicaIEPS As Boolean = False, Optional IEPSPorcentaje As Decimal = -1,
@@ -425,7 +425,7 @@ Public Class ClsProductosServicios
             .Add("@CveClasificacionCosto", SqlDbType.Int).Value = CveClasificacionCosto
             .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
             .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
-            .Add("@Codigo2", SqlDbType.VarChar).Value = If(Codigo2 = "", "-1", Codigo2)
+            .Add("@NumeroParte", SqlDbType.VarChar).Value = If(NumeroParte = "", "-1", NumeroParte)
             .Add("@CodigoBarras", SqlDbType.VarChar).Value = If(CodigoBarras = "", "-1", CodigoBarras)
             .Add("@PS", SqlDbType.VarChar).Value = If(PS.Length > 845, PS.Substring(0, 845), PS)
             .Add("@Precio", SqlDbType.Float).Value = Precio
@@ -553,7 +553,7 @@ Public Class ClsProductosServicios
             .Add("@CveClasificacionCosto", SqlDbType.Int).Value = PS.CveClasificacionCosto
             .Add("@CveUnidadMedida", SqlDbType.Int).Value = PS.CveUnidadMedida
             .Add("@Codigo", SqlDbType.VarChar).Value = PS.Codigo
-            .Add("@Codigo2", SqlDbType.VarChar).Value = If(PS.Codigo2 = "", "-1", PS.Codigo2)
+            .Add("@NumeroParte", SqlDbType.VarChar).Value = If(PS.NumeroParte = "", "-1", PS.NumeroParte)
             .Add("@CodigoBarras", SqlDbType.VarChar).Value = If(PS.CodigoBarras = "", "-1", PS.CodigoBarras)
             .Add("@PS", SqlDbType.VarChar).Value = If(PS.PS.Length > 845, PS.PS.Substring(0, 845), PS.PS)
             .Add("@Precio", SqlDbType.Float).Value = PS.Precio
@@ -646,7 +646,7 @@ Public Class ClsProductosServicios
 
         Return Retorno
     End Function
-    Public Function UpdatePS(CveClasificacion As Integer, CveClasificacionCosto As Integer, CveUnidadMedida As Integer, Codigo As String, Codigo2 As String, CodigoBarras As String, PS As String, Precio As Double, IVA As Double, RetIVA As Double, Inventariable As Boolean, CveProveedorCompra As Integer,
+    Public Function UpdatePS(CveClasificacion As Integer, CveClasificacionCosto As Integer, CveUnidadMedida As Integer, Codigo As String, NumeroParte As String, CodigoBarras As String, PS As String, Precio As Double, IVA As Double, RetIVA As Double, Inventariable As Boolean, CveProveedorCompra As Integer,
                              AplicaParaConcepto As Boolean, AplicaParaVenta As Boolean, Estado As Boolean, CveUsuario As Integer, CvePS As Integer, CveMetodoInventario As Integer, EsPaquete As Integer, CveSATPS As Integer, CveEmpresa As Integer, Optional CveTipoPS As Integer = -1, Optional TipoServicio As Integer = -1,
                              Optional CveClasificacion2 As Integer = -1, Optional CveMarca As Integer = -1, Optional AlmacenSeccion As String = "", Optional AplicaIEPS As Boolean = False, Optional IEPSPorcentaje As Decimal = -1,
                              Optional CveCompuesto As Integer = -1, Optional IEPSGrabaIVA As Boolean = False, Optional VentaMinima As Decimal = 0,
@@ -669,7 +669,7 @@ Public Class ClsProductosServicios
             .Add("@CveClasificacionCosto", SqlDbType.Int).Value = CveClasificacionCosto
             .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
             .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
-            .Add("@Codigo2", SqlDbType.VarChar).Value = If(Codigo2 = "", "-1", Codigo2)
+            .Add("@NumeroParte", SqlDbType.VarChar).Value = If(NumeroParte = "", "-1", NumeroParte)
             .Add("@CodigoBarras", SqlDbType.VarChar).Value = If(CodigoBarras = "", "-1", CodigoBarras)
             .Add("@PS", SqlDbType.VarChar).Value = PS
             .Add("@Precio", SqlDbType.Float).Value = Precio

App_Code/ClsTransportes.vb

@@ -316,6 +316,24 @@ Public Class ClsTransportes
 
     End Function
 #End Region
+    Public Function GetDestinos(Optional CveRuta As Integer = 0) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Trans_DestinosGet")
+        If CveRuta <> 0 Then
+            With SqlAdapter.SelectCommand.Parameters
+                .Add("@CveRuta", SqlDbType.Int).Value = CveRuta
+            End With
+        End If
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los destino.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
 
 #Region "Tarifas"
     Public Function GetDestinosTarifas(CveDestinoOrigen As Integer, CveDestinoFinal As Integer) As Boolean

App_Code/ClsVentas.vb

@@ -574,7 +574,7 @@ Public Class ClsVentas
                                  Optional AtencionA As String = "-1", Optional PedidoContrato As String = "-1", Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1,
                                  Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Double = -1,
                                  Optional RetISR As Double = -1, Optional Kilometraje As Double = 0, Optional CveUsoCFDi As Integer = -1, Optional ServicioDomicilio As Boolean = False, Optional CveVendedor As Integer = -1,
-                                 Optional RequiereOS As Boolean = False) As Boolean
+                                 Optional RequiereOS As Boolean = False, Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasUpdate")
@@ -610,6 +610,8 @@ Public Class ClsVentas
             .Add("@ServicioDomicilio", SqlDbType.Bit).Value = ServicioDomicilio
             .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
             .Add("@RequiereOS", SqlDbType.Int).Value = RequiereOS
+            .Add("@CveMedico", SqlDbType.Int).Value = CveMedico
+            .Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento
         End With
 
         Try
@@ -623,7 +625,7 @@ Public Class ClsVentas
     End Function
 
     Public Function UpdateObservacionesVenta(CveVenta As Integer, CveEmpresa As Integer, CveVendedor As Integer, Observaciones As String, FormaPaqueteria As Integer, CorreoNotificaciones As String, ObservacionesAlm As String,
-                                             Pedido As String, OrdenCompra As String, FechaPago As String, CveUsoCFDI As Integer) As Boolean
+                                             Pedido As String, OrdenCompra As String, FechaPago As String, CveUsoCFDI As Integer, Optional DescripcionVenta As String = "-1", Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasObservacionesUpdate")
         With SqlAdapter.SelectCommand.Parameters
@@ -638,6 +640,11 @@ Public Class ClsVentas
             .Add("@Pedido", SqlDbType.NVarChar).Value = Pedido
             .Add("@OrdenCompra", SqlDbType.NVarChar).Value = OrdenCompra
             .Add("@FechaPago", SqlDbType.Date).Value = FechaPago
+            .Add("@DescripcionVenta", SqlDbType.VarChar).Value = DescripcionVenta
+            .Add("@CveMedico", SqlDbType.Int).Value = CveMedico
+            .Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento
+
+
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/Modelos.vb

@@ -7563,7 +7563,7 @@ Namespace Modelos
         Public Property CveVendedor As Integer = 0
         Public Property VendedorCodigo As String = ""
         Public Property CveSucursalEjecucion As Integer
-        Public Property FechaEjecucion As Date
+        Public Property FechaEjecucion As DateTime
         Public Property CveSucursalCobranza As Integer
 
         Public Property CveSubProyectoCobranza As Integer
@@ -8769,7 +8769,7 @@ Namespace Modelos
             CveClasificacionCosto = -1
             CveClasificacion = -1
             Codigo = ""
-            Codigo2 = ""
+            NumeroParte = ""
             CodigoBarras = ""
             CveMetodoInventario = -1
             CveTipoPS = -1
@@ -8796,7 +8796,7 @@ Namespace Modelos
         Public Property UnidadMedida As String
         Public Property SATClaveUnidadMedida As String
         Public Property Codigo As String
-        Public Property Codigo2 As String
+        Public Property NumeroParte As String
         Public Property CodigoBarras As String
         Public Property PS As String
         Public Property SATClavePS As String

App_Code/Timbrado.vb

@@ -459,8 +459,6 @@ Public Class Timbrado
 
                     Clave = "12345678a"
                     TimbraProduccion = False
-                    UsuarioServicio = "UserTest"
-                    ClaveServicio = "1234567890"
                 End If
 
                 Dim llaveByte As Byte(), certByte As Byte()
@@ -1011,6 +1009,8 @@ Public Class Timbrado
     Private Function EnviarInformacionPADE(url As String, payload As String, tokenAuth As String) As String
         Dim Retorno As String = ""
         Try
+            ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
+
             Using httpClient As New HttpClient()
                 httpClient.Timeout = New TimeSpan(0, 1, 0)
                 Using request As New HttpRequestMessage(HttpMethod.Post, New Uri(url))
@@ -1025,7 +1025,7 @@ Public Class Timbrado
             End Using
         Catch ex As Exception
             Retorno = ""
-            OnError("Ocurrió un error al enviar la informacion", ex)
+            OnError("PAC no está respondiendo. No se puede emitir el timbre (Err.PAC5).", ex)
         End Try
         Return Retorno
     End Function
@@ -3171,8 +3171,6 @@ Public Class Timbrado
 
             Clave = "12345678a"
             TimbraProduccion = False
-            UsuarioServicio = "UserTest"
-            ClaveServicio = "1234567890"
 
         End If
 

App_Code/Timbres.vb

@@ -303,7 +303,7 @@ Public Class Timbres
                                                                    .DescripEmbalaje = drr("Embalaje").ToString,
                                                                    .ValorMercancia = drr("PU").ToString.ToDecimal,
                                                                    .Moneda = If(drr("PU").ToString.ToDecimal > 0, "MXN", ""), 'temporal
-                                                                   .FraccionArrancelaria = "",
+                                                                   .FraccionArrancelaria = drr("ClaveSATFraccionArancelaria").ToString,
                                                                    .UUIDComercioExt = "",
                                                                    .SectorCOFEPRIS = drr("ClaveSectorCOFEPRIS").ToString,
                                                                    .NombreIngredienteActivo = drr("NombreIngredienteActivo").ToString,

App_Code/modExtensiones.vb

@@ -821,6 +821,10 @@ Namespace Extensiones
             End If
             Return Tmp
         End Function
+        <Runtime.CompilerServices.Extension()>
+        Public Function SubStringADS(Str As String, Longitud As Integer) As String
+            Return Str.Substring(0, If(Str.Length > Longitud, Longitud, Str.Length))
+        End Function
 
         <Runtime.CompilerServices.Extension()>
         Public Function Texto2Letras(ByVal Importe As Decimal, Optional CveMoneda As Integer = 1) As String

Ashx/E119.ashx

@@ -384,8 +384,13 @@ Public Class E119 : Implements IHttpHandler
                     CveMoneda = 1
                     Descuento = 0
                     MsgLog.AppendLine("1.3 billing")
-                    Dim RFC As String = If(JsonRequest("billing") Is Nothing, "", JsonRequest("billing")("first_name").ToString())
+                    Dim RFC As String = ""
-                    Dim NombreCliente As String = If(JsonRequest("billing") Is Nothing, "", JsonRequest("billing")("first_name").ToString() & " " & JsonRequest("billing")("last_name").ToString())
+                    Dim NombreCliente As String = ""
+                    If JsonRequest("billing") IsNot Nothing Then
+                        RFC = JsonRequest("billing").First("first_name").ToString()
+                        NombreCliente = JsonRequest("billing").First("first_name").ToString() & " " & JsonRequest("billing").First("last_name").ToString()
+                    End If
+
                     'BUSCAR SI ESTÁ REGISTRADO EL CLIENTE
                     If ObjClientes.GetClientes(-1, "-1", "-1", "-1", RFC, "-1", "-1", -1, CveEmpresa, 1, TipoCliente:=-1, TopSelect:=1) Then
                         If ObjClientes.DtResultados.Rows.Count > 0 Then
@@ -401,16 +406,16 @@ Public Class E119 : Implements IHttpHandler
                         MsgLog.AppendLine("1.5 crear cliente")
                         If JsonRequest("billing") IsNot Nothing Then
                             Dim CveEstado As Integer = -1
-                            Dim Direccion As String = If(JsonRequest("billing")("address_1") Is Nothing, "", JsonRequest("billing")("address_1").ToString())
+                            Dim Direccion As String = If(JsonRequest("billing").First("address_1") Is Nothing, "", JsonRequest("billing").First("address_1").ToString())
                             Dim NumExt As String = ""
                             Dim NumInt As String = ""
                             Dim Colonia As String = ""
-                            Dim Ciudad As String = If(JsonRequest("billing")("city") Is Nothing, "", JsonRequest("billing")("city").ToString())
+                            Dim Ciudad As String = If(JsonRequest("billing").First("city") Is Nothing, "", JsonRequest("billing").First("city").ToString())
-                            Dim Localidad As String = If(JsonRequest("billing")("city") Is Nothing, "", JsonRequest("billing")("city").ToString())
+                            Dim Localidad As String = If(JsonRequest("billing").First("city") Is Nothing, "", JsonRequest("billing").First("city").ToString())
-                            Dim CP As String = If(JsonRequest("billing")("postcode") Is Nothing, "", JsonRequest("billing")("postcode").ToString())
+                            Dim CP As String = If(JsonRequest("billing").First("postcode") Is Nothing, "", JsonRequest("billing").First("postcode").ToString())
-                            Dim Telefono As String = If(JsonRequest("billing")("phone") Is Nothing, "", JsonRequest("billing")("phone").ToString())
+                            Dim Telefono As String = If(JsonRequest("billing").First("phone") Is Nothing, "", JsonRequest("billing").First("phone").ToString())
-                            Dim Correo As String = If(JsonRequest("billing")("email") Is Nothing, "", JsonRequest("billing")("email").ToString())
+                            Dim Correo As String = If(JsonRequest("billing").First("email") Is Nothing, "", JsonRequest("billing").First("email").ToString())
-                            Dim Estado As String = If(JsonRequest("billing")("state") Is Nothing, "", JsonRequest("billing")("state").ToString())
+                            Dim Estado As String = If(JsonRequest("billing").First("state") Is Nothing, "", JsonRequest("billing").First("state").ToString())
                             If Not String.IsNullOrEmpty(Estado) Then
                                 CveEstado = ClsPaginas.GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveEstado", $"NombreEstado = '{Estado.Trim}'").ToEntero()
                                 If CveEstado <= 0 Then 'SI NO ENCUENTRA EL ESTADO INGRESA EL DE SONORA

Ashx/E141.ashx

@@ -98,8 +98,8 @@ Public Class E141 : Implements IHttpHandler
     Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
         Dim retorno As String = ""
         Try
-            Dim Params = If(context.Request("P") = Nothing, "", context.Request("P").ToString())
+            Dim Params As String = If(context.Request("P") = Nothing, "", context.Request("P").ToString())
-            Dim ParamsV = If(context.Request("PV") = Nothing, "", context.Request("PV").ToString())
+            Dim ParamsV As String = If(context.Request("PV") = Nothing, "", context.Request("PV").ToString())
 
             Dim ParametrosNuevos As Boolean = False
             If Not String.IsNullOrEmpty(ParamsV) Then
@@ -135,16 +135,16 @@ Public Class E141 : Implements IHttpHandler
 
             Else
 
-                Dim Metodo = If(context.Request("Metodo") = Nothing, "", context.Request("Metodo").ToString())
+                Dim Metodo As String = If(context.Request("Metodo") = Nothing, "", context.Request("Metodo").ToString())
                 'OBTENER EXISTENCIAS
                 If Metodo = "GetExistencia" Then
                     context.Response.ContentType = "application/json"
 
-                    Dim Codigo = If(context.Request("Sku") = Nothing, "", context.Request("Sku").ToString())
+                    Dim Codigo As String = If(context.Request("Sku") = Nothing, "", context.Request("Sku").ToString())
                     retorno = GetExistencia(context, Codigo)
                 ElseIf Metodo = "ConsultarRFC" Then
                     context.Response.ContentType = "application/json"
-                    Dim Auth = ValidarSolicitud(context)
+                    Dim Auth As AuthMessage = ValidarSolicitud(context)
 
                     If Auth.IsSucces Then
                         retorno = ConsultaRFC(context)
@@ -155,7 +155,7 @@ Public Class E141 : Implements IHttpHandler
 
                 ElseIf Metodo = "ValidarCarrito" Then
                     context.Response.ContentType = "application/json"
-                    Dim Auth = ValidarSolicitud(context)
+                    Dim Auth As AuthMessage = ValidarSolicitud(context)
 
                     If Auth.IsSucces Then
                         retorno = ValidarCarrito(context)
@@ -166,7 +166,7 @@ Public Class E141 : Implements IHttpHandler
 
                 ElseIf Metodo = "RegistrarPedido" Then
                     context.Response.ContentType = "application/json"
-                    Dim Auth = ValidarSolicitud(context)
+                    Dim Auth As AuthMessage = ValidarSolicitud(context)
 
                     If Auth.IsSucces Then
                         retorno = RegistrarPedido(context)

Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb

@@ -2130,6 +2130,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
                     If GvIngresosSubProyectoH.Columns(IndexGv).GetType.Name = "BoundField" Then
 
+                        If dColumn.ColumnName = "SinSubProyecto" Then
+                            'TxtSub = "Sin SubProyecto"
+                            'Continue For
+                            Exit For
+                        End If
+
                         CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName
                         GvIngresosSubProyectoH.Columns(IndexGv).Visible = True
 
@@ -2143,9 +2149,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
                             Dim TxtSub As String = GlobalDTSubProyectos(-1, CveSubProyecto:=dColumn.ColumnName.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto")
 
-                            If dColumn.ColumnName = "SinSubProyecto" Then
+
-                                TxtSub = "Sin SubProyecto"
-                            End If
 
 
                             CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
@@ -2190,6 +2194,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             IndexData = IndexData + 1
 
             If dColumn.ColumnName = "SinSubProyecto" Then
+                'Continue For
                 Exit For
             End If
         Next

General/CatMedidaEquivalencia.aspx.cs

@@ -50,7 +50,7 @@ public partial class General_CatMedidaEquivalencia : ClsPaginas
             DdlMedidas.DataSource = ObjGeneral.DtResultados;
             DdlMedidasEquivalente.DataSource = ObjGeneral.DtResultados;
         }
-        if (ObjGeneral.GetRimTamanios(UsuarioActual.CveEmpresa))
+        if (ObjGeneral.GetRinTamanios(UsuarioActual.CveEmpresa))
         {
             DdlRin.DataSource = ObjGeneral.DtResultados;
             DdlRinEquivalente.DataSource = ObjGeneral.DtResultados;

General/CatRinTamanios.aspx.vb

@@ -30,7 +30,7 @@ Partial Class General_CatRinTamanios
         End If
     End Sub
 
-#Region "CARGAS"
+#Region "CARGAS"
     Private Sub CargaCombos()
         DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
         DdlClasificacion.DataBind()

General/SaldosIniciales.aspx.vb

@@ -682,13 +682,9 @@ Partial Class General_SaldosIniciales
                     DtMarcas = ObjPS.DtResultados.Copy
                 End If
 
-                If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then
+                DtMedidas = GlobalDTPSMedidas(UsuarioActual.CveEmpresa)
-                    DtMedidas = ObjGral.DtResultados.Copy
+                DtRinTamaño = GlobalDTPSRinTamaños(UsuarioActual.CveEmpresa)
-                End If
 
-                If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
-                    DtRinTamaño = ObjGral.DtResultados.Copy
-                End If
 
                 If ObjGral.GetModelos(UsuarioActual.CveEmpresa) Then
                     DtModelos = ObjGral.DtResultados.Copy
@@ -782,7 +778,7 @@ Partial Class General_SaldosIniciales
                         CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString().ToEntero()
                         If Not CveRinTamaño > 0 Then
                             If ObjGral.AddRimTamanios(CveClasificacion, "", RinTamaño, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-                                If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
+                                If ObjGral.GetRinTamanios(UsuarioActual.CveEmpresa) Then
                                     DtRinTamaño = ObjGral.DtResultados.Copy
                                     CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString().ToEntero()
                                 End If

Inventarios/EntregaAlmacen.aspx.vb

@@ -5,7 +5,7 @@ Imports System.Data
 Imports System.Data.SqlClient
 Imports System.IO
 Imports Extensiones
-
+Imports Microsoft.Owin.Security.Provider
 Imports Microsoft.Reporting.WebForms
 
 Partial Class Inventarios_EntregaAlmacen
@@ -4269,27 +4269,36 @@ Partial Class Inventarios_EntregaAlmacen
 
             Respuesta = ObjOS.UpdateOrdenesServiciosEstatus(CveOSEstatusFinalizada, UsuarioActual.CveUsuario, CveOSCerrar)
 
+            Dim cancelarPeido As Boolean = CancelarPedido(TransaccionSql, CveMovimientoGenerado, Respuesta)
+
             If Respuesta Then
-
+                Dim ObjInventario As New ClsInventarios(TransaccionSql)
-                Dim ObjInventario As New ClsInventarios(ObjOS.IniciaTransacSQL)
-
                 If ObjInventario.GetMovimientosDetalle(CveMovimientoGenerado, UsuarioActual.CveEmpresa) Then
+                    If Not cancelarPeido Then
+                        For Each Dr As DataRow In ObjInventario.DtResultados.Rows
 
-                    For Each Dr As DataRow In ObjInventario.DtResultados.Rows
+                            Dim CveVentaDetalle As Integer = Dr("CveVentaDetalle").ToString().ToEntero()
+                            Dim Cantidad As Decimal = Dr("Cantidad").ToString().ToDecimal
 
-                        Dim CveVentaDetalle As Integer = Dr("CveVentaDetalle").ToString().ToEntero()
+                            If CveVentaDetalle > 0 Then
-                        Dim Cantidad As Decimal = Dr("Cantidad").ToString().ToDecimal
+                                If Not ObjInventario.UpdatePedidoDetalleCantidad(CveVentaDetalle, Cantidad) Then
-
+                                    Respuesta = False
-                        If CveVentaDetalle > 0 Then
+                                    Exit For
-                            If Not ObjInventario.UpdatePedidoDetalleCantidad(CveVentaDetalle, Cantidad) Then
+                                End If
+                            Else
                                 Respuesta = False
-                                Exit For
                             End If
-                        Else
-                            Respuesta = False
-                        End If
 
-                    Next
+                        Next
+                    End If
+
+                End If
+            End If
+
+            If Respuesta AndAlso cancelarPeido Then
+                Dim objVentas As New ClsVentas(TransaccionSql)
+                If Not objVentas.UpdateEstatusVenta(CveVentaSurtir, 4, UsuarioActual.CveEmpresa) Then
+                    Respuesta = False
                 End If
             End If
 
@@ -4302,4 +4311,48 @@ Partial Class Inventarios_EntregaAlmacen
 
     End Function
 
+    Private Function CancelarPedido(ByRef TransaccionSql As SqlTransaction, CveMovimientoGenerado As Integer, ByRef RespuestaPadre As Boolean) As Boolean
+
+        Dim Cancelar As Boolean = True
+
+        Dim objVentas As New ClsVentas(TransaccionSql)
+        Dim ObjInventario As New ClsInventarios(TransaccionSql)
+
+        Dim DTMovimiento As New DataTable
+        Dim DTPedidoDetalle As New DataTable
+
+        If ObjInventario.GetMovimientosDetalle(CveMovimientoGenerado, UsuarioActual.CveEmpresa) Then
+            DTMovimiento = ObjInventario.DtResultados
+        Else
+            RespuestaPadre = False
+        End If
+
+        If objVentas.GetVentaDetalle(CveVentaSurtir) Then
+            DTPedidoDetalle = objVentas.DtResultados
+        Else
+            RespuestaPadre = False
+        End If
+
+
+        If RespuestaPadre Then
+
+            For Each rowPedido As DataRow In DTPedidoDetalle.Rows
+                Dim CantidadPedido As Decimal = rowPedido("Cantidad").ToString.ToDecimal
+                Dim CveVentaDetalle As Integer = rowPedido("CveVentaDetalle").ToString.ToEntero
+
+                Dim CantidadDevuelto As Decimal = DTMovimiento.FiltroPrimeroValor("Cantidad", $"CveVentaDetalle = {CveVentaDetalle}").ToDecimal
+
+                If CantidadPedido <> CantidadDevuelto Then
+                    Cancelar = False
+                    Exit For
+                End If
+
+            Next
+
+        End If
+
+        Return Cancelar
+
+    End Function
+
 End Class

Inventarios/PopUpExistenciasAlmacen.aspx.vb

@@ -2,6 +2,7 @@
 Option Strict On
 
 Imports Extensiones
+Imports System.Data
 Partial Class Inventarios_Default
     Inherits ClsPaginas
 
@@ -247,7 +248,7 @@ Partial Class Inventarios_Default
         Dim ObjInventarios As New ClsInventarios
         If ObjInventarios.GetExistencias119(DDlPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveUsuario, Compuesto) Then
             GV.DataSource = ObjInventarios.DtResultados
-            TblBusqueda.Visible = False
+            TblBusqueda.Visible = True
             CargaPS(DDlPS.SelectedValue.ToEntero)
             GV.Columns(6).Visible = True
         End If
@@ -281,15 +282,17 @@ Partial Class Inventarios_Default
 #End Region
 
     Private Sub CargarMedRin()
-        Dim ObjGral As New ClsGenerales
+        'Dim ObjGral As New ClsGenerales
-        If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then
+        'If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then
-            DdlMedidas.DataSource = ObjGral.DtResultados.FiltraParametros("", Orderby:="Medida")
+        '    DdlMedidas.DataSource = GlobalDTPS.FiltraParametros("", Orderby:="Medida")
-            If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
+        '    If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
-                DdlRin.DataSource = ObjGral.DtResultados.FiltraParametros("", Orderby:="RinTamaño")
+        '        DdlRin.DataSource = ObjGral.DtResultados.FiltraParametros("", Orderby:="RinTamaño")
-            End If
+        '    End If
-        End If
+        'End If
-        ObjGral.Dispose()
+        'ObjGral.Dispose()
+        DdlMedidas.DataSource = GlobalDTPSMedidas(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Medida")
         DdlMedidas.DataBind()
+        DdlRin.DataSource = GlobalDTPSRinTamaños(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="RinTamaño")
         DdlRin.DataBind()
         DdlMedidas.Items.Insert(0, New ListItem("-", "-1"))
         DdlRin.Items.Insert(0, New ListItem("-", "-1"))

Inventarios/RecepcionAlmacen.aspx.vb

@@ -4991,7 +4991,7 @@ Partial Class Inventarios_RecepcionAlmacen
                         dt.Rows(dt.Rows.Count - 1)("Producto") = rr(6).Trim
                         dt.Rows(dt.Rows.Count - 1)("Serie") = rr(7).Trim
                         dt.Rows(dt.Rows.Count - 1)("Cantidad") = 1
-                        dt.Rows(dt.Rows.Count - 1)("Código") = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Codigo", String.Format("Codigo2 = '{0}'", rr(5).Trim))
+                        dt.Rows(dt.Rows.Count - 1)("Código") = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Codigo", String.Format("NumeroParte = '{0}'", rr(5).Trim))
 
                     End If
                 End If

Inventarios/RepEntradasSalidas.aspx

@@ -222,14 +222,14 @@
     <asp:UpdatePanel ID="UPPMov" runat="server" RenderMode="Inline" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView ID="GvM" Width="100%" runat="server" data-sort="false" GridLines="None"  CssClass="table table-smallpadding table-striped table-hover Widthall ScrollAD" 
-                DataKeyNames="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Codigo,Codigo2,PS"
+                DataKeyNames="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Codigo,NumeroParte,PS"
                 ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
                 <Columns>
 
                     <%--0--%>
                     <asp:HyperLinkField DataNavigateUrlFields="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Tipo" DataNavigateUrlFormatString="~/Inventarios/RepExistenciasCostos.aspx?CvePS={0}&CveMoneda={1}&CveProveedor={2}&CveConcepto={3}&FechaI={4}&FechaF={5}&CveAlmacen={6}&CvePersonal={7}&Tipo={8}" Target="_blank" ItemStyle-Width="10%" HeaderText="Código" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" DataTextField="Codigo" />
                     <%--1--%>
-                    <asp:HyperLinkField DataNavigateUrlFields="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Tipo" DataNavigateUrlFormatString="~/Inventarios/RepExistenciasCostos.aspx?CvePS={0}&CveMoneda={1}&CveProveedor={2}&CveConcepto={3}&FechaI={4}&FechaF={5}&CveAlmacen={6}&CvePersonal={7}&Tipo={8}" Target="_blank" ItemStyle-Width="10%" HeaderText="Código2" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" Visible="False" DataTextField="Codigo2" />
+                    <asp:HyperLinkField DataNavigateUrlFields="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Tipo" DataNavigateUrlFormatString="~/Inventarios/RepExistenciasCostos.aspx?CvePS={0}&CveMoneda={1}&CveProveedor={2}&CveConcepto={3}&FechaI={4}&FechaF={5}&CveAlmacen={6}&CvePersonal={7}&Tipo={8}" Target="_blank" ItemStyle-Width="10%" HeaderText="NumeroParte" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" Visible="False" DataTextField="NumeroParte" />
                     <%--2--%>
                     <asp:BoundField Visible="false" DataField="CodigoBarras" HeaderText="CodigoBarras" ItemStyle-Width="10%" />
                     <%--3--%>

Inventarios/TraspasoAlmacen.aspx.vb

@@ -2933,11 +2933,10 @@ Partial Class Inventarios_TraspasoAlmacen
             Dim RowsNoCargados As Integer = 0
             Dim NoPSConSerie As Integer = 0
             Try
-                Dim DtPS As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa)
+                Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
                 For Each RowExcel As DataRow In dt.Rows
                     If RowExcel("Codigo").ToString() <> "" Then
 
-
                         Dim RowPS As DataRow = DtPS.FiltroPrimero(String.Format("Codigo='{0}'", RowExcel("Codigo").ToString()))
 
                         Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero()
@@ -2954,7 +2953,7 @@ Partial Class Inventarios_TraspasoAlmacen
                             Dim Valido As Boolean = True
                             Dim ValidarLote As Boolean = True
 
-                            If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").ToEntero = 6 Then
+                            If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}") = "6" Then
                                 ValidarLote = False
                             End If
 

OS/OrdenesServicios.aspx

@@ -1291,7 +1291,7 @@
                                             <HeaderTemplate>Utilizado</HeaderTemplate>
                                             <ItemTemplate>
                                                 <asp:TextBox ID="TxtUtilizado" runat="server" Width="50px"  ></asp:TextBox>
-                                                <ajax:FilteredTextBoxExtender runat="server" FilterType="Custom" TargetControlID="TxtUtilizado" ValidChars="123456789." />
+                                                <ajax:FilteredTextBoxExtender runat="server" FilterType="Custom" TargetControlID="TxtUtilizado" ValidChars="1234567890." />
                                             </ItemTemplate>
                                         </asp:TemplateField>
                                         <asp:TemplateField>

OS/OrdenesServicios.aspx.vb

@@ -3007,18 +3007,27 @@ Partial Class OS_OrdenesServicios
         Dim ObjInventario As New ClsInventarios(ObjV.IniciaTransacSQL())
         Dim ObjConta As New ClsContabilidad(ObjV.IniciaTransacSQL())
 
+        Dim GenrarRemisionMovimientos As Boolean = False
         If ProcesoOK Then
             Dim AplicaDevolucion As Boolean = False
             For Each GvRow As GridViewRow In GvMU.Rows
                 Dim CveVentaDetalle As Integer = GvRow.DataKey("CveVentaDetalle").ToEntero
                 Dim CantidadDev As Decimal = GvRow.DataKey("Cantidad").ToDecimal - GvRow.FCTextBox("TxtUtilizado").Text.ToDecimal
+
                 If CantidadDev > 0 Then
                     AplicaDevolucion = True
                     If Not ObjV.UpdateVentasDetalleCantidadDevolucion(CveVentaDetalle, CantidadDev) Then
                         ProcesoOK = False
+                        GenrarRemisionMovimientos = False
+                        AplicaDevolucion = False
                         Exit For
                     End If
                 End If
+
+                If GvRow.FCTextBox("TxtUtilizado").Text.ToDecimal > 0 Then
+                    GenrarRemisionMovimientos = True
+                End If
+
             Next
             If AplicaDevolucion Then
                 If Not ObjV.UpdateVentasDevolucionAlmacen(1, CveVenta) Then
@@ -3032,7 +3041,7 @@ Partial Class OS_OrdenesServicios
         Dim ImporteAlmacen As Decimal
         Dim Fecha As DateTime = ClsPaginas.NowADS()
 
-        If ProcesoOK Then
+        If GenrarRemisionMovimientos AndAlso ProcesoOK Then
             Respuesta = GeneraRemision(CveVentaPedido, ObjV.IniciaTransacSQL())
 
             If Respuesta.CveVenta > 0 Then
@@ -3046,7 +3055,7 @@ Partial Class OS_OrdenesServicios
             End If
         End If
 
-        If ProcesoOK Then
+        If GenrarRemisionMovimientos AndAlso ProcesoOK Then
 
             CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenActual, 8, CveMoneda, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, Respuesta.CveVenta, CveSubProyectoPedido, -1, CveOS:=CveOS, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="OS/MatUtil")
             Dim Folio As Integer = ObjInventario.Folio
@@ -3063,7 +3072,7 @@ Partial Class OS_OrdenesServicios
                     Dim PU As Decimal = GvRow.DataKey("PU").ToDecimal
 
                     If CantidadRegistro > 0 Then
-                        Dim CveVentaDetalle As Integer = DtVentaDetalle.Rows(IndexMov1)("CveVentaDetalle").ToString.ToEntero
+                        Dim CveVentaDetalle As Integer = GvRow.DataKey("CveVentaDetalle").ToEntero   ' DtVentaDetalle.Rows(IndexMov1)("CveVentaDetalle").ToString.ToEntero
                         Dim CveMovimientoDetalle As Integer = GvRow.DataKey("CveMovimientoDetalle").ToEntero
 
                         Dim Serie As String = GvRow.DataKey("Serie")
@@ -3146,7 +3155,13 @@ Partial Class OS_OrdenesServicios
 
         If ProcesoOK Then
             ObjV.Commit()
-            Alert("El material utilizado se guardó correctamente")
+
+            If GenrarRemisionMovimientos = False Then
+                Alert("El material sera recibido en almacén.")
+            Else
+                Alert("El material utilizado se guardó correctamente")
+            End If
+
             RegistraScript("$('#DivModalMaterialUtilizado').modal('hide');")
         Else
             ObjV.RollBack()

Sistemas/CatModulos.aspx.vb

@@ -50,6 +50,7 @@ Partial Class CatModulos
                             UsuarioActual.CveUsuario, DdlPlataforma.SelectedValue.ToEntero) Then
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalModulos"))
                 Alert("El nuevo Módulo se guardó correctamente.", TipoMensaje.MsgInformacion)
+                GlobalDTModulos = Nothing
                 CargaDatos()
                 UpDatos.Update()
             End If
@@ -58,6 +59,7 @@ Partial Class CatModulos
                                    TxtOrden.Text.Trim().ToEntero(), TxtEstilo.Text.Trim(), CboIncluye.SelectedValue, CboAgrupacion.SelectedValue, UsuarioActual.CveUsuario, HdnID.Value.ToEntero, DdlPlataforma.SelectedValue.ToEntero) Then
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalModulos"))
                 Alert("El Módulo se actualizó correctamente.", TipoMensaje.MsgInformacion)
+                GlobalDTModulos = Nothing
                 CargaDatos()
                 UpDatos.Update()
             End If
@@ -129,12 +131,10 @@ Partial Class CatModulos
         Dim Modulo As New ClsModulos
         If Modulo.RemoveModulo(GvDatos.DataKeys(e.RowIndex).Value.ToString().ToEntero()) Then
             GvDatos.EditIndex = -1
+            GlobalDTModulos = Nothing
             CargaDatos()
         End If
-
         Modulo.Dispose()
-
-
     End Sub
 #End Region
 
@@ -198,6 +198,7 @@ Partial Class CatModulos
         LbAgregar.Text = "Actualizar"
         UpModal.Update()
         RegistraScript("$('#ModalModulos').modal();")
+        GlobalDTModulos = Nothing
     End Sub
 
 

Sistemas/CatSesiones.aspx

@@ -29,6 +29,7 @@
         <asp:ListItem Text="Paises" Value="GlobalDTGralPaises"></asp:ListItem>
         <asp:ListItem Text="Estados" Value="GlobalDTGralEstados"></asp:ListItem>
         <asp:ListItem Text="Municipios" Value="GlobalDTGralMunicipios"></asp:ListItem>
+        <asp:ListItem Text="Localidades" Value="GlobalDTLocalidad"></asp:ListItem>
         <asp:ListItem Text="Poblaciones" Value="GlobalDTGralPoblaciones"></asp:ListItem>
         <asp:ListItem Text="Colonias" Value="GlobalDTGralColonias"></asp:ListItem>
         <asp:ListItem Text="Escolaridades" Value="GlobalDTGralEscolaridades"></asp:ListItem>

Sistemas/CatSesiones.aspx.vb

@@ -40,6 +40,8 @@ Partial Class Sistemas_CatSesiones
             CargaColonias()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralMunicipios" Then
             CargaMunicipios()
+        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTLocalidad" Then
+            CargaLocalidades()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralPoblaciones" Then
             CargaPoblaciones()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralEscolaridades" Then
@@ -496,6 +498,13 @@ Partial Class Sistemas_CatSesiones
         'Gral.Dispose()
     End Sub
 
+    Private Sub CargaLocalidades()
+        GlobalDTLocalidad() = Nothing
+        'Dim Gral As New ClsGenerales
+        'If Gral.GetGralMunicipios Then Application("GlobalDTGralMunicipios") = Gral.DtResultados Else Application("GlobalDTGralMunicipios") = Nothing
+        'Gral.Dispose()
+    End Sub
+
     Private Sub CargaPoblaciones()
         Dim Gral As New ClsGenerales
         If Gral.GetGralPoblaciones Then Application("GlobalDTGralPoblaciones") = Gral.DtResultados Else Application("GlobalDTGralPoblaciones") = Nothing

Sistemas/UsuarioDetalle.aspx

@@ -109,7 +109,7 @@
                                                         <tr>
                                                             <td>Usuario:</td>
                                                             <td>
-                                                                <asp:TextBox ID="TxtUsuario" runat="server"></asp:TextBox>
+                                                                <asp:TextBox ID="TxtUsuario" runat="server" Width="350px"></asp:TextBox>
                                                                 <asp:RequiredFieldValidator ID="RFVUsuario" runat="server" ControlToValidate="TxtUsuario" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Usuario''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                                 <ajax:ValidatorCalloutExtender ID="VCEUsuario" runat="server" HighlightCssClass="vco" TargetControlID="RFVUsuario" Width="300px"></ajax:ValidatorCalloutExtender>
                                                                 &nbsp;

Transportes/Boletos.aspx.vb

@@ -85,7 +85,8 @@ Partial Class Boletos
 
     Protected Sub InicializaCombos()
         'Lista Destinos''carga específicos
-        Dim ObjDestinos As New ClsDestinos()
+        Dim ObjDestinos As New ClsTransportes()
+
         If ObjDestinos.GetDestinos(CveRuta:=CveRuta) Then
 
             If ObjDestinos.DtResultados.Rows.Count > 0 Then
@@ -99,6 +100,7 @@ Partial Class Boletos
                 DdlDestino.Items.Insert(0, New ListItem("Seleccione Destino", ""))
             End If
         End If
+        ObjDestinos.Dispose()
     End Sub
 
     Protected Sub CotizarTarifa(sender As Object, e As EventArgs)
@@ -107,6 +109,8 @@ Partial Class Boletos
             Dim ObjDestinos As New ClsTransportes()
             Dim retorno As Boolean = ObjDestinos.GetDestinosTarifas(DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero)
             Dim ImporteR As Decimal = ObjDestinos.DtResultados.FiltroPrimeroValor("Importe").ToDecimal
+            ObjDestinos.Dispose()
+
             If retorno Then
                 If ImporteR > 0 Then
                     Dim redondeado As String = CStr(Math.Round(ImporteR, 2))
@@ -156,6 +160,7 @@ Partial Class Boletos
                 ObjTransporte.Commit()
             End If
         Catch ex As Exception
+            ObjTransporte.RollBack()
             Alert($"No se pudo generar el boleto {ex}", TipoMensaje.MsgError)
         Finally
             ObjTransporte.Dispose()

Transportes/ListadoBoletos.aspx

@@ -19,7 +19,6 @@
 </asp:Content>
 
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
-
     <div class="row my-1" style="margin-right: 10px; margin-top: 10px;" align="right">
         <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvBoletos.ClientID) %>"
             style="display: inline-block; margin-right: -10px; width: 150px;" />
@@ -27,12 +26,13 @@
             style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier">
             </i></a>
     </div>
+    <asp:Label ID="Prueba" runat="server" Text=""></asp:Label>
 
     <div class="portlet light xspadding  bordered margin-bottom-10">
         <asp:GridView ID="GvBoletos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningún boleto registrado"
             CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None"
-            data-sort="true">
+            data-sort="true" DataKeyNames="Asiento,Nombre, Visa,Celular,Sexo,Estatus,Partida,Destino, Importe">
-            <Columns>
+          <Columns>
 
                 <asp:TemplateField HeaderText="No. Asiento">
                     <ItemTemplate>
@@ -71,17 +71,35 @@
                     </ItemTemplate>
                 </asp:TemplateField>
 
+              <asp:TemplateField HeaderText="Partida">
+                  <ItemTemplate>
+                      <asp:Literal ID="LtlPartida" runat="server" Text='<%# Eval("Partida") %>'></asp:Literal>
+                  </ItemTemplate>
+              </asp:TemplateField>
+
+              <asp:TemplateField HeaderText="Destino">
+                  <ItemTemplate>
+                      <asp:Literal ID="LtlDestino" runat="server" Text='<%# Eval("Destino") %>'></asp:Literal>
+                  </ItemTemplate>
+              </asp:TemplateField>
+
+              <asp:TemplateField HeaderText="Importe">
+                  <ItemTemplate>
+                      <asp:Literal ID="LtlImporte" runat="server" Text='<%# Eval("Importe") %>'></asp:Literal>
+                  </ItemTemplate>
+              </asp:TemplateField>
 
                 <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Acciones">
                     <ItemTemplate>
                         <asp:LinkButton ID="BtnEditar" runat="server" AlternateText="Editar"
-                            CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                            CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" ToolTip="Editar"/>
-                        <asp:LinkButton ID="BtnToggle" runat="server" AlternateText="Activar/Desactivar"
+                        <asp:LinkButton ID="BtnToggle" runat="server" AlternateText="Activar"
-                            CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-cancel'></i>"
+                            ToolTip="Activar" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-cancel'></i>"
                             data-toggle="confirmation" data-popout="true" data-original-title='<%# If(Eval("Estatus").ToString = "True", "Cancelar Boleto", "Reactivar") %>'
                             data-btn-ok-label="si" OnClick="ToggleViajesPasajeros" />
-                        <asp:LinkButton ID="BtnViaje" runat="server" AlternateText="Viaje"
+                        <asp:LinkButton ID="BtnImprimir" runat="server" AlternateText="Viaje"
-                            CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-print'></i>" />
+                            CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-print'></i>" ToolTip="Imprimir"
+                            OnClick="ImprimirBoleto" />
 
                     </ItemTemplate>
                 </asp:TemplateField>

Transportes/ListadoBoletos.aspx.vb

@@ -1,8 +1,11 @@
 Option Explicit On
 Option Strict On
+Imports System.Data
 Imports ADSNetLibrary.Helpers
 Imports ADSNetLibrary.SIGAPI.Helpers
 Imports Extensiones.ModExtensiones
+Imports Microsoft.Reporting.WebForms
+
 
 Partial Class ListadoBoletos
     Inherits ClsPaginas
@@ -14,12 +17,23 @@ Partial Class ListadoBoletos
             ViewState("CveViaje") = value
         End Set
     End Property
+    Private Property Ruta As String
+        Get
+            Return ViewState("Ruta").ToString()
+        End Get
+        Set(value As String)
+            ViewState("Ruta") = value
+        End Set
+    End Property
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             If Request.QueryString("CveViaje") Is Nothing Then
                 Response.Redirect("/Transportes/ListadoViajes.aspx")
             End If
             CveViaje = Request.QueryString("CveViaje").ToEntero
+            Ruta = Request.QueryString("Ruta")
+
+            Prueba.Text = Ruta
 
             InicializaCombos()
             CargaDatos()
@@ -71,4 +85,30 @@ Partial Class ListadoBoletos
 
     End Sub
 
+    Protected Sub ImprimirBoleto(sender As Object, e As EventArgs)
+        Dim dtResult As New DataTable()
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        Dim params As New List(Of ReportParameter)
+
+        params.Add(New ReportParameter("Ruta", Ruta))
+        params.Add(New ReportParameter("Origen", GvRow.DataKey("Partida")))
+        params.Add(New ReportParameter("Destino", GvRow.DataKey("Destino")))
+        params.Add(New ReportParameter("FechaSalida", "2024-01-03"))
+        params.Add(New ReportParameter("HoraSalida", "17:00"))
+        params.Add(New ReportParameter("Nombre", GvRow.DataKey("Nombre")))
+        params.Add(New ReportParameter("Visa", GvRow.DataKey("Visa")))
+        params.Add(New ReportParameter("Celular", GvRow.DataKey("Celular")))
+        params.Add(New ReportParameter("Importe", GvRow.DataKey("Importe")))
+        params.Add(New ReportParameter("TipoBoleto", "Tipo Boleto"))
+        params.Add(New ReportParameter("Agencia", "Agencia"))
+        params.Add(New ReportParameter("TelefonoAgencia", "Telefono Agencia"))
+
+        ImprimirPDFStimul("Empresas/188/Formatos/Boleto.mrt", dtResult, params, NombreArchivo:="Boleto")
+
+        'Empresas/Grales/Formatos/EntradaSalida.mrt
+        'Empresas/188/Formatos/Boleto.mrt
+
+    End Sub
+
 End Class

Transportes/ListadoViajes.aspx.vb

@@ -15,6 +15,14 @@ Partial Class ListadoViajes
             ViewState("CveViaje") = value
         End Set
     End Property
+    Private Property Ruta As String
+        Get
+            Return ViewState("Ruta").ToString()
+        End Get
+        Set(value As String)
+            ViewState("Ruta") = value
+        End Set
+    End Property
 #End Region
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
 
@@ -192,7 +200,7 @@ Partial Class ListadoViajes
         DdlPartida.SelectedValue = GvRow.DataKey("CvePartida")
         DdlChofer.SelectedValue = GvRow.DataKey("CvePersonal")
         ViewState("CveViaje") = GvRow.DataKey("CveViaje")
-        Page.Response.Write("<script>console.log('El resultado de tu variable" + CveViaje + "')</script>")
+        ViewState("Ruta") = GvRow.DataKey("Ruta")
         Dim fecha As DateTime
 
         If DateTime.TryParse(GvRow.DataKey("Fecha").ToString, fecha) Then
@@ -247,6 +255,8 @@ Partial Class ListadoViajes
     Protected Sub GoBoletos(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         Dim CveViaje As String = GvRow.DataKey("CveViaje")
-        Response.Redirect(String.Format("~/Transportes/ListadoBoletos.aspx?CveViaje={0}", CveViaje))
+        Dim Ruta As String = GvRow.DataKey("Ruta")
+        Response.Redirect(String.Format("~/Transportes/ListadoBoletos.aspx?CveViaje={0}&Ruta={1}", CveViaje, Ruta))
+
     End Sub
 End Class

Ventas/ActualizarPrecios.aspx

@@ -207,7 +207,7 @@
                     <input type="text" id="TxtBuscar" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBuscar','{0}')", GVPrecios.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
                     <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBuscar','{0}')", GVPrecios.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                 </div>
-                <asp:GridView ID="GVPrecios" runat="server" GridLines="None" DataKeyNames="CvePS, CvePrecioLista,PrecioLista,PS,Codigo,Codigo2,Porcentaje,CodigoPS"
+                <asp:GridView ID="GVPrecios" runat="server" GridLines="None" DataKeyNames="CvePS, CvePrecioLista,PrecioLista,PS,Codigo,NumeroParte,Porcentaje,CodigoPS"
                     CssClass="table table-striped table-advance table-hover Widthall ScrollAD" AutoGenerateColumns="False" data-sort="true" EmptyDataText="No se encontraron registros">
                     <Columns>
                         <asp:TemplateField ItemStyle-HorizontalAlign="center" ItemStyle-Width="5%">
@@ -216,13 +216,12 @@
                             </ItemTemplate>
                         </asp:TemplateField>
                         <asp:BoundField DataField="Codigo" ItemStyle-Width="5%" HeaderText="Código" />
-                        <%--<asp:BoundField DataField="Codigo2" ItemStyle-Width="5%" HeaderText="Código CPK"/>--%>
                         <asp:TemplateField ItemStyle-Width="5%" Visible="false" >
                             <HeaderTemplate>
-                                <asp:Literal ID="LtlCodigo2" runat="server" Text='<%# If(UsuarioActual.Empresa.Funcionalidad(531) = "1", "Código CPK", "Numero de parte") %>'></asp:Literal>
+                                <asp:Literal ID="LtlNumeroParte" runat="server" Text='<%# If(UsuarioActual.Empresa.Funcionalidad(531) = "1", "Código CPK", "Numero de parte") %>'></asp:Literal>
                             </HeaderTemplate>
                             <ItemTemplate>
-                                <asp:Literal ID="LtlCodigo2" runat="server" Text='<%# Eval("Codigo2", "{0}")%>'></asp:Literal>
+                                <asp:Literal ID="LtlNumeroParte" runat="server" Text='<%# Eval("NumeroParte", "{0}")%>'></asp:Literal>
                             </ItemTemplate>
                         </asp:TemplateField>
                         <asp:BoundField DataField="PS" HeaderText="Producto/Servicio" />

Ventas/ActualizarPrecios.aspx.vb

@@ -405,7 +405,7 @@ Partial Class Ventas_ActualizarPrecios
                                     Select New With
                                         {
                                             .Codigo = row.DataKey("Codigo"),
-                                            .Codigo2 = row.DataKey("Codigo2"),
+                                            .NumeroParte = row.DataKey("NumeroParte"),
                                             .PS = row.DataKey("PS"),
                                             .Precio = row.FCTextBox("TxtPrecio").Text.ToDecimal()
                                         }).QueryToDataTable(True)
@@ -436,7 +436,7 @@ Partial Class Ventas_ActualizarPrecios
 
         DtExcel.Columns("Codigo").ColumnName = "Código"
         DtExcel.Columns("PS").ColumnName = "Producto / Servicio"
-        DtExcel.Columns("Codigo2").ColumnName = "Número de parte"
+        DtExcel.Columns("NumeroParte").ColumnName = "Número de parte"
 
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(578) = "1" Then 'Empresa Acumuladores
             If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
@@ -687,7 +687,7 @@ Partial Class Ventas_ActualizarPrecios
                 NewRow("Código") = Row("Codigo")
 
                 If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'Empresa Acumuladores
-                    NewRow("Código CPK") = Row("Codigo2")
+                    NewRow("Código CPK") = Row("NumeroParte")
                 End If
 
                 NewRow("Producto/Servicio") = Row("PS")

Ventas/CatMedicos.aspx

@@ -225,7 +225,7 @@
                             <div class="col-md-12">
 
                                 <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
-                                    DataKeyNames="CveMedico,Medico,CedulaProfesional,FechaNacimiento,Notas,DiasAtencion,Horario,Lugar,Estatus,CveUsuario,FechaIng,CveEmpresa,Telefono,Mail,CveMedicoEspecialidad,CveMedicoSubEspecialidad,Celular,Consultorio,Torre"
+                                    DataKeyNames="CveMedico,Medico,CedulaProfesional,FechaNacimiento,Notas,DiasAtencion,Horario,Lugar,Estatus,CveUsuario,FechaIng,CveEmpresa,Telefono,Mail,CveMedicoEspecialidad,CveMedicoSubEspecialidad,Celular,Consultorio,Torre,Usuario"
                                     data-sort="true"
                                     EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
                                     <Columns>
@@ -278,13 +278,13 @@
                                         </asp:TemplateField>
 
 
-                                        <asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center">
+                                        <asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" Visible="false">
                                             <ItemTemplate>
                                                 <asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
                                             </ItemTemplate>
                                         </asp:TemplateField>
 
-                                        <asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Center">
+                                        <asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Center" Visible="false">
                                             <ItemTemplate>
                                                 <asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
                                             </ItemTemplate>
@@ -548,6 +548,22 @@
                                 </div>
 
 
+                                 <div class="row" runat="server" id="DVUsuarioFechaIng" visible ="false">
+                                     <div class="col-md-6">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtUsuario" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true" Enabled="false"></asp:TextBox>
+                                            <label for="<%= TxtUsuario.ClientID.ToString()%>">Usuario:</label>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-6">
+                                        <div class="form-group form-md-line-input input-iconright" >
+                                            <asp:TextBox ID="TxtFechaIng" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true" Enabled="false"></asp:TextBox>
+                                            <label for="<%= TxtFechaIng.ClientID.ToString()%>">Fecha Ing.:</label>
+                                        </div>
+                                    </div>                                   
+                                </div>
+
+
 
                             </div>
                         </div>

Ventas/CatMedicos.aspx.vb

@@ -161,6 +161,10 @@ Partial Class Ventas_CatMedicos
         DdlEspecialidad.SelectedValueExist(-1)
         DdlSubEspecialidad.SelectedValueExist(-1)
         TxtTorre.Text = ""
+        DVUsuarioFechaIng.Visible = False
+        TxtFechaIng.Text = ""
+        TxtUsuario.Text = ""
+
 
         DVEstatus.Visible = False
         ChkEstatus.Checked = True
@@ -196,6 +200,10 @@ Partial Class Ventas_CatMedicos
         DdlSubEspecialidad.SelectedValueExist(GvRow.DataKey("CveMedicoSubEspecialidad").ToEntero)
         TxtTorre.Text = GvRow.DataKey("Torre")
 
+        DVUsuarioFechaIng.Visible = True
+        TxtFechaIng.Text = GvRow.DataKey("FechaIng").ToDateTime.ToString("dd/MM/yyyy hh:mm:ss tt")
+        TxtUsuario.Text = GvRow.DataKey("Usuario")
+
         DVEstatus.Visible = True
         LbAgregar.Text = "Actualizar"
         LtlTituloModal.Text = $"Actualizar Médico {TxtCedulaProfecional.Text}"

Ventas/ProductosServicios.aspx.vb

@@ -1,11 +1,9 @@
 Option Explicit On
 Option Strict On
 
-Imports System.Activities.Expressions
 Imports System.Data
 Imports System.Data.SqlClient
 Imports System.IO
-Imports ADSNetLibrary.SIGAPI.Models.RH.Response
 Imports Extensiones
 Imports ZXing
 
@@ -487,14 +485,10 @@ Partial Class ProductosyServicios
         If ObjGral.GetModelos(UsuarioActual.CveEmpresa) Then
             DdlModelo.DataSource = ObjGral.DtResultados.Copy()
         End If
-        If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then
-            DdlMedida.DataSource = ObjGral.DtResultados.Copy()
-        End If
-        If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
-            DdlRin.DataSource = ObjGral.DtResultados.Copy()
-        End If
         ObjGral.Dispose()
+        DdlMedida.DataSource = GlobalDTPSMedidas(UsuarioActual.CveEmpresa)
 
+        DdlRin.DataSource = GlobalDTPSRinTamaños(UsuarioActual.CveEmpresa)
         DdlModelo.DataBind()
         DdlMedida.DataBind()
         DdlRin.DataBind()
@@ -948,7 +942,7 @@ Partial Class ProductosyServicios
                 DdlMarca.SelectedValue = ObjProductosServicios.CveMarca.ToString
                 DdlMarcaPSDes.SelectedValue = ObjProductosServicios.CveMarca.ToString
                 TxtCodigo.Text = ObjProductosServicios.Codigo
-                TxtNumeroParte.Text = ObjProductosServicios.Codigo2
+                TxtNumeroParte.Text = ObjProductosServicios.NumeroParte
                 TxtCodigoBarras.Text = ObjProductosServicios.CodigoBarras
                 CodigoBarrasCargado = ObjProductosServicios.CodigoBarras
                 TxtLitraje.Text = ObjProductosServicios.DtResultados.Rows(0)("Litraje").ToString
@@ -3138,12 +3132,10 @@ Partial Class ProductosyServicios
             If ObjGral.GetModelos(CveEmpresaFranquicia) Then
                 CveModelo = ObjGral.DtResultados.FiltroPrimeroValor("CveModelo", String.Format("Modelo = '{0}'", DdlModelo.SelectedItem.Text)).ToEntero
             End If
-            If ObjGral.GetMedidas(CveEmpresaFranquicia) Then
+
-                CveMedida = ObjGral.DtResultados.FiltroPrimeroValor("CveMedida", String.Format("Medida = '{0}'", DdlMedida.SelectedItem.Text)).ToEntero
+            CveMedida = GlobalDTPSMedidas(CveEmpresaFranquicia).FiltroPrimeroValor("CveMedida", String.Format("Medida = '{0}'", DdlMedida.SelectedItem.Text)).ToEntero
-            End If
+            CveRin = GlobalDTPSRinTamaños(CveEmpresaFranquicia).FiltroPrimeroValor("CveRinTamaño", String.Format("RinTamaño = '{0}'", DdlRin.SelectedItem.Text)).ToEntero
-            If ObjGral.GetRimTamanios(CveEmpresaFranquicia) Then
+
-                CveRin = ObjGral.DtResultados.FiltroPrimeroValor("CveRinTamaño", String.Format("RinTamaño = '{0}'", DdlRin.SelectedItem.Text)).ToEntero
-            End If
 
             ObjGral.Dispose()
 
@@ -3177,7 +3169,7 @@ Partial Class ProductosyServicios
             End If
 
             If Agregar Then
-                If Not ObjPS.AddPS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, TxtCodigo2.Text.Trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
+                If Not ObjPS.AddPS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, TxtNumeroParte.Text.Trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
                            (TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, DdlProveedor.txtValue.Value.ToEntero, True, ChkAplicaParaVenta.Checked, UsuarioActual.CveUsuario,
                            CveEmpresaFranquicia, CveMetodoInv, EsPaquete, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, FuePorXML:=False, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2,
                            CveMarca:=CveMarcaFranquicia, AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim, AplicaIEPS:=ChkAplicaIeps.Checked, IEPSPorcentaje:=DdlIEPSPorcentaje.SelectedValue.ToDecimal,
@@ -3197,7 +3189,7 @@ Partial Class ProductosyServicios
 
                 If ObjPS.GetPS(-1, -1, CveEmpresaFranquicia, Codigo:=TxtCodigo.Text.Trim.ToUpper) Then
                     Dim CvePS As Integer = ObjPS.DtResultados.FiltroPrimeroValor("CvePS", String.Format(" Codigo  = '{0}'", TxtCodigo.Text.Trim.ToUpper)).ToEntero()
-                    If Not ObjPS.UpdatePS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, TxtCodigo2.Text.Trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
+                    If Not ObjPS.UpdatePS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, TxtNumeroParte.Text.Trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
                                   (TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, -1, True, ChkAplicaParaVenta.Checked, ChkEstado.Checked, UsuarioActual.CveUsuario, CvePS, CveMetodoInv,
                                   EsPaquete, DdlSATPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2, CveMarca:=CveMarcaFranquicia,
                                   AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim, AplicaIEPS:=ChkAplicaIeps.Checked, IEPSPorcentaje:=DdlIEPSPorcentaje.SelectedValue.ToDecimal,

Ventas/Ventas.aspx

@@ -1976,7 +1976,10 @@
                                                                     <asp:LinkButton ID="ImgCalendarFechaEje" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                                                                 </span>
                                                             </div>
-                                                            <ajax:MaskedEditExtender ID="MEEFechaEje" runat="server" TargetControlID="TxtFechaEjecucion" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                            <div runat="server" id="DVMEEFechaEje" visible="true">
+                                                                <ajax:MaskedEditExtender ID="MEEFechaEje" runat="server" TargetControlID="TxtFechaEjecucion" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                            </div>
+                                                            
                                                             <ajax:CalendarExtender runat="server" ID="CEFechaEje" TargetControlID="TxtFechaEjecucion" PopupButtonID="ImgCalendarFechaEje" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                                                             <asp:RequiredFieldValidator ID="RFVFechaEje" runat="server" ControlToValidate="TxtFechaEjecucion" Display="None" ErrorMessage="El campo <b>''Fecha de Ejecución''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpEmitirImprimir"></asp:RequiredFieldValidator>
                                                             <asp:CompareValidator ID="CVFechaEje" runat="server" ControlToValidate="TxtFechaEjecucion" Display="None" ErrorMessage="El campo <b>''Fecha Ejecución''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpEmitirImprimir"></asp:CompareValidator>
@@ -4202,7 +4205,7 @@
                                             <asp:Button ID="BtnEditar" runat="server" Text="Editar" CssClass="btn myventasbutton btn-primary" Visible="false" />
 
                                             <asp:LinkButton ID="BtnAdjuntar" runat="server" Visible="false" Text="<i class='fa-upload fa' style=' color: white;'></i>  Adjuntar" data-toggle="modal" data-target="#ModalAdjuntar" CssClass="btn myventasbutton btn-primary" />
-                                            <asp:LinkButton ID="BtnArchivoAdjunto" runat="server" Visible="false" Text="" Font-Size="14px" />
+                                            <br /><asp:LinkButton ID="BtnArchivoAdjunto" runat="server" Visible="false" Text="" Font-Size="14px" />
                                             <asp:LinkButton ID="BtnEliminarAdjunto" runat="server" Visible="false" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
 
                                         </td>

Ventas/Ventas.aspx.vb

@@ -2737,7 +2737,12 @@ Partial Class Ventas
                     If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then BtnCrearApartirDe.Visible = False
 
                     If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs") Then BtnEditar.Visible = True
-                    If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem") Then BtnPermisoEditarRemision.Visible = True
+                    If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ped") Then BtnPermisoEditarRemision.Visible = True
+
+                    If DdlTipoComprobante.SelectedValue = "Ped" Then
+                        BtnPermisoEditarRemision.Text = "Editar Pedido"
+                        BtnEditarRemision.Text = "Actualizar Pedido"
+                    End If
 
                     DivFechaAnticipoCliente.Visible = True
                     TxtFechaAnticipoCliente.Text = NowADS().ToShortDateString
@@ -3386,19 +3391,27 @@ Partial Class Ventas
                 End If
             End If
 
-
+            If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
-            If CveVenta <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+                If CveVenta <= 0 Then
-                EsVentaMedica = True
+                    EsVentaMedica = True
-                CargaTiposVenta()
+                    CargaTiposVenta()
-
+                    If CveCliente > 0 Then
-                If CveCliente > 0 Then
+                        SeleccionarClienteSucursal(CveCliente:=CveCliente)
-                    SeleccionarClienteSucursal(CveCliente:=CveCliente)
+                    End If
+                End If
+                If CveVenta >= 0 Then
+                    HLFAgregarOS.Visible = True
+                    HLFAgregarOS.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveVenta={CveVenta}"
                 End If
-            End If
 
-            If CveVenta >= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+                TxtPrecio.Enabled = False
-                HLFAgregarOS.Visible = True
+                'ocultar la columna de subproyecto
-                HLFAgregarOS.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveVenta={CveVenta}"
+                GvPS.Columns(ColumnaSubProyecto).Visible = False
+                ThProyecto.Visible = False
+                ThProyecto2.Visible = False
+
+                TxtCantidad.Text = "1"
+                TxtCantidad.Focus()
             End If
 
             If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
@@ -5193,7 +5206,7 @@ Partial Class Ventas
             HdnTotalVenta.Value = DbRowVenta("Total").ToString().FormatoNumero(2)
             TxtMotivoDescuento.Text = DbRowVenta("MotivoDescuento").ToString()
             TxtObsFact.Text = DbRowVenta("Observaciones").ToString()
-            LblUsuario.Text = DbRowVenta("Nombre").ToString()
+            LblUsuario.Text = DbRowVenta("Nombre").ToString().SubStringADS(30)
             LblFechaRegistro.Text = DbRowVenta("FechaIng").ToString().ToDate.ToShortDateString
             LblSeTimbro.Text = DbRowVenta("SeTimbro").ToString()
             LblMail.Text = DbRowVenta("EnvioMail").ToString()
@@ -5316,7 +5329,13 @@ Partial Class Ventas
 
             End If
 
-            TxtFechaEjecucion.Text = DbRowVenta("FechaEjecucion").ToString().ToDateTime.ToString("dd/MM/yyyy")
+            If DbRowVenta("CveMedico").ToString.ToEntero > 0 AndAlso DbRowVenta("CveProcedimiento").ToString.ToEntero > 0 Then
+                TxtFechaEjecucion.Text = DbRowVenta("FechaEjecucion").ToString().ToDateTime.ToString("dd/MM/yyyy HH:mm")
+                DVMEEFechaEje.Visible = False
+            Else
+                TxtFechaEjecucion.Text = DbRowVenta("FechaEjecucion").ToString().ToDateTime.ToString("dd/MM/yyyy")
+            End If
+
             'DdlSucursalEjecucion.SelectedValueExist(DbRowVenta("CveSucursalEjecucion").ToString())
             'DdlSucursalCobranza.SelectedValueExist(DbRowVenta("CveSucursalCobranza").ToString())
             DdlSucursalCliente.SelectedValueExist(DbRowVenta("CveClienteSucursal").ToString())
@@ -8188,6 +8207,10 @@ Partial Class Ventas
             GvPS.Rows(e.NewEditIndex).FCTextBox("TxtDescuento").Enabled = False
         End If
 
+        If EsVentaMedica Then
+            GvPS.Rows(e.NewEditIndex).FCTextBox("TxtPrecio").Enabled = False
+        End If
+
         If CveCicloComercial > 0 Then
             For Each gvr As GridViewRow In GvContratoDetalles.Rows
                 If gvr.RowType = DataControlRowType.DataRow Then
@@ -13524,7 +13547,7 @@ Partial Class Ventas
 
             If EsVentaMedica AndAlso ErrorList.Count = 0 AndAlso ChkRequiereTecnico.Checked Then
 
-                GeneraOS(ObjVentas.IniciaTransacSQL, ErrorList)
+                GeneraOS(ObjVentas.IniciaTransacSQL, ErrorList, CveVentaOS:=factura.CveVenta, SerieFolioOS:=factura.SerieFolio)
 
                 If ErrorList.Count = 0 Then
                     If Not ObjOS.UpdateVentaOS(factura.CveVenta, CveOSVentaMedica) Then
@@ -16798,16 +16821,22 @@ Partial Class Ventas
                 DdlUnidadMedida.DataBind()
                 DdlUnidadMedida.SelectedValueExist(drPS("CveUnidadMedida").ToString())
 
-                If drPS("CveTipoPS").ToString() = "1" Then 'Si es servicio
+                If EsVentaMedica Then
-                    If UsuarioActual.Empresa.Funcionalidad(558).ToString() = "1" Then 'Si es Empresa llantera
+                    TxtPrecio.Enabled = False
-                        TxtPrecio.Enabled = True
-                    Else
-                        'TxtPrecio.Enabled = False
-                    End If
                 Else
-                    TxtPrecio.Enabled = True
+                    If drPS("CveTipoPS").ToString() = "1" Then 'Si es servicio
+                        If UsuarioActual.Empresa.Funcionalidad(558).ToString() = "1" Then 'Si es Empresa llantera
+                            TxtPrecio.Enabled = True
+                        Else
+                            'TxtPrecio.Enabled = False
+                        End If
+                    Else
+                        TxtPrecio.Enabled = True
+                    End If
                 End If
 
+
+
                 Dim PSCodigoSAT As String = drPS("SATClavePS").ToString
 
                 If UsuarioActual.TienePermisoProceso(68) AndAlso Not PSCodigoSAT.Contiene("84111506", "80141610") Then TxtPrecio.Enabled = False
@@ -18001,17 +18030,12 @@ Partial Class Ventas
 
         'YOKOHAMA
         If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso CveRinTamañoPS > 0 AndAlso CveMarcaPromocion.Contiene(800, 912, 1238, 1381, 1456, 1528, 1600, 1672, 1807) Then
-            Dim DtRines As DataTable = Nothing
+
-            Dim ObjGral As New ClsGenerales
-            If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
-                DtRines = ObjGral.DtResultados.Copy()
-            End If
-            ObjGral.Dispose()
 
             If CveMarcaPromocion > 0 Then
                 ObjDescuento.NombrePromo = "YOKOHAMA VERANO" 'dr("NombrePromocion").ToString()
                 ObjDescuento.CveMarca = CveMarcaPromocion
-                Dim Rin As String = DtRines.FiltroPrimeroValor("RinTamaño", $"CveRinTamaño = {CveRinTamañoPS}")
+                Dim Rin As String = GlobalDTPSRinTamaños(UsuarioActual.CveEmpresa, CveRinTamañoPS).FiltroPrimeroValor("RinTamaño", "")
                 Dim PromoDescuento As Decimal = (Descuento * (1 + If(IncluyeImpuestos, PorcentajeIVA, 0))).RoundSQL(2)
 
                 ObjDescuento.ObsDescuento = String.Format("RIN {0} BONO ${1:N2}", Rin, PromoDescuento)
@@ -21676,6 +21700,9 @@ Partial Class Ventas
 
         ViewState("CveClienteAnterior") = CveCliente
 
+        DdlMedicoObservaciones.Enabled = True
+        DdlProcedimientoObservaciones.Enabled = True
+
         Dim CantidadFacturadaRemision As Decimal = 0
 
         'EN BDH NO DEBE PERMITIR EDITAR EL PU
@@ -21716,7 +21743,14 @@ Partial Class Ventas
         TxtObsPS.Enabled = True
         DdlProyecto.Enabled = True
         DdlSubProyecto.Enabled = True
-        TxtPrecio.Enabled = True
+
+        If EsVentaMedica Then
+            TxtPrecio.Enabled = False
+        Else
+            TxtPrecio.Enabled = True
+        End If
+
+
         LbAgregar.Enabled = True
         ImgDescTotal.Attributes.Add("onclick", "javascript:$('#ModalDescuento').modal();  $get('LblTitulo1').style.display = ''; $get('LblTitulo2').style.display = 'none'; $get('LblTituloTipo1').style.display = ''; $get('LblTituloTipo2').style.display = 'none'; $get('HdnTipoDescuento').value = '2';  $get('LblPrecio1').style.display = 'none'; $get('LblTotalPS1').style.display = 'none'; $get('LblSubTotal1').style.display = ''; $get('LblAmort').style.display = 'none'; $get('BtnAplicarDescP').style.display = 'none'; $get('BtnAplicarDescG').style.display = ''; $get('TrMotivoDescuento').style.display = '';")
         LblSubTotal1.Text = TxtSubTotal.Text
@@ -21731,6 +21765,7 @@ Partial Class Ventas
         UpPS.Update()
         UpCliente.Update()
         UPObservaciones.Update()
+
     End Sub
     Private Sub BtnEditarRemision_Click(sender As Object, e As EventArgs) Handles BtnEditarRemision.Click
         Dim OcurrioError As Boolean = False
@@ -21825,7 +21860,7 @@ Partial Class Ventas
                                           PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(),
                                           CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), TipoDocto:="Rem", CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal,
                                           OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDouble, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(),
-                                          CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), ServicioDomicilio:=TrServicioDomicilio.Visible) Then
+                                          CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), ServicioDomicilio:=TrServicioDomicilio.Visible, CveMedico:=DdlMedicoObservaciones.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimientoObservaciones.SelectedValue.ToEntero) Then
                 OcurrioError = True
             End If
 
@@ -26192,7 +26227,26 @@ Partial Class Ventas
 
 #Region "  SALDAR VENTA  "
     Protected Sub BtnSaldarVenta_Click(sender As Object, e As EventArgs)
-        SaldarVenta()
+        'SaldarVenta()
+
+        Dim ObjCancelacion As New Timbrado
+
+        Dim FolioFiscal As String = LblFolioFiscal.Text
+        Dim RFCEmisor As String = UsuarioActual.Empresa.RFC
+        Dim RFCReceptor As String = LblRFC.Text
+        Dim CvePACCancelacion As Integer = 4
+
+
+        Dim RespCancelacion As RespuestaCancelacionSAT = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, TxtTotal.Text.ToDecimal, RFCReceptor, RFCEmisor, CvePACCancelacion, CveSATMotivoCancelacion:=3)
+
+        If RespCancelacion.Verificado Then
+
+
+
+        Else
+            Alert("Los servicios de cancelación del SAT no se encuentran disponibles o presentan time out. Intente de nuevo en unos minutos.<br/>Origen del error: WebService www.sat.gob.mx", TipoMensaje.MsgError)
+        End If
+
     End Sub
     Private Sub SaldarVenta()
         'Dim ObjVenta As New ClsVentas
@@ -33619,6 +33673,9 @@ Partial Class Ventas
             UpPS.Update()
         End If
 
+        TxtDescripcionVenta.Enabled = True
+
+        UpCliente.Update()
         UpParametros.Update()
         UPObservaciones.Update()
         UpFacturar.Update()
@@ -33637,7 +33694,7 @@ Partial Class Ventas
         ObjVentas.IniciaTransacSQL()
 
         If Not ObjVentas.UpdateObservacionesVenta(Me.CveVenta, UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(), TxtObsFact.Text, RblPaqueteria.SelectedValue.ToEntero(), TxtCorreoNotificaciones.Text,
-                                              TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text, DdlUsoCFDI.SelectedValue.ToEntero) Then
+                                              TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text, DdlUsoCFDI.SelectedValue.ToEntero, DescripcionVenta:=TxtDescripcionVenta.Text.Trim) Then
             TieneError = True
         End If
 
@@ -36314,7 +36371,7 @@ Partial Class Ventas
     End Sub
 
 
-    Private Function GeneraOS(ByRef TransacSQL As SqlTransaction, ByRef errorList As List(Of String)) As Boolean
+    Private Function GeneraOS(ByRef TransacSQL As SqlTransaction, ByRef errorList As List(Of String), CveVentaOS As Integer, SerieFolioOS As String) As Boolean
 
         Dim Errores As Boolean = False
 
@@ -36350,18 +36407,22 @@ Partial Class Ventas
             Dim CveOsDetalle = ObjOrdenServicio.AddOrdenesServiciosDetalle(ObjOrdenServicio.CveOS, CvePSDetalle, 1, -1, -1, $"Venta: {LblSerie.Text}-{TxtFolio.Text}", False, True, False, -1, "-1", "-1", "-1", "", UsuarioActual.CveUsuario, Archivo:="")
 
             If CveOsDetalle > 0 Then
-                'MENSAJE PRINCIPAL
-                'Dim MensajeAlertOS As New StringBuilder
                 MensajeAlert.AppendFormat(String.Format("<br/>La  Orden de Servicio: <b>{0}</b>  se generó correctamente.<br/>", ObjOrdenServicio.Folio))
                 MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul><br/>", Encripta(String.Format("OP=OS&CVEOS={0}", ObjOrdenServicio.CveOS)))
-                'Dim Liga = $"document.location.href=""/OS/RepOrdenesServicios.aspx"";"
-                'Alert(MensajeAlertOS.ToString, TipoMensaje.MsgInformacion, Liga)
             Else
                 errorList.Add("Se presento un error al guardar la el detalle de la orden de servicio.")
                 Errores = True
             End If
+        End If
 
+        If Not Errores Then
+            Dim ObjEventos As New ClsOIEventos(TransacSQL)
+            Dim LigaVenta As String = String.Format("Pedido en Folio: <a href=""/Ventas/Ventas.aspx?CveVenta={0}"" target=""_blank"">{1}</a>", CveVentaOS, SerieFolioOS)
 
+            If Not ObjEventos.AddEventoBitacora(LigaVenta, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveOS:=CveOSVentaMedica) Then
+                errorList.Add("Se presento un error al guardar la bitacora de la orden de servicio.")
+                Errores = True
+            End If
         End If
 
         Return If(Errores, False, True)