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

AF/AF.aspx.vb

@@ -2394,10 +2394,10 @@ Partial Class AF_AF
                 End If
                 NewName = String.Format("{0}{1}", NewName, IO.Path.GetExtension(DirectorioOld.ToString()))
                 DirectorioNew.Append(NewName)
-                If ObjActivosFijos.AddActivosFijosImagenes(CveActivoFijo, String.Format("AF/{0}", NewName), UsuarioActual.CveUsuario) Then
+                If ObjActivosFijos.AddActivosFijosImagenes(CveActivoFijo, String.Format("AF/{0}", NewName), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 0 Then
                     CargarArchivo()
                     My.Computer.FileSystem.MoveFile(DirectorioOld.ToString, DirectorioNew.ToString)
-                Else
+
                 End If
                 Retorno = True
             Catch ex As Exception
@@ -2409,8 +2409,6 @@ Partial Class AF_AF
             UpUpFotos.Update()
         Next
 
-
-
     End Sub
 
     Protected Sub BtnEliminarFoto_Click(sender As Object, e As System.EventArgs)

App_Code/ClsAF.vb

@@ -698,20 +698,21 @@ Public Class ClsAF
 
         Return Retorno
     End Function
-    Public Function AddActivosFijosImagenes(CveActivoFijo As Integer, URL As String, CveUsuario As Integer) As Boolean
+    Public Function AddActivosFijosImagenes(CveActivoFijo As Integer, URL As String, CveUsuario As Integer, CveEmpresa As Integer) As Integer
-        Dim Retorno As Boolean = False
+        Dim Retorno As Integer = 0
 
         DataAdapter("PA_AF_ActivosFijosImagenesAdd")
-
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
             .Add("@URL", SqlDbType.VarChar).Value = URL
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveImagenActivoFijo", SqlDbType.Int).Direction = ParameterDirection.Output
         End With
 
         Try
             SqlAdapter.Fill(Data)
-            Retorno = True
+            Retorno = SqlAdapter.SelectCommand.Parameters("@CveImagenActivoFijo").Value.ToString().ToEntero()
         Catch Ex1 As SqlException
             If Ex1.Message.Contains("Número: 2627;") Then
                 Alert("Ya existe una Imagen en Fijo Imagenes con el mismo nombre: " & Descripcion & ".", TipoMensaje.MsgAdvertencia)

App_Code/ClsContabilidad.vb

@@ -437,19 +437,17 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
-    Public Function GetClienteAuxiliar(CveCliente As Integer, CveConceptoContable As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Optional Opcion As Integer = 1) As Boolean
+    Public Function GetClienteAuxiliar(CveCliente As Integer, CveConceptoContable As Integer, CveSubProyecto As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Optional Opcion As Integer = 1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_ClienteAuxiliar")
 
         With SqlAdapter.SelectCommand.Parameters
-
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
-
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
             .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
-
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@Opcion", SqlDbType.Int).Value = Opcion
         End With

App_Code/ClsInventarios.vb

@@ -1035,18 +1035,8 @@ Public Class ClsInventarios
             .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
             .Add("@PedidoContrato", SqlDbType.VarChar).Value = PedidoContrato
             .Add("@GastoIndirecto", SqlDbType.Money).Value = GastoIndirecto
-            '.Add("@CveChofer", SqlDbType.Int).Value = CveChofer
-            '.Add("@CveCamion", SqlDbType.Int).Value = CveCamion
-            '.Add("@Placa", SqlDbType.VarChar).Value = Placa
-            '.Add("@FechaEntrega", SqlDbType.VarChar).Value = FechaEntrega
-            '.Add("@EspecifUnidad", SqlDbType.VarChar).Value = EspecifUnidad
             .Add("@ResponsableCarga", SqlDbType.VarChar).Value = ResponsableCarga
             .Add("@ResponsableRecibio", SqlDbType.VarChar).Value = ResponsableRecibio
-            '.Add("@Identificacion", SqlDbType.VarChar).Value = Identificacion
-            '.Add("@Domicilio", SqlDbType.VarChar).Value = Domicilio
-            '.Add("@Telefono", SqlDbType.VarChar).Value = Telefono
-            '.Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad
-            '.Add("@Licencia", SqlDbType.VarChar).Value = Licencia
             .Add("@Modulo", SqlDbType.VarChar).Value = Modulo
             .Add("@CveOP", SqlDbType.Int).Value = CveOP
             .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen
@@ -1077,7 +1067,6 @@ Public Class ClsInventarios
                                      CveVenta As Integer, CveSubProyecto As Integer, CveActivoFijo As Integer, Optional CvePersonal As Integer = -1, Optional Guia As String = "", Optional Observaciones As String = "", Optional Recibio As String = "", Optional TipoCambio As Decimal = -1, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional Remision As String = "") As Boolean
 
         Dim Retorno As Boolean = False
-
         DataAdapter("PA_Inv_MovimientosUpdate")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -1118,7 +1107,6 @@ Public Class ClsInventarios
     Public Function UpdateMovimientoPoliza(IDPoliza As Integer, CveMovimiento As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
-
         DataAdapter("PA_Inv_MovimientosPolizaUpdate")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -1140,7 +1128,6 @@ Public Class ClsInventarios
     Public Function UpdateMovimientoGuia(Guia As String, CveMovimiento As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
-
         DataAdapter("PA_Inv_MovimientosPolizaUpdate")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -1162,7 +1149,6 @@ Public Class ClsInventarios
     Public Function MovimientoRemove(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
-
         DataAdapter("PA_Inv_MovimientosRemove")
 
         With SqlAdapter.SelectCommand.Parameters

App_Code/ClsNominas.vb

@@ -3787,6 +3787,19 @@ Public Class ClsNominas
         Return retorno
     End Function
 
+    Public Function SolicitudesDetalleSATGet(CveSolicitud As Integer, CveEmpresa As Integer, Estatus As Integer, CveTipoSolicitud As Integer, Optional CveSolicitudDetalle As Integer = -1) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Gral_Sat_SolicitudesDetalleGet")
+        addParameters("@CveSolicitudDetalle", SqlDbType.Int, CveSolicitudDetalle)
+        addParameters("@CveSolicitud", SqlDbType.Int, CveSolicitud)
+        addParameters("@CveEmpresa", SqlDbType.Int, CveEmpresa)
+        addParameters("@Estatus", SqlDbType.Int, Estatus)
+        addParameters("@CveTipoSolicitud", SqlDbType.Int, CveTipoSolicitud)
+
+        retorno = RunQuery("Ocurrió un error al cancelar la Solicitude.")
+
+        Return retorno
+    End Function
 
 
 #End Region

Compras/Compras.aspx.vb

@@ -11632,12 +11632,16 @@ Partial Class Compras_Compras
 
             If TmpDT.Rows(Indice)("PU").ToString.ToDecimal + tPU < 0 Then 'si es negativo, que tome el dato anterior
                 Indice = Indice - 1
-                If TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal > 0 Then
+                'VALIDACION ADICIONAL DE OTRO PRODUCTO CON LA MISMA SITUACIÓN
-                    tPU = ImporteAjuste / TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal
+                If TmpDT.Rows(Indice)("PU").ToString.ToDecimal + tPU < 0 AndAlso Indice > 0 Then 'si es negativo, que tome el dato anterior
-                Else
+                    Indice = Indice - 1
-                    tPU = 0
                 End If
             End If
+            If TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal > 0 Then
+                tPU = ImporteAjuste / TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal
+            Else
+                tPU = 0
+            End If
 
             TmpDT.Rows(Indice)("PU") = TmpDT.Rows(Indice)("PU").ToString.ToDecimal + tPU
             TmpDT.Rows(Indice)("Total") = TmpDT.Rows(Indice)("Total").ToString.ToDecimal + ImporteAjuste

Contabilidad/PopUpAuxiliar.aspx.vb

@@ -219,6 +219,12 @@ Partial Class PopUpAuxiliar
                 Else
                     e.Row.FCLinkButton("LnkDesAplicar").CommandArgument = String.Format("{0}|{1}|{2}|{3}", e.Row.DBCampo("CvePrePoliza"), e.Row.DBCampo("CveCompraAmortizacion"), e.Row.DBCampo("CveCompra"), e.Row.DBCampo("CveIE"))
                 End If
+            ElseIf e.Row.DBCampo("CveConceptoContable").Contiene("37") Then 'desaplicar Deudores Diversos- Compra
+
+                e.Row.FCLinkButton("LnkDesAplicar").Visible = True
+                e.Row.FCLinkButton("LnkDesAplicar").CommandName = "DesAplicarDeudorDiversoCompra"
+                e.Row.FCLinkButton("imgD").Visible = False
+                e.Row.FCLinkButton("LnkDesAplicar").CommandArgument = String.Format("{0}|{1}|{2}", e.Row.DBCampo("CvePrePoliza"), e.Row.DBCampo("CveCompra"), e.Row.DBCampo("CveIE"))
 
             ElseIf e.Row.DBCampo("CveConceptoContable").Contiene("21") Then 'desaplicar anticipo de compra
 
@@ -552,5 +558,40 @@ Partial Class PopUpAuxiliar
 
         End If
 
+        If e.CommandName = "DesAplicarDeudorDiversoCompra" Then
+
+            Dim CvePrePoliza, CveCompra, CveIE As Integer
+            Dim TieneError As Boolean = False
+
+            Dim St As String() = e.CommandArgument.ToString.Split("|"c)
+            If St.Length > 0 Then
+                CvePrePoliza = St(0).ToEntero
+                CveCompra = St(1).ToEntero
+                CveIE = St(2).ToEntero
+            End If
+
+            If CvePrePoliza > 0 Then
+                Dim Conta As New ClsContabilidad()
+                Conta.IniciaTransacSQL()
+
+                If Not Conta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
+                    TieneError = True
+                End If
+
+                If Not TieneError AndAlso Not Conta.DesAplicarPago(CvePrePoliza, 37, CveCompra, CveIE) Then
+                    TieneError = True
+                End If
+
+                If Not TieneError Then
+                    Conta.Commit()
+                    Alert("Pago Desaplicado.", TipoMensaje.ToastInformacion)
+                Else
+                    Conta.RollBack()
+                    Alert("Pago no fue desaplicado.", TipoMensaje.ToastError)
+                End If
+            End If
+
+        End If
+
     End Sub
 End Class

General/SaldosIniciales.aspx.vb

@@ -1799,6 +1799,21 @@ Partial Class General_SaldosIniciales
                     Dim CveClasificacion As Integer = drr("CveClasificacion").ToString().ToEntero()
                     Dim dtsubp As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
 
+                    If UsuarioActual.CveEmpresa = 189 Then
+                        For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows
+                            Dim SubTotal = Row("SubTotal").ToString().ToDecimal.RoundSQL
+                            Dim IVA = Row("IVA").ToString().ToDecimal.RoundSQL
+                            Dim Total = Row("Total").ToString().ToDecimal.RoundSQL
+                            Dim Cantidad = Row("Cantidad").ToString.ToDecimal
+                            Dim PU = Row("PU").ToString.ToDecimal
+
+                            If Total - SubTotal - IVA <> 0 Then
+                                Row("PU") = (Total - IVA) / Cantidad
+                                Row("SubTotal") = Row("PU").ToString.ToDecimal * Cantidad
+                            End If
+                        Next
+                    End If
+
                     Dim CountRow As Integer = 1
                     Dim LastSerieFolioTipoDoc As String = String.Empty
                     Dim EsDetalle As Boolean = False

Inventarios/EntradasSalidas.aspx

@@ -1573,7 +1573,7 @@
                                     <div class="portlet-title">
                                         <div class="caption font-green">
                                             <i class="icon-pin font-green"></i>
-                                            <span class="caption-subject bold uppercase">Descargar Plantilla </span>
+                                            <span class="caption-subject bold uppercase">Carga por Plantilla </span>
                                         </div>
                                         <div class="actions">
                                             <div class="btn-group">
@@ -1584,37 +1584,6 @@
                                         </div>
                                     </div>
                                     <div class="portlet-body  formnombottom">                                        
-                                        <h4>Paso 1 : Descargar Plantilla</h4>
-                                        <br />
-                                        <div align="center">
-                                            <asp:LinkButton ID="LbDescargarExcelConceptos" runat="server" CssClass="btn btn-warning" Text="Descargar Plantilla" />
-                                        </div>
-                                        <br />
-                                    </div>
-                                </div>
-
-                            </div>
-                        </div>
-                        <br />
-                        <br />
-                        <div class="row">
-                            <div class="col-md-12">
-                                <div class="portlet light xspadding bordered whitoutcol" style="width: 100%;">
-                                    <div class="portlet-title">
-                                        <div class="caption font-green">
-                                            <i class="icon-pin font-green"></i>
-                                            <span class="caption-subject bold uppercase">Cargar Plantilla </span>
-                                        </div>
-                                        <div class="actions">
-                                            <div class="btn-group">
-                                            </div>
-                                        </div>
-                                        <div class="tools">
-                                            <a href="javascript:;" class="collapse"></a>
-                                        </div>
-                                    </div>
-                                    <div class="portlet-body  formnombottom">
-                                        <h4>Paso 2: Cargar Plantilla</h4>
                                         <br />
                                         <%--   <div class="row">
                                             <div class="col-md-12" align="center">
@@ -1633,9 +1602,10 @@
                     </div>
                     <div class="modal-footer">
                         <div class="row">
-                            <%--    <div class="col-md-2" style="text-align: left">
+                        <div class="col-md-2" style="text-align: left">
-                        </div>--%>
+                            <asp:LinkButton ID="LbDescargarExcelConceptos" runat="server" CssClass="btn btn-warning" Text="Descargar Plantilla" />
-                            <div class="col-md-12" style="text-align: center">
+                        </div>
+                            <div class="col-md-10" style="text-align: center">
                                 <asp:Button ID="BtnCargaExcel" runat="server" CssClass="btn btn-success" Text="Procesar"></asp:Button>
                                 <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
                             </div>

Inventarios/RecepcionAlmacen.aspx.vb

@@ -3788,17 +3788,20 @@ Partial Class Inventarios_RecepcionAlmacen
 
     Private Sub RenombrarBitacoras()
         Dim fechaActual As String = DateTime.Now.ToString("yyyyMMddHHmmss")
-        Dim fib As New FileInfo(ArchivoBitacora)
-        Dim fibd As New FileInfo(ArchivoBitacoraDetalle)
 
-        If fib.Exists() Then
+        If ArchivoBitacora <> "" Then
-            Dim nuevoNombre As String = Path.Combine(fib.DirectoryName, Path.GetFileNameWithoutExtension(fib.Name) & "_" & fechaActual & ".xml")
+            Dim fib As New FileInfo(ArchivoBitacora)
-            fib.MoveTo(nuevoNombre)
+            If fib.Exists() Then
+                Dim nuevoNombre As String = Path.Combine(fib.DirectoryName, Path.GetFileNameWithoutExtension(fib.Name) & "_" & fechaActual & ".xml")
+                fib.MoveTo(nuevoNombre)
+            End If
         End If
-
+        If ArchivoBitacoraDetalle <> "" Then
-        If fibd.Exists() Then
+            Dim fibd As New FileInfo(ArchivoBitacoraDetalle)
-            Dim nuevoNombreDetalle As String = Path.Combine(fibd.DirectoryName, Path.GetFileNameWithoutExtension(fibd.Name) & "_" & fechaActual & ".xml")
+            If fibd.Exists() Then
-            fibd.MoveTo(nuevoNombreDetalle)
+                Dim nuevoNombreDetalle As String = Path.Combine(fibd.DirectoryName, Path.GetFileNameWithoutExtension(fibd.Name) & "_" & fechaActual & ".xml")
+                fibd.MoveTo(nuevoNombreDetalle)
+            End If
         End If
 
     End Sub

OC/OC.aspx.vb

@@ -81,6 +81,15 @@ Partial Class OC_OC
             ViewState("CveOrdenCompra") = value
         End Set
     End Property
+
+    Private Property InventarioPrePoliza176 As Integer
+        Get
+            InventarioPrePoliza176 = ViewState("InventarioPrePoliza176").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("InventarioPrePoliza176") = value
+        End Set
+    End Property
     Private Property CveIEAnticipo As Integer
         Get
             CveIEAnticipo = ViewState("CveIEAnticipo").ToString.ToEntero
@@ -631,11 +640,6 @@ Partial Class OC_OC
         End Set
     End Property
 
-
-
-
-
-
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -644,6 +648,7 @@ Partial Class OC_OC
             GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa) = Nothing
             CargaDatosAgregarPS()
             CveProveedorOriginal = -1
+            InventarioPrePoliza176 = 0
             'EnviarNotificacionWhatsApp("526621430964", "hola34 https:/sig.adssistemas.mx/ventas/ventas.aspx")
             'EnviarNotificacionWhatsApp("526621430964", "", "hello_world")
             'MODALIDAD MULTIEMPRESA
@@ -1034,7 +1039,7 @@ Partial Class OC_OC
 
     Private Sub ValidaCancelacionConAlamcen()
 
-        If BtnCancelarPrevio.Visible AndAlso BtnCancelarPrevio.Enabled And GVInv.Rows.Count > 0 Then
+        If BtnCancelarPrevio.Visible AndAlso BtnCancelarPrevio.Enabled And InventarioPrePoliza176 > 0 Then
             'BtnCancelarPrevio.Attributes.Remove("onclick")
             BtnCancelarPrevio.Attributes.Add("Data-toggle", "tooltip")
             BtnCancelarPrevio.Attributes.Add("Title", "La orden de compra no se puede cancelar porque tiene movimientos de almacén.")
@@ -7405,16 +7410,17 @@ Partial Class OC_OC
                     GVInv.DataSource = ObjInventarios.DtResultados
                     If ObjInventarios.DtResultados.Rows.Count > 0 Then
                         DdlMoneda.Enabled = False
+                        InventarioPrePoliza176 = ObjInventarios.DtResultados.MAX("PrePoliza176").ToEntero
                         Dim TipoEstatusTerminado As String = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoTermino", String.Format("CveEstatus = {0}", CboE.SelectedValue))
                         If TipoEstatusTerminado = "3" Then
                             LnkCambiarMoneda.Visible = True
                         End If
                     End If
                 End If
-                GVInv.DataBind()
             End If
 
             ObjInventarios.Dispose()
+            GVInv.DataBind()
             UpAlmacen.Update()
             UpAcciones.Update()
         End If

OI/PopUpAgenda.aspx.vb

@@ -824,14 +824,10 @@ Partial Class OI_PopUpAgenda
 
             If File.Exists(UsuarioActual.Empresa.Ruta & "Eventos\Archivos" & CveEvento & "_" & ArchConsecutivo & Extension) Then
                 Dim ObjActivosFijos As New ClsAF
-                If ObjActivosFijos.AddActivosFijosImagenes(CveEvento, CveEvento & "_" & ArchConsecutivo & Extension, UsuarioActual.CveUsuario) Then
+                If Not ObjActivosFijos.AddActivosFijosImagenes(CveEvento, CveEvento & "_" & ArchConsecutivo & Extension, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 0 Then
-                    'CargarArchivo()
-                Else
                     File.Delete(UsuarioActual.Empresa.Ruta & "Eventos\Archivos" & CveEvento & "_" & ArchConsecutivo & Extension)
                 End If
-
                 ObjActivosFijos.Dispose()
-
             End If
         End If
     End Sub

OS/OrdenesServicios.aspx

@@ -1351,7 +1351,7 @@
                             <div class="col-md-6">
                                 <div class="form-group form-md-line-input input-iconright" runat="server">
                                     <asp:TextBox ID="TxtObservacionModal" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="250"></asp:TextBox>
-                                    <label for="<%= TxtFolioRemisionModal.ClientID.ToString()%>">Observaciones:</label>
+                                    <label for="<%= TxtObservacionModal.ClientID.ToString()%>">Observaciones:</label>
                                 </div>
                             </div>
                         </div>

OS/OrdenesServicios.aspx.vb

@@ -3015,7 +3015,7 @@ Partial Class OS_OrdenesServicios
             TxtEpisodioModal.Text = TxtIdentificadorCliente.Text
             TxtFolioRemisionModal.Text = TxtFolioAdicional.Text
 
-            If DdlTipoVenta.SelectedValue.ToEntero = 5 Then
+            If DdlTipoVenta.SelectedValue = "5" Then
                 DvTxtFolioRemisionModal.Visible = False
             Else
                 DvTxtFolioRemisionModal.Visible = True
@@ -3082,7 +3082,7 @@ Partial Class OS_OrdenesServicios
                 End If
             End If
 
-            If TotalSeleccionado > 0 AndAlso Not TxtFolioRemisionModal.Text.Trim.Length > 0 Then
+            If TotalSeleccionado > 0 AndAlso DvTxtFolioRemisionModal.Visible AndAlso TxtFolioRemisionModal.Text.Trim.Length = 0 Then
                 Alert("El campo Folio es requerido por favor ingréselo.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If
@@ -3091,7 +3091,6 @@ Partial Class OS_OrdenesServicios
 
             Dim CveAlmacenActual As Integer = DTSolicitudDev.FiltroPrimeroValor("CveAlmacenActual").ToEntero
             Dim CveMoneda As Integer = DTSolicitudDev.FiltroPrimeroValor("CveMoneda").ToEntero
-
             Dim CveVentaPedido As Integer = DTSolicitudDev.FiltroPrimeroValor("CveVenta").ToEntero
             Dim CveVentaRemisionGenerada As Integer = -1
 
@@ -3104,7 +3103,7 @@ Partial Class OS_OrdenesServicios
             If DdlTipoVenta.SelectedValue = "5" Then 'Consignación - Uso Material
                 'genera una salida de almacen.
                 Dim Fecha As DateTime = ClsPaginas.NowADS()
-                Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenActual, 8, CveMoneda, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, CveSubProyectoPedido, -1, CveOS:=CveOS, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="OS/MatUtilConsig")
+                Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenActual, 8, CveMoneda, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaPedido, CveSubProyectoPedido, -1, CveOS:=CveOS, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="OS/MatUtilConsig")
                 Dim Folio As Integer = ObjInventario.Folio
 
                 If CveMovimientoSalida > 0 Then
@@ -3155,7 +3154,7 @@ Partial Class OS_OrdenesServicios
                     End If
                     'asigno la cveventa, como concluido
                     If ProcesoOK Then
-                        If Not ObjOS.UpdateVentaOS(CveVenta, CveOS, UsuarioActual.CveEmpresa, TxtPacienteModal.Text.Trim, TxtEpisodioModal.Text.Trim, FolioAdicional:=TxtFolioRemisionModal.Text.Trim) Then
+                        If Not ObjOS.UpdateVentaOS(CveVentaPedido, CveOS, UsuarioActual.CveEmpresa, TxtPacienteModal.Text.Trim, TxtEpisodioModal.Text.Trim, FolioAdicional:=TxtFolioRemisionModal.Text.Trim) Then
                             ProcesoOK = False
                         End If
                     End If

Sistemas/UsuarioDetalle.aspx.vb

@@ -909,7 +909,7 @@ Partial Class Sistemas_UsuarioDetalle
 
                     If Row.DataKey("CveProcesoAcceso") <> "" Then
                         'checo si el permiso que tiene es del rol, de ser así, nada más actualizo los denegados
-                        If Row.DataKey("Permitir") = "" AndAlso Row.FCCheckBox("ChkD").Checked OrElse Row.DataKey("Permitir") = "0" AndAlso Row.FCCheckBox("ChkD").Checked = False Then
+                        If (Row.DataKey("Permitir") = "" AndAlso Row.FCCheckBox("ChkD").Checked) OrElse (Row.DataKey("Permitir") = "0" AndAlso Row.FCCheckBox("ChkD").Checked = False) Then
                             If Not ObjUsuarios.UpdateUsuariosProcesos(CveUsuario, Row.DataKey("CveProceso").ToEntero, Not Row.FCCheckBox("ChkD").Checked, UsuarioActual.CveUsuario) Then
                                 TieneError = True
                                 Exit For

UserControl/AddMedico.ascx

@@ -46,8 +46,6 @@
                             <div class="col-md-4">
                             </div>
                         </div>
-
-
                         <div class="row">
                             <div class="col-md-4">
                                 <div class="form-group form-md-line-input input-iconright">
@@ -79,14 +77,11 @@
                                 </div>
                             </div>
                         </div>
-
                         <div class="row">
                             <div class="col-md-6">
                             </div>
-
                         </div>
                         <br />
-
                         <div class="row">
 
                             <div class="col-md-4">
@@ -162,11 +157,7 @@
                                     <label for="<%= TxtNotas.ClientID.ToString()%>">Notas:</label>
                                 </div>
                             </div> 
-
-                            
-
                         </div>
-
                         <div class="row">
                             <div class="col-md-12" style="text-align: right!important">
                                 <asp:LinkButton runat="server" ID="LnkAgregarMedicoClienteSucursal" data-toggle="tooltip" data-placement="right" title="Agregar" CssClass="btn btn-circle btn-default" OnClick="LnkAgregarMedicoClienteSucursal_Click"
@@ -176,7 +167,6 @@
 
                         <div class="row">
                             <div class="col-md-12">
-
                                 <asp:GridView ID="GvMedicosClientesSucursales" runat="server" AutoGenerateColumns="False"
                                     DataKeyNames="CveMedicoClienteSucursal,CveMedico,CveCliente,CveClienteSucursal,DiasAtencion,Horario,Consultorio,Torre,AsistenteNombre"
                                     EmptyDataText="No se encontraron   Registros" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
@@ -186,8 +176,6 @@
                                                 <asp:Literal ID="LtlClienteSucursal" runat="server" Text='<%# Eval("ClienteSucursal") %>'></asp:Literal>
                                             </ItemTemplate>
                                         </asp:TemplateField>
-
-
                                         <asp:TemplateField HeaderText="Dias de Atencion" ItemStyle-HorizontalAlign="Left">
                                             <ItemTemplate>
                                                 <asp:Literal ID="LtlDiasAtención" runat="server" Text='<%# Eval("DiasAtencion") %>'></asp:Literal>
@@ -237,28 +225,18 @@
                                                 <asp:LinkButton ID="LnkEliminarClienteSucursal" OnClick="LnkEliminarClienteSucursal_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
                                             </ItemTemplate>
                                         </asp:TemplateField>
-
-
                                     </Columns>
                                 </asp:GridView>
-
                             </div>
                         </div>
-
-
                         <div class="row">
                             <div class="col-md-12">
                             </div>
                         </div>
-
-
-
                         <div class="form-group form-md-line-input input-iconright" id="DVEstatus" runat="server">
                             <asp:CheckBox ID="ChkEstatus" CssClass="form-control make-switchsd" data-size="small" runat="server" Style="margin-top: 7px"></asp:CheckBox>
                             <label for="<%= ChkEstatus.ClientID.ToString()%>">Activo:</label>
                         </div>
-
-
                         <div class="row" runat="server" id="DVUsuarioFechaIng" visible="false">
                             <div class="col-md-6">
                                 <div class="form-group form-md-line-input input-iconright">
@@ -273,12 +251,7 @@
                                 </div>
                             </div>
                         </div>
-
-
-
-
                     </div>
-
                     <div class="modal-footer">
                         <asp:Button ID="LbAgregar" runat="server" class="btn btn-success" Text="Agregar"  ValidationGroup="GrpGuardarMedico" />
                         <button id="BtnCancelarMedico" runat="server"  type="button" class="btn default" data-dismiss="modal" ClientIDMode="Static" >Cancelar</button>
@@ -296,10 +269,9 @@
                     <div class="modal-header ">
                         <a id="XCerrarmodalMedicoClienteSucursal" runat="server" ClientIDMode="Static" class="close" onclick="closeModal()">×</a>
                         <h4 class="modal-title">
-                            <asp:Literal ID="Literal2" runat="server">Agregar Especialidad</asp:Literal></h4>
+                            <asp:Literal ID="Literal2" runat="server">Agregar Hospital</asp:Literal></h4>
                     </div>
                     <div class="modal-body">
-
                           <div class="row">
                               <div class="col-md-6">                              
                                   <div class="form-group form-md-line-input input-iconright ">
@@ -312,9 +284,7 @@
                                   </div>
                               </div>
                           </div>
-
                         <div class="row">
-
                               <div class="col-md-6">
                                   <div class="form-group form-md-line-input">
                                       <asp:Label ID="LblDiasPago" runat="server" ForeColor="#888888" Text="Días de Atención:"></asp:Label>
@@ -334,19 +304,30 @@
                                       <asp:CheckBox ID="ChkViernes" runat="server" />&nbsp;                                                                           
                                       <asp:CheckBox ID="ChkSabado" runat="server" />&nbsp;                                                                   
                                       <asp:CheckBox ID="ChkDomingo" runat="server" />&nbsp;
-     
                                   </div>
                               </div>                       
-
-                       
                             <div class="col-md-6">
                                 <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtHorario" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
+                                    <asp:ListBox ID="DdlHorario"  SelectionMode="Multiple" runat="server" CssClass="form-control  ddlFiltros input-sm select2me Widthall" Style="width: 100%;">
-                                    <label for="<%= TxtHorario.ClientID.ToString()%>">Horario:</label>
+                                        <asp:ListItem Text="07:00"></asp:ListItem>
+                                        <asp:ListItem Text="08:00"></asp:ListItem>
+                                        <asp:ListItem Text="09:00"></asp:ListItem>
+                                        <asp:ListItem Text="10:00"></asp:ListItem>
+                                        <asp:ListItem Text="11:00"></asp:ListItem>
+                                        <asp:ListItem Text="12:00"></asp:ListItem>
+                                        <asp:ListItem Text="13:00"></asp:ListItem>
+                                        <asp:ListItem Text="14:00"></asp:ListItem>
+                                        <asp:ListItem Text="15:00"></asp:ListItem>
+                                        <asp:ListItem Text="16:00"></asp:ListItem>
+                                        <asp:ListItem Text="17:00"></asp:ListItem>
+                                        <asp:ListItem Text="18:00"></asp:ListItem>
+                                        <asp:ListItem Text="19:00"></asp:ListItem>
+                                        <asp:ListItem Text="20:00"></asp:ListItem>
+                                    </asp:ListBox>                                    
+                                    <label for="<%= DdlHorario.ClientID.ToString()%>">Horario:</label>
                                 </div>
                             </div>
                         </div>
-
                         <div class="row">                            
                             <div class="col-md-6">
                                 <div class="form-group form-md-line-input input-iconright">
@@ -364,18 +345,14 @@
                                 </div>
                             </div>
                         </div>
-
                            <div class="form-group form-md-line-input input-iconright">
                                <asp:TextBox ID="TxtAsistenteNombre" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
                                <label for="<%= TxtAsistenteNombre.ClientID.ToString()%>">Asistente:</label>
                            </div>                         
-                         
                     </div>
-
                     <div class="modal-footer">
                         <asp:Button ID="BtnGaurdarMedicoClienteSucursal" OnClick="BtnGaurdarMedicoClienteSucursal_Click" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpModalMedicoClientesucursal"  />                        
                         <a id="btnCerrarmodalMedicoClienteSucursal" runat="server"  ClientIDMode="Static"  onclick="closeModal()"  class="btn default">Cancelar</a>                        
-                        
                     </div>                    
                 </ContentTemplate>
             </asp:UpdatePanel>

UserControl/AddMedico.ascx.vb

@@ -350,16 +350,11 @@ Partial Class UserControl_AddMedico
                         ProcesoOK = False
                         Exit For
                     End If
-
                 Next
-
                 ProcesoOK = True
-
             End If
         End If
 
-
-
         If ProcesoOK Then
             ObjVentas.Commit()
             ClsPaginas.Alert($"Medico {If(CveMedico > 0, "Actualizado", "Guardado")} Correctamente.")
@@ -425,7 +420,7 @@ Partial Class UserControl_AddMedico
         IndexSeleccionado = -1
         DdlClienteSucursal.SelectedValueExist(-1)
         'TxtDiasAtencion.Text = ""
-        TxtHorario.Text = ""
+        DdlHorario.ClearSelection()
         TxtConsultorio.Text = ""
         TxtTorre.Text = ""
         TxtAsistenteNombre.Text = ""
@@ -446,51 +441,28 @@ Partial Class UserControl_AddMedico
     Protected Sub BtnGaurdarMedicoClienteSucursal_Click(sender As Object, e As EventArgs)
 
         Dim TieneError As Boolean = False
-
         Dim DiasAtencion As String = ""
         Dim ListaDiasAntencion As New List(Of String)
 
-        If ChkLunes.Checked Then
+        If ChkLunes.Checked Then ListaDiasAntencion.Add("L")
-            ListaDiasAntencion.Add("L")
+        If ChkMartes.Checked Then ListaDiasAntencion.Add("M")
-        End If
+        If ChkMiercoles.Checked Then ListaDiasAntencion.Add("MI")
-
+        If ChkJueves.Checked Then ListaDiasAntencion.Add("J")
-        If ChkMartes.Checked Then
+        If ChkViernes.Checked Then ListaDiasAntencion.Add("V")
-            ListaDiasAntencion.Add("M")
+        If ChkSabado.Checked Then ListaDiasAntencion.Add("S")
-        End If
+        If ChkDomingo.Checked Then ListaDiasAntencion.Add("D")
-
-        If ChkMiercoles.Checked Then
-            ListaDiasAntencion.Add("MI")
-        End If
-
-        If ChkJueves.Checked Then
-            ListaDiasAntencion.Add("J")
-        End If
-
-        If ChkViernes.Checked Then
-            ListaDiasAntencion.Add("V")
-        End If
-
-        If ChkSabado.Checked Then
-            ListaDiasAntencion.Add("S")
-        End If
-
-        If ChkDomingo.Checked Then
-            ListaDiasAntencion.Add("D")
-        End If
-
         DiasAtencion = String.Join(", ", ListaDiasAntencion)
 
-
         If CveMedico > 0 Then
             Dim objVenta As New ClsVentas
 
             If CveMedicoClienteSucursal > 0 Then
-                If Not (objVenta.UpdateMedicosClientesSucursales(CveMedicoClienteSucursal, CveMedico, DdlClienteSucursalCliente, DdlClienteSucursalSucursal, DiasAtencion, TxtHorario.Text.Trim, TxtConsultorio.Text.Trim, TxtTorre.Text.Trim, TxtAsistenteNombre.Text.Trim,
+                If Not (objVenta.UpdateMedicosClientesSucursales(CveMedicoClienteSucursal, CveMedico, DdlClienteSucursalCliente, DdlClienteSucursalSucursal, DiasAtencion, DdlHorario.GetSelectedValuesM, TxtConsultorio.Text.Trim, TxtTorre.Text.Trim, TxtAsistenteNombre.Text.Trim,
                                                      UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) Then
                     TieneError = True
                 End If
             Else
-                If Not (objVenta.AddMedicosClientesSucursales(CveMedico, DdlClienteSucursalCliente, DdlClienteSucursalSucursal, DiasAtencion, TxtHorario.Text.Trim, TxtConsultorio.Text.Trim, TxtTorre.Text.Trim, TxtAsistenteNombre.Text.Trim,
+                If Not (objVenta.AddMedicosClientesSucursales(CveMedico, DdlClienteSucursalCliente, DdlClienteSucursalSucursal, DiasAtencion, DdlHorario.GetSelectedValuesM, TxtConsultorio.Text.Trim, TxtTorre.Text.Trim, TxtAsistenteNombre.Text.Trim,
                                                       UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) Then
                     TieneError = True
                 End If
@@ -508,7 +480,7 @@ Partial Class UserControl_AddMedico
                 DTMedicosClientesSucursales.Rows(IndexSeleccionado)("CveClienteSucursal") = DdlClienteSucursalSucursal()
                 DTMedicosClientesSucursales.Rows(IndexSeleccionado)("ClienteSucursal") = DdlClienteSucursal.SelectedItem.Text
                 DTMedicosClientesSucursales.Rows(IndexSeleccionado)("DiasAtencion") = DiasAtencion
-                DTMedicosClientesSucursales.Rows(IndexSeleccionado)("Horario") = TxtHorario.Text
+                DTMedicosClientesSucursales.Rows(IndexSeleccionado)("Horario") = DdlHorario.GetSelectedValuesM
                 DTMedicosClientesSucursales.Rows(IndexSeleccionado)("Consultorio") = TxtConsultorio.Text
                 DTMedicosClientesSucursales.Rows(IndexSeleccionado)("Torre") = TxtTorre.Text
                 DTMedicosClientesSucursales.Rows(IndexSeleccionado)("AsistenteNombre") = TxtAsistenteNombre.Text
@@ -526,7 +498,7 @@ Partial Class UserControl_AddMedico
                 nRow("CveClienteSucursal") = DdlClienteSucursalSucursal()
                 nRow("ClienteSucursal") = DdlClienteSucursal.SelectedItem.Text
                 nRow("DiasAtencion") = DiasAtencion
-                nRow("Horario") = TxtHorario.Text
+                nRow("Horario") = DdlHorario.GetSelectedValuesM
                 nRow("Consultorio") = TxtConsultorio.Text
                 nRow("Torre") = TxtTorre.Text
                 nRow("AsistenteNombre") = TxtAsistenteNombre.Text
@@ -574,9 +546,7 @@ Partial Class UserControl_AddMedico
     Protected Sub LnkEditarClienteSucursal_Click(sender As Object, e As EventArgs)
 
         LimpiarcontrolesDetalle()
-
         Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
-
         Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero
         Dim CveClienteSucursal As Integer = GvRow.DataKey("CveClienteSucursal").ToEntero
 
@@ -593,7 +563,18 @@ Partial Class UserControl_AddMedico
         End If
 
         'TxtDiasAtencion.Text = GvRow.DataKey("DiasAtencion")
-        TxtHorario.Text = GvRow.DataKey("Horario")
+        If GvRow.DataKey("Horario") <> "" Then
+
+            For Each tipoDocto As String In GvRow.DataKey("Horario").Split(","c)
+                DdlHorario.Items.FindByValue(tipoDocto).Selected = True
+            Next
+            'For Each itemTipoDocto As ListItem In DdlHorario.Items
+            '    For Each tipoDocto As String In GvRow.DataKey("Horario").Split(","c)
+            '        itemTipoDocto.Selected = (tipoDocto.ToUpper = itemTipoDocto.Value.ToUpper)
+            '    Next
+            'Next
+        End If
+
         TxtConsultorio.Text = GvRow.DataKey("Consultorio")
         TxtTorre.Text = GvRow.DataKey("Torre")
         TxtAsistenteNombre.Text = GvRow.DataKey("AsistenteNombre")

Ventas/AuxiliarCliente.aspx

@@ -119,6 +119,11 @@
                                 <asp:ListItem  Text="Detallado" Value="1"></asp:ListItem>
                                 <asp:ListItem Selected="True" Text="Agrupado por Venta" Value="2"></asp:ListItem>
                             </asp:DropDownList>
+                        </div>
+                              <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">Sucursal:</asp:Label>
+                        <div runat="server" id="DivSubProyecto" class="col-md-2">
+                            <asp:ListBox ID="DdlSubProyecto" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
+   
                         </div>
                     </div>
                 </div>

Ventas/AuxiliarCliente.aspx.vb

@@ -40,8 +40,6 @@ Partial Class Ventas_AuxiliarCliente
         End If
     End Sub
 
-
-
     Private Sub CargaFiltros()
 
         If (UsuarioActual.Empresa.Funcionalidad(105) = "1") Then
@@ -59,7 +57,9 @@ Partial Class Ventas_AuxiliarCliente
         'DdlConceptosContables.DataSource = GlobalDTContaConceptosContables(-1)
         'DdlConceptosContables.DataBind()
         'DdlConceptosContables.Items.Insert(0, New ListItem("Todos", "-1"))
-
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
+        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlSubProyecto.SelectedValuesIfExist("-1")
 
         txtFechaI.Text = NowADS().AddDays(-30).ToString("dd/MM/yyyy")
         txtFechaF.Text = NowADS().ToString("dd/MM/yyyy")
@@ -71,7 +71,7 @@ Partial Class Ventas_AuxiliarCliente
         Dim ObjConta As New ClsContabilidad
 
         'Falta PA
-        If ObjConta.GetClienteAuxiliar(DdlClientes.SelectedValue.ToEntero, -1, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, DdlOpcion.SelectedValue.ToEntero) Then
+        If ObjConta.GetClienteAuxiliar(DdlClientes.SelectedValue.ToEntero, -1, DdlSubProyecto.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, DdlOpcion.SelectedValue.ToEntero) Then
             If DdlOpcion.SelectedValue.ToEntero = 2 Then
                 GvAuxCliente.DataSource = ObjConta.DtResultados.FiltraParametros($" IIF(ISNULL(CveConceptoContable,0) = 1 AND Importe >= 0,0,1) = 1")
             Else

Ventas/Ventas.aspx.vb

@@ -12296,7 +12296,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
@@ -12344,7 +12343,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))
@@ -12387,10 +12385,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}")}")
@@ -12419,9 +12415,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
@@ -12442,17 +12435,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()
@@ -12488,24 +12476,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 = ""
+        ObjFactura.MonedaAbreviatura = GlobalDTMonedas().FiltroPrimeroValor("Moneda", $"CveMoneda = {DdlMoneda.SelectedValue.ToEntero}")
-
+        ObjFactura.Alfa1 = TxtAlfa1.Text.Trim
-        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
 
         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
@@ -16880,7 +16857,18 @@ Partial Class Ventas
             CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
         End If
 
-        ImprimirbytesPDF(PdfFactura(ObjFactura, Guardar:=False, SubReportData:=CartaPorte), "Factura", "PDF")
+        Dim tNombreSugerido As String = "Vista Previa - Factura"
+        Select Case DdlTipoComprobante.SelectedValue
+            Case "Cot"
+                tNombreSugerido = "Vista Previa - Cotización"
+            Case "Egs"
+                tNombreSugerido = "Vista Previa - Egreso"
+            Case "Ant"
+                tNombreSugerido = "Vista Previa - Anticipo"
+        End Select
+        tNombreSugerido = tNombreSugerido & " - " & LblSerie.Text & "-" & TxtFolio.Text
+
+        ImprimirbytesPDF(PdfFactura(ObjFactura, Guardar:=False, SubReportData:=CartaPorte), tNombreSugerido, "PDF")
 
     End Sub
 
@@ -38507,11 +38495,11 @@ Partial Class Ventas
             item.Text = $"&nbsp {item.Text}"
         Next
 
-        If Opcion <> "Cot" Then
+        If Opcion = "Cot" Then
-            RegistraScript("$('#DvModalTipoVenta').modal({ backdrop: 'static', keyboard: false });")
+            'TrVentasMedicas2.Visible = False
-        Else
-            TrVentasMedicas2.Visible = False
             TrVentasMedicas3.Visible = False
+        Else
+            RegistraScript("$('#DvModalTipoVenta').modal({ backdrop: 'static', keyboard: false });")
         End If
 
     End Sub