-

App_Code/ClsVentas.vb

@@ -1382,7 +1382,8 @@ Public Class ClsVentas
                                     CvePresupuestoIngreso As Integer, Optional TiempoEntrega As String = "", Optional CveVentaDetallePadre As Integer = -1,
                                     Optional CveContratoDetalle As Integer = -1, Optional PorcentajeIVA As Decimal = 0, Optional IEPS As Decimal = -1, Optional PorcentajeIEPS As Double = 0, Optional CvePromocionDetalle As Integer = -1,
                                     Optional CveMovimientoDetallePedido As Integer = -1, Optional ImporteRetIVA As Decimal = 0, Optional PorcentajeRetIVA As Double = 0,
-                                    Optional ImporteRetISR As Decimal = 0, Optional PorcentajeRetISR As Decimal = 0, Optional CuentaPredial As String = "", Optional CvePrecioLista As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional NumTurnos As Decimal = 0D) As Boolean
+                                    Optional ImporteRetISR As Decimal = 0, Optional PorcentajeRetISR As Decimal = 0, Optional CuentaPredial As String = "", Optional CvePrecioLista As Integer = -1, Optional CveActivoFijo As Integer = -1,
+                                    Optional NumTurnos As Decimal = 0D, Optional EstatusAlmacen As Integer = 0) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_VentasDetalleAdd")
 
@@ -1415,6 +1416,7 @@ Public Class ClsVentas
             .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
             .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
             .Add("@NumTurnos", SqlDbType.Decimal).Value = NumTurnos
+            .Add("@EstatusAlmacen", SqlDbType.Int).Value = EstatusAlmacen
         End With
 
         Try

General/CatRimTamanios.aspx.vb

@@ -30,7 +30,7 @@ Partial Class General_CatRimTamanios
         End If
     End Sub
 
-#Region "CARGAS"
+#Region "CARGAS"
     Private Sub CargaCombos()
         DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
         DdlClasificacion.DataBind()

Ventas/PVCobranza.aspx.vb

@@ -14,13 +14,24 @@ Partial Class Ventas_PVCobranza
         Set(value As Integer)
             ViewState("CveCorte") = value
         End Set
+    End Property
+
+    Private Property DineroCaja As Double
+        Get
+            Return If(IsNothing(ViewState("DineroCaja")), 0, ViewState("DineroCaja").ToString().ToDecimal())
+        End Get
+        Set(value As Double)
+            ViewState("DineroCaja") = value
+        End Set
     End Property
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
             CveCorte = 0
             CargaFiltros()
-            CargaCorteCaja()
+            If UsuarioActual.TienePermisoProceso(371) Then
+                CargaCorteCaja()
+            End If
         End If
     End Sub
 
@@ -59,31 +70,118 @@ Partial Class Ventas_PVCobranza
         DdlCuentaTarjetaDebito.DataBind()
         DdlCuentaCheque.DataBind()
         DdlCuentaTransferencia.DataBind()
+
         TxtImporteEfectivo.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();")
         TxtImporteCredito.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();")
         TxtImporteDebito.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();")
         TxtImporteCheque.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();")
         TxtImporteTransferencia.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();")
-        TxtImporteOtrosContado.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();")
+        TxtImporteOtrosContado.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();")
+
+        TxtEfectivoEnCaja.Attributes.Add("onKeyUp", "CalculaDiferencia();")
+        TxtEfectivoCajaBloqueo.Attributes.Add("onKeyUp", "CalculaDiferenciaBloqueo();")
 
     End Sub
 
