diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index e9177b303..fae59c8c7 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -655,6 +655,18 @@
                                     <asp:Label runat="server" ID="LblTipoVenta"></asp:Label>
                                 </td>
                             </tr>
+                            <tr runat="server" id="TrVentasMedicas5" visible="false">
+                                <td >
+                                    <b>Educ. Médica:</b>
+                                </td>
+                                <td runat="server">
+                                    <asp:TextBox ID="TxtEducMedica" runat="server" Style="width: 130px" MaxLength="50"></asp:TextBox>
+                                </td>
+                                <td >                                     
+                                </td>
+                                <td runat="server">                                     
+                                </td>
+                            </tr>
                         </table>
                     </div>
                 </div>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 721d2d035..97715a703 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -14536,6 +14536,7 @@ Partial Class Ventas
             CveMedico = DdlMedico.SelectedValue.ToEntero
             CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero
             CveTipoVentaGuardar = If(SeEstaFActurandoVentaMedica, CveTipoVenta, RBLTipoVenta.SelectedValue.ToEntero)
+            factura.Alfa2 = TxtEducMedica.Text.Trim
             'CveAlmacenTraspasoDestino
         End If
 
@@ -39736,6 +39737,7 @@ Partial Class Ventas
         TrVentasMedicas1.Visible = True
         TrVentasMedicas2.Visible = True
         TrVentasMedicas3.Visible = True
+        TrVentasMedicas5.Visible = True
 
         For Each item As ListItem In RBLTipoVenta.Items
             item.Text = $"&nbsp {item.Text}"
@@ -39744,6 +39746,7 @@ Partial Class Ventas
         If Opcion = "Cot" Then
             'TrVentasMedicas2.Visible = False
             TrVentasMedicas3.Visible = False
+            TrVentasMedicas5.Visible = False
         Else
             RegistraScript("$('#DvModalTipoVenta').modal({ backdrop: 'static', keyboard: false });")
         End If
@@ -40346,7 +40349,7 @@ Partial Class Ventas
                     If resp.Verificado Then
                         Dim CancelacionAcuse = resp.CancelacionAcuse
                         Using ObjVentas As New ClsVentas
-                            If Not ObjVentas.UpdateCancelaVenta(CveVenta, Now, CancelacionAcuse, UsuarioActual.CveEmpresa, CvePACCancelacion, -1, EstadoCancelacion:="", CveEstadoCancelacion:=-1) Then
+                            If Not ObjVentas.UpdateCancelaVenta(CveVenta, Now, CancelacionAcuse, UsuarioActual.CveEmpresa, CvePACCancelacion, 0, EstadoCancelacion:="", CveEstadoCancelacion:=0) Then
                                 Alert("Ocurrió un error al guardar el estatus de cancelación")
                             End If
                         End Using