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

App_Code/ClsPaginas.vb

@@ -5868,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
@@ -5915,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))
@@ -5924,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)
@@ -6032,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.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)
@@ -6346,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"

App_Code/ClsVentas.vb

@@ -217,6 +217,25 @@ Public Class ClsVentas
         End Try
         Return retorno
     End Function
+    Public Function CGame_ManifiestoUpvta(cveVenta As Int32, cveUsuario As Int32, cveEmpresa As Int32, CveManifiesto As Int32) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_CGame_ManifiestoUpvta", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVenta", SqlDbType.Int).Value = cveVenta
+            .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
+            .Add("@CveManifiesto", SqlDbType.Int).Value = CveManifiesto
+            .Add("@CveUsuario", SqlDbType.Int).Value = cveUsuario
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar venta manifiesto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return retorno
+    End Function
+
     Public Function GetVentaTerminal(CveVentaTerminal As Integer, Fecha As DateTime, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_VentasGetTerminal")
@@ -555,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")
@@ -591,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
@@ -604,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
@@ -619,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)

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,10 +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"
-                                Continue For
-                            End If
 
 
                             CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub

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

OS/OrdenesServicios.aspx.vb

@@ -3072,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")

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;

Ventas/Ventas.aspx

@@ -4205,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

@@ -2678,8 +2678,7 @@ Partial Class Ventas
                 Using ObjVentas As New ClsCGame()
 
                     If ObjVentas.ManifiestoGet(Request("CveManifiesto").ToEntero(), -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, "-1", "-1") Then
-                        'DdlSubProyectoDatos.SelectedValueExist(ObjVentas.DtResultados.Rows(0)("CveSubProyecto").ToString())
+                        DdlSubProyectoDatos.SelectedValueExist(ObjVentas.DtResultados.Rows(0)("CveSubProyecto").ToString())
-                        DdlSubProyectoDatos.SelectedValueExist("12629")
                     End If
 
                     If ObjVentas.ManifiestoForVtaGet(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Request("CveManifiesto").ToEntero()) Then
@@ -2738,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
@@ -3387,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
@@ -3418,10 +3430,6 @@ Partial Class Ventas
                 RegistraScript("$('#TxtCantidad').focus();", "A1")
             End If
 
-            If EsVentaMedica Then
-                TxtPrecio.Enabled = False
-            End If
-
         End If
 
     End Sub
@@ -5322,7 +5330,7 @@ Partial Class Ventas
             End If
 
             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")
+                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")
@@ -10120,6 +10128,12 @@ Partial Class Ventas
 
                                 If ObjVentas.Embarque_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveEmbarqueManifiesto").ToEntero()) Then
 
+                                End If
+                            End If
+                            If Request("CveManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveManifiesto")) AndAlso Request("CveManifiesto").ToEntero() > 0 Then
+
+                                If ObjVentas.CGame_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveManifiesto").ToEntero()) Then
+
                                 End If
                             End If
                         Catch ex As Exception
@@ -21686,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
@@ -21748,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
@@ -21842,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
 
@@ -33655,6 +33673,9 @@ Partial Class Ventas
             UpPS.Update()
         End If
 
+        TxtDescripcionVenta.Enabled = True
+
+        UpCliente.Update()
         UpParametros.Update()
         UPObservaciones.Update()
         UpFacturar.Update()
@@ -33673,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