SMS.

--Existencias cachadas
--Vista previa de facturacion de remisión

App_Code/ClsInventarios.vb

@@ -2065,7 +2065,7 @@ Public Class ClsInventarios
                                     Optional ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1,
                                     Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1,
                                     Optional ExcluyeTransitorios As Integer = -1, Optional TopSelect As Integer = 10000,
-                                    Optional IncluyeProximaLlegada As Boolean = False) As Boolean
+                                    Optional IncluyeProximaLlegada As Boolean = False, Optional BuscarEnTabla As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_ExistenciasGet")
 
@@ -2090,7 +2090,7 @@ Public Class ClsInventarios
             .Add("@RestringirAlmacenes", SqlDbType.Int).Value = RestringirAlmacenes
             .Add("@IncluyeProximaLlegada", SqlDbType.Int).Value = IncluyeProximaLlegada
             .Add("@TopSelect", SqlDbType.Int).Value = TopSelect
-
+            .Add("@BuscarEnTabla", SqlDbType.Bit).Value = BuscarEnTabla
             .Add("@Existencia", SqlDbType.Money).Direction = ParameterDirection.Output
         End With
         Try

Inventarios/PopUpExistenciasAlmacen.aspx.vb

@@ -131,10 +131,15 @@ Partial Class Inventarios_Default
                 RestringirAlmacenes = 1 'restringue los almacenes:Consignación,Productos Financieros Asignados,,roductos Financieros,Consumo Interno,Activo Fijo,Merma,Consignación de Contrato,Devolucion proveedor,
             End If
 
+            Dim BuscarEnTabla As Boolean = False
+            If UsuarioActual.Empresa.Funcionalidad(715) = "1" Then
+                BuscarEnTabla = True
+            End If
+
             Dim ObjInventarios As New ClsInventarios()
             If ObjInventarios.GetExistenciasProducto(CvePS, -1, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"),
                                                      ExcluyeApartados:=-1, ExcluyeAdelantado:=1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero,
-                                                     ExcluyeTransitorios:=1, RestringirAlmacenes:=RestringirAlmacenes, TopSelect:=100) Then
+                                                     ExcluyeTransitorios:=1, RestringirAlmacenes:=RestringirAlmacenes, TopSelect:=100, BuscarEnTabla:=BuscarEnTabla) Then
                 CargaPS(CvePS)
 
                 If ObjInventarios.DtResultados.Rows.Count > 0 Then

Ventas/Ventas.aspx

@@ -4144,6 +4144,7 @@
                     <asp:UpdatePanel ID="UpFacturar" runat="server" class="portlet light xspadding bordered " style="max-width: 300px;" align="right" UpdateMode="Conditional">
                         <Triggers>
                             <asp:PostBackTrigger ControlID="BtnVistaPrevia" />
+                            <asp:PostBackTrigger ControlID="LBVistaPrevia" />
                         </Triggers>
                         <ContentTemplate>
 
@@ -4185,6 +4186,9 @@
                                                     Facturar <i class="fa fa-angle-down"></i>
                                                 </button>
                                                 <ul class="dropdown-menu">
+                                                    <li>
+                                                        <asp:LinkButton ID="LBVistaPrevia" Text="Vista Previa" OnClick="LBVistaPrevia_Click" runat="server" Visible="false" />
+                                                    </li>
                                                     <li>
                                                         <asp:LinkButton ID="LBFacturarIngreso" Text="Ingreso" OnClick="LBFacturarIngreso_Click" runat="server" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea facturar como tipo ingreso?" data-btn-ok-label="si" />
                                                     </li>

Ventas/Ventas.aspx.vb

@@ -2599,11 +2599,10 @@ Partial Class Ventas
                 CargaMedicos()
                 CargaProcedimientos()
                 CargaDdlClientesSucursal()
+                LBVistaPrevia.Visible = True
             End If
 
 
-
-
             'SI USUARIO USA AMORTIZACIÓN CONTABLE, se carga las tablas para usarlas mas adelante
             If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then
 
@@ -11497,7 +11496,7 @@ Partial Class Ventas
     End Function
 
 
-    Private Sub CreaObjetosVenta(Optional VistaPrevia As Boolean = False, Optional EsCancelacion As Boolean = False, Optional TipoDoctoViejo As String = "")
+    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
             ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=EsCancelacion)
@@ -11521,6 +11520,11 @@ Partial Class Ventas
         ObjFactura.Moneda = DdlMoneda.SelectedItem.Text
         ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {DdlMoneda.SelectedValue}")
         ObjFactura.TipoDocto = If(IfNull(ViewState("CveRemision"), 0).ToString().ToEntero() > 0, "Ing", DdlTipoComprobante.SelectedValue)
+
+        If VistaPrevia AndAlso Not String.IsNullOrEmpty(TipoDoctoVistaPrevia) Then
+            ObjFactura.TipoDocto = TipoDoctoVistaPrevia
+        End If
+
         ObjFactura.FacturarSucursal = (Me.FacturarSucursal AndAlso DdlSucursalCliente.SelectedValue.ToEntero() > 0 AndAlso (Me.ClienteSucursal IsNot Nothing AndAlso Not String.IsNullOrEmpty(Me.ClienteSucursal.RFC)))
         ObjFactura.VentaDesglosaIEPS = Me.VentaDesglosaIEPS
 
@@ -36724,9 +36728,18 @@ Partial Class Ventas
         CargaAnticipos(CveCliente)
     End Sub
 
+    Protected Sub LBVistaPrevia_Click(sender As Object, e As EventArgs)
+        CreaObjetosVenta(True, TipoDoctoVistaPrevia:="Ing")
 
+        If ObjFactura Is Nothing Or (ObjFactura.Cliente Is Nothing And Not CveEmpresaCRM > 0) Then
+            Alert("Ocurrió un error al procesar los datos para la vista previa. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgError)
+            ObjFactura = Nothing
+            Exit Sub
+        End If
 
+        Dim CartaPorte As Modelos.MSubReportData = Nothing
 
-
+        ImprimirbytesPDF(PdfFactura(ObjFactura, Guardar:=False, SubReportData:=CartaPorte), "Factura", "PDF")
+    End Sub
 End Class