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

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
 
@@ -39751,6 +39752,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}"
@@ -39759,6 +39761,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
@@ -40361,7 +40364,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