-    Private Sub CargaCorteCaja()
+    Private Sub CargaCorteCaja()
-        Dim DebeCerrarCorte As Boolean = False
+        Dim DebeCerrarCorte As Boolean = False
-        'Checar si hay un Turno Abierto
+        'Checar si hay un Turno Abierto
-        Dim ObjPVenta As New ClsPuntoVenta
+        Dim ObjPVenta As New ClsPuntoVenta
-
+
-        If ObjPVenta.GetVta_Cortes("-1", "-1", UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 0) Then
+        If ObjPVenta.GetVta_Cortes("-1", "-1", UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 0) Then
-
+
-            If ObjPVenta.DtResultados.Rows.Count > 0 Then
+            If ObjPVenta.DtResultados.Rows.Count > 0 Then
-                CveCorte = ObjPVenta.CveCorte
+                CveCorte = ObjPVenta.CveCorte
-            End If
+                Dim FechaICorte As Date = ObjPVenta.FechaInicial.Date '.AddDays(-5)
-        End If
+                If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso FechaICorte < NowADS().Date Then
-        ObjPVenta.Dispose()
+                    DebeCerrarCorte = True
-
+                    LblMotivoBloqueo.Text = $"Existe un corte del día <b>{FechaICorte.ToString("dd/MM/yyyy")}</b>. Favor de cerrarlo para iniciar un nuevo corte."
-
+                Else
+                    LblTurno.Text = ObjPVenta.FechaInicial.ToShortDateString
+                    BtnIniciarTurno.Visible = False
+                    LkbEstadodeCaja.Visible = True
+                    LkbIngreso.Visible = True
+                    LkbRetiro.Visible = True
+                    UpTurno.Visible = True
+                End If
+
+            Else
+                UpTurno.Visible = False
+                'Ingresar un nuevo Turno
+                RegistraScript("window.onload = function MuestraCorteCaja() { document.getElementById(""C_btnShow"").click(); }")
+            End If
+        End If
+        ObjPVenta.Dispose()
+
+        If DebeCerrarCorte Then
+            CargaDatosCorte()
+            RegistraScript("window.onload = function MuestraPantallaBloqueo() { document.getElementById(""C_btnShowBloqueo"").click(); }")
+        End If
+    End Sub
+
+    Private Sub CargaDatosCorte()
+        Dim ObjPVenta As New ClsPuntoVenta
+        Dim Total As Double
+
+        If ObjPVenta.GetVta_Cortes("-1", "-1", UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 0) Then
+            If ObjPVenta.DtResultados.Rows.Count > 0 Then
+
+                Total = ObjPVenta.DtResultados(0)("ImporteInicial").ToString().ToDouble + ObjPVenta.DtResultados(0)("VentasEfectivo").ToString().ToDouble + ObjPVenta.DtResultados(0)("Ingresado").ToString().ToDouble - ObjPVenta.DtResultados(0)("Retirado").ToString().ToDouble - ObjPVenta.DtResultados(0)("Devoluciones").ToString().ToDouble
+                DineroCaja = Total
+                LblEfectivoEsperado.Text = Total.FormatoNumero(2)
+                LblEfectivoBloqueo.Text = Total.FormatoNumero(2)
+
+                Dim Dt As New DataTable
+
+                Dt.Columns.Add("Descripcion", GetType(String))
+                Dt.Columns.Add("Importe", GetType(Decimal))
+
+                Dim Dr1 As DataRow = Dt.NewRow
+                Dr1("Descripcion") = "Fondo de Caja"
+                Dr1("Importe") = ObjPVenta.DtResultados(0)("ImporteInicial").ToString().ToDouble
+                Dt.Rows.Add(Dr1)
+
+                Dim Dr2 As DataRow = Dt.NewRow
+                Dr2("Descripcion") = "Ventas en Efectivo"
+                Dr2("Importe") = ObjPVenta.DtResultados(0)("VentasEfectivo").ToString().ToDouble
+                Dt.Rows.Add(Dr2)
+
+                Dim Dr21 As DataRow = Dt.NewRow
+                Dr21("Descripcion") = "Devoluciones"
+                Dr21("Importe") = ObjPVenta.DtResultados(0)("Devoluciones").ToString().ToDouble
+                Dt.Rows.Add(Dr21)
+
+                'Dim Dr3 = Dt.NewRow
+                'Dr3("Descripcion") = "Propinas"
+                'Dr3("Importe") = ObjPVenta.DtResultados(0)("Propina").ToString().ToDouble
+                'Dt.Rows.Add(Dr3)
+
+                Dim Dr4 As DataRow = Dt.NewRow
+                Dr4("Descripcion") = "Entradas"
+                Dr4("Importe") = ObjPVenta.DtResultados(0)("Ingresado").ToString().ToDouble
+                Dt.Rows.Add(Dr4)
+
+                Dim Dr5 As DataRow = Dt.NewRow
+                Dr5("Descripcion") = "Salidas"
+                Dr5("Importe") = ObjPVenta.DtResultados(0)("Retirado").ToString().ToDouble
+                Dt.Rows.Add(Dr5)
+
+                Dim Dr6 As DataRow = Dt.NewRow
+                Dr6("Descripcion") = "Total"
+                Dr6("Importe") = Total
+                Dt.Rows.Add(Dr6)
+
+                GvDineroCaja.DataSource = Dt
+                GvDineroCaja.DataBind()
+                UpDineroCaja.Update()
+                UpTerminarCorte.Update()
+
+            End If
+        End If
+
+        ObjPVenta.Dispose()
+
     End Sub
-
     Private Sub CargaDatos()
 
         Dim ObjMovtos As New ClsMovimientos()
@@ -276,6 +374,128 @@ Partial Class Ventas_PVCobranza
         End If
 
         Return Retorno
