diff --git a/Acumuladores/CatFoliosGarantia.aspx.vb b/Acumuladores/CatFoliosGarantia.aspx.vb
index 5f6459bd9..e2b64d68d 100644
--- a/Acumuladores/CatFoliosGarantia.aspx.vb
+++ b/Acumuladores/CatFoliosGarantia.aspx.vb
@@ -131,7 +131,7 @@ Partial Class Acumuladores_CatFoliosGarantia
             End If
         Else
             If ObjAcum.FoliosGarantiaUpdate(CveFolioGarantia, TxtFolioGarantia.Text, DdlEstatusEditar.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlSubProyectos.SelectedValue.ToEntero,
-                                            DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero) Then
+                                            DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero, DdlArea.SelectedValue.ToEntero) Then
 
                 TxtFolioGarantia.Text = ""
                 DdlEstatusEditar.SelectedValueExist("1")
@@ -197,8 +197,10 @@ Partial Class Acumuladores_CatFoliosGarantia
         DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
         DdlSubProyectos.DataBind()
         DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlSubProyectos.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
-
+        DdlSubProyectos.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
+
+        DdlArea.SelectedValueExist(GvRow.DataKey("Area"))
+
         BtnAgregarFolioGarantiaModal.Text = "Actualizar"
 
         UpModalFolioGarantia.Update()
diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb
index 120c6bcdb..10a56ca64 100644
--- a/App_Code/ClsAcumuladores.vb
+++ b/App_Code/ClsAcumuladores.vb
@@ -543,7 +543,7 @@ Public Class ClsAcumuladores
         Return Retorno
     End Function
 
-    Public Function FoliosGarantiaUpdate(CveFolioGarantia As Integer, FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveSubProyecto As Integer, TipoFolio As String, Limite As Integer) As Boolean
+    Public Function FoliosGarantiaUpdate(CveFolioGarantia As Integer, FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveSubProyecto As Integer, TipoFolio As String, Limite As Integer, Area As Integer) As Boolean
         Dim Retorno As Boolean = False
         'Data = New DataTable
 
@@ -558,6 +558,7 @@ Public Class ClsAcumuladores
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@TipoFolio", SqlDbType.VarChar).Value = TipoFolio
             .Add("@Limite", SqlDbType.Int).Value = Limite
+            .Add("@Area", SqlDbType.Int).Value = Area
 
         End With
 
diff --git a/Empresas/186/Formatos/TrasladoAngeles.rdlc b/Empresas/186/Formatos/TrasladoAngeles.rdlc
index 5879f7fec..d42c8d3da 100644
--- a/Empresas/186/Formatos/TrasladoAngeles.rdlc
+++ b/Empresas/186/Formatos/TrasladoAngeles.rdlc
@@ -780,7 +780,6 @@
                             <PaddingTop>=IIf(rownumber(nothing) = 1, "2pt", "0pt")</PaddingTop>
                           </Style>
                         </Textbox>
-                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>
@@ -1588,7 +1587,7 @@
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.33542cm</Height>
+                  <Height>0.2825cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -1972,7 +1971,7 @@
             <DataSetName>DsInventarios</DataSetName>
             <Top>0.14111cm</Top>
             <Left>0.10068cm</Left>
-            <Height>3.1562cm</Height>
+            <Height>3.10328cm</Height>
             <Width>25.45761cm</Width>
             <Style>
               <Border>
@@ -2048,6 +2047,18 @@
               <PaddingBottom>2pt</PaddingBottom>
             </Style>
           </Textbox>
+          <Line Name="Line4">
+            <Top>4.79214cm</Top>
+            <Left>0.10068cm</Left>
+            <Height>0cm</Height>
+            <Width>25.72414cm</Width>
+            <ZIndex>2</ZIndex>
+            <Style>
+              <Border>
+                <Style>Solid</Style>
+              </Border>
+            </Style>
+          </Line>
         </ReportItems>
         <Height>1.88667in</Height>
         <Style />
