diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 64aae4db1..b06befc54 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -12284,7 +12284,6 @@ Partial Class Ventas
         Return ProcesoCorrecto
     End Function
 
-
     Private Sub CreaObjetosVenta(Optional VistaPrevia As Boolean = False, Optional EsCancelacion As Boolean = False, Optional TipoDoctoViejo As String = "", Optional TipoDoctoVistaPrevia As String = "")
 
         If Me.CveVenta > 0 AndAlso NuevaFactura <> 1 Then
@@ -12332,7 +12331,6 @@ Partial Class Ventas
         'ObjFactura.Folio = If(ExFolioFactura, FolioXML.ToEntero(), -1)
         ObjFactura.Serie = If(VistaPrevia, "VistaPrevia", LblSerie.Text)
 
-
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
             Dim ObjFolios As New ClsGralFolios()
             Dim TipoDoctoConsulta As String = If(ObjFactura.TipoDocto = "Ant", "Ing", If(ObjFactura.TipoDocto = "PA", "Rem", ObjFactura.TipoDocto))
@@ -12375,10 +12373,8 @@ Partial Class Ventas
         ObjFactura.CondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedItem.Text, "")
         ObjFactura.CondicionesPago = If(RBLPago.SelectedValue = "2", 0, If(RBLPago.SelectedValue = "1", 1, 2)) ' 0 - Contado, 1 - Credito, 2 - termianl
         ObjFactura.FormaPago = 0 'DdlFormaPago.SelectedValue.ToEntero()
-
         ObjFactura.AtencionA = TxtAtencionA.Text
         ObjFactura.FordGSDB = ""
-
         ObjFactura.NumeroContrato = NumeroContrato
         ObjFactura.DescripcionContrato = DescripcionContrato
         ObjFactura.NumeroDescripcionContrato = If($"{NumeroContrato} - {NumeroLicitacion}" = " - ", "", $"{NumeroContrato}  {If(NumeroLicitacion = "", "", $" - Licitación: {NumeroLicitacion}")}")
@@ -12407,9 +12403,6 @@ Partial Class Ventas
         ObjFactura.Fech1 = TxtFech1.Text.Trim.ToDate
         ObjFactura.Fech2 = TxtFech2.Text.Trim.ToDate
         ObjFactura.Fech3 = TxtFech3.Text.Trim.ToDate
-
-
-
         ObjFactura.Alfa2 = TxtAlfa2.Text.Trim
         ObjFactura.Alfa3 = TxtAlfa3.Text.Trim
         ObjFactura.Num1 = TxtNum1.Text.Trim.ToDouble
@@ -12430,17 +12423,12 @@ Partial Class Ventas
 
         ObjFactura.DiasCredito = DiasCredito
         ObjFactura.EsDiasCreditoFijo = EsDiasCreditoFijo
-
         ObjFactura.CveCorte = CveCorte
-        'ObjFactura.CveMesa = -1
         ObjFactura.NumeroPersonas = 0
 
-
         If ObjFactura.TipoDocto = "Ant" And DdlContratosModal.SelectedValue.ToEntero > 0 Or ObjFactura.TipoDocto = "Ing" And DdlContratosModal.SelectedValue.ToEntero > 0 Or ObjFactura.TipoDocto = "Egs" And DdlContratosModal.SelectedValue.ToEntero > 0 Then
             CveContrato = DdlContratosModal.SelectedValue.ToEntero
         End If
-
-
         ObjFactura.CveContrato = If(CveContrato > 0, CveContrato, CvePresupuesto)
 
         ObjFactura.CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero()
@@ -12476,24 +12464,13 @@ Partial Class Ventas
         ObjFactura.Det_OrdenCompra = TxtDet_OrdenCompra.Text.Trim
         ObjFactura.Det_FechaOrdenCompra = TxtDet_FechaOrdenCompra.Text.Trim
         ObjFactura.Det_ContraRecibo = TxtDet_ContraRecibo.Text.Trim
-        ObjFactura.MonedaAbreviatura = ""
-
-        Try
-            ObjFactura.MonedaAbreviatura = GlobalDTMonedas().FiltroPrimeroValor("Moneda", $"CveMoneda = {DdlMoneda.SelectedValue.ToEntero}")
-        Catch ex As Exception
-
-        End Try
-
-        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
-            ObjFactura.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime
-            ObjFactura.FechaParaSurtir = TxtFechaOS.Text.Trim.ToDateTime
-        Else
-            ObjFactura.Alfa1 = TxtAlfa1.Text.Trim
-        End If
+        ObjFactura.MonedaAbreviatura = GlobalDTMonedas().FiltroPrimeroValor("Moneda", $"CveMoneda = {DdlMoneda.SelectedValue.ToEntero}")
+        ObjFactura.Alfa1 = TxtAlfa1.Text.Trim
 
         If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
             ObjFactura.Medico = DdlMedico.SelectedItem.Text
             ObjFactura.Procedimiento = DdlProcedimiento.SelectedItem.Text
+            ObjFactura.FechaParaSurtir = TxtFechaOS.Text.Trim.ToDateTime
         End If
 
         'CONVERTIR REMISION - TIPO MONEDA  -DOLARES A PESOS