-    End Function
+    End Function
-
+
+    Protected Sub BtnCerrarCaja_Click(sender As Object, e As EventArgs)
+        RegistraScript("$('#DivEstadoCaja').modal('hide')")
+        RegistraScript("$('#DivTerminarCorte').modal()", "divterminarcorte")
+    End Sub
+    Protected Sub LkbIngreso_Click(sender As Object, e As EventArgs)
+        CargaIngresoEgreso(1)
+    End Sub
+    Public Sub CargaIngresoEgreso(Opcion As Integer)
+        RegistraScript("$('#DivIngresoEgreso').modal()")
+        If Opcion = 1 Then
+            LblTituloIE.Text = "Ingreso de Efectivo: "
+            HdnTipoMovimiento.Value = "1"
+        ElseIf Opcion = 0 Then
+            LblTituloIE.Text = "Retiro de Efectivo: "
+            HdnTipoMovimiento.Value = "0"
+        End If
+        UpIngresoEgreso.Update()
+    End Sub
+    Protected Sub LkbRetiro_Click(sender As Object, e As EventArgs)
+        CargaIngresoEgreso(0)
+    End Sub
+
+    Private Sub LkbEstadodeCaja_Click(sender As Object, e As EventArgs) Handles LkbEstadodeCaja.Click
+        CargaDatosCorte()
+        CargaVentasPago()
+        CargaEntradasSalidas()
+        RegistraScript("$('#DivEstadoCaja').modal()")
+    End Sub
+
+    Private Sub CargaVentasPago()
+        Dim ObjPVenta As New ClsPuntoVenta
+
+        If ObjPVenta.GetVta_MetodosPago(CveCorte) Then
+            If ObjPVenta.DtResultados.Rows.Count > 0 Then
+                GvMetodosPago.DataSource = ObjPVenta.DtResultados
+                GvMetodosPago.DataBind()
+                UpMetodosPago.Update()
+            End If
+        End If
+
+        ObjPVenta.Dispose()
+    End Sub
+    Private Sub CargaEntradasSalidas()
+        Dim ObjPVenta As New ClsPuntoVenta
+
+        'Salida
+        If ObjPVenta.GetVta_MovimientosCajas(CveCorte, 0) Then
+            If ObjPVenta.DtResultados.Rows.Count > 0 Then
+                GvEgresos.DataSource = ObjPVenta.DtResultados
+                GvEgresos.DataBind()
+                UpEgresos.Update()
+            End If
+        End If
+
+        'Entrada
+        If ObjPVenta.GetVta_MovimientosCajas(CveCorte, 1) Then
+            If ObjPVenta.DtResultados.Rows.Count > 0 Then
+                GvIngresos.DataSource = ObjPVenta.DtResultados
+                GvIngresos.DataBind()
+                UpIngresos.Update()
+            End If
+        End If
+
+        ObjPVenta.Dispose()
+    End Sub
+    Private Sub BtnCerrarTurno_Click(sender As Object, e As EventArgs) Handles BtnCerrarTurno.Click
+        Dim ObjPVenta As New ClsPuntoVenta
+        If TxtEfectivoEnCaja.Text.Trim <> "" Then
+            If ObjPVenta.UpdateFinalizadoVtaCortes(CveCorte, TxtEfectivoEnCaja.Text.ToDouble, LblDiferenciaCaja.Text.ToDouble, NowADS(), UsuarioActual.CveEmpresa) Then
+                RegistraScript($"window.location.href = '/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=CORT&CVECORTE={0}&FORMATO={1}", CveCorte, "PDF"))}'", "Imprimir")
+                Dim Liga As String = "document.location.href=""/Ventas/PVCobranza.aspx"";"
+                Alert("Se ha cerrado el turno correctamente.", TipoMensaje.MsgInformacion, Liga)
+            End If
+        End If
+        ObjPVenta.Dispose()
+    End Sub
+    Private Sub BtnCerrarBloqueo_Click(sender As Object, e As EventArgs) Handles BtnCerrarBloqueo.Click
+        Dim ObjPVenta As New ClsPuntoVenta
+        If TxtEfectivoCajaBloqueo.Text.Trim <> "" Then
+            If ObjPVenta.UpdateFinalizadoVtaCortes(CveCorte, TxtEfectivoCajaBloqueo.Text.ToDouble, LblDiferenciaCajaBloqueo.Text.ToDouble, NowADS(), UsuarioActual.CveEmpresa) Then
+                RegistraScript($"window.location.href = '/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=CORT&CVECORTE={0}&FORMATO={1}", CveCorte, "PDF"))}'", "Imprimir")
+                Dim Liga As String = "document.location.href=""/Ventas/PVCobranza.aspx"";"
+                Alert("Se ha cerrado el turno correctamente.", TipoMensaje.MsgInformacion, Liga)
+            End If
+        Else
+            Alert("Debe especificar el efectivo en caja", TipoMensaje.MsgAdvertencia)
+            RegistraScript("window.onload = function MuestraPantallaBloqueo() { document.getElementById(""C_btnShowBloqueo"").click(); }")
+        End If
+        ObjPVenta.Dispose()
+    End Sub
+    Private Sub BtnIniciarTurno_Click(sender As Object, e As EventArgs) Handles BtnIniciarTurno.Click
+        Dim ObjPVenta As New ClsPuntoVenta
+
+        ObjPVenta.AddVtaCortes(NowADS(), TxtDineroCaja.Text.ToDecimal, UsuarioActual.CveUsuario, TxtDescripcionCaja.Text, UsuarioActual.CveEmpresa)
+        CveCorte = ObjPVenta.CveCorte
+        LblTurno.Text = NowADS().ToShortDateString
+        UpTurno.Visible = True
+        LkbEstadodeCaja.Visible = True
+        LkbIngreso.Visible = True
+        LkbRetiro.Visible = True
+        BtnIniciarTurno.Visible = False
+
+        ObjPVenta.Dispose()
+
+        RegistraScript("$('#DivCorteDeCaja').hide();")
+
+        UpTurno.Update()
+    End Sub
+
+    Private Sub BtnAceptarIE_Click(sender As Object, e As EventArgs) Handles BtnAceptarIE.Click
+        Dim ObjPVenta As New ClsPuntoVenta
+        If TxtCantidadIE.Text.ToEntero() > 0 Then
+            If ObjPVenta.AddVta_MovimientosCajas(CveCorte, UsuarioActual.CveUsuario, TxtCantidadIE.Text.ToDouble, TxtDescripcionIE.Text, HdnTipoMovimiento.Value.ToEntero(), NowADS()) Then
+                TxtCantidadIE.Text = ""
+                TxtDescripcionIE.Text = ""
+                RegistraScript("$('#DivIngresoEgreso').modal('hide')", "divingresoegreso")
+                Alert("El movimiento se realizó correctamente")
+                UpIngresoEgreso.Update()
+            End If
+        End If
+        ObjPVenta.Dispose()
+    End Sub
 End Class

Ventas/Ventas.aspx

@@ -582,16 +582,16 @@
                             </tr>
 
                             <tr runat="server" id="TrVentasMedicas2" visible="false">
-                                <td runat="server" id="TdRequiereTecnico1" visible="false">
+                                <td runat="server" id="TdRequiereTecnico1" visible="true">
                                     <b>Requiere Técnico:</b>
                                 </td>
-                                <td runat="server" id="TdRequiereTecnico2" visible="false">
+                                <td runat="server" id="TdRequiereTecnico2" visible="true">
                                     <asp:CheckBox ID="ChkRequiereTecnico" runat="server" CssClass="chksino" OnCheckedChanged="ChkRequiereTecnico_CheckedChanged" AutoPostBack="true" Text="Requiere Técnico:" />
                                 </td>