@@ -2055,7 +2066,7 @@
       <Width>10.19535in</Width>
       <Page>
         <PageHeader>
-          <Height>4.44499cm</Height>
+          <Height>4.55082cm</Height>
           <PrintOnFirstPage>true</PrintOnFirstPage>
           <PrintOnLastPage>true</PrintOnLastPage>
           <ReportItems>
@@ -2544,7 +2555,7 @@ Municipio y/o Delegación:  </Value>
               <rd:DefaultName>Textbox7</rd:DefaultName>
               <Top>2.32101cm</Top>
               <Left>0.13678cm</Left>
-              <Height>2.12398cm</Height>
+              <Height>2.05342cm</Height>
               <Width>20.93288cm</Width>
               <ZIndex>9</ZIndex>
               <Style>
@@ -2565,7 +2576,7 @@ Municipio y/o Delegación:  </Value>
           </Style>
         </PageHeader>
         <PageFooter>
-          <Height>3.8269cm</Height>
+          <Height>2.5569cm</Height>
           <PrintOnFirstPage>true</PrintOnFirstPage>
           <PrintOnLastPage>true</PrintOnLastPage>
           <ReportItems>
@@ -2588,7 +2599,7 @@ Municipio y/o Delegación:  </Value>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox21</rd:DefaultName>
-              <Top>1.37766cm</Top>
+              <Top>0.74266cm</Top>
               <Left>5.68986cm</Left>
               <Height>0.50243cm</Height>
               <Width>5.79375cm</Width>
@@ -2624,7 +2635,7 @@ Municipio y/o Delegación:  </Value>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox21</rd:DefaultName>
-              <Top>1.37766cm</Top>
+              <Top>0.74266cm</Top>
               <Left>14.40467cm</Left>
               <Height>0.50243cm</Height>
               <Width>5.78664cm</Width>
@@ -2675,9 +2686,9 @@ Municipio y/o Delegación:  </Value>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox21</rd:DefaultName>
-              <Top>1.66375cm</Top>
+              <Top>1.02875cm</Top>
               <Left>5.69781cm</Left>
-              <Height>1.2cm</Height>
+              <Height>0.82958cm</Height>
               <Width>5.78664cm</Width>
               <ZIndex>2</ZIndex>
               <Visibility>
@@ -2726,9 +2737,9 @@ Municipio y/o Delegación:  </Value>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox21</rd:DefaultName>
-              <Top>1.6632cm</Top>
+              <Top>1.0282cm</Top>
               <Left>14.41177cm</Left>
-              <Height>1.2cm</Height>
+              <Height>0.82958cm</Height>
               <Width>5.78664cm</Width>
               <ZIndex>3</ZIndex>
               <Visibility>
@@ -2763,7 +2774,7 @@ Municipio y/o Delegación:  </Value>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox22</rd:DefaultName>
-              <Top>0.07331cm</Top>
+              <Top>0.04156cm</Top>
               <Left>5.69781cm</Left>
               <Height>0.6cm</Height>
               <Width>5.78664cm</Width>
@@ -2800,7 +2811,7 @@ Municipio y/o Delegación:  </Value>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox22</rd:DefaultName>
-              <Top>0.07331cm</Top>
+              <Top>0.04156cm</Top>
               <Left>14.41177cm</Left>
               <Height>0.6cm</Height>
               <Width>5.78664cm</Width>
@@ -2835,7 +2846,7 @@ Municipio y/o Delegación:  </Value>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox21</rd:DefaultName>
-              <Top>0.45106cm</Top>
+              <Top>0.41931cm</Top>
               <Left>10.04017cm</Left>
               <Height>0.63528cm</Height>
               <Width>5.78664cm</Width>
@@ -2886,9 +2897,9 @@ Municipio y/o Delegación:  </Value>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox21</rd:DefaultName>
-              <Top>1.6632cm</Top>
+              <Top>1.0282cm</Top>
               <Left>10.04727cm</Left>
