From 6e11f2463faf468a15bf22fd085764ad264a5617 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Sat, 27 Jan 2024 16:56:32 -0700 Subject: [PATCH] =?UTF-8?q?SMS.=20--Existencias=20cachadas=20--Vista=20pre?= =?UTF-8?q?via=20de=20facturacion=20de=20remisi=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsInventarios.vb | 4 ++-- Inventarios/PopUpExistenciasAlmacen.aspx.vb | 7 ++++++- Ventas/Ventas.aspx | 4 ++++ Ventas/Ventas.aspx.vb | 21 +++++++++++++++++---- 4 files changed, 29 insertions(+), 7 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index c8ecbfe36..11302558c 100644 --- a/App_Code/ClsInventarios.vb +++ b/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 diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx.vb b/Inventarios/PopUpExistenciasAlmacen.aspx.vb index 6cf82a8a9..181f6b4de 100644 --- a/Inventarios/PopUpExistenciasAlmacen.aspx.vb +++ b/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 diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index b0fd556d5..14b2d9e33 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -4144,6 +4144,7 @@ + @@ -4185,6 +4186,9 @@ Facturar
    +
  • + +
    • diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index a464d81fa..c24b58d88 100644 --- a/Ventas/Ventas.aspx.vb +++ b/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