-                                <td runat="server" id="TdFechaOS1" visible="false">
+                                <td runat="server" id="TdFechaOS1" visible="true">
                                     <b>Fecha de Cirugia:</b>
                                 </td>
-                                <td runat="server" id="TdFechaOS2" visible="false">
+                                <td runat="server" id="TdFechaOS2" visible="true">
                                     <asp:TextBox ID="TxtFechaOS" type="datetime-local" runat="server" CssClass="make-switchsd" CausesValidation="true" Style="width: 130px" ></asp:TextBox>
                                 </td>
                             </tr>
@@ -1976,12 +1976,13 @@
                                                             </div>
                                                             <div runat="server" id="DVMEEFechaEje" visible="true">
                                                                 <ajax:MaskedEditExtender ID="MEEFechaEje" runat="server" TargetControlID="TxtFechaEjecucion" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                                <asp:CompareValidator ID="CVFechaEje" runat="server" ControlToValidate="TxtFechaEjecucion" Display="None" ErrorMessage="El campo <b>''Fecha Ejecución''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpEmitirImprimir"></asp:CompareValidator>
+                                                                <ajax:ValidatorCalloutExtender ID="VcoRFVFechaEje" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaEje" Width="350px"></ajax:ValidatorCalloutExtender>
                                                             </div>
                                                             
                                                             <ajax:CalendarExtender runat="server" ID="CEFechaEje" TargetControlID="TxtFechaEjecucion" PopupButtonID="ImgCalendarFechaEje" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                                                             <asp:RequiredFieldValidator ID="RFVFechaEje" runat="server" ControlToValidate="TxtFechaEjecucion" Display="None" ErrorMessage="El campo <b>''Fecha de Ejecución''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpEmitirImprimir"></asp:RequiredFieldValidator>
-                                                            <asp:CompareValidator ID="CVFechaEje" runat="server" ControlToValidate="TxtFechaEjecucion" Display="None" ErrorMessage="El campo <b>''Fecha Ejecución''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpEmitirImprimir"></asp:CompareValidator>
+                                                            
-                                                            <ajax:ValidatorCalloutExtender ID="VcoRFVFechaEje" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaEje" Width="350px"></ajax:ValidatorCalloutExtender>
                                                             <ajax:ValidatorCalloutExtender ID="VcoCVFechaEje" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaEje" Width="350px"></ajax:ValidatorCalloutExtender>
                                                             &nbsp;
                                                         </td>
@@ -4093,7 +4094,7 @@
                             </tr>
 
 
-                            <tr align="left" id="TrObsMedico1" visible="false" runat="server">
+                            <%--<tr align="left" id="TrObsMedico1" visible="false" runat="server">
                                 <td>Médico:&nbsp;</td>
                             </tr>
                             <tr align="left" id="TrObsMedico2" visible="false" runat="server">
@@ -4114,7 +4115,7 @@
                                         <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
                                     </asp:DropDownList>
                                 </td>
-                            </tr>
+                            </tr>--%>
 
 
                         </table>
@@ -8405,13 +8406,13 @@
 
                         <%--Tipo Venta--%>
                         <div class="row" runat="server" visible="True" id="DvModalTipoVentaPasoTipo">
-                            <div class="col-md-4">
+                            <div class="col-md-3">
                             </div>
-                            <div class="col-md-4" style="text-align: left!important">
+                            <div class="col-md-6" style="text-align: left!important">
                                 <asp:RadioButtonList ID="RBLTipoVenta" DataTextField="TipoVenta" RepeatDirection="Vertical" DataValueField="CveTipoVenta" runat="server" AutoPostBack="true" OnSelectedIndexChanged="RBLTipoVenta_SelectedIndexChanged" Style="margin-top: 10px!important">
                                 </asp:RadioButtonList>
                             </div>
-                            <div class="col-md-4">
+                            <div class="col-md-3">
                             </div>
                         </div>
 
@@ -8489,7 +8490,7 @@
                         <div runat="server" visible="False" id="DvModalTipoVentaPasoRequiereOS">
                             <div class="row">
                                 <div class="form-group col-md-6 form-md-line-input input-iconright ">
-                                    <asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="DdlMedicoModal">Requiere Técnico:</asp:Label>
+                                    <asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="ChkRequiereTecnicoModal">Requiere Técnico:</asp:Label>
                                     <asp:CheckBox ID="ChkRequiereTecnicoModal" CssClass="chksino" runat="server" OnCheckedChanged="ChkRequiereTecnicoModal_CheckedChanged" AutoPostBack="true" Text="Requiere Técnico" />
                                 </div>
                                 <div class="form-group col-md-6 form-md-line-input input-iconright " runat="server" id="DvModalRequiereOSFecha" visible="false">
@@ -8545,6 +8546,40 @@
     <script src="/Metronic/assets/global/scripts/jquery-sortable.js"></script>
     <script type="text/javascript">
 