-              <Height>1.2cm</Height>
+              <Height>0.82958cm</Height>
               <Width>5.78664cm</Width>
               <ZIndex>7</ZIndex>
               <Visibility>
@@ -2923,7 +2934,7 @@ Municipio y/o Delegación:  </Value>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox22</rd:DefaultName>
-              <Top>0.07331cm</Top>
+              <Top>0.04156cm</Top>
               <Left>10.04727cm</Left>
               <Height>0.6cm</Height>
               <Width>5.78664cm</Width>
@@ -2971,7 +2982,7 @@ Municipio y/o Delegación:  </Value>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox29</rd:DefaultName>
-              <Top>3.40709cm</Top>
+              <Top>2.13709cm</Top>
               <Left>0.10068cm</Left>
               <Height>0.41981cm</Height>
               <Width>5.78083cm</Width>
@@ -3009,7 +3020,7 @@ Municipio y/o Delegación:  </Value>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox31</rd:DefaultName>
-              <Top>3.40709cm</Top>
+              <Top>2.13709cm</Top>
               <Left>11.33129cm</Left>
               <Height>0.41981cm</Height>
               <Width>5.13762cm</Width>
@@ -3035,23 +3046,12 @@ Municipio y/o Delegación:  </Value>
                 </Border>
               </Style>
             </Line>
-            <Line Name="Line4">
-              <Left>0.13678cm</Left>
-              <Height>0cm</Height>
-              <Width>25.72414cm</Width>
-              <ZIndex>12</ZIndex>
-              <Style>
-                <Border>
-                  <Style>Solid</Style>
-                </Border>
-              </Style>
-            </Line>
             <Line Name="Line6">
-              <Top>3.26597cm</Top>
+              <Top>1.99597cm</Top>
               <Left>0.10068cm</Left>
               <Height>0cm</Height>
               <Width>25.76024cm</Width>
-              <ZIndex>13</ZIndex>
+              <ZIndex>12</ZIndex>
               <Style>
                 <Border>
                   <Style>Solid</Style>
@@ -3077,11 +3077,11 @@ Municipio y/o Delegación:  </Value>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox10</rd:DefaultName>
-              <Top>3.40709cm</Top>
+              <Top>2.13709cm</Top>
               <Left>23.00537cm</Left>
               <Height>0.41981cm</Height>
               <Width>2.55292cm</Width>
-              <ZIndex>14</ZIndex>
+              <ZIndex>13</ZIndex>
               <Style>
                 <Border>
                   <Style>None</Style>
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index be8f99da8..cea689a17 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -695,7 +695,7 @@ Partial Class Inventarios_EntregaAlmacen
                     TipoMovimiento = If(TipoDocto.Contiene({"Rem", "Ped", "Ing", "Ped", "PeC", "Ant"}) And (EsDevolucionVenta = 0 Or CveVentaAD > 0), 1, 2)
 
                     If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 AndAlso TipoDocto.Contiene("Ped", "Ing") Then
-                        TxtObservaciones.Text = $"Dr. {drE("Medico").ToString}{vbCrLf}Cx. {drE("Procedimiento").ToString}{vbCrLf}F.  Cirugía {drE("FechaEjecucion").ToString.ToDateTime.ToString("dd/MM/yyyy HH:mm")}{vbCrLf}H. {drE("Sucursal").ToString}{vbCrLf}"
+                        TxtObservaciones.Text = $"Dr. {drE("Medico").ToString}{vbCrLf}Cx. {drE("Procedimiento").ToString}{vbCrLf}F.  Cirugía {drE("FechaParaSurtir").ToString.ToDateTime.ToString("dd/MM/yyyy HH:mm")}{vbCrLf}H. {drE("Sucursal").ToString}{vbCrLf}"
                         TxtObservaciones.Rows = 4
                     End If
 
