diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb
index 1722b4293..60f56f1b0 100644
--- a/App_Code/ClsClientes.vb
+++ b/App_Code/ClsClientes.vb
@@ -1830,7 +1830,7 @@ Public Class ClsClientes
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al obtener las diferencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            OnError("Ocurrió un error al obtener nombre de corporativos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
 
         Return Retorno
diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index e1eb9a7be..b287f64dc 100644
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -3824,7 +3824,6 @@ Public Class ClsGenerales
         End Try
         Return Retorno
     End Function
-
     Public Function CancelarTimbreTimbrado(CveTimbre As Integer, FechaCancelacion As DateTime, CvePACCancelacion As Integer, SelloCancelacion As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_TimbreTimbradoCancelar")
@@ -3846,10 +3845,7 @@ Public Class ClsGenerales
             OnError("Ocurrió un error al actualizar el timbrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
         Return Retorno
-    End Function
-
-
-
+    End Function
     Public Function RemoveGralTimbre(CveTimbre As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_TimbreRemove")
@@ -3868,9 +3864,7 @@ Public Class ClsGenerales
         Return Retorno
     End Function
 
-    Public Function GetGralMovimientosDetalleTimbre(CveTimbre As Integer, CveEmpresa As Integer) As Boolean
-
-
+    Public Function GetGralMovimientosDetalleTimbre(CveTimbre As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_MovimientosDetalleTimbreGet")
 
@@ -3887,7 +3881,6 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-
     End Function
 
     Public Function AddInvEntregaAlmacenRuta(CveSubProyecto As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer, CveMovimientoAlmacen As Integer, CveChofer As Integer, CveCamion As Integer, FechaEntrega As Date, FechaLlegada As DateTime, Tipo As String,
diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index c6b9bed20..a6f85520c 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -718,39 +718,82 @@ Partial Class OS_OrdenesServicios
     Private Sub CargaVenta()
         Dim ObjVentas As New ClsVentas
         If ObjVentas.GetVenta(CveCotizacion, UsuarioActual.CveEmpresa) Then
+
             If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
-                'Carga Cliente
+
                 ViewState("CveCliente") = ObjVentas.DtResultados.Rows(0)("CveCliente").ToString.ToEntero
                 CargaCliente(CveCliente)
-            End If
-            If ObjVentas.GetVentaDetalle(CveCotizacion) Then
-                Dim Cons As Integer = 1
-                For Each dr As DataRow In ObjVentas.DtResultados.Rows
+
+
+                Dim Drow As DataRow = ObjVentas.DtResultados.Rows(0)
+                If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+                    TxtDescripcion.Text = Drow("SerieFolio").ToString
+                    TxtSolicito.Text = UsuarioActual.Nombre
+                    DdlMedico.SelectedValueExist(Drow("CveMedico").ToString)
+                    DdlProcedimiento.SelectedValueExist(Drow("CveProcedimiento").ToString)
+                    DdlTipoVenta.SelectedValueExist(Drow("CveTipoVenta").ToString)
+                    DdlSubProyecto.SelectedValueExist(Drow("CveSubProyecto").ToString)
+
+                    'If dr("CveTipoPS").ToString.ToEntero = 2 Then
+
+                    Dim CvePSDetalle As Integer = UsuarioActual.Empresa.Funcionalidad(708).ToEntero
+                    Dim CodigoPS As String = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("PSCodigo", $"CvePS={CvePSDetalle}")
+
+                    TxtFechaCita.Text = NowADS.ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T")
+
                     Dim drt As DataRow = TmpDT.NewRow
+                    drt("Consecutivo") = 1
+                    drt("CveOSDetalle") = -1
+                    drt("CvePS") = CvePSDetalle
+                    drt("PS") = CodigoPS
+                    drt("Cantidad") = 1
+                    drt("Observaciones") = $"Venta: {Drow("SerieFolio").ToString}"
 
-                    If dr("CveTipoPS").ToString.ToEntero = 2 Then
-                        drt("Consecutivo") = Cons
-                        drt("CveOSDetalle") = -1
-                        drt("CvePS") = dr("CvePS")
-                        drt("PS") = dr("PS")
-                        drt("Cantidad") = dr("Cantidad")
-                        drt("Observaciones") = dr("Obs")
-                        drt("SeFacturara") = True
-                        drt("SeSuperviso") = False
-                        drt("Archivo") = -1
-                        drt("CveCuentaEquipo") = "-1"
-                        drt("CuentaEquipoMostrar") = "Cuentas y/o Equipos"
-                        drt("Especificaciones") = "-1"
+                    drt("SeFacturara") = True
+                    drt("SeSuperviso") = False
+                    drt("Archivo") = -1
+                    drt("CveCuentaEquipo") = "-1"
+                    drt("CuentaEquipoMostrar") = ""
+                    drt("Especificaciones") = "-1"
 
-                        TmpDT.Rows.Add(drt)
-                        Cons = Cons + 1
-                    Else
+                    TmpDT.Rows.Add(drt)
 
+                    GvPS.DataSource = TmpDT
+                    GvPS.DataBind()
+
+                Else
+                    If ObjVentas.GetVentaDetalle(CveCotizacion) Then
+
+                        Dim Cons As Integer = 1
+                        For Each dr As DataRow In ObjVentas.DtResultados.Rows
+                            Dim drt As DataRow = TmpDT.NewRow
+
+                            If dr("CveTipoPS").ToString.ToEntero = 2 Then
+                                drt("Consecutivo") = Cons
+                                drt("CveOSDetalle") = -1
+                                drt("CvePS") = dr("CvePS")
+                                drt("PS") = dr("PS")
+                                drt("Cantidad") = dr("Cantidad")
+                                drt("Observaciones") = dr("Obs")
+                                drt("SeFacturara") = True
+                                drt("SeSuperviso") = False
+                                drt("Archivo") = -1
+                                drt("CveCuentaEquipo") = "-1"
+                                drt("CuentaEquipoMostrar") = "Cuentas y/o Equipos"
+                                drt("Especificaciones") = "-1"
+
+                                TmpDT.Rows.Add(drt)
+                                Cons = Cons + 1
+
+
+                            End If
+
+                        Next
+                        GvPS.DataSource = TmpDT
+                        GvPS.DataBind()
                     End If
+                End If
 
-                Next
-                GvPS.DataSource = TmpDT
-                GvPS.DataBind()
             End If
             'CargaDetalle
         End If
diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 893ba9fe4..781f9df7b 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -473,7 +473,7 @@
                                             </div>
                                             <div class="col-md-6 ">
                                                 <div class="form-group form-md-line-input">
-                                                    <asp:TextBox ID="TxtNombreCorto" runat="server" CssClass="form-control" MaxLength="10"></asp:TextBox>
+                                                    <asp:TextBox ID="TxtNombreCorto" runat="server" CssClass="form-control" MaxLength="30"></asp:TextBox>
                                                     <label for="<%= TxtNombreCorto.ClientID.ToString()%>">Nombre Corto: </label>
 
                                                 </div>
@@ -1751,6 +1751,7 @@
                                                         <asp:Button ID="BtnCargaCxC" runat="server" ClientIDMode="Static" Text="CargaCxC" Style="display: none;" OnClick="BtnCargaCxC_Click" />
                                                         <div class="row">
                                                             <div class="col-md-6">
+
                                                                 <div class="row">
                                                                     <div class="col-md-6">
                                                                         <div class="form-group form-md-line-input input-iconright">
@@ -1867,7 +1868,6 @@
                                                             </div>
 
                                                             <div class="col-md-6">
-
                                                                 <div class="form-group form-md-line-input">
                                                                     <asp:TextBox ID="TxtCobranzaContacto" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
                                                                     <label for="<%= TxtCobranzaContacto.ClientID.ToString()%>">Nombre Contacto de Pagos: </label>
@@ -1906,10 +1906,6 @@
                                                                     </div>
                                                                 </div>
 
-
-
-
-
                                                                 <div class="row">
                                                                     <div class="col-md-6">
                                                                         <div class="form-group form-md-line-input">
@@ -5200,7 +5196,7 @@
                                     </div>
                                 </div>
 
-                                <div class="row" >
+                                <div class="row"  style="padding-left: 16px;">
                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
                                         <asp:TextBox ID="TxtCorreoSucursal" CssClass="form-control" runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
                                         <asp:RegularExpressionValidator ID="RegularExpressionValidator1" runat="server" CssClass="help-block errorimput" ValidationExpression="(([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*" ControlToValidate="TxtCorreoSucursal" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Email''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardarSucursal"></asp:RegularExpressionValidator>
@@ -5215,7 +5211,7 @@
                                         <i></i>
                                     </div>
                                 </div>
-                                 <div class="row" >
+                                 <div class="row"  style="padding-left: 16px;" >
                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
                                         <asp:TextBox ID="TxtContactoSucursal" CssClass="form-control" runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
                                         <label for="<%= TxtContactoSucursal.ClientID.ToString()%>">Contacto:</label>
@@ -5283,7 +5279,9 @@
                                 </div>
 
                                 <div class="row" style="padding-left: 16px">
-                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
+                                     <div class="form-group form-md-line-input input-iconright col-xs-6" runat="server" id="DvAlmacenSucursal" visible="false">
+                                         <asp:DropDownList runat="server" ID="ddlAlmacenSucursal" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control select2me" Width="100%"></asp:DropDownList>
+                                         <label for="<%=ddlAlmacenSucursal.ClientID.ToString()%>">Almacén:</label>
                                     </div>
                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
                                         <div id="DivEstatusSucursal" visible="false" runat="server" class="form-group form-md-line-input input-iconright col-xs-12">
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 9a6b8334a..f604d4f2f 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -661,17 +661,7 @@ Partial Class Clientes
     End Property
 
 
-    Property CveAlmacenAsignadoSucursal As Integer
-        Get
-            If ViewState("CveAlmacenAsignadoSucursal") Is Nothing Then
-                ViewState("CveAlmacenAsignadoSucursal") = -1
-            End If
-            Return ViewState("CveAlmacenAsignadoSucursal").ToString().ToEntero()
-        End Get
-        Set(value As Integer)
-            ViewState("CveAlmacenAsignadoSucursal") = value
-        End Set
-    End Property
+
 
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -2583,8 +2573,9 @@ Partial Class Clientes
                             For Each Row As DataRow In TempDTSucursales.Rows
                                 If Not CveCliente > 0 Then
 
-                                    Dim CveAlmacenAsignadoSucursal As Integer = -1
-                                    If DdlTipoCliente.SelectedValue.ToEntero = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+                                    Dim CveAlmacenAsignadoSucursal As Integer = If(Row("CveAlmacenAsignado").ToString().ToEntero <= 0, -1, Row("CveAlmacenAsignado").ToString().ToEntero)
+
+                                    If DdlTipoCliente.SelectedValue.ToEntero = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso CveAlmacenAsignadoSucursal <= -1 Then
                                         CveAlmacenAsignadoSucursal = GeneraGuardaAlmacenAsignadoSucursal(Row("SucursalCliente").ToString(), ObjClientes.IniciaTransacSQL())
                                         If Not CveAlmacenAsignadoSucursal > 0 Then
                                             ErrorProceso = True
@@ -3005,14 +2996,26 @@ Partial Class Clientes
         DivEstatusSucursal.Visible = False
         TxtNumeroCuenta.Text = ""
         DdlMetodoPagoSucursal.SelectedIndex = 0
-        CveAlmacenAsignadoSucursal = -1
+        ddlAlmacenSucursal.SelectedValueExist("-1")
         UpAgregarSucursal.Update()
         Me.CveClienteSuc = -1
         Me.Actualizar = False
         txtLg.Text = ""
         txtLt.Text = ""
-        HDMAPOP.Value = "2"
-
+        HDMAPOP.Value = "2"
+
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+            DvAlmacenSucursal.Visible = True
+            ddlAlmacenSucursal.Items.Clear()
+            ddlAlmacenSucursal.ClearSelection()
+            ddlAlmacenSucursal.SelectedValue = Nothing
+            ddlAlmacenSucursal.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
+            ddlAlmacenSucursal.DataBind()
+        End If
+
+        ddlAlmacenSucursal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+        ddlAlmacenSucursal.SelectedValueExist("-1")
+
         UpModalDivMapa.Update()
 
 
@@ -3053,7 +3056,7 @@ Partial Class Clientes
             Dim ObjCliente As New ClsClientes
             ObjCliente.IniciaTransacSQL()
 
-            If CveAlmacenAsignadoSucursal <= 0 AndAlso DdlTipoCliente.SelectedValue.ToEntero = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+            If ddlAlmacenSucursal.SelectedValue.ToEntero <= 0 AndAlso DdlTipoCliente.SelectedValue.ToEntero = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
                 CveAlmacenAgregadoSucursal = GeneraGuardaAlmacenAsignadoSucursal(TxtNombreSucursal.Text.Trim, ObjCliente.IniciaTransacSQL())
                 If Not CveAlmacenAgregadoSucursal > 0 Then
                     ProcesoOK = False
@@ -3214,7 +3217,7 @@ Partial Class Clientes
         Me.Actualizar = True
         'Me.DivRFCSucursal.Visible = False
         Me.CveClienteSuc = GVSucursales.DataKeys(e.NewEditIndex).Value.ToString().ToEntero()
-        CveAlmacenAsignadoSucursal = -1
+        ddlAlmacenSucursal.SelectedValueExist("-1")
 
         Dim ObjCliente As New ClsClientes
 
@@ -3254,7 +3257,20 @@ Partial Class Clientes
             txtLt.Text = ObjCliente.DtResultados.Rows(0)("LT").ToString()
             HDMAPOP.Value = "2"
 
-            CveAlmacenAsignadoSucursal = ObjCliente.DtResultados.Rows(0)("CveAlmacenAsignado").ToString().ToEntero
+            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+                DvAlmacenSucursal.Visible = True
+                ddlAlmacenSucursal.Items.Clear()
+                ddlAlmacenSucursal.ClearSelection()
+                ddlAlmacenSucursal.SelectedValue = Nothing
+                ddlAlmacenSucursal.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
+                ddlAlmacenSucursal.DataBind()
+                ddlAlmacenSucursal.Items.Add(New ListItem("Seleccione uno", "-1"))
+                ddlAlmacenSucursal.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveAlmacenAsignado").ToString())
+            End If
+
+
+
+
 
 
             UpAgregarSucursal.Update()
@@ -5537,6 +5553,8 @@ Partial Class Clientes
         RowSucursal("LT") = If(txtLt.Text.ToDouble <> 0, txtLt.Text, "0")
         RowSucursal("LG") = If(txtLg.Text.ToDouble <> 0, txtLg.Text, "0")
 
+        RowSucursal("CveAlmacenAsignado") = ddlAlmacenSucursal.SelectedValue.ToEntero
+
         TempDTSucursales.Rows.Add(RowSucursal)
 
         GVSucursales.DataSource = TempDTSucursales
@@ -10526,7 +10544,7 @@ Partial Class Clientes
         Dim CveAlmacenAgregado As Integer = -1
         Dim ObjInv As New ClsInventarios(transaccionSQL)
         Dim nombreAlamacenLibre As Boolean = True
-        Dim ProcesoValidaAlamcenOF = True
+        Dim ProcesoValidaAlamcenOF As Boolean = True
 
         If ObjInv.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then
             nombreAlamacenLibre = If(ObjInv.DtResultados.FiltraParametros($" Almacen = '{NombreAlmacen}'").Rows.Count > 0, False, True)
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index b3e946446..c99f1327b 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -380,6 +380,10 @@
             <%--            <li>
                 <asp:LinkButton ID="LnkCancelarSoloCFDI" Visible="false" runat="server" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea cancelar el CFDI?" data-btn-ok-label="si" OnClick="LnkCancelarSoloCFDI_Click"><i class="fa fa-plus"></i>Cancelar solo CFDI</asp:LinkButton>
             </li>--%>
+
+             <li>
+                <asp:HyperLink ID="HLFAgregarOS" Target="_blank" runat="server" Visible="false"> <i class="fa fa-plus"></i> Agregar Orden de Servicio</asp:HyperLink>
+            </li>
         </ContentTemplate>
         <Triggers>
             <asp:AsyncPostBackTrigger ControlID="LnkImprimir" EventName="Click" />
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 268b91003..55df15532 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3399,6 +3399,11 @@ Partial Class Ventas
                 End If
             End If
 
+            If CveVenta >= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+                HLFAgregarOS.Visible = True
+                HLFAgregarOS.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveVenta={CveVenta}"
+            End If
+
         End If