+        function impresionDirecta(url){
+            var frame = document.createElement('iframe');
+            frame.setAttribute('src', url);
+            //must be in the DOM to work in Firefox/IE
+            document.body.appendChild(frame);
+            //since it's in the DOM we need to hide it (lest we ruin our page layout)
+            //can't use 'display:none' or 'visibility:hidden' because you can't get focus (needed for IE)
+            //'z-index:-1' & 'opacity:0' wont help if there is no background in the elements above it and someone clicks through to it
+            frame.style.position = 'absolute';
+            frame.style.left = '-9999px';
+            //when it is loaded, print it
+            function printFrame() {
+                //have to get focus in IE
+                frame.contentWindow.focus();
+                //print!
+                frame.contentWindow.print();
+                /* cant remove the element because print() is non-blocking in FF
+                 * (I.e. it would remove the frame before it was printed!)
+                //cleanup
+                //document.body.removeChild(frame);*/
+            };
+            //if it was cached, it may already be done (onload wont fire, IE8)
+            if (frame.contentWindow && frame.contentDocument.readyState == 'complete')
+                printFrame();
+            else {
+                if (frame.addEventListener)
+                    //W3C
+                    frame.addEventListener('load', printFrame, false);
+                else
+                    //IE<9
+                    frame.attachEvent('onload', printFrame);
+            }
+        }
+
         function pageLoad() 
         { 
             //ABRIR EL DROPDOWN DE PS DESPUES DE ASIGNAR CANTIDAD

Ventas/Ventas.aspx.vb

@@ -2282,6 +2282,53 @@ Partial Class Ventas
         End Set
     End Property
 
+
+#Region "VENTA MEDICA"
+
+    Property EsVentaMedica As Boolean
+        Get
+            If ViewState("EsVentaMedica") Is Nothing Then
+                ViewState("EsVentaMedica") = False
+            End If
+
+            Return Boolean.Parse(ViewState("EsVentaMedica").ToString)
+
+        End Get
+        Set(value As Boolean)
+            ViewState("EsVentaMedica") = value
+        End Set
+    End Property
+
+
+    Property SeEstaFActurandoVentaMedica As Boolean
+        Get
+            If ViewState("SeEstaFActurandoVentaMedica") Is Nothing Then
+                ViewState("SeEstaFActurandoVentaMedica") = False
+            End If
+
+            Return Boolean.Parse(ViewState("SeEstaFActurandoVentaMedica").ToString)
+
+        End Get
+        Set(value As Boolean)
+            ViewState("SeEstaFActurandoVentaMedica") = value
+        End Set
+    End Property
+
+
+    Public Property CveTipoVenta As Integer
+        Get
+            If ViewState("CveTipoVenta") Is Nothing Then
+                ViewState("CveTipoVenta") = -1
+            End If
+            Return ViewState("CveTipoVenta").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveTipoVenta") = value
+        End Set
+    End Property
+
+#End Region
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
 
         If Not IsPostBack Then
@@ -3391,7 +3438,7 @@ Partial Class Ventas
                 End If
             End If
 
-            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+            If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
                 If CveVenta <= 0 Then
                     EsVentaMedica = True
                     CargaTiposVenta()
@@ -5819,14 +5866,16 @@ Partial Class Ventas
 
             If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
 
-                If DbRowVenta("CveMedico").ToString.ToEntero > 0 Then
+                CveTipoVenta = If(DbRowVenta("CveTipoVenta").ToString.ToEntero > 0, DbRowVenta("CveTipoVenta").ToString.ToEntero, -1)
-                    TrObsMedico1.Visible = True
-                    TrObsMedico2.Visible = True
-                    TrObsProcedimiento1.Visible = True
-                    TrObsProcedimiento2.Visible = True
 
-                    DdlMedicoObservaciones.SelectedValueExist(DbRowVenta("CveMedico").ToString)
+                If DbRowVenta("CveMedico").ToString.ToEntero > 0 AndAlso CveTipoVenta.Contiene(1, 3, 5) Then
-                    DdlProcedimientoObservaciones.SelectedValueExist(DbRowVenta("CveProcedimiento").ToString)
+                    TrVentasMedicas1.Visible = True
+                    DdlMedico.SelectedValueExist(DbRowVenta("CveMedico").ToString)
+                    DdlProcedimiento.SelectedValueExist(DbRowVenta("CveProcedimiento").ToString)
+
+
+                    DdlMedico.Enabled = False
+                    DdlProcedimiento.Enabled = False
 
                 End If
 
@@ -10528,6 +10577,10 @@ Partial Class Ventas
                             OnError("Ocurrió un error al limpiar los datos", ex)
                         End Try
 
+                        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                            RegistraScript($"impresionDirecta('/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1", CveVenta))}');", "Imprimir")
+                        End If
+
                     Else
                         ObjVentas.RollBack()
 
@@ -13193,20 +13246,15 @@ Partial Class Ventas
 
         Dim CveMedico As Integer = -1
         Dim CveProcedimiento As Integer = -1
+        Dim CveTipoVentaGuardar As Integer = -1
 
         If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
-            If SeEstaFActurandoVentaMedica Then
+            CveMedico = DdlMedico.SelectedValue.ToEntero
-                CveMedico = DdlMedicoObservaciones.SelectedValue.ToEntero
+            CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero
-                CveProcedimiento = DdlProcedimientoObservaciones.SelectedValue.ToEntero
+            CveTipoVentaGuardar = If(SeEstaFActurandoVentaMedica, CveTipoVenta, RBLTipoVenta.SelectedValue.ToEntero)
-            Else
-                CveMedico = DdlMedico.SelectedValue.ToEntero
-                CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero
-            End If
         End If
 
 
-
-
         If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC,
                            factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC,
                            factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, factura.FormaPago, factura.FechaPago, factura.Fecha, factura.MotivoDescuento,
@@ -13224,7 +13272,7 @@ Partial Class Ventas
                            Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text,
                            FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal, VentaDesglosaIEPS:=factura.VentaDesglosaIEPS, RFCReceptor:=RFCReceptor, Adjunto:=Adjunto, DevolucionImportePagado:=factura.DevolucionImportePagado, EsGarantia:=factura.EsGarantia, ServicioDomicilio:=TrServicioDomicilio.Visible,
                            CveLineaAdicional:=DdlLineaAdicional.SelectedValue.ToEntero(), DescripcionVenta:=DescripcionVenta,