@@ -2258,8 +2258,22 @@ Partial Class Inventarios_EntregaAlmacen
                 If ObjInventario.GetExistenciasPSXML(StrXML.ToString(), DdlAlmacen.SelectedValue.ToEntero(), TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSubProyecto, CveVendedor, If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), If(TipoEntrega = 2, 1, -1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                     If ObjInventario.DtResultados.Rows.Count > 0 Then
                         TieneErrorExistencia = True
-                        For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                            TextoError.AppendFormat("<b> - {0}</b> Existencia: {1:#,##0.##} <br/>", Dr("CodigoPS"), Dr("Existencia"))
+                        For Each Dr As DataRow In ObjInventario.DtResultados.Rows
+
+                            Dim SerieLoteCaducidad As String = ","
+                            If Dr("Serie").ToString.Trim.Length > 0 AndAlso Dr("Serie").ToString.Trim <> "-1" Then
+                                SerieLoteCaducidad = $" Serie: { Dr("Serie").ToString.Trim}"
+                            End If
+                            If Dr("Lote").ToString.Trim.Length > 0 AndAlso Dr("Lote").ToString.Trim <> "-1" Then
+                                SerieLoteCaducidad = $"{SerieLoteCaducidad} Lote: {Dr("Lote").ToString.Trim}"
+                            End If
+                            If Dr("FechaCaducidad").ToString.Trim.Length > 0 AndAlso Dr("FechaCaducidad").ToString.Trim <> "-1" Then
+                                SerieLoteCaducidad = $"{SerieLoteCaducidad} Caducidad: { Dr("FechaCaducidad").ToString.Trim.ToDate.ToString("dd/MM/yyyy")}"
+                            End If
+
+                            TextoError.AppendFormat("<b> - {0}</b> Existencia: {1:#,##0.##} {2}<br/>", Dr("CodigoPS"), Dr("Existencia"), If(SerieLoteCaducidad <> ",", SerieLoteCaducidad, ""))
+
+
                         Next
                     End If
                 Else
diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx
index 3f136ba72..554b8974f 100644
--- a/Ventas/ProductosServicios.aspx
+++ b/Ventas/ProductosServicios.aspx
@@ -2106,20 +2106,20 @@
                                   <asp:DropDownList ID="DdlEquivalenciaUM" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true"  CausesValidation="true" DataTextField="UnidadMedida" DataValueField="CveUnidadMedida" Width="206px">                                
                                 </asp:DropDownList>
                                 <label for="<%= DdlEquivalenciaUM.ClientID.ToString()%>">Unidad de Medida:</label>                                                              
-                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlEquivalenciaUM" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad de medida''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEliminarPS"></asp:RequiredFieldValidator>
+                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlEquivalenciaUM" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad de medida''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarEquivalencia"></asp:RequiredFieldValidator>
                                   <i></i>
                             </div>
                             <div class="form-group form-md-line-input input-iconright">                                
                                 <asp:TextBox ID="TxtCantidadEquivalencia" runat="server"   Width="60"  CausesValidation="true" MaxLength="10"></asp:TextBox>
                                  <label for="<%= TxtCantidadEquivalencia.ClientID.ToString()%>">Cantidad:</label>   
-                                <asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtDescripcion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripcion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEliminarPS"></asp:RequiredFieldValidator>
+                                <asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtDescripcion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripcion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarEquivalencia"></asp:RequiredFieldValidator>
                                 <i></i>
                             </div>
                          
                     <div class="modal-footer">
                         <asp:UpdatePanel ID="UpdatePanel5" runat="server" UpdateMode="Conditional">
                             <ContentTemplate>
-                                <asp:LinkButton ID="LnkAgregarEquivalencia" runat="server" CssClass="btn btn-primary" OnClick="LnkAgregarEquivalencia_Click"> Guardar</asp:LinkButton>
+                                <asp:LinkButton ID="LnkAgregarEquivalencia" runat="server" CssClass="btn btn-primary" OnClick="LnkAgregarEquivalencia_Click" ValidationGroup="GrpAgregarEquivalencia" > Guardar</asp:LinkButton>
                                 <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
                             </ContentTemplate>
                         </asp:UpdatePanel>
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 53090e7fb..a2e1f750a 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -631,10 +631,10 @@
                                       <asp:TextBox ID="TxtFolioRemision" runat="server"   Style="width: 130px" MaxLength="20" Enabled="false"></asp:TextBox>
                                   </td>
                                   <td runat="server" id="Td10" >
-                                      
+                                     <b>Tipo de Venta:</b> 
                                   </td>
                                   <td runat="server">
-                                      
+                                      <asp:Label runat="server" ID="LblTipoVenta"></asp:Label>
                                   </td>
                               </tr>
                         </table>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 21f4ce9a4..ee5f66057 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6173,6 +6173,10 @@ Partial Class Ventas
                             TxtPaciente.Enabled = False
                             TxtEpisodio.Enabled = False
 
+                            TrVentasMedicas4.Visible = True
+                            TxtFolioRemision.Text = DbRowVenta("Alfa1").ToString
+
+                            LblTipoVenta.Text = DbRowVenta("TipoVenta").ToString
 
                             If DbRowVenta("FechaParaSurtir").ToString().ToDate() > DateTime.MinValue Then
                                 TrVentasMedicas2.Visible = True
@@ -6181,12 +6185,9 @@ Partial Class Ventas
 
                                 TxtFechaOS.Text = DbRowVenta("FechaParaSurtir").ToString().ToDateTime().ToString("yyyy-MM-dd HH:mm").Replace(" ", "T")
                             End If
+
                         End If
 
-                        If DdlTipoDocto.SelectedValue.Contiene("Ing", "Rem") Then
-                            TrVentasMedicas4.Visible = True
-                            TxtFolioRemision.Text = DbRowVenta("Alfa1").ToString
-                        End If
                     End If
                 End If
             End Using
@@ -8612,6 +8613,9 @@ Partial Class Ventas
                 'If UsuarioActual.CveEmpresa = 119 Then
                 '    e.Row.FCTextBox("TxtDescuento").Enabled = False
                 'End If
+
+
+
             Else
                 'MODO NORMAL
 
@@ -8760,11 +8764,13 @@ Partial Class Ventas
         End If
 
         If EsVentaMedica Then
+
             GvPS.Rows(e.NewEditIndex).FCTextBox("TxtPrecio").Enabled = False
 
-            If DdlTipoComprobante.SelectedValue = "Cot" Then
+            If DdlTipoComprobante.SelectedValue = "Cot" Or RBLTipoVenta.SelectedValue.ToEntero = 1 Then
                 GvPS.Rows(e.NewEditIndex).FCTextBox("TxtPrecio").Enabled = True
             End If
+
         End If
 
         If CveCicloComercial > 0 Then
@@ -17676,7 +17682,7 @@ Partial Class Ventas
 
                 If EsVentaMedica Then
                     TxtPrecio.Enabled = False
-                    If UsuarioActual.CveUsuario = 3986 Then
+                    If UsuarioActual.CveUsuario = 3986 Or RBLTipoVenta.SelectedValue.ToEntero = 1 Then
                         TxtPrecio.Enabled = True
                     End If
 
@@ -22799,8 +22805,9 @@ Partial Class Ventas
             End If
         End If
 
+        TxtAtencionA.Enabled = True
 
-
+        UpCliente.Update()
         UPPVentas.Update()
         UpPS.Update()
         UpCliente.Update()
@@ -37785,6 +37792,10 @@ Partial Class Ventas
             AsignaAlmacenWS()
             'CargaPS(-1, DdlPS)
         End If
+        If RBLTipoVenta.SelectedValue.Contiene("1") Then
+            TxtPrecio.Enabled = True
+            UpPS.Update()
+        End If
 
         RegistraScript("$('#DvModalTipoVenta').modal('hide');")
         UpCliente.Update()