-                           CveMedico:=CveMedico, CveProcedimiento:=CveProcedimiento, CveTipoVenta:=RBLTipoVenta.SelectedValue.ToEntero, RequiereOS:=ChkRequiereTecnico.Checked) Then
+                           CveMedico:=CveMedico, CveProcedimiento:=CveProcedimiento, CveTipoVenta:=CveTipoVentaGuardar, RequiereOS:=ChkRequiereTecnico.Checked) Then
             ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
         Else
             If factura.TipoDocto.Contiene("Dev", "Egs") OrElse DtVentasNC IsNot Nothing OrElse CveEstatusRefacturacion > 0 OrElse CveAnticipoPadre > 0 Then
@@ -13334,13 +13382,16 @@ Partial Class Ventas
                 CargaNCDT(factura.CveVentaPadre, DdlTipoComprobante.SelectedValue, factura.Total, NuevaFactura:=NuevaFactura, ObjVentas:=ObjVentas)
             End If
 
+            Dim EsatusAlmacen As Integer = If(RBLTipoVenta.SelectedValue = "5" AndAlso EsVentaMedica AndAlso DdlTipoComprobante.SelectedValue = "Ped", 1, 0) ', EstatusAlmacen:=EsatusAlmacen
             'Se agregan los PS
             For Each Row As DataRow In TmpDTDetalle.Rows
                 If Not ObjVentas.AddVentaDetalle(ObjVentas.CveVenta, Row("CvePS").ToString().ToEntero(), Row("Cantidad").ToString().ToDecimal, Row("CveUM").ToString().ToEntero(),
                                                  Row("PU").ToString().ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("ImporteIVA").ToString().ToDecimal, Math.Round((Row("Total").ToString().ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)) * (1 + Row("PorcentajeIVA").ToString().ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)))), 6),
                                                  Row("Obs").ToString(), Row("Descuento").ToString().ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("TipoDescuento").ToString().ToEntero(), Row("CveSubProyecto").ToString().ToEntero(), Row("CvePresupuestoIngreso").ToString().ToEntero(), TiempoEntrega:=Row("TiempoEntrega").ToString(), CveVentaDetallePadre:=Row("CveVentaDetalle").ToString().ToEntero(),
                                                  CveContratoDetalle:=Row("CveContratoDetalle").ToString().ToEntero(), CvePromocionDetalle:=Row("CvePromocionDetalle").ToString().ToEntero(), IEPS:=Row("ImporteIEPS").ToString().ToDecimal, CveMovimientoDetallePedido:=Row("CveMovimientoDetallePedido").ToString().ToEntero(), ImporteRetIVA:=Row("ImporteRetIVA").ToString().ToDecimal, ImporteRetISR:=Row("ImporteRetISR").ToString().ToDecimal,
-                                                 PorcentajeIVA:=Row("PorcentajeIVA").ToString().ToDecimal, PorcentajeIEPS:=Row("PorcentajeIEPS").ToString().ToDecimal, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString().ToDecimal, PorcentajeRetISR:=Row("PorcentajeRetISR").ToString().ToDecimal, CuentaPredial:=Row("CuentaPredial").ToString(), CvePrecioLista:=Row("CvePrecioLista").ToString().ToEntero(), CveActivoFijo:=Row("CveActivoFijo").ToString().ToEntero(), NumTurnos:=Row("NumTurnos").ToString().ToDecimal()) Then
+                                                 PorcentajeIVA:=Row("PorcentajeIVA").ToString().ToDecimal, PorcentajeIEPS:=Row("PorcentajeIEPS").ToString().ToDecimal, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString().ToDecimal,
+                                                 PorcentajeRetISR:=Row("PorcentajeRetISR").ToString().ToDecimal, CuentaPredial:=Row("CuentaPredial").ToString(), CvePrecioLista:=Row("CvePrecioLista").ToString().ToEntero(),
+                                                 CveActivoFijo:=Row("CveActivoFijo").ToString().ToEntero(), NumTurnos:=Row("NumTurnos").ToString().ToDecimal(), EstatusAlmacen:=EsatusAlmacen) Then
                     ErrorList.Add("Ocurrió un error al agregar un Producto o Servicio a la Factura.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
                     Exit For
                 Else
@@ -16380,6 +16431,7 @@ Partial Class Ventas
                         Else
                             MensajeAlert.Append("Ocurrió un error al generar el PDF. Por favor vuelva a entrar a la factura para imprimir el PDF. ")
                         End If
+
                     End If
 
                     'IMPRESION
@@ -21511,7 +21563,6 @@ Partial Class Ventas
         BtnEditarRemision.Visible = True
         BtnPermisoEditarRemision.Visible = False
         BtnCrearApartirDe.Visible = False
-        DdlSucursalCliente.Enabled = True
         TxtObsFact.Enabled = True
         TxtOrdenCompra.Enabled = True
         TxtPedidoContrato.Enabled = True
@@ -21522,12 +21573,17 @@ Partial Class Ventas
         UPCondicionesPago.Update()
         If Me.PermiteCredito Then RBLPago.Enabled = True
         DdlVendedor.Enabled = True
+
         ModalidadEdicion = True
 
         ViewState("CveClienteAnterior") = CveCliente
 
-        DdlMedicoObservaciones.Enabled = True
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso CveTipoVenta.Contiene(1, 3, 5) Then
-        DdlProcedimientoObservaciones.Enabled = True
+            TrVentasMedicas1.Visible = True
+            DdlMedico.Enabled = True
+            DdlProcedimiento.Enabled = True
+        End If
+
 
         Dim CantidadFacturadaRemision As Decimal = 0
 
@@ -21576,6 +21632,7 @@ Partial Class Ventas
             TxtPrecio.Enabled = True
         End If
 
+
         LbAgregar.Enabled = True
         ImgDescTotal.Attributes.Add("onclick", "javascript:$('#ModalDescuento').modal();  $get('LblTitulo1').style.display = ''; $get('LblTitulo2').style.display = 'none'; $get('LblTituloTipo1').style.display = ''; $get('LblTituloTipo2').style.display = 'none'; $get('HdnTipoDescuento').value = '2';  $get('LblPrecio1').style.display = 'none'; $get('LblTotalPS1').style.display = 'none'; $get('LblSubTotal1').style.display = ''; $get('LblAmort').style.display = 'none'; $get('BtnAplicarDescP').style.display = 'none'; $get('BtnAplicarDescG').style.display = ''; $get('TrMotivoDescuento').style.display = '';")
         LblSubTotal1.Text = TxtSubTotal.Text
@@ -21604,7 +21661,6 @@ Partial Class Ventas
         Dim Moneda As Integer = DdlMoneda.SelectedValue.ToEntero()
         Dim TipoCambio As Decimal = TxtTipoCambio.Text.ToDecimal
         EditoRemision = True
-        CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero
         Try
             'CONVERTIR REMISION - TIPO MONEDA  -DOLARES A PESOS
             If DdlMoneda.SelectedValue.ToEntero() <> 2 AndAlso ChkConvertirDolares.Checked Then
@@ -21679,14 +21735,13 @@ Partial Class Ventas
                 Moneda = 1
             End If
 
-            'Actualizo los parametros de la venta
             If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtIEPS.Text.ToDecimal, TxtTotal.Text.ToDecimal, Moneda, TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim,
                                           UsuarioActual.CveEmpresa, CveVenta,
                                           Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1),
                                           PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(),
                                           CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), TipoDocto:=DdlTipoComprobante.SelectedValue, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal,
                                           OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDecimal, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(),
-                                          CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), ServicioDomicilio:=TrServicioDomicilio.Visible, CveMedico:=DdlMedicoObservaciones.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimientoObservaciones.SelectedValue.ToEntero) Then
+                                          CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), ServicioDomicilio:=TrServicioDomicilio.Visible, CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero) Then
                 OcurrioError = True
             End If
 
@@ -30208,6 +30263,8 @@ Partial Class Ventas
                 Moneda = 1
             End If
 
+
+            'ACTUALIZA VENTA
             'ACTUALIZA VENTA
             If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal(), TxtIVA.Text.ToDecimal(), TxtIEPS.Text.ToDecimal(), TxtTotal.Text.ToDecimal(),
                                   Moneda, TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim,
@@ -30220,6 +30277,8 @@ Partial Class Ventas
                 OcurrioError = True
             End If
 
+
+
             'ELIMINA DETALLES
             If Not ObjVentas.RemoveVentasDetalle(CveVenta) Then
                 MensajeError = "Ocurrió un error al actualizar las partidas de la cotización"
@@ -33485,9 +33544,10 @@ Partial Class Ventas
             DdlUsoCFDI.Enabled = True
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso CveTipoVenta.Contiene(1, 3, 5) Then
-            DdlMedicoObservaciones.Enabled = True
+            TrVentasMedicas1.Visible = True
-            DdlProcedimientoObservaciones.Enabled = True
+            DdlMedico.Enabled = True
+            DdlProcedimiento.Enabled = True
         End If
 
         If UsuarioActual.TienePermisoProceso(289) Then
@@ -33528,12 +33588,12 @@ Partial Class Ventas
         Dim ObjVentas As New ClsVentas()
         ObjVentas.IniciaTransacSQL()
 
-        DdlMedicoObservaciones.Enabled = True
+        'DdlMedicoObservaciones.Enabled = True
-        DdlProcedimientoObservaciones.Enabled = True
+        'DdlProcedimientoObservaciones.Enabled = True
 
         If Not ObjVentas.UpdateObservacionesVenta(Me.CveVenta, UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(), TxtObsFact.Text, RblPaqueteria.SelectedValue.ToEntero(), TxtCorreoNotificaciones.Text,
                                                 TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text, DdlUsoCFDI.SelectedValue.ToEntero, DescripcionVenta:=TxtDescripcionVenta.Text.Trim,
-                                                CveMedico:=DdlMedicoObservaciones.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimientoObservaciones.SelectedValue.ToEntero) Then
+                                                CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero) Then
             TieneError = True
         End If
 
@@ -34854,34 +34914,7 @@ Partial Class Ventas
         End Set
     End Property
 
-    Property EsVentaMedica As Boolean
-        Get
-            If ViewState("EsVentaMedica") Is Nothing Then
-                ViewState("EsVentaMedica") = False
-            End If
 
-            Return Boolean.Parse(ViewState("EsVentaMedica").ToString)
-
-        End Get
-        Set(value As Boolean)
-            ViewState("EsVentaMedica") = value
-        End Set
-    End Property
-
-
-    Property SeEstaFActurandoVentaMedica As Boolean
-        Get
-            If ViewState("SeEstaFActurandoVentaMedica") Is Nothing Then
-                ViewState("SeEstaFActurandoVentaMedica") = False
-            End If
-
-            Return Boolean.Parse(ViewState("SeEstaFActurandoVentaMedica").ToString)
-
-        End Get
-        Set(value As Boolean)
-            ViewState("SeEstaFActurandoVentaMedica") = value
-        End Set
-    End Property
 
 
 
@@ -35866,7 +35899,7 @@ Partial Class Ventas
 
         RBLTipoVenta.DataSource = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ")
         RBLTipoVenta.DataBind()
-        RBLTipoVenta.Items.Add(New ListItem("Otros", "5"))
+        RBLTipoVenta.Items.Add(New ListItem("Otros", "99"))
 
         TrVentasMedicas1.Visible = True
         TrVentasMedicas2.Visible = True
@@ -35885,8 +35918,7 @@ Partial Class Ventas
         DdlProcedimientoModal.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
         DdlProcedimientoModal.DataBind()
 
-        DdlProcedimientoObservaciones.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa)
+
-        DdlProcedimientoObservaciones.DataBind()
 
     End Sub
 
@@ -35897,8 +35929,7 @@ Partial Class Ventas
         DdlMedicoModal.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
         DdlMedicoModal.DataBind()
 
-        DdlMedicoObservaciones.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa)
+
-        DdlMedicoObservaciones.DataBind()
 
     End Sub
 
@@ -35949,7 +35980,11 @@ Partial Class Ventas
     End Sub
 
     Protected Sub ChkRequiereTecnico_CheckedChanged(sender As Object, e As EventArgs)
-        TdFechaOS2.Visible = ChkRequiereTecnicoModal.Checked
+
+
+        TdFechaOS1.Visible = ChkRequiereTecnico.Checked
+        TdFechaOS2.Visible = ChkRequiereTecnico.Checked
+
         UpCliente.Update()
     End Sub
 
@@ -35976,7 +36011,7 @@ Partial Class Ventas
 
 
             Select Case RBLTipoVenta.SelectedValue
-                Case "1" ' Fuera de linea
+                Case "1", "5" '1 Fuera de linea  ||  5 Consignación - Uso material
                     ChkRequiereTecnicoModal.Checked = True
                     ChkRequiereTecnicoModal.Enabled = True
                     DvModalRequiereOSFecha.Visible = True
@@ -35990,13 +36025,13 @@ Partial Class Ventas
                     DvModalRequiereOSFecha.Visible = False
                     DvModalTipoVentaPasoMedicoProcedimiento.Visible = False
                     DVGvProductosProcedimiento.Visible = False
-                Case "4" 'Consigna
+                Case "4" 'Consignación
                     ChkRequiereTecnicoModal.Checked = False
                     DvModalTipoVentaPasoRequiereOS.Visible = False
                     DvModalRequiereOSFecha.Visible = False
                     DvModalTipoVentaPasoMedicoProcedimiento.Visible = False
                     DVGvProductosProcedimiento.Visible = False
-                Case "5" ' Otros
+                Case "99" ' Otros
                     LnkDvModalTipoVentaAceptar.Visible = False
                     UpDvModalTipoVenta.Update()
                     RegistraScript("$('#DvModalTipoVenta').modal('hide');")
@@ -36099,6 +36134,8 @@ Partial Class Ventas
 
     Protected Sub LnkDvModalTipoVentaAceptar_Click(sender As Object, e As EventArgs)
 
+
+
         If DdlClienteSucursalCliente() > 0 Then
             ViewState("CveCliente") = DdlClienteSucursalCliente()
         Else
@@ -36127,21 +36164,46 @@ Partial Class Ventas
         DdlMedico.SelectedValueExist(DdlMedicoModal.SelectedValue)
         DdlProcedimiento.SelectedValueExist(DdlProcedimientoModal.SelectedValue)
 
-        'si es  pago directo es factura
+
-		If RBLTipoVenta.SelectedValue.Contiene("2") Then ' Pago Directo 
+        If RBLTipoVenta.SelectedValue.Contiene("2") Then 'si es  pago directo es factura
-			DdlTipoComprobante.SelectedValueExist("Ing")
+            DdlTipoComprobante.SelectedValueExist("Ing")
-			TdRequiereTecnico1.Visible = True
+
-			TdRequiereTecnico2.Visible = True
+            TrVentasMedicas1.Visible = True
-		ElseIf RBLTipoVenta.SelectedValue.Contiene("4") Then ' Consigna
+            TrVentasMedicas2.Visible = True
-			DdlTipoComprobante.SelectedValueExist("Ing")
+
-		Else
+            TdFechaOS1.Visible = True
-			TdFechaOS1.Visible = True
+            TdFechaOS2.Visible = True
-			TdFechaOS2.Visible = True
+            ChkRequiereTecnico.Checked = True
-			ChkRequiereTecnico.Checked = True
+            ChkRequiereTecnico.Enabled = False
-			ChkRequiereTecnico.Enabled = False
+
-			DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped"))
+        ElseIf RBLTipoVenta.SelectedValue.Contiene("3") Then ' A vista
-			DdlTipoComprobante.SelectedValueExist("Ped")
+            DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped"))
-		End If
+            DdlTipoComprobante.SelectedValueExist("Ped")
+            TrVentasMedicas1.Visible = False
+            TrVentasMedicas2.Visible = False
+            ChkRequiereTecnico.Enabled = True
+        ElseIf RBLTipoVenta.SelectedValue.Contiene("4") Then ' consignacion
+            DdlTipoComprobante.SelectedValueExist("Ing")
+            TrVentasMedicas1.Visible = False
+            TrVentasMedicas2.Visible = False
+            ChkRequiereTecnico.Enabled = True
+        Else
+            DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped"))
+            DdlTipoComprobante.SelectedValueExist("Ped")
+
+            TrVentasMedicas1.Visible = True
+            TrVentasMedicas2.Visible = True
+
+            TdFechaOS1.Visible = True
+            TdFechaOS2.Visible = True
+
+            ChkRequiereTecnico.Enabled = True
+            ChkRequiereTecnico.Checked = ChkRequiereTecnicoModal.Checked
+            TdFechaOS1.Visible = ChkRequiereTecnicoModal.Checked
+            TdFechaOS2.Visible = ChkRequiereTecnicoModal.Checked
+
+
+        End If
         DdlTipoComprobante.Enabled = False
 
         CargaCliente(CveCliente)